diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index cb7ed32d8..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 1734131747) + (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 ((_%verbosity134039134041%_ + (let ((_%verbosity135024135026%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity134039134041%_ - (let* ((_%verbosity134044%_ _%verbosity134039134041%_) - (_%$e134046%_ (string->number _%verbosity134044%_))) - (if _%$e134046%_ _%$e134046%_ _%verbosity134044%_)) + (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 ((__tmp134101 (list)) (__tmp134100 (cons (cons 'struct: '#t) '()))) + (let ((__tmp135086 (list)) (__tmp135085 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp134101 + __tmp135086 '(gensyms bindings) - __tmp134100 + __tmp135085 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args134037%_ - (apply make-instance gxc#symbol-table::t _%$args134037%_))) + (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 (_%self133559134022%_) - (let* ((_%self134025%_ _%self133559134022%_) - (_%self134027%_ _%self134025%_)) - (if (let ((__tmp134102 + (lambda (_%self134544135007%_) + (let* ((_%self135010%_ _%self134544135007%_) + (_%self135012%_ _%self135010%_)) + (if (let ((__tmp135087 (let () (declare (not safe)) - (##structure-length _%self134027%_)))) + (##structure-length _%self135012%_)))) (declare (not safe)) - (##fx< '2 __tmp134102)) + (##fx< '2 __tmp135087)) (begin - (let ((__tmp134103 + (let ((__tmp135088 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self134027%_ - __tmp134103 + _%self135012%_ + __tmp135088 '1 '#f '#f)) - (let ((__tmp134104 + (let ((__tmp135089 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self134027%_ - __tmp134104 + _%self135012%_ + __tmp135089 '2 '#f '#f)) '#!void) - (let ((__tmp134105 + (let ((__tmp135090 (let () (declare (not safe)) - (##vector-length _%self134027%_)))) + (##vector-length _%self135012%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self134027%_ + _%self135012%_ '2 - __tmp134105)))))) + __tmp135090)))))) (let () (declare (not safe)) (__bind-method!__% @@ -125,134 +125,134 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message133891%_ _%stx133892%_ . _%details133893%_) - (let ((_%ctx133898%_ - (let ((_%$e133895%_ + (lambda (_%message134876%_ _%stx134877%_ . _%details134878%_) + (let ((_%ctx134883%_ + (let ((_%$e134880%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e133895%_ _%$e133895%_ 'compile)))) + (if _%$e134880%_ _%$e134880%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx133898%_ - _%message133891%_ - _%stx133892%_ - _%details133893%_)))) + _%ctx134883%_ + _%message134876%_ + _%stx134877%_ + _%details134878%_)))) (define gxc#verbose - (lambda _%args133888%_ + (lambda _%args134873%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp134106 + (let ((__tmp135091 (lambda () (let () (declare (not safe)) - (##apply displayln _%args133888%_))))) + (##apply displayln _%args134873%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp134106)) + (__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 (_%id133870%_) - (let* ((_%str133872%_ - (if (symbol? _%id133870%_) + (lambda (_%id134855%_) + (let* ((_%str134857%_ + (if (symbol? _%id134855%_) (let () (declare (not safe)) - (##symbol->string _%id133870%_)) - _%id133870%_)) - (_%len133874%_ (string-length _%str133872%_)) - (_%res133876%_ - (let () (declare (not safe)) (##make-string _%len133874%_)))) - (let _%lp133879%_ ((_%i133881%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i133881%_ _%len133874%_)) - (let* ((_%char133883%_ (string-ref _%str133872%_ _%i133881%_)) - (_%xchar133885%_ + (##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 - _%char133883%_)) + _%char134868%_)) '#\_ - _%char133883%_))) - (string-set! _%res133876%_ _%i133881%_ _%xchar133885%_) - (_%lp133879%_ - (let () (declare (not safe)) (##fx+ _%i133881%_ '1)))) - _%res133876%_))))) + _%char134868%_))) + (string-set! _%res134861%_ _%i134866%_ _%xchar134870%_) + (_%lp134864%_ + (let () (declare (not safe)) (##fx+ _%i134866%_ '1)))) + _%res134861%_))))) (define gxc#map* - (lambda (_%proc133812%_ _%maybe-improper-list133813%_) - (let _%recur133815%_ ((_%rest133817%_ _%maybe-improper-list133813%_)) - (let* ((_%rest133818133829%_ _%rest133817%_) - (_%E133822133833%_ + (lambda (_%proc134797%_ _%maybe-improper-list134798%_) + (let _%recur134800%_ ((_%rest134802%_ _%maybe-improper-list134798%_)) + (let* ((_%rest134803134814%_ _%rest134802%_) + (_%E134807134818%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest133818133829%_ + _%rest134803134814%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K133825133858%_ - (lambda (_%rest133855%_ _%hd133856%_) - (cons (_%proc133812%_ _%hd133856%_) - (_%recur133815%_ _%rest133855%_)))) - (_%K133824133849%_ (lambda () '())) - (_%K133823133839%_ - (lambda (_%tail133837%_) (_%proc133812%_ _%tail133837%_)))) - (let ((_%try-match133820133852%_ + (let ((_%K134810134843%_ + (lambda (_%rest134840%_ _%hd134841%_) + (cons (_%proc134797%_ _%hd134841%_) + (_%recur134800%_ _%rest134840%_)))) + (_%K134809134834%_ (lambda () '())) + (_%K134808134824%_ + (lambda (_%tail134822%_) (_%proc134797%_ _%tail134822%_)))) + (let ((_%try-match134805134837%_ (lambda () - (if (null? _%rest133818133829%_) - (_%K133824133849%_) - (let ((_%tail133842%_ _%rest133818133829%_)) + (if (null? _%rest134803134814%_) + (_%K134809134834%_) + (let ((_%tail134827%_ _%rest134803134814%_)) (declare (not safe)) - (_%proc133812%_ _%tail133842%_)))))) - (if (pair? _%rest133818133829%_) - (let ((_%tl133827133863%_ + (_%proc134797%_ _%tail134827%_)))))) + (if (pair? _%rest134803134814%_) + (let ((_%tl134812134848%_ (let () (declare (not safe)) - (##cdr _%rest133818133829%_))) - (_%hd133826133861%_ + (##cdr _%rest134803134814%_))) + (_%hd134811134846%_ (let () (declare (not safe)) - (##car _%rest133818133829%_)))) - (let ((_%hd133866%_ _%hd133826133861%_) - (_%rest133868%_ _%tl133827133863%_)) - (_%K133825133858%_ _%rest133868%_ _%hd133866%_))) - (_%try-match133820133852%_)))))))) + (##car _%rest134803134814%_)))) + (let ((_%hd134851%_ _%hd134811134846%_) + (_%rest134853%_ _%tl134812134848%_)) + (_%K134810134843%_ _%rest134853%_ _%hd134851%_))) + (_%try-match134805134837%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym133807%_) - (let ((_%$e133809%_ (not (gxc#gensym-reference? _%sym133807%_)))) - (if _%$e133809%_ - _%$e133809%_ - (memq _%sym133807%_ + (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 (_%sym133803%_) - (let ((_%str133805%_ (symbol->string _%sym133803%_))) + (lambda (_%sym134788%_) + (let ((_%str134790%_ (symbol->string _%sym134788%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str133805%_)) + (##string-prefix? '"_%" _%str134790%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str133805%_)) + (##string-suffix? '"%_" _%str134790%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id133774%_) - (let ((_%$e133776%_ + (lambda (_%id134759%_) + (let ((_%$e134761%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id133774%_ + _%id134759%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id133774%_)) + (gx#resolve-identifier__0 _%id134759%_)) '#f))) - (if _%$e133776%_ - ((lambda (_%bind133779%_) - (let ((_%eid133781%_ - (##structure-ref _%bind133779%_ '1 gx#binding::t '#f)) - (_%ht133782%_ + (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? _%eid133781%_)) - _%eid133781%_ - (let ((_%$e133785%_ + (interned-symbol? _%eid134766%_)) + _%eid134766%_ + (let ((_%$e134770%_ (let () (declare (not safe)) - (hash-get _%ht133782%_ _%eid133781%_)))) - (if _%$e133785%_ - _%$e133785%_ + (hash-get _%ht134767%_ _%eid134766%_)))) + (if _%$e134770%_ + _%$e134770%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133779%_ + _%bind134764%_ 'gx#local-binding::t)) - (let ((_%gid133789%_ + (let ((_%gid134774%_ (gxc#generate-runtime-gensym-reference__0 - _%eid133781%_))) + _%eid134766%_))) (let () (declare (not safe)) (hash-put! - _%ht133782%_ - _%eid133781%_ - _%gid133789%_)) - _%gid133789%_) + _%ht134767%_ + _%eid134766%_ + _%gid134774%_)) + _%gid134774%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133779%_ + _%bind134764%_ 'gx#module-binding::t)) - (let ((_%gid133798%_ - (let ((_%$e133792%_ + (let ((_%gid134783%_ + (let ((_%$e134777%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind133779%_ + _%bind134764%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e133792%_ - ((lambda (_%ns133795%_) + (if _%$e134777%_ + ((lambda (_%ns134780%_) (let () (declare (not safe)) (make-symbol__1 - _%ns133795%_ + _%ns134780%_ '"#" - _%eid133781%_))) - _%$e133792%_) + _%eid134766%_))) + _%$e134777%_) (gxc#generate-runtime-gensym-reference__0 - _%eid133781%_))))) + _%eid134766%_))))) (let () (declare (not safe)) (hash-put! - _%ht133782%_ - _%eid133781%_ - _%gid133798%_)) - _%gid133798%_) + _%ht134767%_ + _%eid134766%_ + _%gid134783%_)) + _%gid134783%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id133774%_ - _%eid133781%_ - _%bind133779%_)))))))) - _%$e133776%_) - (if (let ((__tmp134107 + _%id134759%_ + _%eid134766%_ + _%bind134764%_)))))))) + _%$e134761%_) + (if (let ((__tmp135092 (let () (declare (not safe)) - (gx#stx-e _%id133774%_)))) + (gx#stx-e _%id134759%_)))) (declare (not safe)) - (interned-symbol? __tmp134107)) - (let () (declare (not safe)) (gx#stx-e _%id133774%_)) + (interned-symbol? __tmp135092)) + (let () (declare (not safe)) (gx#stx-e _%id134759%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id133774%_)))))) + _%id134759%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id133772%_) - (if (let () (declare (not safe)) (gx#identifier? _%id133772%_)) - (gxc#generate-runtime-binding-id _%id133772%_) + (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 (_%top133759%_) - (if _%top133759%_ - (let ((_%ns133761%_ + (lambda (_%top134744%_) + (if _%top134744%_ + (let ((_%ns134746%_ (##structure-ref - (let ((__tmp134108 + (let ((__tmp135093 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp134108)) + (gx#core-context-top__1 __tmp135093)) '6 gx#module-context::t '#f)) - (_%phi133762%_ + (_%phi134747%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns133761%_ - (if (fxpositive? _%phi133762%_) - (let ((__tmp134110 (number->string _%phi133762%_)) - (__tmp134109 + (if _%ns134746%_ + (if (fxpositive? _%phi134747%_) + (let ((__tmp135095 (number->string _%phi134747%_)) + (__tmp135094 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns133761%_ + _%ns134746%_ '"[" - __tmp134110 + __tmp135095 '"]#_" - __tmp134109 + __tmp135094 '"_")) - (let ((__tmp134111 + (let ((__tmp135096 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns133761%_ '"#_" __tmp134111 '"_"))) - (if (fxpositive? _%phi133762%_) - (let ((__tmp134113 (number->string _%phi133762%_)) - (__tmp134112 + (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 '"[" - __tmp134113 + __tmp135098 '"]#_" - __tmp134112 + __tmp135097 '"_")) - (let ((__tmp134114 + (let ((__tmp135099 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp134114 '"_"))))) - (let ((__tmp134115 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp135099 '"_"))))) + (let ((__tmp135100 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp134115 '"_"))))) + (make-symbol__1 '"_" __tmp135100 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top133768%_ '#f)) - (gxc#generate-runtime-temporary__% _%top133768%_)))) + (let ((_%top134753%_ '#f)) + (gxc#generate-runtime-temporary__% _%top134753%_)))) (define gxc#generate-runtime-temporary - (lambda _g134117_ - (let ((_g134116_ (let () (declare (not safe)) (##length _g134117_)))) - (cond ((let () (declare (not safe)) (##fx= _g134116_ 0)) - (apply gxc#generate-runtime-temporary__0 _g134117_)) - ((let () (declare (not safe)) (##fx= _g134116_ 1)) - (apply gxc#generate-runtime-temporary__% _g134117_)) + (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 - _g134117_)))))) + _g135102_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym133737%_ _%quote?133738%_) - (let* ((_%ht133740%_ + (lambda (_%sym134722%_ _%quote?134723%_) + (let* ((_%ht134725%_ (##structure-ref (let () (declare (not safe)) @@ -418,66 +418,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e133742%_ + (_%$e134727%_ (let () (declare (not safe)) - (hash-get _%ht133740%_ _%sym133737%_)))) - (if _%$e133742%_ - _%$e133742%_ - (let ((_%g133746%_ - (if _%quote?133738%_ - (let ((__tmp134118 + (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 '"__" - _%sym133737%_ + _%sym134722%_ '"__" - __tmp134118)) + __tmp135103)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym133737%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym134722%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht133740%_ _%sym133737%_ _%g133746%_)) - _%g133746%_))))) + (hash-put! _%ht134725%_ _%sym134722%_ _%g134731%_)) + _%g134731%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym133751%_) - (let ((_%quote?133753%_ '#f)) + (lambda (_%sym134736%_) + (let ((_%quote?134738%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym133751%_ - _%quote?133753%_)))) + _%sym134736%_ + _%quote?134738%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g134120_ - (let ((_g134119_ (let () (declare (not safe)) (##length _g134120_)))) - (cond ((let () (declare (not safe)) (##fx= _g134119_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g134120_)) - ((let () (declare (not safe)) (##fx= _g134119_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g134120_)) + (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 - _g134120_)))))) + _g135105_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1133729%_ _%id2133730%_) - (letrec ((_%symbol-e133732%_ - (lambda (_%id133734%_) - (if (symbol? _%id133734%_) - _%id133734%_ - (gxc#generate-runtime-binding-id _%id133734%_))))) - (eq? (_%symbol-e133732%_ _%id1133729%_) - (_%symbol-e133732%_ _%id2133730%_))))) + (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 (_%stx133727%_) + (lambda (_%stx134712%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx133727%_ + _%stx134712%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx133727%_) - (let () (declare (not safe)) (gx#stx-e _%stx133727%_))))) + (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 (_%thunk133712%_ _%name133713%_) + (lambda (_%thunk134697%_ _%name134698%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job133715%_ - (gxc#make-compile-job _%thunk133712%_ _%name133713%_))) - (set! gxc#__compile-jobs (cons _%job133715%_ 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 (_%thunk133720%_) - (let ((_%name133722%_ + (lambda (_%thunk134705%_) + (let ((_%name134707%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk133720%_ _%name133722%_)))) + (gxc#add-compile-job!__% _%thunk134705%_ _%name134707%_)))) (define gxc#add-compile-job! - (lambda _g134122_ - (let ((_g134121_ (let () (declare (not safe)) (##length _g134122_)))) - (cond ((let () (declare (not safe)) (##fx= _g134121_ 1)) - (apply gxc#add-compile-job!__0 _g134122_)) - ((let () (declare (not safe)) (##fx= _g134121_ 2)) - (apply gxc#add-compile-job!__% _g134122_)) + (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! - _g134122_)))))) + _g135107_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result133709%_ (reverse! gxc#__compile-jobs))) + (let ((_%result134694%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result133709%_))) + _%result134694%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop133703%_ () - (let ((_%pending133706%_ (gxc#pending-compile-jobs))) - (if (null? _%pending133706%_) + (let _%loop134688%_ () + (let ((_%pending134691%_ (gxc#pending-compile-jobs))) + (if (null? _%pending134691%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending133706%_)) + (##for-each thread-start! _%pending134691%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending133706%_)))))))) + (##for-each gxc#join! _%pending134691%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk133692%_ _%name133693%_) + (lambda (_%thunk134677%_ _%name134678%_) (make-thread (lambda () - (let _%loop133696%_ () + (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 ((__tmp134123 + (let ((__tmp135108 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name133693%_))))) + _%name134678%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp134123)) - (let ((__tmp134125 (lambda () (_%thunk133692%_))) - (__tmp134124 + (__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 __tmp134125 __tmp134124))) + (__with-unwind-protect __tmp135110 __tmp135109))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop133696%_))))) - _%name133693%_))) + (_%loop134681%_))))) + _%name134678%_))) (define gxc#join! - (lambda (_%thread133687%_) - (let ((__tmp134127 - (lambda (_%exn133689%_) + (lambda (_%thread134672%_) + (let ((__tmp135112 + (lambda (_%exn134674%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn133689%_)) - (let ((__tmp134128 + (uncaught-exception? _%exn134674%_)) + (let ((__tmp135113 (let () (declare (not safe)) - (uncaught-exception-reason _%exn133689%_)))) + (uncaught-exception-reason _%exn134674%_)))) (declare (not safe)) - (raise __tmp134128)) - (let () (declare (not safe)) (raise _%exn133689%_))))) - (__tmp134126 (lambda () (thread-join! _%thread133687%_)))) + (raise __tmp135113)) + (let () (declare (not safe)) (raise _%exn134674%_))))) + (__tmp135111 (lambda () (thread-join! _%thread134672%_)))) (declare (not safe)) - (__with-catch __tmp134127 __tmp134126)))))) + (__with-catch __tmp135112 __tmp135111)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index 896547830..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]#_g134138_| + (define |gxc[1]#_g135123_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134140_| + (define |gxc[1]#_g135125_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134142_| + (define |gxc[1]#_g135127_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134144_| + (define |gxc[1]#_g135129_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134145_| + (define |gxc[1]#_g135130_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134147_| + (define |gxc[1]#_g135132_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134148_| + (define |gxc[1]#_g135133_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134150_| + (define |gxc[1]#_g135135_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134151_| + (define |gxc[1]#_g135136_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134153_| + (define |gxc[1]#_g135138_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134154_| + (define |gxc[1]#_g135139_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx133221%_) + (lambda (_%stx134206%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx133221%_ + _%stx134206%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx133224%_) - (let* ((_%g133227133251%_ - (lambda (_%g133228133247%_) + (lambda (_%stx134209%_) + (let* ((_%g134212134236%_ + (lambda (_%g134213134232%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133228133247%_)))) - (_%g133226133554%_ - (lambda (_%g133228133255%_) + _%g134213134232%_)))) + (_%g134211134539%_ + (lambda (_%g134213134240%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133228133255%_)) - (let ((_%e133231133258%_ + (gx#stx-pair? _%g134213134240%_)) + (let ((_%e134216134243%_ (let () (declare (not safe)) - (gx#syntax-e _%g133228133255%_)))) - (let ((_%hd133232133262%_ + (gx#syntax-e _%g134213134240%_)))) + (let ((_%hd134217134247%_ (let () (declare (not safe)) - (##car _%e133231133258%_))) - (_%tl133233133265%_ + (##car _%e134216134243%_))) + (_%tl134218134250%_ (let () (declare (not safe)) - (##cdr _%e133231133258%_)))) + (##cdr _%e134216134243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133233133265%_)) - (let ((_%e133234133268%_ + (gx#stx-pair? _%tl134218134250%_)) + (let ((_%e134219134253%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133233133265%_)))) - (let ((_%hd133235133272%_ + (gx#syntax-e _%tl134218134250%_)))) + (let ((_%hd134220134257%_ (let () (declare (not safe)) - (##car _%e133234133268%_))) - (_%tl133236133275%_ + (##car _%e134219134253%_))) + (_%tl134221134260%_ (let () (declare (not safe)) - (##cdr _%e133234133268%_)))) + (##cdr _%e134219134253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133236133275%_)) - (let ((_g134129_ + (gx#stx-pair/null? _%tl134221134260%_)) + (let ((_g135114_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133236133275%_ + _%tl134221134260%_ '0)))) (begin - (let ((_g134130_ + (let ((_g135115_ (let () (declare (not safe)) - (if (##values? _g134129_) + (if (##values? _g135114_) (##values-length - _g134129_) + _g135114_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134130_ 2))) + (##fx= _g135115_ 2))) (error "Context expects 2 values" - _g134130_))) - (let ((_%target133237133278%_ + _g135115_))) + (let ((_%target134222134263%_ (let () (declare (not safe)) - (##values-ref _g134129_ 0))) - (_%tl133239133281%_ + (##values-ref _g135114_ 0))) + (_%tl134224134266%_ (let () (declare (not safe)) (##values-ref - _g134129_ + _g135114_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133239133281%_)) - (letrec ((_%loop133240133284%_ - (lambda (_%hd133238133288%_ + _%tl134224134266%_)) + (letrec ((_%loop134225134269%_ + (lambda (_%hd134223134273%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause133244133291%_) + _%clause134229134276%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133238133288%_)) - (let ((_%e133241133294%_ + (gx#stx-pair? _%hd134223134273%_)) + (let ((_%e134226134279%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133238133288%_)))) - (let ((_%lp-hd133242133298%_ + (gx#syntax-e _%hd134223134273%_)))) + (let ((_%lp-hd134227134283%_ (let () (declare (not safe)) - (##car _%e133241133294%_))) - (_%lp-tl133243133301%_ + (##car _%e134226134279%_))) + (_%lp-tl134228134286%_ (let () (declare (not safe)) - (##cdr _%e133241133294%_)))) - (_%loop133240133284%_ - _%lp-tl133243133301%_ - (cons _%lp-hd133242133298%_ - _%clause133244133291%_)))) - (let ((_%clause133245133304%_ - (reverse _%clause133244133291%_))) - ((lambda (_%L133308%_ _%L133310%_) + (##cdr _%e134226134279%_)))) + (_%loop134225134269%_ + _%lp-tl134228134286%_ + (cons _%lp-hd134227134283%_ + _%clause134229134276%_)))) + (let ((_%clause134230134289%_ + (reverse _%clause134229134276%_))) + ((lambda (_%L134293%_ _%L134295%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L133310%_)) - (let* ((_%g133329133346%_ - (lambda (_%g133330133342%_) + (gx#identifier-list? _%L134295%_)) + (let* ((_%g134314134331%_ + (lambda (_%g134315134327%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133330133342%_)))) - (_%g133328133407%_ - (lambda (_%g133330133350%_) + _%g134315134327%_)))) + (_%g134313134392%_ + (lambda (_%g134315134335%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g133330133350%_)) - (let ((_g134131_ + _%g134315134335%_)) + (let ((_g135116_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g133330133350%_ + _%g134315134335%_ '0)))) (begin - (let ((_g134132_ + (let ((_g135117_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134131_) - (##values-length _g134131_) + _g135116_) + (##values-length _g135116_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g134132_ 2))) - (error "Context expects 2 values" _g134132_))) + (##fx= _g135117_ 2))) + (error "Context expects 2 values" _g135117_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133332133353%_ + (let ((_%target134317134338%_ (let () (declare (not safe)) (##values-ref - _g134131_ + _g135116_ 0))) - (_%tl133334133356%_ + (_%tl134319134341%_ (let () (declare (not safe)) (##values-ref - _g134131_ + _g135116_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133334133356%_)) - (letrec ((_%loop133335133359%_ + _%tl134319134341%_)) + (letrec ((_%loop134320134344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133333133363%_ _%clause133339133366%_) + (lambda (_%hd134318134348%_ _%clause134324134351%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133333133363%_)) - (let ((_%e133336133369%_ + (gx#stx-pair? _%hd134318134348%_)) + (let ((_%e134321134354%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133333133363%_)))) - (let ((_%lp-hd133337133373%_ + (gx#syntax-e _%hd134318134348%_)))) + (let ((_%lp-hd134322134358%_ (let () (declare (not safe)) - (##car _%e133336133369%_))) - (_%lp-tl133338133376%_ + (##car _%e134321134354%_))) + (_%lp-tl134323134361%_ (let () (declare (not safe)) - (##cdr _%e133336133369%_)))) - (_%loop133335133359%_ - _%lp-tl133338133376%_ - (cons _%lp-hd133337133373%_ - _%clause133339133366%_)))) - (let ((_%clause133340133379%_ - (reverse _%clause133339133366%_))) - ((lambda (_%L133383%_) + (##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 _%L133310%_ - (let ((__tmp134133 - (lambda (_%g133398133401%_ - _%g133399133404%_) - (cons _%g133398133401%_ - _%g133399133404%_)))) + (cons _%L134295%_ + (let ((__tmp135118 + (lambda (_%g134383134386%_ + _%g134384134389%_) + (cons _%g134383134386%_ + _%g134384134389%_)))) (declare (not safe)) - (__foldr1 __tmp134133 '() _%L133383%_))))) + (__foldr1 __tmp135118 '() _%L134368%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause133340133379%_)))))) - (_%loop133335133359%_ _%target133332133353%_ '())) - (_%g133329133346%_ _%g133330133350%_))))) + _%clause134325134364%_)))))) + (_%loop134320134344%_ _%target134317134338%_ '())) + (_%g134314134331%_ _%g134315134335%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133329133346%_ - _%g133330133350%_))))) - (_%g133328133407%_ - (let ((__tmp134136 - (lambda (_%clause133411%_) - (let* ((_%__stx134049134050%_ - _%clause133411%_) - (_%g133415133442%_ + (_%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" - _%__stx134049134050%_))))) - (let ((_%__kont134052134053%_ - (lambda (_%L133527%_ - _%L133529%_) - (cons _%L133529%_ + _%__stx135034135035%_))))) + (let ((_%__kont135037135038%_ + (lambda (_%L134512%_ + _%L134514%_) + (cons _%L134514%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133527%_ '())) + (cons _%L134512%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont134054134055%_ - (lambda (_%L133479%_ - _%L133481%_ - _%L133482%_) - (cons _%L133482%_ - (cons _%L133481%_ + (_%__kont135039135040%_ + (lambda (_%L134464%_ + _%L134466%_ + _%L134467%_) + (cons _%L134467%_ + (cons _%L134466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133479%_ '())) + (cons _%L134464%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx134049134050%_)) - (let ((_%e133419133507%_ + _%__stx135034135035%_)) + (let ((_%e134404134492%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx134049134050%_)))) - (let ((_%tl133421133514%_ + _%__stx135034135035%_)))) + (let ((_%tl134406134499%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133419133507%_))) - (_%hd133420133511%_ - (let () (declare (not safe)) (##car _%e133419133507%_)))) + (##cdr _%e134404134492%_))) + (_%hd134405134496%_ + (let () (declare (not safe)) (##car _%e134404134492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133421133514%_)) - (let ((_%e133422133517%_ + (gx#stx-pair? _%tl134406134499%_)) + (let ((_%e134407134502%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133421133514%_)))) - (let ((_%tl133424133524%_ + (gx#syntax-e _%tl134406134499%_)))) + (let ((_%tl134409134509%_ (let () (declare (not safe)) - (##cdr _%e133422133517%_))) - (_%hd133423133521%_ + (##cdr _%e134407134502%_))) + (_%hd134408134506%_ (let () (declare (not safe)) - (##car _%e133422133517%_)))) + (##car _%e134407134502%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133424133524%_)) - (_%__kont134052134053%_ - _%hd133423133521%_ - _%hd133420133511%_) + (gx#stx-null? _%tl134409134509%_)) + (_%__kont135037135038%_ + _%hd134408134506%_ + _%hd134405134496%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133424133524%_)) - (let ((_%e133434133469%_ + (gx#stx-pair? _%tl134409134509%_)) + (let ((_%e134419134454%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133424133524%_)))) - (let ((_%tl133436133476%_ + (gx#syntax-e _%tl134409134509%_)))) + (let ((_%tl134421134461%_ (let () (declare (not safe)) - (##cdr _%e133434133469%_))) - (_%hd133435133473%_ + (##cdr _%e134419134454%_))) + (_%hd134420134458%_ (let () (declare (not safe)) - (##car _%e133434133469%_)))) + (##car _%e134419134454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133436133476%_)) - (_%__kont134054134055%_ - _%hd133435133473%_ - _%hd133423133521%_ - _%hd133420133511%_) + (gx#stx-null? _%tl134421134461%_)) + (_%__kont135039135040%_ + _%hd134420134458%_ + _%hd134408134506%_ + _%hd134405134496%_) (let () (declare (not safe)) - (_%g133415133442%_))))) + (_%g134400134427%_))))) (let () (declare (not safe)) - (_%g133415133442%_)))))) - (let () (declare (not safe)) (_%g133415133442%_))))) + (_%g134400134427%_)))))) + (let () (declare (not safe)) (_%g134400134427%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133415133442%_))))))) - (__tmp134134 - (let ((__tmp134135 - (lambda (_%g133545133548%_ - _%g133546133551%_) - (cons _%g133545133548%_ - _%g133546133551%_)))) + (_%g134400134427%_))))))) + (__tmp135119 + (let ((__tmp135120 + (lambda (_%g134530134533%_ + _%g134531134536%_) + (cons _%g134530134533%_ + _%g134531134536%_)))) (declare (not safe)) (__foldr1 - __tmp134135 + __tmp135120 '() - _%L133308%_)))) + _%L134293%_)))) (declare (not safe)) - (gx#stx-map1 __tmp134136 __tmp134134)))) - (_%g133227133251%_ _%g133228133255%_))) - _%clause133245133304%_ - _%hd133235133272%_)))))) + (gx#stx-map1 __tmp135121 __tmp135119)))) + (_%g134212134236%_ _%g134213134240%_))) + _%clause134230134289%_ + _%hd134220134257%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop133240133284%_ - _%target133237133278%_ + (_%loop134225134269%_ + _%target134222134263%_ '())) - (_%g133227133251%_ - _%g133228133255%_))))) - (_%g133227133251%_ _%g133228133255%_)))) - (_%g133227133251%_ _%g133228133255%_)))) - (_%g133227133251%_ _%g133228133255%_))))) - (_%g133226133554%_ _%stx133224%_)))) + (_%g134212134236%_ + _%g134213134240%_))))) + (_%g134212134236%_ _%g134213134240%_)))) + (_%g134212134236%_ _%g134213134240%_)))) + (_%g134212134236%_ _%g134213134240%_))))) + (_%g134211134539%_ _%stx134209%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj134099 + (let ((__obj135084 (let () (declare (not safe)) (##structure @@ -475,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134099 + __obj135084 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj135084 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj134099 + __obj135084 '(gensyms bindings) '4 '#f @@ -494,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134099 + __obj135084 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj135084 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj135084 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj135084 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj135084 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 ':init! '11 '#f '#f)) - (let ((__tmp134137 |gxc[1]#_g134138_|)) + (##unchecked-structure-set! __obj135084 ':init! '11 '#f '#f)) + (let ((__tmp135122 |gxc[1]#_g135123_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134099 __tmp134137 '12 '#f '#f)) - (let ((__tmp134139 |gxc[1]#_g134140_|)) + (##unchecked-structure-set! __obj135084 __tmp135122 '12 '#f '#f)) + (let ((__tmp135124 |gxc[1]#_g135125_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134099 __tmp134139 '13 '#f '#f)) - (let ((__tmp134141 |gxc[1]#_g134142_|)) + (##unchecked-structure-set! __obj135084 __tmp135124 '13 '#f '#f)) + (let ((__tmp135126 |gxc[1]#_g135127_|)) (declare (not safe)) - (##unchecked-structure-set! __obj134099 __tmp134141 '14 '#f '#f)) - (let ((__tmp134143 - (cons (cons 'gensyms |gxc[1]#_g134144_|) - (cons (cons 'bindings |gxc[1]#_g134145_|) '())))) + (##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! __obj134099 __tmp134143 '15 '#f '#f)) - (let ((__tmp134146 - (cons (cons 'gensyms |gxc[1]#_g134147_|) - (cons (cons 'bindings |gxc[1]#_g134148_|) '())))) + (##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! __obj134099 __tmp134146 '16 '#f '#f)) - (let ((__tmp134149 - (cons (cons 'gensyms |gxc[1]#_g134150_|) - (cons (cons 'bindings |gxc[1]#_g134151_|) '())))) + (##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! __obj134099 __tmp134149 '17 '#f '#f)) - (let ((__tmp134152 - (cons (cons 'gensyms |gxc[1]#_g134153_|) - (cons (cons 'bindings |gxc[1]#_g134154_|) '())))) + (##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! __obj134099 __tmp134152 '18 '#f '#f)) + (##unchecked-structure-set! __obj135084 __tmp135137 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj135084 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj135084 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj134099 '() '20 '#f '#f)) - __obj134099)) + (##unchecked-structure-set! __obj135084 '() '20 '#f '#f)) + __obj135084)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx133561%_) - (let* ((_%g133565133579%_ - (lambda (_%g133566133575%_) + (lambda (_%$stx134546%_) + (let* ((_%g134550134564%_ + (lambda (_%g134551134560%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133566133575%_)))) - (_%g133564133620%_ - (lambda (_%g133566133583%_) + _%g134551134560%_)))) + (_%g134549134605%_ + (lambda (_%g134551134568%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133566133583%_)) - (let ((_%e133568133586%_ + (gx#stx-pair? _%g134551134568%_)) + (let ((_%e134553134571%_ (let () (declare (not safe)) - (gx#syntax-e _%g133566133583%_)))) - (let ((_%hd133569133590%_ + (gx#syntax-e _%g134551134568%_)))) + (let ((_%hd134554134575%_ (let () (declare (not safe)) - (##car _%e133568133586%_))) - (_%tl133570133593%_ + (##car _%e134553134571%_))) + (_%tl134555134578%_ (let () (declare (not safe)) - (##cdr _%e133568133586%_)))) + (##cdr _%e134553134571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133570133593%_)) - (let ((_%e133571133596%_ + (gx#stx-pair? _%tl134555134578%_)) + (let ((_%e134556134581%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133570133593%_)))) - (let ((_%hd133572133600%_ + (gx#syntax-e _%tl134555134578%_)))) + (let ((_%hd134557134585%_ (let () (declare (not safe)) - (##car _%e133571133596%_))) - (_%tl133573133603%_ + (##car _%e134556134581%_))) + (_%tl134558134588%_ (let () (declare (not safe)) - (##cdr _%e133571133596%_)))) + (##cdr _%e134556134581%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133573133603%_)) - ((lambda (_%L133606%_) + (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 _%L133606%_ '()))) + (cons '() (cons _%L134591%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133572133600%_) - (_%g133565133579%_ _%g133566133583%_)))) - (_%g133565133579%_ _%g133566133583%_)))) - (_%g133565133579%_ _%g133566133583%_))))) - (_%g133564133620%_ _%$stx133561%_)))) + _%hd134557134585%_) + (_%g134550134564%_ _%g134551134568%_)))) + (_%g134550134564%_ _%g134551134568%_)))) + (_%g134550134564%_ _%g134551134568%_))))) + (_%g134549134605%_ _%$stx134546%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx133624%_) - (let* ((_%g133628133642%_ - (lambda (_%g133629133638%_) + (lambda (_%$stx134609%_) + (let* ((_%g134613134627%_ + (lambda (_%g134614134623%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133629133638%_)))) - (_%g133627133683%_ - (lambda (_%g133629133646%_) + _%g134614134623%_)))) + (_%g134612134668%_ + (lambda (_%g134614134631%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133629133646%_)) - (let ((_%e133631133649%_ + (gx#stx-pair? _%g134614134631%_)) + (let ((_%e134616134634%_ (let () (declare (not safe)) - (gx#syntax-e _%g133629133646%_)))) - (let ((_%hd133632133653%_ + (gx#syntax-e _%g134614134631%_)))) + (let ((_%hd134617134638%_ (let () (declare (not safe)) - (##car _%e133631133649%_))) - (_%tl133633133656%_ + (##car _%e134616134634%_))) + (_%tl134618134641%_ (let () (declare (not safe)) - (##cdr _%e133631133649%_)))) + (##cdr _%e134616134634%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133633133656%_)) - (let ((_%e133634133659%_ + (gx#stx-pair? _%tl134618134641%_)) + (let ((_%e134619134644%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133633133656%_)))) - (let ((_%hd133635133663%_ + (gx#syntax-e _%tl134618134641%_)))) + (let ((_%hd134620134648%_ (let () (declare (not safe)) - (##car _%e133634133659%_))) - (_%tl133636133666%_ + (##car _%e134619134644%_))) + (_%tl134621134651%_ (let () (declare (not safe)) - (##cdr _%e133634133659%_)))) + (##cdr _%e134619134644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133636133666%_)) - ((lambda (_%L133669%_) + (gx#stx-null? _%tl134621134651%_)) + ((lambda (_%L134654%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +680,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L133669%_ '()))) + (cons _%L134654%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd133635133663%_) - (_%g133628133642%_ _%g133629133646%_)))) - (_%g133628133642%_ _%g133629133646%_)))) - (_%g133628133642%_ _%g133629133646%_))))) - (_%g133627133683%_ _%$stx133624%_)))))) + _%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 89676e0d8..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 1734131748) + (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-e147771%_ - (lambda (_%id147773%_) + (letrec ((_%hash-e148756%_ + (lambda (_%id148758%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id147773%_)))))) + (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-e147771%_ + _%hash-e148756%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp149158 (list gxc#::void::t)) - (__tmp149157 (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 - __tmp149158 + __tmp150143 '() - __tmp149157 + __tmp150142 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args147767%_ - (apply make-instance gxc#::collect-bindings::t _%$args147767%_))) + (lambda _%$args148752%_ + (apply make-instance gxc#::collect-bindings::t _%$args148752%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp149159 + (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 __tmp149159))) + (__make-promise __tmp150144))) (define gxc#apply-collect-bindings - (lambda (_%stx147759%_) + (lambda (_%stx148744%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self147762%_ - (let ((__obj149133 + (let* ((_%self148747%_ + (let ((__obj150118 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj149133)) - (__tmp149160 + __obj150118)) + (__tmp150145 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147762%_ _%stx147759%_))))) + (gxc#compile-e__1 _%self148747%_ _%stx148744%_))))) (declare (not safe)) (__call-with-parameters - __tmp149160 + __tmp150145 gxc#current-compile-method - _%self147762%_)))) + _%self148747%_)))) (define gxc#::lift-modules::t - (let ((__tmp149162 (list gxc#::void::t)) - (__tmp149161 (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 - __tmp149162 + __tmp150147 '(modules) - __tmp149161 + __tmp150146 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args147756%_ - (apply make-instance gxc#::lift-modules::t _%$args147756%_))) + (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 ((__tmp149163 + (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 __tmp149163))) + (__make-promise __tmp150148))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords147730%_ _%modules147727147731%_ _%stx147733%_) - (let ((_%modules147736%_ - (if (eq? _%modules147727147731%_ absent-value) + (lambda (_%@@keywords148715%_ _%modules148712148716%_ _%stx148718%_) + (let ((_%modules148721%_ + (if (eq? _%modules148712148716%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules147727147731%_))) + _%modules148712148716%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self147738%_ - (let ((__obj149135 + (let* ((_%self148723%_ + (let ((__obj150120 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149135 - _%modules147736%_ + __obj150120 + _%modules148721%_ '1 '#f '#f)) - __obj149135)) - (__tmp149164 + __obj150120)) + (__tmp150149 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147738%_ _%stx147733%_))))) + (gxc#compile-e__1 _%self148723%_ _%stx148718%_))))) (declare (not safe)) (__call-with-parameters - __tmp149164 + __tmp150149 gxc#current-compile-method - _%self147738%_))))) + _%self148723%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords147745%_ . _%args147746%_) + (lambda (_%@@keywords148730%_ . _%args148731%_) (apply gxc#apply-lift-modules__% - _%@@keywords147745%_ + _%@@keywords148730%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147745%_ + _%@@keywords148730%_ 'modules: absent-value)) - _%args147746%_))) + _%args148731%_))) (define gxc#apply-lift-modules - (lambda _%args147728147752%_ + (lambda _%args148713148737%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args147728147752%_))) + _%args148713148737%_))) (define gxc#::find-runtime-code::t - (let ((__tmp149166 (list)) (__tmp149165 (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 - __tmp149166 + __tmp150151 '() - __tmp149165 + __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 _%$args147723%_ - (apply make-instance gxc#::find-runtime-code::t _%$args147723%_))) + (lambda _%$args148708%_ + (apply make-instance gxc#::find-runtime-code::t _%$args148708%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp149167 + (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 __tmp149167))) + (__make-promise __tmp150152))) (define gxc#apply-find-runtime-code - (lambda (_%stx147715%_) + (lambda (_%stx148700%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self147718%_ - (let ((__obj149137 + (let* ((_%self148703%_ + (let ((__obj150122 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj149137)) - (__tmp149168 + __obj150122)) + (__tmp150153 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147718%_ _%stx147715%_))))) + (gxc#compile-e__1 _%self148703%_ _%stx148700%_))))) (declare (not safe)) (__call-with-parameters - __tmp149168 + __tmp150153 gxc#current-compile-method - _%self147718%_)))) + _%self148703%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp149170 (list gxc#::false::t)) - (__tmp149169 (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 - __tmp149170 + __tmp150155 '() - __tmp149169 + __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 _%$args147712%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args147712%_))) + (lambda _%$args148697%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args148697%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp149171 + (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 __tmp149171))) + (__make-promise __tmp150156))) (define gxc#apply-find-lambda-expression - (lambda (_%stx147704%_) + (lambda (_%stx148689%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self147707%_ - (let ((__obj149139 + (let* ((_%self148692%_ + (let ((__obj150124 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj149139)) - (__tmp149172 + __obj150124)) + (__tmp150157 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147707%_ _%stx147704%_))))) + (gxc#compile-e__1 _%self148692%_ _%stx148689%_))))) (declare (not safe)) (__call-with-parameters - __tmp149172 + __tmp150157 gxc#current-compile-method - _%self147707%_)))) + _%self148692%_)))) (define gxc#::count-values::t - (let ((__tmp149174 (list gxc#::false-expression::t)) - (__tmp149173 (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 - __tmp149174 + __tmp150159 '() - __tmp149173 + __tmp150158 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args147701%_ - (apply make-instance gxc#::count-values::t _%$args147701%_))) + (lambda _%$args148686%_ + (apply make-instance gxc#::count-values::t _%$args148686%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp149175 + (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 __tmp149175))) + (__make-promise __tmp150160))) (define gxc#apply-count-values - (lambda (_%stx147693%_) + (lambda (_%stx148678%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self147696%_ - (let ((__obj149141 + (let* ((_%self148681%_ + (let ((__obj150126 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj149141)) - (__tmp149176 + __obj150126)) + (__tmp150161 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147696%_ _%stx147693%_))))) + (gxc#compile-e__1 _%self148681%_ _%stx148678%_))))) (declare (not safe)) (__call-with-parameters - __tmp149176 + __tmp150161 gxc#current-compile-method - _%self147696%_)))) + _%self148681%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp149177 (list))) + (let ((__tmp150162 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp149177 + __tmp150162 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args147690%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args147690%_))) + (lambda _%$args148675%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args148675%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp149178 + (let ((__tmp150163 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp149178))) + (__make-promise __tmp150163))) (define gxc#::generate-loader::t - (let ((__tmp149180 (list gxc#::generate-runtime-empty::t)) - (__tmp149179 (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 - __tmp149180 + __tmp150165 '() - __tmp149179 + __tmp150164 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args147686%_ - (apply make-instance gxc#::generate-loader::t _%$args147686%_))) + (lambda _%$args148671%_ + (apply make-instance gxc#::generate-loader::t _%$args148671%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp149181 + (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 __tmp149181))) + (__make-promise __tmp150166))) (define gxc#apply-generate-loader - (lambda (_%stx147678%_) + (lambda (_%stx148663%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self147681%_ - (let ((__obj149144 + (let* ((_%self148666%_ + (let ((__obj150129 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj149144)) - (__tmp149182 + __obj150129)) + (__tmp150167 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147681%_ _%stx147678%_))))) + (gxc#compile-e__1 _%self148666%_ _%stx148663%_))))) (declare (not safe)) (__call-with-parameters - __tmp149182 + __tmp150167 gxc#current-compile-method - _%self147681%_)))) + _%self148666%_)))) (define gxc#::generate-runtime::t - (let ((__tmp149183 (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 - __tmp149183 + __tmp150168 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args147675%_ - (apply make-instance gxc#::generate-runtime::t _%$args147675%_))) + (lambda _%$args148660%_ + (apply make-instance gxc#::generate-runtime::t _%$args148660%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp149184 + (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 __tmp149184))) + (__make-promise __tmp150169))) (define gxc#apply-generate-runtime - (lambda (_%stx147667%_) + (lambda (_%stx148652%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self147670%_ - (let ((__obj149146 + (let* ((_%self148655%_ + (let ((__obj150131 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj149146)) - (__tmp149185 + __obj150131)) + (__tmp150170 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147670%_ _%stx147667%_))))) + (gxc#compile-e__1 _%self148655%_ _%stx148652%_))))) (declare (not safe)) (__call-with-parameters - __tmp149185 + __tmp150170 gxc#current-compile-method - _%self147670%_)))) + _%self148655%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp149187 (list gxc#::generate-runtime::t)) - (__tmp149186 (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 - __tmp149187 + __tmp150172 '() - __tmp149186 + __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 _%$args147664%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args147664%_))) + (lambda _%$args148649%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args148649%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp149188 + (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 __tmp149188))) + (__make-promise __tmp150173))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx147656%_) + (lambda (_%stx148641%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self147659%_ - (let ((__obj149148 + (let* ((_%self148644%_ + (let ((__obj150133 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj149148)) - (__tmp149189 + __obj150133)) + (__tmp150174 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147659%_ _%stx147656%_))))) + (gxc#compile-e__1 _%self148644%_ _%stx148641%_))))) (declare (not safe)) (__call-with-parameters - __tmp149189 + __tmp150174 gxc#current-compile-method - _%self147659%_)))) + _%self148644%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp149190 (list))) + (let ((__tmp150175 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp149190 + __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 _%$args147653%_ + (lambda _%$args148638%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args147653%_))) + _%$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 ((__tmp149191 + (let ((__tmp150176 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp149191))) + (__make-promise __tmp150176))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords147627%_ _%table147624147628%_ _%stx147630%_) - (let ((_%table147633%_ - (if (eq? _%table147624147628%_ absent-value) + (lambda (_%@@keywords148612%_ _%table148609148613%_ _%stx148615%_) + (let ((_%table148618%_ + (if (eq? _%table148609148613%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table147624147628%_))) + _%table148609148613%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self147635%_ - (let ((__obj149150 + (let* ((_%self148620%_ + (let ((__obj150135 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149150 - _%table147633%_ + __obj150135 + _%table148618%_ '1 '#f '#f)) - __obj149150)) - (__tmp149192 + __obj150135)) + (__tmp150177 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147635%_ _%stx147630%_))))) + (gxc#compile-e__1 _%self148620%_ _%stx148615%_))))) (declare (not safe)) (__call-with-parameters - __tmp149192 + __tmp150177 gxc#current-compile-method - _%self147635%_))))) + _%self148620%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords147642%_ . _%args147643%_) + (lambda (_%@@keywords148627%_ . _%args148628%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords147642%_ + _%@@keywords148627%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147642%_ + _%@@keywords148627%_ 'table: absent-value)) - _%args147643%_))) + _%args148628%_))) (define gxc#apply-collect-expression-refs - (lambda _%args147625147649%_ + (lambda _%args148610148634%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args147625147649%_))) + _%args148610148634%_))) (define gxc#::generate-meta::t - (let ((__tmp149194 (list gxc#::void-expression::t)) - (__tmp149193 (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 - __tmp149194 + __tmp150179 '(state) - __tmp149193 + __tmp150178 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args147620%_ - (apply make-instance gxc#::generate-meta::t _%$args147620%_))) + (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 ((__tmp149195 + (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 __tmp149195))) + (__make-promise __tmp150180))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords147594%_ _%state147591147595%_ _%stx147597%_) - (let ((_%state147600%_ - (if (eq? _%state147591147595%_ absent-value) + (lambda (_%@@keywords148579%_ _%state148576148580%_ _%stx148582%_) + (let ((_%state148585%_ + (if (eq? _%state148576148580%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147591147595%_))) + _%state148576148580%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self147602%_ - (let ((__obj149152 + (let* ((_%self148587%_ + (let ((__obj150137 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149152 - _%state147600%_ + __obj150137 + _%state148585%_ '1 '#f '#f)) - __obj149152)) - (__tmp149196 + __obj150137)) + (__tmp150181 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147602%_ _%stx147597%_))))) + (gxc#compile-e__1 _%self148587%_ _%stx148582%_))))) (declare (not safe)) (__call-with-parameters - __tmp149196 + __tmp150181 gxc#current-compile-method - _%self147602%_))))) + _%self148587%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords147609%_ . _%args147610%_) + (lambda (_%@@keywords148594%_ . _%args148595%_) (apply gxc#apply-generate-meta__% - _%@@keywords147609%_ + _%@@keywords148594%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147609%_ + _%@@keywords148594%_ 'state: absent-value)) - _%args147610%_))) + _%args148595%_))) (define gxc#apply-generate-meta - (lambda _%args147592147616%_ + (lambda _%args148577148601%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args147592147616%_))) + _%args148577148601%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp149198 (list)) (__tmp149197 (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 - __tmp149198 + __tmp150183 '(state) - __tmp149197 + __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 _%$args147587%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args147587%_))) + (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 ((__tmp149199 + (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 __tmp149199))) + (__make-promise __tmp150184))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords147561%_ _%state147558147562%_ _%stx147564%_) - (let ((_%state147567%_ - (if (eq? _%state147558147562%_ absent-value) + (lambda (_%@@keywords148546%_ _%state148543148547%_ _%stx148549%_) + (let ((_%state148552%_ + (if (eq? _%state148543148547%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147558147562%_))) + _%state148543148547%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self147569%_ - (let ((__obj149154 + (let* ((_%self148554%_ + (let ((__obj150139 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149154 - _%state147567%_ + __obj150139 + _%state148552%_ '1 '#f '#f)) - __obj149154)) - (__tmp149200 + __obj150139)) + (__tmp150185 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147569%_ _%stx147564%_))))) + (gxc#compile-e__1 _%self148554%_ _%stx148549%_))))) (declare (not safe)) (__call-with-parameters - __tmp149200 + __tmp150185 gxc#current-compile-method - _%self147569%_))))) + _%self148554%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords147576%_ . _%args147577%_) + (lambda (_%@@keywords148561%_ . _%args148562%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords147576%_ + _%@@keywords148561%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147576%_ + _%@@keywords148561%_ 'state: absent-value)) - _%args147577%_))) + _%args148562%_))) (define gxc#apply-generate-meta-phi - (lambda _%args147559147583%_ + (lambda _%args148544148568%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args147559147583%_))) + _%args148544148568%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self147487%_ _%stx147488%_) - (let* ((_%g147490147507%_ - (lambda (_%g147491147504%_) + (lambda (_%self148472%_ _%stx148473%_) + (let* ((_%g148475148492%_ + (lambda (_%g148476148489%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147491147504%_)))) - (_%g147489147554%_ - (lambda (_%g147491147510%_) + _%g148476148489%_)))) + (_%g148474148539%_ + (lambda (_%g148476148495%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147491147510%_)) - (let ((_%e147494147512%_ + (gx#stx-pair? _%g148476148495%_)) + (let ((_%e148479148497%_ (let () (declare (not safe)) - (gx#stx-e _%g147491147510%_)))) - (let ((_%hd147495147515%_ + (gx#stx-e _%g148476148495%_)))) + (let ((_%hd148480148500%_ (let () (declare (not safe)) - (##car _%e147494147512%_))) - (_%tl147496147517%_ + (##car _%e148479148497%_))) + (_%tl148481148502%_ (let () (declare (not safe)) - (##cdr _%e147494147512%_)))) + (##cdr _%e148479148497%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147496147517%_)) - (let ((_%e147497147520%_ + (gx#stx-pair? _%tl148481148502%_)) + (let ((_%e148482148505%_ (let () (declare (not safe)) - (gx#stx-e _%tl147496147517%_)))) - (let ((_%hd147498147523%_ + (gx#stx-e _%tl148481148502%_)))) + (let ((_%hd148483148508%_ (let () (declare (not safe)) - (##car _%e147497147520%_))) - (_%tl147499147525%_ + (##car _%e148482148505%_))) + (_%tl148484148510%_ (let () (declare (not safe)) - (##cdr _%e147497147520%_)))) + (##cdr _%e148482148505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147499147525%_)) - (let ((_%e147500147528%_ + (gx#stx-pair? _%tl148484148510%_)) + (let ((_%e148485148513%_ (let () (declare (not safe)) - (gx#stx-e _%tl147499147525%_)))) - (let ((_%hd147501147531%_ + (gx#stx-e _%tl148484148510%_)))) + (let ((_%hd148486148516%_ (let () (declare (not safe)) - (##car _%e147500147528%_))) - (_%tl147502147533%_ + (##car _%e148485148513%_))) + (_%tl148487148518%_ (let () (declare (not safe)) - (##cdr _%e147500147528%_)))) + (##cdr _%e148485148513%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147502147533%_)) - ((lambda (_%L147536%_ - _%L147537%_) - (let ((__tmp149201 - (lambda (_%bind147552%_) + _%tl148487148518%_)) + ((lambda (_%L148521%_ + _%L148522%_) + (let ((__tmp150186 + (lambda (_%bind148537%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind147552%_)) - (gxc#add-module-binding! _%bind147552%_ '#f) + (gx#identifier? _%bind148537%_)) + (gxc#add-module-binding! _%bind148537%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp149201 - _%L147537%_))) - _%hd147501147531%_ - _%hd147498147523%_) - (_%g147490147507%_ - _%g147491147510%_)))) - (_%g147490147507%_ _%g147491147510%_)))) - (_%g147490147507%_ _%g147491147510%_)))) - (_%g147490147507%_ _%g147491147510%_))))) - (_%g147489147554%_ _%stx147488%_)))) + __tmp150186 + _%L148522%_))) + _%hd148486148516%_ + _%hd148483148508%_) + (_%g148475148492%_ + _%g148476148495%_)))) + (_%g148475148492%_ _%g148476148495%_)))) + (_%g148475148492%_ _%g148476148495%_)))) + (_%g148475148492%_ _%g148476148495%_))))) + (_%g148474148539%_ _%stx148473%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self147419%_ _%stx147420%_) - (let* ((_%g147422147439%_ - (lambda (_%g147423147436%_) + (lambda (_%self148404%_ _%stx148405%_) + (let* ((_%g148407148424%_ + (lambda (_%g148408148421%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147423147436%_)))) - (_%g147421147484%_ - (lambda (_%g147423147442%_) + _%g148408148421%_)))) + (_%g148406148469%_ + (lambda (_%g148408148427%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147423147442%_)) - (let ((_%e147426147444%_ + (gx#stx-pair? _%g148408148427%_)) + (let ((_%e148411148429%_ (let () (declare (not safe)) - (gx#stx-e _%g147423147442%_)))) - (let ((_%hd147427147447%_ + (gx#stx-e _%g148408148427%_)))) + (let ((_%hd148412148432%_ (let () (declare (not safe)) - (##car _%e147426147444%_))) - (_%tl147428147449%_ + (##car _%e148411148429%_))) + (_%tl148413148434%_ (let () (declare (not safe)) - (##cdr _%e147426147444%_)))) + (##cdr _%e148411148429%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147428147449%_)) - (let ((_%e147429147452%_ + (gx#stx-pair? _%tl148413148434%_)) + (let ((_%e148414148437%_ (let () (declare (not safe)) - (gx#stx-e _%tl147428147449%_)))) - (let ((_%hd147430147455%_ + (gx#stx-e _%tl148413148434%_)))) + (let ((_%hd148415148440%_ (let () (declare (not safe)) - (##car _%e147429147452%_))) - (_%tl147431147457%_ + (##car _%e148414148437%_))) + (_%tl148416148442%_ (let () (declare (not safe)) - (##cdr _%e147429147452%_)))) + (##cdr _%e148414148437%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147431147457%_)) - (let ((_%e147432147460%_ + (gx#stx-pair? _%tl148416148442%_)) + (let ((_%e148417148445%_ (let () (declare (not safe)) - (gx#stx-e _%tl147431147457%_)))) - (let ((_%hd147433147463%_ + (gx#stx-e _%tl148416148442%_)))) + (let ((_%hd148418148448%_ (let () (declare (not safe)) - (##car _%e147432147460%_))) - (_%tl147434147465%_ + (##car _%e148417148445%_))) + (_%tl148419148450%_ (let () (declare (not safe)) - (##cdr _%e147432147460%_)))) + (##cdr _%e148417148445%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147434147465%_)) - ((lambda (_%L147468%_ - _%L147469%_) + _%tl148419148450%_)) + ((lambda (_%L148453%_ + _%L148454%_) (gxc#add-module-binding! - _%L147469%_ + _%L148454%_ '#t)) - _%hd147433147463%_ - _%hd147430147455%_) - (_%g147422147439%_ - _%g147423147442%_)))) - (_%g147422147439%_ _%g147423147442%_)))) - (_%g147422147439%_ _%g147423147442%_)))) - (_%g147422147439%_ _%g147423147442%_))))) - (_%g147421147484%_ _%stx147420%_)))) + _%hd148418148448%_ + _%hd148415148440%_) + (_%g148407148424%_ + _%g148408148427%_)))) + (_%g148407148424%_ _%g148408148427%_)))) + (_%g148407148424%_ _%g148408148427%_)))) + (_%g148407148424%_ _%g148408148427%_))))) + (_%g148406148469%_ _%stx148405%_)))) (define gxc#lift-modules-module% - (lambda (_%self147361%_ _%stx147362%_) - (let* ((_%g147364147378%_ - (lambda (_%g147365147375%_) + (lambda (_%self148346%_ _%stx148347%_) + (let* ((_%g148349148363%_ + (lambda (_%g148350148360%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147365147375%_)))) - (_%g147363147416%_ - (lambda (_%g147365147381%_) + _%g148350148360%_)))) + (_%g148348148401%_ + (lambda (_%g148350148366%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147365147381%_)) - (let ((_%e147368147383%_ + (gx#stx-pair? _%g148350148366%_)) + (let ((_%e148353148368%_ (let () (declare (not safe)) - (gx#stx-e _%g147365147381%_)))) - (let ((_%hd147369147386%_ + (gx#stx-e _%g148350148366%_)))) + (let ((_%hd148354148371%_ (let () (declare (not safe)) - (##car _%e147368147383%_))) - (_%tl147370147388%_ + (##car _%e148353148368%_))) + (_%tl148355148373%_ (let () (declare (not safe)) - (##cdr _%e147368147383%_)))) + (##cdr _%e148353148368%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147370147388%_)) - (let ((_%e147371147391%_ + (gx#stx-pair? _%tl148355148373%_)) + (let ((_%e148356148376%_ (let () (declare (not safe)) - (gx#stx-e _%tl147370147388%_)))) - (let ((_%hd147372147394%_ + (gx#stx-e _%tl148355148373%_)))) + (let ((_%hd148357148379%_ (let () (declare (not safe)) - (##car _%e147371147391%_))) - (_%tl147373147396%_ + (##car _%e148356148376%_))) + (_%tl148358148381%_ (let () (declare (not safe)) - (##cdr _%e147371147391%_)))) - ((lambda (_%L147399%_ _%L147400%_) - (let ((_%ctx147413%_ + (##cdr _%e148356148376%_)))) + ((lambda (_%L148384%_ _%L148385%_) + (let ((_%ctx148398%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L147400%_)))) + _%L148385%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self147361%_ + _%self148346%_ 'modules)) - (cons _%ctx147413%_ + (cons _%ctx148398%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self147361%_ + _%self148346%_ 'modules))))) - (let ((__tmp149202 + (let ((__tmp150187 (lambda () - (let ((__tmp149203 + (let ((__tmp150188 (##structure-ref - _%ctx147413%_ + _%ctx148398%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self147361%_ - __tmp149203))))) + _%self148346%_ + __tmp150188))))) (declare (not safe)) (__call-with-parameters - __tmp149202 + __tmp150187 gx#current-expander-context - _%ctx147413%_)))) - _%tl147373147396%_ - _%hd147372147394%_))) - (_%g147364147378%_ _%g147365147381%_)))) - (_%g147364147378%_ _%g147365147381%_))))) - (_%g147363147416%_ _%stx147362%_)))) + _%ctx148398%_)))) + _%tl148358148381%_ + _%hd148357148379%_))) + (_%g148349148363%_ _%g148350148366%_)))) + (_%g148349148363%_ _%g148350148366%_))))) + (_%g148348148401%_ _%stx148347%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls147314147316%_ + (let ((_%decls148299148301%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls147314147316%_ - (let ((_%decls147319%_ _%decls147314147316%_)) - (let _%lp147321%_ ((_%rest147323%_ _%decls147319%_)) - (let* ((_%rest147324147332%_ _%rest147323%_) - (_%else147326147340%_ (lambda () '#f)) - (_%K147328147349%_ - (lambda (_%decls147343%_ _%decl147344%_) - (if (equal? _%decl147344%_ '(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? _%decl147344%_ '(safe)) + (if (equal? _%decl148329%_ '(safe)) '#f - (_%lp147321%_ _%decls147343%_)))))) - (if (pair? _%rest147324147332%_) - (let ((_%hd147329147352%_ + (_%lp148306%_ _%decls148328%_)))))) + (if (pair? _%rest148309148317%_) + (let ((_%hd148314148337%_ (let () (declare (not safe)) - (##car _%rest147324147332%_))) - (_%tl147330147354%_ + (##car _%rest148309148317%_))) + (_%tl148315148339%_ (let () (declare (not safe)) - (##cdr _%rest147324147332%_)))) - (let* ((_%decl147357%_ _%hd147329147352%_) - (_%decls147359%_ _%tl147330147354%_)) - (_%K147328147349%_ - _%decls147359%_ - _%decl147357%_))) - (_%else147326147340%_))))) + (##cdr _%rest148309148317%_)))) + (let* ((_%decl148342%_ _%hd148314148337%_) + (_%decls148344%_ _%tl148315148339%_)) + (_%K148313148334%_ + _%decls148344%_ + _%decl148342%_))) + (_%else148311148325%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id147308%_ _%syntax?147309%_) - (let ((_%eid147311%_ + (lambda (_%id148293%_ _%syntax?148294%_) + (let ((_%eid148296%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id147308%_)) + (gx#resolve-identifier__0 _%id148293%_)) '1 gx#binding::t '#f)) - (_%ht147312%_ + (_%ht148297%_ (##structure-ref (let () (declare (not safe)) @@ -2136,778 +2136,778 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid147311%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid148296%_)) '#!void - (let ((__tmp149204 - (let ((__tmp149205 + (let ((__tmp150189 + (let ((__tmp150190 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid147311%_)))) + _%eid148296%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp149205 _%syntax?147309%_)))) + (gx#make-binding-id__1 __tmp150190 _%syntax?148294%_)))) (declare (not safe)) - (hash-put! _%ht147312%_ _%eid147311%_ __tmp149204)))))) + (hash-put! _%ht148297%_ _%eid148296%_ __tmp150189)))))) (define gxc#generate-runtime-identifier - (lambda (_%id147306%_) + (lambda (_%id148291%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id147306%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id148291%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key147261%_) - (if (let () (declare (not safe)) (interned-symbol? _%key147261%_)) - _%key147261%_ - (if (uninterned-symbol? _%key147261%_) + (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 _%key147261%_)) - (let* ((_%key147265147272%_ _%key147261%_) - (_%E147267147276%_ + (gxc#generate-runtime-gensym-reference__0 _%key148246%_)) + (let* ((_%key148250148257%_ _%key148246%_) + (_%E148252148261%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key147265147272%_ + _%key148250148257%_ '([eid . mark]))) '#!void)) - (_%K147268147294%_ - (lambda (_%mark147279%_ _%eid147280%_) - (let ((_%$e147282%_ + (_%K148253148279%_ + (lambda (_%mark148264%_ _%eid148265%_) + (let ((_%$e148267%_ (##structure-ref - _%mark147279%_ + _%mark148264%_ '1 gx#expander-mark::t '#f))) - (if _%$e147282%_ - ((lambda (_%ht147285%_) - (let ((_%$e147287%_ + (if _%$e148267%_ + ((lambda (_%ht148270%_) + (let ((_%$e148272%_ (let () (declare (not safe)) (hash-get - _%ht147285%_ - _%eid147280%_)))) - (if _%$e147287%_ - ((lambda (_%id147290%_) + _%ht148270%_ + _%eid148265%_)))) + (if _%$e148272%_ + ((lambda (_%id148275%_) (if (let () (declare (not safe)) (interned-symbol? - _%id147290%_)) - _%id147290%_ + _%id148275%_)) + _%id148275%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id147290%_)))) - _%$e147287%_) + _%id148275%_)))) + _%$e148272%_) (gxc#generate-runtime-identifier-key - _%eid147280%_)))) - _%$e147282%_) + _%eid148265%_)))) + _%$e148267%_) (gxc#generate-runtime-identifier-key - _%eid147280%_)))))) - (if (pair? _%key147265147272%_) - (let ((_%hd147269147297%_ + _%eid148265%_)))))) + (if (pair? _%key148250148257%_) + (let ((_%hd148254148282%_ (let () (declare (not safe)) - (##car _%key147265147272%_))) - (_%tl147270147299%_ + (##car _%key148250148257%_))) + (_%tl148255148284%_ (let () (declare (not safe)) - (##cdr _%key147265147272%_)))) - (let* ((_%eid147302%_ _%hd147269147297%_) - (_%mark147304%_ _%tl147270147299%_)) - (_%K147268147294%_ _%mark147304%_ _%eid147302%_))) - (_%E147267147276%_))))))) + (##cdr _%key148250148257%_)))) + (let* ((_%eid148287%_ _%hd148254148282%_) + (_%mark148289%_ _%tl148255148284%_)) + (_%K148253148279%_ _%mark148289%_ _%eid148287%_))) + (_%E148252148261%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self147258%_ _%stx147259%_) '(begin))) + (lambda (_%self148243%_ _%stx148244%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self147105%_ _%stx147106%_) - (letrec ((_%simplify147108%_ - (lambda (_%body147156%_) - (let _%lp147158%_ ((_%rest147160%_ _%body147156%_) - (_%r147161%_ '())) - (let* ((_%rest147162147170%_ _%rest147160%_) - (_%else147164147178%_ - (lambda () (reverse _%r147161%_))) - (_%K147166147246%_ - (lambda (_%rest147181%_ _%hd147182%_) - (let* ((_%hd147183147199%_ _%hd147182%_) - (_%else147187147207%_ + (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 () - (_%lp147158%_ - _%rest147181%_ - (cons _%hd147182%_ _%r147161%_))))) - (let ((_%K147195147236%_ - (lambda (_%exprs147234%_) - (_%lp147158%_ + (_%lp148143%_ + _%rest148166%_ + (cons _%hd148167%_ _%r148146%_))))) + (let ((_%K148180148221%_ + (lambda (_%exprs148219%_) + (_%lp148143%_ (let () (declare (not safe)) (__foldr1 cons - _%rest147181%_ - _%exprs147234%_)) - _%r147161%_))) - (_%K147190147220%_ + _%rest148166%_ + _%exprs148219%_)) + _%r148146%_))) + (_%K148175148205%_ (lambda () - (if (null? _%rest147181%_) - (_%lp147158%_ - _%rest147181%_ - (cons _%hd147182%_ - _%r147161%_)) - (_%lp147158%_ - _%rest147181%_ - _%r147161%_)))) - (_%K147189147212%_ + (if (null? _%rest148166%_) + (_%lp148143%_ + _%rest148166%_ + (cons _%hd148167%_ + _%r148146%_)) + (_%lp148143%_ + _%rest148166%_ + _%r148146%_)))) + (_%K148174148197%_ (lambda () - (if (null? _%rest147181%_) - (_%lp147158%_ - _%rest147181%_ - (cons _%hd147182%_ - _%r147161%_)) - (_%lp147158%_ - _%rest147181%_ - _%r147161%_))))) - (let ((_%try-match147186147215%_ + (if (null? _%rest148166%_) + (_%lp148143%_ + _%rest148166%_ + (cons _%hd148167%_ + _%r148146%_)) + (_%lp148143%_ + _%rest148166%_ + _%r148146%_))))) + (let ((_%try-match148171148200%_ (lambda () - (if (symbol? _%hd147183147199%_) - (_%K147189147212%_) - (_%else147187147207%_))))) - (if (pair? _%hd147183147199%_) - (let ((_%tl147197147241%_ + (if (symbol? _%hd148168148184%_) + (_%K148174148197%_) + (_%else148172148192%_))))) + (if (pair? _%hd148168148184%_) + (let ((_%tl148182148226%_ (let () (declare (not safe)) - (##cdr _%hd147183147199%_))) - (_%hd147196147239%_ + (##cdr _%hd148168148184%_))) + (_%hd148181148224%_ (let () (declare (not safe)) - (##car _%hd147183147199%_)))) + (##car _%hd148168148184%_)))) (if (let () (declare (not safe)) - (##eq? _%hd147196147239%_ + (##eq? _%hd148181148224%_ 'begin)) - (let ((_%exprs147244%_ - _%tl147197147241%_)) - (_%K147195147236%_ - _%exprs147244%_)) + (let ((_%exprs148229%_ + _%tl148182148226%_)) + (_%K148180148221%_ + _%exprs148229%_)) (if (let () (declare (not safe)) - (##eq? _%hd147196147239%_ + (##eq? _%hd148181148224%_ 'quote)) - (if (pair? _%tl147197147241%_) - (let ((_%tl147194147228%_ + (if (pair? _%tl148182148226%_) + (let ((_%tl148179148213%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl147197147241%_)))) - (if (null? _%tl147194147228%_) - (_%K147190147220%_) - (_%try-match147186147215%_))) - (_%try-match147186147215%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match147186147215%_)))) - (_%try-match147186147215%_)))))))) - (if (pair? _%rest147162147170%_) - (let ((_%hd147167147249%_ + (##cdr _%tl148182148226%_)))) + (if (null? _%tl148179148213%_) + (_%K148175148205%_) + (_%try-match148171148200%_))) + (_%try-match148171148200%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match148171148200%_)))) + (_%try-match148171148200%_)))))))) + (if (pair? _%rest148147148155%_) + (let ((_%hd148152148234%_ (let () (declare (not safe)) - (##car _%rest147162147170%_))) - (_%tl147168147251%_ + (##car _%rest148147148155%_))) + (_%tl148153148236%_ (let () (declare (not safe)) - (##cdr _%rest147162147170%_)))) - (let* ((_%hd147254%_ _%hd147167147249%_) - (_%rest147256%_ _%tl147168147251%_)) - (_%K147166147246%_ - _%rest147256%_ - _%hd147254%_))) - (_%else147164147178%_))))))) - (let* ((_%g147110147120%_ - (lambda (_%g147111147117%_) + (##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" - _%g147111147117%_)))) - (_%g147109147153%_ - (lambda (_%g147111147123%_) + _%g148096148102%_)))) + (_%g148094148138%_ + (lambda (_%g148096148108%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147111147123%_)) - (let ((_%e147113147125%_ + (gx#stx-pair? _%g148096148108%_)) + (let ((_%e148098148110%_ (let () (declare (not safe)) - (gx#stx-e _%g147111147123%_)))) - (let ((_%hd147114147128%_ + (gx#stx-e _%g148096148108%_)))) + (let ((_%hd148099148113%_ (let () (declare (not safe)) - (##car _%e147113147125%_))) - (_%tl147115147130%_ + (##car _%e148098148110%_))) + (_%tl148100148115%_ (let () (declare (not safe)) - (##cdr _%e147113147125%_)))) - ((lambda (_%L147133%_) - (let* ((_%body147148%_ - (map (lambda (_%g147143147145%_) + (##cdr _%e148098148110%_)))) + ((lambda (_%L148118%_) + (let* ((_%body148133%_ + (map (lambda (_%g148128148130%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self147105%_ - _%g147143147145%_))) - _%L147133%_)) - (_%body147150%_ - (_%simplify147108%_ _%body147148%_))) - (if (let ((__tmp149206 - (length _%body147150%_))) + _%self148090%_ + _%g148128148130%_))) + _%L148118%_)) + (_%body148135%_ + (_%simplify148093%_ _%body148133%_))) + (if (let ((__tmp150191 + (length _%body148135%_))) (declare (not safe)) - (##fx= __tmp149206 '1)) - (car _%body147150%_) - (cons 'begin _%body147150%_)))) - _%tl147115147130%_))) - (_%g147110147120%_ _%g147111147123%_))))) - (_%g147109147153%_ _%stx147106%_))))) + (##fx= __tmp150191 '1)) + (car _%body148135%_) + (cons 'begin _%body148135%_)))) + _%tl148100148115%_))) + (_%g148095148105%_ _%g148096148108%_))))) + (_%g148094148138%_ _%stx148091%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self147066%_ _%stx147067%_) - (let* ((_%g147069147079%_ - (lambda (_%g147070147076%_) + (lambda (_%self148051%_ _%stx148052%_) + (let* ((_%g148054148064%_ + (lambda (_%g148055148061%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147070147076%_)))) - (_%g147068147102%_ - (lambda (_%g147070147082%_) + _%g148055148061%_)))) + (_%g148053148087%_ + (lambda (_%g148055148067%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147070147082%_)) - (let ((_%e147072147084%_ + (gx#stx-pair? _%g148055148067%_)) + (let ((_%e148057148069%_ (let () (declare (not safe)) - (gx#stx-e _%g147070147082%_)))) - (let ((_%hd147073147087%_ + (gx#stx-e _%g148055148067%_)))) + (let ((_%hd148058148072%_ (let () (declare (not safe)) - (##car _%e147072147084%_))) - (_%tl147074147089%_ + (##car _%e148057148069%_))) + (_%tl148059148074%_ (let () (declare (not safe)) - (##cdr _%e147072147084%_)))) - ((lambda (_%L147092%_) + (##cdr _%e148057148069%_)))) + ((lambda (_%L148077%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L147092%_)))) - _%tl147074147089%_))) - (_%g147069147079%_ _%g147070147082%_))))) - (_%g147068147102%_ _%stx147067%_)))) + (gx#syntax->datum _%L148077%_)))) + _%tl148059148074%_))) + (_%g148054148064%_ _%g148055148067%_))))) + (_%g148053148087%_ _%stx148052%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self146830%_ _%stx146831%_) - (let* ((_%__stx147796147797%_ _%stx146831%_) - (_%g146835146887%_ + (lambda (_%self147815%_ _%stx147816%_) + (let* ((_%__stx148781148782%_ _%stx147816%_) + (_%g147820147872%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147796147797%_))))) - (let ((_%__kont147798147799%_ - (lambda (_%L147048%_ _%L147049%_) + _%__stx148781148782%_))))) + (let ((_%__kont148783148784%_ + (lambda (_%L148033%_ _%L148034%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146830%_ _%L147048%_)))) - (_%__kont147800147801%_ - (lambda (_%L146996%_ _%L146997%_ _%L146998%_) - (if (let ((__tmp149207 + (gxc#compile-e__1 _%self147815%_ _%L148033%_)))) + (_%__kont148785148786%_ + (lambda (_%L147981%_ _%L147982%_ _%L147983%_) + (if (let ((__tmp150192 (let () (declare (not safe)) - (gx#stx-e _%L146998%_)))) + (gx#stx-e _%L147983%_)))) (declare (not safe)) - (##memq __tmp149207 '(@inline))) + (##memq __tmp150192 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146830%_ _%L146996%_))))) - (_%__kont147804147805%_ - (lambda (_%L146916%_ _%L146917%_) - (let ((_%decls146932%_ (map gx#syntax->datum _%L146917%_))) - (let ((__tmp149210 + (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 _%decls146932%_) + (cons (cons 'declare _%decls147917%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146830%_ - _%L146916%_)) + _%self147815%_ + _%L147901%_)) '()))))) - (__tmp149208 - (let ((__tmp149209 + (__tmp150193 + (let ((__tmp150194 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp149209 _%decls146932%_)))) + (__foldr1 cons __tmp150194 _%decls147917%_)))) (declare (not safe)) (__call-with-parameters - __tmp149210 + __tmp150195 gxc#current-compile-decls - __tmp149208)))))) - (let* ((_%__match147851147852%_ - (lambda (_%e146851146940%_ - _%hd146852146943%_ - _%tl146853146945%_ - _%e146854146948%_ - _%hd146855146951%_ - _%tl146856146953%_ - _%e146857146956%_ - _%hd146858146959%_ - _%tl146859146961%_ - _%__splice147802147803%_ - _%target146860146964%_ - _%tl146862146966%_) - (letrec ((_%loop146863146969%_ - (lambda (_%hd146861146972%_ - _%param146867146974%_) + __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? _%hd146861146972%_)) - (let ((_%e146864146977%_ + (gx#stx-pair? _%hd147846147957%_)) + (let ((_%e147849147962%_ (let () (declare (not safe)) - (gx#stx-e _%hd146861146972%_)))) - (let ((_%lp-tl146866146982%_ + (gx#stx-e _%hd147846147957%_)))) + (let ((_%lp-tl147851147967%_ (let () (declare (not safe)) - (##cdr _%e146864146977%_))) - (_%lp-hd146865146980%_ + (##cdr _%e147849147962%_))) + (_%lp-hd147850147965%_ (let () (declare (not safe)) - (##car _%e146864146977%_)))) - (_%loop146863146969%_ - _%lp-tl146866146982%_ - (cons _%lp-hd146865146980%_ - _%param146867146974%_)))) - (let ((_%param146868146985%_ - (reverse _%param146867146974%_))) + (##car _%e147849147962%_)))) + (_%loop147848147954%_ + _%lp-tl147851147967%_ + (cons _%lp-hd147850147965%_ + _%param147852147959%_)))) + (let ((_%param147853147970%_ + (reverse _%param147852147959%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl146856146953%_)) - (let ((_%e146869146988%_ + _%tl147841147938%_)) + (let ((_%e147854147973%_ (let () (declare (not safe)) (gx#stx-e - _%tl146856146953%_)))) - (let ((_%tl146871146993%_ + _%tl147841147938%_)))) + (let ((_%tl147856147978%_ (let () (declare (not safe)) - (##cdr _%e146869146988%_))) - (_%hd146870146991%_ + (##cdr _%e147854147973%_))) + (_%hd147855147976%_ (let () (declare (not safe)) - (##car _%e146869146988%_)))) + (##car _%e147854147973%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146871146993%_)) - (let ((_%L146996%_ - _%hd146870146991%_) - (_%L146997%_ - _%param146868146985%_) - (_%L146998%_ - _%hd146858146959%_)) + _%tl147856147978%_)) + (let ((_%L147981%_ + _%hd147855147976%_) + (_%L147982%_ + _%param147853147970%_) + (_%L147983%_ + _%hd147843147944%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L146998%_)) - (not (let ((__tmp149211 + (gx#identifier? _%L147983%_)) + (not (let ((__tmp150196 (let () (declare (not safe)) - (gx#stx-e _%L146998%_)))) + (gx#stx-e _%L147983%_)))) (declare (not safe)) - (##memq __tmp149211 gxc#gambit-annotations)))) - (_%__kont147800147801%_ _%L146996%_ _%L146997%_ _%L146998%_) - (_%__kont147804147805%_ - _%hd146870146991%_ - _%hd146855146951%_))) + (##memq __tmp150196 gxc#gambit-annotations)))) + (_%__kont148785148786%_ _%L147981%_ _%L147982%_ _%L147983%_) + (_%__kont148789148790%_ + _%hd147855147976%_ + _%hd147840147936%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146835146887%_))))) + (_%g147820147872%_))))) (let () (declare (not safe)) - (_%g146835146887%_)))))))) - (_%loop146863146969%_ _%target146860146964%_ '())))) - (_%__match147825147826%_ - (lambda (_%e146839147024%_ - _%hd146840147027%_ - _%tl146841147029%_ - _%e146842147032%_ - _%hd146843147035%_ - _%tl146844147037%_ - _%e146845147040%_ - _%hd146846147043%_ - _%tl146847147045%_) - (let ((_%L147048%_ _%hd146846147043%_) - (_%L147049%_ _%hd146843147035%_)) + (_%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? _%L147049%_)) - (_%__kont147798147799%_ _%L147048%_ _%L147049%_) + (gx#identifier? _%L148034%_)) + (_%__kont148783148784%_ _%L148033%_ _%L148034%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146843147035%_)) - (let ((_%e146857146956%_ + (gx#stx-pair? _%hd147828148020%_)) + (let ((_%e147842147941%_ (let () (declare (not safe)) - (gx#stx-e _%hd146843147035%_)))) - (let ((_%tl146859146961%_ + (gx#stx-e _%hd147828148020%_)))) + (let ((_%tl147844147946%_ (let () (declare (not safe)) - (##cdr _%e146857146956%_))) - (_%hd146858146959%_ + (##cdr _%e147842147941%_))) + (_%hd147843147944%_ (let () (declare (not safe)) - (##car _%e146857146956%_)))) + (##car _%e147842147941%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146859146961%_)) - (let ((_%__splice147802147803%_ + _%tl147844147946%_)) + (let ((_%__splice148787148788%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146859146961%_ + _%tl147844147946%_ '0)))) - (let ((_%tl146862146966%_ + (let ((_%tl147847147951%_ (let () (declare (not safe)) (##vector-ref - _%__splice147802147803%_ + _%__splice148787148788%_ '1))) - (_%target146860146964%_ + (_%target147845147949%_ (let () (declare (not safe)) (##vector-ref - _%__splice147802147803%_ + _%__splice148787148788%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146862146966%_)) - (_%__match147851147852%_ - _%e146839147024%_ - _%hd146840147027%_ - _%tl146841147029%_ - _%e146842147032%_ - _%hd146843147035%_ - _%tl146844147037%_ - _%e146857146956%_ - _%hd146858146959%_ - _%tl146859146961%_ - _%__splice147802147803%_ - _%target146860146964%_ - _%tl146862146966%_) - (_%__kont147804147805%_ - _%hd146846147043%_ - _%hd146843147035%_)))) - (_%__kont147804147805%_ - _%hd146846147043%_ - _%hd146843147035%_)))) - (_%__kont147804147805%_ - _%hd146846147043%_ - _%hd146843147035%_))))))) + _%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? _%__stx147796147797%_)) - (let ((_%e146839147024%_ + (gx#stx-pair? _%__stx148781148782%_)) + (let ((_%e147824148009%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147796147797%_)))) - (let ((_%tl146841147029%_ + (gx#stx-e _%__stx148781148782%_)))) + (let ((_%tl147826148014%_ (let () (declare (not safe)) - (##cdr _%e146839147024%_))) - (_%hd146840147027%_ + (##cdr _%e147824148009%_))) + (_%hd147825148012%_ (let () (declare (not safe)) - (##car _%e146839147024%_)))) + (##car _%e147824148009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146841147029%_)) - (let ((_%e146842147032%_ + (gx#stx-pair? _%tl147826148014%_)) + (let ((_%e147827148017%_ (let () (declare (not safe)) - (gx#stx-e _%tl146841147029%_)))) - (let ((_%tl146844147037%_ + (gx#stx-e _%tl147826148014%_)))) + (let ((_%tl147829148022%_ (let () (declare (not safe)) - (##cdr _%e146842147032%_))) - (_%hd146843147035%_ + (##cdr _%e147827148017%_))) + (_%hd147828148020%_ (let () (declare (not safe)) - (##car _%e146842147032%_)))) + (##car _%e147827148017%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146844147037%_)) - (let ((_%e146845147040%_ + (gx#stx-pair? _%tl147829148022%_)) + (let ((_%e147830148025%_ (let () (declare (not safe)) - (gx#stx-e _%tl146844147037%_)))) - (let ((_%tl146847147045%_ + (gx#stx-e _%tl147829148022%_)))) + (let ((_%tl147832148030%_ (let () (declare (not safe)) - (##cdr _%e146845147040%_))) - (_%hd146846147043%_ + (##cdr _%e147830148025%_))) + (_%hd147831148028%_ (let () (declare (not safe)) - (##car _%e146845147040%_)))) + (##car _%e147830148025%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146847147045%_)) - (_%__match147825147826%_ - _%e146839147024%_ - _%hd146840147027%_ - _%tl146841147029%_ - _%e146842147032%_ - _%hd146843147035%_ - _%tl146844147037%_ - _%e146845147040%_ - _%hd146846147043%_ - _%tl146847147045%_) + (gx#stx-null? _%tl147832148030%_)) + (_%__match148810148811%_ + _%e147824148009%_ + _%hd147825148012%_ + _%tl147826148014%_ + _%e147827148017%_ + _%hd147828148020%_ + _%tl147829148022%_ + _%e147830148025%_ + _%hd147831148028%_ + _%tl147832148030%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd146843147035%_)) - (let ((_%e146857146956%_ + _%hd147828148020%_)) + (let ((_%e147842147941%_ (let () (declare (not safe)) (gx#stx-e - _%hd146843147035%_)))) - (let ((_%tl146859146961%_ + _%hd147828148020%_)))) + (let ((_%tl147844147946%_ (let () (declare (not safe)) - (##cdr _%e146857146956%_))) - (_%hd146858146959%_ + (##cdr _%e147842147941%_))) + (_%hd147843147944%_ (let () (declare (not safe)) - (##car _%e146857146956%_)))) + (##car _%e147842147941%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146859146961%_)) - (let ((_%__splice147802147803%_ + _%tl147844147946%_)) + (let ((_%__splice148787148788%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl146859146961%_ '0)))) - (let ((_%tl146862146966%_ + (gx#syntax-split-splice _%tl147844147946%_ '0)))) + (let ((_%tl147847147951%_ (let () (declare (not safe)) - (##vector-ref _%__splice147802147803%_ '1))) - (_%target146860146964%_ + (##vector-ref _%__splice148787148788%_ '1))) + (_%target147845147949%_ (let () (declare (not safe)) - (##vector-ref _%__splice147802147803%_ '0)))) + (##vector-ref _%__splice148787148788%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146862146966%_)) - (_%__match147851147852%_ - _%e146839147024%_ - _%hd146840147027%_ - _%tl146841147029%_ - _%e146842147032%_ - _%hd146843147035%_ - _%tl146844147037%_ - _%e146857146956%_ - _%hd146858146959%_ - _%tl146859146961%_ - _%__splice147802147803%_ - _%target146860146964%_ - _%tl146862146966%_) - (let () (declare (not safe)) (_%g146835146887%_))))) - (let () (declare (not safe)) (_%g146835146887%_))))) + (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)) - (_%g146835146887%_)))))) + (_%g147820147872%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146843147035%_)) - (let ((_%e146857146956%_ + (gx#stx-pair? _%hd147828148020%_)) + (let ((_%e147842147941%_ (let () (declare (not safe)) - (gx#stx-e _%hd146843147035%_)))) - (let ((_%tl146859146961%_ + (gx#stx-e _%hd147828148020%_)))) + (let ((_%tl147844147946%_ (let () (declare (not safe)) - (##cdr _%e146857146956%_))) - (_%hd146858146959%_ + (##cdr _%e147842147941%_))) + (_%hd147843147944%_ (let () (declare (not safe)) - (##car _%e146857146956%_)))) + (##car _%e147842147941%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146859146961%_)) - (let ((_%__splice147802147803%_ + _%tl147844147946%_)) + (let ((_%__splice148787148788%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146859146961%_ + _%tl147844147946%_ '0)))) - (let ((_%tl146862146966%_ + (let ((_%tl147847147951%_ (let () (declare (not safe)) (##vector-ref - _%__splice147802147803%_ + _%__splice148787148788%_ '1))) - (_%target146860146964%_ + (_%target147845147949%_ (let () (declare (not safe)) (##vector-ref - _%__splice147802147803%_ + _%__splice148787148788%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146862146966%_)) - (_%__match147851147852%_ - _%e146839147024%_ - _%hd146840147027%_ - _%tl146841147029%_ - _%e146842147032%_ - _%hd146843147035%_ - _%tl146844147037%_ - _%e146857146956%_ - _%hd146858146959%_ - _%tl146859146961%_ - _%__splice147802147803%_ - _%target146860146964%_ - _%tl146862146966%_) + _%tl147847147951%_)) + (_%__match148836148837%_ + _%e147824148009%_ + _%hd147825148012%_ + _%tl147826148014%_ + _%e147827148017%_ + _%hd147828148020%_ + _%tl147829148022%_ + _%e147842147941%_ + _%hd147843147944%_ + _%tl147844147946%_ + _%__splice148787148788%_ + _%target147845147949%_ + _%tl147847147951%_) (let () (declare (not safe)) - (_%g146835146887%_))))) + (_%g147820147872%_))))) (let () (declare (not safe)) - (_%g146835146887%_))))) + (_%g147820147872%_))))) (let () (declare (not safe)) - (_%g146835146887%_)))))) - (let () (declare (not safe)) (_%g146835146887%_))))) - (let () (declare (not safe)) (_%g146835146887%_)))))))) + (_%g147820147872%_)))))) + (let () (declare (not safe)) (_%g147820147872%_))))) + (let () (declare (not safe)) (_%g147820147872%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self146789%_ _%stx146790%_) - (let* ((_%g146792146802%_ - (lambda (_%g146793146799%_) + (lambda (_%self147774%_ _%stx147775%_) + (let* ((_%g147777147787%_ + (lambda (_%g147778147784%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146793146799%_)))) - (_%g146791146827%_ - (lambda (_%g146793146805%_) + _%g147778147784%_)))) + (_%g147776147812%_ + (lambda (_%g147778147790%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146793146805%_)) - (let ((_%e146795146807%_ + (gx#stx-pair? _%g147778147790%_)) + (let ((_%e147780147792%_ (let () (declare (not safe)) - (gx#stx-e _%g146793146805%_)))) - (let ((_%hd146796146810%_ + (gx#stx-e _%g147778147790%_)))) + (let ((_%hd147781147795%_ (let () (declare (not safe)) - (##car _%e146795146807%_))) - (_%tl146797146812%_ + (##car _%e147780147792%_))) + (_%tl147782147797%_ (let () (declare (not safe)) - (##cdr _%e146795146807%_)))) - ((lambda (_%L146815%_) - (let ((_%decls146825%_ - (map gx#syntax->datum _%L146815%_))) - (let ((__tmp149212 - (let ((__tmp149213 + (##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 - __tmp149213 - _%decls146825%_)))) + __tmp150198 + _%decls147810%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp149212)) - (cons 'declare _%decls146825%_))) - _%tl146797146812%_))) - (_%g146792146802%_ _%g146793146805%_))))) - (_%g146791146827%_ _%stx146790%_)))) + (gxc#current-compile-decls __tmp150197)) + (cons 'declare _%decls147810%_))) + _%tl147782147797%_))) + (_%g147777147787%_ _%g147778147790%_))))) + (_%g147776147812%_ _%stx147775%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self146535%_ _%stx146536%_) - (let* ((_%g146538146555%_ - (lambda (_%g146539146552%_) + (lambda (_%self147520%_ _%stx147521%_) + (let* ((_%g147523147540%_ + (lambda (_%g147524147537%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146539146552%_)))) - (_%g146537146786%_ - (lambda (_%g146539146558%_) + _%g147524147537%_)))) + (_%g147522147771%_ + (lambda (_%g147524147543%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146539146558%_)) - (let ((_%e146542146560%_ + (gx#stx-pair? _%g147524147543%_)) + (let ((_%e147527147545%_ (let () (declare (not safe)) - (gx#stx-e _%g146539146558%_)))) - (let ((_%hd146543146563%_ + (gx#stx-e _%g147524147543%_)))) + (let ((_%hd147528147548%_ (let () (declare (not safe)) - (##car _%e146542146560%_))) - (_%tl146544146565%_ + (##car _%e147527147545%_))) + (_%tl147529147550%_ (let () (declare (not safe)) - (##cdr _%e146542146560%_)))) + (##cdr _%e147527147545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146544146565%_)) - (let ((_%e146545146568%_ + (gx#stx-pair? _%tl147529147550%_)) + (let ((_%e147530147553%_ (let () (declare (not safe)) - (gx#stx-e _%tl146544146565%_)))) - (let ((_%hd146546146571%_ + (gx#stx-e _%tl147529147550%_)))) + (let ((_%hd147531147556%_ (let () (declare (not safe)) - (##car _%e146545146568%_))) - (_%tl146547146573%_ + (##car _%e147530147553%_))) + (_%tl147532147558%_ (let () (declare (not safe)) - (##cdr _%e146545146568%_)))) + (##cdr _%e147530147553%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146547146573%_)) - (let ((_%e146548146576%_ + (gx#stx-pair? _%tl147532147558%_)) + (let ((_%e147533147561%_ (let () (declare (not safe)) - (gx#stx-e _%tl146547146573%_)))) - (let ((_%hd146549146579%_ + (gx#stx-e _%tl147532147558%_)))) + (let ((_%hd147534147564%_ (let () (declare (not safe)) - (##car _%e146548146576%_))) - (_%tl146550146581%_ + (##car _%e147533147561%_))) + (_%tl147535147566%_ (let () (declare (not safe)) - (##cdr _%e146548146576%_)))) + (##cdr _%e147533147561%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146550146581%_)) - ((lambda (_%L146584%_ - _%L146585%_) - (let* ((_%__stx147904147905%_ - _%L146585%_) - (_%g146602146616%_ + _%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" - _%__stx147904147905%_))))) - (let ((_%__kont147906147907%_ + _%__stx148889148890%_))))) + (let ((_%__kont148891148892%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self146535%_ - _%L146584%_)))) - (_%__kont147908147909%_ - (lambda (_%L146748%_) - (let ((_%eid146757%_ + _%self147520%_ + _%L147569%_)))) + (_%__kont148893148894%_ + (lambda (_%L147733%_) + (let ((_%eid147742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146748%_)))) - (let ((_%lambda-expr146758146760%_ - (gxc#apply-find-lambda-expression _%L146584%_))) - (if _%lambda-expr146758146760%_ - (let* ((_%lambda-expr146763%_ - _%lambda-expr146758146760%_) - (__tmp149214 + (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! - __tmp149214 - _%lambda-expr146763%_ - _%eid146757%_)) + __tmp150199 + _%lambda-expr147748%_ + _%eid147742%_)) '#f)) (cons 'define - (cons _%eid146757%_ + (cons _%eid147742%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146535%_ - _%L146584%_)) + _%self147520%_ + _%L147569%_)) '())))))) - (_%__kont147910147911%_ + (_%__kont148895148896%_ (lambda () - (let* ((_%tmp146623%_ + (let* ((_%tmp147608%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body146732%_ - (let _%lp146625%_ ((_%rest146627%_ _%L146585%_) - (_%k146628%_ '0) - (_%r146629%_ '())) - (let* ((_%__stx147874147875%_ _%rest146627%_) - (_%g146634146651%_ + (_%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" - _%__stx147874147875%_))))) - (let ((_%__kont147876147877%_ - (lambda (_%L146719%_) - (_%lp146625%_ - _%L146719%_ + _%__stx148859148860%_))))) + (let ((_%__kont148861148862%_ + (lambda (_%L147704%_) + (_%lp147610%_ + _%L147704%_ (let () (declare (not safe)) - (##fx+ _%k146628%_ '1)) - _%r146629%_))) - (_%__kont147878147879%_ - (lambda (_%L146692%_ _%L146693%_) - (_%lp146625%_ - _%L146692%_ + (##fx+ _%k147613%_ '1)) + _%r147614%_))) + (_%__kont148863148864%_ + (lambda (_%L147677%_ _%L147678%_) + (_%lp147610%_ + _%L147677%_ (let () (declare (not safe)) - (##fx+ _%k146628%_ '1)) + (##fx+ _%k147613%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L146693%_)) + _%L147678%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp146623%_ - _%k146628%_ - _%L146692%_) + _%tmp147608%_ + _%k147613%_ + _%L147677%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r146629%_)))) - (_%__kont147880147881%_ - (lambda (_%L146663%_) - (let ((__tmp149215 + _%r147614%_)))) + (_%__kont148865148866%_ + (lambda (_%L147648%_) + (let ((__tmp150200 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146663%_)) + (gxc#generate-runtime-binding-id _%L147648%_)) (cons (gxc#generate-runtime-values->list - _%tmp146623%_ - _%k146628%_) + _%tmp147608%_ + _%k147613%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149215 - _%r146629%_)))) - (_%__kont147882147883%_ - (lambda () (reverse _%r146629%_)))) - (let ((_%g146632146679%_ + __tmp150200 + _%r147614%_)))) + (_%__kont148867148868%_ + (lambda () (reverse _%r147614%_)))) + (let ((_%g147617147664%_ (lambda () - (let ((_%L146663%_ - _%__stx147874147875%_)) + (let ((_%L147648%_ + _%__stx148859148860%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L146663%_)) - (_%__kont147880147881%_ - _%L146663%_) - (_%__kont147882147883%_)))))) + _%L147648%_)) + (_%__kont148865148866%_ + _%L147648%_) + (_%__kont148867148868%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147874147875%_)) - (let ((_%e146637146708%_ + (gx#stx-pair? _%__stx148859148860%_)) + (let ((_%e147622147693%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147874147875%_)))) - (let ((_%tl146639146713%_ + _%__stx148859148860%_)))) + (let ((_%tl147624147698%_ (let () (declare (not safe)) - (##cdr _%e146637146708%_))) - (_%hd146638146711%_ + (##cdr _%e147622147693%_))) + (_%hd147623147696%_ (let () (declare (not safe)) - (##car _%e146637146708%_)))) + (##car _%e147622147693%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd146638146711%_)) - (let ((_%e146640146716%_ + _%hd147623147696%_)) + (let ((_%e147625147701%_ (let () (declare (not safe)) (gx#stx-e - _%hd146638146711%_)))) - (if (equal? _%e146640146716%_ + _%hd147623147696%_)))) + (if (equal? _%e147625147701%_ '#f) - (_%__kont147876147877%_ - _%tl146639146713%_) - (_%__kont147878147879%_ - _%tl146639146713%_ - _%hd146638146711%_))) - (_%__kont147878147879%_ - _%tl146639146713%_ - _%hd146638146711%_)))) + (_%__kont148861148862%_ + _%tl147624147698%_) + (_%__kont148863148864%_ + _%tl147624147698%_ + _%hd147623147696%_))) + (_%__kont148863148864%_ + _%tl147624147698%_ + _%hd147623147696%_)))) (let () (declare (not safe)) - (_%g146632146679%_))))))))) + (_%g147617147664%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp146623%_ + (cons _%tmp147608%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146535%_ - _%L146584%_)) + _%self147520%_ + _%L147569%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp146623%_ - _%L146585%_ - _%L146584%_) - _%body146732%_))))))) + _%tmp147608%_ + _%L147570%_ + _%L147569%_) + _%body147717%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147904147905%_)) - (let ((_%e146604146770%_ + _%__stx148889148890%_)) + (let ((_%e147589147755%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx147904147905%_)))) - (let ((_%tl146606146775%_ + (gx#stx-e _%__stx148889148890%_)))) + (let ((_%tl147591147760%_ (let () (declare (not safe)) - (##cdr _%e146604146770%_))) - (_%hd146605146773%_ + (##cdr _%e147589147755%_))) + (_%hd147590147758%_ (let () (declare (not safe)) - (##car _%e146604146770%_)))) + (##car _%e147589147755%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd146605146773%_)) - (let ((_%e146607146778%_ + (gx#stx-datum? _%hd147590147758%_)) + (let ((_%e147592147763%_ (let () (declare (not safe)) - (gx#stx-e _%hd146605146773%_)))) - (if (equal? _%e146607146778%_ '#f) + (gx#stx-e _%hd147590147758%_)))) + (if (equal? _%e147592147763%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146606146775%_)) - (_%__kont147906147907%_) - (_%__kont147910147911%_)) + (gx#stx-null? _%tl147591147760%_)) + (_%__kont148891148892%_) + (_%__kont148895148896%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146606146775%_)) - (_%__kont147908147909%_ _%hd146605146773%_) - (_%__kont147910147911%_)))) + (gx#stx-null? _%tl147591147760%_)) + (_%__kont148893148894%_ _%hd147590147758%_) + (_%__kont148895148896%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146606146775%_)) - (_%__kont147908147909%_ _%hd146605146773%_) - (_%__kont147910147911%_))))) - (_%__kont147910147911%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd146549146579%_ - _%hd146546146571%_) - (_%g146538146555%_ - _%g146539146558%_)))) - (_%g146538146555%_ _%g146539146558%_)))) - (_%g146538146555%_ _%g146539146558%_)))) - (_%g146538146555%_ _%g146539146558%_))))) - (_%g146537146786%_ _%stx146536%_)))) + (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 (_%vals146510%_ _%hd146511%_ _%expr146512%_) - (let ((_%$e146514%_ (gxc#apply-count-values _%expr146512%_))) - (if _%$e146514%_ - ((lambda (_%count146517%_) - (let ((_%len146519%_ + (lambda (_%vals147495%_ _%hd147496%_ _%expr147497%_) + (let ((_%$e147499%_ (gxc#apply-count-values _%expr147497%_))) + (if _%$e147499%_ + ((lambda (_%count147502%_) + (let ((_%len147504%_ (let () (declare (not safe)) - (gx#stx-length _%hd146511%_))) - (_%cmp146520%_ + (gx#stx-length _%hd147496%_))) + (_%cmp147505%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146511%_)) + (gx#stx-list? _%hd147496%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len146519%_ '0)) - (_%cmp146520%_ _%count146517%_ _%len146519%_)) + (##fx= _%len147504%_ '0)) + (_%cmp147505%_ _%count147502%_ _%len147504%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr146512%_ - _%hd146511%_))))) - _%$e146514%_) - (let* ((_%len146526%_ + _%expr147497%_ + _%hd147496%_))))) + _%$e147499%_) + (let* ((_%len147511%_ (let () (declare (not safe)) - (gx#stx-length _%hd146511%_))) - (_%cmp146528%_ + (gx#stx-length _%hd147496%_))) + (_%cmp147513%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146511%_)) + (gx#stx-list? _%hd147496%_)) '##fx= '##fx>=)) - (_%errmsg146530%_ - (let ((__tmp149217 + (_%errmsg147515%_ + (let ((__tmp150202 (if (let () (declare (not safe)) - (gx#stx-list? _%hd146511%_)) + (gx#stx-list? _%hd147496%_)) '"Context expects " '"Context expects at least ")) - (__tmp149216 (number->string _%len146526%_))) + (__tmp150201 (number->string _%len147511%_))) (declare (not safe)) - (##string-append __tmp149217 __tmp149216 '" values"))) - (_%count146532%_ + (##string-append __tmp150202 __tmp150201 '" values"))) + (_%count147517%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd146511%_)) + (gx#stx-list? _%hd147496%_)) '#f - (let () (declare (not safe)) (##fx= _%len146526%_ '0))) + (let () (declare (not safe)) (##fx= _%len147511%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count146532%_ + (cons (cons (cons _%count147517%_ (cons (gxc#generate-runtime-values-count - _%vals146510%_) + _%vals147495%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp146528%_ - (cons _%count146532%_ - (cons _%len146526%_ '()))) + (cons _%cmp147513%_ + (cons _%count147517%_ + (cons _%len147511%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp146528%_ - (cons _%count146532%_ - (cons _%len146526%_ + (cons (cons _%cmp147513%_ + (cons _%count147517%_ + (cons _%len147511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3220,82 +3220,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg146530%_ + (cons _%errmsg147515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count146532%_ '()))) + (cons _%count147517%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var146505%_) - (letrec ((_%generate-inline146507%_ + (lambda (_%var147490%_) + (letrec ((_%generate-inline147492%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var146505%_ '())) + (cons (cons '##values? (cons _%var147490%_ '())) (cons (cons '##values-length - (cons _%var146505%_ '())) + (cons _%var147490%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146507%_) + (_%generate-inline147492%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146507%_) '())))))))) + (cons (_%generate-inline147492%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var146498%_ _%i146499%_ _%rest146500%_) - (letrec ((_%generate-inline146502%_ + (lambda (_%var147483%_ _%i147484%_ _%rest147485%_) + (letrec ((_%generate-inline147487%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i146499%_ '0)) + (##fx= _%i147484%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest146500%_)))) + (gx#stx-pair? _%rest147485%_)))) (cons 'if - (cons (cons '##values? (cons _%var146498%_ '())) + (cons (cons '##values? (cons _%var147483%_ '())) (cons (cons '##values-ref - (cons _%var146498%_ + (cons _%var147483%_ (cons '0 '()))) - (cons _%var146498%_ '())))) + (cons _%var147483%_ '())))) (cons '##values-ref - (cons _%var146498%_ (cons _%i146499%_ '()))))))) + (cons _%var147483%_ (cons _%i147484%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146502%_) + (_%generate-inline147487%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146502%_) '())))))))) + (cons (_%generate-inline147487%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var146492%_ _%i146493%_) - (if (let () (declare (not safe)) (##fx= _%i146493%_ '0)) + (lambda (_%var147477%_ _%i147478%_) + (if (let () (declare (not safe)) (##fx= _%i147478%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146492%_ '())) + (cons (cons '##values? (cons _%var147477%_ '())) (cons (cons '##values->list - (cons _%var146492%_ '())) - (cons (cons 'list (cons _%var146492%_ '())) + (cons _%var147477%_ '())) + (cons (cons 'list (cons _%var147477%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146492%_ + (cons _%var147477%_ '())) (cons (cons '##values->list - (cons _%var146492%_ + (cons _%var147477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var146492%_ '())) '())))) + (cons (cons 'list (cons _%var147477%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i146493%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i147478%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146492%_ '())) + (cons (cons '##values? (cons _%var147477%_ '())) (cons (cons '##cdr (cons (cons '##values->list - (cons _%var146492%_ + (cons _%var147477%_ '())) '())) (cons ''() '())))) @@ -3304,8267 +3304,8267 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146492%_ + (cons _%var147477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr (cons (cons '##values->list - (cons _%var146492%_ '())) + (cons _%var147477%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##values->list (cons _%var146492%_ '())) - (cons _%i146493%_ '()))) + (cons (cons '##values->list (cons _%var147477%_ '())) + (cons _%i147478%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail (cons (cons '##values->list - (cons _%var146492%_ + (cons _%var147477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i146493%_ '()))) + (cons _%i147478%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self146424%_ _%stx146425%_) - (let* ((_%g146427146444%_ - (lambda (_%g146428146441%_) + (lambda (_%self147409%_ _%stx147410%_) + (let* ((_%g147412147429%_ + (lambda (_%g147413147426%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146428146441%_)))) - (_%g146426146489%_ - (lambda (_%g146428146447%_) + _%g147413147426%_)))) + (_%g147411147474%_ + (lambda (_%g147413147432%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146428146447%_)) - (let ((_%e146431146449%_ + (gx#stx-pair? _%g147413147432%_)) + (let ((_%e147416147434%_ (let () (declare (not safe)) - (gx#stx-e _%g146428146447%_)))) - (let ((_%hd146432146452%_ + (gx#stx-e _%g147413147432%_)))) + (let ((_%hd147417147437%_ (let () (declare (not safe)) - (##car _%e146431146449%_))) - (_%tl146433146454%_ + (##car _%e147416147434%_))) + (_%tl147418147439%_ (let () (declare (not safe)) - (##cdr _%e146431146449%_)))) + (##cdr _%e147416147434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146433146454%_)) - (let ((_%e146434146457%_ + (gx#stx-pair? _%tl147418147439%_)) + (let ((_%e147419147442%_ (let () (declare (not safe)) - (gx#stx-e _%tl146433146454%_)))) - (let ((_%hd146435146460%_ + (gx#stx-e _%tl147418147439%_)))) + (let ((_%hd147420147445%_ (let () (declare (not safe)) - (##car _%e146434146457%_))) - (_%tl146436146462%_ + (##car _%e147419147442%_))) + (_%tl147421147447%_ (let () (declare (not safe)) - (##cdr _%e146434146457%_)))) + (##cdr _%e147419147442%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146436146462%_)) - (let ((_%e146437146465%_ + (gx#stx-pair? _%tl147421147447%_)) + (let ((_%e147422147450%_ (let () (declare (not safe)) - (gx#stx-e _%tl146436146462%_)))) - (let ((_%hd146438146468%_ + (gx#stx-e _%tl147421147447%_)))) + (let ((_%hd147423147453%_ (let () (declare (not safe)) - (##car _%e146437146465%_))) - (_%tl146439146470%_ + (##car _%e147422147450%_))) + (_%tl147424147455%_ (let () (declare (not safe)) - (##cdr _%e146437146465%_)))) + (##cdr _%e147422147450%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146439146470%_)) - ((lambda (_%L146473%_ - _%L146474%_) + _%tl147424147455%_)) + ((lambda (_%L147458%_ + _%L147459%_) (gxc#generate-runtime-lambda-form - _%self146424%_ - _%L146474%_ - _%L146473%_)) - _%hd146438146468%_ - _%hd146435146460%_) - (_%g146427146444%_ - _%g146428146447%_)))) - (_%g146427146444%_ _%g146428146447%_)))) - (_%g146427146444%_ _%g146428146447%_)))) - (_%g146427146444%_ _%g146428146447%_))))) - (_%g146426146489%_ _%stx146425%_)))) + _%self147409%_ + _%L147459%_ + _%L147458%_)) + _%hd147423147453%_ + _%hd147420147445%_) + (_%g147412147429%_ + _%g147413147432%_)))) + (_%g147412147429%_ _%g147413147432%_)))) + (_%g147412147429%_ _%g147413147432%_)))) + (_%g147412147429%_ _%g147413147432%_))))) + (_%g147411147474%_ _%stx147410%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self146383%_ _%hd146384%_ _%body146385%_) - (let* ((_%hd146387%_ (gxc#generate-runtime-lambda-head _%hd146384%_)) - (_%body146389%_ + (lambda (_%self147368%_ _%hd147369%_ _%body147370%_) + (let* ((_%hd147372%_ (gxc#generate-runtime-lambda-head _%hd147369%_)) + (_%body147374%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self146383%_ _%body146385%_))) - (_%body146421%_ - (let* ((_%body146390146398%_ _%body146389%_) - (_%else146392146406%_ - (lambda () (cons _%body146389%_ '()))) - (_%K146394146411%_ - (lambda (_%exprs146409%_) _%exprs146409%_))) - (if (pair? _%body146390146398%_) - (let ((_%hd146395146414%_ + (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 _%body146390146398%_))) - (_%tl146396146416%_ + (##car _%body147375147383%_))) + (_%tl147381147401%_ (let () (declare (not safe)) - (##cdr _%body146390146398%_)))) + (##cdr _%body147375147383%_)))) (if (let () (declare (not safe)) - (##eq? _%hd146395146414%_ 'begin)) - (let ((_%exprs146419%_ _%tl146396146416%_)) - (_%K146394146411%_ _%exprs146419%_)) - (_%else146392146406%_))) - (_%else146392146406%_))))) - (cons 'lambda (cons _%hd146387%_ _%body146421%_))))) + (##eq? _%hd147380147399%_ 'begin)) + (let ((_%exprs147404%_ _%tl147381147401%_)) + (_%K147379147396%_ _%exprs147404%_)) + (_%else147377147391%_))) + (_%else147377147391%_))))) + (cons 'lambda (cons _%hd147372%_ _%body147406%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd146381%_) + (lambda (_%hd147366%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146381%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd147366%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self144920%_ _%stx144921%_) - (letrec ((_%dispatch-case?144923%_ - (lambda (_%hd145611%_ _%body145612%_) - (let* ((_%form145614%_ - (cons _%hd145611%_ (cons _%body145612%_ '()))) - (_%__stx147936147937%_ _%form145614%_) - (_%g145619145776%_ + (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" - _%__stx147936147937%_))))) - (let ((_%__kont147938147939%_ - (lambda (_%L146301%_ _%L146302%_ _%L146303%_) + _%__stx148921148922%_))))) + (let ((_%__kont148923148924%_ + (lambda (_%L147286%_ _%L147287%_ _%L147288%_) '#t)) - (_%__kont147944147945%_ - (lambda (_%L146089%_ - _%L146090%_ - _%L146091%_ - _%L146092%_ - _%L146093%_ - _%L146094%_) + (_%__kont148929148930%_ + (lambda (_%L147074%_ + _%L147075%_ + _%L147076%_ + _%L147077%_ + _%L147078%_ + _%L147079%_) '#t)) - (_%__kont147950147951%_ - (lambda (_%L145884%_ - _%L145885%_ - _%L145886%_ - _%L145887%_) + (_%__kont148935148936%_ + (lambda (_%L146869%_ + _%L146870%_ + _%L146871%_ + _%L146872%_) '#t)) - (_%__kont147952147953%_ (lambda () '#f))) - (let* ((_%__match148077148078%_ - (lambda (_%e145736145788%_ - _%hd145737145791%_ - _%tl145738145793%_ - _%e145739145796%_ - _%hd145740145799%_ - _%tl145741145801%_ - _%e145742145804%_ - _%hd145743145807%_ - _%tl145744145809%_ - _%e145745145812%_ - _%hd145746145815%_ - _%tl145747145817%_ - _%e145748145820%_ - _%hd145749145823%_ - _%tl145750145825%_ - _%e145751145828%_ - _%hd145752145831%_ - _%tl145753145833%_ - _%e145754145836%_ - _%hd145755145839%_ - _%tl145756145841%_ - _%e145757145844%_ - _%hd145758145847%_ - _%tl145759145849%_ - _%e145760145852%_ - _%hd145761145855%_ - _%tl145762145857%_ - _%e145763145860%_ - _%hd145764145863%_ - _%tl145765145865%_ - _%e145766145868%_ - _%hd145767145871%_ - _%tl145768145873%_ - _%e145769145876%_ - _%hd145770145879%_ - _%tl145771145881%_) - (let ((_%L145884%_ _%hd145770145879%_) - (_%L145885%_ _%hd145761145855%_) - (_%L145886%_ _%hd145752145831%_) - (_%L145887%_ _%hd145737145791%_)) + (_%__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? _%L145887%_)) + (gx#identifier? _%L146872%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145886%_ + _%L146871%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145887%_ - _%L145884%_)) + _%L146872%_ + _%L146869%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L145885%_ - _%L145887%_)))) - (_%__kont147950147951%_ - _%L145884%_ - _%L145885%_ - _%L145886%_ - _%L145887%_) - (_%__kont147952147953%_))))) - (_%__match148049148050%_ - (lambda (_%e145736145788%_ - _%hd145737145791%_ - _%tl145738145793%_ - _%e145739145796%_ - _%hd145740145799%_ - _%tl145741145801%_ - _%e145742145804%_ - _%hd145743145807%_ - _%tl145744145809%_ - _%e145745145812%_ - _%hd145746145815%_ - _%tl145747145817%_ - _%e145748145820%_ - _%hd145749145823%_ - _%tl145750145825%_ - _%e145751145828%_ - _%hd145752145831%_ - _%tl145753145833%_ - _%e145754145836%_ - _%hd145755145839%_ - _%tl145756145841%_ - _%e145757145844%_ - _%hd145758145847%_ - _%tl145759145849%_ - _%e145760145852%_ - _%hd145761145855%_ - _%tl145762145857%_) + _%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? _%tl145756145841%_)) - (let ((_%e145763145860%_ + (gx#stx-pair? _%tl146741146826%_)) + (let ((_%e146748146845%_ (let () (declare (not safe)) - (gx#stx-e _%tl145756145841%_)))) - (let ((_%tl145765145865%_ + (gx#stx-e _%tl146741146826%_)))) + (let ((_%tl146750146850%_ (let () (declare (not safe)) - (##cdr _%e145763145860%_))) - (_%hd145764145863%_ + (##cdr _%e146748146845%_))) + (_%hd146749146848%_ (let () (declare (not safe)) - (##car _%e145763145860%_)))) + (##car _%e146748146845%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145764145863%_)) - (let ((_%e145766145868%_ + _%hd146749146848%_)) + (let ((_%e146751146853%_ (let () (declare (not safe)) (gx#stx-e - _%hd145764145863%_)))) - (let ((_%tl145768145873%_ + _%hd146749146848%_)))) + (let ((_%tl146753146858%_ (let () (declare (not safe)) - (##cdr _%e145766145868%_))) - (_%hd145767145871%_ + (##cdr _%e146751146853%_))) + (_%hd146752146856%_ (let () (declare (not safe)) - (##car _%e145766145868%_)))) + (##car _%e146751146853%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145767145871%_)) + _%hd146752146856%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145767145871%_)) + _%hd146752146856%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145768145873%_)) - (let ((_%e145769145876%_ + (gx#stx-pair? _%tl146753146858%_)) + (let ((_%e146754146861%_ (let () (declare (not safe)) - (gx#stx-e _%tl145768145873%_)))) - (let ((_%tl145771145881%_ + (gx#stx-e _%tl146753146858%_)))) + (let ((_%tl146756146866%_ (let () (declare (not safe)) - (##cdr _%e145769145876%_))) - (_%hd145770145879%_ + (##cdr _%e146754146861%_))) + (_%hd146755146864%_ (let () (declare (not safe)) - (##car _%e145769145876%_)))) + (##car _%e146754146861%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145771145881%_)) + (gx#stx-null? _%tl146756146866%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145765145865%_)) + (gx#stx-null? _%tl146750146850%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145741145801%_)) - (_%__match148077148078%_ - _%e145736145788%_ - _%hd145737145791%_ - _%tl145738145793%_ - _%e145739145796%_ - _%hd145740145799%_ - _%tl145741145801%_ - _%e145742145804%_ - _%hd145743145807%_ - _%tl145744145809%_ - _%e145745145812%_ - _%hd145746145815%_ - _%tl145747145817%_ - _%e145748145820%_ - _%hd145749145823%_ - _%tl145750145825%_ - _%e145751145828%_ - _%hd145752145831%_ - _%tl145753145833%_ - _%e145754145836%_ - _%hd145755145839%_ - _%tl145756145841%_ - _%e145757145844%_ - _%hd145758145847%_ - _%tl145759145849%_ - _%e145760145852%_ - _%hd145761145855%_ - _%tl145762145857%_ - _%e145763145860%_ - _%hd145764145863%_ - _%tl145765145865%_ - _%e145766145868%_ - _%hd145767145871%_ - _%tl145768145873%_ - _%e145769145876%_ - _%hd145770145879%_ - _%tl145771145881%_) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)))) - (_%__match147979147980%_ - (lambda (_%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%__splice147946147947%_ - _%target145675145937%_ - _%tl145677145939%_) - (letrec ((_%loop145678145942%_ - (lambda (_%hd145676145945%_ - _%arg145682145947%_) + (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? - _%hd145676145945%_)) - (let ((_%e145679145950%_ + _%hd146661146930%_)) + (let ((_%e146664146935%_ (let () (declare (not safe)) (gx#stx-e - _%hd145676145945%_)))) - (let ((_%lp-tl145681145955%_ + _%hd146661146930%_)))) + (let ((_%lp-tl146666146940%_ (let () (declare (not safe)) - (##cdr _%e145679145950%_))) - (_%lp-hd145680145953%_ + (##cdr _%e146664146935%_))) + (_%lp-hd146665146938%_ (let () (declare (not safe)) - (##car _%e145679145950%_)))) - (_%loop145678145942%_ - _%lp-tl145681145955%_ - (cons _%lp-hd145680145953%_ - _%arg145682145947%_)))) - (let ((_%arg145683145958%_ - (reverse _%arg145682145947%_))) + (##car _%e146664146935%_)))) + (_%loop146663146927%_ + _%lp-tl146666146940%_ + (cons _%lp-hd146665146938%_ + _%arg146667146932%_)))) + (let ((_%arg146668146943%_ + (reverse _%arg146667146932%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145674145934%_)) - (let ((_%e145684145961%_ + _%tl146659146919%_)) + (let ((_%e146669146946%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145674145934%_)))) - (let ((_%tl145686145966%_ + (gx#stx-e _%tl146659146919%_)))) + (let ((_%tl146671146951%_ (let () (declare (not safe)) - (##cdr _%e145684145961%_))) - (_%hd145685145964%_ + (##cdr _%e146669146946%_))) + (_%hd146670146949%_ (let () (declare (not safe)) - (##car _%e145684145961%_)))) + (##car _%e146669146946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145685145964%_)) - (let ((_%e145687145969%_ + (gx#stx-pair? _%hd146670146949%_)) + (let ((_%e146672146954%_ (let () (declare (not safe)) - (gx#stx-e _%hd145685145964%_)))) - (let ((_%tl145689145974%_ + (gx#stx-e _%hd146670146949%_)))) + (let ((_%tl146674146959%_ (let () (declare (not safe)) - (##cdr _%e145687145969%_))) - (_%hd145688145972%_ + (##cdr _%e146672146954%_))) + (_%hd146673146957%_ (let () (declare (not safe)) - (##car _%e145687145969%_)))) + (##car _%e146672146954%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145688145972%_)) + (gx#identifier? _%hd146673146957%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145688145972%_)) + (gx#stx-eq? '%#call _%hd146673146957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145689145974%_)) - (let ((_%e145690145977%_ + (gx#stx-pair? _%tl146674146959%_)) + (let ((_%e146675146962%_ (let () (declare (not safe)) (gx#stx-e - _%tl145689145974%_)))) - (let ((_%tl145692145982%_ + _%tl146674146959%_)))) + (let ((_%tl146677146967%_ (let () (declare (not safe)) - (##cdr _%e145690145977%_))) - (_%hd145691145980%_ + (##cdr _%e146675146962%_))) + (_%hd146676146965%_ (let () (declare (not safe)) - (##car _%e145690145977%_)))) + (##car _%e146675146962%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145691145980%_)) - (let ((_%e145693145985%_ + _%hd146676146965%_)) + (let ((_%e146678146970%_ (let () (declare (not safe)) (gx#stx-e - _%hd145691145980%_)))) - (let ((_%tl145695145990%_ + _%hd146676146965%_)))) + (let ((_%tl146680146975%_ (let () (declare (not safe)) - (##cdr _%e145693145985%_))) - (_%hd145694145988%_ + (##cdr _%e146678146970%_))) + (_%hd146679146973%_ (let () (declare (not safe)) - (##car _%e145693145985%_)))) + (##car _%e146678146970%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145694145988%_)) + _%hd146679146973%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145694145988%_)) + _%hd146679146973%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145695145990%_)) - (let ((_%e145696145993%_ + (gx#stx-pair? _%tl146680146975%_)) + (let ((_%e146681146978%_ (let () (declare (not safe)) - (gx#stx-e _%tl145695145990%_)))) - (let ((_%tl145698145998%_ + (gx#stx-e _%tl146680146975%_)))) + (let ((_%tl146683146983%_ (let () (declare (not safe)) - (##cdr _%e145696145993%_))) - (_%hd145697145996%_ + (##cdr _%e146681146978%_))) + (_%hd146682146981%_ (let () (declare (not safe)) - (##car _%e145696145993%_)))) + (##car _%e146681146978%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145698145998%_)) + (gx#stx-null? _%tl146683146983%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145692145982%_)) - (let ((_%e145699146001%_ + (gx#stx-pair? _%tl146677146967%_)) + (let ((_%e146684146986%_ (let () (declare (not safe)) - (gx#stx-e _%tl145692145982%_)))) - (let ((_%tl145701146006%_ + (gx#stx-e _%tl146677146967%_)))) + (let ((_%tl146686146991%_ (let () (declare (not safe)) - (##cdr _%e145699146001%_))) - (_%hd145700146004%_ + (##cdr _%e146684146986%_))) + (_%hd146685146989%_ (let () (declare (not safe)) - (##car _%e145699146001%_)))) + (##car _%e146684146986%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145700146004%_)) - (let ((_%e145702146009%_ + _%hd146685146989%_)) + (let ((_%e146687146994%_ (let () (declare (not safe)) (gx#stx-e - _%hd145700146004%_)))) - (let ((_%tl145704146014%_ + _%hd146685146989%_)))) + (let ((_%tl146689146999%_ (let () (declare (not safe)) - (##cdr _%e145702146009%_))) - (_%hd145703146012%_ + (##cdr _%e146687146994%_))) + (_%hd146688146997%_ (let () (declare (not safe)) - (##car _%e145702146009%_)))) + (##car _%e146687146994%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145703146012%_)) + _%hd146688146997%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145703146012%_)) + _%hd146688146997%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145704146014%_)) - (let ((_%e145705146017%_ + _%tl146689146999%_)) + (let ((_%e146690147002%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145704146014%_)))) - (let ((_%tl145707146022%_ + (gx#stx-e _%tl146689146999%_)))) + (let ((_%tl146692147007%_ (let () (declare (not safe)) - (##cdr _%e145705146017%_))) - (_%hd145706146020%_ + (##cdr _%e146690147002%_))) + (_%hd146691147005%_ (let () (declare (not safe)) - (##car _%e145705146017%_)))) + (##car _%e146690147002%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145707146022%_)) + (gx#stx-null? _%tl146692147007%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145701146006%_)) - (if (let ((__tmp149218 + (gx#stx-pair/null? _%tl146686146991%_)) + (if (let ((__tmp150203 (let () (declare (not safe)) (gx#stx-length - _%tl145701146006%_)))) + _%tl146686146991%_)))) (declare (not safe)) - (##fx>= __tmp149218 '1)) - (let ((_%__splice147948147949%_ + (##fx>= __tmp150203 '1)) + (let ((_%__splice148933148934%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145701146006%_ + _%tl146686146991%_ '1)))) - (let ((_%tl145710146027%_ + (let ((_%tl146695147012%_ (let () (declare (not safe)) (##vector-ref - _%__splice147948147949%_ + _%__splice148933148934%_ '1))) - (_%target145708146025%_ + (_%target146693147010%_ (let () (declare (not safe)) (##vector-ref - _%__splice147948147949%_ + _%__splice148933148934%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145710146027%_)) - (let ((_%e145717146030%_ + _%tl146695147012%_)) + (let ((_%e146702147015%_ (let () (declare (not safe)) (gx#stx-e - _%tl145710146027%_)))) - (let ((_%tl145719146035%_ + _%tl146695147012%_)))) + (let ((_%tl146704147020%_ (let () (declare (not safe)) - (##cdr _%e145717146030%_))) - (_%hd145718146033%_ + (##cdr _%e146702147015%_))) + (_%hd146703147018%_ (let () (declare (not safe)) - (##car _%e145717146030%_)))) + (##car _%e146702147015%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145718146033%_)) - (let ((_%e145720146038%_ + _%hd146703147018%_)) + (let ((_%e146705147023%_ (let () (declare (not safe)) (gx#stx-e - _%hd145718146033%_)))) - (let ((_%tl145722146043%_ + _%hd146703147018%_)))) + (let ((_%tl146707147028%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e145720146038%_))) - (_%hd145721146041%_ - (let () (declare (not safe)) (##car _%e145720146038%_)))) + (##cdr _%e146705147023%_))) + (_%hd146706147026%_ + (let () (declare (not safe)) (##car _%e146705147023%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145721146041%_)) + (gx#identifier? _%hd146706147026%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145721146041%_)) + (gx#stx-eq? '%#ref _%hd146706147026%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145722146043%_)) - (let ((_%e145723146046%_ + (gx#stx-pair? _%tl146707147028%_)) + (let ((_%e146708147031%_ (let () (declare (not safe)) - (gx#stx-e _%tl145722146043%_)))) - (let ((_%tl145725146051%_ + (gx#stx-e _%tl146707147028%_)))) + (let ((_%tl146710147036%_ (let () (declare (not safe)) - (##cdr _%e145723146046%_))) - (_%hd145724146049%_ + (##cdr _%e146708147031%_))) + (_%hd146709147034%_ (let () (declare (not safe)) - (##car _%e145723146046%_)))) + (##car _%e146708147031%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145725146051%_)) + (gx#stx-null? _%tl146710147036%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145719146035%_)) - (letrec ((_%loop145711146054%_ - (lambda (_%hd145709146057%_ - _%xarg145715146059%_) + (gx#stx-null? _%tl146704147020%_)) + (letrec ((_%loop146696147039%_ + (lambda (_%hd146694147042%_ + _%xarg146700147044%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145709146057%_)) - (let ((_%e145712146062%_ + _%hd146694147042%_)) + (let ((_%e146697147047%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd145709146057%_)))) - (let ((_%lp-tl145714146067%_ + (gx#stx-e _%hd146694147042%_)))) + (let ((_%lp-tl146699147052%_ (let () (declare (not safe)) - (##cdr _%e145712146062%_))) - (_%lp-hd145713146065%_ + (##cdr _%e146697147047%_))) + (_%lp-hd146698147050%_ (let () (declare (not safe)) - (##car _%e145712146062%_)))) + (##car _%e146697147047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145713146065%_)) - (let ((_%e145726146070%_ + (gx#stx-pair? _%lp-hd146698147050%_)) + (let ((_%e146711147055%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145713146065%_)))) - (let ((_%tl145728146075%_ + (gx#stx-e _%lp-hd146698147050%_)))) + (let ((_%tl146713147060%_ (let () (declare (not safe)) - (##cdr _%e145726146070%_))) - (_%hd145727146073%_ + (##cdr _%e146711147055%_))) + (_%hd146712147058%_ (let () (declare (not safe)) - (##car _%e145726146070%_)))) + (##car _%e146711147055%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145727146073%_)) + (gx#identifier? _%hd146712147058%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145727146073%_)) + (gx#stx-eq? '%#ref _%hd146712147058%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145728146075%_)) - (let ((_%e145729146078%_ + (gx#stx-pair? _%tl146713147060%_)) + (let ((_%e146714147063%_ (let () (declare (not safe)) (gx#stx-e - _%tl145728146075%_)))) - (let ((_%tl145731146083%_ + _%tl146713147060%_)))) + (let ((_%tl146716147068%_ (let () (declare (not safe)) - (##cdr _%e145729146078%_))) - (_%hd145730146081%_ + (##cdr _%e146714147063%_))) + (_%hd146715147066%_ (let () (declare (not safe)) - (##car _%e145729146078%_)))) + (##car _%e146714147063%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145731146083%_)) - (_%loop145711146054%_ - _%lp-tl145714146067%_ - (cons _%hd145730146081%_ - _%xarg145715146059%_)) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)))) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)))) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)))) - (let ((_%xarg145716146086%_ (reverse _%xarg145715146059%_))) + _%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? _%tl145686145966%_)) - (let ((_%L146089%_ _%hd145724146049%_) - (_%L146090%_ _%xarg145716146086%_) - (_%L146091%_ _%hd145706146020%_) - (_%L146092%_ _%hd145697145996%_) - (_%L146093%_ _%tl145677145939%_) - (_%L146094%_ _%arg145683145958%_)) - (if (and (let ((__tmp149219 - (let ((__tmp149220 - (lambda (_%g146137146140%_ - _%g146138146142%_) - (cons _%g146137146140%_ - _%g146138146142%_)))) + (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 - __tmp149220 + __tmp150205 '() - _%L146094%_)))) + _%L147079%_)))) (declare (not safe)) - (gx#identifier-list? __tmp149219)) + (gx#identifier-list? __tmp150204)) (let () (declare (not safe)) - (gx#identifier? _%L146093%_)) + (gx#identifier? _%L147078%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L146092%_ + _%L147077%_ 'apply)) - (let ((__tmp149223 - (length (let ((__tmp149224 - (lambda (_%g146144146147%_ - _%g146145146149%_) - (cons _%g146144146147%_ - _%g146145146149%_)))) + (let ((__tmp150208 + (length (let ((__tmp150209 + (lambda (_%g147129147132%_ + _%g147130147134%_) + (cons _%g147129147132%_ + _%g147130147134%_)))) (declare (not safe)) (__foldr1 - __tmp149224 + __tmp150209 '() - _%L146094%_)))) - (__tmp149221 - (length (let ((__tmp149222 - (lambda (_%g146151146154%_ - _%g146152146156%_) - (cons _%g146151146154%_ - _%g146152146156%_)))) + _%L147079%_)))) + (__tmp150206 + (length (let ((__tmp150207 + (lambda (_%g147136147139%_ + _%g147137147141%_) + (cons _%g147136147139%_ + _%g147137147141%_)))) (declare (not safe)) (__foldr1 - __tmp149222 + __tmp150207 '() - _%L146090%_))))) + _%L147075%_))))) (declare (not safe)) - (##fx= __tmp149223 __tmp149221)) - (let ((__tmp149227 - (let ((__tmp149228 - (lambda (_%g146158146161%_ - _%g146159146163%_) - (cons _%g146158146161%_ - _%g146159146163%_)))) + (##fx= __tmp150208 __tmp150206)) + (let ((__tmp150212 + (let ((__tmp150213 + (lambda (_%g147143147146%_ + _%g147144147148%_) + (cons _%g147143147146%_ + _%g147144147148%_)))) (declare (not safe)) (__foldr1 - __tmp149228 + __tmp150213 '() - _%L146094%_))) - (__tmp149225 - (let ((__tmp149226 - (lambda (_%g146165146168%_ - _%g146166146170%_) - (cons _%g146165146168%_ - _%g146166146170%_)))) + _%L147079%_))) + (__tmp150210 + (let ((__tmp150211 + (lambda (_%g147150147153%_ + _%g147151147155%_) + (cons _%g147150147153%_ + _%g147151147155%_)))) (declare (not safe)) (__foldr1 - __tmp149226 + __tmp150211 '() - _%L146090%_)))) + _%L147075%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp149227 - __tmp149225)) + __tmp150212 + __tmp150210)) (let () (declare (not safe)) (gx#free-identifier=? - _%L146093%_ - _%L146089%_)) - (not (let ((__tmp149232 - (lambda (_%g146172146174%_) + _%L147078%_ + _%L147074%_)) + (not (let ((__tmp150217 + (lambda (_%g147157147159%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146172146174%_ - _%L146091%_)))) - (__tmp149229 - (let ((__tmp149231 - (lambda (_%g146176146179%_ - _%g146177146181%_) - (cons _%g146176146179%_ - _%g146177146181%_))) - (__tmp149230 - (cons _%L146093%_ '()))) + _%g147157147159%_ + _%L147076%_)))) + (__tmp150214 + (let ((__tmp150216 + (lambda (_%g147161147164%_ + _%g147162147166%_) + (cons _%g147161147164%_ + _%g147162147166%_))) + (__tmp150215 + (cons _%L147078%_ '()))) (declare (not safe)) (__foldr1 - __tmp149231 - __tmp149230 - _%L146094%_)))) + __tmp150216 + __tmp150215 + _%L147079%_)))) (declare (not safe)) - (__find __tmp149232 __tmp149229)))) - (_%__kont147944147945%_ - _%L146089%_ - _%L146090%_ - _%L146091%_ - _%L146092%_ - _%L146093%_ - _%L146094%_) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_))) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145711146054%_ - _%target145708146025%_ + (__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%_ '())) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)))) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)))) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)))) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)) - (_%__match148049148050%_ - _%e145672145929%_ - _%hd145673145932%_ - _%tl145674145934%_ - _%e145684145961%_ - _%hd145685145964%_ - _%tl145686145966%_ - _%e145687145969%_ - _%hd145688145972%_ - _%tl145689145974%_ - _%e145690145977%_ - _%hd145691145980%_ - _%tl145692145982%_ - _%e145693145985%_ - _%hd145694145988%_ - _%tl145695145990%_ - _%e145696145993%_ - _%hd145697145996%_ - _%tl145698145998%_ - _%e145699146001%_ - _%hd145700146004%_ - _%tl145701146006%_ - _%e145702146009%_ - _%hd145703146012%_ - _%tl145704146014%_ - _%e145705146017%_ - _%hd145706146020%_ - _%tl145707146022%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145678145942%_ - _%target145675145937%_ + (_%__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%_ '())))) - (_%__match147967147968%_ - (lambda (_%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_) - (letrec ((_%loop145630146202%_ - (lambda (_%hd145628146205%_ - _%arg145634146207%_) + (_%__match148952148953%_ + (lambda (_%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_) + (letrec ((_%loop146615147187%_ + (lambda (_%hd146613147190%_ + _%arg146619147192%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145628146205%_)) - (let ((_%e145631146210%_ + _%hd146613147190%_)) + (let ((_%e146616147195%_ (let () (declare (not safe)) (gx#stx-e - _%hd145628146205%_)))) - (let ((_%lp-tl145633146215%_ + _%hd146613147190%_)))) + (let ((_%lp-tl146618147200%_ (let () (declare (not safe)) - (##cdr _%e145631146210%_))) - (_%lp-hd145632146213%_ + (##cdr _%e146616147195%_))) + (_%lp-hd146617147198%_ (let () (declare (not safe)) - (##car _%e145631146210%_)))) - (_%loop145630146202%_ - _%lp-tl145633146215%_ - (cons _%lp-hd145632146213%_ - _%arg145634146207%_)))) - (let ((_%arg145635146218%_ - (reverse _%arg145634146207%_))) + (##car _%e146616147195%_)))) + (_%loop146615147187%_ + _%lp-tl146618147200%_ + (cons _%lp-hd146617147198%_ + _%arg146619147192%_)))) + (let ((_%arg146620147203%_ + (reverse _%arg146619147192%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145626146194%_)) - (let ((_%e145636146221%_ + _%tl146611147179%_)) + (let ((_%e146621147206%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145626146194%_)))) - (let ((_%tl145638146226%_ + (gx#stx-e _%tl146611147179%_)))) + (let ((_%tl146623147211%_ (let () (declare (not safe)) - (##cdr _%e145636146221%_))) - (_%hd145637146224%_ + (##cdr _%e146621147206%_))) + (_%hd146622147209%_ (let () (declare (not safe)) - (##car _%e145636146221%_)))) + (##car _%e146621147206%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145637146224%_)) - (let ((_%e145639146229%_ + (gx#stx-pair? _%hd146622147209%_)) + (let ((_%e146624147214%_ (let () (declare (not safe)) - (gx#stx-e _%hd145637146224%_)))) - (let ((_%tl145641146234%_ + (gx#stx-e _%hd146622147209%_)))) + (let ((_%tl146626147219%_ (let () (declare (not safe)) - (##cdr _%e145639146229%_))) - (_%hd145640146232%_ + (##cdr _%e146624147214%_))) + (_%hd146625147217%_ (let () (declare (not safe)) - (##car _%e145639146229%_)))) + (##car _%e146624147214%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145640146232%_)) + (gx#identifier? _%hd146625147217%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145640146232%_)) + (gx#stx-eq? '%#call _%hd146625147217%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145641146234%_)) - (let ((_%e145642146237%_ + (gx#stx-pair? _%tl146626147219%_)) + (let ((_%e146627147222%_ (let () (declare (not safe)) (gx#stx-e - _%tl145641146234%_)))) - (let ((_%tl145644146242%_ + _%tl146626147219%_)))) + (let ((_%tl146629147227%_ (let () (declare (not safe)) - (##cdr _%e145642146237%_))) - (_%hd145643146240%_ + (##cdr _%e146627147222%_))) + (_%hd146628147225%_ (let () (declare (not safe)) - (##car _%e145642146237%_)))) + (##car _%e146627147222%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145643146240%_)) - (let ((_%e145645146245%_ + _%hd146628147225%_)) + (let ((_%e146630147230%_ (let () (declare (not safe)) (gx#stx-e - _%hd145643146240%_)))) - (let ((_%tl145647146250%_ + _%hd146628147225%_)))) + (let ((_%tl146632147235%_ (let () (declare (not safe)) - (##cdr _%e145645146245%_))) - (_%hd145646146248%_ + (##cdr _%e146630147230%_))) + (_%hd146631147233%_ (let () (declare (not safe)) - (##car _%e145645146245%_)))) + (##car _%e146630147230%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145646146248%_)) + _%hd146631147233%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145646146248%_)) + _%hd146631147233%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145647146250%_)) - (let ((_%e145648146253%_ + (gx#stx-pair? _%tl146632147235%_)) + (let ((_%e146633147238%_ (let () (declare (not safe)) - (gx#stx-e _%tl145647146250%_)))) - (let ((_%tl145650146258%_ + (gx#stx-e _%tl146632147235%_)))) + (let ((_%tl146635147243%_ (let () (declare (not safe)) - (##cdr _%e145648146253%_))) - (_%hd145649146256%_ + (##cdr _%e146633147238%_))) + (_%hd146634147241%_ (let () (declare (not safe)) - (##car _%e145648146253%_)))) + (##car _%e146633147238%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145650146258%_)) + (gx#stx-null? _%tl146635147243%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145644146242%_)) - (let ((_%__splice147942147943%_ + (gx#stx-pair/null? _%tl146629147227%_)) + (let ((_%__splice148927148928%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145644146242%_ + _%tl146629147227%_ '0)))) - (let ((_%tl145653146263%_ + (let ((_%tl146638147248%_ (let () (declare (not safe)) (##vector-ref - _%__splice147942147943%_ + _%__splice148927148928%_ '1))) - (_%target145651146261%_ + (_%target146636147246%_ (let () (declare (not safe)) (##vector-ref - _%__splice147942147943%_ + _%__splice148927148928%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145653146263%_)) - (letrec ((_%loop145654146266%_ - (lambda (_%hd145652146269%_ - _%xarg145658146271%_) + _%tl146638147248%_)) + (letrec ((_%loop146639147251%_ + (lambda (_%hd146637147254%_ + _%xarg146643147256%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145652146269%_)) - (let ((_%e145655146274%_ + _%hd146637147254%_)) + (let ((_%e146640147259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd145652146269%_)))) - (let ((_%lp-tl145657146279%_ + (gx#stx-e _%hd146637147254%_)))) + (let ((_%lp-tl146642147264%_ (let () (declare (not safe)) - (##cdr _%e145655146274%_))) - (_%lp-hd145656146277%_ + (##cdr _%e146640147259%_))) + (_%lp-hd146641147262%_ (let () (declare (not safe)) - (##car _%e145655146274%_)))) + (##car _%e146640147259%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145656146277%_)) - (let ((_%e145660146282%_ + (gx#stx-pair? _%lp-hd146641147262%_)) + (let ((_%e146645147267%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145656146277%_)))) - (let ((_%tl145662146287%_ + (gx#stx-e _%lp-hd146641147262%_)))) + (let ((_%tl146647147272%_ (let () (declare (not safe)) - (##cdr _%e145660146282%_))) - (_%hd145661146285%_ + (##cdr _%e146645147267%_))) + (_%hd146646147270%_ (let () (declare (not safe)) - (##car _%e145660146282%_)))) + (##car _%e146645147267%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145661146285%_)) + (gx#identifier? _%hd146646147270%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145661146285%_)) + _%hd146646147270%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145662146287%_)) - (let ((_%e145663146290%_ + _%tl146647147272%_)) + (let ((_%e146648147275%_ (let () (declare (not safe)) (gx#stx-e - _%tl145662146287%_)))) - (let ((_%tl145665146295%_ + _%tl146647147272%_)))) + (let ((_%tl146650147280%_ (let () (declare (not safe)) - (##cdr _%e145663146290%_))) - (_%hd145664146293%_ + (##cdr _%e146648147275%_))) + (_%hd146649147278%_ (let () (declare (not safe)) - (##car _%e145663146290%_)))) + (##car _%e146648147275%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145665146295%_)) - (_%loop145654146266%_ - _%lp-tl145657146279%_ - (cons _%hd145664146293%_ - _%xarg145658146271%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (let ((_%xarg145659146298%_ - (reverse _%xarg145658146271%_))) + _%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? _%tl145638146226%_)) - (let ((_%L146301%_ _%xarg145659146298%_) - (_%L146302%_ _%hd145649146256%_) - (_%L146303%_ _%arg145635146218%_)) - (if (and (let ((__tmp149233 - (let ((__tmp149234 - (lambda (_%g146331146334%_ - _%g146332146336%_) - (cons _%g146331146334%_ - _%g146332146336%_)))) + (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 - __tmp149234 + __tmp150219 '() - _%L146303%_)))) + _%L147288%_)))) (declare (not safe)) - (gx#identifier-list? __tmp149233)) - (let ((__tmp149237 - (length (let ((__tmp149238 - (lambda (_%g146338146341%_ + (gx#identifier-list? __tmp150218)) + (let ((__tmp150222 + (length (let ((__tmp150223 + (lambda (_%g147323147326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146339146343%_) - (cons _%g146338146341%_ _%g146339146343%_)))) + _%g147324147328%_) + (cons _%g147323147326%_ _%g147324147328%_)))) (declare (not safe)) - (__foldr1 __tmp149238 '() _%L146303%_)))) + (__foldr1 __tmp150223 '() _%L147288%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp149235 - (length (let ((__tmp149236 - (lambda (_%g146345146348%_ + (__tmp150220 + (length (let ((__tmp150221 + (lambda (_%g147330147333%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146346146350%_) - (cons _%g146345146348%_ _%g146346146350%_)))) + _%g147331147335%_) + (cons _%g147330147333%_ _%g147331147335%_)))) (declare (not safe)) - (__foldr1 __tmp149236 '() _%L146301%_))))) + (__foldr1 __tmp150221 '() _%L147286%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp149237 __tmp149235)) - (let ((__tmp149241 - (let ((__tmp149242 - (lambda (_%g146352146355%_ - _%g146353146357%_) - (cons _%g146352146355%_ - _%g146353146357%_)))) + (##fx= __tmp150222 __tmp150220)) + (let ((__tmp150226 + (let ((__tmp150227 + (lambda (_%g147337147340%_ + _%g147338147342%_) + (cons _%g147337147340%_ + _%g147338147342%_)))) (declare (not safe)) (__foldr1 - __tmp149242 + __tmp150227 '() - _%L146303%_))) - (__tmp149239 - (let ((__tmp149240 - (lambda (_%g146359146362%_ - _%g146360146364%_) - (cons _%g146359146362%_ - _%g146360146364%_)))) + _%L147288%_))) + (__tmp150224 + (let ((__tmp150225 + (lambda (_%g147344147347%_ + _%g147345147349%_) + (cons _%g147344147347%_ + _%g147345147349%_)))) (declare (not safe)) (__foldr1 - __tmp149240 + __tmp150225 '() - _%L146301%_)))) + _%L147286%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp149241 - __tmp149239)) - (not (let ((__tmp149245 - (lambda (_%g146366146368%_) + __tmp150226 + __tmp150224)) + (not (let ((__tmp150230 + (lambda (_%g147351147353%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146366146368%_ - _%L146302%_)))) - (__tmp149243 - (let ((__tmp149244 - (lambda (_%g146370146373%_ + _%g147351147353%_ + _%L147287%_)))) + (__tmp150228 + (let ((__tmp150229 + (lambda (_%g147355147358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146371146375%_) - (cons _%g146370146373%_ _%g146371146375%_)))) + _%g147356147360%_) + (cons _%g147355147358%_ _%g147356147360%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp149244 + __tmp150229 '() - _%L146303%_)))) + _%L147288%_)))) (declare (not safe)) - (__find __tmp149245 __tmp149243)))) - (_%__kont147938147939%_ - _%L146301%_ - _%L146302%_ - _%L146303%_) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145654146266%_ - _%target145651146261%_ + (__find __tmp150230 __tmp150228)))) + (_%__kont148923148924%_ + _%L147286%_ + _%L147287%_ + _%L147288%_) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146639147251%_ + _%target146636147246%_ '())) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145630146202%_ - _%target145627146197%_ + (_%__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? _%__stx147936147937%_)) - (let ((_%e145624146189%_ + (gx#stx-pair? _%__stx148921148922%_)) + (let ((_%e146609147174%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147936147937%_)))) - (let ((_%tl145626146194%_ + (gx#stx-e _%__stx148921148922%_)))) + (let ((_%tl146611147179%_ (let () (declare (not safe)) - (##cdr _%e145624146189%_))) - (_%hd145625146192%_ + (##cdr _%e146609147174%_))) + (_%hd146610147177%_ (let () (declare (not safe)) - (##car _%e145624146189%_)))) + (##car _%e146609147174%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd145625146192%_)) - (let ((_%__splice147940147941%_ + (gx#stx-pair/null? _%hd146610147177%_)) + (let ((_%__splice148925148926%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd145625146192%_ + _%hd146610147177%_ '0)))) - (let ((_%tl145629146199%_ + (let ((_%tl146614147184%_ (let () (declare (not safe)) (##vector-ref - _%__splice147940147941%_ + _%__splice148925148926%_ '1))) - (_%target145627146197%_ + (_%target146612147182%_ (let () (declare (not safe)) (##vector-ref - _%__splice147940147941%_ + _%__splice148925148926%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145629146199%_)) - (_%__match147967147968%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_) - (_%__match147979147980%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%__splice147940147941%_ - _%target145627146197%_ - _%tl145629146199%_)))) + _%tl146614147184%_)) + (_%__match148952148953%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145626146194%_)) - (let ((_%e145739145796%_ + (gx#stx-pair? _%tl146611147179%_)) + (let ((_%e146724146781%_ (let () (declare (not safe)) (gx#stx-e - _%tl145626146194%_)))) - (let ((_%tl145741145801%_ + _%tl146611147179%_)))) + (let ((_%tl146726146786%_ (let () (declare (not safe)) - (##cdr _%e145739145796%_))) - (_%hd145740145799%_ + (##cdr _%e146724146781%_))) + (_%hd146725146784%_ (let () (declare (not safe)) - (##car _%e145739145796%_)))) + (##car _%e146724146781%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145740145799%_)) - (let ((_%e145742145804%_ + _%hd146725146784%_)) + (let ((_%e146727146789%_ (let () (declare (not safe)) (gx#stx-e - _%hd145740145799%_)))) - (let ((_%tl145744145809%_ + _%hd146725146784%_)))) + (let ((_%tl146729146794%_ (let () (declare (not safe)) - (##cdr _%e145742145804%_))) - (_%hd145743145807%_ + (##cdr _%e146727146789%_))) + (_%hd146728146792%_ (let () (declare (not safe)) - (##car _%e145742145804%_)))) + (##car _%e146727146789%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145743145807%_)) + _%hd146728146792%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145743145807%_)) + (gx#stx-eq? '%#call _%hd146728146792%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145744145809%_)) - (let ((_%e145745145812%_ + (gx#stx-pair? _%tl146729146794%_)) + (let ((_%e146730146797%_ (let () (declare (not safe)) - (gx#stx-e _%tl145744145809%_)))) - (let ((_%tl145747145817%_ + (gx#stx-e _%tl146729146794%_)))) + (let ((_%tl146732146802%_ (let () (declare (not safe)) - (##cdr _%e145745145812%_))) - (_%hd145746145815%_ + (##cdr _%e146730146797%_))) + (_%hd146731146800%_ (let () (declare (not safe)) - (##car _%e145745145812%_)))) + (##car _%e146730146797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145746145815%_)) - (let ((_%e145748145820%_ + (gx#stx-pair? _%hd146731146800%_)) + (let ((_%e146733146805%_ (let () (declare (not safe)) - (gx#stx-e _%hd145746145815%_)))) - (let ((_%tl145750145825%_ + (gx#stx-e _%hd146731146800%_)))) + (let ((_%tl146735146810%_ (let () (declare (not safe)) - (##cdr _%e145748145820%_))) - (_%hd145749145823%_ + (##cdr _%e146733146805%_))) + (_%hd146734146808%_ (let () (declare (not safe)) - (##car _%e145748145820%_)))) + (##car _%e146733146805%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145749145823%_)) + _%hd146734146808%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145749145823%_)) + _%hd146734146808%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145750145825%_)) - (let ((_%e145751145828%_ + _%tl146735146810%_)) + (let ((_%e146736146813%_ (let () (declare (not safe)) (gx#stx-e - _%tl145750145825%_)))) - (let ((_%tl145753145833%_ + _%tl146735146810%_)))) + (let ((_%tl146738146818%_ (let () (declare (not safe)) - (##cdr _%e145751145828%_))) - (_%hd145752145831%_ + (##cdr _%e146736146813%_))) + (_%hd146737146816%_ (let () (declare (not safe)) - (##car _%e145751145828%_)))) + (##car _%e146736146813%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145753145833%_)) + _%tl146738146818%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145747145817%_)) - (let ((_%e145754145836%_ + (gx#stx-pair? _%tl146732146802%_)) + (let ((_%e146739146821%_ (let () (declare (not safe)) - (gx#stx-e _%tl145747145817%_)))) - (let ((_%tl145756145841%_ + (gx#stx-e _%tl146732146802%_)))) + (let ((_%tl146741146826%_ (let () (declare (not safe)) - (##cdr _%e145754145836%_))) - (_%hd145755145839%_ + (##cdr _%e146739146821%_))) + (_%hd146740146824%_ (let () (declare (not safe)) - (##car _%e145754145836%_)))) + (##car _%e146739146821%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145755145839%_)) - (let ((_%e145757145844%_ + (gx#stx-pair? _%hd146740146824%_)) + (let ((_%e146742146829%_ (let () (declare (not safe)) - (gx#stx-e _%hd145755145839%_)))) - (let ((_%tl145759145849%_ + (gx#stx-e _%hd146740146824%_)))) + (let ((_%tl146744146834%_ (let () (declare (not safe)) - (##cdr _%e145757145844%_))) - (_%hd145758145847%_ + (##cdr _%e146742146829%_))) + (_%hd146743146832%_ (let () (declare (not safe)) - (##car _%e145757145844%_)))) + (##car _%e146742146829%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145758145847%_)) + (gx#identifier? _%hd146743146832%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145758145847%_)) + _%hd146743146832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145759145849%_)) - (let ((_%e145760145852%_ + _%tl146744146834%_)) + (let ((_%e146745146837%_ (let () (declare (not safe)) (gx#stx-e - _%tl145759145849%_)))) - (let ((_%tl145762145857%_ + _%tl146744146834%_)))) + (let ((_%tl146747146842%_ (let () (declare (not safe)) - (##cdr _%e145760145852%_))) - (_%hd145761145855%_ + (##cdr _%e146745146837%_))) + (_%hd146746146840%_ (let () (declare (not safe)) - (##car _%e145760145852%_)))) + (##car _%e146745146837%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145762145857%_)) + _%tl146747146842%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145756145841%_)) - (let ((_%e145763145860%_ + _%tl146741146826%_)) + (let ((_%e146748146845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145756145841%_)))) - (let ((_%tl145765145865%_ + (gx#stx-e _%tl146741146826%_)))) + (let ((_%tl146750146850%_ (let () (declare (not safe)) - (##cdr _%e145763145860%_))) - (_%hd145764145863%_ + (##cdr _%e146748146845%_))) + (_%hd146749146848%_ (let () (declare (not safe)) - (##car _%e145763145860%_)))) + (##car _%e146748146845%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145764145863%_)) - (let ((_%e145766145868%_ + (gx#stx-pair? _%hd146749146848%_)) + (let ((_%e146751146853%_ (let () (declare (not safe)) - (gx#stx-e _%hd145764145863%_)))) - (let ((_%tl145768145873%_ + (gx#stx-e _%hd146749146848%_)))) + (let ((_%tl146753146858%_ (let () (declare (not safe)) - (##cdr _%e145766145868%_))) - (_%hd145767145871%_ + (##cdr _%e146751146853%_))) + (_%hd146752146856%_ (let () (declare (not safe)) - (##car _%e145766145868%_)))) + (##car _%e146751146853%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145767145871%_)) + (gx#identifier? _%hd146752146856%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145767145871%_)) + (gx#stx-eq? '%#ref _%hd146752146856%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145768145873%_)) - (let ((_%e145769145876%_ + (gx#stx-pair? _%tl146753146858%_)) + (let ((_%e146754146861%_ (let () (declare (not safe)) (gx#stx-e - _%tl145768145873%_)))) - (let ((_%tl145771145881%_ + _%tl146753146858%_)))) + (let ((_%tl146756146866%_ (let () (declare (not safe)) - (##cdr _%e145769145876%_))) - (_%hd145770145879%_ + (##cdr _%e146754146861%_))) + (_%hd146755146864%_ (let () (declare (not safe)) - (##car _%e145769145876%_)))) + (##car _%e146754146861%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145771145881%_)) + _%tl146756146866%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145765145865%_)) + _%tl146750146850%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145741145801%_)) - (_%__match148077148078%_ - _%e145624146189%_ - _%hd145625146192%_ - _%tl145626146194%_ - _%e145739145796%_ - _%hd145740145799%_ - _%tl145741145801%_ - _%e145742145804%_ - _%hd145743145807%_ - _%tl145744145809%_ - _%e145745145812%_ - _%hd145746145815%_ - _%tl145747145817%_ - _%e145748145820%_ - _%hd145749145823%_ - _%tl145750145825%_ - _%e145751145828%_ - _%hd145752145831%_ - _%tl145753145833%_ - _%e145754145836%_ - _%hd145755145839%_ - _%tl145756145841%_ - _%e145757145844%_ - _%hd145758145847%_ - _%tl145759145849%_ - _%e145760145852%_ - _%hd145761145855%_ - _%tl145762145857%_ - _%e145763145860%_ - _%hd145764145863%_ - _%tl145765145865%_ - _%e145766145868%_ - _%hd145767145871%_ - _%tl145768145873%_ - _%e145769145876%_ - _%hd145770145879%_ - _%tl145771145881%_) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)))) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)) - (_%__kont147952147953%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147952147953%_)))) - (_%__kont147952147953%_))))) - (_%__kont147952147953%_))))))) - (_%dispatch-case-e144924%_ - (lambda (_%hd145075%_ _%body145076%_) - (let* ((_%form145078%_ - (cons _%hd145075%_ (cons _%body145076%_ '()))) - (_%__stx148080148081%_ _%form145078%_) - (_%g145082145206%_ + _%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" - _%__stx148080148081%_))))) - (let ((_%__kont148082148083%_ - (lambda (_%L145577%_ _%L145578%_ _%L145579%_) - (let ((__tmp149246 + _%__stx149065149066%_))))) + (let ((_%__kont149067149068%_ + (lambda (_%L146562%_ _%L146563%_ _%L146564%_) + (let ((__tmp150231 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145578%_ '())))) + (cons _%L146563%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144920%_ - __tmp149246)))) - (_%__kont148088148089%_ - (lambda (_%L145425%_ - _%L145426%_ - _%L145427%_ - _%L145428%_) - (let ((__tmp149247 + _%self145905%_ + __tmp150231)))) + (_%__kont149073149074%_ + (lambda (_%L146410%_ + _%L146411%_ + _%L146412%_ + _%L146413%_) + (let ((__tmp150232 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145425%_ '())))) + (cons _%L146410%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144920%_ - __tmp149247)))) - (_%__kont148092148093%_ - (lambda (_%L145291%_ _%L145292%_ _%L145293%_) - (let ((__tmp149248 + _%self145905%_ + __tmp150232)))) + (_%__kont149077149078%_ + (lambda (_%L146276%_ _%L146277%_ _%L146278%_) + (let ((__tmp150233 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145291%_ '())))) + (cons _%L146276%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144920%_ - __tmp149248))))) - (let* ((_%__match148189148190%_ - (lambda (_%e145172145211%_ - _%hd145173145214%_ - _%tl145174145216%_ - _%e145175145219%_ - _%hd145176145222%_ - _%tl145177145224%_ - _%e145178145227%_ - _%hd145179145230%_ - _%tl145180145232%_ - _%e145181145235%_ - _%hd145182145238%_ - _%tl145183145240%_ - _%e145184145243%_ - _%hd145185145246%_ - _%tl145186145248%_ - _%e145187145251%_ - _%hd145188145254%_ - _%tl145189145256%_ - _%e145190145259%_ - _%hd145191145262%_ - _%tl145192145264%_ - _%e145193145267%_ - _%hd145194145270%_ - _%tl145195145272%_ - _%e145196145275%_ - _%hd145197145278%_ - _%tl145198145280%_) + _%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? _%tl145192145264%_)) - (let ((_%e145199145283%_ + (gx#stx-pair? _%tl146177146249%_)) + (let ((_%e146184146268%_ (let () (declare (not safe)) - (gx#stx-e _%tl145192145264%_)))) - (let ((_%tl145201145288%_ + (gx#stx-e _%tl146177146249%_)))) + (let ((_%tl146186146273%_ (let () (declare (not safe)) - (##cdr _%e145199145283%_))) - (_%hd145200145286%_ + (##cdr _%e146184146268%_))) + (_%hd146185146271%_ (let () (declare (not safe)) - (##car _%e145199145283%_)))) + (##car _%e146184146268%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145201145288%_)) + _%tl146186146273%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145177145224%_)) - (_%__kont148092148093%_ - _%hd145197145278%_ - _%hd145188145254%_ - _%hd145173145214%_) + _%tl146162146209%_)) + (_%__kont149077149078%_ + _%hd146182146263%_ + _%hd146173146239%_ + _%hd146158146199%_) (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g145082145206%_))))) - (_%__match148119148120%_ - (lambda (_%e145133145329%_ - _%hd145134145332%_ - _%tl145135145334%_ - _%__splice148090148091%_ - _%target145136145337%_ - _%tl145138145339%_) - (letrec ((_%loop145139145342%_ - (lambda (_%hd145137145345%_ - _%arg145143145347%_) + (_%g146067146191%_))))) + (_%__match149104149105%_ + (lambda (_%e146118146314%_ + _%hd146119146317%_ + _%tl146120146319%_ + _%__splice149075149076%_ + _%target146121146322%_ + _%tl146123146324%_) + (letrec ((_%loop146124146327%_ + (lambda (_%hd146122146330%_ + _%arg146128146332%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145137145345%_)) - (let ((_%e145140145350%_ + _%hd146122146330%_)) + (let ((_%e146125146335%_ (let () (declare (not safe)) (gx#stx-e - _%hd145137145345%_)))) - (let ((_%lp-tl145142145355%_ + _%hd146122146330%_)))) + (let ((_%lp-tl146127146340%_ (let () (declare (not safe)) - (##cdr _%e145140145350%_))) - (_%lp-hd145141145353%_ + (##cdr _%e146125146335%_))) + (_%lp-hd146126146338%_ (let () (declare (not safe)) - (##car _%e145140145350%_)))) - (_%loop145139145342%_ - _%lp-tl145142145355%_ - (cons _%lp-hd145141145353%_ - _%arg145143145347%_)))) - (let ((_%arg145144145358%_ - (reverse _%arg145143145347%_))) + (##car _%e146125146335%_)))) + (_%loop146124146327%_ + _%lp-tl146127146340%_ + (cons _%lp-hd146126146338%_ + _%arg146128146332%_)))) + (let ((_%arg146129146343%_ + (reverse _%arg146128146332%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145135145334%_)) - (let ((_%e145145145361%_ + _%tl146120146319%_)) + (let ((_%e146130146346%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145135145334%_)))) - (let ((_%tl145147145366%_ + (gx#stx-e _%tl146120146319%_)))) + (let ((_%tl146132146351%_ (let () (declare (not safe)) - (##cdr _%e145145145361%_))) - (_%hd145146145364%_ + (##cdr _%e146130146346%_))) + (_%hd146131146349%_ (let () (declare (not safe)) - (##car _%e145145145361%_)))) + (##car _%e146130146346%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145146145364%_)) - (let ((_%e145148145369%_ + (gx#stx-pair? _%hd146131146349%_)) + (let ((_%e146133146354%_ (let () (declare (not safe)) - (gx#stx-e _%hd145146145364%_)))) - (let ((_%tl145150145374%_ + (gx#stx-e _%hd146131146349%_)))) + (let ((_%tl146135146359%_ (let () (declare (not safe)) - (##cdr _%e145148145369%_))) - (_%hd145149145372%_ + (##cdr _%e146133146354%_))) + (_%hd146134146357%_ (let () (declare (not safe)) - (##car _%e145148145369%_)))) + (##car _%e146133146354%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145149145372%_)) + (gx#identifier? _%hd146134146357%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145149145372%_)) + (gx#stx-eq? '%#call _%hd146134146357%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145150145374%_)) - (let ((_%e145151145377%_ + (gx#stx-pair? _%tl146135146359%_)) + (let ((_%e146136146362%_ (let () (declare (not safe)) (gx#stx-e - _%tl145150145374%_)))) - (let ((_%tl145153145382%_ + _%tl146135146359%_)))) + (let ((_%tl146138146367%_ (let () (declare (not safe)) - (##cdr _%e145151145377%_))) - (_%hd145152145380%_ + (##cdr _%e146136146362%_))) + (_%hd146137146365%_ (let () (declare (not safe)) - (##car _%e145151145377%_)))) + (##car _%e146136146362%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145152145380%_)) - (let ((_%e145154145385%_ + _%hd146137146365%_)) + (let ((_%e146139146370%_ (let () (declare (not safe)) (gx#stx-e - _%hd145152145380%_)))) - (let ((_%tl145156145390%_ + _%hd146137146365%_)))) + (let ((_%tl146141146375%_ (let () (declare (not safe)) - (##cdr _%e145154145385%_))) - (_%hd145155145388%_ + (##cdr _%e146139146370%_))) + (_%hd146140146373%_ (let () (declare (not safe)) - (##car _%e145154145385%_)))) + (##car _%e146139146370%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145155145388%_)) + _%hd146140146373%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145155145388%_)) + _%hd146140146373%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145156145390%_)) - (let ((_%e145157145393%_ + (gx#stx-pair? _%tl146141146375%_)) + (let ((_%e146142146378%_ (let () (declare (not safe)) - (gx#stx-e _%tl145156145390%_)))) - (let ((_%tl145159145398%_ + (gx#stx-e _%tl146141146375%_)))) + (let ((_%tl146144146383%_ (let () (declare (not safe)) - (##cdr _%e145157145393%_))) - (_%hd145158145396%_ + (##cdr _%e146142146378%_))) + (_%hd146143146381%_ (let () (declare (not safe)) - (##car _%e145157145393%_)))) + (##car _%e146142146378%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145159145398%_)) + (gx#stx-null? _%tl146144146383%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145153145382%_)) - (let ((_%e145160145401%_ + (gx#stx-pair? _%tl146138146367%_)) + (let ((_%e146145146386%_ (let () (declare (not safe)) - (gx#stx-e _%tl145153145382%_)))) - (let ((_%tl145162145406%_ + (gx#stx-e _%tl146138146367%_)))) + (let ((_%tl146147146391%_ (let () (declare (not safe)) - (##cdr _%e145160145401%_))) - (_%hd145161145404%_ + (##cdr _%e146145146386%_))) + (_%hd146146146389%_ (let () (declare (not safe)) - (##car _%e145160145401%_)))) + (##car _%e146145146386%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145161145404%_)) - (let ((_%e145163145409%_ + _%hd146146146389%_)) + (let ((_%e146148146394%_ (let () (declare (not safe)) (gx#stx-e - _%hd145161145404%_)))) - (let ((_%tl145165145414%_ + _%hd146146146389%_)))) + (let ((_%tl146150146399%_ (let () (declare (not safe)) - (##cdr _%e145163145409%_))) - (_%hd145164145412%_ + (##cdr _%e146148146394%_))) + (_%hd146149146397%_ (let () (declare (not safe)) - (##car _%e145163145409%_)))) + (##car _%e146148146394%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145164145412%_)) + _%hd146149146397%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145164145412%_)) + _%hd146149146397%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145165145414%_)) - (let ((_%e145166145417%_ + _%tl146150146399%_)) + (let ((_%e146151146402%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145165145414%_)))) - (let ((_%tl145168145422%_ + (gx#stx-e _%tl146150146399%_)))) + (let ((_%tl146153146407%_ (let () (declare (not safe)) - (##cdr _%e145166145417%_))) - (_%hd145167145420%_ + (##cdr _%e146151146402%_))) + (_%hd146152146405%_ (let () (declare (not safe)) - (##car _%e145166145417%_)))) + (##car _%e146151146402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145168145422%_)) + (gx#stx-null? _%tl146153146407%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145147145366%_)) - (_%__kont148088148089%_ - _%hd145167145420%_ - _%hd145158145396%_ - _%tl145138145339%_ - _%arg145144145358%_) - (_%__match148189148190%_ - _%e145133145329%_ - _%hd145134145332%_ - _%tl145135145334%_ - _%e145145145361%_ - _%hd145146145364%_ - _%tl145147145366%_ - _%e145148145369%_ - _%hd145149145372%_ - _%tl145150145374%_ - _%e145151145377%_ - _%hd145152145380%_ - _%tl145153145382%_ - _%e145154145385%_ - _%hd145155145388%_ - _%tl145156145390%_ - _%e145157145393%_ - _%hd145158145396%_ - _%tl145159145398%_ - _%e145160145401%_ - _%hd145161145404%_ - _%tl145162145406%_ - _%e145163145409%_ - _%hd145164145412%_ - _%tl145165145414%_ - _%e145166145417%_ - _%hd145167145420%_ - _%tl145168145422%_)) + (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)) - (_%g145082145206%_))))) - (let () (declare (not safe)) (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145082145206%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g145082145206%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))))) - (let () (declare (not safe)) (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145082145206%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))))) - (let () (declare (not safe)) (_%g145082145206%_))))) - (let () (declare (not safe)) (_%g145082145206%_)))))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145139145342%_ - _%target145136145337%_ + (_%loop146124146327%_ + _%target146121146322%_ '())))) - (_%__match148107148108%_ - (lambda (_%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_) - (letrec ((_%loop145093145478%_ - (lambda (_%hd145091145481%_ - _%arg145097145483%_) + (_%__match149092149093%_ + (lambda (_%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_) + (letrec ((_%loop146078146463%_ + (lambda (_%hd146076146466%_ + _%arg146082146468%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145091145481%_)) - (let ((_%e145094145486%_ + _%hd146076146466%_)) + (let ((_%e146079146471%_ (let () (declare (not safe)) (gx#stx-e - _%hd145091145481%_)))) - (let ((_%lp-tl145096145491%_ + _%hd146076146466%_)))) + (let ((_%lp-tl146081146476%_ (let () (declare (not safe)) - (##cdr _%e145094145486%_))) - (_%lp-hd145095145489%_ + (##cdr _%e146079146471%_))) + (_%lp-hd146080146474%_ (let () (declare (not safe)) - (##car _%e145094145486%_)))) - (_%loop145093145478%_ - _%lp-tl145096145491%_ - (cons _%lp-hd145095145489%_ - _%arg145097145483%_)))) - (let ((_%arg145098145494%_ - (reverse _%arg145097145483%_))) + (##car _%e146079146471%_)))) + (_%loop146078146463%_ + _%lp-tl146081146476%_ + (cons _%lp-hd146080146474%_ + _%arg146082146468%_)))) + (let ((_%arg146083146479%_ + (reverse _%arg146082146468%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145089145470%_)) - (let ((_%e145099145497%_ + _%tl146074146455%_)) + (let ((_%e146084146482%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145089145470%_)))) - (let ((_%tl145101145502%_ + (gx#stx-e _%tl146074146455%_)))) + (let ((_%tl146086146487%_ (let () (declare (not safe)) - (##cdr _%e145099145497%_))) - (_%hd145100145500%_ + (##cdr _%e146084146482%_))) + (_%hd146085146485%_ (let () (declare (not safe)) - (##car _%e145099145497%_)))) + (##car _%e146084146482%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145100145500%_)) - (let ((_%e145102145505%_ + (gx#stx-pair? _%hd146085146485%_)) + (let ((_%e146087146490%_ (let () (declare (not safe)) - (gx#stx-e _%hd145100145500%_)))) - (let ((_%tl145104145510%_ + (gx#stx-e _%hd146085146485%_)))) + (let ((_%tl146089146495%_ (let () (declare (not safe)) - (##cdr _%e145102145505%_))) - (_%hd145103145508%_ + (##cdr _%e146087146490%_))) + (_%hd146088146493%_ (let () (declare (not safe)) - (##car _%e145102145505%_)))) + (##car _%e146087146490%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145103145508%_)) + (gx#identifier? _%hd146088146493%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145103145508%_)) + (gx#stx-eq? '%#call _%hd146088146493%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145104145510%_)) - (let ((_%e145105145513%_ + (gx#stx-pair? _%tl146089146495%_)) + (let ((_%e146090146498%_ (let () (declare (not safe)) (gx#stx-e - _%tl145104145510%_)))) - (let ((_%tl145107145518%_ + _%tl146089146495%_)))) + (let ((_%tl146092146503%_ (let () (declare (not safe)) - (##cdr _%e145105145513%_))) - (_%hd145106145516%_ + (##cdr _%e146090146498%_))) + (_%hd146091146501%_ (let () (declare (not safe)) - (##car _%e145105145513%_)))) + (##car _%e146090146498%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145106145516%_)) - (let ((_%e145108145521%_ + _%hd146091146501%_)) + (let ((_%e146093146506%_ (let () (declare (not safe)) (gx#stx-e - _%hd145106145516%_)))) - (let ((_%tl145110145526%_ + _%hd146091146501%_)))) + (let ((_%tl146095146511%_ (let () (declare (not safe)) - (##cdr _%e145108145521%_))) - (_%hd145109145524%_ + (##cdr _%e146093146506%_))) + (_%hd146094146509%_ (let () (declare (not safe)) - (##car _%e145108145521%_)))) + (##car _%e146093146506%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145109145524%_)) + _%hd146094146509%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145109145524%_)) + _%hd146094146509%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145110145526%_)) - (let ((_%e145111145529%_ + (gx#stx-pair? _%tl146095146511%_)) + (let ((_%e146096146514%_ (let () (declare (not safe)) - (gx#stx-e _%tl145110145526%_)))) - (let ((_%tl145113145534%_ + (gx#stx-e _%tl146095146511%_)))) + (let ((_%tl146098146519%_ (let () (declare (not safe)) - (##cdr _%e145111145529%_))) - (_%hd145112145532%_ + (##cdr _%e146096146514%_))) + (_%hd146097146517%_ (let () (declare (not safe)) - (##car _%e145111145529%_)))) + (##car _%e146096146514%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145113145534%_)) + (gx#stx-null? _%tl146098146519%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145107145518%_)) - (let ((_%__splice148086148087%_ + (gx#stx-pair/null? _%tl146092146503%_)) + (let ((_%__splice149071149072%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145107145518%_ + _%tl146092146503%_ '0)))) - (let ((_%tl145116145539%_ + (let ((_%tl146101146524%_ (let () (declare (not safe)) (##vector-ref - _%__splice148086148087%_ + _%__splice149071149072%_ '1))) - (_%target145114145537%_ + (_%target146099146522%_ (let () (declare (not safe)) (##vector-ref - _%__splice148086148087%_ + _%__splice149071149072%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145116145539%_)) - (letrec ((_%loop145117145542%_ - (lambda (_%hd145115145545%_ - _%xarg145121145547%_) + _%tl146101146524%_)) + (letrec ((_%loop146102146527%_ + (lambda (_%hd146100146530%_ + _%xarg146106146532%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145115145545%_)) - (let ((_%e145118145550%_ + _%hd146100146530%_)) + (let ((_%e146103146535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd145115145545%_)))) - (let ((_%lp-tl145120145555%_ + (gx#stx-e _%hd146100146530%_)))) + (let ((_%lp-tl146105146540%_ (let () (declare (not safe)) - (##cdr _%e145118145550%_))) - (_%lp-hd145119145553%_ + (##cdr _%e146103146535%_))) + (_%lp-hd146104146538%_ (let () (declare (not safe)) - (##car _%e145118145550%_)))) + (##car _%e146103146535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145119145553%_)) - (let ((_%e145123145558%_ + (gx#stx-pair? _%lp-hd146104146538%_)) + (let ((_%e146108146543%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145119145553%_)))) - (let ((_%tl145125145563%_ + (gx#stx-e _%lp-hd146104146538%_)))) + (let ((_%tl146110146548%_ (let () (declare (not safe)) - (##cdr _%e145123145558%_))) - (_%hd145124145561%_ + (##cdr _%e146108146543%_))) + (_%hd146109146546%_ (let () (declare (not safe)) - (##car _%e145123145558%_)))) + (##car _%e146108146543%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145124145561%_)) + (gx#identifier? _%hd146109146546%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145124145561%_)) + _%hd146109146546%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145125145563%_)) - (let ((_%e145126145566%_ + _%tl146110146548%_)) + (let ((_%e146111146551%_ (let () (declare (not safe)) (gx#stx-e - _%tl145125145563%_)))) - (let ((_%tl145128145571%_ + _%tl146110146548%_)))) + (let ((_%tl146113146556%_ (let () (declare (not safe)) - (##cdr _%e145126145566%_))) - (_%hd145127145569%_ + (##cdr _%e146111146551%_))) + (_%hd146112146554%_ (let () (declare (not safe)) - (##car _%e145126145566%_)))) + (##car _%e146111146551%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145128145571%_)) - (_%loop145117145542%_ - _%lp-tl145120145555%_ - (cons _%hd145127145569%_ - _%xarg145121145547%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (let ((_%xarg145122145574%_ - (reverse _%xarg145121145547%_))) + _%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? _%tl145101145502%_)) - (_%__kont148082148083%_ - _%xarg145122145574%_ - _%hd145112145532%_ - _%arg145098145494%_) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145117145542%_ - _%target145114145537%_ + (gx#stx-null? _%tl146086146487%_)) + (_%__kont149067149068%_ + _%xarg146107146559%_ + _%hd146097146517%_ + _%arg146083146479%_) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146102146527%_ + _%target146099146522%_ '())) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145093145478%_ - _%target145090145473%_ + (_%__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? _%__stx148080148081%_)) - (let ((_%e145087145465%_ + (gx#stx-pair? _%__stx149065149066%_)) + (let ((_%e146072146450%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148080148081%_)))) - (let ((_%tl145089145470%_ + (gx#stx-e _%__stx149065149066%_)))) + (let ((_%tl146074146455%_ (let () (declare (not safe)) - (##cdr _%e145087145465%_))) - (_%hd145088145468%_ + (##cdr _%e146072146450%_))) + (_%hd146073146453%_ (let () (declare (not safe)) - (##car _%e145087145465%_)))) + (##car _%e146072146450%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd145088145468%_)) - (let ((_%__splice148084148085%_ + (gx#stx-pair/null? _%hd146073146453%_)) + (let ((_%__splice149069149070%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd145088145468%_ + _%hd146073146453%_ '0)))) - (let ((_%tl145092145475%_ + (let ((_%tl146077146460%_ (let () (declare (not safe)) (##vector-ref - _%__splice148084148085%_ + _%__splice149069149070%_ '1))) - (_%target145090145473%_ + (_%target146075146458%_ (let () (declare (not safe)) (##vector-ref - _%__splice148084148085%_ + _%__splice149069149070%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145092145475%_)) - (_%__match148107148108%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_) - (_%__match148119148120%_ - _%e145087145465%_ - _%hd145088145468%_ - _%tl145089145470%_ - _%__splice148084148085%_ - _%target145090145473%_ - _%tl145092145475%_)))) + _%tl146077146460%_)) + (_%__match149092149093%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145089145470%_)) - (let ((_%e145175145219%_ + (gx#stx-pair? _%tl146074146455%_)) + (let ((_%e146160146204%_ (let () (declare (not safe)) (gx#stx-e - _%tl145089145470%_)))) - (let ((_%tl145177145224%_ + _%tl146074146455%_)))) + (let ((_%tl146162146209%_ (let () (declare (not safe)) - (##cdr _%e145175145219%_))) - (_%hd145176145222%_ + (##cdr _%e146160146204%_))) + (_%hd146161146207%_ (let () (declare (not safe)) - (##car _%e145175145219%_)))) + (##car _%e146160146204%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145176145222%_)) - (let ((_%e145178145227%_ + _%hd146161146207%_)) + (let ((_%e146163146212%_ (let () (declare (not safe)) (gx#stx-e - _%hd145176145222%_)))) - (let ((_%tl145180145232%_ + _%hd146161146207%_)))) + (let ((_%tl146165146217%_ (let () (declare (not safe)) - (##cdr _%e145178145227%_))) - (_%hd145179145230%_ + (##cdr _%e146163146212%_))) + (_%hd146164146215%_ (let () (declare (not safe)) - (##car _%e145178145227%_)))) + (##car _%e146163146212%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145179145230%_)) + _%hd146164146215%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145179145230%_)) + (gx#stx-eq? '%#call _%hd146164146215%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145180145232%_)) - (let ((_%e145181145235%_ + (gx#stx-pair? _%tl146165146217%_)) + (let ((_%e146166146220%_ (let () (declare (not safe)) - (gx#stx-e _%tl145180145232%_)))) - (let ((_%tl145183145240%_ + (gx#stx-e _%tl146165146217%_)))) + (let ((_%tl146168146225%_ (let () (declare (not safe)) - (##cdr _%e145181145235%_))) - (_%hd145182145238%_ + (##cdr _%e146166146220%_))) + (_%hd146167146223%_ (let () (declare (not safe)) - (##car _%e145181145235%_)))) + (##car _%e146166146220%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145182145238%_)) - (let ((_%e145184145243%_ + (gx#stx-pair? _%hd146167146223%_)) + (let ((_%e146169146228%_ (let () (declare (not safe)) - (gx#stx-e _%hd145182145238%_)))) - (let ((_%tl145186145248%_ + (gx#stx-e _%hd146167146223%_)))) + (let ((_%tl146171146233%_ (let () (declare (not safe)) - (##cdr _%e145184145243%_))) - (_%hd145185145246%_ + (##cdr _%e146169146228%_))) + (_%hd146170146231%_ (let () (declare (not safe)) - (##car _%e145184145243%_)))) + (##car _%e146169146228%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145185145246%_)) + _%hd146170146231%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145185145246%_)) + _%hd146170146231%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145186145248%_)) - (let ((_%e145187145251%_ + _%tl146171146233%_)) + (let ((_%e146172146236%_ (let () (declare (not safe)) (gx#stx-e - _%tl145186145248%_)))) - (let ((_%tl145189145256%_ + _%tl146171146233%_)))) + (let ((_%tl146174146241%_ (let () (declare (not safe)) - (##cdr _%e145187145251%_))) - (_%hd145188145254%_ + (##cdr _%e146172146236%_))) + (_%hd146173146239%_ (let () (declare (not safe)) - (##car _%e145187145251%_)))) + (##car _%e146172146236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145189145256%_)) + _%tl146174146241%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145183145240%_)) - (let ((_%e145190145259%_ + (gx#stx-pair? _%tl146168146225%_)) + (let ((_%e146175146244%_ (let () (declare (not safe)) - (gx#stx-e _%tl145183145240%_)))) - (let ((_%tl145192145264%_ + (gx#stx-e _%tl146168146225%_)))) + (let ((_%tl146177146249%_ (let () (declare (not safe)) - (##cdr _%e145190145259%_))) - (_%hd145191145262%_ + (##cdr _%e146175146244%_))) + (_%hd146176146247%_ (let () (declare (not safe)) - (##car _%e145190145259%_)))) + (##car _%e146175146244%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145191145262%_)) - (let ((_%e145193145267%_ + (gx#stx-pair? _%hd146176146247%_)) + (let ((_%e146178146252%_ (let () (declare (not safe)) - (gx#stx-e _%hd145191145262%_)))) - (let ((_%tl145195145272%_ + (gx#stx-e _%hd146176146247%_)))) + (let ((_%tl146180146257%_ (let () (declare (not safe)) - (##cdr _%e145193145267%_))) - (_%hd145194145270%_ + (##cdr _%e146178146252%_))) + (_%hd146179146255%_ (let () (declare (not safe)) - (##car _%e145193145267%_)))) + (##car _%e146178146252%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145194145270%_)) + (gx#identifier? _%hd146179146255%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145194145270%_)) + _%hd146179146255%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145195145272%_)) - (let ((_%e145196145275%_ + _%tl146180146257%_)) + (let ((_%e146181146260%_ (let () (declare (not safe)) (gx#stx-e - _%tl145195145272%_)))) - (let ((_%tl145198145280%_ + _%tl146180146257%_)))) + (let ((_%tl146183146265%_ (let () (declare (not safe)) - (##cdr _%e145196145275%_))) - (_%hd145197145278%_ + (##cdr _%e146181146260%_))) + (_%hd146182146263%_ (let () (declare (not safe)) - (##car _%e145196145275%_)))) + (##car _%e146181146260%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145198145280%_)) + _%tl146183146265%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145192145264%_)) - (let ((_%e145199145283%_ + _%tl146177146249%_)) + (let ((_%e146184146268%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145192145264%_)))) - (let ((_%tl145201145288%_ + (gx#stx-e _%tl146177146249%_)))) + (let ((_%tl146186146273%_ (let () (declare (not safe)) - (##cdr _%e145199145283%_))) - (_%hd145200145286%_ + (##cdr _%e146184146268%_))) + (_%hd146185146271%_ (let () (declare (not safe)) - (##car _%e145199145283%_)))) + (##car _%e146184146268%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145201145288%_)) + (gx#stx-null? _%tl146186146273%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145177145224%_)) - (_%__kont148092148093%_ - _%hd145197145278%_ - _%hd145188145254%_ - _%hd145088145468%_) + (gx#stx-null? _%tl146162146209%_)) + (_%__kont149077149078%_ + _%hd146182146263%_ + _%hd146173146239%_ + _%hd146073146453%_) (let () (declare (not safe)) - (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))))) - (let () (declare (not safe)) (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))))) + (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g145082145206%_))))) - (let () (declare (not safe)) (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g145082145206%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g145082145206%_))))) - (let () (declare (not safe)) (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))) - (let () (declare (not safe)) (_%g145082145206%_))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145082145206%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g145082145206%_)))))) + (_%g146067146191%_)))))) (let () (declare (not safe)) - (_%g145082145206%_)))))))) - (_%generate1144925%_ - (lambda (_%args145060%_ - _%arglen145061%_ - _%hd145062%_ - _%body145063%_) - (let* ((_%len145065%_ + (_%g146067146191%_)))))))) + (_%generate1145910%_ + (lambda (_%args146045%_ + _%arglen146046%_ + _%hd146047%_ + _%body146048%_) + (let* ((_%len146050%_ (let () (declare (not safe)) - (gx#stx-length _%hd145062%_))) - (_%condition145070%_ + (gx#stx-length _%hd146047%_))) + (_%condition146055%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd145062%_)) + (gx#stx-list? _%hd146047%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen145061%_ - (cons _%len145065%_ '()))) + (cons _%arglen146046%_ + (cons _%len146050%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen145061%_ (cons _%len145065%_ '()))) + (cons _%arglen146046%_ (cons _%len146050%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len145065%_ '0) + (if (> _%len146050%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen145061%_ - (cons _%len145065%_ '()))) + (cons _%arglen146046%_ + (cons _%len146050%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen145061%_ (cons _%len145065%_ '()))) + (cons _%arglen146046%_ (cons _%len146050%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch145072%_ - (if (_%dispatch-case?144923%_ - _%hd145062%_ - _%body145063%_) - (_%dispatch-case-e144924%_ - _%hd145062%_ - _%body145063%_) + (_%dispatch146057%_ + (if (_%dispatch-case?145908%_ + _%hd146047%_ + _%body146048%_) + (_%dispatch-case-e145909%_ + _%hd146047%_ + _%body146048%_) (gxc#generate-runtime-lambda-form - _%self144920%_ - _%hd145062%_ - _%body145063%_)))) - (cons _%condition145070%_ + _%self145905%_ + _%hd146047%_ + _%body146048%_)))) + (cons _%condition146055%_ (cons (cons 'apply - (cons _%dispatch145072%_ - (cons _%args145060%_ '()))) + (cons _%dispatch146057%_ + (cons _%args146045%_ '()))) '())))))) - (let* ((_%g144927144955%_ - (lambda (_%g144928144952%_) + (let* ((_%g145912145940%_ + (lambda (_%g145913145937%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144928144952%_)))) - (_%g144926145057%_ - (lambda (_%g144928144958%_) + _%g145913145937%_)))) + (_%g145911146042%_ + (lambda (_%g145913145943%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144928144958%_)) - (let ((_%e144931144960%_ + (gx#stx-pair? _%g145913145943%_)) + (let ((_%e145916145945%_ (let () (declare (not safe)) - (gx#stx-e _%g144928144958%_)))) - (let ((_%hd144932144963%_ + (gx#stx-e _%g145913145943%_)))) + (let ((_%hd145917145948%_ (let () (declare (not safe)) - (##car _%e144931144960%_))) - (_%tl144933144965%_ + (##car _%e145916145945%_))) + (_%tl145918145950%_ (let () (declare (not safe)) - (##cdr _%e144931144960%_)))) + (##cdr _%e145916145945%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144933144965%_)) - (let ((_g149249_ + (gx#stx-pair/null? _%tl145918145950%_)) + (let ((_g150234_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144933144965%_ + _%tl145918145950%_ '0)))) (begin - (let ((_g149250_ + (let ((_g150235_ (let () (declare (not safe)) - (if (##values? _g149249_) - (##values-length _g149249_) + (if (##values? _g150234_) + (##values-length _g150234_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149250_ 2))) + (##fx= _g150235_ 2))) (error "Context expects 2 values" - _g149250_))) - (let ((_%target144934144968%_ + _g150235_))) + (let ((_%target145919145953%_ (let () (declare (not safe)) - (##values-ref _g149249_ 0))) - (_%tl144936144970%_ + (##values-ref _g150234_ 0))) + (_%tl145921145955%_ (let () (declare (not safe)) - (##values-ref _g149249_ 1)))) + (##values-ref _g150234_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144936144970%_)) - (letrec ((_%loop144937144973%_ - (lambda (_%hd144935144976%_ - _%body144941144978%_ - _%hd144942144980%_) + (gx#stx-null? _%tl145921145955%_)) + (letrec ((_%loop145922145958%_ + (lambda (_%hd145920145961%_ + _%body145926145963%_ + _%hd145927145965%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144935144976%_)) - (let ((_%e144938144983%_ + _%hd145920145961%_)) + (let ((_%e145923145968%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144935144976%_)))) - (let ((_%lp-hd144939144986%_ + (gx#stx-e _%hd145920145961%_)))) + (let ((_%lp-hd145924145971%_ (let () (declare (not safe)) - (##car _%e144938144983%_))) - (_%lp-tl144940144988%_ + (##car _%e145923145968%_))) + (_%lp-tl145925145973%_ (let () (declare (not safe)) - (##cdr _%e144938144983%_)))) + (##cdr _%e145923145968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144939144986%_)) - (let ((_%e144945144991%_ + (gx#stx-pair? _%lp-hd145924145971%_)) + (let ((_%e145930145976%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144939144986%_)))) - (let ((_%hd144946144994%_ + (gx#stx-e _%lp-hd145924145971%_)))) + (let ((_%hd145931145979%_ (let () (declare (not safe)) - (##car _%e144945144991%_))) - (_%tl144947144996%_ + (##car _%e145930145976%_))) + (_%tl145932145981%_ (let () (declare (not safe)) - (##cdr _%e144945144991%_)))) + (##cdr _%e145930145976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144947144996%_)) - (let ((_%e144948144999%_ + (gx#stx-pair? _%tl145932145981%_)) + (let ((_%e145933145984%_ (let () (declare (not safe)) - (gx#stx-e _%tl144947144996%_)))) - (let ((_%hd144949145002%_ + (gx#stx-e _%tl145932145981%_)))) + (let ((_%hd145934145987%_ (let () (declare (not safe)) - (##car _%e144948144999%_))) - (_%tl144950145004%_ + (##car _%e145933145984%_))) + (_%tl145935145989%_ (let () (declare (not safe)) - (##cdr _%e144948144999%_)))) + (##cdr _%e145933145984%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144950145004%_)) - (_%loop144937144973%_ - _%lp-tl144940144988%_ - (cons _%hd144949145002%_ - _%body144941144978%_) - (cons _%hd144946144994%_ - _%hd144942144980%_)) - (_%g144927144955%_ - _%g144928144958%_)))) - (_%g144927144955%_ _%g144928144958%_)))) - (_%g144927144955%_ _%g144928144958%_)))) - (let ((_%body144943145007%_ (reverse _%body144941144978%_)) - (_%hd144944145009%_ (reverse _%hd144942144980%_))) - ((lambda (_%L145012%_ _%L145013%_) - (let ((_%args145032%_ + (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))) - (_%arglen145033%_ + (_%arglen146018%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name145034%_ - (let ((_%$e145029%_ - (let ((__tmp149251 + (_%name146019%_ + (let ((_%$e146014%_ + (let ((__tmp150236 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp149251 _%stx144921%_)))) - (if _%$e145029%_ - _%$e145029%_ + (hash-get __tmp150236 _%stx145906%_)))) + (if _%$e146014%_ + _%$e146014%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args145032%_ + (cons _%args146017%_ (cons (cons 'let - (cons (cons (cons _%arglen145033%_ + (cons (cons (cons _%arglen146018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args145032%_ '())) + (cons '##length (cons _%args146017%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args145032%_ '())) + (cons _%args146017%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp149255 + (let ((__tmp150240 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name145034%_ - (cons _%args145032%_ + (cons _%name146019%_ + (cons _%args146017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp149252 - (map (lambda (_%g145035145038%_ - _%g145036145040%_) - (_%generate1144925%_ - _%args145032%_ - _%arglen145033%_ - _%g145035145038%_ - _%g145036145040%_)) - (let ((__tmp149253 - (lambda (_%g145042145045%_ - _%g145043145047%_) - (cons _%g145042145045%_ - _%g145043145047%_)))) + (__tmp150237 + (map (lambda (_%g146020146023%_ + _%g146021146025%_) + (_%generate1145910%_ + _%args146017%_ + _%arglen146018%_ + _%g146020146023%_ + _%g146021146025%_)) + (let ((__tmp150238 + (lambda (_%g146027146030%_ + _%g146028146032%_) + (cons _%g146027146030%_ + _%g146028146032%_)))) (declare (not safe)) (__foldr1 - __tmp149253 + __tmp150238 '() - _%L145013%_)) - (let ((__tmp149254 - (lambda (_%g145049145052%_ - _%g145050145054%_) - (cons _%g145049145052%_ - _%g145050145054%_)))) + _%L145998%_)) + (let ((__tmp150239 + (lambda (_%g146034146037%_ + _%g146035146039%_) + (cons _%g146034146037%_ + _%g146035146039%_)))) (declare (not safe)) (__foldr1 - __tmp149254 + __tmp150239 '() - _%L145012%_))))) + _%L145997%_))))) (declare (not safe)) - (__foldr1 cons __tmp149255 __tmp149252))) + (__foldr1 cons __tmp150240 __tmp150237))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body144943145007%_ - _%hd144944145009%_)))))) + _%body145928145992%_ + _%hd145929145994%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144937144973%_ - _%target144934144968%_ + (_%loop145922145958%_ + _%target145919145953%_ '() '())) - (_%g144927144955%_ - _%g144928144958%_))))) - (_%g144927144955%_ _%g144928144958%_)))) - (_%g144927144955%_ _%g144928144958%_))))) - (_%g144926145057%_ _%stx144921%_))))) + (_%g145912145940%_ + _%g145913145943%_))))) + (_%g145912145940%_ _%g145913145943%_)))) + (_%g145912145940%_ _%g145913145943%_))))) + (_%g145911146042%_ _%stx145906%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self144157%_ _%stx144158%_ _%compiled-body?144159%_) - (letrec ((_%generate-simple144161%_ - (lambda (_%hd144905%_ _%body144906%_) - (_%coalesce-boolean144162%_ - (_%simplify-let144163%_ + (lambda (_%self145142%_ _%stx145143%_ _%compiled-body?145144%_) + (letrec ((_%generate-simple145146%_ + (lambda (_%hd145890%_ _%body145891%_) + (_%coalesce-boolean145147%_ + (_%simplify-let145148%_ (gxc#generate-runtime-simple-let - _%self144157%_ + _%self145142%_ 'let - _%hd144905%_ - _%body144906%_ - _%compiled-body?144159%_))))) - (_%coalesce-boolean144162%_ - (lambda (_%code144766%_) + _%hd145890%_ + _%body145891%_ + _%compiled-body?145144%_))))) + (_%coalesce-boolean145147%_ + (lambda (_%code145751%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code144767144793%_ _%code144766%_) - (_%else144769144801%_ - (lambda () _%code144766%_)) - (_%K144771144838%_ - (lambda (_%expr2144804%_ - _%expr1144805%_ - _%id144806%_) - (let* ((_%expr2144807144815%_ - _%expr2144804%_) - (_%else144809144823%_ + (let* ((_%code145752145778%_ _%code145751%_) + (_%else145754145786%_ + (lambda () _%code145751%_)) + (_%K145756145823%_ + (lambda (_%expr2145789%_ + _%expr1145790%_ + _%id145791%_) + (let* ((_%expr2145792145800%_ + _%expr2145789%_) + (_%else145794145808%_ (lambda () (cons 'or - (cons _%expr1144805%_ - (cons _%expr2144804%_ + (cons _%expr1145790%_ + (cons _%expr2145789%_ '()))))) - (_%K144811144828%_ - (lambda (_%exprs144826%_) + (_%K145796145813%_ + (lambda (_%exprs145811%_) (cons 'or - (cons _%expr1144805%_ - _%exprs144826%_))))) - (if (pair? _%expr2144807144815%_) - (let ((_%hd144812144831%_ + (cons _%expr1145790%_ + _%exprs145811%_))))) + (if (pair? _%expr2145792145800%_) + (let ((_%hd145797145816%_ (let () (declare (not safe)) - (##car _%expr2144807144815%_))) - (_%tl144813144833%_ + (##car _%expr2145792145800%_))) + (_%tl145798145818%_ (let () (declare (not safe)) - (##cdr _%expr2144807144815%_)))) + (##cdr _%expr2145792145800%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144812144831%_ 'or)) - (let ((_%exprs144836%_ - _%tl144813144833%_)) - (_%K144811144828%_ - _%exprs144836%_)) - (_%else144809144823%_))) - (_%else144809144823%_)))))) - (if (pair? _%code144767144793%_) - (let ((_%hd144772144841%_ + (##eq? _%hd145797145816%_ 'or)) + (let ((_%exprs145821%_ + _%tl145798145818%_)) + (_%K145796145813%_ + _%exprs145821%_)) + (_%else145794145808%_))) + (_%else145794145808%_)))))) + (if (pair? _%code145752145778%_) + (let ((_%hd145757145826%_ (let () (declare (not safe)) - (##car _%code144767144793%_))) - (_%tl144773144843%_ + (##car _%code145752145778%_))) + (_%tl145758145828%_ (let () (declare (not safe)) - (##cdr _%code144767144793%_)))) + (##cdr _%code145752145778%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144772144841%_ 'let)) - (if (pair? _%tl144773144843%_) - (let ((_%hd144774144846%_ + (##eq? _%hd145757145826%_ 'let)) + (if (pair? _%tl145758145828%_) + (let ((_%hd145759145831%_ (let () (declare (not safe)) - (##car _%tl144773144843%_))) - (_%tl144775144848%_ + (##car _%tl145758145828%_))) + (_%tl145760145833%_ (let () (declare (not safe)) - (##cdr _%tl144773144843%_)))) - (if (pair? _%hd144774144846%_) - (let ((_%hd144786144851%_ + (##cdr _%tl145758145828%_)))) + (if (pair? _%hd145759145831%_) + (let ((_%hd145771145836%_ (let () (declare (not safe)) - (##car _%hd144774144846%_))) - (_%tl144787144853%_ + (##car _%hd145759145831%_))) + (_%tl145772145838%_ (let () (declare (not safe)) - (##cdr _%hd144774144846%_)))) - (if (pair? _%hd144786144851%_) - (let ((_%hd144788144856%_ + (##cdr _%hd145759145831%_)))) + (if (pair? _%hd145771145836%_) + (let ((_%hd145773145841%_ (let () (declare (not safe)) - (##car _%hd144786144851%_))) - (_%tl144789144858%_ + (##car _%hd145771145836%_))) + (_%tl145774145843%_ (let () (declare (not safe)) - (##cdr _%hd144786144851%_)))) - (let ((_%id144861%_ - _%hd144788144856%_)) - (if (pair? _%tl144789144858%_) - (let ((_%hd144790144863%_ + (##cdr _%hd145771145836%_)))) + (let ((_%id145846%_ + _%hd145773145841%_)) + (if (pair? _%tl145774145843%_) + (let ((_%hd145775145848%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl144789144858%_))) - (_%tl144791144865%_ + (##car _%tl145774145843%_))) + (_%tl145776145850%_ (let () (declare (not safe)) - (##cdr _%tl144789144858%_)))) - (let ((_%expr1144868%_ _%hd144790144863%_)) - (if (null? _%tl144791144865%_) - (if (null? _%tl144787144853%_) - (if (pair? _%tl144775144848%_) - (let ((_%hd144776144870%_ + (##cdr _%tl145774145843%_)))) + (let ((_%expr1145853%_ _%hd145775145848%_)) + (if (null? _%tl145776145850%_) + (if (null? _%tl145772145838%_) + (if (pair? _%tl145760145833%_) + (let ((_%hd145761145855%_ (let () (declare (not safe)) - (##car _%tl144775144848%_))) - (_%tl144777144872%_ + (##car _%tl145760145833%_))) + (_%tl145762145857%_ (let () (declare (not safe)) - (##cdr _%tl144775144848%_)))) - (if (pair? _%hd144776144870%_) - (let ((_%hd144778144875%_ + (##cdr _%tl145760145833%_)))) + (if (pair? _%hd145761145855%_) + (let ((_%hd145763145860%_ (let () (declare (not safe)) - (##car _%hd144776144870%_))) - (_%tl144779144877%_ + (##car _%hd145761145855%_))) + (_%tl145764145862%_ (let () (declare (not safe)) - (##cdr _%hd144776144870%_)))) + (##cdr _%hd145761145855%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144778144875%_ + (##eq? _%hd145763145860%_ 'if)) - (if (pair? _%tl144779144877%_) - (let ((_%hd144780144880%_ + (if (pair? _%tl145764145862%_) + (let ((_%hd145765145865%_ (let () (declare (not safe)) - (##car _%tl144779144877%_))) - (_%tl144781144882%_ + (##car _%tl145764145862%_))) + (_%tl145766145867%_ (let () (declare (not safe)) - (##cdr _%tl144779144877%_)))) - (if ((lambda (_%g144884144886%_) - (eq? _%g144884144886%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id144861%_)) - _%hd144780144880%_) - (if (pair? _%tl144781144882%_) - (let ((_%hd144782144889%_ + (##cdr _%tl145764145862%_)))) + (if ((lambda (_%g145869145871%_) + (eq? _%g145869145871%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id145846%_)) + _%hd145765145865%_) + (if (pair? _%tl145766145867%_) + (let ((_%hd145767145874%_ (let () (declare (not safe)) - (##car _%tl144781144882%_))) - (_%tl144783144891%_ + (##car _%tl145766145867%_))) + (_%tl145768145876%_ (let () (declare (not safe)) - (##cdr _%tl144781144882%_)))) - (if ((lambda (_%g144893144895%_) - (eq? _%g144893144895%_ _%id144861%_)) - _%hd144782144889%_) - (if (pair? _%tl144783144891%_) - (let ((_%hd144784144898%_ + (##cdr _%tl145766145867%_)))) + (if ((lambda (_%g145878145880%_) + (eq? _%g145878145880%_ _%id145846%_)) + _%hd145767145874%_) + (if (pair? _%tl145768145876%_) + (let ((_%hd145769145883%_ (let () (declare (not safe)) - (##car _%tl144783144891%_))) - (_%tl144785144900%_ + (##car _%tl145768145876%_))) + (_%tl145770145885%_ (let () (declare (not safe)) - (##cdr _%tl144783144891%_)))) - (let ((_%expr2144903%_ _%hd144784144898%_)) - (if (null? _%tl144785144900%_) - (if (null? _%tl144777144872%_) - (_%K144771144838%_ - _%expr2144903%_ - _%expr1144868%_ - _%id144861%_) - (_%else144769144801%_)) - (_%else144769144801%_)))) - (_%else144769144801%_)) - (_%else144769144801%_))) - (_%else144769144801%_)) - (_%else144769144801%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144769144801%_)) - (_%else144769144801%_))) - (_%else144769144801%_))) - (_%else144769144801%_)) - (_%else144769144801%_)) - (_%else144769144801%_)))) - (_%else144769144801%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144769144801%_))) - (_%else144769144801%_))) - (_%else144769144801%_)) - (_%else144769144801%_))) - (_%else144769144801%_))) - _%code144766%_))) - (_%simplify-let144163%_ - (lambda (_%code144465%_) - (let* ((_%code144466144538%_ _%code144465%_) - (_%else144471144546%_ (lambda () _%code144465%_))) - (let ((_%K144530144746%_ - (lambda (_%expr144744%_) _%expr144744%_)) - (_%K144513144692%_ - (lambda (_%body144688%_ - _%expr144689%_ - _%id144690%_) + (##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 _%id144690%_ - (cons _%expr144689%_ + (cons (cons (cons _%id145675%_ + (cons _%expr145674%_ '())) '()) - _%body144688%_)))) - (_%K144490144616%_ - (lambda (_%body144610%_ - _%expr2144611%_ - _%id2144612%_ - _%expr1144613%_ - _%id1144614%_) + _%body145673%_)))) + (_%K145475145601%_ + (lambda (_%body145595%_ + _%expr2145596%_ + _%id2145597%_ + _%expr1145598%_ + _%id1145599%_) (cons 'let* - (cons (cons (cons _%id1144614%_ - (cons _%expr1144613%_ + (cons (cons (cons _%id1145599%_ + (cons _%expr1145598%_ '())) - (cons (cons _%id2144612%_ - (cons _%expr2144611%_ + (cons (cons _%id2145597%_ + (cons _%expr2145596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body144610%_)))) - (_%K144473144555%_ - (lambda (_%body144550%_ - _%bind144551%_ - _%expr1144552%_ - _%id1144553%_) + _%body145595%_)))) + (_%K145458145540%_ + (lambda (_%body145535%_ + _%bind145536%_ + _%expr1145537%_ + _%id1145538%_) (cons 'let* - (cons (cons (cons _%id1144553%_ - (cons _%expr1144552%_ + (cons (cons (cons _%id1145538%_ + (cons _%expr1145537%_ '())) - _%bind144551%_) - _%body144550%_))))) - (if (pair? _%code144466144538%_) - (let ((_%tl144532144751%_ + _%bind145536%_) + _%body145535%_))))) + (if (pair? _%code145451145523%_) + (let ((_%tl145517145736%_ (let () (declare (not safe)) - (##cdr _%code144466144538%_))) - (_%hd144531144749%_ + (##cdr _%code145451145523%_))) + (_%hd145516145734%_ (let () (declare (not safe)) - (##car _%code144466144538%_)))) + (##car _%code145451145523%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144531144749%_ 'let)) - (if (pair? _%tl144532144751%_) - (let ((_%tl144534144756%_ + (##eq? _%hd145516145734%_ 'let)) + (if (pair? _%tl145517145736%_) + (let ((_%tl145519145741%_ (let () (declare (not safe)) - (##cdr _%tl144532144751%_))) - (_%hd144533144754%_ + (##cdr _%tl145517145736%_))) + (_%hd145518145739%_ (let () (declare (not safe)) - (##car _%tl144532144751%_)))) - (if (null? _%hd144533144754%_) - (if (pair? _%tl144534144756%_) - (let ((_%tl144536144761%_ + (##car _%tl145517145736%_)))) + (if (null? _%hd145518145739%_) + (if (pair? _%tl145519145741%_) + (let ((_%tl145521145746%_ (let () (declare (not safe)) - (##cdr _%tl144534144756%_))) - (_%hd144535144759%_ + (##cdr _%tl145519145741%_))) + (_%hd145520145744%_ (let () (declare (not safe)) - (##car _%tl144534144756%_)))) - (if (null? _%tl144536144761%_) - (let ((_%expr144764%_ - _%hd144535144759%_)) - (_%K144530144746%_ - _%expr144764%_)) - (_%else144471144546%_))) - (_%else144471144546%_)) - (if (pair? _%hd144533144754%_) - (let ((_%tl144525144707%_ + (##car _%tl145519145741%_)))) + (if (null? _%tl145521145746%_) + (let ((_%expr145749%_ + _%hd145520145744%_)) + (_%K145515145731%_ + _%expr145749%_)) + (_%else145456145531%_))) + (_%else145456145531%_)) + (if (pair? _%hd145518145739%_) + (let ((_%tl145510145692%_ (let () (declare (not safe)) - (##cdr _%hd144533144754%_))) - (_%hd144524144705%_ + (##cdr _%hd145518145739%_))) + (_%hd145509145690%_ (let () (declare (not safe)) - (##car _%hd144533144754%_)))) - (if (pair? _%hd144524144705%_) - (let ((_%tl144527144712%_ + (##car _%hd145518145739%_)))) + (if (pair? _%hd145509145690%_) + (let ((_%tl145512145697%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd144524144705%_))) - (_%hd144526144710%_ - (let () (declare (not safe)) (##car _%hd144524144705%_)))) - (if (pair? _%tl144527144712%_) - (let ((_%tl144529144719%_ + (##cdr _%hd145509145690%_))) + (_%hd145511145695%_ + (let () (declare (not safe)) (##car _%hd145509145690%_)))) + (if (pair? _%tl145512145697%_) + (let ((_%tl145514145704%_ (let () (declare (not safe)) - (##cdr _%tl144527144712%_))) - (_%hd144528144717%_ + (##cdr _%tl145512145697%_))) + (_%hd145513145702%_ (let () (declare (not safe)) - (##car _%tl144527144712%_)))) - (if (null? _%tl144529144719%_) - (if (null? _%tl144525144707%_) - (if (pair? _%tl144534144756%_) - (let ((_%tl144519144726%_ + (##car _%tl145512145697%_)))) + (if (null? _%tl145514145704%_) + (if (null? _%tl145510145692%_) + (if (pair? _%tl145519145741%_) + (let ((_%tl145504145711%_ (let () (declare (not safe)) - (##cdr _%tl144534144756%_))) - (_%hd144518144724%_ + (##cdr _%tl145519145741%_))) + (_%hd145503145709%_ (let () (declare (not safe)) - (##car _%tl144534144756%_)))) - (if (pair? _%hd144518144724%_) - (let ((_%tl144521144731%_ + (##car _%tl145519145741%_)))) + (if (pair? _%hd145503145709%_) + (let ((_%tl145506145716%_ (let () (declare (not safe)) - (##cdr _%hd144518144724%_))) - (_%hd144520144729%_ + (##cdr _%hd145503145709%_))) + (_%hd145505145714%_ (let () (declare (not safe)) - (##car _%hd144518144724%_)))) + (##car _%hd145503145709%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144520144729%_ + (##eq? _%hd145505145714%_ 'let)) - (if (pair? _%tl144521144731%_) - (let ((_%tl144523144736%_ + (if (pair? _%tl145506145716%_) + (let ((_%tl145508145721%_ (let () (declare (not safe)) - (##cdr _%tl144521144731%_))) - (_%hd144522144734%_ + (##cdr _%tl145506145716%_))) + (_%hd145507145719%_ (let () (declare (not safe)) - (##car _%tl144521144731%_)))) - (if (null? _%hd144522144734%_) - (if (null? _%tl144519144726%_) - (let ((_%id144715%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd144526144710%_) - (_%expr144722%_ _%hd144528144717%_) - (_%body144739%_ _%tl144523144736%_)) - (_%K144513144692%_ - _%body144739%_ - _%expr144722%_ - _%id144715%_)) - (_%else144471144546%_)) - (if (pair? _%hd144522144734%_) - (let ((_%tl144502144665%_ + (##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 _%hd144522144734%_))) - (_%hd144501144663%_ + (##cdr _%hd145507145719%_))) + (_%hd145486145648%_ (let () (declare (not safe)) - (##car _%hd144522144734%_)))) - (if (pair? _%hd144501144663%_) - (let ((_%tl144504144670%_ + (##car _%hd145507145719%_)))) + (if (pair? _%hd145486145648%_) + (let ((_%tl145489145655%_ (let () (declare (not safe)) - (##cdr _%hd144501144663%_))) - (_%hd144503144668%_ + (##cdr _%hd145486145648%_))) + (_%hd145488145653%_ (let () (declare (not safe)) - (##car _%hd144501144663%_)))) - (if (pair? _%tl144504144670%_) - (let ((_%tl144506144677%_ + (##car _%hd145486145648%_)))) + (if (pair? _%tl145489145655%_) + (let ((_%tl145491145662%_ (let () (declare (not safe)) - (##cdr _%tl144504144670%_))) - (_%hd144505144675%_ + (##cdr _%tl145489145655%_))) + (_%hd145490145660%_ (let () (declare (not safe)) - (##car _%tl144504144670%_)))) - (if (null? _%tl144506144677%_) - (if (null? _%tl144502144665%_) - (if (null? _%tl144519144726%_) - (let ((_%id1144639%_ - _%hd144526144710%_) - (_%expr1144646%_ - _%hd144528144717%_) - (_%id2144673%_ - _%hd144503144668%_) - (_%expr2144680%_ - _%hd144505144675%_) - (_%body144682%_ - _%tl144523144736%_)) - (_%K144490144616%_ - _%body144682%_ - _%expr2144680%_ - _%id2144673%_ - _%expr1144646%_ - _%id1144639%_)) - (_%else144471144546%_)) - (_%else144471144546%_)) - (_%else144471144546%_))) - (_%else144471144546%_))) - (_%else144471144546%_))) - (_%else144471144546%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144471144546%_)) + (##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? _%hd144520144729%_ + (##eq? _%hd145505145714%_ 'let*)) - (if (pair? _%tl144521144731%_) - (let ((_%tl144483144599%_ + (if (pair? _%tl145506145716%_) + (let ((_%tl145468145584%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl144521144731%_))) - (_%hd144482144597%_ - (let () (declare (not safe)) (##car _%tl144521144731%_)))) - (if (null? _%tl144519144726%_) - (let ((_%id1144578%_ _%hd144526144710%_) - (_%expr1144585%_ _%hd144528144717%_) - (_%bind144602%_ _%hd144482144597%_) - (_%body144604%_ _%tl144483144599%_)) - (_%K144473144555%_ - _%body144604%_ - _%bind144602%_ - _%expr1144585%_ - _%id1144578%_)) - (_%else144471144546%_))) - (_%else144471144546%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144471144546%_)))) - (_%else144471144546%_))) - (_%else144471144546%_)) - (_%else144471144546%_)) - (_%else144471144546%_))) - (_%else144471144546%_))) - (_%else144471144546%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144471144546%_)))) - (_%else144471144546%_)) - (_%else144471144546%_))) - (_%else144471144546%_)))))) - (_%generate-values144164%_ - (lambda (_%hd144278%_ _%body144279%_) - (let _%lp144281%_ ((_%rest144283%_ _%hd144278%_) - (_%bind144284%_ '()) - (_%check144285%_ '()) - (_%post144286%_ '())) - (let* ((_%__stx148409148410%_ _%rest144283%_) - (_%g144289144300%_ + (##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" - _%__stx148409148410%_))))) - (let ((_%__kont148411148412%_ - (lambda (_%L144327%_ _%L144328%_) - (let* ((_%__stx148365148366%_ _%L144328%_) - (_%g144343144368%_ + _%__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" - _%__stx148365148366%_))))) - (let ((_%__kont148367148368%_ - (lambda (_%L144441%_ _%L144442%_) - (let ((_%eid144456%_ + _%__stx149350149351%_))))) + (let ((_%__kont149352149353%_ + (lambda (_%L145426%_ _%L145427%_) + (let ((_%eid145441%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L144442%_))) - (_%expr144457%_ + _%L145427%_))) + (_%expr145442%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144157%_ - _%L144441%_)))) - (_%lp144281%_ - _%L144327%_ - (cons (cons _%eid144456%_ - (cons _%expr144457%_ + _%self145142%_ + _%L145426%_)))) + (_%lp145266%_ + _%L145312%_ + (cons (cons _%eid145441%_ + (cons _%expr145442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind144284%_) - _%check144285%_ - _%post144286%_)))) - (_%__kont148369148370%_ - (lambda (_%L144389%_ _%L144390%_) - (let* ((_%vals144403%_ + _%bind145269%_) + _%check145270%_ + _%post145271%_)))) + (_%__kont149354149355%_ + (lambda (_%L145374%_ _%L145375%_) + (let* ((_%vals145388%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values144405%_ + (_%check-values145390%_ (gxc#generate-runtime-check-values - _%vals144403%_ - _%L144390%_ - _%L144389%_)) - (_%refs144407%_ + _%vals145388%_ + _%L145375%_ + _%L145374%_)) + (_%refs145392%_ (gxc#generate-runtime-let-values-bind - _%vals144403%_ - _%L144390%_)) - (_%expr144409%_ + _%vals145388%_ + _%L145375%_)) + (_%expr145394%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144157%_ - _%L144389%_)))) - (_%lp144281%_ - _%L144327%_ - (cons (cons _%vals144403%_ - (cons _%expr144409%_ + _%self145142%_ + _%L145374%_)))) + (_%lp145266%_ + _%L145312%_ + (cons (cons _%vals145388%_ + (cons _%expr145394%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind144284%_) - (cons _%check-values144405%_ - _%check144285%_) - (cons _%refs144407%_ - _%post144286%_)))))) + _%bind145269%_) + (cons _%check-values145390%_ + _%check145270%_) + (cons _%refs145392%_ + _%post145271%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148365148366%_)) - (let ((_%e144347144417%_ + _%__stx149350149351%_)) + (let ((_%e145332145402%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148365148366%_)))) - (let ((_%tl144349144422%_ + _%__stx149350149351%_)))) + (let ((_%tl145334145407%_ (let () (declare (not safe)) - (##cdr _%e144347144417%_))) - (_%hd144348144420%_ + (##cdr _%e145332145402%_))) + (_%hd145333145405%_ (let () (declare (not safe)) - (##car _%e144347144417%_)))) + (##car _%e145332145402%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144348144420%_)) - (let ((_%e144350144425%_ + _%hd145333145405%_)) + (let ((_%e145335145410%_ (let () (declare (not safe)) (gx#stx-e - _%hd144348144420%_)))) - (let ((_%tl144352144430%_ + _%hd145333145405%_)))) + (let ((_%tl145337145415%_ (let () (declare (not safe)) - (##cdr _%e144350144425%_))) - (_%hd144351144428%_ + (##cdr _%e145335145410%_))) + (_%hd145336145413%_ (let () (declare (not safe)) - (##car _%e144350144425%_)))) + (##car _%e145335145410%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144352144430%_)) + _%tl145337145415%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144349144422%_)) - (let ((_%e144353144433%_ + (gx#stx-pair? _%tl145334145407%_)) + (let ((_%e145338145418%_ (let () (declare (not safe)) - (gx#stx-e _%tl144349144422%_)))) - (let ((_%tl144355144438%_ + (gx#stx-e _%tl145334145407%_)))) + (let ((_%tl145340145423%_ (let () (declare (not safe)) - (##cdr _%e144353144433%_))) - (_%hd144354144436%_ + (##cdr _%e145338145418%_))) + (_%hd145339145421%_ (let () (declare (not safe)) - (##car _%e144353144433%_)))) + (##car _%e145338145418%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144355144438%_)) - (_%__kont148367148368%_ - _%hd144354144436%_ - _%hd144351144428%_) + (gx#stx-null? _%tl145340145423%_)) + (_%__kont149352149353%_ + _%hd145339145421%_ + _%hd145336145413%_) (let () (declare (not safe)) - (_%g144343144368%_))))) - (let () (declare (not safe)) (_%g144343144368%_))) + (_%g145328145353%_))))) + (let () (declare (not safe)) (_%g145328145353%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144349144422%_)) - (let ((_%e144361144381%_ + (gx#stx-pair? _%tl145334145407%_)) + (let ((_%e145346145366%_ (let () (declare (not safe)) - (gx#stx-e _%tl144349144422%_)))) - (let ((_%tl144363144386%_ + (gx#stx-e _%tl145334145407%_)))) + (let ((_%tl145348145371%_ (let () (declare (not safe)) - (##cdr _%e144361144381%_))) - (_%hd144362144384%_ + (##cdr _%e145346145366%_))) + (_%hd145347145369%_ (let () (declare (not safe)) - (##car _%e144361144381%_)))) + (##car _%e145346145366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144363144386%_)) - (_%__kont148369148370%_ - _%hd144362144384%_ - _%hd144348144420%_) + (gx#stx-null? _%tl145348145371%_)) + (_%__kont149354149355%_ + _%hd145347145369%_ + _%hd145333145405%_) (let () (declare (not safe)) - (_%g144343144368%_))))) - (let () (declare (not safe)) (_%g144343144368%_)))))) + (_%g145328145353%_))))) + (let () (declare (not safe)) (_%g145328145353%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144349144422%_)) - (let ((_%e144361144381%_ + _%tl145334145407%_)) + (let ((_%e145346145366%_ (let () (declare (not safe)) (gx#stx-e - _%tl144349144422%_)))) - (let ((_%tl144363144386%_ + _%tl145334145407%_)))) + (let ((_%tl145348145371%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e144361144381%_))) - (_%hd144362144384%_ - (let () (declare (not safe)) (##car _%e144361144381%_)))) + (##cdr _%e145346145366%_))) + (_%hd145347145369%_ + (let () (declare (not safe)) (##car _%e145346145366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144363144386%_)) - (_%__kont148369148370%_ - _%hd144362144384%_ - _%hd144348144420%_) - (let () (declare (not safe)) (_%g144343144368%_))))) + (gx#stx-null? _%tl145348145371%_)) + (_%__kont149354149355%_ + _%hd145347145369%_ + _%hd145333145405%_) + (let () (declare (not safe)) (_%g145328145353%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144343144368%_)))))) + (_%g145328145353%_)))))) (let () (declare (not safe)) - (_%g144343144368%_))))))) - (_%__kont148413148414%_ + (_%g145328145353%_))))))) + (_%__kont149398149399%_ (lambda () - (let* ((_%body144307%_ - (if _%compiled-body?144159%_ - _%body144279%_ + (let* ((_%body145292%_ + (if _%compiled-body?145144%_ + _%body145264%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144157%_ - _%body144279%_)))) - (_%body144309%_ - (_%generate-values-post144165%_ - _%post144286%_ - _%body144307%_)) - (_%body144311%_ - (_%generate-values-check144166%_ - _%check144285%_ - _%body144309%_))) + _%self145142%_ + _%body145264%_)))) + (_%body145294%_ + (_%generate-values-post145150%_ + _%post145271%_ + _%body145292%_)) + (_%body145296%_ + (_%generate-values-check145151%_ + _%check145270%_ + _%body145294%_))) (cons 'let - (cons (reverse _%bind144284%_) - (cons _%body144311%_ '()))))))) + (cons (reverse _%bind145269%_) + (cons _%body145296%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148409148410%_)) - (let ((_%e144293144319%_ + (gx#stx-pair? _%__stx149394149395%_)) + (let ((_%e145278145304%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148409148410%_)))) - (let ((_%tl144295144324%_ + (gx#stx-e _%__stx149394149395%_)))) + (let ((_%tl145280145309%_ (let () (declare (not safe)) - (##cdr _%e144293144319%_))) - (_%hd144294144322%_ + (##cdr _%e145278145304%_))) + (_%hd145279145307%_ (let () (declare (not safe)) - (##car _%e144293144319%_)))) - (_%__kont148411148412%_ - _%tl144295144324%_ - _%hd144294144322%_))) - (_%__kont148413148414%_))))))) - (_%generate-values-post144165%_ - (lambda (_%post144237%_ _%body144238%_) - (let _%lp144240%_ ((_%rest144242%_ _%post144237%_) - (_%body144243%_ _%body144238%_)) - (let* ((_%rest144244144252%_ _%rest144242%_) - (_%else144246144260%_ (lambda () _%body144243%_)) - (_%K144248144266%_ - (lambda (_%rest144263%_ _%bind144264%_) - (_%lp144240%_ - _%rest144263%_ + (##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 _%bind144264%_ - (cons _%body144243%_ '()))))))) - (if (pair? _%rest144244144252%_) - (let ((_%hd144249144269%_ + (cons _%bind145249%_ + (cons _%body145228%_ '()))))))) + (if (pair? _%rest145229145237%_) + (let ((_%hd145234145254%_ (let () (declare (not safe)) - (##car _%rest144244144252%_))) - (_%tl144250144271%_ + (##car _%rest145229145237%_))) + (_%tl145235145256%_ (let () (declare (not safe)) - (##cdr _%rest144244144252%_)))) - (let* ((_%bind144274%_ _%hd144249144269%_) - (_%rest144276%_ _%tl144250144271%_)) - (_%K144248144266%_ - _%rest144276%_ - _%bind144274%_))) - (_%else144246144260%_)))))) - (_%generate-values-check144166%_ - (lambda (_%check144234%_ _%body144235%_) + (##cdr _%rest145229145237%_)))) + (let* ((_%bind145259%_ _%hd145234145254%_) + (_%rest145261%_ _%tl145235145256%_)) + (_%K145233145251%_ + _%rest145261%_ + _%bind145259%_))) + (_%else145231145245%_)))))) + (_%generate-values-check145151%_ + (lambda (_%check145219%_ _%body145220%_) (cons 'begin - (let ((__tmp149257 (cons _%body144235%_ '())) - (__tmp149256 (reverse _%check144234%_))) + (let ((__tmp150242 (cons _%body145220%_ '())) + (__tmp150241 (reverse _%check145219%_))) (declare (not safe)) - (__foldr1 cons __tmp149257 __tmp149256)))))) - (let* ((_%g144168144185%_ - (lambda (_%g144169144182%_) + (__foldr1 cons __tmp150242 __tmp150241)))))) + (let* ((_%g145153145170%_ + (lambda (_%g145154145167%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144169144182%_)))) - (_%g144167144231%_ - (lambda (_%g144169144188%_) + _%g145154145167%_)))) + (_%g145152145216%_ + (lambda (_%g145154145173%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144169144188%_)) - (let ((_%e144172144190%_ + (gx#stx-pair? _%g145154145173%_)) + (let ((_%e145157145175%_ (let () (declare (not safe)) - (gx#stx-e _%g144169144188%_)))) - (let ((_%hd144173144193%_ + (gx#stx-e _%g145154145173%_)))) + (let ((_%hd145158145178%_ (let () (declare (not safe)) - (##car _%e144172144190%_))) - (_%tl144174144195%_ + (##car _%e145157145175%_))) + (_%tl145159145180%_ (let () (declare (not safe)) - (##cdr _%e144172144190%_)))) + (##cdr _%e145157145175%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144174144195%_)) - (let ((_%e144175144198%_ + (gx#stx-pair? _%tl145159145180%_)) + (let ((_%e145160145183%_ (let () (declare (not safe)) - (gx#stx-e _%tl144174144195%_)))) - (let ((_%hd144176144201%_ + (gx#stx-e _%tl145159145180%_)))) + (let ((_%hd145161145186%_ (let () (declare (not safe)) - (##car _%e144175144198%_))) - (_%tl144177144203%_ + (##car _%e145160145183%_))) + (_%tl145162145188%_ (let () (declare (not safe)) - (##cdr _%e144175144198%_)))) + (##cdr _%e145160145183%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144177144203%_)) - (let ((_%e144178144206%_ + (gx#stx-pair? _%tl145162145188%_)) + (let ((_%e145163145191%_ (let () (declare (not safe)) (gx#stx-e - _%tl144177144203%_)))) - (let ((_%hd144179144209%_ + _%tl145162145188%_)))) + (let ((_%hd145164145194%_ (let () (declare (not safe)) - (##car _%e144178144206%_))) - (_%tl144180144211%_ + (##car _%e145163145191%_))) + (_%tl145165145196%_ (let () (declare (not safe)) - (##cdr _%e144178144206%_)))) + (##cdr _%e145163145191%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144180144211%_)) - ((lambda (_%L144214%_ - _%L144215%_) + _%tl145165145196%_)) + ((lambda (_%L145199%_ + _%L145200%_) (if (gxc#generate-runtime-simple-let? - _%L144215%_) - (_%generate-simple144161%_ - _%L144215%_ - _%L144214%_) - (_%generate-values144164%_ - _%L144215%_ - _%L144214%_))) - _%hd144179144209%_ - _%hd144176144201%_) - (_%g144168144185%_ - _%g144169144188%_)))) - (_%g144168144185%_ - _%g144169144188%_)))) - (_%g144168144185%_ _%g144169144188%_)))) - (_%g144168144185%_ _%g144169144188%_))))) - (_%g144167144231%_ _%stx144158%_))))) + _%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 (_%self144911%_ _%stx144912%_) - (let ((_%compiled-body?144914%_ '#f)) + (lambda (_%self145896%_ _%stx145897%_) + (let ((_%compiled-body?145899%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self144911%_ - _%stx144912%_ - _%compiled-body?144914%_)))) + _%self145896%_ + _%stx145897%_ + _%compiled-body?145899%_)))) (define gxc#generate-runtime-let-values% - (lambda _g149259_ - (let ((_g149258_ (let () (declare (not safe)) (##length _g149259_)))) - (cond ((let () (declare (not safe)) (##fx= _g149258_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g149259_)) - ((let () (declare (not safe)) (##fx= _g149258_ 3)) - (apply gxc#generate-runtime-let-values%__% _g149259_)) + (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% - _g149259_)))))) + _g150244_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals144051%_ _%hd144052%_) - (let _%lp144054%_ ((_%rest144056%_ _%hd144052%_) - (_%k144057%_ '0) - (_%r144058%_ '())) - (let* ((_%__stx148423148424%_ _%rest144056%_) - (_%g144063144080%_ + (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" - _%__stx148423148424%_))))) - (let ((_%__kont148425148426%_ - (lambda (_%L144143%_) - (_%lp144054%_ - _%L144143%_ - (let () (declare (not safe)) (##fx+ _%k144057%_ '1)) - _%r144058%_))) - (_%__kont148427148428%_ - (lambda (_%L144116%_ _%L144117%_) - (_%lp144054%_ - _%L144116%_ - (let () (declare (not safe)) (##fx+ _%k144057%_ '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 - _%L144117%_)) + _%L145102%_)) (cons (gxc#generate-runtime-values-ref - _%vals144051%_ - _%k144057%_ - _%L144116%_) + _%vals145036%_ + _%k145042%_ + _%L145101%_) '())) - _%r144058%_)))) - (_%__kont148429148430%_ - (lambda (_%L144092%_) - (let ((__tmp149260 + _%r145043%_)))) + (_%__kont149414149415%_ + (lambda (_%L145077%_) + (let ((__tmp150245 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L144092%_)) + _%L145077%_)) (cons (gxc#generate-runtime-values->list - _%vals144051%_ - _%k144057%_) + _%vals145036%_ + _%k145042%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp149260 _%r144058%_)))) - (_%__kont148431148432%_ (lambda () (reverse _%r144058%_)))) - (let ((_%g144061144103%_ + (__foldl1 cons __tmp150245 _%r145043%_)))) + (_%__kont149416149417%_ (lambda () (reverse _%r145043%_)))) + (let ((_%g145046145088%_ (lambda () - (let ((_%L144092%_ _%__stx148423148424%_)) + (let ((_%L145077%_ _%__stx149408149409%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L144092%_)) - (_%__kont148429148430%_ _%L144092%_) - (_%__kont148431148432%_)))))) + (gx#identifier? _%L145077%_)) + (_%__kont149414149415%_ _%L145077%_) + (_%__kont149416149417%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148423148424%_)) - (let ((_%e144066144132%_ + (gx#stx-pair? _%__stx149408149409%_)) + (let ((_%e145051145117%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148423148424%_)))) - (let ((_%tl144068144137%_ + (gx#stx-e _%__stx149408149409%_)))) + (let ((_%tl145053145122%_ (let () (declare (not safe)) - (##cdr _%e144066144132%_))) - (_%hd144067144135%_ + (##cdr _%e145051145117%_))) + (_%hd145052145120%_ (let () (declare (not safe)) - (##car _%e144066144132%_)))) + (##car _%e145051145117%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd144067144135%_)) - (let ((_%e144069144140%_ + (gx#stx-datum? _%hd145052145120%_)) + (let ((_%e145054145125%_ (let () (declare (not safe)) - (gx#stx-e _%hd144067144135%_)))) - (if (equal? _%e144069144140%_ '#f) - (_%__kont148425148426%_ _%tl144068144137%_) - (_%__kont148427148428%_ - _%tl144068144137%_ - _%hd144067144135%_))) - (_%__kont148427148428%_ - _%tl144068144137%_ - _%hd144067144135%_)))) - (let () (declare (not safe)) (_%g144061144103%_))))))))) + (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 (_%self143730%_ _%stx143731%_ _%compiled-body?143732%_) - (letrec ((_%generate-simple143734%_ - (lambda (_%hd144036%_ _%body144037%_) + (lambda (_%self144715%_ _%stx144716%_ _%compiled-body?144717%_) + (letrec ((_%generate-simple144719%_ + (lambda (_%hd145021%_ _%body145022%_) (gxc#generate-runtime-simple-let - _%self143730%_ + _%self144715%_ 'letrec - _%hd144036%_ - _%body144037%_ - _%compiled-body?143732%_))) - (_%generate-values143735%_ - (lambda (_%hd143815%_ _%body143816%_) - (let _%lp143818%_ ((_%rest143820%_ _%hd143815%_) - (_%bind143821%_ '()) - (_%check143822%_ '()) - (_%post143823%_ '())) - (let* ((_%__stx148497148498%_ _%rest143820%_) - (_%g143826143837%_ + _%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" - _%__stx148497148498%_))))) - (let ((_%__kont148499148500%_ - (lambda (_%L143864%_ _%L143865%_) - (let* ((_%__stx148453148454%_ _%L143865%_) - (_%g143880143905%_ + _%__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" - _%__stx148453148454%_))))) - (let ((_%__kont148455148456%_ - (lambda (_%L144012%_ _%L144013%_) - (let ((_%eid144027%_ + _%__stx149438149439%_))))) + (let ((_%__kont149440149441%_ + (lambda (_%L144997%_ _%L144998%_) + (let ((_%eid145012%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L144013%_))) - (_%expr144028%_ + _%L144998%_))) + (_%expr145013%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143730%_ - _%L144012%_)))) - (_%lp143818%_ - _%L143864%_ - (cons (cons _%eid144027%_ - (cons _%expr144028%_ + _%self144715%_ + _%L144997%_)))) + (_%lp144803%_ + _%L144849%_ + (cons (cons _%eid145012%_ + (cons _%expr145013%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143821%_) - _%check143822%_ - _%post143823%_)))) - (_%__kont148457148458%_ - (lambda (_%L143926%_ _%L143927%_) - (let* ((_%vals143940%_ + _%bind144806%_) + _%check144807%_ + _%post144808%_)))) + (_%__kont149442149443%_ + (lambda (_%L144911%_ _%L144912%_) + (let* ((_%vals144925%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143942%_ + (_%check-values144927%_ (gxc#generate-runtime-check-values - _%vals143940%_ - _%L143927%_ - _%L143926%_)) - (_%refs143944%_ + _%vals144925%_ + _%L144912%_ + _%L144911%_)) + (_%refs144929%_ (gxc#generate-runtime-let-values-bind - _%vals143940%_ - _%L143927%_)) - (_%expr143946%_ + _%vals144925%_ + _%L144912%_)) + (_%expr144931%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143730%_ - _%L143926%_)))) - (_%lp143818%_ - _%L143864%_ - (let ((__tmp149262 - (cons (cons _%vals143940%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr143946%_ '())) - _%bind143821%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp149261 - (map (lambda (_%e143948143950%_) - (let* ((_%g143952143961%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e143948143950%_) - (_%E143954143965%_ + _%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" - _%g143952143961%_ + _%g144937144946%_ '([eid _]))) '#!void)) - (_%K143955143970%_ - (lambda (_%eid143968%_) - (cons _%eid143968%_ (cons '#!void '()))))) - (if (pair? _%g143952143961%_) - (let ((_%hd143956143973%_ + (_%K144940144955%_ + (lambda (_%eid144953%_) + (cons _%eid144953%_ (cons '#!void '()))))) + (if (pair? _%g144937144946%_) + (let ((_%hd144941144958%_ (let () (declare (not safe)) - (##car _%g143952143961%_))) - (_%tl143957143975%_ + (##car _%g144937144946%_))) + (_%tl144942144960%_ (let () (declare (not safe)) - (##cdr _%g143952143961%_)))) - (let ((_%eid143978%_ _%hd143956143973%_)) - (if (pair? _%tl143957143975%_) - (let ((_%tl143959143980%_ + (##cdr _%g144937144946%_)))) + (let ((_%eid144963%_ _%hd144941144958%_)) + (if (pair? _%tl144942144960%_) + (let ((_%tl144944144965%_ (let () (declare (not safe)) - (##cdr _%tl143957143975%_)))) - (if (null? _%tl143959143980%_) - (_%K143955143970%_ _%eid143978%_) - (_%E143954143965%_))) - (_%E143954143965%_)))) - (_%E143954143965%_)))) - _%refs143944%_))) + (##cdr _%tl144942144960%_)))) + (if (null? _%tl144944144965%_) + (_%K144940144955%_ _%eid144963%_) + (_%E144939144950%_))) + (_%E144939144950%_)))) + (_%E144939144950%_)))) + _%refs144929%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149262 - __tmp149261)) - (cons _%check-values143942%_ - _%check143822%_) + __tmp150247 + __tmp150246)) + (cons _%check-values144927%_ + _%check144807%_) (let () (declare (not safe)) (__foldl1 cons - _%refs143944%_ - _%post143823%_))))))) + _%refs144929%_ + _%post144808%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148453148454%_)) - (let ((_%e143884143988%_ + _%__stx149438149439%_)) + (let ((_%e144869144973%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148453148454%_)))) - (let ((_%tl143886143993%_ + _%__stx149438149439%_)))) + (let ((_%tl144871144978%_ (let () (declare (not safe)) - (##cdr _%e143884143988%_))) - (_%hd143885143991%_ + (##cdr _%e144869144973%_))) + (_%hd144870144976%_ (let () (declare (not safe)) - (##car _%e143884143988%_)))) + (##car _%e144869144973%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143885143991%_)) - (let ((_%e143887143996%_ + _%hd144870144976%_)) + (let ((_%e144872144981%_ (let () (declare (not safe)) (gx#stx-e - _%hd143885143991%_)))) - (let ((_%tl143889144001%_ + _%hd144870144976%_)))) + (let ((_%tl144874144986%_ (let () (declare (not safe)) - (##cdr _%e143887143996%_))) - (_%hd143888143999%_ + (##cdr _%e144872144981%_))) + (_%hd144873144984%_ (let () (declare (not safe)) - (##car _%e143887143996%_)))) + (##car _%e144872144981%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143889144001%_)) + _%tl144874144986%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl143886143993%_)) - (let ((_%e143890144004%_ + (gx#stx-pair? _%tl144871144978%_)) + (let ((_%e144875144989%_ (let () (declare (not safe)) - (gx#stx-e _%tl143886143993%_)))) - (let ((_%tl143892144009%_ + (gx#stx-e _%tl144871144978%_)))) + (let ((_%tl144877144994%_ (let () (declare (not safe)) - (##cdr _%e143890144004%_))) - (_%hd143891144007%_ + (##cdr _%e144875144989%_))) + (_%hd144876144992%_ (let () (declare (not safe)) - (##car _%e143890144004%_)))) + (##car _%e144875144989%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143892144009%_)) - (_%__kont148455148456%_ - _%hd143891144007%_ - _%hd143888143999%_) + (gx#stx-null? _%tl144877144994%_)) + (_%__kont149440149441%_ + _%hd144876144992%_ + _%hd144873144984%_) (let () (declare (not safe)) - (_%g143880143905%_))))) - (let () (declare (not safe)) (_%g143880143905%_))) + (_%g144865144890%_))))) + (let () (declare (not safe)) (_%g144865144890%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143886143993%_)) - (let ((_%e143898143918%_ + (gx#stx-pair? _%tl144871144978%_)) + (let ((_%e144883144903%_ (let () (declare (not safe)) - (gx#stx-e _%tl143886143993%_)))) - (let ((_%tl143900143923%_ + (gx#stx-e _%tl144871144978%_)))) + (let ((_%tl144885144908%_ (let () (declare (not safe)) - (##cdr _%e143898143918%_))) - (_%hd143899143921%_ + (##cdr _%e144883144903%_))) + (_%hd144884144906%_ (let () (declare (not safe)) - (##car _%e143898143918%_)))) + (##car _%e144883144903%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143900143923%_)) - (_%__kont148457148458%_ - _%hd143899143921%_ - _%hd143885143991%_) + (gx#stx-null? _%tl144885144908%_)) + (_%__kont149442149443%_ + _%hd144884144906%_ + _%hd144870144976%_) (let () (declare (not safe)) - (_%g143880143905%_))))) - (let () (declare (not safe)) (_%g143880143905%_)))))) + (_%g144865144890%_))))) + (let () (declare (not safe)) (_%g144865144890%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143886143993%_)) - (let ((_%e143898143918%_ + _%tl144871144978%_)) + (let ((_%e144883144903%_ (let () (declare (not safe)) (gx#stx-e - _%tl143886143993%_)))) - (let ((_%tl143900143923%_ + _%tl144871144978%_)))) + (let ((_%tl144885144908%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143898143918%_))) - (_%hd143899143921%_ - (let () (declare (not safe)) (##car _%e143898143918%_)))) + (##cdr _%e144883144903%_))) + (_%hd144884144906%_ + (let () (declare (not safe)) (##car _%e144883144903%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143900143923%_)) - (_%__kont148457148458%_ - _%hd143899143921%_ - _%hd143885143991%_) - (let () (declare (not safe)) (_%g143880143905%_))))) + (gx#stx-null? _%tl144885144908%_)) + (_%__kont149442149443%_ + _%hd144884144906%_ + _%hd144870144976%_) + (let () (declare (not safe)) (_%g144865144890%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143880143905%_)))))) + (_%g144865144890%_)))))) (let () (declare (not safe)) - (_%g143880143905%_))))))) - (_%__kont148501148502%_ + (_%g144865144890%_))))))) + (_%__kont149486149487%_ (lambda () - (let* ((_%body143844%_ - (if _%compiled-body?143732%_ - _%body143816%_ + (let* ((_%body144829%_ + (if _%compiled-body?144717%_ + _%body144801%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143730%_ - _%body143816%_)))) - (_%body143846%_ - (_%generate-values-post143737%_ - _%post143823%_ - _%body143844%_)) - (_%body143848%_ - (_%generate-values-check143736%_ - _%check143822%_ - _%body143846%_))) + _%self144715%_ + _%body144801%_)))) + (_%body144831%_ + (_%generate-values-post144722%_ + _%post144808%_ + _%body144829%_)) + (_%body144833%_ + (_%generate-values-check144721%_ + _%check144807%_ + _%body144831%_))) (cons 'letrec - (cons (reverse _%bind143821%_) - (cons _%body143848%_ '()))))))) + (cons (reverse _%bind144806%_) + (cons _%body144833%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148497148498%_)) - (let ((_%e143830143856%_ + (gx#stx-pair? _%__stx149482149483%_)) + (let ((_%e144815144841%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148497148498%_)))) - (let ((_%tl143832143861%_ + (gx#stx-e _%__stx149482149483%_)))) + (let ((_%tl144817144846%_ (let () (declare (not safe)) - (##cdr _%e143830143856%_))) - (_%hd143831143859%_ + (##cdr _%e144815144841%_))) + (_%hd144816144844%_ (let () (declare (not safe)) - (##car _%e143830143856%_)))) - (_%__kont148499148500%_ - _%tl143832143861%_ - _%hd143831143859%_))) - (_%__kont148501148502%_))))))) - (_%generate-values-check143736%_ - (lambda (_%check143812%_ _%body143813%_) + (##car _%e144815144841%_)))) + (_%__kont149484149485%_ + _%tl144817144846%_ + _%hd144816144844%_))) + (_%__kont149486149487%_))))))) + (_%generate-values-check144721%_ + (lambda (_%check144797%_ _%body144798%_) (cons 'begin - (let ((__tmp149264 (cons _%body143813%_ '())) - (__tmp149263 (reverse _%check143812%_))) + (let ((__tmp150249 (cons _%body144798%_ '())) + (__tmp150248 (reverse _%check144797%_))) (declare (not safe)) - (__foldr1 cons __tmp149264 __tmp149263))))) - (_%generate-values-post143737%_ - (lambda (_%post143805%_ _%body143806%_) + (__foldr1 cons __tmp150249 __tmp150248))))) + (_%generate-values-post144722%_ + (lambda (_%post144790%_ _%body144791%_) (cons 'begin - (let ((__tmp149268 (cons _%body143806%_ '())) - (__tmp149265 - (let ((__tmp149267 - (lambda (_%g143807143809%_) - (cons 'set! _%g143807143809%_))) - (__tmp149266 (reverse _%post143805%_))) + (let ((__tmp150253 (cons _%body144791%_ '())) + (__tmp150250 + (let ((__tmp150252 + (lambda (_%g144792144794%_) + (cons 'set! _%g144792144794%_))) + (__tmp150251 (reverse _%post144790%_))) (declare (not safe)) - (##map __tmp149267 __tmp149266)))) + (##map __tmp150252 __tmp150251)))) (declare (not safe)) - (__foldr1 cons __tmp149268 __tmp149265)))))) - (let* ((_%g143739143756%_ - (lambda (_%g143740143753%_) + (__foldr1 cons __tmp150253 __tmp150250)))))) + (let* ((_%g144724144741%_ + (lambda (_%g144725144738%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143740143753%_)))) - (_%g143738143802%_ - (lambda (_%g143740143759%_) + _%g144725144738%_)))) + (_%g144723144787%_ + (lambda (_%g144725144744%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143740143759%_)) - (let ((_%e143743143761%_ + (gx#stx-pair? _%g144725144744%_)) + (let ((_%e144728144746%_ (let () (declare (not safe)) - (gx#stx-e _%g143740143759%_)))) - (let ((_%hd143744143764%_ + (gx#stx-e _%g144725144744%_)))) + (let ((_%hd144729144749%_ (let () (declare (not safe)) - (##car _%e143743143761%_))) - (_%tl143745143766%_ + (##car _%e144728144746%_))) + (_%tl144730144751%_ (let () (declare (not safe)) - (##cdr _%e143743143761%_)))) + (##cdr _%e144728144746%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143745143766%_)) - (let ((_%e143746143769%_ + (gx#stx-pair? _%tl144730144751%_)) + (let ((_%e144731144754%_ (let () (declare (not safe)) - (gx#stx-e _%tl143745143766%_)))) - (let ((_%hd143747143772%_ + (gx#stx-e _%tl144730144751%_)))) + (let ((_%hd144732144757%_ (let () (declare (not safe)) - (##car _%e143746143769%_))) - (_%tl143748143774%_ + (##car _%e144731144754%_))) + (_%tl144733144759%_ (let () (declare (not safe)) - (##cdr _%e143746143769%_)))) + (##cdr _%e144731144754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143748143774%_)) - (let ((_%e143749143777%_ + (gx#stx-pair? _%tl144733144759%_)) + (let ((_%e144734144762%_ (let () (declare (not safe)) (gx#stx-e - _%tl143748143774%_)))) - (let ((_%hd143750143780%_ + _%tl144733144759%_)))) + (let ((_%hd144735144765%_ (let () (declare (not safe)) - (##car _%e143749143777%_))) - (_%tl143751143782%_ + (##car _%e144734144762%_))) + (_%tl144736144767%_ (let () (declare (not safe)) - (##cdr _%e143749143777%_)))) + (##cdr _%e144734144762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143751143782%_)) - ((lambda (_%L143785%_ - _%L143786%_) + _%tl144736144767%_)) + ((lambda (_%L144770%_ + _%L144771%_) (if (gxc#generate-runtime-simple-let? - _%L143786%_) - (_%generate-simple143734%_ - _%L143786%_ - _%L143785%_) - (_%generate-values143735%_ - _%L143786%_ - _%L143785%_))) - _%hd143750143780%_ - _%hd143747143772%_) - (_%g143739143756%_ - _%g143740143759%_)))) - (_%g143739143756%_ - _%g143740143759%_)))) - (_%g143739143756%_ _%g143740143759%_)))) - (_%g143739143756%_ _%g143740143759%_))))) - (_%g143738143802%_ _%stx143731%_))))) + _%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 (_%self144042%_ _%stx144043%_) - (let ((_%compiled-body?144045%_ '#f)) + (lambda (_%self145027%_ _%stx145028%_) + (let ((_%compiled-body?145030%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self144042%_ - _%stx144043%_ - _%compiled-body?144045%_)))) + _%self145027%_ + _%stx145028%_ + _%compiled-body?145030%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g149270_ - (let ((_g149269_ (let () (declare (not safe)) (##length _g149270_)))) - (cond ((let () (declare (not safe)) (##fx= _g149269_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g149270_)) - ((let () (declare (not safe)) (##fx= _g149269_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g149270_)) + (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% - _g149270_)))))) + _g150255_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self143311%_ _%stx143312%_) - (letrec ((_%generate-values143314%_ - (lambda (_%hd143557%_ _%body143558%_) - (let _%lp143560%_ ((_%rest143562%_ _%hd143557%_) - (_%bind143563%_ '())) - (let* ((_%rest143564143572%_ _%rest143562%_) - (_%else143566143583%_ + (lambda (_%self144296%_ _%stx144297%_) + (letrec ((_%generate-values144299%_ + (lambda (_%hd144542%_ _%body144543%_) + (let _%lp144545%_ ((_%rest144547%_ _%hd144542%_) + (_%bind144548%_ '())) + (let* ((_%rest144549144557%_ _%rest144547%_) + (_%else144551144568%_ (lambda () - (let ((_%bind143580%_ (reverse _%bind143563%_)) - (_%body143581%_ + (let ((_%bind144565%_ (reverse _%bind144548%_)) + (_%body144566%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143311%_ - _%body143558%_)))) + _%self144296%_ + _%body144543%_)))) (cons 'letrec* - (cons _%bind143580%_ - (cons _%body143581%_ '())))))) - (_%K143568143717%_ - (lambda (_%rest143586%_ _%hd-bind143587%_) - (let* ((_%__stx148511148512%_ - _%hd-bind143587%_) - (_%g143590143615%_ + (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" - _%__stx148511148512%_))))) - (let ((_%__kont148513148514%_ - (lambda (_%L143696%_ _%L143697%_) - (let ((_%eid143711%_ + _%__stx149496149497%_))))) + (let ((_%__kont149498149499%_ + (lambda (_%L144681%_ _%L144682%_) + (let ((_%eid144696%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143697%_))) - (_%expr143712%_ + _%L144682%_))) + (_%expr144697%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143311%_ - _%L143696%_)))) - (_%lp143560%_ - _%rest143586%_ - (cons (cons _%eid143711%_ - (cons _%expr143712%_ + _%self144296%_ + _%L144681%_)))) + (_%lp144545%_ + _%rest144571%_ + (cons (cons _%eid144696%_ + (cons _%expr144697%_ '())) - _%bind143563%_))))) - (_%__kont148515148516%_ - (lambda (_%L143636%_ _%L143637%_) - (let* ((_%vals143656%_ + _%bind144548%_))))) + (_%__kont149500149501%_ + (lambda (_%L144621%_ _%L144622%_) + (let* ((_%vals144641%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp143658%_ + (_%tmp144643%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143660%_ + (_%check-values144645%_ (gxc#generate-runtime-check-values - _%tmp143658%_ - _%L143637%_ - _%L143636%_)) - (_%refs143662%_ + _%tmp144643%_ + _%L144622%_ + _%L144621%_)) + (_%refs144647%_ (gxc#generate-runtime-let-values-bind - _%vals143656%_ - _%L143637%_)) - (_%expr143664%_ + _%vals144641%_ + _%L144622%_)) + (_%expr144649%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143311%_ - _%L143636%_)))) - (_%lp143560%_ - _%rest143586%_ - (let ((__tmp149271 - (cons (cons _%vals143656%_ + _%self144296%_ + _%L144621%_)))) + (_%lp144545%_ + _%rest144571%_ + (let ((__tmp150256 + (cons (cons _%vals144641%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp143658%_ - (cons _%expr143664%_ + (cons (cons (cons _%tmp144643%_ + (cons _%expr144649%_ '())) '()) - (cons _%check-values143660%_ - (cons _%tmp143658%_ '())))) + (cons _%check-values144645%_ + (cons _%tmp144643%_ '())))) '())) - _%bind143563%_))) + _%bind144548%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149271 - _%refs143662%_))))))) + __tmp150256 + _%refs144647%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148511148512%_)) - (let ((_%e143594143672%_ + (gx#stx-pair? _%__stx149496149497%_)) + (let ((_%e144579144657%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148511148512%_)))) - (let ((_%tl143596143677%_ + _%__stx149496149497%_)))) + (let ((_%tl144581144662%_ (let () (declare (not safe)) - (##cdr _%e143594143672%_))) - (_%hd143595143675%_ + (##cdr _%e144579144657%_))) + (_%hd144580144660%_ (let () (declare (not safe)) - (##car _%e143594143672%_)))) + (##car _%e144579144657%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143595143675%_)) - (let ((_%e143597143680%_ + _%hd144580144660%_)) + (let ((_%e144582144665%_ (let () (declare (not safe)) (gx#stx-e - _%hd143595143675%_)))) - (let ((_%tl143599143685%_ + _%hd144580144660%_)))) + (let ((_%tl144584144670%_ (let () (declare (not safe)) - (##cdr _%e143597143680%_))) - (_%hd143598143683%_ + (##cdr _%e144582144665%_))) + (_%hd144583144668%_ (let () (declare (not safe)) - (##car _%e143597143680%_)))) + (##car _%e144582144665%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143599143685%_)) + _%tl144584144670%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143596143677%_)) - (let ((_%e143600143688%_ + _%tl144581144662%_)) + (let ((_%e144585144673%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143596143677%_)))) - (let ((_%tl143602143693%_ + (gx#stx-e _%tl144581144662%_)))) + (let ((_%tl144587144678%_ (let () (declare (not safe)) - (##cdr _%e143600143688%_))) - (_%hd143601143691%_ + (##cdr _%e144585144673%_))) + (_%hd144586144676%_ (let () (declare (not safe)) - (##car _%e143600143688%_)))) + (##car _%e144585144673%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143602143693%_)) - (_%__kont148513148514%_ - _%hd143601143691%_ - _%hd143598143683%_) + (gx#stx-null? _%tl144587144678%_)) + (_%__kont149498149499%_ + _%hd144586144676%_ + _%hd144583144668%_) (let () (declare (not safe)) - (_%g143590143615%_))))) - (let () (declare (not safe)) (_%g143590143615%_))) + (_%g144575144600%_))))) + (let () (declare (not safe)) (_%g144575144600%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143596143677%_)) - (let ((_%e143608143628%_ + (gx#stx-pair? _%tl144581144662%_)) + (let ((_%e144593144613%_ (let () (declare (not safe)) - (gx#stx-e _%tl143596143677%_)))) - (let ((_%tl143610143633%_ + (gx#stx-e _%tl144581144662%_)))) + (let ((_%tl144595144618%_ (let () (declare (not safe)) - (##cdr _%e143608143628%_))) - (_%hd143609143631%_ + (##cdr _%e144593144613%_))) + (_%hd144594144616%_ (let () (declare (not safe)) - (##car _%e143608143628%_)))) + (##car _%e144593144613%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143610143633%_)) - (_%__kont148515148516%_ - _%hd143609143631%_ - _%hd143595143675%_) + (gx#stx-null? _%tl144595144618%_)) + (_%__kont149500149501%_ + _%hd144594144616%_ + _%hd144580144660%_) (let () (declare (not safe)) - (_%g143590143615%_))))) - (let () (declare (not safe)) (_%g143590143615%_)))))) + (_%g144575144600%_))))) + (let () (declare (not safe)) (_%g144575144600%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143596143677%_)) - (let ((_%e143608143628%_ + _%tl144581144662%_)) + (let ((_%e144593144613%_ (let () (declare (not safe)) (gx#stx-e - _%tl143596143677%_)))) - (let ((_%tl143610143633%_ + _%tl144581144662%_)))) + (let ((_%tl144595144618%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143608143628%_))) - (_%hd143609143631%_ - (let () (declare (not safe)) (##car _%e143608143628%_)))) + (##cdr _%e144593144613%_))) + (_%hd144594144616%_ + (let () (declare (not safe)) (##car _%e144593144613%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143610143633%_)) - (_%__kont148515148516%_ - _%hd143609143631%_ - _%hd143595143675%_) - (let () (declare (not safe)) (_%g143590143615%_))))) + (gx#stx-null? _%tl144595144618%_)) + (_%__kont149500149501%_ + _%hd144594144616%_ + _%hd144580144660%_) + (let () (declare (not safe)) (_%g144575144600%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143590143615%_)))))) + (_%g144575144600%_)))))) (let () (declare (not safe)) - (_%g143590143615%_)))))))) - (if (pair? _%rest143564143572%_) - (let ((_%hd143569143720%_ + (_%g144575144600%_)))))))) + (if (pair? _%rest144549144557%_) + (let ((_%hd144554144705%_ (let () (declare (not safe)) - (##car _%rest143564143572%_))) - (_%tl143570143722%_ + (##car _%rest144549144557%_))) + (_%tl144555144707%_ (let () (declare (not safe)) - (##cdr _%rest143564143572%_)))) - (let* ((_%hd-bind143725%_ _%hd143569143720%_) - (_%rest143727%_ _%tl143570143722%_)) - (_%K143568143717%_ - _%rest143727%_ - _%hd-bind143725%_))) - (_%else143566143583%_)))))) - (_%generate-letrec?143315%_ - (lambda (_%hd143447%_) - (let _%lp143449%_ ((_%rest143451%_ _%hd143447%_)) - (let* ((_%rest143452143460%_ _%rest143451%_) - (_%else143454143468%_ (lambda () '#t)) - (_%K143456143545%_ - (lambda (_%rest143471%_ _%hd-bind143472%_) - (let* ((_%g143474143491%_ - (lambda (_%g143475143488%_) + (##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" - _%g143475143488%_)))) - (_%g143473143542%_ - (lambda (_%g143475143494%_) + _%g144460144473%_)))) + (_%g144458144527%_ + (lambda (_%g144460144479%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g143475143494%_)) - (let ((_%e143478143496%_ + _%g144460144479%_)) + (let ((_%e144463144481%_ (let () (declare (not safe)) (gx#stx-e - _%g143475143494%_)))) - (let ((_%hd143479143499%_ + _%g144460144479%_)))) + (let ((_%hd144464144484%_ (let () (declare (not safe)) - (##car _%e143478143496%_))) - (_%tl143480143501%_ + (##car _%e144463144481%_))) + (_%tl144465144486%_ (let () (declare (not safe)) - (##cdr _%e143478143496%_)))) + (##cdr _%e144463144481%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143479143499%_)) - (let ((_%e143481143504%_ + _%hd144464144484%_)) + (let ((_%e144466144489%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd143479143499%_)))) - (let ((_%hd143482143507%_ - (let () (declare (not safe)) (##car _%e143481143504%_))) - (_%tl143483143509%_ + (gx#stx-e _%hd144464144484%_)))) + (let ((_%hd144467144492%_ + (let () (declare (not safe)) (##car _%e144466144489%_))) + (_%tl144468144494%_ (let () (declare (not safe)) - (##cdr _%e143481143504%_)))) + (##cdr _%e144466144489%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143483143509%_)) + (gx#stx-null? _%tl144468144494%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143480143501%_)) - (let ((_%e143484143512%_ + (gx#stx-pair? _%tl144465144486%_)) + (let ((_%e144469144497%_ (let () (declare (not safe)) - (gx#stx-e _%tl143480143501%_)))) - (let ((_%hd143485143515%_ + (gx#stx-e _%tl144465144486%_)))) + (let ((_%hd144470144500%_ (let () (declare (not safe)) - (##car _%e143484143512%_))) - (_%tl143486143517%_ + (##car _%e144469144497%_))) + (_%tl144471144502%_ (let () (declare (not safe)) - (##cdr _%e143484143512%_)))) + (##cdr _%e144469144497%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143486143517%_)) - ((lambda (_%L143520%_ _%L143521%_) - (if (_%is-lambda-expr?143316%_ - _%L143520%_) - (_%lp143449%_ _%rest143471%_) + (gx#stx-null? _%tl144471144502%_)) + ((lambda (_%L144505%_ _%L144506%_) + (if (_%is-lambda-expr?144301%_ + _%L144505%_) + (_%lp144434%_ _%rest144456%_) '#f)) - _%hd143485143515%_ - _%hd143482143507%_) - (_%g143474143491%_ _%g143475143494%_)))) - (_%g143474143491%_ _%g143475143494%_)) - (_%g143474143491%_ _%g143475143494%_)))) - (_%g143474143491%_ _%g143475143494%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143474143491%_ - _%g143475143494%_))))) - (_%g143473143542%_ _%hd-bind143472%_))))) - (if (pair? _%rest143452143460%_) - (let ((_%hd143457143548%_ + _%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 _%rest143452143460%_))) - (_%tl143458143550%_ + (##car _%rest144437144445%_))) + (_%tl144443144535%_ (let () (declare (not safe)) - (##cdr _%rest143452143460%_)))) - (let* ((_%hd-bind143553%_ _%hd143457143548%_) - (_%rest143555%_ _%tl143458143550%_)) - (_%K143456143545%_ - _%rest143555%_ - _%hd-bind143553%_))) - (_%else143454143468%_)))))) - (_%is-lambda-expr?143316%_ - (lambda (_%expr143384%_) - (let* ((_%__stx148555148556%_ _%expr143384%_) - (_%g143387143401%_ + (##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" - _%__stx148555148556%_))))) - (let ((_%__kont148557148558%_ - (lambda (_%L143429%_ _%L143430%_) '#t)) - (_%__kont148559148560%_ (lambda () '#f))) + _%__stx149540149541%_))))) + (let ((_%__kont149542149543%_ + (lambda (_%L144414%_ _%L144415%_) '#t)) + (_%__kont149544149545%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148555148556%_)) - (let ((_%e143391143413%_ + (gx#stx-pair? _%__stx149540149541%_)) + (let ((_%e144376144398%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148555148556%_)))) - (let ((_%tl143393143418%_ + (gx#stx-e _%__stx149540149541%_)))) + (let ((_%tl144378144403%_ (let () (declare (not safe)) - (##cdr _%e143391143413%_))) - (_%hd143392143416%_ + (##cdr _%e144376144398%_))) + (_%hd144377144401%_ (let () (declare (not safe)) - (##car _%e143391143413%_)))) + (##car _%e144376144398%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143392143416%_)) + (gx#identifier? _%hd144377144401%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd143392143416%_)) + _%hd144377144401%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143393143418%_)) - (let ((_%e143394143421%_ + _%tl144378144403%_)) + (let ((_%e144379144406%_ (let () (declare (not safe)) (gx#stx-e - _%tl143393143418%_)))) - (let ((_%tl143396143426%_ + _%tl144378144403%_)))) + (let ((_%tl144381144411%_ (let () (declare (not safe)) - (##cdr _%e143394143421%_))) - (_%hd143395143424%_ + (##cdr _%e144379144406%_))) + (_%hd144380144409%_ (let () (declare (not safe)) - (##car _%e143394143421%_)))) - (_%__kont148557148558%_ - _%tl143396143426%_ - _%hd143395143424%_))) - (_%__kont148559148560%_)) - (_%__kont148559148560%_)) - (_%__kont148559148560%_)))) - (_%__kont148559148560%_))))))) - (let* ((_%g143318143335%_ - (lambda (_%g143319143332%_) + (##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" - _%g143319143332%_)))) - (_%g143317143381%_ - (lambda (_%g143319143338%_) + _%g144304144317%_)))) + (_%g144302144366%_ + (lambda (_%g144304144323%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143319143338%_)) - (let ((_%e143322143340%_ + (gx#stx-pair? _%g144304144323%_)) + (let ((_%e144307144325%_ (let () (declare (not safe)) - (gx#stx-e _%g143319143338%_)))) - (let ((_%hd143323143343%_ + (gx#stx-e _%g144304144323%_)))) + (let ((_%hd144308144328%_ (let () (declare (not safe)) - (##car _%e143322143340%_))) - (_%tl143324143345%_ + (##car _%e144307144325%_))) + (_%tl144309144330%_ (let () (declare (not safe)) - (##cdr _%e143322143340%_)))) + (##cdr _%e144307144325%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143324143345%_)) - (let ((_%e143325143348%_ + (gx#stx-pair? _%tl144309144330%_)) + (let ((_%e144310144333%_ (let () (declare (not safe)) - (gx#stx-e _%tl143324143345%_)))) - (let ((_%hd143326143351%_ + (gx#stx-e _%tl144309144330%_)))) + (let ((_%hd144311144336%_ (let () (declare (not safe)) - (##car _%e143325143348%_))) - (_%tl143327143353%_ + (##car _%e144310144333%_))) + (_%tl144312144338%_ (let () (declare (not safe)) - (##cdr _%e143325143348%_)))) + (##cdr _%e144310144333%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143327143353%_)) - (let ((_%e143328143356%_ + (gx#stx-pair? _%tl144312144338%_)) + (let ((_%e144313144341%_ (let () (declare (not safe)) (gx#stx-e - _%tl143327143353%_)))) - (let ((_%hd143329143359%_ + _%tl144312144338%_)))) + (let ((_%hd144314144344%_ (let () (declare (not safe)) - (##car _%e143328143356%_))) - (_%tl143330143361%_ + (##car _%e144313144341%_))) + (_%tl144315144346%_ (let () (declare (not safe)) - (##cdr _%e143328143356%_)))) + (##cdr _%e144313144341%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143330143361%_)) - ((lambda (_%L143364%_ - _%L143365%_) + _%tl144315144346%_)) + ((lambda (_%L144349%_ + _%L144350%_) (if (gxc#generate-runtime-simple-let? - _%L143365%_) - (if (_%generate-letrec?143315%_ - _%L143365%_) + _%L144350%_) + (if (_%generate-letrec?144300%_ + _%L144350%_) (gxc#generate-runtime-simple-let - _%self143311%_ + _%self144296%_ 'letrec - _%L143365%_ - _%L143364%_ + _%L144350%_ + _%L144349%_ '#f) (gxc#generate-runtime-simple-let - _%self143311%_ + _%self144296%_ 'letrec* - _%L143365%_ - _%L143364%_ + _%L144350%_ + _%L144349%_ '#f)) - (_%generate-values143314%_ - _%L143365%_ - _%L143364%_))) - _%hd143329143359%_ - _%hd143326143351%_) - (_%g143318143335%_ - _%g143319143338%_)))) - (_%g143318143335%_ - _%g143319143338%_)))) - (_%g143318143335%_ _%g143319143338%_)))) - (_%g143318143335%_ _%g143319143338%_))))) - (_%g143317143381%_ _%stx143312%_))))) + (_%generate-values144299%_ + _%L144350%_ + _%L144349%_))) + _%hd144314144344%_ + _%hd144311144336%_) + (_%g144303144320%_ + _%g144304144323%_)))) + (_%g144303144320%_ + _%g144304144323%_)))) + (_%g144303144320%_ _%g144304144323%_)))) + (_%g144303144320%_ _%g144304144323%_))))) + (_%g144302144366%_ _%stx144297%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd143248%_) - (let _%lp143250%_ ((_%rest143252%_ _%hd143248%_)) - (let* ((_%rest143253143269%_ _%rest143252%_) - (_%else143256143277%_ (lambda () '#f))) - (let ((_%K143259143290%_ - (lambda (_%rest143288%_) (_%lp143250%_ _%rest143288%_))) - (_%K143258143282%_ (lambda () '#t))) - (let ((_%try-match143255143285%_ + (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? _%rest143253143269%_) - (_%K143258143282%_) - (_%else143256143277%_))))) - (if (pair? _%rest143253143269%_) - (let ((_%tl143261143295%_ + (if (null? _%rest144238144254%_) + (_%K144243144267%_) + (_%else144241144262%_))))) + (if (pair? _%rest144238144254%_) + (let ((_%tl144246144280%_ (let () (declare (not safe)) - (##cdr _%rest143253143269%_))) - (_%hd143260143293%_ + (##cdr _%rest144238144254%_))) + (_%hd144245144278%_ (let () (declare (not safe)) - (##car _%rest143253143269%_)))) - (if (pair? _%hd143260143293%_) - (let ((_%tl143263143300%_ + (##car _%rest144238144254%_)))) + (if (pair? _%hd144245144278%_) + (let ((_%tl144248144285%_ (let () (declare (not safe)) - (##cdr _%hd143260143293%_))) - (_%hd143262143298%_ + (##cdr _%hd144245144278%_))) + (_%hd144247144283%_ (let () (declare (not safe)) - (##car _%hd143260143293%_)))) - (if (pair? _%hd143262143298%_) - (let ((_%tl143267143303%_ + (##car _%hd144245144278%_)))) + (if (pair? _%hd144247144283%_) + (let ((_%tl144252144288%_ (let () (declare (not safe)) - (##cdr _%hd143262143298%_)))) - (if (null? _%tl143267143303%_) - (if (pair? _%tl143263143300%_) - (let ((_%tl143265143306%_ + (##cdr _%hd144247144283%_)))) + (if (null? _%tl144252144288%_) + (if (pair? _%tl144248144285%_) + (let ((_%tl144250144291%_ (let () (declare (not safe)) - (##cdr _%tl143263143300%_)))) - (if (null? _%tl143265143306%_) - (let ((_%rest143309%_ - _%tl143261143295%_)) - (_%lp143250%_ - _%rest143309%_)) - (_%else143256143277%_))) - (_%else143256143277%_)) - (_%else143256143277%_))) - (_%else143256143277%_))) - (_%else143256143277%_))) - (_%try-match143255143285%_)))))))) + (##cdr _%tl144248144285%_)))) + (if (null? _%tl144250144291%_) + (let ((_%rest144294%_ + _%tl144246144280%_)) + (_%lp144235%_ + _%rest144294%_)) + (_%else144241144262%_))) + (_%else144241144262%_)) + (_%else144241144262%_))) + (_%else144241144262%_))) + (_%else144241144262%_))) + (_%try-match144240144270%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self143159%_ - _%form143160%_ - _%hd143161%_ - _%body143162%_ - _%compiled-body?143163%_) - (letrec ((_%generate1143165%_ - (lambda (_%bind143204%_) - (let* ((_%bind143205143216%_ _%bind143204%_) - (_%E143207143220%_ + (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" - _%bind143205143216%_ + _%bind144190144201%_ '([[id] expr]))) '#!void)) - (_%K143208143226%_ - (lambda (_%expr143223%_ _%id143224%_) + (_%K144193144211%_ + (lambda (_%expr144208%_ _%id144209%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id143224%_)) + _%id144209%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self143159%_ - _%expr143223%_)) + _%self144144%_ + _%expr144208%_)) '()))))) - (if (pair? _%bind143205143216%_) - (let ((_%hd143209143229%_ + (if (pair? _%bind144190144201%_) + (let ((_%hd144194144214%_ (let () (declare (not safe)) - (##car _%bind143205143216%_))) - (_%tl143210143231%_ + (##car _%bind144190144201%_))) + (_%tl144195144216%_ (let () (declare (not safe)) - (##cdr _%bind143205143216%_)))) - (if (pair? _%hd143209143229%_) - (let ((_%hd143213143234%_ + (##cdr _%bind144190144201%_)))) + (if (pair? _%hd144194144214%_) + (let ((_%hd144198144219%_ (let () (declare (not safe)) - (##car _%hd143209143229%_))) - (_%tl143214143236%_ + (##car _%hd144194144214%_))) + (_%tl144199144221%_ (let () (declare (not safe)) - (##cdr _%hd143209143229%_)))) - (let ((_%id143239%_ _%hd143213143234%_)) - (if (null? _%tl143214143236%_) - (if (pair? _%tl143210143231%_) - (let ((_%hd143211143241%_ + (##cdr _%hd144194144214%_)))) + (let ((_%id144224%_ _%hd144198144219%_)) + (if (null? _%tl144199144221%_) + (if (pair? _%tl144195144216%_) + (let ((_%hd144196144226%_ (let () (declare (not safe)) - (##car _%tl143210143231%_))) - (_%tl143212143243%_ + (##car _%tl144195144216%_))) + (_%tl144197144228%_ (let () (declare (not safe)) - (##cdr _%tl143210143231%_)))) - (let ((_%expr143246%_ - _%hd143211143241%_)) - (if (null? _%tl143212143243%_) - (_%K143208143226%_ - _%expr143246%_ - _%id143239%_) - (_%E143207143220%_)))) - (_%E143207143220%_)) - (_%E143207143220%_)))) - (_%E143207143220%_))) - (_%E143207143220%_)))))) - (let* ((_%bind143167%_ (map _%generate1143165%_ _%hd143161%_)) - (_%body143169%_ - (if _%compiled-body?143163%_ - _%body143162%_ + (##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 _%self143159%_ _%body143162%_)))) - (_%body143201%_ - (let* ((_%body143170143178%_ _%body143169%_) - (_%else143172143186%_ - (lambda () (cons _%body143169%_ '()))) - (_%K143174143191%_ - (lambda (_%exprs143189%_) _%exprs143189%_))) - (if (pair? _%body143170143178%_) - (let ((_%hd143175143194%_ + (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 _%body143170143178%_))) - (_%tl143176143196%_ + (##car _%body144155144163%_))) + (_%tl144161144181%_ (let () (declare (not safe)) - (##cdr _%body143170143178%_)))) + (##cdr _%body144155144163%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143175143194%_ 'begin)) - (let ((_%exprs143199%_ _%tl143176143196%_)) - (_%K143174143191%_ _%exprs143199%_)) - (_%else143172143186%_))) - (_%else143172143186%_))))) - (cons _%form143160%_ (cons _%bind143167%_ _%body143201%_)))))) + (##eq? _%hd144160144179%_ 'begin)) + (let ((_%exprs144184%_ _%tl144161144181%_)) + (_%K144159144176%_ _%exprs144184%_)) + (_%else144157144171%_))) + (_%else144157144171%_))))) + (cons _%form144145%_ (cons _%bind144152%_ _%body144186%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self143059%_ _%stx143060%_) - (letrec ((_%generate1143062%_ - (lambda (_%datum143114%_) - (if (or (null? _%datum143114%_) + (lambda (_%self144044%_ _%stx144045%_) + (letrec ((_%generate1144047%_ + (lambda (_%datum144099%_) + (if (or (null? _%datum144099%_) (let () (declare (not safe)) - (interned-symbol? _%datum143114%_)) + (interned-symbol? _%datum144099%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum143114%_)) - (eof-object? _%datum143114%_)) - _%datum143114%_ - (if (uninterned-symbol? _%datum143114%_) + (gx#self-quoting? _%datum144099%_)) + (eof-object? _%datum144099%_)) + _%datum144099%_ + (if (uninterned-symbol? _%datum144099%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum143114%_ + _%datum144099%_ '#t)) - (if (pair? _%datum143114%_) - (cons (_%generate1143062%_ + (if (pair? _%datum144099%_) + (cons (_%generate1144047%_ (let () (declare (not safe)) - (##car _%datum143114%_))) - (_%generate1143062%_ + (##car _%datum144099%_))) + (_%generate1144047%_ (let () (declare (not safe)) - (##cdr _%datum143114%_)))) - (if (box? _%datum143114%_) - (box (_%generate1143062%_ - (unbox _%datum143114%_))) - (if (vector? _%datum143114%_) + (##cdr _%datum144099%_)))) + (if (box? _%datum144099%_) + (box (_%generate1144047%_ + (unbox _%datum144099%_))) + (if (vector? _%datum144099%_) (vector-map - _%generate1143062%_ - _%datum143114%_) - (if (or (s8vector? _%datum143114%_) - (u8vector? _%datum143114%_) - (s16vector? _%datum143114%_) - (u16vector? _%datum143114%_) - (s32vector? _%datum143114%_) - (u32vector? _%datum143114%_) - (s64vector? _%datum143114%_) - (u64vector? _%datum143114%_) - (f32vector? _%datum143114%_) - (f64vector? _%datum143114%_)) - _%datum143114%_ + _%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" - _%stx143060%_))))))))))) - (let* ((_%g143064143077%_ - (lambda (_%g143065143074%_) + _%stx144045%_))))))))))) + (let* ((_%g144049144062%_ + (lambda (_%g144050144059%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143065143074%_)))) - (_%g143063143111%_ - (lambda (_%g143065143080%_) + _%g144050144059%_)))) + (_%g144048144096%_ + (lambda (_%g144050144065%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143065143080%_)) - (let ((_%e143067143082%_ + (gx#stx-pair? _%g144050144065%_)) + (let ((_%e144052144067%_ (let () (declare (not safe)) - (gx#stx-e _%g143065143080%_)))) - (let ((_%hd143068143085%_ + (gx#stx-e _%g144050144065%_)))) + (let ((_%hd144053144070%_ (let () (declare (not safe)) - (##car _%e143067143082%_))) - (_%tl143069143087%_ + (##car _%e144052144067%_))) + (_%tl144054144072%_ (let () (declare (not safe)) - (##cdr _%e143067143082%_)))) + (##cdr _%e144052144067%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143069143087%_)) - (let ((_%e143070143090%_ + (gx#stx-pair? _%tl144054144072%_)) + (let ((_%e144055144075%_ (let () (declare (not safe)) - (gx#stx-e _%tl143069143087%_)))) - (let ((_%hd143071143093%_ + (gx#stx-e _%tl144054144072%_)))) + (let ((_%hd144056144078%_ (let () (declare (not safe)) - (##car _%e143070143090%_))) - (_%tl143072143095%_ + (##car _%e144055144075%_))) + (_%tl144057144080%_ (let () (declare (not safe)) - (##cdr _%e143070143090%_)))) + (##cdr _%e144055144075%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143072143095%_)) - ((lambda (_%L143098%_) + (gx#stx-null? _%tl144057144080%_)) + ((lambda (_%L144083%_) (cons 'quote - (cons (_%generate1143062%_ + (cons (_%generate1144047%_ (let () (declare (not safe)) (gx#stx-e - _%L143098%_))) + _%L144083%_))) '()))) - _%hd143071143093%_) - (_%g143064143077%_ - _%g143065143080%_)))) - (_%g143064143077%_ _%g143065143080%_)))) - (_%g143064143077%_ _%g143065143080%_))))) - (_%g143063143111%_ _%stx143060%_))))) + _%hd144056144078%_) + (_%g144049144062%_ + _%g144050144065%_)))) + (_%g144049144062%_ _%g144050144065%_)))) + (_%g144049144062%_ _%g144050144065%_))))) + (_%g144048144096%_ _%stx144045%_))))) (define gxc#generate-runtime-call% - (lambda (_%self142500%_ _%stx142501%_) - (letrec ((_%compile-call142503%_ - (lambda (_%rator142792%_ _%rands142793%_) - (let ((_%rator142799%_ + (lambda (_%self143485%_ _%stx143486%_) + (letrec ((_%compile-call143488%_ + (lambda (_%rator143777%_ _%rands143778%_) + (let ((_%rator143784%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142500%_ - _%rator142792%_))) - (_%rands142800%_ - (map (lambda (_%g142794142796%_) + _%self143485%_ + _%rator143777%_))) + (_%rands143785%_ + (map (lambda (_%g143779143781%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self142500%_ - _%g142794142796%_))) - _%rands142793%_))) - (let* ((_%__stx148602148603%_ _%rator142799%_) - (_%g142803142855%_ + _%self143485%_ + _%g143779143781%_))) + _%rands143778%_))) + (let* ((_%__stx149587149588%_ _%rator143784%_) + (_%g143788143840%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148602148603%_))))) - (let ((_%__kont148604148605%_ - (lambda (_%L142979%_ - _%L142980%_ - _%L142981%_ - _%L142982%_) - (if (let ((__tmp149274 + _%__stx149587149588%_))))) + (let ((_%__kont149589149590%_ + (lambda (_%L143964%_ + _%L143965%_ + _%L143966%_ + _%L143967%_) + (if (let ((__tmp150259 (let () (declare (not safe)) - (##length _%rands142800%_))) - (__tmp149272 - (length (let ((__tmp149273 - (lambda (_%g143018143021%_ + (##length _%rands143785%_))) + (__tmp150257 + (length (let ((__tmp150258 + (lambda (_%g144003144006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g143019143023%_) - (cons _%g143018143021%_ _%g143019143023%_)))) + _%g144004144008%_) + (cons _%g144003144006%_ _%g144004144008%_)))) (declare (not safe)) - (__foldr1 __tmp149273 '() _%L142981%_))))) + (__foldr1 __tmp150258 '() _%L143966%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp149274 __tmp149272)) - (let* ((_%id143026%_ _%L142982%_) - (_%args143035%_ - (let ((__tmp149275 - (lambda (_%g143027143030%_ - _%g143028143032%_) - (cons _%g143027143030%_ - _%g143028143032%_)))) + (##fx= __tmp150259 __tmp150257)) + (let* ((_%id144011%_ _%L143967%_) + (_%args144020%_ + (let ((__tmp150260 + (lambda (_%g144012144015%_ + _%g144013144017%_) + (cons _%g144012144015%_ + _%g144013144017%_)))) (declare (not safe)) (__foldr1 - __tmp149275 + __tmp150260 '() - _%L142981%_))) - (_%body143044%_ - (let ((__tmp149276 - (lambda (_%g143036143039%_ - _%g143037143041%_) - (cons _%g143036143039%_ - _%g143037143041%_)))) + _%L143966%_))) + (_%body144029%_ + (let ((__tmp150261 + (lambda (_%g144021144024%_ + _%g144022144026%_) + (cons _%g144021144024%_ + _%g144022144026%_)))) (declare (not safe)) (__foldr1 - __tmp149276 + __tmp150261 '() - _%L142980%_))) - (_%init143046%_ + _%L143965%_))) + (_%init144031%_ (map list - _%args143035%_ - _%rands142800%_))) + _%args144020%_ + _%rands143785%_))) (cons 'let - (cons _%id143026%_ - (cons _%init143046%_ - _%body143044%_)))) - (let ((__tmp149277 - (let ((__tmp149278 - (lambda (_%g143048143051%_ - _%g143049143053%_) - (cons _%g143048143051%_ - _%g143049143053%_)))) + (cons _%id144011%_ + (cons _%init144031%_ + _%body144029%_)))) + (let ((__tmp150262 + (let ((__tmp150263 + (lambda (_%g144033144036%_ + _%g144034144038%_) + (cons _%g144033144036%_ + _%g144034144038%_)))) (declare (not safe)) (__foldr1 - __tmp149278 + __tmp150263 '() - _%L142981%_)))) + _%L143966%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx142501%_ - __tmp149277 - _%rands142800%_))))) - (_%__kont148610148611%_ + _%stx143486%_ + __tmp150262 + _%rands143785%_))))) + (_%__kont149595149596%_ (lambda () - (cons _%rator142799%_ _%rands142800%_)))) - (let ((_%__match148669148670%_ - (lambda (_%e142809142867%_ - _%hd142810142870%_ - _%tl142811142872%_ - _%e142812142875%_ - _%hd142813142878%_ - _%tl142814142880%_ - _%e142815142883%_ - _%hd142816142886%_ - _%tl142817142888%_ - _%e142818142891%_ - _%hd142819142894%_ - _%tl142820142896%_ - _%e142821142899%_ - _%hd142822142902%_ - _%tl142823142904%_ - _%e142824142907%_ - _%hd142825142910%_ - _%tl142826142912%_ - _%e142827142915%_ - _%hd142828142918%_ - _%tl142829142920%_ - _%__splice148606148607%_ - _%target142830142923%_ - _%tl142832142925%_) - (letrec ((_%loop142833142928%_ - (lambda (_%hd142831142931%_ - _%arg142837142933%_) + (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? - _%hd142831142931%_)) - (let ((_%e142834142936%_ + _%hd143816143916%_)) + (let ((_%e143819143921%_ (let () (declare (not safe)) (gx#stx-e - _%hd142831142931%_)))) - (let ((_%lp-tl142836142941%_ + _%hd143816143916%_)))) + (let ((_%lp-tl143821143926%_ (let () (declare (not safe)) - (##cdr _%e142834142936%_))) - (_%lp-hd142835142939%_ + (##cdr _%e143819143921%_))) + (_%lp-hd143820143924%_ (let () (declare (not safe)) - (##car _%e142834142936%_)))) - (_%loop142833142928%_ - _%lp-tl142836142941%_ - (cons _%lp-hd142835142939%_ - _%arg142837142933%_)))) - (let ((_%arg142838142944%_ - (reverse _%arg142837142933%_))) + (##car _%e143819143921%_)))) + (_%loop143818143913%_ + _%lp-tl143821143926%_ + (cons _%lp-hd143820143924%_ + _%arg143822143918%_)))) + (let ((_%arg143823143929%_ + (reverse _%arg143822143918%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142829142920%_)) - (let ((_%__splice148608148609%_ + _%tl143814143905%_)) + (let ((_%__splice149593149594%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl142829142920%_ '0)))) - (let ((_%tl142841142949%_ + (gx#syntax-split-splice _%tl143814143905%_ '0)))) + (let ((_%tl143826143934%_ (let () (declare (not safe)) - (##vector-ref _%__splice148608148609%_ '1))) - (_%target142839142947%_ + (##vector-ref _%__splice149593149594%_ '1))) + (_%target143824143932%_ (let () (declare (not safe)) - (##vector-ref _%__splice148608148609%_ '0)))) + (##vector-ref _%__splice149593149594%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142841142949%_)) - (letrec ((_%loop142842142952%_ - (lambda (_%hd142840142955%_ - _%body142846142957%_) + (gx#stx-null? _%tl143826143934%_)) + (letrec ((_%loop143827143937%_ + (lambda (_%hd143825143940%_ + _%body143831143942%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142840142955%_)) - (let ((_%e142843142960%_ + (gx#stx-pair? _%hd143825143940%_)) + (let ((_%e143828143945%_ (let () (declare (not safe)) (gx#stx-e - _%hd142840142955%_)))) - (let ((_%lp-tl142845142965%_ + _%hd143825143940%_)))) + (let ((_%lp-tl143830143950%_ (let () (declare (not safe)) - (##cdr _%e142843142960%_))) - (_%lp-hd142844142963%_ + (##cdr _%e143828143945%_))) + (_%lp-hd143829143948%_ (let () (declare (not safe)) - (##car _%e142843142960%_)))) - (_%loop142842142952%_ - _%lp-tl142845142965%_ - (cons _%lp-hd142844142963%_ - _%body142846142957%_)))) - (let ((_%body142847142968%_ - (reverse _%body142846142957%_))) + (##car _%e143828143945%_)))) + (_%loop143827143937%_ + _%lp-tl143830143950%_ + (cons _%lp-hd143829143948%_ + _%body143831143942%_)))) + (let ((_%body143832143953%_ + (reverse _%body143831143942%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142823142904%_)) + _%tl143808143889%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142817142888%_)) + _%tl143802143873%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142814142880%_)) - (let ((_%e142848142971%_ + _%tl143799143865%_)) + (let ((_%e143833143956%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl142814142880%_)))) - (let ((_%tl142850142976%_ + (gx#stx-e _%tl143799143865%_)))) + (let ((_%tl143835143961%_ (let () (declare (not safe)) - (##cdr _%e142848142971%_))) - (_%hd142849142974%_ + (##cdr _%e143833143956%_))) + (_%hd143834143959%_ (let () (declare (not safe)) - (##car _%e142848142971%_)))) + (##car _%e143833143956%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142850142976%_)) - (let ((_%L142979%_ _%hd142849142974%_) - (_%L142980%_ _%body142847142968%_) - (_%L142981%_ _%arg142838142944%_) - (_%L142982%_ _%hd142819142894%_)) - (if (eq? _%L142982%_ _%L142979%_) - (_%__kont148604148605%_ - _%L142979%_ - _%L142980%_ - _%L142981%_ - _%L142982%_) - (_%__kont148610148611%_))) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148610148611%_)) - (_%__kont148610148611%_))))))) - (_%loop142842142952%_ _%target142839142947%_ '())) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142833142928%_ - _%target142830142923%_ + (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? _%__stx148602148603%_)) - (let ((_%e142809142867%_ + (gx#stx-pair? _%__stx149587149588%_)) + (let ((_%e143794143852%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148602148603%_)))) - (let ((_%tl142811142872%_ + (gx#stx-e _%__stx149587149588%_)))) + (let ((_%tl143796143857%_ (let () (declare (not safe)) - (##cdr _%e142809142867%_))) - (_%hd142810142870%_ + (##cdr _%e143794143852%_))) + (_%hd143795143855%_ (let () (declare (not safe)) - (##car _%e142809142867%_)))) + (##car _%e143794143852%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142810142870%_)) + (gx#identifier? _%hd143795143855%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd142810142870%_)) + _%hd143795143855%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142811142872%_)) - (let ((_%e142812142875%_ + _%tl143796143857%_)) + (let ((_%e143797143860%_ (let () (declare (not safe)) (gx#stx-e - _%tl142811142872%_)))) - (let ((_%tl142814142880%_ + _%tl143796143857%_)))) + (let ((_%tl143799143865%_ (let () (declare (not safe)) - (##cdr _%e142812142875%_))) - (_%hd142813142878%_ + (##cdr _%e143797143860%_))) + (_%hd143798143863%_ (let () (declare (not safe)) - (##car _%e142812142875%_)))) + (##car _%e143797143860%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142813142878%_)) - (let ((_%e142815142883%_ + _%hd143798143863%_)) + (let ((_%e143800143868%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd142813142878%_)))) - (let ((_%tl142817142888%_ + (gx#stx-e _%hd143798143863%_)))) + (let ((_%tl143802143873%_ (let () (declare (not safe)) - (##cdr _%e142815142883%_))) - (_%hd142816142886%_ + (##cdr _%e143800143868%_))) + (_%hd143801143871%_ (let () (declare (not safe)) - (##car _%e142815142883%_)))) + (##car _%e143800143868%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142816142886%_)) - (let ((_%e142818142891%_ + (gx#stx-pair? _%hd143801143871%_)) + (let ((_%e143803143876%_ (let () (declare (not safe)) - (gx#stx-e _%hd142816142886%_)))) - (let ((_%tl142820142896%_ + (gx#stx-e _%hd143801143871%_)))) + (let ((_%tl143805143881%_ (let () (declare (not safe)) - (##cdr _%e142818142891%_))) - (_%hd142819142894%_ + (##cdr _%e143803143876%_))) + (_%hd143804143879%_ (let () (declare (not safe)) - (##car _%e142818142891%_)))) + (##car _%e143803143876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142820142896%_)) - (let ((_%e142821142899%_ + (gx#stx-pair? _%tl143805143881%_)) + (let ((_%e143806143884%_ (let () (declare (not safe)) - (gx#stx-e _%tl142820142896%_)))) - (let ((_%tl142823142904%_ + (gx#stx-e _%tl143805143881%_)))) + (let ((_%tl143808143889%_ (let () (declare (not safe)) - (##cdr _%e142821142899%_))) - (_%hd142822142902%_ + (##cdr _%e143806143884%_))) + (_%hd143807143887%_ (let () (declare (not safe)) - (##car _%e142821142899%_)))) + (##car _%e143806143884%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142822142902%_)) - (let ((_%e142824142907%_ + (gx#stx-pair? _%hd143807143887%_)) + (let ((_%e143809143892%_ (let () (declare (not safe)) (gx#stx-e - _%hd142822142902%_)))) - (let ((_%tl142826142912%_ + _%hd143807143887%_)))) + (let ((_%tl143811143897%_ (let () (declare (not safe)) - (##cdr _%e142824142907%_))) - (_%hd142825142910%_ + (##cdr _%e143809143892%_))) + (_%hd143810143895%_ (let () (declare (not safe)) - (##car _%e142824142907%_)))) + (##car _%e143809143892%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142825142910%_)) + _%hd143810143895%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd142825142910%_)) + _%hd143810143895%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142826142912%_)) - (let ((_%e142827142915%_ + _%tl143811143897%_)) + (let ((_%e143812143900%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl142826142912%_)))) - (let ((_%tl142829142920%_ + (gx#stx-e _%tl143811143897%_)))) + (let ((_%tl143814143905%_ (let () (declare (not safe)) - (##cdr _%e142827142915%_))) - (_%hd142828142918%_ + (##cdr _%e143812143900%_))) + (_%hd143813143903%_ (let () (declare (not safe)) - (##car _%e142827142915%_)))) + (##car _%e143812143900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd142828142918%_)) - (let ((_%__splice148606148607%_ + (gx#stx-pair/null? _%hd143813143903%_)) + (let ((_%__splice149591149592%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd142828142918%_ + _%hd143813143903%_ '0)))) - (let ((_%tl142832142925%_ + (let ((_%tl143817143910%_ (let () (declare (not safe)) - (##vector-ref _%__splice148606148607%_ '1))) - (_%target142830142923%_ + (##vector-ref _%__splice149591149592%_ '1))) + (_%target143815143908%_ (let () (declare (not safe)) (##vector-ref - _%__splice148606148607%_ + _%__splice149591149592%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142832142925%_)) - (_%__match148669148670%_ - _%e142809142867%_ - _%hd142810142870%_ - _%tl142811142872%_ - _%e142812142875%_ - _%hd142813142878%_ - _%tl142814142880%_ - _%e142815142883%_ - _%hd142816142886%_ - _%tl142817142888%_ - _%e142818142891%_ - _%hd142819142894%_ - _%tl142820142896%_ - _%e142821142899%_ - _%hd142822142902%_ - _%tl142823142904%_ - _%e142824142907%_ - _%hd142825142910%_ - _%tl142826142912%_ - _%e142827142915%_ - _%hd142828142918%_ - _%tl142829142920%_ - _%__splice148606148607%_ - _%target142830142923%_ - _%tl142832142925%_) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148610148611%_)) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148610148611%_)) - (_%__kont148610148611%_)) - (_%__kont148610148611%_)))) - (_%__kont148610148611%_))))))))) - (let* ((_%g142505142528%_ - (lambda (_%g142506142525%_) + (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" - _%g142506142525%_)))) - (_%g142504142789%_ - (lambda (_%g142506142531%_) + _%g143491143510%_)))) + (_%g143489143774%_ + (lambda (_%g143491143516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142506142531%_)) - (let ((_%e142509142533%_ + (gx#stx-pair? _%g143491143516%_)) + (let ((_%e143494143518%_ (let () (declare (not safe)) - (gx#stx-e _%g142506142531%_)))) - (let ((_%hd142510142536%_ + (gx#stx-e _%g143491143516%_)))) + (let ((_%hd143495143521%_ (let () (declare (not safe)) - (##car _%e142509142533%_))) - (_%tl142511142538%_ + (##car _%e143494143518%_))) + (_%tl143496143523%_ (let () (declare (not safe)) - (##cdr _%e142509142533%_)))) + (##cdr _%e143494143518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142511142538%_)) - (let ((_%e142512142541%_ + (gx#stx-pair? _%tl143496143523%_)) + (let ((_%e143497143526%_ (let () (declare (not safe)) - (gx#stx-e _%tl142511142538%_)))) - (let ((_%hd142513142544%_ + (gx#stx-e _%tl143496143523%_)))) + (let ((_%hd143498143529%_ (let () (declare (not safe)) - (##car _%e142512142541%_))) - (_%tl142514142546%_ + (##car _%e143497143526%_))) + (_%tl143499143531%_ (let () (declare (not safe)) - (##cdr _%e142512142541%_)))) + (##cdr _%e143497143526%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142514142546%_)) - (let ((_g149279_ + _%tl143499143531%_)) + (let ((_g150264_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142514142546%_ + _%tl143499143531%_ '0)))) (begin - (let ((_g149280_ + (let ((_g150265_ (let () (declare (not safe)) - (if (##values? _g149279_) + (if (##values? _g150264_) (##values-length - _g149279_) + _g150264_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149280_ 2))) + (##fx= _g150265_ 2))) (error "Context expects 2 values" - _g149280_))) - (let ((_%target142515142549%_ + _g150265_))) + (let ((_%target143500143534%_ (let () (declare (not safe)) (##values-ref - _g149279_ + _g150264_ 0))) - (_%tl142517142551%_ + (_%tl143502143536%_ (let () (declare (not safe)) (##values-ref - _g149279_ + _g150264_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142517142551%_)) - (letrec ((_%loop142518142554%_ - (lambda (_%hd142516142557%_ + _%tl143502143536%_)) + (letrec ((_%loop143503143539%_ + (lambda (_%hd143501143542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand142522142559%_) + _%rand143507143544%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142516142557%_)) - (let ((_%e142519142562%_ + (gx#stx-pair? _%hd143501143542%_)) + (let ((_%e143504143547%_ (let () (declare (not safe)) - (gx#stx-e _%hd142516142557%_)))) - (let ((_%lp-hd142520142565%_ + (gx#stx-e _%hd143501143542%_)))) + (let ((_%lp-hd143505143550%_ (let () (declare (not safe)) - (##car _%e142519142562%_))) - (_%lp-tl142521142567%_ + (##car _%e143504143547%_))) + (_%lp-tl143506143552%_ (let () (declare (not safe)) - (##cdr _%e142519142562%_)))) - (_%loop142518142554%_ - _%lp-tl142521142567%_ - (cons _%lp-hd142520142565%_ - _%rand142522142559%_)))) - (let ((_%rand142523142570%_ - (reverse _%rand142522142559%_))) - ((lambda (_%L142573%_ _%L142574%_) + (##cdr _%e143504143547%_)))) + (_%loop143503143539%_ + _%lp-tl143506143552%_ + (cons _%lp-hd143505143550%_ + _%rand143507143544%_)))) + (let ((_%rand143508143555%_ + (reverse _%rand143507143544%_))) + ((lambda (_%L143558%_ _%L143559%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call142503%_ - _%L142574%_ - (let ((__tmp149281 - (lambda (_%g142591142594%_ - _%g142592142596%_) - (cons _%g142591142594%_ - _%g142592142596%_)))) + (_%compile-call143488%_ + _%L143559%_ + (let ((__tmp150266 + (lambda (_%g143576143579%_ + _%g143577143581%_) + (cons _%g143576143579%_ + _%g143577143581%_)))) (declare (not safe)) - (__foldr1 __tmp149281 '() _%L142573%_))) - (let* ((_%__stx148718148719%_ _%L142574%_) - (_%g142600142612%_ + (__foldr1 __tmp150266 '() _%L143558%_))) + (let* ((_%__stx149703149704%_ _%L143559%_) + (_%g143585143597%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148718148719%_))))) - (let ((_%__kont148720148721%_ + _%__stx149703149704%_))))) + (let ((_%__kont149705149706%_ (lambda () - (let ((_%f142649%_ + (let ((_%f143634%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142500%_ - _%L142574%_)))) - (if (and (let ((__tmp149282 + _%self143485%_ + _%L143559%_)))) + (if (and (let ((__tmp150267 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f142649%_))) + _%f143634%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp149282)) + (##string-prefix? '"##" __tmp150267)) (not (let () (declare (not safe)) - (##memq _%f142649%_ gxc#checked-primitives)))) + (##memq _%f143634%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp142651%_ ((_%rest142654%_ + (let _%lp143636%_ ((_%rest143639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp149284 - (lambda (_%g142771142774%_ - _%g142772142776%_) - (cons _%g142771142774%_ - _%g142772142776%_)))) + (reverse (let ((__tmp150269 + (lambda (_%g143756143759%_ + _%g143757143761%_) + (cons _%g143756143759%_ + _%g143757143761%_)))) (declare (not safe)) (__foldr1 - __tmp149284 + __tmp150269 '() - _%L142573%_)))) - (_%bind142656%_ '()) - (_%args142657%_ '())) - (let* ((_%rest142658142666%_ _%rest142654%_) - (_%else142660142674%_ + _%L143558%_)))) + (_%bind143641%_ '()) + (_%args143642%_ '())) + (let* ((_%rest143643143651%_ _%rest143639%_) + (_%else143645143659%_ (lambda () (cons 'let - (cons _%bind142656%_ + (cons _%bind143641%_ (cons '(declare (not safe)) - (cons (cons _%f142649%_ - _%args142657%_) + (cons (cons _%f143634%_ + _%args143642%_) '())))))) - (_%K142662142760%_ - (lambda (_%rest142677%_ _%e142678%_) - (let* ((_%__stx148672148673%_ _%e142678%_) - (_%g142683142701%_ + (_%K143647143745%_ + (lambda (_%rest143662%_ _%e143663%_) + (let* ((_%__stx149657149658%_ _%e143663%_) + (_%g143668143686%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148672148673%_))))) - (let ((_%__kont148674148675%_ + _%__stx149657149658%_))))) + (let ((_%__kont149659149660%_ (lambda () - (_%lp142651%_ - _%rest142677%_ - _%bind142656%_ + (_%lp143636%_ + _%rest143662%_ + _%bind143641%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142678%_)) - _%args142657%_)))) - (_%__kont148676148677%_ + (gxc#compile-e__0 _%e143663%_)) + _%args143642%_)))) + (_%__kont149661149662%_ (lambda () - (_%lp142651%_ - _%rest142677%_ - _%bind142656%_ + (_%lp143636%_ + _%rest143662%_ + _%bind143641%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142678%_)) - _%args142657%_)))) - (_%__kont148678148679%_ + (gxc#compile-e__0 _%e143663%_)) + _%args143642%_)))) + (_%__kont149663149664%_ (lambda () - (let ((_%tmp142708%_ - (let ((__tmp149283 + (let ((_%tmp143693%_ + (let ((__tmp150268 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149283)))) - (_%lp142651%_ - _%rest142677%_ - (cons (cons _%tmp142708%_ + (make-symbol__0 __tmp150268)))) + (_%lp143636%_ + _%rest143662%_ + (cons (cons _%tmp143693%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142678%_)) + _%e143663%_)) '())) - _%bind142656%_) - (cons _%tmp142708%_ _%args142657%_)))))) + _%bind143641%_) + (cons _%tmp143693%_ _%args143642%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148672148673%_)) - (let ((_%e142685142739%_ + (gx#stx-pair? _%__stx149657149658%_)) + (let ((_%e143670143724%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148672148673%_)))) - (let ((_%tl142687142744%_ + (gx#stx-e _%__stx149657149658%_)))) + (let ((_%tl143672143729%_ (let () (declare (not safe)) - (##cdr _%e142685142739%_))) - (_%hd142686142742%_ + (##cdr _%e143670143724%_))) + (_%hd143671143727%_ (let () (declare (not safe)) - (##car _%e142685142739%_)))) + (##car _%e143670143724%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142686142742%_)) + (gx#identifier? _%hd143671143727%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142686142742%_)) + _%hd143671143727%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142687142744%_)) - (let ((_%e142688142747%_ + _%tl143672143729%_)) + (let ((_%e143673143732%_ (let () (declare (not safe)) (gx#stx-e - _%tl142687142744%_)))) - (let ((_%tl142690142752%_ + _%tl143672143729%_)))) + (let ((_%tl143675143737%_ (let () (declare (not safe)) - (##cdr _%e142688142747%_))) - (_%hd142689142750%_ + (##cdr _%e143673143732%_))) + (_%hd143674143735%_ (let () (declare (not safe)) - (##car _%e142688142747%_)))) + (##car _%e143673143732%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142690142752%_)) - (_%__kont148674148675%_) - (_%__kont148678148679%_)))) - (_%__kont148678148679%_)) + _%tl143675143737%_)) + (_%__kont149659149660%_) + (_%__kont149663149664%_)))) + (_%__kont149663149664%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd142686142742%_)) + _%hd143671143727%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142687142744%_)) - (let ((_%e142694142724%_ + _%tl143672143729%_)) + (let ((_%e143679143709%_ (let () (declare (not safe)) (gx#stx-e - _%tl142687142744%_)))) - (let ((_%tl142696142729%_ + _%tl143672143729%_)))) + (let ((_%tl143681143714%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142694142724%_))) - (_%hd142695142727%_ - (let () (declare (not safe)) (##car _%e142694142724%_)))) + (##cdr _%e143679143709%_))) + (_%hd143680143712%_ + (let () (declare (not safe)) (##car _%e143679143709%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142696142729%_)) - (_%__kont148676148677%_) - (_%__kont148678148679%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148678148679%_)) - (_%__kont148678148679%_))) - (_%__kont148678148679%_)))) - (_%__kont148678148679%_))))))) - (if (pair? _%rest142658142666%_) - (let ((_%hd142663142763%_ + (gx#stx-null? _%tl143681143714%_)) + (_%__kont149661149662%_) + (_%__kont149663149664%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149663149664%_)) + (_%__kont149663149664%_))) + (_%__kont149663149664%_)))) + (_%__kont149663149664%_))))))) + (if (pair? _%rest143643143651%_) + (let ((_%hd143648143748%_ (let () (declare (not safe)) - (##car _%rest142658142666%_))) - (_%tl142664142765%_ + (##car _%rest143643143651%_))) + (_%tl143649143750%_ (let () (declare (not safe)) - (##cdr _%rest142658142666%_)))) - (let* ((_%e142768%_ _%hd142663142763%_) - (_%rest142770%_ _%tl142664142765%_)) - (_%K142662142760%_ _%rest142770%_ _%e142768%_))) - (_%else142660142674%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call142503%_ - _%L142574%_ - (let ((__tmp149285 - (lambda (_%g142778142781%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142779142783%_) - (cons _%g142778142781%_ _%g142779142783%_)))) + (##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 __tmp149285 '() _%L142573%_))))))) + (__foldr1 __tmp150270 '() _%L143558%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148722148723%_ + (_%__kont149707149708%_ (lambda () - (_%compile-call142503%_ - _%L142574%_ - (let ((__tmp149286 - (lambda (_%g142618142621%_ - _%g142619142623%_) - (cons _%g142618142621%_ - _%g142619142623%_)))) + (_%compile-call143488%_ + _%L143559%_ + (let ((__tmp150271 + (lambda (_%g143603143606%_ + _%g143604143608%_) + (cons _%g143603143606%_ + _%g143604143608%_)))) (declare (not safe)) (__foldr1 - __tmp149286 + __tmp150271 '() - _%L142573%_)))))) + _%L143558%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148718148719%_)) - (let ((_%e142602142631%_ + _%__stx149703149704%_)) + (let ((_%e143587143616%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148718148719%_)))) - (let ((_%tl142604142636%_ + _%__stx149703149704%_)))) + (let ((_%tl143589143621%_ (let () (declare (not safe)) - (##cdr _%e142602142631%_))) - (_%hd142603142634%_ + (##cdr _%e143587143616%_))) + (_%hd143588143619%_ (let () (declare (not safe)) - (##car _%e142602142631%_)))) + (##car _%e143587143616%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142603142634%_)) + _%hd143588143619%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142603142634%_)) + _%hd143588143619%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142604142636%_)) - (let ((_%e142605142639%_ + _%tl143589143621%_)) + (let ((_%e143590143624%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142604142636%_)))) - (let ((_%tl142607142644%_ + (gx#stx-e _%tl143589143621%_)))) + (let ((_%tl143592143629%_ (let () (declare (not safe)) - (##cdr _%e142605142639%_))) - (_%hd142606142642%_ + (##cdr _%e143590143624%_))) + (_%hd143591143627%_ (let () (declare (not safe)) - (##car _%e142605142639%_)))) + (##car _%e143590143624%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142607142644%_)) - (_%__kont148720148721%_) - (_%__kont148722148723%_)))) - (_%__kont148722148723%_)) - (_%__kont148722148723%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148722148723%_)))) - (_%__kont148722148723%_)))))) - _%rand142523142570%_ - _%hd142513142544%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142518142554%_ - _%target142515142549%_ + (gx#stx-null? _%tl143592143629%_)) + (_%__kont149705149706%_) + (_%__kont149707149708%_)))) + (_%__kont149707149708%_)) + (_%__kont149707149708%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149707149708%_)))) + (_%__kont149707149708%_)))))) + _%rand143508143555%_ + _%hd143498143529%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop143503143539%_ + _%target143500143534%_ '())) - (_%g142505142528%_ - _%g142506142531%_))))) - (_%g142505142528%_ - _%g142506142531%_)))) - (_%g142505142528%_ _%g142506142531%_)))) - (_%g142505142528%_ _%g142506142531%_))))) - (_%g142504142789%_ _%stx142501%_))))) + (_%g143490143513%_ + _%g143491143516%_))))) + (_%g143490143513%_ + _%g143491143516%_)))) + (_%g143490143513%_ _%g143491143516%_)))) + (_%g143490143513%_ _%g143491143516%_))))) + (_%g143489143774%_ _%stx143486%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self142243%_ _%stx142244%_) - (let* ((_%__stx148790148791%_ _%stx142244%_) - (_%g142247142276%_ + (lambda (_%self143228%_ _%stx143229%_) + (let* ((_%__stx149775149776%_ _%stx143229%_) + (_%g143232143261%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148790148791%_))))) - (let ((_%__kont148792148793%_ - (lambda (_%L142344%_ _%L142345%_) + _%__stx149775149776%_))))) + (let ((_%__kont149777149778%_ + (lambda (_%L143329%_ _%L143330%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self142243%_ - _%stx142244%_) - (let ((_%f142367%_ - (let ((__tmp149287 + _%self143228%_ + _%stx143229%_) + (let ((_%f143352%_ + (let ((__tmp150272 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L142345%_ '())))) + (cons _%L143330%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self142243%_ - __tmp149287)))) - (let _%lp142369%_ ((_%rest142372%_ - (reverse (let ((__tmp149289 - (lambda (_%g142489142492%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142490142494%_) - (cons _%g142489142492%_ _%g142490142494%_)))) + _%self143228%_ + __tmp150272)))) + (let _%lp143354%_ ((_%rest143357%_ + (reverse (let ((__tmp150274 + (lambda (_%g143474143477%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g143475143479%_) + (cons _%g143474143477%_ _%g143475143479%_)))) (declare (not safe)) - (__foldr1 __tmp149289 '() _%L142344%_)))) + (__foldr1 __tmp150274 '() _%L143329%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind142374%_ '()) - (_%args142375%_ '())) - (let* ((_%rest142376142384%_ _%rest142372%_) - (_%else142378142392%_ + (_%bind143359%_ '()) + (_%args143360%_ '())) + (let* ((_%rest143361143369%_ _%rest143357%_) + (_%else143363143377%_ (lambda () (cons 'let - (cons _%bind142374%_ + (cons _%bind143359%_ (cons '(declare (not safe)) - (cons (cons _%f142367%_ + (cons (cons _%f143352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args142375%_) + _%args143360%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K142380142478%_ - (lambda (_%rest142395%_ _%e142396%_) - (let* ((_%__stx148744148745%_ _%e142396%_) - (_%g142401142419%_ + (_%K143365143463%_ + (lambda (_%rest143380%_ _%e143381%_) + (let* ((_%__stx149729149730%_ _%e143381%_) + (_%g143386143404%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148744148745%_))))) - (let ((_%__kont148746148747%_ + _%__stx149729149730%_))))) + (let ((_%__kont149731149732%_ (lambda () - (_%lp142369%_ - _%rest142395%_ - _%bind142374%_ + (_%lp143354%_ + _%rest143380%_ + _%bind143359%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142396%_)) - _%args142375%_)))) - (_%__kont148748148749%_ + _%e143381%_)) + _%args143360%_)))) + (_%__kont149733149734%_ (lambda () - (_%lp142369%_ - _%rest142395%_ - _%bind142374%_ + (_%lp143354%_ + _%rest143380%_ + _%bind143359%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142396%_)) - _%args142375%_)))) - (_%__kont148750148751%_ + _%e143381%_)) + _%args143360%_)))) + (_%__kont149735149736%_ (lambda () - (let ((_%tmp142426%_ - (let ((__tmp149288 + (let ((_%tmp143411%_ + (let ((__tmp150273 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149288)))) + (make-symbol__0 __tmp150273)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp142369%_ - _%rest142395%_ - (cons (cons _%tmp142426%_ + (_%lp143354%_ + _%rest143380%_ + (cons (cons _%tmp143411%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e142396%_)) + (gxc#compile-e__0 _%e143381%_)) '())) - _%bind142374%_) + _%bind143359%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp142426%_ - _%args142375%_)))))) + (cons _%tmp143411%_ + _%args143360%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148744148745%_)) - (let ((_%e142403142457%_ + _%__stx149729149730%_)) + (let ((_%e143388143442%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148744148745%_)))) - (let ((_%tl142405142462%_ + _%__stx149729149730%_)))) + (let ((_%tl143390143447%_ (let () (declare (not safe)) - (##cdr _%e142403142457%_))) - (_%hd142404142460%_ + (##cdr _%e143388143442%_))) + (_%hd143389143445%_ (let () (declare (not safe)) - (##car _%e142403142457%_)))) + (##car _%e143388143442%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142404142460%_)) + _%hd143389143445%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142404142460%_)) + _%hd143389143445%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142405142462%_)) - (let ((_%e142406142465%_ + (gx#stx-pair? _%tl143390143447%_)) + (let ((_%e143391143450%_ (let () (declare (not safe)) - (gx#stx-e _%tl142405142462%_)))) - (let ((_%tl142408142470%_ + (gx#stx-e _%tl143390143447%_)))) + (let ((_%tl143393143455%_ (let () (declare (not safe)) - (##cdr _%e142406142465%_))) - (_%hd142407142468%_ + (##cdr _%e143391143450%_))) + (_%hd143392143453%_ (let () (declare (not safe)) - (##car _%e142406142465%_)))) + (##car _%e143391143450%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142408142470%_)) - (_%__kont148746148747%_) - (_%__kont148750148751%_)))) - (_%__kont148750148751%_)) + (gx#stx-null? _%tl143393143455%_)) + (_%__kont149731149732%_) + (_%__kont149735149736%_)))) + (_%__kont149735149736%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd142404142460%_)) + (gx#stx-eq? '%#quote _%hd143389143445%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142405142462%_)) - (let ((_%e142412142442%_ + (gx#stx-pair? _%tl143390143447%_)) + (let ((_%e143397143427%_ (let () (declare (not safe)) - (gx#stx-e _%tl142405142462%_)))) - (let ((_%tl142414142447%_ + (gx#stx-e _%tl143390143447%_)))) + (let ((_%tl143399143432%_ (let () (declare (not safe)) - (##cdr _%e142412142442%_))) - (_%hd142413142445%_ + (##cdr _%e143397143427%_))) + (_%hd143398143430%_ (let () (declare (not safe)) - (##car _%e142412142442%_)))) + (##car _%e143397143427%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142414142447%_)) - (_%__kont148748148749%_) - (_%__kont148750148751%_)))) - (_%__kont148750148751%_)) - (_%__kont148750148751%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148750148751%_)))) - (_%__kont148750148751%_))))))) - (if (pair? _%rest142376142384%_) - (let ((_%hd142381142481%_ + (gx#stx-null? _%tl143399143432%_)) + (_%__kont149733149734%_) + (_%__kont149735149736%_)))) + (_%__kont149735149736%_)) + (_%__kont149735149736%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149735149736%_)))) + (_%__kont149735149736%_))))))) + (if (pair? _%rest143361143369%_) + (let ((_%hd143366143466%_ (let () (declare (not safe)) - (##car _%rest142376142384%_))) - (_%tl142382142483%_ + (##car _%rest143361143369%_))) + (_%tl143367143468%_ (let () (declare (not safe)) - (##cdr _%rest142376142384%_)))) - (let* ((_%e142486%_ _%hd142381142481%_) - (_%rest142488%_ _%tl142382142483%_)) - (_%K142380142478%_ - _%rest142488%_ - _%e142486%_))) - (_%else142378142392%_)))))))) - (_%__kont148796148797%_ + (##cdr _%rest143361143369%_)))) + (let* ((_%e143471%_ _%hd143366143466%_) + (_%rest143473%_ _%tl143367143468%_)) + (_%K143365143463%_ + _%rest143473%_ + _%e143471%_))) + (_%else143363143377%_)))))))) + (_%__kont149781149782%_ (lambda () - (gxc#generate-runtime-call% _%self142243%_ _%stx142244%_)))) - (let ((_%__match148835148836%_ - (lambda (_%e142251142288%_ - _%hd142252142291%_ - _%tl142253142293%_ - _%e142254142296%_ - _%hd142255142299%_ - _%tl142256142301%_ - _%e142257142304%_ - _%hd142258142307%_ - _%tl142259142309%_ - _%e142260142312%_ - _%hd142261142315%_ - _%tl142262142317%_ - _%__splice148794148795%_ - _%target142263142320%_ - _%tl142265142322%_) - (letrec ((_%loop142266142325%_ - (lambda (_%hd142264142328%_ - _%rand142270142330%_) + (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? _%hd142264142328%_)) - (let ((_%e142267142333%_ + (gx#stx-pair? _%hd143249143313%_)) + (let ((_%e143252143318%_ (let () (declare (not safe)) - (gx#stx-e _%hd142264142328%_)))) - (let ((_%lp-tl142269142338%_ + (gx#stx-e _%hd143249143313%_)))) + (let ((_%lp-tl143254143323%_ (let () (declare (not safe)) - (##cdr _%e142267142333%_))) - (_%lp-hd142268142336%_ + (##cdr _%e143252143318%_))) + (_%lp-hd143253143321%_ (let () (declare (not safe)) - (##car _%e142267142333%_)))) - (_%loop142266142325%_ - _%lp-tl142269142338%_ - (cons _%lp-hd142268142336%_ - _%rand142270142330%_)))) - (let ((_%rand142271142341%_ - (reverse _%rand142270142330%_))) - (_%__kont148792148793%_ - _%rand142271142341%_ - _%hd142261142315%_)))))) - (_%loop142266142325%_ _%target142263142320%_ '()))))) + (##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? _%__stx148790148791%_)) - (let ((_%e142251142288%_ + (gx#stx-pair? _%__stx149775149776%_)) + (let ((_%e143236143273%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148790148791%_)))) - (let ((_%tl142253142293%_ + (gx#stx-e _%__stx149775149776%_)))) + (let ((_%tl143238143278%_ (let () (declare (not safe)) - (##cdr _%e142251142288%_))) - (_%hd142252142291%_ + (##cdr _%e143236143273%_))) + (_%hd143237143276%_ (let () (declare (not safe)) - (##car _%e142251142288%_)))) + (##car _%e143236143273%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142253142293%_)) - (let ((_%e142254142296%_ + (gx#stx-pair? _%tl143238143278%_)) + (let ((_%e143239143281%_ (let () (declare (not safe)) - (gx#stx-e _%tl142253142293%_)))) - (let ((_%tl142256142301%_ + (gx#stx-e _%tl143238143278%_)))) + (let ((_%tl143241143286%_ (let () (declare (not safe)) - (##cdr _%e142254142296%_))) - (_%hd142255142299%_ + (##cdr _%e143239143281%_))) + (_%hd143240143284%_ (let () (declare (not safe)) - (##car _%e142254142296%_)))) + (##car _%e143239143281%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142255142299%_)) - (let ((_%e142257142304%_ + (gx#stx-pair? _%hd143240143284%_)) + (let ((_%e143242143289%_ (let () (declare (not safe)) - (gx#stx-e _%hd142255142299%_)))) - (let ((_%tl142259142309%_ + (gx#stx-e _%hd143240143284%_)))) + (let ((_%tl143244143294%_ (let () (declare (not safe)) - (##cdr _%e142257142304%_))) - (_%hd142258142307%_ + (##cdr _%e143242143289%_))) + (_%hd143243143292%_ (let () (declare (not safe)) - (##car _%e142257142304%_)))) + (##car _%e143242143289%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142258142307%_)) + _%hd143243143292%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142258142307%_)) + _%hd143243143292%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142259142309%_)) - (let ((_%e142260142312%_ + _%tl143244143294%_)) + (let ((_%e143245143297%_ (let () (declare (not safe)) (gx#stx-e - _%tl142259142309%_)))) - (let ((_%tl142262142317%_ + _%tl143244143294%_)))) + (let ((_%tl143247143302%_ (let () (declare (not safe)) - (##cdr _%e142260142312%_))) - (_%hd142261142315%_ + (##cdr _%e143245143297%_))) + (_%hd143246143300%_ (let () (declare (not safe)) - (##car _%e142260142312%_)))) + (##car _%e143245143297%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142262142317%_)) + _%tl143247143302%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl142256142301%_)) - (let ((_%__splice148794148795%_ + (gx#stx-pair/null? _%tl143241143286%_)) + (let ((_%__splice149779149780%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142256142301%_ + _%tl143241143286%_ '0)))) - (let ((_%tl142265142322%_ + (let ((_%tl143250143307%_ (let () (declare (not safe)) - (##vector-ref _%__splice148794148795%_ '1))) - (_%target142263142320%_ + (##vector-ref _%__splice149779149780%_ '1))) + (_%target143248143305%_ (let () (declare (not safe)) - (##vector-ref _%__splice148794148795%_ '0)))) + (##vector-ref _%__splice149779149780%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142265142322%_)) - (_%__match148835148836%_ - _%e142251142288%_ - _%hd142252142291%_ - _%tl142253142293%_ - _%e142254142296%_ - _%hd142255142299%_ - _%tl142256142301%_ - _%e142257142304%_ - _%hd142258142307%_ - _%tl142259142309%_ - _%e142260142312%_ - _%hd142261142315%_ - _%tl142262142317%_ - _%__splice148794148795%_ - _%target142263142320%_ - _%tl142265142322%_) - (_%__kont148796148797%_)))) - (_%__kont148796148797%_)) - (_%__kont148796148797%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148796148797%_)) - (_%__kont148796148797%_)) - (_%__kont148796148797%_)))) - (_%__kont148796148797%_)))) - (_%__kont148796148797%_)))) - (_%__kont148796148797%_))))))) + (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 (_%self142055%_ _%stx142056%_) - (letrec ((_%simplify142058%_ - (lambda (_%code142143%_) - (let* ((_%code142144142162%_ _%code142143%_) - (_%else142146142170%_ (lambda () _%code142143%_)) - (_%K142148142206%_ - (lambda (_%expr142173%_ _%test142174%_) - (let* ((_%expr142175142183%_ _%expr142173%_) - (_%else142177142191%_ + (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 _%test142174%_ - (cons _%expr142173%_ + (cons _%test143159%_ + (cons _%expr143158%_ '()))))) - (_%K142179142196%_ - (lambda (_%exprs142194%_) + (_%K143164143181%_ + (lambda (_%exprs143179%_) (cons 'and - (cons _%test142174%_ - _%exprs142194%_))))) - (if (pair? _%expr142175142183%_) - (let ((_%hd142180142199%_ + (cons _%test143159%_ + _%exprs143179%_))))) + (if (pair? _%expr143160143168%_) + (let ((_%hd143165143184%_ (let () (declare (not safe)) - (##car _%expr142175142183%_))) - (_%tl142181142201%_ + (##car _%expr143160143168%_))) + (_%tl143166143186%_ (let () (declare (not safe)) - (##cdr _%expr142175142183%_)))) + (##cdr _%expr143160143168%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142180142199%_ 'and)) - (let ((_%exprs142204%_ - _%tl142181142201%_)) - (_%K142179142196%_ - _%exprs142204%_)) - (_%else142177142191%_))) - (_%else142177142191%_)))))) - (if (pair? _%code142144142162%_) - (let ((_%hd142149142209%_ + (##eq? _%hd143165143184%_ 'and)) + (let ((_%exprs143189%_ + _%tl143166143186%_)) + (_%K143164143181%_ + _%exprs143189%_)) + (_%else143162143176%_))) + (_%else143162143176%_)))))) + (if (pair? _%code143129143147%_) + (let ((_%hd143134143194%_ (let () (declare (not safe)) - (##car _%code142144142162%_))) - (_%tl142150142211%_ + (##car _%code143129143147%_))) + (_%tl143135143196%_ (let () (declare (not safe)) - (##cdr _%code142144142162%_)))) + (##cdr _%code143129143147%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142149142209%_ 'if)) - (if (pair? _%tl142150142211%_) - (let ((_%hd142151142214%_ + (##eq? _%hd143134143194%_ 'if)) + (if (pair? _%tl143135143196%_) + (let ((_%hd143136143199%_ (let () (declare (not safe)) - (##car _%tl142150142211%_))) - (_%tl142152142216%_ + (##car _%tl143135143196%_))) + (_%tl143137143201%_ (let () (declare (not safe)) - (##cdr _%tl142150142211%_)))) - (let ((_%test142219%_ - _%hd142151142214%_)) - (if (pair? _%tl142152142216%_) - (let ((_%hd142153142221%_ + (##cdr _%tl143135143196%_)))) + (let ((_%test143204%_ + _%hd143136143199%_)) + (if (pair? _%tl143137143201%_) + (let ((_%hd143138143206%_ (let () (declare (not safe)) - (##car _%tl142152142216%_))) - (_%tl142154142223%_ + (##car _%tl143137143201%_))) + (_%tl143139143208%_ (let () (declare (not safe)) - (##cdr _%tl142152142216%_)))) - (let ((_%expr142226%_ - _%hd142153142221%_)) - (if (pair? _%tl142154142223%_) - (let ((_%hd142155142228%_ + (##cdr _%tl143137143201%_)))) + (let ((_%expr143211%_ + _%hd143138143206%_)) + (if (pair? _%tl143139143208%_) + (let ((_%hd143140143213%_ (let () (declare (not safe)) - (##car _%tl142154142223%_))) - (_%tl142156142230%_ + (##car _%tl143139143208%_))) + (_%tl143141143215%_ (let () (declare (not safe)) - (##cdr _%tl142154142223%_)))) - (if (pair? _%hd142155142228%_) - (let ((_%hd142157142233%_ + (##cdr _%tl143139143208%_)))) + (if (pair? _%hd143140143213%_) + (let ((_%hd143142143218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd142155142228%_))) - (_%tl142158142235%_ + (##car _%hd143140143213%_))) + (_%tl143143143220%_ (let () (declare (not safe)) - (##cdr _%hd142155142228%_)))) + (##cdr _%hd143140143213%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142157142233%_ 'quote)) - (if (pair? _%tl142158142235%_) - (let ((_%hd142159142238%_ + (##eq? _%hd143142143218%_ 'quote)) + (if (pair? _%tl143143143220%_) + (let ((_%hd143144143223%_ (let () (declare (not safe)) - (##car _%tl142158142235%_))) - (_%tl142160142240%_ + (##car _%tl143143143220%_))) + (_%tl143145143225%_ (let () (declare (not safe)) - (##cdr _%tl142158142235%_)))) + (##cdr _%tl143143143220%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142159142238%_ '#f)) - (if (null? _%tl142160142240%_) - (if (null? _%tl142156142230%_) - (_%K142148142206%_ - _%expr142226%_ - _%test142219%_) - (_%else142146142170%_)) - (_%else142146142170%_)) - (_%else142146142170%_))) - (_%else142146142170%_)) - (_%else142146142170%_))) - (_%else142146142170%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else142146142170%_)))) - (_%else142146142170%_)))) - (_%else142146142170%_)) - (_%else142146142170%_))) - (_%else142146142170%_)))))) - (let* ((_%g142060142081%_ - (lambda (_%g142061142078%_) + (##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" - _%g142061142078%_)))) - (_%g142059142140%_ - (lambda (_%g142061142084%_) + _%g143046143063%_)))) + (_%g143044143125%_ + (lambda (_%g143046143069%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142061142084%_)) - (let ((_%e142065142086%_ + (gx#stx-pair? _%g143046143069%_)) + (let ((_%e143050143071%_ (let () (declare (not safe)) - (gx#stx-e _%g142061142084%_)))) - (let ((_%hd142066142089%_ + (gx#stx-e _%g143046143069%_)))) + (let ((_%hd143051143074%_ (let () (declare (not safe)) - (##car _%e142065142086%_))) - (_%tl142067142091%_ + (##car _%e143050143071%_))) + (_%tl143052143076%_ (let () (declare (not safe)) - (##cdr _%e142065142086%_)))) + (##cdr _%e143050143071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142067142091%_)) - (let ((_%e142068142094%_ + (gx#stx-pair? _%tl143052143076%_)) + (let ((_%e143053143079%_ (let () (declare (not safe)) - (gx#stx-e _%tl142067142091%_)))) - (let ((_%hd142069142097%_ + (gx#stx-e _%tl143052143076%_)))) + (let ((_%hd143054143082%_ (let () (declare (not safe)) - (##car _%e142068142094%_))) - (_%tl142070142099%_ + (##car _%e143053143079%_))) + (_%tl143055143084%_ (let () (declare (not safe)) - (##cdr _%e142068142094%_)))) + (##cdr _%e143053143079%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142070142099%_)) - (let ((_%e142071142102%_ + (gx#stx-pair? _%tl143055143084%_)) + (let ((_%e143056143087%_ (let () (declare (not safe)) (gx#stx-e - _%tl142070142099%_)))) - (let ((_%hd142072142105%_ + _%tl143055143084%_)))) + (let ((_%hd143057143090%_ (let () (declare (not safe)) - (##car _%e142071142102%_))) - (_%tl142073142107%_ + (##car _%e143056143087%_))) + (_%tl143058143092%_ (let () (declare (not safe)) - (##cdr _%e142071142102%_)))) + (##cdr _%e143056143087%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142073142107%_)) - (let ((_%e142074142110%_ + _%tl143058143092%_)) + (let ((_%e143059143095%_ (let () (declare (not safe)) (gx#stx-e - _%tl142073142107%_)))) - (let ((_%hd142075142113%_ + _%tl143058143092%_)))) + (let ((_%hd143060143098%_ (let () (declare (not safe)) - (##car _%e142074142110%_))) - (_%tl142076142115%_ + (##car _%e143059143095%_))) + (_%tl143061143100%_ (let () (declare (not safe)) - (##cdr _%e142074142110%_)))) + (##cdr _%e143059143095%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142076142115%_)) - ((lambda (_%L142118%_ + _%tl143061143100%_)) + ((lambda (_%L143103%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L142119%_ - _%L142120%_) + _%L143104%_ + _%L143105%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify142058%_ + (_%simplify143043%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self142055%_ - _%L142120%_)) + _%self143040%_ + _%L143105%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self142055%_ - _%L142119%_)) + _%self143040%_ + _%L143104%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self142055%_ - _%L142118%_)) + _%self143040%_ + _%L143103%_)) '()))))) (cons 'if - (cons (let ((__tmp149290 + (cons (let ((__tmp150275 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self142055%_ - _%L142120%_))))) + _%self143040%_ + _%L143105%_))))) (declare (not safe)) (__call-with-parameters - __tmp149290 + __tmp150275 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self142055%_ - _%L142119%_)) + _%self143040%_ + _%L143104%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self142055%_ - _%L142118%_)) + _%self143040%_ + _%L143103%_)) '())))))) - _%hd142075142113%_ - _%hd142072142105%_ - _%hd142069142097%_) - (_%g142060142081%_ _%g142061142084%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g142060142081%_ - _%g142061142084%_)))) - (_%g142060142081%_ - _%g142061142084%_)))) - (_%g142060142081%_ _%g142061142084%_)))) - (_%g142060142081%_ _%g142061142084%_))))) - (_%g142059142140%_ _%stx142056%_))))) + _%hd143060143098%_ + _%hd143057143090%_ + _%hd143054143082%_) + (_%g143045143066%_ _%g143046143069%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g143045143066%_ + _%g143046143069%_)))) + (_%g143045143066%_ + _%g143046143069%_)))) + (_%g143045143066%_ _%g143046143069%_)))) + (_%g143045143066%_ _%g143046143069%_))))) + (_%g143044143125%_ _%stx143041%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self142003%_ _%stx142004%_) - (let* ((_%g142006142019%_ - (lambda (_%g142007142016%_) + (lambda (_%self142988%_ _%stx142989%_) + (let* ((_%g142991143004%_ + (lambda (_%g142992143001%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142007142016%_)))) - (_%g142005142052%_ - (lambda (_%g142007142022%_) + _%g142992143001%_)))) + (_%g142990143037%_ + (lambda (_%g142992143007%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142007142022%_)) - (let ((_%e142009142024%_ + (gx#stx-pair? _%g142992143007%_)) + (let ((_%e142994143009%_ (let () (declare (not safe)) - (gx#stx-e _%g142007142022%_)))) - (let ((_%hd142010142027%_ + (gx#stx-e _%g142992143007%_)))) + (let ((_%hd142995143012%_ (let () (declare (not safe)) - (##car _%e142009142024%_))) - (_%tl142011142029%_ + (##car _%e142994143009%_))) + (_%tl142996143014%_ (let () (declare (not safe)) - (##cdr _%e142009142024%_)))) + (##cdr _%e142994143009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142011142029%_)) - (let ((_%e142012142032%_ + (gx#stx-pair? _%tl142996143014%_)) + (let ((_%e142997143017%_ (let () (declare (not safe)) - (gx#stx-e _%tl142011142029%_)))) - (let ((_%hd142013142035%_ + (gx#stx-e _%tl142996143014%_)))) + (let ((_%hd142998143020%_ (let () (declare (not safe)) - (##car _%e142012142032%_))) - (_%tl142014142037%_ + (##car _%e142997143017%_))) + (_%tl142999143022%_ (let () (declare (not safe)) - (##cdr _%e142012142032%_)))) + (##cdr _%e142997143017%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142014142037%_)) - ((lambda (_%L142040%_) + (gx#stx-null? _%tl142999143022%_)) + ((lambda (_%L143025%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L142040%_))) - _%hd142013142035%_) - (_%g142006142019%_ _%g142007142022%_)))) - (_%g142006142019%_ _%g142007142022%_)))) - (_%g142006142019%_ _%g142007142022%_))))) - (_%g142005142052%_ _%stx142004%_)))) + _%L143025%_))) + _%hd142998143020%_) + (_%g142991143004%_ _%g142992143007%_)))) + (_%g142991143004%_ _%g142992143007%_)))) + (_%g142991143004%_ _%g142992143007%_))))) + (_%g142990143037%_ _%stx142989%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self141935%_ _%stx141936%_) - (let* ((_%g141938141955%_ - (lambda (_%g141939141952%_) + (lambda (_%self142920%_ _%stx142921%_) + (let* ((_%g142923142940%_ + (lambda (_%g142924142937%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141939141952%_)))) - (_%g141937142000%_ - (lambda (_%g141939141958%_) + _%g142924142937%_)))) + (_%g142922142985%_ + (lambda (_%g142924142943%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141939141958%_)) - (let ((_%e141942141960%_ + (gx#stx-pair? _%g142924142943%_)) + (let ((_%e142927142945%_ (let () (declare (not safe)) - (gx#stx-e _%g141939141958%_)))) - (let ((_%hd141943141963%_ + (gx#stx-e _%g142924142943%_)))) + (let ((_%hd142928142948%_ (let () (declare (not safe)) - (##car _%e141942141960%_))) - (_%tl141944141965%_ + (##car _%e142927142945%_))) + (_%tl142929142950%_ (let () (declare (not safe)) - (##cdr _%e141942141960%_)))) + (##cdr _%e142927142945%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141944141965%_)) - (let ((_%e141945141968%_ + (gx#stx-pair? _%tl142929142950%_)) + (let ((_%e142930142953%_ (let () (declare (not safe)) - (gx#stx-e _%tl141944141965%_)))) - (let ((_%hd141946141971%_ + (gx#stx-e _%tl142929142950%_)))) + (let ((_%hd142931142956%_ (let () (declare (not safe)) - (##car _%e141945141968%_))) - (_%tl141947141973%_ + (##car _%e142930142953%_))) + (_%tl142932142958%_ (let () (declare (not safe)) - (##cdr _%e141945141968%_)))) + (##cdr _%e142930142953%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141947141973%_)) - (let ((_%e141948141976%_ + (gx#stx-pair? _%tl142932142958%_)) + (let ((_%e142933142961%_ (let () (declare (not safe)) - (gx#stx-e _%tl141947141973%_)))) - (let ((_%hd141949141979%_ + (gx#stx-e _%tl142932142958%_)))) + (let ((_%hd142934142964%_ (let () (declare (not safe)) - (##car _%e141948141976%_))) - (_%tl141950141981%_ + (##car _%e142933142961%_))) + (_%tl142935142966%_ (let () (declare (not safe)) - (##cdr _%e141948141976%_)))) + (##cdr _%e142933142961%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141950141981%_)) - ((lambda (_%L141984%_ - _%L141985%_) + _%tl142935142966%_)) + ((lambda (_%L142969%_ + _%L142970%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L141985%_)) + (gxc#generate-runtime-binding-id _%L142970%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141935%_ _%L141984%_)) + (gxc#compile-e__1 _%self142920%_ _%L142969%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141949141979%_ - _%hd141946141971%_) - (_%g141938141955%_ - _%g141939141958%_)))) - (_%g141938141955%_ _%g141939141958%_)))) - (_%g141938141955%_ _%g141939141958%_)))) - (_%g141938141955%_ _%g141939141958%_))))) - (_%g141937142000%_ _%stx141936%_)))) + _%hd142934142964%_ + _%hd142931142956%_) + (_%g142923142940%_ + _%g142924142943%_)))) + (_%g142923142940%_ _%g142924142943%_)))) + (_%g142923142940%_ _%g142924142943%_)))) + (_%g142923142940%_ _%g142924142943%_))))) + (_%g142922142985%_ _%stx142921%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self141746%_ _%stx141747%_) - (let* ((_%g141749141766%_ - (lambda (_%g141750141763%_) + (lambda (_%self142731%_ _%stx142732%_) + (let* ((_%g142734142751%_ + (lambda (_%g142735142748%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141750141763%_)))) - (_%g141748141932%_ - (lambda (_%g141750141769%_) + _%g142735142748%_)))) + (_%g142733142917%_ + (lambda (_%g142735142754%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141750141769%_)) - (let ((_%e141753141771%_ + (gx#stx-pair? _%g142735142754%_)) + (let ((_%e142738142756%_ (let () (declare (not safe)) - (gx#stx-e _%g141750141769%_)))) - (let ((_%hd141754141774%_ + (gx#stx-e _%g142735142754%_)))) + (let ((_%hd142739142759%_ (let () (declare (not safe)) - (##car _%e141753141771%_))) - (_%tl141755141776%_ + (##car _%e142738142756%_))) + (_%tl142740142761%_ (let () (declare (not safe)) - (##cdr _%e141753141771%_)))) + (##cdr _%e142738142756%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141755141776%_)) - (let ((_%e141756141779%_ + (gx#stx-pair? _%tl142740142761%_)) + (let ((_%e142741142764%_ (let () (declare (not safe)) - (gx#stx-e _%tl141755141776%_)))) - (let ((_%hd141757141782%_ + (gx#stx-e _%tl142740142761%_)))) + (let ((_%hd142742142767%_ (let () (declare (not safe)) - (##car _%e141756141779%_))) - (_%tl141758141784%_ + (##car _%e142741142764%_))) + (_%tl142743142769%_ (let () (declare (not safe)) - (##cdr _%e141756141779%_)))) + (##cdr _%e142741142764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141758141784%_)) - (let ((_%e141759141787%_ + (gx#stx-pair? _%tl142743142769%_)) + (let ((_%e142744142772%_ (let () (declare (not safe)) - (gx#stx-e _%tl141758141784%_)))) - (let ((_%hd141760141790%_ + (gx#stx-e _%tl142743142769%_)))) + (let ((_%hd142745142775%_ (let () (declare (not safe)) - (##car _%e141759141787%_))) - (_%tl141761141792%_ + (##car _%e142744142772%_))) + (_%tl142746142777%_ (let () (declare (not safe)) - (##cdr _%e141759141787%_)))) + (##cdr _%e142744142772%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141761141792%_)) - ((lambda (_%L141795%_ - _%L141796%_) + _%tl142746142777%_)) + ((lambda (_%L142780%_ + _%L142781%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141746%_ _%L141795%_)) + (gxc#compile-e__1 _%self142731%_ _%L142780%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141746%_ _%L141796%_)) + (gxc#compile-e__1 _%self142731%_ _%L142781%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141811%_ ((_%rest141814%_ + (let _%lp142796%_ ((_%rest142799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141796%_ (cons _%L141795%_ '()))) - (_%bind141816%_ '()) - (_%args141817%_ '())) - (let* ((_%rest141818141826%_ _%rest141814%_) - (_%else141820141834%_ + (cons _%L142781%_ (cons _%L142780%_ '()))) + (_%bind142801%_ '()) + (_%args142802%_ '())) + (let* ((_%rest142803142811%_ _%rest142799%_) + (_%else142805142819%_ (lambda () (cons 'let - (cons _%bind141816%_ + (cons _%bind142801%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args141817%_) + _%args142802%_) '())))))) - (_%K141822141920%_ - (lambda (_%rest141837%_ _%e141838%_) - (let* ((_%__stx148838148839%_ _%e141838%_) - (_%g141843141861%_ + (_%K142807142905%_ + (lambda (_%rest142822%_ _%e142823%_) + (let* ((_%__stx149823149824%_ _%e142823%_) + (_%g142828142846%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148838148839%_))))) - (let ((_%__kont148840148841%_ + _%__stx149823149824%_))))) + (let ((_%__kont149825149826%_ (lambda () - (_%lp141811%_ - _%rest141837%_ - _%bind141816%_ + (_%lp142796%_ + _%rest142822%_ + _%bind142801%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141838%_)) - _%args141817%_)))) - (_%__kont148842148843%_ + (gxc#compile-e__0 _%e142823%_)) + _%args142802%_)))) + (_%__kont149827149828%_ (lambda () - (_%lp141811%_ - _%rest141837%_ - _%bind141816%_ + (_%lp142796%_ + _%rest142822%_ + _%bind142801%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141838%_)) - _%args141817%_)))) - (_%__kont148844148845%_ + (gxc#compile-e__0 _%e142823%_)) + _%args142802%_)))) + (_%__kont149829149830%_ (lambda () - (let ((_%tmp141868%_ - (let ((__tmp149291 + (let ((_%tmp142853%_ + (let ((__tmp150276 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149291)))) - (_%lp141811%_ - _%rest141837%_ - (cons (cons _%tmp141868%_ + (make-symbol__0 __tmp150276)))) + (_%lp142796%_ + _%rest142822%_ + (cons (cons _%tmp142853%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141838%_)) + _%e142823%_)) '())) - _%bind141816%_) - (cons _%tmp141868%_ _%args141817%_)))))) + _%bind142801%_) + (cons _%tmp142853%_ _%args142802%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148838148839%_)) - (let ((_%e141845141899%_ + (gx#stx-pair? _%__stx149823149824%_)) + (let ((_%e142830142884%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148838148839%_)))) - (let ((_%tl141847141904%_ + (gx#stx-e _%__stx149823149824%_)))) + (let ((_%tl142832142889%_ (let () (declare (not safe)) - (##cdr _%e141845141899%_))) - (_%hd141846141902%_ + (##cdr _%e142830142884%_))) + (_%hd142831142887%_ (let () (declare (not safe)) - (##car _%e141845141899%_)))) + (##car _%e142830142884%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141846141902%_)) + (gx#identifier? _%hd142831142887%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141846141902%_)) + _%hd142831142887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141847141904%_)) - (let ((_%e141848141907%_ + _%tl142832142889%_)) + (let ((_%e142833142892%_ (let () (declare (not safe)) (gx#stx-e - _%tl141847141904%_)))) - (let ((_%tl141850141912%_ + _%tl142832142889%_)))) + (let ((_%tl142835142897%_ (let () (declare (not safe)) - (##cdr _%e141848141907%_))) - (_%hd141849141910%_ + (##cdr _%e142833142892%_))) + (_%hd142834142895%_ (let () (declare (not safe)) - (##car _%e141848141907%_)))) + (##car _%e142833142892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141850141912%_)) - (_%__kont148840148841%_) - (_%__kont148844148845%_)))) - (_%__kont148844148845%_)) + _%tl142835142897%_)) + (_%__kont149825149826%_) + (_%__kont149829149830%_)))) + (_%__kont149829149830%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141846141902%_)) + _%hd142831142887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141847141904%_)) - (let ((_%e141854141884%_ + _%tl142832142889%_)) + (let ((_%e142839142869%_ (let () (declare (not safe)) (gx#stx-e - _%tl141847141904%_)))) - (let ((_%tl141856141889%_ + _%tl142832142889%_)))) + (let ((_%tl142841142874%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141854141884%_))) - (_%hd141855141887%_ - (let () (declare (not safe)) (##car _%e141854141884%_)))) + (##cdr _%e142839142869%_))) + (_%hd142840142872%_ + (let () (declare (not safe)) (##car _%e142839142869%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141856141889%_)) - (_%__kont148842148843%_) - (_%__kont148844148845%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148844148845%_)) - (_%__kont148844148845%_))) - (_%__kont148844148845%_)))) - (_%__kont148844148845%_))))))) - (if (pair? _%rest141818141826%_) - (let ((_%hd141823141923%_ + (gx#stx-null? _%tl142841142874%_)) + (_%__kont149827149828%_) + (_%__kont149829149830%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149829149830%_)) + (_%__kont149829149830%_))) + (_%__kont149829149830%_)))) + (_%__kont149829149830%_))))))) + (if (pair? _%rest142803142811%_) + (let ((_%hd142808142908%_ (let () (declare (not safe)) - (##car _%rest141818141826%_))) - (_%tl141824141925%_ + (##car _%rest142803142811%_))) + (_%tl142809142910%_ (let () (declare (not safe)) - (##cdr _%rest141818141826%_)))) - (let* ((_%e141928%_ _%hd141823141923%_) - (_%rest141930%_ _%tl141824141925%_)) - (_%K141822141920%_ _%rest141930%_ _%e141928%_))) - (_%else141820141834%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141760141790%_ - _%hd141757141782%_) - (_%g141749141766%_ - _%g141750141769%_)))) - (_%g141749141766%_ _%g141750141769%_)))) - (_%g141749141766%_ _%g141750141769%_)))) - (_%g141749141766%_ _%g141750141769%_))))) - (_%g141748141932%_ _%stx141747%_)))) + (##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 (_%self141557%_ _%stx141558%_) - (let* ((_%g141560141577%_ - (lambda (_%g141561141574%_) + (lambda (_%self142542%_ _%stx142543%_) + (let* ((_%g142545142562%_ + (lambda (_%g142546142559%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141561141574%_)))) - (_%g141559141743%_ - (lambda (_%g141561141580%_) + _%g142546142559%_)))) + (_%g142544142728%_ + (lambda (_%g142546142565%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141561141580%_)) - (let ((_%e141564141582%_ + (gx#stx-pair? _%g142546142565%_)) + (let ((_%e142549142567%_ (let () (declare (not safe)) - (gx#stx-e _%g141561141580%_)))) - (let ((_%hd141565141585%_ + (gx#stx-e _%g142546142565%_)))) + (let ((_%hd142550142570%_ (let () (declare (not safe)) - (##car _%e141564141582%_))) - (_%tl141566141587%_ + (##car _%e142549142567%_))) + (_%tl142551142572%_ (let () (declare (not safe)) - (##cdr _%e141564141582%_)))) + (##cdr _%e142549142567%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141566141587%_)) - (let ((_%e141567141590%_ + (gx#stx-pair? _%tl142551142572%_)) + (let ((_%e142552142575%_ (let () (declare (not safe)) - (gx#stx-e _%tl141566141587%_)))) - (let ((_%hd141568141593%_ + (gx#stx-e _%tl142551142572%_)))) + (let ((_%hd142553142578%_ (let () (declare (not safe)) - (##car _%e141567141590%_))) - (_%tl141569141595%_ + (##car _%e142552142575%_))) + (_%tl142554142580%_ (let () (declare (not safe)) - (##cdr _%e141567141590%_)))) + (##cdr _%e142552142575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141569141595%_)) - (let ((_%e141570141598%_ + (gx#stx-pair? _%tl142554142580%_)) + (let ((_%e142555142583%_ (let () (declare (not safe)) - (gx#stx-e _%tl141569141595%_)))) - (let ((_%hd141571141601%_ + (gx#stx-e _%tl142554142580%_)))) + (let ((_%hd142556142586%_ (let () (declare (not safe)) - (##car _%e141570141598%_))) - (_%tl141572141603%_ + (##car _%e142555142583%_))) + (_%tl142557142588%_ (let () (declare (not safe)) - (##cdr _%e141570141598%_)))) + (##cdr _%e142555142583%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141572141603%_)) - ((lambda (_%L141606%_ - _%L141607%_) + _%tl142557142588%_)) + ((lambda (_%L142591%_ + _%L142592%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141557%_ _%L141606%_)) + (gxc#compile-e__1 _%self142542%_ _%L142591%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141557%_ _%L141607%_)) + (gxc#compile-e__1 _%self142542%_ _%L142592%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141622%_ ((_%rest141625%_ + (let _%lp142607%_ ((_%rest142610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141607%_ (cons _%L141606%_ '()))) - (_%bind141627%_ '()) - (_%args141628%_ '())) - (let* ((_%rest141629141637%_ _%rest141625%_) - (_%else141631141645%_ + (cons _%L142592%_ (cons _%L142591%_ '()))) + (_%bind142612%_ '()) + (_%args142613%_ '())) + (let* ((_%rest142614142622%_ _%rest142610%_) + (_%else142616142630%_ (lambda () (cons 'let - (cons _%bind141627%_ + (cons _%bind142612%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args141628%_) + _%args142613%_) '())))))) - (_%K141633141731%_ - (lambda (_%rest141648%_ _%e141649%_) - (let* ((_%__stx148884148885%_ _%e141649%_) - (_%g141654141672%_ + (_%K142618142716%_ + (lambda (_%rest142633%_ _%e142634%_) + (let* ((_%__stx149869149870%_ _%e142634%_) + (_%g142639142657%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148884148885%_))))) - (let ((_%__kont148886148887%_ + _%__stx149869149870%_))))) + (let ((_%__kont149871149872%_ (lambda () - (_%lp141622%_ - _%rest141648%_ - _%bind141627%_ + (_%lp142607%_ + _%rest142633%_ + _%bind142612%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141649%_)) - _%args141628%_)))) - (_%__kont148888148889%_ + (gxc#compile-e__0 _%e142634%_)) + _%args142613%_)))) + (_%__kont149873149874%_ (lambda () - (_%lp141622%_ - _%rest141648%_ - _%bind141627%_ + (_%lp142607%_ + _%rest142633%_ + _%bind142612%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141649%_)) - _%args141628%_)))) - (_%__kont148890148891%_ + (gxc#compile-e__0 _%e142634%_)) + _%args142613%_)))) + (_%__kont149875149876%_ (lambda () - (let ((_%tmp141679%_ - (let ((__tmp149292 + (let ((_%tmp142664%_ + (let ((__tmp150277 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149292)))) - (_%lp141622%_ - _%rest141648%_ - (cons (cons _%tmp141679%_ + (make-symbol__0 __tmp150277)))) + (_%lp142607%_ + _%rest142633%_ + (cons (cons _%tmp142664%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141649%_)) + _%e142634%_)) '())) - _%bind141627%_) - (cons _%tmp141679%_ _%args141628%_)))))) + _%bind142612%_) + (cons _%tmp142664%_ _%args142613%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148884148885%_)) - (let ((_%e141656141710%_ + (gx#stx-pair? _%__stx149869149870%_)) + (let ((_%e142641142695%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148884148885%_)))) - (let ((_%tl141658141715%_ + (gx#stx-e _%__stx149869149870%_)))) + (let ((_%tl142643142700%_ (let () (declare (not safe)) - (##cdr _%e141656141710%_))) - (_%hd141657141713%_ + (##cdr _%e142641142695%_))) + (_%hd142642142698%_ (let () (declare (not safe)) - (##car _%e141656141710%_)))) + (##car _%e142641142695%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141657141713%_)) + (gx#identifier? _%hd142642142698%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141657141713%_)) + _%hd142642142698%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141658141715%_)) - (let ((_%e141659141718%_ + _%tl142643142700%_)) + (let ((_%e142644142703%_ (let () (declare (not safe)) (gx#stx-e - _%tl141658141715%_)))) - (let ((_%tl141661141723%_ + _%tl142643142700%_)))) + (let ((_%tl142646142708%_ (let () (declare (not safe)) - (##cdr _%e141659141718%_))) - (_%hd141660141721%_ + (##cdr _%e142644142703%_))) + (_%hd142645142706%_ (let () (declare (not safe)) - (##car _%e141659141718%_)))) + (##car _%e142644142703%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141661141723%_)) - (_%__kont148886148887%_) - (_%__kont148890148891%_)))) - (_%__kont148890148891%_)) + _%tl142646142708%_)) + (_%__kont149871149872%_) + (_%__kont149875149876%_)))) + (_%__kont149875149876%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141657141713%_)) + _%hd142642142698%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141658141715%_)) - (let ((_%e141665141695%_ + _%tl142643142700%_)) + (let ((_%e142650142680%_ (let () (declare (not safe)) (gx#stx-e - _%tl141658141715%_)))) - (let ((_%tl141667141700%_ + _%tl142643142700%_)))) + (let ((_%tl142652142685%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141665141695%_))) - (_%hd141666141698%_ - (let () (declare (not safe)) (##car _%e141665141695%_)))) + (##cdr _%e142650142680%_))) + (_%hd142651142683%_ + (let () (declare (not safe)) (##car _%e142650142680%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141667141700%_)) - (_%__kont148888148889%_) - (_%__kont148890148891%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148890148891%_)) - (_%__kont148890148891%_))) - (_%__kont148890148891%_)))) - (_%__kont148890148891%_))))))) - (if (pair? _%rest141629141637%_) - (let ((_%hd141634141734%_ + (gx#stx-null? _%tl142652142685%_)) + (_%__kont149873149874%_) + (_%__kont149875149876%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149875149876%_)) + (_%__kont149875149876%_))) + (_%__kont149875149876%_)))) + (_%__kont149875149876%_))))))) + (if (pair? _%rest142614142622%_) + (let ((_%hd142619142719%_ (let () (declare (not safe)) - (##car _%rest141629141637%_))) - (_%tl141635141736%_ + (##car _%rest142614142622%_))) + (_%tl142620142721%_ (let () (declare (not safe)) - (##cdr _%rest141629141637%_)))) - (let* ((_%e141739%_ _%hd141634141734%_) - (_%rest141741%_ _%tl141635141736%_)) - (_%K141633141731%_ _%rest141741%_ _%e141739%_))) - (_%else141631141645%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141571141601%_ - _%hd141568141593%_) - (_%g141560141577%_ - _%g141561141580%_)))) - (_%g141560141577%_ _%g141561141580%_)))) - (_%g141560141577%_ _%g141561141580%_)))) - (_%g141560141577%_ _%g141561141580%_))))) - (_%g141559141743%_ _%stx141558%_)))) + (##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 (_%self141473%_ _%stx141474%_) - (let* ((_%g141476141497%_ - (lambda (_%g141477141494%_) + (lambda (_%self142458%_ _%stx142459%_) + (let* ((_%g142461142482%_ + (lambda (_%g142462142479%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141477141494%_)))) - (_%g141475141554%_ - (lambda (_%g141477141500%_) + _%g142462142479%_)))) + (_%g142460142539%_ + (lambda (_%g142462142485%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141477141500%_)) - (let ((_%e141481141502%_ + (gx#stx-pair? _%g142462142485%_)) + (let ((_%e142466142487%_ (let () (declare (not safe)) - (gx#stx-e _%g141477141500%_)))) - (let ((_%hd141482141505%_ + (gx#stx-e _%g142462142485%_)))) + (let ((_%hd142467142490%_ (let () (declare (not safe)) - (##car _%e141481141502%_))) - (_%tl141483141507%_ + (##car _%e142466142487%_))) + (_%tl142468142492%_ (let () (declare (not safe)) - (##cdr _%e141481141502%_)))) + (##cdr _%e142466142487%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141483141507%_)) - (let ((_%e141484141510%_ + (gx#stx-pair? _%tl142468142492%_)) + (let ((_%e142469142495%_ (let () (declare (not safe)) - (gx#stx-e _%tl141483141507%_)))) - (let ((_%hd141485141513%_ + (gx#stx-e _%tl142468142492%_)))) + (let ((_%hd142470142498%_ (let () (declare (not safe)) - (##car _%e141484141510%_))) - (_%tl141486141515%_ + (##car _%e142469142495%_))) + (_%tl142471142500%_ (let () (declare (not safe)) - (##cdr _%e141484141510%_)))) + (##cdr _%e142469142495%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141486141515%_)) - (let ((_%e141487141518%_ + (gx#stx-pair? _%tl142471142500%_)) + (let ((_%e142472142503%_ (let () (declare (not safe)) - (gx#stx-e _%tl141486141515%_)))) - (let ((_%hd141488141521%_ + (gx#stx-e _%tl142471142500%_)))) + (let ((_%hd142473142506%_ (let () (declare (not safe)) - (##car _%e141487141518%_))) - (_%tl141489141523%_ + (##car _%e142472142503%_))) + (_%tl142474142508%_ (let () (declare (not safe)) - (##cdr _%e141487141518%_)))) + (##cdr _%e142472142503%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141489141523%_)) - (let ((_%e141490141526%_ + _%tl142474142508%_)) + (let ((_%e142475142511%_ (let () (declare (not safe)) (gx#stx-e - _%tl141489141523%_)))) - (let ((_%hd141491141529%_ + _%tl142474142508%_)))) + (let ((_%hd142476142514%_ (let () (declare (not safe)) - (##car _%e141490141526%_))) - (_%tl141492141531%_ + (##car _%e142475142511%_))) + (_%tl142477142516%_ (let () (declare (not safe)) - (##cdr _%e141490141526%_)))) + (##cdr _%e142475142511%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141492141531%_)) - ((lambda (_%L141534%_ - _%L141535%_ - _%L141536%_) + _%tl142477142516%_)) + ((lambda (_%L142519%_ + _%L142520%_ + _%L142521%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141473%_ _%L141534%_)) + (gxc#compile-e__1 _%self142458%_ _%L142519%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141473%_ - _%L141535%_)) + _%self142458%_ + _%L142520%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141473%_ - _%L141536%_)) + _%self142458%_ + _%L142521%_)) (cons ''#f '())))))) - _%hd141491141529%_ - _%hd141488141521%_ - _%hd141485141513%_) - (_%g141476141497%_ _%g141477141500%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141476141497%_ - _%g141477141500%_)))) - (_%g141476141497%_ _%g141477141500%_)))) - (_%g141476141497%_ _%g141477141500%_)))) - (_%g141476141497%_ _%g141477141500%_))))) - (_%g141475141554%_ _%stx141474%_)))) + _%hd142476142514%_ + _%hd142473142506%_ + _%hd142470142498%_) + (_%g142461142482%_ _%g142462142485%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142461142482%_ + _%g142462142485%_)))) + (_%g142461142482%_ _%g142462142485%_)))) + (_%g142461142482%_ _%g142462142485%_)))) + (_%g142461142482%_ _%g142462142485%_))))) + (_%g142460142539%_ _%stx142459%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self141373%_ _%stx141374%_) - (let* ((_%g141376141401%_ - (lambda (_%g141377141398%_) + (lambda (_%self142358%_ _%stx142359%_) + (let* ((_%g142361142386%_ + (lambda (_%g142362142383%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141377141398%_)))) - (_%g141375141470%_ - (lambda (_%g141377141404%_) + _%g142362142383%_)))) + (_%g142360142455%_ + (lambda (_%g142362142389%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141377141404%_)) - (let ((_%e141382141406%_ + (gx#stx-pair? _%g142362142389%_)) + (let ((_%e142367142391%_ (let () (declare (not safe)) - (gx#stx-e _%g141377141404%_)))) - (let ((_%hd141383141409%_ + (gx#stx-e _%g142362142389%_)))) + (let ((_%hd142368142394%_ (let () (declare (not safe)) - (##car _%e141382141406%_))) - (_%tl141384141411%_ + (##car _%e142367142391%_))) + (_%tl142369142396%_ (let () (declare (not safe)) - (##cdr _%e141382141406%_)))) + (##cdr _%e142367142391%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141384141411%_)) - (let ((_%e141385141414%_ + (gx#stx-pair? _%tl142369142396%_)) + (let ((_%e142370142399%_ (let () (declare (not safe)) - (gx#stx-e _%tl141384141411%_)))) - (let ((_%hd141386141417%_ + (gx#stx-e _%tl142369142396%_)))) + (let ((_%hd142371142402%_ (let () (declare (not safe)) - (##car _%e141385141414%_))) - (_%tl141387141419%_ + (##car _%e142370142399%_))) + (_%tl142372142404%_ (let () (declare (not safe)) - (##cdr _%e141385141414%_)))) + (##cdr _%e142370142399%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141387141419%_)) - (let ((_%e141388141422%_ + (gx#stx-pair? _%tl142372142404%_)) + (let ((_%e142373142407%_ (let () (declare (not safe)) - (gx#stx-e _%tl141387141419%_)))) - (let ((_%hd141389141425%_ + (gx#stx-e _%tl142372142404%_)))) + (let ((_%hd142374142410%_ (let () (declare (not safe)) - (##car _%e141388141422%_))) - (_%tl141390141427%_ + (##car _%e142373142407%_))) + (_%tl142375142412%_ (let () (declare (not safe)) - (##cdr _%e141388141422%_)))) + (##cdr _%e142373142407%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141390141427%_)) - (let ((_%e141391141430%_ + _%tl142375142412%_)) + (let ((_%e142376142415%_ (let () (declare (not safe)) (gx#stx-e - _%tl141390141427%_)))) - (let ((_%hd141392141433%_ + _%tl142375142412%_)))) + (let ((_%hd142377142418%_ (let () (declare (not safe)) - (##car _%e141391141430%_))) - (_%tl141393141435%_ + (##car _%e142376142415%_))) + (_%tl142378142420%_ (let () (declare (not safe)) - (##cdr _%e141391141430%_)))) + (##cdr _%e142376142415%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141393141435%_)) - (let ((_%e141394141438%_ + _%tl142378142420%_)) + (let ((_%e142379142423%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141393141435%_)))) - (let ((_%hd141395141441%_ - (let () (declare (not safe)) (##car _%e141394141438%_))) - (_%tl141396141443%_ + (gx#stx-e _%tl142378142420%_)))) + (let ((_%hd142380142426%_ + (let () (declare (not safe)) (##car _%e142379142423%_))) + (_%tl142381142428%_ (let () (declare (not safe)) - (##cdr _%e141394141438%_)))) + (##cdr _%e142379142423%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141396141443%_)) - ((lambda (_%L141446%_ - _%L141447%_ - _%L141448%_ - _%L141449%_) + (gx#stx-null? _%tl142381142428%_)) + ((lambda (_%L142431%_ + _%L142432%_ + _%L142433%_ + _%L142434%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141373%_ - _%L141447%_)) + _%self142358%_ + _%L142432%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141373%_ - _%L141446%_)) + _%self142358%_ + _%L142431%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141373%_ - _%L141448%_)) + _%self142358%_ + _%L142433%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141373%_ - _%L141449%_)) + _%self142358%_ + _%L142434%_)) (cons ''#f '()))))))) - _%hd141395141441%_ - _%hd141392141433%_ - _%hd141389141425%_ - _%hd141386141417%_) - (_%g141376141401%_ _%g141377141404%_)))) - (_%g141376141401%_ _%g141377141404%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141376141401%_ - _%g141377141404%_)))) - (_%g141376141401%_ _%g141377141404%_)))) - (_%g141376141401%_ _%g141377141404%_)))) - (_%g141376141401%_ _%g141377141404%_))))) - (_%g141375141470%_ _%stx141374%_)))) + _%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 (_%self141289%_ _%stx141290%_) - (let* ((_%g141292141313%_ - (lambda (_%g141293141310%_) + (lambda (_%self142274%_ _%stx142275%_) + (let* ((_%g142277142298%_ + (lambda (_%g142278142295%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141293141310%_)))) - (_%g141291141370%_ - (lambda (_%g141293141316%_) + _%g142278142295%_)))) + (_%g142276142355%_ + (lambda (_%g142278142301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141293141316%_)) - (let ((_%e141297141318%_ + (gx#stx-pair? _%g142278142301%_)) + (let ((_%e142282142303%_ (let () (declare (not safe)) - (gx#stx-e _%g141293141316%_)))) - (let ((_%hd141298141321%_ + (gx#stx-e _%g142278142301%_)))) + (let ((_%hd142283142306%_ (let () (declare (not safe)) - (##car _%e141297141318%_))) - (_%tl141299141323%_ + (##car _%e142282142303%_))) + (_%tl142284142308%_ (let () (declare (not safe)) - (##cdr _%e141297141318%_)))) + (##cdr _%e142282142303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141299141323%_)) - (let ((_%e141300141326%_ + (gx#stx-pair? _%tl142284142308%_)) + (let ((_%e142285142311%_ (let () (declare (not safe)) - (gx#stx-e _%tl141299141323%_)))) - (let ((_%hd141301141329%_ + (gx#stx-e _%tl142284142308%_)))) + (let ((_%hd142286142314%_ (let () (declare (not safe)) - (##car _%e141300141326%_))) - (_%tl141302141331%_ + (##car _%e142285142311%_))) + (_%tl142287142316%_ (let () (declare (not safe)) - (##cdr _%e141300141326%_)))) + (##cdr _%e142285142311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141302141331%_)) - (let ((_%e141303141334%_ + (gx#stx-pair? _%tl142287142316%_)) + (let ((_%e142288142319%_ (let () (declare (not safe)) - (gx#stx-e _%tl141302141331%_)))) - (let ((_%hd141304141337%_ + (gx#stx-e _%tl142287142316%_)))) + (let ((_%hd142289142322%_ (let () (declare (not safe)) - (##car _%e141303141334%_))) - (_%tl141305141339%_ + (##car _%e142288142319%_))) + (_%tl142290142324%_ (let () (declare (not safe)) - (##cdr _%e141303141334%_)))) + (##cdr _%e142288142319%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141305141339%_)) - (let ((_%e141306141342%_ + _%tl142290142324%_)) + (let ((_%e142291142327%_ (let () (declare (not safe)) (gx#stx-e - _%tl141305141339%_)))) - (let ((_%hd141307141345%_ + _%tl142290142324%_)))) + (let ((_%hd142292142330%_ (let () (declare (not safe)) - (##car _%e141306141342%_))) - (_%tl141308141347%_ + (##car _%e142291142327%_))) + (_%tl142293142332%_ (let () (declare (not safe)) - (##cdr _%e141306141342%_)))) + (##cdr _%e142291142327%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141308141347%_)) - ((lambda (_%L141350%_ - _%L141351%_ - _%L141352%_) + _%tl142293142332%_)) + ((lambda (_%L142335%_ + _%L142336%_ + _%L142337%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141289%_ _%L141350%_)) + (gxc#compile-e__1 _%self142274%_ _%L142335%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141289%_ - _%L141351%_)) + _%self142274%_ + _%L142336%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141289%_ - _%L141352%_)) + _%self142274%_ + _%L142337%_)) (cons ''#f '())))))) - _%hd141307141345%_ - _%hd141304141337%_ - _%hd141301141329%_) - (_%g141292141313%_ _%g141293141316%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141292141313%_ - _%g141293141316%_)))) - (_%g141292141313%_ _%g141293141316%_)))) - (_%g141292141313%_ _%g141293141316%_)))) - (_%g141292141313%_ _%g141293141316%_))))) - (_%g141291141370%_ _%stx141290%_)))) + _%hd142292142330%_ + _%hd142289142322%_ + _%hd142286142314%_) + (_%g142277142298%_ _%g142278142301%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142277142298%_ + _%g142278142301%_)))) + (_%g142277142298%_ _%g142278142301%_)))) + (_%g142277142298%_ _%g142278142301%_)))) + (_%g142277142298%_ _%g142278142301%_))))) + (_%g142276142355%_ _%stx142275%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self141189%_ _%stx141190%_) - (let* ((_%g141192141217%_ - (lambda (_%g141193141214%_) + (lambda (_%self142174%_ _%stx142175%_) + (let* ((_%g142177142202%_ + (lambda (_%g142178142199%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141193141214%_)))) - (_%g141191141286%_ - (lambda (_%g141193141220%_) + _%g142178142199%_)))) + (_%g142176142271%_ + (lambda (_%g142178142205%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141193141220%_)) - (let ((_%e141198141222%_ + (gx#stx-pair? _%g142178142205%_)) + (let ((_%e142183142207%_ (let () (declare (not safe)) - (gx#stx-e _%g141193141220%_)))) - (let ((_%hd141199141225%_ + (gx#stx-e _%g142178142205%_)))) + (let ((_%hd142184142210%_ (let () (declare (not safe)) - (##car _%e141198141222%_))) - (_%tl141200141227%_ + (##car _%e142183142207%_))) + (_%tl142185142212%_ (let () (declare (not safe)) - (##cdr _%e141198141222%_)))) + (##cdr _%e142183142207%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141200141227%_)) - (let ((_%e141201141230%_ + (gx#stx-pair? _%tl142185142212%_)) + (let ((_%e142186142215%_ (let () (declare (not safe)) - (gx#stx-e _%tl141200141227%_)))) - (let ((_%hd141202141233%_ + (gx#stx-e _%tl142185142212%_)))) + (let ((_%hd142187142218%_ (let () (declare (not safe)) - (##car _%e141201141230%_))) - (_%tl141203141235%_ + (##car _%e142186142215%_))) + (_%tl142188142220%_ (let () (declare (not safe)) - (##cdr _%e141201141230%_)))) + (##cdr _%e142186142215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141203141235%_)) - (let ((_%e141204141238%_ + (gx#stx-pair? _%tl142188142220%_)) + (let ((_%e142189142223%_ (let () (declare (not safe)) - (gx#stx-e _%tl141203141235%_)))) - (let ((_%hd141205141241%_ + (gx#stx-e _%tl142188142220%_)))) + (let ((_%hd142190142226%_ (let () (declare (not safe)) - (##car _%e141204141238%_))) - (_%tl141206141243%_ + (##car _%e142189142223%_))) + (_%tl142191142228%_ (let () (declare (not safe)) - (##cdr _%e141204141238%_)))) + (##cdr _%e142189142223%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141206141243%_)) - (let ((_%e141207141246%_ + _%tl142191142228%_)) + (let ((_%e142192142231%_ (let () (declare (not safe)) (gx#stx-e - _%tl141206141243%_)))) - (let ((_%hd141208141249%_ + _%tl142191142228%_)))) + (let ((_%hd142193142234%_ (let () (declare (not safe)) - (##car _%e141207141246%_))) - (_%tl141209141251%_ + (##car _%e142192142231%_))) + (_%tl142194142236%_ (let () (declare (not safe)) - (##cdr _%e141207141246%_)))) + (##cdr _%e142192142231%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141209141251%_)) - (let ((_%e141210141254%_ + _%tl142194142236%_)) + (let ((_%e142195142239%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141209141251%_)))) - (let ((_%hd141211141257%_ - (let () (declare (not safe)) (##car _%e141210141254%_))) - (_%tl141212141259%_ + (gx#stx-e _%tl142194142236%_)))) + (let ((_%hd142196142242%_ + (let () (declare (not safe)) (##car _%e142195142239%_))) + (_%tl142197142244%_ (let () (declare (not safe)) - (##cdr _%e141210141254%_)))) + (##cdr _%e142195142239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141212141259%_)) - ((lambda (_%L141262%_ - _%L141263%_ - _%L141264%_ - _%L141265%_) + (gx#stx-null? _%tl142197142244%_)) + ((lambda (_%L142247%_ + _%L142248%_ + _%L142249%_ + _%L142250%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141189%_ - _%L141263%_)) + _%self142174%_ + _%L142248%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141189%_ - _%L141262%_)) + _%self142174%_ + _%L142247%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141189%_ - _%L141264%_)) + _%self142174%_ + _%L142249%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141189%_ - _%L141265%_)) + _%self142174%_ + _%L142250%_)) (cons ''#f '()))))))) - _%hd141211141257%_ - _%hd141208141249%_ - _%hd141205141241%_ - _%hd141202141233%_) - (_%g141192141217%_ _%g141193141220%_)))) - (_%g141192141217%_ _%g141193141220%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141192141217%_ - _%g141193141220%_)))) - (_%g141192141217%_ _%g141193141220%_)))) - (_%g141192141217%_ _%g141193141220%_)))) - (_%g141192141217%_ _%g141193141220%_))))) - (_%g141191141286%_ _%stx141190%_)))) + _%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 (_%self140984%_ _%stx140985%_) - (let* ((_%g140987141008%_ - (lambda (_%g140988141005%_) + (lambda (_%self141969%_ _%stx141970%_) + (let* ((_%g141972141993%_ + (lambda (_%g141973141990%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140988141005%_)))) - (_%g140986141186%_ - (lambda (_%g140988141011%_) + _%g141973141990%_)))) + (_%g141971142171%_ + (lambda (_%g141973141996%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140988141011%_)) - (let ((_%e140992141013%_ + (gx#stx-pair? _%g141973141996%_)) + (let ((_%e141977141998%_ (let () (declare (not safe)) - (gx#stx-e _%g140988141011%_)))) - (let ((_%hd140993141016%_ + (gx#stx-e _%g141973141996%_)))) + (let ((_%hd141978142001%_ (let () (declare (not safe)) - (##car _%e140992141013%_))) - (_%tl140994141018%_ + (##car _%e141977141998%_))) + (_%tl141979142003%_ (let () (declare (not safe)) - (##cdr _%e140992141013%_)))) + (##cdr _%e141977141998%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140994141018%_)) - (let ((_%e140995141021%_ + (gx#stx-pair? _%tl141979142003%_)) + (let ((_%e141980142006%_ (let () (declare (not safe)) - (gx#stx-e _%tl140994141018%_)))) - (let ((_%hd140996141024%_ + (gx#stx-e _%tl141979142003%_)))) + (let ((_%hd141981142009%_ (let () (declare (not safe)) - (##car _%e140995141021%_))) - (_%tl140997141026%_ + (##car _%e141980142006%_))) + (_%tl141982142011%_ (let () (declare (not safe)) - (##cdr _%e140995141021%_)))) + (##cdr _%e141980142006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140997141026%_)) - (let ((_%e140998141029%_ + (gx#stx-pair? _%tl141982142011%_)) + (let ((_%e141983142014%_ (let () (declare (not safe)) - (gx#stx-e _%tl140997141026%_)))) - (let ((_%hd140999141032%_ + (gx#stx-e _%tl141982142011%_)))) + (let ((_%hd141984142017%_ (let () (declare (not safe)) - (##car _%e140998141029%_))) - (_%tl141000141034%_ + (##car _%e141983142014%_))) + (_%tl141985142019%_ (let () (declare (not safe)) - (##cdr _%e140998141029%_)))) + (##cdr _%e141983142014%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141000141034%_)) - (let ((_%e141001141037%_ + _%tl141985142019%_)) + (let ((_%e141986142022%_ (let () (declare (not safe)) (gx#stx-e - _%tl141000141034%_)))) - (let ((_%hd141002141040%_ + _%tl141985142019%_)))) + (let ((_%hd141987142025%_ (let () (declare (not safe)) - (##car _%e141001141037%_))) - (_%tl141003141042%_ + (##car _%e141986142022%_))) + (_%tl141988142027%_ (let () (declare (not safe)) - (##cdr _%e141001141037%_)))) + (##cdr _%e141986142022%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141003141042%_)) - ((lambda (_%L141045%_ - _%L141046%_ - _%L141047%_) + _%tl141988142027%_)) + ((lambda (_%L142030%_ + _%L142031%_ + _%L142032%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140984%_ - _%L141045%_)) + _%self141969%_ + _%L142030%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140984%_ - _%L141046%_)) + _%self141969%_ + _%L142031%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp141065%_ ((_%rest141068%_ - (cons _%L141046%_ - (cons _%L141045%_ '()))) - (_%bind141070%_ '()) - (_%args141071%_ '())) - (let* ((_%rest141072141080%_ _%rest141068%_) - (_%else141074141088%_ + (let _%lp142050%_ ((_%rest142053%_ + (cons _%L142031%_ + (cons _%L142030%_ '()))) + (_%bind142055%_ '()) + (_%args142056%_ '())) + (let* ((_%rest142057142065%_ _%rest142053%_) + (_%else142059142073%_ (lambda () (cons 'let - (cons _%bind141070%_ + (cons _%bind142055%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp149293 + (let ((__tmp150278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp149293 _%args141071%_))) + (__foldr1 cons __tmp150278 _%args142056%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K141076141174%_ - (lambda (_%rest141091%_ _%e141092%_) - (let* ((_%__stx148930148931%_ _%e141092%_) - (_%g141097141115%_ + (_%K142061142159%_ + (lambda (_%rest142076%_ _%e142077%_) + (let* ((_%__stx149915149916%_ _%e142077%_) + (_%g142082142100%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148930148931%_))))) - (let ((_%__kont148932148933%_ + _%__stx149915149916%_))))) + (let ((_%__kont149917149918%_ (lambda () - (_%lp141065%_ - _%rest141091%_ - _%bind141070%_ + (_%lp142050%_ + _%rest142076%_ + _%bind142055%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141092%_)) - _%args141071%_)))) - (_%__kont148934148935%_ + _%e142077%_)) + _%args142056%_)))) + (_%__kont149919149920%_ (lambda () - (_%lp141065%_ - _%rest141091%_ - _%bind141070%_ + (_%lp142050%_ + _%rest142076%_ + _%bind142055%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141092%_)) - _%args141071%_)))) - (_%__kont148936148937%_ + _%e142077%_)) + _%args142056%_)))) + (_%__kont149921149922%_ (lambda () - (let ((_%tmp141122%_ - (let ((__tmp149294 + (let ((_%tmp142107%_ + (let ((__tmp150279 (let () (declare (not safe)) @@ -11572,1578 +11572,1578 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp149294)))) - (_%lp141065%_ - _%rest141091%_ - (cons (cons _%tmp141122%_ + __tmp150279)))) + (_%lp142050%_ + _%rest142076%_ + (cons (cons _%tmp142107%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e141092%_)) + (gxc#compile-e__0 _%e142077%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind141070%_) - (cons _%tmp141122%_ - _%args141071%_)))))) + _%bind142055%_) + (cons _%tmp142107%_ + _%args142056%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148930148931%_)) - (let ((_%e141099141153%_ + _%__stx149915149916%_)) + (let ((_%e142084142138%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148930148931%_)))) - (let ((_%tl141101141158%_ + _%__stx149915149916%_)))) + (let ((_%tl142086142143%_ (let () (declare (not safe)) - (##cdr _%e141099141153%_))) - (_%hd141100141156%_ + (##cdr _%e142084142138%_))) + (_%hd142085142141%_ (let () (declare (not safe)) - (##car _%e141099141153%_)))) + (##car _%e142084142138%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141100141156%_)) + _%hd142085142141%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141100141156%_)) + _%hd142085142141%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141101141158%_)) - (let ((_%e141102141161%_ + _%tl142086142143%_)) + (let ((_%e142087142146%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl141101141158%_)))) - (let ((_%tl141104141166%_ + (gx#stx-e _%tl142086142143%_)))) + (let ((_%tl142089142151%_ (let () (declare (not safe)) - (##cdr _%e141102141161%_))) - (_%hd141103141164%_ + (##cdr _%e142087142146%_))) + (_%hd142088142149%_ (let () (declare (not safe)) - (##car _%e141102141161%_)))) + (##car _%e142087142146%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141104141166%_)) - (_%__kont148932148933%_) - (_%__kont148936148937%_)))) - (_%__kont148936148937%_)) + (gx#stx-null? _%tl142089142151%_)) + (_%__kont149917149918%_) + (_%__kont149921149922%_)))) + (_%__kont149921149922%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141100141156%_)) + _%hd142085142141%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl141101141158%_)) - (let ((_%e141108141138%_ + (gx#stx-pair? _%tl142086142143%_)) + (let ((_%e142093142123%_ (let () (declare (not safe)) - (gx#stx-e _%tl141101141158%_)))) - (let ((_%tl141110141143%_ + (gx#stx-e _%tl142086142143%_)))) + (let ((_%tl142095142128%_ (let () (declare (not safe)) - (##cdr _%e141108141138%_))) - (_%hd141109141141%_ + (##cdr _%e142093142123%_))) + (_%hd142094142126%_ (let () (declare (not safe)) - (##car _%e141108141138%_)))) + (##car _%e142093142123%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141110141143%_)) - (_%__kont148934148935%_) - (_%__kont148936148937%_)))) - (_%__kont148936148937%_)) - (_%__kont148936148937%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148936148937%_)))) - (_%__kont148936148937%_))))))) - (if (pair? _%rest141072141080%_) - (let ((_%hd141077141177%_ + (gx#stx-null? _%tl142095142128%_)) + (_%__kont149919149920%_) + (_%__kont149921149922%_)))) + (_%__kont149921149922%_)) + (_%__kont149921149922%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149921149922%_)))) + (_%__kont149921149922%_))))))) + (if (pair? _%rest142057142065%_) + (let ((_%hd142062142162%_ (let () (declare (not safe)) - (##car _%rest141072141080%_))) - (_%tl141078141179%_ + (##car _%rest142057142065%_))) + (_%tl142063142164%_ (let () (declare (not safe)) - (##cdr _%rest141072141080%_)))) - (let* ((_%e141182%_ _%hd141077141177%_) - (_%rest141184%_ _%tl141078141179%_)) - (_%K141076141174%_ - _%rest141184%_ - _%e141182%_))) - (_%else141074141088%_)))))) - _%hd141002141040%_ - _%hd140999141032%_ - _%hd140996141024%_) - (_%g140987141008%_ _%g140988141011%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140987141008%_ - _%g140988141011%_)))) - (_%g140987141008%_ _%g140988141011%_)))) - (_%g140987141008%_ _%g140988141011%_)))) - (_%g140987141008%_ _%g140988141011%_))))) - (_%g140986141186%_ _%stx140985%_)))) + (##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 (_%self140763%_ _%stx140764%_) - (let* ((_%g140766140791%_ - (lambda (_%g140767140788%_) + (lambda (_%self141748%_ _%stx141749%_) + (let* ((_%g141751141776%_ + (lambda (_%g141752141773%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140767140788%_)))) - (_%g140765140981%_ - (lambda (_%g140767140794%_) + _%g141752141773%_)))) + (_%g141750141966%_ + (lambda (_%g141752141779%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140767140794%_)) - (let ((_%e140772140796%_ + (gx#stx-pair? _%g141752141779%_)) + (let ((_%e141757141781%_ (let () (declare (not safe)) - (gx#stx-e _%g140767140794%_)))) - (let ((_%hd140773140799%_ + (gx#stx-e _%g141752141779%_)))) + (let ((_%hd141758141784%_ (let () (declare (not safe)) - (##car _%e140772140796%_))) - (_%tl140774140801%_ + (##car _%e141757141781%_))) + (_%tl141759141786%_ (let () (declare (not safe)) - (##cdr _%e140772140796%_)))) + (##cdr _%e141757141781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140774140801%_)) - (let ((_%e140775140804%_ + (gx#stx-pair? _%tl141759141786%_)) + (let ((_%e141760141789%_ (let () (declare (not safe)) - (gx#stx-e _%tl140774140801%_)))) - (let ((_%hd140776140807%_ + (gx#stx-e _%tl141759141786%_)))) + (let ((_%hd141761141792%_ (let () (declare (not safe)) - (##car _%e140775140804%_))) - (_%tl140777140809%_ + (##car _%e141760141789%_))) + (_%tl141762141794%_ (let () (declare (not safe)) - (##cdr _%e140775140804%_)))) + (##cdr _%e141760141789%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140777140809%_)) - (let ((_%e140778140812%_ + (gx#stx-pair? _%tl141762141794%_)) + (let ((_%e141763141797%_ (let () (declare (not safe)) - (gx#stx-e _%tl140777140809%_)))) - (let ((_%hd140779140815%_ + (gx#stx-e _%tl141762141794%_)))) + (let ((_%hd141764141800%_ (let () (declare (not safe)) - (##car _%e140778140812%_))) - (_%tl140780140817%_ + (##car _%e141763141797%_))) + (_%tl141765141802%_ (let () (declare (not safe)) - (##cdr _%e140778140812%_)))) + (##cdr _%e141763141797%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140780140817%_)) - (let ((_%e140781140820%_ + _%tl141765141802%_)) + (let ((_%e141766141805%_ (let () (declare (not safe)) (gx#stx-e - _%tl140780140817%_)))) - (let ((_%hd140782140823%_ + _%tl141765141802%_)))) + (let ((_%hd141767141808%_ (let () (declare (not safe)) - (##car _%e140781140820%_))) - (_%tl140783140825%_ + (##car _%e141766141805%_))) + (_%tl141768141810%_ (let () (declare (not safe)) - (##cdr _%e140781140820%_)))) + (##cdr _%e141766141805%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140783140825%_)) - (let ((_%e140784140828%_ + _%tl141768141810%_)) + (let ((_%e141769141813%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl140783140825%_)))) - (let ((_%hd140785140831%_ - (let () (declare (not safe)) (##car _%e140784140828%_))) - (_%tl140786140833%_ + (gx#stx-e _%tl141768141810%_)))) + (let ((_%hd141770141816%_ + (let () (declare (not safe)) (##car _%e141769141813%_))) + (_%tl141771141818%_ (let () (declare (not safe)) - (##cdr _%e140784140828%_)))) + (##cdr _%e141769141813%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140786140833%_)) - ((lambda (_%L140836%_ - _%L140837%_ - _%L140838%_ - _%L140839%_) + (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 - _%self140763%_ - _%L140837%_)) + _%self141748%_ + _%L141822%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140763%_ - _%L140836%_)) + _%self141748%_ + _%L141821%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140763%_ - _%L140838%_)) + _%self141748%_ + _%L141823%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp140860%_ ((_%rest140863%_ - (cons _%L140838%_ - (cons _%L140836%_ - (cons _%L140837%_ + (let _%lp141845%_ ((_%rest141848%_ + (cons _%L141823%_ + (cons _%L141821%_ + (cons _%L141822%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind140865%_ '()) - (_%args140866%_ '())) - (let* ((_%rest140867140875%_ _%rest140863%_) - (_%else140869140883%_ + (_%bind141850%_ '()) + (_%args141851%_ '())) + (let* ((_%rest141852141860%_ _%rest141848%_) + (_%else141854141868%_ (lambda () (cons 'let - (cons _%bind140865%_ + (cons _%bind141850%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp149295 (cons ''#f (cons ''#f '())))) + (let ((__tmp150280 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp149295 _%args140866%_))) + (__foldr1 cons __tmp150280 _%args141851%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140871140969%_ - (lambda (_%rest140886%_ _%e140887%_) - (let* ((_%__stx148976148977%_ - _%e140887%_) - (_%g140892140910%_ + (_%K141856141954%_ + (lambda (_%rest141871%_ _%e141872%_) + (let* ((_%__stx149961149962%_ + _%e141872%_) + (_%g141877141895%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148976148977%_))))) - (let ((_%__kont148978148979%_ + _%__stx149961149962%_))))) + (let ((_%__kont149963149964%_ (lambda () - (_%lp140860%_ - _%rest140886%_ - _%bind140865%_ + (_%lp141845%_ + _%rest141871%_ + _%bind141850%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140887%_)) - _%args140866%_)))) - (_%__kont148980148981%_ + _%e141872%_)) + _%args141851%_)))) + (_%__kont149965149966%_ (lambda () - (_%lp140860%_ - _%rest140886%_ - _%bind140865%_ + (_%lp141845%_ + _%rest141871%_ + _%bind141850%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140887%_)) - _%args140866%_)))) - (_%__kont148982148983%_ + _%e141872%_)) + _%args141851%_)))) + (_%__kont149967149968%_ (lambda () - (let ((_%tmp140917%_ - (let ((__tmp149296 + (let ((_%tmp141902%_ + (let ((__tmp150281 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149296)))) - (_%lp140860%_ - _%rest140886%_ - (cons (cons _%tmp140917%_ + (make-symbol__0 __tmp150281)))) + (_%lp141845%_ + _%rest141871%_ + (cons (cons _%tmp141902%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140887%_)) + (gxc#compile-e__0 _%e141872%_)) '())) - _%bind140865%_) - (cons _%tmp140917%_ _%args140866%_)))))) + _%bind141850%_) + (cons _%tmp141902%_ _%args141851%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148976148977%_)) - (let ((_%e140894140948%_ + _%__stx149961149962%_)) + (let ((_%e141879141933%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148976148977%_)))) - (let ((_%tl140896140953%_ + _%__stx149961149962%_)))) + (let ((_%tl141881141938%_ (let () (declare (not safe)) - (##cdr _%e140894140948%_))) - (_%hd140895140951%_ + (##cdr _%e141879141933%_))) + (_%hd141880141936%_ (let () (declare (not safe)) - (##car _%e140894140948%_)))) + (##car _%e141879141933%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140895140951%_)) + _%hd141880141936%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd140895140951%_)) + (gx#stx-eq? '%#ref _%hd141880141936%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140896140953%_)) - (let ((_%e140897140956%_ + (gx#stx-pair? _%tl141881141938%_)) + (let ((_%e141882141941%_ (let () (declare (not safe)) - (gx#stx-e _%tl140896140953%_)))) - (let ((_%tl140899140961%_ + (gx#stx-e _%tl141881141938%_)))) + (let ((_%tl141884141946%_ (let () (declare (not safe)) - (##cdr _%e140897140956%_))) - (_%hd140898140959%_ + (##cdr _%e141882141941%_))) + (_%hd141883141944%_ (let () (declare (not safe)) - (##car _%e140897140956%_)))) + (##car _%e141882141941%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140899140961%_)) - (_%__kont148978148979%_) - (_%__kont148982148983%_)))) - (_%__kont148982148983%_)) + (gx#stx-null? _%tl141884141946%_)) + (_%__kont149963149964%_) + (_%__kont149967149968%_)))) + (_%__kont149967149968%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd140895140951%_)) + (gx#stx-eq? '%#quote _%hd141880141936%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140896140953%_)) - (let ((_%e140903140933%_ + (gx#stx-pair? _%tl141881141938%_)) + (let ((_%e141888141918%_ (let () (declare (not safe)) - (gx#stx-e _%tl140896140953%_)))) - (let ((_%tl140905140938%_ + (gx#stx-e _%tl141881141938%_)))) + (let ((_%tl141890141923%_ (let () (declare (not safe)) - (##cdr _%e140903140933%_))) - (_%hd140904140936%_ + (##cdr _%e141888141918%_))) + (_%hd141889141921%_ (let () (declare (not safe)) - (##car _%e140903140933%_)))) + (##car _%e141888141918%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140905140938%_)) - (_%__kont148980148981%_) - (_%__kont148982148983%_)))) - (_%__kont148982148983%_)) - (_%__kont148982148983%_))) - (_%__kont148982148983%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148982148983%_))))))) - (if (pair? _%rest140867140875%_) - (let ((_%hd140872140972%_ + (gx#stx-null? _%tl141890141923%_)) + (_%__kont149965149966%_) + (_%__kont149967149968%_)))) + (_%__kont149967149968%_)) + (_%__kont149967149968%_))) + (_%__kont149967149968%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149967149968%_))))))) + (if (pair? _%rest141852141860%_) + (let ((_%hd141857141957%_ (let () (declare (not safe)) - (##car _%rest140867140875%_))) - (_%tl140873140974%_ + (##car _%rest141852141860%_))) + (_%tl141858141959%_ (let () (declare (not safe)) - (##cdr _%rest140867140875%_)))) - (let* ((_%e140977%_ _%hd140872140972%_) - (_%rest140979%_ - _%tl140873140974%_)) - (_%K140871140969%_ - _%rest140979%_ - _%e140977%_))) - (_%else140869140883%_)))))) - _%hd140785140831%_ - _%hd140782140823%_ - _%hd140779140815%_ - _%hd140776140807%_) - (_%g140766140791%_ _%g140767140794%_)))) - (_%g140766140791%_ _%g140767140794%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140766140791%_ - _%g140767140794%_)))) - (_%g140766140791%_ _%g140767140794%_)))) - (_%g140766140791%_ _%g140767140794%_)))) - (_%g140766140791%_ _%g140767140794%_))))) - (_%g140765140981%_ _%stx140764%_)))) + (##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 (_%self140602%_ _%stx140603%_) - (letrec ((_%import-set-template140605%_ - (lambda (_%in140708%_ _%phi140709%_) - (let ((_%iphi140711%_ - (fx+ _%phi140709%_ + (lambda (_%self141587%_ _%stx141588%_) + (letrec ((_%import-set-template141590%_ + (lambda (_%in141693%_ _%phi141694%_) + (let ((_%iphi141696%_ + (fx+ _%phi141694%_ (##direct-structure-ref - _%in140708%_ + _%in141693%_ '2 gx#import-set::t '#f))) - (_%imports140712%_ + (_%imports141697%_ (##structure-ref (##direct-structure-ref - _%in140708%_ + _%in141693%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp140714%_ ((_%rest140716%_ _%imports140712%_) - (_%r140717%_ '())) - (let* ((_%rest140718140726%_ _%rest140716%_) - (_%else140720140734%_ (lambda () _%r140717%_)) - (_%K140722140751%_ - (lambda (_%rest140737%_ _%in140738%_) + (let _%lp141699%_ ((_%rest141701%_ _%imports141697%_) + (_%r141702%_ '())) + (let* ((_%rest141703141711%_ _%rest141701%_) + (_%else141705141719%_ (lambda () _%r141702%_)) + (_%K141707141736%_ + (lambda (_%rest141722%_ _%in141723%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140738%_ + _%in141723%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi140711%_)) - (_%lp140714%_ - _%rest140737%_ - (cons _%in140738%_ _%r140717%_)) - (_%lp140714%_ - _%rest140737%_ - _%r140717%_)) + (##fxzero? _%iphi141696%_)) + (_%lp141699%_ + _%rest141722%_ + (cons _%in141723%_ _%r141702%_)) + (_%lp141699%_ + _%rest141722%_ + _%r141702%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140738%_ + _%in141723%_ 'gx#module-import::t)) - (let ((_%iphi140742%_ - (fx+ _%phi140709%_ + (let ((_%iphi141727%_ + (fx+ _%phi141694%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140738%_ + _%in141723%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi140742%_)) - (_%lp140714%_ - _%rest140737%_ + (##fxzero? _%iphi141727%_)) + (_%lp141699%_ + _%rest141722%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in140738%_ + _%in141723%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r140717%_)) - (_%lp140714%_ - _%rest140737%_ - _%r140717%_))) + _%r141702%_)) + (_%lp141699%_ + _%rest141722%_ + _%r141702%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140738%_ + _%in141723%_ 'gx#import-set::t)) - (let ((_%xphi140745%_ - (fx+ _%iphi140711%_ + (let ((_%xphi141730%_ + (fx+ _%iphi141696%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140738%_ + _%in141723%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi140745%_)) - (_%lp140714%_ - _%rest140737%_ + _%xphi141730%_)) + (_%lp141699%_ + _%rest141722%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in140738%_ + _%in141723%_ '1 '#f '#f)) - _%r140717%_)) + _%r141702%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi140745%_)) - (_%lp140714%_ - _%rest140737%_ - (let ((__tmp149297 - (_%import-set-template140605%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in140738%_ - _%iphi140711%_))) + _%xphi141730%_)) + (_%lp141699%_ + _%rest141722%_ + (let ((__tmp150282 + (_%import-set-template141590%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in141723%_ + _%iphi141696%_))) (declare (not safe)) - (__foldl1 cons _%r140717%_ __tmp149297))) - (_%lp140714%_ _%rest140737%_ _%r140717%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp140714%_ - _%rest140737%_ - _%r140717%_))))))) - (if (pair? _%rest140718140726%_) - (let ((_%hd140723140754%_ + (__foldl1 cons _%r141702%_ __tmp150282))) + (_%lp141699%_ _%rest141722%_ _%r141702%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp141699%_ + _%rest141722%_ + _%r141702%_))))))) + (if (pair? _%rest141703141711%_) + (let ((_%hd141708141739%_ (let () (declare (not safe)) - (##car _%rest140718140726%_))) - (_%tl140724140756%_ + (##car _%rest141703141711%_))) + (_%tl141709141741%_ (let () (declare (not safe)) - (##cdr _%rest140718140726%_)))) - (let* ((_%in140759%_ _%hd140723140754%_) - (_%rest140761%_ _%tl140724140756%_)) - (_%K140722140751%_ - _%rest140761%_ - _%in140759%_))) - (_%else140720140734%_)))))))) - (let* ((_%g140607140617%_ - (lambda (_%g140608140614%_) + (##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" - _%g140608140614%_)))) - (_%g140606140705%_ - (lambda (_%g140608140620%_) + _%g141593141599%_)))) + (_%g141591141690%_ + (lambda (_%g141593141605%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140608140620%_)) - (let ((_%e140610140622%_ + (gx#stx-pair? _%g141593141605%_)) + (let ((_%e141595141607%_ (let () (declare (not safe)) - (gx#stx-e _%g140608140620%_)))) - (let ((_%hd140611140625%_ + (gx#stx-e _%g141593141605%_)))) + (let ((_%hd141596141610%_ (let () (declare (not safe)) - (##car _%e140610140622%_))) - (_%tl140612140627%_ + (##car _%e141595141607%_))) + (_%tl141597141612%_ (let () (declare (not safe)) - (##cdr _%e140610140622%_)))) - ((lambda (_%L140630%_) - (let ((_%ht140641%_ + (##cdr _%e141595141607%_)))) + ((lambda (_%L141615%_) + (let ((_%ht141626%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp140643%_ ((_%rest140645%_ - _%L140630%_) - (_%loads140646%_ '())) - (letrec ((_%K140648%_ - (lambda (_%ctx140698%_ - _%rest140699%_) - (let ((_%id140701%_ + (let _%lp141628%_ ((_%rest141630%_ + _%L141615%_) + (_%loads141631%_ '())) + (letrec ((_%K141633%_ + (lambda (_%ctx141683%_ + _%rest141684%_) + (let ((_%id141686%_ (##structure-ref - _%ctx140698%_ + _%ctx141683%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht140641%_ - _%id140701%_)) - (_%lp140643%_ - _%rest140699%_ - _%loads140646%_) - (let ((_%rt140703%_ + _%ht141626%_ + _%id141686%_)) + (_%lp141628%_ + _%rest141684%_ + _%loads141631%_) + (let ((_%rt141688%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id140701%_)))) + _%id141686%_)))) (let () (declare (not safe)) (__hash-put! - _%ht140641%_ - _%id140701%_ - _%rt140703%_)) - (_%lp140643%_ - _%rest140699%_ - (cons _%rt140703%_ - _%loads140646%_)))))))) - (let* ((_%rest140649140657%_ - _%rest140645%_) - (_%else140651140669%_ + _%ht141626%_ + _%id141686%_ + _%rt141688%_)) + (_%lp141628%_ + _%rest141684%_ + (cons _%rt141688%_ + _%loads141631%_)))))))) + (let* ((_%rest141634141642%_ + _%rest141630%_) + (_%else141636141654%_ (lambda () (cons 'begin - (let ((__tmp149299 - (lambda (_%g140664140666%_) + (let ((__tmp150284 + (lambda (_%g141649141651%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g140664140666%_))) - (__tmp149298 (reverse _%loads140646%_))) + _%g141649141651%_))) + (__tmp150283 (reverse _%loads141631%_))) (declare (not safe)) - (##map __tmp149299 __tmp149298))))) + (##map __tmp150284 __tmp150283))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140653140686%_ - (lambda (_%rest140672%_ - _%in140673%_) + (_%K141638141671%_ + (lambda (_%rest141657%_ + _%in141658%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140673%_ + _%in141658%_ 'gx#module-context::t)) - (_%K140648%_ - _%in140673%_ - _%rest140672%_) + (_%K141633%_ + _%in141658%_ + _%rest141657%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140673%_ + _%in141658%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in140673%_ + _%in141658%_ '3 '#f '#f))) - (_%K140648%_ + (_%K141633%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in140673%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in141658%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest140672%_) - (_%lp140643%_ _%rest140672%_ _%loads140646%_)) + _%rest141657%_) + (_%lp141628%_ _%rest141657%_ _%loads141631%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140673%_ + _%in141658%_ 'gx#import-set::t)) - (let ((_%phi140678%_ + (let ((_%phi141663%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140673%_ + _%in141658%_ '2 '#f '#f)))) - (if (fxzero? _%phi140678%_) - (_%K140648%_ + (if (fxzero? _%phi141663%_) + (_%K141633%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140673%_ + _%in141658%_ '1 '#f '#f)) - _%rest140672%_) - (if (fxpositive? _%phi140678%_) - (let ((_%deps140682%_ - (_%import-set-template140605%_ - _%in140673%_ + _%rest141657%_) + (if (fxpositive? _%phi141663%_) + (let ((_%deps141667%_ + (_%import-set-template141590%_ + _%in141658%_ '0))) - (_%lp140643%_ + (_%lp141628%_ (let () (declare (not safe)) (__foldl1 cons - _%rest140672%_ - _%deps140682%_)) - _%loads140646%_)) - (_%lp140643%_ _%rest140672%_ _%loads140646%_)))) + _%rest141657%_ + _%deps141667%_)) + _%loads141631%_)) + (_%lp141628%_ _%rest141657%_ _%loads141631%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx140603%_ - _%in140673%_)))))))) + _%stx141588%_ + _%in141658%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest140649140657%_) - (let ((_%hd140654140689%_ + (if (pair? _%rest141634141642%_) + (let ((_%hd141639141674%_ (let () (declare (not safe)) - (##car _%rest140649140657%_))) - (_%tl140655140691%_ + (##car _%rest141634141642%_))) + (_%tl141640141676%_ (let () (declare (not safe)) - (##cdr _%rest140649140657%_)))) - (let* ((_%in140694%_ - _%hd140654140689%_) - (_%rest140696%_ - _%tl140655140691%_)) - (_%K140653140686%_ - _%rest140696%_ - _%in140694%_))) - (_%else140651140669%_))))))) - _%tl140612140627%_))) - (_%g140607140617%_ _%g140608140620%_))))) - (_%g140606140705%_ _%stx140603%_))))) + (##cdr _%rest141634141642%_)))) + (let* ((_%in141679%_ + _%hd141639141674%_) + (_%rest141681%_ + _%tl141640141676%_)) + (_%K141638141671%_ + _%rest141681%_ + _%in141679%_))) + (_%else141636141654%_))))))) + _%tl141597141612%_))) + (_%g141592141602%_ _%g141593141605%_))))) + (_%g141591141690%_ _%stx141588%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self140415%_ _%stx140416%_) - (letrec ((_%add-lift!140418%_ - (lambda (_%expr140600%_) + (lambda (_%self141400%_ _%stx141401%_) + (letrec ((_%add-lift!141403%_ + (lambda (_%expr141585%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr140600%_ + (cons _%expr141585%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote140419%_ - (lambda (_%id140597%_ _%marks140598%_) + (_%generate-syntax-quote141404%_ + (lambda (_%id141582%_ _%marks141583%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id140597%_ '())) + (cons (cons 'quote (cons _%id141582%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks140598%_ + (cons _%marks141583%_ '())))))))) - (_%generate-simple140420%_ - (lambda (_%stxq140592%_) - (let ((_%gid140594%_ + (_%generate-simple141405%_ + (lambda (_%stxq141577%_) + (let ((_%gid141579%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140595%_ - (gxc#generate-runtime-identifier _%stxq140592%_))) - (_%add-lift!140418%_ + (_%qid141580%_ + (gxc#generate-runtime-identifier _%stxq141577%_))) + (_%add-lift!141403%_ (cons 'define - (cons _%gid140594%_ - (cons (_%generate-syntax-quote140419%_ - _%qid140595%_ + (cons _%gid141579%_ + (cons (_%generate-syntax-quote141404%_ + _%qid141580%_ ''()) '())))) - (let ((__tmp149300 + (let ((__tmp150285 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp149300 _%stxq140592%_ _%gid140594%_)) - _%gid140594%_))) - (_%generate-serialized140421%_ - (lambda (_%stxq140582%_ _%marks140583%_) - (let* ((_%mark-refs140585%_ - (map _%generate-mark140422%_ _%marks140583%_)) - (_%gid140587%_ + (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))) - (_%qid140589%_ - (gxc#generate-runtime-identifier _%stxq140582%_))) - (_%add-lift!140418%_ + (_%qid141574%_ + (gxc#generate-runtime-identifier _%stxq141567%_))) + (_%add-lift!141403%_ (cons 'define - (cons _%gid140587%_ - (cons (_%generate-syntax-quote140419%_ - _%qid140589%_ - (cons 'list _%mark-refs140585%_)) + (cons _%gid141572%_ + (cons (_%generate-syntax-quote141404%_ + _%qid141574%_ + (cons 'list _%mark-refs141570%_)) '())))) - (let ((__tmp149301 + (let ((__tmp150286 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp149301 _%stxq140582%_ _%gid140587%_)) - _%gid140587%_))) - (_%generate-mark140422%_ - (lambda (_%mark140567%_) - (let ((_%$e140569%_ - (let ((__tmp149302 + (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 __tmp149302 _%mark140567%_)))) - (if _%$e140569%_ - _%$e140569%_ - (let* ((_%gid140573%_ + (hash-get __tmp150287 _%mark141552%_)))) + (if _%$e141554%_ + _%$e141554%_ + (let* ((_%gid141558%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr140575%_ - (_%serialize-mark140423%_ _%mark140567%_)) - (_%ctx140577%_ - (let ((__tmp149303 + (_%repr141560%_ + (_%serialize-mark141408%_ _%mark141552%_)) + (_%ctx141562%_ + (let ((__tmp150288 (##structure-ref - _%mark140567%_ + _%mark141552%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp149303))) - (_%ctx-ref140579%_ - (if (eq? _%ctx140577%_ + (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-ref140424%_ - _%ctx140577%_) + (cons (_%context-ref141409%_ + _%ctx141562%_) '())) '()))))) - (let ((__tmp149304 + (let ((__tmp150289 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp149304 - _%mark140567%_ - _%gid140573%_)) - (_%add-lift!140418%_ + __tmp150289 + _%mark141552%_ + _%gid141558%_)) + (_%add-lift!141403%_ (cons 'define - (cons _%gid140573%_ + (cons _%gid141558%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr140575%_ '())) - (cons _%ctx-ref140579%_ '()))) + (cons _%repr141560%_ '())) + (cons _%ctx-ref141564%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid140573%_))))) - (_%serialize-mark140423%_ - (lambda (_%mark140514%_) - (letrec ((_%quote-e140516%_ - (lambda (_%sym140565%_) + _%gid141558%_))))) + (_%serialize-mark141408%_ + (lambda (_%mark141499%_) + (letrec ((_%quote-e141501%_ + (lambda (_%sym141550%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym140565%_)) - _%sym140565%_ + (interned-symbol? _%sym141550%_)) + _%sym141550%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym140565%_)))))) - (let* ((_%mark140517140526%_ _%mark140514%_) - (_%E140519140530%_ + _%sym141550%_)))))) + (let* ((_%mark141502141511%_ _%mark141499%_) + (_%E141504141515%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark140517140526%_ + _%mark141502141511%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K140520140542%_ - (lambda (_%trace140533%_ - _%phi140534%_ - _%ctx140535%_ - _%subst140536%_) - (let ((_%subs140538%_ - (if _%subst140536%_ + (_%K141505141527%_ + (lambda (_%trace141518%_ + _%phi141519%_ + _%ctx141520%_ + _%subst141521%_) + (let ((_%subs141523%_ + (if _%subst141521%_ (let () (declare (not safe)) - (hash->list _%subst140536%_)) + (hash->list _%subst141521%_)) '()))) - (cons _%phi140534%_ - (map (lambda (_%pair140540%_) - (cons (_%quote-e140516%_ - (car _%pair140540%_)) - (_%quote-e140516%_ - (cdr _%pair140540%_)))) - _%subs140538%_)))))) + (cons _%phi141519%_ + (map (lambda (_%pair141525%_) + (cons (_%quote-e141501%_ + (car _%pair141525%_)) + (_%quote-e141501%_ + (cdr _%pair141525%_)))) + _%subs141523%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark140517140526%_ + _%mark141502141511%_ 'gx#expander-mark::t)) - (let* ((_%e140521140545%_ + (let* ((_%e141506141530%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140517140526%_ + _%mark141502141511%_ '1 '#f '#f))) - (_%subst140548%_ _%e140521140545%_) - (_%e140522140550%_ + (_%subst141533%_ _%e141506141530%_) + (_%e141507141535%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140517140526%_ + _%mark141502141511%_ '2 '#f '#f))) - (_%ctx140553%_ _%e140522140550%_) - (_%e140523140555%_ + (_%ctx141538%_ _%e141507141535%_) + (_%e141508141540%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140517140526%_ + _%mark141502141511%_ '3 '#f '#f))) - (_%phi140558%_ _%e140523140555%_) - (_%e140524140560%_ + (_%phi141543%_ _%e141508141540%_) + (_%e141509141545%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140517140526%_ + _%mark141502141511%_ '4 '#f '#f))) - (_%trace140563%_ _%e140524140560%_)) - (_%K140520140542%_ - _%trace140563%_ - _%phi140558%_ - _%ctx140553%_ - _%subst140548%_)) - (_%E140519140530%_)))))) - (_%context-ref140424%_ - (lambda (_%ctx140501%_) - (if (let ((__tmp149305 + (_%trace141548%_ _%e141509141545%_)) + (_%K141505141527%_ + _%trace141548%_ + _%phi141543%_ + _%ctx141538%_ + _%subst141533%_)) + (_%E141504141515%_)))))) + (_%context-ref141409%_ + (lambda (_%ctx141486%_) + (if (let ((__tmp150290 (##structure-ref - _%ctx140501%_ + _%ctx141486%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp149305 + __tmp150290 'gx#module-context::t)) - (let ((_%ctx-ref140503%_ - (_%context-ref-nested140426%_ _%ctx140501%_)) - (_%ctx-origin140504%_ - (_%context-ref-origin140425%_ _%ctx140501%_)) - (_%origin140505%_ - (_%context-ref-origin140425%_ + (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? _%origin140505%_ _%ctx-origin140504%_) - (let ((_%ref140507%_ - (_%context-ref-nested140426%_ + (if (eq? _%origin141490%_ _%ctx-origin141489%_) + (let ((_%ref141492%_ + (_%context-ref-nested141411%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp140509%_ ((_%ref140511%_ - (cdr _%ref140507%_)) - (_%ctx-ref140512%_ - (cdr _%ctx-ref140503%_))) - (if (and (pair? _%ref140511%_) + (let _%lp141494%_ ((_%ref141496%_ + (cdr _%ref141492%_)) + (_%ctx-ref141497%_ + (cdr _%ctx-ref141488%_))) + (if (and (pair? _%ref141496%_) (eq? (let () (declare (not safe)) - (##car _%ref140511%_)) - (car _%ctx-ref140512%_))) - (_%lp140509%_ - (cdr _%ref140511%_) - (cdr _%ctx-ref140512%_)) - (cons '#f _%ctx-ref140512%_)))) - _%ctx-ref140503%_)) - (let ((__tmp149306 + (##car _%ref141496%_)) + (car _%ctx-ref141497%_))) + (_%lp141494%_ + (cdr _%ref141496%_) + (cdr _%ctx-ref141497%_)) + (cons '#f _%ctx-ref141497%_)))) + _%ctx-ref141488%_)) + (let ((__tmp150291 (##structure-ref - _%ctx140501%_ + _%ctx141486%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149306))))) - (_%context-ref-origin140425%_ - (lambda (_%ctx140493%_) - (let _%lp140495%_ ((_%ctx140497%_ _%ctx140493%_)) - (let ((_%super140499%_ + (make-symbol__1 '":" __tmp150291))))) + (_%context-ref-origin141410%_ + (lambda (_%ctx141478%_) + (let _%lp141480%_ ((_%ctx141482%_ _%ctx141478%_)) + (let ((_%super141484%_ (##structure-ref - _%ctx140497%_ + _%ctx141482%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140499%_ + _%super141484%_ 'gx#module-context::t)) - (_%lp140495%_ _%super140499%_) - _%ctx140497%_))))) - (_%context-ref-nested140426%_ - (lambda (_%ctx140484%_) - (let _%lp140486%_ ((_%ctx140488%_ _%ctx140484%_) - (_%r140489%_ '())) - (let ((_%super140491%_ + (_%lp141480%_ _%super141484%_) + _%ctx141482%_))))) + (_%context-ref-nested141411%_ + (lambda (_%ctx141469%_) + (let _%lp141471%_ ((_%ctx141473%_ _%ctx141469%_) + (_%r141474%_ '())) + (let ((_%super141476%_ (##structure-ref - _%ctx140488%_ + _%ctx141473%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140491%_ + _%super141476%_ 'gx#module-context::t)) - (_%lp140486%_ - _%super140491%_ + (_%lp141471%_ + _%super141476%_ (cons (car (##structure-ref - _%ctx140488%_ + _%ctx141473%_ '7 gx#module-context::t '#f)) - _%r140489%_)) - (cons (let ((__tmp149307 + _%r141474%_)) + (cons (let ((__tmp150292 (##structure-ref - _%ctx140488%_ + _%ctx141473%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149307)) - _%r140489%_))))))) - (let* ((_%g140428140441%_ - (lambda (_%g140429140438%_) + (make-symbol__1 '":" __tmp150292)) + _%r141474%_))))))) + (let* ((_%g141413141426%_ + (lambda (_%g141414141423%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140429140438%_)))) - (_%g140427140481%_ - (lambda (_%g140429140444%_) + _%g141414141423%_)))) + (_%g141412141466%_ + (lambda (_%g141414141429%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140429140444%_)) - (let ((_%e140431140446%_ + (gx#stx-pair? _%g141414141429%_)) + (let ((_%e141416141431%_ (let () (declare (not safe)) - (gx#stx-e _%g140429140444%_)))) - (let ((_%hd140432140449%_ + (gx#stx-e _%g141414141429%_)))) + (let ((_%hd141417141434%_ (let () (declare (not safe)) - (##car _%e140431140446%_))) - (_%tl140433140451%_ + (##car _%e141416141431%_))) + (_%tl141418141436%_ (let () (declare (not safe)) - (##cdr _%e140431140446%_)))) + (##cdr _%e141416141431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140433140451%_)) - (let ((_%e140434140454%_ + (gx#stx-pair? _%tl141418141436%_)) + (let ((_%e141419141439%_ (let () (declare (not safe)) - (gx#stx-e _%tl140433140451%_)))) - (let ((_%hd140435140457%_ + (gx#stx-e _%tl141418141436%_)))) + (let ((_%hd141420141442%_ (let () (declare (not safe)) - (##car _%e140434140454%_))) - (_%tl140436140459%_ + (##car _%e141419141439%_))) + (_%tl141421141444%_ (let () (declare (not safe)) - (##cdr _%e140434140454%_)))) + (##cdr _%e141419141439%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140436140459%_)) - ((lambda (_%L140462%_) + (gx#stx-null? _%tl141421141444%_)) + ((lambda (_%L141447%_) (if (let () (declare (not safe)) - (gx#identifier? _%L140462%_)) - (let ((_%$e140475%_ - (let ((__tmp149308 + (gx#identifier? _%L141447%_)) + (let ((_%$e141460%_ + (let ((__tmp150293 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp149308 _%L140462%_)))) + (hash-get __tmp150293 _%L141447%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e140475%_ - _%$e140475%_ - (let ((_%marks140479%_ + (if _%$e141460%_ + _%$e141460%_ + (let ((_%marks141464%_ (##direct-structure-ref - _%L140462%_ + _%L141447%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks140479%_) - (_%generate-simple140420%_ - _%L140462%_) - (_%generate-serialized140421%_ - _%L140462%_ - _%marks140479%_))))) + (if (null? _%marks141464%_) + (_%generate-simple141405%_ + _%L141447%_) + (_%generate-serialized141406%_ + _%L141447%_ + _%marks141464%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L140462%_)))) - _%hd140435140457%_) - (_%g140428140441%_ - _%g140429140444%_)))) - (_%g140428140441%_ _%g140429140444%_)))) - (_%g140428140441%_ _%g140429140444%_))))) - (_%g140427140481%_ _%stx140416%_))))) + _%L141447%_)))) + _%hd141420141442%_) + (_%g141413141426%_ + _%g141414141429%_)))) + (_%g141413141426%_ _%g141414141429%_)))) + (_%g141413141426%_ _%g141414141429%_))))) + (_%g141412141466%_ _%stx141401%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self140347%_ _%stx140348%_) - (let* ((_%g140350140367%_ - (lambda (_%g140351140364%_) + (lambda (_%self141332%_ _%stx141333%_) + (let* ((_%g141335141352%_ + (lambda (_%g141336141349%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140351140364%_)))) - (_%g140349140412%_ - (lambda (_%g140351140370%_) + _%g141336141349%_)))) + (_%g141334141397%_ + (lambda (_%g141336141355%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140351140370%_)) - (let ((_%e140354140372%_ + (gx#stx-pair? _%g141336141355%_)) + (let ((_%e141339141357%_ (let () (declare (not safe)) - (gx#stx-e _%g140351140370%_)))) - (let ((_%hd140355140375%_ + (gx#stx-e _%g141336141355%_)))) + (let ((_%hd141340141360%_ (let () (declare (not safe)) - (##car _%e140354140372%_))) - (_%tl140356140377%_ + (##car _%e141339141357%_))) + (_%tl141341141362%_ (let () (declare (not safe)) - (##cdr _%e140354140372%_)))) + (##cdr _%e141339141357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140356140377%_)) - (let ((_%e140357140380%_ + (gx#stx-pair? _%tl141341141362%_)) + (let ((_%e141342141365%_ (let () (declare (not safe)) - (gx#stx-e _%tl140356140377%_)))) - (let ((_%hd140358140383%_ + (gx#stx-e _%tl141341141362%_)))) + (let ((_%hd141343141368%_ (let () (declare (not safe)) - (##car _%e140357140380%_))) - (_%tl140359140385%_ + (##car _%e141342141365%_))) + (_%tl141344141370%_ (let () (declare (not safe)) - (##cdr _%e140357140380%_)))) + (##cdr _%e141342141365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140359140385%_)) - (let ((_%e140360140388%_ + (gx#stx-pair? _%tl141344141370%_)) + (let ((_%e141345141373%_ (let () (declare (not safe)) - (gx#stx-e _%tl140359140385%_)))) - (let ((_%hd140361140391%_ + (gx#stx-e _%tl141344141370%_)))) + (let ((_%hd141346141376%_ (let () (declare (not safe)) - (##car _%e140360140388%_))) - (_%tl140362140393%_ + (##car _%e141345141373%_))) + (_%tl141347141378%_ (let () (declare (not safe)) - (##cdr _%e140360140388%_)))) + (##cdr _%e141345141373%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140362140393%_)) - ((lambda (_%L140396%_ - _%L140397%_) + _%tl141347141378%_)) + ((lambda (_%L141381%_ + _%L141382%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L140397%_)) + (gx#stx-e _%L141382%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140347%_ _%L140396%_)) + (gxc#compile-e__1 _%self141332%_ _%L141381%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140361140391%_ - _%hd140358140383%_) - (_%g140350140367%_ - _%g140351140370%_)))) - (_%g140350140367%_ _%g140351140370%_)))) - (_%g140350140367%_ _%g140351140370%_)))) - (_%g140350140367%_ _%g140351140370%_))))) - (_%g140349140412%_ _%stx140348%_)))) + _%hd141346141376%_ + _%hd141343141368%_) + (_%g141335141352%_ + _%g141336141355%_)))) + (_%g141335141352%_ _%g141336141355%_)))) + (_%g141335141352%_ _%g141336141355%_)))) + (_%g141335141352%_ _%g141336141355%_))))) + (_%g141334141397%_ _%stx141333%_)))) (define gxc#generate-meta-begin% - (lambda (_%self140296%_ _%stx140297%_) - (let* ((_%g140299140309%_ - (lambda (_%g140300140306%_) + (lambda (_%self141281%_ _%stx141282%_) + (let* ((_%g141284141294%_ + (lambda (_%g141285141291%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140300140306%_)))) - (_%g140298140344%_ - (lambda (_%g140300140312%_) + _%g141285141291%_)))) + (_%g141283141329%_ + (lambda (_%g141285141297%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140300140312%_)) - (let ((_%e140302140314%_ + (gx#stx-pair? _%g141285141297%_)) + (let ((_%e141287141299%_ (let () (declare (not safe)) - (gx#stx-e _%g140300140312%_)))) - (let ((_%hd140303140317%_ + (gx#stx-e _%g141285141297%_)))) + (let ((_%hd141288141302%_ (let () (declare (not safe)) - (##car _%e140302140314%_))) - (_%tl140304140319%_ + (##car _%e141287141299%_))) + (_%tl141289141304%_ (let () (declare (not safe)) - (##cdr _%e140302140314%_)))) - ((lambda (_%L140322%_) - (let* ((_%c-body140336%_ - (map (lambda (_%g140331140333%_) + (##cdr _%e141287141299%_)))) + ((lambda (_%L141307%_) + (let* ((_%c-body141321%_ + (map (lambda (_%g141316141318%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self140296%_ - _%g140331140333%_))) - _%L140322%_)) - (_%c-body140341%_ - (let ((__tmp149309 - (lambda (_%$obj140338%_) - (not (eq? _%$obj140338%_ + _%self141281%_ + _%g141316141318%_))) + _%L141307%_)) + (_%c-body141326%_ + (let ((__tmp150294 + (lambda (_%$obj141323%_) + (not (eq? _%$obj141323%_ '#!void))))) (declare (not safe)) (##filter - __tmp149309 - _%c-body140336%_)))) - (cons '%#begin _%c-body140341%_))) - _%tl140304140319%_))) - (_%g140299140309%_ _%g140300140312%_))))) - (_%g140298140344%_ _%stx140297%_)))) + __tmp150294 + _%c-body141321%_)))) + (cons '%#begin _%c-body141326%_))) + _%tl141289141304%_))) + (_%g141284141294%_ _%g141285141297%_))))) + (_%g141283141329%_ _%stx141282%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self140201%_ _%stx140202%_) - (let* ((_%g140204140214%_ - (lambda (_%g140205140211%_) + (lambda (_%self141186%_ _%stx141187%_) + (let* ((_%g141189141199%_ + (lambda (_%g141190141196%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140205140211%_)))) - (_%g140203140293%_ - (lambda (_%g140205140217%_) + _%g141190141196%_)))) + (_%g141188141278%_ + (lambda (_%g141190141202%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140205140217%_)) - (let ((_%e140207140219%_ + (gx#stx-pair? _%g141190141202%_)) + (let ((_%e141192141204%_ (let () (declare (not safe)) - (gx#stx-e _%g140205140217%_)))) - (let ((_%hd140208140222%_ + (gx#stx-e _%g141190141202%_)))) + (let ((_%hd141193141207%_ (let () (declare (not safe)) - (##car _%e140207140219%_))) - (_%tl140209140224%_ + (##car _%e141192141204%_))) + (_%tl141194141209%_ (let () (declare (not safe)) - (##cdr _%e140207140219%_)))) - ((lambda (_%L140227%_) - (let* ((_%phi140237%_ - (let ((__tmp149310 + (##cdr _%e141192141204%_)))) + ((lambda (_%L141212%_) + (let* ((_%phi141222%_ + (let ((__tmp150295 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149310 '1))) - (_%block140239%_ + (##fx+ __tmp150295 '1))) + (_%block141224%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self140201%_ 'state)) - _%phi140237%_)) - (_%compiled140242%_ - (let ((__tmp149311 + (slot-ref__0 _%self141186%_ 'state)) + _%phi141222%_)) + (_%compiled141227%_ + (let ((__tmp150296 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self140201%_ + _%self141186%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L140227%_))))) + _%L141212%_))))) (declare (not safe)) (__call-with-parameters - __tmp149311 + __tmp150296 gx#current-expander-phi - _%phi140237%_))) - (_%g140245140255%_ - (lambda (_%g140246140252%_) + _%phi141222%_))) + (_%g141230141240%_ + (lambda (_%g141231141237%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140246140252%_)))) - (_%g140244140290%_ - (lambda (_%g140246140258%_) + _%g141231141237%_)))) + (_%g141229141275%_ + (lambda (_%g141231141243%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140246140258%_)) - (let ((_%e140248140260%_ + (gx#stx-pair? _%g141231141243%_)) + (let ((_%e141233141245%_ (let () (declare (not safe)) (gx#stx-e - _%g140246140258%_)))) - (let ((_%hd140249140263%_ + _%g141231141243%_)))) + (let ((_%hd141234141248%_ (let () (declare (not safe)) - (##car _%e140248140260%_))) - (_%tl140250140265%_ + (##car _%e141233141245%_))) + (_%tl141235141250%_ (let () (declare (not safe)) - (##cdr _%e140248140260%_)))) + (##cdr _%e141233141245%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140249140263%_)) + _%hd141234141248%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd140249140263%_)) - ((lambda (_%L140268%_) - (let ((_%c-body140285%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj140282%_) - (not (eq? _%$obj140282%_ '#!void))) - _%L140268%_))) - (if _%block140239%_ + _%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 _%block140239%_ + (cons _%block141224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body140285%_)) - (if (null? _%c-body140285%_) + _%c-body141270%_)) + (if (null? _%c-body141270%_) '#!void - (cons '%#begin-syntax _%c-body140285%_))))) - _%tl140250140265%_) - (_%g140245140255%_ _%g140246140258%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140245140255%_ - _%g140246140258%_)))) - (_%g140245140255%_ - _%g140246140258%_))))) - (_%g140244140290%_ _%compiled140242%_))) - _%tl140209140224%_))) - (_%g140204140214%_ _%g140205140217%_))))) - (_%g140203140293%_ _%stx140202%_)))) + (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 (_%self140132%_ _%stx140133%_) + (lambda (_%self141117%_ _%stx141118%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self140132%_ 'state))) - (let* ((_%g140135140149%_ - (lambda (_%g140136140146%_) + (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" - _%g140136140146%_)))) - (_%g140134140198%_ - (lambda (_%g140136140152%_) + _%g141121141131%_)))) + (_%g141119141183%_ + (lambda (_%g141121141137%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140136140152%_)) - (let ((_%e140139140154%_ + (gx#stx-pair? _%g141121141137%_)) + (let ((_%e141124141139%_ (let () (declare (not safe)) - (gx#stx-e _%g140136140152%_)))) - (let ((_%hd140140140157%_ + (gx#stx-e _%g141121141137%_)))) + (let ((_%hd141125141142%_ (let () (declare (not safe)) - (##car _%e140139140154%_))) - (_%tl140141140159%_ + (##car _%e141124141139%_))) + (_%tl141126141144%_ (let () (declare (not safe)) - (##cdr _%e140139140154%_)))) + (##cdr _%e141124141139%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140141140159%_)) - (let ((_%e140142140162%_ + (gx#stx-pair? _%tl141126141144%_)) + (let ((_%e141127141147%_ (let () (declare (not safe)) - (gx#stx-e _%tl140141140159%_)))) - (let ((_%hd140143140165%_ + (gx#stx-e _%tl141126141144%_)))) + (let ((_%hd141128141150%_ (let () (declare (not safe)) - (##car _%e140142140162%_))) - (_%tl140144140167%_ + (##car _%e141127141147%_))) + (_%tl141129141152%_ (let () (declare (not safe)) - (##cdr _%e140142140162%_)))) - ((lambda (_%L140170%_ _%L140171%_) - (let ((_%key140184%_ + (##cdr _%e141127141147%_)))) + ((lambda (_%L141155%_ _%L141156%_) + (let ((_%key141169%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L140171%_)))) + _%L141156%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key140184%_)) + (interned-symbol? _%key141169%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx140133%_ - _%L140171%_ - _%key140184%_))) - (let* ((_%ctx140186%_ + _%stx141118%_ + _%L141156%_ + _%key141169%_))) + (let* ((_%ctx141171%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L140171%_))) - (_%code140189%_ - (let ((__tmp149312 + _%L141156%_))) + (_%code141174%_ + (let ((__tmp150297 (lambda () - (let ((__tmp149313 + (let ((__tmp150298 (##structure-ref - _%ctx140186%_ + _%ctx141171%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self140132%_ - __tmp149313))))) + _%self141117%_ + __tmp150298))))) (declare (not safe)) (__call-with-parameters - __tmp149312 + __tmp150297 gx#current-expander-context - _%ctx140186%_))) - (_%rt140191%_ - (let ((__tmp149314 + _%ctx141171%_))) + (_%rt141176%_ + (let ((__tmp150299 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp149314 - _%ctx140186%_))) - (_%loader140193%_ - (if _%rt140191%_ + __tmp150299 + _%ctx141171%_))) + (_%loader141178%_ + (if _%rt141176%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt140191%_ '())) + (cons (cons '%#quote (cons _%rt141176%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid140195%_ + (_%modid141180%_ (let () (declare (not safe)) - (gx#stx-e _%L140171%_)))) + (gx#stx-e _%L141156%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self140132%_ + _%self141117%_ 'state))) (cons '%#module - (cons _%modid140195%_ - (cons _%code140189%_ - _%loader140193%_)))))) - _%tl140144140167%_ - _%hd140143140165%_))) - (_%g140135140149%_ _%g140136140152%_)))) - (_%g140135140149%_ _%g140136140152%_))))) - (_%g140134140198%_ _%stx140133%_)))) + (cons _%modid141180%_ + (cons _%code141174%_ + _%loader141178%_)))))) + _%tl141129141152%_ + _%hd141128141150%_))) + (_%g141120141134%_ _%g141121141137%_)))) + (_%g141120141134%_ _%g141121141137%_))))) + (_%g141119141183%_ _%stx141118%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx140119%_ _%context-chain140120%_) - (let _%lp140122%_ ((_%ctx140124%_ _%ctx140119%_) (_%path140125%_ '())) - (let ((_%super140127%_ - (##structure-ref _%ctx140124%_ '3 gx#phi-context::t '#f))) - (if (memq _%super140127%_ _%context-chain140120%_) + (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 - _%ctx140124%_ + _%ctx141109%_ '7 gx#module-context::t '#f)) - _%path140125%_)) + _%path141110%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140127%_ + _%super141112%_ 'gx#module-context::t)) - (_%lp140122%_ - _%super140127%_ + (_%lp141107%_ + _%super141112%_ (cons (car (##structure-ref - _%ctx140124%_ + _%ctx141109%_ '7 gx#module-context::t '#f)) - _%path140125%_)) - (cons (let ((__tmp149315 + _%path141110%_)) + (cons (let ((__tmp150300 (##structure-ref - _%ctx140124%_ + _%ctx141109%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149315)) - _%path140125%_))))))) + (make-symbol__1 '":" __tmp150300)) + _%path141110%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp140112%_ ((_%ctx140114%_ + (let _%lp141097%_ ((_%ctx141099%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r140115%_ '())) + (_%r141100%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx140114%_ 'gx#module-context::t)) - (_%lp140112%_ + (##structure-instance-of? _%ctx141099%_ 'gx#module-context::t)) + (_%lp141097%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx140114%_ '3 '#f '#f)) - (cons _%ctx140114%_ _%r140115%_)) - _%r140115%_)))) + (##unchecked-structure-ref _%ctx141099%_ '3 '#f '#f)) + (cons _%ctx141099%_ _%r141100%_)) + _%r141100%_)))) (define gxc#generate-meta-import% - (lambda (_%self139875%_ _%stx139876%_) - (letrec* ((_%context-chain139878%_ (gxc#current-context-chain)) - (_%make-import-spec139879%_ - (lambda (_%in140048%_) - (let* ((_%in140049140061%_ _%in140048%_) - (_%E140051140065%_ + (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" - _%in140049140061%_ + _%in141034141046%_ '((module-import (module-export src-ctx @@ -13153,390 +13153,390 @@ name phi)))) '#!void)) - (_%K140052140075%_ - (lambda (_%phi140068%_ - _%name140069%_ - _%src-name140070%_ - _%src-phi140071%_ - _%src-key140072%_ - _%src-ctx140073%_) - (cons _%phi140068%_ + (_%K141037141060%_ + (lambda (_%phi141053%_ + _%name141054%_ + _%src-name141055%_ + _%src-phi141056%_ + _%src-key141057%_ + _%src-ctx141058%_) + (cons _%phi141053%_ (cons (gxc#generate-runtime-identifier-key - _%name140069%_) - (cons _%src-phi140071%_ + _%name141054%_) + (cons _%src-phi141056%_ (cons (gxc#generate-runtime-identifier-key - _%src-name140070%_) + _%src-name141055%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140049140061%_ + _%in141034141046%_ 'gx#module-import::t)) - (let ((_%e140053140078%_ + (let ((_%e141038141063%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140049140061%_ + _%in141034141046%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e140053140078%_ + _%e141038141063%_ 'gx#module-export::t)) - (let* ((_%e140056140081%_ + (let* ((_%e141041141066%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e140053140078%_ + _%e141038141063%_ '1 '#f '#f))) - (_%src-ctx140084%_ _%e140056140081%_) - (_%e140057140086%_ + (_%src-ctx141069%_ _%e141041141066%_) + (_%e141042141071%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e140053140078%_ + _%e141038141063%_ '2 '#f '#f))) - (_%src-key140089%_ _%e140057140086%_) - (_%e140058140091%_ + (_%src-key141074%_ _%e141042141071%_) + (_%e141043141076%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e140053140078%_ + _%e141038141063%_ '3 '#f '#f))) - (_%src-phi140094%_ _%e140058140091%_) - (_%e140059140096%_ + (_%src-phi141079%_ _%e141043141076%_) + (_%e141044141081%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e140053140078%_ + _%e141038141063%_ '4 '#f '#f))) - (_%src-name140099%_ _%e140059140096%_) - (_%e140054140101%_ + (_%src-name141084%_ _%e141044141081%_) + (_%e141039141086%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140049140061%_ + _%in141034141046%_ '2 '#f '#f))) - (_%name140104%_ _%e140054140101%_) - (_%e140055140106%_ + (_%name141089%_ _%e141039141086%_) + (_%e141040141091%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140049140061%_ + _%in141034141046%_ '3 '#f '#f))) - (_%phi140109%_ _%e140055140106%_)) - (_%K140052140075%_ - _%phi140109%_ - _%name140104%_ - _%src-name140099%_ - _%src-phi140094%_ - _%src-key140089%_ - _%src-ctx140084%_)) - (_%E140051140065%_))) - (_%E140051140065%_))))) - (_%make-import-path139880%_ - (lambda (_%ctx140046%_) + (_%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 - _%ctx140046%_ - _%context-chain139878%_))) - (_%make-import-spec-in139881%_ - (lambda (_%ctx140043%_ _%in140044%_) + _%ctx141031%_ + _%context-chain140863%_))) + (_%make-import-spec-in140866%_ + (lambda (_%ctx141028%_ _%in141029%_) (cons 'spec: - (cons (_%make-import-path139880%_ _%ctx140043%_) - (reverse _%in140044%_)))))) + (cons (_%make-import-path140865%_ _%ctx141028%_) + (reverse _%in141029%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139875%_ 'state))) - (let* ((_%g139883139893%_ - (lambda (_%g139884139890%_) + (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" - _%g139884139890%_)))) - (_%g139882140040%_ - (lambda (_%g139884139896%_) + _%g140869140875%_)))) + (_%g140867141025%_ + (lambda (_%g140869140881%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139884139896%_)) - (let ((_%e139886139898%_ + (gx#stx-pair? _%g140869140881%_)) + (let ((_%e140871140883%_ (let () (declare (not safe)) - (gx#stx-e _%g139884139896%_)))) - (let ((_%hd139887139901%_ + (gx#stx-e _%g140869140881%_)))) + (let ((_%hd140872140886%_ (let () (declare (not safe)) - (##car _%e139886139898%_))) - (_%tl139888139903%_ + (##car _%e140871140883%_))) + (_%tl140873140888%_ (let () (declare (not safe)) - (##cdr _%e139886139898%_)))) - ((lambda (_%L139906%_) - (let _%lp139917%_ ((_%rest139919%_ _%L139906%_) - (_%current-src139920%_ '#f) - (_%current-in139921%_ '()) - (_%r139922%_ '())) - (let* ((_%rest139923139931%_ _%rest139919%_) - (_%else139925139941%_ + (##cdr _%e140871140883%_)))) + ((lambda (_%L140891%_) + (let _%lp140902%_ ((_%rest140904%_ _%L140891%_) + (_%current-src140905%_ '#f) + (_%current-in140906%_ '()) + (_%r140907%_ '())) + (let* ((_%rest140908140916%_ _%rest140904%_) + (_%else140910140926%_ (lambda () - (let ((_%r139939%_ - (if _%current-src139920%_ - (cons (_%make-import-spec-in139881%_ - _%current-src139920%_ - _%current-in139921%_) - _%r139922%_) - _%r139922%_))) + (let ((_%r140924%_ + (if _%current-src140905%_ + (cons (_%make-import-spec-in140866%_ + _%current-src140905%_ + _%current-in140906%_) + _%r140907%_) + _%r140907%_))) (cons '%#import - (reverse _%r139939%_))))) - (_%K139927140028%_ - (lambda (_%rest139944%_ _%in139945%_) + (reverse _%r140924%_))))) + (_%K140912141013%_ + (lambda (_%rest140929%_ _%in140930%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139945%_ + _%in140930%_ 'gx#module-import::t)) - (let* ((_%in139947139954%_ - _%in139945%_) - (_%E139949139958%_ + (let* ((_%in140932140939%_ + _%in140930%_) + (_%E140934140943%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in139947139954%_ + _%in140932140939%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K139950139966%_ - (lambda (_%src-ctx139961%_) - (if (eq? _%current-src139920%_ _%src-ctx139961%_) - (_%lp139917%_ - _%rest139944%_ - _%current-src139920%_ - (cons (_%make-import-spec139879%_ _%in139945%_) - _%current-in139921%_) - _%r139922%_) - (if _%current-src139920%_ - (_%lp139917%_ - _%rest139944%_ - _%src-ctx139961%_ - (cons (_%make-import-spec139879%_ _%in139945%_) '()) - (cons (_%make-import-spec-in139881%_ - _%current-src139920%_ - _%current-in139921%_) - _%r139922%_)) - (_%lp139917%_ - _%rest139944%_ - _%src-ctx139961%_ - (cons (_%make-import-spec139879%_ _%in139945%_) '()) - _%r139922%_))))) - (_%e139951139969%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in139947139954%_ '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? - _%e139951139969%_ + _%e140936140954%_ 'gx#module-export::t)) - (let* ((_%e139952139972%_ + (let* ((_%e140937140957%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e139951139969%_ + _%e140936140954%_ '1 '#f '#f))) - (_%src-ctx139975%_ _%e139952139972%_)) - (_%K139950139966%_ _%src-ctx139975%_)) + (_%src-ctx140960%_ _%e140937140957%_)) + (_%K140935140951%_ _%src-ctx140960%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E139949139958%_))) + (_%E140934140943%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139945%_ + _%in140930%_ 'gx#import-set::t)) - (let* ((_%phi139978%_ + (let* ((_%phi140963%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139945%_ + _%in140930%_ '2 '#f '#f))) - (_%src139980%_ + (_%src140965%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139945%_ + _%in140930%_ '1 '#f '#f))) - (_%src-in140020%_ - (let* ((_%g139981139990%_ + (_%src-in141005%_ + (let* ((_%g140966140975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path139880%_ _%src139980%_)) - (_%E139984139994%_ + (_%make-import-path140865%_ _%src140965%_)) + (_%E140969140979%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139981139990%_ + _%g140966140975%_ '([path]) '(path))) '#!void))) - (let ((_%K139986140010%_ - (lambda (_%path140008%_) _%path140008%_)) - (_%K139985140000%_ - (lambda (_%path139998%_) - (cons 'in: _%path139998%_)))) - (if (pair? _%g139981139990%_) - (let ((_%tl139988140015%_ + (let ((_%K140971140995%_ + (lambda (_%path140993%_) _%path140993%_)) + (_%K140970140985%_ + (lambda (_%path140983%_) + (cons 'in: _%path140983%_)))) + (if (pair? _%g140966140975%_) + (let ((_%tl140973141000%_ (let () (declare (not safe)) - (##cdr _%g139981139990%_))) - (_%hd139987140013%_ + (##cdr _%g140966140975%_))) + (_%hd140972140998%_ (let () (declare (not safe)) - (##car _%g139981139990%_)))) - (if (null? _%tl139988140015%_) - (let ((_%path140018%_ _%hd139987140013%_)) - (_%K139986140010%_ _%path140018%_)) - (let ((_%path140003%_ _%g139981139990%_)) - (_%K139985140000%_ _%path140003%_)))) - (let ((_%path140003%_ _%g139981139990%_)) - (_%K139985140000%_ _%path140003%_)))))) - (_%r140022%_ - (if _%current-src139920%_ - (cons (_%make-import-spec-in139881%_ - _%current-src139920%_ - _%current-in139921%_) - _%r139922%_) - _%r139922%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp139917%_ - _%rest139944%_ + (##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? _%phi139978%_) - _%src-in140020%_ + (cons (if (fxzero? _%phi140963%_) + _%src-in141005%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139978%_ - (cons _%src-in140020%_ '())))) - _%r140022%_))) + (cons _%phi140963%_ + (cons _%src-in141005%_ '())))) + _%r141007%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in139945%_ + _%in140930%_ 'gx#module-context::t)) - (let ((_%r140026%_ - (if _%current-src139920%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in139881%_ - _%current-src139920%_ - _%current-in139921%_) - _%r139922%_) - _%r139922%_))) - (_%lp139917%_ - _%rest139944%_ + (let ((_%r141011%_ + (if _%current-src140905%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in140866%_ + _%current-src140905%_ + _%current-in140906%_) + _%r140907%_) + _%r140907%_))) + (_%lp140902%_ + _%rest140929%_ '#f '() (cons (cons 'runtime: - (_%make-import-path139880%_ _%in139945%_)) - _%r140026%_))) + (_%make-import-path140865%_ _%in140930%_)) + _%r141011%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest139923139931%_) - (let ((_%hd139928140031%_ + (if (pair? _%rest140908140916%_) + (let ((_%hd140913141016%_ (let () (declare (not safe)) - (##car _%rest139923139931%_))) - (_%tl139929140033%_ + (##car _%rest140908140916%_))) + (_%tl140914141018%_ (let () (declare (not safe)) - (##cdr _%rest139923139931%_)))) - (let* ((_%in140036%_ - _%hd139928140031%_) - (_%rest140038%_ - _%tl139929140033%_)) - (_%K139927140028%_ - _%rest140038%_ - _%in140036%_))) - (_%else139925139941%_))))) - _%tl139888139903%_))) - (_%g139883139893%_ _%g139884139896%_))))) - (_%g139882140040%_ _%stx139876%_))))) + (##cdr _%rest140908140916%_)))) + (let* ((_%in141021%_ + _%hd140913141016%_) + (_%rest141023%_ + _%tl140914141018%_)) + (_%K140912141013%_ + _%rest141023%_ + _%in141021%_))) + (_%else140910140926%_))))) + _%tl140873140888%_))) + (_%g140868140878%_ _%g140869140881%_))))) + (_%g140867141025%_ _%stx140861%_))))) (define gxc#generate-meta-export% - (lambda (_%self139685%_ _%stx139686%_) - (letrec* ((_%context-chain139688%_ (gxc#current-context-chain)) - (_%make-import-path139689%_ - (lambda (_%ctx139873%_) + (lambda (_%self140670%_ _%stx140671%_) + (letrec* ((_%context-chain140673%_ (gxc#current-context-chain)) + (_%make-import-path140674%_ + (lambda (_%ctx140858%_) (gxc#generate-meta-import-path - _%ctx139873%_ - _%context-chain139688%_)))) - (let* ((_%g139691139701%_ - (lambda (_%g139692139698%_) + _%ctx140858%_ + _%context-chain140673%_)))) + (let* ((_%g140676140686%_ + (lambda (_%g140677140683%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139692139698%_)))) - (_%g139690139870%_ - (lambda (_%g139692139704%_) + _%g140677140683%_)))) + (_%g140675140855%_ + (lambda (_%g140677140689%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139692139704%_)) - (let ((_%e139694139706%_ + (gx#stx-pair? _%g140677140689%_)) + (let ((_%e140679140691%_ (let () (declare (not safe)) - (gx#stx-e _%g139692139704%_)))) - (let ((_%hd139695139709%_ + (gx#stx-e _%g140677140689%_)))) + (let ((_%hd140680140694%_ (let () (declare (not safe)) - (##car _%e139694139706%_))) - (_%tl139696139711%_ + (##car _%e140679140691%_))) + (_%tl140681140696%_ (let () (declare (not safe)) - (##cdr _%e139694139706%_)))) - ((lambda (_%L139714%_) - (let _%lp139725%_ ((_%rest139727%_ _%L139714%_) - (_%r139728%_ '())) - (let* ((_%rest139729139737%_ _%rest139727%_) - (_%else139731139745%_ + (##cdr _%e140679140691%_)))) + ((lambda (_%L140699%_) + (let _%lp140710%_ ((_%rest140712%_ _%L140699%_) + (_%r140713%_ '())) + (let* ((_%rest140714140722%_ _%rest140712%_) + (_%else140716140730%_ (lambda () (cons '%#export - (reverse _%r139728%_)))) - (_%K139733139858%_ - (lambda (_%rest139748%_ _%out139749%_) - (let* ((_%out139750139763%_ - _%out139749%_) - (_%E139753139767%_ + (reverse _%r140713%_)))) + (_%K140718140843%_ + (lambda (_%rest140733%_ _%out140734%_) + (let* ((_%out140735140748%_ + _%out140734%_) + (_%E140738140752%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out139750139763%_ + _%out140735140748%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13546,491 +13546,491 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K139757139837%_ - (lambda (_%name139833%_ - _%phi139834%_ - _%key139835%_) - (_%lp139725%_ - _%rest139748%_ + (let ((_%K140742140822%_ + (lambda (_%name140818%_ + _%phi140819%_ + _%key140820%_) + (_%lp140710%_ + _%rest140733%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139834%_ + (cons _%phi140819%_ (cons (gxc#generate-runtime-identifier-key - _%key139835%_) + _%key140820%_) (cons (gxc#generate-runtime-identifier-key - _%name139833%_) + _%name140818%_) '())))) - _%r139728%_)))) + _%r140713%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139754139817%_ - (lambda (_%phi139771%_ - _%src139772%_) - (let* ((_%out139812%_ - (if _%src139772%_ + (_%K140739140802%_ + (lambda (_%phi140756%_ + _%src140757%_) + (let* ((_%out140797%_ + (if _%src140757%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g139773139782%_ - (_%make-import-path139689%_ - _%src139772%_)) - (_%E139776139786%_ + (cons (let* ((_%g140758140767%_ + (_%make-import-path140674%_ + _%src140757%_)) + (_%E140761140771%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139773139782%_ + _%g140758140767%_ '([path]) '(path))) '#!void))) - (let ((_%K139778139802%_ - (lambda (_%path139800%_) - _%path139800%_)) - (_%K139777139792%_ - (lambda (_%path139790%_) - (cons 'in: _%path139790%_)))) - (if (pair? _%g139773139782%_) - (let ((_%tl139780139807%_ + (let ((_%K140763140787%_ + (lambda (_%path140785%_) + _%path140785%_)) + (_%K140762140777%_ + (lambda (_%path140775%_) + (cons 'in: _%path140775%_)))) + (if (pair? _%g140758140767%_) + (let ((_%tl140765140792%_ (let () (declare (not safe)) - (##cdr _%g139773139782%_))) - (_%hd139779139805%_ + (##cdr _%g140758140767%_))) + (_%hd140764140790%_ (let () (declare (not safe)) - (##car _%g139773139782%_)))) - (if (null? _%tl139780139807%_) - (let ((_%path139810%_ - _%hd139779139805%_)) - (_%K139778139802%_ - _%path139810%_)) - (let ((_%path139795%_ - _%g139773139782%_)) - (_%K139777139792%_ - _%path139795%_)))) - (let ((_%path139795%_ - _%g139773139782%_)) - (_%K139777139792%_ - _%path139795%_))))) + (##car _%g140758140767%_)))) + (if (null? _%tl140765140792%_) + (let ((_%path140795%_ + _%hd140764140790%_)) + (_%K140763140787%_ + _%path140795%_)) + (let ((_%path140780%_ + _%g140758140767%_)) + (_%K140762140777%_ + _%path140780%_)))) + (let ((_%path140780%_ + _%g140758140767%_)) + (_%K140762140777%_ + _%path140780%_))))) '())) '#t)) - (_%out139814%_ - (if (fxzero? _%phi139771%_) - _%out139812%_ + (_%out140799%_ + (if (fxzero? _%phi140756%_) + _%out140797%_ (cons 'phi: - (cons _%phi139771%_ - (cons _%out139812%_ '())))))) - (_%lp139725%_ - _%rest139748%_ - (cons _%out139814%_ _%r139728%_)))))) + (cons _%phi140756%_ + (cons _%out140797%_ '())))))) + (_%lp140710%_ + _%rest140733%_ + (cons _%out140799%_ _%r140713%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match139752139830%_ + (let ((_%try-match140737140815%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139750139763%_ + _%out140735140748%_ 'gx#export-set::t)) - (let* ((_%e139755139820%_ + (let* ((_%e140740140805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out139750139763%_ + _%out140735140748%_ '1 '#f '#f))) - (_%e139756139825%_ + (_%e140741140810%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139750139763%_ + _%out140735140748%_ '2 '#f '#f)))) - (let ((_%src139823%_ _%e139755139820%_) - (_%phi139828%_ _%e139756139825%_)) - (_%K139754139817%_ _%phi139828%_ _%src139823%_))) - (_%E139753139767%_))))) + (let ((_%src140808%_ _%e140740140805%_) + (_%phi140813%_ _%e140741140810%_)) + (_%K140739140802%_ _%phi140813%_ _%src140808%_))) + (_%E140738140752%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139750139763%_ + _%out140735140748%_ 'gx#module-export::t)) - (let* ((_%e139758139840%_ + (let* ((_%e140743140825%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out139750139763%_ + _%out140735140748%_ '1 '#f '#f))) - (_%e139759139843%_ + (_%e140744140828%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139750139763%_ + _%out140735140748%_ '2 '#f '#f))) - (_%e139760139848%_ + (_%e140745140833%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139750139763%_ + _%out140735140748%_ '3 '#f '#f))) - (_%e139761139853%_ + (_%e140746140838%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139750139763%_ + _%out140735140748%_ '4 '#f '#f)))) - (let ((_%key139846%_ _%e139759139843%_) - (_%phi139851%_ _%e139760139848%_) - (_%name139856%_ _%e139761139853%_)) - (_%K139757139837%_ - _%name139856%_ - _%phi139851%_ - _%key139846%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match139752139830%_)))))))) - (if (pair? _%rest139729139737%_) - (let ((_%hd139734139861%_ + (let ((_%key140831%_ _%e140744140828%_) + (_%phi140836%_ _%e140745140833%_) + (_%name140841%_ _%e140746140838%_)) + (_%K140742140822%_ + _%name140841%_ + _%phi140836%_ + _%key140831%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match140737140815%_)))))))) + (if (pair? _%rest140714140722%_) + (let ((_%hd140719140846%_ (let () (declare (not safe)) - (##car _%rest139729139737%_))) - (_%tl139735139863%_ + (##car _%rest140714140722%_))) + (_%tl140720140848%_ (let () (declare (not safe)) - (##cdr _%rest139729139737%_)))) - (let* ((_%out139866%_ - _%hd139734139861%_) - (_%rest139868%_ - _%tl139735139863%_)) - (_%K139733139858%_ - _%rest139868%_ - _%out139866%_))) - (_%else139731139745%_))))) - _%tl139696139711%_))) - (_%g139691139701%_ _%g139692139704%_))))) - (_%g139690139870%_ _%stx139686%_))))) + (##cdr _%rest140714140722%_)))) + (let* ((_%out140851%_ + _%hd140719140846%_) + (_%rest140853%_ + _%tl140720140848%_)) + (_%K140718140843%_ + _%rest140853%_ + _%out140851%_))) + (_%else140716140730%_))))) + _%tl140681140696%_))) + (_%g140676140686%_ _%g140677140689%_))))) + (_%g140675140855%_ _%stx140671%_))))) (define gxc#generate-meta-provide% - (lambda (_%self139646%_ _%stx139647%_) + (lambda (_%self140631%_ _%stx140632%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139646%_ 'state))) - (let* ((_%g139649139659%_ - (lambda (_%g139650139656%_) + (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" - _%g139650139656%_)))) - (_%g139648139682%_ - (lambda (_%g139650139662%_) + _%g140635140641%_)))) + (_%g140633140667%_ + (lambda (_%g140635140647%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139650139662%_)) - (let ((_%e139652139664%_ + (gx#stx-pair? _%g140635140647%_)) + (let ((_%e140637140649%_ (let () (declare (not safe)) - (gx#stx-e _%g139650139662%_)))) - (let ((_%hd139653139667%_ + (gx#stx-e _%g140635140647%_)))) + (let ((_%hd140638140652%_ (let () (declare (not safe)) - (##car _%e139652139664%_))) - (_%tl139654139669%_ + (##car _%e140637140649%_))) + (_%tl140639140654%_ (let () (declare (not safe)) - (##cdr _%e139652139664%_)))) - ((lambda (_%L139672%_) + (##cdr _%e140637140649%_)))) + ((lambda (_%L140657%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L139672%_))) - _%tl139654139669%_))) - (_%g139649139659%_ _%g139650139662%_))))) - (_%g139648139682%_ _%stx139647%_)))) + _%L140657%_))) + _%tl140639140654%_))) + (_%g140634140644%_ _%g140635140647%_))))) + (_%g140633140667%_ _%stx140632%_)))) (define gxc#generate-meta-extern% - (lambda (_%self139517%_ _%stx139518%_) - (letrec ((_%generate1139520%_ - (lambda (_%id139641%_ _%eid139642%_) - (let ((_%eid139644%_ + (lambda (_%self140502%_ _%stx140503%_) + (letrec ((_%generate1140505%_ + (lambda (_%id140626%_ _%eid140627%_) + (let ((_%eid140629%_ (let () (declare (not safe)) - (gx#stx-e _%eid139642%_)))) + (gx#stx-e _%eid140627%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid139644%_)) + (interned-symbol? _%eid140629%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx139518%_ - _%eid139644%_))) - (cons (gxc#generate-runtime-identifier _%id139641%_) - (cons _%eid139644%_ '())))))) - (let* ((_%g139522139550%_ - (lambda (_%g139523139547%_) + _%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" - _%g139523139547%_)))) - (_%g139521139638%_ - (lambda (_%g139523139553%_) + _%g140508140532%_)))) + (_%g140506140623%_ + (lambda (_%g140508140538%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139523139553%_)) - (let ((_%e139526139555%_ + (gx#stx-pair? _%g140508140538%_)) + (let ((_%e140511140540%_ (let () (declare (not safe)) - (gx#stx-e _%g139523139553%_)))) - (let ((_%hd139527139558%_ + (gx#stx-e _%g140508140538%_)))) + (let ((_%hd140512140543%_ (let () (declare (not safe)) - (##car _%e139526139555%_))) - (_%tl139528139560%_ + (##car _%e140511140540%_))) + (_%tl140513140545%_ (let () (declare (not safe)) - (##cdr _%e139526139555%_)))) + (##cdr _%e140511140540%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl139528139560%_)) - (let ((_g149316_ + (gx#stx-pair/null? _%tl140513140545%_)) + (let ((_g150301_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl139528139560%_ + _%tl140513140545%_ '0)))) (begin - (let ((_g149317_ + (let ((_g150302_ (let () (declare (not safe)) - (if (##values? _g149316_) - (##values-length _g149316_) + (if (##values? _g150301_) + (##values-length _g150301_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149317_ 2))) + (##fx= _g150302_ 2))) (error "Context expects 2 values" - _g149317_))) - (let ((_%target139529139563%_ + _g150302_))) + (let ((_%target140514140548%_ (let () (declare (not safe)) - (##values-ref _g149316_ 0))) - (_%tl139531139565%_ + (##values-ref _g150301_ 0))) + (_%tl140516140550%_ (let () (declare (not safe)) - (##values-ref _g149316_ 1)))) + (##values-ref _g150301_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139531139565%_)) - (letrec ((_%loop139532139568%_ - (lambda (_%hd139530139571%_ - _%eid139536139573%_ - _%id139537139575%_) + (gx#stx-null? _%tl140516140550%_)) + (letrec ((_%loop140517140553%_ + (lambda (_%hd140515140556%_ + _%eid140521140558%_ + _%id140522140560%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139530139571%_)) - (let ((_%e139533139578%_ + _%hd140515140556%_)) + (let ((_%e140518140563%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd139530139571%_)))) - (let ((_%lp-hd139534139581%_ + (gx#stx-e _%hd140515140556%_)))) + (let ((_%lp-hd140519140566%_ (let () (declare (not safe)) - (##car _%e139533139578%_))) - (_%lp-tl139535139583%_ + (##car _%e140518140563%_))) + (_%lp-tl140520140568%_ (let () (declare (not safe)) - (##cdr _%e139533139578%_)))) + (##cdr _%e140518140563%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd139534139581%_)) - (let ((_%e139540139586%_ + (gx#stx-pair? _%lp-hd140519140566%_)) + (let ((_%e140525140571%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd139534139581%_)))) - (let ((_%hd139541139589%_ + (gx#stx-e _%lp-hd140519140566%_)))) + (let ((_%hd140526140574%_ (let () (declare (not safe)) - (##car _%e139540139586%_))) - (_%tl139542139591%_ + (##car _%e140525140571%_))) + (_%tl140527140576%_ (let () (declare (not safe)) - (##cdr _%e139540139586%_)))) + (##cdr _%e140525140571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139542139591%_)) - (let ((_%e139543139594%_ + (gx#stx-pair? _%tl140527140576%_)) + (let ((_%e140528140579%_ (let () (declare (not safe)) - (gx#stx-e _%tl139542139591%_)))) - (let ((_%hd139544139597%_ + (gx#stx-e _%tl140527140576%_)))) + (let ((_%hd140529140582%_ (let () (declare (not safe)) - (##car _%e139543139594%_))) - (_%tl139545139599%_ + (##car _%e140528140579%_))) + (_%tl140530140584%_ (let () (declare (not safe)) - (##cdr _%e139543139594%_)))) + (##cdr _%e140528140579%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139545139599%_)) - (_%loop139532139568%_ - _%lp-tl139535139583%_ - (cons _%hd139544139597%_ - _%eid139536139573%_) - (cons _%hd139541139589%_ - _%id139537139575%_)) - (_%g139522139550%_ - _%g139523139553%_)))) - (_%g139522139550%_ _%g139523139553%_)))) - (_%g139522139550%_ _%g139523139553%_)))) - (let ((_%eid139538139602%_ (reverse _%eid139536139573%_)) - (_%id139539139604%_ (reverse _%id139537139575%_))) - ((lambda (_%L139607%_ _%L139608%_) + (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 _%generate1139520%_ - (let ((__tmp149318 - (lambda (_%g139623139626%_ - _%g139624139628%_) - (cons _%g139623139626%_ - _%g139624139628%_)))) + (map _%generate1140505%_ + (let ((__tmp150303 + (lambda (_%g140608140611%_ + _%g140609140613%_) + (cons _%g140608140611%_ + _%g140609140613%_)))) (declare (not safe)) - (__foldr1 __tmp149318 '() _%L139608%_)) - (let ((__tmp149319 - (lambda (_%g139630139633%_ - _%g139631139635%_) - (cons _%g139630139633%_ - _%g139631139635%_)))) + (__foldr1 __tmp150303 '() _%L140593%_)) + (let ((__tmp150304 + (lambda (_%g140615140618%_ + _%g140616140620%_) + (cons _%g140615140618%_ + _%g140616140620%_)))) (declare (not safe)) - (__foldr1 __tmp149319 '() _%L139607%_))))) - _%eid139538139602%_ - _%id139539139604%_)))))) + (__foldr1 __tmp150304 '() _%L140592%_))))) + _%eid140523140587%_ + _%id140524140589%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop139532139568%_ - _%target139529139563%_ + (_%loop140517140553%_ + _%target140514140548%_ '() '())) - (_%g139522139550%_ - _%g139523139553%_))))) - (_%g139522139550%_ _%g139523139553%_)))) - (_%g139522139550%_ _%g139523139553%_))))) - (_%g139521139638%_ _%stx139518%_))))) + (_%g140507140535%_ + _%g140508140538%_))))) + (_%g140507140535%_ _%g140508140538%_)))) + (_%g140507140535%_ _%g140508140538%_))))) + (_%g140506140623%_ _%stx140503%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self139307%_ _%stx139308%_) - (letrec ((_%generate1139310%_ - (lambda (_%id139512%_) - (let ((_%eid139514%_ + (lambda (_%self140292%_ _%stx140293%_) + (letrec ((_%generate1140295%_ + (lambda (_%id140497%_) + (let ((_%eid140499%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id139512%_))) - (_%ident139515%_ - (gxc#generate-runtime-identifier _%id139512%_))) + (gxc#generate-runtime-binding-id _%id140497%_))) + (_%ident140500%_ + (gxc#generate-runtime-identifier _%id140497%_))) (cons '%#define-runtime - (cons _%ident139515%_ (cons _%eid139514%_ '())))))) - (_%generate*139311%_ - (lambda (_%all139480%_) - (let* ((_%all139481139489%_ _%all139480%_) - (_%else139483139497%_ - (lambda () (cons '%#begin _%all139480%_))) - (_%K139485139502%_ - (lambda (_%one139500%_) _%one139500%_))) - (if (pair? _%all139481139489%_) - (let ((_%hd139486139505%_ + (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 _%all139481139489%_))) - (_%tl139487139507%_ + (##car _%all140466140474%_))) + (_%tl140472140492%_ (let () (declare (not safe)) - (##cdr _%all139481139489%_)))) - (let ((_%one139510%_ _%hd139486139505%_)) - (if (null? _%tl139487139507%_) - (_%K139485139502%_ _%one139510%_) - (_%else139483139497%_)))) - (_%else139483139497%_)))))) - (let* ((_%g139313139330%_ - (lambda (_%g139314139327%_) + (##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" - _%g139314139327%_)))) - (_%g139312139477%_ - (lambda (_%g139314139333%_) + _%g140299140312%_)))) + (_%g140297140462%_ + (lambda (_%g140299140318%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139314139333%_)) - (let ((_%e139317139335%_ + (gx#stx-pair? _%g140299140318%_)) + (let ((_%e140302140320%_ (let () (declare (not safe)) - (gx#stx-e _%g139314139333%_)))) - (let ((_%hd139318139338%_ + (gx#stx-e _%g140299140318%_)))) + (let ((_%hd140303140323%_ (let () (declare (not safe)) - (##car _%e139317139335%_))) - (_%tl139319139340%_ + (##car _%e140302140320%_))) + (_%tl140304140325%_ (let () (declare (not safe)) - (##cdr _%e139317139335%_)))) + (##cdr _%e140302140320%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139319139340%_)) - (let ((_%e139320139343%_ + (gx#stx-pair? _%tl140304140325%_)) + (let ((_%e140305140328%_ (let () (declare (not safe)) - (gx#stx-e _%tl139319139340%_)))) - (let ((_%hd139321139346%_ + (gx#stx-e _%tl140304140325%_)))) + (let ((_%hd140306140331%_ (let () (declare (not safe)) - (##car _%e139320139343%_))) - (_%tl139322139348%_ + (##car _%e140305140328%_))) + (_%tl140307140333%_ (let () (declare (not safe)) - (##cdr _%e139320139343%_)))) + (##cdr _%e140305140328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139322139348%_)) - (let ((_%e139323139351%_ + (gx#stx-pair? _%tl140307140333%_)) + (let ((_%e140308140336%_ (let () (declare (not safe)) (gx#stx-e - _%tl139322139348%_)))) - (let ((_%hd139324139354%_ + _%tl140307140333%_)))) + (let ((_%hd140309140339%_ (let () (declare (not safe)) - (##car _%e139323139351%_))) - (_%tl139325139356%_ + (##car _%e140308140336%_))) + (_%tl140310140341%_ (let () (declare (not safe)) - (##cdr _%e139323139351%_)))) + (##cdr _%e140308140336%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139325139356%_)) - ((lambda (_%L139359%_ - _%L139360%_) - (let _%lp139376%_ ((_%rest139378%_ + _%tl140310140341%_)) + ((lambda (_%L140344%_ + _%L140345%_) + (let _%lp140361%_ ((_%rest140363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139360%_) - (_%r139379%_ '())) + _%L140345%_) + (_%r140364%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx149055149056%_ - _%rest139378%_) - (_%g139384139401%_ + (let* ((_%__stx150040150041%_ + _%rest140363%_) + (_%g140369140386%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14038,160 +14038,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx149055149056%_))))) - (let ((_%__kont149057149058%_ - (lambda (_%L139464%_) - (_%lp139376%_ _%L139464%_ _%r139379%_))) - (_%__kont149059149060%_ - (lambda (_%L139437%_ _%L139438%_) - (_%lp139376%_ - _%L139437%_ - (cons (_%generate1139310%_ _%L139438%_) - _%r139379%_)))) - (_%__kont149061149062%_ - (lambda (_%L139413%_) - (_%generate*139311%_ - (let ((__tmp149320 - (cons (_%generate1139310%_ _%L139413%_) '()))) + _%__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 __tmp149320 _%r139379%_))))) - (_%__kont149063149064%_ - (lambda () (_%generate*139311%_ (reverse _%r139379%_))))) - (let ((_%g139382139424%_ + (__foldl1 cons __tmp150305 _%r140364%_))))) + (_%__kont150048150049%_ + (lambda () (_%generate*140296%_ (reverse _%r140364%_))))) + (let ((_%g140367140409%_ (lambda () - (let ((_%L139413%_ _%__stx149055149056%_)) + (let ((_%L140398%_ _%__stx150040150041%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L139413%_)) - (_%__kont149061149062%_ _%L139413%_) - (_%__kont149063149064%_)))))) + (gx#identifier? _%L140398%_)) + (_%__kont150046150047%_ _%L140398%_) + (_%__kont150048150049%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx149055149056%_)) - (let ((_%e139387139453%_ + (gx#stx-pair? _%__stx150040150041%_)) + (let ((_%e140372140438%_ (let () (declare (not safe)) - (gx#stx-e _%__stx149055149056%_)))) - (let ((_%tl139389139458%_ + (gx#stx-e _%__stx150040150041%_)))) + (let ((_%tl140374140443%_ (let () (declare (not safe)) - (##cdr _%e139387139453%_))) - (_%hd139388139456%_ + (##cdr _%e140372140438%_))) + (_%hd140373140441%_ (let () (declare (not safe)) - (##car _%e139387139453%_)))) + (##car _%e140372140438%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd139388139456%_)) - (let ((_%e139390139461%_ + (gx#stx-datum? _%hd140373140441%_)) + (let ((_%e140375140446%_ (let () (declare (not safe)) - (gx#stx-e _%hd139388139456%_)))) - (if (equal? _%e139390139461%_ '#f) - (_%__kont149057149058%_ - _%tl139389139458%_) - (_%__kont149059149060%_ - _%tl139389139458%_ - _%hd139388139456%_))) - (_%__kont149059149060%_ - _%tl139389139458%_ - _%hd139388139456%_)))) - (let () (declare (not safe)) (_%g139382139424%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139324139354%_ - _%hd139321139346%_) - (_%g139313139330%_ - _%g139314139333%_)))) - (_%g139313139330%_ - _%g139314139333%_)))) - (_%g139313139330%_ _%g139314139333%_)))) - (_%g139313139330%_ _%g139314139333%_))))) - (_%g139312139477%_ _%stx139308%_))))) + (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 (_%self139204%_ _%stx139205%_) - (let* ((_%g139207139224%_ - (lambda (_%g139208139221%_) + (lambda (_%self140189%_ _%stx140190%_) + (let* ((_%g140192140209%_ + (lambda (_%g140193140206%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139208139221%_)))) - (_%g139206139304%_ - (lambda (_%g139208139227%_) + _%g140193140206%_)))) + (_%g140191140289%_ + (lambda (_%g140193140212%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139208139227%_)) - (let ((_%e139211139229%_ + (gx#stx-pair? _%g140193140212%_)) + (let ((_%e140196140214%_ (let () (declare (not safe)) - (gx#stx-e _%g139208139227%_)))) - (let ((_%hd139212139232%_ + (gx#stx-e _%g140193140212%_)))) + (let ((_%hd140197140217%_ (let () (declare (not safe)) - (##car _%e139211139229%_))) - (_%tl139213139234%_ + (##car _%e140196140214%_))) + (_%tl140198140219%_ (let () (declare (not safe)) - (##cdr _%e139211139229%_)))) + (##cdr _%e140196140214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139213139234%_)) - (let ((_%e139214139237%_ + (gx#stx-pair? _%tl140198140219%_)) + (let ((_%e140199140222%_ (let () (declare (not safe)) - (gx#stx-e _%tl139213139234%_)))) - (let ((_%hd139215139240%_ + (gx#stx-e _%tl140198140219%_)))) + (let ((_%hd140200140225%_ (let () (declare (not safe)) - (##car _%e139214139237%_))) - (_%tl139216139242%_ + (##car _%e140199140222%_))) + (_%tl140201140227%_ (let () (declare (not safe)) - (##cdr _%e139214139237%_)))) + (##cdr _%e140199140222%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139216139242%_)) - (let ((_%e139217139245%_ + (gx#stx-pair? _%tl140201140227%_)) + (let ((_%e140202140230%_ (let () (declare (not safe)) - (gx#stx-e _%tl139216139242%_)))) - (let ((_%hd139218139248%_ + (gx#stx-e _%tl140201140227%_)))) + (let ((_%hd140203140233%_ (let () (declare (not safe)) - (##car _%e139217139245%_))) - (_%tl139219139250%_ + (##car _%e140202140230%_))) + (_%tl140204140235%_ (let () (declare (not safe)) - (##cdr _%e139217139245%_)))) + (##cdr _%e140202140230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139219139250%_)) - ((lambda (_%L139253%_ - _%L139254%_) - (let* ((_%eid139269%_ + _%tl140204140235%_)) + ((lambda (_%L140238%_ + _%L140239%_) + (let* ((_%eid140254%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L139254%_))) - (_%phi139271%_ - (let ((__tmp149321 + _%L140239%_))) + (_%phi140256%_ + (let ((__tmp150306 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149321 '1))) - (_%block139273%_ + (##fx+ __tmp150306 '1))) + (_%block140258%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139204%_ 'state)) - _%phi139271%_))) + (slot-ref__0 _%self140189%_ 'state)) + _%phi140256%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g139276139283%_ - (lambda (_%g139277139280%_) + (let* ((_%g140261140268%_ + (lambda (_%g140262140265%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14199,24 +14199,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139277139280%_)))) - (_%g139275139301%_ - (lambda (_%g139277139286%_) - ((lambda (_%L139288%_) + _%g140262140265%_)))) + (_%g140260140286%_ + (lambda (_%g140262140271%_) + ((lambda (_%L140273%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139204%_ 'state)) - _%phi139271%_ + (slot-ref__0 _%self140189%_ 'state)) + _%phi140256%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L139288%_ (cons _%L139253%_ '()))))) - _%g139277139286%_)))) + (cons _%L140273%_ (cons _%L140238%_ '()))))) + _%g140262140271%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139275139301%_ - _%eid139269%_)) - (if _%block139273%_ + (_%g140260140286%_ + _%eid140254%_)) + (if _%block140258%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14225,7 +14225,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block139273%_ + (cons _%block140258%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14233,129 +14233,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L139254%_) - (cons _%eid139269%_ '()))) + _%L140239%_) + (cons _%eid140254%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L139254%_) - (cons _%eid139269%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139218139248%_ - _%hd139215139240%_) - (_%g139207139224%_ - _%g139208139227%_)))) - (_%g139207139224%_ _%g139208139227%_)))) - (_%g139207139224%_ _%g139208139227%_)))) - (_%g139207139224%_ _%g139208139227%_))))) - (_%g139206139304%_ _%stx139205%_)))) + (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 (_%self139136%_ _%stx139137%_) - (let* ((_%g139139139156%_ - (lambda (_%g139140139153%_) + (lambda (_%self140121%_ _%stx140122%_) + (let* ((_%g140124140141%_ + (lambda (_%g140125140138%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139140139153%_)))) - (_%g139138139201%_ - (lambda (_%g139140139159%_) + _%g140125140138%_)))) + (_%g140123140186%_ + (lambda (_%g140125140144%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139140139159%_)) - (let ((_%e139143139161%_ + (gx#stx-pair? _%g140125140144%_)) + (let ((_%e140128140146%_ (let () (declare (not safe)) - (gx#stx-e _%g139140139159%_)))) - (let ((_%hd139144139164%_ + (gx#stx-e _%g140125140144%_)))) + (let ((_%hd140129140149%_ (let () (declare (not safe)) - (##car _%e139143139161%_))) - (_%tl139145139166%_ + (##car _%e140128140146%_))) + (_%tl140130140151%_ (let () (declare (not safe)) - (##cdr _%e139143139161%_)))) + (##cdr _%e140128140146%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139145139166%_)) - (let ((_%e139146139169%_ + (gx#stx-pair? _%tl140130140151%_)) + (let ((_%e140131140154%_ (let () (declare (not safe)) - (gx#stx-e _%tl139145139166%_)))) - (let ((_%hd139147139172%_ + (gx#stx-e _%tl140130140151%_)))) + (let ((_%hd140132140157%_ (let () (declare (not safe)) - (##car _%e139146139169%_))) - (_%tl139148139174%_ + (##car _%e140131140154%_))) + (_%tl140133140159%_ (let () (declare (not safe)) - (##cdr _%e139146139169%_)))) + (##cdr _%e140131140154%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139148139174%_)) - (let ((_%e139149139177%_ + (gx#stx-pair? _%tl140133140159%_)) + (let ((_%e140134140162%_ (let () (declare (not safe)) - (gx#stx-e _%tl139148139174%_)))) - (let ((_%hd139150139180%_ + (gx#stx-e _%tl140133140159%_)))) + (let ((_%hd140135140165%_ (let () (declare (not safe)) - (##car _%e139149139177%_))) - (_%tl139151139182%_ + (##car _%e140134140162%_))) + (_%tl140136140167%_ (let () (declare (not safe)) - (##cdr _%e139149139177%_)))) + (##cdr _%e140134140162%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139151139182%_)) - ((lambda (_%L139185%_ - _%L139186%_) + _%tl140136140167%_)) + ((lambda (_%L140170%_ + _%L140171%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L139186%_) + _%L140171%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139185%_) + _%L140170%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139150139180%_ - _%hd139147139172%_) - (_%g139139139156%_ - _%g139140139159%_)))) - (_%g139139139156%_ _%g139140139159%_)))) - (_%g139139139156%_ _%g139140139159%_)))) - (_%g139139139156%_ _%g139140139159%_))))) - (_%g139138139201%_ _%stx139137%_)))) + _%hd140135140165%_ + _%hd140132140157%_) + (_%g140124140141%_ + _%g140125140144%_)))) + (_%g140124140141%_ _%g140125140144%_)))) + (_%g140124140141%_ _%g140125140144%_)))) + (_%g140124140141%_ _%g140125140144%_))))) + (_%g140123140186%_ _%stx140122%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self139133%_ _%stx139134%_) + (lambda (_%self140118%_ _%stx140119%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139133%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self140118%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx139134%_) - (gxc#generate-meta-define-values% _%self139133%_ _%stx139134%_))) + _%stx140119%_) + (gxc#generate-meta-define-values% _%self140118%_ _%stx140119%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self139130%_ _%stx139131%_) + (lambda (_%self140115%_ _%stx140116%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139130%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self140115%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx139131%_) + _%stx140116%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp149323 (list)) (__tmp149322 (cons (cons 'struct: '#t) '()))) + (let ((__tmp150308 (list)) (__tmp150307 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp149323 + __tmp150308 '(src n open blocks) - __tmp149322 + __tmp150307 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args139127%_ - (apply make-instance gxc#meta-state::t _%$args139127%_))) + (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 (_%self138472139111%_ _%ctx139113%_) - (let* ((_%self139115%_ _%self138472139111%_) - (_%self139117%_ _%self139115%_)) - (if (let ((__tmp149324 + (lambda (_%self139457140096%_ _%ctx140098%_) + (let* ((_%self140100%_ _%self139457140096%_) + (_%self140102%_ _%self140100%_)) + (if (let ((__tmp150309 (let () (declare (not safe)) - (##structure-length _%self139117%_)))) + (##structure-length _%self140102%_)))) (declare (not safe)) - (##fx< '4 __tmp149324)) + (##fx< '4 __tmp150309)) (begin - (let ((__tmp149325 - (let ((__tmp149326 + (let ((__tmp150310 + (let ((__tmp150311 (##structure-ref - _%ctx139113%_ + _%ctx140098%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp149326)))) + (gxc#module-id->path-string __tmp150311)))) (declare (not safe)) (##unchecked-structure-set! - _%self139117%_ - __tmp149325 + _%self140102%_ + __tmp150310 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self139117%_ '1 '2 '#f '#f)) - (let ((__tmp149327 + (##unchecked-structure-set! _%self140102%_ '1 '2 '#f '#f)) + (let ((__tmp150312 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self139117%_ - __tmp149327 + _%self140102%_ + __tmp150312 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self139117%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self140102%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp149328 + (let ((__tmp150313 (let () (declare (not safe)) - (##vector-length _%self139117%_)))) + (##vector-length _%self140102%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self139117%_ + _%self140102%_ '4 - __tmp149328)))))) + __tmp150313)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp149330 (list)) (__tmp149329 (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 - __tmp149330 + __tmp150315 '(ctx phi n code) - __tmp149329 + __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 _%$args138986%_ - (apply make-instance gxc#meta-state-block::t _%$args138986%_))) + (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 (_%state138945%_ _%phi138946%_) - (let* ((_%state138947138955%_ _%state138945%_) - (_%E138949138959%_ + (lambda (_%state139930%_ _%phi139931%_) + (let* ((_%state139932139940%_ _%state139930%_) + (_%E139934139944%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state138947138955%_ + _%state139932139940%_ '((meta-state src n open)))) '#!void)) - (_%K138950138968%_ - (lambda (_%open138962%_ _%n138963%_ _%src138964%_) + (_%K139935139953%_ + (lambda (_%open139947%_ _%n139948%_ _%src139949%_) (if (let () (declare (not safe)) - (hash-get _%open138962%_ _%phi138946%_)) + (hash-get _%open139947%_ _%phi139931%_)) '#f - (let ((_%block-ref138966%_ - (let ((__tmp149331 (number->string _%n138963%_))) + (let ((_%block-ref139951%_ + (let ((__tmp150316 (number->string _%n139948%_))) (declare (not safe)) (##string-append - _%src138964%_ + _%src139949%_ '"~" - __tmp149331)))) + __tmp150316)))) (##structure-set! - _%state138945%_ - (let () (declare (not safe)) (##fx+ _%n138963%_ '1)) + _%state139930%_ + (let () (declare (not safe)) (##fx+ _%n139948%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp149332 - (let ((__tmp149333 + (let ((__tmp150317 + (let ((__tmp150318 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp149333 - _%phi138946%_ - _%n138963%_ + __tmp150318 + _%phi139931%_ + _%n139948%_ '())))) (declare (not safe)) - (hash-put! _%open138962%_ _%phi138946%_ __tmp149332)) - _%block-ref138966%_))))) + (hash-put! _%open139947%_ _%phi139931%_ __tmp150317)) + _%block-ref139951%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state138947138955%_ + _%state139932139940%_ 'gxc#meta-state::t)) - (let* ((_%e138951138971%_ + (let* ((_%e139936139956%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138947138955%_ + _%state139932139940%_ '1 '#f '#f))) - (_%src138974%_ _%e138951138971%_) - (_%e138952138976%_ + (_%src139959%_ _%e139936139956%_) + (_%e139937139961%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138947138955%_ + _%state139932139940%_ '2 '#f '#f))) - (_%n138979%_ _%e138952138976%_) - (_%e138953138981%_ + (_%n139964%_ _%e139937139961%_) + (_%e139938139966%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138947138955%_ + _%state139932139940%_ '3 '#f '#f))) - (_%open138984%_ _%e138953138981%_)) - (_%K138950138968%_ _%open138984%_ _%n138979%_ _%src138974%_)) - (_%E138949138959%_))))) + (_%open139969%_ _%e139938139966%_)) + (_%K139935139953%_ _%open139969%_ _%n139964%_ _%src139959%_)) + (_%E139934139944%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state138939%_ _%phi138940%_ _%stx138941%_) - (let ((_%block138943%_ - (let ((__tmp149334 + (lambda (_%state139924%_ _%phi139925%_ _%stx139926%_) + (let ((_%block139928%_ + (let ((__tmp150319 (##structure-ref - _%state138939%_ + _%state139924%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp149334 _%phi138940%_)))) + (hash-get __tmp150319 _%phi139925%_)))) (##structure-set! - _%block138943%_ - (cons _%stx138941%_ + _%block139928%_ + (cons _%stx139926%_ (##structure-ref - _%block138943%_ + _%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 (_%state138933%_) + (lambda (_%state139918%_) (##structure-set! - _%state138933%_ - (let ((__tmp149337 - (lambda (_%_138935%_ _%block138936%_ _%r138937%_) - (cons _%block138936%_ _%r138937%_))) - (__tmp149336 - (##structure-ref _%state138933%_ '4 gxc#meta-state::t '#f)) - (__tmp149335 - (##structure-ref _%state138933%_ '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 __tmp149337 __tmp149336 __tmp149335)) + (hash-fold __tmp150322 __tmp150321 __tmp150320)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state138933%_ + _%state139918%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state138885%_) - (gxc#meta-state-end-phi! _%state138885%_) - (let ((__tmp149339 - (lambda (_%block138887%_ _%r138888%_) - (let* ((_%block138889138898%_ _%block138887%_) - (_%E138891138902%_ + (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" - _%block138889138898%_ + _%block139874139883%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K138892138910%_ - (lambda (_%code138905%_ - _%n138906%_ - _%phi138907%_ - _%ctx138908%_) - (if (null? _%code138905%_) - _%r138888%_ - (cons (cons _%ctx138908%_ - (cons _%phi138907%_ - (cons _%n138906%_ + (_%K139877139895%_ + (lambda (_%code139890%_ + _%n139891%_ + _%phi139892%_ + _%ctx139893%_) + (if (null? _%code139890%_) + _%r139873%_ + (cons (cons _%ctx139893%_ + (cons _%phi139892%_ + (cons _%n139891%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code138905%_)) + (reverse _%code139890%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r138888%_))))) + _%r139873%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block138889138898%_ + _%block139874139883%_ 'gxc#meta-state-block::t)) - (let* ((_%e138893138913%_ + (let* ((_%e139878139898%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138889138898%_ + _%block139874139883%_ '1 '#f '#f))) - (_%ctx138916%_ _%e138893138913%_) - (_%e138894138918%_ + (_%ctx139901%_ _%e139878139898%_) + (_%e139879139903%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138889138898%_ + _%block139874139883%_ '2 '#f '#f))) - (_%phi138921%_ _%e138894138918%_) - (_%e138895138923%_ + (_%phi139906%_ _%e139879139903%_) + (_%e139880139908%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138889138898%_ + _%block139874139883%_ '3 '#f '#f))) - (_%n138926%_ _%e138895138923%_) - (_%e138896138928%_ + (_%n139911%_ _%e139880139908%_) + (_%e139881139913%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138889138898%_ + _%block139874139883%_ '4 '#f '#f))) - (_%code138931%_ _%e138896138928%_)) - (_%K138892138910%_ - _%code138931%_ - _%n138926%_ - _%phi138921%_ - _%ctx138916%_)) - (_%E138891138902%_))))) - (__tmp149338 - (##structure-ref _%state138885%_ '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 __tmp149339 '() __tmp149338)))) + (__foldl1 __tmp150324 '() __tmp150323)))) (define gxc#collect-expression-refs - (lambda (_%stx138881%_) - (let ((_%ht138883%_ + (lambda (_%stx139866%_) + (let ((_%ht139868%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht138883%_ _%stx138881%_) - _%ht138883%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht139868%_ _%stx139866%_) + _%ht139868%_))) (define gxc#collect-refs-ref% - (lambda (_%self138824%_ _%stx138825%_) - (let* ((_%g138827138840%_ - (lambda (_%g138828138837%_) + (lambda (_%self139809%_ _%stx139810%_) + (let* ((_%g139812139825%_ + (lambda (_%g139813139822%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138828138837%_)))) - (_%g138826138878%_ - (lambda (_%g138828138843%_) + _%g139813139822%_)))) + (_%g139811139863%_ + (lambda (_%g139813139828%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138828138843%_)) - (let ((_%e138830138845%_ + (gx#stx-pair? _%g139813139828%_)) + (let ((_%e139815139830%_ (let () (declare (not safe)) - (gx#stx-e _%g138828138843%_)))) - (let ((_%hd138831138848%_ + (gx#stx-e _%g139813139828%_)))) + (let ((_%hd139816139833%_ (let () (declare (not safe)) - (##car _%e138830138845%_))) - (_%tl138832138850%_ + (##car _%e139815139830%_))) + (_%tl139817139835%_ (let () (declare (not safe)) - (##cdr _%e138830138845%_)))) + (##cdr _%e139815139830%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138832138850%_)) - (let ((_%e138833138853%_ + (gx#stx-pair? _%tl139817139835%_)) + (let ((_%e139818139838%_ (let () (declare (not safe)) - (gx#stx-e _%tl138832138850%_)))) - (let ((_%hd138834138856%_ + (gx#stx-e _%tl139817139835%_)))) + (let ((_%hd139819139841%_ (let () (declare (not safe)) - (##car _%e138833138853%_))) - (_%tl138835138858%_ + (##car _%e139818139838%_))) + (_%tl139820139843%_ (let () (declare (not safe)) - (##cdr _%e138833138853%_)))) + (##cdr _%e139818139838%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138835138858%_)) - ((lambda (_%L138861%_) - (let* ((_%bind138873%_ + (gx#stx-null? _%tl139820139843%_)) + ((lambda (_%L139846%_) + (let* ((_%bind139858%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138861%_))) - (_%eid138875%_ - (if _%bind138873%_ + _%L139846%_))) + (_%eid139860%_ + (if _%bind139858%_ (##structure-ref - _%bind138873%_ + _%bind139858%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L138861%_)))) - (__tmp149340 + _%L139846%_)))) + (__tmp150325 (let () (declare (not safe)) (slot-ref__0 - _%self138824%_ + _%self139809%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149340 - _%eid138875%_ - _%eid138875%_))) - _%hd138834138856%_) - (_%g138827138840%_ _%g138828138843%_)))) - (_%g138827138840%_ _%g138828138843%_)))) - (_%g138827138840%_ _%g138828138843%_))))) - (_%g138826138878%_ _%stx138825%_)))) + __tmp150325 + _%eid139860%_ + _%eid139860%_))) + _%hd139819139841%_) + (_%g139812139825%_ _%g139813139828%_)))) + (_%g139812139825%_ _%g139813139828%_)))) + (_%g139812139825%_ _%g139813139828%_))))) + (_%g139811139863%_ _%stx139810%_)))) (define gxc#collect-refs-setq% - (lambda (_%self138751%_ _%stx138752%_) - (let* ((_%g138754138771%_ - (lambda (_%g138755138768%_) + (lambda (_%self139736%_ _%stx139737%_) + (let* ((_%g139739139756%_ + (lambda (_%g139740139753%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138755138768%_)))) - (_%g138753138821%_ - (lambda (_%g138755138774%_) + _%g139740139753%_)))) + (_%g139738139806%_ + (lambda (_%g139740139759%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138755138774%_)) - (let ((_%e138758138776%_ + (gx#stx-pair? _%g139740139759%_)) + (let ((_%e139743139761%_ (let () (declare (not safe)) - (gx#stx-e _%g138755138774%_)))) - (let ((_%hd138759138779%_ + (gx#stx-e _%g139740139759%_)))) + (let ((_%hd139744139764%_ (let () (declare (not safe)) - (##car _%e138758138776%_))) - (_%tl138760138781%_ + (##car _%e139743139761%_))) + (_%tl139745139766%_ (let () (declare (not safe)) - (##cdr _%e138758138776%_)))) + (##cdr _%e139743139761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138760138781%_)) - (let ((_%e138761138784%_ + (gx#stx-pair? _%tl139745139766%_)) + (let ((_%e139746139769%_ (let () (declare (not safe)) - (gx#stx-e _%tl138760138781%_)))) - (let ((_%hd138762138787%_ + (gx#stx-e _%tl139745139766%_)))) + (let ((_%hd139747139772%_ (let () (declare (not safe)) - (##car _%e138761138784%_))) - (_%tl138763138789%_ + (##car _%e139746139769%_))) + (_%tl139748139774%_ (let () (declare (not safe)) - (##cdr _%e138761138784%_)))) + (##cdr _%e139746139769%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138763138789%_)) - (let ((_%e138764138792%_ + (gx#stx-pair? _%tl139748139774%_)) + (let ((_%e139749139777%_ (let () (declare (not safe)) - (gx#stx-e _%tl138763138789%_)))) - (let ((_%hd138765138795%_ + (gx#stx-e _%tl139748139774%_)))) + (let ((_%hd139750139780%_ (let () (declare (not safe)) - (##car _%e138764138792%_))) - (_%tl138766138797%_ + (##car _%e139749139777%_))) + (_%tl139751139782%_ (let () (declare (not safe)) - (##cdr _%e138764138792%_)))) + (##cdr _%e139749139777%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138766138797%_)) - ((lambda (_%L138800%_ - _%L138801%_) - (let* ((_%bind138816%_ + _%tl139751139782%_)) + ((lambda (_%L139785%_ + _%L139786%_) + (let* ((_%bind139801%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138801%_))) - (_%eid138818%_ - (if _%bind138816%_ + _%L139786%_))) + (_%eid139803%_ + (if _%bind139801%_ (##structure-ref - _%bind138816%_ + _%bind139801%_ '1 gx#binding::t '#f) @@ -14923,382 +14923,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L138801%_))))) + (gx#stx-e _%L139786%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp149341 + (let ((__tmp150326 (let () (declare (not safe)) (slot-ref__0 - _%self138751%_ + _%self139736%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149341 - _%eid138818%_ - _%eid138818%_)) + __tmp150326 + _%eid139803%_ + _%eid139803%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138751%_ - _%L138800%_)))) - _%hd138765138795%_ - _%hd138762138787%_) - (_%g138754138771%_ - _%g138755138774%_)))) - (_%g138754138771%_ _%g138755138774%_)))) - (_%g138754138771%_ _%g138755138774%_)))) - (_%g138754138771%_ _%g138755138774%_))))) - (_%g138753138821%_ _%stx138752%_)))) + _%self139736%_ + _%L139785%_)))) + _%hd139750139780%_ + _%hd139747139772%_) + (_%g139739139756%_ + _%g139740139759%_)))) + (_%g139739139756%_ _%g139740139759%_)))) + (_%g139739139756%_ _%g139740139759%_)))) + (_%g139739139756%_ _%g139740139759%_))))) + (_%g139738139806%_ _%stx139737%_)))) (define gxc#find-runtime-begin% - (lambda (_%self138708%_ _%stx138709%_) - (let* ((_%g138711138721%_ - (lambda (_%g138712138718%_) + (lambda (_%self139693%_ _%stx139694%_) + (let* ((_%g139696139706%_ + (lambda (_%g139697139703%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138712138718%_)))) - (_%g138710138748%_ - (lambda (_%g138712138724%_) + _%g139697139703%_)))) + (_%g139695139733%_ + (lambda (_%g139697139709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138712138724%_)) - (let ((_%e138714138726%_ + (gx#stx-pair? _%g139697139709%_)) + (let ((_%e139699139711%_ (let () (declare (not safe)) - (gx#stx-e _%g138712138724%_)))) - (let ((_%hd138715138729%_ + (gx#stx-e _%g139697139709%_)))) + (let ((_%hd139700139714%_ (let () (declare (not safe)) - (##car _%e138714138726%_))) - (_%tl138716138731%_ + (##car _%e139699139711%_))) + (_%tl139701139716%_ (let () (declare (not safe)) - (##cdr _%e138714138726%_)))) - ((lambda (_%L138734%_) - (let ((__tmp149342 - (lambda (_%g138743138745%_) + (##cdr _%e139699139711%_)))) + ((lambda (_%L139719%_) + (let ((__tmp150327 + (lambda (_%g139728139730%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138708%_ - _%g138743138745%_))))) + _%self139693%_ + _%g139728139730%_))))) (declare (not safe)) - (__ormap1 __tmp149342 _%L138734%_))) - _%tl138716138731%_))) - (_%g138711138721%_ _%g138712138724%_))))) - (_%g138710138748%_ _%stx138709%_)))) + (__ormap1 __tmp150327 _%L139719%_))) + _%tl139701139716%_))) + (_%g139696139706%_ _%g139697139709%_))))) + (_%g139695139733%_ _%stx139694%_)))) (define gxc#count-values-single% - (lambda (_%self138705%_ _%stx138706%_) '1)) + (lambda (_%self139690%_ _%stx139691%_) '1)) (define gxc#count-values-call% - (lambda (_%self138571%_ _%stx138572%_) - (let* ((_%__stx149085149086%_ _%stx138572%_) - (_%g138575138604%_ + (lambda (_%self139556%_ _%stx139557%_) + (let* ((_%__stx150070150071%_ _%stx139557%_) + (_%g139560139589%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx149085149086%_))))) - (let ((_%__kont149087149088%_ - (lambda (_%L138672%_ _%L138673%_) - (length (let ((__tmp149343 - (lambda (_%g138694138697%_ _%g138695138699%_) - (cons _%g138694138697%_ - _%g138695138699%_)))) + _%__stx150070150071%_))))) + (let ((_%__kont150072150073%_ + (lambda (_%L139657%_ _%L139658%_) + (length (let ((__tmp150328 + (lambda (_%g139679139682%_ _%g139680139684%_) + (cons _%g139679139682%_ + _%g139680139684%_)))) (declare (not safe)) - (__foldr1 __tmp149343 '() _%L138672%_))))) - (_%__kont149091149092%_ (lambda () '#f))) - (let ((_%__match149130149131%_ - (lambda (_%e138579138616%_ - _%hd138580138619%_ - _%tl138581138621%_ - _%e138582138624%_ - _%hd138583138627%_ - _%tl138584138629%_ - _%e138585138632%_ - _%hd138586138635%_ - _%tl138587138637%_ - _%e138588138640%_ - _%hd138589138643%_ - _%tl138590138645%_ - _%__splice149089149090%_ - _%target138591138648%_ - _%tl138593138650%_) - (letrec ((_%loop138594138653%_ - (lambda (_%hd138592138656%_ - _%rand138598138658%_) + (__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? _%hd138592138656%_)) - (let ((_%e138595138661%_ + (gx#stx-pair? _%hd139577139641%_)) + (let ((_%e139580139646%_ (let () (declare (not safe)) - (gx#stx-e _%hd138592138656%_)))) - (let ((_%lp-tl138597138666%_ + (gx#stx-e _%hd139577139641%_)))) + (let ((_%lp-tl139582139651%_ (let () (declare (not safe)) - (##cdr _%e138595138661%_))) - (_%lp-hd138596138664%_ + (##cdr _%e139580139646%_))) + (_%lp-hd139581139649%_ (let () (declare (not safe)) - (##car _%e138595138661%_)))) - (_%loop138594138653%_ - _%lp-tl138597138666%_ - (cons _%lp-hd138596138664%_ - _%rand138598138658%_)))) - (let ((_%rand138599138669%_ - (reverse _%rand138598138658%_))) - (let ((_%L138672%_ _%rand138599138669%_) - (_%L138673%_ _%hd138589138643%_)) + (##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=? - _%L138673%_ + _%L139658%_ 'values)) - (_%__kont149087149088%_ - _%L138672%_ - _%L138673%_) - (_%__kont149091149092%_)))))))) - (_%loop138594138653%_ _%target138591138648%_ '()))))) + (_%__kont150072150073%_ + _%L139657%_ + _%L139658%_) + (_%__kont150076150077%_)))))))) + (_%loop139579139638%_ _%target139576139633%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx149085149086%_)) - (let ((_%e138579138616%_ + (gx#stx-pair? _%__stx150070150071%_)) + (let ((_%e139564139601%_ (let () (declare (not safe)) - (gx#stx-e _%__stx149085149086%_)))) - (let ((_%tl138581138621%_ + (gx#stx-e _%__stx150070150071%_)))) + (let ((_%tl139566139606%_ (let () (declare (not safe)) - (##cdr _%e138579138616%_))) - (_%hd138580138619%_ + (##cdr _%e139564139601%_))) + (_%hd139565139604%_ (let () (declare (not safe)) - (##car _%e138579138616%_)))) + (##car _%e139564139601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138581138621%_)) - (let ((_%e138582138624%_ + (gx#stx-pair? _%tl139566139606%_)) + (let ((_%e139567139609%_ (let () (declare (not safe)) - (gx#stx-e _%tl138581138621%_)))) - (let ((_%tl138584138629%_ + (gx#stx-e _%tl139566139606%_)))) + (let ((_%tl139569139614%_ (let () (declare (not safe)) - (##cdr _%e138582138624%_))) - (_%hd138583138627%_ + (##cdr _%e139567139609%_))) + (_%hd139568139612%_ (let () (declare (not safe)) - (##car _%e138582138624%_)))) + (##car _%e139567139609%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138583138627%_)) - (let ((_%e138585138632%_ + (gx#stx-pair? _%hd139568139612%_)) + (let ((_%e139570139617%_ (let () (declare (not safe)) - (gx#stx-e _%hd138583138627%_)))) - (let ((_%tl138587138637%_ + (gx#stx-e _%hd139568139612%_)))) + (let ((_%tl139572139622%_ (let () (declare (not safe)) - (##cdr _%e138585138632%_))) - (_%hd138586138635%_ + (##cdr _%e139570139617%_))) + (_%hd139571139620%_ (let () (declare (not safe)) - (##car _%e138585138632%_)))) + (##car _%e139570139617%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138586138635%_)) + _%hd139571139620%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138586138635%_)) + _%hd139571139620%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138587138637%_)) - (let ((_%e138588138640%_ + _%tl139572139622%_)) + (let ((_%e139573139625%_ (let () (declare (not safe)) (gx#stx-e - _%tl138587138637%_)))) - (let ((_%tl138590138645%_ + _%tl139572139622%_)))) + (let ((_%tl139575139630%_ (let () (declare (not safe)) - (##cdr _%e138588138640%_))) - (_%hd138589138643%_ + (##cdr _%e139573139625%_))) + (_%hd139574139628%_ (let () (declare (not safe)) - (##car _%e138588138640%_)))) + (##car _%e139573139625%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138590138645%_)) + _%tl139575139630%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl138584138629%_)) - (let ((_%__splice149089149090%_ + (gx#stx-pair/null? _%tl139569139614%_)) + (let ((_%__splice150074150075%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138584138629%_ + _%tl139569139614%_ '0)))) - (let ((_%tl138593138650%_ + (let ((_%tl139578139635%_ (let () (declare (not safe)) - (##vector-ref _%__splice149089149090%_ '1))) - (_%target138591138648%_ + (##vector-ref _%__splice150074150075%_ '1))) + (_%target139576139633%_ (let () (declare (not safe)) - (##vector-ref _%__splice149089149090%_ '0)))) + (##vector-ref _%__splice150074150075%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138593138650%_)) - (_%__match149130149131%_ - _%e138579138616%_ - _%hd138580138619%_ - _%tl138581138621%_ - _%e138582138624%_ - _%hd138583138627%_ - _%tl138584138629%_ - _%e138585138632%_ - _%hd138586138635%_ - _%tl138587138637%_ - _%e138588138640%_ - _%hd138589138643%_ - _%tl138590138645%_ - _%__splice149089149090%_ - _%target138591138648%_ - _%tl138593138650%_) - (_%__kont149091149092%_)))) - (_%__kont149091149092%_)) - (_%__kont149091149092%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont149091149092%_)) - (_%__kont149091149092%_)) - (_%__kont149091149092%_)))) - (_%__kont149091149092%_)))) - (_%__kont149091149092%_)))) - (_%__kont149091149092%_))))))) + (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 (_%self138474%_ _%stx138475%_) - (let* ((_%g138477138498%_ - (lambda (_%g138478138495%_) + (lambda (_%self139459%_ _%stx139460%_) + (let* ((_%g139462139483%_ + (lambda (_%g139463139480%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138478138495%_)))) - (_%g138476138568%_ - (lambda (_%g138478138501%_) + _%g139463139480%_)))) + (_%g139461139553%_ + (lambda (_%g139463139486%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138478138501%_)) - (let ((_%e138482138503%_ + (gx#stx-pair? _%g139463139486%_)) + (let ((_%e139467139488%_ (let () (declare (not safe)) - (gx#stx-e _%g138478138501%_)))) - (let ((_%hd138483138506%_ + (gx#stx-e _%g139463139486%_)))) + (let ((_%hd139468139491%_ (let () (declare (not safe)) - (##car _%e138482138503%_))) - (_%tl138484138508%_ + (##car _%e139467139488%_))) + (_%tl139469139493%_ (let () (declare (not safe)) - (##cdr _%e138482138503%_)))) + (##cdr _%e139467139488%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138484138508%_)) - (let ((_%e138485138511%_ + (gx#stx-pair? _%tl139469139493%_)) + (let ((_%e139470139496%_ (let () (declare (not safe)) - (gx#stx-e _%tl138484138508%_)))) - (let ((_%hd138486138514%_ + (gx#stx-e _%tl139469139493%_)))) + (let ((_%hd139471139499%_ (let () (declare (not safe)) - (##car _%e138485138511%_))) - (_%tl138487138516%_ + (##car _%e139470139496%_))) + (_%tl139472139501%_ (let () (declare (not safe)) - (##cdr _%e138485138511%_)))) + (##cdr _%e139470139496%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138487138516%_)) - (let ((_%e138488138519%_ + (gx#stx-pair? _%tl139472139501%_)) + (let ((_%e139473139504%_ (let () (declare (not safe)) - (gx#stx-e _%tl138487138516%_)))) - (let ((_%hd138489138522%_ + (gx#stx-e _%tl139472139501%_)))) + (let ((_%hd139474139507%_ (let () (declare (not safe)) - (##car _%e138488138519%_))) - (_%tl138490138524%_ + (##car _%e139473139504%_))) + (_%tl139475139509%_ (let () (declare (not safe)) - (##cdr _%e138488138519%_)))) + (##cdr _%e139473139504%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138490138524%_)) - (let ((_%e138491138527%_ + _%tl139475139509%_)) + (let ((_%e139476139512%_ (let () (declare (not safe)) (gx#stx-e - _%tl138490138524%_)))) - (let ((_%hd138492138530%_ + _%tl139475139509%_)))) + (let ((_%hd139477139515%_ (let () (declare (not safe)) - (##car _%e138491138527%_))) - (_%tl138493138532%_ + (##car _%e139476139512%_))) + (_%tl139478139517%_ (let () (declare (not safe)) - (##cdr _%e138491138527%_)))) + (##cdr _%e139476139512%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138493138532%_)) - ((lambda (_%L138535%_ - _%L138536%_ - _%L138537%_) - (let ((_%c1138554138556%_ + _%tl139478139517%_)) + ((lambda (_%L139520%_ + _%L139521%_ + _%L139522%_) + (let ((_%c1139539139541%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self138474%_ _%L138536%_)))) - (if _%c1138554138556%_ - (let* ((_%c1138559%_ _%c1138554138556%_) - (_%c2138560138562%_ + (gxc#compile-e__1 _%self139459%_ _%L139521%_)))) + (if _%c1139539139541%_ + (let* ((_%c1139544%_ _%c1139539139541%_) + (_%c2139545139547%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self138474%_ - _%L138535%_)))) - (if _%c2138560138562%_ - (let ((_%c2138565%_ _%c2138560138562%_)) - (if (fx= _%c1138559%_ _%c2138565%_) - _%c1138559%_ + _%self139459%_ + _%L139520%_)))) + (if _%c2139545139547%_ + (let ((_%c2139550%_ _%c2139545139547%_)) + (if (fx= _%c1139544%_ _%c2139550%_) + _%c1139544%_ '#f)) '#f)) '#f))) - _%hd138492138530%_ - _%hd138489138522%_ - _%hd138486138514%_) - (_%g138477138498%_ _%g138478138501%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138477138498%_ - _%g138478138501%_)))) - (_%g138477138498%_ _%g138478138501%_)))) - (_%g138477138498%_ _%g138478138501%_)))) - (_%g138477138498%_ _%g138478138501%_))))) - (_%g138476138568%_ _%stx138475%_)))))) + _%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 6b4f95f92..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]#_g149345_| + (define |gxc[1]#_g150330_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149347_| + (define |gxc[1]#_g150332_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149349_| + (define |gxc[1]#_g150334_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149351_| + (define |gxc[1]#_g150336_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149354_| + (define |gxc[1]#_g150339_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149356_| + (define |gxc[1]#_g150341_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149358_| + (define |gxc[1]#_g150343_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149360_| + (define |gxc[1]#_g150345_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149362_| + (define |gxc[1]#_g150347_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149364_| + (define |gxc[1]#_g150349_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149366_| + (define |gxc[1]#_g150351_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149368_| + (define |gxc[1]#_g150353_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149370_| + (define |gxc[1]#_g150355_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149372_| + (define |gxc[1]#_g150357_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149374_| + (define |gxc[1]#_g150359_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149376_| + (define |gxc[1]#_g150361_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149378_| + (define |gxc[1]#_g150363_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149380_| + (define |gxc[1]#_g150365_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149382_| + (define |gxc[1]#_g150367_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149384_| + (define |gxc[1]#_g150369_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149386_| + (define |gxc[1]#_g150371_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149388_| + (define |gxc[1]#_g150373_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149390_| + (define |gxc[1]#_g150375_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149392_| + (define |gxc[1]#_g150377_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149394_| + (define |gxc[1]#_g150379_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149396_| + (define |gxc[1]#_g150381_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149398_| + (define |gxc[1]#_g150383_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149400_| + (define |gxc[1]#_g150385_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149402_| + (define |gxc[1]#_g150387_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149405_| + (define |gxc[1]#_g150390_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149407_| + (define |gxc[1]#_g150392_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149409_| + (define |gxc[1]#_g150394_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149411_| + (define |gxc[1]#_g150396_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149413_| + (define |gxc[1]#_g150398_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149415_| + (define |gxc[1]#_g150400_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149417_| + (define |gxc[1]#_g150402_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149419_| + (define |gxc[1]#_g150404_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149421_| + (define |gxc[1]#_g150406_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149423_| + (define |gxc[1]#_g150408_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149425_| + (define |gxc[1]#_g150410_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149427_| + (define |gxc[1]#_g150412_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149429_| + (define |gxc[1]#_g150414_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149431_| + (define |gxc[1]#_g150416_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149433_| + (define |gxc[1]#_g150418_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149435_| + (define |gxc[1]#_g150420_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149437_| + (define |gxc[1]#_g150422_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149439_| + (define |gxc[1]#_g150424_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149441_| + (define |gxc[1]#_g150426_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149443_| + (define |gxc[1]#_g150428_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149445_| + (define |gxc[1]#_g150430_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149447_| + (define |gxc[1]#_g150432_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149449_| + (define |gxc[1]#_g150434_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149451_| + (define |gxc[1]#_g150436_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149453_| + (define |gxc[1]#_g150438_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149455_| + (define |gxc[1]#_g150440_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149457_| + (define |gxc[1]#_g150442_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149459_| + (define |gxc[1]#_g150444_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149461_| + (define |gxc[1]#_g150446_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149466_| + (define |gxc[1]#_g150451_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149468_| + (define |gxc[1]#_g150453_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149470_| + (define |gxc[1]#_g150455_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149472_| + (define |gxc[1]#_g150457_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149473_| + (define |gxc[1]#_g150458_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149474_| + (define |gxc[1]#_g150459_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149475_| + (define |gxc[1]#_g150460_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149477_| + (define |gxc[1]#_g150462_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149478_| + (define |gxc[1]#_g150463_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149479_| + (define |gxc[1]#_g150464_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149480_| + (define |gxc[1]#_g150465_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149482_| + (define |gxc[1]#_g150467_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149483_| + (define |gxc[1]#_g150468_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149484_| + (define |gxc[1]#_g150469_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149485_| + (define |gxc[1]#_g150470_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149487_| + (define |gxc[1]#_g150472_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149488_| + (define |gxc[1]#_g150473_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149489_| + (define |gxc[1]#_g150474_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149490_| + (define |gxc[1]#_g150475_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149492_| + (define |gxc[1]#_g150477_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149494_| + (define |gxc[1]#_g150479_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149496_| + (define |gxc[1]#_g150481_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149498_| + (define |gxc[1]#_g150483_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149499_| + (define |gxc[1]#_g150484_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149500_| + (define |gxc[1]#_g150485_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149501_| + (define |gxc[1]#_g150486_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149503_| + (define |gxc[1]#_g150488_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149504_| + (define |gxc[1]#_g150489_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149505_| + (define |gxc[1]#_g150490_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149506_| + (define |gxc[1]#_g150491_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149508_| + (define |gxc[1]#_g150493_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149509_| + (define |gxc[1]#_g150494_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149510_| + (define |gxc[1]#_g150495_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149511_| + (define |gxc[1]#_g150496_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149513_| + (define |gxc[1]#_g150498_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149514_| + (define |gxc[1]#_g150499_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149515_| + (define |gxc[1]#_g150500_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149516_| + (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 ((__obj149132 + (let ((__obj150117 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149132 + __obj150117 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149132 + __obj150117 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '6 '#f '#f)) - (let ((__tmp149344 (cons |gxc[1]#_g149345_| '()))) + (##unchecked-structure-set! __obj150117 '() '6 '#f '#f)) + (let ((__tmp150329 (cons |gxc[1]#_g150330_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149132 __tmp149344 '3 '#f '#f)) + (##unchecked-structure-set! __obj150117 __tmp150329 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150117 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150117 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150117 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '#f '11 '#f '#f)) - (let ((__tmp149346 |gxc[1]#_g149347_|)) + (##unchecked-structure-set! __obj150117 '#f '11 '#f '#f)) + (let ((__tmp150331 |gxc[1]#_g150332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149132 __tmp149346 '12 '#f '#f)) - (let ((__tmp149348 |gxc[1]#_g149349_|)) + (##unchecked-structure-set! __obj150117 __tmp150331 '12 '#f '#f)) + (let ((__tmp150333 |gxc[1]#_g150334_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149132 __tmp149348 '13 '#f '#f)) - (let ((__tmp149350 |gxc[1]#_g149351_|)) + (##unchecked-structure-set! __obj150117 __tmp150333 '13 '#f '#f)) + (let ((__tmp150335 |gxc[1]#_g150336_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149132 __tmp149350 '14 '#f '#f)) + (##unchecked-structure-set! __obj150117 __tmp150335 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149132 '() '20 '#f '#f)) - __obj149132)) + (##unchecked-structure-set! __obj150117 '() '20 '#f '#f)) + __obj150117)) (define |gxc[:0:]#::lift-modules| - (let ((__obj149134 + (let ((__obj150119 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149134 + __obj150119 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj150119 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj150119 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '(modules) '6 '#f '#f)) - (let ((__tmp149352 (cons |gxc[1]#_g149345_| '()))) + (##unchecked-structure-set! __obj150119 '(modules) '6 '#f '#f)) + (let ((__tmp150337 (cons |gxc[1]#_g150330_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149352 '3 '#f '#f)) + (##unchecked-structure-set! __obj150119 __tmp150337 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150119 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150119 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150119 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '#f '11 '#f '#f)) - (let ((__tmp149353 |gxc[1]#_g149354_|)) + (##unchecked-structure-set! __obj150119 '#f '11 '#f '#f)) + (let ((__tmp150338 |gxc[1]#_g150339_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149353 '12 '#f '#f)) - (let ((__tmp149355 |gxc[1]#_g149356_|)) + (##unchecked-structure-set! __obj150119 __tmp150338 '12 '#f '#f)) + (let ((__tmp150340 |gxc[1]#_g150341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149355 '13 '#f '#f)) - (let ((__tmp149357 |gxc[1]#_g149358_|)) + (##unchecked-structure-set! __obj150119 __tmp150340 '13 '#f '#f)) + (let ((__tmp150342 |gxc[1]#_g150343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149357 '14 '#f '#f)) - (let ((__tmp149359 (cons (cons 'modules |gxc[1]#_g149360_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150342 '14 '#f '#f)) + (let ((__tmp150344 (cons (cons 'modules |gxc[1]#_g150345_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149359 '15 '#f '#f)) - (let ((__tmp149361 (cons (cons 'modules |gxc[1]#_g149362_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150344 '15 '#f '#f)) + (let ((__tmp150346 (cons (cons 'modules |gxc[1]#_g150347_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149361 '16 '#f '#f)) - (let ((__tmp149363 (cons (cons 'modules |gxc[1]#_g149364_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150346 '16 '#f '#f)) + (let ((__tmp150348 (cons (cons 'modules |gxc[1]#_g150349_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149363 '17 '#f '#f)) - (let ((__tmp149365 (cons (cons 'modules |gxc[1]#_g149366_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150348 '17 '#f '#f)) + (let ((__tmp150350 (cons (cons 'modules |gxc[1]#_g150351_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149134 __tmp149365 '18 '#f '#f)) + (##unchecked-structure-set! __obj150119 __tmp150350 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150119 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150119 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149134 '() '20 '#f '#f)) - __obj149134)) + (##unchecked-structure-set! __obj150119 '() '20 '#f '#f)) + __obj150119)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj149136 + (let ((__obj150121 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149136 + __obj150121 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149136 + __obj150121 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150121 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150121 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150121 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '#f '11 '#f '#f)) - (let ((__tmp149367 |gxc[1]#_g149368_|)) + (##unchecked-structure-set! __obj150121 '#f '11 '#f '#f)) + (let ((__tmp150352 |gxc[1]#_g150353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149136 __tmp149367 '12 '#f '#f)) - (let ((__tmp149369 |gxc[1]#_g149370_|)) + (##unchecked-structure-set! __obj150121 __tmp150352 '12 '#f '#f)) + (let ((__tmp150354 |gxc[1]#_g150355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149136 __tmp149369 '13 '#f '#f)) - (let ((__tmp149371 |gxc[1]#_g149372_|)) + (##unchecked-structure-set! __obj150121 __tmp150354 '13 '#f '#f)) + (let ((__tmp150356 |gxc[1]#_g150357_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149136 __tmp149371 '14 '#f '#f)) + (##unchecked-structure-set! __obj150121 __tmp150356 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149136 '() '20 '#f '#f)) - __obj149136)) + (##unchecked-structure-set! __obj150121 '() '20 '#f '#f)) + __obj150121)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj149138 + (let ((__obj150123 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149138 + __obj150123 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149138 + __obj150123 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '6 '#f '#f)) - (let ((__tmp149373 (cons |gxc[1]#_g149374_| '()))) + (##unchecked-structure-set! __obj150123 '() '6 '#f '#f)) + (let ((__tmp150358 (cons |gxc[1]#_g150359_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149138 __tmp149373 '3 '#f '#f)) + (##unchecked-structure-set! __obj150123 __tmp150358 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150123 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150123 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150123 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '#f '11 '#f '#f)) - (let ((__tmp149375 |gxc[1]#_g149376_|)) + (##unchecked-structure-set! __obj150123 '#f '11 '#f '#f)) + (let ((__tmp150360 |gxc[1]#_g150361_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149138 __tmp149375 '12 '#f '#f)) - (let ((__tmp149377 |gxc[1]#_g149378_|)) + (##unchecked-structure-set! __obj150123 __tmp150360 '12 '#f '#f)) + (let ((__tmp150362 |gxc[1]#_g150363_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149138 __tmp149377 '13 '#f '#f)) - (let ((__tmp149379 |gxc[1]#_g149380_|)) + (##unchecked-structure-set! __obj150123 __tmp150362 '13 '#f '#f)) + (let ((__tmp150364 |gxc[1]#_g150365_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149138 __tmp149379 '14 '#f '#f)) + (##unchecked-structure-set! __obj150123 __tmp150364 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149138 '() '20 '#f '#f)) - __obj149138)) + (##unchecked-structure-set! __obj150123 '() '20 '#f '#f)) + __obj150123)) (define |gxc[:0:]#::count-values| - (let ((__obj149140 + (let ((__obj150125 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149140 + __obj150125 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj150125 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '6 '#f '#f)) - (let ((__tmp149381 (cons |gxc[1]#_g149382_| '()))) + (##unchecked-structure-set! __obj150125 '() '6 '#f '#f)) + (let ((__tmp150366 (cons |gxc[1]#_g150367_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149140 __tmp149381 '3 '#f '#f)) + (##unchecked-structure-set! __obj150125 __tmp150366 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150125 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150125 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150125 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '#f '11 '#f '#f)) - (let ((__tmp149383 |gxc[1]#_g149384_|)) + (##unchecked-structure-set! __obj150125 '#f '11 '#f '#f)) + (let ((__tmp150368 |gxc[1]#_g150369_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149140 __tmp149383 '12 '#f '#f)) - (let ((__tmp149385 |gxc[1]#_g149386_|)) + (##unchecked-structure-set! __obj150125 __tmp150368 '12 '#f '#f)) + (let ((__tmp150370 |gxc[1]#_g150371_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149140 __tmp149385 '13 '#f '#f)) - (let ((__tmp149387 |gxc[1]#_g149388_|)) + (##unchecked-structure-set! __obj150125 __tmp150370 '13 '#f '#f)) + (let ((__tmp150372 |gxc[1]#_g150373_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149140 __tmp149387 '14 '#f '#f)) + (##unchecked-structure-set! __obj150125 __tmp150372 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149140 '() '20 '#f '#f)) - __obj149140)) + (##unchecked-structure-set! __obj150125 '() '20 '#f '#f)) + __obj150125)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj149142 + (let ((__obj150127 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149142 + __obj150127 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149142 + __obj150127 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150127 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150127 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150127 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '#f '11 '#f '#f)) - (let ((__tmp149389 |gxc[1]#_g149390_|)) + (##unchecked-structure-set! __obj150127 '#f '11 '#f '#f)) + (let ((__tmp150374 |gxc[1]#_g150375_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149142 __tmp149389 '12 '#f '#f)) - (let ((__tmp149391 |gxc[1]#_g149392_|)) + (##unchecked-structure-set! __obj150127 __tmp150374 '12 '#f '#f)) + (let ((__tmp150376 |gxc[1]#_g150377_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149142 __tmp149391 '13 '#f '#f)) - (let ((__tmp149393 |gxc[1]#_g149394_|)) + (##unchecked-structure-set! __obj150127 __tmp150376 '13 '#f '#f)) + (let ((__tmp150378 |gxc[1]#_g150379_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149142 __tmp149393 '14 '#f '#f)) + (##unchecked-structure-set! __obj150127 __tmp150378 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149142 '() '20 '#f '#f)) - __obj149142)) + (##unchecked-structure-set! __obj150127 '() '20 '#f '#f)) + __obj150127)) (define |gxc[:0:]#::generate-loader| - (let ((__obj149143 + (let ((__obj150128 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149143 + __obj150128 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149143 + __obj150128 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '6 '#f '#f)) - (let ((__tmp149395 (cons |gxc[1]#_g149396_| '()))) + (##unchecked-structure-set! __obj150128 '() '6 '#f '#f)) + (let ((__tmp150380 (cons |gxc[1]#_g150381_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149143 __tmp149395 '3 '#f '#f)) + (##unchecked-structure-set! __obj150128 __tmp150380 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150128 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150128 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150128 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '#f '11 '#f '#f)) - (let ((__tmp149397 |gxc[1]#_g149398_|)) + (##unchecked-structure-set! __obj150128 '#f '11 '#f '#f)) + (let ((__tmp150382 |gxc[1]#_g150383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149143 __tmp149397 '12 '#f '#f)) - (let ((__tmp149399 |gxc[1]#_g149400_|)) + (##unchecked-structure-set! __obj150128 __tmp150382 '12 '#f '#f)) + (let ((__tmp150384 |gxc[1]#_g150385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149143 __tmp149399 '13 '#f '#f)) - (let ((__tmp149401 |gxc[1]#_g149402_|)) + (##unchecked-structure-set! __obj150128 __tmp150384 '13 '#f '#f)) + (let ((__tmp150386 |gxc[1]#_g150387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149143 __tmp149401 '14 '#f '#f)) + (##unchecked-structure-set! __obj150128 __tmp150386 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149143 '() '20 '#f '#f)) - __obj149143)) + (##unchecked-structure-set! __obj150128 '() '20 '#f '#f)) + __obj150128)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj149145 + (let ((__obj150130 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149145 + __obj150130 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149145 + __obj150130 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '6 '#f '#f)) - (let ((__tmp149403 (cons |gxc[1]#_g149396_| '()))) + (##unchecked-structure-set! __obj150130 '() '6 '#f '#f)) + (let ((__tmp150388 (cons |gxc[1]#_g150381_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149145 __tmp149403 '3 '#f '#f)) + (##unchecked-structure-set! __obj150130 __tmp150388 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150130 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150130 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150130 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '#f '11 '#f '#f)) - (let ((__tmp149404 |gxc[1]#_g149405_|)) + (##unchecked-structure-set! __obj150130 '#f '11 '#f '#f)) + (let ((__tmp150389 |gxc[1]#_g150390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149145 __tmp149404 '12 '#f '#f)) - (let ((__tmp149406 |gxc[1]#_g149407_|)) + (##unchecked-structure-set! __obj150130 __tmp150389 '12 '#f '#f)) + (let ((__tmp150391 |gxc[1]#_g150392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149145 __tmp149406 '13 '#f '#f)) - (let ((__tmp149408 |gxc[1]#_g149409_|)) + (##unchecked-structure-set! __obj150130 __tmp150391 '13 '#f '#f)) + (let ((__tmp150393 |gxc[1]#_g150394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149145 __tmp149408 '14 '#f '#f)) + (##unchecked-structure-set! __obj150130 __tmp150393 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149145 '() '20 '#f '#f)) - __obj149145)) + (##unchecked-structure-set! __obj150130 '() '20 '#f '#f)) + __obj150130)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj149147 + (let ((__obj150132 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149147 + __obj150132 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149147 + __obj150132 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '6 '#f '#f)) - (let ((__tmp149410 (cons |gxc[1]#_g149411_| '()))) + (##unchecked-structure-set! __obj150132 '() '6 '#f '#f)) + (let ((__tmp150395 (cons |gxc[1]#_g150396_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149147 __tmp149410 '3 '#f '#f)) + (##unchecked-structure-set! __obj150132 __tmp150395 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150132 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150132 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150132 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '#f '11 '#f '#f)) - (let ((__tmp149412 |gxc[1]#_g149413_|)) + (##unchecked-structure-set! __obj150132 '#f '11 '#f '#f)) + (let ((__tmp150397 |gxc[1]#_g150398_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149147 __tmp149412 '12 '#f '#f)) - (let ((__tmp149414 |gxc[1]#_g149415_|)) + (##unchecked-structure-set! __obj150132 __tmp150397 '12 '#f '#f)) + (let ((__tmp150399 |gxc[1]#_g150400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149147 __tmp149414 '13 '#f '#f)) - (let ((__tmp149416 |gxc[1]#_g149417_|)) + (##unchecked-structure-set! __obj150132 __tmp150399 '13 '#f '#f)) + (let ((__tmp150401 |gxc[1]#_g150402_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149147 __tmp149416 '14 '#f '#f)) + (##unchecked-structure-set! __obj150132 __tmp150401 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149147 '() '20 '#f '#f)) - __obj149147)) + (##unchecked-structure-set! __obj150132 '() '20 '#f '#f)) + __obj150132)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj149149 + (let ((__obj150134 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149149 + __obj150134 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149149 + __obj150134 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj150134 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj150134 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150134 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150134 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150134 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150134 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '#f '11 '#f '#f)) - (let ((__tmp149418 |gxc[1]#_g149419_|)) + (##unchecked-structure-set! __obj150134 '#f '11 '#f '#f)) + (let ((__tmp150403 |gxc[1]#_g150404_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149149 __tmp149418 '12 '#f '#f)) - (let ((__tmp149420 |gxc[1]#_g149421_|)) + (##unchecked-structure-set! __obj150134 __tmp150403 '12 '#f '#f)) + (let ((__tmp150405 |gxc[1]#_g150406_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149149 __tmp149420 '13 '#f '#f)) - (let ((__tmp149422 |gxc[1]#_g149423_|)) + (##unchecked-structure-set! __obj150134 __tmp150405 '13 '#f '#f)) + (let ((__tmp150407 |gxc[1]#_g150408_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149149 __tmp149422 '14 '#f '#f)) - (let ((__tmp149424 (cons (cons 'table |gxc[1]#_g149425_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150407 '14 '#f '#f)) + (let ((__tmp150409 (cons (cons 'table |gxc[1]#_g150410_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149149 __tmp149424 '15 '#f '#f)) - (let ((__tmp149426 (cons (cons 'table |gxc[1]#_g149427_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150409 '15 '#f '#f)) + (let ((__tmp150411 (cons (cons 'table |gxc[1]#_g150412_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149149 __tmp149426 '16 '#f '#f)) - (let ((__tmp149428 (cons (cons 'table |gxc[1]#_g149429_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150411 '16 '#f '#f)) + (let ((__tmp150413 (cons (cons 'table |gxc[1]#_g150414_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149149 __tmp149428 '17 '#f '#f)) - (let ((__tmp149430 (cons (cons 'table |gxc[1]#_g149431_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150413 '17 '#f '#f)) + (let ((__tmp150415 (cons (cons 'table |gxc[1]#_g150416_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149149 __tmp149430 '18 '#f '#f)) + (##unchecked-structure-set! __obj150134 __tmp150415 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150134 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150134 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149149 '() '20 '#f '#f)) - __obj149149)) + (##unchecked-structure-set! __obj150134 '() '20 '#f '#f)) + __obj150134)) (define |gxc[:0:]#::generate-meta| - (let ((__obj149151 + (let ((__obj150136 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149151 + __obj150136 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj150136 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj150136 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '(state) '6 '#f '#f)) - (let ((__tmp149432 (cons |gxc[1]#_g149433_| '()))) + (##unchecked-structure-set! __obj150136 '(state) '6 '#f '#f)) + (let ((__tmp150417 (cons |gxc[1]#_g150418_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149432 '3 '#f '#f)) + (##unchecked-structure-set! __obj150136 __tmp150417 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150136 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150136 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150136 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '#f '11 '#f '#f)) - (let ((__tmp149434 |gxc[1]#_g149435_|)) + (##unchecked-structure-set! __obj150136 '#f '11 '#f '#f)) + (let ((__tmp150419 |gxc[1]#_g150420_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149434 '12 '#f '#f)) - (let ((__tmp149436 |gxc[1]#_g149437_|)) + (##unchecked-structure-set! __obj150136 __tmp150419 '12 '#f '#f)) + (let ((__tmp150421 |gxc[1]#_g150422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149436 '13 '#f '#f)) - (let ((__tmp149438 |gxc[1]#_g149439_|)) + (##unchecked-structure-set! __obj150136 __tmp150421 '13 '#f '#f)) + (let ((__tmp150423 |gxc[1]#_g150424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149438 '14 '#f '#f)) - (let ((__tmp149440 (cons (cons 'state |gxc[1]#_g149441_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150423 '14 '#f '#f)) + (let ((__tmp150425 (cons (cons 'state |gxc[1]#_g150426_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149440 '15 '#f '#f)) - (let ((__tmp149442 (cons (cons 'state |gxc[1]#_g149443_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150425 '15 '#f '#f)) + (let ((__tmp150427 (cons (cons 'state |gxc[1]#_g150428_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149442 '16 '#f '#f)) - (let ((__tmp149444 (cons (cons 'state |gxc[1]#_g149445_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150427 '16 '#f '#f)) + (let ((__tmp150429 (cons (cons 'state |gxc[1]#_g150430_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149444 '17 '#f '#f)) - (let ((__tmp149446 (cons (cons 'state |gxc[1]#_g149447_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150429 '17 '#f '#f)) + (let ((__tmp150431 (cons (cons 'state |gxc[1]#_g150432_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149151 __tmp149446 '18 '#f '#f)) + (##unchecked-structure-set! __obj150136 __tmp150431 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150136 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150136 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149151 '() '20 '#f '#f)) - __obj149151)) + (##unchecked-structure-set! __obj150136 '() '20 '#f '#f)) + __obj150136)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj149153 + (let ((__obj150138 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149153 + __obj150138 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149153 + __obj150138 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj150138 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj150138 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150138 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150138 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150138 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150138 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '#f '11 '#f '#f)) - (let ((__tmp149448 |gxc[1]#_g149449_|)) + (##unchecked-structure-set! __obj150138 '#f '11 '#f '#f)) + (let ((__tmp150433 |gxc[1]#_g150434_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149153 __tmp149448 '12 '#f '#f)) - (let ((__tmp149450 |gxc[1]#_g149451_|)) + (##unchecked-structure-set! __obj150138 __tmp150433 '12 '#f '#f)) + (let ((__tmp150435 |gxc[1]#_g150436_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149153 __tmp149450 '13 '#f '#f)) - (let ((__tmp149452 |gxc[1]#_g149453_|)) + (##unchecked-structure-set! __obj150138 __tmp150435 '13 '#f '#f)) + (let ((__tmp150437 |gxc[1]#_g150438_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149153 __tmp149452 '14 '#f '#f)) - (let ((__tmp149454 (cons (cons 'state |gxc[1]#_g149455_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150437 '14 '#f '#f)) + (let ((__tmp150439 (cons (cons 'state |gxc[1]#_g150440_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149153 __tmp149454 '15 '#f '#f)) - (let ((__tmp149456 (cons (cons 'state |gxc[1]#_g149457_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150439 '15 '#f '#f)) + (let ((__tmp150441 (cons (cons 'state |gxc[1]#_g150442_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149153 __tmp149456 '16 '#f '#f)) - (let ((__tmp149458 (cons (cons 'state |gxc[1]#_g149459_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150441 '16 '#f '#f)) + (let ((__tmp150443 (cons (cons 'state |gxc[1]#_g150444_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149153 __tmp149458 '17 '#f '#f)) - (let ((__tmp149460 (cons (cons 'state |gxc[1]#_g149461_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150443 '17 '#f '#f)) + (let ((__tmp150445 (cons (cons 'state |gxc[1]#_g150446_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149153 __tmp149460 '18 '#f '#f)) + (##unchecked-structure-set! __obj150138 __tmp150445 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150138 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150138 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149153 '() '20 '#f '#f)) - __obj149153)) + (##unchecked-structure-set! __obj150138 '() '20 '#f '#f)) + __obj150138)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx138222%_) - (let* ((_%g138226138261%_ - (lambda (_%g138227138257%_) + (lambda (_%$stx139207%_) + (let* ((_%g139211139246%_ + (lambda (_%g139212139242%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138227138257%_)))) - (_%g138225138387%_ - (lambda (_%g138227138265%_) + _%g139212139242%_)))) + (_%g139210139372%_ + (lambda (_%g139212139250%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138227138265%_)) - (let ((_%e138232138268%_ + (gx#stx-pair? _%g139212139250%_)) + (let ((_%e139217139253%_ (let () (declare (not safe)) - (gx#syntax-e _%g138227138265%_)))) - (let ((_%hd138233138272%_ + (gx#syntax-e _%g139212139250%_)))) + (let ((_%hd139218139257%_ (let () (declare (not safe)) - (##car _%e138232138268%_))) - (_%tl138234138275%_ + (##car _%e139217139253%_))) + (_%tl139219139260%_ (let () (declare (not safe)) - (##cdr _%e138232138268%_)))) + (##cdr _%e139217139253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138234138275%_)) - (let ((_%e138235138278%_ + (gx#stx-pair? _%tl139219139260%_)) + (let ((_%e139220139263%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138234138275%_)))) - (let ((_%hd138236138282%_ + (gx#syntax-e _%tl139219139260%_)))) + (let ((_%hd139221139267%_ (let () (declare (not safe)) - (##car _%e138235138278%_))) - (_%tl138237138285%_ + (##car _%e139220139263%_))) + (_%tl139222139270%_ (let () (declare (not safe)) - (##cdr _%e138235138278%_)))) + (##cdr _%e139220139263%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138236138282%_)) - (let ((_%e138238138288%_ + (gx#stx-pair? _%hd139221139267%_)) + (let ((_%e139223139273%_ (let () (declare (not safe)) (gx#syntax-e - _%hd138236138282%_)))) - (let ((_%hd138239138292%_ + _%hd139221139267%_)))) + (let ((_%hd139224139277%_ (let () (declare (not safe)) - (##car _%e138238138288%_))) - (_%tl138240138295%_ + (##car _%e139223139273%_))) + (_%tl139225139280%_ (let () (declare (not safe)) - (##cdr _%e138238138288%_)))) + (##cdr _%e139223139273%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138240138295%_)) - (let ((_%e138241138298%_ + _%tl139225139280%_)) + (let ((_%e139226139283%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138240138295%_)))) - (let ((_%hd138242138302%_ + _%tl139225139280%_)))) + (let ((_%hd139227139287%_ (let () (declare (not safe)) - (##car _%e138241138298%_))) - (_%tl138243138305%_ + (##car _%e139226139283%_))) + (_%tl139228139290%_ (let () (declare (not safe)) - (##cdr _%e138241138298%_)))) + (##cdr _%e139226139283%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138243138305%_)) - (let ((_%e138244138308%_ + _%tl139228139290%_)) + (let ((_%e139229139293%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl138243138305%_)))) - (let ((_%hd138245138312%_ - (let () (declare (not safe)) (##car _%e138244138308%_))) - (_%tl138246138315%_ + (gx#syntax-e _%tl139228139290%_)))) + (let ((_%hd139230139297%_ + (let () (declare (not safe)) (##car _%e139229139293%_))) + (_%tl139231139300%_ (let () (declare (not safe)) - (##cdr _%e138244138308%_)))) + (##cdr _%e139229139293%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138246138315%_)) + (gx#stx-null? _%tl139231139300%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl138237138285%_)) - (let ((_g149462_ + (gx#stx-pair/null? _%tl139222139270%_)) + (let ((_g150447_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138237138285%_ + _%tl139222139270%_ '0)))) (begin - (let ((_g149463_ + (let ((_g150448_ (let () (declare (not safe)) - (if (##values? _g149462_) - (##values-length _g149462_) + (if (##values? _g150447_) + (##values-length _g150447_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149463_ 2))) + (##fx= _g150448_ 2))) (error "Context expects 2 values" - _g149463_))) - (let ((_%target138247138318%_ + _g150448_))) + (let ((_%target139232139303%_ (let () (declare (not safe)) - (##values-ref _g149462_ 0))) - (_%tl138249138321%_ + (##values-ref _g150447_ 0))) + (_%tl139234139306%_ (let () (declare (not safe)) - (##values-ref _g149462_ 1)))) + (##values-ref _g150447_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138249138321%_)) - (letrec ((_%loop138250138324%_ - (lambda (_%hd138248138328%_ - _%body138254138331%_) + (gx#stx-null? _%tl139234139306%_)) + (letrec ((_%loop139235139309%_ + (lambda (_%hd139233139313%_ + _%body139239139316%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd138248138328%_)) - (let ((_%e138251138334%_ + _%hd139233139313%_)) + (let ((_%e139236139319%_ (let () (declare (not safe)) (gx#syntax-e - _%hd138248138328%_)))) - (let ((_%lp-hd138252138338%_ + _%hd139233139313%_)))) + (let ((_%lp-hd139237139323%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e138251138334%_))) - (_%lp-tl138253138341%_ - (let () (declare (not safe)) (##cdr _%e138251138334%_)))) - (_%loop138250138324%_ - _%lp-tl138253138341%_ - (cons _%lp-hd138252138338%_ _%body138254138331%_)))) + (##car _%e139236139319%_))) + (_%lp-tl139238139326%_ + (let () (declare (not safe)) (##cdr _%e139236139319%_)))) + (_%loop139235139309%_ + _%lp-tl139238139326%_ + (cons _%lp-hd139237139323%_ _%body139239139316%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body138255138344%_ - (reverse _%body138254138331%_))) - ((lambda (_%L138348%_ - _%L138350%_ - _%L138351%_ - _%L138352%_) + (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 _%L138350%_ '())) - (cons (cons _%L138352%_ + (cons _%L139335%_ '())) + (cons (cons _%L139337%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L138351%_ + (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 _%L138352%_ + (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 _%L138351%_ '()))) + (cons _%L139336%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138352%_ + (cons _%L139337%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138351%_ '()))) + (cons _%L139336%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L138352%_ '()))) + (cons _%L139337%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L138351%_ '()))) + (cons _%L139336%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp149464 - (lambda (_%g138378138381%_ - _%g138379138384%_) - (cons _%g138378138381%_ - _%g138379138384%_)))) + (let ((__tmp150449 + (lambda (_%g139363139366%_ + _%g139364139369%_) + (cons _%g139363139366%_ + _%g139364139369%_)))) (declare (not safe)) - (__foldr1 __tmp149464 '() _%L138348%_))) + (__foldr1 __tmp150449 '() _%L139333%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body138255138344%_ - _%hd138245138312%_ - _%hd138242138302%_ - _%hd138239138292%_)))))) + _%body139240139329%_ + _%hd139230139297%_ + _%hd139227139287%_ + _%hd139224139277%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop138250138324%_ - _%target138247138318%_ + (_%loop139235139309%_ + _%target139232139303%_ '())) - (_%g138226138261%_ _%g138227138265%_))))) - (_%g138226138261%_ _%g138227138265%_)) - (_%g138226138261%_ _%g138227138265%_)))) - (_%g138226138261%_ _%g138227138265%_)))) + (_%g139211139246%_ _%g139212139250%_))))) + (_%g139211139246%_ _%g139212139250%_)) + (_%g139211139246%_ _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138226138261%_ - _%g138227138265%_)))) - (_%g138226138261%_ _%g138227138265%_)))) - (_%g138226138261%_ _%g138227138265%_)))) - (_%g138226138261%_ _%g138227138265%_))))) - (_%g138225138387%_ _%$stx138222%_)))) + (_%g139211139246%_ + _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_))))) + (_%g139210139372%_ _%$stx139207%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx138392%_) - (let* ((_%g138396138414%_ - (lambda (_%g138397138410%_) + (lambda (_%$stx139377%_) + (let* ((_%g139381139399%_ + (lambda (_%g139382139395%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138397138410%_)))) - (_%g138395138469%_ - (lambda (_%g138397138418%_) + _%g139382139395%_)))) + (_%g139380139454%_ + (lambda (_%g139382139403%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138397138418%_)) - (let ((_%e138400138421%_ + (gx#stx-pair? _%g139382139403%_)) + (let ((_%e139385139406%_ (let () (declare (not safe)) - (gx#syntax-e _%g138397138418%_)))) - (let ((_%hd138401138425%_ + (gx#syntax-e _%g139382139403%_)))) + (let ((_%hd139386139410%_ (let () (declare (not safe)) - (##car _%e138400138421%_))) - (_%tl138402138428%_ + (##car _%e139385139406%_))) + (_%tl139387139413%_ (let () (declare (not safe)) - (##cdr _%e138400138421%_)))) + (##cdr _%e139385139406%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138402138428%_)) - (let ((_%e138403138431%_ + (gx#stx-pair? _%tl139387139413%_)) + (let ((_%e139388139416%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138402138428%_)))) - (let ((_%hd138404138435%_ + (gx#syntax-e _%tl139387139413%_)))) + (let ((_%hd139389139420%_ (let () (declare (not safe)) - (##car _%e138403138431%_))) - (_%tl138405138438%_ + (##car _%e139388139416%_))) + (_%tl139390139423%_ (let () (declare (not safe)) - (##cdr _%e138403138431%_)))) + (##cdr _%e139388139416%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138405138438%_)) - (let ((_%e138406138441%_ + (gx#stx-pair? _%tl139390139423%_)) + (let ((_%e139391139426%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138405138438%_)))) - (let ((_%hd138407138445%_ + _%tl139390139423%_)))) + (let ((_%hd139392139430%_ (let () (declare (not safe)) - (##car _%e138406138441%_))) - (_%tl138408138448%_ + (##car _%e139391139426%_))) + (_%tl139393139433%_ (let () (declare (not safe)) - (##cdr _%e138406138441%_)))) + (##cdr _%e139391139426%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138408138448%_)) - ((lambda (_%L138451%_ - _%L138453%_) + _%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 _%L138453%_ '())) + (cons _%L139438%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L138453%_ - (cons _%L138451%_ + (cons _%L139438%_ + (cons _%L139436%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138407138445%_ - _%hd138404138435%_) - (_%g138396138414%_ - _%g138397138418%_)))) - (_%g138396138414%_ _%g138397138418%_)))) - (_%g138396138414%_ _%g138397138418%_)))) - (_%g138396138414%_ _%g138397138418%_))))) - (_%g138395138469%_ _%$stx138392%_)))) + _%hd139392139430%_ + _%hd139389139420%_) + (_%g139381139399%_ + _%g139382139403%_)))) + (_%g139381139399%_ _%g139382139403%_)))) + (_%g139381139399%_ _%g139382139403%_)))) + (_%g139381139399%_ _%g139382139403%_))))) + (_%g139380139454%_ _%$stx139377%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj149155 + (let ((__obj150140 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149155 + __obj150140 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj150140 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149155 + __obj150140 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149155 + __obj150140 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150140 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150140 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150140 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150140 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 ':init! '11 '#f '#f)) - (let ((__tmp149465 |gxc[1]#_g149466_|)) + (##unchecked-structure-set! __obj150140 ':init! '11 '#f '#f)) + (let ((__tmp150450 |gxc[1]#_g150451_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149155 __tmp149465 '12 '#f '#f)) - (let ((__tmp149467 |gxc[1]#_g149468_|)) + (##unchecked-structure-set! __obj150140 __tmp150450 '12 '#f '#f)) + (let ((__tmp150452 |gxc[1]#_g150453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149155 __tmp149467 '13 '#f '#f)) - (let ((__tmp149469 |gxc[1]#_g149470_|)) + (##unchecked-structure-set! __obj150140 __tmp150452 '13 '#f '#f)) + (let ((__tmp150454 |gxc[1]#_g150455_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149155 __tmp149469 '14 '#f '#f)) - (let ((__tmp149471 - (cons (cons 'src |gxc[1]#_g149472_|) - (cons (cons 'n |gxc[1]#_g149473_|) - (cons (cons 'open |gxc[1]#_g149474_|) - (cons (cons 'blocks |gxc[1]#_g149475_|) + (##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! __obj149155 __tmp149471 '15 '#f '#f)) - (let ((__tmp149476 - (cons (cons 'src |gxc[1]#_g149477_|) - (cons (cons 'n |gxc[1]#_g149478_|) - (cons (cons 'open |gxc[1]#_g149479_|) - (cons (cons 'blocks |gxc[1]#_g149480_|) + (##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! __obj149155 __tmp149476 '16 '#f '#f)) - (let ((__tmp149481 - (cons (cons 'src |gxc[1]#_g149482_|) - (cons (cons 'n |gxc[1]#_g149483_|) - (cons (cons 'open |gxc[1]#_g149484_|) - (cons (cons 'blocks |gxc[1]#_g149485_|) + (##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! __obj149155 __tmp149481 '17 '#f '#f)) - (let ((__tmp149486 - (cons (cons 'src |gxc[1]#_g149487_|) - (cons (cons 'n |gxc[1]#_g149488_|) - (cons (cons 'open |gxc[1]#_g149489_|) - (cons (cons 'blocks |gxc[1]#_g149490_|) + (##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! __obj149155 __tmp149486 '18 '#f '#f)) + (##unchecked-structure-set! __obj150140 __tmp150471 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150140 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150140 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149155 '() '20 '#f '#f)) - __obj149155)) + (##unchecked-structure-set! __obj150140 '() '20 '#f '#f)) + __obj150140)) (define |gxc[:0:]#meta-state-block| - (let ((__obj149156 + (let ((__obj150141 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149156 + __obj150141 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149156 + __obj150141 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149156 + __obj150141 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149156 + __obj150141 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '#f '11 '#f '#f)) - (let ((__tmp149491 |gxc[1]#_g149492_|)) + (##unchecked-structure-set! __obj150141 '#f '11 '#f '#f)) + (let ((__tmp150476 |gxc[1]#_g150477_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149156 __tmp149491 '12 '#f '#f)) - (let ((__tmp149493 |gxc[1]#_g149494_|)) + (##unchecked-structure-set! __obj150141 __tmp150476 '12 '#f '#f)) + (let ((__tmp150478 |gxc[1]#_g150479_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149156 __tmp149493 '13 '#f '#f)) - (let ((__tmp149495 |gxc[1]#_g149496_|)) + (##unchecked-structure-set! __obj150141 __tmp150478 '13 '#f '#f)) + (let ((__tmp150480 |gxc[1]#_g150481_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149156 __tmp149495 '14 '#f '#f)) - (let ((__tmp149497 - (cons (cons 'ctx |gxc[1]#_g149498_|) - (cons (cons 'phi |gxc[1]#_g149499_|) - (cons (cons 'n |gxc[1]#_g149500_|) - (cons (cons 'code |gxc[1]#_g149501_|) + (##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! __obj149156 __tmp149497 '15 '#f '#f)) - (let ((__tmp149502 - (cons (cons 'ctx |gxc[1]#_g149503_|) - (cons (cons 'phi |gxc[1]#_g149504_|) - (cons (cons 'n |gxc[1]#_g149505_|) - (cons (cons 'code |gxc[1]#_g149506_|) + (##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! __obj149156 __tmp149502 '16 '#f '#f)) - (let ((__tmp149507 - (cons (cons 'ctx |gxc[1]#_g149508_|) - (cons (cons 'phi |gxc[1]#_g149509_|) - (cons (cons 'n |gxc[1]#_g149510_|) - (cons (cons 'code |gxc[1]#_g149511_|) + (##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! __obj149156 __tmp149507 '17 '#f '#f)) - (let ((__tmp149512 - (cons (cons 'ctx |gxc[1]#_g149513_|) - (cons (cons 'phi |gxc[1]#_g149514_|) - (cons (cons 'n |gxc[1]#_g149515_|) - (cons (cons 'code |gxc[1]#_g149516_|) + (##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! __obj149156 __tmp149512 '18 '#f '#f)) + (##unchecked-structure-set! __obj150141 __tmp150497 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149156 '() '20 '#f '#f)) - __obj149156)))) + (##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 808f4f856..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 1734131754) + (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 ((__tmp202682 (current-time))) + (floor (let ((__tmp203667 (current-time))) (declare (not safe)) - (##time->seconds __tmp202682)))))) + (##time->seconds __tmp203667)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp202683 (current-time))) + (let ((__tmp203668 (current-time))) (declare (not safe)) - (##time->seconds __tmp202683)))) + (##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 (_%path202539%_ _%fun202540%_) + (lambda (_%path203524%_ _%fun203525%_) (with-output-to-file - (cons 'path: (cons _%path202539%_ gxc#scheme-file-settings)) - _%fun202540%_))) + (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-libdir202534%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir202534%_))) + (lambda (_%gerbil-libdir203519%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir203519%_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -78,279 +78,279 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_%dir202532%_) (delete-file-or-directory _%dir202532%_ '#t))) + (lambda (_%dir203517%_) (delete-file-or-directory _%dir203517%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath202488%_ _%opts202489%_) - (if (string? _%srcpath202488%_) + (lambda (_%srcpath203473%_ _%opts203474%_) + (if (string? _%srcpath203473%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202488%_))) - (let* ((_%outdir202491%_ + _%srcpath203473%_))) + (let* ((_%outdir203476%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts202489%_))) - (_%invoke-gsc?202493%_ + (pgetq__0 'output-dir: _%opts203474%_))) + (_%invoke-gsc?203478%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202489%_))) - (_%target202498%_ - (let ((_%$e202495%_ + (pgetq__0 'invoke-gsc: _%opts203474%_))) + (_%target203483%_ + (let ((_%$e203480%_ (let () (declare (not safe)) - (pgetq__0 'target: _%opts202489%_)))) - (if _%$e202495%_ _%$e202495%_ 'C))) - (_%gsc-options202503%_ + (pgetq__0 'target: _%opts203474%_)))) + (if _%$e203480%_ _%$e203480%_ 'C))) + (_%gsc-options203488%_ (append (cons '"-target" - (cons (symbol->string _%target202498%_) '())) - (let ((_%$e202500%_ + (cons (symbol->string _%target203483%_) '())) + (let ((_%$e203485%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202489%_)))) - (if _%$e202500%_ _%$e202500%_ '())))) - (_%keep-scm?202505%_ + (pgetq__0 'gsc-options: _%opts203474%_)))) + (if _%$e203485%_ _%$e203485%_ '())))) + (_%keep-scm?203490%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202489%_))) - (_%verbosity202507%_ + (pgetq__0 'keep-scm: _%opts203474%_))) + (_%verbosity203492%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts202489%_))) - (_%optimize202509%_ + (pgetq__0 'verbose: _%opts203474%_))) + (_%optimize203494%_ (let () (declare (not safe)) - (pgetq__0 'optimize: _%opts202489%_))) - (_%debug202511%_ + (pgetq__0 'optimize: _%opts203474%_))) + (_%debug203496%_ (let () (declare (not safe)) - (pgetq__0 'debug: _%opts202489%_))) - (_%gen-ssxi202513%_ + (pgetq__0 'debug: _%opts203474%_))) + (_%gen-ssxi203498%_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts202489%_))) - (_%parallel?202515%_ + (pgetq__0 'generate-ssxi: _%opts203474%_))) + (_%parallel?203500%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts202489%_)))) - (if _%outdir202491%_ - (let ((__tmp202684 + (pgetq__0 'parallel: _%opts203474%_)))) + (if _%outdir203476%_ + (let ((__tmp203669 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202491%_))))) + (create-directory*__0 _%outdir203476%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202684)) + (__with-lock gxc#+driver-mutex+ __tmp203669)) '#!void) - (if _%optimize202509%_ - (let ((__tmp202685 + (if _%optimize203494%_ + (let ((__tmp203670 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202685)) + (__with-lock gxc#+driver-mutex+ __tmp203670)) '#!void) - (let ((__tmp202688 + (let ((__tmp203673 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath202488%_)) + (gxc#verbose '"compile " _%srcpath203473%_)) (gxc#compile-top-module - (let ((__tmp202689 + (let ((__tmp203674 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202488%_))))) + (gx#import-module__0 _%srcpath203473%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202689))))) - (__tmp202687 (gxc#compile-timestamp)) - (__tmp202686 - (cons 'compile-module (cons _%srcpath202488%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp203674))))) + (__tmp203672 (gxc#compile-timestamp)) + (__tmp203671 + (cons 'compile-module (cons _%srcpath203473%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202688 + __tmp203673 gxc#current-compile-output-dir - _%outdir202491%_ + _%outdir203476%_ gx#current-compilation-target - _%target202498%_ + _%target203483%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202493%_ + _%invoke-gsc?203478%_ gxc#current-compile-gsc-options - _%gsc-options202503%_ + _%gsc-options203488%_ gxc#current-compile-keep-scm - _%keep-scm?202505%_ + _%keep-scm?203490%_ gxc#current-compile-verbose - _%verbosity202507%_ + _%verbosity203492%_ gxc#current-compile-optimize - _%optimize202509%_ + _%optimize203494%_ gxc#current-compile-debug - _%debug202511%_ + _%debug203496%_ gxc#current-compile-generate-ssxi - _%gen-ssxi202513%_ + _%gen-ssxi203498%_ gxc#current-compile-timestamp - __tmp202687 + __tmp203672 gxc#current-compile-context - __tmp202686 + __tmp203671 gxc#current-compile-parallel - _%parallel?202515%_ + _%parallel?203500%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath202525%_) - (let ((_%opts202527%_ '())) - (gxc#compile-module__% _%srcpath202525%_ _%opts202527%_)))) + (lambda (_%srcpath203510%_) + (let ((_%opts203512%_ '())) + (gxc#compile-module__% _%srcpath203510%_ _%opts203512%_)))) (define gxc#compile-module - (lambda _g202691_ - (let ((_g202690_ (let () (declare (not safe)) (##length _g202691_)))) - (cond ((let () (declare (not safe)) (##fx= _g202690_ 1)) - (apply gxc#compile-module__0 _g202691_)) - ((let () (declare (not safe)) (##fx= _g202690_ 2)) - (apply gxc#compile-module__% _g202691_)) + (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 - _g202691_)))))) + _g203676_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath202448%_ _%opts202449%_) - (if (string? _%srcpath202448%_) + (lambda (_%srcpath203433%_ _%opts203434%_) + (if (string? _%srcpath203433%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202448%_))) - (let* ((_%outdir202451%_ + _%srcpath203433%_))) + (let* ((_%outdir203436%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts202449%_))) - (_%invoke-gsc?202453%_ + (pgetq__0 'output-dir: _%opts203434%_))) + (_%invoke-gsc?203438%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202449%_))) - (_%target202458%_ - (let ((_%$e202455%_ + (pgetq__0 'invoke-gsc: _%opts203434%_))) + (_%target203443%_ + (let ((_%$e203440%_ (let () (declare (not safe)) - (pgetq__0 'target: _%opts202449%_)))) - (if _%$e202455%_ _%$e202455%_ 'C))) - (_%gsc-options202463%_ + (pgetq__0 'target: _%opts203434%_)))) + (if _%$e203440%_ _%$e203440%_ 'C))) + (_%gsc-options203448%_ (append (cons '"-target" - (cons (symbol->string _%target202458%_) '())) - (let ((_%$e202460%_ + (cons (symbol->string _%target203443%_) '())) + (let ((_%$e203445%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202449%_)))) - (if _%$e202460%_ _%$e202460%_ '())))) - (_%keep-scm?202465%_ + (pgetq__0 'gsc-options: _%opts203434%_)))) + (if _%$e203445%_ _%$e203445%_ '())))) + (_%keep-scm?203450%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202449%_))) - (_%verbosity202467%_ + (pgetq__0 'keep-scm: _%opts203434%_))) + (_%verbosity203452%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts202449%_))) - (_%debug202469%_ + (pgetq__0 'verbose: _%opts203434%_))) + (_%debug203454%_ (let () (declare (not safe)) - (pgetq__0 'debug: _%opts202449%_))) - (_%parallel?202471%_ + (pgetq__0 'debug: _%opts203434%_))) + (_%parallel?203456%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts202449%_)))) - (if _%outdir202451%_ - (let ((__tmp202692 + (pgetq__0 'parallel: _%opts203434%_)))) + (if _%outdir203436%_ + (let ((__tmp203677 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202451%_))))) + (create-directory*__0 _%outdir203436%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202692)) + (__with-lock gxc#+driver-mutex+ __tmp203677)) '#!void) - (let ((__tmp202695 + (let ((__tmp203680 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath202448%_)) + (gxc#verbose '"compile exe " _%srcpath203433%_)) (gxc#compile-executable-module - (let ((__tmp202696 + (let ((__tmp203681 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202448%_))))) + (gx#import-module__0 _%srcpath203433%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202696)) - _%opts202449%_))) - (__tmp202694 (gxc#compile-timestamp)) - (__tmp202693 (cons 'compile-exe (cons _%srcpath202448%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp203681)) + _%opts203434%_))) + (__tmp203679 (gxc#compile-timestamp)) + (__tmp203678 (cons 'compile-exe (cons _%srcpath203433%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202695 + __tmp203680 gxc#current-compile-output-dir - _%outdir202451%_ + _%outdir203436%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202453%_ + _%invoke-gsc?203438%_ gx#current-compilation-target - _%target202458%_ + _%target203443%_ gxc#current-compile-gsc-options - _%gsc-options202463%_ + _%gsc-options203448%_ gxc#current-compile-keep-scm - _%keep-scm?202465%_ + _%keep-scm?203450%_ gxc#current-compile-verbose - _%verbosity202467%_ + _%verbosity203452%_ gxc#current-compile-debug - _%debug202469%_ + _%debug203454%_ gxc#current-compile-timestamp - __tmp202694 + __tmp203679 gxc#current-compile-context - __tmp202693 + __tmp203678 gxc#current-compile-parallel - _%parallel?202471%_ + _%parallel?203456%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath202480%_) - (let ((_%opts202482%_ '())) - (gxc#compile-exe__% _%srcpath202480%_ _%opts202482%_)))) + (lambda (_%srcpath203465%_) + (let ((_%opts203467%_ '())) + (gxc#compile-exe__% _%srcpath203465%_ _%opts203467%_)))) (define gxc#compile-exe - (lambda _g202698_ - (let ((_g202697_ (let () (declare (not safe)) (##length _g202698_)))) - (cond ((let () (declare (not safe)) (##fx= _g202697_ 1)) - (apply gxc#compile-exe__0 _g202698_)) - ((let () (declare (not safe)) (##fx= _g202697_ 2)) - (apply gxc#compile-exe__% _g202698_)) + (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 - _g202698_)))))) + _g203683_)))))) (define gxc#compile-executable-module - (lambda (_%ctx202444%_ _%opts202445%_) + (lambda (_%ctx203429%_ _%opts203430%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts202445%_)) + (pgetq__0 'full-program-optimization: _%opts203430%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx202444%_ - _%opts202445%_) + _%ctx203429%_ + _%opts203430%_) (gxc#compile-executable-module/separate - _%ctx202444%_ - _%opts202445%_)))) + _%ctx203429%_ + _%opts203430%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx202234%_ _%opts202235%_) - (letrec ((_%generate-stub202237%_ - (lambda (_%builtin-modules202440%_) - (let ((_%mod-main202442%_ - (gxc#find-runtime-symbol _%ctx202234%_ 'main))) - (let ((__tmp202699 + (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-modules202440%_ + (cons _%builtin-modules203425%_ '())) '()))))) (declare (not safe)) - (##write __tmp202699)) - (let ((__tmp202700 + (##write __tmp203684)) + (let ((__tmp203685 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'with-unwind-protect @@ -360,7 +360,7 @@ (cons (cons 'gerbil-runtime-init! (cons 'builtin-modules '())) (cons (cons 'apply - (cons _%mod-main202442%_ + (cons _%mod-main203427%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -398,325 +398,325 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp202700)) + (##write __tmp203685)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts202238%_ - (lambda (_%gerbil-libdir202438%_) - (let ((__tmp202701 + (_%get-libgerbil-ld-opts203223%_ + (lambda (_%gerbil-libdir203423%_) + (let ((__tmp203686 (path-expand '"libgerbil.ldd" - _%gerbil-libdir202438%_))) + _%gerbil-libdir203423%_))) (declare (not safe)) - (##call-with-input-file __tmp202701 read)))) - (_%replace-extension202239%_ - (lambda (_%path202435%_ _%ext202436%_) + (##call-with-input-file __tmp203686 read)))) + (_%replace-extension203224%_ + (lambda (_%path203420%_ _%ext203421%_) (string-append - (path-strip-extension _%path202435%_) - _%ext202436%_))) - (_%userlib-module?202240%_ - (lambda (_%ctx202433%_) - (if (_%exclude-module?202242%_ _%ctx202433%_) + (path-strip-extension _%path203420%_) + _%ext203421%_))) + (_%userlib-module?203225%_ + (lambda (_%ctx203418%_) + (if (_%exclude-module?203227%_ _%ctx203418%_) '#f - (not (_%libgerbil-module?202241%_ _%ctx202433%_))))) - (_%libgerbil-module?202241%_ - (lambda (_%ctx202426%_) - (let ((_%id-str202428%_ + (not (_%libgerbil-module?203226%_ _%ctx203418%_))))) + (_%libgerbil-module?203226%_ + (lambda (_%ctx203411%_) + (let ((_%id-str203413%_ (symbol->string (##structure-ref - _%ctx202426%_ + _%ctx203411%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?202242%_ _%id-str202428%_) + (if (_%exclude-module?203227%_ _%id-str203413%_) '#f - (let ((_%$e202430%_ + (let ((_%$e203415%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str202428%_)))) - (if _%$e202430%_ - _%$e202430%_ + _%id-str203413%_)))) + (if _%$e203415%_ + _%$e203415%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str202428%_)))))))) - (_%exclude-module?202242%_ - (lambda (_%ctx-or-str202422%_) - (let ((_%str202424%_ - (if (string? _%ctx-or-str202422%_) - _%ctx-or-str202422%_ + _%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-str202422%_ + _%ctx-or-str203407%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str202424%_)))) - (_%not-file-empty?202243%_ - (lambda (_%path202420%_) - (not (gxc#file-empty? _%path202420%_)))) - (_%fold-libgerbil-runtime-scm202244%_ - (lambda (_%gerbil-staticdir202413%_ _%libgerbil-scm202414%_) - (let ((_%gerbil-runtime-scm202418%_ - (let ((__tmp202702 - (lambda (_%rtm202416%_) + (##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 ((__tmp202703 - (let ((__tmp202704 + (let ((__tmp203688 + (let ((__tmp203689 (let () (declare (not safe)) (string-split - _%rtm202416%_ + _%rtm203401%_ '#\/)))) (declare (not safe)) (string-join - __tmp202704 + __tmp203689 '"__")))) (declare (not safe)) - (##string-append __tmp202703 '".scm")) - _%gerbil-staticdir202413%_)))) + (##string-append __tmp203688 '".scm")) + _%gerbil-staticdir203398%_)))) (declare (not safe)) - (##map __tmp202702 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates202245%_ - (append _%gerbil-runtime-scm202418%_ - _%libgerbil-scm202414%_))))) - (_%remove-duplicates202245%_ - (lambda (_%strlst202373%_) - (let _%loop202375%_ ((_%rest202377%_ _%strlst202373%_) - (_%result202378%_ '())) - (let* ((_%rest202379202387%_ _%rest202377%_) - (_%else202381202395%_ - (lambda () (reverse! _%result202378%_))) - (_%K202383202401%_ - (lambda (_%rest202398%_ _%path202399%_) - (if (member _%path202399%_ _%result202378%_) - (_%loop202375%_ - _%rest202398%_ - _%result202378%_) - (_%loop202375%_ - _%rest202398%_ - (cons _%path202399%_ - _%result202378%_)))))) - (if (pair? _%rest202379202387%_) - (let ((_%hd202384202404%_ + (##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 _%rest202379202387%_))) - (_%tl202385202406%_ + (##car _%rest203364203372%_))) + (_%tl203370203391%_ (let () (declare (not safe)) - (##cdr _%rest202379202387%_)))) - (let* ((_%path202409%_ _%hd202384202404%_) - (_%rest202411%_ _%tl202385202406%_)) - (_%K202383202401%_ - _%rest202411%_ - _%path202409%_))) - (_%else202381202395%_)))))) - (_%compile-stub202246%_ - (lambda (_%output-scm202253%_ _%output-bin202254%_) - (let* ((_%gerbil-home202256%_ - (let ((__tmp202705 + (##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" __tmp202705))) - (_%gerbil-libdir202258%_ - (path-expand '"lib" _%gerbil-home202256%_)) - (_%gerbil-staticdir202260%_ - (path-expand '"static" _%gerbil-libdir202258%_)) - (_%deps202262%_ - (gxc#find-runtime-module-deps _%ctx202234%_)) - (_%libgerbil-deps202264%_ + (##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?202241%_ - _%deps202262%_))) - (_%libgerbil-scm202266%_ + _%libgerbil-module?203226%_ + _%deps203247%_))) + (_%libgerbil-scm203251%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps202264%_))) - (_%libgerbil-scm202268%_ - (_%fold-libgerbil-runtime-scm202244%_ - _%gerbil-staticdir202260%_ - _%libgerbil-scm202266%_)) - (_%libgerbil-c202274%_ - (map (lambda (_%g202269202271%_) - (_%replace-extension202239%_ - _%g202269202271%_ + _%libgerbil-deps203249%_))) + (_%libgerbil-scm203253%_ + (_%fold-libgerbil-runtime-scm203229%_ + _%gerbil-staticdir203245%_ + _%libgerbil-scm203251%_)) + (_%libgerbil-c203259%_ + (map (lambda (_%g203254203256%_) + (_%replace-extension203224%_ + _%g203254203256%_ '".c")) - _%libgerbil-scm202268%_)) - (_%libgerbil-o202280%_ - (map (lambda (_%g202275202277%_) - (_%replace-extension202239%_ - _%g202275202277%_ + _%libgerbil-scm203253%_)) + (_%libgerbil-o203265%_ + (map (lambda (_%g203260203262%_) + (_%replace-extension203224%_ + _%g203260203262%_ '".o")) - _%libgerbil-scm202268%_)) - (_%src-deps202282%_ + _%libgerbil-scm203253%_)) + (_%src-deps203267%_ (let () (declare (not safe)) (##filter - _%userlib-module?202240%_ - _%deps202262%_))) - (_%src-deps-scm202284%_ + _%userlib-module?203225%_ + _%deps203247%_))) + (_%src-deps-scm203269%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps202282%_))) - (_%src-deps-scm202286%_ + _%src-deps203267%_))) + (_%src-deps-scm203271%_ (let () (declare (not safe)) (##filter - _%not-file-empty?202243%_ - _%src-deps-scm202284%_))) - (_%src-deps-scm202288%_ + _%not-file-empty?203228%_ + _%src-deps-scm203269%_))) + (_%src-deps-scm203273%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm202286%_))) - (_%src-deps-c202294%_ - (let ((__tmp202706 - (lambda (_%g202289202291%_) - (_%replace-extension202239%_ - _%g202289202291%_ + (##map path-expand _%src-deps-scm203271%_))) + (_%src-deps-c203279%_ + (let ((__tmp203691 + (lambda (_%g203274203276%_) + (_%replace-extension203224%_ + _%g203274203276%_ '".c")))) (declare (not safe)) - (##map __tmp202706 _%src-deps-scm202288%_))) - (_%src-deps-o202300%_ - (let ((__tmp202707 - (lambda (_%g202295202297%_) - (_%replace-extension202239%_ - _%g202295202297%_ + (##map __tmp203691 _%src-deps-scm203273%_))) + (_%src-deps-o203285%_ + (let ((__tmp203692 + (lambda (_%g203280203282%_) + (_%replace-extension203224%_ + _%g203280203282%_ '".o")))) (declare (not safe)) - (##map __tmp202707 _%src-deps-scm202288%_))) - (_%src-bin-scm202302%_ - (gxc#find-static-module-file _%ctx202234%_)) - (_%src-bin-scm202304%_ - (path-expand _%src-bin-scm202302%_)) - (_%src-bin-c202306%_ - (_%replace-extension202239%_ - _%src-bin-scm202304%_ + (##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-o202308%_ - (_%replace-extension202239%_ - _%src-bin-scm202304%_ + (_%src-bin-o203293%_ + (_%replace-extension203224%_ + _%src-bin-scm203289%_ '".o")) - (_%output-bin202310%_ - (path-expand _%output-bin202254%_)) - (_%output-scm202312%_ - (path-expand _%output-scm202253%_)) - (_%output-c202314%_ - (_%replace-extension202239%_ - _%output-scm202312%_ + (_%output-bin203295%_ + (path-expand _%output-bin203239%_)) + (_%output-scm203297%_ + (path-expand _%output-scm203238%_)) + (_%output-c203299%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '".c")) - (_%output-o202316%_ - (_%replace-extension202239%_ - _%output-scm202312%_ + (_%output-o203301%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '".o")) - (_%output_-c202318%_ - (_%replace-extension202239%_ - _%output-scm202312%_ + (_%output_-c203303%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '"_.c")) - (_%output_-o202320%_ - (_%replace-extension202239%_ - _%output-scm202312%_ + (_%output_-o203305%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '"_.o")) - (_%gsc-link-opts202322%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts202324%_ + (_%gsc-link-opts203307%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts203309%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts202326%_ + (_%gsc-static-opts203311%_ (gxc#gsc-static-include-options - _%gerbil-staticdir202260%_)) - (_%output-ld-opts202328%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts202330%_ - (_%get-libgerbil-ld-opts202238%_ - _%gerbil-libdir202258%_)) - (_%rpath202332%_ - (gxc#gerbil-rpath _%gerbil-libdir202258%_)) - (_%builtin-modules202336%_ - (_%remove-duplicates202245%_ - (let ((__tmp202708 - (let ((__tmp202710 - (lambda (_%mod202334%_) + _%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 - _%mod202334%_ + _%mod203319%_ '1 gx#expander-context::t '#f)))) - (__tmp202709 - (cons _%ctx202234%_ - _%deps202262%_))) + (__tmp203694 + (cons _%ctx203219%_ + _%deps203247%_))) (declare (not safe)) - (##map __tmp202710 __tmp202709)))) + (##map __tmp203695 __tmp203694)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp202708))))) - (letrec ((_%compile-obj202339%_ - (lambda (_%scm-path202346%_ _%c-path202347%_) - (let* ((_%o-path202349%_ - (_%replace-extension202239%_ - _%c-path202347%_ + __tmp203693))))) + (letrec ((_%compile-obj203324%_ + (lambda (_%scm-path203331%_ _%c-path203332%_) + (let* ((_%o-path203334%_ + (_%replace-extension203224%_ + _%c-path203332%_ '".o")) - (_%lock202351%_ + (_%lock203336%_ (let () (declare (not safe)) (##string-append - _%o-path202349%_ + _%o-path203334%_ '".lock"))) - (_%locked202353%_ '#f) - (_%unlock202356%_ + (_%locked203338%_ '#f) + (_%unlock203341%_ (lambda () - (close-port _%locked202353%_) + (close-port _%locked203338%_) (let () (declare (not safe)) (##delete-file - _%lock202351%_))))) - (let _%retry202359%_ () + _%lock203336%_))))) + (let _%retry203344%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock202351%_)) + (##file-exists? _%lock203336%_)) (begin (thread-sleep! '.01) - (_%retry202359%_)) + (_%retry203344%_)) (begin - (set! _%locked202353%_ - (let ((__tmp202711 + (set! _%locked203338%_ + (let ((__tmp203696 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock202351%_ + (cons _%lock203336%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp202711))) - (if _%locked202353%_ + __tmp203696))) + (if _%locked203338%_ '#!void - (_%retry202359%_))))) - (let ((__tmp202713 + (_%retry203344%_))))) + (let ((__tmp203698 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path202349%_))) - (not _%scm-path202346%_) + _%o-path203334%_))) + (not _%scm-path203331%_) (let () (declare (not safe)) (file-newer? - _%scm-path202346%_ - _%o-path202349%_))) - (let ((_%gsc-cc-opts202370%_ + _%scm-path203331%_ + _%o-path203334%_))) + (let ((_%gsc-cc-opts203355%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -726,41 +726,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202714 + (let ((__tmp203699 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202715 (cons _%c-path202347%_ '()))) + (let ((__tmp203700 (cons _%c-path203332%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202715 - _%gsc-static-opts202326%_)))) + __tmp203700 + _%gsc-static-opts203311%_)))) (declare (not safe)) - (__foldr1 cons __tmp202714 _%gsc-cc-opts202370%_))))) + (__foldr1 cons __tmp203699 _%gsc-cc-opts203355%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp202712 - (lambda () (_%unlock202356%_)))) + (__tmp203697 + (lambda () (_%unlock203341%_)))) (declare (not safe)) (__with-unwind-protect - __tmp202713 - __tmp202712)))))) - (let ((__tmp202716 + __tmp203698 + __tmp203697)))))) + (let ((__tmp203701 (lambda () - (let ((__tmp202717 - (path-directory _%output-bin202310%_))) + (let ((__tmp203702 + (path-directory _%output-bin203295%_))) (declare (not safe)) - (create-directory*__0 __tmp202717))))) + (create-directory*__0 __tmp203702))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202716)) + (__with-lock gxc#+driver-mutex+ __tmp203701)) (gxc#with-output-to-scheme-file - _%output-scm202312%_ + _%output-scm203297%_ (lambda () - (_%generate-stub202237%_ - _%builtin-modules202336%_))) + (_%generate-stub203222%_ + _%builtin-modules203321%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it202344%_ + (let ((_%compile-it203329%_ (lambda () (gxc#invoke__% '#f @@ -768,46 +768,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp202718 - (let ((__tmp202719 - (let ((__tmp202720 + (let ((__tmp203703 + (let ((__tmp203704 + (let ((__tmp203705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm202304%_ - (cons _%output-scm202312%_ '())))) + (cons _%src-bin-scm203289%_ + (cons _%output-scm203297%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp202720 _%src-deps-scm202288%_)))) + (__foldr1 cons __tmp203705 _%src-deps-scm203273%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202719 - _%libgerbil-c202274%_)))) + __tmp203704 + _%libgerbil-c203259%_)))) (declare (not safe)) (__foldr1 cons - __tmp202718 - _%gsc-link-opts202322%_)))) + __tmp203703 + _%gsc-link-opts203307%_)))) (for-each - _%compile-obj202339%_ - (let ((__tmp202721 - (cons _%src-bin-scm202304%_ - (cons _%output-scm202312%_ + _%compile-obj203324%_ + (let ((__tmp203706 + (cons _%src-bin-scm203289%_ + (cons _%output-scm203297%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp202721 - _%src-deps-scm202288%_)) - (let ((__tmp202722 - (cons _%src-bin-c202306%_ - (cons _%output-c202314%_ - (cons _%output_-c202318%_ + __tmp203706 + _%src-deps-scm203273%_)) + (let ((__tmp203707 + (cons _%src-bin-c203291%_ + (cons _%output-c203299%_ + (cons _%output_-c203303%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp202722 - _%src-deps-c202294%_))) + __tmp203707 + _%src-deps-c203279%_))) (gxc#invoke__% '#f absent-value @@ -815,71 +815,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin202310%_ - (let ((__tmp202723 - (cons _%src-bin-o202308%_ + (cons _%output-bin203295%_ + (let ((__tmp203708 + (cons _%src-bin-o203293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o202316%_ - (cons _%output_-o202320%_ - (let ((__tmp202724 - (let ((__tmp202725 - (let ((__tmp202727 + (cons _%output-o203301%_ + (cons _%output_-o203305%_ + (let ((__tmp203709 + (let ((__tmp203710 + (let ((__tmp203712 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir202258%_ + (cons _%gerbil-libdir203243%_ (cons '"-lgambit" - _%libgerbil-ld-opts202330%_)))) - (__tmp202726 + _%libgerbil-ld-opts203315%_)))) + (__tmp203711 (if (gxc#gerbil-enable-shared?) - (cons _%rpath202332%_ '()) + (cons _%rpath203317%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202727 __tmp202726)))) + (__foldr1 cons __tmp203712 __tmp203711)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202725 - _%output-ld-opts202328%_)))) + __tmp203710 + _%output-ld-opts203313%_)))) (declare (not safe)) (__foldr1 cons - __tmp202724 - _%libgerbil-o202280%_))))))) + __tmp203709 + _%libgerbil-o203265%_))))))) (declare (not safe)) - (__foldr1 cons __tmp202723 _%src-deps-o202300%_)))))) + (__foldr1 cons __tmp203708 _%src-deps-o203285%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp202728 - (cons _%output-c202314%_ - (cons _%output_-c202318%_ - (cons _%output-o202316%_ - (cons _%output_-o202320%_ + (let ((__tmp203713 + (cons _%output-c203299%_ + (cons _%output_-c203303%_ + (cons _%output-o203301%_ + (cons _%output_-o203305%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp202728))))) + (##for-each delete-file __tmp203713))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it202344%_)) - (_%compile-it202344%_))) + _%compile-it203329%_)) + (_%compile-it203329%_))) '#!void)))))) - (let* ((_%output-bin202248%_ - (gxc#compile-exe-output-file _%ctx202234%_ _%opts202235%_)) - (_%output-scm202250%_ + (let* ((_%output-bin203233%_ + (gxc#compile-exe-output-file _%ctx203219%_ _%opts203220%_)) + (_%output-scm203235%_ (let () (declare (not safe)) - (##string-append _%output-bin202248%_ '"__exe.scm")))) - (_%compile-stub202246%_ - _%output-scm202250%_ - _%output-bin202248%_))))) + (##string-append _%output-bin203233%_ '"__exe.scm")))) + (_%compile-stub203231%_ + _%output-scm203235%_ + _%output-bin203233%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx202056%_ _%opts202057%_) - (letrec ((_%reset-declare202059%_ + (lambda (_%ctx203041%_ _%opts203042%_) + (letrec ((_%reset-declare203044%_ (lambda () '(declare (gambit-scheme) @@ -901,36 +901,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub202060%_ - (lambda (_%deps202225%_) - (let ((_%mod-main202227%_ - (gxc#find-runtime-symbol _%ctx202056%_ 'main)) - (_%reset-decl202228%_ (_%reset-declare202059%_)) - (_%user-decl202229%_ (_%user-declare202061%_))) + (_%generate-stub203045%_ + (lambda (_%deps203210%_) + (let ((_%mod-main203212%_ + (gxc#find-runtime-symbol _%ctx203041%_ 'main)) + (_%reset-decl203213%_ (_%reset-declare203044%_)) + (_%user-decl203214%_ (_%user-declare203046%_))) (for-each - (lambda (_%dep202231%_) + (lambda (_%dep203216%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl202228%_)) + (##write _%reset-decl203213%_)) (newline) - (if _%user-decl202229%_ + (if _%user-decl203214%_ (begin (let () (declare (not safe)) - (##write _%user-decl202229%_)) + (##write _%user-decl203214%_)) (newline)) '#!void) - (let ((__tmp202729 - (cons 'include (cons _%dep202231%_ '())))) + (let ((__tmp203714 + (cons 'include (cons _%dep203216%_ '())))) (declare (not safe)) - (##write __tmp202729)) + (##write __tmp203714)) (newline)) - _%deps202225%_) - (let ((__tmp202730 + _%deps203210%_) + (let ((__tmp203715 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -940,236 +940,236 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main202227%_ + (cons _%mod-main203212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp202730)) + (##write __tmp203715)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare202061%_ + (_%user-declare203046%_ (lambda () - (let* ((_%gsc-opts202130%_ + (let* ((_%gsc-opts203115%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202057%_))) - (_%gsc-prelude202132%_ - (if _%gsc-opts202130%_ - (member '"-prelude" _%gsc-opts202130%_) + (pgetq__0 'gsc-options: _%opts203042%_))) + (_%gsc-prelude203117%_ + (if _%gsc-opts203115%_ + (member '"-prelude" _%gsc-opts203115%_) '#f)) - (_%gsc-prelude202134%_ - (if _%gsc-prelude202132%_ + (_%gsc-prelude203119%_ + (if _%gsc-prelude203117%_ (read (open-input-string - (cadr _%gsc-prelude202132%_))) + (cadr _%gsc-prelude203117%_))) '#f))) - (let _%lp202137%_ ((_%rest202139%_ - (cons _%gsc-prelude202134%_ '())) - (_%user-decls202140%_ '())) - (let* ((_%rest202141202149%_ _%rest202139%_) - (_%else202143202157%_ + (let _%lp203122%_ ((_%rest203124%_ + (cons _%gsc-prelude203119%_ '())) + (_%user-decls203125%_ '())) + (let* ((_%rest203126203134%_ _%rest203124%_) + (_%else203128203142%_ (lambda () - (if (null? _%user-decls202140%_) + (if (null? _%user-decls203125%_) '#f (cons 'declare - (reverse _%user-decls202140%_))))) - (_%K202145202213%_ - (lambda (_%rest202160%_ _%expr202161%_) - (let* ((_%expr202162202174%_ _%expr202161%_) - (_%else202165202182%_ + (reverse _%user-decls203125%_))))) + (_%K203130203198%_ + (lambda (_%rest203145%_ _%expr203146%_) + (let* ((_%expr203147203159%_ _%expr203146%_) + (_%else203150203167%_ (lambda () - (_%lp202137%_ - _%rest202160%_ - _%user-decls202140%_)))) - (let ((_%K202170202203%_ - (lambda (_%decls202201%_) - (_%lp202137%_ - _%rest202160%_ + (_%lp203122%_ + _%rest203145%_ + _%user-decls203125%_)))) + (let ((_%K203155203188%_ + (lambda (_%decls203186%_) + (_%lp203122%_ + _%rest203145%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls202140%_ - _%decls202201%_))))) - (_%K202167202188%_ - (lambda (_%exprs202186%_) - (_%lp202137%_ - (append _%exprs202186%_ - _%rest202160%_) - _%user-decls202140%_)))) - (if (pair? _%expr202162202174%_) - (let ((_%tl202172202208%_ + _%user-decls203125%_ + _%decls203186%_))))) + (_%K203152203173%_ + (lambda (_%exprs203171%_) + (_%lp203122%_ + (append _%exprs203171%_ + _%rest203145%_) + _%user-decls203125%_)))) + (if (pair? _%expr203147203159%_) + (let ((_%tl203157203193%_ (let () (declare (not safe)) - (##cdr _%expr202162202174%_))) - (_%hd202171202206%_ + (##cdr _%expr203147203159%_))) + (_%hd203156203191%_ (let () (declare (not safe)) - (##car _%expr202162202174%_)))) + (##car _%expr203147203159%_)))) (if (let () (declare (not safe)) - (##eq? _%hd202171202206%_ + (##eq? _%hd203156203191%_ 'declare)) - (let ((_%decls202211%_ - _%tl202172202208%_)) - (_%K202170202203%_ - _%decls202211%_)) + (let ((_%decls203196%_ + _%tl203157203193%_)) + (_%K203155203188%_ + _%decls203196%_)) (if (let () (declare (not safe)) - (##eq? _%hd202171202206%_ + (##eq? _%hd203156203191%_ 'begin)) - (let ((_%exprs202196%_ - _%tl202172202208%_)) - (_%K202167202188%_ - _%exprs202196%_)) - (_%else202165202182%_)))) - (_%else202165202182%_))))))) - (if (pair? _%rest202141202149%_) - (let ((_%hd202146202216%_ + (let ((_%exprs203181%_ + _%tl203157203193%_)) + (_%K203152203173%_ + _%exprs203181%_)) + (_%else203150203167%_)))) + (_%else203150203167%_))))))) + (if (pair? _%rest203126203134%_) + (let ((_%hd203131203201%_ (let () (declare (not safe)) - (##car _%rest202141202149%_))) - (_%tl202147202218%_ + (##car _%rest203126203134%_))) + (_%tl203132203203%_ (let () (declare (not safe)) - (##cdr _%rest202141202149%_)))) - (let* ((_%expr202221%_ _%hd202146202216%_) - (_%rest202223%_ _%tl202147202218%_)) - (_%K202145202213%_ - _%rest202223%_ - _%expr202221%_))) - (_%else202143202157%_))))))) - (_%compile-stub202062%_ - (lambda (_%output-scm202069%_ _%output-bin202070%_) - (let* ((_%gerbil-home202072%_ - (let ((__tmp202731 + (##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" __tmp202731))) - (_%gerbil-libdir202074%_ - (path-expand '"lib" _%gerbil-home202072%_)) - (_%runtime202076%_ + (##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-sharp202078%_ + (_%gambit-sharp203063%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home202072%_)) - (_%include-gambit-sharp202080%_ + _%gerbil-home203057%_)) + (_%include-gambit-sharp203065%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp202078%_ + _%gambit-sharp203063%_ '"\")"))) - (_%bin-scm202082%_ - (gxc#find-static-module-file _%ctx202056%_)) - (_%deps202084%_ - (gxc#find-runtime-module-deps _%ctx202056%_)) - (_%deps202086%_ + (_%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 - _%deps202084%_))) - (_%deps202091%_ - (let ((__tmp202732 - (lambda (_%$obj202088%_) - (not (gxc#file-empty? _%$obj202088%_))))) + _%deps203069%_))) + (_%deps203076%_ + (let ((__tmp203717 + (lambda (_%$obj203073%_) + (not (gxc#file-empty? _%$obj203073%_))))) (declare (not safe)) - (##filter __tmp202732 _%deps202086%_))) - (_%deps202095%_ - (let ((__tmp202733 - (lambda (_%f202093%_) + (##filter __tmp203717 _%deps203071%_))) + (_%deps203080%_ + (let ((__tmp203718 + (lambda (_%f203078%_) (not (let () (declare (not safe)) (##member - _%f202093%_ - _%runtime202076%_)))))) + _%f203078%_ + _%runtime203061%_)))))) (declare (not safe)) - (##filter __tmp202733 _%deps202091%_))) - (_%output-base202097%_ - (let ((__tmp202734 + (##filter __tmp203718 _%deps203076%_))) + (_%output-base203082%_ + (let ((__tmp203719 (path-strip-extension - _%output-scm202069%_))) + _%output-scm203054%_))) (declare (not safe)) - (##string-append __tmp202734))) - (_%output-c202099%_ + (##string-append __tmp203719))) + (_%output-c203084%_ (let () (declare (not safe)) - (##string-append _%output-base202097%_ '".c"))) - (_%output-o202101%_ + (##string-append _%output-base203082%_ '".c"))) + (_%output-o203086%_ (let () (declare (not safe)) - (##string-append _%output-base202097%_ '".o"))) - (_%output-c_202103%_ + (##string-append _%output-base203082%_ '".o"))) + (_%output-c_203088%_ (let () (declare (not safe)) - (##string-append _%output-base202097%_ '"_.c"))) - (_%output-o_202105%_ + (##string-append _%output-base203082%_ '"_.c"))) + (_%output-o_203090%_ (let () (declare (not safe)) - (##string-append _%output-base202097%_ '"_.o"))) - (_%gsc-link-opts202107%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts202109%_ + (##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-opts202111%_ + (_%gsc-static-opts203096%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir202074%_))) - (_%output-ld-opts202113%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros202115%_ + (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-sharp202080%_ + (cons _%include-gambit-sharp203065%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp202080%_ + (cons _%include-gambit-sharp203065%_ '())))) - (_%gsc-link-opts202117%_ + (_%gsc-link-opts203102%_ (let () (declare (not safe)) (##append - _%gsc-link-opts202107%_ - _%gsc-gx-macros202115%_))) - (_%rpath202119%_ - (gxc#gerbil-rpath _%gerbil-libdir202074%_)) - (_%default-ld-options202121%_ + _%gsc-link-opts203092%_ + _%gsc-gx-macros203100%_))) + (_%rpath203104%_ + (gxc#gerbil-rpath _%gerbil-libdir203059%_)) + (_%default-ld-options203106%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp202735 + (let ((__tmp203720 (lambda () - (let ((__tmp202736 - (path-directory _%output-bin202070%_))) + (let ((__tmp203721 + (path-directory _%output-bin203055%_))) (declare (not safe)) - (create-directory*__0 __tmp202736))))) + (create-directory*__0 __tmp203721))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202735)) + (__with-lock gxc#+driver-mutex+ __tmp203720)) (gxc#with-output-to-scheme-file - _%output-scm202069%_ + _%output-scm203054%_ (lambda () - (_%generate-stub202060%_ - (let ((__tmp202737 - (let ((__tmp202738 - (cons _%bin-scm202082%_ '()))) + (_%generate-stub203045%_ + (let ((__tmp203722 + (let ((__tmp203723 + (cons _%bin-scm203067%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202738 - _%deps202095%_)))) + __tmp203723 + _%deps203080%_)))) (declare (not safe)) - (__foldr1 cons __tmp202737 _%runtime202076%_))))) + (__foldr1 cons __tmp203722 _%runtime203061%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it202127%_ + (let ((_%compile-it203112%_ (lambda () (gxc#invoke__% '#f @@ -1178,13 +1178,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_202103%_ - (let ((__tmp202739 - (cons _%output-scm202069%_ + (cons _%output-c_203088%_ + (let ((__tmp203724 + (cons _%output-scm203054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp202739 _%gsc-link-opts202117%_)))))) + (__foldr1 cons __tmp203724 _%gsc-link-opts203102%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1192,23 +1192,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202740 - (let ((__tmp202741 - (cons _%output-c202099%_ - (cons _%output-c_202103%_ + (let ((__tmp203725 + (let ((__tmp203726 + (cons _%output-c203084%_ + (cons _%output-c_203088%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202741 - _%gsc-static-opts202111%_)))) + __tmp203726 + _%gsc-static-opts203096%_)))) (declare (not safe)) (__foldr1 cons - __tmp202740 - _%gsc-cc-opts202109%_)))) + __tmp203725 + _%gsc-cc-opts203094%_)))) (gxc#invoke__% '#f absent-value @@ -1216,27 +1216,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin202070%_ - (cons _%output-o202101%_ - (cons _%output-o_202105%_ + (cons _%output-bin203055%_ + (cons _%output-o203086%_ + (cons _%output-o_203090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202742 - (let ((__tmp202744 + (let ((__tmp203727 + (let ((__tmp203729 (cons '"-L" - (cons _%gerbil-libdir202074%_ + (cons _%gerbil-libdir203059%_ (cons '"-lgambit" - _%default-ld-options202121%_)))) - (__tmp202743 + _%default-ld-options203106%_)))) + (__tmp203728 (if (gxc#gerbil-enable-shared?) - (cons _%rpath202119%_ '()) + (cons _%rpath203104%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202744 __tmp202743)))) + (__foldr1 cons __tmp203729 __tmp203728)))) (declare (not safe)) (__foldr1 cons - __tmp202742 - _%output-ld-opts202113%_))))))))))) + __tmp203727 + _%output-ld-opts203098%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1244,626 +1244,626 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it202127%_)) - (_%compile-it202127%_))) + _%compile-it203112%_)) + (_%compile-it203112%_))) '#!void))))) - (let* ((_%output-bin202064%_ - (gxc#compile-exe-output-file _%ctx202056%_ _%opts202057%_)) - (_%output-scm202066%_ + (let* ((_%output-bin203049%_ + (gxc#compile-exe-output-file _%ctx203041%_ _%opts203042%_)) + (_%output-scm203051%_ (let () (declare (not safe)) - (##string-append _%output-bin202064%_ '"__exe.scm")))) - (_%compile-stub202062%_ - _%output-scm202066%_ - _%output-bin202064%_))))) + (##string-append _%output-bin203049%_ '"__exe.scm")))) + (_%compile-stub203047%_ + _%output-scm203051%_ + _%output-bin203049%_))))) (define gxc#find-export-binding - (lambda (_%ctx202005%_ _%id202006%_) - (let ((_%$e202052%_ - (let ((__tmp202746 - (lambda (_%e202007202009%_) - (let* ((_%g202011202021%_ _%e202007202009%_) - (_%else202013202029%_ (lambda () '#f)) - (_%K202015202033%_ (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? - _%g202011202021%_ + _%g202996203006%_ 'gx#module-export::t)) - (let* ((_%e202016202036%_ + (let* ((_%e203001203021%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202011202021%_ + _%g202996203006%_ '1 '#f '#f))) - (_%e202017202039%_ + (_%e203002203024%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202011202021%_ + _%g202996203006%_ '2 '#f '#f))) - (_%e202018202042%_ + (_%e203003203027%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202011202021%_ + _%g202996203006%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e202018202042%_ '0)) - (let ((_%e202019202045%_ + (##eq? _%e203003203027%_ '0)) + (let ((_%e203004203030%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202011202021%_ + _%g202996203006%_ '4 '#f '#f)))) - (if ((lambda (_%g202047202049%_) - (eq? _%g202047202049%_ - _%id202006%_)) - _%e202019202045%_) - (_%K202015202033%_) - (_%else202013202029%_))) - (_%else202013202029%_))) - (_%else202013202029%_))))) - (__tmp202745 + (if ((lambda (_%g203032203034%_) + (eq? _%g203032203034%_ + _%id202991%_)) + _%e203004203030%_) + (_%K203000203018%_) + (_%else202998203014%_))) + (_%else202998203014%_))) + (_%else202998203014%_))))) + (__tmp203730 (##structure-ref - _%ctx202005%_ + _%ctx202990%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp202746 __tmp202745)))) - (if _%$e202052%_ + (__find __tmp203731 __tmp203730)))) + (if _%$e203037%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e202052%_)) + (gx#core-resolve-module-export _%$e203037%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx201996%_ _%id201997%_) - (let ((_%$e201999%_ - (gxc#find-export-binding _%ctx201996%_ _%id201997%_))) - (if _%$e201999%_ - ((lambda (_%bind202002%_) + (lambda (_%ctx202981%_ _%id202982%_) + (let ((_%$e202984%_ + (gxc#find-export-binding _%ctx202981%_ _%id202982%_))) + (if _%$e202984%_ + ((lambda (_%bind202987%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind202002%_ + _%bind202987%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id201997%_))) - (##structure-ref _%bind202002%_ '1 gx#binding::t '#f)) - _%$e201999%_) - (let ((__tmp202747 + _%id202982%_))) + (##structure-ref _%bind202987%_ '1 gx#binding::t '#f)) + _%$e202984%_) + (let ((__tmp203732 (##structure-ref - _%ctx201996%_ + _%ctx202981%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp202747 - _%id201997%_)))))) + __tmp203732 + _%id202982%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx201862%_) - (letrec* ((_%ht201864%_ + (lambda (_%ctx202847%_) + (letrec* ((_%ht202849%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template201865%_ - (lambda (_%in201941%_ _%phi201942%_) - (let ((_%iphi201944%_ - (fx+ _%phi201942%_ + (_%import-set-template202850%_ + (lambda (_%in202926%_ _%phi202927%_) + (let ((_%iphi202929%_ + (fx+ _%phi202927%_ (##direct-structure-ref - _%in201941%_ + _%in202926%_ '2 gx#import-set::t '#f))) - (_%imports201945%_ + (_%imports202930%_ (##structure-ref (##direct-structure-ref - _%in201941%_ + _%in202926%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp201947%_ ((_%rest201949%_ _%imports201945%_) - (_%r201950%_ '())) - (let* ((_%rest201951201959%_ _%rest201949%_) - (_%else201953201967%_ (lambda () _%r201950%_)) - (_%K201955201984%_ - (lambda (_%rest201970%_ _%in201971%_) + (let _%lp202932%_ ((_%rest202934%_ _%imports202930%_) + (_%r202935%_ '())) + (let* ((_%rest202936202944%_ _%rest202934%_) + (_%else202938202952%_ (lambda () _%r202935%_)) + (_%K202940202969%_ + (lambda (_%rest202955%_ _%in202956%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in201971%_ + _%in202956%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi201944%_)) - (_%lp201947%_ - _%rest201970%_ - (cons _%in201971%_ _%r201950%_)) - (_%lp201947%_ - _%rest201970%_ - _%r201950%_)) + (##fxzero? _%iphi202929%_)) + (_%lp202932%_ + _%rest202955%_ + (cons _%in202956%_ _%r202935%_)) + (_%lp202932%_ + _%rest202955%_ + _%r202935%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201971%_ + _%in202956%_ 'gx#module-import::t)) - (let ((_%iphi201975%_ - (fx+ _%phi201942%_ + (let ((_%iphi202960%_ + (fx+ _%phi202927%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201971%_ + _%in202956%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi201975%_)) - (_%lp201947%_ - _%rest201970%_ + (##fxzero? _%iphi202960%_)) + (_%lp202932%_ + _%rest202955%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in201971%_ + _%in202956%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r201950%_)) - (_%lp201947%_ - _%rest201970%_ - _%r201950%_))) + _%r202935%_)) + (_%lp202932%_ + _%rest202955%_ + _%r202935%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201971%_ + _%in202956%_ 'gx#import-set::t)) - (let ((_%xphi201978%_ - (fx+ _%iphi201944%_ + (let ((_%xphi202963%_ + (fx+ _%iphi202929%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201971%_ + _%in202956%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi201978%_)) - (_%lp201947%_ - _%rest201970%_ + _%xphi202963%_)) + (_%lp202932%_ + _%rest202955%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in201971%_ + _%in202956%_ '1 '#f '#f)) - _%r201950%_)) + _%r202935%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi201978%_)) - (_%lp201947%_ - _%rest201970%_ - (let ((__tmp202748 + _%xphi202963%_)) + (_%lp202932%_ + _%rest202955%_ + (let ((__tmp203733 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template201865%_ - _%in201971%_ - _%iphi201944%_))) + (_%import-set-template202850%_ + _%in202956%_ + _%iphi202929%_))) (declare (not safe)) - (__foldl1 cons _%r201950%_ __tmp202748))) - (_%lp201947%_ _%rest201970%_ _%r201950%_)))) + (__foldl1 cons _%r202935%_ __tmp203733))) + (_%lp202932%_ _%rest202955%_ _%r202935%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp201947%_ - _%rest201970%_ - _%r201950%_))))))) - (if (pair? _%rest201951201959%_) - (let ((_%hd201956201987%_ + (_%lp202932%_ + _%rest202955%_ + _%r202935%_))))))) + (if (pair? _%rest202936202944%_) + (let ((_%hd202941202972%_ (let () (declare (not safe)) - (##car _%rest201951201959%_))) - (_%tl201957201989%_ + (##car _%rest202936202944%_))) + (_%tl202942202974%_ (let () (declare (not safe)) - (##cdr _%rest201951201959%_)))) - (let* ((_%in201992%_ _%hd201956201987%_) - (_%rest201994%_ _%tl201957201989%_)) - (_%K201955201984%_ - _%rest201994%_ - _%in201992%_))) - (_%else201953201967%_))))))) - (_%find-deps201866%_ - (lambda (_%rest201874%_ _%deps201875%_) - (let* ((_%rest201876201884%_ _%rest201874%_) - (_%else201878201892%_ (lambda () _%deps201875%_)) - (_%K201880201929%_ - (lambda (_%rest201895%_ _%hd201896%_) + (##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? - _%hd201896%_ + _%hd202881%_ 'gx#module-context::t)) - (let ((_%id201899%_ + (let ((_%id202884%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201896%_ + _%hd202881%_ '1 '#f '#f))) - (_%imports201900%_ + (_%imports202885%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201896%_ + _%hd202881%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201864%_ - _%id201899%_)) - (_%find-deps201866%_ - _%rest201895%_ - _%deps201875%_) - (let ((_%$e201903%_ + _%ht202849%_ + _%id202884%_)) + (_%find-deps202851%_ + _%rest202880%_ + _%deps202860%_) + (let ((_%$e202888%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd201896%_)))) - (if _%$e201903%_ - ((lambda (_%pre201906%_) - (let ((_%xdeps201908%_ - (_%find-deps201866%_ - (cons _%pre201906%_ - _%imports201900%_) - _%deps201875%_))) + _%hd202881%_)))) + (if _%$e202888%_ + ((lambda (_%pre202891%_) + (let ((_%xdeps202893%_ + (_%find-deps202851%_ + (cons _%pre202891%_ + _%imports202885%_) + _%deps202860%_))) (let () (declare (not safe)) (__hash-put! - _%ht201864%_ - _%id201899%_ - _%hd201896%_)) - (_%find-deps201866%_ - _%rest201895%_ - (cons _%hd201896%_ - _%xdeps201908%_)))) - _%$e201903%_) - (let ((_%xdeps201911%_ - (_%find-deps201866%_ - _%imports201900%_ - _%deps201875%_))) + _%ht202849%_ + _%id202884%_ + _%hd202881%_)) + (_%find-deps202851%_ + _%rest202880%_ + (cons _%hd202881%_ + _%xdeps202893%_)))) + _%$e202888%_) + (let ((_%xdeps202896%_ + (_%find-deps202851%_ + _%imports202885%_ + _%deps202860%_))) (let () (declare (not safe)) (__hash-put! - _%ht201864%_ - _%id201899%_ - _%hd201896%_)) - (_%find-deps201866%_ - _%rest201895%_ - (cons _%hd201896%_ - _%xdeps201911%_))))))) + _%ht202849%_ + _%id202884%_ + _%hd202881%_)) + (_%find-deps202851%_ + _%rest202880%_ + (cons _%hd202881%_ + _%xdeps202896%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201896%_ + _%hd202881%_ 'gx#prelude-context::t)) - (let ((_%id201914%_ + (let ((_%id202899%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201896%_ + _%hd202881%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201864%_ - _%id201914%_)) - (_%find-deps201866%_ - _%rest201895%_ - _%deps201875%_) - (let ((_%xdeps201918%_ - (_%find-deps201866%_ + _%ht202849%_ + _%id202899%_)) + (_%find-deps202851%_ + _%rest202880%_ + _%deps202860%_) + (let ((_%xdeps202903%_ + (_%find-deps202851%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201896%_ + _%hd202881%_ '7 '#f '#f)) - _%deps201875%_))) + _%deps202860%_))) (if (let () (declare (not safe)) (__hash-get - _%ht201864%_ - _%id201914%_)) - (_%find-deps201866%_ - _%rest201895%_ - _%xdeps201918%_) + _%ht202849%_ + _%id202899%_)) + (_%find-deps202851%_ + _%rest202880%_ + _%xdeps202903%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht201864%_ - _%id201914%_ - _%hd201896%_)) - (_%find-deps201866%_ - _%rest201895%_ - (cons _%hd201896%_ - _%xdeps201918%_))))))) + _%ht202849%_ + _%id202899%_ + _%hd202881%_)) + (_%find-deps202851%_ + _%rest202880%_ + (cons _%hd202881%_ + _%xdeps202903%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201896%_ + _%hd202881%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201896%_ + _%hd202881%_ '3 '#f '#f))) - (_%find-deps201866%_ + (_%find-deps202851%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201896%_ + _%hd202881%_ '1 '#f '#f)) - _%rest201895%_) - _%deps201875%_) - (_%find-deps201866%_ - _%rest201895%_ - _%deps201875%_)) + _%rest202880%_) + _%deps202860%_) + (_%find-deps202851%_ + _%rest202880%_ + _%deps202860%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201896%_ + _%hd202881%_ 'gx#module-export::t)) - (_%find-deps201866%_ + (_%find-deps202851%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201896%_ + _%hd202881%_ '1 '#f '#f)) - _%rest201895%_) - _%deps201875%_) + _%rest202880%_) + _%deps202860%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201896%_ + _%hd202881%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd201896%_ '2 '#f '#f))) - (_%find-deps201866%_ + (##unchecked-structure-ref _%hd202881%_ '2 '#f '#f))) + (_%find-deps202851%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201896%_ '1 '#f '#f)) - _%rest201895%_) - _%deps201875%_) + (##unchecked-structure-ref _%hd202881%_ '1 '#f '#f)) + _%rest202880%_) + _%deps202860%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201896%_ '2 '#f '#f))) - (let ((_%xdeps201925%_ - (_%import-set-template201865%_ _%hd201896%_ '0))) - (_%find-deps201866%_ + (##unchecked-structure-ref _%hd202881%_ '2 '#f '#f))) + (let ((_%xdeps202910%_ + (_%import-set-template202850%_ _%hd202881%_ '0))) + (_%find-deps202851%_ (let () (declare (not safe)) - (__foldl1 cons _%rest201895%_ _%xdeps201925%_)) - _%deps201875%_)) - (_%find-deps201866%_ _%rest201895%_ _%deps201875%_))) + (__foldl1 cons _%rest202880%_ _%xdeps202910%_)) + _%deps202860%_)) + (_%find-deps202851%_ _%rest202880%_ _%deps202860%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd201896%_)))))))))) - (if (pair? _%rest201876201884%_) - (let ((_%hd201881201932%_ + _%hd202881%_)))))))))) + (if (pair? _%rest202861202869%_) + (let ((_%hd202866202917%_ (let () (declare (not safe)) - (##car _%rest201876201884%_))) - (_%tl201882201934%_ + (##car _%rest202861202869%_))) + (_%tl202867202919%_ (let () (declare (not safe)) - (##cdr _%rest201876201884%_)))) - (let* ((_%hd201937%_ _%hd201881201932%_) - (_%rest201939%_ _%tl201882201934%_)) - (_%K201880201929%_ - _%rest201939%_ - _%hd201937%_))) - (_%else201878201892%_)))))) - (let ((__tmp202749 + (##cdr _%rest202861202869%_)))) + (let* ((_%hd202922%_ _%hd202866202917%_) + (_%rest202924%_ _%tl202867202919%_)) + (_%K202865202914%_ + _%rest202924%_ + _%hd202922%_))) + (_%else202863202877%_)))))) + (let ((__tmp203734 (filter gx#expander-context-id - (_%find-deps201866%_ - (let ((_%$e201868%_ + (_%find-deps202851%_ + (let ((_%$e202853%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx201862%_)))) - (if _%$e201868%_ - ((lambda (_%pre201871%_) - (cons _%pre201871%_ + _%ctx202847%_)))) + (if _%$e202853%_ + ((lambda (_%pre202856%_) + (cons _%pre202856%_ (##structure-ref - _%ctx201862%_ + _%ctx202847%_ '8 gx#module-context::t '#f))) - _%$e201868%_) + _%$e202853%_) (##structure-ref - _%ctx201862%_ + _%ctx202847%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp202749))))) + (##reverse __tmp203734))))) (define gxc#find-static-module-file - (lambda (_%ctx201792%_) - (let* ((_%context-id201794%_ + (lambda (_%ctx202777%_) + (let* ((_%context-id202779%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx201792%_ + _%ctx202777%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx201792%_ '1 '#f '#f)) - (string->symbol _%ctx201792%_))) - (_%scm201796%_ - (let ((__tmp202750 - (gxc#static-module-name _%context-id201794%_))) + (##unchecked-structure-ref _%ctx202777%_ '1 '#f '#f)) + (string->symbol _%ctx202777%_))) + (_%scm202781%_ + (let ((__tmp203735 + (gxc#static-module-name _%context-id202779%_))) (declare (not safe)) - (##string-append __tmp202750 '".scm"))) - (_%dirs201798%_ (let () (declare (not safe)) (load-path))) - (_%dirs201804%_ - (let ((_%user-libpath201800%_ + (##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-libpath201800%_ - (let ((_%user-libpath201802%_ - (path-expand '"lib" _%user-libpath201800%_))) + (if _%user-libpath202785%_ + (let ((_%user-libpath202787%_ + (path-expand '"lib" _%user-libpath202785%_))) (if (let () (declare (not safe)) - (##member _%user-libpath201802%_ _%dirs201798%_)) - _%dirs201798%_ - (cons _%user-libpath201802%_ _%dirs201798%_))) - _%dirs201798%_))) - (_%dirs201814%_ - (let ((_%$e201806%_ + (##member _%user-libpath202787%_ _%dirs202783%_)) + _%dirs202783%_ + (cons _%user-libpath202787%_ _%dirs202783%_))) + _%dirs202783%_))) + (_%dirs202799%_ + (let ((_%$e202791%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e201806%_ - ((lambda (_%g201808201810%_) - (cons _%g201808201810%_ _%dirs201804%_)) - _%$e201806%_) - _%dirs201804%_))) - (_%dirs201820%_ - (let ((__tmp202751 - (lambda (_%g201815201817%_) - (path-expand '"static" _%g201815201817%_)))) + (if _%$e202791%_ + ((lambda (_%g202793202795%_) + (cons _%g202793202795%_ _%dirs202789%_)) + _%$e202791%_) + _%dirs202789%_))) + (_%dirs202805%_ + (let ((__tmp203736 + (lambda (_%g202800202802%_) + (path-expand '"static" _%g202800202802%_)))) (declare (not safe)) - (##map __tmp202751 _%dirs201814%_)))) - (let _%lp201823%_ ((_%rest201825%_ _%dirs201820%_)) - (let* ((_%rest201826201834%_ _%rest201825%_) - (_%else201828201842%_ + (##map __tmp203736 _%dirs202799%_)))) + (let _%lp202808%_ ((_%rest202810%_ _%dirs202805%_)) + (let* ((_%rest202811202819%_ _%rest202810%_) + (_%else202813202827%_ (lambda () - (let ((__tmp202752 + (let ((__tmp203737 (##structure-ref - _%ctx201792%_ + _%ctx202777%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp202752 - _%scm201796%_)))) - (_%K201830201850%_ - (lambda (_%rest201845%_ _%dir201846%_) - (let ((_%path201848%_ - (path-expand _%scm201796%_ _%dir201846%_))) + __tmp203737 + _%scm202781%_)))) + (_%K202815202835%_ + (lambda (_%rest202830%_ _%dir202831%_) + (let ((_%path202833%_ + (path-expand _%scm202781%_ _%dir202831%_))) (if (let () (declare (not safe)) - (##file-exists? _%path201848%_)) - _%path201848%_ - (_%lp201823%_ _%rest201845%_)))))) - (if (pair? _%rest201826201834%_) - (let ((_%hd201831201853%_ + (##file-exists? _%path202833%_)) + _%path202833%_ + (_%lp202808%_ _%rest202830%_)))))) + (if (pair? _%rest202811202819%_) + (let ((_%hd202816202838%_ (let () (declare (not safe)) - (##car _%rest201826201834%_))) - (_%tl201832201855%_ + (##car _%rest202811202819%_))) + (_%tl202817202840%_ (let () (declare (not safe)) - (##cdr _%rest201826201834%_)))) - (let* ((_%dir201858%_ _%hd201831201853%_) - (_%rest201860%_ _%tl201832201855%_)) - (_%K201830201850%_ _%rest201860%_ _%dir201858%_))) - (_%else201828201842%_))))))) + (##cdr _%rest202811202819%_)))) + (let* ((_%dir202843%_ _%hd202816202838%_) + (_%rest202845%_ _%tl202817202840%_)) + (_%K202815202835%_ _%rest202845%_ _%dir202843%_))) + (_%else202813202827%_))))))) (define gxc#file-empty? - (lambda (_%path201790%_) - (zero? (let ((__tmp202753 (file-info _%path201790%_ '#t))) + (lambda (_%path202775%_) + (zero? (let ((__tmp203738 (file-info _%path202775%_ '#t))) (declare (not safe)) - (##file-info-size __tmp202753))))) + (##file-info-size __tmp203738))))) (define gxc#compile-top-module - (lambda (_%ctx201786%_) - (let ((__tmp202757 + (lambda (_%ctx202771%_) + (let ((__tmp203742 (lambda () - (let ((__tmp202758 + (let ((__tmp203743 (##structure-ref - _%ctx201786%_ + _%ctx202771%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp202758)) + (gxc#verbose '"compile " __tmp203743)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp202759 + (let ((__tmp203744 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx201786%_))))) + (gxc#optimize! _%ctx202771%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202759)) + (__with-lock gxc#+driver-mutex+ __tmp203744)) '#!void) - (gxc#collect-bindings _%ctx201786%_) - (gxc#compile-runtime-code _%ctx201786%_) - (gxc#compile-meta-code _%ctx201786%_) + (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 _%ctx201786%_) + (gxc#compile-ssxi-code _%ctx202771%_) '#!void))) - (__tmp202756 - (let ((__obj202680 + (__tmp203741 + (let ((__obj203665 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj202680)) - __obj202680)) - (__tmp202755 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202754 + (gxc#symbol-table:::init! __obj203665)) + __obj203665)) + (__tmp203740 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp203739 (let () (declare (not safe)) (make-hash-table__% @@ -1878,137 +1878,137 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp202757 + __tmp203742 gx#current-expander-context - _%ctx201786%_ + _%ctx202771%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp202756 + __tmp203741 gxc#current-compile-runtime-sections - __tmp202755 + __tmp203740 gxc#current-compile-runtime-names - __tmp202754)))) + __tmp203739)))) (define gxc#collect-bindings - (lambda (_%ctx201784%_) - (let ((__tmp202760 - (##structure-ref _%ctx201784%_ '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 __tmp202760)))) + (gxc#apply-collect-bindings __tmp203745)))) (define gxc#compile-runtime-code - (lambda (_%ctx201732%_) - (letrec ((_%compile1201734%_ - (lambda (_%ctx201773%_) - (let* ((_%code201775%_ + (lambda (_%ctx202717%_) + (letrec ((_%compile1202719%_ + (lambda (_%ctx202758%_) + (let* ((_%code202760%_ (##structure-ref - _%ctx201773%_ + _%ctx202758%_ '11 gx#module-context::t '#f)) - (_%rtm201779%_ - (let ((_%idstr201777%_ - (let ((__tmp202761 + (_%rtm202764%_ + (let ((_%idstr202762%_ + (let ((__tmp203746 (##structure-ref - _%ctx201773%_ + _%ctx202758%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp202761)))) + __tmp203746)))) (declare (not safe)) - (##string-append _%idstr201777%_ '"~0"))) - (_%rtc?201781%_ + (##string-append _%idstr202762%_ '"~0"))) + (_%rtc?202766%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code201775%_)))) - (if _%rtc?201781%_ - (let ((__tmp202762 + (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! - __tmp202762 - _%ctx201773%_ - _%rtm201779%_)) + __tmp203747 + _%ctx202758%_ + _%rtm202764%_)) '#!void) - (_%generate-runtime-code201736%_ - _%ctx201773%_ - _%code201775%_ - (if _%rtc?201781%_ _%rtm201779%_ '#f))))) - (_%context-timestamp201735%_ - (lambda (_%ctx201771%_) - (let ((__tmp202763 - (let ((__tmp202764 + (_%generate-runtime-code202721%_ + _%ctx202758%_ + _%code202760%_ + (if _%rtc?202766%_ _%rtm202764%_ '#f))))) + (_%context-timestamp202720%_ + (lambda (_%ctx202756%_) + (let ((__tmp203748 + (let ((__tmp203749 (symbol->string (##structure-ref - _%ctx201771%_ + _%ctx202756%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp202764 '"::timestamp")))) + (##string-append __tmp203749 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp202763)))) - (_%generate-runtime-code201736%_ - (lambda (_%ctx201743%_ _%code201744%_ _%rtm201745%_) - (let* ((_%runtime-code?201747%_ (if _%rtm201745%_ '#t '#f)) - (_%lifts201749%_ (box '())) - (_%runtime-code201752%_ - (if _%runtime-code?201747%_ - (let ((__tmp202767 + (##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 - _%code201744%_)))) - (__tmp202766 + _%code202729%_)))) + (__tmp203751 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202765 + (__tmp203750 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202767 + __tmp203752 gx#current-expander-context - _%ctx201743%_ + _%ctx202728%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts201749%_ + _%lifts202734%_ gxc#current-compile-marks - __tmp202766 + __tmp203751 gxc#current-compile-identifiers - __tmp202765)) + __tmp203750)) '#f)) - (_%runtime-code201754%_ - (if _%runtime-code?201747%_ - (if (null? (unbox _%lifts201749%_)) - _%runtime-code201752%_ + (_%runtime-code202739%_ + (if _%runtime-code?202732%_ + (if (null? (unbox _%lifts202734%_)) + _%runtime-code202737%_ (cons 'begin - (let ((__tmp202769 - (cons _%runtime-code201752%_ + (let ((__tmp203754 + (cons _%runtime-code202737%_ '())) - (__tmp202768 - (reverse (unbox _%lifts201749%_)))) + (__tmp203753 + (reverse (unbox _%lifts202734%_)))) (declare (not safe)) (__foldr1 cons - __tmp202769 - __tmp202768)))) + __tmp203754 + __tmp203753)))) '#f)) - (_%runtime-code201756%_ - (if _%runtime-code?201747%_ + (_%runtime-code202741%_ + (if _%runtime-code?202732%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp201735%_ - _%ctx201743%_) + (cons (_%context-timestamp202720%_ + _%ctx202728%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2016,779 +2016,779 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code201754%_ '()))) + (cons _%runtime-code202739%_ '()))) '#f)) - (_%loader-code201759%_ - (let ((__tmp202770 + (_%loader-code202744%_ + (let ((__tmp203755 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code201744%_))))) + _%code202729%_))))) (declare (not safe)) (__call-with-parameters - __tmp202770 + __tmp203755 gx#current-expander-context - _%ctx201743%_))) - (_%loader-code201761%_ + _%ctx202728%_))) + (_%loader-code202746%_ (cons 'begin - (cons _%loader-code201759%_ - (cons (if _%runtime-code?201747%_ + (cons _%loader-code202744%_ + (cons (if _%runtime-code?202732%_ (cons 'load-module - (cons _%rtm201745%_ + (cons _%rtm202730%_ '())) '(begin)) '())))) - (_%scm0201763%_ - (gxc#compile-output-file _%ctx201743%_ '0 '".scm")) - (_%scmrt201765%_ + (_%scm0202748%_ + (gxc#compile-output-file _%ctx202728%_ '0 '".scm")) + (_%scmrt202750%_ (gxc#compile-output-file - _%ctx201743%_ + _%ctx202728%_ '#f '".scm")) - (_%scms201767%_ - (gxc#compile-static-output-file _%ctx201743%_))) - (if _%runtime-code?201747%_ + (_%scms202752%_ + (gxc#compile-static-output-file _%ctx202728%_))) + (if _%runtime-code?202732%_ (gxc#compile-scm-file__0 - _%scm0201763%_ - _%runtime-code201756%_) + _%scm0202748%_ + _%runtime-code202741%_) '#!void) - (let ((__tmp202771 + (let ((__tmp203756 (lambda () (gxc#compile-scm-file__0 - _%scmrt201765%_ - _%loader-code201761%_)))) + _%scmrt202750%_ + _%loader-code202746%_)))) (declare (not safe)) (__call-with-parameters - __tmp202771 + __tmp203756 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms201767%_)) + (##file-exists? _%scms202752%_)) (let () (declare (not safe)) - (##delete-file _%scms201767%_)) + (##delete-file _%scms202752%_)) '#!void) - (if _%runtime-code?201747%_ + (if _%runtime-code?202732%_ (let () (declare (not safe)) - (##copy-file _%scm0201763%_ _%scms201767%_)) + (##copy-file _%scm0202748%_ _%scms202752%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms201767%_ void))))))) - (let* ((_%all-modules201738%_ - (cons _%ctx201732%_ (gxc#lift-nested-modules _%ctx201732%_))) - (__tmp202772 - (lambda (_%ctx201740%_) - (let ((__tmp202773 - (lambda () (_%compile1201734%_ _%ctx201740%_)))) + (##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 - __tmp202773 + __tmp203758 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp202772 _%all-modules201738%_))))) + (##for-each __tmp203757 _%all-modules202723%_))))) (define gxc#compile-meta-code - (lambda (_%ctx201632%_) - (letrec ((_%compile-ssi201634%_ - (lambda (_%code201700%_) - (let* ((_%path201702%_ + (lambda (_%ctx202617%_) + (letrec ((_%compile-ssi202619%_ + (lambda (_%code202685%_) + (let* ((_%path202687%_ (gxc#compile-output-file - _%ctx201632%_ + _%ctx202617%_ '#f '".ssi")) - (_%prelude201714%_ - (let* ((_%super201704%_ + (_%prelude202699%_ + (let* ((_%super202689%_ (##structure-ref - _%ctx201632%_ + _%ctx202617%_ '3 gx#phi-context::t '#f)) - (_%$e201706%_ + (_%$e202691%_ (##structure-ref - _%super201704%_ + _%super202689%_ '1 gx#expander-context::t '#f))) - (if _%$e201706%_ - ((lambda (_%g201708201710%_) + (if _%$e202691%_ + ((lambda (_%g202693202695%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g201708201710%_))) - _%$e201706%_) + _%g202693202695%_))) + _%$e202691%_) ':))) - (_%ns201716%_ + (_%ns202701%_ (##structure-ref - _%ctx201632%_ + _%ctx202617%_ '6 gx#module-context::t '#f)) - (_%idstr201718%_ + (_%idstr202703%_ (symbol->string (##structure-ref - _%ctx201632%_ + _%ctx202617%_ '1 gx#expander-context::t '#f))) - (_%pkg201726%_ - (let ((_%$e201720%_ + (_%pkg202711%_ + (let ((_%$e202705%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201718%_ '#\/)))) - (if _%$e201720%_ - ((lambda (_%x201723%_) - (let ((__tmp202774 + (string-rindex__0 _%idstr202703%_ '#\/)))) + (if _%$e202705%_ + ((lambda (_%x202708%_) + (let ((__tmp203759 (substring - _%idstr201718%_ + _%idstr202703%_ '0 - _%x201723%_))) + _%x202708%_))) (declare (not safe)) - (##string->symbol __tmp202774))) - _%$e201720%_) + (##string->symbol __tmp203759))) + _%$e202705%_) '#f))) - (_%rt201728%_ - (let ((__tmp202775 + (_%rt202713%_ + (let ((__tmp203760 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp202775 _%ctx201632%_)))) + (hash-get __tmp203760 _%ctx202617%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201702%_)) + (gxc#verbose '"compile " _%path202687%_)) (gxc#with-output-to-scheme-file - _%path201702%_ + _%path202687%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude201714%_)) - (if _%pkg201726%_ + (displayln '"prelude:" '" " _%prelude202699%_)) + (if _%pkg202711%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg201726%_)) + (displayln '"package:" '" " _%pkg202711%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns201716%_)) + (displayln '"namespace:" '" " _%ns202701%_)) (newline) - (pretty-print _%code201700%_) - (if _%rt201728%_ + (pretty-print _%code202685%_) + (if _%rt202713%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt201728%_ '())) + (cons _%rt202713%_ '())) '())))) '#!void)))))) - (_%compile-phi201635%_ - (lambda (_%part201640%_) - (let* ((_%part201641201654%_ _%part201640%_) - (_%E201643201658%_ + (_%compile-phi202620%_ + (lambda (_%part202625%_) + (let* ((_%part202626202639%_ _%part202625%_) + (_%E202628202643%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part201641201654%_ + _%part202626202639%_ '([phi-ctx phi n code]))) '#!void)) - (_%K201644201669%_ - (lambda (_%code201661%_ - _%n201662%_ - _%phi201663%_ - _%phi-ctx201664%_) - (let ((_%code201667%_ - (let ((__tmp202776 + (_%K202629202654%_ + (lambda (_%code202646%_ + _%n202647%_ + _%phi202648%_ + _%phi-ctx202649%_) + (let ((_%code202652%_ + (let ((__tmp203761 (lambda () (gxc#generate-runtime-phi - _%code201661%_)))) + _%code202646%_)))) (declare (not safe)) (__call-with-parameters - __tmp202776 + __tmp203761 gx#current-expander-context - _%phi-ctx201664%_ + _%phi-ctx202649%_ gx#current-expander-phi - _%phi201663%_)))) + _%phi202648%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx201632%_ - _%n201662%_ + _%ctx202617%_ + _%n202647%_ '".scm") - _%code201667%_ + _%code202652%_ '#t))))) - (if (pair? _%part201641201654%_) - (let ((_%hd201645201672%_ + (if (pair? _%part202626202639%_) + (let ((_%hd202630202657%_ (let () (declare (not safe)) - (##car _%part201641201654%_))) - (_%tl201646201674%_ + (##car _%part202626202639%_))) + (_%tl202631202659%_ (let () (declare (not safe)) - (##cdr _%part201641201654%_)))) - (let ((_%phi-ctx201677%_ _%hd201645201672%_)) - (if (pair? _%tl201646201674%_) - (let ((_%hd201647201679%_ + (##cdr _%part202626202639%_)))) + (let ((_%phi-ctx202662%_ _%hd202630202657%_)) + (if (pair? _%tl202631202659%_) + (let ((_%hd202632202664%_ (let () (declare (not safe)) - (##car _%tl201646201674%_))) - (_%tl201648201681%_ + (##car _%tl202631202659%_))) + (_%tl202633202666%_ (let () (declare (not safe)) - (##cdr _%tl201646201674%_)))) - (let ((_%phi201684%_ _%hd201647201679%_)) - (if (pair? _%tl201648201681%_) - (let ((_%hd201649201686%_ + (##cdr _%tl202631202659%_)))) + (let ((_%phi202669%_ _%hd202632202664%_)) + (if (pair? _%tl202633202666%_) + (let ((_%hd202634202671%_ (let () (declare (not safe)) - (##car _%tl201648201681%_))) - (_%tl201650201688%_ + (##car _%tl202633202666%_))) + (_%tl202635202673%_ (let () (declare (not safe)) - (##cdr _%tl201648201681%_)))) - (let ((_%n201691%_ - _%hd201649201686%_)) - (if (pair? _%tl201650201688%_) - (let ((_%hd201651201693%_ + (##cdr _%tl202633202666%_)))) + (let ((_%n202676%_ + _%hd202634202671%_)) + (if (pair? _%tl202635202673%_) + (let ((_%hd202636202678%_ (let () (declare (not safe)) - (##car _%tl201650201688%_))) - (_%tl201652201695%_ + (##car _%tl202635202673%_))) + (_%tl202637202680%_ (let () (declare (not safe)) - (##cdr _%tl201650201688%_)))) - (let ((_%code201698%_ - _%hd201651201693%_)) - (if (null? _%tl201652201695%_) - (_%K201644201669%_ - _%code201698%_ - _%n201691%_ - _%phi201684%_ - _%phi-ctx201677%_) - (_%E201643201658%_)))) - (_%E201643201658%_)))) - (_%E201643201658%_)))) - (_%E201643201658%_)))) - (_%E201643201658%_)))))) - (let ((_g202777_ (gxc#generate-meta-code _%ctx201632%_))) + (##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 ((_g202778_ + (let ((_g203763_ (let () (declare (not safe)) - (if (##values? _g202777_) - (##values-length _g202777_) + (if (##values? _g203762_) + (##values-length _g203762_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g202778_ 2))) - (error "Context expects 2 values" _g202778_))) - (let ((_%ssi-code201637%_ - (let () (declare (not safe)) (##values-ref _g202777_ 0))) - (_%phi-code201638%_ - (let () (declare (not safe)) (##values-ref _g202777_ 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-ssi201634%_ _%ssi-code201637%_) - (for-each _%compile-phi201635%_ _%phi-code201638%_)))))))) + (_%compile-ssi202619%_ _%ssi-code202622%_) + (for-each _%compile-phi202620%_ _%phi-code202623%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx201614%_) - (let* ((_%path201616%_ - (gxc#compile-output-file _%ctx201614%_ '#f '".ssxi.ss")) - (_%code201618%_ - (let ((__tmp202779 + (lambda (_%ctx202599%_) + (let* ((_%path202601%_ + (gxc#compile-output-file _%ctx202599%_ '#f '".ssxi.ss")) + (_%code202603%_ + (let ((__tmp203764 (##structure-ref - _%ctx201614%_ + _%ctx202599%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp202779))) - (_%idstr201620%_ + (gxc#apply-generate-ssxi __tmp203764))) + (_%idstr202605%_ (symbol->string (##structure-ref - _%ctx201614%_ + _%ctx202599%_ '1 gx#expander-context::t '#f))) - (_%pkg201628%_ - (let ((_%$e201622%_ + (_%pkg202613%_ + (let ((_%$e202607%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201620%_ '#\/)))) - (if _%$e201622%_ - ((lambda (_%x201625%_) - (let ((__tmp202780 - (substring _%idstr201620%_ '0 _%x201625%_))) + (string-rindex__0 _%idstr202605%_ '#\/)))) + (if _%$e202607%_ + ((lambda (_%x202610%_) + (let ((__tmp203765 + (substring _%idstr202605%_ '0 _%x202610%_))) (declare (not safe)) - (##string->symbol __tmp202780))) - _%$e201622%_) + (##string->symbol __tmp203765))) + _%$e202607%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201616%_)) + (gxc#verbose '"compile " _%path202601%_)) (gxc#with-output-to-scheme-file - _%path201616%_ + _%path202601%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg201628%_ + (if _%pkg202613%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg201628%_)) + (displayln '"package: " _%pkg202613%_)) '#!void) (newline) - (pretty-print _%code201618%_)))))) + (pretty-print _%code202603%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx201607%_) - (let* ((_%state201609%_ - (let ((__obj202681 + (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! __obj202681 _%ctx201607%_)) - __obj202681)) - (_%ssi-code201611%_ - (let ((__tmp202781 + (gxc#meta-state:::init! __obj203666 _%ctx202592%_)) + __obj203666)) + (_%ssi-code202596%_ + (let ((__tmp203766 (##structure-ref - _%ctx201607%_ + _%ctx202592%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state201609%_ - __tmp202781)))) - (values _%ssi-code201611%_ + _%state202594%_ + __tmp203766)))) + (values _%ssi-code202596%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state201609%_)))))) + (gxc#meta-state-end! _%state202594%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx201600%_) - (let ((_%lifts201602%_ (box '()))) - (let ((__tmp202784 + (lambda (_%stx202585%_) + (let ((_%lifts202587%_ (box '()))) + (let ((__tmp203769 (lambda () - (let ((_%code201605%_ + (let ((_%code202590%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx201600%_)))) - (if (null? (unbox _%lifts201602%_)) - _%code201605%_ + (gxc#apply-generate-runtime-phi _%stx202585%_)))) + (if (null? (unbox _%lifts202587%_)) + _%code202590%_ (cons 'begin - (let ((__tmp202786 (cons _%code201605%_ '())) - (__tmp202785 - (reverse (unbox _%lifts201602%_)))) + (let ((__tmp203771 (cons _%code202590%_ '())) + (__tmp203770 + (reverse (unbox _%lifts202587%_)))) (declare (not safe)) - (__foldr1 cons __tmp202786 __tmp202785))))))) - (__tmp202783 + (__foldr1 cons __tmp203771 __tmp203770))))))) + (__tmp203768 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202782 + (__tmp203767 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202784 + __tmp203769 gxc#current-compile-lift - _%lifts201602%_ + _%lifts202587%_ gxc#current-compile-marks - __tmp202783 + __tmp203768 gxc#current-compile-identifiers - __tmp202782))))) + __tmp203767))))) (define gxc#lift-nested-modules - (lambda (_%ctx201596%_) - (let ((_%modules201598%_ (box '()))) - (let ((__tmp202787 - (##structure-ref _%ctx201596%_ '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 _%modules201598%_ __tmp202787)) - (reverse (unbox _%modules201598%_))))) + (gxc#apply-lift-modules__% '#f _%modules202583%_ __tmp203772)) + (reverse (unbox _%modules202583%_))))) (define gxc#compile-scm-file__% - (lambda (_%path201576%_ _%code201577%_ _%phi?201578%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path201576%_)) + (lambda (_%path202561%_ _%code202562%_ _%phi?202563%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path202561%_)) (gxc#with-output-to-scheme-file - _%path201576%_ + _%path202561%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp202788 - (if _%phi?201578%_ + (let ((__tmp203773 + (if _%phi?202563%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp202788))))))) - (pretty-print _%code201577%_))) + (__foldr1 cons '() __tmp203773))))))) + (pretty-print _%code202562%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201582%_ + (let ((_%compile-it202567%_ (lambda () - (gxc#gsc-compile-file _%path201576%_ _%phi?201578%_)))) + (gxc#gsc-compile-file _%path202561%_ _%phi?202563%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp202789 - (cons 'compile-file (cons _%path201576%_ '())))) + (let ((__tmp203774 + (cons 'compile-file (cons _%path202561%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it201582%_ __tmp202789)) - (_%compile-it201582%_))) + (gxc#add-compile-job!__% _%compile-it202567%_ __tmp203774)) + (_%compile-it202567%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path201587%_ _%code201588%_) - (let ((_%phi?201590%_ '#f)) + (lambda (_%path202572%_ _%code202573%_) + (let ((_%phi?202575%_ '#f)) (gxc#compile-scm-file__% - _%path201587%_ - _%code201588%_ - _%phi?201590%_)))) + _%path202572%_ + _%code202573%_ + _%phi?202575%_)))) (define gxc#compile-scm-file - (lambda _g202791_ - (let ((_g202790_ (let () (declare (not safe)) (##length _g202791_)))) - (cond ((let () (declare (not safe)) (##fx= _g202790_ 2)) - (apply gxc#compile-scm-file__0 _g202791_)) - ((let () (declare (not safe)) (##fx= _g202790_ 3)) - (apply gxc#compile-scm-file__% _g202791_)) + (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 - _g202791_)))))) + _g203776_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?201477%_) - (let _%lp201479%_ ((_%rest201481%_ + (lambda (_%phi?202462%_) + (let _%lp202464%_ ((_%rest202466%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201482%_ '())) - (let* ((_%rest201483201503%_ _%rest201481%_) - (_%else201487201511%_ + (_%opts202467%_ '())) + (let* ((_%rest202468202488%_ _%rest202466%_) + (_%else202472202496%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts201482%_))) - (reverse _%opts201482%_))))) - (let ((_%K201497201554%_ - (lambda (_%rest201552%_) - (_%lp201479%_ _%rest201552%_ _%opts201482%_))) - (_%K201492201536%_ - (lambda (_%rest201534%_) - (_%lp201479%_ _%rest201534%_ _%opts201482%_))) - (_%K201489201518%_ - (lambda (_%rest201515%_ _%opt201516%_) - (_%lp201479%_ - _%rest201515%_ - (cons _%opt201516%_ _%opts201482%_))))) - (if (pair? _%rest201483201503%_) - (let ((_%tl201499201559%_ + (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 _%rest201483201503%_))) - (_%hd201498201557%_ + (##cdr _%rest202468202488%_))) + (_%hd202483202542%_ (let () (declare (not safe)) - (##car _%rest201483201503%_)))) - (if (equal? _%hd201498201557%_ '"-cc-options") - (if (pair? _%tl201499201559%_) - (let* ((_%tl201501201562%_ + (##car _%rest202468202488%_)))) + (if (equal? _%hd202483202542%_ '"-cc-options") + (if (pair? _%tl202484202544%_) + (let* ((_%tl202486202547%_ (let () (declare (not safe)) - (##cdr _%tl201499201559%_))) - (_%rest201565%_ _%tl201501201562%_)) - (_%K201497201554%_ _%rest201565%_)) - (let ((_%opt201526%_ _%hd201498201557%_) - (_%rest201528%_ _%tl201499201559%_)) - (_%K201489201518%_ - _%rest201528%_ - _%opt201526%_))) - (if (equal? _%hd201498201557%_ '"-ld-options") - (if (pair? _%tl201499201559%_) - (let* ((_%tl201496201544%_ + (##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 _%tl201499201559%_))) - (_%rest201547%_ _%tl201496201544%_)) - (_%K201492201536%_ _%rest201547%_)) - (let ((_%opt201526%_ _%hd201498201557%_) - (_%rest201528%_ _%tl201499201559%_)) - (_%K201489201518%_ - _%rest201528%_ - _%opt201526%_))) - (let ((_%opt201526%_ _%hd201498201557%_) - (_%rest201528%_ _%tl201499201559%_)) - (_%K201489201518%_ - _%rest201528%_ - _%opt201526%_))))) - (_%else201487201511%_))))))) + (##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?201571%_ '#f)) (gxc#gsc-link-options__% _%phi?201571%_)))) + (let ((_%phi?202556%_ '#f)) (gxc#gsc-link-options__% _%phi?202556%_)))) (define gxc#gsc-link-options - (lambda _g202793_ - (let ((_g202792_ (let () (declare (not safe)) (##length _g202793_)))) - (cond ((let () (declare (not safe)) (##fx= _g202792_ 0)) - (apply gxc#gsc-link-options__0 _g202793_)) - ((let () (declare (not safe)) (##fx= _g202792_ 1)) - (apply gxc#gsc-link-options__% _g202793_)) + (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 - _g202793_)))))) + _g203778_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords201326%_ _%static?201322201327%_ _%phi?201329%_) - (let ((_%static?201331%_ - (if (eq? _%static?201322201327%_ absent-value) + (lambda (_%@@keywords202311%_ _%static?202307202312%_ _%phi?202314%_) + (let ((_%static?202316%_ + (if (eq? _%static?202307202312%_ absent-value) '#f - _%static?201322201327%_))) - (if _%phi?201329%_ + _%static?202307202312%_))) + (if _%phi?202314%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp201333%_ ((_%rest201335%_ + (let _%lp202318%_ ((_%rest202320%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201336%_ '())) - (let* ((_%rest201337201363%_ _%rest201335%_) - (_%else201342201371%_ + (_%opts202321%_ '())) + (let* ((_%rest202322202348%_ _%rest202320%_) + (_%else202327202356%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts201336%_))) - (reverse! _%opts201336%_))))) - (let ((_%K201357201434%_ - (lambda (_%rest201431%_ _%opt201432%_) - (if _%static?201331%_ - (_%lp201333%_ - _%rest201431%_ - (cons _%opt201432%_ - (cons '"-cc-options" _%opts201336%_))) - (_%lp201333%_ _%rest201431%_ _%opts201336%_)))) - (_%K201352201411%_ - (lambda (_%rest201408%_ _%opt201409%_) - (_%lp201333%_ - _%rest201408%_ - (cons _%opt201409%_ - (cons '"-cc-options" _%opts201336%_))))) - (_%K201347201391%_ - (lambda (_%rest201389%_) - (_%lp201333%_ _%rest201389%_ _%opts201336%_))) - (_%K201344201377%_ - (lambda (_%rest201375%_) - (_%lp201333%_ _%rest201375%_ _%opts201336%_)))) - (if (pair? _%rest201337201363%_) - (let ((_%tl201359201439%_ + (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 _%rest201337201363%_))) - (_%hd201358201437%_ + (##cdr _%rest202322202348%_))) + (_%hd202343202422%_ (let () (declare (not safe)) - (##car _%rest201337201363%_)))) - (if (equal? _%hd201358201437%_ '"-cc-options") - (if (pair? _%tl201359201439%_) - (let ((_%tl201361201444%_ + (##car _%rest202322202348%_)))) + (if (equal? _%hd202343202422%_ '"-cc-options") + (if (pair? _%tl202344202424%_) + (let ((_%tl202346202429%_ (let () (declare (not safe)) - (##cdr _%tl201359201439%_))) - (_%hd201360201442%_ + (##cdr _%tl202344202424%_))) + (_%hd202345202427%_ (let () (declare (not safe)) - (##car _%tl201359201439%_)))) - (if (equal? _%hd201360201442%_ '"-Bstatic") - (let ((_%opt201447%_ - _%hd201360201442%_) - (_%rest201449%_ - _%tl201361201444%_)) - (_%K201357201434%_ - _%rest201449%_ - _%opt201447%_)) - (let ((_%opt201424%_ - _%hd201360201442%_) - (_%rest201426%_ - _%tl201361201444%_)) - (_%K201352201411%_ - _%rest201426%_ - _%opt201424%_)))) - (let ((_%rest201383%_ _%tl201359201439%_)) - (_%K201344201377%_ _%rest201383%_))) - (if (equal? _%hd201358201437%_ '"-ld-options") - (if (pair? _%tl201359201439%_) - (let* ((_%tl201351201399%_ + (##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 _%tl201359201439%_))) - (_%rest201402%_ - _%tl201351201399%_)) - (_%K201347201391%_ _%rest201402%_)) - (let ((_%rest201383%_ - _%tl201359201439%_)) - (_%K201344201377%_ _%rest201383%_))) - (let ((_%rest201383%_ _%tl201359201439%_)) - (_%K201344201377%_ _%rest201383%_))))) - (_%else201342201371%_))))))))) + (##cdr _%tl202344202424%_))) + (_%rest202387%_ + _%tl202336202384%_)) + (_%K202332202376%_ _%rest202387%_)) + (let ((_%rest202368%_ + _%tl202344202424%_)) + (_%K202329202362%_ _%rest202368%_))) + (let ((_%rest202368%_ _%tl202344202424%_)) + (_%K202329202362%_ _%rest202368%_))))) + (_%else202327202356%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords201454%_ _%static?201322201455%_) - (let ((_%phi?201457%_ '#f)) + (lambda (_%@@keywords202439%_ _%static?202307202440%_) + (let ((_%phi?202442%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords201454%_ - _%static?201322201455%_ - _%phi?201457%_)))) + _%@@keywords202439%_ + _%static?202307202440%_ + _%phi?202442%_)))) (define gxc#gsc-cc-options__% - (lambda _g202795_ - (let ((_g202794_ (let () (declare (not safe)) (##length _g202795_)))) - (cond ((let () (declare (not safe)) (##fx= _g202794_ 2)) - (apply gxc#gsc-cc-options__%__0 _g202795_)) - ((let () (declare (not safe)) (##fx= _g202794_ 3)) - (apply gxc#gsc-cc-options__%__% _g202795_)) + (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__% - _g202795_)))))) + _g203780_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords201466%_ . _%args201467%_) + (lambda (_%@@keywords202451%_ . _%args202452%_) (apply gxc#gsc-cc-options__% - _%@@keywords201466%_ + _%@@keywords202451%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201466%_ + _%@@keywords202451%_ 'static: absent-value)) - _%args201467%_))) + _%args202452%_))) (define gxc#gsc-cc-options - (lambda _%args201323201473%_ + (lambda _%args202308202458%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args201323201473%_))) + _%args202308202458%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords201171%_ _%static?201167201172%_ _%phi?201174%_) - (let ((_%static?201176%_ - (if (eq? _%static?201167201172%_ absent-value) + (lambda (_%@@keywords202156%_ _%static?202152202157%_ _%phi?202159%_) + (let ((_%static?202161%_ + (if (eq? _%static?202152202157%_ absent-value) '#f - _%static?201167201172%_))) - (if _%phi?201174%_ + _%static?202152202157%_))) + (if _%phi?202159%_ '() - (let _%lp201178%_ ((_%rest201180%_ + (let _%lp202163%_ ((_%rest202165%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201181%_ '())) - (let* ((_%rest201182201208%_ _%rest201180%_) - (_%else201187201216%_ - (lambda () (reverse! _%opts201181%_)))) - (let ((_%K201202201279%_ - (lambda (_%rest201276%_ _%opt201277%_) - (if _%static?201176%_ - (_%lp201178%_ - _%rest201276%_ - (cons _%opt201277%_ - (cons '"-ld-options" _%opts201181%_))) - (_%lp201178%_ _%rest201276%_ _%opts201181%_)))) - (_%K201197201256%_ - (lambda (_%rest201253%_ _%opt201254%_) - (_%lp201178%_ - _%rest201253%_ - (cons _%opt201254%_ - (cons '"-ld-options" _%opts201181%_))))) - (_%K201192201236%_ - (lambda (_%rest201234%_) - (_%lp201178%_ _%rest201234%_ _%opts201181%_))) - (_%K201189201222%_ - (lambda (_%rest201220%_) - (_%lp201178%_ _%rest201220%_ _%opts201181%_)))) - (if (pair? _%rest201182201208%_) - (let ((_%tl201204201284%_ + (_%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 _%rest201182201208%_))) - (_%hd201203201282%_ + (##cdr _%rest202167202193%_))) + (_%hd202188202267%_ (let () (declare (not safe)) - (##car _%rest201182201208%_)))) - (if (equal? _%hd201203201282%_ '"-ld-options") - (if (pair? _%tl201204201284%_) - (let ((_%tl201206201289%_ + (##car _%rest202167202193%_)))) + (if (equal? _%hd202188202267%_ '"-ld-options") + (if (pair? _%tl202189202269%_) + (let ((_%tl202191202274%_ (let () (declare (not safe)) - (##cdr _%tl201204201284%_))) - (_%hd201205201287%_ + (##cdr _%tl202189202269%_))) + (_%hd202190202272%_ (let () (declare (not safe)) - (##car _%tl201204201284%_)))) - (if (equal? _%hd201205201287%_ '"-static") - (let ((_%opt201292%_ - _%hd201205201287%_) - (_%rest201294%_ - _%tl201206201289%_)) - (_%K201202201279%_ - _%rest201294%_ - _%opt201292%_)) - (let ((_%opt201269%_ - _%hd201205201287%_) - (_%rest201271%_ - _%tl201206201289%_)) - (_%K201197201256%_ - _%rest201271%_ - _%opt201269%_)))) - (let ((_%rest201228%_ _%tl201204201284%_)) - (_%K201189201222%_ _%rest201228%_))) - (if (equal? _%hd201203201282%_ '"-cc-options") - (if (pair? _%tl201204201284%_) - (let* ((_%tl201196201244%_ + (##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 _%tl201204201284%_))) - (_%rest201247%_ - _%tl201196201244%_)) - (_%K201192201236%_ _%rest201247%_)) - (let ((_%rest201228%_ - _%tl201204201284%_)) - (_%K201189201222%_ _%rest201228%_))) - (let ((_%rest201228%_ _%tl201204201284%_)) - (_%K201189201222%_ _%rest201228%_))))) - (_%else201187201216%_))))))))) + (##cdr _%tl202189202269%_))) + (_%rest202232%_ + _%tl202181202229%_)) + (_%K202177202221%_ _%rest202232%_)) + (let ((_%rest202213%_ + _%tl202189202269%_)) + (_%K202174202207%_ _%rest202213%_))) + (let ((_%rest202213%_ _%tl202189202269%_)) + (_%K202174202207%_ _%rest202213%_))))) + (_%else202172202201%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords201299%_ _%static?201167201300%_) - (let ((_%phi?201302%_ '#f)) + (lambda (_%@@keywords202284%_ _%static?202152202285%_) + (let ((_%phi?202287%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords201299%_ - _%static?201167201300%_ - _%phi?201302%_)))) + _%@@keywords202284%_ + _%static?202152202285%_ + _%phi?202287%_)))) (define gxc#gsc-ld-options__% - (lambda _g202797_ - (let ((_g202796_ (let () (declare (not safe)) (##length _g202797_)))) - (cond ((let () (declare (not safe)) (##fx= _g202796_ 2)) - (apply gxc#gsc-ld-options__%__0 _g202797_)) - ((let () (declare (not safe)) (##fx= _g202796_ 3)) - (apply gxc#gsc-ld-options__%__% _g202797_)) + (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__% - _g202797_)))))) + _g203782_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords201311%_ . _%args201312%_) + (lambda (_%@@keywords202296%_ . _%args202297%_) (apply gxc#gsc-ld-options__% - _%@@keywords201311%_ + _%@@keywords202296%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201311%_ + _%@@keywords202296%_ 'static: absent-value)) - _%args201312%_))) + _%args202297%_))) (define gxc#gsc-ld-options - (lambda _%args201168201318%_ + (lambda _%args202153202303%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args201168201318%_))) + _%args202153202303%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir201162%_) - (let ((_%user-staticdir201164%_ + (lambda (_%staticdir202147%_) + (let ((_%user-staticdir202149%_ (path-expand (path-expand '"lib/static" @@ -2796,337 +2796,337 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir201162%_ + _%staticdir202147%_ '" -I " - _%user-staticdir201164%_) + _%user-staticdir202149%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp201074%_ ((_%rest201076%_ + (let _%lp202059%_ ((_%rest202061%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201077%_ '())) - (let* ((_%rest201078201098%_ _%rest201076%_) - (_%else201082201106%_ (lambda () _%opts201077%_))) - (let ((_%K201092201149%_ - (lambda (_%rest201147%_) - (_%lp201074%_ _%rest201147%_ _%opts201077%_))) - (_%K201087201127%_ - (lambda (_%rest201124%_ _%opt201125%_) - (_%lp201074%_ - _%rest201124%_ - (let ((__tmp202798 - (let ((__tmp202799 + (_%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 _%opt201125%_ '#\space)))) + (string-split _%opt202110%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp202799)))) + (##filter gxc#not-string-empty? __tmp203784)))) (declare (not safe)) - (##append _%opts201077%_ __tmp202798))))) - (_%K201084201112%_ - (lambda (_%rest201110%_) - (_%lp201074%_ _%rest201110%_ _%opts201077%_)))) - (if (pair? _%rest201078201098%_) - (let ((_%tl201094201154%_ + (##append _%opts202062%_ __tmp203783))))) + (_%K202069202097%_ + (lambda (_%rest202095%_) + (_%lp202059%_ _%rest202095%_ _%opts202062%_)))) + (if (pair? _%rest202063202083%_) + (let ((_%tl202079202139%_ (let () (declare (not safe)) - (##cdr _%rest201078201098%_))) - (_%hd201093201152%_ + (##cdr _%rest202063202083%_))) + (_%hd202078202137%_ (let () (declare (not safe)) - (##car _%rest201078201098%_)))) - (if (equal? _%hd201093201152%_ '"-cc-options") - (if (pair? _%tl201094201154%_) - (let* ((_%tl201096201157%_ + (##car _%rest202063202083%_)))) + (if (equal? _%hd202078202137%_ '"-cc-options") + (if (pair? _%tl202079202139%_) + (let* ((_%tl202081202142%_ (let () (declare (not safe)) - (##cdr _%tl201094201154%_))) - (_%rest201160%_ _%tl201096201157%_)) - (_%K201092201149%_ _%rest201160%_)) - (let ((_%rest201118%_ _%tl201094201154%_)) - (_%K201084201112%_ _%rest201118%_))) - (if (equal? _%hd201093201152%_ '"-ld-options") - (if (pair? _%tl201094201154%_) - (let ((_%tl201091201137%_ + (##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 _%tl201094201154%_))) - (_%hd201090201135%_ + (##cdr _%tl202079202139%_))) + (_%hd202075202120%_ (let () (declare (not safe)) - (##car _%tl201094201154%_)))) - (let ((_%opt201140%_ _%hd201090201135%_) - (_%rest201142%_ _%tl201091201137%_)) - (_%K201087201127%_ - _%rest201142%_ - _%opt201140%_))) - (let ((_%rest201118%_ _%tl201094201154%_)) - (_%K201084201112%_ _%rest201118%_))) - (let ((_%rest201118%_ _%tl201094201154%_)) - (_%K201084201112%_ _%rest201118%_))))) - (_%else201082201106%_))))))) + (##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 (_%str201071%_) - (not (let () (declare (not safe)) (string-empty? _%str201071%_))))) + (lambda (_%str202056%_) + (not (let () (declare (not safe)) (string-empty? _%str202056%_))))) (define gxc#gsc-compile-file - (lambda (_%path201064%_ _%phi?201065%_) - (let ((_%gsc-link-opts201067%_ - (gxc#gsc-link-options__% _%phi?201065%_)) - (_%gsc-cc-opts201068%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?201065%_)) - (_%gsc-ld-opts201069%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?201065%_))) + (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 ((__tmp202800 - (let ((__tmp202801 - (let ((__tmp202802 (cons _%path201064%_ '()))) + (let ((__tmp203785 + (let ((__tmp203786 + (let ((__tmp203787 (cons _%path202049%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202802 - _%gsc-link-opts201067%_)))) + __tmp203787 + _%gsc-link-opts202052%_)))) (declare (not safe)) - (__foldr1 cons __tmp202801 _%gsc-ld-opts201069%_)))) + (__foldr1 cons __tmp203786 _%gsc-ld-opts202054%_)))) (declare (not safe)) - (__foldr1 cons __tmp202800 _%gsc-cc-opts201068%_)))))) + (__foldr1 cons __tmp203785 _%gsc-cc-opts202053%_)))))) (define gxc#compile-output-file - (lambda (_%ctx201030%_ _%n201031%_ _%ext201032%_) - (letrec ((_%module-relative-path201034%_ - (lambda (_%ctx201062%_) + (lambda (_%ctx202015%_ _%n202016%_ _%ext202017%_) + (letrec ((_%module-relative-path202019%_ + (lambda (_%ctx202047%_) (path-strip-directory - (let ((__tmp202803 + (let ((__tmp203788 (##structure-ref - _%ctx201062%_ + _%ctx202047%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202803))))) - (_%module-source-directory201035%_ - (lambda (_%ctx201058%_) + (gxc#module-id->path-string __tmp203788))))) + (_%module-source-directory202020%_ + (lambda (_%ctx202043%_) (path-directory - (let ((_%mpath201060%_ + (let ((_%mpath202045%_ (##structure-ref - _%ctx201058%_ + _%ctx202043%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath201060%_) - _%mpath201060%_ - (last _%mpath201060%_)))))) - (_%section-string201036%_ - (lambda (_%n201052%_) - (if (number? _%n201052%_) + (if (string? _%mpath202045%_) + _%mpath202045%_ + (last _%mpath202045%_)))))) + (_%section-string202021%_ + (lambda (_%n202037%_) + (if (number? _%n202037%_) (let () (declare (not safe)) - (##number->string _%n201052%_)) - (if (symbol? _%n201052%_) + (##number->string _%n202037%_)) + (if (symbol? _%n202037%_) (let () (declare (not safe)) - (##symbol->string _%n201052%_)) - (if (string? _%n201052%_) - _%n201052%_ + (##symbol->string _%n202037%_)) + (if (string? _%n202037%_) + _%n202037%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n201052%_))))))) - (_%file-name201037%_ - (lambda (_%path201050%_) - (if _%n201031%_ + _%n202037%_))))))) + (_%file-name202022%_ + (lambda (_%path202035%_) + (if _%n202016%_ (string-append - _%path201050%_ + _%path202035%_ '"~" - (_%section-string201036%_ _%n201031%_) - _%ext201032%_) - (string-append _%path201050%_ _%ext201032%_)))) - (_%file-path201038%_ + (_%section-string202021%_ _%n202016%_) + _%ext202017%_) + (string-append _%path202035%_ _%ext202017%_)))) + (_%file-path202023%_ (lambda () - (let ((_%$e201044%_ + (let ((_%$e202029%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e201044%_ - ((lambda (_%outdir201047%_) + (if _%$e202029%_ + ((lambda (_%outdir202032%_) (path-expand - (_%file-name201037%_ - (let ((__tmp202804 + (_%file-name202022%_ + (let ((__tmp203789 (##structure-ref - _%ctx201030%_ + _%ctx202015%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202804))) - _%outdir201047%_)) - _%$e201044%_) + (gxc#module-id->path-string __tmp203789))) + _%outdir202032%_)) + _%$e202029%_) (path-expand - (_%file-name201037%_ - (_%module-relative-path201034%_ _%ctx201030%_)) - (_%module-source-directory201035%_ - _%ctx201030%_))))))) - (let ((_%path201040%_ (_%file-path201038%_))) - (let ((__tmp202805 + (_%file-name202022%_ + (_%module-relative-path202019%_ _%ctx202015%_)) + (_%module-source-directory202020%_ + _%ctx202015%_))))))) + (let ((_%path202025%_ (_%file-path202023%_))) + (let ((__tmp203790 (lambda () - (let ((__tmp202806 (path-directory _%path201040%_))) + (let ((__tmp203791 (path-directory _%path202025%_))) (declare (not safe)) - (create-directory*__0 __tmp202806))))) + (create-directory*__0 __tmp203791))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202805)) - _%path201040%_)))) + (__with-lock gxc#+driver-mutex+ __tmp203790)) + _%path202025%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx201011%_) - (letrec ((_%file-name201013%_ - (lambda (_%id201028%_) - (let ((__tmp202807 (gxc#static-module-name _%id201028%_))) + (lambda (_%ctx201996%_) + (letrec ((_%file-name201998%_ + (lambda (_%id202013%_) + (let ((__tmp203792 (gxc#static-module-name _%id202013%_))) (declare (not safe)) - (##string-append __tmp202807 '".scm")))) - (_%file-path201014%_ + (##string-append __tmp203792 '".scm")))) + (_%file-path201999%_ (lambda () - (let* ((_%file201020%_ - (_%file-name201013%_ + (let* ((_%file202005%_ + (_%file-name201998%_ (##structure-ref - _%ctx201011%_ + _%ctx201996%_ '1 gx#expander-context::t '#f))) - (_%$e201022%_ + (_%$e202007%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e201022%_ - ((lambda (_%outdir201025%_) + (if _%$e202007%_ + ((lambda (_%outdir202010%_) (path-expand - _%file201020%_ - (path-expand '"static" _%outdir201025%_))) - _%$e201022%_) - (path-expand _%file201020%_ '"static")))))) - (let ((_%path201016%_ (_%file-path201014%_))) - (let ((__tmp202808 + _%file202005%_ + (path-expand '"static" _%outdir202010%_))) + _%$e202007%_) + (path-expand _%file202005%_ '"static")))))) + (let ((_%path202001%_ (_%file-path201999%_))) + (let ((__tmp203793 (lambda () - (let ((__tmp202809 (path-directory _%path201016%_))) + (let ((__tmp203794 (path-directory _%path202001%_))) (declare (not safe)) - (create-directory*__0 __tmp202809))))) + (create-directory*__0 __tmp203794))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202808)) - _%path201016%_)))) + (__with-lock gxc#+driver-mutex+ __tmp203793)) + _%path202001%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx201004%_ _%opts201005%_) - (let ((_%$e201007%_ + (lambda (_%ctx201989%_ _%opts201990%_) + (let ((_%$e201992%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts201005%_)))) - (if _%$e201007%_ - _%$e201007%_ + (pgetq__0 'output-file: _%opts201990%_)))) + (if _%$e201992%_ + _%$e201992%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx201004%_ + _%ctx201989%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr200994%_) - (if (string? _%idstr200994%_) - (let* ((_%str200997%_ + (lambda (_%idstr201979%_) + (if (string? _%idstr201979%_) + (let* ((_%str201982%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr200994%_))) - (_%strs200999%_ + (gxc#module-id->path-string _%idstr201979%_))) + (_%strs201984%_ (let () (declare (not safe)) - (string-split _%str200997%_ '#\/)))) + (string-split _%str201982%_ '#\/)))) (declare (not safe)) - (string-join _%strs200999%_ '"__")) - (if (symbol? _%idstr200994%_) + (string-join _%strs201984%_ '"__")) + (if (symbol? _%idstr201979%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr200994%_))) + (##symbol->string _%idstr201979%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr200994%_)))))) + (error '"Bad module id" _%idstr201979%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp202810 - (let ((__tmp202811 (configure-command-string))) + (let ((__tmp203795 + (let ((__tmp203796 (configure-command-string))) (declare (not safe)) - (__string-split __tmp202811 '#\')))) + (__string-split __tmp203796 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp202810)))) + (##member '"--enable-shared" __tmp203795)))) (define gxc#invoke__% - (lambda (_%@@keywords200958%_ - _%stdout-redirection200954200959%_ - _%stderr-redirection200955200961%_ - _%program200963%_ - _%args200964%_) - (let* ((_%stdout-redirection200966%_ - (if (eq? _%stdout-redirection200954200959%_ absent-value) + (lambda (_%@@keywords201943%_ + _%stdout-redirection201939201944%_ + _%stderr-redirection201940201946%_ + _%program201948%_ + _%args201949%_) + (let* ((_%stdout-redirection201951%_ + (if (eq? _%stdout-redirection201939201944%_ absent-value) '#f - _%stdout-redirection200954200959%_)) - (_%stderr-redirection200968%_ - (if (eq? _%stderr-redirection200955200961%_ absent-value) + _%stdout-redirection201939201944%_)) + (_%stderr-redirection201953%_ + (if (eq? _%stderr-redirection201940201946%_ absent-value) '#f - _%stderr-redirection200955200961%_))) - (let ((__tmp202812 (cons _%program200963%_ _%args200964%_))) + _%stderr-redirection201940201946%_))) + (let ((__tmp203797 (cons _%program201948%_ _%args201949%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp202812)) - (let* ((_%proc200970%_ + (gxc#verbose '"invoke " __tmp203797)) + (let* ((_%proc201955%_ (open-process (cons 'path: - (cons _%program200963%_ + (cons _%program201948%_ (cons 'arguments: - (cons _%args200964%_ + (cons _%args201949%_ (cons 'stdout-redirection: - (cons _%stdout-redirection200966%_ + (cons _%stdout-redirection201951%_ (cons 'stderr-redirection: - (cons _%stderr-redirection200968%_ + (cons _%stderr-redirection201953%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output200975%_ - (if (or _%stdout-redirection200966%_ - _%stderr-redirection200968%_) - (read-line _%proc200970%_ '#f) + (_%output201960%_ + (if (or _%stdout-redirection201951%_ + _%stderr-redirection201953%_) + (read-line _%proc201955%_ '#f) '#f)) - (_%status200978%_ (process-status _%proc200970%_))) - (let () (declare (not safe)) (##close-port _%proc200970%_)) - (if (zero? _%status200978%_) + (_%status201963%_ (process-status _%proc201955%_))) + (let () (declare (not safe)) (##close-port _%proc201955%_)) + (if (zero? _%status201963%_) '#!void (begin - (display _%output200975%_) - (let ((__tmp202813 (cons _%program200963%_ _%args200964%_))) + (display _%output201960%_) + (let ((__tmp203798 (cons _%program201948%_ _%args201949%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp202813 - _%status200978%_)))))))) + __tmp203798 + _%status201963%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords200983%_ . _%args200984%_) + (lambda (_%@@keywords201968%_ . _%args201969%_) (apply gxc#invoke__% - _%@@keywords200983%_ + _%@@keywords201968%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200983%_ + _%@@keywords201968%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200983%_ + _%@@keywords201968%_ 'stderr-redirection: absent-value)) - _%args200984%_))) + _%args201969%_))) (define gxc#invoke - (lambda _%args200956200990%_ + (lambda _%args201941201975%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args200956200990%_))))) + _%args201941201975%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index f268fe8ba..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 (_%$stx200889%_) - (let* ((_%g200893200907%_ - (lambda (_%g200894200903%_) + (lambda (_%$stx201874%_) + (let* ((_%g201878201892%_ + (lambda (_%g201879201888%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200894200903%_)))) - (_%g200892200949%_ - (lambda (_%g200894200911%_) + _%g201879201888%_)))) + (_%g201877201934%_ + (lambda (_%g201879201896%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200894200911%_)) - (let ((_%e200896200914%_ + (gx#stx-pair? _%g201879201896%_)) + (let ((_%e201881201899%_ (let () (declare (not safe)) - (gx#syntax-e _%g200894200911%_)))) - (let ((_%hd200897200918%_ + (gx#syntax-e _%g201879201896%_)))) + (let ((_%hd201882201903%_ (let () (declare (not safe)) - (##car _%e200896200914%_))) - (_%tl200898200921%_ + (##car _%e201881201899%_))) + (_%tl201883201906%_ (let () (declare (not safe)) - (##cdr _%e200896200914%_)))) + (##cdr _%e201881201899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200898200921%_)) - (let ((_%e200899200924%_ + (gx#stx-pair? _%tl201883201906%_)) + (let ((_%e201884201909%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200898200921%_)))) - (let ((_%hd200900200928%_ + (gx#syntax-e _%tl201883201906%_)))) + (let ((_%hd201885201913%_ (let () (declare (not safe)) - (##car _%e200899200924%_))) - (_%tl200901200931%_ + (##car _%e201884201909%_))) + (_%tl201886201916%_ (let () (declare (not safe)) - (##cdr _%e200899200924%_)))) + (##cdr _%e201884201909%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200901200931%_)) - ((lambda (_%L200934%_) + (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 _%L200934%_ '()))) + (cons '() (cons _%L201919%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd200900200928%_) - (_%g200893200907%_ _%g200894200911%_)))) - (_%g200893200907%_ _%g200894200911%_)))) - (_%g200893200907%_ _%g200894200911%_))))) - (_%g200892200949%_ _%$stx200889%_)))) + _%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 f87f5a0d4..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 1734131747) + (define gerbil/compiler/method::timestamp 1734357962) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx137837%_) - (let* ((_%self137839%_ + (lambda (_%stx138822%_) + (let* ((_%self138824%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e137841%_ - (let ((__tmp138037 (gxc#stx-car-e _%stx137837%_))) + (_%$e138826%_ + (let ((__tmp139022 (gxc#stx-car-e _%stx138822%_))) (declare (not safe)) - (method-ref _%self137839%_ __tmp138037)))) - (if _%$e137841%_ - ((lambda (_%method137844%_) - (declare (not safe)) - (_%method137844%_ _%self137839%_ _%stx137837%_)) - _%$e137841%_) - (let ((__tmp138039 (gxc#stx-car-e _%stx137837%_)) - (__tmp138038 + (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 _%stx137837%_)))) + (gx#syntax->datum _%stx138822%_)))) (declare (not safe)) (error '"missing method" - _%self137839%_ - __tmp138039 - __tmp138038)))))) + _%self138824%_ + __tmp139024 + __tmp139023)))))) (define gxc#compile-e__1 - (lambda (_%self137848%_ _%stx137849%_) - (let ((_%$e137851%_ - (let ((__tmp138040 (gxc#stx-car-e _%stx137849%_))) - (declare (not safe)) - (method-ref _%self137848%_ __tmp138040)))) - (if _%$e137851%_ - ((lambda (_%method137854%_) - (declare (not safe)) - (_%method137854%_ _%self137848%_ _%stx137849%_)) - _%$e137851%_) - (let ((__tmp138042 (gxc#stx-car-e _%stx137849%_)) - (__tmp138041 + (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 _%stx137849%_)))) + (gx#syntax->datum _%stx138834%_)))) (declare (not safe)) (error '"missing method" - _%self137848%_ - __tmp138042 - __tmp138041)))))) + _%self138833%_ + __tmp139027 + __tmp139026)))))) (define gxc#compile-e - (lambda _g138044_ - (let ((_g138043_ (let () (declare (not safe)) (##length _g138044_)))) - (cond ((let () (declare (not safe)) (##fx= _g138043_ 1)) - (apply gxc#compile-e__0 _g138044_)) - ((let () (declare (not safe)) (##fx= _g138043_ 2)) - (apply gxc#compile-e__1 _g138044_)) + (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 - _g138044_)))))) + _g139029_)))))) (define gxc#stx-car-e - (lambda (_%stx137835%_) - (let ((__tmp138045 - (car (let () (declare (not safe)) (gx#stx-e _%stx137835%_))))) + (lambda (_%stx138820%_) + (let ((__tmp139030 + (car (let () (declare (not safe)) (gx#stx-e _%stx138820%_))))) (declare (not safe)) - (gx#stx-e __tmp138045)))) - (define gxc#void-method (lambda (_%self137832%_ _%stx137833%_) '#!void)) - (define gxc#false-method (lambda (_%self137829%_ _%stx137830%_) '#f)) - (define gxc#true-method (lambda (_%self137826%_ _%stx137827%_) '#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 (_%self137823%_ _%stx137824%_) _%stx137824%_)) + (lambda (_%self138808%_ _%stx138809%_) _%stx138809%_)) (define gxc#::void-expression::t - (let ((__tmp138046 (list))) + (let ((__tmp139031 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp138046 + __tmp139031 '() '() '#f))) @@ -84,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args137820%_ - (apply make-instance gxc#::void-expression::t _%$args137820%_))) + (lambda _%$args138805%_ + (apply make-instance gxc#::void-expression::t _%$args138805%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp138047 + (let ((__tmp139032 (lambda () (let () (declare (not safe)) @@ -216,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp138047))) + (__make-promise __tmp139032))) (define gxc#::void-special-form::t - (let ((__tmp138048 (list))) + (let ((__tmp139033 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp138048 + __tmp139033 '() '() '#f))) @@ -232,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args137816%_ - (apply make-instance gxc#::void-special-form::t _%$args137816%_))) + (lambda _%$args138801%_ + (apply make-instance gxc#::void-special-form::t _%$args138801%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp138049 + (let ((__tmp139034 (lambda () (let () (declare (not safe)) @@ -310,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp138049))) + (__make-promise __tmp139034))) (define gxc#::void::t - (let ((__tmp138050 + (let ((__tmp139035 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp138050 '() '() '#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 _%$args137812%_ - (apply make-instance gxc#::void::t _%$args137812%_))) + (lambda _%$args138797%_ + (apply make-instance gxc#::void::t _%$args138797%_))) (define gxc#::void-bind-methods! - (let ((__tmp138051 + (let ((__tmp139036 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp138051))) + (__make-promise __tmp139036))) (define gxc#::false-expression::t - (let ((__tmp138052 (list))) + (let ((__tmp139037 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp138052 + __tmp139037 '() '() '#f))) @@ -343,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args137808%_ - (apply make-instance gxc#::false-expression::t _%$args137808%_))) + (lambda _%$args138793%_ + (apply make-instance gxc#::false-expression::t _%$args138793%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp138053 + (let ((__tmp139038 (lambda () (let () (declare (not safe)) @@ -475,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp138053))) + (__make-promise __tmp139038))) (define gxc#::false-special-form::t - (let ((__tmp138054 (list))) + (let ((__tmp139039 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp138054 + __tmp139039 '() '() '#f))) @@ -491,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args137804%_ - (apply make-instance gxc#::false-special-form::t _%$args137804%_))) + (lambda _%$args138789%_ + (apply make-instance gxc#::false-special-form::t _%$args138789%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp138055 + (let ((__tmp139040 (lambda () (let () (declare (not safe)) @@ -569,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp138055))) + (__make-promise __tmp139040))) (define gxc#::false::t - (let ((__tmp138056 + (let ((__tmp139041 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp138056 '() '() '#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 _%$args137800%_ - (apply make-instance gxc#::false::t _%$args137800%_))) + (lambda _%$args138785%_ + (apply make-instance gxc#::false::t _%$args138785%_))) (define gxc#::false-bind-methods! - (let ((__tmp138057 + (let ((__tmp139042 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp138057))) + (__make-promise __tmp139042))) (define gxc#::identity-expression::t - (let ((__tmp138058 (list))) + (let ((__tmp139043 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp138058 + __tmp139043 '() '() '#f))) @@ -602,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args137796%_ - (apply make-instance gxc#::identity-expression::t _%$args137796%_))) + (lambda _%$args138781%_ + (apply make-instance gxc#::identity-expression::t _%$args138781%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp138059 + (let ((__tmp139044 (lambda () (let () (declare (not safe)) @@ -734,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp138059))) + (__make-promise __tmp139044))) (define gxc#::identity-special-form::t - (let ((__tmp138060 (list))) + (let ((__tmp139045 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp138060 + __tmp139045 '() '() '#f))) @@ -750,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args137792%_ - (apply make-instance gxc#::identity-special-form::t _%$args137792%_))) + (lambda _%$args138777%_ + (apply make-instance gxc#::identity-special-form::t _%$args138777%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp138061 + (let ((__tmp139046 (lambda () (let () (declare (not safe)) @@ -828,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp138061))) + (__make-promise __tmp139046))) (define gxc#::identity::t - (let ((__tmp138062 + (let ((__tmp139047 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp138062 + __tmp139047 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args137788%_ - (apply make-instance gxc#::identity::t _%$args137788%_))) + (lambda _%$args138773%_ + (apply make-instance gxc#::identity::t _%$args138773%_))) (define gxc#::identity-bind-methods! - (let ((__tmp138063 + (let ((__tmp139048 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp138063))) + (__make-promise __tmp139048))) (define gxc#::basic-xform-expression::t - (let ((__tmp138064 (list))) + (let ((__tmp139049 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp138064 + __tmp139049 '() '() '#f))) @@ -868,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args137784%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args137784%_))) + (lambda _%$args138769%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args138769%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp138065 + (let ((__tmp139050 (lambda () (let () (declare (not safe)) @@ -1000,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp138065))) + (__make-promise __tmp139050))) (define gxc#::basic-xform::t - (let ((__tmp138066 + (let ((__tmp139051 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp138066 + __tmp139051 '() '() '#f))) @@ -1017,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args137780%_ - (apply make-instance gxc#::basic-xform::t _%$args137780%_))) + (lambda _%$args138765%_ + (apply make-instance gxc#::basic-xform::t _%$args138765%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp138067 + (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 __tmp138067))) + (__make-promise __tmp139052))) (define gxc#apply-begin% - (lambda (_%self137736%_ _%stx137737%_) - (let* ((_%g137739137749%_ - (lambda (_%g137740137746%_) + (lambda (_%self138721%_ _%stx138722%_) + (let* ((_%g138724138734%_ + (lambda (_%g138725138731%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137740137746%_)))) - (_%g137738137776%_ - (lambda (_%g137740137752%_) + _%g138725138731%_)))) + (_%g138723138761%_ + (lambda (_%g138725138737%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137740137752%_)) - (let ((_%e137742137754%_ + (gx#stx-pair? _%g138725138737%_)) + (let ((_%e138727138739%_ (let () (declare (not safe)) - (gx#stx-e _%g137740137752%_)))) - (let ((_%hd137743137757%_ + (gx#stx-e _%g138725138737%_)))) + (let ((_%hd138728138742%_ (let () (declare (not safe)) - (##car _%e137742137754%_))) - (_%tl137744137759%_ + (##car _%e138727138739%_))) + (_%tl138729138744%_ (let () (declare (not safe)) - (##cdr _%e137742137754%_)))) - ((lambda (_%L137762%_) + (##cdr _%e138727138739%_)))) + ((lambda (_%L138747%_) (for-each - (lambda (_%g137771137773%_) + (lambda (_%g138756138758%_) (gxc#compile-e__1 - _%self137736%_ - _%g137771137773%_)) + _%self138721%_ + _%g138756138758%_)) (let () (declare (not safe)) - (gx#stx-e _%L137762%_)))) - _%tl137744137759%_))) - (_%g137739137749%_ _%g137740137752%_))))) - (_%g137738137776%_ _%stx137737%_)))) + (gx#stx-e _%L138747%_)))) + _%tl138729138744%_))) + (_%g138724138734%_ _%g138725138737%_))))) + (_%g138723138761%_ _%stx138722%_)))) (define gxc#apply-last-begin% - (lambda (_%self137697%_ _%stx137698%_) - (let* ((_%g137700137710%_ - (lambda (_%g137701137707%_) + (lambda (_%self138682%_ _%stx138683%_) + (let* ((_%g138685138695%_ + (lambda (_%g138686138692%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137701137707%_)))) - (_%g137699137733%_ - (lambda (_%g137701137713%_) + _%g138686138692%_)))) + (_%g138684138718%_ + (lambda (_%g138686138698%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137701137713%_)) - (let ((_%e137703137715%_ + (gx#stx-pair? _%g138686138698%_)) + (let ((_%e138688138700%_ (let () (declare (not safe)) - (gx#stx-e _%g137701137713%_)))) - (let ((_%hd137704137718%_ + (gx#stx-e _%g138686138698%_)))) + (let ((_%hd138689138703%_ (let () (declare (not safe)) - (##car _%e137703137715%_))) - (_%tl137705137720%_ + (##car _%e138688138700%_))) + (_%tl138690138705%_ (let () (declare (not safe)) - (##cdr _%e137703137715%_)))) - ((lambda (_%L137723%_) + (##cdr _%e138688138700%_)))) + ((lambda (_%L138708%_) (gxc#compile-e__1 - _%self137697%_ - (last _%L137723%_))) - _%tl137705137720%_))) - (_%g137700137710%_ _%g137701137713%_))))) - (_%g137699137733%_ _%stx137698%_)))) + _%self138682%_ + (last _%L138708%_))) + _%tl138690138705%_))) + (_%g138685138695%_ _%g138686138698%_))))) + (_%g138684138718%_ _%stx138683%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self137693%_ _%stx137694%_) - (let ((__tmp138070 - (lambda () (gxc#apply-begin% _%self137693%_ _%stx137694%_))) - (__tmp138068 - (let ((__tmp138069 + (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+ __tmp138069 '1)))) + (##fx+ __tmp139054 '1)))) (declare (not safe)) (__call-with-parameters - __tmp138070 + __tmp139055 gx#current-expander-phi - __tmp138068)))) + __tmp139053)))) (define gxc#apply-module% - (lambda (_%self137632%_ _%stx137633%_) - (let* ((_%g137635137649%_ - (lambda (_%g137636137646%_) + (lambda (_%self138617%_ _%stx138618%_) + (let* ((_%g138620138634%_ + (lambda (_%g138621138631%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137636137646%_)))) - (_%g137634137690%_ - (lambda (_%g137636137652%_) + _%g138621138631%_)))) + (_%g138619138675%_ + (lambda (_%g138621138637%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137636137652%_)) - (let ((_%e137639137654%_ + (gx#stx-pair? _%g138621138637%_)) + (let ((_%e138624138639%_ (let () (declare (not safe)) - (gx#stx-e _%g137636137652%_)))) - (let ((_%hd137640137657%_ + (gx#stx-e _%g138621138637%_)))) + (let ((_%hd138625138642%_ (let () (declare (not safe)) - (##car _%e137639137654%_))) - (_%tl137641137659%_ + (##car _%e138624138639%_))) + (_%tl138626138644%_ (let () (declare (not safe)) - (##cdr _%e137639137654%_)))) + (##cdr _%e138624138639%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137641137659%_)) - (let ((_%e137642137662%_ + (gx#stx-pair? _%tl138626138644%_)) + (let ((_%e138627138647%_ (let () (declare (not safe)) - (gx#stx-e _%tl137641137659%_)))) - (let ((_%hd137643137665%_ + (gx#stx-e _%tl138626138644%_)))) + (let ((_%hd138628138650%_ (let () (declare (not safe)) - (##car _%e137642137662%_))) - (_%tl137644137667%_ + (##car _%e138627138647%_))) + (_%tl138629138652%_ (let () (declare (not safe)) - (##cdr _%e137642137662%_)))) - ((lambda (_%L137670%_ _%L137671%_) - (let* ((_%ctx137684%_ + (##cdr _%e138627138647%_)))) + ((lambda (_%L138655%_ _%L138656%_) + (let* ((_%ctx138669%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L137671%_))) - (_%ctx-stx137686%_ + _%L138656%_))) + (_%ctx-stx138671%_ (##structure-ref - _%ctx137684%_ + _%ctx138669%_ '11 gx#module-context::t '#f)) - (__tmp138071 + (__tmp139056 (lambda () (gxc#compile-e__1 - _%self137632%_ - _%ctx-stx137686%_)))) + _%self138617%_ + _%ctx-stx138671%_)))) (declare (not safe)) (__call-with-parameters - __tmp138071 + __tmp139056 gx#current-expander-context - _%ctx137684%_))) - _%tl137644137667%_ - _%hd137643137665%_))) - (_%g137635137649%_ _%g137636137652%_)))) - (_%g137635137649%_ _%g137636137652%_))))) - (_%g137634137690%_ _%stx137633%_)))) + _%ctx138669%_))) + _%tl138629138652%_ + _%hd138628138650%_))) + (_%g138620138634%_ _%g138621138637%_)))) + (_%g138620138634%_ _%g138621138637%_))))) + (_%g138619138675%_ _%stx138618%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self137564%_ _%stx137565%_) - (let* ((_%g137567137584%_ - (lambda (_%g137568137581%_) + (lambda (_%self138549%_ _%stx138550%_) + (let* ((_%g138552138569%_ + (lambda (_%g138553138566%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137568137581%_)))) - (_%g137566137629%_ - (lambda (_%g137568137587%_) + _%g138553138566%_)))) + (_%g138551138614%_ + (lambda (_%g138553138572%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137568137587%_)) - (let ((_%e137571137589%_ + (gx#stx-pair? _%g138553138572%_)) + (let ((_%e138556138574%_ (let () (declare (not safe)) - (gx#stx-e _%g137568137587%_)))) - (let ((_%hd137572137592%_ + (gx#stx-e _%g138553138572%_)))) + (let ((_%hd138557138577%_ (let () (declare (not safe)) - (##car _%e137571137589%_))) - (_%tl137573137594%_ + (##car _%e138556138574%_))) + (_%tl138558138579%_ (let () (declare (not safe)) - (##cdr _%e137571137589%_)))) + (##cdr _%e138556138574%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137573137594%_)) - (let ((_%e137574137597%_ + (gx#stx-pair? _%tl138558138579%_)) + (let ((_%e138559138582%_ (let () (declare (not safe)) - (gx#stx-e _%tl137573137594%_)))) - (let ((_%hd137575137600%_ + (gx#stx-e _%tl138558138579%_)))) + (let ((_%hd138560138585%_ (let () (declare (not safe)) - (##car _%e137574137597%_))) - (_%tl137576137602%_ + (##car _%e138559138582%_))) + (_%tl138561138587%_ (let () (declare (not safe)) - (##cdr _%e137574137597%_)))) + (##cdr _%e138559138582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137576137602%_)) - (let ((_%e137577137605%_ + (gx#stx-pair? _%tl138561138587%_)) + (let ((_%e138562138590%_ (let () (declare (not safe)) - (gx#stx-e _%tl137576137602%_)))) - (let ((_%hd137578137608%_ + (gx#stx-e _%tl138561138587%_)))) + (let ((_%hd138563138593%_ (let () (declare (not safe)) - (##car _%e137577137605%_))) - (_%tl137579137610%_ + (##car _%e138562138590%_))) + (_%tl138564138595%_ (let () (declare (not safe)) - (##cdr _%e137577137605%_)))) + (##cdr _%e138562138590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137579137610%_)) - ((lambda (_%L137613%_ - _%L137614%_) + _%tl138564138595%_)) + ((lambda (_%L138598%_ + _%L138599%_) (gxc#compile-e__1 - _%self137564%_ - _%L137613%_)) - _%hd137578137608%_ - _%hd137575137600%_) - (_%g137567137584%_ - _%g137568137587%_)))) - (_%g137567137584%_ _%g137568137587%_)))) - (_%g137567137584%_ _%g137568137587%_)))) - (_%g137567137584%_ _%g137568137587%_))))) - (_%g137566137629%_ _%stx137565%_)))) + _%self138549%_ + _%L138598%_)) + _%hd138563138593%_ + _%hd138560138585%_) + (_%g138552138569%_ + _%g138553138572%_)))) + (_%g138552138569%_ _%g138553138572%_)))) + (_%g138552138569%_ _%g138553138572%_)))) + (_%g138552138569%_ _%g138553138572%_))))) + (_%g138551138614%_ _%stx138550%_)))) (define gxc#apply-define-values% - (lambda (_%self137496%_ _%stx137497%_) - (let* ((_%g137499137516%_ - (lambda (_%g137500137513%_) + (lambda (_%self138481%_ _%stx138482%_) + (let* ((_%g138484138501%_ + (lambda (_%g138485138498%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137500137513%_)))) - (_%g137498137561%_ - (lambda (_%g137500137519%_) + _%g138485138498%_)))) + (_%g138483138546%_ + (lambda (_%g138485138504%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137500137519%_)) - (let ((_%e137503137521%_ + (gx#stx-pair? _%g138485138504%_)) + (let ((_%e138488138506%_ (let () (declare (not safe)) - (gx#stx-e _%g137500137519%_)))) - (let ((_%hd137504137524%_ + (gx#stx-e _%g138485138504%_)))) + (let ((_%hd138489138509%_ (let () (declare (not safe)) - (##car _%e137503137521%_))) - (_%tl137505137526%_ + (##car _%e138488138506%_))) + (_%tl138490138511%_ (let () (declare (not safe)) - (##cdr _%e137503137521%_)))) + (##cdr _%e138488138506%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137505137526%_)) - (let ((_%e137506137529%_ + (gx#stx-pair? _%tl138490138511%_)) + (let ((_%e138491138514%_ (let () (declare (not safe)) - (gx#stx-e _%tl137505137526%_)))) - (let ((_%hd137507137532%_ + (gx#stx-e _%tl138490138511%_)))) + (let ((_%hd138492138517%_ (let () (declare (not safe)) - (##car _%e137506137529%_))) - (_%tl137508137534%_ + (##car _%e138491138514%_))) + (_%tl138493138519%_ (let () (declare (not safe)) - (##cdr _%e137506137529%_)))) + (##cdr _%e138491138514%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137508137534%_)) - (let ((_%e137509137537%_ + (gx#stx-pair? _%tl138493138519%_)) + (let ((_%e138494138522%_ (let () (declare (not safe)) - (gx#stx-e _%tl137508137534%_)))) - (let ((_%hd137510137540%_ + (gx#stx-e _%tl138493138519%_)))) + (let ((_%hd138495138525%_ (let () (declare (not safe)) - (##car _%e137509137537%_))) - (_%tl137511137542%_ + (##car _%e138494138522%_))) + (_%tl138496138527%_ (let () (declare (not safe)) - (##cdr _%e137509137537%_)))) + (##cdr _%e138494138522%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137511137542%_)) - ((lambda (_%L137545%_ - _%L137546%_) + _%tl138496138527%_)) + ((lambda (_%L138530%_ + _%L138531%_) (gxc#compile-e__1 - _%self137496%_ - _%L137545%_)) - _%hd137510137540%_ - _%hd137507137532%_) - (_%g137499137516%_ - _%g137500137519%_)))) - (_%g137499137516%_ _%g137500137519%_)))) - (_%g137499137516%_ _%g137500137519%_)))) - (_%g137499137516%_ _%g137500137519%_))))) - (_%g137498137561%_ _%stx137497%_)))) + _%self138481%_ + _%L138530%_)) + _%hd138495138525%_ + _%hd138492138517%_) + (_%g138484138501%_ + _%g138485138504%_)))) + (_%g138484138501%_ _%g138485138504%_)))) + (_%g138484138501%_ _%g138485138504%_)))) + (_%g138484138501%_ _%g138485138504%_))))) + (_%g138483138546%_ _%stx138482%_)))) (define gxc#apply-define-syntax% - (lambda (_%self137427%_ _%stx137428%_) - (let* ((_%g137430137447%_ - (lambda (_%g137431137444%_) + (lambda (_%self138412%_ _%stx138413%_) + (let* ((_%g138415138432%_ + (lambda (_%g138416138429%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137431137444%_)))) - (_%g137429137493%_ - (lambda (_%g137431137450%_) + _%g138416138429%_)))) + (_%g138414138478%_ + (lambda (_%g138416138435%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137431137450%_)) - (let ((_%e137434137452%_ + (gx#stx-pair? _%g138416138435%_)) + (let ((_%e138419138437%_ (let () (declare (not safe)) - (gx#stx-e _%g137431137450%_)))) - (let ((_%hd137435137455%_ + (gx#stx-e _%g138416138435%_)))) + (let ((_%hd138420138440%_ (let () (declare (not safe)) - (##car _%e137434137452%_))) - (_%tl137436137457%_ + (##car _%e138419138437%_))) + (_%tl138421138442%_ (let () (declare (not safe)) - (##cdr _%e137434137452%_)))) + (##cdr _%e138419138437%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137436137457%_)) - (let ((_%e137437137460%_ + (gx#stx-pair? _%tl138421138442%_)) + (let ((_%e138422138445%_ (let () (declare (not safe)) - (gx#stx-e _%tl137436137457%_)))) - (let ((_%hd137438137463%_ + (gx#stx-e _%tl138421138442%_)))) + (let ((_%hd138423138448%_ (let () (declare (not safe)) - (##car _%e137437137460%_))) - (_%tl137439137465%_ + (##car _%e138422138445%_))) + (_%tl138424138450%_ (let () (declare (not safe)) - (##cdr _%e137437137460%_)))) + (##cdr _%e138422138445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137439137465%_)) - (let ((_%e137440137468%_ + (gx#stx-pair? _%tl138424138450%_)) + (let ((_%e138425138453%_ (let () (declare (not safe)) - (gx#stx-e _%tl137439137465%_)))) - (let ((_%hd137441137471%_ + (gx#stx-e _%tl138424138450%_)))) + (let ((_%hd138426138456%_ (let () (declare (not safe)) - (##car _%e137440137468%_))) - (_%tl137442137473%_ + (##car _%e138425138453%_))) + (_%tl138427138458%_ (let () (declare (not safe)) - (##cdr _%e137440137468%_)))) + (##cdr _%e138425138453%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137442137473%_)) - ((lambda (_%L137476%_ - _%L137477%_) - (let ((__tmp138074 + _%tl138427138458%_)) + ((lambda (_%L138461%_ + _%L138462%_) + (let ((__tmp139059 (lambda () (gxc#compile-e__1 - _%self137427%_ - _%L137476%_))) - (__tmp138072 - (let ((__tmp138073 + _%self138412%_ + _%L138461%_))) + (__tmp139057 + (let ((__tmp139058 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp138073 '1)))) + (##fx+ __tmp139058 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp138074 + __tmp139059 gx#current-expander-phi - __tmp138072))) - _%hd137441137471%_ - _%hd137438137463%_) - (_%g137430137447%_ - _%g137431137450%_)))) - (_%g137430137447%_ _%g137431137450%_)))) - (_%g137430137447%_ _%g137431137450%_)))) - (_%g137430137447%_ _%g137431137450%_))))) - (_%g137429137493%_ _%stx137428%_)))) + __tmp139057))) + _%hd138426138456%_ + _%hd138423138448%_) + (_%g138415138432%_ + _%g138416138435%_)))) + (_%g138415138432%_ _%g138416138435%_)))) + (_%g138415138432%_ _%g138416138435%_)))) + (_%g138415138432%_ _%g138416138435%_))))) + (_%g138414138478%_ _%stx138413%_)))) (define gxc#apply-body-lambda% - (lambda (_%self137359%_ _%stx137360%_) - (let* ((_%g137362137379%_ - (lambda (_%g137363137376%_) + (lambda (_%self138344%_ _%stx138345%_) + (let* ((_%g138347138364%_ + (lambda (_%g138348138361%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137363137376%_)))) - (_%g137361137424%_ - (lambda (_%g137363137382%_) + _%g138348138361%_)))) + (_%g138346138409%_ + (lambda (_%g138348138367%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137363137382%_)) - (let ((_%e137366137384%_ + (gx#stx-pair? _%g138348138367%_)) + (let ((_%e138351138369%_ (let () (declare (not safe)) - (gx#stx-e _%g137363137382%_)))) - (let ((_%hd137367137387%_ + (gx#stx-e _%g138348138367%_)))) + (let ((_%hd138352138372%_ (let () (declare (not safe)) - (##car _%e137366137384%_))) - (_%tl137368137389%_ + (##car _%e138351138369%_))) + (_%tl138353138374%_ (let () (declare (not safe)) - (##cdr _%e137366137384%_)))) + (##cdr _%e138351138369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137368137389%_)) - (let ((_%e137369137392%_ + (gx#stx-pair? _%tl138353138374%_)) + (let ((_%e138354138377%_ (let () (declare (not safe)) - (gx#stx-e _%tl137368137389%_)))) - (let ((_%hd137370137395%_ + (gx#stx-e _%tl138353138374%_)))) + (let ((_%hd138355138380%_ (let () (declare (not safe)) - (##car _%e137369137392%_))) - (_%tl137371137397%_ + (##car _%e138354138377%_))) + (_%tl138356138382%_ (let () (declare (not safe)) - (##cdr _%e137369137392%_)))) + (##cdr _%e138354138377%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137371137397%_)) - (let ((_%e137372137400%_ + (gx#stx-pair? _%tl138356138382%_)) + (let ((_%e138357138385%_ (let () (declare (not safe)) - (gx#stx-e _%tl137371137397%_)))) - (let ((_%hd137373137403%_ + (gx#stx-e _%tl138356138382%_)))) + (let ((_%hd138358138388%_ (let () (declare (not safe)) - (##car _%e137372137400%_))) - (_%tl137374137405%_ + (##car _%e138357138385%_))) + (_%tl138359138390%_ (let () (declare (not safe)) - (##cdr _%e137372137400%_)))) + (##cdr _%e138357138385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137374137405%_)) - ((lambda (_%L137408%_ - _%L137409%_) + _%tl138359138390%_)) + ((lambda (_%L138393%_ + _%L138394%_) (gxc#compile-e__1 - _%self137359%_ - _%L137408%_)) - _%hd137373137403%_ - _%hd137370137395%_) - (_%g137362137379%_ - _%g137363137382%_)))) - (_%g137362137379%_ _%g137363137382%_)))) - (_%g137362137379%_ _%g137363137382%_)))) - (_%g137362137379%_ _%g137363137382%_))))) - (_%g137361137424%_ _%stx137360%_)))) + _%self138344%_ + _%L138393%_)) + _%hd138358138388%_ + _%hd138355138380%_) + (_%g138347138364%_ + _%g138348138367%_)))) + (_%g138347138364%_ _%g138348138367%_)))) + (_%g138347138364%_ _%g138348138367%_)))) + (_%g138347138364%_ _%g138348138367%_))))) + (_%g138346138409%_ _%stx138345%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self137241%_ _%stx137242%_) - (let* ((_%g137244137272%_ - (lambda (_%g137245137269%_) + (lambda (_%self138226%_ _%stx138227%_) + (let* ((_%g138229138257%_ + (lambda (_%g138230138254%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137245137269%_)))) - (_%g137243137356%_ - (lambda (_%g137245137275%_) + _%g138230138254%_)))) + (_%g138228138341%_ + (lambda (_%g138230138260%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137245137275%_)) - (let ((_%e137248137277%_ + (gx#stx-pair? _%g138230138260%_)) + (let ((_%e138233138262%_ (let () (declare (not safe)) - (gx#stx-e _%g137245137275%_)))) - (let ((_%hd137249137280%_ + (gx#stx-e _%g138230138260%_)))) + (let ((_%hd138234138265%_ (let () (declare (not safe)) - (##car _%e137248137277%_))) - (_%tl137250137282%_ + (##car _%e138233138262%_))) + (_%tl138235138267%_ (let () (declare (not safe)) - (##cdr _%e137248137277%_)))) + (##cdr _%e138233138262%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl137250137282%_)) - (let ((_g138075_ + (gx#stx-pair/null? _%tl138235138267%_)) + (let ((_g139060_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl137250137282%_ + _%tl138235138267%_ '0)))) (begin - (let ((_g138076_ + (let ((_g139061_ (let () (declare (not safe)) - (if (##values? _g138075_) - (##values-length _g138075_) + (if (##values? _g139060_) + (##values-length _g139060_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g138076_ 2))) + (##fx= _g139061_ 2))) (error "Context expects 2 values" - _g138076_))) - (let ((_%target137251137285%_ + _g139061_))) + (let ((_%target138236138270%_ (let () (declare (not safe)) - (##values-ref _g138075_ 0))) - (_%tl137253137287%_ + (##values-ref _g139060_ 0))) + (_%tl138238138272%_ (let () (declare (not safe)) - (##values-ref _g138075_ 1)))) + (##values-ref _g139060_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137253137287%_)) - (letrec ((_%loop137254137290%_ - (lambda (_%hd137252137293%_ - _%body137258137295%_ - _%hd137259137297%_) + (gx#stx-null? _%tl138238138272%_)) + (letrec ((_%loop138239138275%_ + (lambda (_%hd138237138278%_ + _%body138243138280%_ + _%hd138244138282%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd137252137293%_)) - (let ((_%e137255137300%_ + _%hd138237138278%_)) + (let ((_%e138240138285%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd137252137293%_)))) - (let ((_%lp-hd137256137303%_ + (gx#stx-e _%hd138237138278%_)))) + (let ((_%lp-hd138241138288%_ (let () (declare (not safe)) - (##car _%e137255137300%_))) - (_%lp-tl137257137305%_ + (##car _%e138240138285%_))) + (_%lp-tl138242138290%_ (let () (declare (not safe)) - (##cdr _%e137255137300%_)))) + (##cdr _%e138240138285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd137256137303%_)) - (let ((_%e137262137308%_ + (gx#stx-pair? _%lp-hd138241138288%_)) + (let ((_%e138247138293%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd137256137303%_)))) - (let ((_%hd137263137311%_ + (gx#stx-e _%lp-hd138241138288%_)))) + (let ((_%hd138248138296%_ (let () (declare (not safe)) - (##car _%e137262137308%_))) - (_%tl137264137313%_ + (##car _%e138247138293%_))) + (_%tl138249138298%_ (let () (declare (not safe)) - (##cdr _%e137262137308%_)))) + (##cdr _%e138247138293%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137264137313%_)) - (let ((_%e137265137316%_ + (gx#stx-pair? _%tl138249138298%_)) + (let ((_%e138250138301%_ (let () (declare (not safe)) - (gx#stx-e _%tl137264137313%_)))) - (let ((_%hd137266137319%_ + (gx#stx-e _%tl138249138298%_)))) + (let ((_%hd138251138304%_ (let () (declare (not safe)) - (##car _%e137265137316%_))) - (_%tl137267137321%_ + (##car _%e138250138301%_))) + (_%tl138252138306%_ (let () (declare (not safe)) - (##cdr _%e137265137316%_)))) + (##cdr _%e138250138301%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137267137321%_)) - (_%loop137254137290%_ - _%lp-tl137257137305%_ - (cons _%hd137266137319%_ - _%body137258137295%_) - (cons _%hd137263137311%_ - _%hd137259137297%_)) - (_%g137244137272%_ - _%g137245137275%_)))) - (_%g137244137272%_ _%g137245137275%_)))) - (_%g137244137272%_ _%g137245137275%_)))) - (let ((_%body137260137324%_ (reverse _%body137258137295%_)) - (_%hd137261137326%_ (reverse _%hd137259137297%_))) - ((lambda (_%L137329%_ _%L137330%_) + (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 (_%g137344137346%_) - (gxc#compile-e__1 _%self137241%_ _%g137344137346%_)) - (let ((__tmp138077 - (lambda (_%g137348137351%_ _%g137349137353%_) - (cons _%g137348137351%_ _%g137349137353%_)))) + (lambda (_%g138329138331%_) + (gxc#compile-e__1 _%self138226%_ _%g138329138331%_)) + (let ((__tmp139062 + (lambda (_%g138333138336%_ _%g138334138338%_) + (cons _%g138333138336%_ _%g138334138338%_)))) (declare (not safe)) - (__foldr1 __tmp138077 '() _%L137329%_)))) - _%body137260137324%_ - _%hd137261137326%_)))))) + (__foldr1 __tmp139062 '() _%L138314%_)))) + _%body138245138309%_ + _%hd138246138311%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137254137290%_ - _%target137251137285%_ + (_%loop138239138275%_ + _%target138236138270%_ '() '())) - (_%g137244137272%_ - _%g137245137275%_))))) - (_%g137244137272%_ _%g137245137275%_)))) - (_%g137244137272%_ _%g137245137275%_))))) - (_%g137243137356%_ _%stx137242%_)))) + (_%g138229138257%_ + _%g138230138260%_))))) + (_%g138229138257%_ _%g138230138260%_)))) + (_%g138229138257%_ _%g138230138260%_))))) + (_%g138228138341%_ _%stx138227%_)))) (define gxc#apply-body-let-values% - (lambda (_%self137094%_ _%stx137095%_) - (let* ((_%g137097137132%_ - (lambda (_%g137098137129%_) + (lambda (_%self138079%_ _%stx138080%_) + (let* ((_%g138082138117%_ + (lambda (_%g138083138114%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137098137129%_)))) - (_%g137096137238%_ - (lambda (_%g137098137135%_) + _%g138083138114%_)))) + (_%g138081138223%_ + (lambda (_%g138083138120%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137098137135%_)) - (let ((_%e137102137137%_ + (gx#stx-pair? _%g138083138120%_)) + (let ((_%e138087138122%_ (let () (declare (not safe)) - (gx#stx-e _%g137098137135%_)))) - (let ((_%hd137103137140%_ + (gx#stx-e _%g138083138120%_)))) + (let ((_%hd138088138125%_ (let () (declare (not safe)) - (##car _%e137102137137%_))) - (_%tl137104137142%_ + (##car _%e138087138122%_))) + (_%tl138089138127%_ (let () (declare (not safe)) - (##cdr _%e137102137137%_)))) + (##cdr _%e138087138122%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137104137142%_)) - (let ((_%e137105137145%_ + (gx#stx-pair? _%tl138089138127%_)) + (let ((_%e138090138130%_ (let () (declare (not safe)) - (gx#stx-e _%tl137104137142%_)))) - (let ((_%hd137106137148%_ + (gx#stx-e _%tl138089138127%_)))) + (let ((_%hd138091138133%_ (let () (declare (not safe)) - (##car _%e137105137145%_))) - (_%tl137107137150%_ + (##car _%e138090138130%_))) + (_%tl138092138135%_ (let () (declare (not safe)) - (##cdr _%e137105137145%_)))) + (##cdr _%e138090138130%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd137106137148%_)) - (let ((_g138078_ + (gx#stx-pair/null? _%hd138091138133%_)) + (let ((_g139063_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd137106137148%_ + _%hd138091138133%_ '0)))) (begin - (let ((_g138079_ + (let ((_g139064_ (let () (declare (not safe)) - (if (##values? _g138078_) + (if (##values? _g139063_) (##values-length - _g138078_) + _g139063_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g138079_ 2))) + (##fx= _g139064_ 2))) (error "Context expects 2 values" - _g138079_))) - (let ((_%target137108137153%_ + _g139064_))) + (let ((_%target138093138138%_ (let () (declare (not safe)) - (##values-ref _g138078_ 0))) - (_%tl137110137155%_ + (##values-ref _g139063_ 0))) + (_%tl138095138140%_ (let () (declare (not safe)) (##values-ref - _g138078_ + _g139063_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137110137155%_)) - (letrec ((_%loop137111137158%_ - (lambda (_%hd137109137161%_ + _%tl138095138140%_)) + (letrec ((_%loop138096138143%_ + (lambda (_%hd138094138146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr137115137163%_ - _%hd137116137165%_) + _%expr138100138148%_ + _%hd138101138150%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd137109137161%_)) - (let ((_%e137112137168%_ + (gx#stx-pair? _%hd138094138146%_)) + (let ((_%e138097138153%_ (let () (declare (not safe)) - (gx#stx-e _%hd137109137161%_)))) - (let ((_%lp-hd137113137171%_ + (gx#stx-e _%hd138094138146%_)))) + (let ((_%lp-hd138098138156%_ (let () (declare (not safe)) - (##car _%e137112137168%_))) - (_%lp-tl137114137173%_ + (##car _%e138097138153%_))) + (_%lp-tl138099138158%_ (let () (declare (not safe)) - (##cdr _%e137112137168%_)))) + (##cdr _%e138097138153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd137113137171%_)) - (let ((_%e137122137176%_ + (gx#stx-pair? _%lp-hd138098138156%_)) + (let ((_%e138107138161%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd137113137171%_)))) - (let ((_%hd137123137179%_ + (gx#stx-e _%lp-hd138098138156%_)))) + (let ((_%hd138108138164%_ (let () (declare (not safe)) - (##car _%e137122137176%_))) - (_%tl137124137181%_ + (##car _%e138107138161%_))) + (_%tl138109138166%_ (let () (declare (not safe)) - (##cdr _%e137122137176%_)))) + (##cdr _%e138107138161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137124137181%_)) - (let ((_%e137125137184%_ + (gx#stx-pair? _%tl138109138166%_)) + (let ((_%e138110138169%_ (let () (declare (not safe)) (gx#stx-e - _%tl137124137181%_)))) - (let ((_%hd137126137187%_ + _%tl138109138166%_)))) + (let ((_%hd138111138172%_ (let () (declare (not safe)) - (##car _%e137125137184%_))) - (_%tl137127137189%_ + (##car _%e138110138169%_))) + (_%tl138112138174%_ (let () (declare (not safe)) - (##cdr _%e137125137184%_)))) + (##cdr _%e138110138169%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137127137189%_)) - (_%loop137111137158%_ - _%lp-tl137114137173%_ - (cons _%hd137126137187%_ - _%expr137115137163%_) - (cons _%hd137123137179%_ - _%hd137116137165%_)) - (_%g137097137132%_ - _%g137098137135%_)))) - (_%g137097137132%_ - _%g137098137135%_)))) - (_%g137097137132%_ _%g137098137135%_)))) - (let ((_%expr137117137192%_ - (reverse _%expr137115137163%_)) - (_%hd137118137194%_ - (reverse _%hd137116137165%_))) + _%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? _%tl137107137150%_)) - (let ((_%e137119137197%_ + (gx#stx-pair? _%tl138092138135%_)) + (let ((_%e138104138182%_ (let () (declare (not safe)) - (gx#stx-e _%tl137107137150%_)))) - (let ((_%hd137120137200%_ + (gx#stx-e _%tl138092138135%_)))) + (let ((_%hd138105138185%_ (let () (declare (not safe)) - (##car _%e137119137197%_))) - (_%tl137121137202%_ + (##car _%e138104138182%_))) + (_%tl138106138187%_ (let () (declare (not safe)) - (##cdr _%e137119137197%_)))) + (##cdr _%e138104138182%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137121137202%_)) - ((lambda (_%L137205%_ - _%L137206%_ - _%L137207%_) + (gx#stx-null? _%tl138106138187%_)) + ((lambda (_%L138190%_ + _%L138191%_ + _%L138192%_) (for-each - (lambda (_%g137226137228%_) + (lambda (_%g138211138213%_) (gxc#compile-e__1 - _%self137094%_ - _%g137226137228%_)) - (let ((__tmp138081 - (lambda (_%g137230137233%_ - _%g137231137235%_) - (cons _%g137230137233%_ - _%g137231137235%_))) - (__tmp138080 - (cons _%L137205%_ '()))) + _%self138079%_ + _%g138211138213%_)) + (let ((__tmp139066 + (lambda (_%g138215138218%_ + _%g138216138220%_) + (cons _%g138215138218%_ + _%g138216138220%_))) + (__tmp139065 + (cons _%L138190%_ '()))) (declare (not safe)) (__foldr1 - __tmp138081 - __tmp138080 - _%L137206%_)))) - _%hd137120137200%_ - _%expr137117137192%_ - _%hd137118137194%_) - (_%g137097137132%_ _%g137098137135%_)))) - (_%g137097137132%_ _%g137098137135%_))))))) + __tmp139066 + __tmp139065 + _%L138191%_)))) + _%hd138105138185%_ + _%expr138102138177%_ + _%hd138103138179%_) + (_%g138082138117%_ _%g138083138120%_)))) + (_%g138082138117%_ _%g138083138120%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137111137158%_ - _%target137108137153%_ + (_%loop138096138143%_ + _%target138093138138%_ '() '())) - (_%g137097137132%_ - _%g137098137135%_))))) - (_%g137097137132%_ _%g137098137135%_)))) - (_%g137097137132%_ _%g137098137135%_)))) - (_%g137097137132%_ _%g137098137135%_))))) - (_%g137096137238%_ _%stx137095%_)))) + (_%g138082138117%_ + _%g138083138120%_))))) + (_%g138082138117%_ _%g138083138120%_)))) + (_%g138082138117%_ _%g138083138120%_)))) + (_%g138082138117%_ _%g138083138120%_))))) + (_%g138081138223%_ _%stx138080%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self137039%_ _%stx137040%_) - (let* ((_%g137042137056%_ - (lambda (_%g137043137053%_) + (lambda (_%self138024%_ _%stx138025%_) + (let* ((_%g138027138041%_ + (lambda (_%g138028138038%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137043137053%_)))) - (_%g137041137091%_ - (lambda (_%g137043137059%_) + _%g138028138038%_)))) + (_%g138026138076%_ + (lambda (_%g138028138044%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137043137059%_)) - (let ((_%e137046137061%_ + (gx#stx-pair? _%g138028138044%_)) + (let ((_%e138031138046%_ (let () (declare (not safe)) - (gx#stx-e _%g137043137059%_)))) - (let ((_%hd137047137064%_ + (gx#stx-e _%g138028138044%_)))) + (let ((_%hd138032138049%_ (let () (declare (not safe)) - (##car _%e137046137061%_))) - (_%tl137048137066%_ + (##car _%e138031138046%_))) + (_%tl138033138051%_ (let () (declare (not safe)) - (##cdr _%e137046137061%_)))) + (##cdr _%e138031138046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137048137066%_)) - (let ((_%e137049137069%_ + (gx#stx-pair? _%tl138033138051%_)) + (let ((_%e138034138054%_ (let () (declare (not safe)) - (gx#stx-e _%tl137048137066%_)))) - (let ((_%hd137050137072%_ + (gx#stx-e _%tl138033138051%_)))) + (let ((_%hd138035138057%_ (let () (declare (not safe)) - (##car _%e137049137069%_))) - (_%tl137051137074%_ + (##car _%e138034138054%_))) + (_%tl138036138059%_ (let () (declare (not safe)) - (##cdr _%e137049137069%_)))) - ((lambda (_%L137077%_ _%L137078%_) + (##cdr _%e138034138054%_)))) + ((lambda (_%L138062%_ _%L138063%_) (gxc#compile-e__1 - _%self137039%_ - (last _%L137077%_))) - _%tl137051137074%_ - _%hd137050137072%_))) - (_%g137042137056%_ _%g137043137059%_)))) - (_%g137042137056%_ _%g137043137059%_))))) - (_%g137041137091%_ _%stx137040%_)))) + _%self138024%_ + (last _%L138062%_))) + _%tl138036138059%_ + _%hd138035138057%_))) + (_%g138027138041%_ _%g138028138044%_)))) + (_%g138027138041%_ _%g138028138044%_))))) + (_%g138026138076%_ _%stx138025%_)))) (define gxc#apply-body-setq% - (lambda (_%self136971%_ _%stx136972%_) - (let* ((_%g136974136991%_ - (lambda (_%g136975136988%_) + (lambda (_%self137956%_ _%stx137957%_) + (let* ((_%g137959137976%_ + (lambda (_%g137960137973%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136975136988%_)))) - (_%g136973137036%_ - (lambda (_%g136975136994%_) + _%g137960137973%_)))) + (_%g137958138021%_ + (lambda (_%g137960137979%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136975136994%_)) - (let ((_%e136978136996%_ + (gx#stx-pair? _%g137960137979%_)) + (let ((_%e137963137981%_ (let () (declare (not safe)) - (gx#stx-e _%g136975136994%_)))) - (let ((_%hd136979136999%_ + (gx#stx-e _%g137960137979%_)))) + (let ((_%hd137964137984%_ (let () (declare (not safe)) - (##car _%e136978136996%_))) - (_%tl136980137001%_ + (##car _%e137963137981%_))) + (_%tl137965137986%_ (let () (declare (not safe)) - (##cdr _%e136978136996%_)))) + (##cdr _%e137963137981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136980137001%_)) - (let ((_%e136981137004%_ + (gx#stx-pair? _%tl137965137986%_)) + (let ((_%e137966137989%_ (let () (declare (not safe)) - (gx#stx-e _%tl136980137001%_)))) - (let ((_%hd136982137007%_ + (gx#stx-e _%tl137965137986%_)))) + (let ((_%hd137967137992%_ (let () (declare (not safe)) - (##car _%e136981137004%_))) - (_%tl136983137009%_ + (##car _%e137966137989%_))) + (_%tl137968137994%_ (let () (declare (not safe)) - (##cdr _%e136981137004%_)))) + (##cdr _%e137966137989%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136983137009%_)) - (let ((_%e136984137012%_ + (gx#stx-pair? _%tl137968137994%_)) + (let ((_%e137969137997%_ (let () (declare (not safe)) - (gx#stx-e _%tl136983137009%_)))) - (let ((_%hd136985137015%_ + (gx#stx-e _%tl137968137994%_)))) + (let ((_%hd137970138000%_ (let () (declare (not safe)) - (##car _%e136984137012%_))) - (_%tl136986137017%_ + (##car _%e137969137997%_))) + (_%tl137971138002%_ (let () (declare (not safe)) - (##cdr _%e136984137012%_)))) + (##cdr _%e137969137997%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136986137017%_)) - ((lambda (_%L137020%_ - _%L137021%_) + _%tl137971138002%_)) + ((lambda (_%L138005%_ + _%L138006%_) (gxc#compile-e__1 - _%self136971%_ - _%L137020%_)) - _%hd136985137015%_ - _%hd136982137007%_) - (_%g136974136991%_ - _%g136975136994%_)))) - (_%g136974136991%_ _%g136975136994%_)))) - (_%g136974136991%_ _%g136975136994%_)))) - (_%g136974136991%_ _%g136975136994%_))))) - (_%g136973137036%_ _%stx136972%_)))) + _%self137956%_ + _%L138005%_)) + _%hd137970138000%_ + _%hd137967137992%_) + (_%g137959137976%_ + _%g137960137979%_)))) + (_%g137959137976%_ _%g137960137979%_)))) + (_%g137959137976%_ _%g137960137979%_)))) + (_%g137959137976%_ _%g137960137979%_))))) + (_%g137958138021%_ _%stx137957%_)))) (define gxc#apply-operands - (lambda (_%self136884%_ _%stx136885%_) - (let* ((_%g136887136906%_ - (lambda (_%g136888136903%_) + (lambda (_%self137869%_ _%stx137870%_) + (let* ((_%g137872137891%_ + (lambda (_%g137873137888%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136888136903%_)))) - (_%g136886136968%_ - (lambda (_%g136888136909%_) + _%g137873137888%_)))) + (_%g137871137953%_ + (lambda (_%g137873137894%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136888136909%_)) - (let ((_%e136890136911%_ + (gx#stx-pair? _%g137873137894%_)) + (let ((_%e137875137896%_ (let () (declare (not safe)) - (gx#stx-e _%g136888136909%_)))) - (let ((_%hd136891136914%_ + (gx#stx-e _%g137873137894%_)))) + (let ((_%hd137876137899%_ (let () (declare (not safe)) - (##car _%e136890136911%_))) - (_%tl136892136916%_ + (##car _%e137875137896%_))) + (_%tl137877137901%_ (let () (declare (not safe)) - (##cdr _%e136890136911%_)))) + (##cdr _%e137875137896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136892136916%_)) - (let ((_g138082_ + (gx#stx-pair/null? _%tl137877137901%_)) + (let ((_g139067_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136892136916%_ + _%tl137877137901%_ '0)))) (begin - (let ((_g138083_ + (let ((_g139068_ (let () (declare (not safe)) - (if (##values? _g138082_) - (##values-length _g138082_) + (if (##values? _g139067_) + (##values-length _g139067_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g138083_ 2))) + (##fx= _g139068_ 2))) (error "Context expects 2 values" - _g138083_))) - (let ((_%target136893136919%_ + _g139068_))) + (let ((_%target137878137904%_ (let () (declare (not safe)) - (##values-ref _g138082_ 0))) - (_%tl136895136921%_ + (##values-ref _g139067_ 0))) + (_%tl137880137906%_ (let () (declare (not safe)) - (##values-ref _g138082_ 1)))) + (##values-ref _g139067_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136895136921%_)) - (letrec ((_%loop136896136924%_ - (lambda (_%hd136894136927%_ - _%rands136900136929%_) + (gx#stx-null? _%tl137880137906%_)) + (letrec ((_%loop137881137909%_ + (lambda (_%hd137879137912%_ + _%rands137885137914%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136894136927%_)) - (let ((_%e136897136932%_ + _%hd137879137912%_)) + (let ((_%e137882137917%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd136894136927%_)))) - (let ((_%lp-hd136898136935%_ + (gx#stx-e _%hd137879137912%_)))) + (let ((_%lp-hd137883137920%_ (let () (declare (not safe)) - (##car _%e136897136932%_))) - (_%lp-tl136899136937%_ + (##car _%e137882137917%_))) + (_%lp-tl137884137922%_ (let () (declare (not safe)) - (##cdr _%e136897136932%_)))) - (_%loop136896136924%_ - _%lp-tl136899136937%_ - (cons _%lp-hd136898136935%_ _%rands136900136929%_)))) - (let ((_%rands136901136940%_ (reverse _%rands136900136929%_))) - ((lambda (_%L136943%_) + (##cdr _%e137882137917%_)))) + (_%loop137881137909%_ + _%lp-tl137884137922%_ + (cons _%lp-hd137883137920%_ _%rands137885137914%_)))) + (let ((_%rands137886137925%_ (reverse _%rands137885137914%_))) + ((lambda (_%L137928%_) (for-each - (lambda (_%g136956136958%_) - (gxc#compile-e__1 _%self136884%_ _%g136956136958%_)) - (let ((__tmp138084 - (lambda (_%g136960136963%_ _%g136961136965%_) - (cons _%g136960136963%_ _%g136961136965%_)))) + (lambda (_%g137941137943%_) + (gxc#compile-e__1 _%self137869%_ _%g137941137943%_)) + (let ((__tmp139069 + (lambda (_%g137945137948%_ _%g137946137950%_) + (cons _%g137945137948%_ _%g137946137950%_)))) (declare (not safe)) - (__foldr1 __tmp138084 '() _%L136943%_)))) - _%rands136901136940%_)))))) + (__foldr1 __tmp139069 '() _%L137928%_)))) + _%rands137886137925%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136896136924%_ - _%target136893136919%_ + (_%loop137881137909%_ + _%target137878137904%_ '())) - (_%g136887136906%_ - _%g136888136909%_))))) - (_%g136887136906%_ _%g136888136909%_)))) - (_%g136887136906%_ _%g136888136909%_))))) - (_%g136886136968%_ _%stx136885%_)))) + (_%g137872137891%_ + _%g137873137894%_))))) + (_%g137872137891%_ _%g137873137894%_)))) + (_%g137872137891%_ _%g137873137894%_))))) + (_%g137871137953%_ _%stx137870%_)))) (define gxc#xform-wrap-source - (lambda (_%stx136881%_ _%src-stx136882%_) - (let ((__tmp138085 + (lambda (_%stx137866%_ _%src-stx137867%_) + (let ((__tmp139070 (let () (declare (not safe)) - (gx#stx-source _%src-stx136882%_)))) + (gx#stx-source _%src-stx137867%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx136881%_ __tmp138085)))) + (gx#stx-wrap-source _%stx137866%_ __tmp139070)))) (define gxc#xform-wrap-apply - (lambda (_%stx136877%_ _%src-stx136878%_ _%ctx136879%_) + (lambda (_%stx137862%_ _%src-stx137863%_ _%ctx137864%_) (gxc#compile-e__1 - _%ctx136879%_ - (gxc#xform-wrap-source _%stx136877%_ _%src-stx136878%_)))) + _%ctx137864%_ + (gxc#xform-wrap-source _%stx137862%_ _%src-stx137863%_)))) (define gxc#xform-begin% - (lambda (_%self136832%_ _%stx136833%_) - (let* ((_%g136835136845%_ - (lambda (_%g136836136842%_) + (lambda (_%self137817%_ _%stx137818%_) + (let* ((_%g137820137830%_ + (lambda (_%g137821137827%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136836136842%_)))) - (_%g136834136874%_ - (lambda (_%g136836136848%_) + _%g137821137827%_)))) + (_%g137819137859%_ + (lambda (_%g137821137833%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136836136848%_)) - (let ((_%e136838136850%_ + (gx#stx-pair? _%g137821137833%_)) + (let ((_%e137823137835%_ (let () (declare (not safe)) - (gx#stx-e _%g136836136848%_)))) - (let ((_%hd136839136853%_ + (gx#stx-e _%g137821137833%_)))) + (let ((_%hd137824137838%_ (let () (declare (not safe)) - (##car _%e136838136850%_))) - (_%tl136840136855%_ + (##car _%e137823137835%_))) + (_%tl137825137840%_ (let () (declare (not safe)) - (##cdr _%e136838136850%_)))) - ((lambda (_%L136858%_) - (let ((_%forms136872%_ - (map (lambda (_%g136867136869%_) + (##cdr _%e137823137835%_)))) + ((lambda (_%L137843%_) + (let ((_%forms137857%_ + (map (lambda (_%g137852137854%_) (gxc#compile-e__1 - _%self136832%_ - _%g136867136869%_)) - _%L136858%_))) + _%self137817%_ + _%g137852137854%_)) + _%L137843%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms136872%_) - _%stx136833%_))) - _%tl136840136855%_))) - (_%g136835136845%_ _%g136836136848%_))))) - (_%g136834136874%_ _%stx136833%_)))) + (cons '%#begin _%forms137857%_) + _%stx137818%_))) + _%tl137825137840%_))) + (_%g137820137830%_ _%g137821137833%_))))) + (_%g137819137859%_ _%stx137818%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self136786%_ _%stx136787%_) - (let* ((_%g136789136799%_ - (lambda (_%g136790136796%_) + (lambda (_%self137771%_ _%stx137772%_) + (let* ((_%g137774137784%_ + (lambda (_%g137775137781%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136790136796%_)))) - (_%g136788136829%_ - (lambda (_%g136790136802%_) + _%g137775137781%_)))) + (_%g137773137814%_ + (lambda (_%g137775137787%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136790136802%_)) - (let ((_%e136792136804%_ + (gx#stx-pair? _%g137775137787%_)) + (let ((_%e137777137789%_ (let () (declare (not safe)) - (gx#stx-e _%g136790136802%_)))) - (let ((_%hd136793136807%_ + (gx#stx-e _%g137775137787%_)))) + (let ((_%hd137778137792%_ (let () (declare (not safe)) - (##car _%e136792136804%_))) - (_%tl136794136809%_ + (##car _%e137777137789%_))) + (_%tl137779137794%_ (let () (declare (not safe)) - (##cdr _%e136792136804%_)))) - ((lambda (_%L136812%_) - (let ((__tmp138088 + (##cdr _%e137777137789%_)))) + ((lambda (_%L137797%_) + (let ((__tmp139073 (lambda () - (let ((_%forms136827%_ - (map (lambda (_%g136822136824%_) + (let ((_%forms137812%_ + (map (lambda (_%g137807137809%_) (gxc#compile-e__1 - _%self136786%_ - _%g136822136824%_)) - _%L136812%_))) + _%self137771%_ + _%g137807137809%_)) + _%L137797%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms136827%_) - _%stx136787%_)))) - (__tmp138086 - (let ((__tmp138087 + (cons '%#begin-syntax _%forms137812%_) + _%stx137772%_)))) + (__tmp139071 + (let ((__tmp139072 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp138087 '1)))) + (##fx+ __tmp139072 '1)))) (declare (not safe)) (__call-with-parameters - __tmp138088 + __tmp139073 gx#current-expander-phi - __tmp138086))) - _%tl136794136809%_))) - (_%g136789136799%_ _%g136790136802%_))))) - (_%g136788136829%_ _%stx136787%_)))) + __tmp139071))) + _%tl137779137794%_))) + (_%g137774137784%_ _%g137775137787%_))))) + (_%g137773137814%_ _%stx137772%_)))) (define gxc#xform-module% - (lambda (_%self136723%_ _%stx136724%_) - (let* ((_%g136726136740%_ - (lambda (_%g136727136737%_) + (lambda (_%self137708%_ _%stx137709%_) + (let* ((_%g137711137725%_ + (lambda (_%g137712137722%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136727136737%_)))) - (_%g136725136783%_ - (lambda (_%g136727136743%_) + _%g137712137722%_)))) + (_%g137710137768%_ + (lambda (_%g137712137728%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136727136743%_)) - (let ((_%e136730136745%_ + (gx#stx-pair? _%g137712137728%_)) + (let ((_%e137715137730%_ (let () (declare (not safe)) - (gx#stx-e _%g136727136743%_)))) - (let ((_%hd136731136748%_ + (gx#stx-e _%g137712137728%_)))) + (let ((_%hd137716137733%_ (let () (declare (not safe)) - (##car _%e136730136745%_))) - (_%tl136732136750%_ + (##car _%e137715137730%_))) + (_%tl137717137735%_ (let () (declare (not safe)) - (##cdr _%e136730136745%_)))) + (##cdr _%e137715137730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136732136750%_)) - (let ((_%e136733136753%_ + (gx#stx-pair? _%tl137717137735%_)) + (let ((_%e137718137738%_ (let () (declare (not safe)) - (gx#stx-e _%tl136732136750%_)))) - (let ((_%hd136734136756%_ + (gx#stx-e _%tl137717137735%_)))) + (let ((_%hd137719137741%_ (let () (declare (not safe)) - (##car _%e136733136753%_))) - (_%tl136735136758%_ + (##car _%e137718137738%_))) + (_%tl137720137743%_ (let () (declare (not safe)) - (##cdr _%e136733136753%_)))) - ((lambda (_%L136761%_ _%L136762%_) - (let* ((_%ctx136775%_ + (##cdr _%e137718137738%_)))) + ((lambda (_%L137746%_ _%L137747%_) + (let* ((_%ctx137760%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L136762%_))) - (_%code136777%_ + _%L137747%_))) + (_%code137762%_ (##structure-ref - _%ctx136775%_ + _%ctx137760%_ '11 gx#module-context::t '#f)) - (_%code136780%_ - (let ((__tmp138089 + (_%code137765%_ + (let ((__tmp139074 (lambda () (gxc#compile-e__1 - _%self136723%_ - _%code136777%_)))) + _%self137708%_ + _%code137762%_)))) (declare (not safe)) (__call-with-parameters - __tmp138089 + __tmp139074 gx#current-expander-context - _%ctx136775%_)))) + _%ctx137760%_)))) (##structure-set! - _%ctx136775%_ - _%code136780%_ + _%ctx137760%_ + _%code137765%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L136762%_ - (cons _%code136780%_ '()))) - _%stx136724%_))) - _%tl136735136758%_ - _%hd136734136756%_))) - (_%g136726136740%_ _%g136727136743%_)))) - (_%g136726136740%_ _%g136727136743%_))))) - (_%g136725136783%_ _%stx136724%_)))) + (cons _%L137747%_ + (cons _%code137765%_ '()))) + _%stx137709%_))) + _%tl137720137743%_ + _%hd137719137741%_))) + (_%g137711137725%_ _%g137712137728%_)))) + (_%g137711137725%_ _%g137712137728%_))))) + (_%g137710137768%_ _%stx137709%_)))) (define gxc#xform-define-values% - (lambda (_%self136653%_ _%stx136654%_) - (let* ((_%g136656136673%_ - (lambda (_%g136657136670%_) + (lambda (_%self137638%_ _%stx137639%_) + (let* ((_%g137641137658%_ + (lambda (_%g137642137655%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136657136670%_)))) - (_%g136655136720%_ - (lambda (_%g136657136676%_) + _%g137642137655%_)))) + (_%g137640137705%_ + (lambda (_%g137642137661%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136657136676%_)) - (let ((_%e136660136678%_ + (gx#stx-pair? _%g137642137661%_)) + (let ((_%e137645137663%_ (let () (declare (not safe)) - (gx#stx-e _%g136657136676%_)))) - (let ((_%hd136661136681%_ + (gx#stx-e _%g137642137661%_)))) + (let ((_%hd137646137666%_ (let () (declare (not safe)) - (##car _%e136660136678%_))) - (_%tl136662136683%_ + (##car _%e137645137663%_))) + (_%tl137647137668%_ (let () (declare (not safe)) - (##cdr _%e136660136678%_)))) + (##cdr _%e137645137663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136662136683%_)) - (let ((_%e136663136686%_ + (gx#stx-pair? _%tl137647137668%_)) + (let ((_%e137648137671%_ (let () (declare (not safe)) - (gx#stx-e _%tl136662136683%_)))) - (let ((_%hd136664136689%_ + (gx#stx-e _%tl137647137668%_)))) + (let ((_%hd137649137674%_ (let () (declare (not safe)) - (##car _%e136663136686%_))) - (_%tl136665136691%_ + (##car _%e137648137671%_))) + (_%tl137650137676%_ (let () (declare (not safe)) - (##cdr _%e136663136686%_)))) + (##cdr _%e137648137671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136665136691%_)) - (let ((_%e136666136694%_ + (gx#stx-pair? _%tl137650137676%_)) + (let ((_%e137651137679%_ (let () (declare (not safe)) - (gx#stx-e _%tl136665136691%_)))) - (let ((_%hd136667136697%_ + (gx#stx-e _%tl137650137676%_)))) + (let ((_%hd137652137682%_ (let () (declare (not safe)) - (##car _%e136666136694%_))) - (_%tl136668136699%_ + (##car _%e137651137679%_))) + (_%tl137653137684%_ (let () (declare (not safe)) - (##cdr _%e136666136694%_)))) + (##cdr _%e137651137679%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136668136699%_)) - ((lambda (_%L136702%_ - _%L136703%_) - (let ((_%expr136718%_ + _%tl137653137684%_)) + ((lambda (_%L137687%_ + _%L137688%_) + (let ((_%expr137703%_ (gxc#compile-e__1 - _%self136653%_ - _%L136702%_))) + _%self137638%_ + _%L137687%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L136703%_ - (cons _%expr136718%_ + (cons _%L137688%_ + (cons _%expr137703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136654%_))) - _%hd136667136697%_ - _%hd136664136689%_) - (_%g136656136673%_ - _%g136657136676%_)))) - (_%g136656136673%_ _%g136657136676%_)))) - (_%g136656136673%_ _%g136657136676%_)))) - (_%g136656136673%_ _%g136657136676%_))))) - (_%g136655136720%_ _%stx136654%_)))) + _%stx137639%_))) + _%hd137652137682%_ + _%hd137649137674%_) + (_%g137641137658%_ + _%g137642137661%_)))) + (_%g137641137658%_ _%g137642137661%_)))) + (_%g137641137658%_ _%g137642137661%_)))) + (_%g137641137658%_ _%g137642137661%_))))) + (_%g137640137705%_ _%stx137639%_)))) (define gxc#xform-define-syntax% - (lambda (_%self136582%_ _%stx136583%_) - (let* ((_%g136585136602%_ - (lambda (_%g136586136599%_) + (lambda (_%self137567%_ _%stx137568%_) + (let* ((_%g137570137587%_ + (lambda (_%g137571137584%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136586136599%_)))) - (_%g136584136650%_ - (lambda (_%g136586136605%_) + _%g137571137584%_)))) + (_%g137569137635%_ + (lambda (_%g137571137590%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136586136605%_)) - (let ((_%e136589136607%_ + (gx#stx-pair? _%g137571137590%_)) + (let ((_%e137574137592%_ (let () (declare (not safe)) - (gx#stx-e _%g136586136605%_)))) - (let ((_%hd136590136610%_ + (gx#stx-e _%g137571137590%_)))) + (let ((_%hd137575137595%_ (let () (declare (not safe)) - (##car _%e136589136607%_))) - (_%tl136591136612%_ + (##car _%e137574137592%_))) + (_%tl137576137597%_ (let () (declare (not safe)) - (##cdr _%e136589136607%_)))) + (##cdr _%e137574137592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136591136612%_)) - (let ((_%e136592136615%_ + (gx#stx-pair? _%tl137576137597%_)) + (let ((_%e137577137600%_ (let () (declare (not safe)) - (gx#stx-e _%tl136591136612%_)))) - (let ((_%hd136593136618%_ + (gx#stx-e _%tl137576137597%_)))) + (let ((_%hd137578137603%_ (let () (declare (not safe)) - (##car _%e136592136615%_))) - (_%tl136594136620%_ + (##car _%e137577137600%_))) + (_%tl137579137605%_ (let () (declare (not safe)) - (##cdr _%e136592136615%_)))) + (##cdr _%e137577137600%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136594136620%_)) - (let ((_%e136595136623%_ + (gx#stx-pair? _%tl137579137605%_)) + (let ((_%e137580137608%_ (let () (declare (not safe)) - (gx#stx-e _%tl136594136620%_)))) - (let ((_%hd136596136626%_ + (gx#stx-e _%tl137579137605%_)))) + (let ((_%hd137581137611%_ (let () (declare (not safe)) - (##car _%e136595136623%_))) - (_%tl136597136628%_ + (##car _%e137580137608%_))) + (_%tl137582137613%_ (let () (declare (not safe)) - (##cdr _%e136595136623%_)))) + (##cdr _%e137580137608%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136597136628%_)) - ((lambda (_%L136631%_ - _%L136632%_) - (let ((__tmp138092 + _%tl137582137613%_)) + ((lambda (_%L137616%_ + _%L137617%_) + (let ((__tmp139077 (lambda () - (let ((_%expr136648%_ + (let ((_%expr137633%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self136582%_ _%L136631%_))) + (gxc#compile-e__1 _%self137567%_ _%L137616%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L136632%_ (cons _%expr136648%_ '()))) - _%stx136583%_)))) - (__tmp138090 - (let ((__tmp138091 + (cons _%L137617%_ (cons _%expr137633%_ '()))) + _%stx137568%_)))) + (__tmp139075 + (let ((__tmp139076 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp138091 '1)))) + (##fx+ __tmp139076 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp138092 + __tmp139077 gx#current-expander-phi - __tmp138090))) - _%hd136596136626%_ - _%hd136593136618%_) - (_%g136585136602%_ - _%g136586136605%_)))) - (_%g136585136602%_ _%g136586136605%_)))) - (_%g136585136602%_ _%g136586136605%_)))) - (_%g136585136602%_ _%g136586136605%_))))) - (_%g136584136650%_ _%stx136583%_)))) + __tmp139075))) + _%hd137581137611%_ + _%hd137578137603%_) + (_%g137570137587%_ + _%g137571137590%_)))) + (_%g137570137587%_ _%g137571137590%_)))) + (_%g137570137587%_ _%g137571137590%_)))) + (_%g137570137587%_ _%g137571137590%_))))) + (_%g137569137635%_ _%stx137568%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self136512%_ _%stx136513%_) - (let* ((_%g136515136532%_ - (lambda (_%g136516136529%_) + (lambda (_%self137497%_ _%stx137498%_) + (let* ((_%g137500137517%_ + (lambda (_%g137501137514%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136516136529%_)))) - (_%g136514136579%_ - (lambda (_%g136516136535%_) + _%g137501137514%_)))) + (_%g137499137564%_ + (lambda (_%g137501137520%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136516136535%_)) - (let ((_%e136519136537%_ + (gx#stx-pair? _%g137501137520%_)) + (let ((_%e137504137522%_ (let () (declare (not safe)) - (gx#stx-e _%g136516136535%_)))) - (let ((_%hd136520136540%_ + (gx#stx-e _%g137501137520%_)))) + (let ((_%hd137505137525%_ (let () (declare (not safe)) - (##car _%e136519136537%_))) - (_%tl136521136542%_ + (##car _%e137504137522%_))) + (_%tl137506137527%_ (let () (declare (not safe)) - (##cdr _%e136519136537%_)))) + (##cdr _%e137504137522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136521136542%_)) - (let ((_%e136522136545%_ + (gx#stx-pair? _%tl137506137527%_)) + (let ((_%e137507137530%_ (let () (declare (not safe)) - (gx#stx-e _%tl136521136542%_)))) - (let ((_%hd136523136548%_ + (gx#stx-e _%tl137506137527%_)))) + (let ((_%hd137508137533%_ (let () (declare (not safe)) - (##car _%e136522136545%_))) - (_%tl136524136550%_ + (##car _%e137507137530%_))) + (_%tl137509137535%_ (let () (declare (not safe)) - (##cdr _%e136522136545%_)))) + (##cdr _%e137507137530%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136524136550%_)) - (let ((_%e136525136553%_ + (gx#stx-pair? _%tl137509137535%_)) + (let ((_%e137510137538%_ (let () (declare (not safe)) - (gx#stx-e _%tl136524136550%_)))) - (let ((_%hd136526136556%_ + (gx#stx-e _%tl137509137535%_)))) + (let ((_%hd137511137541%_ (let () (declare (not safe)) - (##car _%e136525136553%_))) - (_%tl136527136558%_ + (##car _%e137510137538%_))) + (_%tl137512137543%_ (let () (declare (not safe)) - (##cdr _%e136525136553%_)))) + (##cdr _%e137510137538%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136527136558%_)) - ((lambda (_%L136561%_ - _%L136562%_) - (let ((_%expr136577%_ + _%tl137512137543%_)) + ((lambda (_%L137546%_ + _%L137547%_) + (let ((_%expr137562%_ (gxc#compile-e__1 - _%self136512%_ - _%L136561%_))) + _%self137497%_ + _%L137546%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L136562%_ - (cons _%expr136577%_ + (cons _%L137547%_ + (cons _%expr137562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136513%_))) - _%hd136526136556%_ - _%hd136523136548%_) - (_%g136515136532%_ - _%g136516136535%_)))) - (_%g136515136532%_ _%g136516136535%_)))) - (_%g136515136532%_ _%g136516136535%_)))) - (_%g136515136532%_ _%g136516136535%_))))) - (_%g136514136579%_ _%stx136513%_)))) + _%stx137498%_))) + _%hd137511137541%_ + _%hd137508137533%_) + (_%g137500137517%_ + _%g137501137520%_)))) + (_%g137500137517%_ _%g137501137520%_)))) + (_%g137500137517%_ _%g137501137520%_)))) + (_%g137500137517%_ _%g137501137520%_))))) + (_%g137499137564%_ _%stx137498%_)))) (define gxc#xform-lambda% - (lambda (_%self136450%_ _%stx136451%_) - (let* ((_%g136453136467%_ - (lambda (_%g136454136464%_) + (lambda (_%self137435%_ _%stx137436%_) + (let* ((_%g137438137452%_ + (lambda (_%g137439137449%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136454136464%_)))) - (_%g136452136509%_ - (lambda (_%g136454136470%_) + _%g137439137449%_)))) + (_%g137437137494%_ + (lambda (_%g137439137455%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136454136470%_)) - (let ((_%e136457136472%_ + (gx#stx-pair? _%g137439137455%_)) + (let ((_%e137442137457%_ (let () (declare (not safe)) - (gx#stx-e _%g136454136470%_)))) - (let ((_%hd136458136475%_ + (gx#stx-e _%g137439137455%_)))) + (let ((_%hd137443137460%_ (let () (declare (not safe)) - (##car _%e136457136472%_))) - (_%tl136459136477%_ + (##car _%e137442137457%_))) + (_%tl137444137462%_ (let () (declare (not safe)) - (##cdr _%e136457136472%_)))) + (##cdr _%e137442137457%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136459136477%_)) - (let ((_%e136460136480%_ + (gx#stx-pair? _%tl137444137462%_)) + (let ((_%e137445137465%_ (let () (declare (not safe)) - (gx#stx-e _%tl136459136477%_)))) - (let ((_%hd136461136483%_ + (gx#stx-e _%tl137444137462%_)))) + (let ((_%hd137446137468%_ (let () (declare (not safe)) - (##car _%e136460136480%_))) - (_%tl136462136485%_ + (##car _%e137445137465%_))) + (_%tl137447137470%_ (let () (declare (not safe)) - (##cdr _%e136460136480%_)))) - ((lambda (_%L136488%_ _%L136489%_) - (let ((__tmp138094 + (##cdr _%e137445137465%_)))) + ((lambda (_%L137473%_ _%L137474%_) + (let ((__tmp139079 (lambda () - (let ((_%body136507%_ - (map (lambda (_%g136502136504%_) + (let ((_%body137492%_ + (map (lambda (_%g137487137489%_) (gxc#compile-e__1 - _%self136450%_ - _%g136502136504%_)) - _%L136488%_))) + _%self137435%_ + _%g137487137489%_)) + _%L137473%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L136489%_ - _%body136507%_)) - _%stx136451%_)))) - (__tmp138093 + (cons _%L137474%_ + _%body137492%_)) + _%stx137436%_)))) + (__tmp139078 (gxc#xform-let-locals - _%L136489%_))) + _%L137474%_))) (declare (not safe)) (__call-with-parameters - __tmp138094 + __tmp139079 gxc#current-compile-local-env - __tmp138093))) - _%tl136462136485%_ - _%hd136461136483%_))) - (_%g136453136467%_ _%g136454136470%_)))) - (_%g136453136467%_ _%g136454136470%_))))) - (_%g136452136509%_ _%stx136451%_)))) + __tmp139078))) + _%tl137447137470%_ + _%hd137446137468%_))) + (_%g137438137452%_ _%g137439137455%_)))) + (_%g137438137452%_ _%g137439137455%_))))) + (_%g137437137494%_ _%stx137436%_)))) (define gxc#xform-case-lambda% - (lambda (_%self136358%_ _%stx136359%_) - (letrec ((_%clause-e136361%_ - (lambda (_%clause136402%_) - (let* ((_%g136404136415%_ - (lambda (_%g136405136412%_) + (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" - _%g136405136412%_)))) - (_%g136403136447%_ - (lambda (_%g136405136418%_) + _%g137390137397%_)))) + (_%g137388137432%_ + (lambda (_%g137390137403%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136405136418%_)) - (let ((_%e136408136420%_ + (gx#stx-pair? _%g137390137403%_)) + (let ((_%e137393137405%_ (let () (declare (not safe)) - (gx#stx-e _%g136405136418%_)))) - (let ((_%hd136409136423%_ + (gx#stx-e _%g137390137403%_)))) + (let ((_%hd137394137408%_ (let () (declare (not safe)) - (##car _%e136408136420%_))) - (_%tl136410136425%_ + (##car _%e137393137405%_))) + (_%tl137395137410%_ (let () (declare (not safe)) - (##cdr _%e136408136420%_)))) - ((lambda (_%L136428%_ _%L136429%_) - (let ((__tmp138096 + (##cdr _%e137393137405%_)))) + ((lambda (_%L137413%_ _%L137414%_) + (let ((__tmp139081 (lambda () - (let ((_%body136445%_ - (map (lambda (_%g136440136442%_) + (let ((_%body137430%_ + (map (lambda (_%g137425137427%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self136358%_ - _%g136440136442%_)) - _%L136428%_))) + _%self137343%_ + _%g137425137427%_)) + _%L137413%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L136429%_ - _%body136445%_)))) - (__tmp138095 + (cons _%L137414%_ + _%body137430%_)))) + (__tmp139080 (gxc#xform-let-locals - _%L136429%_))) + _%L137414%_))) (declare (not safe)) (__call-with-parameters - __tmp138096 + __tmp139081 gxc#current-compile-local-env - __tmp138095))) - _%tl136410136425%_ - _%hd136409136423%_))) - (_%g136404136415%_ _%g136405136418%_))))) - (_%g136403136447%_ _%clause136402%_))))) - (let* ((_%g136363136373%_ - (lambda (_%g136364136370%_) + __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" - _%g136364136370%_)))) - (_%g136362136399%_ - (lambda (_%g136364136376%_) + _%g137349137355%_)))) + (_%g137347137384%_ + (lambda (_%g137349137361%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136364136376%_)) - (let ((_%e136366136378%_ + (gx#stx-pair? _%g137349137361%_)) + (let ((_%e137351137363%_ (let () (declare (not safe)) - (gx#stx-e _%g136364136376%_)))) - (let ((_%hd136367136381%_ + (gx#stx-e _%g137349137361%_)))) + (let ((_%hd137352137366%_ (let () (declare (not safe)) - (##car _%e136366136378%_))) - (_%tl136368136383%_ + (##car _%e137351137363%_))) + (_%tl137353137368%_ (let () (declare (not safe)) - (##cdr _%e136366136378%_)))) - ((lambda (_%L136386%_) - (let ((_%clauses136397%_ - (map _%clause-e136361%_ _%L136386%_))) + (##cdr _%e137351137363%_)))) + ((lambda (_%L137371%_) + (let ((_%clauses137382%_ + (map _%clause-e137346%_ _%L137371%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses136397%_) - _%stx136359%_))) - _%tl136368136383%_))) - (_%g136363136373%_ _%g136364136376%_))))) - (_%g136362136399%_ _%stx136359%_))))) + (cons '%#case-lambda _%clauses137382%_) + _%stx137344%_))) + _%tl137353137368%_))) + (_%g137348137358%_ _%g137349137361%_))))) + (_%g137347137384%_ _%stx137344%_))))) (define gxc#xform-let-values% - (lambda (_%self136112%_ _%stx136113%_) - (let* ((_%g136115136148%_ - (lambda (_%g136116136145%_) + (lambda (_%self137097%_ _%stx137098%_) + (let* ((_%g137100137133%_ + (lambda (_%g137101137130%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136116136145%_)))) - (_%g136114136355%_ - (lambda (_%g136116136151%_) + _%g137101137130%_)))) + (_%g137099137340%_ + (lambda (_%g137101137136%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136116136151%_)) - (let ((_%e136121136153%_ + (gx#stx-pair? _%g137101137136%_)) + (let ((_%e137106137138%_ (let () (declare (not safe)) - (gx#stx-e _%g136116136151%_)))) - (let ((_%hd136122136156%_ + (gx#stx-e _%g137101137136%_)))) + (let ((_%hd137107137141%_ (let () (declare (not safe)) - (##car _%e136121136153%_))) - (_%tl136123136158%_ + (##car _%e137106137138%_))) + (_%tl137108137143%_ (let () (declare (not safe)) - (##cdr _%e136121136153%_)))) + (##cdr _%e137106137138%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136123136158%_)) - (let ((_%e136124136161%_ + (gx#stx-pair? _%tl137108137143%_)) + (let ((_%e137109137146%_ (let () (declare (not safe)) - (gx#stx-e _%tl136123136158%_)))) - (let ((_%hd136125136164%_ + (gx#stx-e _%tl137108137143%_)))) + (let ((_%hd137110137149%_ (let () (declare (not safe)) - (##car _%e136124136161%_))) - (_%tl136126136166%_ + (##car _%e137109137146%_))) + (_%tl137111137151%_ (let () (declare (not safe)) - (##cdr _%e136124136161%_)))) + (##cdr _%e137109137146%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd136125136164%_)) - (let ((_g138097_ + (gx#stx-pair/null? _%hd137110137149%_)) + (let ((_g139082_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd136125136164%_ + _%hd137110137149%_ '0)))) (begin - (let ((_g138098_ + (let ((_g139083_ (let () (declare (not safe)) - (if (##values? _g138097_) + (if (##values? _g139082_) (##values-length - _g138097_) + _g139082_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g138098_ 2))) + (##fx= _g139083_ 2))) (error "Context expects 2 values" - _g138098_))) - (let ((_%target136127136169%_ + _g139083_))) + (let ((_%target137112137154%_ (let () (declare (not safe)) - (##values-ref _g138097_ 0))) - (_%tl136129136171%_ + (##values-ref _g139082_ 0))) + (_%tl137114137156%_ (let () (declare (not safe)) (##values-ref - _g138097_ + _g139082_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136129136171%_)) - (letrec ((_%loop136130136174%_ - (lambda (_%hd136128136177%_ + _%tl137114137156%_)) + (letrec ((_%loop137115137159%_ + (lambda (_%hd137113137162%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136134136179%_ - _%hd136135136181%_) + _%expr137119137164%_ + _%hd137120137166%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136128136177%_)) - (let ((_%e136131136184%_ + (gx#stx-pair? _%hd137113137162%_)) + (let ((_%e137116137169%_ (let () (declare (not safe)) - (gx#stx-e _%hd136128136177%_)))) - (let ((_%lp-hd136132136187%_ + (gx#stx-e _%hd137113137162%_)))) + (let ((_%lp-hd137117137172%_ (let () (declare (not safe)) - (##car _%e136131136184%_))) - (_%lp-tl136133136189%_ + (##car _%e137116137169%_))) + (_%lp-tl137118137174%_ (let () (declare (not safe)) - (##cdr _%e136131136184%_)))) + (##cdr _%e137116137169%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136132136187%_)) - (let ((_%e136138136192%_ + (gx#stx-pair? _%lp-hd137117137172%_)) + (let ((_%e137123137177%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136132136187%_)))) - (let ((_%hd136139136195%_ + (gx#stx-e _%lp-hd137117137172%_)))) + (let ((_%hd137124137180%_ (let () (declare (not safe)) - (##car _%e136138136192%_))) - (_%tl136140136197%_ + (##car _%e137123137177%_))) + (_%tl137125137182%_ (let () (declare (not safe)) - (##cdr _%e136138136192%_)))) + (##cdr _%e137123137177%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136140136197%_)) - (let ((_%e136141136200%_ + (gx#stx-pair? _%tl137125137182%_)) + (let ((_%e137126137185%_ (let () (declare (not safe)) (gx#stx-e - _%tl136140136197%_)))) - (let ((_%hd136142136203%_ + _%tl137125137182%_)))) + (let ((_%hd137127137188%_ (let () (declare (not safe)) - (##car _%e136141136200%_))) - (_%tl136143136205%_ + (##car _%e137126137185%_))) + (_%tl137128137190%_ (let () (declare (not safe)) - (##cdr _%e136141136200%_)))) + (##cdr _%e137126137185%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136143136205%_)) - (_%loop136130136174%_ - _%lp-tl136133136189%_ - (cons _%hd136142136203%_ - _%expr136134136179%_) - (cons _%hd136139136195%_ - _%hd136135136181%_)) - (_%g136115136148%_ - _%g136116136151%_)))) - (_%g136115136148%_ - _%g136116136151%_)))) - (_%g136115136148%_ _%g136116136151%_)))) - (let ((_%expr136136136208%_ - (reverse _%expr136134136179%_)) - (_%hd136137136210%_ - (reverse _%hd136135136181%_))) - ((lambda (_%L136213%_ - _%L136214%_ - _%L136215%_ - _%L136216%_) - (let* ((_%g136235136251%_ - (lambda (_%g136236136248%_) + _%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" - _%g136236136248%_)))) - (_%g136234136341%_ - (lambda (_%g136236136254%_) + _%g137221137233%_)))) + (_%g137219137326%_ + (lambda (_%g137221137239%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g136236136254%_)) - (let ((_g138099_ + _%g137221137239%_)) + (let ((_g139084_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g136236136254%_ + _%g137221137239%_ '0)))) (begin - (let ((_g138100_ + (let ((_g139085_ (let () (declare (not safe)) (if (##values? - _g138099_) + _g139084_) (##values-length - _g138099_) + _g139084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g138100_ + (##fx= _g139085_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g138100_))) - (let ((_%target136238136256%_ + _g139085_))) + (let ((_%target137223137241%_ (let () (declare (not safe)) (##values-ref - _g138099_ + _g139084_ 0))) - (_%tl136240136258%_ + (_%tl137225137243%_ (let () (declare (not safe)) (##values-ref - _g138099_ + _g139084_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136240136258%_)) - (letrec ((_%loop136241136261%_ - (lambda (_%hd136239136264%_ + _%tl137225137243%_)) + (letrec ((_%loop137226137246%_ + (lambda (_%hd137224137249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136245136266%_) + _%expr137230137251%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136239136264%_)) - (let ((_%e136242136269%_ + (gx#stx-pair? _%hd137224137249%_)) + (let ((_%e137227137254%_ (let () (declare (not safe)) - (gx#syntax-e _%hd136239136264%_)))) - (let ((_%lp-hd136243136272%_ + (gx#syntax-e _%hd137224137249%_)))) + (let ((_%lp-hd137228137257%_ (let () (declare (not safe)) - (##car _%e136242136269%_))) - (_%lp-tl136244136274%_ + (##car _%e137227137254%_))) + (_%lp-tl137229137259%_ (let () (declare (not safe)) - (##cdr _%e136242136269%_)))) - (_%loop136241136261%_ - _%lp-tl136244136274%_ - (cons _%lp-hd136243136272%_ - _%expr136245136266%_)))) - (let ((_%expr136246136277%_ - (reverse _%expr136245136266%_))) - ((lambda (_%L136280%_) - (let ((__tmp138103 + (##cdr _%e137227137254%_)))) + (_%loop137226137246%_ + _%lp-tl137229137259%_ + (cons _%lp-hd137228137257%_ + _%expr137230137251%_)))) + (let ((_%expr137231137262%_ + (reverse _%expr137230137251%_))) + ((lambda (_%L137265%_) + (let ((__tmp139088 (lambda () - (let* ((_%g136294136301%_ - (lambda (_%g136295136298%_) + (let* ((_%g137279137286%_ + (lambda (_%g137280137283%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136295136298%_)))) - (_%g136293136327%_ - (lambda (_%g136295136304%_) - ((lambda (_%L136306%_) + _%g137280137283%_)))) + (_%g137278137312%_ + (lambda (_%g137280137289%_) + ((lambda (_%L137291%_) (gxc#xform-wrap-source - (cons _%L136216%_ + (cons _%L137201%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L136280%_ - _%L136215%_)) - (let ((__tmp138104 - (lambda (_%g136316136320%_ - _%g136317136322%_ - _%g136318136324%_) - (cons (cons _%g136317136322%_ - (cons _%g136316136320%_ + _%L137265%_ + _%L137200%_)) + (let ((__tmp139089 + (lambda (_%g137301137305%_ + _%g137302137307%_ + _%g137303137309%_) + (cons (cons _%g137302137307%_ + (cons _%g137301137305%_ '())) - _%g136318136324%_)))) + _%g137303137309%_)))) (declare (not safe)) (__foldr2 - __tmp138104 + __tmp139089 '() - _%L136280%_ - _%L136215%_))) - _%L136306%_)) - _%stx136113%_)) - _%g136295136304%_)))) + _%L137265%_ + _%L137200%_))) + _%L137291%_)) + _%stx137098%_)) + _%g137280137289%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136293136327%_ - (map (lambda (_%g136329136331%_) + (_%g137278137312%_ + (map (lambda (_%g137314137316%_) (gxc#compile-e__1 - _%self136112%_ - _%g136329136331%_)) - _%L136213%_))))) - (__tmp138101 + _%self137097%_ + _%g137314137316%_)) + _%L137198%_))))) + (__tmp139086 (gxc#xform-let-locals - (let ((__tmp138102 - (lambda (_%g136333136336%_ - _%g136334136338%_) - (cons _%g136333136336%_ - _%g136334136338%_)))) + (let ((__tmp139087 + (lambda (_%g137318137321%_ + _%g137319137323%_) + (cons _%g137318137321%_ + _%g137319137323%_)))) (declare (not safe)) (__foldr1 - __tmp138102 + __tmp139087 '() - _%L136215%_))))) + _%L137200%_))))) (declare (not safe)) (__call-with-parameters - __tmp138103 + __tmp139088 gxc#current-compile-local-env - __tmp138101))) - _%expr136246136277%_)))))) - (_%loop136241136261%_ _%target136238136256%_ '())) + __tmp139086))) + _%expr137231137262%_)))))) + (_%loop137226137246%_ _%target137223137241%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136235136251%_ - _%g136236136254%_))))) - (_%g136235136251%_ - _%g136236136254%_))))) - (_%g136234136341%_ - (map (lambda (_%g136343136345%_) + (_%g137220137236%_ + _%g137221137239%_))))) + (_%g137220137236%_ + _%g137221137239%_))))) + (_%g137219137326%_ + (map (lambda (_%g137328137330%_) (gxc#compile-e__1 - _%self136112%_ - _%g136343136345%_)) - (let ((__tmp138105 - (lambda (_%g136347136350%_ - _%g136348136352%_) - (cons _%g136347136350%_ - _%g136348136352%_)))) + _%self137097%_ + _%g137328137330%_)) + (let ((__tmp139090 + (lambda (_%g137332137335%_ + _%g137333137337%_) + (cons _%g137332137335%_ + _%g137333137337%_)))) (declare (not safe)) (__foldr1 - __tmp138105 + __tmp139090 '() - _%L136214%_)))))) - _%tl136126136166%_ - _%expr136136136208%_ - _%hd136137136210%_ - _%hd136122136156%_)))))) + _%L137199%_)))))) + _%tl137111137151%_ + _%expr137121137193%_ + _%hd137122137195%_ + _%hd137107137141%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136130136174%_ - _%target136127136169%_ + (_%loop137115137159%_ + _%target137112137154%_ '() '())) - (_%g136115136148%_ - _%g136116136151%_))))) - (_%g136115136148%_ _%g136116136151%_)))) - (_%g136115136148%_ _%g136116136151%_)))) - (_%g136115136148%_ _%g136116136151%_))))) - (_%g136114136355%_ _%stx136113%_)))) + (_%g137100137133%_ + _%g137101137136%_))))) + (_%g137100137133%_ _%g137101137136%_)))) + (_%g137100137133%_ _%g137101137136%_)))) + (_%g137100137133%_ _%g137101137136%_))))) + (_%g137099137340%_ _%stx137098%_)))) (define gxc#xform-letrec-values% - (lambda (_%self135866%_ _%stx135867%_) - (let* ((_%g135869135902%_ - (lambda (_%g135870135899%_) + (lambda (_%self136851%_ _%stx136852%_) + (let* ((_%g136854136887%_ + (lambda (_%g136855136884%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135870135899%_)))) - (_%g135868136109%_ - (lambda (_%g135870135905%_) + _%g136855136884%_)))) + (_%g136853137094%_ + (lambda (_%g136855136890%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135870135905%_)) - (let ((_%e135875135907%_ + (gx#stx-pair? _%g136855136890%_)) + (let ((_%e136860136892%_ (let () (declare (not safe)) - (gx#stx-e _%g135870135905%_)))) - (let ((_%hd135876135910%_ + (gx#stx-e _%g136855136890%_)))) + (let ((_%hd136861136895%_ (let () (declare (not safe)) - (##car _%e135875135907%_))) - (_%tl135877135912%_ + (##car _%e136860136892%_))) + (_%tl136862136897%_ (let () (declare (not safe)) - (##cdr _%e135875135907%_)))) + (##cdr _%e136860136892%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135877135912%_)) - (let ((_%e135878135915%_ + (gx#stx-pair? _%tl136862136897%_)) + (let ((_%e136863136900%_ (let () (declare (not safe)) - (gx#stx-e _%tl135877135912%_)))) - (let ((_%hd135879135918%_ + (gx#stx-e _%tl136862136897%_)))) + (let ((_%hd136864136903%_ (let () (declare (not safe)) - (##car _%e135878135915%_))) - (_%tl135880135920%_ + (##car _%e136863136900%_))) + (_%tl136865136905%_ (let () (declare (not safe)) - (##cdr _%e135878135915%_)))) + (##cdr _%e136863136900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135879135918%_)) - (let ((_g138106_ + (gx#stx-pair/null? _%hd136864136903%_)) + (let ((_g139091_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135879135918%_ + _%hd136864136903%_ '0)))) (begin - (let ((_g138107_ + (let ((_g139092_ (let () (declare (not safe)) - (if (##values? _g138106_) + (if (##values? _g139091_) (##values-length - _g138106_) + _g139091_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g138107_ 2))) + (##fx= _g139092_ 2))) (error "Context expects 2 values" - _g138107_))) - (let ((_%target135881135923%_ + _g139092_))) + (let ((_%target136866136908%_ (let () (declare (not safe)) - (##values-ref _g138106_ 0))) - (_%tl135883135925%_ + (##values-ref _g139091_ 0))) + (_%tl136868136910%_ (let () (declare (not safe)) (##values-ref - _g138106_ + _g139091_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135883135925%_)) - (letrec ((_%loop135884135928%_ - (lambda (_%hd135882135931%_ + _%tl136868136910%_)) + (letrec ((_%loop136869136913%_ + (lambda (_%hd136867136916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135888135933%_ - _%hd135889135935%_) + _%expr136873136918%_ + _%hd136874136920%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135882135931%_)) - (let ((_%e135885135938%_ + (gx#stx-pair? _%hd136867136916%_)) + (let ((_%e136870136923%_ (let () (declare (not safe)) - (gx#stx-e _%hd135882135931%_)))) - (let ((_%lp-hd135886135941%_ + (gx#stx-e _%hd136867136916%_)))) + (let ((_%lp-hd136871136926%_ (let () (declare (not safe)) - (##car _%e135885135938%_))) - (_%lp-tl135887135943%_ + (##car _%e136870136923%_))) + (_%lp-tl136872136928%_ (let () (declare (not safe)) - (##cdr _%e135885135938%_)))) + (##cdr _%e136870136923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135886135941%_)) - (let ((_%e135892135946%_ + (gx#stx-pair? _%lp-hd136871136926%_)) + (let ((_%e136877136931%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135886135941%_)))) - (let ((_%hd135893135949%_ + (gx#stx-e _%lp-hd136871136926%_)))) + (let ((_%hd136878136934%_ (let () (declare (not safe)) - (##car _%e135892135946%_))) - (_%tl135894135951%_ + (##car _%e136877136931%_))) + (_%tl136879136936%_ (let () (declare (not safe)) - (##cdr _%e135892135946%_)))) + (##cdr _%e136877136931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135894135951%_)) - (let ((_%e135895135954%_ + (gx#stx-pair? _%tl136879136936%_)) + (let ((_%e136880136939%_ (let () (declare (not safe)) (gx#stx-e - _%tl135894135951%_)))) - (let ((_%hd135896135957%_ + _%tl136879136936%_)))) + (let ((_%hd136881136942%_ (let () (declare (not safe)) - (##car _%e135895135954%_))) - (_%tl135897135959%_ + (##car _%e136880136939%_))) + (_%tl136882136944%_ (let () (declare (not safe)) - (##cdr _%e135895135954%_)))) + (##cdr _%e136880136939%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135897135959%_)) - (_%loop135884135928%_ - _%lp-tl135887135943%_ - (cons _%hd135896135957%_ - _%expr135888135933%_) - (cons _%hd135893135949%_ - _%hd135889135935%_)) - (_%g135869135902%_ - _%g135870135905%_)))) - (_%g135869135902%_ - _%g135870135905%_)))) - (_%g135869135902%_ _%g135870135905%_)))) - (let ((_%expr135890135962%_ - (reverse _%expr135888135933%_)) - (_%hd135891135964%_ - (reverse _%hd135889135935%_))) - ((lambda (_%L135967%_ - _%L135968%_ - _%L135969%_ - _%L135970%_) - (let ((__tmp138110 + _%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* ((_%g135990136006%_ - (lambda (_%g135991136003%_) + (let* ((_%g136975136991%_ + (lambda (_%g136976136988%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135991136003%_)))) - (_%g135989136088%_ - (lambda (_%g135991136009%_) + _%g136976136988%_)))) + (_%g136974137073%_ + (lambda (_%g136976136994%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g135991136009%_)) - (let ((_g138111_ + _%g136976136994%_)) + (let ((_g139096_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g135991136009%_ + _%g136976136994%_ '0)))) (begin - (let ((_g138112_ + (let ((_g139097_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g138111_) - (##values-length _g138111_) + (if (##values? _g139096_) + (##values-length _g139096_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138112_ 2))) - (error "Context expects 2 values" _g138112_))) - (let ((_%target135993136011%_ + (if (not (let () (declare (not safe)) (##fx= _g139097_ 2))) + (error "Context expects 2 values" _g139097_))) + (let ((_%target136978136996%_ (let () (declare (not safe)) - (##values-ref _g138111_ 0))) - (_%tl135995136013%_ + (##values-ref _g139096_ 0))) + (_%tl136980136998%_ (let () (declare (not safe)) - (##values-ref _g138111_ 1)))) + (##values-ref _g139096_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135995136013%_)) - (letrec ((_%loop135996136016%_ - (lambda (_%hd135994136019%_ - _%expr136000136021%_) + (gx#stx-null? _%tl136980136998%_)) + (letrec ((_%loop136981137001%_ + (lambda (_%hd136979137004%_ + _%expr136985137006%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135994136019%_)) - (let ((_%e135997136024%_ + (gx#stx-pair? _%hd136979137004%_)) + (let ((_%e136982137009%_ (let () (declare (not safe)) (gx#syntax-e - _%hd135994136019%_)))) - (let ((_%lp-hd135998136027%_ + _%hd136979137004%_)))) + (let ((_%lp-hd136983137012%_ (let () (declare (not safe)) - (##car _%e135997136024%_))) - (_%lp-tl135999136029%_ + (##car _%e136982137009%_))) + (_%lp-tl136984137014%_ (let () (declare (not safe)) - (##cdr _%e135997136024%_)))) - (_%loop135996136016%_ - _%lp-tl135999136029%_ - (cons _%lp-hd135998136027%_ - _%expr136000136021%_)))) - (let ((_%expr136001136032%_ - (reverse _%expr136000136021%_))) - ((lambda (_%L136035%_) - (let* ((_%g136049136056%_ - (lambda (_%g136050136053%_) + (##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" - _%g136050136053%_)))) - (_%g136048136081%_ - (lambda (_%g136050136059%_) - ((lambda (_%L136061%_) + _%g137035137038%_)))) + (_%g137033137066%_ + (lambda (_%g137035137044%_) + ((lambda (_%L137046%_) (gxc#xform-wrap-source - (cons _%L135970%_ + (cons _%L136955%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L136035%_ - _%L135969%_)) - (let ((__tmp138113 - (lambda (_%g136070136074%_ - _%g136071136076%_ - _%g136072136078%_) - (cons (cons _%g136071136076%_ - (cons _%g136070136074%_ + _%L137020%_ + _%L136954%_)) + (let ((__tmp139098 + (lambda (_%g137055137059%_ + _%g137056137061%_ + _%g137057137063%_) + (cons (cons _%g137056137061%_ + (cons _%g137055137059%_ '())) - _%g136072136078%_)))) + _%g137057137063%_)))) (declare (not safe)) (__foldr2 - __tmp138113 + __tmp139098 '() - _%L136035%_ - _%L135969%_))) - _%L136061%_)) - _%stx135867%_)) - _%g136050136059%_)))) + _%L137020%_ + _%L136954%_))) + _%L137046%_)) + _%stx136852%_)) + _%g137035137044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136048136081%_ - (map (lambda (_%g136083136085%_) + (_%g137033137066%_ + (map (lambda (_%g137068137070%_) (gxc#compile-e__1 - _%self135866%_ - _%g136083136085%_)) - _%L135967%_)))) - _%expr136001136032%_)))))) - (_%loop135996136016%_ _%target135993136011%_ '())) - (_%g135990136006%_ _%g135991136009%_))))) + _%self136851%_ + _%g137068137070%_)) + _%L136952%_)))) + _%expr136986137017%_)))))) + (_%loop136981137001%_ _%target136978136996%_ '())) + (_%g136975136991%_ _%g136976136994%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135990136006%_ - _%g135991136009%_))))) - (_%g135989136088%_ - (map (lambda (_%g136090136092%_) + (_%g136975136991%_ + _%g136976136994%_))))) + (_%g136974137073%_ + (map (lambda (_%g137075137077%_) (gxc#compile-e__1 - _%self135866%_ - _%g136090136092%_)) - (let ((__tmp138114 - (lambda (_%g136094136097%_ - _%g136095136099%_) - (cons _%g136094136097%_ - _%g136095136099%_)))) + _%self136851%_ + _%g137075137077%_)) + (let ((__tmp139099 + (lambda (_%g137079137082%_ + _%g137080137084%_) + (cons _%g137079137082%_ + _%g137080137084%_)))) (declare (not safe)) (__foldr1 - __tmp138114 + __tmp139099 '() - _%L135968%_))))))) - (__tmp138108 + _%L136953%_))))))) + (__tmp139093 (gxc#xform-let-locals - (let ((__tmp138109 - (lambda (_%g136101136104%_ - _%g136102136106%_) - (cons _%g136101136104%_ - _%g136102136106%_)))) + (let ((__tmp139094 + (lambda (_%g137086137089%_ + _%g137087137091%_) + (cons _%g137086137089%_ + _%g137087137091%_)))) (declare (not safe)) (__foldr1 - __tmp138109 + __tmp139094 '() - _%L135969%_))))) + _%L136954%_))))) (declare (not safe)) (__call-with-parameters - __tmp138110 + __tmp139095 gxc#current-compile-local-env - __tmp138108))) - _%tl135880135920%_ - _%expr135890135962%_ - _%hd135891135964%_ - _%hd135876135910%_)))))) + __tmp139093))) + _%tl136865136905%_ + _%expr136875136947%_ + _%hd136876136949%_ + _%hd136861136895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135884135928%_ - _%target135881135923%_ + (_%loop136869136913%_ + _%target136866136908%_ '() '())) - (_%g135869135902%_ - _%g135870135905%_))))) - (_%g135869135902%_ _%g135870135905%_)))) - (_%g135869135902%_ _%g135870135905%_)))) - (_%g135869135902%_ _%g135870135905%_))))) - (_%g135868136109%_ _%stx135867%_)))) + (_%g136854136887%_ + _%g136855136890%_))))) + (_%g136854136887%_ _%g136855136890%_)))) + (_%g136854136887%_ _%g136855136890%_)))) + (_%g136854136887%_ _%g136855136890%_))))) + (_%g136853137094%_ _%stx136852%_)))) (define gxc#xform-let-locals - (lambda (_%bindings135733%_) - (letrec ((_%flatten135735%_ - (lambda (_%maybe-lst135793%_) + (lambda (_%bindings136718%_) + (letrec ((_%flatten136720%_ + (lambda (_%maybe-lst136778%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst135793%_)) - (cons _%maybe-lst135793%_ '()) - (let _%loop135795%_ ((_%rest135797%_ - _%maybe-lst135793%_) - (_%result135798%_ '())) - (let* ((_%__stx138002138003%_ _%rest135797%_) - (_%g135802135814%_ + (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" - _%__stx138002138003%_))))) - (let ((_%__kont138004138005%_ - (lambda (_%L135852%_ _%L135853%_) - (_%loop135795%_ - _%L135852%_ - (let ((__tmp138115 - (_%flatten135735%_ _%L135853%_))) + _%__stx138987138988%_))))) + (let ((_%__kont138989138990%_ + (lambda (_%L136837%_ _%L136838%_) + (_%loop136780%_ + _%L136837%_ + (let ((__tmp139100 + (_%flatten136720%_ _%L136838%_))) (declare (not safe)) (__foldl1 cons - _%result135798%_ - __tmp138115))))) - (_%__kont138006138007%_ - (lambda (_%L135826%_) - (cons _%L135826%_ _%result135798%_))) - (_%__kont138008138009%_ - (lambda () _%result135798%_))) - (let ((_%g135800135839%_ + _%result136783%_ + __tmp139100))))) + (_%__kont138991138992%_ + (lambda (_%L136811%_) + (cons _%L136811%_ _%result136783%_))) + (_%__kont138993138994%_ + (lambda () _%result136783%_))) + (let ((_%g136785136824%_ (lambda () - (let ((_%L135826%_ - _%__stx138002138003%_)) + (let ((_%L136811%_ + _%__stx138987138988%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135826%_)) - (_%__kont138006138007%_ - _%L135826%_) - (_%__kont138008138009%_)))))) + (gx#identifier? _%L136811%_)) + (_%__kont138991138992%_ + _%L136811%_) + (_%__kont138993138994%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx138002138003%_)) - (let ((_%e135806135844%_ + (gx#stx-pair? _%__stx138987138988%_)) + (let ((_%e136791136829%_ (let () (declare (not safe)) (gx#stx-e - _%__stx138002138003%_)))) - (let ((_%tl135808135849%_ + _%__stx138987138988%_)))) + (let ((_%tl136793136834%_ (let () (declare (not safe)) - (##cdr _%e135806135844%_))) - (_%hd135807135847%_ + (##cdr _%e136791136829%_))) + (_%hd136792136832%_ (let () (declare (not safe)) - (##car _%e135806135844%_)))) - (_%__kont138004138005%_ - _%tl135808135849%_ - _%hd135807135847%_))) + (##car _%e136791136829%_)))) + (_%__kont138989138990%_ + _%tl136793136834%_ + _%hd136792136832%_))) (let () (declare (not safe)) - (_%g135800135839%_))))))))))) - (let _%loop135737%_ ((_%rest135739%_ - (_%flatten135735%_ _%bindings135733%_)) - (_%locals135740%_ + (_%g136785136824%_))))))))))) + (let _%loop136722%_ ((_%rest136724%_ + (_%flatten136720%_ _%bindings136718%_)) + (_%locals136725%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest135741135752%_ _%rest135739%_) - (_%E135745135756%_ + (let* ((_%rest136726136737%_ _%rest136724%_) + (_%E136730136741%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest135741135752%_ + _%rest136726136737%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K135748135781%_ - (lambda (_%rest135778%_ _%id135779%_) - (_%loop135737%_ - _%rest135778%_ + (let ((_%K136733136766%_ + (lambda (_%rest136763%_ _%id136764%_) + (_%loop136722%_ + _%rest136763%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135779%_)) - _%locals135740%_)))) - (_%K135747135770%_ - (lambda (_%id135768%_) + (gxc#identifier-symbol _%id136764%_)) + _%locals136725%_)))) + (_%K136732136755%_ + (lambda (_%id136753%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135768%_)) - _%locals135740%_))) - (_%K135746135761%_ (lambda () _%locals135740%_))) - (let ((_%try-match135743135775%_ + (gxc#identifier-symbol _%id136753%_)) + _%locals136725%_))) + (_%K136731136746%_ (lambda () _%locals136725%_))) + (let ((_%try-match136728136760%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest135741135752%_)) - (let ((_%id135773%_ _%rest135741135752%_)) - (_%K135747135770%_ _%id135773%_)) - (_%K135746135761%_))))) - (if (pair? _%rest135741135752%_) - (let ((_%tl135750135786%_ + (gx#identifier? _%rest136726136737%_)) + (let ((_%id136758%_ _%rest136726136737%_)) + (_%K136732136755%_ _%id136758%_)) + (_%K136731136746%_))))) + (if (pair? _%rest136726136737%_) + (let ((_%tl136735136771%_ (let () (declare (not safe)) - (##cdr _%rest135741135752%_))) - (_%hd135749135784%_ + (##cdr _%rest136726136737%_))) + (_%hd136734136769%_ (let () (declare (not safe)) - (##car _%rest135741135752%_)))) + (##car _%rest136726136737%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd135749135784%_)) - (let ((_%id135789%_ _%hd135749135784%_) - (_%rest135791%_ _%tl135750135786%_)) - (_%K135748135781%_ _%rest135791%_ _%id135789%_)) - (_%K135746135761%_))) - (_%try-match135743135775%_))))))))) + (gx#identifier? _%hd136734136769%_)) + (let ((_%id136774%_ _%hd136734136769%_) + (_%rest136776%_ _%tl136735136771%_)) + (_%K136733136766%_ _%rest136776%_ _%id136774%_)) + (_%K136731136746%_))) + (_%try-match136728136760%_))))))))) (define gxc#xform-operands - (lambda (_%self135685%_ _%stx135686%_) - (let* ((_%g135688135699%_ - (lambda (_%g135689135696%_) + (lambda (_%self136670%_ _%stx136671%_) + (let* ((_%g136673136684%_ + (lambda (_%g136674136681%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135689135696%_)))) - (_%g135687135730%_ - (lambda (_%g135689135702%_) + _%g136674136681%_)))) + (_%g136672136715%_ + (lambda (_%g136674136687%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135689135702%_)) - (let ((_%e135692135704%_ + (gx#stx-pair? _%g136674136687%_)) + (let ((_%e136677136689%_ (let () (declare (not safe)) - (gx#stx-e _%g135689135702%_)))) - (let ((_%hd135693135707%_ + (gx#stx-e _%g136674136687%_)))) + (let ((_%hd136678136692%_ (let () (declare (not safe)) - (##car _%e135692135704%_))) - (_%tl135694135709%_ + (##car _%e136677136689%_))) + (_%tl136679136694%_ (let () (declare (not safe)) - (##cdr _%e135692135704%_)))) - ((lambda (_%L135712%_ _%L135713%_) - (let ((_%rands135728%_ - (map (lambda (_%g135723135725%_) + (##cdr _%e136677136689%_)))) + ((lambda (_%L136697%_ _%L136698%_) + (let ((_%rands136713%_ + (map (lambda (_%g136708136710%_) (gxc#compile-e__1 - _%self135685%_ - _%g135723135725%_)) - _%L135712%_))) + _%self136670%_ + _%g136708136710%_)) + _%L136697%_))) (gxc#xform-wrap-source - (cons _%L135713%_ _%rands135728%_) - _%stx135686%_))) - _%tl135694135709%_ - _%hd135693135707%_))) - (_%g135688135699%_ _%g135689135702%_))))) - (_%g135687135730%_ _%stx135686%_)))) + (cons _%L136698%_ _%rands136713%_) + _%stx136671%_))) + _%tl136679136694%_ + _%hd136678136692%_))) + (_%g136673136684%_ _%g136674136687%_))))) + (_%g136672136715%_ _%stx136671%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self135615%_ _%stx135616%_) - (let* ((_%g135618135635%_ - (lambda (_%g135619135632%_) + (lambda (_%self136600%_ _%stx136601%_) + (let* ((_%g136603136620%_ + (lambda (_%g136604136617%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135619135632%_)))) - (_%g135617135682%_ - (lambda (_%g135619135638%_) + _%g136604136617%_)))) + (_%g136602136667%_ + (lambda (_%g136604136623%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135619135638%_)) - (let ((_%e135622135640%_ + (gx#stx-pair? _%g136604136623%_)) + (let ((_%e136607136625%_ (let () (declare (not safe)) - (gx#stx-e _%g135619135638%_)))) - (let ((_%hd135623135643%_ + (gx#stx-e _%g136604136623%_)))) + (let ((_%hd136608136628%_ (let () (declare (not safe)) - (##car _%e135622135640%_))) - (_%tl135624135645%_ + (##car _%e136607136625%_))) + (_%tl136609136630%_ (let () (declare (not safe)) - (##cdr _%e135622135640%_)))) + (##cdr _%e136607136625%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135624135645%_)) - (let ((_%e135625135648%_ + (gx#stx-pair? _%tl136609136630%_)) + (let ((_%e136610136633%_ (let () (declare (not safe)) - (gx#stx-e _%tl135624135645%_)))) - (let ((_%hd135626135651%_ + (gx#stx-e _%tl136609136630%_)))) + (let ((_%hd136611136636%_ (let () (declare (not safe)) - (##car _%e135625135648%_))) - (_%tl135627135653%_ + (##car _%e136610136633%_))) + (_%tl136612136638%_ (let () (declare (not safe)) - (##cdr _%e135625135648%_)))) + (##cdr _%e136610136633%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135627135653%_)) - (let ((_%e135628135656%_ + (gx#stx-pair? _%tl136612136638%_)) + (let ((_%e136613136641%_ (let () (declare (not safe)) - (gx#stx-e _%tl135627135653%_)))) - (let ((_%hd135629135659%_ + (gx#stx-e _%tl136612136638%_)))) + (let ((_%hd136614136644%_ (let () (declare (not safe)) - (##car _%e135628135656%_))) - (_%tl135630135661%_ + (##car _%e136613136641%_))) + (_%tl136615136646%_ (let () (declare (not safe)) - (##cdr _%e135628135656%_)))) + (##cdr _%e136613136641%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135630135661%_)) - ((lambda (_%L135664%_ - _%L135665%_) - (let ((_%expr135680%_ + _%tl136615136646%_)) + ((lambda (_%L136649%_ + _%L136650%_) + (let ((_%expr136665%_ (gxc#compile-e__1 - _%self135615%_ - _%L135664%_))) + _%self136600%_ + _%L136649%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L135665%_ - (cons _%expr135680%_ + (cons _%L136650%_ + (cons _%expr136665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx135616%_))) - _%hd135629135659%_ - _%hd135626135651%_) - (_%g135618135635%_ - _%g135619135638%_)))) - (_%g135618135635%_ _%g135619135638%_)))) - (_%g135618135635%_ _%g135619135638%_)))) - (_%g135618135635%_ _%g135619135638%_))))) - (_%g135617135682%_ _%stx135616%_)))))) + _%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 67e5a2c8c..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]#_g138143_| + (define |gxc[1]#_g139128_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138145_| + (define |gxc[1]#_g139130_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138147_| + (define |gxc[1]#_g139132_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138149_| + (define |gxc[1]#_g139134_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138151_| + (define |gxc[1]#_g139136_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138153_| + (define |gxc[1]#_g139138_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138155_| + (define |gxc[1]#_g139140_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138156_| + (define |gxc[1]#_g139141_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138158_| + (define |gxc[1]#_g139143_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138160_| + (define |gxc[1]#_g139145_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138162_| + (define |gxc[1]#_g139147_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138164_| + (define |gxc[1]#_g139149_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138166_| + (define |gxc[1]#_g139151_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138168_| + (define |gxc[1]#_g139153_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138170_| + (define |gxc[1]#_g139155_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138172_| + (define |gxc[1]#_g139157_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138174_| + (define |gxc[1]#_g139159_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138176_| + (define |gxc[1]#_g139161_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138177_| + (define |gxc[1]#_g139162_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138179_| + (define |gxc[1]#_g139164_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138181_| + (define |gxc[1]#_g139166_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138183_| + (define |gxc[1]#_g139168_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138185_| + (define |gxc[1]#_g139170_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138187_| + (define |gxc[1]#_g139172_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138189_| + (define |gxc[1]#_g139174_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138191_| + (define |gxc[1]#_g139176_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138193_| + (define |gxc[1]#_g139178_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138195_| + (define |gxc[1]#_g139180_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138197_| + (define |gxc[1]#_g139182_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138198_| + (define |gxc[1]#_g139183_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138200_| + (define |gxc[1]#_g139185_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138202_| + (define |gxc[1]#_g139187_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138204_| + (define |gxc[1]#_g139189_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138206_| + (define |gxc[1]#_g139191_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138208_| + (define |gxc[1]#_g139193_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138210_| + (define |gxc[1]#_g139195_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138212_| + (define |gxc[1]#_g139197_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138213_| + (define |gxc[1]#_g139198_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138215_| + (define |gxc[1]#_g139200_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138217_| + (define |gxc[1]#_g139202_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138219_| + (define |gxc[1]#_g139204_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,161 +289,161 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx134157%_) - (let* ((_%__stx137858137859%_ _%stx134157%_) - (_%g134163134357%_ + (lambda (_%stx135142%_) + (let* ((_%__stx138843138844%_ _%stx135142%_) + (_%g135148135342%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137858137859%_))))) - (let ((_%__kont137861137862%_ - (lambda (_%L135577%_ _%L135579%_ _%L135580%_ _%L135581%_) + _%__stx138843138844%_))))) + (let ((_%__kont138846138847%_ + (lambda (_%L136562%_ _%L136564%_ _%L136565%_ _%L136566%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L135581%_ - (cons (cons _%L135580%_ '()) - (cons _%L135579%_ _%L135577%_)))))) - (_%__kont137863137864%_ - (lambda (_%L135331%_ - _%L135333%_ - _%L135334%_ - _%L135335%_ - _%L135336%_) - (let* ((_%g135367135395%_ - (lambda (_%g135368135391%_) + (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" - _%g135368135391%_)))) - (_%g135366135515%_ - (lambda (_%g135368135399%_) + _%g136353136376%_)))) + (_%g136351136500%_ + (lambda (_%g136353136384%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135368135399%_)) - (let ((_%e135372135402%_ + (gx#stx-pair? _%g136353136384%_)) + (let ((_%e136357136387%_ (let () (declare (not safe)) - (gx#syntax-e _%g135368135399%_)))) - (let ((_%hd135373135406%_ + (gx#syntax-e _%g136353136384%_)))) + (let ((_%hd136358136391%_ (let () (declare (not safe)) - (##car _%e135372135402%_))) - (_%tl135374135409%_ + (##car _%e136357136387%_))) + (_%tl136359136394%_ (let () (declare (not safe)) - (##cdr _%e135372135402%_)))) + (##cdr _%e136357136387%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135374135409%_)) - (let ((_%e135375135412%_ + (gx#stx-pair? _%tl136359136394%_)) + (let ((_%e136360136397%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135374135409%_)))) - (let ((_%hd135376135416%_ + _%tl136359136394%_)))) + (let ((_%hd136361136401%_ (let () (declare (not safe)) - (##car _%e135375135412%_))) - (_%tl135377135419%_ + (##car _%e136360136397%_))) + (_%tl136362136404%_ (let () (declare (not safe)) - (##cdr _%e135375135412%_)))) + (##cdr _%e136360136397%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd135376135416%_)) - (let ((_g138116_ + _%hd136361136401%_)) + (let ((_g139101_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135376135416%_ + _%hd136361136401%_ '0)))) (begin - (let ((_g138117_ + (let ((_g139102_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g138116_) - (##values-length _g138116_) + _g139101_) + (##values-length _g139101_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138117_ 2))) - (error "Context expects 2 values" _g138117_))) + (if (not (let () (declare (not safe)) (##fx= _g139102_ 2))) + (error "Context expects 2 values" _g139102_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target135378135422%_ + (let ((_%target136363136407%_ (let () (declare (not safe)) (##values-ref - _g138116_ + _g139101_ 0))) - (_%tl135380135425%_ + (_%tl136365136410%_ (let () (declare (not safe)) (##values-ref - _g138116_ + _g139101_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135380135425%_)) - (letrec ((_%loop135381135428%_ + _%tl136365136410%_)) + (letrec ((_%loop136366136413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd135379135432%_ - _%super-bind-methods!135385135435%_) + (lambda (_%hd136364136417%_ + _%super-bind-methods!136370136420%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135379135432%_)) - (let ((_%e135382135438%_ + (gx#stx-pair? _%hd136364136417%_)) + (let ((_%e136367136423%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135379135432%_)))) - (let ((_%lp-hd135383135442%_ + (gx#syntax-e _%hd136364136417%_)))) + (let ((_%lp-hd136368136427%_ (let () (declare (not safe)) - (##car _%e135382135438%_))) - (_%lp-tl135384135445%_ + (##car _%e136367136423%_))) + (_%lp-tl136369136430%_ (let () (declare (not safe)) - (##cdr _%e135382135438%_)))) - (_%loop135381135428%_ - _%lp-tl135384135445%_ - (cons _%lp-hd135383135442%_ - _%super-bind-methods!135385135435%_)))) - (let ((_%super-bind-methods!135386135448%_ - (reverse _%super-bind-methods!135385135435%_))) + (##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? _%tl135377135419%_)) - (let ((_%e135387135452%_ + (gx#stx-pair? _%tl136362136404%_)) + (let ((_%e136372136437%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135377135419%_)))) - (let ((_%hd135388135456%_ + _%tl136362136404%_)))) + (let ((_%hd136373136441%_ (let () (declare (not safe)) - (##car _%e135387135452%_))) - (_%tl135389135459%_ + (##car _%e136372136437%_))) + (_%tl136374136444%_ (let () (declare (not safe)) - (##cdr _%e135387135452%_)))) + (##cdr _%e136372136437%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135389135459%_)) - ((lambda (_%L135462%_ - _%L135464%_ - _%L135465%_) + _%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 _%L135336%_ - (let ((__tmp138118 - (lambda (_%g135492135495%_ - _%g135493135498%_) - (cons _%g135492135495%_ - _%g135493135498%_)))) + (cons (cons _%L136321%_ + (let ((__tmp139103 + (lambda (_%g136477136480%_ + _%g136478136483%_) + (cons _%g136477136480%_ + _%g136478136483%_)))) (declare (not safe)) (__foldr1 - __tmp138118 + __tmp139103 '() - _%L135335%_))) - (cons _%L135334%_ '()))) + _%L136320%_))) + (cons _%L136319%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L135465%_ + (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 ((__tmp138121 - (lambda (_%g135487135501%_ _%g135488135504%_) + (let ((__tmp139106 + (lambda (_%g136472136486%_ _%g136473136489%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g135487135501%_ '())) - _%g135488135504%_))) - (__tmp138119 + (cons _%g136472136486%_ '())) + _%g136473136489%_))) + (__tmp139104 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135331%_ - _%L135333%_)) - (let ((__tmp138120 - (lambda (_%g135489135507%_ - _%g135490135510%_ - _%g135491135512%_) + _%L136316%_ + _%L136318%_)) + (let ((__tmp139105 + (lambda (_%g136474136492%_ + _%g136475136495%_ + _%g136476136497%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L135462%_ + (cons _%L136447%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g135490135510%_ '())) - (cons _%g135489135507%_ '())))) + (cons _%g136475136495%_ '())) + (cons _%g136474136492%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g135491135512%_)))) + _%g136476136497%_)))) (declare (not safe)) (__foldr2 - __tmp138120 + __tmp139105 '() - _%L135331%_ - _%L135333%_))))) + _%L136316%_ + _%L136318%_))))) (declare (not safe)) - (__foldr1 __tmp138121 __tmp138119 _%L135464%_))) + (__foldr1 __tmp139106 __tmp139104 _%L136449%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135388135456%_ - _%super-bind-methods!135386135448%_ - _%hd135373135406%_) - (_%g135367135395%_ - _%g135368135399%_)))) - (_%g135367135395%_ - _%g135368135399%_))))))) - (_%loop135381135428%_ _%target135378135422%_ '())) - (_%g135367135395%_ _%g135368135399%_))))) + _%hd136373136441%_ + _%super-bind-methods!136371136433%_ + _%hd136358136391%_) + (_%g136352136380%_ + _%g136353136384%_)))) + (_%g136352136380%_ + _%g136353136384%_))))))) + (_%loop136366136413%_ _%target136363136407%_ '())) + (_%g136352136380%_ _%g136353136384%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135367135395%_ - _%g135368135399%_)))) - (_%g135367135395%_ - _%g135368135399%_)))) - (_%g135367135395%_ _%g135368135399%_))))) - (_%g135366135515%_ + (_%g136352136380%_ + _%g136353136384%_)))) + (_%g136352136380%_ + _%g136353136384%_)))) + (_%g136352136380%_ _%g136353136384%_))))) + (_%g136351136500%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L135336%_ - _%L135336%_ + _%L136321%_ + _%L136321%_ '"-bind-methods!")) - (map (lambda (_%super135519%_) + (map (lambda (_%super136504%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135519%_ - _%super135519%_ + _%super136504%_ + _%super136504%_ '"-bind-methods!"))) - (let ((__tmp138122 - (lambda (_%g135521135524%_ - _%g135522135527%_) - (cons _%g135521135524%_ - _%g135522135527%_)))) + (let ((__tmp139107 + (lambda (_%g136506136509%_ + _%g136507136512%_) + (cons _%g136506136509%_ + _%g136507136512%_)))) (declare (not safe)) - (__foldr1 __tmp138122 '() _%L135335%_))) + (__foldr1 __tmp139107 '() _%L136320%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L135336%_ - _%L135336%_ + _%L136321%_ + _%L136321%_ '"::t"))))))) - (_%__kont137869137870%_ - (lambda (_%L134962%_ - _%L134964%_ - _%L134965%_ - _%L134966%_ - _%L134967%_ - _%L134968%_ - _%L134969%_) - (let* ((_%g135007135035%_ - (lambda (_%g135008135031%_) + (_%__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" - _%g135008135031%_)))) - (_%g135006135171%_ - (lambda (_%g135008135039%_) + _%g135993136016%_)))) + (_%g135991136156%_ + (lambda (_%g135993136024%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135008135039%_)) - (let ((_%e135012135042%_ + (gx#stx-pair? _%g135993136024%_)) + (let ((_%e135997136027%_ (let () (declare (not safe)) - (gx#syntax-e _%g135008135039%_)))) - (let ((_%hd135013135046%_ + (gx#syntax-e _%g135993136024%_)))) + (let ((_%hd135998136031%_ (let () (declare (not safe)) - (##car _%e135012135042%_))) - (_%tl135014135049%_ + (##car _%e135997136027%_))) + (_%tl135999136034%_ (let () (declare (not safe)) - (##cdr _%e135012135042%_)))) + (##cdr _%e135997136027%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135014135049%_)) - (let ((_%e135015135052%_ + (gx#stx-pair? _%tl135999136034%_)) + (let ((_%e136000136037%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135014135049%_)))) - (let ((_%hd135016135056%_ + _%tl135999136034%_)))) + (let ((_%hd136001136041%_ (let () (declare (not safe)) - (##car _%e135015135052%_))) - (_%tl135017135059%_ + (##car _%e136000136037%_))) + (_%tl136002136044%_ (let () (declare (not safe)) - (##cdr _%e135015135052%_)))) + (##cdr _%e136000136037%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd135016135056%_)) - (let ((_g138123_ + _%hd136001136041%_)) + (let ((_g139108_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135016135056%_ + _%hd136001136041%_ '0)))) (begin - (let ((_g138124_ + (let ((_g139109_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g138123_) - (##values-length _g138123_) + _g139108_) + (##values-length _g139108_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138124_ 2))) - (error "Context expects 2 values" _g138124_))) + (if (not (let () (declare (not safe)) (##fx= _g139109_ 2))) + (error "Context expects 2 values" _g139109_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target135018135062%_ + (let ((_%target136003136047%_ (let () (declare (not safe)) (##values-ref - _g138123_ + _g139108_ 0))) - (_%tl135020135065%_ + (_%tl136005136050%_ (let () (declare (not safe)) (##values-ref - _g138123_ + _g139108_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135020135065%_)) - (letrec ((_%loop135021135068%_ + _%tl136005136050%_)) + (letrec ((_%loop136006136053%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd135019135072%_ - _%super-bind-methods!135025135075%_) + (lambda (_%hd136004136057%_ + _%super-bind-methods!136010136060%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135019135072%_)) - (let ((_%e135022135078%_ + (gx#stx-pair? _%hd136004136057%_)) + (let ((_%e136007136063%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135019135072%_)))) - (let ((_%lp-hd135023135082%_ + (gx#syntax-e _%hd136004136057%_)))) + (let ((_%lp-hd136008136067%_ (let () (declare (not safe)) - (##car _%e135022135078%_))) - (_%lp-tl135024135085%_ + (##car _%e136007136063%_))) + (_%lp-tl136009136070%_ (let () (declare (not safe)) - (##cdr _%e135022135078%_)))) - (_%loop135021135068%_ - _%lp-tl135024135085%_ - (cons _%lp-hd135023135082%_ - _%super-bind-methods!135025135075%_)))) - (let ((_%super-bind-methods!135026135088%_ - (reverse _%super-bind-methods!135025135075%_))) + (##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? _%tl135017135059%_)) - (let ((_%e135027135092%_ + (gx#stx-pair? _%tl136002136044%_)) + (let ((_%e136012136077%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135017135059%_)))) - (let ((_%hd135028135096%_ + _%tl136002136044%_)))) + (let ((_%hd136013136081%_ (let () (declare (not safe)) - (##car _%e135027135092%_))) - (_%tl135029135099%_ + (##car _%e136012136077%_))) + (_%tl136014136084%_ (let () (declare (not safe)) - (##cdr _%e135027135092%_)))) + (##cdr _%e136012136077%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135029135099%_)) - ((lambda (_%L135102%_ - _%L135104%_ - _%L135105%_) + _%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 _%L134967%_ - (let ((__tmp138125 - (lambda (_%g135136135139%_ - _%g135137135142%_) - (cons _%g135136135139%_ - _%g135137135142%_)))) + (cons (cons _%L135952%_ + (let ((__tmp139110 + (lambda (_%g136121136124%_ + _%g136122136127%_) + (cons _%g136121136124%_ + _%g136122136127%_)))) (declare (not safe)) (__foldr1 - __tmp138125 + __tmp139110 '() - _%L134966%_))) - (cons _%L134965%_ '()))) + _%L135951%_))) + (cons _%L135950%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L135105%_ + (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 ((__tmp138128 - (lambda (_%g135131135145%_ _%g135132135148%_) + (let ((__tmp139113 + (lambda (_%g136116136130%_ _%g136117136133%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g135131135145%_ '())) - _%g135132135148%_))) - (__tmp138126 + (cons _%g136116136130%_ '())) + _%g136117136133%_))) + (__tmp139111 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134962%_ - _%L134964%_)) - (let ((__tmp138127 - (lambda (_%g135133135151%_ - _%g135134135154%_ - _%g135135135156%_) + _%L135947%_ + _%L135949%_)) + (let ((__tmp139112 + (lambda (_%g136118136136%_ + _%g136119136139%_ + _%g136120136141%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L135102%_ + (cons _%L136087%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g135134135154%_ '())) - (cons _%g135133135151%_ '())))) + (cons _%g136119136139%_ '())) + (cons _%g136118136136%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g135135135156%_)))) + _%g136120136141%_)))) (declare (not safe)) (__foldr2 - __tmp138127 + __tmp139112 '() - _%L134962%_ - _%L134964%_))))) + _%L135947%_ + _%L135949%_))))) (declare (not safe)) - (__foldr1 __tmp138128 __tmp138126 _%L135104%_))) + (__foldr1 __tmp139113 __tmp139111 _%L136089%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134969%_ + (cons (cons _%L135954%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp138129 + (let ((__tmp139114 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g135129135159%_ _%g135130135162%_) - (cons _%g135129135159%_ _%g135130135162%_)))) + (lambda (_%g136114136144%_ _%g136115136147%_) + (cons _%g136114136144%_ _%g136115136147%_)))) (declare (not safe)) - (__foldr1 __tmp138129 '() _%L134968%_)))) + (__foldr1 __tmp139114 '() _%L135953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -810,7 +810,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L135105%_ + (cons _%L136090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -819,18 +819,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134967%_ - (let ((__tmp138130 - (lambda (_%g135127135165%_ + (cons (cons _%L135952%_ + (let ((__tmp139115 + (lambda (_%g136112136150%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g135128135168%_) - (cons _%g135127135165%_ _%g135128135168%_)))) + _%g136113136153%_) + (cons _%g136112136150%_ _%g136113136153%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp138130 + __tmp139115 '() - _%L134968%_))) + _%L135953%_))) '())) (cons (cons (let () (declare (not safe)) @@ -867,187 +867,187 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135028135096%_ - _%super-bind-methods!135026135088%_ - _%hd135013135046%_) - (_%g135007135035%_ - _%g135008135039%_)))) - (_%g135007135035%_ - _%g135008135039%_))))))) - (_%loop135021135068%_ _%target135018135062%_ '())) - (_%g135007135035%_ _%g135008135039%_))))) + _%hd136013136081%_ + _%super-bind-methods!136011136073%_ + _%hd135998136031%_) + (_%g135992136020%_ + _%g135993136024%_)))) + (_%g135992136020%_ + _%g135993136024%_))))))) + (_%loop136006136053%_ _%target136003136047%_ '())) + (_%g135992136020%_ _%g135993136024%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135007135035%_ - _%g135008135039%_)))) - (_%g135007135035%_ - _%g135008135039%_)))) - (_%g135007135035%_ _%g135008135039%_))))) - (_%g135006135171%_ + (_%g135992136020%_ + _%g135993136024%_)))) + (_%g135992136020%_ + _%g135993136024%_)))) + (_%g135992136020%_ _%g135993136024%_))))) + (_%g135991136156%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134967%_ - _%L134967%_ + _%L135952%_ + _%L135952%_ '"-bind-methods!")) - (map (lambda (_%super135175%_) + (map (lambda (_%super136160%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135175%_ - _%super135175%_ + _%super136160%_ + _%super136160%_ '"-bind-methods!"))) - (let ((__tmp138131 - (lambda (_%g135177135180%_ - _%g135178135183%_) - (cons _%g135177135180%_ - _%g135178135183%_)))) + (let ((__tmp139116 + (lambda (_%g136162136165%_ + _%g136163136168%_) + (cons _%g136162136165%_ + _%g136163136168%_)))) (declare (not safe)) - (__foldr1 __tmp138131 '() _%L134966%_))) + (__foldr1 __tmp139116 '() _%L135951%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134967%_ - _%L134967%_ + _%L135952%_ + _%L135952%_ '"::t"))))))) - (_%__kont137877137878%_ - (lambda (_%L134552%_ - _%L134554%_ - _%L134555%_ - _%L134556%_ - _%L134557%_ - _%L134558%_ - _%L134559%_) - (let* ((_%g134602134630%_ - (lambda (_%g134603134626%_) + (_%__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" - _%g134603134626%_)))) - (_%g134601134766%_ - (lambda (_%g134603134634%_) + _%g135588135611%_)))) + (_%g135586135751%_ + (lambda (_%g135588135619%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134603134634%_)) - (let ((_%e134607134637%_ + (gx#stx-pair? _%g135588135619%_)) + (let ((_%e135592135622%_ (let () (declare (not safe)) - (gx#syntax-e _%g134603134634%_)))) - (let ((_%hd134608134641%_ + (gx#syntax-e _%g135588135619%_)))) + (let ((_%hd135593135626%_ (let () (declare (not safe)) - (##car _%e134607134637%_))) - (_%tl134609134644%_ + (##car _%e135592135622%_))) + (_%tl135594135629%_ (let () (declare (not safe)) - (##cdr _%e134607134637%_)))) + (##cdr _%e135592135622%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134609134644%_)) - (let ((_%e134610134647%_ + (gx#stx-pair? _%tl135594135629%_)) + (let ((_%e135595135632%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134609134644%_)))) - (let ((_%hd134611134651%_ + _%tl135594135629%_)))) + (let ((_%hd135596135636%_ (let () (declare (not safe)) - (##car _%e134610134647%_))) - (_%tl134612134654%_ + (##car _%e135595135632%_))) + (_%tl135597135639%_ (let () (declare (not safe)) - (##cdr _%e134610134647%_)))) + (##cdr _%e135595135632%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134611134651%_)) - (let ((_g138132_ + _%hd135596135636%_)) + (let ((_g139117_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134611134651%_ + _%hd135596135636%_ '0)))) (begin - (let ((_g138133_ + (let ((_g139118_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g138132_) - (##values-length _g138132_) + _g139117_) + (##values-length _g139117_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138133_ 2))) - (error "Context expects 2 values" _g138133_))) + (if (not (let () (declare (not safe)) (##fx= _g139118_ 2))) + (error "Context expects 2 values" _g139118_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134613134657%_ + (let ((_%target135598135642%_ (let () (declare (not safe)) (##values-ref - _g138132_ + _g139117_ 0))) - (_%tl134615134660%_ + (_%tl135600135645%_ (let () (declare (not safe)) (##values-ref - _g138132_ + _g139117_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134615134660%_)) - (letrec ((_%loop134616134663%_ + _%tl135600135645%_)) + (letrec ((_%loop135601135648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134614134667%_ - _%super-bind-methods!134620134670%_) + (lambda (_%hd135599135652%_ + _%super-bind-methods!135605135655%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134614134667%_)) - (let ((_%e134617134673%_ + (gx#stx-pair? _%hd135599135652%_)) + (let ((_%e135602135658%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134614134667%_)))) - (let ((_%lp-hd134618134677%_ + (gx#syntax-e _%hd135599135652%_)))) + (let ((_%lp-hd135603135662%_ (let () (declare (not safe)) - (##car _%e134617134673%_))) - (_%lp-tl134619134680%_ + (##car _%e135602135658%_))) + (_%lp-tl135604135665%_ (let () (declare (not safe)) - (##cdr _%e134617134673%_)))) - (_%loop134616134663%_ - _%lp-tl134619134680%_ - (cons _%lp-hd134618134677%_ - _%super-bind-methods!134620134670%_)))) - (let ((_%super-bind-methods!134621134683%_ - (reverse _%super-bind-methods!134620134670%_))) + (##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? _%tl134612134654%_)) - (let ((_%e134622134687%_ + (gx#stx-pair? _%tl135597135639%_)) + (let ((_%e135607135672%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134612134654%_)))) - (let ((_%hd134623134691%_ + _%tl135597135639%_)))) + (let ((_%hd135608135676%_ (let () (declare (not safe)) - (##car _%e134622134687%_))) - (_%tl134624134694%_ + (##car _%e135607135672%_))) + (_%tl135609135679%_ (let () (declare (not safe)) - (##cdr _%e134622134687%_)))) + (##cdr _%e135607135672%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134624134694%_)) - ((lambda (_%L134697%_ - _%L134699%_ - _%L134700%_) + _%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 _%L134557%_ - (let ((__tmp138134 - (lambda (_%g134731134734%_ - _%g134732134737%_) - (cons _%g134731134734%_ - _%g134732134737%_)))) + (cons (cons _%L135542%_ + (let ((__tmp139119 + (lambda (_%g135716135719%_ + _%g135717135722%_) + (cons _%g135716135719%_ + _%g135717135722%_)))) (declare (not safe)) (__foldr1 - __tmp138134 + __tmp139119 '() - _%L134556%_))) - (cons _%L134555%_ + _%L135541%_))) + (cons _%L135540%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134700%_ + (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 ((__tmp138138 - (lambda (_%g134726134740%_ _%g134727134743%_) + (let ((__tmp139123 + (lambda (_%g135711135725%_ _%g135712135728%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134726134740%_ '())) - _%g134727134743%_))) - (__tmp138135 + (cons _%g135711135725%_ '())) + _%g135712135728%_))) + (__tmp139120 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134552%_ - _%L134554%_)) - (let ((__tmp138137 - (lambda (_%g134728134746%_ - _%g134729134749%_ - _%g134730134751%_) + _%L135537%_ + _%L135539%_)) + (let ((__tmp139122 + (lambda (_%g135713135731%_ + _%g135714135734%_ + _%g135715135736%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134697%_ + (cons _%L135682%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134729134749%_ '())) - (cons _%g134728134746%_ '())))) + (cons _%g135714135734%_ '())) + (cons _%g135713135731%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134730134751%_))) - (__tmp138136 + _%g135715135736%_))) + (__tmp139121 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L134697%_ '())) + (cons _%L135682%_ '())) '()))) (declare (not safe)) (__foldr2 - __tmp138137 - __tmp138136 - _%L134552%_ - _%L134554%_))))) + __tmp139122 + __tmp139121 + _%L135537%_ + _%L135539%_))))) (declare (not safe)) - (__foldr1 __tmp138138 __tmp138135 _%L134699%_))) + (__foldr1 __tmp139123 __tmp139120 _%L135684%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134559%_ + (cons (cons _%L135544%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp138139 + (let ((__tmp139124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134724134754%_ _%g134725134757%_) - (cons _%g134724134754%_ _%g134725134757%_)))) + (lambda (_%g135709135739%_ _%g135710135742%_) + (cons _%g135709135739%_ _%g135710135742%_)))) (declare (not safe)) - (__foldr1 __tmp138139 '() _%L134558%_)))) + (__foldr1 __tmp139124 '() _%L135543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1160,7 +1160,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134700%_ + (cons _%L135685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1169,18 +1169,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134557%_ - (let ((__tmp138140 - (lambda (_%g134722134760%_ + (cons (cons _%L135542%_ + (let ((__tmp139125 + (lambda (_%g135707135745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134723134763%_) - (cons _%g134722134760%_ _%g134723134763%_)))) + _%g135708135748%_) + (cons _%g135707135745%_ _%g135708135748%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp138140 + __tmp139125 '() - _%L134558%_))) + _%L135543%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1217,1364 +1217,1364 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134623134691%_ - _%super-bind-methods!134621134683%_ - _%hd134608134641%_) - (_%g134602134630%_ - _%g134603134634%_)))) - (_%g134602134630%_ - _%g134603134634%_))))))) - (_%loop134616134663%_ _%target134613134657%_ '())) - (_%g134602134630%_ _%g134603134634%_))))) + _%hd135608135676%_ + _%super-bind-methods!135606135668%_ + _%hd135593135626%_) + (_%g135587135615%_ + _%g135588135619%_)))) + (_%g135587135615%_ + _%g135588135619%_))))))) + (_%loop135601135648%_ _%target135598135642%_ '())) + (_%g135587135615%_ _%g135588135619%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134602134630%_ - _%g134603134634%_)))) - (_%g134602134630%_ - _%g134603134634%_)))) - (_%g134602134630%_ _%g134603134634%_))))) - (_%g134601134766%_ + (_%g135587135615%_ + _%g135588135619%_)))) + (_%g135587135615%_ + _%g135588135619%_)))) + (_%g135587135615%_ _%g135588135619%_))))) + (_%g135586135751%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134557%_ - _%L134557%_ + _%L135542%_ + _%L135542%_ '"-bind-methods!")) - (map (lambda (_%super134770%_) + (map (lambda (_%super135755%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134770%_ - _%super134770%_ + _%super135755%_ + _%super135755%_ '"-bind-methods!"))) - (let ((__tmp138141 - (lambda (_%g134772134775%_ - _%g134773134778%_) - (cons _%g134772134775%_ - _%g134773134778%_)))) + (let ((__tmp139126 + (lambda (_%g135757135760%_ + _%g135758135763%_) + (cons _%g135757135760%_ + _%g135758135763%_)))) (declare (not safe)) - (__foldr1 __tmp138141 '() _%L134556%_))) + (__foldr1 __tmp139126 '() _%L135541%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134557%_ - _%L134557%_ + _%L135542%_ + _%L135542%_ '"::t")))))))) - (let* ((_%__match137999138000%_ - (lambda (_%e134295134364%_ - _%hd134296134368%_ - _%tl134297134371%_ - _%e134298134374%_ - _%hd134299134378%_ - _%tl134300134381%_ - _%e134301134384%_ - _%hd134302134388%_ - _%tl134303134391%_ - _%__splice137879137880%_ - _%target134304134394%_ - _%tl134306134397%_) - (letrec ((_%loop134307134400%_ - (lambda (_%hd134305134404%_ - _%arg134311134407%_) + (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? _%hd134305134404%_)) - (let ((_%e134308134410%_ + (gx#stx-pair? _%hd135290135389%_)) + (let ((_%e135293135395%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134305134404%_)))) - (let ((_%lp-tl134310134417%_ + _%hd135290135389%_)))) + (let ((_%lp-tl135295135402%_ (let () (declare (not safe)) - (##cdr _%e134308134410%_))) - (_%lp-hd134309134414%_ + (##cdr _%e135293135395%_))) + (_%lp-hd135294135399%_ (let () (declare (not safe)) - (##car _%e134308134410%_)))) - (_%loop134307134400%_ - _%lp-tl134310134417%_ - (cons _%lp-hd134309134414%_ - _%arg134311134407%_)))) - (let ((_%arg134312134420%_ - (reverse _%arg134311134407%_))) + (##car _%e135293135395%_)))) + (_%loop135292135385%_ + _%lp-tl135295135402%_ + (cons _%lp-hd135294135399%_ + _%arg135296135392%_)))) + (let ((_%arg135297135405%_ + (reverse _%arg135296135392%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134300134381%_)) - (let ((_%e134313134424%_ + _%tl135285135366%_)) + (let ((_%e135298135409%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134300134381%_)))) - (let ((_%tl134315134431%_ + _%tl135285135366%_)))) + (let ((_%tl135300135416%_ (let () (declare (not safe)) - (##cdr _%e134313134424%_))) - (_%hd134314134428%_ + (##cdr _%e135298135409%_))) + (_%hd135299135413%_ (let () (declare (not safe)) - (##car _%e134313134424%_)))) + (##car _%e135298135409%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134314134428%_)) - (let ((_%e134316134434%_ + _%hd135299135413%_)) + (let ((_%e135301135419%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134314134428%_)))) - (let ((_%tl134318134441%_ + _%hd135299135413%_)))) + (let ((_%tl135303135426%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134316134434%_))) - (_%hd134317134438%_ - (let () (declare (not safe)) (##car _%e134316134434%_)))) + (##cdr _%e135301135419%_))) + (_%hd135302135423%_ + (let () (declare (not safe)) (##car _%e135301135419%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134318134441%_)) - (let ((_%__splice137881137882%_ + (gx#stx-pair/null? _%tl135303135426%_)) + (let ((_%__splice138866138867%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134318134441%_ '0)))) - (let ((_%tl134321134447%_ + (gx#syntax-split-splice _%tl135303135426%_ '0)))) + (let ((_%tl135306135432%_ (let () (declare (not safe)) - (##vector-ref _%__splice137881137882%_ '1))) - (_%target134319134444%_ + (##vector-ref _%__splice138866138867%_ '1))) + (_%target135304135429%_ (let () (declare (not safe)) - (##vector-ref _%__splice137881137882%_ '0)))) + (##vector-ref _%__splice138866138867%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134321134447%_)) - (letrec ((_%loop134322134450%_ - (lambda (_%hd134320134454%_ - _%super134326134457%_) + (gx#stx-null? _%tl135306135432%_)) + (letrec ((_%loop135307135435%_ + (lambda (_%hd135305135439%_ + _%super135311135442%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134320134454%_)) - (let ((_%e134323134460%_ + _%hd135305135439%_)) + (let ((_%e135308135445%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134320134454%_)))) - (let ((_%lp-tl134325134467%_ + _%hd135305135439%_)))) + (let ((_%lp-tl135310135452%_ (let () (declare (not safe)) - (##cdr _%e134323134460%_))) - (_%lp-hd134324134464%_ + (##cdr _%e135308135445%_))) + (_%lp-hd135309135449%_ (let () (declare (not safe)) - (##car _%e134323134460%_)))) - (_%loop134322134450%_ - _%lp-tl134325134467%_ - (cons _%lp-hd134324134464%_ - _%super134326134457%_)))) - (let ((_%super134327134470%_ - (reverse _%super134326134457%_))) + (##car _%e135308135445%_)))) + (_%loop135307135435%_ + _%lp-tl135310135452%_ + (cons _%lp-hd135309135449%_ + _%super135311135442%_)))) + (let ((_%super135312135455%_ + (reverse _%super135311135442%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134315134431%_)) - (let ((_%e134328134474%_ + _%tl135300135416%_)) + (let ((_%e135313135459%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134315134431%_)))) - (let ((_%tl134330134481%_ + _%tl135300135416%_)))) + (let ((_%tl135315135466%_ (let () (declare (not safe)) - (##cdr _%e134328134474%_))) - (_%hd134329134478%_ + (##cdr _%e135313135459%_))) + (_%hd135314135463%_ (let () (declare (not safe)) - (##car _%e134328134474%_)))) + (##car _%e135313135459%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134330134481%_)) - (let ((_%e134331134484%_ + _%tl135315135466%_)) + (let ((_%e135316135469%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134330134481%_)))) - (let ((_%tl134333134491%_ + (gx#syntax-e _%tl135315135466%_)))) + (let ((_%tl135318135476%_ (let () (declare (not safe)) - (##cdr _%e134331134484%_))) - (_%hd134332134488%_ + (##cdr _%e135316135469%_))) + (_%hd135317135473%_ (let () (declare (not safe)) - (##car _%e134331134484%_)))) + (##car _%e135316135469%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134332134488%_)) - (let ((_%e134334134494%_ + (gx#stx-datum? _%hd135317135473%_)) + (let ((_%e135319135479%_ (let () (declare (not safe)) - (gx#stx-e _%hd134332134488%_)))) - (if (equal? _%e134334134494%_ 'final:) + (gx#stx-e _%hd135317135473%_)))) + (if (equal? _%e135319135479%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134333134491%_)) - (let ((_%__splice137883137884%_ + (gx#stx-pair/null? _%tl135318135476%_)) + (let ((_%__splice138868138869%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134333134491%_ + _%tl135318135476%_ '0)))) - (let ((_%tl134337134501%_ + (let ((_%tl135322135486%_ (let () (declare (not safe)) (##vector-ref - _%__splice137883137884%_ + _%__splice138868138869%_ '1))) - (_%target134335134498%_ + (_%target135320135483%_ (let () (declare (not safe)) (##vector-ref - _%__splice137883137884%_ + _%__splice138868138869%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134337134501%_)) - (letrec ((_%loop134338134504%_ - (lambda (_%hd134336134508%_ - _%implementation134342134511%_ - _%method134343134513%_) + _%tl135322135486%_)) + (letrec ((_%loop135323135489%_ + (lambda (_%hd135321135493%_ + _%implementation135327135496%_ + _%method135328135498%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134336134508%_)) - (let ((_%e134339134516%_ + _%hd135321135493%_)) + (let ((_%e135324135501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd134336134508%_)))) - (let ((_%lp-tl134341134523%_ + (gx#syntax-e _%hd135321135493%_)))) + (let ((_%lp-tl135326135508%_ (let () (declare (not safe)) - (##cdr _%e134339134516%_))) - (_%lp-hd134340134520%_ + (##cdr _%e135324135501%_))) + (_%lp-hd135325135505%_ (let () (declare (not safe)) - (##car _%e134339134516%_)))) + (##car _%e135324135501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134340134520%_)) - (let ((_%e134346134526%_ + (gx#stx-pair? _%lp-hd135325135505%_)) + (let ((_%e135331135511%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd134340134520%_)))) - (let ((_%tl134348134533%_ + (gx#syntax-e _%lp-hd135325135505%_)))) + (let ((_%tl135333135518%_ (let () (declare (not safe)) - (##cdr _%e134346134526%_))) - (_%hd134347134530%_ + (##cdr _%e135331135511%_))) + (_%hd135332135515%_ (let () (declare (not safe)) - (##car _%e134346134526%_)))) + (##car _%e135331135511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134348134533%_)) - (let ((_%e134349134536%_ + (gx#stx-pair? _%tl135333135518%_)) + (let ((_%e135334135521%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134348134533%_)))) - (let ((_%tl134351134543%_ + _%tl135333135518%_)))) + (let ((_%tl135336135528%_ (let () (declare (not safe)) - (##cdr _%e134349134536%_))) - (_%hd134350134540%_ + (##cdr _%e135334135521%_))) + (_%hd135335135525%_ (let () (declare (not safe)) - (##car _%e134349134536%_)))) + (##car _%e135334135521%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134351134543%_)) - (_%loop134338134504%_ - _%lp-tl134341134523%_ - (cons _%hd134350134540%_ - _%implementation134342134511%_) - (cons _%hd134347134530%_ - _%method134343134513%_)) + _%tl135336135528%_)) + (_%loop135323135489%_ + _%lp-tl135326135508%_ + (cons _%hd135335135525%_ + _%implementation135327135496%_) + (cons _%hd135332135515%_ + _%method135328135498%_)) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))) - (let ((_%method134345134549%_ - (reverse _%method134343134513%_)) - (_%implementation134344134546%_ - (reverse _%implementation134342134511%_))) - (_%__kont137877137878%_ - _%implementation134344134546%_ - _%method134345134549%_ - _%hd134329134478%_ - _%super134327134470%_ - _%hd134317134438%_ - _%arg134312134420%_ - _%hd134302134388%_)))))) + (_%g135148135342%_))))) + (let ((_%method135330135534%_ + (reverse _%method135328135498%_)) + (_%implementation135329135531%_ + (reverse _%implementation135327135496%_))) + (_%__kont138862138863%_ + _%implementation135329135531%_ + _%method135330135534%_ + _%hd135314135463%_ + _%super135312135455%_ + _%hd135302135423%_ + _%arg135297135405%_ + _%hd135287135373%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134338134504%_ - _%target134335134498%_ + (_%loop135323135489%_ + _%target135320135483%_ '() '())) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))) + (_%g135148135342%_))) (let () (declare (not safe)) - (_%g134163134357%_)))) - (let () (declare (not safe)) (_%g134163134357%_))))) - (let () (declare (not safe)) (_%g134163134357%_))))) + (_%g135148135342%_)))) + (let () (declare (not safe)) (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134163134357%_)))))))) - (_%loop134322134450%_ - _%target134319134444%_ + (_%g135148135342%_)))))))) + (_%loop135307135435%_ + _%target135304135429%_ '())) (let () (declare (not safe)) - (_%g134163134357%_))))) - (let () (declare (not safe)) (_%g134163134357%_))))) + (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_)))))))) - (_%loop134307134400%_ _%target134304134394%_ '())))) - (_%__match137973137974%_ - (lambda (_%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_) - (letrec ((_%loop134247134824%_ - (lambda (_%hd134245134828%_ - _%arg134251134831%_) + (_%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? _%hd134245134828%_)) - (let ((_%e134248134834%_ + (gx#stx-pair? _%hd135230135813%_)) + (let ((_%e135233135819%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134245134828%_)))) - (let ((_%lp-tl134250134841%_ + _%hd135230135813%_)))) + (let ((_%lp-tl135235135826%_ (let () (declare (not safe)) - (##cdr _%e134248134834%_))) - (_%lp-hd134249134838%_ + (##cdr _%e135233135819%_))) + (_%lp-hd135234135823%_ (let () (declare (not safe)) - (##car _%e134248134834%_)))) - (_%loop134247134824%_ - _%lp-tl134250134841%_ - (cons _%lp-hd134249134838%_ - _%arg134251134831%_)))) - (let ((_%arg134252134844%_ - (reverse _%arg134251134831%_))) + (##car _%e135233135819%_)))) + (_%loop135232135809%_ + _%lp-tl135235135826%_ + (cons _%lp-hd135234135823%_ + _%arg135236135816%_)))) + (let ((_%arg135237135829%_ + (reverse _%arg135236135816%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134240134805%_)) - (let ((_%e134253134848%_ + _%tl135225135790%_)) + (let ((_%e135238135833%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134240134805%_)))) - (let ((_%tl134255134855%_ + _%tl135225135790%_)))) + (let ((_%tl135240135840%_ (let () (declare (not safe)) - (##cdr _%e134253134848%_))) - (_%hd134254134852%_ + (##cdr _%e135238135833%_))) + (_%hd135239135837%_ (let () (declare (not safe)) - (##car _%e134253134848%_)))) + (##car _%e135238135833%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134254134852%_)) - (let ((_%e134256134858%_ + _%hd135239135837%_)) + (let ((_%e135241135843%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134254134852%_)))) - (let ((_%tl134258134865%_ + _%hd135239135837%_)))) + (let ((_%tl135243135850%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134256134858%_))) - (_%hd134257134862%_ - (let () (declare (not safe)) (##car _%e134256134858%_)))) + (##cdr _%e135241135843%_))) + (_%hd135242135847%_ + (let () (declare (not safe)) (##car _%e135241135843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134258134865%_)) - (let ((_%__splice137873137874%_ + (gx#stx-pair/null? _%tl135243135850%_)) + (let ((_%__splice138858138859%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134258134865%_ '0)))) - (let ((_%tl134261134871%_ + (gx#syntax-split-splice _%tl135243135850%_ '0)))) + (let ((_%tl135246135856%_ (let () (declare (not safe)) - (##vector-ref _%__splice137873137874%_ '1))) - (_%target134259134868%_ + (##vector-ref _%__splice138858138859%_ '1))) + (_%target135244135853%_ (let () (declare (not safe)) - (##vector-ref _%__splice137873137874%_ '0)))) + (##vector-ref _%__splice138858138859%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134261134871%_)) - (letrec ((_%loop134262134874%_ - (lambda (_%hd134260134878%_ - _%super134266134881%_) + (gx#stx-null? _%tl135246135856%_)) + (letrec ((_%loop135247135859%_ + (lambda (_%hd135245135863%_ + _%super135251135866%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134260134878%_)) - (let ((_%e134263134884%_ + _%hd135245135863%_)) + (let ((_%e135248135869%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134260134878%_)))) - (let ((_%lp-tl134265134891%_ + _%hd135245135863%_)))) + (let ((_%lp-tl135250135876%_ (let () (declare (not safe)) - (##cdr _%e134263134884%_))) - (_%lp-hd134264134888%_ + (##cdr _%e135248135869%_))) + (_%lp-hd135249135873%_ (let () (declare (not safe)) - (##car _%e134263134884%_)))) - (_%loop134262134874%_ - _%lp-tl134265134891%_ - (cons _%lp-hd134264134888%_ - _%super134266134881%_)))) - (let ((_%super134267134894%_ - (reverse _%super134266134881%_))) + (##car _%e135248135869%_)))) + (_%loop135247135859%_ + _%lp-tl135250135876%_ + (cons _%lp-hd135249135873%_ + _%super135251135866%_)))) + (let ((_%super135252135879%_ + (reverse _%super135251135866%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134255134855%_)) - (let ((_%e134268134898%_ + _%tl135240135840%_)) + (let ((_%e135253135883%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134255134855%_)))) - (let ((_%tl134270134905%_ + _%tl135240135840%_)))) + (let ((_%tl135255135890%_ (let () (declare (not safe)) - (##cdr _%e134268134898%_))) - (_%hd134269134902%_ + (##cdr _%e135253135883%_))) + (_%hd135254135887%_ (let () (declare (not safe)) - (##car _%e134268134898%_)))) + (##car _%e135253135883%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134270134905%_)) - (let ((_%__splice137875137876%_ + _%tl135255135890%_)) + (let ((_%__splice138860138861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134270134905%_ '0)))) - (let ((_%tl134273134911%_ + (gx#syntax-split-splice _%tl135255135890%_ '0)))) + (let ((_%tl135258135896%_ (let () (declare (not safe)) - (##vector-ref _%__splice137875137876%_ '1))) - (_%target134271134908%_ + (##vector-ref _%__splice138860138861%_ '1))) + (_%target135256135893%_ (let () (declare (not safe)) - (##vector-ref _%__splice137875137876%_ '0)))) + (##vector-ref _%__splice138860138861%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134273134911%_)) - (letrec ((_%loop134274134914%_ - (lambda (_%hd134272134918%_ - _%implementation134278134921%_ - _%method134279134923%_) + (gx#stx-null? _%tl135258135896%_)) + (letrec ((_%loop135259135899%_ + (lambda (_%hd135257135903%_ + _%implementation135263135906%_ + _%method135264135908%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134272134918%_)) - (let ((_%e134275134926%_ + (gx#stx-pair? _%hd135257135903%_)) + (let ((_%e135260135911%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134272134918%_)))) - (let ((_%lp-tl134277134933%_ + _%hd135257135903%_)))) + (let ((_%lp-tl135262135918%_ (let () (declare (not safe)) - (##cdr _%e134275134926%_))) - (_%lp-hd134276134930%_ + (##cdr _%e135260135911%_))) + (_%lp-hd135261135915%_ (let () (declare (not safe)) - (##car _%e134275134926%_)))) + (##car _%e135260135911%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd134276134930%_)) - (let ((_%e134282134936%_ + _%lp-hd135261135915%_)) + (let ((_%e135267135921%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd134276134930%_)))) - (let ((_%tl134284134943%_ + _%lp-hd135261135915%_)))) + (let ((_%tl135269135928%_ (let () (declare (not safe)) - (##cdr _%e134282134936%_))) - (_%hd134283134940%_ + (##cdr _%e135267135921%_))) + (_%hd135268135925%_ (let () (declare (not safe)) - (##car _%e134282134936%_)))) + (##car _%e135267135921%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134284134943%_)) - (let ((_%e134285134946%_ + _%tl135269135928%_)) + (let ((_%e135270135931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134284134943%_)))) - (let ((_%tl134287134953%_ + (gx#syntax-e _%tl135269135928%_)))) + (let ((_%tl135272135938%_ (let () (declare (not safe)) - (##cdr _%e134285134946%_))) - (_%hd134286134950%_ + (##cdr _%e135270135931%_))) + (_%hd135271135935%_ (let () (declare (not safe)) - (##car _%e134285134946%_)))) + (##car _%e135270135931%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134287134953%_)) - (_%loop134274134914%_ - _%lp-tl134277134933%_ - (cons _%hd134286134950%_ - _%implementation134278134921%_) - (cons _%hd134283134940%_ _%method134279134923%_)) - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) - (let ((_%method134281134959%_ - (reverse _%method134279134923%_)) - (_%implementation134280134956%_ - (reverse _%implementation134278134921%_))) - (_%__kont137869137870%_ - _%implementation134280134956%_ - _%method134281134959%_ - _%hd134269134902%_ - _%super134267134894%_ - _%hd134257134862%_ - _%arg134252134844%_ - _%hd134242134812%_)))))) - (_%loop134274134914%_ - _%target134271134908%_ + (_%__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%_ '() '())) - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_))))))) - (_%loop134262134874%_ - _%target134259134868%_ + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_))))))) + (_%loop135247135859%_ + _%target135244135853%_ '())) - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_)))) - (_%__match137999138000%_ - _%e134235134788%_ - _%hd134236134792%_ - _%tl134237134795%_ - _%e134238134798%_ - _%hd134239134802%_ - _%tl134240134805%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_))))))) - (_%loop134247134824%_ _%target134244134818%_ '())))) - (_%__match137947137948%_ - (lambda (_%e134186135193%_ - _%hd134187135197%_ - _%tl134188135200%_ - _%e134189135203%_ - _%hd134190135207%_ - _%tl134191135210%_ - _%e134192135213%_ - _%e134193135217%_ - _%hd134194135221%_ - _%tl134195135224%_ - _%e134196135227%_ - _%hd134197135231%_ - _%tl134198135234%_ - _%__splice137865137866%_ - _%target134199135237%_ - _%tl134201135240%_) - (letrec ((_%loop134202135243%_ - (lambda (_%hd134200135247%_ - _%super134206135250%_) + (_%__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? _%hd134200135247%_)) - (let ((_%e134203135253%_ + (gx#stx-pair? _%hd135185136232%_)) + (let ((_%e135188136238%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134200135247%_)))) - (let ((_%lp-tl134205135260%_ + _%hd135185136232%_)))) + (let ((_%lp-tl135190136245%_ (let () (declare (not safe)) - (##cdr _%e134203135253%_))) - (_%lp-hd134204135257%_ + (##cdr _%e135188136238%_))) + (_%lp-hd135189136242%_ (let () (declare (not safe)) - (##car _%e134203135253%_)))) - (_%loop134202135243%_ - _%lp-tl134205135260%_ - (cons _%lp-hd134204135257%_ - _%super134206135250%_)))) - (let ((_%super134207135263%_ - (reverse _%super134206135250%_))) + (##car _%e135188136238%_)))) + (_%loop135187136228%_ + _%lp-tl135190136245%_ + (cons _%lp-hd135189136242%_ + _%super135191136235%_)))) + (let ((_%super135192136248%_ + (reverse _%super135191136235%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134195135224%_)) - (let ((_%e134208135267%_ + _%tl135180136209%_)) + (let ((_%e135193136252%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134195135224%_)))) - (let ((_%tl134210135274%_ + _%tl135180136209%_)))) + (let ((_%tl135195136259%_ (let () (declare (not safe)) - (##cdr _%e134208135267%_))) - (_%hd134209135271%_ + (##cdr _%e135193136252%_))) + (_%hd135194136256%_ (let () (declare (not safe)) - (##car _%e134208135267%_)))) + (##car _%e135193136252%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134210135274%_)) - (let ((_%__splice137867137868%_ + _%tl135195136259%_)) + (let ((_%__splice138852138853%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134210135274%_ + _%tl135195136259%_ '0)))) - (let ((_%tl134213135280%_ + (let ((_%tl135198136265%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice137867137868%_ '1))) - (_%target134211135277%_ + (##vector-ref _%__splice138852138853%_ '1))) + (_%target135196136262%_ (let () (declare (not safe)) - (##vector-ref _%__splice137867137868%_ '0)))) + (##vector-ref _%__splice138852138853%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134213135280%_)) - (letrec ((_%loop134214135283%_ - (lambda (_%hd134212135287%_ - _%implementation134218135290%_ - _%method134219135292%_) + (gx#stx-null? _%tl135198136265%_)) + (letrec ((_%loop135199136268%_ + (lambda (_%hd135197136272%_ + _%implementation135203136275%_ + _%method135204136277%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134212135287%_)) - (let ((_%e134215135295%_ + (gx#stx-pair? _%hd135197136272%_)) + (let ((_%e135200136280%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134212135287%_)))) - (let ((_%lp-tl134217135302%_ + _%hd135197136272%_)))) + (let ((_%lp-tl135202136287%_ (let () (declare (not safe)) - (##cdr _%e134215135295%_))) - (_%lp-hd134216135299%_ + (##cdr _%e135200136280%_))) + (_%lp-hd135201136284%_ (let () (declare (not safe)) - (##car _%e134215135295%_)))) + (##car _%e135200136280%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd134216135299%_)) - (let ((_%e134222135305%_ + _%lp-hd135201136284%_)) + (let ((_%e135207136290%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd134216135299%_)))) - (let ((_%tl134224135312%_ + _%lp-hd135201136284%_)))) + (let ((_%tl135209136297%_ (let () (declare (not safe)) - (##cdr _%e134222135305%_))) - (_%hd134223135309%_ + (##cdr _%e135207136290%_))) + (_%hd135208136294%_ (let () (declare (not safe)) - (##car _%e134222135305%_)))) + (##car _%e135207136290%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134224135312%_)) - (let ((_%e134225135315%_ + _%tl135209136297%_)) + (let ((_%e135210136300%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134224135312%_)))) - (let ((_%tl134227135322%_ + _%tl135209136297%_)))) + (let ((_%tl135212136307%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134225135315%_))) - (_%hd134226135319%_ - (let () (declare (not safe)) (##car _%e134225135315%_)))) + (##cdr _%e135210136300%_))) + (_%hd135211136304%_ + (let () (declare (not safe)) (##car _%e135210136300%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134227135322%_)) - (_%loop134214135283%_ - _%lp-tl134217135302%_ - (cons _%hd134226135319%_ _%implementation134218135290%_) - (cons _%hd134223135309%_ _%method134219135292%_)) - (let () (declare (not safe)) (_%g134163134357%_))))) + (gx#stx-null? _%tl135212136307%_)) + (_%loop135199136268%_ + _%lp-tl135202136287%_ + (cons _%hd135211136304%_ _%implementation135203136275%_) + (cons _%hd135208136294%_ _%method135204136277%_)) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))) - (let ((_%method134221135328%_ - (reverse _%method134219135292%_)) - (_%implementation134220135325%_ - (reverse _%implementation134218135290%_))) - (_%__kont137863137864%_ - _%implementation134220135325%_ - _%method134221135328%_ - _%hd134209135271%_ - _%super134207135263%_ - _%hd134197135231%_)))))) - (_%loop134214135283%_ _%target134211135277%_ '() '())) - (let () (declare (not safe)) (_%g134163134357%_))))) + (_%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)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_)))))))) - (_%loop134202135243%_ _%target134199135237%_ '())))) - (_%__match137909137910%_ - (lambda (_%e134169135537%_ - _%hd134170135541%_ - _%tl134171135544%_ - _%e134172135547%_ - _%hd134173135551%_ - _%tl134174135554%_ - _%e134175135557%_ - _%hd134176135561%_ - _%tl134177135564%_ - _%e134178135567%_ - _%hd134179135571%_ - _%tl134180135574%_) - (let ((_%L135577%_ _%tl134180135574%_) - (_%L135579%_ _%hd134179135571%_) - (_%L135580%_ _%hd134176135561%_) - (_%L135581%_ _%hd134173135551%_)) + (_%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? _%L135580%_)) - (_%__kont137861137862%_ - _%L135577%_ - _%L135579%_ - _%L135580%_ - _%L135581%_) + (gx#identifier? _%L136565%_)) + (_%__kont138846138847%_ + _%L136562%_ + _%L136564%_ + _%L136565%_ + _%L136566%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134173135551%_)) - (let ((_%e134192135213%_ + (gx#stx-datum? _%hd135158136536%_)) + (let ((_%e135177136198%_ (let () (declare (not safe)) - (gx#stx-e _%hd134173135551%_)))) - (if (equal? _%e134192135213%_ '#f) + (gx#stx-e _%hd135158136536%_)))) + (if (equal? _%e135177136198%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134176135561%_)) - (let ((_%e134196135227%_ + (gx#stx-pair? _%hd135161136546%_)) + (let ((_%e135181136212%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134176135561%_)))) - (let ((_%tl134198135234%_ + _%hd135161136546%_)))) + (let ((_%tl135183136219%_ (let () (declare (not safe)) - (##cdr _%e134196135227%_))) - (_%hd134197135231%_ + (##cdr _%e135181136212%_))) + (_%hd135182136216%_ (let () (declare (not safe)) - (##car _%e134196135227%_)))) + (##car _%e135181136212%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134198135234%_)) - (let ((_%__splice137865137866%_ + _%tl135183136219%_)) + (let ((_%__splice138850138851%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134198135234%_ + _%tl135183136219%_ '0)))) - (let ((_%tl134201135240%_ + (let ((_%tl135186136225%_ (let () (declare (not safe)) (##vector-ref - _%__splice137865137866%_ + _%__splice138850138851%_ '1))) - (_%target134199135237%_ + (_%target135184136222%_ (let () (declare (not safe)) (##vector-ref - _%__splice137865137866%_ + _%__splice138850138851%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134201135240%_)) - (_%__match137947137948%_ - _%e134169135537%_ - _%hd134170135541%_ - _%tl134171135544%_ - _%e134172135547%_ - _%hd134173135551%_ - _%tl134174135554%_ - _%e134192135213%_ - _%e134175135557%_ - _%hd134176135561%_ - _%tl134177135564%_ - _%e134196135227%_ - _%hd134197135231%_ - _%tl134198135234%_ - _%__splice137865137866%_ - _%target134199135237%_ - _%tl134201135240%_) + _%tl135186136225%_)) + (_%__match138932138933%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135177136198%_ + _%e135160136542%_ + _%hd135161136546%_ + _%tl135162136549%_ + _%e135181136212%_ + _%hd135182136216%_ + _%tl135183136219%_ + _%__splice138850138851%_ + _%target135184136222%_ + _%tl135186136225%_) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))) + (_%g135148135342%_))) (let () (declare (not safe)) - (_%g134163134357%_)))) + (_%g135148135342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134173135551%_)) - (let ((_%e134241134808%_ + (gx#stx-pair? _%hd135158136536%_)) + (let ((_%e135226135793%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134173135551%_)))) - (let ((_%tl134243134815%_ + _%hd135158136536%_)))) + (let ((_%tl135228135800%_ (let () (declare (not safe)) - (##cdr _%e134241134808%_))) - (_%hd134242134812%_ + (##cdr _%e135226135793%_))) + (_%hd135227135797%_ (let () (declare (not safe)) - (##car _%e134241134808%_)))) + (##car _%e135226135793%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134243134815%_)) - (let ((_%__splice137871137872%_ + _%tl135228135800%_)) + (let ((_%__splice138856138857%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134243134815%_ + _%tl135228135800%_ '0)))) - (let ((_%tl134246134821%_ + (let ((_%tl135231135806%_ (let () (declare (not safe)) (##vector-ref - _%__splice137871137872%_ + _%__splice138856138857%_ '1))) - (_%target134244134818%_ + (_%target135229135803%_ (let () (declare (not safe)) (##vector-ref - _%__splice137871137872%_ + _%__splice138856138857%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134246134821%_)) - (_%__match137973137974%_ - _%e134169135537%_ - _%hd134170135541%_ - _%tl134171135544%_ - _%e134172135547%_ - _%hd134173135551%_ - _%tl134174135554%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_) + _%tl135231135806%_)) + (_%__match138958138959%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))))))) + (_%g135148135342%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137858137859%_)) - (let ((_%e134169135537%_ + (gx#stx-pair? _%__stx138843138844%_)) + (let ((_%e135154136522%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx137858137859%_)))) - (let ((_%tl134171135544%_ + (gx#syntax-e _%__stx138843138844%_)))) + (let ((_%tl135156136529%_ (let () (declare (not safe)) - (##cdr _%e134169135537%_))) - (_%hd134170135541%_ + (##cdr _%e135154136522%_))) + (_%hd135155136526%_ (let () (declare (not safe)) - (##car _%e134169135537%_)))) + (##car _%e135154136522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134171135544%_)) - (let ((_%e134172135547%_ + (gx#stx-pair? _%tl135156136529%_)) + (let ((_%e135157136532%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134171135544%_)))) - (let ((_%tl134174135554%_ + (gx#syntax-e _%tl135156136529%_)))) + (let ((_%tl135159136539%_ (let () (declare (not safe)) - (##cdr _%e134172135547%_))) - (_%hd134173135551%_ + (##cdr _%e135157136532%_))) + (_%hd135158136536%_ (let () (declare (not safe)) - (##car _%e134172135547%_)))) + (##car _%e135157136532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134174135554%_)) - (let ((_%e134175135557%_ + (gx#stx-pair? _%tl135159136539%_)) + (let ((_%e135160136542%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134174135554%_)))) - (let ((_%tl134177135564%_ + (gx#syntax-e _%tl135159136539%_)))) + (let ((_%tl135162136549%_ (let () (declare (not safe)) - (##cdr _%e134175135557%_))) - (_%hd134176135561%_ + (##cdr _%e135160136542%_))) + (_%hd135161136546%_ (let () (declare (not safe)) - (##car _%e134175135557%_)))) + (##car _%e135160136542%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134177135564%_)) - (let ((_%e134178135567%_ + (gx#stx-pair? _%tl135162136549%_)) + (let ((_%e135163136552%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134177135564%_)))) - (let ((_%tl134180135574%_ + _%tl135162136549%_)))) + (let ((_%tl135165136559%_ (let () (declare (not safe)) - (##cdr _%e134178135567%_))) - (_%hd134179135571%_ + (##cdr _%e135163136552%_))) + (_%hd135164136556%_ (let () (declare (not safe)) - (##car _%e134178135567%_)))) - (_%__match137909137910%_ - _%e134169135537%_ - _%hd134170135541%_ - _%tl134171135544%_ - _%e134172135547%_ - _%hd134173135551%_ - _%tl134174135554%_ - _%e134175135557%_ - _%hd134176135561%_ - _%tl134177135564%_ - _%e134178135567%_ - _%hd134179135571%_ - _%tl134180135574%_))) + (##car _%e135163136552%_)))) + (_%__match138894138895%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135160136542%_ + _%hd135161136546%_ + _%tl135162136549%_ + _%e135163136552%_ + _%hd135164136556%_ + _%tl135165136559%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd134173135551%_)) - (let ((_%e134192135213%_ + _%hd135158136536%_)) + (let ((_%e135177136198%_ (let () (declare (not safe)) (gx#stx-e - _%hd134173135551%_)))) - (if (equal? _%e134192135213%_ + _%hd135158136536%_)))) + (if (equal? _%e135177136198%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134176135561%_)) - (let ((_%e134196135227%_ + _%hd135161136546%_)) + (let ((_%e135181136212%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd134176135561%_)))) - (let ((_%tl134198135234%_ + (gx#syntax-e _%hd135161136546%_)))) + (let ((_%tl135183136219%_ (let () (declare (not safe)) - (##cdr _%e134196135227%_))) - (_%hd134197135231%_ + (##cdr _%e135181136212%_))) + (_%hd135182136216%_ (let () (declare (not safe)) - (##car _%e134196135227%_)))) + (##car _%e135181136212%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134198135234%_)) - (let ((_%__splice137865137866%_ + (gx#stx-pair/null? _%tl135183136219%_)) + (let ((_%__splice138850138851%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134198135234%_ + _%tl135183136219%_ '0)))) - (let ((_%tl134201135240%_ + (let ((_%tl135186136225%_ (let () (declare (not safe)) - (##vector-ref _%__splice137865137866%_ '1))) - (_%target134199135237%_ + (##vector-ref _%__splice138850138851%_ '1))) + (_%target135184136222%_ (let () (declare (not safe)) (##vector-ref - _%__splice137865137866%_ + _%__splice138850138851%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134201135240%_)) - (_%__match137947137948%_ - _%e134169135537%_ - _%hd134170135541%_ - _%tl134171135544%_ - _%e134172135547%_ - _%hd134173135551%_ - _%tl134174135554%_ - _%e134192135213%_ - _%e134175135557%_ - _%hd134176135561%_ - _%tl134177135564%_ - _%e134196135227%_ - _%hd134197135231%_ - _%tl134198135234%_ - _%__splice137865137866%_ - _%target134199135237%_ - _%tl134201135240%_) + (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)) - (_%g134163134357%_))))) - (let () (declare (not safe)) (_%g134163134357%_))))) - (let () (declare (not safe)) (_%g134163134357%_))) + (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134163134357%_)))) + (_%g135148135342%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134173135551%_)) - (let ((_%e134241134808%_ + _%hd135158136536%_)) + (let ((_%e135226135793%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134173135551%_)))) - (let ((_%tl134243134815%_ + _%hd135158136536%_)))) + (let ((_%tl135228135800%_ (let () (declare (not safe)) - (##cdr _%e134241134808%_))) - (_%hd134242134812%_ + (##cdr _%e135226135793%_))) + (_%hd135227135797%_ (let () (declare (not safe)) - (##car _%e134241134808%_)))) + (##car _%e135226135793%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134243134815%_)) - (let ((_%__splice137871137872%_ + _%tl135228135800%_)) + (let ((_%__splice138856138857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134243134815%_ '0)))) - (let ((_%tl134246134821%_ + (gx#syntax-split-splice _%tl135228135800%_ '0)))) + (let ((_%tl135231135806%_ (let () (declare (not safe)) - (##vector-ref _%__splice137871137872%_ '1))) - (_%target134244134818%_ + (##vector-ref _%__splice138856138857%_ '1))) + (_%target135229135803%_ (let () (declare (not safe)) - (##vector-ref _%__splice137871137872%_ '0)))) + (##vector-ref _%__splice138856138857%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134246134821%_)) - (_%__match137973137974%_ - _%e134169135537%_ - _%hd134170135541%_ - _%tl134171135544%_ - _%e134172135547%_ - _%hd134173135551%_ - _%tl134174135554%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_) - (let () (declare (not safe)) (_%g134163134357%_))))) - (let () (declare (not safe)) (_%g134163134357%_))))) + (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)) - (_%g134163134357%_))))))) + (_%g135148135342%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134173135551%_)) - (let ((_%e134192135213%_ + (gx#stx-datum? _%hd135158136536%_)) + (let ((_%e135177136198%_ (let () (declare (not safe)) - (gx#stx-e _%hd134173135551%_)))) + (gx#stx-e _%hd135158136536%_)))) (declare (not safe)) - (_%g134163134357%_)) + (_%g135148135342%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134173135551%_)) - (let ((_%e134241134808%_ + (gx#stx-pair? _%hd135158136536%_)) + (let ((_%e135226135793%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134173135551%_)))) - (let ((_%tl134243134815%_ + _%hd135158136536%_)))) + (let ((_%tl135228135800%_ (let () (declare (not safe)) - (##cdr _%e134241134808%_))) - (_%hd134242134812%_ + (##cdr _%e135226135793%_))) + (_%hd135227135797%_ (let () (declare (not safe)) - (##car _%e134241134808%_)))) + (##car _%e135226135793%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134243134815%_)) - (let ((_%__splice137871137872%_ + _%tl135228135800%_)) + (let ((_%__splice138856138857%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134243134815%_ + _%tl135228135800%_ '0)))) - (let ((_%tl134246134821%_ + (let ((_%tl135231135806%_ (let () (declare (not safe)) (##vector-ref - _%__splice137871137872%_ + _%__splice138856138857%_ '1))) - (_%target134244134818%_ + (_%target135229135803%_ (let () (declare (not safe)) (##vector-ref - _%__splice137871137872%_ + _%__splice138856138857%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134246134821%_)) - (_%__match137973137974%_ - _%e134169135537%_ - _%hd134170135541%_ - _%tl134171135544%_ - _%e134172135547%_ - _%hd134173135551%_ - _%tl134174135554%_ - _%e134241134808%_ - _%hd134242134812%_ - _%tl134243134815%_ - _%__splice137871137872%_ - _%target134244134818%_ - _%tl134246134821%_) + _%tl135231135806%_)) + (_%__match138958138959%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g134163134357%_))))))) - (let () (declare (not safe)) (_%g134163134357%_))))) - (let () (declare (not safe)) (_%g134163134357%_)))))))) + (_%g135148135342%_))))))) + (let () (declare (not safe)) (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj138026 + (let ((__obj139011 (let () (declare (not safe)) (##structure @@ -2603,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138026 + __obj139011 'gxc#::void-expression::t '1 '#f @@ -2611,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138026 + __obj139011 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139011 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139011 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139011 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '#f '11 '#f '#f)) - (let ((__tmp138142 |gxc[1]#_g138143_|)) + (##unchecked-structure-set! __obj139011 '#f '11 '#f '#f)) + (let ((__tmp139127 |gxc[1]#_g139128_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138026 __tmp138142 '12 '#f '#f)) - (let ((__tmp138144 |gxc[1]#_g138145_|)) + (##unchecked-structure-set! __obj139011 __tmp139127 '12 '#f '#f)) + (let ((__tmp139129 |gxc[1]#_g139130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138026 __tmp138144 '13 '#f '#f)) - (let ((__tmp138146 |gxc[1]#_g138147_|)) + (##unchecked-structure-set! __obj139011 __tmp139129 '13 '#f '#f)) + (let ((__tmp139131 |gxc[1]#_g139132_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138026 __tmp138146 '14 '#f '#f)) + (##unchecked-structure-set! __obj139011 __tmp139131 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138026 '() '20 '#f '#f)) - __obj138026)) + (##unchecked-structure-set! __obj139011 '() '20 '#f '#f)) + __obj139011)) (define |gxc[:0:]#::void-special-form| - (let ((__obj138027 + (let ((__obj139012 (let () (declare (not safe)) (##structure @@ -2698,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138027 + __obj139012 'gxc#::void-special-form::t '1 '#f @@ -2706,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138027 + __obj139012 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139012 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139012 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139012 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '#f '11 '#f '#f)) - (let ((__tmp138148 |gxc[1]#_g138149_|)) + (##unchecked-structure-set! __obj139012 '#f '11 '#f '#f)) + (let ((__tmp139133 |gxc[1]#_g139134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138027 __tmp138148 '12 '#f '#f)) - (let ((__tmp138150 |gxc[1]#_g138151_|)) + (##unchecked-structure-set! __obj139012 __tmp139133 '12 '#f '#f)) + (let ((__tmp139135 |gxc[1]#_g139136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138027 __tmp138150 '13 '#f '#f)) - (let ((__tmp138152 |gxc[1]#_g138153_|)) + (##unchecked-structure-set! __obj139012 __tmp139135 '13 '#f '#f)) + (let ((__tmp139137 |gxc[1]#_g139138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138027 __tmp138152 '14 '#f '#f)) + (##unchecked-structure-set! __obj139012 __tmp139137 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138027 '() '20 '#f '#f)) - __obj138027)) + (##unchecked-structure-set! __obj139012 '() '20 '#f '#f)) + __obj139012)) (define |gxc[:0:]#::void| - (let ((__obj138028 + (let ((__obj139013 (let () (declare (not safe)) (##structure @@ -2792,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj139013 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj139013 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '6 '#f '#f)) - (let ((__tmp138154 - (cons |gxc[1]#_g138155_| (cons |gxc[1]#_g138156_| '())))) + (##unchecked-structure-set! __obj139013 '() '6 '#f '#f)) + (let ((__tmp139139 + (cons |gxc[1]#_g139140_| (cons |gxc[1]#_g139141_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj138028 __tmp138154 '3 '#f '#f)) + (##unchecked-structure-set! __obj139013 __tmp139139 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139013 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139013 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139013 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '#f '11 '#f '#f)) - (let ((__tmp138157 |gxc[1]#_g138158_|)) + (##unchecked-structure-set! __obj139013 '#f '11 '#f '#f)) + (let ((__tmp139142 |gxc[1]#_g139143_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138028 __tmp138157 '12 '#f '#f)) - (let ((__tmp138159 |gxc[1]#_g138160_|)) + (##unchecked-structure-set! __obj139013 __tmp139142 '12 '#f '#f)) + (let ((__tmp139144 |gxc[1]#_g139145_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138028 __tmp138159 '13 '#f '#f)) - (let ((__tmp138161 |gxc[1]#_g138162_|)) + (##unchecked-structure-set! __obj139013 __tmp139144 '13 '#f '#f)) + (let ((__tmp139146 |gxc[1]#_g139147_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138028 __tmp138161 '14 '#f '#f)) + (##unchecked-structure-set! __obj139013 __tmp139146 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138028 '() '20 '#f '#f)) - __obj138028)) + (##unchecked-structure-set! __obj139013 '() '20 '#f '#f)) + __obj139013)) (define |gxc[:0:]#::false-expression| - (let ((__obj138029 + (let ((__obj139014 (let () (declare (not safe)) (##structure @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138029 + __obj139014 'gxc#::false-expression::t '1 '#f @@ -2887,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138029 + __obj139014 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139014 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139014 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139014 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '#f '11 '#f '#f)) - (let ((__tmp138163 |gxc[1]#_g138164_|)) + (##unchecked-structure-set! __obj139014 '#f '11 '#f '#f)) + (let ((__tmp139148 |gxc[1]#_g139149_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138029 __tmp138163 '12 '#f '#f)) - (let ((__tmp138165 |gxc[1]#_g138166_|)) + (##unchecked-structure-set! __obj139014 __tmp139148 '12 '#f '#f)) + (let ((__tmp139150 |gxc[1]#_g139151_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138029 __tmp138165 '13 '#f '#f)) - (let ((__tmp138167 |gxc[1]#_g138168_|)) + (##unchecked-structure-set! __obj139014 __tmp139150 '13 '#f '#f)) + (let ((__tmp139152 |gxc[1]#_g139153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138029 __tmp138167 '14 '#f '#f)) + (##unchecked-structure-set! __obj139014 __tmp139152 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138029 '() '20 '#f '#f)) - __obj138029)) + (##unchecked-structure-set! __obj139014 '() '20 '#f '#f)) + __obj139014)) (define |gxc[:0:]#::false-special-form| - (let ((__obj138030 + (let ((__obj139015 (let () (declare (not safe)) (##structure @@ -2974,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138030 + __obj139015 'gxc#::false-special-form::t '1 '#f @@ -2982,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138030 + __obj139015 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139015 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139015 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139015 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '#f '11 '#f '#f)) - (let ((__tmp138169 |gxc[1]#_g138170_|)) + (##unchecked-structure-set! __obj139015 '#f '11 '#f '#f)) + (let ((__tmp139154 |gxc[1]#_g139155_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138030 __tmp138169 '12 '#f '#f)) - (let ((__tmp138171 |gxc[1]#_g138172_|)) + (##unchecked-structure-set! __obj139015 __tmp139154 '12 '#f '#f)) + (let ((__tmp139156 |gxc[1]#_g139157_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138030 __tmp138171 '13 '#f '#f)) - (let ((__tmp138173 |gxc[1]#_g138174_|)) + (##unchecked-structure-set! __obj139015 __tmp139156 '13 '#f '#f)) + (let ((__tmp139158 |gxc[1]#_g139159_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138030 __tmp138173 '14 '#f '#f)) + (##unchecked-structure-set! __obj139015 __tmp139158 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138030 '() '20 '#f '#f)) - __obj138030)) + (##unchecked-structure-set! __obj139015 '() '20 '#f '#f)) + __obj139015)) (define |gxc[:0:]#::false| - (let ((__obj138031 + (let ((__obj139016 (let () (declare (not safe)) (##structure @@ -3068,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj139016 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj139016 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '6 '#f '#f)) - (let ((__tmp138175 - (cons |gxc[1]#_g138176_| (cons |gxc[1]#_g138177_| '())))) + (##unchecked-structure-set! __obj139016 '() '6 '#f '#f)) + (let ((__tmp139160 + (cons |gxc[1]#_g139161_| (cons |gxc[1]#_g139162_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj138031 __tmp138175 '3 '#f '#f)) + (##unchecked-structure-set! __obj139016 __tmp139160 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139016 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139016 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139016 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '#f '11 '#f '#f)) - (let ((__tmp138178 |gxc[1]#_g138179_|)) + (##unchecked-structure-set! __obj139016 '#f '11 '#f '#f)) + (let ((__tmp139163 |gxc[1]#_g139164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138031 __tmp138178 '12 '#f '#f)) - (let ((__tmp138180 |gxc[1]#_g138181_|)) + (##unchecked-structure-set! __obj139016 __tmp139163 '12 '#f '#f)) + (let ((__tmp139165 |gxc[1]#_g139166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138031 __tmp138180 '13 '#f '#f)) - (let ((__tmp138182 |gxc[1]#_g138183_|)) + (##unchecked-structure-set! __obj139016 __tmp139165 '13 '#f '#f)) + (let ((__tmp139167 |gxc[1]#_g139168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138031 __tmp138182 '14 '#f '#f)) + (##unchecked-structure-set! __obj139016 __tmp139167 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138031 '() '20 '#f '#f)) - __obj138031)) + (##unchecked-structure-set! __obj139016 '() '20 '#f '#f)) + __obj139016)) (define |gxc[:0:]#::identity-expression| - (let ((__obj138032 + (let ((__obj139017 (let () (declare (not safe)) (##structure @@ -3155,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138032 + __obj139017 'gxc#::identity-expression::t '1 '#f @@ -3163,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138032 + __obj139017 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139017 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139017 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139017 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '#f '11 '#f '#f)) - (let ((__tmp138184 |gxc[1]#_g138185_|)) + (##unchecked-structure-set! __obj139017 '#f '11 '#f '#f)) + (let ((__tmp139169 |gxc[1]#_g139170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138032 __tmp138184 '12 '#f '#f)) - (let ((__tmp138186 |gxc[1]#_g138187_|)) + (##unchecked-structure-set! __obj139017 __tmp139169 '12 '#f '#f)) + (let ((__tmp139171 |gxc[1]#_g139172_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138032 __tmp138186 '13 '#f '#f)) - (let ((__tmp138188 |gxc[1]#_g138189_|)) + (##unchecked-structure-set! __obj139017 __tmp139171 '13 '#f '#f)) + (let ((__tmp139173 |gxc[1]#_g139174_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138032 __tmp138188 '14 '#f '#f)) + (##unchecked-structure-set! __obj139017 __tmp139173 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138032 '() '20 '#f '#f)) - __obj138032)) + (##unchecked-structure-set! __obj139017 '() '20 '#f '#f)) + __obj139017)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj138033 + (let ((__obj139018 (let () (declare (not safe)) (##structure @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138033 + __obj139018 'gxc#::identity-special-form::t '1 '#f @@ -3258,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138033 + __obj139018 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139018 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139018 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139018 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '#f '11 '#f '#f)) - (let ((__tmp138190 |gxc[1]#_g138191_|)) + (##unchecked-structure-set! __obj139018 '#f '11 '#f '#f)) + (let ((__tmp139175 |gxc[1]#_g139176_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138033 __tmp138190 '12 '#f '#f)) - (let ((__tmp138192 |gxc[1]#_g138193_|)) + (##unchecked-structure-set! __obj139018 __tmp139175 '12 '#f '#f)) + (let ((__tmp139177 |gxc[1]#_g139178_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138033 __tmp138192 '13 '#f '#f)) - (let ((__tmp138194 |gxc[1]#_g138195_|)) + (##unchecked-structure-set! __obj139018 __tmp139177 '13 '#f '#f)) + (let ((__tmp139179 |gxc[1]#_g139180_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138033 __tmp138194 '14 '#f '#f)) + (##unchecked-structure-set! __obj139018 __tmp139179 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138033 '() '20 '#f '#f)) - __obj138033)) + (##unchecked-structure-set! __obj139018 '() '20 '#f '#f)) + __obj139018)) (define |gxc[:0:]#::identity| - (let ((__obj138034 + (let ((__obj139019 (let () (declare (not safe)) (##structure @@ -3345,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138034 + __obj139019 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj139019 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '6 '#f '#f)) - (let ((__tmp138196 - (cons |gxc[1]#_g138197_| (cons |gxc[1]#_g138198_| '())))) + (##unchecked-structure-set! __obj139019 '() '6 '#f '#f)) + (let ((__tmp139181 + (cons |gxc[1]#_g139182_| (cons |gxc[1]#_g139183_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj138034 __tmp138196 '3 '#f '#f)) + (##unchecked-structure-set! __obj139019 __tmp139181 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139019 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139019 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139019 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '#f '11 '#f '#f)) - (let ((__tmp138199 |gxc[1]#_g138200_|)) + (##unchecked-structure-set! __obj139019 '#f '11 '#f '#f)) + (let ((__tmp139184 |gxc[1]#_g139185_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138034 __tmp138199 '12 '#f '#f)) - (let ((__tmp138201 |gxc[1]#_g138202_|)) + (##unchecked-structure-set! __obj139019 __tmp139184 '12 '#f '#f)) + (let ((__tmp139186 |gxc[1]#_g139187_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138034 __tmp138201 '13 '#f '#f)) - (let ((__tmp138203 |gxc[1]#_g138204_|)) + (##unchecked-structure-set! __obj139019 __tmp139186 '13 '#f '#f)) + (let ((__tmp139188 |gxc[1]#_g139189_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138034 __tmp138203 '14 '#f '#f)) + (##unchecked-structure-set! __obj139019 __tmp139188 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138034 '() '20 '#f '#f)) - __obj138034)) + (##unchecked-structure-set! __obj139019 '() '20 '#f '#f)) + __obj139019)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj138035 + (let ((__obj139020 (let () (declare (not safe)) (##structure @@ -3436,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138035 + __obj139020 'gxc#::basic-xform-expression::t '1 '#f @@ -3444,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138035 + __obj139020 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139020 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139020 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139020 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '#f '11 '#f '#f)) - (let ((__tmp138205 |gxc[1]#_g138206_|)) + (##unchecked-structure-set! __obj139020 '#f '11 '#f '#f)) + (let ((__tmp139190 |gxc[1]#_g139191_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138035 __tmp138205 '12 '#f '#f)) - (let ((__tmp138207 |gxc[1]#_g138208_|)) + (##unchecked-structure-set! __obj139020 __tmp139190 '12 '#f '#f)) + (let ((__tmp139192 |gxc[1]#_g139193_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138035 __tmp138207 '13 '#f '#f)) - (let ((__tmp138209 |gxc[1]#_g138210_|)) + (##unchecked-structure-set! __obj139020 __tmp139192 '13 '#f '#f)) + (let ((__tmp139194 |gxc[1]#_g139195_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138035 __tmp138209 '14 '#f '#f)) + (##unchecked-structure-set! __obj139020 __tmp139194 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138035 '() '20 '#f '#f)) - __obj138035)) + (##unchecked-structure-set! __obj139020 '() '20 '#f '#f)) + __obj139020)) (define |gxc[:0:]#::basic-xform| - (let ((__obj138036 + (let ((__obj139021 (let () (declare (not safe)) (##structure @@ -3531,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj138036 + __obj139021 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj139021 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '6 '#f '#f)) - (let ((__tmp138211 - (cons |gxc[1]#_g138212_| (cons |gxc[1]#_g138213_| '())))) + (##unchecked-structure-set! __obj139021 '() '6 '#f '#f)) + (let ((__tmp139196 + (cons |gxc[1]#_g139197_| (cons |gxc[1]#_g139198_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj138036 __tmp138211 '3 '#f '#f)) + (##unchecked-structure-set! __obj139021 __tmp139196 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139021 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139021 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139021 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '#f '11 '#f '#f)) - (let ((__tmp138214 |gxc[1]#_g138215_|)) + (##unchecked-structure-set! __obj139021 '#f '11 '#f '#f)) + (let ((__tmp139199 |gxc[1]#_g139200_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138036 __tmp138214 '12 '#f '#f)) - (let ((__tmp138216 |gxc[1]#_g138217_|)) + (##unchecked-structure-set! __obj139021 __tmp139199 '12 '#f '#f)) + (let ((__tmp139201 |gxc[1]#_g139202_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138036 __tmp138216 '13 '#f '#f)) - (let ((__tmp138218 |gxc[1]#_g138219_|)) + (##unchecked-structure-set! __obj139021 __tmp139201 '13 '#f '#f)) + (let ((__tmp139203 |gxc[1]#_g139204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj138036 __tmp138218 '14 '#f '#f)) + (##unchecked-structure-set! __obj139021 __tmp139203 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj138036 '() '20 '#f '#f)) - __obj138036)))) + (##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 eb3c8769b..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 1734131751) + (define gerbil/compiler/optimize-ann::timestamp 1734357966) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp192545 (list gxc#::basic-xform::t)) - (__tmp192544 (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 - __tmp192545 + __tmp193530 '() - __tmp192544 + __tmp193529 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args189430%_ - (apply make-instance gxc#::optimize-annotated::t _%$args189430%_))) + (lambda _%$args190415%_ + (apply make-instance gxc#::optimize-annotated::t _%$args190415%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp192546 + (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 __tmp192546))) + (__make-promise __tmp193531))) (define gxc#apply-optimize-annotated - (lambda (_%stx189422%_) + (lambda (_%stx190407%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self189425%_ - (let ((__obj192536 + (let* ((_%self190410%_ + (let ((__obj193521 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj192536)) - (__tmp192547 + __obj193521)) + (__tmp193532 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189425%_ _%stx189422%_))))) + (gxc#compile-e__1 _%self190410%_ _%stx190407%_))))) (declare (not safe)) (__call-with-parameters - __tmp192547 + __tmp193532 gxc#current-compile-method - _%self189425%_)))) + _%self190410%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp192549 (list gxc#::generate-runtime::t)) - (__tmp192548 (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 - __tmp192549 + __tmp193534 '() - __tmp192548 + __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 _%$args189419%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args189419%_))) + (lambda _%$args190404%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args190404%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp192550 + (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 __tmp192550))) + (__make-promise __tmp193535))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx189411%_) + (lambda (_%stx190396%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self189414%_ - (let ((__obj192538 + (let* ((_%self190399%_ + (let ((__obj193523 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj192538)) - (__tmp192551 + __obj193523)) + (__tmp193536 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189414%_ _%stx189411%_))))) + (gxc#compile-e__1 _%self190399%_ _%stx190396%_))))) (declare (not safe)) (__call-with-parameters - __tmp192551 + __tmp193536 gxc#current-compile-method - _%self189414%_)))) + _%self190399%_)))) (define gxc#::push-match-vars::t - (let ((__tmp192553 (list)) (__tmp192552 (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 - __tmp192553 + __tmp193538 '(vars K) - __tmp192552 + __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 _%$args189408%_ - (apply make-instance gxc#::push-match-vars::t _%$args189408%_))) + (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 ((__tmp192554 + (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 __tmp192554))) + (__make-promise __tmp193539))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords189378%_ - _%vars189374189379%_ - _%K189375189381%_ - _%stx189383%_) - (let* ((_%vars189386%_ - (if (eq? _%vars189374189379%_ absent-value) + (lambda (_%@@keywords190363%_ + _%vars190359190364%_ + _%K190360190366%_ + _%stx190368%_) + (let* ((_%vars190371%_ + (if (eq? _%vars190359190364%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars189374189379%_)) - (_%K189388%_ - (if (eq? _%K189375189381%_ absent-value) + _%vars190359190364%_)) + (_%K190373%_ + (if (eq? _%K190360190366%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K189375189381%_))) + _%K190360190366%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self189390%_ - (let ((__obj192540 + (let* ((_%self190375%_ + (let ((__obj193525 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192540 - _%vars189386%_ + __obj193525 + _%vars190371%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192540 - _%K189388%_ + __obj193525 + _%K190373%_ '2 '#f '#f)) - __obj192540)) - (__tmp192555 + __obj193525)) + (__tmp193540 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189390%_ _%stx189383%_))))) + (gxc#compile-e__1 _%self190375%_ _%stx190368%_))))) (declare (not safe)) (__call-with-parameters - __tmp192555 + __tmp193540 gxc#current-compile-method - _%self189390%_))))) + _%self190375%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords189397%_ . _%args189398%_) + (lambda (_%@@keywords190382%_ . _%args190383%_) (apply gxc#apply-push-match-vars__% - _%@@keywords189397%_ + _%@@keywords190382%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189397%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords190382%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189397%_ 'K: absent-value)) - _%args189398%_))) + (symbolic-table-ref _%@@keywords190382%_ 'K: absent-value)) + _%args190383%_))) (define gxc#apply-push-match-vars - (lambda _%args189376189404%_ + (lambda _%args190361190389%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args189376189404%_))) + _%args190361190389%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self189290%_ _%stx189291%_) - (let* ((_%__stx189446189447%_ _%stx189291%_) - (_%g189294189311%_ + (lambda (_%self190275%_ _%stx190276%_) + (let* ((_%__stx190431190432%_ _%stx190276%_) + (_%g190279190296%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189446189447%_))))) - (let ((_%__kont189448189449%_ - (lambda (_%L189347%_ _%L189348%_) - (let ((_%ann189364%_ + _%__stx190431190432%_))))) + (let ((_%__kont190433190434%_ + (lambda (_%L190332%_ _%L190333%_) + (let ((_%ann190349%_ (let () (declare (not safe)) - (gx#stx-e _%L189348%_)))) - (let ((__tmp192557 + (gx#stx-e _%L190333%_)))) + (let ((__tmp193542 (lambda () - (let ((_%$e189367%_ _%ann189364%_)) - (if (eq? '@match _%$e189367%_) + (let ((_%$e190352%_ _%ann190349%_)) + (if (eq? '@match _%$e190352%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L189347%_)) - (if (eq? '@syntax-case _%$e189367%_) + (gxc#optimize-match _%L190332%_)) + (if (eq? '@syntax-case _%$e190352%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L189347%_)) + _%L190332%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L189347%_))))))) - (__tmp192556 - (cons _%ann189364%_ + (gxc#compile-e__0 _%L190332%_))))))) + (__tmp193541 + (cons _%ann190349%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp192557 + __tmp193542 gxc#current-annotation-optimizer - __tmp192556))))) - (_%__kont189450189451%_ + __tmp193541))))) + (_%__kont190435190436%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self189290%_ - _%stx189291%_))))) - (let ((_%__match189471189472%_ - (lambda (_%e189298189323%_ - _%hd189299189326%_ - _%tl189300189328%_ - _%e189301189331%_ - _%hd189302189334%_ - _%tl189303189336%_ - _%e189304189339%_ - _%hd189305189342%_ - _%tl189306189344%_) - (let ((_%L189347%_ _%hd189305189342%_) - (_%L189348%_ _%hd189302189334%_)) + _%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? _%L189348%_)) - (_%__kont189448189449%_ _%L189347%_ _%L189348%_) - (_%__kont189450189451%_)))))) + (gx#identifier? _%L190333%_)) + (_%__kont190433190434%_ _%L190332%_ _%L190333%_) + (_%__kont190435190436%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189446189447%_)) - (let ((_%e189298189323%_ + (gx#stx-pair? _%__stx190431190432%_)) + (let ((_%e190283190308%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189446189447%_)))) - (let ((_%tl189300189328%_ + (gx#stx-e _%__stx190431190432%_)))) + (let ((_%tl190285190313%_ (let () (declare (not safe)) - (##cdr _%e189298189323%_))) - (_%hd189299189326%_ + (##cdr _%e190283190308%_))) + (_%hd190284190311%_ (let () (declare (not safe)) - (##car _%e189298189323%_)))) + (##car _%e190283190308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189300189328%_)) - (let ((_%e189301189331%_ + (gx#stx-pair? _%tl190285190313%_)) + (let ((_%e190286190316%_ (let () (declare (not safe)) - (gx#stx-e _%tl189300189328%_)))) - (let ((_%tl189303189336%_ + (gx#stx-e _%tl190285190313%_)))) + (let ((_%tl190288190321%_ (let () (declare (not safe)) - (##cdr _%e189301189331%_))) - (_%hd189302189334%_ + (##cdr _%e190286190316%_))) + (_%hd190287190319%_ (let () (declare (not safe)) - (##car _%e189301189331%_)))) + (##car _%e190286190316%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189303189336%_)) - (let ((_%e189304189339%_ + (gx#stx-pair? _%tl190288190321%_)) + (let ((_%e190289190324%_ (let () (declare (not safe)) - (gx#stx-e _%tl189303189336%_)))) - (let ((_%tl189306189344%_ + (gx#stx-e _%tl190288190321%_)))) + (let ((_%tl190291190329%_ (let () (declare (not safe)) - (##cdr _%e189304189339%_))) - (_%hd189305189342%_ + (##cdr _%e190289190324%_))) + (_%hd190290190327%_ (let () (declare (not safe)) - (##car _%e189304189339%_)))) + (##car _%e190289190324%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189306189344%_)) - (_%__match189471189472%_ - _%e189298189323%_ - _%hd189299189326%_ - _%tl189300189328%_ - _%e189301189331%_ - _%hd189302189334%_ - _%tl189303189336%_ - _%e189304189339%_ - _%hd189305189342%_ - _%tl189306189344%_) - (_%__kont189450189451%_)))) - (_%__kont189450189451%_)))) - (_%__kont189450189451%_)))) - (_%__kont189450189451%_))))))) + (gx#stx-null? _%tl190291190329%_)) + (_%__match190456190457%_ + _%e190283190308%_ + _%hd190284190311%_ + _%tl190285190313%_ + _%e190286190316%_ + _%hd190287190319%_ + _%tl190288190321%_ + _%e190289190324%_ + _%hd190290190327%_ + _%tl190291190329%_) + (_%__kont190435190436%_)))) + (_%__kont190435190436%_)))) + (_%__kont190435190436%_)))) + (_%__kont190435190436%_))))))) (define gxc#optimize-match - (lambda (_%stx188589%_) - (let* ((_%g188591188621%_ - (lambda (_%g188592188618%_) + (lambda (_%stx189574%_) + (let* ((_%g189576189606%_ + (lambda (_%g189577189603%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188592188618%_)))) - (_%g188590189287%_ - (lambda (_%g188592188624%_) + _%g189577189603%_)))) + (_%g189575190272%_ + (lambda (_%g189577189609%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188592188624%_)) - (let ((_%e188596188626%_ + (gx#stx-pair? _%g189577189609%_)) + (let ((_%e189581189611%_ (let () (declare (not safe)) - (gx#stx-e _%g188592188624%_)))) - (let ((_%hd188597188629%_ + (gx#stx-e _%g189577189609%_)))) + (let ((_%hd189582189614%_ (let () (declare (not safe)) - (##car _%e188596188626%_))) - (_%tl188598188631%_ + (##car _%e189581189611%_))) + (_%tl189583189616%_ (let () (declare (not safe)) - (##cdr _%e188596188626%_)))) + (##cdr _%e189581189611%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188597188629%_)) + (gx#identifier? _%hd189582189614%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188597188629%_)) + _%hd189582189614%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188598188631%_)) - (let ((_%e188599188634%_ + (gx#stx-pair? _%tl189583189616%_)) + (let ((_%e189584189619%_ (let () (declare (not safe)) - (gx#stx-e _%tl188598188631%_)))) - (let ((_%hd188600188637%_ + (gx#stx-e _%tl189583189616%_)))) + (let ((_%hd189585189622%_ (let () (declare (not safe)) - (##car _%e188599188634%_))) - (_%tl188601188639%_ + (##car _%e189584189619%_))) + (_%tl189586189624%_ (let () (declare (not safe)) - (##cdr _%e188599188634%_)))) + (##cdr _%e189584189619%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188600188637%_)) - (let ((_%e188602188642%_ + _%hd189585189622%_)) + (let ((_%e189587189627%_ (let () (declare (not safe)) (gx#stx-e - _%hd188600188637%_)))) - (let ((_%hd188603188645%_ + _%hd189585189622%_)))) + (let ((_%hd189588189630%_ (let () (declare (not safe)) - (##car _%e188602188642%_))) - (_%tl188604188647%_ + (##car _%e189587189627%_))) + (_%tl189589189632%_ (let () (declare (not safe)) - (##cdr _%e188602188642%_)))) + (##cdr _%e189587189627%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188603188645%_)) - (let ((_%e188605188650%_ + _%hd189588189630%_)) + (let ((_%e189590189635%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd188603188645%_)))) - (let ((_%hd188606188653%_ - (let () (declare (not safe)) (##car _%e188605188650%_))) - (_%tl188607188655%_ + (gx#stx-e _%hd189588189630%_)))) + (let ((_%hd189591189638%_ + (let () (declare (not safe)) (##car _%e189590189635%_))) + (_%tl189592189640%_ (let () (declare (not safe)) - (##cdr _%e188605188650%_)))) + (##cdr _%e189590189635%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188606188653%_)) - (let ((_%e188608188658%_ + (gx#stx-pair? _%hd189591189638%_)) + (let ((_%e189593189643%_ (let () (declare (not safe)) - (gx#stx-e _%hd188606188653%_)))) - (let ((_%hd188609188661%_ + (gx#stx-e _%hd189591189638%_)))) + (let ((_%hd189594189646%_ (let () (declare (not safe)) - (##car _%e188608188658%_))) - (_%tl188610188663%_ + (##car _%e189593189643%_))) + (_%tl189595189648%_ (let () (declare (not safe)) - (##cdr _%e188608188658%_)))) + (##cdr _%e189593189643%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188610188663%_)) + (gx#stx-null? _%tl189595189648%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188607188655%_)) - (let ((_%e188611188666%_ + (gx#stx-pair? _%tl189592189640%_)) + (let ((_%e189596189651%_ (let () (declare (not safe)) - (gx#stx-e _%tl188607188655%_)))) - (let ((_%hd188612188669%_ + (gx#stx-e _%tl189592189640%_)))) + (let ((_%hd189597189654%_ (let () (declare (not safe)) - (##car _%e188611188666%_))) - (_%tl188613188671%_ + (##car _%e189596189651%_))) + (_%tl189598189656%_ (let () (declare (not safe)) - (##cdr _%e188611188666%_)))) + (##cdr _%e189596189651%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188613188671%_)) + (gx#stx-null? _%tl189598189656%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188604188647%_)) + _%tl189589189632%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188601188639%_)) - (let ((_%e188614188674%_ + _%tl189586189624%_)) + (let ((_%e189599189659%_ (let () (declare (not safe)) (gx#stx-e - _%tl188601188639%_)))) - (let ((_%hd188615188677%_ + _%tl189586189624%_)))) + (let ((_%hd189600189662%_ (let () (declare (not safe)) - (##car _%e188614188674%_))) - (_%tl188616188679%_ + (##car _%e189599189659%_))) + (_%tl189601189664%_ (let () (declare (not safe)) - (##cdr _%e188614188674%_)))) + (##cdr _%e189599189659%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188616188679%_)) - ((lambda (_%L188682%_ + _%tl189601189664%_)) + ((lambda (_%L189667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L188683%_ - _%L188684%_) - (let _%lp188708%_ ((_%body188710%_ _%L188682%_) - (_%negation188711%_ - (cons _%L188684%_ _%L188683%_)) - (_%clauses188712%_ '()) - (_%konts188713%_ '())) - (let* ((_%__stx189654189655%_ _%body188710%_) - (_%g188716188756%_ + _%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" - _%__stx189654189655%_))))) - (let ((_%__kont189656189657%_ - (lambda (_%L189086%_) - (let* ((_%__stx189590189591%_ _%L189086%_) - (_%g189100189130%_ + _%__stx190639190640%_))))) + (let ((_%__kont190641190642%_ + (lambda (_%L190071%_) + (let* ((_%__stx190575190576%_ _%L190071%_) + (_%g190085190115%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189590189591%_))))) - (let ((_%__kont189592189593%_ - (lambda (_%L189226%_ - _%L189227%_ - _%L189228%_) - (if (null? _%clauses188712%_) - (let* ((_%negation189252189259%_ - _%negation188711%_) - (_%E189254189263%_ + _%__stx190575190576%_))))) + (let ((_%__kont190577190578%_ + (lambda (_%L190211%_ + _%L190212%_ + _%L190213%_) + (if (null? _%clauses189697%_) + (let* ((_%negation190237190244%_ + _%negation189696%_) + (_%E190239190248%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation189252189259%_ + _%negation190237190244%_ '([E . negate]))) '#!void)) - (_%K189255189269%_ - (lambda (_%negate189266%_ _%E189267%_) - (let ((__tmp192558 + (_%K190240190254%_ + (lambda (_%negate190251%_ _%E190252%_) + (let ((__tmp193543 (cons '%#let-values - (cons (cons (cons (cons _%E189267%_ '()) - (cons _%negate189266%_ '())) + (cons (cons (cons (cons _%E190252%_ '()) + (cons _%negate190251%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L189228%_ + (cons (cons (cons (cons _%L190213%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L189227%_)) + (gxc#compile-e__0 _%L190212%_)) '())) '()) - (cons _%L189226%_ '()))) + (cons _%L190211%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192558 _%stx188589%_))))) + (gxc#xform-wrap-source __tmp193543 _%stx189574%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation189252189259%_) - (let ((_%hd189256189272%_ + (if (pair? _%negation190237190244%_) + (let ((_%hd190241190257%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation189252189259%_))) - (_%tl189257189274%_ + (##car _%negation190237190244%_))) + (_%tl190242190259%_ (let () (declare (not safe)) - (##cdr _%negation189252189259%_)))) - (let* ((_%E189277%_ _%hd189256189272%_) - (_%negate189279%_ _%tl189257189274%_)) - (_%K189255189269%_ _%negate189279%_ _%E189277%_))) - (_%E189254189263%_))) + (##cdr _%negation190237190244%_)))) + (let* ((_%E190262%_ _%hd190241190257%_) + (_%negate190264%_ _%tl190242190259%_)) + (_%K190240190254%_ _%negate190264%_ _%E190262%_))) + (_%E190239190248%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx188589%_ - _%negation188711%_ + _%stx189574%_ + _%negation189696%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L189226%_ '())))) - _%clauses188712%_) + (cons '() (cons _%L190211%_ '())))) + _%clauses189697%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L189228%_ + (cons (cons _%L190213%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L189227%_))) - _%konts188713%_))))) + (gxc#compile-e__0 _%L190212%_))) + _%konts189698%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189594189595%_ + (_%__kont190579190580%_ (lambda () - (let* ((_%negation189136189143%_ - _%negation188711%_) - (_%E189138189147%_ + (let* ((_%negation190121190128%_ + _%negation189696%_) + (_%E190123190132%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation189136189143%_ + _%negation190121190128%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K189139189153%_ - (lambda (_%negate189150%_ - _%E189151%_) - (let ((__tmp192559 + (_%K190124190138%_ + (lambda (_%negate190135%_ + _%E190136%_) + (let ((__tmp193544 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E189151%_ '()) - (cons _%negate189150%_ '())) + (cons (cons (cons (cons _%E190136%_ '()) + (cons _%negate190135%_ '())) '()) - (cons _%L189086%_ '()))))) + (cons _%L190071%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192559 _%stx188589%_))))) + (gxc#xform-wrap-source __tmp193544 _%stx189574%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation189136189143%_) - (let ((_%hd189140189156%_ + (if (pair? _%negation190121190128%_) + (let ((_%hd190125190141%_ (let () (declare (not safe)) - (##car _%negation189136189143%_))) - (_%tl189141189158%_ + (##car _%negation190121190128%_))) + (_%tl190126190143%_ (let () (declare (not safe)) - (##cdr _%negation189136189143%_)))) - (let* ((_%E189161%_ - _%hd189140189156%_) - (_%negate189163%_ - _%tl189141189158%_)) - (_%K189139189153%_ - _%negate189163%_ - _%E189161%_))) - (_%E189138189147%_)))))) - (let ((_%g189099189165%_ + (##cdr _%negation190121190128%_)))) + (let* ((_%E190146%_ + _%hd190125190141%_) + (_%negate190148%_ + _%tl190126190143%_)) + (_%K190124190138%_ + _%negate190148%_ + _%E190146%_))) + (_%E190123190132%_)))))) + (let ((_%g190084190150%_ (lambda () - (if (null? _%clauses188712%_) - (_%__kont189594189595%_) + (if (null? _%clauses189697%_) + (_%__kont190579190580%_) (let () (declare (not safe)) - (_%g189100189130%_)))))) + (_%g190085190115%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189590189591%_)) - (let ((_%e189105189170%_ + _%__stx190575190576%_)) + (let ((_%e190090190155%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189590189591%_)))) - (let ((_%tl189107189175%_ + _%__stx190575190576%_)))) + (let ((_%tl190092190160%_ (let () (declare (not safe)) - (##cdr _%e189105189170%_))) - (_%hd189106189173%_ + (##cdr _%e190090190155%_))) + (_%hd190091190158%_ (let () (declare (not safe)) - (##car _%e189105189170%_)))) + (##car _%e190090190155%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd189106189173%_)) + _%hd190091190158%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd189106189173%_)) + _%hd190091190158%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189107189175%_)) - (let ((_%e189108189178%_ + _%tl190092190160%_)) + (let ((_%e190093190163%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl189107189175%_)))) - (let ((_%tl189110189183%_ + (gx#stx-e _%tl190092190160%_)))) + (let ((_%tl190095190168%_ (let () (declare (not safe)) - (##cdr _%e189108189178%_))) - (_%hd189109189181%_ + (##cdr _%e190093190163%_))) + (_%hd190094190166%_ (let () (declare (not safe)) - (##car _%e189108189178%_)))) + (##car _%e190093190163%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189109189181%_)) - (let ((_%e189111189186%_ + (gx#stx-pair? _%hd190094190166%_)) + (let ((_%e190096190171%_ (let () (declare (not safe)) - (gx#stx-e _%hd189109189181%_)))) - (let ((_%tl189113189191%_ + (gx#stx-e _%hd190094190166%_)))) + (let ((_%tl190098190176%_ (let () (declare (not safe)) - (##cdr _%e189111189186%_))) - (_%hd189112189189%_ + (##cdr _%e190096190171%_))) + (_%hd190097190174%_ (let () (declare (not safe)) - (##car _%e189111189186%_)))) + (##car _%e190096190171%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189112189189%_)) - (let ((_%e189114189194%_ + (gx#stx-pair? _%hd190097190174%_)) + (let ((_%e190099190179%_ (let () (declare (not safe)) - (gx#stx-e _%hd189112189189%_)))) - (let ((_%tl189116189199%_ + (gx#stx-e _%hd190097190174%_)))) + (let ((_%tl190101190184%_ (let () (declare (not safe)) - (##cdr _%e189114189194%_))) - (_%hd189115189197%_ + (##cdr _%e190099190179%_))) + (_%hd190100190182%_ (let () (declare (not safe)) - (##car _%e189114189194%_)))) + (##car _%e190099190179%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189115189197%_)) - (let ((_%e189117189202%_ + _%hd190100190182%_)) + (let ((_%e190102190187%_ (let () (declare (not safe)) (gx#stx-e - _%hd189115189197%_)))) - (let ((_%tl189119189207%_ + _%hd190100190182%_)))) + (let ((_%tl190104190192%_ (let () (declare (not safe)) - (##cdr _%e189117189202%_))) - (_%hd189118189205%_ + (##cdr _%e190102190187%_))) + (_%hd190103190190%_ (let () (declare (not safe)) - (##car _%e189117189202%_)))) + (##car _%e190102190187%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189119189207%_)) + _%tl190104190192%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189116189199%_)) - (let ((_%e189120189210%_ + _%tl190101190184%_)) + (let ((_%e190105190195%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl189116189199%_)))) - (let ((_%tl189122189215%_ + (gx#stx-e _%tl190101190184%_)))) + (let ((_%tl190107190200%_ (let () (declare (not safe)) - (##cdr _%e189120189210%_))) - (_%hd189121189213%_ + (##cdr _%e190105190195%_))) + (_%hd190106190198%_ (let () (declare (not safe)) - (##car _%e189120189210%_)))) + (##car _%e190105190195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189122189215%_)) + (gx#stx-null? _%tl190107190200%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189113189191%_)) + (gx#stx-null? _%tl190098190176%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189110189183%_)) - (let ((_%e189123189218%_ + (gx#stx-pair? _%tl190095190168%_)) + (let ((_%e190108190203%_ (let () (declare (not safe)) - (gx#stx-e _%tl189110189183%_)))) - (let ((_%tl189125189223%_ + (gx#stx-e _%tl190095190168%_)))) + (let ((_%tl190110190208%_ (let () (declare (not safe)) - (##cdr _%e189123189218%_))) - (_%hd189124189221%_ + (##cdr _%e190108190203%_))) + (_%hd190109190206%_ (let () (declare (not safe)) - (##car _%e189123189218%_)))) + (##car _%e190108190203%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189125189223%_)) - (_%__kont189592189593%_ - _%hd189124189221%_ - _%hd189121189213%_ - _%hd189118189205%_) + (gx#stx-null? _%tl190110190208%_)) + (_%__kont190577190578%_ + _%hd190109190206%_ + _%hd190106190198%_ + _%hd190103190190%_) (let () (declare (not safe)) - (_%g189099189165%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g189099189165%_))) - (let () (declare (not safe)) (_%g189099189165%_))) - (let () (declare (not safe)) (_%g189099189165%_))))) - (let () (declare (not safe)) (_%g189099189165%_))) + (_%g190084190150%_))) + (let () (declare (not safe)) (_%g190084190150%_))) + (let () (declare (not safe)) (_%g190084190150%_))))) + (let () (declare (not safe)) (_%g190084190150%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g189099189165%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g189099189165%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g189099189165%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g189099189165%_))))) - (let () (declare (not safe)) (_%g189099189165%_))) - (let () (declare (not safe)) (_%g189099189165%_))) + (_%g190084190150%_))))) + (let () (declare (not safe)) (_%g190084190150%_))) + (let () (declare (not safe)) (_%g190084190150%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g189099189165%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g189099189165%_)))))))) - (_%__kont189658189659%_ - (lambda (_%L188817%_ _%L188818%_ _%L188819%_) - (let* ((_%__stx189474189475%_ _%L188818%_) - (_%g188846188895%_ + (_%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" - _%__stx189474189475%_))))) - (let ((_%__kont189476189477%_ - (lambda (_%L189023%_ - _%L189024%_ - _%L189025%_) - (_%lp188708%_ - _%L188817%_ - _%negation188711%_ - (cons (cons _%L188819%_ + _%__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 _%L189023%_ '())))) + (cons '() (cons _%L190008%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses188712%_) - (cons (cons _%L189025%_ + _%clauses189697%_) + (cons (cons _%L190010%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L189024%_))) - _%konts188713%_)))) - (_%__kont189478189479%_ - (lambda (_%L188924%_) - (_%lp188708%_ - _%L188817%_ - (cons _%L188819%_ + _%L190009%_))) + _%konts189698%_)))) + (_%__kont190463190464%_ + (lambda (_%L189909%_) + (_%lp189693%_ + _%L189802%_ + (cons _%L189804%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188924%_))) - _%clauses188712%_ - _%konts188713%_)))) + _%L189909%_))) + _%clauses189697%_ + _%konts189698%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189474189475%_)) - (let ((_%e188851188943%_ + _%__stx190459190460%_)) + (let ((_%e189836189928%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189474189475%_)))) - (let ((_%tl188853188948%_ + _%__stx190459190460%_)))) + (let ((_%tl189838189933%_ (let () (declare (not safe)) - (##cdr _%e188851188943%_))) - (_%hd188852188946%_ + (##cdr _%e189836189928%_))) + (_%hd189837189931%_ (let () (declare (not safe)) - (##car _%e188851188943%_)))) + (##car _%e189836189928%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188852188946%_)) + _%hd189837189931%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188852188946%_)) + _%hd189837189931%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188853188948%_)) - (let ((_%e188854188951%_ + _%tl189838189933%_)) + (let ((_%e189839189936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188853188948%_)))) - (let ((_%tl188856188956%_ + (gx#stx-e _%tl189838189933%_)))) + (let ((_%tl189841189941%_ (let () (declare (not safe)) - (##cdr _%e188854188951%_))) - (_%hd188855188954%_ + (##cdr _%e189839189936%_))) + (_%hd189840189939%_ (let () (declare (not safe)) - (##car _%e188854188951%_)))) + (##car _%e189839189936%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd188855188954%_)) + (gx#stx-null? _%hd189840189939%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188856188956%_)) - (let ((_%e188857188959%_ + (gx#stx-pair? _%tl189841189941%_)) + (let ((_%e189842189944%_ (let () (declare (not safe)) - (gx#stx-e _%tl188856188956%_)))) - (let ((_%tl188859188964%_ + (gx#stx-e _%tl189841189941%_)))) + (let ((_%tl189844189949%_ (let () (declare (not safe)) - (##cdr _%e188857188959%_))) - (_%hd188858188962%_ + (##cdr _%e189842189944%_))) + (_%hd189843189947%_ (let () (declare (not safe)) - (##car _%e188857188959%_)))) + (##car _%e189842189944%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188858188962%_)) - (let ((_%e188860188967%_ + (gx#stx-pair? _%hd189843189947%_)) + (let ((_%e189845189952%_ (let () (declare (not safe)) - (gx#stx-e _%hd188858188962%_)))) - (let ((_%tl188862188972%_ + (gx#stx-e _%hd189843189947%_)))) + (let ((_%tl189847189957%_ (let () (declare (not safe)) - (##cdr _%e188860188967%_))) - (_%hd188861188970%_ + (##cdr _%e189845189952%_))) + (_%hd189846189955%_ (let () (declare (not safe)) - (##car _%e188860188967%_)))) + (##car _%e189845189952%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188861188970%_)) + _%hd189846189955%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188861188970%_)) + _%hd189846189955%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188862188972%_)) - (let ((_%e188863188975%_ + _%tl189847189957%_)) + (let ((_%e189848189960%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188862188972%_)))) - (let ((_%tl188865188980%_ - (let () (declare (not safe)) (##cdr _%e188863188975%_))) - (_%hd188864188978%_ + (gx#stx-e _%tl189847189957%_)))) + (let ((_%tl189850189965%_ + (let () (declare (not safe)) (##cdr _%e189848189960%_))) + (_%hd189849189963%_ (let () (declare (not safe)) - (##car _%e188863188975%_)))) + (##car _%e189848189960%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188864188978%_)) - (let ((_%e188866188983%_ + (gx#stx-pair? _%hd189849189963%_)) + (let ((_%e189851189968%_ (let () (declare (not safe)) - (gx#stx-e _%hd188864188978%_)))) - (let ((_%tl188868188988%_ + (gx#stx-e _%hd189849189963%_)))) + (let ((_%tl189853189973%_ (let () (declare (not safe)) - (##cdr _%e188866188983%_))) - (_%hd188867188986%_ + (##cdr _%e189851189968%_))) + (_%hd189852189971%_ (let () (declare (not safe)) - (##car _%e188866188983%_)))) + (##car _%e189851189968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188867188986%_)) - (let ((_%e188869188991%_ + (gx#stx-pair? _%hd189852189971%_)) + (let ((_%e189854189976%_ (let () (declare (not safe)) - (gx#stx-e _%hd188867188986%_)))) - (let ((_%tl188871188996%_ + (gx#stx-e _%hd189852189971%_)))) + (let ((_%tl189856189981%_ (let () (declare (not safe)) - (##cdr _%e188869188991%_))) - (_%hd188870188994%_ + (##cdr _%e189854189976%_))) + (_%hd189855189979%_ (let () (declare (not safe)) - (##car _%e188869188991%_)))) + (##car _%e189854189976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188870188994%_)) - (let ((_%e188872188999%_ + (gx#stx-pair? _%hd189855189979%_)) + (let ((_%e189857189984%_ (let () (declare (not safe)) - (gx#stx-e _%hd188870188994%_)))) - (let ((_%tl188874189004%_ + (gx#stx-e _%hd189855189979%_)))) + (let ((_%tl189859189989%_ (let () (declare (not safe)) - (##cdr _%e188872188999%_))) - (_%hd188873189002%_ + (##cdr _%e189857189984%_))) + (_%hd189858189987%_ (let () (declare (not safe)) - (##car _%e188872188999%_)))) + (##car _%e189857189984%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188874189004%_)) + _%tl189859189989%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188871188996%_)) - (let ((_%e188875189007%_ + _%tl189856189981%_)) + (let ((_%e189860189992%_ (let () (declare (not safe)) (gx#stx-e - _%tl188871188996%_)))) - (let ((_%tl188877189012%_ + _%tl189856189981%_)))) + (let ((_%tl189862189997%_ (let () (declare (not safe)) - (##cdr _%e188875189007%_))) - (_%hd188876189010%_ + (##cdr _%e189860189992%_))) + (_%hd189861189995%_ (let () (declare (not safe)) - (##car _%e188875189007%_)))) + (##car _%e189860189992%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188877189012%_)) + _%tl189862189997%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl188868188988%_)) + (gx#stx-null? _%tl189853189973%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188865188980%_)) - (let ((_%e188878189015%_ + (gx#stx-pair? _%tl189850189965%_)) + (let ((_%e189863190000%_ (let () (declare (not safe)) - (gx#stx-e _%tl188865188980%_)))) - (let ((_%tl188880189020%_ + (gx#stx-e _%tl189850189965%_)))) + (let ((_%tl189865190005%_ (let () (declare (not safe)) - (##cdr _%e188878189015%_))) - (_%hd188879189018%_ + (##cdr _%e189863190000%_))) + (_%hd189864190003%_ (let () (declare (not safe)) - (##car _%e188878189015%_)))) + (##car _%e189863190000%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188880189020%_)) + (gx#stx-null? _%tl189865190005%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188859188964%_)) - (_%__kont189476189477%_ - _%hd188879189018%_ - _%hd188876189010%_ - _%hd188873189002%_) + (gx#stx-null? _%tl189844189949%_)) + (_%__kont190461190462%_ + _%hd189864190003%_ + _%hd189861189995%_ + _%hd189858189987%_) (let () (declare (not safe)) - (_%g188846188895%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188846188895%_))))) - (let () (declare (not safe)) (_%g188846188895%_))) - (let () (declare (not safe)) (_%g188846188895%_))) - (let () (declare (not safe)) (_%g188846188895%_))))) + (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188846188895%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188846188895%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188846188895%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188846188895%_))))) - (let () (declare (not safe)) (_%g188846188895%_))))) - (let () (declare (not safe)) (_%g188846188895%_))) + (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188846188895%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188846188895%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188846188895%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188846188895%_))) - (let () (declare (not safe)) (_%g188846188895%_))))) - (let () (declare (not safe)) (_%g188846188895%_))) + (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd188852188946%_)) + (gx#stx-eq? '%#begin-annotation _%hd189837189931%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188853188948%_)) - (let ((_%e188885188908%_ + (gx#stx-pair? _%tl189838189933%_)) + (let ((_%e189870189893%_ (let () (declare (not safe)) - (gx#stx-e _%tl188853188948%_)))) - (let ((_%tl188887188913%_ + (gx#stx-e _%tl189838189933%_)))) + (let ((_%tl189872189898%_ (let () (declare (not safe)) - (##cdr _%e188885188908%_))) - (_%hd188886188911%_ + (##cdr _%e189870189893%_))) + (_%hd189871189896%_ (let () (declare (not safe)) - (##car _%e188885188908%_)))) + (##car _%e189870189893%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188886188911%_)) + (gx#identifier? _%hd189871189896%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd188886188911%_)) + _%hd189871189896%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188887188913%_)) - (let ((_%e188888188916%_ + (gx#stx-pair? _%tl189872189898%_)) + (let ((_%e189873189901%_ (let () (declare (not safe)) - (gx#stx-e _%tl188887188913%_)))) - (let ((_%tl188890188921%_ + (gx#stx-e _%tl189872189898%_)))) + (let ((_%tl189875189906%_ (let () (declare (not safe)) - (##cdr _%e188888188916%_))) - (_%hd188889188919%_ + (##cdr _%e189873189901%_))) + (_%hd189874189904%_ (let () (declare (not safe)) - (##car _%e188888188916%_)))) + (##car _%e189873189901%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188890188921%_)) - (_%__kont189478189479%_ - _%hd188889188919%_) + _%tl189875189906%_)) + (_%__kont190463190464%_ + _%hd189874189904%_) (let () (declare (not safe)) - (_%g188846188895%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188846188895%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188846188895%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188846188895%_))))) - (let () (declare (not safe)) (_%g188846188895%_))) - (let () (declare (not safe)) (_%g188846188895%_)))) + (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188846188895%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188846188895%_)))))))) + (_%g189831189880%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189654189655%_)) - (let ((_%e188719189062%_ + (gx#stx-pair? _%__stx190639190640%_)) + (let ((_%e189704190047%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189654189655%_)))) - (let ((_%tl188721189067%_ + (gx#stx-e _%__stx190639190640%_)))) + (let ((_%tl189706190052%_ (let () (declare (not safe)) - (##cdr _%e188719189062%_))) - (_%hd188720189065%_ + (##cdr _%e189704190047%_))) + (_%hd189705190050%_ (let () (declare (not safe)) - (##car _%e188719189062%_)))) + (##car _%e189704190047%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188720189065%_)) + (gx#identifier? _%hd189705190050%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd188720189065%_)) + _%hd189705190050%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188721189067%_)) - (let ((_%e188722189070%_ + _%tl189706190052%_)) + (let ((_%e189707190055%_ (let () (declare (not safe)) (gx#stx-e - _%tl188721189067%_)))) - (let ((_%tl188724189075%_ + _%tl189706190052%_)))) + (let ((_%tl189709190060%_ (let () (declare (not safe)) - (##cdr _%e188722189070%_))) - (_%hd188723189073%_ + (##cdr _%e189707190055%_))) + (_%hd189708190058%_ (let () (declare (not safe)) - (##car _%e188722189070%_)))) + (##car _%e189707190055%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188723189073%_)) + _%hd189708190058%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd188723189073%_)) + _%hd189708190058%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188724189075%_)) - (let ((_%e188725189078%_ + (gx#stx-pair? _%tl189709190060%_)) + (let ((_%e189710190063%_ (let () (declare (not safe)) - (gx#stx-e _%tl188724189075%_)))) - (let ((_%tl188727189083%_ + (gx#stx-e _%tl189709190060%_)))) + (let ((_%tl189712190068%_ (let () (declare (not safe)) - (##cdr _%e188725189078%_))) - (_%hd188726189081%_ + (##cdr _%e189710190063%_))) + (_%hd189711190066%_ (let () (declare (not safe)) - (##car _%e188725189078%_)))) + (##car _%e189710190063%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188727189083%_)) - (_%__kont189656189657%_ _%hd188726189081%_) + (gx#stx-null? _%tl189712190068%_)) + (_%__kont190641190642%_ _%hd189711190066%_) (let () (declare (not safe)) - (_%g188716188756%_))))) - (let () (declare (not safe)) (_%g188716188756%_))) - (let () (declare (not safe)) (_%g188716188756%_))) - (let () (declare (not safe)) (_%g188716188756%_))))) + (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188716188756%_))) + (_%g189701189741%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188720189065%_)) + _%hd189705190050%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188721189067%_)) - (let ((_%e188734188769%_ + _%tl189706190052%_)) + (let ((_%e189719189754%_ (let () (declare (not safe)) (gx#stx-e - _%tl188721189067%_)))) - (let ((_%tl188736188774%_ + _%tl189706190052%_)))) + (let ((_%tl189721189759%_ (let () (declare (not safe)) - (##cdr _%e188734188769%_))) - (_%hd188735188772%_ + (##cdr _%e189719189754%_))) + (_%hd189720189757%_ (let () (declare (not safe)) - (##car _%e188734188769%_)))) + (##car _%e189719189754%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188735188772%_)) - (let ((_%e188737188777%_ + _%hd189720189757%_)) + (let ((_%e189722189762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd188735188772%_)))) - (let ((_%tl188739188782%_ + (gx#stx-e _%hd189720189757%_)))) + (let ((_%tl189724189767%_ (let () (declare (not safe)) - (##cdr _%e188737188777%_))) - (_%hd188738188780%_ + (##cdr _%e189722189762%_))) + (_%hd189723189765%_ (let () (declare (not safe)) - (##car _%e188737188777%_)))) + (##car _%e189722189762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188738188780%_)) - (let ((_%e188740188785%_ + (gx#stx-pair? _%hd189723189765%_)) + (let ((_%e189725189770%_ (let () (declare (not safe)) - (gx#stx-e _%hd188738188780%_)))) - (let ((_%tl188742188790%_ + (gx#stx-e _%hd189723189765%_)))) + (let ((_%tl189727189775%_ (let () (declare (not safe)) - (##cdr _%e188740188785%_))) - (_%hd188741188788%_ + (##cdr _%e189725189770%_))) + (_%hd189726189773%_ (let () (declare (not safe)) - (##car _%e188740188785%_)))) + (##car _%e189725189770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188741188788%_)) - (let ((_%e188743188793%_ + (gx#stx-pair? _%hd189726189773%_)) + (let ((_%e189728189778%_ (let () (declare (not safe)) - (gx#stx-e _%hd188741188788%_)))) - (let ((_%tl188745188798%_ + (gx#stx-e _%hd189726189773%_)))) + (let ((_%tl189730189783%_ (let () (declare (not safe)) - (##cdr _%e188743188793%_))) - (_%hd188744188796%_ + (##cdr _%e189728189778%_))) + (_%hd189729189781%_ (let () (declare (not safe)) - (##car _%e188743188793%_)))) + (##car _%e189728189778%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188745188798%_)) + (gx#stx-null? _%tl189730189783%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188742188790%_)) - (let ((_%e188746188801%_ + _%tl189727189775%_)) + (let ((_%e189731189786%_ (let () (declare (not safe)) (gx#stx-e - _%tl188742188790%_)))) - (let ((_%tl188748188806%_ + _%tl189727189775%_)))) + (let ((_%tl189733189791%_ (let () (declare (not safe)) - (##cdr _%e188746188801%_))) - (_%hd188747188804%_ + (##cdr _%e189731189786%_))) + (_%hd189732189789%_ (let () (declare (not safe)) - (##car _%e188746188801%_)))) + (##car _%e189731189786%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188748188806%_)) + _%tl189733189791%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188739188782%_)) + _%tl189724189767%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188736188774%_)) - (let ((_%e188749188809%_ + (gx#stx-pair? _%tl189721189759%_)) + (let ((_%e189734189794%_ (let () (declare (not safe)) - (gx#stx-e _%tl188736188774%_)))) - (let ((_%tl188751188814%_ + (gx#stx-e _%tl189721189759%_)))) + (let ((_%tl189736189799%_ (let () (declare (not safe)) - (##cdr _%e188749188809%_))) - (_%hd188750188812%_ + (##cdr _%e189734189794%_))) + (_%hd189735189797%_ (let () (declare (not safe)) - (##car _%e188749188809%_)))) + (##car _%e189734189794%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188751188814%_)) - (_%__kont189658189659%_ - _%hd188750188812%_ - _%hd188747188804%_ - _%hd188744188796%_) + (gx#stx-null? _%tl189736189799%_)) + (_%__kont190643190644%_ + _%hd189735189797%_ + _%hd189732189789%_ + _%hd189729189781%_) (let () (declare (not safe)) - (_%g188716188756%_))))) - (let () (declare (not safe)) (_%g188716188756%_))) - (let () (declare (not safe)) (_%g188716188756%_))) - (let () (declare (not safe)) (_%g188716188756%_))))) + (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188716188756%_))) + (_%g189701189741%_))) (let () (declare (not safe)) - (_%g188716188756%_))))) + (_%g189701189741%_))))) (let () (declare (not safe)) - (_%g188716188756%_))))) - (let () (declare (not safe)) (_%g188716188756%_))))) - (let () (declare (not safe)) (_%g188716188756%_))))) + (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188716188756%_))) + (_%g189701189741%_))) (let () (declare (not safe)) - (_%g188716188756%_)))) + (_%g189701189741%_)))) (let () (declare (not safe)) - (_%g188716188756%_))))) + (_%g189701189741%_))))) (let () (declare (not safe)) - (_%g188716188756%_))))))) - _%hd188615188677%_ - _%hd188612188669%_ - _%hd188609188661%_) - (_%g188591188621%_ _%g188592188624%_)))) + (_%g189701189741%_))))))) + _%hd189600189662%_ + _%hd189597189654%_ + _%hd189594189646%_) + (_%g189576189606%_ _%g189577189609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188591188621%_ - _%g188592188624%_)) - (_%g188591188621%_ - _%g188592188624%_)) - (_%g188591188621%_ - _%g188592188624%_)))) - (_%g188591188621%_ _%g188592188624%_)) - (_%g188591188621%_ _%g188592188624%_)))) - (_%g188591188621%_ _%g188592188624%_)))) - (_%g188591188621%_ _%g188592188624%_)))) + (_%g189576189606%_ + _%g189577189609%_)) + (_%g189576189606%_ + _%g189577189609%_)) + (_%g189576189606%_ + _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)) + (_%g189576189606%_ _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188591188621%_ - _%g188592188624%_)))) - (_%g188591188621%_ _%g188592188624%_)) - (_%g188591188621%_ _%g188592188624%_)) - (_%g188591188621%_ _%g188592188624%_)))) - (_%g188591188621%_ _%g188592188624%_))))) - (_%g188590189287%_ _%stx188589%_)))) + (_%g189576189606%_ + _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)) + (_%g189576189606%_ _%g189577189609%_)) + (_%g189576189606%_ _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_))))) + (_%g189575190272%_ _%stx189574%_)))) (define gxc#optimize-match-body - (lambda (_%stx188295%_ - _%negation188296%_ - _%clauses188297%_ - _%konts188298%_) - (letrec ((_%push-variables188300%_ - (lambda (_%clause188547%_ _%kont188548%_) - (let ((_%clause188549188559%_ _%clause188547%_) - (_%kont188550188561%_ _%kont188548%_)) - (let* ((_%E188552188565%_ + (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" - _%clause188549188559%_ - _%kont188550188561%_ + _%clause189534189544%_ + _%kont189535189546%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K188553188572%_ - (lambda (_%clause-lambda188568%_ - _%clause-name188569%_ - _%K188570%_) - (cons _%clause-name188569%_ + (_%K189538189557%_ + (lambda (_%clause-lambda189553%_ + _%clause-name189554%_ + _%K189555%_) + (cons _%clause-name189554%_ (gxc#apply-push-match-vars__% '#f '() - _%K188570%_ - _%clause-lambda188568%_))))) - (if (pair? _%clause188549188559%_) - (let ((_%hd188556188575%_ + _%K189555%_ + _%clause-lambda189553%_))))) + (if (pair? _%clause189534189544%_) + (let ((_%hd189541189560%_ (let () (declare (not safe)) - (##car _%clause188549188559%_))) - (_%tl188557188577%_ + (##car _%clause189534189544%_))) + (_%tl189542189562%_ (let () (declare (not safe)) - (##cdr _%clause188549188559%_)))) - (let* ((_%clause-name188580%_ _%hd188556188575%_) - (_%clause-lambda188582%_ - _%tl188557188577%_)) - (if (pair? _%kont188550188561%_) - (let* ((_%hd188554188584%_ + (##cdr _%clause189534189544%_)))) + (let* ((_%clause-name189565%_ _%hd189541189560%_) + (_%clause-lambda189567%_ + _%tl189542189562%_)) + (if (pair? _%kont189535189546%_) + (let* ((_%hd189539189569%_ (let () (declare (not safe)) - (##car _%kont188550188561%_))) - (_%K188587%_ _%hd188554188584%_)) - (_%K188553188572%_ - _%clause-lambda188582%_ - _%clause-name188580%_ - _%K188587%_)) - (_%E188552188565%_)))) - (_%E188552188565%_)))))) - (_%start-match188301%_ - (lambda (_%kont188481%_) - (let* ((_%g188483188499%_ - (lambda (_%g188484188496%_) + (##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" - _%g188484188496%_)))) - (_%g188482188544%_ - (lambda (_%g188484188502%_) + _%g189469189481%_)))) + (_%g189467189529%_ + (lambda (_%g189469189487%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188484188502%_)) - (let ((_%e188486188504%_ + (gx#stx-pair? _%g189469189487%_)) + (let ((_%e189471189489%_ (let () (declare (not safe)) - (gx#stx-e _%g188484188502%_)))) - (let ((_%hd188487188507%_ + (gx#stx-e _%g189469189487%_)))) + (let ((_%hd189472189492%_ (let () (declare (not safe)) - (##car _%e188486188504%_))) - (_%tl188488188509%_ + (##car _%e189471189489%_))) + (_%tl189473189494%_ (let () (declare (not safe)) - (##cdr _%e188486188504%_)))) + (##cdr _%e189471189489%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188487188507%_)) + _%hd189472189492%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188487188507%_)) + _%hd189472189492%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188488188509%_)) - (let ((_%e188489188512%_ + _%tl189473189494%_)) + (let ((_%e189474189497%_ (let () (declare (not safe)) (gx#stx-e - _%tl188488188509%_)))) - (let ((_%hd188490188515%_ + _%tl189473189494%_)))) + (let ((_%hd189475189500%_ (let () (declare (not safe)) - (##car _%e188489188512%_))) - (_%tl188491188517%_ + (##car _%e189474189497%_))) + (_%tl189476189502%_ (let () (declare (not safe)) - (##cdr _%e188489188512%_)))) + (##cdr _%e189474189497%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd188490188515%_)) + _%hd189475189500%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl188491188517%_)) - (let ((_%e188492188520%_ + (gx#stx-pair? _%tl189476189502%_)) + (let ((_%e189477189505%_ (let () (declare (not safe)) - (gx#stx-e _%tl188491188517%_)))) - (let ((_%hd188493188523%_ + (gx#stx-e _%tl189476189502%_)))) + (let ((_%hd189478189508%_ (let () (declare (not safe)) - (##car _%e188492188520%_))) - (_%tl188494188525%_ + (##car _%e189477189505%_))) + (_%tl189479189510%_ (let () (declare (not safe)) - (##cdr _%e188492188520%_)))) + (##cdr _%e189477189505%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188494188525%_)) - ((lambda (_%L188528%_) _%L188528%_) - _%hd188493188523%_) - (_%g188483188499%_ _%g188484188502%_)))) - (_%g188483188499%_ _%g188484188502%_)) - (_%g188483188499%_ _%g188484188502%_)))) + (gx#stx-null? _%tl189479189510%_)) + ((lambda (_%L189513%_) _%L189513%_) + _%hd189478189508%_) + (_%g189468189484%_ _%g189469189487%_)))) + (_%g189468189484%_ _%g189469189487%_)) + (_%g189468189484%_ _%g189469189487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188483188499%_ - _%g188484188502%_)) - (_%g188483188499%_ - _%g188484188502%_)) - (_%g188483188499%_ - _%g188484188502%_)))) - (_%g188483188499%_ _%g188484188502%_))))) - (_%g188482188544%_ _%kont188481%_)))) - (_%match-body188302%_ - (lambda (_%blocks188378%_) - (let* ((_%blocks188379188388%_ _%blocks188378%_) - (_%E188381188392%_ + (_%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" - _%blocks188379188388%_ + _%blocks189364189373%_ '([[#f . start] . rest]))) '#!void)) - (_%K188382188464%_ - (lambda (_%rest188395%_ _%start188396%_) - (let _%lp188398%_ ((_%rest188400%_ - _%rest188395%_) - (_%body188401%_ - (_%start-match188301%_ - _%start188396%_))) - (let* ((_%rest188402188410%_ _%rest188400%_) - (_%else188404188418%_ - (lambda () _%body188401%_)) - (_%K188406188452%_ - (lambda (_%rest188421%_ - _%block188422%_) - (let* ((_%block188423188430%_ - _%block188422%_) - (_%E188425188434%_ + (_%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" - _%block188423188430%_ + _%block189408189415%_ '([K . kont]))) '#!void)) - (_%K188426188440%_ - (lambda (_%kont188437%_ - _%K188438%_) - (_%lp188398%_ - _%rest188421%_ + (_%K189411189425%_ + (lambda (_%kont189422%_ + _%K189423%_) + (_%lp189383%_ + _%rest189406%_ (cons '%#let-values - (cons (cons (cons (cons _%K188438%_ + (cons (cons (cons (cons _%K189423%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont188437%_ '())) + (cons _%kont189422%_ '())) '()) - (cons _%body188401%_ '()))))))) + (cons _%body189386%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%block188423188430%_) - (let ((_%hd188427188443%_ + (if (pair? _%block189408189415%_) + (let ((_%hd189412189428%_ (let () (declare (not safe)) - (##car _%block188423188430%_))) - (_%tl188428188445%_ + (##car _%block189408189415%_))) + (_%tl189413189430%_ (let () (declare (not safe)) - (##cdr _%block188423188430%_)))) - (let* ((_%K188448%_ - _%hd188427188443%_) - (_%kont188450%_ - _%tl188428188445%_)) - (_%K188426188440%_ - _%kont188450%_ - _%K188448%_))) - (_%E188425188434%_)))))) - (if (pair? _%rest188402188410%_) - (let ((_%hd188407188455%_ + (##cdr _%block189408189415%_)))) + (let* ((_%K189433%_ + _%hd189412189428%_) + (_%kont189435%_ + _%tl189413189430%_)) + (_%K189411189425%_ + _%kont189435%_ + _%K189433%_))) + (_%E189410189419%_)))))) + (if (pair? _%rest189387189395%_) + (let ((_%hd189392189440%_ (let () (declare (not safe)) - (##car _%rest188402188410%_))) - (_%tl188408188457%_ + (##car _%rest189387189395%_))) + (_%tl189393189442%_ (let () (declare (not safe)) - (##cdr _%rest188402188410%_)))) - (let* ((_%block188460%_ - _%hd188407188455%_) - (_%rest188462%_ - _%tl188408188457%_)) - (_%K188406188452%_ - _%rest188462%_ - _%block188460%_))) - (_%else188404188418%_))))))) - (if (pair? _%blocks188379188388%_) - (let ((_%hd188383188467%_ + (##cdr _%rest189387189395%_)))) + (let* ((_%block189445%_ + _%hd189392189440%_) + (_%rest189447%_ + _%tl189393189442%_)) + (_%K189391189437%_ + _%rest189447%_ + _%block189445%_))) + (_%else189389189403%_))))))) + (if (pair? _%blocks189364189373%_) + (let ((_%hd189368189452%_ (let () (declare (not safe)) - (##car _%blocks188379188388%_))) - (_%tl188384188469%_ + (##car _%blocks189364189373%_))) + (_%tl189369189454%_ (let () (declare (not safe)) - (##cdr _%blocks188379188388%_)))) - (if (pair? _%hd188383188467%_) - (let ((_%hd188385188472%_ + (##cdr _%blocks189364189373%_)))) + (if (pair? _%hd189368189452%_) + (let ((_%hd189370189457%_ (let () (declare (not safe)) - (##car _%hd188383188467%_))) - (_%tl188386188474%_ + (##car _%hd189368189452%_))) + (_%tl189371189459%_ (let () (declare (not safe)) - (##cdr _%hd188383188467%_)))) + (##cdr _%hd189368189452%_)))) (if (let () (declare (not safe)) - (##eq? _%hd188385188472%_ '#f)) - (let* ((_%start188477%_ - _%tl188386188474%_) - (_%rest188479%_ - _%tl188384188469%_)) - (_%K188382188464%_ - _%rest188479%_ - _%start188477%_)) - (_%E188381188392%_))) - (_%E188381188392%_))) - (_%E188381188392%_)))))) - (let ((__tmp192561 + (##eq? _%hd189370189457%_ '#f)) + (let* ((_%start189462%_ + _%tl189371189459%_) + (_%rest189464%_ + _%tl189369189454%_)) + (_%K189367189449%_ + _%rest189464%_ + _%start189462%_)) + (_%E189366189377%_))) + (_%E189366189377%_))) + (_%E189366189377%_)))))) + (let ((__tmp193546 (lambda () - (let* ((_%clauses188305%_ - (map _%push-variables188300%_ - _%clauses188297%_ - _%konts188298%_)) - (_%blocks188307%_ - (gxc#optimize-match-basic-blocks _%clauses188305%_)) - (_%blocks188309%_ + (let* ((_%clauses189290%_ + (map _%push-variables189285%_ + _%clauses189282%_ + _%konts189283%_)) + (_%blocks189292%_ + (gxc#optimize-match-basic-blocks _%clauses189290%_)) + (_%blocks189294%_ (gxc#optimize-match-fold-basic-blocks - _%blocks188307%_)) - (_%body188311%_ - (_%match-body188302%_ _%blocks188309%_)) - (_%bind188345%_ - (map (lambda (_%e188312188314%_) - (let* ((_%g188316188323%_ _%e188312188314%_) - (_%E188318188327%_ + _%blocks189292%_)) + (_%body189296%_ + (_%match-body189287%_ _%blocks189294%_)) + (_%bind189330%_ + (map (lambda (_%e189297189299%_) + (let* ((_%g189301189308%_ _%e189297189299%_) + (_%E189303189312%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g188316188323%_ + _%g189301189308%_ '([K . kont]))) '#!void)) - (_%K188319188333%_ - (lambda (_%kont188330%_ _%K188331%_) - (cons (cons _%K188331%_ '()) - (cons _%kont188330%_ '()))))) - (if (pair? _%g188316188323%_) - (let ((_%hd188320188336%_ + (_%K189304189318%_ + (lambda (_%kont189315%_ _%K189316%_) + (cons (cons _%K189316%_ '()) + (cons _%kont189315%_ '()))))) + (if (pair? _%g189301189308%_) + (let ((_%hd189305189321%_ (let () (declare (not safe)) - (##car _%g188316188323%_))) - (_%tl188321188338%_ + (##car _%g189301189308%_))) + (_%tl189306189323%_ (let () (declare (not safe)) - (##cdr _%g188316188323%_)))) - (let* ((_%K188341%_ - _%hd188320188336%_) - (_%kont188343%_ - _%tl188321188338%_)) - (_%K188319188333%_ - _%kont188343%_ - _%K188341%_))) - (_%E188318188327%_)))) - _%konts188298%_)) - (_%negate188375%_ - (let* ((_%negation188346188353%_ _%negation188296%_) - (_%E188348188357%_ + (##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" - _%negation188346188353%_ + _%negation189331189338%_ '([K . kont]))) '#!void)) - (_%K188349188363%_ - (lambda (_%kont188360%_ _%K188361%_) - (cons (cons _%K188361%_ '()) - (cons _%kont188360%_ '()))))) - (if (pair? _%negation188346188353%_) - (let ((_%hd188350188366%_ + (_%K189334189348%_ + (lambda (_%kont189345%_ _%K189346%_) + (cons (cons _%K189346%_ '()) + (cons _%kont189345%_ '()))))) + (if (pair? _%negation189331189338%_) + (let ((_%hd189335189351%_ (let () (declare (not safe)) - (##car _%negation188346188353%_))) - (_%tl188351188368%_ + (##car _%negation189331189338%_))) + (_%tl189336189353%_ (let () (declare (not safe)) - (##cdr _%negation188346188353%_)))) - (let* ((_%K188371%_ _%hd188350188366%_) - (_%kont188373%_ _%tl188351188368%_)) - (_%K188349188363%_ - _%kont188373%_ - _%K188371%_))) - (_%E188348188357%_)))) - (__tmp192562 + (##cdr _%negation189331189338%_)))) + (let* ((_%K189356%_ _%hd189335189351%_) + (_%kont189358%_ _%tl189336189353%_)) + (_%K189334189348%_ + _%kont189358%_ + _%K189356%_))) + (_%E189333189342%_)))) + (__tmp193547 (cons '%#let-values - (cons (cons _%negate188375%_ '()) + (cons (cons _%negate189360%_ '()) (cons (cons '%#let-values - (cons _%bind188345%_ - (cons _%body188311%_ + (cons _%bind189330%_ + (cons _%body189296%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192562 _%stx188295%_)))) - (__tmp192560 - (let ((__obj192541 + (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 __obj192541)) - __obj192541))) + (gx#local-context:::init!__0 __obj193526)) + __obj193526))) (declare (not safe)) (__call-with-parameters - __tmp192561 + __tmp193546 gx#current-expander-context - __tmp192560))))) + __tmp193545))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses188255%_) - (let _%lp188257%_ ((_%rest188259%_ _%clauses188255%_) - (_%blocks188260%_ '())) - (let* ((_%rest188261188269%_ _%rest188259%_) - (_%else188263188277%_ (lambda () (reverse _%blocks188260%_))) - (_%K188265188283%_ - (lambda (_%rest188280%_ _%clause188281%_) - (_%lp188257%_ - _%rest188280%_ + (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 - _%clause188281%_ - _%blocks188260%_))))) - (if (pair? _%rest188261188269%_) - (let ((_%hd188266188286%_ + _%clause189266%_ + _%blocks189245%_))))) + (if (pair? _%rest189246189254%_) + (let ((_%hd189251189271%_ (let () (declare (not safe)) - (##car _%rest188261188269%_))) - (_%tl188267188288%_ + (##car _%rest189246189254%_))) + (_%tl189252189273%_ (let () (declare (not safe)) - (##cdr _%rest188261188269%_)))) - (let* ((_%clause188291%_ _%hd188266188286%_) - (_%rest188293%_ _%tl188267188288%_)) - (_%K188265188283%_ _%rest188293%_ _%clause188291%_))) - (_%else188263188277%_)))))) + (##cdr _%rest189246189254%_)))) + (let* ((_%clause189276%_ _%hd189251189271%_) + (_%rest189278%_ _%tl189252189273%_)) + (_%K189250189268%_ _%rest189278%_ _%clause189276%_))) + (_%else189248189262%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause187598%_ _%blocks187599%_) - (letrec ((_%bind->args187601%_ - (lambda (_%bind188250%_) - (let ((__tmp192563 - (lambda (_%b188252%_ _%r188253%_) - (cons (cons '%#ref (cons (car _%b188252%_) '())) - _%r188253%_)))) + (lambda (_%clause188583%_ _%blocks188584%_) + (letrec ((_%bind->args188586%_ + (lambda (_%bind189235%_) + (let ((__tmp193548 + (lambda (_%b189237%_ _%r189238%_) + (cons (cons '%#ref (cons (car _%b189237%_) '())) + _%r189238%_)))) (declare (not safe)) - (__foldl1 __tmp192563 '() _%bind188250%_)))) - (_%create-block187602%_ - (lambda (_%body188198%_ - _%let-bind188199%_ - _%bind188200%_ - _%assert188201%_) - (let* ((_%id188203%_ - (let ((__tmp192564 + (__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 __tmp192564))) - (_%id188205%_ + (make-symbol__0 __tmp193549))) + (_%id189190%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id188203%_))) - (_%_188207%_ + (gx#core-quote-syntax__0 _%id189188%_))) + (_%_189192%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id188205%_))) - (_%block188209%_ - (cons _%id188205%_ - (cons _%body188198%_ - (cons _%bind188200%_ - (cons _%assert188201%_ '()))))) - (_%continue188211%_ + (gx#core-bind-runtime!__0 _%id189190%_))) + (_%block189194%_ + (cons _%id189190%_ + (cons _%body189183%_ + (cons _%bind189185%_ + (cons _%assert189186%_ '()))))) + (_%continue189196%_ (cons '%#call - (cons (cons '%#ref (cons _%id188205%_ '())) - (_%bind->args187601%_ - _%bind188200%_)))) - (_%continue188247%_ - (if (null? _%let-bind188199%_) - _%continue188211%_ - (let ((_%locals188245%_ - (map (lambda (_%e188212188214%_) - (let* ((_%g188216188223%_ - _%e188212188214%_) - (_%E188218188227%_ + (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" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g188216188223%_ + _%g189201189208%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K188219188233%_ - (lambda (_%expr188230%_ - _%id188231%_) - (cons (cons _%id188231%_ + (_%K189204189218%_ + (lambda (_%expr189215%_ + _%id189216%_) + (cons (cons _%id189216%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr188230%_ '()))))) + (cons _%expr189215%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g188216188223%_) - (let ((_%hd188220188236%_ + (if (pair? _%g189201189208%_) + (let ((_%hd189205189221%_ (let () (declare (not safe)) - (##car _%g188216188223%_))) - (_%tl188221188238%_ + (##car _%g189201189208%_))) + (_%tl189206189223%_ (let () (declare (not safe)) - (##cdr _%g188216188223%_)))) - (let* ((_%id188241%_ - _%hd188220188236%_) - (_%expr188243%_ - _%tl188221188238%_)) - (_%K188219188233%_ - _%expr188243%_ - _%id188241%_))) - (_%E188218188227%_)))) - _%let-bind188199%_))) + (##cdr _%g189201189208%_)))) + (let* ((_%id189226%_ + _%hd189205189221%_) + (_%expr189228%_ + _%tl189206189223%_)) + (_%K189204189218%_ + _%expr189228%_ + _%id189226%_))) + (_%E189203189212%_)))) + _%let-bind189184%_))) (cons '%#let-values - (cons _%locals188245%_ - (cons _%continue188211%_ + (cons _%locals189230%_ + (cons _%continue189196%_ '()))))))) - (values _%continue188247%_ _%block188209%_)))) - (_%basic-block187603%_ - (lambda (_%body187784%_ _%bind187785%_ _%assert187786%_) - (let* ((_%__stx189762189763%_ _%body187784%_) - (_%g187791187875%_ + (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" - _%__stx189762189763%_))))) - (let ((_%__kont189764189765%_ - (lambda (_%L188134%_ _%L188135%_ _%L188136%_) - (let ((_g192565_ - (_%create-block187602%_ - _%L188135%_ + _%__stx190747190748%_))))) + (let ((_%__kont190749190750%_ + (lambda (_%L189119%_ _%L189120%_ _%L189121%_) + (let ((_g193550_ + (_%create-block188587%_ + _%L189120%_ '() - _%bind187785%_ - (cons (cons _%L188136%_ '#t) - _%assert187786%_)))) + _%bind188770%_ + (cons (cons _%L189121%_ '#t) + _%assert188771%_)))) (begin - (let ((_g192566_ + (let ((_g193551_ (let () (declare (not safe)) - (if (##values? _g192565_) - (##values-length _g192565_) + (if (##values? _g193550_) + (##values-length _g193550_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192566_ 2))) + (##fx= _g193551_ 2))) (error "Context expects 2 values" - _g192566_))) - (let ((_%k-continue188154%_ + _g193551_))) + (let ((_%k-continue189139%_ (let () (declare (not safe)) - (##values-ref _g192565_ 0))) - (_%k-block188155%_ + (##values-ref _g193550_ 0))) + (_%k-block189140%_ (let () (declare (not safe)) - (##values-ref _g192565_ 1)))) - (let* ((_%__stx189744189745%_ _%L188134%_) - (_%g188158188167%_ + (##values-ref _g193550_ 1)))) + (let* ((_%__stx190729190730%_ _%L189119%_) + (_%g189143189152%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189744189745%_))))) - (let ((_%__kont189746189747%_ + _%__stx190729190730%_))))) + (let ((_%__kont190731190732%_ (lambda () (values (cons '%#if - (cons _%L188136%_ + (cons _%L189121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue188154%_ - (cons _%L188134%_ '())))) - (cons _%k-block188155%_ '())))) + (cons _%k-continue189139%_ + (cons _%L189119%_ '())))) + (cons _%k-block189140%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_ + (_%__kont190733190734%_ (lambda () - (let ((_g192567_ - (_%create-block187602%_ - _%L188134%_ + (let ((_g193552_ + (_%create-block188587%_ + _%L189119%_ '() - _%bind187785%_ - (cons (cons _%L188136%_ + _%bind188770%_ + (cons (cons _%L189121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert187786%_)))) + _%assert188771%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g192568_ + (let ((_g193553_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g192567_) - (##values-length _g192567_) + _g193552_) + (##values-length _g193552_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g192568_ 2))) - (error "Context expects 2 values" _g192568_))) + (if (not (let () (declare (not safe)) (##fx= _g193553_ 2))) + (error "Context expects 2 values" _g193553_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue188174%_ + (let ((_%e-continue189159%_ (let () (declare (not safe)) (##values-ref - _g192567_ + _g193552_ 0))) - (_%e-block188175%_ + (_%e-block189160%_ (let () (declare (not safe)) (##values-ref - _g192567_ + _g193552_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L188136%_ - (cons _%k-continue188154%_ - (cons _%e-continue188174%_ '())))) - (cons _%k-block188155%_ - (cons _%e-block188175%_ '()))))))))) + (cons _%L189121%_ + (cons _%k-continue189139%_ + (cons _%e-continue189159%_ '())))) + (cons _%k-block189140%_ + (cons _%e-block189160%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189744189745%_)) - (let ((_%e188160188182%_ + _%__stx190729190730%_)) + (let ((_%e189145189167%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189744189745%_)))) - (let ((_%tl188162188187%_ + _%__stx190729190730%_)))) + (let ((_%tl189147189172%_ (let () (declare (not safe)) - (##cdr _%e188160188182%_))) - (_%hd188161188185%_ + (##cdr _%e189145189167%_))) + (_%hd189146189170%_ (let () (declare (not safe)) - (##car _%e188160188182%_)))) + (##car _%e189145189167%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188161188185%_)) + _%hd189146189170%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd188161188185%_)) - (_%__kont189746189747%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))))))))) - (_%__kont189766189767%_ - (lambda () (values _%body187784%_ '()))) - (_%__kont189770189771%_ - (lambda (_%L187963%_ _%L187964%_ _%L187965%_) - (let* ((_%let-bind188000%_ + _%hd189146189170%_)) + (_%__kont190731190732%_) + (_%__kont190733190734%_)) + (_%__kont190733190734%_)))) + (_%__kont190733190734%_))))))))) + (_%__kont190751190752%_ + (lambda () (values _%body188769%_ '()))) + (_%__kont190755190756%_ + (lambda (_%L188948%_ _%L188949%_ _%L188950%_) + (let* ((_%let-bind188985%_ (map cons - (let ((__tmp192569 - (lambda (_%g187985187988%_ - _%g187986187990%_) - (cons _%g187985187988%_ - _%g187986187990%_)))) + (let ((__tmp193554 + (lambda (_%g188970188973%_ + _%g188971188975%_) + (cons _%g188970188973%_ + _%g188971188975%_)))) (declare (not safe)) (__foldr1 - __tmp192569 + __tmp193554 '() - _%L187965%_)) - (let ((__tmp192570 - (lambda (_%g187992187995%_ - _%g187993187997%_) - (cons _%g187992187995%_ - _%g187993187997%_)))) + _%L188950%_)) + (let ((__tmp193555 + (lambda (_%g188977188980%_ + _%g188978188982%_) + (cons _%g188977188980%_ + _%g188978188982%_)))) (declare (not safe)) (__foldr1 - __tmp192570 + __tmp193555 '() - _%L187964%_)))) - (_g192571_ - (_%create-block187602%_ - _%L187963%_ - _%let-bind188000%_ + _%L188949%_)))) + (_g193556_ + (_%create-block188587%_ + _%L188948%_ + _%let-bind188985%_ (let () (declare (not safe)) (__foldl1 cons - _%bind187785%_ - _%let-bind188000%_)) - _%assert187786%_))) + _%bind188770%_ + _%let-bind188985%_)) + _%assert188771%_))) (begin - (let ((_g192572_ + (let ((_g193557_ (let () (declare (not safe)) - (if (##values? _g192571_) - (##values-length _g192571_) + (if (##values? _g193556_) + (##values-length _g193556_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192572_ 2))) + (##fx= _g193557_ 2))) (error "Context expects 2 values" - _g192572_))) - (let ((_%continue188002%_ + _g193557_))) + (let ((_%continue188987%_ (let () (declare (not safe)) - (##values-ref _g192571_ 0))) - (_%block188003%_ + (##values-ref _g193556_ 0))) + (_%block188988%_ (let () (declare (not safe)) - (##values-ref _g192571_ 1)))) - (values _%continue188002%_ - (cons _%block188003%_ '()))))))) - (_%__kont189774189775%_ - (lambda () (values _%body187784%_ '())))) - (let* ((_%__match189853189854%_ - (lambda (_%e187842187887%_ - _%hd187843187890%_ - _%tl187844187892%_ - _%e187845187895%_ - _%hd187846187898%_ - _%tl187847187900%_ - _%__splice189772189773%_ - _%target187848187903%_ - _%tl187850187905%_) - (letrec ((_%loop187851187908%_ - (lambda (_%hd187849187911%_ - _%expr187855187913%_ - _%id187856187915%_) + (##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? - _%hd187849187911%_)) - (let ((_%e187852187918%_ + _%hd188834188896%_)) + (let ((_%e188837188903%_ (let () (declare (not safe)) (gx#stx-e - _%hd187849187911%_)))) - (let ((_%lp-tl187854187923%_ + _%hd188834188896%_)))) + (let ((_%lp-tl188839188908%_ (let () (declare (not safe)) - (##cdr _%e187852187918%_))) - (_%lp-hd187853187921%_ + (##cdr _%e188837188903%_))) + (_%lp-hd188838188906%_ (let () (declare (not safe)) - (##car _%e187852187918%_)))) + (##car _%e188837188903%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187853187921%_)) - (let ((_%e187862187926%_ + _%lp-hd188838188906%_)) + (let ((_%e188847188911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187853187921%_)))) - (let ((_%tl187864187931%_ + (gx#stx-e _%lp-hd188838188906%_)))) + (let ((_%tl188849188916%_ (let () (declare (not safe)) - (##cdr _%e187862187926%_))) - (_%hd187863187929%_ + (##cdr _%e188847188911%_))) + (_%hd188848188914%_ (let () (declare (not safe)) - (##car _%e187862187926%_)))) + (##car _%e188847188911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187863187929%_)) - (let ((_%e187865187934%_ + (gx#stx-pair? _%hd188848188914%_)) + (let ((_%e188850188919%_ (let () (declare (not safe)) - (gx#stx-e _%hd187863187929%_)))) - (let ((_%tl187867187939%_ + (gx#stx-e _%hd188848188914%_)))) + (let ((_%tl188852188924%_ (let () (declare (not safe)) - (##cdr _%e187865187934%_))) - (_%hd187866187937%_ + (##cdr _%e188850188919%_))) + (_%hd188851188922%_ (let () (declare (not safe)) - (##car _%e187865187934%_)))) + (##car _%e188850188919%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187867187939%_)) + (gx#stx-null? _%tl188852188924%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187864187931%_)) - (let ((_%e187868187942%_ + (gx#stx-pair? _%tl188849188916%_)) + (let ((_%e188853188927%_ (let () (declare (not safe)) - (gx#stx-e _%tl187864187931%_)))) - (let ((_%tl187870187947%_ + (gx#stx-e _%tl188849188916%_)))) + (let ((_%tl188855188932%_ (let () (declare (not safe)) - (##cdr _%e187868187942%_))) - (_%hd187869187945%_ + (##cdr _%e188853188927%_))) + (_%hd188854188930%_ (let () (declare (not safe)) - (##car _%e187868187942%_)))) + (##car _%e188853188927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187870187947%_)) - (_%loop187851187908%_ - _%lp-tl187854187923%_ - (cons _%hd187869187945%_ - _%expr187855187913%_) - (cons _%hd187866187937%_ - _%id187856187915%_)) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_)) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_)))) + _%tl188855188932%_)) + (_%loop188836188893%_ + _%lp-tl188839188908%_ + (cons _%hd188854188930%_ + _%expr188840188898%_) + (cons _%hd188851188922%_ + _%id188841188900%_)) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id187858187952%_ - (reverse _%id187856187915%_)) - (_%expr187857187950%_ - (reverse _%expr187855187913%_))) + (let ((_%id188843188937%_ + (reverse _%id188841188900%_)) + (_%expr188842188935%_ + (reverse _%expr188840188898%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187847187900%_)) - (let ((_%e187859187955%_ + _%tl188832188885%_)) + (let ((_%e188844188940%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187847187900%_)))) - (let ((_%tl187861187960%_ + (gx#stx-e _%tl188832188885%_)))) + (let ((_%tl188846188945%_ (let () (declare (not safe)) - (##cdr _%e187859187955%_))) - (_%hd187860187958%_ + (##cdr _%e188844188940%_))) + (_%hd188845188943%_ (let () (declare (not safe)) - (##car _%e187859187955%_)))) + (##car _%e188844188940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187861187960%_)) - (_%__kont189770189771%_ - _%hd187860187958%_ - _%expr187857187950%_ - _%id187858187952%_) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_))))))) + (gx#stx-null? _%tl188846188945%_)) + (_%__kont190755190756%_ + _%hd188845188943%_ + _%expr188842188935%_ + _%id188843188937%_) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187851187908%_ - _%target187848187903%_ + (_%loop188836188893%_ + _%target188833188888%_ '() '())))) - (_%__match189829189830%_ - (lambda (_%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_) - (letrec ((_%loop187817188032%_ - (lambda (_%hd187815188035%_) + (_%__match190814190815%_ + (lambda (_%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_) + (letrec ((_%loop188802189017%_ + (lambda (_%hd188800189020%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187815188035%_)) - (let ((_%e187818188038%_ + _%hd188800189020%_)) + (let ((_%e188803189023%_ (let () (declare (not safe)) (gx#stx-e - _%hd187815188035%_)))) - (let ((_%lp-tl187820188043%_ + _%hd188800189020%_)))) + (let ((_%lp-tl188805189028%_ (let () (declare (not safe)) - (##cdr _%e187818188038%_))) - (_%lp-hd187819188041%_ + (##cdr _%e188803189023%_))) + (_%lp-hd188804189026%_ (let () (declare (not safe)) - (##car _%e187818188038%_)))) + (##car _%e188803189023%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187819188041%_)) - (let ((_%e187824188046%_ + _%lp-hd188804189026%_)) + (let ((_%e188809189031%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187819188041%_)))) - (let ((_%tl187826188051%_ + (gx#stx-e _%lp-hd188804189026%_)))) + (let ((_%tl188811189036%_ (let () (declare (not safe)) - (##cdr _%e187824188046%_))) - (_%hd187825188049%_ + (##cdr _%e188809189031%_))) + (_%hd188810189034%_ (let () (declare (not safe)) - (##car _%e187824188046%_)))) + (##car _%e188809189031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187825188049%_)) - (let ((_%e187827188054%_ + (gx#stx-pair? _%hd188810189034%_)) + (let ((_%e188812189039%_ (let () (declare (not safe)) - (gx#stx-e _%hd187825188049%_)))) - (let ((_%tl187829188059%_ + (gx#stx-e _%hd188810189034%_)))) + (let ((_%tl188814189044%_ (let () (declare (not safe)) - (##cdr _%e187827188054%_))) - (_%hd187828188057%_ + (##cdr _%e188812189039%_))) + (_%hd188813189042%_ (let () (declare (not safe)) - (##car _%e187827188054%_)))) + (##car _%e188812189039%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187829188059%_)) + (gx#stx-null? _%tl188814189044%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187826188051%_)) - (let ((_%e187830188062%_ + (gx#stx-pair? _%tl188811189036%_)) + (let ((_%e188815189047%_ (let () (declare (not safe)) - (gx#stx-e _%tl187826188051%_)))) - (let ((_%tl187832188067%_ + (gx#stx-e _%tl188811189036%_)))) + (let ((_%tl188817189052%_ (let () (declare (not safe)) - (##cdr _%e187830188062%_))) - (_%hd187831188065%_ + (##cdr _%e188815189047%_))) + (_%hd188816189050%_ (let () (declare (not safe)) - (##car _%e187830188062%_)))) + (##car _%e188815189047%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187831188065%_)) - (let ((_%e187833188070%_ + _%hd188816189050%_)) + (let ((_%e188818189055%_ (let () (declare (not safe)) (gx#stx-e - _%hd187831188065%_)))) - (let ((_%tl187835188075%_ + _%hd188816189050%_)))) + (let ((_%tl188820189060%_ (let () (declare (not safe)) - (##cdr _%e187833188070%_))) - (_%hd187834188073%_ + (##cdr _%e188818189055%_))) + (_%hd188819189058%_ (let () (declare (not safe)) - (##car _%e187833188070%_)))) + (##car _%e188818189055%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187834188073%_)) + _%hd188819189058%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd187834188073%_)) + _%hd188819189058%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187835188075%_)) - (let ((_%e187836188078%_ + (gx#stx-pair? _%tl188820189060%_)) + (let ((_%e188821189063%_ (let () (declare (not safe)) - (gx#stx-e _%tl187835188075%_)))) - (let ((_%tl187838188083%_ + (gx#stx-e _%tl188820189060%_)))) + (let ((_%tl188823189068%_ (let () (declare (not safe)) - (##cdr _%e187836188078%_))) - (_%hd187837188081%_ + (##cdr _%e188821189063%_))) + (_%hd188822189066%_ (let () (declare (not safe)) - (##car _%e187836188078%_)))) + (##car _%e188821189063%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187838188083%_)) + (gx#stx-null? _%tl188823189068%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187832188067%_)) - (_%loop187817188032%_ _%lp-tl187820188043%_) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))) + (_%__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? - _%tl187813188024%_)) - (let ((_%e187821188087%_ + _%tl188798189009%_)) + (let ((_%e188806189072%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187813188024%_)))) - (let ((_%tl187823188092%_ - (let () (declare (not safe)) (##cdr _%e187821188087%_))) - (_%hd187822188090%_ + (gx#stx-e _%tl188798189009%_)))) + (let ((_%tl188808189077%_ + (let () (declare (not safe)) (##cdr _%e188806189072%_))) + (_%hd188807189075%_ (let () (declare (not safe)) - (##car _%e187821188087%_)))) + (##car _%e188806189072%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187823188092%_)) - (_%__kont189766189767%_) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))) - (_%__match189853189854%_ - _%e187808188011%_ - _%hd187809188014%_ - _%tl187810188016%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_)))))) + (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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187817188032%_ - _%target187814188027%_))))) + (_%loop188802189017%_ + _%target188799189012%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189762189763%_)) - (let ((_%e187796188102%_ + (gx#stx-pair? _%__stx190747190748%_)) + (let ((_%e188781189087%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189762189763%_)))) - (let ((_%tl187798188107%_ + (gx#stx-e _%__stx190747190748%_)))) + (let ((_%tl188783189092%_ (let () (declare (not safe)) - (##cdr _%e187796188102%_))) - (_%hd187797188105%_ + (##cdr _%e188781189087%_))) + (_%hd188782189090%_ (let () (declare (not safe)) - (##car _%e187796188102%_)))) + (##car _%e188781189087%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187797188105%_)) + (gx#identifier? _%hd188782189090%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd187797188105%_)) + _%hd188782189090%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187798188107%_)) - (let ((_%e187799188110%_ + _%tl188783189092%_)) + (let ((_%e188784189095%_ (let () (declare (not safe)) (gx#stx-e - _%tl187798188107%_)))) - (let ((_%tl187801188115%_ + _%tl188783189092%_)))) + (let ((_%tl188786189100%_ (let () (declare (not safe)) - (##cdr _%e187799188110%_))) - (_%hd187800188113%_ + (##cdr _%e188784189095%_))) + (_%hd188785189098%_ (let () (declare (not safe)) - (##car _%e187799188110%_)))) + (##car _%e188784189095%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187801188115%_)) - (let ((_%e187802188118%_ + _%tl188786189100%_)) + (let ((_%e188787189103%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187801188115%_)))) - (let ((_%tl187804188123%_ - (let () (declare (not safe)) (##cdr _%e187802188118%_))) - (_%hd187803188121%_ + (gx#stx-e _%tl188786189100%_)))) + (let ((_%tl188789189108%_ + (let () (declare (not safe)) (##cdr _%e188787189103%_))) + (_%hd188788189106%_ (let () (declare (not safe)) - (##car _%e187802188118%_)))) + (##car _%e188787189103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187804188123%_)) - (let ((_%e187805188126%_ + (gx#stx-pair? _%tl188789189108%_)) + (let ((_%e188790189111%_ (let () (declare (not safe)) - (gx#stx-e _%tl187804188123%_)))) - (let ((_%tl187807188131%_ + (gx#stx-e _%tl188789189108%_)))) + (let ((_%tl188792189116%_ (let () (declare (not safe)) - (##cdr _%e187805188126%_))) - (_%hd187806188129%_ + (##cdr _%e188790189111%_))) + (_%hd188791189114%_ (let () (declare (not safe)) - (##car _%e187805188126%_)))) + (##car _%e188790189111%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187807188131%_)) - (_%__kont189764189765%_ - _%hd187806188129%_ - _%hd187803188121%_ - _%hd187800188113%_) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_)))) + (gx#stx-null? _%tl188792189116%_)) + (_%__kont190749190750%_ + _%hd188791189114%_ + _%hd188788189106%_ + _%hd188785189098%_) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189774189775%_)) + (_%__kont190759190760%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187797188105%_)) + _%hd188782189090%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187798188107%_)) - (let ((_%e187811188019%_ + _%tl188783189092%_)) + (let ((_%e188796189004%_ (let () (declare (not safe)) (gx#stx-e - _%tl187798188107%_)))) - (let ((_%tl187813188024%_ + _%tl188783189092%_)))) + (let ((_%tl188798189009%_ (let () (declare (not safe)) - (##cdr _%e187811188019%_))) - (_%hd187812188022%_ + (##cdr _%e188796189004%_))) + (_%hd188797189007%_ (let () (declare (not safe)) - (##car _%e187811188019%_)))) + (##car _%e188796189004%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd187812188022%_)) - (let ((_%__splice189768189769%_ + _%hd188797189007%_)) + (let ((_%__splice190753190754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd187812188022%_ '0)))) - (let ((_%tl187816188029%_ + (gx#syntax-split-splice _%hd188797189007%_ '0)))) + (let ((_%tl188801189014%_ (let () (declare (not safe)) - (##vector-ref _%__splice189768189769%_ '1))) - (_%target187814188027%_ + (##vector-ref _%__splice190753190754%_ '1))) + (_%target188799189012%_ (let () (declare (not safe)) - (##vector-ref _%__splice189768189769%_ '0)))) + (##vector-ref _%__splice190753190754%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187816188029%_)) - (_%__match189829189830%_ - _%e187796188102%_ - _%hd187797188105%_ - _%tl187798188107%_ - _%e187811188019%_ - _%hd187812188022%_ - _%tl187813188024%_ - _%__splice189768189769%_ - _%target187814188027%_ - _%tl187816188029%_) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_)))) + (gx#stx-null? _%tl188801189014%_)) + (_%__match190814190815%_ + _%e188781189087%_ + _%hd188782189090%_ + _%tl188783189092%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189774189775%_)) - (_%__kont189774189775%_))) - (_%__kont189774189775%_)))) - (_%__kont189774189775%_))))))) - (_%fold-blocks187604%_ - (lambda (_%rest187703%_ _%blocks187704%_) - (let* ((_%rest187705187722%_ _%rest187703%_) - (_%E187708187726%_ + (_%__kont190759190760%_)) + (_%__kont190759190760%_))) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_))))))) + (_%fold-blocks188589%_ + (lambda (_%rest188688%_ _%blocks188689%_) + (let* ((_%rest188690188707%_ _%rest188688%_) + (_%E188693188711%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest187705187722%_ + _%rest188690188707%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K187710187746%_ - (lambda (_%rest187737%_ - _%assert187738%_ - _%bind187739%_ - _%body187740%_ - _%name187741%_) - (let ((_g192573_ - (_%basic-block187603%_ - _%body187740%_ - _%bind187739%_ - _%assert187738%_))) + (let ((_%K188695188731%_ + (lambda (_%rest188722%_ + _%assert188723%_ + _%bind188724%_ + _%body188725%_ + _%name188726%_) + (let ((_g193558_ + (_%basic-block188588%_ + _%body188725%_ + _%bind188724%_ + _%assert188723%_))) (begin - (let ((_g192574_ + (let ((_g193559_ (let () (declare (not safe)) - (if (##values? _g192573_) - (##values-length _g192573_) + (if (##values? _g193558_) + (##values-length _g193558_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192574_ 2))) + (##fx= _g193559_ 2))) (error "Context expects 2 values" - _g192574_))) - (let ((_%body187743%_ + _g193559_))) + (let ((_%body188728%_ (let () (declare (not safe)) - (##values-ref _g192573_ 0))) - (_%body-blocks187744%_ + (##values-ref _g193558_ 0))) + (_%body-blocks188729%_ (let () (declare (not safe)) - (##values-ref _g192573_ 1)))) - (_%fold-blocks187604%_ + (##values-ref _g193558_ 1)))) + (_%fold-blocks188589%_ (let () (declare (not safe)) (__foldl1 cons - _%rest187737%_ - _%body-blocks187744%_)) - (cons (cons _%name187741%_ + _%rest188722%_ + _%body-blocks188729%_)) + (cons (cons _%name188726%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp192575 (map car _%bind187739%_))) + (cons (let ((__tmp193560 (map car _%bind188724%_))) (declare (not safe)) - (##reverse __tmp192575)) - (cons _%body187743%_ '()))) - (cons _%assert187738%_ (cons _%bind187739%_ '()))))) + (##reverse __tmp193560)) + (cons _%body188728%_ '()))) + (cons _%assert188723%_ (cons _%bind188724%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187704%_))))))) - (_%K187709187731%_ (lambda () _%blocks187704%_))) - (let ((_%try-match187707187734%_ + _%blocks188689%_))))))) + (_%K188694188716%_ (lambda () _%blocks188689%_))) + (let ((_%try-match188692188719%_ (lambda () - (if (null? _%rest187705187722%_) - (_%K187709187731%_) - (_%E187708187726%_))))) - (if (pair? _%rest187705187722%_) - (let ((_%tl187712187751%_ + (if (null? _%rest188690188707%_) + (_%K188694188716%_) + (_%E188693188711%_))))) + (if (pair? _%rest188690188707%_) + (let ((_%tl188697188736%_ (let () (declare (not safe)) - (##cdr _%rest187705187722%_))) - (_%hd187711187749%_ + (##cdr _%rest188690188707%_))) + (_%hd188696188734%_ (let () (declare (not safe)) - (##car _%rest187705187722%_)))) - (if (pair? _%hd187711187749%_) - (let ((_%tl187714187756%_ + (##car _%rest188690188707%_)))) + (if (pair? _%hd188696188734%_) + (let ((_%tl188699188741%_ (let () (declare (not safe)) - (##cdr _%hd187711187749%_))) - (_%hd187713187754%_ + (##cdr _%hd188696188734%_))) + (_%hd188698188739%_ (let () (declare (not safe)) - (##car _%hd187711187749%_)))) - (if (pair? _%tl187714187756%_) - (let ((_%tl187716187763%_ + (##car _%hd188696188734%_)))) + (if (pair? _%tl188699188741%_) + (let ((_%tl188701188748%_ (let () (declare (not safe)) - (##cdr _%tl187714187756%_))) - (_%hd187715187761%_ + (##cdr _%tl188699188741%_))) + (_%hd188700188746%_ (let () (declare (not safe)) - (##car _%tl187714187756%_)))) - (if (pair? _%tl187716187763%_) - (let ((_%tl187718187770%_ + (##car _%tl188699188741%_)))) + (if (pair? _%tl188701188748%_) + (let ((_%tl188703188755%_ (let () (declare (not safe)) - (##cdr _%tl187716187763%_))) - (_%hd187717187768%_ + (##cdr _%tl188701188748%_))) + (_%hd188702188753%_ (let () (declare (not safe)) - (##car _%tl187716187763%_)))) - (if (pair? _%tl187718187770%_) - (let ((_%tl187720187777%_ + (##car _%tl188701188748%_)))) + (if (pair? _%tl188703188755%_) + (let ((_%tl188705188762%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl187718187770%_))) - (_%hd187719187775%_ - (let () (declare (not safe)) (##car _%tl187718187770%_)))) - (if (null? _%tl187720187777%_) - (let ((_%name187759%_ _%hd187713187754%_) - (_%body187766%_ _%hd187715187761%_) - (_%bind187773%_ _%hd187717187768%_) - (_%assert187780%_ _%hd187719187775%_) - (_%rest187782%_ _%tl187712187751%_)) - (_%K187710187746%_ - _%rest187782%_ - _%assert187780%_ - _%bind187773%_ - _%body187766%_ - _%name187759%_)) - (_%E187708187726%_))) - (_%E187708187726%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E187708187726%_))) - (_%E187708187726%_))) - (_%E187708187726%_))) - (_%try-match187707187734%_)))))))) - (let* ((_%clause187605187612%_ _%clause187598%_) - (_%E187607187616%_ + (_%E188693188711%_))) + (_%E188693188711%_))) + (_%E188693188711%_))) + (_%try-match188692188719%_)))))))) + (let* ((_%clause188590188597%_ _%clause188583%_) + (_%E188592188601%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause187605187612%_ + _%clause188590188597%_ '([name . body]))) '#!void)) - (_%K187608187691%_ - (lambda (_%body187619%_ _%name187620%_) - (let* ((_%g187622187638%_ - (lambda (_%g187623187635%_) + (_%K188593188676%_ + (lambda (_%body188604%_ _%name188605%_) + (let* ((_%g188607188623%_ + (lambda (_%g188608188620%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187623187635%_)))) - (_%g187621187688%_ - (lambda (_%g187623187641%_) + _%g188608188620%_)))) + (_%g188606188673%_ + (lambda (_%g188608188626%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187623187641%_)) - (let ((_%e187625187643%_ + (gx#stx-pair? _%g188608188626%_)) + (let ((_%e188610188628%_ (let () (declare (not safe)) - (gx#stx-e _%g187623187641%_)))) - (let ((_%hd187626187646%_ + (gx#stx-e _%g188608188626%_)))) + (let ((_%hd188611188631%_ (let () (declare (not safe)) - (##car _%e187625187643%_))) - (_%tl187627187648%_ + (##car _%e188610188628%_))) + (_%tl188612188633%_ (let () (declare (not safe)) - (##cdr _%e187625187643%_)))) + (##cdr _%e188610188628%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187626187646%_)) + _%hd188611188631%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187626187646%_)) + _%hd188611188631%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187627187648%_)) - (let ((_%e187628187651%_ + _%tl188612188633%_)) + (let ((_%e188613188636%_ (let () (declare (not safe)) (gx#stx-e - _%tl187627187648%_)))) - (let ((_%hd187629187654%_ + _%tl188612188633%_)))) + (let ((_%hd188614188639%_ (let () (declare (not safe)) - (##car _%e187628187651%_))) - (_%tl187630187656%_ + (##car _%e188613188636%_))) + (_%tl188615188641%_ (let () (declare (not safe)) - (##cdr _%e187628187651%_)))) + (##cdr _%e188613188636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd187629187654%_)) + _%hd188614188639%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187630187656%_)) - (let ((_%e187631187659%_ + (gx#stx-pair? _%tl188615188641%_)) + (let ((_%e188616188644%_ (let () (declare (not safe)) - (gx#stx-e _%tl187630187656%_)))) - (let ((_%hd187632187662%_ + (gx#stx-e _%tl188615188641%_)))) + (let ((_%hd188617188647%_ (let () (declare (not safe)) - (##car _%e187631187659%_))) - (_%tl187633187664%_ + (##car _%e188616188644%_))) + (_%tl188618188649%_ (let () (declare (not safe)) - (##cdr _%e187631187659%_)))) + (##cdr _%e188616188644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187633187664%_)) - ((lambda (_%L187667%_) - (let ((_g192576_ - (_%basic-block187603%_ - _%L187667%_ + (gx#stx-null? _%tl188618188649%_)) + ((lambda (_%L188652%_) + (let ((_g193561_ + (_%basic-block188588%_ + _%L188652%_ '() '()))) (begin - (let ((_g192577_ + (let ((_g193562_ (let () (declare (not safe)) - (if (##values? _g192576_) - (##values-length _g192576_) + (if (##values? _g193561_) + (##values-length _g193561_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192577_ 2))) + (##fx= _g193562_ 2))) (error "Context expects 2 values" - _g192577_))) - (let ((_%body187685%_ + _g193562_))) + (let ((_%body188670%_ (let () (declare (not safe)) - (##values-ref _g192576_ 0))) - (_%body-blocks187686%_ + (##values-ref _g193561_ 0))) + (_%body-blocks188671%_ (let () (declare (not safe)) - (##values-ref _g192576_ 1)))) - (_%fold-blocks187604%_ - _%body-blocks187686%_ - (cons (cons _%name187620%_ + (##values-ref _g193561_ 1)))) + (_%fold-blocks188589%_ + _%body-blocks188671%_ + (cons (cons _%name188605%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187685%_ '()))) + (cons '() (cons _%body188670%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187599%_)))))) - _%hd187632187662%_) - (_%g187622187638%_ _%g187623187641%_)))) - (_%g187622187638%_ _%g187623187641%_)) - (_%g187622187638%_ _%g187623187641%_)))) + _%blocks188584%_)))))) + _%hd188617188647%_) + (_%g188607188623%_ _%g188608188626%_)))) + (_%g188607188623%_ _%g188608188626%_)) + (_%g188607188623%_ _%g188608188626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187622187638%_ - _%g187623187641%_)) - (_%g187622187638%_ - _%g187623187641%_)) - (_%g187622187638%_ - _%g187623187641%_)))) - (_%g187622187638%_ _%g187623187641%_))))) - (_%g187621187688%_ _%body187619%_))))) - (if (pair? _%clause187605187612%_) - (let ((_%hd187609187694%_ + (_%g188607188623%_ + _%g188608188626%_)) + (_%g188607188623%_ + _%g188608188626%_)) + (_%g188607188623%_ + _%g188608188626%_)))) + (_%g188607188623%_ _%g188608188626%_))))) + (_%g188606188673%_ _%body188604%_))))) + (if (pair? _%clause188590188597%_) + (let ((_%hd188594188679%_ (let () (declare (not safe)) - (##car _%clause187605187612%_))) - (_%tl187610187696%_ + (##car _%clause188590188597%_))) + (_%tl188595188681%_ (let () (declare (not safe)) - (##cdr _%clause187605187612%_)))) - (let* ((_%name187699%_ _%hd187609187694%_) - (_%body187701%_ _%tl187610187696%_)) - (_%K187608187691%_ _%body187701%_ _%name187699%_))) - (_%E187607187616%_)))))) + (##cdr _%clause188590188597%_)))) + (let* ((_%name188684%_ _%hd188594188679%_) + (_%body188686%_ _%tl188595188681%_)) + (_%K188593188676%_ _%body188686%_ _%name188684%_))) + (_%E188592188601%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks187204%_) - (let _%lp187206%_ ((_%rest187208%_ _%blocks187204%_) - (_%blocks187209%_ '())) - (let* ((_%rest187210187218%_ _%rest187208%_) - (_%else187212187267%_ + (lambda (_%blocks188189%_) + (let _%lp188191%_ ((_%rest188193%_ _%blocks188189%_) + (_%blocks188194%_ '())) + (let* ((_%rest188195188203%_ _%rest188193%_) + (_%else188197188252%_ (lambda () - (let ((__tmp192578 - (lambda (_%block187226%_ _%r187227%_) - (let* ((_%block187228187239%_ _%block187226%_) - (_%E187230187243%_ + (let ((__tmp193563 + (lambda (_%block188211%_ _%r188212%_) + (let* ((_%block188213188224%_ _%block188211%_) + (_%E188215188228%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block187228187239%_ + _%block188213188224%_ '([name _ kont . _]))) '#!void)) - (_%K187231187249%_ - (lambda (_%kont187246%_ _%name187247%_) - (cons (cons _%name187247%_ - _%kont187246%_) - _%r187227%_)))) - (if (pair? _%block187228187239%_) - (let ((_%hd187232187252%_ + (_%K188216188234%_ + (lambda (_%kont188231%_ _%name188232%_) + (cons (cons _%name188232%_ + _%kont188231%_) + _%r188212%_)))) + (if (pair? _%block188213188224%_) + (let ((_%hd188217188237%_ (let () (declare (not safe)) - (##car _%block187228187239%_))) - (_%tl187233187254%_ + (##car _%block188213188224%_))) + (_%tl188218188239%_ (let () (declare (not safe)) - (##cdr _%block187228187239%_)))) - (let ((_%name187257%_ _%hd187232187252%_)) - (if (pair? _%tl187233187254%_) - (let ((_%tl187235187259%_ + (##cdr _%block188213188224%_)))) + (let ((_%name188242%_ _%hd188217188237%_)) + (if (pair? _%tl188218188239%_) + (let ((_%tl188220188244%_ (let () (declare (not safe)) - (##cdr _%tl187233187254%_)))) - (if (pair? _%tl187235187259%_) - (let* ((_%hd187236187262%_ + (##cdr _%tl188218188239%_)))) + (if (pair? _%tl188220188244%_) + (let* ((_%hd188221188247%_ (let () (declare (not safe)) - (##car _%tl187235187259%_))) - (_%kont187265%_ - _%hd187236187262%_)) - (_%K187231187249%_ - _%kont187265%_ - _%name187257%_)) - (_%E187230187243%_))) - (_%E187230187243%_)))) - (_%E187230187243%_)))))) + (##car _%tl188220188244%_))) + (_%kont188250%_ + _%hd188221188247%_)) + (_%K188216188234%_ + _%kont188250%_ + _%name188242%_)) + (_%E188215188228%_))) + (_%E188215188228%_)))) + (_%E188215188228%_)))))) (declare (not safe)) - (__foldl1 __tmp192578 '() _%blocks187209%_)))) - (_%K187214187586%_ - (lambda (_%rest187270%_ _%block187271%_) - (let* ((_%block187272187297%_ _%block187271%_) - (_%E187275187301%_ + (__foldl1 __tmp193563 '() _%blocks188194%_)))) + (_%K188199188571%_ + (lambda (_%rest188255%_ _%block188256%_) + (let* ((_%block188257188282%_ _%block188256%_) + (_%E188260188286%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block187272187297%_ + _%block188257188282%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K187287187557%_ - (lambda (_%assert187479%_ - _%kont187480%_ - _%name187481%_) - (let* ((_%g187483187499%_ - (lambda (_%g187484187496%_) + (let ((_%K188272188542%_ + (lambda (_%assert188464%_ + _%kont188465%_ + _%name188466%_) + (let* ((_%g188468188484%_ + (lambda (_%g188469188481%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187484187496%_)))) - (_%g187482187554%_ - (lambda (_%g187484187502%_) + _%g188469188481%_)))) + (_%g188467188539%_ + (lambda (_%g188469188487%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187484187502%_)) - (let ((_%e187486187504%_ + _%g188469188487%_)) + (let ((_%e188471188489%_ (let () (declare (not safe)) (gx#stx-e - _%g187484187502%_)))) - (let ((_%hd187487187507%_ + _%g188469188487%_)))) + (let ((_%hd188472188492%_ (let () (declare (not safe)) - (##car _%e187486187504%_))) - (_%tl187488187509%_ + (##car _%e188471188489%_))) + (_%tl188473188494%_ (let () (declare (not safe)) - (##cdr _%e187486187504%_)))) + (##cdr _%e188471188489%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187487187507%_)) + _%hd188472188492%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187487187507%_)) + _%hd188472188492%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187488187509%_)) - (let ((_%e187489187512%_ + (gx#stx-pair? _%tl188473188494%_)) + (let ((_%e188474188497%_ (let () (declare (not safe)) - (gx#stx-e _%tl187488187509%_)))) - (let ((_%hd187490187515%_ + (gx#stx-e _%tl188473188494%_)))) + (let ((_%hd188475188500%_ (let () (declare (not safe)) - (##car _%e187489187512%_))) - (_%tl187491187517%_ + (##car _%e188474188497%_))) + (_%tl188476188502%_ (let () (declare (not safe)) - (##cdr _%e187489187512%_)))) + (##cdr _%e188474188497%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd187490187515%_)) + (gx#stx-null? _%hd188475188500%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187491187517%_)) - (let ((_%e187492187520%_ + (gx#stx-pair? _%tl188476188502%_)) + (let ((_%e188477188505%_ (let () (declare (not safe)) - (gx#stx-e _%tl187491187517%_)))) - (let ((_%hd187493187523%_ + (gx#stx-e _%tl188476188502%_)))) + (let ((_%hd188478188508%_ (let () (declare (not safe)) - (##car _%e187492187520%_))) - (_%tl187494187525%_ + (##car _%e188477188505%_))) + (_%tl188479188510%_ (let () (declare (not safe)) - (##cdr _%e187492187520%_)))) + (##cdr _%e188477188505%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187494187525%_)) - ((lambda (_%L187528%_) - (let* ((_%body187543%_ + (gx#stx-null? _%tl188479188510%_)) + ((lambda (_%L188513%_) + (let* ((_%body188528%_ (gxc#optimize-match-block - _%L187528%_ - _%assert187479%_ + _%L188513%_ + _%assert188464%_ '() - _%rest187270%_)) - (_%block187545%_ - (cons _%name187481%_ + _%rest188255%_)) + (_%block188530%_ + (cons _%name188466%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187543%_ '()))) - (cons _%assert187479%_ '()))))) + (cons '() (cons _%body188528%_ '()))) + (cons _%assert188464%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187547%_ - (cons _%block187545%_ - _%blocks187209%_)) - (_%rest187549%_ + (_%blocks188532%_ + (cons _%block188530%_ + _%blocks188194%_)) + (_%rest188534%_ (gxc#optimize-match-prune-blocks - _%rest187270%_ - _%blocks187547%_)) - (_%rest187551%_ + _%rest188255%_ + _%blocks188532%_)) + (_%rest188536%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187549%_ - _%blocks187547%_))) - (_%lp187206%_ - _%rest187551%_ - _%blocks187547%_))) - _%hd187493187523%_) - (_%g187483187499%_ - _%g187484187502%_)))) - (_%g187483187499%_ _%g187484187502%_)) - (_%g187483187499%_ _%g187484187502%_)))) - (_%g187483187499%_ _%g187484187502%_)) - (_%g187483187499%_ _%g187484187502%_)) + _%rest188534%_ + _%blocks188532%_))) + (_%lp188191%_ + _%rest188536%_ + _%blocks188532%_))) + _%hd188478188508%_) + (_%g188468188484%_ + _%g188469188487%_)))) + (_%g188468188484%_ _%g188469188487%_)) + (_%g188468188484%_ _%g188469188487%_)))) + (_%g188468188484%_ _%g188469188487%_)) + (_%g188468188484%_ _%g188469188487%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187483187499%_ - _%g187484187502%_)))) - (_%g187483187499%_ - _%g187484187502%_))))) - (_%g187482187554%_ _%kont187480%_)))) - (_%K187276187440%_ - (lambda (_%bind187305%_ - _%assert187306%_ - _%kont187307%_ - _%name187308%_) - (let* ((_%g187310187336%_ - (lambda (_%g187311187333%_) + (_%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" - _%g187311187333%_)))) - (_%g187309187437%_ - (lambda (_%g187311187339%_) + _%g188296188318%_)))) + (_%g188294188422%_ + (lambda (_%g188296188324%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187311187339%_)) - (let ((_%e187314187341%_ + _%g188296188324%_)) + (let ((_%e188299188326%_ (let () (declare (not safe)) (gx#stx-e - _%g187311187339%_)))) - (let ((_%hd187315187344%_ + _%g188296188324%_)))) + (let ((_%hd188300188329%_ (let () (declare (not safe)) - (##car _%e187314187341%_))) - (_%tl187316187346%_ + (##car _%e188299188326%_))) + (_%tl188301188331%_ (let () (declare (not safe)) - (##cdr _%e187314187341%_)))) + (##cdr _%e188299188326%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187315187344%_)) + _%hd188300188329%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187315187344%_)) + _%hd188300188329%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187316187346%_)) - (let ((_%e187317187349%_ + (gx#stx-pair? _%tl188301188331%_)) + (let ((_%e188302188334%_ (let () (declare (not safe)) - (gx#stx-e _%tl187316187346%_)))) - (let ((_%hd187318187352%_ + (gx#stx-e _%tl188301188331%_)))) + (let ((_%hd188303188337%_ (let () (declare (not safe)) - (##car _%e187317187349%_))) - (_%tl187319187354%_ + (##car _%e188302188334%_))) + (_%tl188304188339%_ (let () (declare (not safe)) - (##cdr _%e187317187349%_)))) + (##cdr _%e188302188334%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd187318187352%_)) - (let ((_g192579_ + (gx#stx-pair/null? _%hd188303188337%_)) + (let ((_g193564_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd187318187352%_ + _%hd188303188337%_ '0)))) (begin - (let ((_g192580_ + (let ((_g193565_ (let () (declare (not safe)) - (if (##values? _g192579_) - (##values-length _g192579_) + (if (##values? _g193564_) + (##values-length _g193564_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192580_ 2))) + (##fx= _g193565_ 2))) (error "Context expects 2 values" - _g192580_))) - (let ((_%target187320187357%_ + _g193565_))) + (let ((_%target188305188342%_ (let () (declare (not safe)) - (##values-ref _g192579_ 0))) - (_%tl187322187359%_ + (##values-ref _g193564_ 0))) + (_%tl188307188344%_ (let () (declare (not safe)) - (##values-ref _g192579_ 1)))) + (##values-ref _g193564_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187322187359%_)) - (letrec ((_%loop187323187362%_ - (lambda (_%hd187321187365%_ - _%id187327187367%_) + (gx#stx-null? _%tl188307188344%_)) + (letrec ((_%loop188308188347%_ + (lambda (_%hd188306188350%_ + _%id188312188352%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187321187365%_)) - (let ((_%e187324187370%_ + _%hd188306188350%_)) + (let ((_%e188309188355%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd187321187365%_)))) - (let ((_%lp-hd187325187373%_ + (gx#stx-e _%hd188306188350%_)))) + (let ((_%lp-hd188310188358%_ (let () (declare (not safe)) - (##car _%e187324187370%_))) - (_%lp-tl187326187375%_ + (##car _%e188309188355%_))) + (_%lp-tl188311188360%_ (let () (declare (not safe)) - (##cdr _%e187324187370%_)))) - (_%loop187323187362%_ - _%lp-tl187326187375%_ - (cons _%lp-hd187325187373%_ _%id187327187367%_)))) - (let ((_%id187328187378%_ (reverse _%id187327187367%_))) + (##cdr _%e188309188355%_)))) + (_%loop188308188347%_ + _%lp-tl188311188360%_ + (cons _%lp-hd188310188358%_ _%id188312188352%_)))) + (let ((_%id188313188363%_ (reverse _%id188312188352%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187319187354%_)) - (let ((_%e187329187381%_ + (gx#stx-pair? _%tl188304188339%_)) + (let ((_%e188314188366%_ (let () (declare (not safe)) - (gx#stx-e _%tl187319187354%_)))) - (let ((_%hd187330187384%_ + (gx#stx-e _%tl188304188339%_)))) + (let ((_%hd188315188369%_ (let () (declare (not safe)) - (##car _%e187329187381%_))) - (_%tl187331187386%_ + (##car _%e188314188366%_))) + (_%tl188316188371%_ (let () (declare (not safe)) - (##cdr _%e187329187381%_)))) + (##cdr _%e188314188366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187331187386%_)) - ((lambda (_%L187389%_ _%L187390%_) - (let* ((_%body187419%_ + (gx#stx-null? _%tl188316188371%_)) + ((lambda (_%L188374%_ _%L188375%_) + (let* ((_%body188404%_ (gxc#optimize-match-block - _%L187389%_ - _%assert187306%_ - _%bind187305%_ - _%rest187270%_)) - (_%block187428%_ - (cons _%name187308%_ + _%L188374%_ + _%assert188291%_ + _%bind188290%_ + _%rest188255%_)) + (_%block188413%_ + (cons _%name188293%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp192581 + (cons (let ((__tmp193566 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g187420187423%_ - _%g187421187425%_) - (cons _%g187420187423%_ - _%g187421187425%_)))) + (lambda (_%g188405188408%_ + _%g188406188410%_) + (cons _%g188405188408%_ + _%g188406188410%_)))) (declare (not safe)) - (__foldr1 __tmp192581 '() _%L187390%_)) - (cons _%body187419%_ '()))) - (cons _%assert187306%_ (cons _%bind187305%_ '())))))) + (__foldr1 __tmp193566 '() _%L188375%_)) + (cons _%body188404%_ '()))) + (cons _%assert188291%_ (cons _%bind188290%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187430%_ - (cons _%block187428%_ - _%blocks187209%_)) - (_%rest187432%_ + (_%blocks188415%_ + (cons _%block188413%_ + _%blocks188194%_)) + (_%rest188417%_ (gxc#optimize-match-prune-blocks - _%rest187270%_ - _%blocks187430%_)) - (_%rest187434%_ + _%rest188255%_ + _%blocks188415%_)) + (_%rest188419%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187432%_ - _%blocks187430%_))) - (_%lp187206%_ - _%rest187434%_ - _%blocks187430%_))) - _%hd187330187384%_ - _%id187328187378%_) - (_%g187310187336%_ _%g187311187339%_)))) - (_%g187310187336%_ _%g187311187339%_))))))) + _%rest188417%_ + _%blocks188415%_))) + (_%lp188191%_ + _%rest188419%_ + _%blocks188415%_))) + _%hd188315188369%_ + _%id188313188363%_) + (_%g188295188321%_ _%g188296188324%_)))) + (_%g188295188321%_ _%g188296188324%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187323187362%_ - _%target187320187357%_ + (_%loop188308188347%_ + _%target188305188342%_ '())) - (_%g187310187336%_ - _%g187311187339%_))))) - (_%g187310187336%_ _%g187311187339%_)))) - (_%g187310187336%_ _%g187311187339%_)) - (_%g187310187336%_ _%g187311187339%_)) + (_%g188295188321%_ + _%g188296188324%_))))) + (_%g188295188321%_ _%g188296188324%_)))) + (_%g188295188321%_ _%g188296188324%_)) + (_%g188295188321%_ _%g188296188324%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187310187336%_ - _%g187311187339%_)))) - (_%g187310187336%_ - _%g187311187339%_))))) - (_%g187309187437%_ _%kont187307%_))))) - (let* ((_%__match189939189940%_ - (lambda (_%hd187277187443%_ - _%tl187278187445%_ - _%hd187279187450%_ - _%tl187280187452%_ - _%hd187281187455%_ - _%tl187282187457%_ - _%hd187283187462%_ - _%tl187284187464%_ - _%hd187285187469%_ - _%tl187286187471%_) - (let ((_%name187448%_ _%hd187277187443%_) - (_%kont187460%_ _%hd187281187455%_) - (_%assert187467%_ _%hd187283187462%_) - (_%bind187474%_ _%hd187285187469%_)) - (_%E187275187301%_)))) - (_%__match189933189934%_ - (lambda (_%hd187277187443%_ - _%tl187278187445%_ - _%hd187279187450%_ - _%tl187280187452%_ - _%hd187281187455%_ - _%tl187282187457%_ - _%hd187283187462%_ - _%tl187284187464%_) - (let ((_%name187448%_ _%hd187277187443%_) - (_%kont187460%_ _%hd187281187455%_) - (_%assert187467%_ _%hd187283187462%_)) - (_%E187275187301%_)))) - (_%__match189927189928%_ - (lambda (_%hd187277187443%_ - _%tl187278187445%_ - _%hd187279187450%_ - _%tl187280187452%_ - _%hd187281187455%_ - _%tl187282187457%_) - (let ((_%name187448%_ _%hd187277187443%_) - (_%kont187460%_ _%hd187281187455%_)) - (_%E187275187301%_)))) - (_%__match189921189922%_ - (lambda (_%hd187277187443%_ - _%tl187278187445%_ - _%hd187279187450%_ - _%tl187280187452%_) - (let ((_%name187448%_ _%hd187277187443%_)) - (_%E187275187301%_)))) - (_%__match189917189918%_ - (lambda (_%hd187277187443%_ - _%tl187278187445%_ - _%hd187279187450%_ - _%tl187280187452%_) - (let ((_%name187448%_ _%hd187277187443%_)) - (_%E187275187301%_)))) - (_%__match189911189912%_ - (lambda (_%hd187277187443%_ _%tl187278187445%_) - (let ((_%name187448%_ _%hd187277187443%_)) - (_%E187275187301%_))))) - (if (pair? _%block187272187297%_) - (let ((_%tl187289187562%_ + (_%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 _%block187272187297%_))) - (_%hd187288187560%_ + (##cdr _%block188257188282%_))) + (_%hd188273188545%_ (let () (declare (not safe)) - (##car _%block187272187297%_)))) - (if (pair? _%tl187289187562%_) - (let ((_%tl187291187569%_ + (##car _%block188257188282%_)))) + (if (pair? _%tl188274188547%_) + (let ((_%tl188276188554%_ (let () (declare (not safe)) - (##cdr _%tl187289187562%_))) - (_%hd187290187567%_ + (##cdr _%tl188274188547%_))) + (_%hd188275188552%_ (let () (declare (not safe)) - (##car _%tl187289187562%_)))) + (##car _%tl188274188547%_)))) (if (let () (declare (not safe)) - (##eq? _%hd187290187567%_ + (##eq? _%hd188275188552%_ 'restart:)) - (if (pair? _%tl187291187569%_) - (let ((_%tl187293187574%_ + (if (pair? _%tl188276188554%_) + (let ((_%tl188278188559%_ (let () (declare (not safe)) - (##cdr _%tl187291187569%_))) - (_%hd187292187572%_ + (##cdr _%tl188276188554%_))) + (_%hd188277188557%_ (let () (declare (not safe)) - (##car _%tl187291187569%_)))) - (if (pair? _%tl187293187574%_) - (let ((_%tl187295187581%_ + (##car _%tl188276188554%_)))) + (if (pair? _%tl188278188559%_) + (let ((_%tl188280188566%_ (let () (declare (not safe)) - (##cdr _%tl187293187574%_))) - (_%hd187294187579%_ + (##cdr _%tl188278188559%_))) + (_%hd188279188564%_ (let () (declare (not safe)) - (##car _%tl187293187574%_)))) - (if (null? _%tl187295187581%_) - (let ((_%name187565%_ + (##car _%tl188278188559%_)))) + (if (null? _%tl188280188566%_) + (let ((_%name188550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd187288187560%_) - (_%kont187577%_ _%hd187292187572%_) - (_%assert187584%_ _%hd187294187579%_)) - (_%K187287187557%_ - _%assert187584%_ - _%kont187577%_ - _%name187565%_)) - (_%__match189917189918%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_))) + _%hd188273188545%_) + (_%kont188562%_ _%hd188277188557%_) + (_%assert188569%_ _%hd188279188564%_)) + (_%K188272188542%_ + _%assert188569%_ + _%kont188562%_ + _%name188550%_)) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189917189918%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_))) - (_%__match189917189918%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_)) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_))) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_)) (if (let () (declare (not safe)) - (##eq? _%hd187290187567%_ + (##eq? _%hd188275188552%_ 'continue:)) - (if (pair? _%tl187291187569%_) - (let ((_%tl187282187457%_ + (if (pair? _%tl188276188554%_) + (let ((_%tl188267188442%_ (let () (declare (not safe)) - (##cdr _%tl187291187569%_))) - (_%hd187281187455%_ + (##cdr _%tl188276188554%_))) + (_%hd188266188440%_ (let () (declare (not safe)) - (##car _%tl187291187569%_)))) - (if (pair? _%tl187282187457%_) - (let ((_%tl187284187464%_ + (##car _%tl188276188554%_)))) + (if (pair? _%tl188267188442%_) + (let ((_%tl188269188449%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl187282187457%_))) - (_%hd187283187462%_ + (##cdr _%tl188267188442%_))) + (_%hd188268188447%_ (let () (declare (not safe)) - (##car _%tl187282187457%_)))) - (if (pair? _%tl187284187464%_) - (let ((_%tl187286187471%_ + (##car _%tl188267188442%_)))) + (if (pair? _%tl188269188449%_) + (let ((_%tl188271188456%_ (let () (declare (not safe)) - (##cdr _%tl187284187464%_))) - (_%hd187285187469%_ + (##cdr _%tl188269188449%_))) + (_%hd188270188454%_ (let () (declare (not safe)) - (##car _%tl187284187464%_)))) - (if (null? _%tl187286187471%_) - (let ((_%name187448%_ _%hd187288187560%_) - (_%kont187460%_ _%hd187281187455%_) - (_%assert187467%_ _%hd187283187462%_) - (_%bind187474%_ _%hd187285187469%_)) - (_%K187276187440%_ - _%bind187474%_ - _%assert187467%_ - _%kont187460%_ - _%name187448%_)) - (_%__match189939189940%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_ - _%hd187281187455%_ - _%tl187282187457%_ - _%hd187283187462%_ - _%tl187284187464%_ - _%hd187285187469%_ - _%tl187286187471%_))) - (_%__match189933189934%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_ - _%hd187281187455%_ - _%tl187282187457%_ - _%hd187283187462%_ - _%tl187284187464%_))) - (_%__match189927189928%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_ - _%hd187281187455%_ - _%tl187282187457%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189921189922%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_)) - (_%__match189917189918%_ - _%hd187288187560%_ - _%tl187289187562%_ - _%hd187290187567%_ - _%tl187291187569%_)))) - (_%__match189911189912%_ - _%hd187288187560%_ - _%tl187289187562%_))) - (_%E187275187301%_)))))))) - (if (pair? _%rest187210187218%_) - (let ((_%hd187215187589%_ + (_%__match190906190907%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_)) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_)))) + (_%__match190896190897%_ + _%hd188273188545%_ + _%tl188274188547%_))) + (_%E188260188286%_)))))))) + (if (pair? _%rest188195188203%_) + (let ((_%hd188200188574%_ (let () (declare (not safe)) - (##car _%rest187210187218%_))) - (_%tl187216187591%_ + (##car _%rest188195188203%_))) + (_%tl188201188576%_ (let () (declare (not safe)) - (##cdr _%rest187210187218%_)))) - (let* ((_%block187594%_ _%hd187215187589%_) - (_%rest187596%_ _%tl187216187591%_)) - (_%K187214187586%_ _%rest187596%_ _%block187594%_))) - (_%else187212187267%_)))))) + (##cdr _%rest188195188203%_)))) + (let* ((_%block188579%_ _%hd188200188574%_) + (_%rest188581%_ _%tl188201188576%_)) + (_%K188199188571%_ _%rest188581%_ _%block188579%_))) + (_%else188197188252%_)))))) (define gxc#optimize-match-block - (lambda (_%body181827%_ _%assert181828%_ _%bind181829%_ _%blocks181830%_) - (letrec* ((_%env-assert182065%_ '()) - (_%env-type182066%_ '()) - (_%env-bind182067%_ '()) - (_%in-splice?182068%_ '#f) - (_%do-assert182069%_ - (lambda (_%assert187127%_ _%K187128%_) - (if (pair? _%assert187127%_) - (let _%lp187130%_ ((_%rest187132%_ _%assert187127%_) - (_%env-assert187133%_ - _%env-assert182065%_) - (_%env-type187134%_ - _%env-type182066%_)) - (let* ((_%rest187135187143%_ _%rest187132%_) - (_%else187137187151%_ + (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!182075%_ - _%env-assert187133%_ - _%env-type187134%_ - _%K187128%_))) - (_%K187139187192%_ - (lambda (_%rest187154%_ _%assert187155%_) - (let* ((_%assert187156187163%_ - _%assert187155%_) - (_%E187158187167%_ + (_%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" - _%assert187156187163%_ + _%assert188141188148%_ '([expr . val]))) '#!void)) - (_%K187159187180%_ - (lambda (_%val187170%_ - _%expr187171%_) - (let* ((_%sexpr187173%_ + (_%K188144188165%_ + (lambda (_%val188155%_ + _%expr188156%_) + (let* ((_%sexpr188158%_ (gxc#apply-generate-runtime-repr - _%expr187171%_)) - (_%env-assert187175%_ - (cons (cons _%sexpr187173%_ + _%expr188156%_)) + (_%env-assert188160%_ + (cons (cons _%sexpr188158%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val187170%_) - _%env-assert187133%_)) - (_%env-type187177%_ - (_%fold-assert-type182071%_ - _%expr187171%_ - _%val187170%_ - _%env-type187134%_))) + _%val188155%_) + _%env-assert188118%_)) + (_%env-type188162%_ + (_%fold-assert-type183056%_ + _%expr188156%_ + _%val188155%_ + _%env-type188119%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp187130%_ - _%rest187154%_ - _%env-assert187175%_ - _%env-type187177%_))))) - (if (pair? _%assert187156187163%_) - (let ((_%hd187160187183%_ + (_%lp188115%_ + _%rest188139%_ + _%env-assert188160%_ + _%env-type188162%_))))) + (if (pair? _%assert188141188148%_) + (let ((_%hd188145188168%_ (let () (declare (not safe)) - (##car _%assert187156187163%_))) - (_%tl187161187185%_ + (##car _%assert188141188148%_))) + (_%tl188146188170%_ (let () (declare (not safe)) - (##cdr _%assert187156187163%_)))) - (let* ((_%expr187188%_ - _%hd187160187183%_) - (_%val187190%_ - _%tl187161187185%_)) - (_%K187159187180%_ - _%val187190%_ - _%expr187188%_))) - (_%E187158187167%_)))))) - (if (pair? _%rest187135187143%_) - (let ((_%hd187140187195%_ + (##cdr _%assert188141188148%_)))) + (let* ((_%expr188173%_ + _%hd188145188168%_) + (_%val188175%_ + _%tl188146188170%_)) + (_%K188144188165%_ + _%val188175%_ + _%expr188173%_))) + (_%E188143188152%_)))))) + (if (pair? _%rest188120188128%_) + (let ((_%hd188125188180%_ (let () (declare (not safe)) - (##car _%rest187135187143%_))) - (_%tl187141187197%_ + (##car _%rest188120188128%_))) + (_%tl188126188182%_ (let () (declare (not safe)) - (##cdr _%rest187135187143%_)))) - (let* ((_%assert187200%_ _%hd187140187195%_) - (_%rest187202%_ _%tl187141187197%_)) - (_%K187139187192%_ - _%rest187202%_ - _%assert187200%_))) - (_%else187137187151%_)))) - (_%K187128%_)))) - (_%predicate-type182070%_ - (lambda (_%id187072%_) - (let* ((_%sym187074%_ + (##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 _%id187072%_))) - (_%$e187076%_ _%sym187074%_)) - (let ((_%default187078187109%_ + (gxc#identifier-symbol _%id188057%_))) + (_%$e188061%_ _%sym188059%_)) + (let ((_%default188063188094%_ (lambda () - (let* ((_%g187081187088%_ + (let* ((_%g188066188073%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym187074%_))) - (_%else187083187096%_ (lambda () '#f)) - (_%K187085187101%_ - (lambda (_%t187099%_) - (let ((__tmp192582 + _%sym188059%_))) + (_%else188068188081%_ (lambda () '#f)) + (_%K188070188086%_ + (lambda (_%t188084%_) + (let ((__tmp193567 (cons 'predicate-type - (cons _%id187072%_ + (cons _%id188057%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp192582 - _%t187099%_))))) + __tmp193567 + _%t188084%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g187081187088%_ + _%g188066188073%_ 'gxc#!predicate::t)) - (let* ((_%e187086187104%_ + (let* ((_%e188071188089%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g187081187088%_ + _%g188066188073%_ '1 '#f '#f))) - (_%t187107%_ _%e187086187104%_)) - (_%K187085187101%_ _%t187107%_)) - (_%else187083187096%_))))) - (_%table187079187111%_ + (_%t188092%_ _%e188071188089%_)) + (_%K188070188086%_ _%t188092%_)) + (_%else188068188081%_))))) + (_%table188064188096%_ '#(#f (##box? . 3) #f @@ -3796,48 +3796,48 @@ #f #f #f))) - (if (symbol? _%$e187076%_) - (let* ((_%h187114%_ + (if (symbol? _%$e188061%_) + (let* ((_%h188099%_ (let () (declare (not safe)) - (##symbol-hash _%$e187076%_))) - (_%ix187117%_ + (##symbol-hash _%$e188061%_))) + (_%ix188102%_ (let () (declare (not safe)) - (##fxmodulo _%h187114%_ '63))) - (_%q187120%_ + (##fxmodulo _%h188099%_ '63))) + (_%q188105%_ (let () (declare (not safe)) (##vector-ref - _%table187079187111%_ - _%ix187117%_)))) - (if _%q187120%_ + _%table188064188096%_ + _%ix188102%_)))) + (if _%q188105%_ (if (eq? (let () (declare (not safe)) - (##car _%q187120%_)) - _%$e187076%_) - (let ((_%x187124%_ + (##car _%q188105%_)) + _%$e188061%_) + (let ((_%x188109%_ (let () (declare (not safe)) - (##cdr _%q187120%_)))) + (##cdr _%q188105%_)))) (if (let () (declare (not safe)) - (##fx< _%x187124%_ '5)) + (##fx< _%x188109%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x187124%_ '2)) + (##fx< _%x188109%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x187124%_ '0)) + (##fx= _%x188109%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x187124%_ '2)) + (##fx= _%x188109%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x187124%_ + (##fx= _%x188109%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3845,356 +3845,356 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x187124%_ '7)) + (##fx< _%x188109%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x187124%_ '5)) + (##fx= _%x188109%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x187124%_ '7)) + (##fx= _%x188109%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x187124%_ + (##fx= _%x188109%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default187078187109%_)) - (_%default187078187109%_))) - (_%default187078187109%_)))))) - (_%fold-assert-type182071%_ - (lambda (_%expr186018%_ _%val186019%_ _%env186020%_) - (let* ((_%__stx190036190037%_ _%expr186018%_) - (_%g186028186207%_ + (_%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" - _%__stx190036190037%_))))) - (let ((_%__kont190038190039%_ - (lambda (_%L187040%_ _%L187041%_) - (let ((_%$e187063%_ - (_%predicate-type182070%_ _%L187041%_))) - (if _%$e187063%_ - ((lambda (_%t187066%_) - (cons (cons _%L187040%_ - (cons _%t187066%_ - (cons _%val186019%_ + _%__stx191021191022%_))))) + (let ((_%__kont191023191024%_ + (lambda (_%L188025%_ _%L188026%_) + (let ((_%$e188048%_ + (_%predicate-type183055%_ _%L188026%_))) + (if _%$e188048%_ + ((lambda (_%t188051%_) + (cons (cons _%L188025%_ + (cons _%t188051%_ + (cons _%val187004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env186020%_)) - _%$e187063%_) - _%env186020%_)))) - (_%__kont190040190041%_ - (lambda (_%L186729%_ _%L186730%_ _%L186731%_) - (let ((_%$e186756%_ + _%env187005%_)) + _%$e188048%_) + _%env187005%_)))) + (_%__kont191025191026%_ + (lambda (_%L187714%_ _%L187715%_ _%L187716%_) + (let ((_%$e187741%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186731%_)))) - (if (or (eq? '##fx= _%$e186756%_) - (eq? 'fx= _%$e186756%_)) - (let* ((_%__stx189942189943%_ - _%L186730%_) - (_%g186763186792%_ + (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" - _%__stx189942189943%_))))) - (let ((_%__kont189944189945%_ - (lambda (_%L186860%_ - _%L186861%_) - (let ((_%$e186886%_ - (_%countf-symbol182072%_ - _%L186861%_))) - (if _%$e186886%_ - ((lambda (_%sym186889%_) - (cons (cons _%L186860%_ + _%__stx190927190928%_))))) + (let ((_%__kont190929190930%_ + (lambda (_%L187845%_ + _%L187846%_) + (let ((_%$e187871%_ + (_%countf-symbol183057%_ + _%L187846%_))) + (if _%$e187871%_ + ((lambda (_%sym187874%_) + (cons (cons _%L187845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186889%_ + (cons _%sym187874%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186729%_)) - (cons _%val186019%_ '())))) - _%env186020%_)) - _%$e186886%_) - _%env186020%_)))) + (gx#stx-e _%L187714%_)) + (cons _%val187004%_ '())))) + _%env187005%_)) + _%$e187871%_) + _%env187005%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189946189947%_ - (lambda () _%env186020%_))) + (_%__kont190931190932%_ + (lambda () _%env187005%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189942189943%_)) - (let ((_%e186767186804%_ + _%__stx190927190928%_)) + (let ((_%e187752187789%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189942189943%_)))) - (let ((_%tl186769186809%_ + _%__stx190927190928%_)))) + (let ((_%tl187754187794%_ (let () (declare (not safe)) - (##cdr _%e186767186804%_))) - (_%hd186768186807%_ + (##cdr _%e187752187789%_))) + (_%hd187753187792%_ (let () (declare (not safe)) - (##car _%e186767186804%_)))) + (##car _%e187752187789%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186768186807%_)) + _%hd187753187792%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186768186807%_)) + _%hd187753187792%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186769186809%_)) - (let ((_%e186770186812%_ + (gx#stx-pair? _%tl187754187794%_)) + (let ((_%e187755187797%_ (let () (declare (not safe)) - (gx#stx-e _%tl186769186809%_)))) - (let ((_%tl186772186817%_ + (gx#stx-e _%tl187754187794%_)))) + (let ((_%tl187757187802%_ (let () (declare (not safe)) - (##cdr _%e186770186812%_))) - (_%hd186771186815%_ + (##cdr _%e187755187797%_))) + (_%hd187756187800%_ (let () (declare (not safe)) - (##car _%e186770186812%_)))) + (##car _%e187755187797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186771186815%_)) - (let ((_%e186773186820%_ + (gx#stx-pair? _%hd187756187800%_)) + (let ((_%e187758187805%_ (let () (declare (not safe)) - (gx#stx-e _%hd186771186815%_)))) - (let ((_%tl186775186825%_ + (gx#stx-e _%hd187756187800%_)))) + (let ((_%tl187760187810%_ (let () (declare (not safe)) - (##cdr _%e186773186820%_))) - (_%hd186774186823%_ + (##cdr _%e187758187805%_))) + (_%hd187759187808%_ (let () (declare (not safe)) - (##car _%e186773186820%_)))) + (##car _%e187758187805%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186774186823%_)) + (gx#identifier? _%hd187759187808%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186774186823%_)) + _%hd187759187808%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186775186825%_)) - (let ((_%e186776186828%_ + _%tl187760187810%_)) + (let ((_%e187761187813%_ (let () (declare (not safe)) (gx#stx-e - _%tl186775186825%_)))) - (let ((_%tl186778186833%_ + _%tl187760187810%_)))) + (let ((_%tl187763187818%_ (let () (declare (not safe)) - (##cdr _%e186776186828%_))) - (_%hd186777186831%_ + (##cdr _%e187761187813%_))) + (_%hd187762187816%_ (let () (declare (not safe)) - (##car _%e186776186828%_)))) + (##car _%e187761187813%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186778186833%_)) + _%tl187763187818%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186772186817%_)) - (let ((_%e186779186836%_ + _%tl187757187802%_)) + (let ((_%e187764187821%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl186772186817%_)))) - (let ((_%tl186781186841%_ + (gx#stx-e _%tl187757187802%_)))) + (let ((_%tl187766187826%_ (let () (declare (not safe)) - (##cdr _%e186779186836%_))) - (_%hd186780186839%_ + (##cdr _%e187764187821%_))) + (_%hd187765187824%_ (let () (declare (not safe)) - (##car _%e186779186836%_)))) + (##car _%e187764187821%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186780186839%_)) - (let ((_%e186782186844%_ + (gx#stx-pair? _%hd187765187824%_)) + (let ((_%e187767187829%_ (let () (declare (not safe)) - (gx#stx-e _%hd186780186839%_)))) - (let ((_%tl186784186849%_ + (gx#stx-e _%hd187765187824%_)))) + (let ((_%tl187769187834%_ (let () (declare (not safe)) - (##cdr _%e186782186844%_))) - (_%hd186783186847%_ + (##cdr _%e187767187829%_))) + (_%hd187768187832%_ (let () (declare (not safe)) - (##car _%e186782186844%_)))) + (##car _%e187767187829%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186783186847%_)) + (gx#identifier? _%hd187768187832%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186783186847%_)) + (gx#stx-eq? '%#ref _%hd187768187832%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186784186849%_)) - (let ((_%e186785186852%_ + (gx#stx-pair? _%tl187769187834%_)) + (let ((_%e187770187837%_ (let () (declare (not safe)) (gx#stx-e - _%tl186784186849%_)))) - (let ((_%tl186787186857%_ + _%tl187769187834%_)))) + (let ((_%tl187772187842%_ (let () (declare (not safe)) - (##cdr _%e186785186852%_))) - (_%hd186786186855%_ + (##cdr _%e187770187837%_))) + (_%hd187771187840%_ (let () (declare (not safe)) - (##car _%e186785186852%_)))) + (##car _%e187770187837%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186787186857%_)) + _%tl187772187842%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186781186841%_)) - (_%__kont189944189945%_ - _%hd186786186855%_ - _%hd186777186831%_) - (_%__kont189946189947%_)) - (_%__kont189946189947%_)))) - (_%__kont189946189947%_)) - (_%__kont189946189947%_)) - (_%__kont189946189947%_)))) - (_%__kont189946189947%_)))) - (_%__kont189946189947%_)) - (_%__kont189946189947%_)))) + _%tl187766187826%_)) + (_%__kont190929190930%_ + _%hd187771187840%_ + _%hd187762187816%_) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189946189947%_)) - (_%__kont189946189947%_)) - (_%__kont189946189947%_)))) - (_%__kont189946189947%_)))) - (_%__kont189946189947%_)) - (_%__kont189946189947%_)) - (_%__kont189946189947%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189946189947%_)))) - (if (or (eq? '##eq? _%$e186756%_) - (eq? 'eq? _%$e186756%_) - (eq? '##eqv? _%$e186756%_) - (eq? 'eqv? _%$e186756%_) - (eq? '##equal? _%$e186756%_) - (eq? 'equal? _%$e186756%_) + (_%__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=? - _%$e186756%_) - (eq? 'gx#stx-eq? _%$e186756%_)) - ((lambda (_%sym186916%_) - (let* ((_%sym186918%_ - (_%eqf-symbol182073%_ - _%sym186916%_)) - (_%__stx190010190011%_ - _%L186730%_) - (_%g186921186934%_ + _%$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" - _%__stx190010190011%_))))) - (let ((_%__kont190012190013%_ - (lambda (_%L186962%_) - (cons (cons _%L186962%_ + _%__stx190995190996%_))))) + (let ((_%__kont190997190998%_ + (lambda (_%L187947%_) + (cons (cons _%L187947%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186918%_ + (cons _%sym187903%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186729%_)) - (cons _%val186019%_ '())))) - _%env186020%_))) + (gx#stx-e _%L187714%_)) + (cons _%val187004%_ '())))) + _%env187005%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190014190015%_ + (_%__kont190999191000%_ (lambda () - _%env186020%_))) + _%env187005%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190010190011%_)) - (let ((_%e186924186946%_ + _%__stx190995190996%_)) + (let ((_%e187909187931%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190010190011%_)))) - (let ((_%tl186926186951%_ + _%__stx190995190996%_)))) + (let ((_%tl187911187936%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186924186946%_))) - (_%hd186925186949%_ - (let () (declare (not safe)) (##car _%e186924186946%_)))) + (##cdr _%e187909187931%_))) + (_%hd187910187934%_ + (let () (declare (not safe)) (##car _%e187909187931%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186925186949%_)) + (gx#identifier? _%hd187910187934%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186925186949%_)) + (gx#stx-eq? '%#ref _%hd187910187934%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186926186951%_)) - (let ((_%e186927186954%_ + (gx#stx-pair? _%tl187911187936%_)) + (let ((_%e187912187939%_ (let () (declare (not safe)) - (gx#stx-e _%tl186926186951%_)))) - (let ((_%tl186929186959%_ + (gx#stx-e _%tl187911187936%_)))) + (let ((_%tl187914187944%_ (let () (declare (not safe)) - (##cdr _%e186927186954%_))) - (_%hd186928186957%_ + (##cdr _%e187912187939%_))) + (_%hd187913187942%_ (let () (declare (not safe)) - (##car _%e186927186954%_)))) + (##car _%e187912187939%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186929186959%_)) - (_%__kont190012190013%_ - _%hd186928186957%_) - (_%__kont190014190015%_)))) - (_%__kont190014190015%_)) - (_%__kont190014190015%_)) - (_%__kont190014190015%_)))) + (gx#stx-null? _%tl187914187944%_)) + (_%__kont190997190998%_ + _%hd187913187942%_) + (_%__kont190999191000%_)))) + (_%__kont190999191000%_)) + (_%__kont190999191000%_)) + (_%__kont190999191000%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190014190015%_))))) - _%$e186756%_) - _%env186020%_))))) - (_%__kont190042190043%_ - (lambda (_%L186633%_ _%L186634%_ _%L186635%_) - (_%fold-assert-type182071%_ + (_%__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 _%L186635%_ '())) - (cons _%L186633%_ + (cons _%L187620%_ '())) + (cons _%L187618%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L186634%_ '())) + (cons _%L187619%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val186019%_ - _%env186020%_))) - (_%__kont190044190045%_ - (lambda (_%L186523%_ _%L186524%_ _%L186525%_) - (let ((_%$e186554%_ + _%val187004%_ + _%env187005%_))) + (_%__kont191029191030%_ + (lambda (_%L187508%_ _%L187509%_ _%L187510%_) + (let ((_%$e187539%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186525%_)))) + (gxc#identifier-symbol _%L187510%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e186554%_) - (eq? 'gx#stx-eq? _%$e186554%_)) - ((lambda (_%sym186560%_) - (let ((_%sym186562%_ - (_%eqf-symbol182073%_ - _%sym186560%_))) - (cons (cons _%L186524%_ - (cons _%sym186562%_ - (cons _%L186523%_ + _%$e187539%_) + (eq? 'gx#stx-eq? _%$e187539%_)) + ((lambda (_%sym187545%_) + (let ((_%sym187547%_ + (_%eqf-symbol183058%_ + _%sym187545%_))) + (cons (cons _%L187509%_ + (cons _%sym187547%_ + (cons _%L187508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val186019%_ '())))) + (cons _%val187004%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env186020%_))) - _%$e186554%_) - _%env186020%_)))) - (_%__kont190046190047%_ - (lambda (_%L186407%_ _%L186408%_ _%L186409%_) - (_%fold-assert-type182071%_ + _%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 _%L186409%_ '())) + (cons _%L187394%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186407%_ + (cons _%L187392%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L186408%_ '())) + (cons _%L187393%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val186019%_ - _%env186020%_))) - (_%__kont190048190049%_ - (lambda (_%L186291%_ _%L186292%_ _%L186293%_) - (_%fold-assert-type182071%_ + _%val187004%_ + _%env187005%_))) + (_%__kont191033191034%_ + (lambda (_%L187276%_ _%L187277%_ _%L187278%_) + (_%fold-assert-type183056%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L186293%_ - _%L186291%_ - _%L186292%_)) - _%val186019%_ - _%env186020%_))) - (_%__kont190050190051%_ - (lambda () _%env186020%_))) + _%L187278%_ + _%L187276%_ + _%L187277%_)) + _%val187004%_ + _%env187005%_))) + (_%__kont191035191036%_ + (lambda () _%env187005%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190036190037%_)) - (let ((_%e186032186984%_ + (gx#stx-pair? _%__stx191021191022%_)) + (let ((_%e187017187969%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190036190037%_)))) - (let ((_%tl186034186989%_ + (gx#stx-e _%__stx191021191022%_)))) + (let ((_%tl187019187974%_ (let () (declare (not safe)) - (##cdr _%e186032186984%_))) - (_%hd186033186987%_ + (##cdr _%e187017187969%_))) + (_%hd187018187972%_ (let () (declare (not safe)) - (##car _%e186032186984%_)))) + (##car _%e187017187969%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186033186987%_)) + (gx#identifier? _%hd187018187972%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186033186987%_)) + _%hd187018187972%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186034186989%_)) - (let ((_%e186035186992%_ + _%tl187019187974%_)) + (let ((_%e187020187977%_ (let () (declare (not safe)) (gx#stx-e - _%tl186034186989%_)))) - (let ((_%tl186037186997%_ + _%tl187019187974%_)))) + (let ((_%tl187022187982%_ (let () (declare (not safe)) - (##cdr _%e186035186992%_))) - (_%hd186036186995%_ + (##cdr _%e187020187977%_))) + (_%hd187021187980%_ (let () (declare (not safe)) - (##car _%e186035186992%_)))) + (##car _%e187020187977%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186036186995%_)) - (let ((_%e186038187000%_ + _%hd187021187980%_)) + (let ((_%e187023187985%_ (let () (declare (not safe)) (gx#stx-e - _%hd186036186995%_)))) - (let ((_%tl186040187005%_ + _%hd187021187980%_)))) + (let ((_%tl187025187990%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186038187000%_))) - (_%hd186039187003%_ - (let () (declare (not safe)) (##car _%e186038187000%_)))) + (##cdr _%e187023187985%_))) + (_%hd187024187988%_ + (let () (declare (not safe)) (##car _%e187023187985%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186039187003%_)) + (gx#identifier? _%hd187024187988%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186039187003%_)) + (gx#stx-eq? '%#ref _%hd187024187988%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186040187005%_)) - (let ((_%e186041187008%_ + (gx#stx-pair? _%tl187025187990%_)) + (let ((_%e187026187993%_ (let () (declare (not safe)) - (gx#stx-e _%tl186040187005%_)))) - (let ((_%tl186043187013%_ + (gx#stx-e _%tl187025187990%_)))) + (let ((_%tl187028187998%_ (let () (declare (not safe)) - (##cdr _%e186041187008%_))) - (_%hd186042187011%_ + (##cdr _%e187026187993%_))) + (_%hd187027187996%_ (let () (declare (not safe)) - (##car _%e186041187008%_)))) + (##car _%e187026187993%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186043187013%_)) + (gx#stx-null? _%tl187028187998%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186037186997%_)) - (let ((_%e186044187016%_ + (gx#stx-pair? _%tl187022187982%_)) + (let ((_%e187029188001%_ (let () (declare (not safe)) (gx#stx-e - _%tl186037186997%_)))) - (let ((_%tl186046187021%_ + _%tl187022187982%_)))) + (let ((_%tl187031188006%_ (let () (declare (not safe)) - (##cdr _%e186044187016%_))) - (_%hd186045187019%_ + (##cdr _%e187029188001%_))) + (_%hd187030188004%_ (let () (declare (not safe)) - (##car _%e186044187016%_)))) + (##car _%e187029188001%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186045187019%_)) - (let ((_%e186047187024%_ + _%hd187030188004%_)) + (let ((_%e187032188009%_ (let () (declare (not safe)) (gx#stx-e - _%hd186045187019%_)))) - (let ((_%tl186049187029%_ + _%hd187030188004%_)))) + (let ((_%tl187034188014%_ (let () (declare (not safe)) - (##cdr _%e186047187024%_))) - (_%hd186048187027%_ + (##cdr _%e187032188009%_))) + (_%hd187033188012%_ (let () (declare (not safe)) - (##car _%e186047187024%_)))) + (##car _%e187032188009%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd186048187027%_)) + (gx#stx-eq? '%#ref _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186050187032%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187035188017%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186052187037%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187037188022%_ (let () (declare (not safe)) - (##cdr _%e186050187032%_))) - (_%hd186051187035%_ + (##cdr _%e187035188017%_))) + (_%hd187036188020%_ (let () (declare (not safe)) - (##car _%e186050187032%_)))) + (##car _%e187035188017%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186052187037%_)) + (gx#stx-null? _%tl187037188022%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186046187021%_)) - (_%__kont190038190039%_ - _%hd186051187035%_ - _%hd186042187011%_) + (gx#stx-null? _%tl187031188006%_)) + (_%__kont191023191024%_ + _%hd187036188020%_ + _%hd187027187996%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186046187021%_)) - (let ((_%e186071186705%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) (gx#stx-e - _%tl186046187021%_)))) - (let ((_%tl186073186710%_ + _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e186071186705%_))) - (_%hd186072186708%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e186071186705%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186072186708%_)) - (let ((_%e186074186713%_ + _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) (gx#stx-e - _%hd186072186708%_)))) - (let ((_%tl186076186718%_ + _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e186074186713%_))) - (_%hd186075186716%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e186074186713%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186075186716%_)) + _%hd187060187701%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd186075186716%_)) + (gx#stx-eq? '%#quote _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186076186718%_)) - (let ((_%e186077186721%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) - (gx#stx-e _%tl186076186718%_)))) - (let ((_%tl186079186726%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e186077186721%_))) - (_%hd186078186724%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e186077186721%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186079186726%_)) + (gx#stx-null? _%tl187064187711%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190040190041%_ - _%hd186078186724%_ - _%hd186045187019%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd186075186716%_)) + (gx#stx-eq? '%#quote-syntax _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186076186718%_)) - (let ((_%e186137186515%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187122187500%_ (let () (declare (not safe)) - (gx#stx-e _%tl186076186718%_)))) - (let ((_%tl186139186520%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187124187505%_ (let () (declare (not safe)) - (##cdr _%e186137186515%_))) - (_%hd186138186518%_ + (##cdr _%e187122187500%_))) + (_%hd187123187503%_ (let () (declare (not safe)) - (##car _%e186137186515%_)))) + (##car _%e187122187500%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186139186520%_)) + (gx#stx-null? _%tl187124187505%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190044190045%_ - _%hd186138186518%_ - _%hd186051187035%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191029191030%_ + _%hd187123187503%_ + _%hd187036188020%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)))) - (_%__kont190050190051%_))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186046187021%_)) - (let ((_%e186071186705%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl186046187021%_)))) - (let ((_%tl186073186710%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e186071186705%_))) - (_%hd186072186708%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e186071186705%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186072186708%_)) - (let ((_%e186074186713%_ + _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) (gx#stx-e - _%hd186072186708%_)))) - (let ((_%tl186076186718%_ + _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e186074186713%_))) - (_%hd186075186716%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e186074186713%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186075186716%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186075186716%_)) + _%hd187060187701%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186076186718%_)) - (let ((_%e186077186721%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) - (gx#stx-e _%tl186076186718%_)))) - (let ((_%tl186079186726%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e186077186721%_))) - (_%hd186078186724%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e186077186721%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186079186726%_)) + (gx#stx-null? _%tl187064187711%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190040190041%_ - _%hd186078186724%_ - _%hd186045187019%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_))))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186046187021%_)) - (let ((_%e186071186705%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl186046187021%_)))) - (let ((_%tl186073186710%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e186071186705%_))) - (_%hd186072186708%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e186071186705%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186072186708%_)) - (let ((_%e186074186713%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd186072186708%_)))) - (let ((_%tl186076186718%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e186074186713%_))) - (_%hd186075186716%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e186074186713%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186075186716%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186075186716%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186076186718%_)) - (let ((_%e186077186721%_ + _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) (gx#stx-e - _%tl186076186718%_)))) - (let ((_%tl186079186726%_ + _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186077186721%_))) - (_%hd186078186724%_ - (let () (declare (not safe)) (##car _%e186077186721%_)))) + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ + (let () (declare (not safe)) (##car _%e187062187706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186079186726%_)) + (gx#stx-null? _%tl187064187711%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190040190041%_ - _%hd186078186724%_ - _%hd186045187019%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186046187021%_)) - (let ((_%e186071186705%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl186046187021%_)))) - (let ((_%tl186073186710%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e186071186705%_))) - (_%hd186072186708%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e186071186705%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186072186708%_)) - (let ((_%e186074186713%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd186072186708%_)))) - (let ((_%tl186076186718%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e186074186713%_))) - (_%hd186075186716%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e186074186713%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186075186716%_)) + (gx#identifier? _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186075186716%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186076186718%_)) - (let ((_%e186077186721%_ + _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) (gx#stx-e - _%tl186076186718%_)))) - (let ((_%tl186079186726%_ + _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e186077186721%_))) - (_%hd186078186724%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e186077186721%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186079186726%_)) + _%tl187064187711%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190040190041%_ - _%hd186078186724%_ - _%hd186045187019%_ - _%hd186042187011%_) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd186048187027%_)) + (gx#stx-eq? '%#quote _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186101186617%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186103186622%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e186101186617%_))) - (_%hd186102186620%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e186101186617%_)))) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)) + (##car _%e187086187602%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd186048187027%_)) + (gx#stx-eq? '%#quote-syntax _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186161186375%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186163186380%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e186161186375%_))) - (_%hd186162186378%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e186161186375%_)))) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd186048187027%_)) + (gx#stx-eq? '%#quote _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186101186617%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186103186622%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e186101186617%_))) - (_%hd186102186620%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e186101186617%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186103186622%_)) + (gx#stx-null? _%tl187088187607%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190042190043%_ - _%hd186072186708%_ - _%hd186102186620%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd186048187027%_)) + (gx#stx-eq? '%#quote-syntax _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186161186375%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186163186380%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e186161186375%_))) - (_%hd186162186378%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e186161186375%_)))) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186049187029%_)) - (let ((_%e186101186617%_ + _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186103186622%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e186101186617%_))) - (_%hd186102186620%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e186101186617%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186103186622%_)) + (gx#stx-null? _%tl187088187607%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190042190043%_ - _%hd186072186708%_ - _%hd186102186620%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186161186375%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186163186380%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e186161186375%_))) - (_%hd186162186378%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e186161186375%_)))) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186049187029%_)) - (let ((_%e186101186617%_ + _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) (gx#stx-e - _%tl186049187029%_)))) - (let ((_%tl186103186622%_ + _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186101186617%_))) - (_%hd186102186620%_ - (let () (declare (not safe)) (##car _%e186101186617%_)))) + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ + (let () (declare (not safe)) (##car _%e187086187602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186103186622%_)) + (gx#stx-null? _%tl187088187607%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190042190043%_ - _%hd186072186708%_ - _%hd186102186620%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186049187029%_)) - (let ((_%e186161186375%_ + _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186163186380%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e186161186375%_))) - (_%hd186162186378%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e186161186375%_)))) + (##car _%e187146187360%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186163186380%_)) + (gx#stx-null? _%tl187148187365%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186075186716%_)) + (gx#stx-eq? '%#ref _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186076186718%_)) - (let ((_%e186170186399%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187155187384%_ (let () (declare (not safe)) - (gx#stx-e _%tl186076186718%_)))) - (let ((_%tl186172186404%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187157187389%_ (let () (declare (not safe)) - (##cdr _%e186170186399%_))) - (_%hd186171186402%_ + (##cdr _%e187155187384%_))) + (_%hd187156187387%_ (let () (declare (not safe)) - (##car _%e186170186399%_)))) + (##car _%e187155187384%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186172186404%_)) + (gx#stx-null? _%tl187157187389%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186073186710%_)) - (_%__kont190046190047%_ - _%hd186171186402%_ - _%hd186162186378%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) + _%tl187058187695%_)) + (_%__kont191031191032%_ + _%hd187156187387%_ + _%hd187147187363%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)))) + (_%__kont191035191036%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186049187029%_)) - (let ((_%e186101186617%_ + _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) (gx#stx-e - _%tl186049187029%_)))) - (let ((_%tl186103186622%_ + _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e186101186617%_))) - (_%hd186102186620%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e186101186617%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186103186622%_)) + _%tl187088187607%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl186073186710%_)) - (_%__kont190042190043%_ - _%hd186072186708%_ - _%hd186102186620%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186049187029%_)) - (let ((_%e186161186375%_ + _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) (gx#stx-e - _%tl186049187029%_)))) - (let ((_%tl186163186380%_ + _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186161186375%_))) - (_%hd186162186378%_ - (let () (declare (not safe)) (##car _%e186161186375%_)))) - (_%__kont190050190051%_))) + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ + (let () (declare (not safe)) (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186101186617%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) (gx#stx-e - _%tl186049187029%_)))) - (let ((_%tl186103186622%_ + _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e186101186617%_))) - (_%hd186102186620%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e186101186617%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186103186622%_)) + _%tl187088187607%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186073186710%_)) - (_%__kont190042190043%_ - _%hd186072186708%_ - _%hd186102186620%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) + _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186049187029%_)) - (let ((_%e186161186375%_ + _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) (gx#stx-e - _%tl186049187029%_)))) - (let ((_%tl186163186380%_ + _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e186161186375%_))) - (_%hd186162186378%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e186161186375%_)))) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd186048187027%_)) + (gx#stx-eq? '%#quote _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186101186617%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186103186622%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e186101186617%_))) - (_%hd186102186620%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e186101186617%_)))) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)) + (##car _%e187086187602%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd186048187027%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186049187029%_)) - (let ((_%e186161186375%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl186049187029%_)))) - (let ((_%tl186163186380%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e186161186375%_))) - (_%hd186162186378%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e186161186375%_)))) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_))))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186046187021%_)) - (let ((_%e186071186705%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl186046187021%_)))) - (let ((_%tl186073186710%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e186071186705%_))) - (_%hd186072186708%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e186071186705%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186072186708%_)) - (let ((_%e186074186713%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd186072186708%_)))) - (let ((_%tl186076186718%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e186074186713%_))) - (_%hd186075186716%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e186074186713%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186075186716%_)) + (gx#identifier? _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd186075186716%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186076186718%_)) - (let ((_%e186077186721%_ + _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) (gx#stx-e - _%tl186076186718%_)))) - (let ((_%tl186079186726%_ + _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e186077186721%_))) - (_%hd186078186724%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e186077186721%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186079186726%_)) + _%tl187064187711%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186073186710%_)) - (_%__kont190040190041%_ - _%hd186078186724%_ - _%hd186045187019%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_))))) + _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186046187021%_)) - (let ((_%e186071186705%_ + _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) (gx#stx-e - _%tl186046187021%_)))) - (let ((_%tl186073186710%_ + _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186071186705%_))) - (_%hd186072186708%_ - (let () (declare (not safe)) (##car _%e186071186705%_)))) + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ + (let () (declare (not safe)) (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186072186708%_)) - (let ((_%e186074186713%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd186072186708%_)))) - (let ((_%tl186076186718%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e186074186713%_))) - (_%hd186075186716%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e186074186713%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186075186716%_)) + (gx#identifier? _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd186075186716%_)) + (gx#stx-eq? '%#quote _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186076186718%_)) - (let ((_%e186077186721%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) - (gx#stx-e _%tl186076186718%_)))) - (let ((_%tl186079186726%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e186077186721%_))) - (_%hd186078186724%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e186077186721%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186079186726%_)) + _%tl187064187711%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186073186710%_)) - (_%__kont190040190041%_ - _%hd186078186724%_ - _%hd186045187019%_ - _%hd186042187011%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)))) + _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_))))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) + (_%__kont191035191036%_))))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd186039187003%_)) + (gx#stx-eq? '%#lambda _%hd187024187988%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186040187005%_)) - (let ((_%e186185186243%_ + (gx#stx-pair? _%tl187025187990%_)) + (let ((_%e187170187228%_ (let () (declare (not safe)) - (gx#stx-e _%tl186040187005%_)))) - (let ((_%tl186187186248%_ + (gx#stx-e _%tl187025187990%_)))) + (let ((_%tl187172187233%_ (let () (declare (not safe)) - (##cdr _%e186185186243%_))) - (_%hd186186186246%_ + (##cdr _%e187170187228%_))) + (_%hd187171187231%_ (let () (declare (not safe)) - (##car _%e186185186243%_)))) + (##car _%e187170187228%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186186186246%_)) - (let ((_%e186188186251%_ + (gx#stx-pair? _%hd187171187231%_)) + (let ((_%e187173187236%_ (let () (declare (not safe)) (gx#stx-e - _%hd186186186246%_)))) - (let ((_%tl186190186256%_ + _%hd187171187231%_)))) + (let ((_%tl187175187241%_ (let () (declare (not safe)) - (##cdr _%e186188186251%_))) - (_%hd186189186254%_ + (##cdr _%e187173187236%_))) + (_%hd187174187239%_ (let () (declare (not safe)) - (##car _%e186188186251%_)))) + (##car _%e187173187236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186190186256%_)) + _%tl187175187241%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186187186248%_)) - (let ((_%e186191186259%_ + _%tl187172187233%_)) + (let ((_%e187176187244%_ (let () (declare (not safe)) (gx#stx-e - _%tl186187186248%_)))) - (let ((_%tl186193186264%_ + _%tl187172187233%_)))) + (let ((_%tl187178187249%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186191186259%_))) - (_%hd186192186262%_ - (let () (declare (not safe)) (##car _%e186191186259%_)))) + (##cdr _%e187176187244%_))) + (_%hd187177187247%_ + (let () (declare (not safe)) (##car _%e187176187244%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186193186264%_)) + (gx#stx-null? _%tl187178187249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186037186997%_)) - (let ((_%e186194186267%_ + (gx#stx-pair? _%tl187022187982%_)) + (let ((_%e187179187252%_ (let () (declare (not safe)) - (gx#stx-e _%tl186037186997%_)))) - (let ((_%tl186196186272%_ + (gx#stx-e _%tl187022187982%_)))) + (let ((_%tl187181187257%_ (let () (declare (not safe)) - (##cdr _%e186194186267%_))) - (_%hd186195186270%_ + (##cdr _%e187179187252%_))) + (_%hd187180187255%_ (let () (declare (not safe)) - (##car _%e186194186267%_)))) + (##car _%e187179187252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186195186270%_)) - (let ((_%e186197186275%_ + (gx#stx-pair? _%hd187180187255%_)) + (let ((_%e187182187260%_ (let () (declare (not safe)) - (gx#stx-e _%hd186195186270%_)))) - (let ((_%tl186199186280%_ + (gx#stx-e _%hd187180187255%_)))) + (let ((_%tl187184187265%_ (let () (declare (not safe)) - (##cdr _%e186197186275%_))) - (_%hd186198186278%_ + (##cdr _%e187182187260%_))) + (_%hd187183187263%_ (let () (declare (not safe)) - (##car _%e186197186275%_)))) + (##car _%e187182187260%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186198186278%_)) + (gx#identifier? _%hd187183187263%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186198186278%_)) + _%hd187183187263%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186199186280%_)) - (let ((_%e186200186283%_ + _%tl187184187265%_)) + (let ((_%e187185187268%_ (let () (declare (not safe)) (gx#stx-e - _%tl186199186280%_)))) - (let ((_%tl186202186288%_ + _%tl187184187265%_)))) + (let ((_%tl187187187273%_ (let () (declare (not safe)) - (##cdr _%e186200186283%_))) - (_%hd186201186286%_ + (##cdr _%e187185187268%_))) + (_%hd187186187271%_ (let () (declare (not safe)) - (##car _%e186200186283%_)))) + (##car _%e187185187268%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186202186288%_)) + _%tl187187187273%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl186196186272%_)) - (_%__kont190048190049%_ - _%hd186201186286%_ - _%hd186192186262%_ - _%hd186189186254%_) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) + (gx#stx-null? _%tl187181187257%_)) + (_%__kont191033191034%_ + _%hd187186187271%_ + _%hd187177187247%_ + _%hd187174187239%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_))) - (_%__kont190050190051%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)) - (_%__kont190050190051%_)))) - (_%__kont190050190051%_)))))) - (_%countf-symbol182072%_ - (lambda (_%id186010%_) - (let ((_%$e186012%_ + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))))) + (_%countf-symbol183057%_ + (lambda (_%id186995%_) + (let ((_%$e186997%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id186010%_)))) - (if (or (eq? '##vector-length _%$e186012%_) - (eq? 'vector-length _%$e186012%_)) + (gxc#identifier-symbol _%id186995%_)))) + (if (or (eq? '##vector-length _%$e186997%_) + (eq? 'vector-length _%$e186997%_)) 'vector-length - (if (eq? 'values-count _%$e186012%_) + (if (eq? 'values-count _%$e186997%_) 'values-count '#f))))) - (_%eqf-symbol182073%_ - (lambda (_%sym185996%_) - (let ((_%$e185998%_ _%sym185996%_)) - (if (or (eq? '##eq? _%$e185998%_) - (eq? 'eq? _%$e185998%_)) + (_%eqf-symbol183058%_ + (lambda (_%sym186981%_) + (let ((_%$e186983%_ _%sym186981%_)) + (if (or (eq? '##eq? _%$e186983%_) + (eq? 'eq? _%$e186983%_)) 'eq? - (if (or (eq? '##eqv? _%$e185998%_) - (eq? 'eqv? _%$e185998%_)) + (if (or (eq? '##eqv? _%$e186983%_) + (eq? 'eqv? _%$e186983%_)) 'eqv? - (if (or (eq? '##equal? _%$e185998%_) - (eq? 'equal? _%$e185998%_)) + (if (or (eq? '##equal? _%$e186983%_) + (eq? 'equal? _%$e186983%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e185998%_) + (if (eq? 'gx#free-identifier=? _%$e186983%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e185998%_) + (if (eq? 'gx#stx-eq? _%$e186983%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?182074%_ - (lambda (_%sym185979%_) - (let ((_%$e185981%_ _%sym185979%_)) - (if (or (eq? 'eq? _%$e185981%_) - (eq? 'eqv? _%$e185981%_) - (eq? 'equal? _%$e185981%_) - (eq? 'free-identifier=? _%$e185981%_) - (eq? 'stx-eq? _%$e185981%_)) + (_%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!182075%_ - (lambda (_%assert185970%_ _%type185971%_ _%K185972%_) - (let ((_%unwind-assert185974%_ _%env-assert182065%_) - (_%unwind-type185975%_ _%env-type182066%_)) - (set! _%env-assert182065%_ _%assert185970%_) - (set! _%env-type182066%_ _%type185971%_) - (let ((_%val185977%_ (_%K185972%_))) - (set! _%env-assert182065%_ _%unwind-assert185974%_) - (set! _%env-type182066%_ _%unwind-type185975%_) - _%val185977%_)))) - (_%do-bind182076%_ - (lambda (_%bind185967%_ _%K185968%_) - (if (pair? _%bind185967%_) - (_%do-bind!182078%_ - (_%fold-bind-env182077%_ - _%bind185967%_ - _%env-bind182067%_) - _%K185968%_) - (_%K185968%_)))) - (_%fold-bind-env182077%_ - (lambda (_%bind185896%_ _%env185897%_) - (let _%lp185899%_ ((_%rest185901%_ _%bind185896%_) - (_%env185902%_ _%env185897%_)) - (let* ((_%rest185903185911%_ _%rest185901%_) - (_%else185905185919%_ (lambda () _%env185902%_)) - (_%K185907185955%_ - (lambda (_%rest185922%_ _%bind185923%_) - (let* ((_%bind185924185931%_ _%bind185923%_) - (_%E185926185935%_ + (_%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" - _%bind185924185931%_ + _%bind186909186916%_ '([id . expr]))) '#!void)) - (_%K185927185943%_ - (lambda (_%expr185938%_ _%id185939%_) - (let ((_%sexpr185941%_ + (_%K186912186928%_ + (lambda (_%expr186923%_ _%id186924%_) + (let ((_%sexpr186926%_ (gxc#apply-generate-runtime-repr - _%expr185938%_))) - (_%lp185899%_ - _%rest185922%_ - (cons (cons _%sexpr185941%_ - _%id185939%_) - _%env185902%_)))))) - (if (pair? _%bind185924185931%_) - (let ((_%hd185928185946%_ + _%expr186923%_))) + (_%lp186884%_ + _%rest186907%_ + (cons (cons _%sexpr186926%_ + _%id186924%_) + _%env186887%_)))))) + (if (pair? _%bind186909186916%_) + (let ((_%hd186913186931%_ (let () (declare (not safe)) - (##car _%bind185924185931%_))) - (_%tl185929185948%_ + (##car _%bind186909186916%_))) + (_%tl186914186933%_ (let () (declare (not safe)) - (##cdr _%bind185924185931%_)))) - (let* ((_%id185951%_ - _%hd185928185946%_) - (_%expr185953%_ - _%tl185929185948%_)) - (_%K185927185943%_ - _%expr185953%_ - _%id185951%_))) - (_%E185926185935%_)))))) - (if (pair? _%rest185903185911%_) - (let ((_%hd185908185958%_ + (##cdr _%bind186909186916%_)))) + (let* ((_%id186936%_ + _%hd186913186931%_) + (_%expr186938%_ + _%tl186914186933%_)) + (_%K186912186928%_ + _%expr186938%_ + _%id186936%_))) + (_%E186911186920%_)))))) + (if (pair? _%rest186888186896%_) + (let ((_%hd186893186943%_ (let () (declare (not safe)) - (##car _%rest185903185911%_))) - (_%tl185909185960%_ + (##car _%rest186888186896%_))) + (_%tl186894186945%_ (let () (declare (not safe)) - (##cdr _%rest185903185911%_)))) - (let* ((_%bind185963%_ _%hd185908185958%_) - (_%rest185965%_ _%tl185909185960%_)) - (_%K185907185955%_ - _%rest185965%_ - _%bind185963%_))) - (_%else185905185919%_)))))) - (_%do-bind!182078%_ - (lambda (_%env185889%_ _%K185890%_) - (let ((_%unwind185892%_ _%env-bind182067%_)) - (set! _%env-bind182067%_ _%env185889%_) - (let ((_%val185894%_ (_%K185890%_))) - (set! _%env-bind182067%_ _%unwind185892%_) - _%val185894%_)))) - (_%do-splice!182079%_ - (lambda (_%K185883%_) - (let ((_%unwind185885%_ _%in-splice?182068%_)) - (set! _%in-splice?182068%_ '#t) - (let ((_%val185887%_ (_%K185883%_))) - (set! _%in-splice?182068%_ _%unwind185885%_) - _%val185887%_)))) - (_%optimize-e182080%_ - (lambda (_%expr185079%_) - (let* ((_%__stx190488190489%_ _%expr185079%_) - (_%g185086185259%_ + (##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" - _%__stx190488190489%_))))) - (let ((_%__kont190490190491%_ - (lambda (_%L185855%_ _%L185856%_ _%L185857%_) - (let ((_%$e185874%_ - (_%assert-e182083%_ _%L185857%_))) - (if (eq? '#t _%$e185874%_) - (_%optimize-e182080%_ _%L185856%_) - (if (eq? '#f _%$e185874%_) - (_%optimize-e182080%_ _%L185855%_) - (let ((_%K185877%_ - (_%optimize-t__0__189435189436%_ - _%L185856%_ - _%L185857%_)) - (_%E185878%_ - (_%optimize-f__189437189438%_ - _%L185855%_ - _%L185857%_))) + _%__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 - _%K185877%_) + _%K186862%_) (gxc#apply-generate-runtime-repr - _%E185878%_)) - _%K185877%_ + _%E186863%_)) + _%K186862%_ (cons '%#if - (cons _%L185857%_ - (cons _%K185877%_ + (cons _%L186842%_ + (cons _%K186862%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E185878%_ '()))))))))))) + (cons _%E186863%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190492190493%_ - (lambda (_%L185784%_ _%L185785%_) - (let ((_%$e185805%_ - (_%lookup-block182088%_ _%L185785%_))) - (if _%$e185805%_ - ((lambda (_%block185808%_) - (if (_%nonlinear-block?182090%_ - _%block185808%_) - _%expr185079%_ - (_%optimize-e182080%_ - (_%inline-block182089%_ - _%block185808%_ - (let ((__tmp192583 - (lambda (_%g185809185812%_ - _%g185810185814%_) - (cons _%g185809185812%_ - _%g185810185814%_)))) + (_%__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 - __tmp192583 + __tmp193568 '() - _%L185784%_)))))) - _%$e185805%_) - _%expr185079%_)))) - (_%__kont190496190497%_ - (lambda (_%L185674%_ _%L185675%_ _%L185676%_) - (let ((_%body185695%_ - (_%optimize-e182080%_ _%L185674%_))) + _%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 - _%L185675%_ - _%L185676%_)) - (let ((__tmp192584 - (lambda (_%g185696185700%_ - _%g185697185702%_ - _%g185698185704%_) - (cons (cons (cons _%g185697185702%_ + _%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 _%g185696185700%_ '())) + (cons _%g186681186685%_ '())) '())) - _%g185698185704%_)))) + _%g186683186689%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192584 + __tmp193569 '() - _%L185675%_ - _%L185676%_))) - (cons _%body185695%_ '())))))) - (_%__kont190500190501%_ - (lambda (_%L185542%_ _%L185543%_ _%L185544%_) - (_%bind-e__0__189443189444%_ + _%L186660%_ + _%L186661%_))) + (cons _%body186680%_ '())))))) + (_%__kont191485191486%_ + (lambda (_%L186527%_ _%L186528%_ _%L186529%_) + (_%bind-e__0__190428190429%_ (map cons - (let ((__tmp192585 - (lambda (_%g185562185565%_ - _%g185563185567%_) - (cons _%g185562185565%_ - _%g185563185567%_)))) + (let ((__tmp193570 + (lambda (_%g186547186550%_ + _%g186548186552%_) + (cons _%g186547186550%_ + _%g186548186552%_)))) (declare (not safe)) - (__foldr1 __tmp192585 '() _%L185544%_)) - (let ((__tmp192586 - (lambda (_%g185569185572%_ - _%g185570185574%_) - (cons _%g185569185572%_ - _%g185570185574%_)))) + (__foldr1 __tmp193570 '() _%L186529%_)) + (let ((__tmp193571 + (lambda (_%g186554186557%_ + _%g186555186559%_) + (cons _%g186554186557%_ + _%g186555186559%_)))) (declare (not safe)) (__foldr1 - __tmp192586 + __tmp193571 '() - _%L185543%_))) - _%L185542%_))) - (_%__kont190504190505%_ - (lambda (_%L185399%_ - _%L185400%_ - _%L185401%_ - _%L185402%_ - _%L185403%_) - (_%do-splice!182079%_ + _%L186528%_))) + _%L186527%_))) + (_%__kont191489191490%_ + (lambda (_%L186384%_ + _%L186385%_ + _%L186386%_ + _%L186387%_ + _%L186388%_) + (_%do-splice!183064%_ (lambda () - (let ((_%expr185445%_ - (_%optimize-e182080%_ _%L185401%_))) + (let ((_%expr186430%_ + (_%optimize-e183065%_ _%L186386%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L185403%_ + (cons (cons (cons (cons _%L186388%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192587 - (lambda (_%g185446185449%_ - _%g185447185451%_) - (cons _%g185446185449%_ - _%g185447185451%_)))) + (cons (let ((__tmp193572 + (lambda (_%g186431186434%_ + _%g186432186436%_) + (cons _%g186431186434%_ + _%g186432186436%_)))) (declare (not safe)) (__foldr1 - __tmp192587 + __tmp193572 '() - _%L185402%_)) - (cons _%expr185445%_ '()))) + _%L186387%_)) + (cons _%expr186430%_ '()))) '())) - (let ((__tmp192588 - (lambda (_%g185453185456%_ _%g185454185458%_) - (cons _%g185453185456%_ _%g185454185458%_)))) + (let ((__tmp193573 + (lambda (_%g186438186441%_ _%g186439186443%_) + (cons _%g186438186441%_ _%g186439186443%_)))) (declare (not safe)) - (__foldr1 __tmp192588 '() _%L185400%_))) + (__foldr1 __tmp193573 '() _%L186385%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L185399%_ '())))))))) - (_%__kont190510190511%_ - (lambda () _%expr185079%_))) - (let* ((_%__match190697190698%_ - (lambda (_%e185207185271%_ - _%hd185208185274%_ - _%tl185209185276%_ - _%e185210185279%_ - _%hd185211185282%_ - _%tl185212185284%_ - _%e185213185287%_ - _%hd185214185290%_ - _%tl185215185292%_ - _%e185216185295%_ - _%hd185217185298%_ - _%tl185218185300%_ - _%e185219185303%_ - _%hd185220185306%_ - _%tl185221185308%_ - _%e185222185311%_ - _%hd185223185314%_ - _%tl185224185316%_ - _%e185225185319%_ - _%hd185226185322%_ - _%tl185227185324%_ - _%e185228185327%_ - _%hd185229185330%_ - _%tl185230185332%_ - _%__splice190506190507%_ - _%target185231185335%_ - _%tl185233185337%_) - (letrec ((_%loop185234185340%_ - (lambda (_%hd185232185343%_ - _%id185238185345%_) + (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? - _%hd185232185343%_)) - (let ((_%e185235185348%_ + _%hd186217186328%_)) + (let ((_%e186220186333%_ (let () (declare (not safe)) (gx#stx-e - _%hd185232185343%_)))) - (let ((_%lp-tl185237185353%_ + _%hd186217186328%_)))) + (let ((_%lp-tl186222186338%_ (let () (declare (not safe)) - (##cdr _%e185235185348%_))) - (_%lp-hd185236185351%_ + (##cdr _%e186220186333%_))) + (_%lp-hd186221186336%_ (let () (declare (not safe)) - (##car _%e185235185348%_)))) - (_%loop185234185340%_ - _%lp-tl185237185353%_ - (cons _%lp-hd185236185351%_ - _%id185238185345%_)))) - (let ((_%id185239185356%_ - (reverse _%id185238185345%_))) + (##car _%e186220186333%_)))) + (_%loop186219186325%_ + _%lp-tl186222186338%_ + (cons _%lp-hd186221186336%_ + _%id186223186330%_)))) + (let ((_%id186224186341%_ + (reverse _%id186223186330%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185230185332%_)) - (let ((_%e185240185359%_ + _%tl186215186317%_)) + (let ((_%e186225186344%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185230185332%_)))) - (let ((_%tl185242185364%_ + (gx#stx-e _%tl186215186317%_)))) + (let ((_%tl186227186349%_ (let () (declare (not safe)) - (##cdr _%e185240185359%_))) - (_%hd185241185362%_ + (##cdr _%e186225186344%_))) + (_%hd186226186347%_ (let () (declare (not safe)) - (##car _%e185240185359%_)))) + (##car _%e186225186344%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185242185364%_)) + (gx#stx-null? _%tl186227186349%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185224185316%_)) + (gx#stx-null? _%tl186209186301%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl185215185292%_)) - (let ((_%__splice190508190509%_ + (gx#stx-pair/null? _%tl186200186277%_)) + (let ((_%__splice191493191494%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl185215185292%_ + _%tl186200186277%_ '0)))) - (let ((_%tl185245185369%_ + (let ((_%tl186230186354%_ (let () (declare (not safe)) (##vector-ref - _%__splice190508190509%_ + _%__splice191493191494%_ '1))) - (_%target185243185367%_ + (_%target186228186352%_ (let () (declare (not safe)) (##vector-ref - _%__splice190508190509%_ + _%__splice191493191494%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185245185369%_)) - (letrec ((_%loop185246185372%_ - (lambda (_%hd185244185375%_ - _%bind185250185377%_) + (gx#stx-null? _%tl186230186354%_)) + (letrec ((_%loop186231186357%_ + (lambda (_%hd186229186360%_ + _%bind186235186362%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185244185375%_)) - (let ((_%e185247185380%_ + _%hd186229186360%_)) + (let ((_%e186232186365%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd185244185375%_)))) - (let ((_%lp-tl185249185385%_ + (gx#stx-e _%hd186229186360%_)))) + (let ((_%lp-tl186234186370%_ (let () (declare (not safe)) - (##cdr _%e185247185380%_))) - (_%lp-hd185248185383%_ + (##cdr _%e186232186365%_))) + (_%lp-hd186233186368%_ (let () (declare (not safe)) - (##car _%e185247185380%_)))) - (_%loop185246185372%_ - _%lp-tl185249185385%_ - (cons _%lp-hd185248185383%_ _%bind185250185377%_)))) - (let ((_%bind185251185388%_ (reverse _%bind185250185377%_))) + (##car _%e186232186365%_)))) + (_%loop186231186357%_ + _%lp-tl186234186370%_ + (cons _%lp-hd186233186368%_ _%bind186235186362%_)))) + (let ((_%bind186236186373%_ (reverse _%bind186235186362%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185212185284%_)) - (let ((_%e185252185391%_ + (gx#stx-pair? _%tl186197186269%_)) + (let ((_%e186237186376%_ (let () (declare (not safe)) - (gx#stx-e _%tl185212185284%_)))) - (let ((_%tl185254185396%_ + (gx#stx-e _%tl186197186269%_)))) + (let ((_%tl186239186381%_ (let () (declare (not safe)) - (##cdr _%e185252185391%_))) - (_%hd185253185394%_ + (##cdr _%e186237186376%_))) + (_%hd186238186379%_ (let () (declare (not safe)) - (##car _%e185252185391%_)))) + (##car _%e186237186376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185254185396%_)) - (_%__kont190504190505%_ - _%hd185253185394%_ - _%bind185251185388%_ - _%hd185241185362%_ - _%id185239185356%_ - _%hd185220185306%_) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_))))))) + (gx#stx-null? _%tl186239186381%_)) + (_%__kont191489191490%_ + _%hd186238186379%_ + _%bind186236186373%_ + _%hd186226186347%_ + _%id186224186341%_ + _%hd186205186291%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185246185372%_ - _%target185243185367%_ + (_%loop186231186357%_ + _%target186228186352%_ '())) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_))))))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185234185340%_ - _%target185231185335%_ + (_%loop186219186325%_ + _%target186216186320%_ '())))) - (_%__match190631190632%_ - (lambda (_%e185173185466%_ - _%hd185174185469%_ - _%tl185175185471%_ - _%e185176185474%_ - _%hd185177185477%_ - _%tl185178185479%_ - _%__splice190502190503%_ - _%target185179185482%_ - _%tl185181185484%_) - (letrec ((_%loop185182185487%_ - (lambda (_%hd185180185490%_ - _%expr185186185492%_ - _%id185187185494%_) + (_%__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? - _%hd185180185490%_)) - (let ((_%e185183185497%_ + _%hd186165186475%_)) + (let ((_%e186168186482%_ (let () (declare (not safe)) (gx#stx-e - _%hd185180185490%_)))) - (let ((_%lp-tl185185185502%_ + _%hd186165186475%_)))) + (let ((_%lp-tl186170186487%_ (let () (declare (not safe)) - (##cdr _%e185183185497%_))) - (_%lp-hd185184185500%_ + (##cdr _%e186168186482%_))) + (_%lp-hd186169186485%_ (let () (declare (not safe)) - (##car _%e185183185497%_)))) + (##car _%e186168186482%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185184185500%_)) - (let ((_%e185193185505%_ + _%lp-hd186169186485%_)) + (let ((_%e186178186490%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185184185500%_)))) - (let ((_%tl185195185510%_ + (gx#stx-e _%lp-hd186169186485%_)))) + (let ((_%tl186180186495%_ (let () (declare (not safe)) - (##cdr _%e185193185505%_))) - (_%hd185194185508%_ + (##cdr _%e186178186490%_))) + (_%hd186179186493%_ (let () (declare (not safe)) - (##car _%e185193185505%_)))) + (##car _%e186178186490%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185194185508%_)) - (let ((_%e185196185513%_ + (gx#stx-pair? _%hd186179186493%_)) + (let ((_%e186181186498%_ (let () (declare (not safe)) - (gx#stx-e _%hd185194185508%_)))) - (let ((_%tl185198185518%_ + (gx#stx-e _%hd186179186493%_)))) + (let ((_%tl186183186503%_ (let () (declare (not safe)) - (##cdr _%e185196185513%_))) - (_%hd185197185516%_ + (##cdr _%e186181186498%_))) + (_%hd186182186501%_ (let () (declare (not safe)) - (##car _%e185196185513%_)))) + (##car _%e186181186498%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185198185518%_)) + (gx#stx-null? _%tl186183186503%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185195185510%_)) - (let ((_%e185199185521%_ + (gx#stx-pair? _%tl186180186495%_)) + (let ((_%e186184186506%_ (let () (declare (not safe)) (gx#stx-e - _%tl185195185510%_)))) - (let ((_%tl185201185526%_ + _%tl186180186495%_)))) + (let ((_%tl186186186511%_ (let () (declare (not safe)) - (##cdr _%e185199185521%_))) - (_%hd185200185524%_ + (##cdr _%e186184186506%_))) + (_%hd186185186509%_ (let () (declare (not safe)) - (##car _%e185199185521%_)))) + (##car _%e186184186506%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185201185526%_)) - (_%loop185182185487%_ - _%lp-tl185185185502%_ - (cons _%hd185200185524%_ - _%expr185186185492%_) - (cons _%hd185197185516%_ - _%id185187185494%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) + _%tl186186186511%_)) + (_%loop186167186472%_ + _%lp-tl186170186487%_ + (cons _%hd186185186509%_ + _%expr186171186477%_) + (cons _%hd186182186501%_ + _%id186172186479%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id185189185531%_ - (reverse _%id185187185494%_)) - (_%expr185188185529%_ - (reverse _%expr185186185492%_))) + (let ((_%id186174186516%_ + (reverse _%id186172186479%_)) + (_%expr186173186514%_ + (reverse _%expr186171186477%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185178185479%_)) - (let ((_%e185190185534%_ + _%tl186163186464%_)) + (let ((_%e186175186519%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185178185479%_)))) - (let ((_%tl185192185539%_ + (gx#stx-e _%tl186163186464%_)))) + (let ((_%tl186177186524%_ (let () (declare (not safe)) - (##cdr _%e185190185534%_))) - (_%hd185191185537%_ + (##cdr _%e186175186519%_))) + (_%hd186176186522%_ (let () (declare (not safe)) - (##car _%e185190185534%_)))) + (##car _%e186175186519%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185192185539%_)) - (_%__kont190500190501%_ - _%hd185191185537%_ - _%expr185188185529%_ - _%id185189185531%_) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_))))))) + (gx#stx-null? _%tl186177186524%_)) + (_%__kont191485191486%_ + _%hd186176186522%_ + _%expr186173186514%_ + _%id186174186516%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185182185487%_ - _%target185179185482%_ + (_%loop186167186472%_ + _%target186164186467%_ '() '())))) - (_%__match190607190608%_ - (lambda (_%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_) - (letrec ((_%loop185144185603%_ - (lambda (_%hd185142185606%_ - _%xid185148185608%_ - _%id185149185610%_) + (_%__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? - _%hd185142185606%_)) - (let ((_%e185145185613%_ + _%hd186127186591%_)) + (let ((_%e186130186598%_ (let () (declare (not safe)) (gx#stx-e - _%hd185142185606%_)))) - (let ((_%lp-tl185147185618%_ + _%hd186127186591%_)))) + (let ((_%lp-tl186132186603%_ (let () (declare (not safe)) - (##cdr _%e185145185613%_))) - (_%lp-hd185146185616%_ + (##cdr _%e186130186598%_))) + (_%lp-hd186131186601%_ (let () (declare (not safe)) - (##car _%e185145185613%_)))) + (##car _%e186130186598%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185146185616%_)) - (let ((_%e185155185621%_ + _%lp-hd186131186601%_)) + (let ((_%e186140186606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185146185616%_)))) - (let ((_%tl185157185626%_ + (gx#stx-e _%lp-hd186131186601%_)))) + (let ((_%tl186142186611%_ (let () (declare (not safe)) - (##cdr _%e185155185621%_))) - (_%hd185156185624%_ + (##cdr _%e186140186606%_))) + (_%hd186141186609%_ (let () (declare (not safe)) - (##car _%e185155185621%_)))) + (##car _%e186140186606%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185156185624%_)) - (let ((_%e185158185629%_ + (gx#stx-pair? _%hd186141186609%_)) + (let ((_%e186143186614%_ (let () (declare (not safe)) - (gx#stx-e _%hd185156185624%_)))) - (let ((_%tl185160185634%_ + (gx#stx-e _%hd186141186609%_)))) + (let ((_%tl186145186619%_ (let () (declare (not safe)) - (##cdr _%e185158185629%_))) - (_%hd185159185632%_ + (##cdr _%e186143186614%_))) + (_%hd186144186617%_ (let () (declare (not safe)) - (##car _%e185158185629%_)))) + (##car _%e186143186614%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185160185634%_)) + (gx#stx-null? _%tl186145186619%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185157185626%_)) - (let ((_%e185161185637%_ + (gx#stx-pair? _%tl186142186611%_)) + (let ((_%e186146186622%_ (let () (declare (not safe)) (gx#stx-e - _%tl185157185626%_)))) - (let ((_%tl185163185642%_ + _%tl186142186611%_)))) + (let ((_%tl186148186627%_ (let () (declare (not safe)) - (##cdr _%e185161185637%_))) - (_%hd185162185640%_ + (##cdr _%e186146186622%_))) + (_%hd186147186625%_ (let () (declare (not safe)) - (##car _%e185161185637%_)))) + (##car _%e186146186622%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185162185640%_)) - (let ((_%e185164185645%_ + _%hd186147186625%_)) + (let ((_%e186149186630%_ (let () (declare (not safe)) (gx#stx-e - _%hd185162185640%_)))) - (let ((_%tl185166185650%_ + _%hd186147186625%_)))) + (let ((_%tl186151186635%_ (let () (declare (not safe)) - (##cdr _%e185164185645%_))) - (_%hd185165185648%_ + (##cdr _%e186149186630%_))) + (_%hd186150186633%_ (let () (declare (not safe)) - (##car _%e185164185645%_)))) + (##car _%e186149186630%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185165185648%_)) + _%hd186150186633%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd185165185648%_)) + _%hd186150186633%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl185166185650%_)) - (let ((_%e185167185653%_ + (gx#stx-pair? _%tl186151186635%_)) + (let ((_%e186152186638%_ (let () (declare (not safe)) - (gx#stx-e _%tl185166185650%_)))) - (let ((_%tl185169185658%_ + (gx#stx-e _%tl186151186635%_)))) + (let ((_%tl186154186643%_ (let () (declare (not safe)) - (##cdr _%e185167185653%_))) - (_%hd185168185656%_ + (##cdr _%e186152186638%_))) + (_%hd186153186641%_ (let () (declare (not safe)) - (##car _%e185167185653%_)))) + (##car _%e186152186638%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185169185658%_)) + (gx#stx-null? _%tl186154186643%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185163185642%_)) - (_%loop185144185603%_ - _%lp-tl185147185618%_ - (cons _%hd185168185656%_ - _%xid185148185608%_) - (cons _%hd185159185632%_ - _%id185149185610%_)) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)))) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)))) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)))) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)))) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)))) + (_%__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 ((_%id185151185663%_ - (reverse _%id185149185610%_)) - (_%xid185150185661%_ - (reverse _%xid185148185608%_))) + (let ((_%id186136186648%_ + (reverse _%id186134186595%_)) + (_%xid186135186646%_ + (reverse _%xid186133186593%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185140185595%_)) - (let ((_%e185152185666%_ + _%tl186125186580%_)) + (let ((_%e186137186651%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185140185595%_)))) - (let ((_%tl185154185671%_ + (gx#stx-e _%tl186125186580%_)))) + (let ((_%tl186139186656%_ (let () (declare (not safe)) - (##cdr _%e185152185666%_))) - (_%hd185153185669%_ + (##cdr _%e186137186651%_))) + (_%hd186138186654%_ (let () (declare (not safe)) - (##car _%e185152185666%_)))) + (##car _%e186137186651%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185154185671%_)) - (_%__kont190496190497%_ - _%hd185153185669%_ - _%xid185150185661%_ - _%id185151185663%_) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_)))) - (_%__match190631190632%_ - _%e185135185582%_ - _%hd185136185585%_ - _%tl185137185587%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_))))))) + (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%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185144185603%_ - _%target185141185598%_ + (_%loop186129186588%_ + _%target186126186583%_ '() '())))) - (_%__match190583190584%_ - (lambda (_%e185105185712%_ - _%hd185106185715%_ - _%tl185107185717%_ - _%e185108185720%_ - _%hd185109185723%_ - _%tl185110185725%_ - _%e185111185728%_ - _%hd185112185731%_ - _%tl185113185733%_ - _%e185114185736%_ - _%hd185115185739%_ - _%tl185116185741%_ - _%__splice190494190495%_ - _%target185117185744%_ - _%tl185119185746%_) - (letrec ((_%loop185120185749%_ - (lambda (_%hd185118185752%_ - _%id185124185754%_) + (_%__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? - _%hd185118185752%_)) - (let ((_%e185121185757%_ + _%hd186103186737%_)) + (let ((_%e186106186742%_ (let () (declare (not safe)) (gx#stx-e - _%hd185118185752%_)))) - (let ((_%lp-tl185123185762%_ + _%hd186103186737%_)))) + (let ((_%lp-tl186108186747%_ (let () (declare (not safe)) - (##cdr _%e185121185757%_))) - (_%lp-hd185122185760%_ + (##cdr _%e186106186742%_))) + (_%lp-hd186107186745%_ (let () (declare (not safe)) - (##car _%e185121185757%_)))) + (##car _%e186106186742%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185122185760%_)) - (let ((_%e185126185765%_ + _%lp-hd186107186745%_)) + (let ((_%e186111186750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185122185760%_)))) - (let ((_%tl185128185770%_ + (gx#stx-e _%lp-hd186107186745%_)))) + (let ((_%tl186113186755%_ (let () (declare (not safe)) - (##cdr _%e185126185765%_))) - (_%hd185127185768%_ + (##cdr _%e186111186750%_))) + (_%hd186112186753%_ (let () (declare (not safe)) - (##car _%e185126185765%_)))) + (##car _%e186111186750%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185127185768%_)) + (gx#identifier? _%hd186112186753%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185127185768%_)) + (gx#stx-eq? '%#ref _%hd186112186753%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185128185770%_)) - (let ((_%e185129185773%_ + (gx#stx-pair? _%tl186113186755%_)) + (let ((_%e186114186758%_ (let () (declare (not safe)) - (gx#stx-e _%tl185128185770%_)))) - (let ((_%tl185131185778%_ + (gx#stx-e _%tl186113186755%_)))) + (let ((_%tl186116186763%_ (let () (declare (not safe)) - (##cdr _%e185129185773%_))) - (_%hd185130185776%_ + (##cdr _%e186114186758%_))) + (_%hd186115186761%_ (let () (declare (not safe)) - (##car _%e185129185773%_)))) + (##car _%e186114186758%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185131185778%_)) - (_%loop185120185749%_ - _%lp-tl185123185762%_ - (cons _%hd185130185776%_ - _%id185124185754%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) + (gx#stx-null? _%tl186116186763%_)) + (_%loop186105186734%_ + _%lp-tl186108186747%_ + (cons _%hd186115186761%_ + _%id186109186739%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id185125185781%_ - (reverse _%id185124185754%_))) - (_%__kont190492190493%_ - _%id185125185781%_ - _%hd185115185739%_)))))) - (_%loop185120185749%_ - _%target185117185744%_ + (let ((_%id186110186766%_ + (reverse _%id186109186739%_))) + (_%__kont191477191478%_ + _%id186110186766%_ + _%hd186100186724%_)))))) + (_%loop186105186734%_ + _%target186102186729%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190488190489%_)) - (let ((_%e185091185823%_ + (gx#stx-pair? _%__stx191473191474%_)) + (let ((_%e186076186808%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190488190489%_)))) - (let ((_%tl185093185828%_ + (gx#stx-e _%__stx191473191474%_)))) + (let ((_%tl186078186813%_ (let () (declare (not safe)) - (##cdr _%e185091185823%_))) - (_%hd185092185826%_ + (##cdr _%e186076186808%_))) + (_%hd186077186811%_ (let () (declare (not safe)) - (##car _%e185091185823%_)))) + (##car _%e186076186808%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185092185826%_)) + (gx#identifier? _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd185092185826%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185093185828%_)) - (let ((_%e185094185831%_ + _%tl186078186813%_)) + (let ((_%e186079186816%_ (let () (declare (not safe)) (gx#stx-e - _%tl185093185828%_)))) - (let ((_%tl185096185836%_ + _%tl186078186813%_)))) + (let ((_%tl186081186821%_ (let () (declare (not safe)) - (##cdr _%e185094185831%_))) - (_%hd185095185834%_ + (##cdr _%e186079186816%_))) + (_%hd186080186819%_ (let () (declare (not safe)) - (##car _%e185094185831%_)))) + (##car _%e186079186816%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185096185836%_)) - (let ((_%e185097185839%_ + _%tl186081186821%_)) + (let ((_%e186082186824%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl185096185836%_)))) - (let ((_%tl185099185844%_ + (gx#stx-e _%tl186081186821%_)))) + (let ((_%tl186084186829%_ (let () (declare (not safe)) - (##cdr _%e185097185839%_))) - (_%hd185098185842%_ + (##cdr _%e186082186824%_))) + (_%hd186083186827%_ (let () (declare (not safe)) - (##car _%e185097185839%_)))) + (##car _%e186082186824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185099185844%_)) - (let ((_%e185100185847%_ + (gx#stx-pair? _%tl186084186829%_)) + (let ((_%e186085186832%_ (let () (declare (not safe)) - (gx#stx-e _%tl185099185844%_)))) - (let ((_%tl185102185852%_ + (gx#stx-e _%tl186084186829%_)))) + (let ((_%tl186087186837%_ (let () (declare (not safe)) - (##cdr _%e185100185847%_))) - (_%hd185101185850%_ + (##cdr _%e186085186832%_))) + (_%hd186086186835%_ (let () (declare (not safe)) - (##car _%e185100185847%_)))) + (##car _%e186085186832%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185102185852%_)) - (_%__kont190490190491%_ - _%hd185101185850%_ - _%hd185098185842%_ - _%hd185095185834%_) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) + (gx#stx-null? _%tl186087186837%_)) + (_%__kont191475191476%_ + _%hd186086186835%_ + _%hd186083186827%_ + _%hd186080186819%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190510190511%_)) + (_%__kont191495191496%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd185092185826%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185093185828%_)) - (let ((_%e185108185720%_ + _%tl186078186813%_)) + (let ((_%e186093186705%_ (let () (declare (not safe)) (gx#stx-e - _%tl185093185828%_)))) - (let ((_%tl185110185725%_ + _%tl186078186813%_)))) + (let ((_%tl186095186710%_ (let () (declare (not safe)) - (##cdr _%e185108185720%_))) - (_%hd185109185723%_ + (##cdr _%e186093186705%_))) + (_%hd186094186708%_ (let () (declare (not safe)) - (##car _%e185108185720%_)))) + (##car _%e186093186705%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185109185723%_)) - (let ((_%e185111185728%_ + _%hd186094186708%_)) + (let ((_%e186096186713%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd185109185723%_)))) - (let ((_%tl185113185733%_ + (gx#stx-e _%hd186094186708%_)))) + (let ((_%tl186098186718%_ (let () (declare (not safe)) - (##cdr _%e185111185728%_))) - (_%hd185112185731%_ + (##cdr _%e186096186713%_))) + (_%hd186097186716%_ (let () (declare (not safe)) - (##car _%e185111185728%_)))) + (##car _%e186096186713%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185112185731%_)) + (gx#identifier? _%hd186097186716%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185112185731%_)) + (gx#stx-eq? '%#ref _%hd186097186716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185113185733%_)) - (let ((_%e185114185736%_ + (gx#stx-pair? _%tl186098186718%_)) + (let ((_%e186099186721%_ (let () (declare (not safe)) - (gx#stx-e _%tl185113185733%_)))) - (let ((_%tl185116185741%_ + (gx#stx-e _%tl186098186718%_)))) + (let ((_%tl186101186726%_ (let () (declare (not safe)) - (##cdr _%e185114185736%_))) - (_%hd185115185739%_ + (##cdr _%e186099186721%_))) + (_%hd186100186724%_ (let () (declare (not safe)) - (##car _%e185114185736%_)))) + (##car _%e186099186721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185116185741%_)) + (gx#stx-null? _%tl186101186726%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl185110185725%_)) - (let ((_%__splice190494190495%_ + _%tl186095186710%_)) + (let ((_%__splice191479191480%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl185110185725%_ + _%tl186095186710%_ '0)))) - (let ((_%tl185119185746%_ + (let ((_%tl186104186731%_ (let () (declare (not safe)) (##vector-ref - _%__splice190494190495%_ + _%__splice191479191480%_ '1))) - (_%target185117185744%_ + (_%target186102186729%_ (let () (declare (not safe)) (##vector-ref - _%__splice190494190495%_ + _%__splice191479191480%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185119185746%_)) - (_%__match190583190584%_ - _%e185091185823%_ - _%hd185092185826%_ - _%tl185093185828%_ - _%e185108185720%_ - _%hd185109185723%_ - _%tl185110185725%_ - _%e185111185728%_ - _%hd185112185731%_ - _%tl185113185733%_ - _%e185114185736%_ - _%hd185115185739%_ - _%tl185116185741%_ - _%__splice190494190495%_ - _%target185117185744%_ - _%tl185119185746%_) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) + _%tl186104186731%_)) + (_%__match191568191569%_ + _%e186076186808%_ + _%hd186077186811%_ + _%tl186078186813%_ + _%e186093186705%_ + _%hd186094186708%_ + _%tl186095186710%_ + _%e186096186713%_ + _%hd186097186716%_ + _%tl186098186718%_ + _%e186099186721%_ + _%hd186100186724%_ + _%tl186101186726%_ + _%__splice191479191480%_ + _%target186102186729%_ + _%tl186104186731%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190510190511%_)) + (_%__kont191495191496%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd185092185826%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185093185828%_)) - (let ((_%e185138185590%_ + _%tl186078186813%_)) + (let ((_%e186123186575%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl185093185828%_)))) - (let ((_%tl185140185595%_ + (gx#stx-e _%tl186078186813%_)))) + (let ((_%tl186125186580%_ (let () (declare (not safe)) - (##cdr _%e185138185590%_))) - (_%hd185139185593%_ + (##cdr _%e186123186575%_))) + (_%hd186124186578%_ (let () (declare (not safe)) - (##car _%e185138185590%_)))) + (##car _%e186123186575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd185139185593%_)) - (let ((_%__splice190498190499%_ + (gx#stx-pair/null? _%hd186124186578%_)) + (let ((_%__splice191483191484%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd185139185593%_ + _%hd186124186578%_ '0)))) - (let ((_%tl185143185600%_ + (let ((_%tl186128186585%_ (let () (declare (not safe)) - (##vector-ref _%__splice190498190499%_ '1))) - (_%target185141185598%_ + (##vector-ref _%__splice191483191484%_ '1))) + (_%target186126186583%_ (let () (declare (not safe)) - (##vector-ref _%__splice190498190499%_ '0)))) + (##vector-ref _%__splice191483191484%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185143185600%_)) - (_%__match190607190608%_ - _%e185091185823%_ - _%hd185092185826%_ - _%tl185093185828%_ - _%e185138185590%_ - _%hd185139185593%_ - _%tl185140185595%_ - _%__splice190498190499%_ - _%target185141185598%_ - _%tl185143185600%_) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) + (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 - _%hd185092185826%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185093185828%_)) - (let ((_%e185210185279%_ + _%tl186078186813%_)) + (let ((_%e186195186264%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl185093185828%_)))) - (let ((_%tl185212185284%_ + (gx#stx-e _%tl186078186813%_)))) + (let ((_%tl186197186269%_ (let () (declare (not safe)) - (##cdr _%e185210185279%_))) - (_%hd185211185282%_ + (##cdr _%e186195186264%_))) + (_%hd186196186267%_ (let () (declare (not safe)) - (##car _%e185210185279%_)))) + (##car _%e186195186264%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185211185282%_)) - (let ((_%e185213185287%_ + (gx#stx-pair? _%hd186196186267%_)) + (let ((_%e186198186272%_ (let () (declare (not safe)) - (gx#stx-e _%hd185211185282%_)))) - (let ((_%tl185215185292%_ + (gx#stx-e _%hd186196186267%_)))) + (let ((_%tl186200186277%_ (let () (declare (not safe)) - (##cdr _%e185213185287%_))) - (_%hd185214185290%_ + (##cdr _%e186198186272%_))) + (_%hd186199186275%_ (let () (declare (not safe)) - (##car _%e185213185287%_)))) + (##car _%e186198186272%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185214185290%_)) - (let ((_%e185216185295%_ + (gx#stx-pair? _%hd186199186275%_)) + (let ((_%e186201186280%_ (let () (declare (not safe)) - (gx#stx-e _%hd185214185290%_)))) - (let ((_%tl185218185300%_ + (gx#stx-e _%hd186199186275%_)))) + (let ((_%tl186203186285%_ (let () (declare (not safe)) - (##cdr _%e185216185295%_))) - (_%hd185217185298%_ + (##cdr _%e186201186280%_))) + (_%hd186202186283%_ (let () (declare (not safe)) - (##car _%e185216185295%_)))) + (##car _%e186201186280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185217185298%_)) - (let ((_%e185219185303%_ + (gx#stx-pair? _%hd186202186283%_)) + (let ((_%e186204186288%_ (let () (declare (not safe)) (gx#stx-e - _%hd185217185298%_)))) - (let ((_%tl185221185308%_ + _%hd186202186283%_)))) + (let ((_%tl186206186293%_ (let () (declare (not safe)) - (##cdr _%e185219185303%_))) - (_%hd185220185306%_ + (##cdr _%e186204186288%_))) + (_%hd186205186291%_ (let () (declare (not safe)) - (##car _%e185219185303%_)))) + (##car _%e186204186288%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185221185308%_)) + _%tl186206186293%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185218185300%_)) - (let ((_%e185222185311%_ + _%tl186203186285%_)) + (let ((_%e186207186296%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl185218185300%_)))) - (let ((_%tl185224185316%_ + (gx#stx-e _%tl186203186285%_)))) + (let ((_%tl186209186301%_ (let () (declare (not safe)) - (##cdr _%e185222185311%_))) - (_%hd185223185314%_ + (##cdr _%e186207186296%_))) + (_%hd186208186299%_ (let () (declare (not safe)) - (##car _%e185222185311%_)))) + (##car _%e186207186296%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185223185314%_)) - (let ((_%e185225185319%_ + (gx#stx-pair? _%hd186208186299%_)) + (let ((_%e186210186304%_ (let () (declare (not safe)) - (gx#stx-e _%hd185223185314%_)))) - (let ((_%tl185227185324%_ + (gx#stx-e _%hd186208186299%_)))) + (let ((_%tl186212186309%_ (let () (declare (not safe)) - (##cdr _%e185225185319%_))) - (_%hd185226185322%_ + (##cdr _%e186210186304%_))) + (_%hd186211186307%_ (let () (declare (not safe)) - (##car _%e185225185319%_)))) + (##car _%e186210186304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185226185322%_)) + (gx#identifier? _%hd186211186307%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd185226185322%_)) + (gx#stx-eq? '%#lambda _%hd186211186307%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185227185324%_)) - (let ((_%e185228185327%_ + (gx#stx-pair? _%tl186212186309%_)) + (let ((_%e186213186312%_ (let () (declare (not safe)) (gx#stx-e - _%tl185227185324%_)))) - (let ((_%tl185230185332%_ + _%tl186212186309%_)))) + (let ((_%tl186215186317%_ (let () (declare (not safe)) - (##cdr _%e185228185327%_))) - (_%hd185229185330%_ + (##cdr _%e186213186312%_))) + (_%hd186214186315%_ (let () (declare (not safe)) - (##car _%e185228185327%_)))) + (##car _%e186213186312%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd185229185330%_)) - (let ((_%__splice190506190507%_ + _%hd186214186315%_)) + (let ((_%__splice191491191492%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd185229185330%_ + _%hd186214186315%_ '0)))) - (let ((_%tl185233185337%_ + (let ((_%tl186218186322%_ (let () (declare (not safe)) (##vector-ref - _%__splice190506190507%_ + _%__splice191491191492%_ '1))) - (_%target185231185335%_ + (_%target186216186320%_ (let () (declare (not safe)) (##vector-ref - _%__splice190506190507%_ + _%__splice191491191492%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185233185337%_)) - (_%__match190697190698%_ - _%e185091185823%_ - _%hd185092185826%_ - _%tl185093185828%_ - _%e185210185279%_ - _%hd185211185282%_ - _%tl185212185284%_ - _%e185213185287%_ - _%hd185214185290%_ - _%tl185215185292%_ - _%e185216185295%_ - _%hd185217185298%_ - _%tl185218185300%_ - _%e185219185303%_ - _%hd185220185306%_ - _%tl185221185308%_ - _%e185222185311%_ - _%hd185223185314%_ - _%tl185224185316%_ - _%e185225185319%_ - _%hd185226185322%_ - _%tl185227185324%_ - _%e185228185327%_ - _%hd185229185330%_ - _%tl185230185332%_ - _%__splice190506190507%_ - _%target185231185335%_ - _%tl185233185337%_) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) + _%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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)))) - (_%__kont190510190511%_)) - (_%__kont190510190511%_))))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190510190511%_)))) - (_%__kont190510190511%_))))))) - (_%optimize-t__189433189434%_ - (lambda (_%expr185062%_ _%test185063%_ _%continue185064%_) - (_%do-assert182069%_ - (cons (cons _%test185063%_ '#t) '()) - (lambda () (_%continue185064%_ _%expr185062%_))))) - (_%optimize-t__0__189435189436%_ - (lambda (_%expr185070%_ _%test185071%_) - (let ((_%continue185073%_ _%optimize-e182080%_)) - (_%optimize-t__189433189434%_ - _%expr185070%_ - _%test185071%_ - _%continue185073%_)))) - (_%optimize-t182081%_ - (lambda _g192590_ - (let ((_g192589_ + (_%__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 _g192590_)))) - (cond ((let () (declare (not safe)) (##fx= _g192589_ 2)) - (apply _%optimize-t__0__189435189436%_ - _g192590_)) - ((let () (declare (not safe)) (##fx= _g192589_ 3)) - (apply _%optimize-t__189433189434%_ _g192590_)) + (##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 - _g192590_)))))) - (_%optimize-f__189437189438%_ - (lambda (_%expr184146%_ _%test184147%_) - (_%do-assert182069%_ - (if _%test184147%_ - (cons (cons _%test184147%_ '#f) '()) + _g193575_)))))) + (_%optimize-f__190422190423%_ + (lambda (_%expr185131%_ _%test185132%_) + (_%do-assert183054%_ + (if _%test185132%_ + (cons (cons _%test185132%_ '#f) '()) '()) (lambda () - (let* ((_%__stx190738190739%_ _%expr184146%_) - (_%g184155184328%_ + (let* ((_%__stx191723191724%_ _%expr185131%_) + (_%g185140185313%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190738190739%_))))) - (let ((_%__kont190740190741%_ - (lambda (_%L184916%_ _%L184917%_) - (let ((_%$e184937%_ - (_%lookup-block182088%_ - _%L184917%_))) - (if _%$e184937%_ - ((lambda (_%block184940%_) - (if (_%nonlinear-block?182090%_ - _%block184940%_) - _%expr184146%_ - (let* ((_%inline184949%_ - (_%inline-block182089%_ - _%block184940%_ - (let ((__tmp192591 - (lambda (_%g184941184944%_ + _%__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%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184942184946%_) - (cons _%g184941184944%_ _%g184942184946%_)))) + _%g185927185931%_) + (cons _%g185926185929%_ _%g185927185931%_)))) (declare (not safe)) - (__foldr1 __tmp192591 '() _%L184916%_)))) - (_%__stx190700190701%_ _%inline184949%_) - (_%g184952184973%_ + (__foldr1 __tmp193576 '() _%L185901%_)))) + (_%__stx191685191686%_ _%inline185934%_) + (_%g185937185958%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190700190701%_))))) + _%__stx191685191686%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont190702190703%_ - (lambda (_%L185017%_ + (let ((_%__kont191687191688%_ + (lambda (_%L186002%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L185018%_ - _%L185019%_) - (let ((_%$e185041%_ (_%assert-e182083%_ _%L185019%_))) - (if (eq? '#t _%$e185041%_) - (if _%in-splice?182068%_ - (_%optimize-f__0__189439189440%_ _%L185018%_) - (_%optimize-e182080%_ _%L185018%_)) - (if (eq? '#f _%$e185041%_) - (_%optimize-f__0__189439189440%_ _%L185017%_) - _%expr184146%_))))) - (_%__kont190704190705%_ + _%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__189439189440%_ _%inline184949%_)))) + (_%optimize-f__0__190424190425%_ _%inline185934%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190700190701%_)) - (let ((_%e184957184985%_ + _%__stx191685191686%_)) + (let ((_%e185942185970%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx190700190701%_)))) - (let ((_%tl184959184990%_ + (gx#stx-e _%__stx191685191686%_)))) + (let ((_%tl185944185975%_ (let () (declare (not safe)) - (##cdr _%e184957184985%_))) - (_%hd184958184988%_ + (##cdr _%e185942185970%_))) + (_%hd185943185973%_ (let () (declare (not safe)) - (##car _%e184957184985%_)))) + (##car _%e185942185970%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184958184988%_)) + (gx#identifier? _%hd185943185973%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd184958184988%_)) + (gx#stx-eq? '%#if _%hd185943185973%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184959184990%_)) - (let ((_%e184960184993%_ + (gx#stx-pair? _%tl185944185975%_)) + (let ((_%e185945185978%_ (let () (declare (not safe)) - (gx#stx-e _%tl184959184990%_)))) - (let ((_%tl184962184998%_ + (gx#stx-e _%tl185944185975%_)))) + (let ((_%tl185947185983%_ (let () (declare (not safe)) - (##cdr _%e184960184993%_))) - (_%hd184961184996%_ + (##cdr _%e185945185978%_))) + (_%hd185946185981%_ (let () (declare (not safe)) - (##car _%e184960184993%_)))) + (##car _%e185945185978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184962184998%_)) - (let ((_%e184963185001%_ + (gx#stx-pair? _%tl185947185983%_)) + (let ((_%e185948185986%_ (let () (declare (not safe)) (gx#stx-e - _%tl184962184998%_)))) - (let ((_%tl184965185006%_ + _%tl185947185983%_)))) + (let ((_%tl185950185991%_ (let () (declare (not safe)) - (##cdr _%e184963185001%_))) - (_%hd184964185004%_ + (##cdr _%e185948185986%_))) + (_%hd185949185989%_ (let () (declare (not safe)) - (##car _%e184963185001%_)))) + (##car _%e185948185986%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184965185006%_)) - (let ((_%e184966185009%_ + _%tl185950185991%_)) + (let ((_%e185951185994%_ (let () (declare (not safe)) (gx#stx-e - _%tl184965185006%_)))) - (let ((_%tl184968185014%_ + _%tl185950185991%_)))) + (let ((_%tl185953185999%_ (let () (declare (not safe)) - (##cdr _%e184966185009%_))) - (_%hd184967185012%_ + (##cdr _%e185951185994%_))) + (_%hd185952185997%_ (let () (declare (not safe)) - (##car _%e184966185009%_)))) + (##car _%e185951185994%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184968185014%_)) - (_%__kont190702190703%_ - _%hd184967185012%_ - _%hd184964185004%_ - _%hd184961184996%_) - (_%__kont190704190705%_)))) - (_%__kont190704190705%_)))) - (_%__kont190704190705%_)))) - (_%__kont190704190705%_)) - (_%__kont190704190705%_)) - (_%__kont190704190705%_)))) - (_%__kont190704190705%_)))))) + _%tl185953185999%_)) + (_%__kont191687191688%_ + _%hd185952185997%_ + _%hd185949185989%_ + _%hd185946185981%_) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)) + (_%__kont191689191690%_)) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e184937%_) - _%expr184146%_)))) - (_%__kont190744190745%_ - (lambda (_%L184814%_ _%L184815%_ _%L184816%_) - (let ((_%$e184833%_ - (_%assert-e182083%_ _%L184816%_))) - (if (eq? '#t _%$e184833%_) - (if _%in-splice?182068%_ - (_%optimize-f__0__189439189440%_ - _%L184815%_) - (_%optimize-e182080%_ - _%L184815%_)) - (if (eq? '#f _%$e184833%_) - (_%optimize-f__0__189439189440%_ - _%L184814%_) - (let ((_%K184836%_ - (_%optimize-t__189433189434%_ - _%L184815%_ - _%L184816%_ - _%optimize-f182082%_)) - (_%E184837%_ - (_%optimize-f__189437189438%_ - _%L184814%_ - _%L184816%_))) + _%$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 - _%K184836%_) + _%K185821%_) (gxc#apply-generate-runtime-repr - _%E184837%_)) - _%K184836%_ + _%E185822%_)) + _%K185821%_ (cons '%#if - (cons _%L184816%_ - (cons _%K184836%_ + (cons _%L185801%_ + (cons _%K185821%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E184837%_ '()))))))))))) + (cons _%E185822%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190746190747%_ - (lambda (_%L184744%_ _%L184745%_ _%L184746%_) - (let ((_%body184765%_ - (_%optimize-f__0__189439189440%_ - _%L184744%_))) + (_%__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 - _%L184745%_ - _%L184746%_)) - (let ((__tmp192592 - (lambda (_%g184766184770%_ + _%L185730%_ + _%L185731%_)) + (let ((__tmp193577 + (lambda (_%g185751185755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184767184772%_ - _%g184768184774%_) - (cons (cons (cons _%g184767184772%_ '()) + _%g185752185757%_ + _%g185753185759%_) + (cons (cons (cons _%g185752185757%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g184766184770%_ '())) + (cons _%g185751185755%_ '())) '())) - _%g184768184774%_)))) + _%g185753185759%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192592 + __tmp193577 '() - _%L184745%_ - _%L184746%_))) - (cons _%body184765%_ '())))))) - (_%__kont190750190751%_ - (lambda (_%L184612%_ _%L184613%_ _%L184614%_) - (_%bind-e__189441189442%_ + _%L185730%_ + _%L185731%_))) + (cons _%body185750%_ '())))))) + (_%__kont191735191736%_ + (lambda (_%L185597%_ _%L185598%_ _%L185599%_) + (_%bind-e__190426190427%_ (map cons - (let ((__tmp192593 - (lambda (_%g184632184635%_ - _%g184633184637%_) - (cons _%g184632184635%_ - _%g184633184637%_)))) + (let ((__tmp193578 + (lambda (_%g185617185620%_ + _%g185618185622%_) + (cons _%g185617185620%_ + _%g185618185622%_)))) (declare (not safe)) (__foldr1 - __tmp192593 + __tmp193578 '() - _%L184614%_)) - (let ((__tmp192594 - (lambda (_%g184639184642%_ - _%g184640184644%_) - (cons _%g184639184642%_ - _%g184640184644%_)))) + _%L185599%_)) + (let ((__tmp193579 + (lambda (_%g185624185627%_ + _%g185625185629%_) + (cons _%g185624185627%_ + _%g185625185629%_)))) (declare (not safe)) (__foldr1 - __tmp192594 + __tmp193579 '() - _%L184613%_))) - _%L184612%_ - _%optimize-f182082%_))) - (_%__kont190754190755%_ - (lambda (_%L184468%_ - _%L184469%_ - _%L184470%_ - _%L184471%_ - _%L184472%_) - (_%do-splice!182079%_ + _%L185598%_))) + _%L185597%_ + _%optimize-f183067%_))) + (_%__kont191739191740%_ + (lambda (_%L185453%_ + _%L185454%_ + _%L185455%_ + _%L185456%_ + _%L185457%_) + (_%do-splice!183064%_ (lambda () - (let ((_%expr184515%_ - (_%optimize-f__0__189439189440%_ - _%L184470%_))) + (let ((_%expr185500%_ + (_%optimize-f__0__190424190425%_ + _%L185455%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L184472%_ + (cons (cons (cons (cons _%L185457%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192595 - (lambda (_%g184516184519%_ - _%g184517184521%_) - (cons _%g184516184519%_ - _%g184517184521%_)))) + (cons (let ((__tmp193580 + (lambda (_%g185501185504%_ + _%g185502185506%_) + (cons _%g185501185504%_ + _%g185502185506%_)))) (declare (not safe)) (__foldr1 - __tmp192595 + __tmp193580 '() - _%L184471%_)) - (cons _%expr184515%_ '()))) + _%L185456%_)) + (cons _%expr185500%_ '()))) '())) - (let ((__tmp192596 - (lambda (_%g184523184526%_ _%g184524184528%_) - (cons _%g184523184526%_ _%g184524184528%_)))) + (let ((__tmp193581 + (lambda (_%g185508185511%_ _%g185509185513%_) + (cons _%g185508185511%_ _%g185509185513%_)))) (declare (not safe)) - (__foldr1 __tmp192596 '() _%L184469%_))) + (__foldr1 __tmp193581 '() _%L185454%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L184468%_ + (cons _%L185453%_ '())))))))) - (_%__kont190760190761%_ - (lambda () _%expr184146%_))) - (let* ((_%__match190947190948%_ - (lambda (_%e184276184340%_ - _%hd184277184343%_ - _%tl184278184345%_ - _%e184279184348%_ - _%hd184280184351%_ - _%tl184281184353%_ - _%e184282184356%_ - _%hd184283184359%_ - _%tl184284184361%_ - _%e184285184364%_ - _%hd184286184367%_ - _%tl184287184369%_ - _%e184288184372%_ - _%hd184289184375%_ - _%tl184290184377%_ - _%e184291184380%_ - _%hd184292184383%_ - _%tl184293184385%_ - _%e184294184388%_ - _%hd184295184391%_ - _%tl184296184393%_ - _%e184297184396%_ - _%hd184298184399%_ - _%tl184299184401%_ - _%__splice190756190757%_ - _%target184300184404%_ - _%tl184302184406%_) - (letrec ((_%loop184303184409%_ - (lambda (_%hd184301184412%_ - _%id184307184414%_) + (_%__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? - _%hd184301184412%_)) - (let ((_%e184304184417%_ + _%hd185286185397%_)) + (let ((_%e185289185402%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184301184412%_)))) - (let ((_%lp-tl184306184422%_ - (let () (declare (not safe)) (##cdr _%e184304184417%_))) - (_%lp-hd184305184420%_ + (gx#stx-e _%hd185286185397%_)))) + (let ((_%lp-tl185291185407%_ + (let () (declare (not safe)) (##cdr _%e185289185402%_))) + (_%lp-hd185290185405%_ (let () (declare (not safe)) - (##car _%e184304184417%_)))) - (_%loop184303184409%_ - _%lp-tl184306184422%_ - (cons _%lp-hd184305184420%_ _%id184307184414%_)))) - (let ((_%id184308184425%_ (reverse _%id184307184414%_))) + (##car _%e185289185402%_)))) + (_%loop185288185394%_ + _%lp-tl185291185407%_ + (cons _%lp-hd185290185405%_ _%id185292185399%_)))) + (let ((_%id185293185410%_ (reverse _%id185292185399%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184299184401%_)) - (let ((_%e184309184428%_ + (gx#stx-pair? _%tl185284185386%_)) + (let ((_%e185294185413%_ (let () (declare (not safe)) - (gx#stx-e _%tl184299184401%_)))) - (let ((_%tl184311184433%_ + (gx#stx-e _%tl185284185386%_)))) + (let ((_%tl185296185418%_ (let () (declare (not safe)) - (##cdr _%e184309184428%_))) - (_%hd184310184431%_ + (##cdr _%e185294185413%_))) + (_%hd185295185416%_ (let () (declare (not safe)) - (##car _%e184309184428%_)))) + (##car _%e185294185413%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184311184433%_)) + (gx#stx-null? _%tl185296185418%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184293184385%_)) + (gx#stx-null? _%tl185278185370%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl184284184361%_)) - (let ((_%__splice190758190759%_ + (gx#stx-pair/null? _%tl185269185346%_)) + (let ((_%__splice191743191744%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184284184361%_ + _%tl185269185346%_ '0)))) - (let ((_%tl184314184438%_ + (let ((_%tl185299185423%_ (let () (declare (not safe)) (##vector-ref - _%__splice190758190759%_ + _%__splice191743191744%_ '1))) - (_%target184312184436%_ + (_%target185297185421%_ (let () (declare (not safe)) (##vector-ref - _%__splice190758190759%_ + _%__splice191743191744%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184314184438%_)) - (letrec ((_%loop184315184441%_ - (lambda (_%hd184313184444%_ - _%bind184319184446%_) + _%tl185299185423%_)) + (letrec ((_%loop185300185426%_ + (lambda (_%hd185298185429%_ + _%bind185304185431%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184313184444%_)) - (let ((_%e184316184449%_ + _%hd185298185429%_)) + (let ((_%e185301185434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184313184444%_)))) - (let ((_%lp-tl184318184454%_ + (gx#stx-e _%hd185298185429%_)))) + (let ((_%lp-tl185303185439%_ (let () (declare (not safe)) - (##cdr _%e184316184449%_))) - (_%lp-hd184317184452%_ + (##cdr _%e185301185434%_))) + (_%lp-hd185302185437%_ (let () (declare (not safe)) - (##car _%e184316184449%_)))) - (_%loop184315184441%_ - _%lp-tl184318184454%_ - (cons _%lp-hd184317184452%_ _%bind184319184446%_)))) - (let ((_%bind184320184457%_ - (reverse _%bind184319184446%_))) + (##car _%e185301185434%_)))) + (_%loop185300185426%_ + _%lp-tl185303185439%_ + (cons _%lp-hd185302185437%_ _%bind185304185431%_)))) + (let ((_%bind185305185442%_ + (reverse _%bind185304185431%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184281184353%_)) - (let ((_%e184321184460%_ + (gx#stx-pair? _%tl185266185338%_)) + (let ((_%e185306185445%_ (let () (declare (not safe)) - (gx#stx-e _%tl184281184353%_)))) - (let ((_%tl184323184465%_ + (gx#stx-e _%tl185266185338%_)))) + (let ((_%tl185308185450%_ (let () (declare (not safe)) - (##cdr _%e184321184460%_))) - (_%hd184322184463%_ + (##cdr _%e185306185445%_))) + (_%hd185307185448%_ (let () (declare (not safe)) - (##car _%e184321184460%_)))) + (##car _%e185306185445%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184323184465%_)) - (_%__kont190754190755%_ - _%hd184322184463%_ - _%bind184320184457%_ - _%hd184310184431%_ - _%id184308184425%_ - _%hd184289184375%_) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_))))))) + (gx#stx-null? _%tl185308185450%_)) + (_%__kont191739191740%_ + _%hd185307185448%_ + _%bind185305185442%_ + _%hd185295185416%_ + _%id185293185410%_ + _%hd185274185360%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184315184441%_ - _%target184312184436%_ + (_%loop185300185426%_ + _%target185297185421%_ '())) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_))))))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184303184409%_ - _%target184300184404%_ + (_%loop185288185394%_ + _%target185285185389%_ '())))) - (_%__match190881190882%_ - (lambda (_%e184242184536%_ - _%hd184243184539%_ - _%tl184244184541%_ - _%e184245184544%_ - _%hd184246184547%_ - _%tl184247184549%_ - _%__splice190752190753%_ - _%target184248184552%_ - _%tl184250184554%_) - (letrec ((_%loop184251184557%_ - (lambda (_%hd184249184560%_ - _%expr184255184562%_ - _%id184256184564%_) + (_%__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? - _%hd184249184560%_)) - (let ((_%e184252184567%_ + _%hd185234185545%_)) + (let ((_%e185237185552%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184249184560%_)))) - (let ((_%lp-tl184254184572%_ - (let () (declare (not safe)) (##cdr _%e184252184567%_))) - (_%lp-hd184253184570%_ + (gx#stx-e _%hd185234185545%_)))) + (let ((_%lp-tl185239185557%_ + (let () (declare (not safe)) (##cdr _%e185237185552%_))) + (_%lp-hd185238185555%_ (let () (declare (not safe)) - (##car _%e184252184567%_)))) + (##car _%e185237185552%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184253184570%_)) - (let ((_%e184262184575%_ + (gx#stx-pair? _%lp-hd185238185555%_)) + (let ((_%e185247185560%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184253184570%_)))) - (let ((_%tl184264184580%_ + (gx#stx-e _%lp-hd185238185555%_)))) + (let ((_%tl185249185565%_ (let () (declare (not safe)) - (##cdr _%e184262184575%_))) - (_%hd184263184578%_ + (##cdr _%e185247185560%_))) + (_%hd185248185563%_ (let () (declare (not safe)) - (##car _%e184262184575%_)))) + (##car _%e185247185560%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184263184578%_)) - (let ((_%e184265184583%_ + (gx#stx-pair? _%hd185248185563%_)) + (let ((_%e185250185568%_ (let () (declare (not safe)) - (gx#stx-e _%hd184263184578%_)))) - (let ((_%tl184267184588%_ + (gx#stx-e _%hd185248185563%_)))) + (let ((_%tl185252185573%_ (let () (declare (not safe)) - (##cdr _%e184265184583%_))) - (_%hd184266184586%_ + (##cdr _%e185250185568%_))) + (_%hd185251185571%_ (let () (declare (not safe)) - (##car _%e184265184583%_)))) + (##car _%e185250185568%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184267184588%_)) + (gx#stx-null? _%tl185252185573%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184264184580%_)) - (let ((_%e184268184591%_ + (gx#stx-pair? _%tl185249185565%_)) + (let ((_%e185253185576%_ (let () (declare (not safe)) (gx#stx-e - _%tl184264184580%_)))) - (let ((_%tl184270184596%_ + _%tl185249185565%_)))) + (let ((_%tl185255185581%_ (let () (declare (not safe)) - (##cdr _%e184268184591%_))) - (_%hd184269184594%_ + (##cdr _%e185253185576%_))) + (_%hd185254185579%_ (let () (declare (not safe)) - (##car _%e184268184591%_)))) + (##car _%e185253185576%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184270184596%_)) - (_%loop184251184557%_ - _%lp-tl184254184572%_ - (cons _%hd184269184594%_ - _%expr184255184562%_) - (cons _%hd184266184586%_ - _%id184256184564%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (let ((_%id184258184601%_ (reverse _%id184256184564%_)) - (_%expr184257184599%_ (reverse _%expr184255184562%_))) + _%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? _%tl184247184549%_)) - (let ((_%e184259184604%_ + (gx#stx-pair? _%tl185232185534%_)) + (let ((_%e185244185589%_ (let () (declare (not safe)) - (gx#stx-e _%tl184247184549%_)))) - (let ((_%tl184261184609%_ + (gx#stx-e _%tl185232185534%_)))) + (let ((_%tl185246185594%_ (let () (declare (not safe)) - (##cdr _%e184259184604%_))) - (_%hd184260184607%_ + (##cdr _%e185244185589%_))) + (_%hd185245185592%_ (let () (declare (not safe)) - (##car _%e184259184604%_)))) + (##car _%e185244185589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184261184609%_)) - (_%__kont190750190751%_ - _%hd184260184607%_ - _%expr184257184599%_ - _%id184258184601%_) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_))))))) + (gx#stx-null? _%tl185246185594%_)) + (_%__kont191735191736%_ + _%hd185245185592%_ + _%expr185242185584%_ + _%id185243185586%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184251184557%_ - _%target184248184552%_ + (_%loop185236185542%_ + _%target185233185537%_ '() '())))) - (_%__match190857190858%_ - (lambda (_%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_) - (letrec ((_%loop184213184673%_ - (lambda (_%hd184211184676%_ - _%xid184217184678%_ - _%id184218184680%_) + (_%__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? - _%hd184211184676%_)) - (let ((_%e184214184683%_ + _%hd185196185661%_)) + (let ((_%e185199185668%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184211184676%_)))) - (let ((_%lp-tl184216184688%_ - (let () (declare (not safe)) (##cdr _%e184214184683%_))) - (_%lp-hd184215184686%_ + (gx#stx-e _%hd185196185661%_)))) + (let ((_%lp-tl185201185673%_ + (let () (declare (not safe)) (##cdr _%e185199185668%_))) + (_%lp-hd185200185671%_ (let () (declare (not safe)) - (##car _%e184214184683%_)))) + (##car _%e185199185668%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184215184686%_)) - (let ((_%e184224184691%_ + (gx#stx-pair? _%lp-hd185200185671%_)) + (let ((_%e185209185676%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184215184686%_)))) - (let ((_%tl184226184696%_ + (gx#stx-e _%lp-hd185200185671%_)))) + (let ((_%tl185211185681%_ (let () (declare (not safe)) - (##cdr _%e184224184691%_))) - (_%hd184225184694%_ + (##cdr _%e185209185676%_))) + (_%hd185210185679%_ (let () (declare (not safe)) - (##car _%e184224184691%_)))) + (##car _%e185209185676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184225184694%_)) - (let ((_%e184227184699%_ + (gx#stx-pair? _%hd185210185679%_)) + (let ((_%e185212185684%_ (let () (declare (not safe)) - (gx#stx-e _%hd184225184694%_)))) - (let ((_%tl184229184704%_ + (gx#stx-e _%hd185210185679%_)))) + (let ((_%tl185214185689%_ (let () (declare (not safe)) - (##cdr _%e184227184699%_))) - (_%hd184228184702%_ + (##cdr _%e185212185684%_))) + (_%hd185213185687%_ (let () (declare (not safe)) - (##car _%e184227184699%_)))) + (##car _%e185212185684%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184229184704%_)) + (gx#stx-null? _%tl185214185689%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184226184696%_)) - (let ((_%e184230184707%_ + (gx#stx-pair? _%tl185211185681%_)) + (let ((_%e185215185692%_ (let () (declare (not safe)) (gx#stx-e - _%tl184226184696%_)))) - (let ((_%tl184232184712%_ + _%tl185211185681%_)))) + (let ((_%tl185217185697%_ (let () (declare (not safe)) - (##cdr _%e184230184707%_))) - (_%hd184231184710%_ + (##cdr _%e185215185692%_))) + (_%hd185216185695%_ (let () (declare (not safe)) - (##car _%e184230184707%_)))) + (##car _%e185215185692%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184231184710%_)) - (let ((_%e184233184715%_ + _%hd185216185695%_)) + (let ((_%e185218185700%_ (let () (declare (not safe)) (gx#stx-e - _%hd184231184710%_)))) - (let ((_%tl184235184720%_ + _%hd185216185695%_)))) + (let ((_%tl185220185705%_ (let () (declare (not safe)) - (##cdr _%e184233184715%_))) - (_%hd184234184718%_ + (##cdr _%e185218185700%_))) + (_%hd185219185703%_ (let () (declare (not safe)) - (##car _%e184233184715%_)))) + (##car _%e185218185700%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184234184718%_)) + _%hd185219185703%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd184234184718%_)) + (gx#stx-eq? '%#ref _%hd185219185703%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184235184720%_)) - (let ((_%e184236184723%_ + (gx#stx-pair? _%tl185220185705%_)) + (let ((_%e185221185708%_ (let () (declare (not safe)) - (gx#stx-e _%tl184235184720%_)))) - (let ((_%tl184238184728%_ + (gx#stx-e _%tl185220185705%_)))) + (let ((_%tl185223185713%_ (let () (declare (not safe)) - (##cdr _%e184236184723%_))) - (_%hd184237184726%_ + (##cdr _%e185221185708%_))) + (_%hd185222185711%_ (let () (declare (not safe)) - (##car _%e184236184723%_)))) + (##car _%e185221185708%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184238184728%_)) + (gx#stx-null? _%tl185223185713%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184232184712%_)) - (_%loop184213184673%_ - _%lp-tl184216184688%_ - (cons _%hd184237184726%_ - _%xid184217184678%_) - (cons _%hd184228184702%_ - _%id184218184680%_)) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)))) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)))) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)))) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)))) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)))) - (let ((_%id184220184733%_ (reverse _%id184218184680%_)) - (_%xid184219184731%_ (reverse _%xid184217184678%_))) + (_%__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? _%tl184209184665%_)) - (let ((_%e184221184736%_ + (gx#stx-pair? _%tl185194185650%_)) + (let ((_%e185206185721%_ (let () (declare (not safe)) - (gx#stx-e _%tl184209184665%_)))) - (let ((_%tl184223184741%_ + (gx#stx-e _%tl185194185650%_)))) + (let ((_%tl185208185726%_ (let () (declare (not safe)) - (##cdr _%e184221184736%_))) - (_%hd184222184739%_ + (##cdr _%e185206185721%_))) + (_%hd185207185724%_ (let () (declare (not safe)) - (##car _%e184221184736%_)))) + (##car _%e185206185721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184223184741%_)) - (_%__kont190746190747%_ - _%hd184222184739%_ - _%xid184219184731%_ - _%id184220184733%_) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_)))) - (_%__match190881190882%_ - _%e184204184652%_ - _%hd184205184655%_ - _%tl184206184657%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_))))))) + (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%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184213184673%_ - _%target184210184668%_ + (_%loop185198185658%_ + _%target185195185653%_ '() '())))) - (_%__match190803190804%_ - (lambda (_%e184159184844%_ - _%hd184160184847%_ - _%tl184161184849%_ - _%e184162184852%_ - _%hd184163184855%_ - _%tl184164184857%_ - _%e184165184860%_ - _%hd184166184863%_ - _%tl184167184865%_ - _%e184168184868%_ - _%hd184169184871%_ - _%tl184170184873%_ - _%__splice190742190743%_ - _%target184171184876%_ - _%tl184173184878%_) - (letrec ((_%loop184174184881%_ - (lambda (_%hd184172184884%_ - _%id184178184886%_) + (_%__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? - _%hd184172184884%_)) - (let ((_%e184175184889%_ + _%hd185157185869%_)) + (let ((_%e185160185874%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184172184884%_)))) - (let ((_%lp-tl184177184894%_ - (let () (declare (not safe)) (##cdr _%e184175184889%_))) - (_%lp-hd184176184892%_ + (gx#stx-e _%hd185157185869%_)))) + (let ((_%lp-tl185162185879%_ + (let () (declare (not safe)) (##cdr _%e185160185874%_))) + (_%lp-hd185161185877%_ (let () (declare (not safe)) - (##car _%e184175184889%_)))) + (##car _%e185160185874%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184176184892%_)) - (let ((_%e184180184897%_ + (gx#stx-pair? _%lp-hd185161185877%_)) + (let ((_%e185165185882%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184176184892%_)))) - (let ((_%tl184182184902%_ + (gx#stx-e _%lp-hd185161185877%_)))) + (let ((_%tl185167185887%_ (let () (declare (not safe)) - (##cdr _%e184180184897%_))) - (_%hd184181184900%_ + (##cdr _%e185165185882%_))) + (_%hd185166185885%_ (let () (declare (not safe)) - (##car _%e184180184897%_)))) + (##car _%e185165185882%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184181184900%_)) + (gx#identifier? _%hd185166185885%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184181184900%_)) + (gx#stx-eq? '%#ref _%hd185166185885%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184182184902%_)) - (let ((_%e184183184905%_ + (gx#stx-pair? _%tl185167185887%_)) + (let ((_%e185168185890%_ (let () (declare (not safe)) - (gx#stx-e _%tl184182184902%_)))) - (let ((_%tl184185184910%_ + (gx#stx-e _%tl185167185887%_)))) + (let ((_%tl185170185895%_ (let () (declare (not safe)) - (##cdr _%e184183184905%_))) - (_%hd184184184908%_ + (##cdr _%e185168185890%_))) + (_%hd185169185893%_ (let () (declare (not safe)) - (##car _%e184183184905%_)))) + (##car _%e185168185890%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184185184910%_)) - (_%loop184174184881%_ - _%lp-tl184177184894%_ - (cons _%hd184184184908%_ - _%id184178184886%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (let ((_%id184179184913%_ (reverse _%id184178184886%_))) - (_%__kont190740190741%_ - _%id184179184913%_ - _%hd184169184871%_)))))) + _%tl185170185895%_)) + (_%loop185159185866%_ + _%lp-tl185162185879%_ + (cons _%hd185169185893%_ + _%id185163185871%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (let ((_%id185164185898%_ (reverse _%id185163185871%_))) + (_%__kont191725191726%_ + _%id185164185898%_ + _%hd185154185856%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184174184881%_ - _%target184171184876%_ + (_%loop185159185866%_ + _%target185156185861%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190738190739%_)) - (let ((_%e184159184844%_ + (gx#stx-pair? _%__stx191723191724%_)) + (let ((_%e185144185829%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190738190739%_)))) - (let ((_%tl184161184849%_ + (gx#stx-e _%__stx191723191724%_)))) + (let ((_%tl185146185834%_ (let () (declare (not safe)) - (##cdr _%e184159184844%_))) - (_%hd184160184847%_ + (##cdr _%e185144185829%_))) + (_%hd185145185832%_ (let () (declare (not safe)) - (##car _%e184159184844%_)))) + (##car _%e185144185829%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184160184847%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184160184847%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184161184849%_)) - (let ((_%e184162184852%_ + _%tl185146185834%_)) + (let ((_%e185147185837%_ (let () (declare (not safe)) (gx#stx-e - _%tl184161184849%_)))) - (let ((_%tl184164184857%_ + _%tl185146185834%_)))) + (let ((_%tl185149185842%_ (let () (declare (not safe)) - (##cdr _%e184162184852%_))) - (_%hd184163184855%_ + (##cdr _%e185147185837%_))) + (_%hd185148185840%_ (let () (declare (not safe)) - (##car _%e184162184852%_)))) + (##car _%e185147185837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184163184855%_)) - (let ((_%e184165184860%_ + _%hd185148185840%_)) + (let ((_%e185150185845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184163184855%_)))) - (let ((_%tl184167184865%_ + (gx#stx-e _%hd185148185840%_)))) + (let ((_%tl185152185850%_ (let () (declare (not safe)) - (##cdr _%e184165184860%_))) - (_%hd184166184863%_ + (##cdr _%e185150185845%_))) + (_%hd185151185848%_ (let () (declare (not safe)) - (##car _%e184165184860%_)))) + (##car _%e185150185845%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184166184863%_)) + (gx#identifier? _%hd185151185848%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184166184863%_)) + (gx#stx-eq? '%#ref _%hd185151185848%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184167184865%_)) - (let ((_%e184168184868%_ + (gx#stx-pair? _%tl185152185850%_)) + (let ((_%e185153185853%_ (let () (declare (not safe)) - (gx#stx-e _%tl184167184865%_)))) - (let ((_%tl184170184873%_ + (gx#stx-e _%tl185152185850%_)))) + (let ((_%tl185155185858%_ (let () (declare (not safe)) - (##cdr _%e184168184868%_))) - (_%hd184169184871%_ + (##cdr _%e185153185853%_))) + (_%hd185154185856%_ (let () (declare (not safe)) - (##car _%e184168184868%_)))) + (##car _%e185153185853%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184170184873%_)) + (gx#stx-null? _%tl185155185858%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl184164184857%_)) - (let ((_%__splice190742190743%_ + _%tl185149185842%_)) + (let ((_%__splice191727191728%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184164184857%_ + _%tl185149185842%_ '0)))) - (let ((_%tl184173184878%_ + (let ((_%tl185158185863%_ (let () (declare (not safe)) (##vector-ref - _%__splice190742190743%_ + _%__splice191727191728%_ '1))) - (_%target184171184876%_ + (_%target185156185861%_ (let () (declare (not safe)) (##vector-ref - _%__splice190742190743%_ + _%__splice191727191728%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184173184878%_)) - (_%__match190803190804%_ - _%e184159184844%_ - _%hd184160184847%_ - _%tl184161184849%_ - _%e184162184852%_ - _%hd184163184855%_ - _%tl184164184857%_ - _%e184165184860%_ - _%hd184166184863%_ - _%tl184167184865%_ - _%e184168184868%_ - _%hd184169184871%_ - _%tl184170184873%_ - _%__splice190742190743%_ - _%target184171184876%_ - _%tl184173184878%_) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) + _%tl185158185863%_)) + (_%__match191788191789%_ + _%e185144185829%_ + _%hd185145185832%_ + _%tl185146185834%_ + _%e185147185837%_ + _%hd185148185840%_ + _%tl185149185842%_ + _%e185150185845%_ + _%hd185151185848%_ + _%tl185152185850%_ + _%e185153185853%_ + _%hd185154185856%_ + _%tl185155185858%_ + _%__splice191727191728%_ + _%target185156185861%_ + _%tl185158185863%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190760190761%_)) + (_%__kont191745191746%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd184160184847%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184161184849%_)) - (let ((_%e184192184790%_ + _%tl185146185834%_)) + (let ((_%e185177185775%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184161184849%_)))) - (let ((_%tl184194184795%_ - (let () (declare (not safe)) (##cdr _%e184192184790%_))) - (_%hd184193184793%_ + (gx#stx-e _%tl185146185834%_)))) + (let ((_%tl185179185780%_ + (let () (declare (not safe)) (##cdr _%e185177185775%_))) + (_%hd185178185778%_ (let () (declare (not safe)) - (##car _%e184192184790%_)))) + (##car _%e185177185775%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184194184795%_)) - (let ((_%e184195184798%_ + (gx#stx-pair? _%tl185179185780%_)) + (let ((_%e185180185783%_ (let () (declare (not safe)) - (gx#stx-e _%tl184194184795%_)))) - (let ((_%tl184197184803%_ + (gx#stx-e _%tl185179185780%_)))) + (let ((_%tl185182185788%_ (let () (declare (not safe)) - (##cdr _%e184195184798%_))) - (_%hd184196184801%_ + (##cdr _%e185180185783%_))) + (_%hd185181185786%_ (let () (declare (not safe)) - (##car _%e184195184798%_)))) + (##car _%e185180185783%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184197184803%_)) - (let ((_%e184198184806%_ + (gx#stx-pair? _%tl185182185788%_)) + (let ((_%e185183185791%_ (let () (declare (not safe)) - (gx#stx-e _%tl184197184803%_)))) - (let ((_%tl184200184811%_ + (gx#stx-e _%tl185182185788%_)))) + (let ((_%tl185185185796%_ (let () (declare (not safe)) - (##cdr _%e184198184806%_))) - (_%hd184199184809%_ + (##cdr _%e185183185791%_))) + (_%hd185184185794%_ (let () (declare (not safe)) - (##car _%e184198184806%_)))) + (##car _%e185183185791%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184200184811%_)) - (_%__kont190744190745%_ - _%hd184199184809%_ - _%hd184196184801%_ - _%hd184193184793%_) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) + (gx#stx-null? _%tl185185185796%_)) + (_%__kont191729191730%_ + _%hd185184185794%_ + _%hd185181185786%_ + _%hd185178185778%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184160184847%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184161184849%_)) - (let ((_%e184207184660%_ + _%tl185146185834%_)) + (let ((_%e185192185645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184161184849%_)))) - (let ((_%tl184209184665%_ + (gx#stx-e _%tl185146185834%_)))) + (let ((_%tl185194185650%_ (let () (declare (not safe)) - (##cdr _%e184207184660%_))) - (_%hd184208184663%_ + (##cdr _%e185192185645%_))) + (_%hd185193185648%_ (let () (declare (not safe)) - (##car _%e184207184660%_)))) + (##car _%e185192185645%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd184208184663%_)) - (let ((_%__splice190748190749%_ + (gx#stx-pair/null? _%hd185193185648%_)) + (let ((_%__splice191733191734%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184208184663%_ + _%hd185193185648%_ '0)))) - (let ((_%tl184212184670%_ + (let ((_%tl185197185655%_ (let () (declare (not safe)) (##vector-ref - _%__splice190748190749%_ + _%__splice191733191734%_ '1))) - (_%target184210184668%_ + (_%target185195185653%_ (let () (declare (not safe)) (##vector-ref - _%__splice190748190749%_ + _%__splice191733191734%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184212184670%_)) - (_%__match190857190858%_ - _%e184159184844%_ - _%hd184160184847%_ - _%tl184161184849%_ - _%e184207184660%_ - _%hd184208184663%_ - _%tl184209184665%_ - _%__splice190748190749%_ - _%target184210184668%_ - _%tl184212184670%_) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) + (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 _%hd184160184847%_)) + (gx#stx-eq? '%#letrec-values _%hd185145185832%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184161184849%_)) - (let ((_%e184279184348%_ + (gx#stx-pair? _%tl185146185834%_)) + (let ((_%e185264185333%_ (let () (declare (not safe)) - (gx#stx-e _%tl184161184849%_)))) - (let ((_%tl184281184353%_ + (gx#stx-e _%tl185146185834%_)))) + (let ((_%tl185266185338%_ (let () (declare (not safe)) - (##cdr _%e184279184348%_))) - (_%hd184280184351%_ + (##cdr _%e185264185333%_))) + (_%hd185265185336%_ (let () (declare (not safe)) - (##car _%e184279184348%_)))) + (##car _%e185264185333%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184280184351%_)) - (let ((_%e184282184356%_ + (gx#stx-pair? _%hd185265185336%_)) + (let ((_%e185267185341%_ (let () (declare (not safe)) - (gx#stx-e _%hd184280184351%_)))) - (let ((_%tl184284184361%_ + (gx#stx-e _%hd185265185336%_)))) + (let ((_%tl185269185346%_ (let () (declare (not safe)) - (##cdr _%e184282184356%_))) - (_%hd184283184359%_ + (##cdr _%e185267185341%_))) + (_%hd185268185344%_ (let () (declare (not safe)) - (##car _%e184282184356%_)))) + (##car _%e185267185341%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184283184359%_)) - (let ((_%e184285184364%_ + (gx#stx-pair? _%hd185268185344%_)) + (let ((_%e185270185349%_ (let () (declare (not safe)) - (gx#stx-e _%hd184283184359%_)))) - (let ((_%tl184287184369%_ + (gx#stx-e _%hd185268185344%_)))) + (let ((_%tl185272185354%_ (let () (declare (not safe)) - (##cdr _%e184285184364%_))) - (_%hd184286184367%_ + (##cdr _%e185270185349%_))) + (_%hd185271185352%_ (let () (declare (not safe)) - (##car _%e184285184364%_)))) + (##car _%e185270185349%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184286184367%_)) - (let ((_%e184288184372%_ + _%hd185271185352%_)) + (let ((_%e185273185357%_ (let () (declare (not safe)) (gx#stx-e - _%hd184286184367%_)))) - (let ((_%tl184290184377%_ + _%hd185271185352%_)))) + (let ((_%tl185275185362%_ (let () (declare (not safe)) - (##cdr _%e184288184372%_))) - (_%hd184289184375%_ + (##cdr _%e185273185357%_))) + (_%hd185274185360%_ (let () (declare (not safe)) - (##car _%e184288184372%_)))) + (##car _%e185273185357%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184290184377%_)) + _%tl185275185362%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184287184369%_)) - (let ((_%e184291184380%_ + _%tl185272185354%_)) + (let ((_%e185276185365%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184287184369%_)))) - (let ((_%tl184293184385%_ + (gx#stx-e _%tl185272185354%_)))) + (let ((_%tl185278185370%_ (let () (declare (not safe)) - (##cdr _%e184291184380%_))) - (_%hd184292184383%_ + (##cdr _%e185276185365%_))) + (_%hd185277185368%_ (let () (declare (not safe)) - (##car _%e184291184380%_)))) + (##car _%e185276185365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184292184383%_)) - (let ((_%e184294184388%_ + (gx#stx-pair? _%hd185277185368%_)) + (let ((_%e185279185373%_ (let () (declare (not safe)) - (gx#stx-e _%hd184292184383%_)))) - (let ((_%tl184296184393%_ + (gx#stx-e _%hd185277185368%_)))) + (let ((_%tl185281185378%_ (let () (declare (not safe)) - (##cdr _%e184294184388%_))) - (_%hd184295184391%_ + (##cdr _%e185279185373%_))) + (_%hd185280185376%_ (let () (declare (not safe)) - (##car _%e184294184388%_)))) + (##car _%e185279185373%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184295184391%_)) + (gx#identifier? _%hd185280185376%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd184295184391%_)) + _%hd185280185376%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184296184393%_)) - (let ((_%e184297184396%_ + (gx#stx-pair? _%tl185281185378%_)) + (let ((_%e185282185381%_ (let () (declare (not safe)) (gx#stx-e - _%tl184296184393%_)))) - (let ((_%tl184299184401%_ + _%tl185281185378%_)))) + (let ((_%tl185284185386%_ (let () (declare (not safe)) - (##cdr _%e184297184396%_))) - (_%hd184298184399%_ + (##cdr _%e185282185381%_))) + (_%hd185283185384%_ (let () (declare (not safe)) - (##car _%e184297184396%_)))) + (##car _%e185282185381%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd184298184399%_)) - (let ((_%__splice190756190757%_ + _%hd185283185384%_)) + (let ((_%__splice191741191742%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184298184399%_ + _%hd185283185384%_ '0)))) - (let ((_%tl184302184406%_ + (let ((_%tl185287185391%_ (let () (declare (not safe)) (##vector-ref - _%__splice190756190757%_ + _%__splice191741191742%_ '1))) - (_%target184300184404%_ + (_%target185285185389%_ (let () (declare (not safe)) (##vector-ref - _%__splice190756190757%_ + _%__splice191741191742%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184302184406%_)) - (_%__match190947190948%_ - _%e184159184844%_ - _%hd184160184847%_ - _%tl184161184849%_ - _%e184279184348%_ - _%hd184280184351%_ - _%tl184281184353%_ - _%e184282184356%_ - _%hd184283184359%_ - _%tl184284184361%_ - _%e184285184364%_ - _%hd184286184367%_ - _%tl184287184369%_ - _%e184288184372%_ - _%hd184289184375%_ - _%tl184290184377%_ - _%e184291184380%_ - _%hd184292184383%_ - _%tl184293184385%_ - _%e184294184388%_ - _%hd184295184391%_ - _%tl184296184393%_ - _%e184297184396%_ - _%hd184298184399%_ - _%tl184299184401%_ - _%__splice190756190757%_ - _%target184300184404%_ - _%tl184302184406%_) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)))) - (_%__kont190760190761%_)) - (_%__kont190760190761%_))))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190760190761%_)))) - (_%__kont190760190761%_))))))))) - (_%optimize-f__0__189439189440%_ - (lambda (_%expr185054%_) - (let ((_%test185056%_ '#f)) - (_%optimize-f__189437189438%_ - _%expr185054%_ - _%test185056%_)))) - (_%optimize-f182082%_ - (lambda _g192598_ - (let ((_g192597_ + (_%__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 _g192598_)))) - (cond ((let () (declare (not safe)) (##fx= _g192597_ 1)) - (apply _%optimize-f__0__189439189440%_ - _g192598_)) - ((let () (declare (not safe)) (##fx= _g192597_ 2)) - (apply _%optimize-f__189437189438%_ _g192598_)) + (##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 - _g192598_)))))) - (_%assert-e182083%_ - (lambda (_%expr183083%_) - (let* ((_%sexpr183085%_ - (gxc#apply-generate-runtime-repr _%expr183083%_)) - (_%$e183087%_ - (assoc _%sexpr183085%_ _%env-assert182065%_))) - (if _%$e183087%_ - (cdr _%$e183087%_) - (let _%assert183091%_ ((_%expr183093%_ - _%expr183083%_)) - (let* ((_%__stx191044191045%_ _%expr183093%_) - (_%g183101183280%_ + _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" - _%__stx191044191045%_))))) - (let ((_%__kont191046191047%_ - (lambda (_%L184113%_ _%L184114%_) - (let ((_%$e184136%_ - (_%predicate-type182070%_ - _%L184114%_))) - (if _%$e184136%_ - ((lambda (_%t184139%_) - (_%assert-type182084%_ - _%L184113%_ - _%t184139%_)) - _%$e184136%_) + _%__stx192029192030%_))))) + (let ((_%__kont192031192032%_ + (lambda (_%L185098%_ _%L185099%_) + (let ((_%$e185121%_ + (_%predicate-type183055%_ + _%L185099%_))) + (if _%$e185121%_ + ((lambda (_%t185124%_) + (_%assert-type183069%_ + _%L185098%_ + _%t185124%_)) + _%$e185121%_) '#!void)))) - (_%__kont191048191049%_ - (lambda (_%L183805%_ - _%L183806%_ - _%L183807%_) - (let ((_%$e183832%_ + (_%__kont192033192034%_ + (lambda (_%L184790%_ + _%L184791%_ + _%L184792%_) + (let ((_%$e184817%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183807%_)))) - (if (or (eq? '##fx= _%$e183832%_) - (eq? 'fx= _%$e183832%_)) - (let* ((_%__stx190950190951%_ - _%L183806%_) - (_%g183839183868%_ + _%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" - _%__stx190950190951%_))))) - (let ((_%__kont190952190953%_ - (lambda (_%L183936%_ - _%L183937%_) - (let ((_%$e183962%_ - (_%countf-symbol182072%_ + _%__stx191935191936%_))))) + (let ((_%__kont191937191938%_ + (lambda (_%L184921%_ + _%L184922%_) + (let ((_%$e184947%_ + (_%countf-symbol183057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183937%_))) - (if _%$e183962%_ - ((lambda (_%sym183965%_) - (_%assert-count182085%_ - _%L183936%_ - _%sym183965%_ + _%L184922%_))) + (if _%$e184947%_ + ((lambda (_%sym184950%_) + (_%assert-count183070%_ + _%L184921%_ + _%sym184950%_ (let () (declare (not safe)) - (gx#stx-e _%L183805%_)))) - _%$e183962%_) + (gx#stx-e _%L184790%_)))) + _%$e184947%_) '#!void)))) - (_%__kont190954190955%_ (lambda () '#!void))) + (_%__kont191939191940%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190950190951%_)) - (let ((_%e183843183880%_ + _%__stx191935191936%_)) + (let ((_%e184828184865%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx190950190951%_)))) - (let ((_%tl183845183885%_ - (let () (declare (not safe)) (##cdr _%e183843183880%_))) - (_%hd183844183883%_ + (gx#stx-e _%__stx191935191936%_)))) + (let ((_%tl184830184870%_ + (let () (declare (not safe)) (##cdr _%e184828184865%_))) + (_%hd184829184868%_ (let () (declare (not safe)) - (##car _%e183843183880%_)))) + (##car _%e184828184865%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183844183883%_)) + (gx#identifier? _%hd184829184868%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd183844183883%_)) + (gx#stx-eq? '%#call _%hd184829184868%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183845183885%_)) - (let ((_%e183846183888%_ + (gx#stx-pair? _%tl184830184870%_)) + (let ((_%e184831184873%_ (let () (declare (not safe)) - (gx#stx-e _%tl183845183885%_)))) - (let ((_%tl183848183893%_ + (gx#stx-e _%tl184830184870%_)))) + (let ((_%tl184833184878%_ (let () (declare (not safe)) - (##cdr _%e183846183888%_))) - (_%hd183847183891%_ + (##cdr _%e184831184873%_))) + (_%hd184832184876%_ (let () (declare (not safe)) - (##car _%e183846183888%_)))) + (##car _%e184831184873%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183847183891%_)) - (let ((_%e183849183896%_ + (gx#stx-pair? _%hd184832184876%_)) + (let ((_%e184834184881%_ (let () (declare (not safe)) - (gx#stx-e _%hd183847183891%_)))) - (let ((_%tl183851183901%_ + (gx#stx-e _%hd184832184876%_)))) + (let ((_%tl184836184886%_ (let () (declare (not safe)) - (##cdr _%e183849183896%_))) - (_%hd183850183899%_ + (##cdr _%e184834184881%_))) + (_%hd184835184884%_ (let () (declare (not safe)) - (##car _%e183849183896%_)))) + (##car _%e184834184881%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183850183899%_)) + _%hd184835184884%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183850183899%_)) + _%hd184835184884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183851183901%_)) - (let ((_%e183852183904%_ + _%tl184836184886%_)) + (let ((_%e184837184889%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183851183901%_)))) - (let ((_%tl183854183909%_ - (let () (declare (not safe)) (##cdr _%e183852183904%_))) - (_%hd183853183907%_ + (gx#stx-e _%tl184836184886%_)))) + (let ((_%tl184839184894%_ + (let () (declare (not safe)) (##cdr _%e184837184889%_))) + (_%hd184838184892%_ (let () (declare (not safe)) - (##car _%e183852183904%_)))) + (##car _%e184837184889%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183854183909%_)) + (gx#stx-null? _%tl184839184894%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183848183893%_)) - (let ((_%e183855183912%_ + (gx#stx-pair? _%tl184833184878%_)) + (let ((_%e184840184897%_ (let () (declare (not safe)) - (gx#stx-e _%tl183848183893%_)))) - (let ((_%tl183857183917%_ + (gx#stx-e _%tl184833184878%_)))) + (let ((_%tl184842184902%_ (let () (declare (not safe)) - (##cdr _%e183855183912%_))) - (_%hd183856183915%_ + (##cdr _%e184840184897%_))) + (_%hd184841184900%_ (let () (declare (not safe)) - (##car _%e183855183912%_)))) + (##car _%e184840184897%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183856183915%_)) - (let ((_%e183858183920%_ + (gx#stx-pair? _%hd184841184900%_)) + (let ((_%e184843184905%_ (let () (declare (not safe)) - (gx#stx-e _%hd183856183915%_)))) - (let ((_%tl183860183925%_ + (gx#stx-e _%hd184841184900%_)))) + (let ((_%tl184845184910%_ (let () (declare (not safe)) - (##cdr _%e183858183920%_))) - (_%hd183859183923%_ + (##cdr _%e184843184905%_))) + (_%hd184844184908%_ (let () (declare (not safe)) - (##car _%e183858183920%_)))) + (##car _%e184843184905%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183859183923%_)) + _%hd184844184908%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183859183923%_)) + _%hd184844184908%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183860183925%_)) - (let ((_%e183861183928%_ + _%tl184845184910%_)) + (let ((_%e184846184913%_ (let () (declare (not safe)) (gx#stx-e - _%tl183860183925%_)))) - (let ((_%tl183863183933%_ + _%tl184845184910%_)))) + (let ((_%tl184848184918%_ (let () (declare (not safe)) - (##cdr _%e183861183928%_))) - (_%hd183862183931%_ + (##cdr _%e184846184913%_))) + (_%hd184847184916%_ (let () (declare (not safe)) - (##car _%e183861183928%_)))) + (##car _%e184846184913%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183863183933%_)) + _%tl184848184918%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183857183917%_)) - (_%__kont190952190953%_ - _%hd183862183931%_ - _%hd183853183907%_) - (_%__kont190954190955%_)) - (_%__kont190954190955%_)))) + (gx#stx-null? _%tl184842184902%_)) + (_%__kont191937191938%_ + _%hd184847184916%_ + _%hd184838184892%_) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190954190955%_)) - (_%__kont190954190955%_)) - (_%__kont190954190955%_)))) - (_%__kont190954190955%_)))) - (_%__kont190954190955%_)) - (_%__kont190954190955%_)))) - (_%__kont190954190955%_)) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190954190955%_)) - (_%__kont190954190955%_)))) - (_%__kont190954190955%_)))) - (_%__kont190954190955%_)) - (_%__kont190954190955%_)) - (_%__kont190954190955%_)))) - (_%__kont190954190955%_)))) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e183832%_) - (eq? 'eq? _%$e183832%_) + (if (or (eq? '##eq? _%$e184817%_) + (eq? 'eq? _%$e184817%_) (eq? '##eqv? - _%$e183832%_) - (eq? 'eqv? _%$e183832%_) + _%$e184817%_) + (eq? 'eqv? _%$e184817%_) (eq? '##equal? - _%$e183832%_) + _%$e184817%_) (eq? 'equal? - _%$e183832%_) + _%$e184817%_) (eq? 'gx#free-identifier=? - _%$e183832%_) + _%$e184817%_) (eq? 'gx#stx-eq? - _%$e183832%_)) - ((lambda (_%sym183992%_) - (let* ((_%__stx191018191019%_ - _%L183806%_) - (_%g183995184008%_ + _%$e184817%_)) + ((lambda (_%sym184977%_) + (let* ((_%__stx192003192004%_ + _%L184791%_) + (_%g184980184993%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8645,71 +8645,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191018191019%_))))) - (let ((_%__kont191020191021%_ - (lambda (_%L184036%_) - (_%assert-eqf182086%_ - _%L184036%_ - (_%eqf-symbol182073%_ _%sym183992%_) + _%__stx192003192004%_))))) + (let ((_%__kont192005192006%_ + (lambda (_%L185021%_) + (_%assert-eqf183071%_ + _%L185021%_ + (_%eqf-symbol183058%_ _%sym184977%_) (let () (declare (not safe)) - (gx#stx-e _%L183805%_))))) - (_%__kont191022191023%_ (lambda () '#!void))) + (gx#stx-e _%L184790%_))))) + (_%__kont192007192008%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191018191019%_)) - (let ((_%e183998184020%_ + (gx#stx-pair? _%__stx192003192004%_)) + (let ((_%e184983185005%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191018191019%_)))) - (let ((_%tl184000184025%_ + (gx#stx-e _%__stx192003192004%_)))) + (let ((_%tl184985185010%_ (let () (declare (not safe)) - (##cdr _%e183998184020%_))) - (_%hd183999184023%_ + (##cdr _%e184983185005%_))) + (_%hd184984185008%_ (let () (declare (not safe)) - (##car _%e183998184020%_)))) + (##car _%e184983185005%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183999184023%_)) + (gx#identifier? _%hd184984185008%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183999184023%_)) + (gx#stx-eq? '%#ref _%hd184984185008%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184000184025%_)) - (let ((_%e184001184028%_ + (gx#stx-pair? _%tl184985185010%_)) + (let ((_%e184986185013%_ (let () (declare (not safe)) - (gx#stx-e _%tl184000184025%_)))) - (let ((_%tl184003184033%_ + (gx#stx-e _%tl184985185010%_)))) + (let ((_%tl184988185018%_ (let () (declare (not safe)) - (##cdr _%e184001184028%_))) - (_%hd184002184031%_ + (##cdr _%e184986185013%_))) + (_%hd184987185016%_ (let () (declare (not safe)) - (##car _%e184001184028%_)))) + (##car _%e184986185013%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184003184033%_)) - (_%__kont191020191021%_ - _%hd184002184031%_) - (_%__kont191022191023%_)))) - (_%__kont191022191023%_)) - (_%__kont191022191023%_)) - (_%__kont191022191023%_)))) - (_%__kont191022191023%_))))) + _%tl184988185018%_)) + (_%__kont192005192006%_ + _%hd184987185016%_) + (_%__kont192007192008%_)))) + (_%__kont192007192008%_)) + (_%__kont192007192008%_)) + (_%__kont192007192008%_)))) + (_%__kont192007192008%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e183832%_) + _%$e184817%_) '#!void))))) - (_%__kont191050191051%_ - (lambda (_%L183709%_ - _%L183710%_ - _%L183711%_) - (_%assert183091%_ + (_%__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 _%L183711%_ + (cons _%L184696%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183709%_ + (cons _%L184694%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L183710%_ '())) + (cons _%L184695%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191052191053%_ - (lambda (_%L183601%_ - _%L183602%_ - _%L183603%_) - (let ((_%$e183632%_ + (_%__kont192037192038%_ + (lambda (_%L184586%_ + _%L184587%_ + _%L184588%_) + (let ((_%$e184617%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183603%_)))) + _%L184588%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e183632%_) + _%$e184617%_) (eq? 'gx#stx-eq? - _%$e183632%_)) - ((lambda (_%sym183638%_) - (_%assert-eqf182086%_ - _%L183602%_ - (_%eqf-symbol182073%_ - _%sym183638%_) - _%L183601%_)) - _%$e183632%_) + _%$e184617%_)) + ((lambda (_%sym184623%_) + (_%assert-eqf183071%_ + _%L184587%_ + (_%eqf-symbol183058%_ + _%sym184623%_) + _%L184586%_)) + _%$e184617%_) '#!void)))) - (_%__kont191054191055%_ - (lambda (_%L183485%_ - _%L183486%_ - _%L183487%_) - (_%assert183091%_ + (_%__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 _%L183487%_ + (cons _%L184472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8778,4368 +8778,4368 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183485%_ '())) + (cons _%L184470%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L183486%_ '())) + (cons _%L184471%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191056191057%_ - (lambda (_%L183364%_ - _%L183365%_ - _%L183366%_) - (_%assert183091%_ + (_%__kont192041192042%_ + (lambda (_%L184349%_ + _%L184350%_ + _%L184351%_) + (_%assert184076%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L183366%_ - _%L183364%_ - _%L183365%_))))) - (_%__kont191058191059%_ + _%L184351%_ + _%L184349%_ + _%L184350%_))))) + (_%__kont192043192044%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191044191045%_)) - (let ((_%e183105184057%_ + (gx#stx-pair? _%__stx192029192030%_)) + (let ((_%e184090185042%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191044191045%_)))) - (let ((_%tl183107184062%_ + _%__stx192029192030%_)))) + (let ((_%tl184092185047%_ (let () (declare (not safe)) - (##cdr _%e183105184057%_))) - (_%hd183106184060%_ + (##cdr _%e184090185042%_))) + (_%hd184091185045%_ (let () (declare (not safe)) - (##car _%e183105184057%_)))) + (##car _%e184090185042%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183106184060%_)) + _%hd184091185045%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd183106184060%_)) + _%hd184091185045%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183107184062%_)) - (let ((_%e183108184065%_ + _%tl184092185047%_)) + (let ((_%e184093185050%_ (let () (declare (not safe)) (gx#stx-e - _%tl183107184062%_)))) - (let ((_%tl183110184070%_ + _%tl184092185047%_)))) + (let ((_%tl184095185055%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183108184065%_))) - (_%hd183109184068%_ - (let () (declare (not safe)) (##car _%e183108184065%_)))) + (##cdr _%e184093185050%_))) + (_%hd184094185053%_ + (let () (declare (not safe)) (##car _%e184093185050%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183109184068%_)) - (let ((_%e183111184073%_ + (gx#stx-pair? _%hd184094185053%_)) + (let ((_%e184096185058%_ (let () (declare (not safe)) - (gx#stx-e _%hd183109184068%_)))) - (let ((_%tl183113184078%_ + (gx#stx-e _%hd184094185053%_)))) + (let ((_%tl184098185063%_ (let () (declare (not safe)) - (##cdr _%e183111184073%_))) - (_%hd183112184076%_ + (##cdr _%e184096185058%_))) + (_%hd184097185061%_ (let () (declare (not safe)) - (##car _%e183111184073%_)))) + (##car _%e184096185058%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183112184076%_)) + (gx#identifier? _%hd184097185061%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183112184076%_)) + (gx#stx-eq? '%#ref _%hd184097185061%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183113184078%_)) - (let ((_%e183114184081%_ + (gx#stx-pair? _%tl184098185063%_)) + (let ((_%e184099185066%_ (let () (declare (not safe)) - (gx#stx-e _%tl183113184078%_)))) - (let ((_%tl183116184086%_ + (gx#stx-e _%tl184098185063%_)))) + (let ((_%tl184101185071%_ (let () (declare (not safe)) - (##cdr _%e183114184081%_))) - (_%hd183115184084%_ + (##cdr _%e184099185066%_))) + (_%hd184100185069%_ (let () (declare (not safe)) - (##car _%e183114184081%_)))) + (##car _%e184099185066%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183116184086%_)) + _%tl184101185071%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183110184070%_)) - (let ((_%e183117184089%_ + _%tl184095185055%_)) + (let ((_%e184102185074%_ (let () (declare (not safe)) (gx#stx-e - _%tl183110184070%_)))) - (let ((_%tl183119184094%_ + _%tl184095185055%_)))) + (let ((_%tl184104185079%_ (let () (declare (not safe)) - (##cdr _%e183117184089%_))) - (_%hd183118184092%_ + (##cdr _%e184102185074%_))) + (_%hd184103185077%_ (let () (declare (not safe)) - (##car _%e183117184089%_)))) + (##car _%e184102185074%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183118184092%_)) - (let ((_%e183120184097%_ + _%hd184103185077%_)) + (let ((_%e184105185082%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd183118184092%_)))) - (let ((_%tl183122184102%_ + (gx#stx-e _%hd184103185077%_)))) + (let ((_%tl184107185087%_ (let () (declare (not safe)) - (##cdr _%e183120184097%_))) - (_%hd183121184100%_ + (##cdr _%e184105185082%_))) + (_%hd184106185085%_ (let () (declare (not safe)) - (##car _%e183120184097%_)))) + (##car _%e184105185082%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183121184100%_)) + (gx#identifier? _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183121184100%_)) + (gx#stx-eq? '%#ref _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183123184105%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184108185090%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183125184110%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184110185095%_ (let () (declare (not safe)) - (##cdr _%e183123184105%_))) - (_%hd183124184108%_ + (##cdr _%e184108185090%_))) + (_%hd184109185093%_ (let () (declare (not safe)) - (##car _%e183123184105%_)))) + (##car _%e184108185090%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183125184110%_)) + (gx#stx-null? _%tl184110185095%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183119184094%_)) - (_%__kont191046191047%_ - _%hd183124184108%_ - _%hd183115184084%_) + _%tl184104185079%_)) + (_%__kont192031192032%_ + _%hd184109185093%_ + _%hd184100185069%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183119184094%_)) - (let ((_%e183144183781%_ + _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) (gx#stx-e - _%tl183119184094%_)))) - (let ((_%tl183146183786%_ + _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e183144183781%_))) - (_%hd183145183784%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e183144183781%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183145183784%_)) - (let ((_%e183147183789%_ + _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd183145183784%_)))) - (let ((_%tl183149183794%_ + (gx#stx-e _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e183147183789%_))) - (_%hd183148183792%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e183147183789%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183148183792%_)) + (gx#identifier? _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183148183792%_)) + (gx#stx-eq? '%#quote _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183149183794%_)) - (let ((_%e183150183797%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) - (gx#stx-e _%tl183149183794%_)))) - (let ((_%tl183152183802%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e183150183797%_))) - (_%hd183151183800%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e183150183797%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183152183802%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183146183786%_)) - (_%__kont191048191049%_ - _%hd183151183800%_ - _%hd183118184092%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) + _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183149183794%_)) - (let ((_%e183210183593%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184195184578%_ (let () (declare (not safe)) - (gx#stx-e _%tl183149183794%_)))) - (let ((_%tl183212183598%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184197184583%_ (let () (declare (not safe)) - (##cdr _%e183210183593%_))) - (_%hd183211183596%_ + (##cdr _%e184195184578%_))) + (_%hd184196184581%_ (let () (declare (not safe)) - (##car _%e183210183593%_)))) + (##car _%e184195184578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183212183598%_)) + _%tl184197184583%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183146183786%_)) - (_%__kont191052191053%_ - _%hd183211183596%_ - _%hd183124184108%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) + _%tl184131184771%_)) + (_%__kont192037192038%_ + _%hd184196184581%_ + _%hd184109185093%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_))) + (_%__kont192043192044%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183119184094%_)) - (let ((_%e183144183781%_ + _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) (gx#stx-e - _%tl183119184094%_)))) - (let ((_%tl183146183786%_ + _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e183144183781%_))) - (_%hd183145183784%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e183144183781%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183145183784%_)) - (let ((_%e183147183789%_ + _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) (gx#stx-e - _%hd183145183784%_)))) - (let ((_%tl183149183794%_ + _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183147183789%_))) - (_%hd183148183792%_ - (let () (declare (not safe)) (##car _%e183147183789%_)))) + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ + (let () (declare (not safe)) (##car _%e184132184774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183148183792%_)) + (gx#identifier? _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183148183792%_)) + (gx#stx-eq? '%#quote _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183149183794%_)) - (let ((_%e183150183797%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) - (gx#stx-e _%tl183149183794%_)))) - (let ((_%tl183152183802%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e183150183797%_))) - (_%hd183151183800%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e183150183797%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183152183802%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191048191049%_ - _%hd183151183800%_ - _%hd183118184092%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)))) - (_%__kont191058191059%_))))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183119184094%_)) - (let ((_%e183144183781%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl183119184094%_)))) - (let ((_%tl183146183786%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e183144183781%_))) - (_%hd183145183784%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e183144183781%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183145183784%_)) - (let ((_%e183147183789%_ + _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) (gx#stx-e - _%hd183145183784%_)))) - (let ((_%tl183149183794%_ + _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e183147183789%_))) - (_%hd183148183792%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e183147183789%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183149183794%_)) - (let ((_%e183150183797%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) - (gx#stx-e _%tl183149183794%_)))) - (let ((_%tl183152183802%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e183150183797%_))) - (_%hd183151183800%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e183150183797%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183152183802%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191048191049%_ - _%hd183151183800%_ - _%hd183118184092%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183119184094%_)) - (let ((_%e183144183781%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl183119184094%_)))) - (let ((_%tl183146183786%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e183144183781%_))) - (_%hd183145183784%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e183144183781%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183145183784%_)) - (let ((_%e183147183789%_ + (gx#stx-pair? _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) (gx#stx-e - _%hd183145183784%_)))) - (let ((_%tl183149183794%_ + _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e183147183789%_))) - (_%hd183148183792%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e183147183789%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183149183794%_)) - (let ((_%e183150183797%_ + _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183149183794%_)))) - (let ((_%tl183152183802%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e183150183797%_))) - (_%hd183151183800%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e183150183797%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183152183802%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191048191049%_ - _%hd183151183800%_ - _%hd183118184092%_ - _%hd183115184084%_) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183121184100%_)) + (gx#stx-eq? '%#quote _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183174183693%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183176183698%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e183174183693%_))) - (_%hd183175183696%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e183174183693%_)))) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)) + (##car _%e184159184678%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183234183453%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) (gx#stx-e - _%tl183122184102%_)))) - (let ((_%tl183236183458%_ + _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e183234183453%_))) - (_%hd183235183456%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e183234183453%_)))) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183121184100%_)) + (gx#stx-eq? '%#quote _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183174183693%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183176183698%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e183174183693%_))) - (_%hd183175183696%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e183174183693%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183176183698%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183146183786%_)) - (_%__kont191050191051%_ - _%hd183145183784%_ - _%hd183175183696%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) + _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183234183453%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183236183458%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e183234183453%_))) - (_%hd183235183456%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e183234183453%_)))) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183121184100%_)) + (gx#stx-eq? '%#quote _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183174183693%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183176183698%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e183174183693%_))) - (_%hd183175183696%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e183174183693%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183176183698%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191050191051%_ - _%hd183145183784%_ - _%hd183175183696%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd183121184100%_)) + (gx#stx-eq? '%#quote-syntax _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183234183453%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183236183458%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e183234183453%_))) - (_%hd183235183456%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e183234183453%_)))) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183174183693%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183176183698%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e183174183693%_))) - (_%hd183175183696%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e183174183693%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183176183698%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191050191051%_ - _%hd183145183784%_ - _%hd183175183696%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd183121184100%_)) + (gx#stx-eq? '%#quote-syntax _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183234183453%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183236183458%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e183234183453%_))) - (_%hd183235183456%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e183234183453%_)))) + (##car _%e184219184438%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183236183458%_)) + (gx#stx-null? _%tl184221184443%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183148183792%_)) + (gx#stx-eq? '%#ref _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183149183794%_)) - (let ((_%e183243183477%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184228184462%_ (let () (declare (not safe)) (gx#stx-e - _%tl183149183794%_)))) - (let ((_%tl183245183482%_ + _%tl184134184779%_)))) + (let ((_%tl184230184467%_ (let () (declare (not safe)) - (##cdr _%e183243183477%_))) - (_%hd183244183480%_ + (##cdr _%e184228184462%_))) + (_%hd184229184465%_ (let () (declare (not safe)) - (##car _%e183243183477%_)))) + (##car _%e184228184462%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183245183482%_)) + _%tl184230184467%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183146183786%_)) - (_%__kont191054191055%_ - _%hd183244183480%_ - _%hd183235183456%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) + _%tl184131184771%_)) + (_%__kont192039192040%_ + _%hd184229184465%_ + _%hd184220184441%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183122184102%_)) - (let ((_%e183174183693%_ + _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183176183698%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e183174183693%_))) - (_%hd183175183696%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e183174183693%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183176183698%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191050191051%_ - _%hd183145183784%_ - _%hd183175183696%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183234183453%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl183122184102%_)))) - (let ((_%tl183236183458%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e183234183453%_))) - (_%hd183235183456%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e183234183453%_)))) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183122184102%_)) - (let ((_%e183174183693%_ + _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) (gx#stx-e - _%tl183122184102%_)))) - (let ((_%tl183176183698%_ + _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e183174183693%_))) - (_%hd183175183696%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e183174183693%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183176183698%_)) + _%tl184161184683%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191050191051%_ - _%hd183145183784%_ - _%hd183175183696%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183122184102%_)) - (let ((_%e183234183453%_ + _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) (gx#stx-e - _%tl183122184102%_)))) - (let ((_%tl183236183458%_ + _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183234183453%_))) - (_%hd183235183456%_ - (let () (declare (not safe)) (##car _%e183234183453%_)))) - (_%__kont191058191059%_))) + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ + (let () (declare (not safe)) (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183122184102%_)) - (let ((_%e183174183693%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) (gx#stx-e - _%tl183122184102%_)))) - (let ((_%tl183176183698%_ + _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e183174183693%_))) - (_%hd183175183696%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e183174183693%_)))) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)) + (##car _%e184159184678%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183121184100%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183122184102%_)) - (let ((_%e183234183453%_ + _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) (gx#stx-e - _%tl183122184102%_)))) - (let ((_%tl183236183458%_ + _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e183234183453%_))) - (_%hd183235183456%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e183234183453%_)))) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_))))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183119184094%_)) - (let ((_%e183144183781%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl183119184094%_)))) - (let ((_%tl183146183786%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e183144183781%_))) - (_%hd183145183784%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e183144183781%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183145183784%_)) - (let ((_%e183147183789%_ + (gx#stx-pair? _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) - (gx#stx-e _%hd183145183784%_)))) - (let ((_%tl183149183794%_ + (gx#stx-e _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e183147183789%_))) - (_%hd183148183792%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e183147183789%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183149183794%_)) - (let ((_%e183150183797%_ + _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) (gx#stx-e - _%tl183149183794%_)))) - (let ((_%tl183152183802%_ + _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183150183797%_))) - (_%hd183151183800%_ - (let () (declare (not safe)) (##car _%e183150183797%_)))) + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ + (let () (declare (not safe)) (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183152183802%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183146183786%_)) - (_%__kont191048191049%_ - _%hd183151183800%_ - _%hd183118184092%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_))))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183119184094%_)) - (let ((_%e183144183781%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl183119184094%_)))) - (let ((_%tl183146183786%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e183144183781%_))) - (_%hd183145183784%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e183144183781%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183145183784%_)) - (let ((_%e183147183789%_ + (gx#stx-pair? _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) - (gx#stx-e _%hd183145183784%_)))) - (let ((_%tl183149183794%_ + (gx#stx-e _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e183147183789%_))) - (_%hd183148183792%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e183147183789%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183148183792%_)) + (gx#identifier? _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183148183792%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183149183794%_)) - (let ((_%e183150183797%_ + _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) (gx#stx-e - _%tl183149183794%_)))) - (let ((_%tl183152183802%_ + _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e183150183797%_))) - (_%hd183151183800%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e183150183797%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183152183802%_)) + _%tl184137184787%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183146183786%_)) - (_%__kont191048191049%_ - _%hd183151183800%_ - _%hd183118184092%_ - _%hd183115184084%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_))))) + _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd183112184076%_)) + _%hd184097185061%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183113184078%_)) - (let ((_%e183258183316%_ + (gx#stx-pair? _%tl184098185063%_)) + (let ((_%e184243184301%_ (let () (declare (not safe)) (gx#stx-e - _%tl183113184078%_)))) - (let ((_%tl183260183321%_ + _%tl184098185063%_)))) + (let ((_%tl184245184306%_ (let () (declare (not safe)) - (##cdr _%e183258183316%_))) - (_%hd183259183319%_ + (##cdr _%e184243184301%_))) + (_%hd184244184304%_ (let () (declare (not safe)) - (##car _%e183258183316%_)))) + (##car _%e184243184301%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183259183319%_)) - (let ((_%e183261183324%_ + _%hd184244184304%_)) + (let ((_%e184246184309%_ (let () (declare (not safe)) (gx#stx-e - _%hd183259183319%_)))) - (let ((_%tl183263183329%_ + _%hd184244184304%_)))) + (let ((_%tl184248184314%_ (let () (declare (not safe)) - (##cdr _%e183261183324%_))) - (_%hd183262183327%_ + (##cdr _%e184246184309%_))) + (_%hd184247184312%_ (let () (declare (not safe)) - (##car _%e183261183324%_)))) + (##car _%e184246184309%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183263183329%_)) + _%tl184248184314%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183260183321%_)) - (let ((_%e183264183332%_ + (gx#stx-pair? _%tl184245184306%_)) + (let ((_%e184249184317%_ (let () (declare (not safe)) - (gx#stx-e _%tl183260183321%_)))) - (let ((_%tl183266183337%_ + (gx#stx-e _%tl184245184306%_)))) + (let ((_%tl184251184322%_ (let () (declare (not safe)) - (##cdr _%e183264183332%_))) - (_%hd183265183335%_ + (##cdr _%e184249184317%_))) + (_%hd184250184320%_ (let () (declare (not safe)) - (##car _%e183264183332%_)))) + (##car _%e184249184317%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183266183337%_)) + (gx#stx-null? _%tl184251184322%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183110184070%_)) - (let ((_%e183267183340%_ + (gx#stx-pair? _%tl184095185055%_)) + (let ((_%e184252184325%_ (let () (declare (not safe)) - (gx#stx-e _%tl183110184070%_)))) - (let ((_%tl183269183345%_ + (gx#stx-e _%tl184095185055%_)))) + (let ((_%tl184254184330%_ (let () (declare (not safe)) - (##cdr _%e183267183340%_))) - (_%hd183268183343%_ + (##cdr _%e184252184325%_))) + (_%hd184253184328%_ (let () (declare (not safe)) - (##car _%e183267183340%_)))) + (##car _%e184252184325%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183268183343%_)) - (let ((_%e183270183348%_ + (gx#stx-pair? _%hd184253184328%_)) + (let ((_%e184255184333%_ (let () (declare (not safe)) (gx#stx-e - _%hd183268183343%_)))) - (let ((_%tl183272183353%_ + _%hd184253184328%_)))) + (let ((_%tl184257184338%_ (let () (declare (not safe)) - (##cdr _%e183270183348%_))) - (_%hd183271183351%_ + (##cdr _%e184255184333%_))) + (_%hd184256184336%_ (let () (declare (not safe)) - (##car _%e183270183348%_)))) + (##car _%e184255184333%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183271183351%_)) + _%hd184256184336%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183271183351%_)) + _%hd184256184336%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183272183353%_)) - (let ((_%e183273183356%_ + _%tl184257184338%_)) + (let ((_%e184258184341%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183272183353%_)))) - (let ((_%tl183275183361%_ + (gx#stx-e _%tl184257184338%_)))) + (let ((_%tl184260184346%_ (let () (declare (not safe)) - (##cdr _%e183273183356%_))) - (_%hd183274183359%_ + (##cdr _%e184258184341%_))) + (_%hd184259184344%_ (let () (declare (not safe)) - (##car _%e183273183356%_)))) + (##car _%e184258184341%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183275183361%_)) + (gx#stx-null? _%tl184260184346%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183269183345%_)) - (_%__kont191056191057%_ - _%hd183274183359%_ - _%hd183265183335%_ - _%hd183262183327%_) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) + (gx#stx-null? _%tl184254184330%_)) + (_%__kont192041192042%_ + _%hd184259184344%_ + _%hd184250184320%_ + _%hd184247184312%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)) - (_%__kont191058191059%_))) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191058191059%_)) - (_%__kont191058191059%_)) - (_%__kont191058191059%_)))) - (_%__kont191058191059%_))))))))) - (_%assert-type182084%_ - (lambda (_%id182990%_ _%t182991%_) - (let _%lp182993%_ ((_%rest182995%_ _%env-type182066%_)) - (let* ((_%rest182996183004%_ _%rest182995%_) - (_%else182998183012%_ (lambda () '#!void)) - (_%K183000183071%_ - (lambda (_%rest183015%_ _%type-info183016%_) - (let* ((_%type-info183017183029%_ - _%type-info183016%_) - (_%else183019183037%_ + (_%__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 () - (_%lp182993%_ _%rest183015%_))) - (_%K183021183047%_ - (lambda (_%val183040%_ - _%xt183041%_ - _%xid183042%_) + (_%lp183978%_ _%rest184000%_))) + (_%K184006184032%_ + (lambda (_%val184025%_ + _%xt184026%_ + _%xid184027%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id182990%_ - _%xid183042%_)) - (if (eq? _%t182991%_ - _%xt183041%_) - _%val183040%_ - (if _%val183040%_ + _%id183975%_ + _%xid184027%_)) + (if (eq? _%t183976%_ + _%xt184026%_) + _%val184025%_ + (if _%val184025%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t182991%_ + _%t183976%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt183041%_ + _%xt184026%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182991%_ _%xt183041%_)) + (gxc#!class-subclass? _%t183976%_ _%xt184026%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t182991%_ + _%t183976%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt183041%_ + _%xt184026%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182991%_ _%xt183041%_))) + (gxc#!class-subclass? _%t183976%_ _%xt184026%_))) '#f - (_%lp182993%_ _%rest183015%_)))) + (_%lp183978%_ _%rest184000%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp182993%_ - _%rest183015%_))))) - (if (pair? _%type-info183017183029%_) - (let ((_%hd183022183050%_ + (_%lp183978%_ + _%rest184000%_))))) + (if (pair? _%type-info184002184014%_) + (let ((_%hd184007184035%_ (let () (declare (not safe)) - (##car _%type-info183017183029%_))) - (_%tl183023183052%_ + (##car _%type-info184002184014%_))) + (_%tl184008184037%_ (let () (declare (not safe)) - (##cdr _%type-info183017183029%_)))) - (let ((_%xid183055%_ - _%hd183022183050%_)) - (if (pair? _%tl183023183052%_) - (let ((_%hd183024183057%_ + (##cdr _%type-info184002184014%_)))) + (let ((_%xid184040%_ + _%hd184007184035%_)) + (if (pair? _%tl184008184037%_) + (let ((_%hd184009184042%_ (let () (declare (not safe)) - (##car _%tl183023183052%_))) - (_%tl183025183059%_ + (##car _%tl184008184037%_))) + (_%tl184010184044%_ (let () (declare (not safe)) - (##cdr _%tl183023183052%_)))) - (let ((_%xt183062%_ - _%hd183024183057%_)) - (if (pair? _%tl183025183059%_) - (let ((_%hd183026183064%_ + (##cdr _%tl184008184037%_)))) + (let ((_%xt184047%_ + _%hd184009184042%_)) + (if (pair? _%tl184010184044%_) + (let ((_%hd184011184049%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl183025183059%_))) - (_%tl183027183066%_ + (##car _%tl184010184044%_))) + (_%tl184012184051%_ (let () (declare (not safe)) - (##cdr _%tl183025183059%_)))) - (let ((_%val183069%_ _%hd183026183064%_)) - (if (null? _%tl183027183066%_) - (_%K183021183047%_ - _%val183069%_ - _%xt183062%_ - _%xid183055%_) - (_%else183019183037%_)))) - (_%else183019183037%_)))) + (##cdr _%tl184010184044%_)))) + (let ((_%val184054%_ _%hd184011184049%_)) + (if (null? _%tl184012184051%_) + (_%K184006184032%_ + _%val184054%_ + _%xt184047%_ + _%xid184040%_) + (_%else184004184022%_)))) + (_%else184004184022%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else183019183037%_)))) - (_%else183019183037%_)))))) - (if (pair? _%rest182996183004%_) - (let ((_%hd183001183074%_ + (_%else184004184022%_)))) + (_%else184004184022%_)))))) + (if (pair? _%rest183981183989%_) + (let ((_%hd183986184059%_ (let () (declare (not safe)) - (##car _%rest182996183004%_))) - (_%tl183002183076%_ + (##car _%rest183981183989%_))) + (_%tl183987184061%_ (let () (declare (not safe)) - (##cdr _%rest182996183004%_)))) - (let* ((_%type-info183079%_ _%hd183001183074%_) - (_%rest183081%_ _%tl183002183076%_)) - (_%K183000183071%_ - _%rest183081%_ - _%type-info183079%_))) - (_%else182998183012%_)))))) - (_%assert-count182085%_ - (lambda (_%id182886%_ _%sym182887%_ _%count182888%_) - (let _%lp182890%_ ((_%rest182892%_ _%env-type182066%_)) - (let* ((_%rest182893182901%_ _%rest182892%_) - (_%else182895182909%_ (lambda () '#!void)) - (_%K182897182978%_ - (lambda (_%rest182912%_ _%type-info182913%_) - (let* ((_%type-info182914182928%_ - _%type-info182913%_) - (_%else182916182936%_ + (##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 () - (_%lp182890%_ _%rest182912%_))) - (_%K182918182947%_ - (lambda (_%val182939%_ - _%xcount182940%_ - _%xsym182941%_ - _%xid182942%_) - (if (and (eq? _%sym182887%_ - _%xsym182941%_) + (_%lp183875%_ _%rest183897%_))) + (_%K183903183932%_ + (lambda (_%val183924%_ + _%xcount183925%_ + _%xsym183926%_ + _%xid183927%_) + (if (and (eq? _%sym183872%_ + _%xsym183926%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182886%_ - _%xid182942%_))) - (if _%val182939%_ - (fx= _%count182888%_ - _%xcount182940%_) - (if (fx= _%count182888%_ - _%xcount182940%_) + _%id183871%_ + _%xid183927%_))) + (if _%val183924%_ + (fx= _%count183873%_ + _%xcount183925%_) + (if (fx= _%count183873%_ + _%xcount183925%_) '#f - (_%lp182890%_ - _%rest182912%_))) - (_%lp182890%_ - _%rest182912%_))))) - (if (pair? _%type-info182914182928%_) - (let ((_%hd182919182950%_ + (_%lp183875%_ + _%rest183897%_))) + (_%lp183875%_ + _%rest183897%_))))) + (if (pair? _%type-info183899183913%_) + (let ((_%hd183904183935%_ (let () (declare (not safe)) - (##car _%type-info182914182928%_))) - (_%tl182920182952%_ + (##car _%type-info183899183913%_))) + (_%tl183905183937%_ (let () (declare (not safe)) - (##cdr _%type-info182914182928%_)))) - (let ((_%xid182955%_ - _%hd182919182950%_)) - (if (pair? _%tl182920182952%_) - (let ((_%hd182921182957%_ + (##cdr _%type-info183899183913%_)))) + (let ((_%xid183940%_ + _%hd183904183935%_)) + (if (pair? _%tl183905183937%_) + (let ((_%hd183906183942%_ (let () (declare (not safe)) - (##car _%tl182920182952%_))) - (_%tl182922182959%_ + (##car _%tl183905183937%_))) + (_%tl183907183944%_ (let () (declare (not safe)) - (##cdr _%tl182920182952%_)))) - (let ((_%xsym182962%_ - _%hd182921182957%_)) - (if (pair? _%tl182922182959%_) - (let ((_%hd182923182964%_ + (##cdr _%tl183905183937%_)))) + (let ((_%xsym183947%_ + _%hd183906183942%_)) + (if (pair? _%tl183907183944%_) + (let ((_%hd183908183949%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182922182959%_))) - (_%tl182924182966%_ + (##car _%tl183907183944%_))) + (_%tl183909183951%_ (let () (declare (not safe)) - (##cdr _%tl182922182959%_)))) - (let ((_%xcount182969%_ _%hd182923182964%_)) - (if (pair? _%tl182924182966%_) - (let ((_%hd182925182971%_ + (##cdr _%tl183907183944%_)))) + (let ((_%xcount183954%_ _%hd183908183949%_)) + (if (pair? _%tl183909183951%_) + (let ((_%hd183910183956%_ (let () (declare (not safe)) - (##car _%tl182924182966%_))) - (_%tl182926182973%_ + (##car _%tl183909183951%_))) + (_%tl183911183958%_ (let () (declare (not safe)) - (##cdr _%tl182924182966%_)))) - (let ((_%val182976%_ _%hd182925182971%_)) - (if (null? _%tl182926182973%_) - (_%K182918182947%_ - _%val182976%_ - _%xcount182969%_ - _%xsym182962%_ - _%xid182955%_) - (_%else182916182936%_)))) - (_%else182916182936%_)))) - (_%else182916182936%_)))) + (##cdr _%tl183909183951%_)))) + (let ((_%val183961%_ _%hd183910183956%_)) + (if (null? _%tl183911183958%_) + (_%K183903183932%_ + _%val183961%_ + _%xcount183954%_ + _%xsym183947%_ + _%xid183940%_) + (_%else183901183921%_)))) + (_%else183901183921%_)))) + (_%else183901183921%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182916182936%_)))) - (_%else182916182936%_)))))) - (if (pair? _%rest182893182901%_) - (let ((_%hd182898182981%_ + (_%else183901183921%_)))) + (_%else183901183921%_)))))) + (if (pair? _%rest183878183886%_) + (let ((_%hd183883183966%_ (let () (declare (not safe)) - (##car _%rest182893182901%_))) - (_%tl182899182983%_ + (##car _%rest183878183886%_))) + (_%tl183884183968%_ (let () (declare (not safe)) - (##cdr _%rest182893182901%_)))) - (let* ((_%type-info182986%_ _%hd182898182981%_) - (_%rest182988%_ _%tl182899182983%_)) - (_%K182897182978%_ - _%rest182988%_ - _%type-info182986%_))) - (_%else182895182909%_)))))) - (_%assert-eqf182086%_ - (lambda (_%id182773%_ _%sym182774%_ _%datum182775%_) - (letrec ((_%eqf182777%_ - (lambda (_%sym182881%_) - (let ((_%$e182883%_ _%sym182881%_)) - (if (eq? 'eq? _%$e182883%_) + (##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? _%$e182883%_) + (if (eq? 'eqv? _%$e183868%_) eqv? - (if (eq? 'equal? _%$e182883%_) + (if (eq? 'equal? _%$e183868%_) equal? (if (eq? 'free-identifier=? - _%$e182883%_) + _%$e183868%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e182883%_) + _%$e183868%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body181827%_ - _%sym182881%_))))))))))) - (let _%lp182779%_ ((_%rest182781%_ _%env-type182066%_)) - (let* ((_%rest182782182790%_ _%rest182781%_) - (_%else182784182798%_ (lambda () '#!void)) - (_%K182786182869%_ - (lambda (_%rest182801%_ _%type-info182802%_) - (let* ((_%type-info182803182817%_ - _%type-info182802%_) - (_%else182805182825%_ + _%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 () - (_%lp182779%_ _%rest182801%_))) - (_%K182807182838%_ - (lambda (_%val182828%_ - _%xdatum182829%_ - _%xsym182830%_ - _%xid182831%_) - (if (and (eq? _%sym182774%_ - _%xsym182830%_) + (_%lp183764%_ _%rest183786%_))) + (_%K183792183823%_ + (lambda (_%val183813%_ + _%xdatum183814%_ + _%xsym183815%_ + _%xid183816%_) + (if (and (eq? _%sym183759%_ + _%xsym183815%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182773%_ - _%xid182831%_))) - (let ((_%=?182833%_ - (_%eqf182777%_ - _%sym182774%_))) - (if _%val182828%_ - (_%=?182833%_ - _%datum182775%_ - _%xdatum182829%_) - (if (_%=?182833%_ - _%datum182775%_ - _%xdatum182829%_) + _%id183758%_ + _%xid183816%_))) + (let ((_%=?183818%_ + (_%eqf183762%_ + _%sym183759%_))) + (if _%val183813%_ + (_%=?183818%_ + _%datum183760%_ + _%xdatum183814%_) + (if (_%=?183818%_ + _%datum183760%_ + _%xdatum183814%_) '#f - (_%lp182779%_ - _%rest182801%_)))) - (_%lp182779%_ - _%rest182801%_))))) - (if (pair? _%type-info182803182817%_) - (let ((_%hd182808182841%_ + (_%lp183764%_ + _%rest183786%_)))) + (_%lp183764%_ + _%rest183786%_))))) + (if (pair? _%type-info183788183802%_) + (let ((_%hd183793183826%_ (let () (declare (not safe)) - (##car _%type-info182803182817%_))) - (_%tl182809182843%_ + (##car _%type-info183788183802%_))) + (_%tl183794183828%_ (let () (declare (not safe)) - (##cdr _%type-info182803182817%_)))) - (let ((_%xid182846%_ - _%hd182808182841%_)) - (if (pair? _%tl182809182843%_) - (let ((_%hd182810182848%_ + (##cdr _%type-info183788183802%_)))) + (let ((_%xid183831%_ + _%hd183793183826%_)) + (if (pair? _%tl183794183828%_) + (let ((_%hd183795183833%_ (let () (declare (not safe)) - (##car _%tl182809182843%_))) - (_%tl182811182850%_ + (##car _%tl183794183828%_))) + (_%tl183796183835%_ (let () (declare (not safe)) - (##cdr _%tl182809182843%_)))) - (let ((_%xsym182853%_ - _%hd182810182848%_)) - (if (pair? _%tl182811182850%_) - (let ((_%hd182812182855%_ + (##cdr _%tl183794183828%_)))) + (let ((_%xsym183838%_ + _%hd183795183833%_)) + (if (pair? _%tl183796183835%_) + (let ((_%hd183797183840%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl182811182850%_))) - (_%tl182813182857%_ + (##car _%tl183796183835%_))) + (_%tl183798183842%_ (let () (declare (not safe)) - (##cdr _%tl182811182850%_)))) - (let ((_%xdatum182860%_ _%hd182812182855%_)) - (if (pair? _%tl182813182857%_) - (let ((_%hd182814182862%_ + (##cdr _%tl183796183835%_)))) + (let ((_%xdatum183845%_ _%hd183797183840%_)) + (if (pair? _%tl183798183842%_) + (let ((_%hd183799183847%_ (let () (declare (not safe)) - (##car _%tl182813182857%_))) - (_%tl182815182864%_ + (##car _%tl183798183842%_))) + (_%tl183800183849%_ (let () (declare (not safe)) - (##cdr _%tl182813182857%_)))) - (let ((_%val182867%_ _%hd182814182862%_)) - (if (null? _%tl182815182864%_) - (_%K182807182838%_ - _%val182867%_ - _%xdatum182860%_ - _%xsym182853%_ - _%xid182846%_) - (_%else182805182825%_)))) - (_%else182805182825%_)))) - (_%else182805182825%_)))) + (##cdr _%tl183798183842%_)))) + (let ((_%val183852%_ _%hd183799183847%_)) + (if (null? _%tl183800183849%_) + (_%K183792183823%_ + _%val183852%_ + _%xdatum183845%_ + _%xsym183838%_ + _%xid183831%_) + (_%else183790183810%_)))) + (_%else183790183810%_)))) + (_%else183790183810%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182805182825%_)))) - (_%else182805182825%_)))))) - (if (pair? _%rest182782182790%_) - (let ((_%hd182787182872%_ + (_%else183790183810%_)))) + (_%else183790183810%_)))))) + (if (pair? _%rest183767183775%_) + (let ((_%hd183772183857%_ (let () (declare (not safe)) - (##car _%rest182782182790%_))) - (_%tl182788182874%_ + (##car _%rest183767183775%_))) + (_%tl183773183859%_ (let () (declare (not safe)) - (##cdr _%rest182782182790%_)))) - (let* ((_%type-info182877%_ - _%hd182787182872%_) - (_%rest182879%_ _%tl182788182874%_)) - (_%K182786182869%_ - _%rest182879%_ - _%type-info182877%_))) - (_%else182784182798%_))))))) - (_%bind-e__189441189442%_ - (lambda (_%bind182675%_ _%body182676%_ _%continue182677%_) - (let _%lp182679%_ ((_%rest182681%_ _%bind182675%_) - (_%subst182682%_ '()) - (_%locals182683%_ '()) - (_%env182684%_ _%env-bind182067%_)) - (let* ((_%rest182685182693%_ _%rest182681%_) - (_%else182687182707%_ + (##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* ((_%body182701%_ - (if (null? _%subst182682%_) - _%body182676%_ + (let* ((_%body183686%_ + (if (null? _%subst183667%_) + _%body183661%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182682%_ - _%body182676%_)))) - (_%body182704%_ - (_%do-bind!182078%_ - _%env182684%_ + _%subst183667%_ + _%body183661%_)))) + (_%body183689%_ + (_%do-bind!183063%_ + _%env183669%_ (lambda () - (_%continue182677%_ - _%body182701%_))))) - (if (null? _%locals182683%_) - _%body182704%_ + (_%continue183662%_ + _%body183686%_))))) + (if (null? _%locals183668%_) + _%body183689%_ (cons '%#let-values - (cons _%locals182683%_ - (cons _%body182704%_ + (cons _%locals183668%_ + (cons _%body183689%_ '()))))))) - (_%K182689182749%_ - (lambda (_%rest182710%_ _%bind182711%_) - (let* ((_%bind182712182719%_ _%bind182711%_) - (_%E182714182723%_ + (_%K183674183734%_ + (lambda (_%rest183695%_ _%bind183696%_) + (let* ((_%bind183697183704%_ _%bind183696%_) + (_%E183699183708%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind182712182719%_ + _%bind183697183704%_ '([id . expr]))) '#!void)) - (_%K182715182737%_ - (lambda (_%expr182726%_ _%id182727%_) - (let* ((_%sexpr182729%_ + (_%K183700183722%_ + (lambda (_%expr183711%_ _%id183712%_) + (let* ((_%sexpr183714%_ (gxc#apply-generate-runtime-repr - _%expr182726%_)) - (_%$e182731%_ + _%expr183711%_)) + (_%$e183716%_ (let () (declare (not safe)) - (aget__0 _%sexpr182729%_ - _%env-bind182067%_)))) - (if _%$e182731%_ - ((lambda (_%xid182734%_) - (_%lp182679%_ - _%rest182710%_ - (cons (cons _%id182727%_ + (aget__0 _%sexpr183714%_ + _%env-bind183052%_)))) + (if _%$e183716%_ + ((lambda (_%xid183719%_) + (_%lp183664%_ + _%rest183695%_ + (cons (cons _%id183712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid182734%_) - _%subst182682%_) + _%xid183719%_) + _%subst183667%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals182683%_ - _%env182684%_)) - _%$e182731%_) - (_%lp182679%_ - _%rest182710%_ - _%subst182682%_ - (cons (cons (cons _%id182727%_ + _%locals183668%_ + _%env183669%_)) + _%$e183716%_) + (_%lp183664%_ + _%rest183695%_ + _%subst183667%_ + (cons (cons (cons _%id183712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr182726%_ '())) - _%locals182683%_) + (cons _%expr183711%_ '())) + _%locals183668%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr182729%_ - _%id182727%_) - _%env182684%_))))))) - (if (pair? _%bind182712182719%_) - (let ((_%hd182716182740%_ + (cons (cons _%sexpr183714%_ + _%id183712%_) + _%env183669%_))))))) + (if (pair? _%bind183697183704%_) + (let ((_%hd183701183725%_ (let () (declare (not safe)) - (##car _%bind182712182719%_))) - (_%tl182717182742%_ + (##car _%bind183697183704%_))) + (_%tl183702183727%_ (let () (declare (not safe)) - (##cdr _%bind182712182719%_)))) - (let* ((_%id182745%_ - _%hd182716182740%_) - (_%expr182747%_ - _%tl182717182742%_)) - (_%K182715182737%_ - _%expr182747%_ - _%id182745%_))) - (_%E182714182723%_)))))) - (if (pair? _%rest182685182693%_) - (let ((_%hd182690182752%_ + (##cdr _%bind183697183704%_)))) + (let* ((_%id183730%_ + _%hd183701183725%_) + (_%expr183732%_ + _%tl183702183727%_)) + (_%K183700183722%_ + _%expr183732%_ + _%id183730%_))) + (_%E183699183708%_)))))) + (if (pair? _%rest183670183678%_) + (let ((_%hd183675183737%_ (let () (declare (not safe)) - (##car _%rest182685182693%_))) - (_%tl182691182754%_ + (##car _%rest183670183678%_))) + (_%tl183676183739%_ (let () (declare (not safe)) - (##cdr _%rest182685182693%_)))) - (let* ((_%bind182757%_ _%hd182690182752%_) - (_%rest182759%_ _%tl182691182754%_)) - (_%K182689182749%_ - _%rest182759%_ - _%bind182757%_))) - (_%else182687182707%_)))))) - (_%bind-e__0__189443189444%_ - (lambda (_%bind182764%_ _%body182765%_) - (let ((_%continue182767%_ _%optimize-e182080%_)) - (_%bind-e__189441189442%_ - _%bind182764%_ - _%body182765%_ - _%continue182767%_)))) - (_%bind-e182087%_ - (lambda _g192600_ - (let ((_g192599_ + (##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 _g192600_)))) - (cond ((let () (declare (not safe)) (##fx= _g192599_ 2)) - (apply _%bind-e__0__189443189444%_ _g192600_)) - ((let () (declare (not safe)) (##fx= _g192599_ 3)) - (apply _%bind-e__189441189442%_ _g192600_)) + (##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 - _g192600_)))))) - (_%lookup-block182088%_ - (lambda (_%id182670%_) - (let ((__tmp192601 - (lambda (_%block182672%_) - (let ((__tmp192602 (car _%block182672%_))) + _g193585_)))))) + (_%lookup-block183073%_ + (lambda (_%id183655%_) + (let ((__tmp193586 + (lambda (_%block183657%_) + (let ((__tmp193587 (car _%block183657%_))) (declare (not safe)) (gx#free-identifier=? - __tmp192602 - _%id182670%_))))) + __tmp193587 + _%id183655%_))))) (declare (not safe)) - (__find __tmp192601 _%blocks181830%_)))) - (_%inline-block182089%_ - (lambda (_%block182546%_ _%args182547%_) - (let* ((_%kont182549%_ (caddr _%block182546%_)) - (_%g182551182577%_ - (lambda (_%g182552182574%_) + (__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" - _%g182552182574%_)))) - (_%g182550182667%_ - (lambda (_%g182552182580%_) + _%g183537183559%_)))) + (_%g183535183652%_ + (lambda (_%g183537183565%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182552182580%_)) - (let ((_%e182555182582%_ + (gx#stx-pair? _%g183537183565%_)) + (let ((_%e183540183567%_ (let () (declare (not safe)) - (gx#stx-e _%g182552182580%_)))) - (let ((_%hd182556182585%_ + (gx#stx-e _%g183537183565%_)))) + (let ((_%hd183541183570%_ (let () (declare (not safe)) - (##car _%e182555182582%_))) - (_%tl182557182587%_ + (##car _%e183540183567%_))) + (_%tl183542183572%_ (let () (declare (not safe)) - (##cdr _%e182555182582%_)))) + (##cdr _%e183540183567%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182556182585%_)) + _%hd183541183570%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182556182585%_)) + _%hd183541183570%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182557182587%_)) - (let ((_%e182558182590%_ + _%tl183542183572%_)) + (let ((_%e183543183575%_ (let () (declare (not safe)) (gx#stx-e - _%tl182557182587%_)))) - (let ((_%hd182559182593%_ + _%tl183542183572%_)))) + (let ((_%hd183544183578%_ (let () (declare (not safe)) - (##car _%e182558182590%_))) - (_%tl182560182595%_ + (##car _%e183543183575%_))) + (_%tl183545183580%_ (let () (declare (not safe)) - (##cdr _%e182558182590%_)))) + (##cdr _%e183543183575%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182559182593%_)) - (let ((_g192603_ + _%hd183544183578%_)) + (let ((_g193588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182559182593%_ '0)))) + (gx#syntax-split-splice _%hd183544183578%_ '0)))) (begin - (let ((_g192604_ + (let ((_g193589_ (let () (declare (not safe)) - (if (##values? _g192603_) - (##values-length _g192603_) + (if (##values? _g193588_) + (##values-length _g193588_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192604_ 2))) - (error "Context expects 2 values" _g192604_))) - (let ((_%target182561182598%_ + (##fx= _g193589_ 2))) + (error "Context expects 2 values" _g193589_))) + (let ((_%target183546183583%_ (let () (declare (not safe)) - (##values-ref _g192603_ 0))) - (_%tl182563182600%_ + (##values-ref _g193588_ 0))) + (_%tl183548183585%_ (let () (declare (not safe)) - (##values-ref _g192603_ 1)))) + (##values-ref _g193588_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182563182600%_)) - (letrec ((_%loop182564182603%_ - (lambda (_%hd182562182606%_ - _%id182568182608%_) + (gx#stx-null? _%tl183548183585%_)) + (letrec ((_%loop183549183588%_ + (lambda (_%hd183547183591%_ + _%id183553183593%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182562182606%_)) - (let ((_%e182565182611%_ + _%hd183547183591%_)) + (let ((_%e183550183596%_ (let () (declare (not safe)) (gx#stx-e - _%hd182562182606%_)))) - (let ((_%lp-hd182566182614%_ + _%hd183547183591%_)))) + (let ((_%lp-hd183551183599%_ (let () (declare (not safe)) - (##car _%e182565182611%_))) - (_%lp-tl182567182616%_ + (##car _%e183550183596%_))) + (_%lp-tl183552183601%_ (let () (declare (not safe)) - (##cdr _%e182565182611%_)))) - (_%loop182564182603%_ - _%lp-tl182567182616%_ - (cons _%lp-hd182566182614%_ - _%id182568182608%_)))) - (let ((_%id182569182619%_ - (reverse _%id182568182608%_))) + (##cdr _%e183550183596%_)))) + (_%loop183549183588%_ + _%lp-tl183552183601%_ + (cons _%lp-hd183551183599%_ + _%id183553183593%_)))) + (let ((_%id183554183604%_ + (reverse _%id183553183593%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182560182595%_)) - (let ((_%e182570182622%_ + _%tl183545183580%_)) + (let ((_%e183555183607%_ (let () (declare (not safe)) (gx#stx-e - _%tl182560182595%_)))) - (let ((_%hd182571182625%_ + _%tl183545183580%_)))) + (let ((_%hd183556183610%_ (let () (declare (not safe)) - (##car _%e182570182622%_))) - (_%tl182572182627%_ + (##car _%e183555183607%_))) + (_%tl183557183612%_ (let () (declare (not safe)) - (##cdr _%e182570182622%_)))) + (##cdr _%e183555183607%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182572182627%_)) - ((lambda (_%L182630%_ + _%tl183557183612%_)) + ((lambda (_%L183615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L182631%_) - (if (null? (let ((__tmp192605 - (lambda (_%g182650182653%_ - _%g182651182655%_) - (cons _%g182650182653%_ - _%g182651182655%_)))) + _%L183616%_) + (if (null? (let ((__tmp193590 + (lambda (_%g183635183638%_ + _%g183636183640%_) + (cons _%g183635183638%_ + _%g183636183640%_)))) (declare (not safe)) - (__foldr1 __tmp192605 '() _%L182631%_))) - _%L182630%_ - (let ((_%subst182665%_ + (__foldr1 __tmp193590 '() _%L183616%_))) + _%L183615%_ + (let ((_%subst183650%_ (map cons - (let ((__tmp192606 - (lambda (_%g182657182660%_ - _%g182658182662%_) - (cons _%g182657182660%_ - _%g182658182662%_)))) + (let ((__tmp193591 + (lambda (_%g183642183645%_ + _%g183643183647%_) + (cons _%g183642183645%_ + _%g183643183647%_)))) (declare (not safe)) - (__foldr1 __tmp192606 '() _%L182631%_)) - _%args182547%_))) + (__foldr1 __tmp193591 '() _%L183616%_)) + _%args183532%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182665%_ - _%L182630%_)))) - _%hd182571182625%_ - _%id182569182619%_) - (_%g182551182577%_ _%g182552182580%_)))) + _%subst183650%_ + _%L183615%_)))) + _%hd183556183610%_ + _%id183554183604%_) + (_%g183536183562%_ _%g183537183565%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182551182577%_ - _%g182552182580%_))))))) - (_%loop182564182603%_ - _%target182561182598%_ + (_%g183536183562%_ + _%g183537183565%_))))))) + (_%loop183549183588%_ + _%target183546183583%_ '())) - (_%g182551182577%_ _%g182552182580%_))))) - (_%g182551182577%_ _%g182552182580%_)))) + (_%g183536183562%_ _%g183537183565%_))))) + (_%g183536183562%_ _%g183537183565%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182551182577%_ - _%g182552182580%_)) - (_%g182551182577%_ - _%g182552182580%_)) - (_%g182551182577%_ - _%g182552182580%_)))) - (_%g182551182577%_ _%g182552182580%_))))) - (_%g182550182667%_ _%kont182549%_)))) - (_%nonlinear-block?182090%_ - (lambda (_%block182095%_) - (letrec ((_%nonlinear-expr?182097%_ - (lambda (_%expr182205%_) - (let* ((_%__stx191514191515%_ _%expr182205%_) - (_%g182211182277%_ + (_%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" - _%__stx191514191515%_))))) - (let ((_%__kont191516191517%_ + _%__stx192499192500%_))))) + (let ((_%__kont192501192502%_ (lambda () '#t)) - (_%__kont191518191519%_ - (lambda (_%L182476%_) - (let* ((_%__stx191496191497%_ - _%L182476%_) - (_%g182494182503%_ + (_%__kont192503192504%_ + (lambda (_%L183461%_) + (let* ((_%__stx192481192482%_ + _%L183461%_) + (_%g183479183488%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191496191497%_))))) - (let ((_%__kont191498191499%_ + _%__stx192481192482%_))))) + (let ((_%__kont192483192484%_ (lambda () '#f)) - (_%__kont191500191501%_ + (_%__kont192485192486%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191496191497%_)) - (let ((_%e182496182515%_ + _%__stx192481192482%_)) + (let ((_%e183481183500%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191496191497%_)))) - (let ((_%tl182498182520%_ + _%__stx192481192482%_)))) + (let ((_%tl183483183505%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182496182515%_))) - (_%hd182497182518%_ - (let () (declare (not safe)) (##car _%e182496182515%_)))) + (##cdr _%e183481183500%_))) + (_%hd183482183503%_ + (let () (declare (not safe)) (##car _%e183481183500%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182497182518%_)) + (gx#identifier? _%hd183482183503%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd182497182518%_)) - (_%__kont191498191499%_) - (_%__kont191500191501%_)) - (_%__kont191500191501%_)))) + (gx#stx-eq? '%#call _%hd183482183503%_)) + (_%__kont192483192484%_) + (_%__kont192485192486%_)) + (_%__kont192485192486%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191500191501%_)))))) - (_%__kont191522191523%_ - (lambda (_%L182374%_) - (_%nonlinear-expr?182097%_ - _%L182374%_))) - (_%__kont191524191525%_ - (lambda (_%L182321%_ - _%L182322%_ - _%L182323%_) - (let ((_%$e182342%_ - (_%nonlinear-expr?182097%_ - _%L182322%_))) - (if _%$e182342%_ - _%$e182342%_ - (_%nonlinear-expr?182097%_ - _%L182321%_))))) - (_%__kont191526191527%_ + (_%__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* ((_%__match191577191578%_ - (lambda (_%e182249182350%_ - _%hd182250182353%_ - _%tl182251182355%_ - _%e182252182358%_ - _%hd182253182361%_ - _%tl182254182363%_) + (let* ((_%__match192562192563%_ + (lambda (_%e183234183335%_ + _%hd183235183338%_ + _%tl183236183340%_ + _%e183237183343%_ + _%hd183238183346%_ + _%tl183239183348%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182254182363%_)) - (let ((_%e182255182366%_ + _%tl183239183348%_)) + (let ((_%e183240183351%_ (let () (declare (not safe)) (gx#stx-e - _%tl182254182363%_)))) - (let ((_%tl182257182371%_ + _%tl183239183348%_)))) + (let ((_%tl183242183356%_ (let () (declare (not safe)) - (##cdr _%e182255182366%_))) - (_%hd182256182369%_ + (##cdr _%e183240183351%_))) + (_%hd183241183354%_ (let () (declare (not safe)) - (##car _%e182255182366%_)))) + (##car _%e183240183351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182257182371%_)) - (_%__kont191522191523%_ - _%hd182256182369%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__match191561191562%_ - (lambda (_%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_ - _%__splice191520191521%_ - _%target182223182408%_ - _%tl182225182410%_) - (letrec ((_%loop182226182413%_ - (lambda (_%hd182224182416%_) + _%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? _%hd182224182416%_)) - (let ((_%e182227182419%_ + (gx#stx-pair? _%hd183209183401%_)) + (let ((_%e183212183404%_ (let () (declare (not safe)) - (gx#stx-e _%hd182224182416%_)))) - (let ((_%lp-tl182229182424%_ + (gx#stx-e _%hd183209183401%_)))) + (let ((_%lp-tl183214183409%_ (let () (declare (not safe)) - (##cdr _%e182227182419%_))) - (_%lp-hd182228182422%_ + (##cdr _%e183212183404%_))) + (_%lp-hd183213183407%_ (let () (declare (not safe)) - (##car _%e182227182419%_)))) + (##car _%e183212183404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182228182422%_)) - (let ((_%e182233182427%_ + (gx#stx-pair? _%lp-hd183213183407%_)) + (let ((_%e183218183412%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182228182422%_)))) - (let ((_%tl182235182432%_ + (gx#stx-e _%lp-hd183213183407%_)))) + (let ((_%tl183220183417%_ (let () (declare (not safe)) - (##cdr _%e182233182427%_))) - (_%hd182234182430%_ + (##cdr _%e183218183412%_))) + (_%hd183219183415%_ (let () (declare (not safe)) - (##car _%e182233182427%_)))) + (##car _%e183218183412%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182234182430%_)) - (let ((_%e182236182435%_ + (gx#stx-pair? _%hd183219183415%_)) + (let ((_%e183221183420%_ (let () (declare (not safe)) (gx#stx-e - _%hd182234182430%_)))) - (let ((_%tl182238182440%_ + _%hd183219183415%_)))) + (let ((_%tl183223183425%_ (let () (declare (not safe)) - (##cdr _%e182236182435%_))) - (_%hd182237182438%_ + (##cdr _%e183221183420%_))) + (_%hd183222183423%_ (let () (declare (not safe)) - (##car _%e182236182435%_)))) + (##car _%e183221183420%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182238182440%_)) + _%tl183223183425%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182235182432%_)) - (let ((_%e182239182443%_ + _%tl183220183417%_)) + (let ((_%e183224183428%_ (let () (declare (not safe)) (gx#stx-e - _%tl182235182432%_)))) - (let ((_%tl182241182448%_ + _%tl183220183417%_)))) + (let ((_%tl183226183433%_ (let () (declare (not safe)) - (##cdr _%e182239182443%_))) - (_%hd182240182446%_ + (##cdr _%e183224183428%_))) + (_%hd183225183431%_ (let () (declare (not safe)) - (##car _%e182239182443%_)))) + (##car _%e183224183428%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182240182446%_)) - (let ((_%e182242182451%_ + _%hd183225183431%_)) + (let ((_%e183227183436%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd182240182446%_)))) - (let ((_%tl182244182456%_ + (gx#stx-e _%hd183225183431%_)))) + (let ((_%tl183229183441%_ (let () (declare (not safe)) - (##cdr _%e182242182451%_))) - (_%hd182243182454%_ + (##cdr _%e183227183436%_))) + (_%hd183228183439%_ (let () (declare (not safe)) - (##car _%e182242182451%_)))) + (##car _%e183227183436%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182243182454%_)) + (gx#identifier? _%hd183228183439%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182243182454%_)) + (gx#stx-eq? '%#ref _%hd183228183439%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182244182456%_)) - (let ((_%e182245182459%_ + (gx#stx-pair? _%tl183229183441%_)) + (let ((_%e183230183444%_ (let () (declare (not safe)) - (gx#stx-e _%tl182244182456%_)))) - (let ((_%tl182247182464%_ + (gx#stx-e _%tl183229183441%_)))) + (let ((_%tl183232183449%_ (let () (declare (not safe)) - (##cdr _%e182245182459%_))) - (_%hd182246182462%_ + (##cdr _%e183230183444%_))) + (_%hd183231183447%_ (let () (declare (not safe)) - (##car _%e182245182459%_)))) + (##car _%e183230183444%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182247182464%_)) + (gx#stx-null? _%tl183232183449%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182241182448%_)) - (_%loop182226182413%_ - _%lp-tl182229182424%_) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)))) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)))) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)))) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)))) - (_%__match191577191578%_ - _%e182217182392%_ - _%hd182218182395%_ - _%tl182219182397%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_)))) + (_%__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? _%tl182222182405%_)) - (let ((_%e182230182468%_ + (gx#stx-pair? _%tl183207183390%_)) + (let ((_%e183215183453%_ (let () (declare (not safe)) - (gx#stx-e _%tl182222182405%_)))) - (let ((_%tl182232182473%_ + (gx#stx-e _%tl183207183390%_)))) + (let ((_%tl183217183458%_ (let () (declare (not safe)) - (##cdr _%e182230182468%_))) - (_%hd182231182471%_ + (##cdr _%e183215183453%_))) + (_%hd183216183456%_ (let () (declare (not safe)) - (##car _%e182230182468%_)))) + (##car _%e183215183453%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182232182473%_)) - (_%__kont191518191519%_ _%hd182231182471%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))))) + (gx#stx-null? _%tl183217183458%_)) + (_%__kont192503192504%_ _%hd183216183456%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182226182413%_ - _%target182223182408%_))))) + (_%loop183211183398%_ + _%target183208183393%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191514191515%_)) - (let ((_%e182213182533%_ + _%__stx192499192500%_)) + (let ((_%e183198183518%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191514191515%_)))) - (let ((_%tl182215182538%_ + _%__stx192499192500%_)))) + (let ((_%tl183200183523%_ (let () (declare (not safe)) - (##cdr _%e182213182533%_))) - (_%hd182214182536%_ + (##cdr _%e183198183518%_))) + (_%hd183199183521%_ (let () (declare (not safe)) - (##car _%e182213182533%_)))) + (##car _%e183198183518%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182214182536%_)) + _%hd183199183521%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd182214182536%_)) - (_%__kont191516191517%_) + _%hd183199183521%_)) + (_%__kont192501192502%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd182214182536%_)) + _%hd183199183521%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl182215182538%_)) - (let ((_%e182220182400%_ + (gx#stx-pair? _%tl183200183523%_)) + (let ((_%e183205183385%_ (let () (declare (not safe)) - (gx#stx-e _%tl182215182538%_)))) - (let ((_%tl182222182405%_ + (gx#stx-e _%tl183200183523%_)))) + (let ((_%tl183207183390%_ (let () (declare (not safe)) - (##cdr _%e182220182400%_))) - (_%hd182221182403%_ + (##cdr _%e183205183385%_))) + (_%hd183206183388%_ (let () (declare (not safe)) - (##car _%e182220182400%_)))) + (##car _%e183205183385%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd182221182403%_)) - (let ((_%__splice191520191521%_ + (gx#stx-pair/null? _%hd183206183388%_)) + (let ((_%__splice192505192506%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd182221182403%_ + _%hd183206183388%_ '0)))) - (let ((_%tl182225182410%_ + (let ((_%tl183210183395%_ (let () (declare (not safe)) (##vector-ref - _%__splice191520191521%_ + _%__splice192505192506%_ '1))) - (_%target182223182408%_ + (_%target183208183393%_ (let () (declare (not safe)) (##vector-ref - _%__splice191520191521%_ + _%__splice192505192506%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182225182410%_)) - (_%__match191561191562%_ - _%e182213182533%_ - _%hd182214182536%_ - _%tl182215182538%_ - _%e182220182400%_ - _%hd182221182403%_ - _%tl182222182405%_ - _%__splice191520191521%_ - _%target182223182408%_ - _%tl182225182410%_) + (gx#stx-null? _%tl183210183395%_)) + (_%__match192546192547%_ + _%e183198183518%_ + _%hd183199183521%_ + _%tl183200183523%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_ + _%__splice192505192506%_ + _%target183208183393%_ + _%tl183210183395%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182222182405%_)) - (let ((_%e182255182366%_ + (gx#stx-pair? _%tl183207183390%_)) + (let ((_%e183240183351%_ (let () (declare (not safe)) (gx#stx-e - _%tl182222182405%_)))) - (let ((_%tl182257182371%_ + _%tl183207183390%_)))) + (let ((_%tl183242183356%_ (let () (declare (not safe)) - (##cdr _%e182255182366%_))) - (_%hd182256182369%_ + (##cdr _%e183240183351%_))) + (_%hd183241183354%_ (let () (declare (not safe)) - (##car _%e182255182366%_)))) + (##car _%e183240183351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182257182371%_)) - (_%__kont191522191523%_ - _%hd182256182369%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_))))) + _%tl183242183356%_)) + (_%__kont192507192508%_ + _%hd183241183354%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182222182405%_)) - (let ((_%e182255182366%_ + (gx#stx-pair? _%tl183207183390%_)) + (let ((_%e183240183351%_ (let () (declare (not safe)) - (gx#stx-e _%tl182222182405%_)))) - (let ((_%tl182257182371%_ + (gx#stx-e _%tl183207183390%_)))) + (let ((_%tl183242183356%_ (let () (declare (not safe)) - (##cdr _%e182255182366%_))) - (_%hd182256182369%_ + (##cdr _%e183240183351%_))) + (_%hd183241183354%_ (let () (declare (not safe)) - (##car _%e182255182366%_)))) + (##car _%e183240183351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182257182371%_)) - (_%__kont191522191523%_ - _%hd182256182369%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_))))) - (_%__kont191526191527%_)) + (gx#stx-null? _%tl183242183356%_)) + (_%__kont192507192508%_ + _%hd183241183354%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_))))) + (_%__kont192511192512%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd182214182536%_)) + (gx#stx-eq? '%#if _%hd183199183521%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182215182538%_)) - (let ((_%e182264182297%_ + (gx#stx-pair? _%tl183200183523%_)) + (let ((_%e183249183282%_ (let () (declare (not safe)) - (gx#stx-e _%tl182215182538%_)))) - (let ((_%tl182266182302%_ + (gx#stx-e _%tl183200183523%_)))) + (let ((_%tl183251183287%_ (let () (declare (not safe)) - (##cdr _%e182264182297%_))) - (_%hd182265182300%_ + (##cdr _%e183249183282%_))) + (_%hd183250183285%_ (let () (declare (not safe)) - (##car _%e182264182297%_)))) + (##car _%e183249183282%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182266182302%_)) - (let ((_%e182267182305%_ + (gx#stx-pair? _%tl183251183287%_)) + (let ((_%e183252183290%_ (let () (declare (not safe)) - (gx#stx-e _%tl182266182302%_)))) - (let ((_%tl182269182310%_ + (gx#stx-e _%tl183251183287%_)))) + (let ((_%tl183254183295%_ (let () (declare (not safe)) - (##cdr _%e182267182305%_))) - (_%hd182268182308%_ + (##cdr _%e183252183290%_))) + (_%hd183253183293%_ (let () (declare (not safe)) - (##car _%e182267182305%_)))) + (##car _%e183252183290%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182269182310%_)) - (let ((_%e182270182313%_ + (gx#stx-pair? _%tl183254183295%_)) + (let ((_%e183255183298%_ (let () (declare (not safe)) (gx#stx-e - _%tl182269182310%_)))) - (let ((_%tl182272182318%_ + _%tl183254183295%_)))) + (let ((_%tl183257183303%_ (let () (declare (not safe)) - (##cdr _%e182270182313%_))) - (_%hd182271182316%_ + (##cdr _%e183255183298%_))) + (_%hd183256183301%_ (let () (declare (not safe)) - (##car _%e182270182313%_)))) + (##car _%e183255183298%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182272182318%_)) - (_%__kont191524191525%_ - _%hd182271182316%_ - _%hd182268182308%_ - _%hd182265182300%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)) - (_%__kont191526191527%_)))) + _%tl183257183303%_)) + (_%__kont192509192510%_ + _%hd183256183301%_ + _%hd183253183293%_ + _%hd183250183285%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)) + (_%__kont192511192512%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))))))) - (let* ((_%kont182099%_ (caddr _%block182095%_)) - (_%g182101182127%_ - (lambda (_%g182102182124%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))))))) + (let* ((_%kont183084%_ (caddr _%block183080%_)) + (_%g183086183112%_ + (lambda (_%g183087183109%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182102182124%_)))) - (_%g182100182202%_ - (lambda (_%g182102182130%_) + _%g183087183109%_)))) + (_%g183085183187%_ + (lambda (_%g183087183115%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182102182130%_)) - (let ((_%e182105182132%_ + (gx#stx-pair? _%g183087183115%_)) + (let ((_%e183090183117%_ (let () (declare (not safe)) - (gx#stx-e _%g182102182130%_)))) - (let ((_%hd182106182135%_ + (gx#stx-e _%g183087183115%_)))) + (let ((_%hd183091183120%_ (let () (declare (not safe)) - (##car _%e182105182132%_))) - (_%tl182107182137%_ + (##car _%e183090183117%_))) + (_%tl183092183122%_ (let () (declare (not safe)) - (##cdr _%e182105182132%_)))) + (##cdr _%e183090183117%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182106182135%_)) + _%hd183091183120%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182106182135%_)) + _%hd183091183120%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182107182137%_)) - (let ((_%e182108182140%_ + _%tl183092183122%_)) + (let ((_%e183093183125%_ (let () (declare (not safe)) (gx#stx-e - _%tl182107182137%_)))) - (let ((_%hd182109182143%_ + _%tl183092183122%_)))) + (let ((_%hd183094183128%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e182108182140%_))) - (_%tl182110182145%_ - (let () (declare (not safe)) (##cdr _%e182108182140%_)))) + (##car _%e183093183125%_))) + (_%tl183095183130%_ + (let () (declare (not safe)) (##cdr _%e183093183125%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd182109182143%_)) - (let ((_g192607_ + (gx#stx-pair/null? _%hd183094183128%_)) + (let ((_g193592_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182109182143%_ '0)))) + (gx#syntax-split-splice _%hd183094183128%_ '0)))) (begin - (let ((_g192608_ + (let ((_g193593_ (let () (declare (not safe)) - (if (##values? _g192607_) - (##values-length _g192607_) + (if (##values? _g193592_) + (##values-length _g193592_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192608_ 2))) - (error "Context expects 2 values" _g192608_))) - (let ((_%target182111182148%_ + (##fx= _g193593_ 2))) + (error "Context expects 2 values" _g193593_))) + (let ((_%target183096183133%_ (let () (declare (not safe)) - (##values-ref _g192607_ 0))) - (_%tl182113182150%_ + (##values-ref _g193592_ 0))) + (_%tl183098183135%_ (let () (declare (not safe)) - (##values-ref _g192607_ 1)))) + (##values-ref _g193592_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182113182150%_)) - (letrec ((_%loop182114182153%_ - (lambda (_%hd182112182156%_ - _%id182118182158%_) + (gx#stx-null? _%tl183098183135%_)) + (letrec ((_%loop183099183138%_ + (lambda (_%hd183097183141%_ + _%id183103183143%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182112182156%_)) - (let ((_%e182115182161%_ + _%hd183097183141%_)) + (let ((_%e183100183146%_ (let () (declare (not safe)) (gx#stx-e - _%hd182112182156%_)))) - (let ((_%lp-hd182116182164%_ + _%hd183097183141%_)))) + (let ((_%lp-hd183101183149%_ (let () (declare (not safe)) - (##car _%e182115182161%_))) - (_%lp-tl182117182166%_ + (##car _%e183100183146%_))) + (_%lp-tl183102183151%_ (let () (declare (not safe)) - (##cdr _%e182115182161%_)))) - (_%loop182114182153%_ - _%lp-tl182117182166%_ - (cons _%lp-hd182116182164%_ - _%id182118182158%_)))) - (let ((_%id182119182169%_ - (reverse _%id182118182158%_))) + (##cdr _%e183100183146%_)))) + (_%loop183099183138%_ + _%lp-tl183102183151%_ + (cons _%lp-hd183101183149%_ + _%id183103183143%_)))) + (let ((_%id183104183154%_ + (reverse _%id183103183143%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182110182145%_)) - (let ((_%e182120182172%_ + _%tl183095183130%_)) + (let ((_%e183105183157%_ (let () (declare (not safe)) (gx#stx-e - _%tl182110182145%_)))) - (let ((_%hd182121182175%_ + _%tl183095183130%_)))) + (let ((_%hd183106183160%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e182120182172%_))) - (_%tl182122182177%_ - (let () (declare (not safe)) (##cdr _%e182120182172%_)))) + (##car _%e183105183157%_))) + (_%tl183107183162%_ + (let () (declare (not safe)) (##cdr _%e183105183157%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182122182177%_)) - ((lambda (_%L182180%_ _%L182181%_) - (_%nonlinear-expr?182097%_ _%L182180%_)) - _%hd182121182175%_ - _%id182119182169%_) - (_%g182101182127%_ _%g182102182130%_)))) + (gx#stx-null? _%tl183107183162%_)) + ((lambda (_%L183165%_ _%L183166%_) + (_%nonlinear-expr?183082%_ _%L183165%_)) + _%hd183106183160%_ + _%id183104183154%_) + (_%g183086183112%_ _%g183087183115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182101182127%_ - _%g182102182130%_))))))) - (_%loop182114182153%_ - _%target182111182148%_ + (_%g183086183112%_ + _%g183087183115%_))))))) + (_%loop183099183138%_ + _%target183096183133%_ '())) - (_%g182101182127%_ _%g182102182130%_))))) - (_%g182101182127%_ _%g182102182130%_)))) + (_%g183086183112%_ _%g183087183115%_))))) + (_%g183086183112%_ _%g183087183115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182101182127%_ - _%g182102182130%_)) - (_%g182101182127%_ - _%g182102182130%_)) - (_%g182101182127%_ - _%g182102182130%_)))) - (_%g182101182127%_ _%g182102182130%_))))) - (_%g182100182202%_ _%kont182099%_)))))) - (_%do-assert182069%_ - _%assert181828%_ + (_%g183086183112%_ + _%g183087183115%_)) + (_%g183086183112%_ + _%g183087183115%_)) + (_%g183086183112%_ + _%g183087183115%_)))) + (_%g183086183112%_ _%g183087183115%_))))) + (_%g183085183187%_ _%kont183084%_)))))) + (_%do-assert183054%_ + _%assert182813%_ (lambda () - (_%do-bind182076%_ - _%bind181829%_ + (_%do-bind183061%_ + _%bind182814%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!182079%_ - (lambda () (_%optimize-e182080%_ _%body181827%_))) - (_%optimize-e182080%_ _%body181827%_))))))))) + (_%do-splice!183064%_ + (lambda () (_%optimize-e183065%_ _%body182812%_))) + (_%optimize-e183065%_ _%body182812%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks181739%_ _%konts181740%_) - (letrec* ((_%rtab181742%_ + (lambda (_%blocks182724%_ _%konts182725%_) + (letrec* ((_%rtab182727%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181744%_) - (let ((__tmp192609 (caddr _%block181744%_))) + (lambda (_%block182729%_) + (let ((__tmp193594 (caddr _%block182729%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181742%_ - __tmp192609))) - _%konts181740%_) - (let _%lp181746%_ ((_%rest181748%_ _%blocks181739%_) - (_%r181749%_ '())) - (let* ((_%rest181750181758%_ _%rest181748%_) - (_%else181752181766%_ (lambda () (reverse _%r181749%_))) - (_%K181754181815%_ - (lambda (_%rest181769%_ _%block181770%_) - (let* ((_%block181771181782%_ _%block181770%_) - (_%E181773181786%_ + _%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" - _%block181771181782%_ + _%block182756182767%_ '([name type kont . _]))) '#!void)) - (_%K181774181793%_ - (lambda (_%kont181789%_ - _%type181790%_ - _%name181791%_) - (if (let ((__tmp192610 + (_%K182759182778%_ + (lambda (_%kont182774%_ + _%type182775%_ + _%name182776%_) + (if (let ((__tmp193595 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181791%_)))) + _%name182776%_)))) (declare (not safe)) - (__hash-get _%rtab181742%_ __tmp192610)) + (__hash-get _%rtab182727%_ __tmp193595)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181742%_ - _%kont181789%_)) - (_%lp181746%_ - _%rest181769%_ - (cons _%block181770%_ _%r181749%_))) - (_%lp181746%_ - _%rest181769%_ - _%r181749%_))))) - (if (pair? _%block181771181782%_) - (let ((_%hd181775181796%_ + _%rtab182727%_ + _%kont182774%_)) + (_%lp182731%_ + _%rest182754%_ + (cons _%block182755%_ _%r182734%_))) + (_%lp182731%_ + _%rest182754%_ + _%r182734%_))))) + (if (pair? _%block182756182767%_) + (let ((_%hd182760182781%_ (let () (declare (not safe)) - (##car _%block181771181782%_))) - (_%tl181776181798%_ + (##car _%block182756182767%_))) + (_%tl182761182783%_ (let () (declare (not safe)) - (##cdr _%block181771181782%_)))) - (let ((_%name181801%_ _%hd181775181796%_)) - (if (pair? _%tl181776181798%_) - (let ((_%hd181777181803%_ + (##cdr _%block182756182767%_)))) + (let ((_%name182786%_ _%hd182760182781%_)) + (if (pair? _%tl182761182783%_) + (let ((_%hd182762182788%_ (let () (declare (not safe)) - (##car _%tl181776181798%_))) - (_%tl181778181805%_ + (##car _%tl182761182783%_))) + (_%tl182763182790%_ (let () (declare (not safe)) - (##cdr _%tl181776181798%_)))) - (let ((_%type181808%_ - _%hd181777181803%_)) - (if (pair? _%tl181778181805%_) - (let* ((_%hd181779181810%_ + (##cdr _%tl182761182783%_)))) + (let ((_%type182793%_ + _%hd182762182788%_)) + (if (pair? _%tl182763182790%_) + (let* ((_%hd182764182795%_ (let () (declare (not safe)) - (##car _%tl181778181805%_))) - (_%kont181813%_ - _%hd181779181810%_)) - (_%K181774181793%_ - _%kont181813%_ - _%type181808%_ - _%name181801%_)) - (_%E181773181786%_)))) - (_%E181773181786%_)))) - (_%E181773181786%_)))))) - (if (pair? _%rest181750181758%_) - (let ((_%hd181755181818%_ + (##car _%tl182763182790%_))) + (_%kont182798%_ + _%hd182764182795%_)) + (_%K182759182778%_ + _%kont182798%_ + _%type182793%_ + _%name182786%_)) + (_%E182758182771%_)))) + (_%E182758182771%_)))) + (_%E182758182771%_)))))) + (if (pair? _%rest182735182743%_) + (let ((_%hd182740182803%_ (let () (declare (not safe)) - (##car _%rest181750181758%_))) - (_%tl181756181820%_ + (##car _%rest182735182743%_))) + (_%tl182741182805%_ (let () (declare (not safe)) - (##cdr _%rest181750181758%_)))) - (let* ((_%block181823%_ _%hd181755181818%_) - (_%rest181825%_ _%tl181756181820%_)) - (_%K181754181815%_ _%rest181825%_ _%block181823%_))) - (_%else181752181766%_))))))) + (##cdr _%rest182735182743%_)))) + (let* ((_%block182808%_ _%hd182740182803%_) + (_%rest182810%_ _%tl182741182805%_)) + (_%K182739182800%_ _%rest182810%_ _%block182808%_))) + (_%else182737182751%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks181663%_ _%konts181664%_) - (let* ((_%blocks181665181681%_ _%blocks181663%_) - (_%else181667181689%_ (lambda () _%blocks181663%_)) - (_%K181669181707%_ - (lambda (_%rest181692%_ _%kont181693%_ _%name181694%_) - (letrec* ((_%rtab181696%_ + (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 (_%block181698%_) - (let ((__tmp192611 (caddr _%block181698%_))) + (lambda (_%block182683%_) + (let ((__tmp193596 (caddr _%block182683%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181696%_ - __tmp192611))) - _%konts181664%_) - (if (let ((__tmp192612 - (let ((__tmp192613 + _%rtab182681%_ + __tmp193596))) + _%konts182649%_) + (if (let ((__tmp193597 + (let ((__tmp193598 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181694%_)))) + _%name182679%_)))) (declare (not safe)) - (hash-ref__0 _%rtab181696%_ __tmp192613)))) + (hash-ref__0 _%rtab182681%_ __tmp193598)))) (declare (not safe)) - (##fx= __tmp192612 '1)) - (let* ((_%rblock181702%_ - (let ((__tmp192614 - (lambda (_%block181700%_) - (let ((__tmp192616 - (cons _%name181694%_ '())) - (__tmp192615 - (caddr _%block181700%_))) + (##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 - __tmp192616 - __tmp192615))))) + __tmp193601 + __tmp193600))))) (declare (not safe)) - (__find __tmp192614 _%konts181664%_))) - (_%assert181704%_ + (__find __tmp193599 _%konts182649%_))) + (_%assert182689%_ (gxc#optimize-match-assert-restart - _%rblock181702%_ - _%name181694%_))) - (cons (cons _%name181694%_ + _%rblock182687%_ + _%name182679%_))) + (cons (cons _%name182679%_ (cons 'restart: - (cons _%kont181693%_ - (cons _%assert181704%_ + (cons _%kont182678%_ + (cons _%assert182689%_ '())))) - _%rest181692%_)) - _%blocks181663%_))))) - (if (pair? _%blocks181665181681%_) - (let ((_%hd181670181710%_ + _%rest182677%_)) + _%blocks182648%_))))) + (if (pair? _%blocks182650182666%_) + (let ((_%hd182655182695%_ (let () (declare (not safe)) - (##car _%blocks181665181681%_))) - (_%tl181671181712%_ + (##car _%blocks182650182666%_))) + (_%tl182656182697%_ (let () (declare (not safe)) - (##cdr _%blocks181665181681%_)))) - (if (pair? _%hd181670181710%_) - (let ((_%hd181672181715%_ + (##cdr _%blocks182650182666%_)))) + (if (pair? _%hd182655182695%_) + (let ((_%hd182657182700%_ (let () (declare (not safe)) - (##car _%hd181670181710%_))) - (_%tl181673181717%_ + (##car _%hd182655182695%_))) + (_%tl182658182702%_ (let () (declare (not safe)) - (##cdr _%hd181670181710%_)))) - (let ((_%name181720%_ _%hd181672181715%_)) - (if (pair? _%tl181673181717%_) - (let ((_%hd181674181722%_ + (##cdr _%hd182655182695%_)))) + (let ((_%name182705%_ _%hd182657182700%_)) + (if (pair? _%tl182658182702%_) + (let ((_%hd182659182707%_ (let () (declare (not safe)) - (##car _%tl181673181717%_))) - (_%tl181675181724%_ + (##car _%tl182658182702%_))) + (_%tl182660182709%_ (let () (declare (not safe)) - (##cdr _%tl181673181717%_)))) + (##cdr _%tl182658182702%_)))) (if (let () (declare (not safe)) - (##eq? _%hd181674181722%_ 'restart:)) - (if (pair? _%tl181675181724%_) - (let ((_%hd181676181727%_ + (##eq? _%hd182659182707%_ 'restart:)) + (if (pair? _%tl182660182709%_) + (let ((_%hd182661182712%_ (let () (declare (not safe)) - (##car _%tl181675181724%_))) - (_%tl181677181729%_ + (##car _%tl182660182709%_))) + (_%tl182662182714%_ (let () (declare (not safe)) - (##cdr _%tl181675181724%_)))) - (let ((_%kont181732%_ - _%hd181676181727%_)) - (if (pair? _%tl181677181729%_) - (let ((_%tl181679181734%_ + (##cdr _%tl182660182709%_)))) + (let ((_%kont182717%_ + _%hd182661182712%_)) + (if (pair? _%tl182662182714%_) + (let ((_%tl182664182719%_ (let () (declare (not safe)) - (##cdr _%tl181677181729%_)))) - (if (null? _%tl181679181734%_) - (let ((_%rest181737%_ - _%tl181671181712%_)) - (_%K181669181707%_ - _%rest181737%_ - _%kont181732%_ - _%name181720%_)) - (_%else181667181689%_))) - (_%else181667181689%_)))) - (_%else181667181689%_)) - (_%else181667181689%_))) - (_%else181667181689%_)))) - (_%else181667181689%_))) - (_%else181667181689%_))))) + (##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 (_%block181059%_ _%name181060%_) - (letrec ((_%assert-restart181062%_ - (lambda (_%expr181218%_ _%assert181219%_) - (let* ((_%__stx191618191619%_ _%expr181218%_) - (_%g181225181322%_ + (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" - _%__stx191618191619%_))))) - (let ((_%__kont191620191621%_ - (lambda (_%L181638%_ _%L181639%_ _%L181640%_) - (let ((_%$e181657%_ - (_%assert-restart181062%_ - _%L181639%_ - (cons (cons _%L181640%_ '#t) - _%assert181219%_)))) - (if _%$e181657%_ - _%$e181657%_ - (_%assert-restart181062%_ - _%L181638%_ - (cons (cons _%L181640%_ '#f) - _%assert181219%_)))))) - (_%__kont191622191623%_ - (lambda (_%L181586%_) + _%__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=? - _%L181586%_ - _%name181060%_)) - _%assert181219%_ + _%L182571%_ + _%name182045%_)) + _%assert182204%_ '#f))) - (_%__kont191624191625%_ - (lambda (_%L181536%_) - (_%assert-restart181062%_ - _%L181536%_ - _%assert181219%_))) - (_%__kont191626191627%_ - (lambda (_%L181462%_ - _%L181463%_ - _%L181464%_ - _%L181465%_ - _%L181466%_) - (_%assert-restart181062%_ - _%L181464%_ - _%assert181219%_))) - (_%__kont191632191633%_ (lambda () '#f))) - (let ((_%__match191787191788%_ - (lambda (_%e181270181334%_ - _%hd181271181337%_ - _%tl181272181339%_ - _%e181273181342%_ - _%hd181274181345%_ - _%tl181275181347%_ - _%e181276181350%_ - _%hd181277181353%_ - _%tl181278181355%_ - _%e181279181358%_ - _%hd181280181361%_ - _%tl181281181363%_ - _%e181282181366%_ - _%hd181283181369%_ - _%tl181284181371%_ - _%e181285181374%_ - _%hd181286181377%_ - _%tl181287181379%_ - _%e181288181382%_ - _%hd181289181385%_ - _%tl181290181387%_ - _%e181291181390%_ - _%hd181292181393%_ - _%tl181293181395%_ - _%__splice191628191629%_ - _%target181294181398%_ - _%tl181296181400%_) - (letrec ((_%loop181297181403%_ - (lambda (_%hd181295181406%_ - _%id181301181408%_) + (_%__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? - _%hd181295181406%_)) - (let ((_%e181298181411%_ + _%hd182280182391%_)) + (let ((_%e182283182396%_ (let () (declare (not safe)) (gx#stx-e - _%hd181295181406%_)))) - (let ((_%lp-tl181300181416%_ + _%hd182280182391%_)))) + (let ((_%lp-tl182285182401%_ (let () (declare (not safe)) - (##cdr _%e181298181411%_))) - (_%lp-hd181299181414%_ + (##cdr _%e182283182396%_))) + (_%lp-hd182284182399%_ (let () (declare (not safe)) - (##car _%e181298181411%_)))) - (_%loop181297181403%_ - _%lp-tl181300181416%_ - (cons _%lp-hd181299181414%_ - _%id181301181408%_)))) - (let ((_%id181302181419%_ - (reverse _%id181301181408%_))) + (##car _%e182283182396%_)))) + (_%loop182282182388%_ + _%lp-tl182285182401%_ + (cons _%lp-hd182284182399%_ + _%id182286182393%_)))) + (let ((_%id182287182404%_ + (reverse _%id182286182393%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181293181395%_)) - (let ((_%e181303181422%_ + _%tl182278182380%_)) + (let ((_%e182288182407%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181293181395%_)))) - (let ((_%tl181305181427%_ + (gx#stx-e _%tl182278182380%_)))) + (let ((_%tl182290182412%_ (let () (declare (not safe)) - (##cdr _%e181303181422%_))) - (_%hd181304181425%_ + (##cdr _%e182288182407%_))) + (_%hd182289182410%_ (let () (declare (not safe)) - (##car _%e181303181422%_)))) + (##car _%e182288182407%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181305181427%_)) + (gx#stx-null? _%tl182290182412%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181287181379%_)) + (gx#stx-null? _%tl182272182364%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl181278181355%_)) - (let ((_%__splice191630191631%_ + (gx#stx-pair/null? _%tl182263182340%_)) + (let ((_%__splice192615192616%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl181278181355%_ + _%tl182263182340%_ '0)))) - (let ((_%tl181308181432%_ + (let ((_%tl182293182417%_ (let () (declare (not safe)) (##vector-ref - _%__splice191630191631%_ + _%__splice192615192616%_ '1))) - (_%target181306181430%_ + (_%target182291182415%_ (let () (declare (not safe)) (##vector-ref - _%__splice191630191631%_ + _%__splice192615192616%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181308181432%_)) - (letrec ((_%loop181309181435%_ - (lambda (_%hd181307181438%_ - _%bind181313181440%_) + (gx#stx-null? _%tl182293182417%_)) + (letrec ((_%loop182294182420%_ + (lambda (_%hd182292182423%_ + _%bind182298182425%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181307181438%_)) - (let ((_%e181310181443%_ + _%hd182292182423%_)) + (let ((_%e182295182428%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd181307181438%_)))) - (let ((_%lp-tl181312181448%_ + (gx#stx-e _%hd182292182423%_)))) + (let ((_%lp-tl182297182433%_ (let () (declare (not safe)) - (##cdr _%e181310181443%_))) - (_%lp-hd181311181446%_ + (##cdr _%e182295182428%_))) + (_%lp-hd182296182431%_ (let () (declare (not safe)) - (##car _%e181310181443%_)))) - (_%loop181309181435%_ - _%lp-tl181312181448%_ - (cons _%lp-hd181311181446%_ _%bind181313181440%_)))) - (let ((_%bind181314181451%_ (reverse _%bind181313181440%_))) + (##car _%e182295182428%_)))) + (_%loop182294182420%_ + _%lp-tl182297182433%_ + (cons _%lp-hd182296182431%_ _%bind182298182425%_)))) + (let ((_%bind182299182436%_ (reverse _%bind182298182425%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181275181347%_)) - (let ((_%e181315181454%_ + (gx#stx-pair? _%tl182260182332%_)) + (let ((_%e182300182439%_ (let () (declare (not safe)) - (gx#stx-e _%tl181275181347%_)))) - (let ((_%tl181317181459%_ + (gx#stx-e _%tl182260182332%_)))) + (let ((_%tl182302182444%_ (let () (declare (not safe)) - (##cdr _%e181315181454%_))) - (_%hd181316181457%_ + (##cdr _%e182300182439%_))) + (_%hd182301182442%_ (let () (declare (not safe)) - (##car _%e181315181454%_)))) + (##car _%e182300182439%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181317181459%_)) - (_%__kont191626191627%_ - _%hd181316181457%_ - _%bind181314181451%_ - _%hd181304181425%_ - _%id181302181419%_ - _%hd181283181369%_) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_))))))) + (gx#stx-null? _%tl182302182444%_)) + (_%__kont192611192612%_ + _%hd182301182442%_ + _%bind182299182436%_ + _%hd182289182410%_ + _%id182287182404%_ + _%hd182268182354%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181309181435%_ - _%target181306181430%_ + (_%loop182294182420%_ + _%target182291182415%_ '())) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)) - (_%__kont191632191633%_)) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_))))))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181297181403%_ - _%target181294181398%_ + (_%loop182282182388%_ + _%target182279182383%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191618191619%_)) - (let ((_%e181230181606%_ + (gx#stx-pair? _%__stx192603192604%_)) + (let ((_%e182215182591%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191618191619%_)))) - (let ((_%tl181232181611%_ + (gx#stx-e _%__stx192603192604%_)))) + (let ((_%tl182217182596%_ (let () (declare (not safe)) - (##cdr _%e181230181606%_))) - (_%hd181231181609%_ + (##cdr _%e182215182591%_))) + (_%hd182216182594%_ (let () (declare (not safe)) - (##car _%e181230181606%_)))) + (##car _%e182215182591%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181231181609%_)) + (gx#identifier? _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd181231181609%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181232181611%_)) - (let ((_%e181233181614%_ + _%tl182217182596%_)) + (let ((_%e182218182599%_ (let () (declare (not safe)) (gx#stx-e - _%tl181232181611%_)))) - (let ((_%tl181235181619%_ + _%tl182217182596%_)))) + (let ((_%tl182220182604%_ (let () (declare (not safe)) - (##cdr _%e181233181614%_))) - (_%hd181234181617%_ + (##cdr _%e182218182599%_))) + (_%hd182219182602%_ (let () (declare (not safe)) - (##car _%e181233181614%_)))) + (##car _%e182218182599%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181235181619%_)) - (let ((_%e181236181622%_ + _%tl182220182604%_)) + (let ((_%e182221182607%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181235181619%_)))) - (let ((_%tl181238181627%_ - (let () (declare (not safe)) (##cdr _%e181236181622%_))) - (_%hd181237181625%_ + (gx#stx-e _%tl182220182604%_)))) + (let ((_%tl182223182612%_ + (let () (declare (not safe)) (##cdr _%e182221182607%_))) + (_%hd182222182610%_ (let () (declare (not safe)) - (##car _%e181236181622%_)))) + (##car _%e182221182607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181238181627%_)) - (let ((_%e181239181630%_ + (gx#stx-pair? _%tl182223182612%_)) + (let ((_%e182224182615%_ (let () (declare (not safe)) - (gx#stx-e _%tl181238181627%_)))) - (let ((_%tl181241181635%_ + (gx#stx-e _%tl182223182612%_)))) + (let ((_%tl182226182620%_ (let () (declare (not safe)) - (##cdr _%e181239181630%_))) - (_%hd181240181633%_ + (##cdr _%e182224182615%_))) + (_%hd182225182618%_ (let () (declare (not safe)) - (##car _%e181239181630%_)))) + (##car _%e182224182615%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181241181635%_)) - (_%__kont191620191621%_ - _%hd181240181633%_ - _%hd181237181625%_ - _%hd181234181617%_) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) + (gx#stx-null? _%tl182226182620%_)) + (_%__kont192605192606%_ + _%hd182225182618%_ + _%hd182222182610%_ + _%hd182219182602%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191632191633%_)) + (_%__kont192617192618%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd181231181609%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181232181611%_)) - (let ((_%e181246181562%_ + _%tl182217182596%_)) + (let ((_%e182231182547%_ (let () (declare (not safe)) (gx#stx-e - _%tl181232181611%_)))) - (let ((_%tl181248181567%_ + _%tl182217182596%_)))) + (let ((_%tl182233182552%_ (let () (declare (not safe)) - (##cdr _%e181246181562%_))) - (_%hd181247181565%_ + (##cdr _%e182231182547%_))) + (_%hd182232182550%_ (let () (declare (not safe)) - (##car _%e181246181562%_)))) + (##car _%e182231182547%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181247181565%_)) - (let ((_%e181249181570%_ + _%hd182232182550%_)) + (let ((_%e182234182555%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd181247181565%_)))) - (let ((_%tl181251181575%_ + (gx#stx-e _%hd182232182550%_)))) + (let ((_%tl182236182560%_ (let () (declare (not safe)) - (##cdr _%e181249181570%_))) - (_%hd181250181573%_ + (##cdr _%e182234182555%_))) + (_%hd182235182558%_ (let () (declare (not safe)) - (##car _%e181249181570%_)))) + (##car _%e182234182555%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181250181573%_)) + (gx#identifier? _%hd182235182558%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181250181573%_)) + (gx#stx-eq? '%#ref _%hd182235182558%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181251181575%_)) - (let ((_%e181252181578%_ + (gx#stx-pair? _%tl182236182560%_)) + (let ((_%e182237182563%_ (let () (declare (not safe)) - (gx#stx-e _%tl181251181575%_)))) - (let ((_%tl181254181583%_ + (gx#stx-e _%tl182236182560%_)))) + (let ((_%tl182239182568%_ (let () (declare (not safe)) - (##cdr _%e181252181578%_))) - (_%hd181253181581%_ + (##cdr _%e182237182563%_))) + (_%hd182238182566%_ (let () (declare (not safe)) - (##car _%e181252181578%_)))) + (##car _%e182237182563%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181254181583%_)) - (_%__kont191622191623%_ - _%hd181253181581%_) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)) - (_%__kont191632191633%_)) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) + (gx#stx-null? _%tl182239182568%_)) + (_%__kont192607192608%_ + _%hd182238182566%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191632191633%_)) + (_%__kont192617192618%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd181231181609%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181232181611%_)) - (let ((_%e181259181520%_ + _%tl182217182596%_)) + (let ((_%e182244182505%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181232181611%_)))) - (let ((_%tl181261181525%_ - (let () (declare (not safe)) (##cdr _%e181259181520%_))) - (_%hd181260181523%_ + (gx#stx-e _%tl182217182596%_)))) + (let ((_%tl182246182510%_ + (let () (declare (not safe)) (##cdr _%e182244182505%_))) + (_%hd182245182508%_ (let () (declare (not safe)) - (##car _%e181259181520%_)))) + (##car _%e182244182505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181261181525%_)) - (let ((_%e181262181528%_ + (gx#stx-pair? _%tl182246182510%_)) + (let ((_%e182247182513%_ (let () (declare (not safe)) - (gx#stx-e _%tl181261181525%_)))) - (let ((_%tl181264181533%_ + (gx#stx-e _%tl182246182510%_)))) + (let ((_%tl182249182518%_ (let () (declare (not safe)) - (##cdr _%e181262181528%_))) - (_%hd181263181531%_ + (##cdr _%e182247182513%_))) + (_%hd182248182516%_ (let () (declare (not safe)) - (##car _%e181262181528%_)))) + (##car _%e182247182513%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181264181533%_)) - (_%__kont191624191625%_ _%hd181263181531%_) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)) + (gx#stx-null? _%tl182249182518%_)) + (_%__kont192609192610%_ _%hd182248182516%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd181231181609%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181232181611%_)) - (let ((_%e181273181342%_ + _%tl182217182596%_)) + (let ((_%e182258182327%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl181232181611%_)))) - (let ((_%tl181275181347%_ + (gx#stx-e _%tl182217182596%_)))) + (let ((_%tl182260182332%_ (let () (declare (not safe)) - (##cdr _%e181273181342%_))) - (_%hd181274181345%_ + (##cdr _%e182258182327%_))) + (_%hd182259182330%_ (let () (declare (not safe)) - (##car _%e181273181342%_)))) + (##car _%e182258182327%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181274181345%_)) - (let ((_%e181276181350%_ + (gx#stx-pair? _%hd182259182330%_)) + (let ((_%e182261182335%_ (let () (declare (not safe)) - (gx#stx-e _%hd181274181345%_)))) - (let ((_%tl181278181355%_ + (gx#stx-e _%hd182259182330%_)))) + (let ((_%tl182263182340%_ (let () (declare (not safe)) - (##cdr _%e181276181350%_))) - (_%hd181277181353%_ + (##cdr _%e182261182335%_))) + (_%hd182262182338%_ (let () (declare (not safe)) - (##car _%e181276181350%_)))) + (##car _%e182261182335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181277181353%_)) - (let ((_%e181279181358%_ + (gx#stx-pair? _%hd182262182338%_)) + (let ((_%e182264182343%_ (let () (declare (not safe)) - (gx#stx-e _%hd181277181353%_)))) - (let ((_%tl181281181363%_ + (gx#stx-e _%hd182262182338%_)))) + (let ((_%tl182266182348%_ (let () (declare (not safe)) - (##cdr _%e181279181358%_))) - (_%hd181280181361%_ + (##cdr _%e182264182343%_))) + (_%hd182265182346%_ (let () (declare (not safe)) - (##car _%e181279181358%_)))) + (##car _%e182264182343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181280181361%_)) - (let ((_%e181282181366%_ + (gx#stx-pair? _%hd182265182346%_)) + (let ((_%e182267182351%_ (let () (declare (not safe)) (gx#stx-e - _%hd181280181361%_)))) - (let ((_%tl181284181371%_ + _%hd182265182346%_)))) + (let ((_%tl182269182356%_ (let () (declare (not safe)) - (##cdr _%e181282181366%_))) - (_%hd181283181369%_ + (##cdr _%e182267182351%_))) + (_%hd182268182354%_ (let () (declare (not safe)) - (##car _%e181282181366%_)))) + (##car _%e182267182351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181284181371%_)) + _%tl182269182356%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181281181363%_)) - (let ((_%e181285181374%_ + _%tl182266182348%_)) + (let ((_%e182270182359%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181281181363%_)))) - (let ((_%tl181287181379%_ - (let () (declare (not safe)) (##cdr _%e181285181374%_))) - (_%hd181286181377%_ + (gx#stx-e _%tl182266182348%_)))) + (let ((_%tl182272182364%_ + (let () (declare (not safe)) (##cdr _%e182270182359%_))) + (_%hd182271182362%_ (let () (declare (not safe)) - (##car _%e181285181374%_)))) + (##car _%e182270182359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181286181377%_)) - (let ((_%e181288181382%_ + (gx#stx-pair? _%hd182271182362%_)) + (let ((_%e182273182367%_ (let () (declare (not safe)) - (gx#stx-e _%hd181286181377%_)))) - (let ((_%tl181290181387%_ + (gx#stx-e _%hd182271182362%_)))) + (let ((_%tl182275182372%_ (let () (declare (not safe)) - (##cdr _%e181288181382%_))) - (_%hd181289181385%_ + (##cdr _%e182273182367%_))) + (_%hd182274182370%_ (let () (declare (not safe)) - (##car _%e181288181382%_)))) + (##car _%e182273182367%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181289181385%_)) + (gx#identifier? _%hd182274182370%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd181289181385%_)) + (gx#stx-eq? '%#lambda _%hd182274182370%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181290181387%_)) - (let ((_%e181291181390%_ + (gx#stx-pair? _%tl182275182372%_)) + (let ((_%e182276182375%_ (let () (declare (not safe)) - (gx#stx-e _%tl181290181387%_)))) - (let ((_%tl181293181395%_ + (gx#stx-e _%tl182275182372%_)))) + (let ((_%tl182278182380%_ (let () (declare (not safe)) - (##cdr _%e181291181390%_))) - (_%hd181292181393%_ + (##cdr _%e182276182375%_))) + (_%hd182277182378%_ (let () (declare (not safe)) - (##car _%e181291181390%_)))) + (##car _%e182276182375%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd181292181393%_)) - (let ((_%__splice191628191629%_ + _%hd182277182378%_)) + (let ((_%__splice192613192614%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd181292181393%_ + _%hd182277182378%_ '0)))) - (let ((_%tl181296181400%_ + (let ((_%tl182281182385%_ (let () (declare (not safe)) (##vector-ref - _%__splice191628191629%_ + _%__splice192613192614%_ '1))) - (_%target181294181398%_ + (_%target182279182383%_ (let () (declare (not safe)) (##vector-ref - _%__splice191628191629%_ + _%__splice192613192614%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181296181400%_)) - (_%__match191787191788%_ - _%e181230181606%_ - _%hd181231181609%_ - _%tl181232181611%_ - _%e181273181342%_ - _%hd181274181345%_ - _%tl181275181347%_ - _%e181276181350%_ - _%hd181277181353%_ - _%tl181278181355%_ - _%e181279181358%_ - _%hd181280181361%_ - _%tl181281181363%_ - _%e181282181366%_ - _%hd181283181369%_ - _%tl181284181371%_ - _%e181285181374%_ - _%hd181286181377%_ - _%tl181287181379%_ - _%e181288181382%_ - _%hd181289181385%_ - _%tl181290181387%_ - _%e181291181390%_ - _%hd181292181393%_ - _%tl181293181395%_ - _%__splice191628191629%_ - _%target181294181398%_ - _%tl181296181400%_) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)) - (_%__kont191632191633%_)) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)) + _%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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)) - (_%__kont191632191633%_))))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) + (_%__kont192617192618%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191632191633%_)))) - (_%__kont191632191633%_)))))))) - (let* ((_%block181063181076%_ _%block181059%_) - (_%E181065181080%_ + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))))))) + (let* ((_%block182048182061%_ _%block182044%_) + (_%E182050182065%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block181063181076%_ + _%block182048182061%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K181066181193%_ - (lambda (_%maybe-bind181083%_ - _%assert181084%_ - _%kont181085%_) - (let* ((_%g181087181113%_ - (lambda (_%g181088181110%_) + (_%K182051182178%_ + (lambda (_%maybe-bind182068%_ + _%assert182069%_ + _%kont182070%_) + (let* ((_%g182072182098%_ + (lambda (_%g182073182095%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181088181110%_)))) - (_%g181086181190%_ - (lambda (_%g181088181116%_) + _%g182073182095%_)))) + (_%g182071182175%_ + (lambda (_%g182073182101%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g181088181116%_)) - (let ((_%e181091181118%_ + (gx#stx-pair? _%g182073182101%_)) + (let ((_%e182076182103%_ (let () (declare (not safe)) - (gx#stx-e _%g181088181116%_)))) - (let ((_%hd181092181121%_ + (gx#stx-e _%g182073182101%_)))) + (let ((_%hd182077182106%_ (let () (declare (not safe)) - (##car _%e181091181118%_))) - (_%tl181093181123%_ + (##car _%e182076182103%_))) + (_%tl182078182108%_ (let () (declare (not safe)) - (##cdr _%e181091181118%_)))) + (##cdr _%e182076182103%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181092181121%_)) + _%hd182077182106%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181092181121%_)) + _%hd182077182106%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181093181123%_)) - (let ((_%e181094181126%_ + _%tl182078182108%_)) + (let ((_%e182079182111%_ (let () (declare (not safe)) (gx#stx-e - _%tl181093181123%_)))) - (let ((_%hd181095181129%_ + _%tl182078182108%_)))) + (let ((_%hd182080182114%_ (let () (declare (not safe)) - (##car _%e181094181126%_))) - (_%tl181096181131%_ + (##car _%e182079182111%_))) + (_%tl182081182116%_ (let () (declare (not safe)) - (##cdr _%e181094181126%_)))) + (##cdr _%e182079182111%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd181095181129%_)) - (let ((_g192617_ + _%hd182080182114%_)) + (let ((_g193602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd181095181129%_ '0)))) + (gx#syntax-split-splice _%hd182080182114%_ '0)))) (begin - (let ((_g192618_ + (let ((_g193603_ (let () (declare (not safe)) - (if (##values? _g192617_) - (##values-length _g192617_) + (if (##values? _g193602_) + (##values-length _g193602_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192618_ 2))) - (error "Context expects 2 values" _g192618_))) - (let ((_%target181097181134%_ + (##fx= _g193603_ 2))) + (error "Context expects 2 values" _g193603_))) + (let ((_%target182082182119%_ (let () (declare (not safe)) - (##values-ref _g192617_ 0))) - (_%tl181099181136%_ + (##values-ref _g193602_ 0))) + (_%tl182084182121%_ (let () (declare (not safe)) - (##values-ref _g192617_ 1)))) + (##values-ref _g193602_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181099181136%_)) - (letrec ((_%loop181100181139%_ - (lambda (_%hd181098181142%_ - _%id181104181144%_) + (gx#stx-null? _%tl182084182121%_)) + (letrec ((_%loop182085182124%_ + (lambda (_%hd182083182127%_ + _%id182089182129%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181098181142%_)) - (let ((_%e181101181147%_ + _%hd182083182127%_)) + (let ((_%e182086182132%_ (let () (declare (not safe)) (gx#stx-e - _%hd181098181142%_)))) - (let ((_%lp-hd181102181150%_ + _%hd182083182127%_)))) + (let ((_%lp-hd182087182135%_ (let () (declare (not safe)) - (##car _%e181101181147%_))) - (_%lp-tl181103181152%_ + (##car _%e182086182132%_))) + (_%lp-tl182088182137%_ (let () (declare (not safe)) - (##cdr _%e181101181147%_)))) - (_%loop181100181139%_ - _%lp-tl181103181152%_ - (cons _%lp-hd181102181150%_ - _%id181104181144%_)))) - (let ((_%id181105181155%_ - (reverse _%id181104181144%_))) + (##cdr _%e182086182132%_)))) + (_%loop182085182124%_ + _%lp-tl182088182137%_ + (cons _%lp-hd182087182135%_ + _%id182089182129%_)))) + (let ((_%id182090182140%_ + (reverse _%id182089182129%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181096181131%_)) - (let ((_%e181106181158%_ + _%tl182081182116%_)) + (let ((_%e182091182143%_ (let () (declare (not safe)) (gx#stx-e - _%tl181096181131%_)))) - (let ((_%hd181107181161%_ + _%tl182081182116%_)))) + (let ((_%hd182092182146%_ (let () (declare (not safe)) - (##car _%e181106181158%_))) - (_%tl181108181163%_ + (##car _%e182091182143%_))) + (_%tl182093182148%_ (let () (declare (not safe)) - (##cdr _%e181106181158%_)))) + (##cdr _%e182091182143%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181108181163%_)) - ((lambda (_%L181166%_ + _%tl182093182148%_)) + ((lambda (_%L182151%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L181167%_) - (_%assert-restart181062%_ _%L181166%_ _%assert181084%_)) - _%hd181107181161%_ - _%id181105181155%_) - (_%g181087181113%_ _%g181088181116%_)))) + _%L182152%_) + (_%assert-restart182047%_ _%L182151%_ _%assert182069%_)) + _%hd182092182146%_ + _%id182090182140%_) + (_%g182072182098%_ _%g182073182101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181087181113%_ - _%g181088181116%_))))))) - (_%loop181100181139%_ - _%target181097181134%_ + (_%g182072182098%_ + _%g182073182101%_))))))) + (_%loop182085182124%_ + _%target182082182119%_ '())) - (_%g181087181113%_ _%g181088181116%_))))) - (_%g181087181113%_ _%g181088181116%_)))) + (_%g182072182098%_ _%g182073182101%_))))) + (_%g182072182098%_ _%g182073182101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181087181113%_ - _%g181088181116%_)) - (_%g181087181113%_ - _%g181088181116%_)) - (_%g181087181113%_ - _%g181088181116%_)))) - (_%g181087181113%_ _%g181088181116%_))))) - (_%g181086181190%_ _%kont181085%_))))) - (if (pair? _%block181063181076%_) - (let ((_%tl181068181196%_ + (_%g182072182098%_ + _%g182073182101%_)) + (_%g182072182098%_ + _%g182073182101%_)) + (_%g182072182098%_ + _%g182073182101%_)))) + (_%g182072182098%_ _%g182073182101%_))))) + (_%g182071182175%_ _%kont182070%_))))) + (if (pair? _%block182048182061%_) + (let ((_%tl182053182181%_ (let () (declare (not safe)) - (##cdr _%block181063181076%_)))) - (if (pair? _%tl181068181196%_) - (let ((_%tl181070181199%_ + (##cdr _%block182048182061%_)))) + (if (pair? _%tl182053182181%_) + (let ((_%tl182055182184%_ (let () (declare (not safe)) - (##cdr _%tl181068181196%_)))) - (if (pair? _%tl181070181199%_) - (let ((_%hd181071181202%_ + (##cdr _%tl182053182181%_)))) + (if (pair? _%tl182055182184%_) + (let ((_%hd182056182187%_ (let () (declare (not safe)) - (##car _%tl181070181199%_))) - (_%tl181072181204%_ + (##car _%tl182055182184%_))) + (_%tl182057182189%_ (let () (declare (not safe)) - (##cdr _%tl181070181199%_)))) - (let ((_%kont181207%_ _%hd181071181202%_)) - (if (pair? _%tl181072181204%_) - (let ((_%hd181073181209%_ + (##cdr _%tl182055182184%_)))) + (let ((_%kont182192%_ _%hd182056182187%_)) + (if (pair? _%tl182057182189%_) + (let ((_%hd182058182194%_ (let () (declare (not safe)) - (##car _%tl181072181204%_))) - (_%tl181074181211%_ + (##car _%tl182057182189%_))) + (_%tl182059182196%_ (let () (declare (not safe)) - (##cdr _%tl181072181204%_)))) - (let* ((_%assert181214%_ - _%hd181073181209%_) - (_%maybe-bind181216%_ - _%tl181074181211%_)) - (_%K181066181193%_ - _%maybe-bind181216%_ - _%assert181214%_ - _%kont181207%_))) - (_%E181065181080%_)))) - (_%E181065181080%_))) - (_%E181065181080%_))) - (_%E181065181080%_)))))) + (##cdr _%tl182057182189%_)))) + (let* ((_%assert182199%_ + _%hd182058182194%_) + (_%maybe-bind182201%_ + _%tl182059182196%_)) + (_%K182051182178%_ + _%maybe-bind182201%_ + _%assert182199%_ + _%kont182192%_))) + (_%E182050182065%_)))) + (_%E182050182065%_))) + (_%E182050182065%_))) + (_%E182050182065%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx180690%_) - (let* ((_%g180692180722%_ - (lambda (_%g180693180719%_) + (lambda (_%stx181675%_) + (let* ((_%g181677181707%_ + (lambda (_%g181678181704%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180693180719%_)))) - (_%g180691181056%_ - (lambda (_%g180693180725%_) + _%g181678181704%_)))) + (_%g181676182041%_ + (lambda (_%g181678181710%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180693180725%_)) - (let ((_%e180697180727%_ + (gx#stx-pair? _%g181678181710%_)) + (let ((_%e181682181712%_ (let () (declare (not safe)) - (gx#stx-e _%g180693180725%_)))) - (let ((_%hd180698180730%_ + (gx#stx-e _%g181678181710%_)))) + (let ((_%hd181683181715%_ (let () (declare (not safe)) - (##car _%e180697180727%_))) - (_%tl180699180732%_ + (##car _%e181682181712%_))) + (_%tl181684181717%_ (let () (declare (not safe)) - (##cdr _%e180697180727%_)))) + (##cdr _%e181682181712%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180698180730%_)) + (gx#identifier? _%hd181683181715%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180698180730%_)) + _%hd181683181715%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180699180732%_)) - (let ((_%e180700180735%_ + (gx#stx-pair? _%tl181684181717%_)) + (let ((_%e181685181720%_ (let () (declare (not safe)) - (gx#stx-e _%tl180699180732%_)))) - (let ((_%hd180701180738%_ + (gx#stx-e _%tl181684181717%_)))) + (let ((_%hd181686181723%_ (let () (declare (not safe)) - (##car _%e180700180735%_))) - (_%tl180702180740%_ + (##car _%e181685181720%_))) + (_%tl181687181725%_ (let () (declare (not safe)) - (##cdr _%e180700180735%_)))) + (##cdr _%e181685181720%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180701180738%_)) - (let ((_%e180703180743%_ + _%hd181686181723%_)) + (let ((_%e181688181728%_ (let () (declare (not safe)) (gx#stx-e - _%hd180701180738%_)))) - (let ((_%hd180704180746%_ + _%hd181686181723%_)))) + (let ((_%hd181689181731%_ (let () (declare (not safe)) - (##car _%e180703180743%_))) - (_%tl180705180748%_ + (##car _%e181688181728%_))) + (_%tl181690181733%_ (let () (declare (not safe)) - (##cdr _%e180703180743%_)))) + (##cdr _%e181688181728%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180704180746%_)) - (let ((_%e180706180751%_ + _%hd181689181731%_)) + (let ((_%e181691181736%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180704180746%_)))) - (let ((_%hd180707180754%_ - (let () (declare (not safe)) (##car _%e180706180751%_))) - (_%tl180708180756%_ + (gx#stx-e _%hd181689181731%_)))) + (let ((_%hd181692181739%_ + (let () (declare (not safe)) (##car _%e181691181736%_))) + (_%tl181693181741%_ (let () (declare (not safe)) - (##cdr _%e180706180751%_)))) + (##cdr _%e181691181736%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180707180754%_)) - (let ((_%e180709180759%_ + (gx#stx-pair? _%hd181692181739%_)) + (let ((_%e181694181744%_ (let () (declare (not safe)) - (gx#stx-e _%hd180707180754%_)))) - (let ((_%hd180710180762%_ + (gx#stx-e _%hd181692181739%_)))) + (let ((_%hd181695181747%_ (let () (declare (not safe)) - (##car _%e180709180759%_))) - (_%tl180711180764%_ + (##car _%e181694181744%_))) + (_%tl181696181749%_ (let () (declare (not safe)) - (##cdr _%e180709180759%_)))) + (##cdr _%e181694181744%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180711180764%_)) + (gx#stx-null? _%tl181696181749%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180708180756%_)) - (let ((_%e180712180767%_ + (gx#stx-pair? _%tl181693181741%_)) + (let ((_%e181697181752%_ (let () (declare (not safe)) - (gx#stx-e _%tl180708180756%_)))) - (let ((_%hd180713180770%_ + (gx#stx-e _%tl181693181741%_)))) + (let ((_%hd181698181755%_ (let () (declare (not safe)) - (##car _%e180712180767%_))) - (_%tl180714180772%_ + (##car _%e181697181752%_))) + (_%tl181699181757%_ (let () (declare (not safe)) - (##cdr _%e180712180767%_)))) + (##cdr _%e181697181752%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180714180772%_)) + (gx#stx-null? _%tl181699181757%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180705180748%_)) + _%tl181690181733%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180702180740%_)) - (let ((_%e180715180775%_ + _%tl181687181725%_)) + (let ((_%e181700181760%_ (let () (declare (not safe)) (gx#stx-e - _%tl180702180740%_)))) - (let ((_%hd180716180778%_ + _%tl181687181725%_)))) + (let ((_%hd181701181763%_ (let () (declare (not safe)) - (##car _%e180715180775%_))) - (_%tl180717180780%_ + (##car _%e181700181760%_))) + (_%tl181702181765%_ (let () (declare (not safe)) - (##cdr _%e180715180775%_)))) + (##cdr _%e181700181760%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180717180780%_)) - ((lambda (_%L180783%_ + _%tl181702181765%_)) + ((lambda (_%L181768%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180784%_ - _%L180785%_) - (let _%lp180809%_ ((_%body180811%_ _%L180783%_) - (_%clauses180812%_ '())) - (let* ((_%__stx191790191791%_ _%body180811%_) - (_%g180815180862%_ + _%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" - _%__stx191790191791%_))))) - (let ((_%__kont191792191793%_ - (lambda (_%L181028%_ _%L181029%_ _%L181030%_) - (_%lp180809%_ - _%L181028%_ - (cons (cons _%L181030%_ + _%__stx192775192776%_))))) + (let ((_%__kont192777192778%_ + (lambda (_%L182013%_ _%L182014%_ _%L182015%_) + (_%lp181794%_ + _%L182013%_ + (cons (cons _%L182015%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L181029%_))) - _%clauses180812%_)))) - (_%__kont191794191795%_ - (lambda (_%L180907%_ _%L180908%_) - (let ((_%$e180929%_ - (length _%clauses180812%_))) - (if (eq? '0 _%$e180929%_) - (let ((__tmp192619 + _%L182014%_))) + _%clauses181797%_)))) + (_%__kont192779192780%_ + (lambda (_%L181892%_ _%L181893%_) + (let ((_%$e181914%_ + (length _%clauses181797%_))) + (if (eq? '0 _%$e181914%_) + (let ((__tmp193604 (cons '%#let-values - (cons (cons (cons (cons _%L180785%_ + (cons (cons (cons (cons _%L181770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L180784%_ '())) + (cons _%L181769%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body180811%_)) + (gxc#compile-e__0 _%body181796%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192619 - _%stx180690%_)) - (if (eq? '1 _%$e180929%_) - (let* ((_%clauses180931180940%_ - _%clauses180812%_) - (_%E180933180944%_ + __tmp193604 + _%stx181675%_)) + (if (eq? '1 _%$e181914%_) + (let* ((_%clauses181916181925%_ + _%clauses181797%_) + (_%E181918181929%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180931180940%_ + _%clauses181916181925%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K180934180950%_ - (lambda (_%clause-lambda180947%_ - _%clause180948%_) - (let ((__tmp192620 + (_%K181919181935%_ + (lambda (_%clause-lambda181932%_ + _%clause181933%_) + (let ((__tmp193605 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L180785%_ '()) - (cons _%L180784%_ '())) + (cons (cons (cons (cons _%L181770%_ '()) + (cons _%L181769%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause180948%_ + (cons (cons (cons (cons _%clause181933%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda180947%_ '())) + (cons _%clause-lambda181932%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body180811%_)) + _%body181796%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192620 _%stx180690%_))))) + (gxc#xform-wrap-source __tmp193605 _%stx181675%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%clauses180931180940%_) - (let ((_%hd180935180953%_ + (if (pair? _%clauses181916181925%_) + (let ((_%hd181920181938%_ (let () (declare (not safe)) - (##car _%clauses180931180940%_))) - (_%tl180936180955%_ + (##car _%clauses181916181925%_))) + (_%tl181921181940%_ (let () (declare (not safe)) - (##cdr _%clauses180931180940%_)))) - (if (pair? _%hd180935180953%_) - (let ((_%hd180937180958%_ + (##cdr _%clauses181916181925%_)))) + (if (pair? _%hd181920181938%_) + (let ((_%hd181922181943%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd180935180953%_))) - (_%tl180938180960%_ + (##car _%hd181920181938%_))) + (_%tl181923181945%_ (let () (declare (not safe)) - (##cdr _%hd180935180953%_)))) - (let* ((_%clause180963%_ _%hd180937180958%_) - (_%clause-lambda180965%_ _%tl180938180960%_)) - (if (null? _%tl180936180955%_) - (_%K180934180950%_ - _%clause-lambda180965%_ - _%clause180963%_) - (_%E180933180944%_)))) - (_%E180933180944%_))) + (##cdr _%hd181920181938%_)))) + (let* ((_%clause181948%_ _%hd181922181943%_) + (_%clause-lambda181950%_ _%tl181923181945%_)) + (if (null? _%tl181921181940%_) + (_%K181919181935%_ + _%clause-lambda181950%_ + _%clause181948%_) + (_%E181918181929%_)))) + (_%E181918181929%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E180933180944%_))) + (_%E181918181929%_))) (gxc#optimize-syntax-case-body - _%stx180690%_ + _%stx181675%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L180907%_)) - (cons _%L180785%_ _%L180784%_) - _%clauses180812%_))))))) + (gxc#compile-e__0 _%L181892%_)) + (cons _%L181770%_ _%L181769%_) + _%clauses181797%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191790191791%_)) - (let ((_%e180820180972%_ + (gx#stx-pair? _%__stx192775192776%_)) + (let ((_%e181805181957%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191790191791%_)))) - (let ((_%tl180822180977%_ + (gx#stx-e _%__stx192775192776%_)))) + (let ((_%tl181807181962%_ (let () (declare (not safe)) - (##cdr _%e180820180972%_))) - (_%hd180821180975%_ + (##cdr _%e181805181957%_))) + (_%hd181806181960%_ (let () (declare (not safe)) - (##car _%e180820180972%_)))) + (##car _%e181805181957%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180821180975%_)) + (gx#identifier? _%hd181806181960%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180821180975%_)) + _%hd181806181960%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180822180977%_)) - (let ((_%e180823180980%_ + _%tl181807181962%_)) + (let ((_%e181808181965%_ (let () (declare (not safe)) (gx#stx-e - _%tl180822180977%_)))) - (let ((_%tl180825180985%_ + _%tl181807181962%_)))) + (let ((_%tl181810181970%_ (let () (declare (not safe)) - (##cdr _%e180823180980%_))) - (_%hd180824180983%_ + (##cdr _%e181808181965%_))) + (_%hd181809181968%_ (let () (declare (not safe)) - (##car _%e180823180980%_)))) + (##car _%e181808181965%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180824180983%_)) - (let ((_%e180826180988%_ + _%hd181809181968%_)) + (let ((_%e181811181973%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180824180983%_)))) - (let ((_%tl180828180993%_ + (gx#stx-e _%hd181809181968%_)))) + (let ((_%tl181813181978%_ (let () (declare (not safe)) - (##cdr _%e180826180988%_))) - (_%hd180827180991%_ + (##cdr _%e181811181973%_))) + (_%hd181812181976%_ (let () (declare (not safe)) - (##car _%e180826180988%_)))) + (##car _%e181811181973%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180827180991%_)) - (let ((_%e180829180996%_ + (gx#stx-pair? _%hd181812181976%_)) + (let ((_%e181814181981%_ (let () (declare (not safe)) - (gx#stx-e _%hd180827180991%_)))) - (let ((_%tl180831181001%_ + (gx#stx-e _%hd181812181976%_)))) + (let ((_%tl181816181986%_ (let () (declare (not safe)) - (##cdr _%e180829180996%_))) - (_%hd180830180999%_ + (##cdr _%e181814181981%_))) + (_%hd181815181984%_ (let () (declare (not safe)) - (##car _%e180829180996%_)))) + (##car _%e181814181981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180830180999%_)) - (let ((_%e180832181004%_ + (gx#stx-pair? _%hd181815181984%_)) + (let ((_%e181817181989%_ (let () (declare (not safe)) - (gx#stx-e _%hd180830180999%_)))) - (let ((_%tl180834181009%_ + (gx#stx-e _%hd181815181984%_)))) + (let ((_%tl181819181994%_ (let () (declare (not safe)) - (##cdr _%e180832181004%_))) - (_%hd180833181007%_ + (##cdr _%e181817181989%_))) + (_%hd181818181992%_ (let () (declare (not safe)) - (##car _%e180832181004%_)))) + (##car _%e181817181989%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180834181009%_)) + (gx#stx-null? _%tl181819181994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180831181001%_)) - (let ((_%e180835181012%_ + (gx#stx-pair? _%tl181816181986%_)) + (let ((_%e181820181997%_ (let () (declare (not safe)) (gx#stx-e - _%tl180831181001%_)))) - (let ((_%tl180837181017%_ + _%tl181816181986%_)))) + (let ((_%tl181822182002%_ (let () (declare (not safe)) - (##cdr _%e180835181012%_))) - (_%hd180836181015%_ + (##cdr _%e181820181997%_))) + (_%hd181821182000%_ (let () (declare (not safe)) - (##car _%e180835181012%_)))) + (##car _%e181820181997%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180837181017%_)) + _%tl181822182002%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180828180993%_)) + _%tl181813181978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180825180985%_)) - (let ((_%e180838181020%_ + _%tl181810181970%_)) + (let ((_%e181823182005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180825180985%_)))) - (let ((_%tl180840181025%_ + (gx#stx-e _%tl181810181970%_)))) + (let ((_%tl181825182010%_ (let () (declare (not safe)) - (##cdr _%e180838181020%_))) - (_%hd180839181023%_ + (##cdr _%e181823182005%_))) + (_%hd181824182008%_ (let () (declare (not safe)) - (##car _%e180838181020%_)))) + (##car _%e181823182005%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180840181025%_)) - (_%__kont191792191793%_ - _%hd180839181023%_ - _%hd180836181015%_ - _%hd180833181007%_) - (let () (declare (not safe)) (_%g180815180862%_))))) - (let () (declare (not safe)) (_%g180815180862%_))) - (let () (declare (not safe)) (_%g180815180862%_))) + (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)) - (_%g180815180862%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180815180862%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180815180862%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180815180862%_))))) - (let () (declare (not safe)) (_%g180815180862%_))))) - (let () (declare (not safe)) (_%g180815180862%_))))) + (_%g181800181847%_))))) + (let () (declare (not safe)) (_%g181800181847%_))))) + (let () (declare (not safe)) (_%g181800181847%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180815180862%_))) + (_%g181800181847%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180821180975%_)) + _%hd181806181960%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180822180977%_)) - (let ((_%e180846180875%_ + _%tl181807181962%_)) + (let ((_%e181831181860%_ (let () (declare (not safe)) (gx#stx-e - _%tl180822180977%_)))) - (let ((_%tl180848180880%_ + _%tl181807181962%_)))) + (let ((_%tl181833181865%_ (let () (declare (not safe)) - (##cdr _%e180846180875%_))) - (_%hd180847180878%_ + (##cdr _%e181831181860%_))) + (_%hd181832181863%_ (let () (declare (not safe)) - (##car _%e180846180875%_)))) + (##car _%e181831181860%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180847180878%_)) - (let ((_%e180849180883%_ + _%hd181832181863%_)) + (let ((_%e181834181868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180847180878%_)))) - (let ((_%tl180851180888%_ + (gx#stx-e _%hd181832181863%_)))) + (let ((_%tl181836181873%_ (let () (declare (not safe)) - (##cdr _%e180849180883%_))) - (_%hd180850180886%_ + (##cdr _%e181834181868%_))) + (_%hd181835181871%_ (let () (declare (not safe)) - (##car _%e180849180883%_)))) + (##car _%e181834181868%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180850180886%_)) + (gx#identifier? _%hd181835181871%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180850180886%_)) + (gx#stx-eq? '%#ref _%hd181835181871%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180851180888%_)) - (let ((_%e180852180891%_ + (gx#stx-pair? _%tl181836181873%_)) + (let ((_%e181837181876%_ (let () (declare (not safe)) - (gx#stx-e _%tl180851180888%_)))) - (let ((_%tl180854180896%_ + (gx#stx-e _%tl181836181873%_)))) + (let ((_%tl181839181881%_ (let () (declare (not safe)) - (##cdr _%e180852180891%_))) - (_%hd180853180894%_ + (##cdr _%e181837181876%_))) + (_%hd181838181879%_ (let () (declare (not safe)) - (##car _%e180852180891%_)))) + (##car _%e181837181876%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180854180896%_)) + (gx#stx-null? _%tl181839181881%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180848180880%_)) - (let ((_%e180855180899%_ + _%tl181833181865%_)) + (let ((_%e181840181884%_ (let () (declare (not safe)) (gx#stx-e - _%tl180848180880%_)))) - (let ((_%tl180857180904%_ + _%tl181833181865%_)))) + (let ((_%tl181842181889%_ (let () (declare (not safe)) - (##cdr _%e180855180899%_))) - (_%hd180856180902%_ + (##cdr _%e181840181884%_))) + (_%hd181841181887%_ (let () (declare (not safe)) - (##car _%e180855180899%_)))) + (##car _%e181840181884%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180857180904%_)) - (_%__kont191794191795%_ - _%hd180856180902%_ - _%hd180853180894%_) + _%tl181842181889%_)) + (_%__kont192779192780%_ + _%hd181841181887%_ + _%hd181838181879%_) (let () (declare (not safe)) - (_%g180815180862%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180815180862%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180815180862%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180815180862%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180815180862%_))) - (let () (declare (not safe)) (_%g180815180862%_))))) - (let () (declare (not safe)) (_%g180815180862%_))))) + (_%g181800181847%_))) + (let () (declare (not safe)) (_%g181800181847%_))))) + (let () (declare (not safe)) (_%g181800181847%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180815180862%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180815180862%_)))) + (_%g181800181847%_)))) (let () (declare (not safe)) - (_%g180815180862%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180815180862%_))))))) - _%hd180716180778%_ - _%hd180713180770%_ - _%hd180710180762%_) - (_%g180692180722%_ _%g180693180725%_)))) + (_%g181800181847%_))))))) + _%hd181701181763%_ + _%hd181698181755%_ + _%hd181695181747%_) + (_%g181677181707%_ _%g181678181710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180692180722%_ - _%g180693180725%_)) - (_%g180692180722%_ - _%g180693180725%_)) - (_%g180692180722%_ - _%g180693180725%_)))) - (_%g180692180722%_ _%g180693180725%_)) - (_%g180692180722%_ _%g180693180725%_)))) - (_%g180692180722%_ _%g180693180725%_)))) - (_%g180692180722%_ _%g180693180725%_)))) + (_%g181677181707%_ + _%g181678181710%_)) + (_%g181677181707%_ + _%g181678181710%_)) + (_%g181677181707%_ + _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)) + (_%g181677181707%_ _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180692180722%_ - _%g180693180725%_)))) - (_%g180692180722%_ _%g180693180725%_)) - (_%g180692180722%_ _%g180693180725%_)) - (_%g180692180722%_ _%g180693180725%_)))) - (_%g180692180722%_ _%g180693180725%_))))) - (_%g180691181056%_ _%stx180690%_)))) + (_%g181677181707%_ + _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)) + (_%g181677181707%_ _%g181678181710%_)) + (_%g181677181707%_ _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_))))) + (_%g181676182041%_ _%stx181675%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx180617%_ - _%expr180618%_ - _%negation180619%_ - _%clauses180620%_) - (letrec ((_%normalize180622%_ - (lambda (_%clauses180650%_) - (let* ((_%clauses180651180660%_ _%clauses180650%_) - (_%E180653180664%_ + (lambda (_%stx181602%_ + _%expr181603%_ + _%negation181604%_ + _%clauses181605%_) + (letrec ((_%normalize181607%_ + (lambda (_%clauses181635%_) + (let* ((_%clauses181636181645%_ _%clauses181635%_) + (_%E181638181649%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180651180660%_ + _%clauses181636181645%_ '([[id . kont] . rest]))) '#!void)) - (_%K180654180671%_ - (lambda (_%rest180667%_ - _%kont180668%_ - _%id180669%_) - (cons (cons '#f _%kont180668%_) - _%rest180667%_)))) - (if (pair? _%clauses180651180660%_) - (let ((_%hd180655180674%_ + (_%K181639181656%_ + (lambda (_%rest181652%_ + _%kont181653%_ + _%id181654%_) + (cons (cons '#f _%kont181653%_) + _%rest181652%_)))) + (if (pair? _%clauses181636181645%_) + (let ((_%hd181640181659%_ (let () (declare (not safe)) - (##car _%clauses180651180660%_))) - (_%tl180656180676%_ + (##car _%clauses181636181645%_))) + (_%tl181641181661%_ (let () (declare (not safe)) - (##cdr _%clauses180651180660%_)))) - (if (pair? _%hd180655180674%_) - (let ((_%hd180657180679%_ + (##cdr _%clauses181636181645%_)))) + (if (pair? _%hd181640181659%_) + (let ((_%hd181642181664%_ (let () (declare (not safe)) - (##car _%hd180655180674%_))) - (_%tl180658180681%_ + (##car _%hd181640181659%_))) + (_%tl181643181666%_ (let () (declare (not safe)) - (##cdr _%hd180655180674%_)))) - (let* ((_%id180684%_ _%hd180657180679%_) - (_%kont180686%_ _%tl180658180681%_) - (_%rest180688%_ _%tl180656180676%_)) - (_%K180654180671%_ - _%rest180688%_ - _%kont180686%_ - _%id180684%_))) - (_%E180653180664%_))) - (_%E180653180664%_)))))) - (let ((__tmp192622 + (##cdr _%hd181640181659%_)))) + (let* ((_%id181669%_ _%hd181642181664%_) + (_%kont181671%_ _%tl181643181666%_) + (_%rest181673%_ _%tl181641181661%_)) + (_%K181639181656%_ + _%rest181673%_ + _%kont181671%_ + _%id181669%_))) + (_%E181638181649%_))) + (_%E181638181649%_)))))) + (let ((__tmp193607 (lambda () - (let* ((_%id180625%_ - (let ((__tmp192623 + (let* ((_%id181610%_ + (let ((__tmp193608 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp192623))) - (_%id180627%_ + (make-symbol__0 __tmp193608))) + (_%id181612%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id180625%_))) - (_%_180629%_ + (gx#core-quote-syntax__0 _%id181610%_))) + (_%_181614%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id180627%_))) - (_g192624_ + (gx#core-bind-runtime!__0 _%id181612%_))) + (_g193609_ (gxc#optimize-syntax-case-clauses - _%clauses180620%_ - (car _%negation180619%_)))) + _%clauses181605%_ + (car _%negation181604%_)))) (begin - (let ((_g192625_ + (let ((_g193610_ (let () (declare (not safe)) - (if (##values? _g192624_) - (##values-length _g192624_) + (if (##values? _g193609_) + (##values-length _g193609_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192625_ 2))) - (error "Context expects 2 values" _g192625_))) - (let ((_%clauses180631%_ + (##fx= _g193610_ 2))) + (error "Context expects 2 values" _g193610_))) + (let ((_%clauses181616%_ (let () (declare (not safe)) - (##values-ref _g192624_ 0))) - (_%konts180632%_ + (##values-ref _g193609_ 0))) + (_%konts181617%_ (let () (declare (not safe)) - (##values-ref _g192624_ 1)))) - (let* ((_%clauses180641%_ - (map (lambda (_%g180633180636%_ - _%g180634180638%_) + (##values-ref _g193609_ 1)))) + (let* ((_%clauses181626%_ + (map (lambda (_%g181618181621%_ + _%g181619181623%_) (gxc#optimize-syntax-case-closure - _%g180633180636%_ - _%g180634180638%_ - _%id180627%_)) - _%clauses180631%_ - (let ((__tmp192627 - (cons (car _%negation180619%_) + _%g181618181621%_ + _%g181619181623%_ + _%id181612%_)) + _%clauses181616%_ + (let ((__tmp193612 + (cons (car _%negation181604%_) '())) - (__tmp192626 + (__tmp193611 (map car - (cdr _%clauses180631%_)))) + (cdr _%clauses181616%_)))) (declare (not safe)) (__foldr1 cons - __tmp192627 - __tmp192626)))) - (_%clauses180643%_ - (_%normalize180622%_ _%clauses180641%_)) - (_%negation180645%_ + __tmp193612 + __tmp193611)))) + (_%clauses181628%_ + (_%normalize181607%_ _%clauses181626%_)) + (_%negation181630%_ (gxc#optimize-syntax-case-closure - _%negation180619%_ + _%negation181604%_ '#f - _%id180627%_)) - (_%body180647%_ + _%id181612%_)) + (_%body181632%_ (gxc#optimize-match-body - _%stx180617%_ - _%negation180645%_ - _%clauses180643%_ - _%konts180632%_)) - (__tmp192628 + _%stx181602%_ + _%negation181630%_ + _%clauses181628%_ + _%konts181617%_)) + (__tmp193613 (cons '%#let-values - (cons (cons (cons (cons _%id180627%_ + (cons (cons (cons (cons _%id181612%_ '()) - (cons _%expr180618%_ + (cons _%expr181603%_ '())) '()) - (cons _%body180647%_ '()))))) + (cons _%body181632%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192628 - _%stx180617%_))))))) - (__tmp192621 - (let ((__obj192542 + __tmp193613 + _%stx181602%_))))))) + (__tmp193606 + (let ((__obj193527 (let () (declare (not safe)) (##structure @@ -13151,72 +13151,72 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192542)) - __obj192542))) + (gx#local-context:::init!__0 __obj193527)) + __obj193527))) (declare (not safe)) (__call-with-parameters - __tmp192622 + __tmp193607 gx#current-expander-context - __tmp192621))))) + __tmp193606))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses179373%_ _%negation-id179374%_) - (letrec ((_%xform-e179376%_ - (lambda (_%expr179761%_ - _%kont-id179762%_ - _%kont-box179763%_ - _%negation-id179764%_) - (let* ((_%__stx191992191993%_ _%expr179761%_) - (_%g179770179903%_ + (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" - _%__stx191992191993%_))))) - (let ((_%__kont191994191995%_ - (lambda (_%L180593%_ _%L180594%_ _%L180595%_) - (let ((_%K180612%_ - (_%xform-e179376%_ - _%L180594%_ - _%kont-id179762%_ - _%kont-box179763%_ - _%negation-id179764%_))) + _%__stx192977192978%_))))) + (let ((_%__kont192979192980%_ + (lambda (_%L181578%_ _%L181579%_ _%L181580%_) + (let ((_%K181597%_ + (_%xform-e180361%_ + _%L181579%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_))) (cons '%#if - (cons _%L180595%_ - (cons _%K180612%_ - (cons _%L180593%_ '()))))))) - (_%__kont191996191997%_ - (lambda (_%L180508%_ - _%L180509%_ - _%L180510%_ - _%L180511%_ - _%L180512%_) - (let* ((_%id180547%_ - (let ((__tmp192629 + (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 __tmp192629))) - (_%id180549%_ + (make-symbol__0 __tmp193614))) + (_%id181534%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id180547%_))) - (_%_180551%_ + _%id181532%_))) + (_%_181536%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id180549%_))) - (_%body180553%_ - (_%xform-e179376%_ - _%L180508%_ - _%kont-id179762%_ - _%kont-box179763%_ - _%negation-id179764%_))) + _%id181534%_))) + (_%body181538%_ + (_%xform-e180361%_ + _%L181493%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_))) (cons '%#let-values - (cons (cons (cons (cons _%id180549%_ + (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 _%L180510%_ '())) - _%L180509%_)) + (cons _%L181495%_ '())) + _%L181494%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L180512%_ + (cons (cons (cons (cons _%L181497%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180549%_ '())) + (cons _%id181534%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L180511%_ '()) + (cons (cons (cons _%L181496%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180549%_ '())) + (cons _%id181534%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body180553%_ '()))) + (cons _%body181538%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont191998191999%_ - (lambda (_%L180390%_ _%L180391%_) - (let ((_%body180405%_ - (_%xform-e179376%_ - _%L180390%_ - _%kont-id179762%_ - _%kont-box179763%_ - _%negation-id179764%_))) + (_%__kont192983192984%_ + (lambda (_%L181375%_ _%L181376%_) + (let ((_%body181390%_ + (_%xform-e180361%_ + _%L181375%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_))) (cons '%#let-values - (cons _%L180391%_ - (cons _%body180405%_ '())))))) - (_%__kont192000192001%_ - (lambda (_%L180334%_ _%L180335%_ _%L180336%_) - (let ((_%lambda-expr180359%_ - (_%xform-loop-e179377%_ - _%L180335%_ - _%kont-id179762%_ - _%kont-box179763%_ - _%negation-id179764%_))) + (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 _%L180336%_ '()) - (cons _%lambda-expr180359%_ + (cons (cons (cons (cons _%L181321%_ '()) + (cons _%lambda-expr181344%_ '())) '()) - (cons _%L180334%_ '())))))) - (_%__kont192002192003%_ - (lambda (_%L179996%_ _%L179997%_ _%L179998%_) - (let* ((_%__stx191894191895%_ _%L179997%_) - (_%g180027180070%_ + (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" - _%__stx191894191895%_))))) - (let ((_%__kont191896191897%_ - (lambda (_%L180186%_ - _%L180187%_ - _%L180188%_ - _%L180189%_) - (let ((_%kont180230%_ + _%__stx192879192880%_))))) + (let ((_%__kont192881192882%_ + (lambda (_%L181171%_ + _%L181172%_ + _%L181173%_ + _%L181174%_) + (let ((_%kont181215%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192630 + (cons (let ((__tmp193615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g180222180225%_ _%g180223180227%_) - (cons _%g180222180225%_ _%g180223180227%_)))) + (lambda (_%g181207181210%_ _%g181208181212%_) + (cons _%g181207181210%_ _%g181208181212%_)))) (declare (not safe)) - (__foldr1 __tmp192630 '() _%L179998%_)) - (cons _%L180188%_ '()))))) + (__foldr1 __tmp193615 '() _%L180983%_)) + (cons _%L181173%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179763%_ - _%kont180230%_) - (let* ((_%kont-args180241%_ - (map (lambda (_%id180232%_) + _%kont-box180748%_ + _%kont181215%_) + (let* ((_%kont-args181226%_ + (map (lambda (_%id181217%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180232%_ '()))) - (let ((__tmp192631 - (lambda (_%g180233180236%_ _%g180234180238%_) - (cons _%g180233180236%_ _%g180234180238%_)))) + (cons _%id181217%_ '()))) + (let ((__tmp193616 + (lambda (_%g181218181221%_ _%g181219181223%_) + (cons _%g181218181221%_ _%g181219181223%_)))) (declare (not safe)) - (__foldr1 __tmp192631 '() _%L179998%_)))) + (__foldr1 __tmp193616 '() _%L180983%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body180243%_ + (_%body181228%_ (cons '%#if - (cons _%L180189%_ + (cons _%L181174%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id179762%_ '())) - _%kont-args180241%_)) + (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 _%L180187%_ '())) + (cons _%L181172%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180186%_ + (cons _%L181171%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp192632 - (lambda (_%g180245180248%_ + (if (null? (let ((__tmp193617 + (lambda (_%g181230181233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g180246180250%_) - (cons _%g180245180248%_ _%g180246180250%_)))) + _%g181231181235%_) + (cons _%g181230181233%_ _%g181231181235%_)))) (declare (not safe)) - (__foldr1 __tmp192632 '() _%L179998%_))) + (__foldr1 __tmp193617 '() _%L180983%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body180243%_ + _%body181228%_ (cons '%#let-values - (cons (map (lambda (_%id180253%_ + (cons (map (lambda (_%id181238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg180254%_) - (cons (cons _%id180253%_ '()) - (cons _%arg180254%_ '()))) - (let ((__tmp192633 - (lambda (_%g180255180258%_ _%g180256180260%_) - (cons _%g180255180258%_ - _%g180256180260%_)))) + _%arg181239%_) + (cons (cons _%id181238%_ '()) + (cons _%arg181239%_ '()))) + (let ((__tmp193618 + (lambda (_%g181240181243%_ _%g181241181245%_) + (cons _%g181240181243%_ + _%g181241181245%_)))) (declare (not safe)) - (__foldr1 __tmp192633 '() _%L179998%_)) - (let ((__tmp192634 - (lambda (_%g180262180265%_ _%g180263180267%_) - (cons _%g180262180265%_ - _%g180263180267%_)))) + (__foldr1 __tmp193618 '() _%L180983%_)) + (let ((__tmp193619 + (lambda (_%g181247181250%_ _%g181248181252%_) + (cons _%g181247181250%_ + _%g181248181252%_)))) (declare (not safe)) - (__foldr1 __tmp192634 '() _%L179996%_))) - (cons _%body180243%_ '())))))))) + (__foldr1 __tmp193619 '() _%L180981%_))) + (cons _%body181228%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191898191899%_ + (_%__kont192883192884%_ (lambda () - (let ((_%kont180084%_ + (let ((_%kont181069%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192635 + (cons (let ((__tmp193620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g180076180079%_ _%g180077180081%_) - (cons _%g180076180079%_ _%g180077180081%_)))) + (lambda (_%g181061181064%_ _%g181062181066%_) + (cons _%g181061181064%_ _%g181062181066%_)))) (declare (not safe)) - (__foldr1 __tmp192635 '() _%L179998%_)) - (cons _%L179997%_ '()))))) + (__foldr1 __tmp193620 '() _%L180983%_)) + (cons _%L180982%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179763%_ - _%kont180084%_) + _%kont-box180748%_ + _%kont181069%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id179762%_ + (cons _%kont-id180747%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp192636 - (lambda (_%g180085180088%_ _%g180086180090%_) - (cons _%g180085180088%_ _%g180086180090%_)))) + (let ((__tmp193621 + (lambda (_%g181070181073%_ _%g181071181075%_) + (cons _%g181070181073%_ _%g181071181075%_)))) (declare (not safe)) - (__foldr1 __tmp192636 '() _%L179996%_)))))))) + (__foldr1 __tmp193621 '() _%L180981%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match191989191990%_ - (lambda (_%e180033180098%_ - _%hd180034180101%_ - _%tl180035180103%_ - _%e180036180106%_ - _%hd180037180109%_ - _%tl180038180111%_ - _%e180039180114%_ - _%hd180040180117%_ - _%tl180041180119%_ - _%e180042180122%_ - _%hd180043180125%_ - _%tl180044180127%_ - _%e180045180130%_ - _%hd180046180133%_ - _%tl180047180135%_ - _%e180048180138%_ - _%hd180049180141%_ - _%tl180050180143%_ - _%e180051180146%_ - _%hd180052180149%_ - _%tl180053180151%_ - _%e180054180154%_ - _%hd180055180157%_ - _%tl180056180159%_ - _%e180057180162%_ - _%hd180058180165%_ - _%tl180059180167%_ - _%e180060180170%_ - _%hd180061180173%_ - _%tl180062180175%_ - _%e180063180178%_ - _%hd180064180181%_ - _%tl180065180183%_) - (let ((_%L180186%_ - _%hd180064180181%_) - (_%L180187%_ - _%hd180055180157%_) - (_%L180188%_ - _%hd180040180117%_) - (_%L180189%_ - _%hd180037180109%_)) + (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=? - _%L180187%_ - _%negation-id179764%_)) - (_%__kont191896191897%_ - _%L180186%_ - _%L180187%_ - _%L180188%_ - _%L180189%_) - (_%__kont191898191899%_)))))) + _%L181172%_ + _%negation-id180749%_)) + (_%__kont192881192882%_ + _%L181171%_ + _%L181172%_ + _%L181173%_ + _%L181174%_) + (_%__kont192883192884%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191894191895%_)) - (let ((_%e180033180098%_ + _%__stx192879192880%_)) + (let ((_%e181018181083%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191894191895%_)))) - (let ((_%tl180035180103%_ + _%__stx192879192880%_)))) + (let ((_%tl181020181088%_ (let () (declare (not safe)) - (##cdr _%e180033180098%_))) - (_%hd180034180101%_ + (##cdr _%e181018181083%_))) + (_%hd181019181086%_ (let () (declare (not safe)) - (##car _%e180033180098%_)))) + (##car _%e181018181083%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180034180101%_)) + _%hd181019181086%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd180034180101%_)) + _%hd181019181086%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180035180103%_)) - (let ((_%e180036180106%_ + _%tl181020181088%_)) + (let ((_%e181021181091%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl180035180103%_)))) - (let ((_%tl180038180111%_ + (gx#stx-e _%tl181020181088%_)))) + (let ((_%tl181023181096%_ (let () (declare (not safe)) - (##cdr _%e180036180106%_))) - (_%hd180037180109%_ + (##cdr _%e181021181091%_))) + (_%hd181022181094%_ (let () (declare (not safe)) - (##car _%e180036180106%_)))) + (##car _%e181021181091%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180038180111%_)) - (let ((_%e180039180114%_ + (gx#stx-pair? _%tl181023181096%_)) + (let ((_%e181024181099%_ (let () (declare (not safe)) - (gx#stx-e _%tl180038180111%_)))) - (let ((_%tl180041180119%_ + (gx#stx-e _%tl181023181096%_)))) + (let ((_%tl181026181104%_ (let () (declare (not safe)) - (##cdr _%e180039180114%_))) - (_%hd180040180117%_ + (##cdr _%e181024181099%_))) + (_%hd181025181102%_ (let () (declare (not safe)) - (##car _%e180039180114%_)))) + (##car _%e181024181099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180041180119%_)) - (let ((_%e180042180122%_ + (gx#stx-pair? _%tl181026181104%_)) + (let ((_%e181027181107%_ (let () (declare (not safe)) - (gx#stx-e _%tl180041180119%_)))) - (let ((_%tl180044180127%_ + (gx#stx-e _%tl181026181104%_)))) + (let ((_%tl181029181112%_ (let () (declare (not safe)) - (##cdr _%e180042180122%_))) - (_%hd180043180125%_ + (##cdr _%e181027181107%_))) + (_%hd181028181110%_ (let () (declare (not safe)) - (##car _%e180042180122%_)))) + (##car _%e181027181107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180043180125%_)) - (let ((_%e180045180130%_ + (gx#stx-pair? _%hd181028181110%_)) + (let ((_%e181030181115%_ (let () (declare (not safe)) (gx#stx-e - _%hd180043180125%_)))) - (let ((_%tl180047180135%_ + _%hd181028181110%_)))) + (let ((_%tl181032181120%_ (let () (declare (not safe)) - (##cdr _%e180045180130%_))) - (_%hd180046180133%_ + (##cdr _%e181030181115%_))) + (_%hd181031181118%_ (let () (declare (not safe)) - (##car _%e180045180130%_)))) + (##car _%e181030181115%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180046180133%_)) + _%hd181031181118%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180046180133%_)) + _%hd181031181118%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180047180135%_)) - (let ((_%e180048180138%_ + _%tl181032181120%_)) + (let ((_%e181033181123%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl180047180135%_)))) - (let ((_%tl180050180143%_ + (gx#stx-e _%tl181032181120%_)))) + (let ((_%tl181035181128%_ (let () (declare (not safe)) - (##cdr _%e180048180138%_))) - (_%hd180049180141%_ + (##cdr _%e181033181123%_))) + (_%hd181034181126%_ (let () (declare (not safe)) - (##car _%e180048180138%_)))) + (##car _%e181033181123%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180049180141%_)) - (let ((_%e180051180146%_ + (gx#stx-pair? _%hd181034181126%_)) + (let ((_%e181036181131%_ (let () (declare (not safe)) - (gx#stx-e _%hd180049180141%_)))) - (let ((_%tl180053180151%_ + (gx#stx-e _%hd181034181126%_)))) + (let ((_%tl181038181136%_ (let () (declare (not safe)) - (##cdr _%e180051180146%_))) - (_%hd180052180149%_ + (##cdr _%e181036181131%_))) + (_%hd181037181134%_ (let () (declare (not safe)) - (##car _%e180051180146%_)))) + (##car _%e181036181131%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180052180149%_)) + (gx#identifier? _%hd181037181134%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180052180149%_)) + (gx#stx-eq? '%#ref _%hd181037181134%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180053180151%_)) - (let ((_%e180054180154%_ + (gx#stx-pair? _%tl181038181136%_)) + (let ((_%e181039181139%_ (let () (declare (not safe)) (gx#stx-e - _%tl180053180151%_)))) - (let ((_%tl180056180159%_ + _%tl181038181136%_)))) + (let ((_%tl181041181144%_ (let () (declare (not safe)) - (##cdr _%e180054180154%_))) - (_%hd180055180157%_ + (##cdr _%e181039181139%_))) + (_%hd181040181142%_ (let () (declare (not safe)) - (##car _%e180054180154%_)))) + (##car _%e181039181139%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180056180159%_)) + _%tl181041181144%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180050180143%_)) - (let ((_%e180057180162%_ + _%tl181035181128%_)) + (let ((_%e181042181147%_ (let () (declare (not safe)) (gx#stx-e - _%tl180050180143%_)))) - (let ((_%tl180059180167%_ + _%tl181035181128%_)))) + (let ((_%tl181044181152%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180057180162%_))) - (_%hd180058180165%_ - (let () (declare (not safe)) (##car _%e180057180162%_)))) + (##cdr _%e181042181147%_))) + (_%hd181043181150%_ + (let () (declare (not safe)) (##car _%e181042181147%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180058180165%_)) - (let ((_%e180060180170%_ + (gx#stx-pair? _%hd181043181150%_)) + (let ((_%e181045181155%_ (let () (declare (not safe)) - (gx#stx-e _%hd180058180165%_)))) - (let ((_%tl180062180175%_ + (gx#stx-e _%hd181043181150%_)))) + (let ((_%tl181047181160%_ (let () (declare (not safe)) - (##cdr _%e180060180170%_))) - (_%hd180061180173%_ + (##cdr _%e181045181155%_))) + (_%hd181046181158%_ (let () (declare (not safe)) - (##car _%e180060180170%_)))) + (##car _%e181045181155%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180061180173%_)) + (gx#identifier? _%hd181046181158%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180061180173%_)) + (gx#stx-eq? '%#ref _%hd181046181158%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180062180175%_)) - (let ((_%e180063180178%_ + (gx#stx-pair? _%tl181047181160%_)) + (let ((_%e181048181163%_ (let () (declare (not safe)) - (gx#stx-e _%tl180062180175%_)))) - (let ((_%tl180065180183%_ + (gx#stx-e _%tl181047181160%_)))) + (let ((_%tl181050181168%_ (let () (declare (not safe)) - (##cdr _%e180063180178%_))) - (_%hd180064180181%_ + (##cdr _%e181048181163%_))) + (_%hd181049181166%_ (let () (declare (not safe)) - (##car _%e180063180178%_)))) + (##car _%e181048181163%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180065180183%_)) + _%tl181050181168%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180059180167%_)) + _%tl181044181152%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180044180127%_)) - (_%__match191989191990%_ - _%e180033180098%_ - _%hd180034180101%_ - _%tl180035180103%_ - _%e180036180106%_ - _%hd180037180109%_ - _%tl180038180111%_ - _%e180039180114%_ - _%hd180040180117%_ - _%tl180041180119%_ - _%e180042180122%_ - _%hd180043180125%_ - _%tl180044180127%_ - _%e180045180130%_ - _%hd180046180133%_ - _%tl180047180135%_ - _%e180048180138%_ - _%hd180049180141%_ - _%tl180050180143%_ - _%e180051180146%_ - _%hd180052180149%_ - _%tl180053180151%_ - _%e180054180154%_ - _%hd180055180157%_ - _%tl180056180159%_ - _%e180057180162%_ - _%hd180058180165%_ - _%tl180059180167%_ - _%e180060180170%_ - _%hd180061180173%_ - _%tl180062180175%_ - _%e180063180178%_ - _%hd180064180181%_ - _%tl180065180183%_) - (_%__kont191898191899%_)) - (_%__kont191898191899%_)) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)) - (_%__kont191898191899%_)) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191898191899%_)) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)) - (_%__kont191898191899%_)) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191898191899%_)) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191898191899%_)) - (_%__kont191898191899%_)))) - (_%__kont191898191899%_)))))))) - (let* ((_%__match192249192250%_ - (lambda (_%e179866179908%_ - _%hd179867179911%_ - _%tl179868179913%_ - _%e179869179916%_ - _%hd179870179919%_ - _%tl179871179921%_ - _%e179872179924%_ - _%hd179873179927%_ - _%tl179874179929%_ - _%e179875179932%_ - _%hd179876179935%_ - _%tl179877179937%_ - _%__splice192004192005%_ - _%target179878179940%_ - _%tl179880179942%_) - (letrec ((_%loop179881179945%_ - (lambda (_%hd179879179948%_ - _%id179885179950%_) + (_%__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? - _%hd179879179948%_)) - (let ((_%e179882179953%_ + _%hd180864180933%_)) + (let ((_%e180867180938%_ (let () (declare (not safe)) (gx#stx-e - _%hd179879179948%_)))) - (let ((_%lp-tl179884179958%_ + _%hd180864180933%_)))) + (let ((_%lp-tl180869180943%_ (let () (declare (not safe)) - (##cdr _%e179882179953%_))) - (_%lp-hd179883179956%_ + (##cdr _%e180867180938%_))) + (_%lp-hd180868180941%_ (let () (declare (not safe)) - (##car _%e179882179953%_)))) - (_%loop179881179945%_ - _%lp-tl179884179958%_ - (cons _%lp-hd179883179956%_ - _%id179885179950%_)))) - (let ((_%id179886179961%_ - (reverse _%id179885179950%_))) + (##car _%e180867180938%_)))) + (_%loop180866180930%_ + _%lp-tl180869180943%_ + (cons _%lp-hd180868180941%_ + _%id180870180935%_)))) + (let ((_%id180871180946%_ + (reverse _%id180870180935%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179877179937%_)) - (let ((_%e179887179964%_ + _%tl180862180922%_)) + (let ((_%e180872180949%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179877179937%_)))) - (let ((_%tl179889179969%_ + (gx#stx-e _%tl180862180922%_)))) + (let ((_%tl180874180954%_ (let () (declare (not safe)) - (##cdr _%e179887179964%_))) - (_%hd179888179967%_ + (##cdr _%e180872180949%_))) + (_%hd180873180952%_ (let () (declare (not safe)) - (##car _%e179887179964%_)))) + (##car _%e180872180949%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179889179969%_)) + (gx#stx-null? _%tl180874180954%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179871179921%_)) - (let ((_%__splice192006192007%_ + (gx#stx-pair/null? _%tl180856180906%_)) + (let ((_%__splice192991192992%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179871179921%_ + _%tl180856180906%_ '0)))) - (let ((_%tl179892179974%_ + (let ((_%tl180877180959%_ (let () (declare (not safe)) (##vector-ref - _%__splice192006192007%_ + _%__splice192991192992%_ '1))) - (_%target179890179972%_ + (_%target180875180957%_ (let () (declare (not safe)) (##vector-ref - _%__splice192006192007%_ + _%__splice192991192992%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179892179974%_)) - (letrec ((_%loop179893179977%_ - (lambda (_%hd179891179980%_ - _%arg179897179982%_) + (gx#stx-null? _%tl180877180959%_)) + (letrec ((_%loop180878180962%_ + (lambda (_%hd180876180965%_ + _%arg180882180967%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179891179980%_)) - (let ((_%e179894179985%_ + _%hd180876180965%_)) + (let ((_%e180879180970%_ (let () (declare (not safe)) (gx#stx-e - _%hd179891179980%_)))) - (let ((_%lp-tl179896179990%_ + _%hd180876180965%_)))) + (let ((_%lp-tl180881180975%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179894179985%_))) - (_%lp-hd179895179988%_ - (let () (declare (not safe)) (##car _%e179894179985%_)))) - (_%loop179893179977%_ - _%lp-tl179896179990%_ - (cons _%lp-hd179895179988%_ _%arg179897179982%_)))) + (##cdr _%e180879180970%_))) + (_%lp-hd180880180973%_ + (let () (declare (not safe)) (##car _%e180879180970%_)))) + (_%loop180878180962%_ + _%lp-tl180881180975%_ + (cons _%lp-hd180880180973%_ _%arg180882180967%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg179898179993%_ - (reverse _%arg179897179982%_))) - (_%__kont192002192003%_ - _%arg179898179993%_ - _%hd179888179967%_ - _%id179886179961%_)))))) - (_%loop179893179977%_ - _%target179890179972%_ + (let ((_%arg180883180978%_ + (reverse _%arg180882180967%_))) + (_%__kont192987192988%_ + _%arg180883180978%_ + _%hd180873180952%_ + _%id180871180946%_)))))) + (_%loop180878180962%_ + _%target180875180957%_ '())) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))) - (let () (declare (not safe)) (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179881179945%_ - _%target179878179940%_ + (_%loop180866180930%_ + _%target180863180925%_ '())))) - (_%__match192131192132%_ - (lambda (_%e179792180412%_ - _%hd179793180415%_ - _%tl179794180417%_ - _%e179795180420%_ - _%hd179796180423%_ - _%tl179797180425%_ - _%e179798180428%_ - _%hd179799180431%_ - _%tl179800180433%_ - _%e179801180436%_ - _%hd179802180439%_ - _%tl179803180441%_ - _%e179804180444%_ - _%hd179805180447%_ - _%tl179806180449%_ - _%e179807180452%_ - _%hd179808180455%_ - _%tl179809180457%_ - _%e179810180460%_ - _%hd179811180463%_ - _%tl179812180465%_ - _%e179813180468%_ - _%hd179814180471%_ - _%tl179815180473%_ - _%e179816180476%_ - _%hd179817180479%_ - _%tl179818180481%_ - _%e179819180484%_ - _%hd179820180487%_ - _%tl179821180489%_ - _%e179822180492%_ - _%hd179823180495%_ - _%tl179824180497%_ - _%e179825180500%_ - _%hd179826180503%_ - _%tl179827180505%_) - (let ((_%L180508%_ _%hd179826180503%_) - (_%L180509%_ _%tl179818180481%_) - (_%L180510%_ _%hd179823180495%_) - (_%L180511%_ _%hd179808180455%_) - (_%L180512%_ _%hd179805180447%_)) + (_%__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=? - _%L180510%_ + _%L181495%_ 'gx#syntax-split-splice)) - (_%__kont191996191997%_ - _%L180508%_ - _%L180509%_ - _%L180510%_ - _%L180511%_ - _%L180512%_) - (_%__kont191998191999%_ - _%hd179826180503%_ - _%hd179796180423%_)))))) + (_%__kont192981192982%_ + _%L181493%_ + _%L181494%_ + _%L181495%_ + _%L181496%_ + _%L181497%_) + (_%__kont192983192984%_ + _%hd180811181488%_ + _%hd180781181408%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191992191993%_)) - (let ((_%e179775180561%_ + (gx#stx-pair? _%__stx192977192978%_)) + (let ((_%e180760181546%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191992191993%_)))) - (let ((_%tl179777180566%_ + (gx#stx-e _%__stx192977192978%_)))) + (let ((_%tl180762181551%_ (let () (declare (not safe)) - (##cdr _%e179775180561%_))) - (_%hd179776180564%_ + (##cdr _%e180760181546%_))) + (_%hd180761181549%_ (let () (declare (not safe)) - (##car _%e179775180561%_)))) + (##car _%e180760181546%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179776180564%_)) + (gx#identifier? _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179776180564%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179777180566%_)) - (let ((_%e179778180569%_ + _%tl180762181551%_)) + (let ((_%e180763181554%_ (let () (declare (not safe)) (gx#stx-e - _%tl179777180566%_)))) - (let ((_%tl179780180574%_ + _%tl180762181551%_)))) + (let ((_%tl180765181559%_ (let () (declare (not safe)) - (##cdr _%e179778180569%_))) - (_%hd179779180572%_ + (##cdr _%e180763181554%_))) + (_%hd180764181557%_ (let () (declare (not safe)) - (##car _%e179778180569%_)))) + (##car _%e180763181554%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179780180574%_)) - (let ((_%e179781180577%_ + _%tl180765181559%_)) + (let ((_%e180766181562%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179780180574%_)))) - (let ((_%tl179783180582%_ - (let () (declare (not safe)) (##cdr _%e179781180577%_))) - (_%hd179782180580%_ + (gx#stx-e _%tl180765181559%_)))) + (let ((_%tl180768181567%_ + (let () (declare (not safe)) (##cdr _%e180766181562%_))) + (_%hd180767181565%_ (let () (declare (not safe)) - (##car _%e179781180577%_)))) + (##car _%e180766181562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179783180582%_)) - (let ((_%e179784180585%_ + (gx#stx-pair? _%tl180768181567%_)) + (let ((_%e180769181570%_ (let () (declare (not safe)) - (gx#stx-e _%tl179783180582%_)))) - (let ((_%tl179786180590%_ + (gx#stx-e _%tl180768181567%_)))) + (let ((_%tl180771181575%_ (let () (declare (not safe)) - (##cdr _%e179784180585%_))) - (_%hd179785180588%_ + (##cdr _%e180769181570%_))) + (_%hd180770181573%_ (let () (declare (not safe)) - (##car _%e179784180585%_)))) + (##car _%e180769181570%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179786180590%_)) - (_%__kont191994191995%_ - _%hd179785180588%_ - _%hd179782180580%_ - _%hd179779180572%_) + (gx#stx-null? _%tl180771181575%_)) + (_%__kont192979192980%_ + _%hd180770181573%_ + _%hd180767181565%_ + _%hd180764181557%_) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179770179903%_))) + (_%g180755180888%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179776180564%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179777180566%_)) - (let ((_%e179795180420%_ + _%tl180762181551%_)) + (let ((_%e180780181405%_ (let () (declare (not safe)) (gx#stx-e - _%tl179777180566%_)))) - (let ((_%tl179797180425%_ + _%tl180762181551%_)))) + (let ((_%tl180782181410%_ (let () (declare (not safe)) - (##cdr _%e179795180420%_))) - (_%hd179796180423%_ + (##cdr _%e180780181405%_))) + (_%hd180781181408%_ (let () (declare (not safe)) - (##car _%e179795180420%_)))) + (##car _%e180780181405%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179796180423%_)) - (let ((_%e179798180428%_ + _%hd180781181408%_)) + (let ((_%e180783181413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179796180423%_)))) - (let ((_%tl179800180433%_ + (gx#stx-e _%hd180781181408%_)))) + (let ((_%tl180785181418%_ (let () (declare (not safe)) - (##cdr _%e179798180428%_))) - (_%hd179799180431%_ + (##cdr _%e180783181413%_))) + (_%hd180784181416%_ (let () (declare (not safe)) - (##car _%e179798180428%_)))) + (##car _%e180783181413%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179799180431%_)) - (let ((_%e179801180436%_ + (gx#stx-pair? _%hd180784181416%_)) + (let ((_%e180786181421%_ (let () (declare (not safe)) - (gx#stx-e _%hd179799180431%_)))) - (let ((_%tl179803180441%_ + (gx#stx-e _%hd180784181416%_)))) + (let ((_%tl180788181426%_ (let () (declare (not safe)) - (##cdr _%e179801180436%_))) - (_%hd179802180439%_ + (##cdr _%e180786181421%_))) + (_%hd180787181424%_ (let () (declare (not safe)) - (##car _%e179801180436%_)))) + (##car _%e180786181421%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179802180439%_)) - (let ((_%e179804180444%_ + (gx#stx-pair? _%hd180787181424%_)) + (let ((_%e180789181429%_ (let () (declare (not safe)) - (gx#stx-e _%hd179802180439%_)))) - (let ((_%tl179806180449%_ + (gx#stx-e _%hd180787181424%_)))) + (let ((_%tl180791181434%_ (let () (declare (not safe)) - (##cdr _%e179804180444%_))) - (_%hd179805180447%_ + (##cdr _%e180789181429%_))) + (_%hd180790181432%_ (let () (declare (not safe)) - (##car _%e179804180444%_)))) + (##car _%e180789181429%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179806180449%_)) - (let ((_%e179807180452%_ + (gx#stx-pair? _%tl180791181434%_)) + (let ((_%e180792181437%_ (let () (declare (not safe)) (gx#stx-e - _%tl179806180449%_)))) - (let ((_%tl179809180457%_ + _%tl180791181434%_)))) + (let ((_%tl180794181442%_ (let () (declare (not safe)) - (##cdr _%e179807180452%_))) - (_%hd179808180455%_ + (##cdr _%e180792181437%_))) + (_%hd180793181440%_ (let () (declare (not safe)) - (##car _%e179807180452%_)))) + (##car _%e180792181437%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179809180457%_)) + _%tl180794181442%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179803180441%_)) - (let ((_%e179810180460%_ + _%tl180788181426%_)) + (let ((_%e180795181445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179803180441%_)))) - (let ((_%tl179812180465%_ - (let () (declare (not safe)) (##cdr _%e179810180460%_))) - (_%hd179811180463%_ + (gx#stx-e _%tl180788181426%_)))) + (let ((_%tl180797181450%_ + (let () (declare (not safe)) (##cdr _%e180795181445%_))) + (_%hd180796181448%_ (let () (declare (not safe)) - (##car _%e179810180460%_)))) + (##car _%e180795181445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179811180463%_)) - (let ((_%e179813180468%_ + (gx#stx-pair? _%hd180796181448%_)) + (let ((_%e180798181453%_ (let () (declare (not safe)) - (gx#stx-e _%hd179811180463%_)))) - (let ((_%tl179815180473%_ + (gx#stx-e _%hd180796181448%_)))) + (let ((_%tl180800181458%_ (let () (declare (not safe)) - (##cdr _%e179813180468%_))) - (_%hd179814180471%_ + (##cdr _%e180798181453%_))) + (_%hd180799181456%_ (let () (declare (not safe)) - (##car _%e179813180468%_)))) + (##car _%e180798181453%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179814180471%_)) + (gx#identifier? _%hd180799181456%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd179814180471%_)) + (gx#stx-eq? '%#call _%hd180799181456%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179815180473%_)) - (let ((_%e179816180476%_ + (gx#stx-pair? _%tl180800181458%_)) + (let ((_%e180801181461%_ (let () (declare (not safe)) - (gx#stx-e _%tl179815180473%_)))) - (let ((_%tl179818180481%_ + (gx#stx-e _%tl180800181458%_)))) + (let ((_%tl180803181466%_ (let () (declare (not safe)) - (##cdr _%e179816180476%_))) - (_%hd179817180479%_ + (##cdr _%e180801181461%_))) + (_%hd180802181464%_ (let () (declare (not safe)) - (##car _%e179816180476%_)))) + (##car _%e180801181461%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179817180479%_)) - (let ((_%e179819180484%_ + _%hd180802181464%_)) + (let ((_%e180804181469%_ (let () (declare (not safe)) (gx#stx-e - _%hd179817180479%_)))) - (let ((_%tl179821180489%_ + _%hd180802181464%_)))) + (let ((_%tl180806181474%_ (let () (declare (not safe)) - (##cdr _%e179819180484%_))) - (_%hd179820180487%_ + (##cdr _%e180804181469%_))) + (_%hd180805181472%_ (let () (declare (not safe)) - (##car _%e179819180484%_)))) + (##car _%e180804181469%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179820180487%_)) + _%hd180805181472%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd179820180487%_)) + _%hd180805181472%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl179821180489%_)) - (let ((_%e179822180492%_ + (gx#stx-pair? _%tl180806181474%_)) + (let ((_%e180807181477%_ (let () (declare (not safe)) - (gx#stx-e _%tl179821180489%_)))) - (let ((_%tl179824180497%_ + (gx#stx-e _%tl180806181474%_)))) + (let ((_%tl180809181482%_ (let () (declare (not safe)) - (##cdr _%e179822180492%_))) - (_%hd179823180495%_ + (##cdr _%e180807181477%_))) + (_%hd180808181480%_ (let () (declare (not safe)) - (##car _%e179822180492%_)))) + (##car _%e180807181477%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179824180497%_)) + (gx#stx-null? _%tl180809181482%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179812180465%_)) + (gx#stx-null? _%tl180797181450%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179800180433%_)) + (gx#stx-null? _%tl180785181418%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179825180500%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180810181485%_ (let () (declare (not safe)) (gx#stx-e - _%tl179797180425%_)))) - (let ((_%tl179827180505%_ + _%tl180782181410%_)))) + (let ((_%tl180812181490%_ (let () (declare (not safe)) - (##cdr _%e179825180500%_))) - (_%hd179826180503%_ + (##cdr _%e180810181485%_))) + (_%hd180811181488%_ (let () (declare (not safe)) - (##car _%e179825180500%_)))) + (##car _%e180810181485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179827180505%_)) - (_%__match192131192132%_ - _%e179775180561%_ - _%hd179776180564%_ - _%tl179777180566%_ - _%e179795180420%_ - _%hd179796180423%_ - _%tl179797180425%_ - _%e179798180428%_ - _%hd179799180431%_ - _%tl179800180433%_ - _%e179801180436%_ - _%hd179802180439%_ - _%tl179803180441%_ - _%e179804180444%_ - _%hd179805180447%_ - _%tl179806180449%_ - _%e179807180452%_ - _%hd179808180455%_ - _%tl179809180457%_ - _%e179810180460%_ - _%hd179811180463%_ - _%tl179812180465%_ - _%e179813180468%_ - _%hd179814180471%_ - _%tl179815180473%_ - _%e179816180476%_ - _%hd179817180479%_ - _%tl179818180481%_ - _%e179819180484%_ - _%hd179820180487%_ - _%tl179821180489%_ - _%e179822180492%_ - _%hd179823180495%_ - _%tl179824180497%_ - _%e179825180500%_ - _%hd179826180503%_ - _%tl179827180505%_) + _%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)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_))) + (_%g180755180888%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) - (let () (declare (not safe)) (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))))) + (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? - _%tl179797180425%_)) - (let ((_%e179836180382%_ + _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) - (let () (declare (not safe)) (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))) + (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? - _%tl179797180425%_)) - (let ((_%e179836180382%_ + _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ - (let () (declare (not safe)) (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ + (let () (declare (not safe)) (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) - (let () (declare (not safe)) (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))))) + (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? - _%tl179797180425%_)) - (let ((_%e179836180382%_ + _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179797180425%_)) - (let ((_%e179836180382%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179797180425%_)))) - (let ((_%tl179838180387%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179836180382%_))) - (_%hd179837180385%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179836180382%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179838180387%_)) - (_%__kont191998191999%_ - _%hd179837180385%_ - _%hd179796180423%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_)))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179770179903%_))) + (_%g180755180888%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179776180564%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179777180566%_)) - (let ((_%e179845180286%_ + _%tl180762181551%_)) + (let ((_%e180830181271%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179777180566%_)))) - (let ((_%tl179847180291%_ - (let () (declare (not safe)) (##cdr _%e179845180286%_))) - (_%hd179846180289%_ + (gx#stx-e _%tl180762181551%_)))) + (let ((_%tl180832181276%_ + (let () (declare (not safe)) (##cdr _%e180830181271%_))) + (_%hd180831181274%_ (let () (declare (not safe)) - (##car _%e179845180286%_)))) + (##car _%e180830181271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179846180289%_)) - (let ((_%e179848180294%_ + (gx#stx-pair? _%hd180831181274%_)) + (let ((_%e180833181279%_ (let () (declare (not safe)) - (gx#stx-e _%hd179846180289%_)))) - (let ((_%tl179850180299%_ + (gx#stx-e _%hd180831181274%_)))) + (let ((_%tl180835181284%_ (let () (declare (not safe)) - (##cdr _%e179848180294%_))) - (_%hd179849180297%_ + (##cdr _%e180833181279%_))) + (_%hd180834181282%_ (let () (declare (not safe)) - (##car _%e179848180294%_)))) + (##car _%e180833181279%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179849180297%_)) - (let ((_%e179851180302%_ + (gx#stx-pair? _%hd180834181282%_)) + (let ((_%e180836181287%_ (let () (declare (not safe)) - (gx#stx-e _%hd179849180297%_)))) - (let ((_%tl179853180307%_ + (gx#stx-e _%hd180834181282%_)))) + (let ((_%tl180838181292%_ (let () (declare (not safe)) - (##cdr _%e179851180302%_))) - (_%hd179852180305%_ + (##cdr _%e180836181287%_))) + (_%hd180837181290%_ (let () (declare (not safe)) - (##car _%e179851180302%_)))) + (##car _%e180836181287%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179852180305%_)) - (let ((_%e179854180310%_ + (gx#stx-pair? _%hd180837181290%_)) + (let ((_%e180839181295%_ (let () (declare (not safe)) - (gx#stx-e _%hd179852180305%_)))) - (let ((_%tl179856180315%_ + (gx#stx-e _%hd180837181290%_)))) + (let ((_%tl180841181300%_ (let () (declare (not safe)) - (##cdr _%e179854180310%_))) - (_%hd179855180313%_ + (##cdr _%e180839181295%_))) + (_%hd180840181298%_ (let () (declare (not safe)) - (##car _%e179854180310%_)))) + (##car _%e180839181295%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179856180315%_)) + _%tl180841181300%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179853180307%_)) - (let ((_%e179857180318%_ + _%tl180838181292%_)) + (let ((_%e180842181303%_ (let () (declare (not safe)) (gx#stx-e - _%tl179853180307%_)))) - (let ((_%tl179859180323%_ + _%tl180838181292%_)))) + (let ((_%tl180844181308%_ (let () (declare (not safe)) - (##cdr _%e179857180318%_))) - (_%hd179858180321%_ + (##cdr _%e180842181303%_))) + (_%hd180843181306%_ (let () (declare (not safe)) - (##car _%e179857180318%_)))) + (##car _%e180842181303%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179859180323%_)) + _%tl180844181308%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179850180299%_)) + (gx#stx-null? _%tl180835181284%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179847180291%_)) - (let ((_%e179860180326%_ + (gx#stx-pair? _%tl180832181276%_)) + (let ((_%e180845181311%_ (let () (declare (not safe)) - (gx#stx-e _%tl179847180291%_)))) - (let ((_%tl179862180331%_ + (gx#stx-e _%tl180832181276%_)))) + (let ((_%tl180847181316%_ (let () (declare (not safe)) - (##cdr _%e179860180326%_))) - (_%hd179861180329%_ + (##cdr _%e180845181311%_))) + (_%hd180846181314%_ (let () (declare (not safe)) - (##car _%e179860180326%_)))) + (##car _%e180845181311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179862180331%_)) - (_%__kont192000192001%_ - _%hd179861180329%_ - _%hd179858180321%_ - _%hd179855180313%_) + (gx#stx-null? _%tl180847181316%_)) + (_%__kont192985192986%_ + _%hd180846181314%_ + _%hd180843181306%_ + _%hd180840181298%_) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))) - (let () (declare (not safe)) (_%g179770179903%_))) - (let () (declare (not safe)) (_%g179770179903%_))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179770179903%_))) + (_%g180755180888%_))) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179776180564%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179777180566%_)) - (let ((_%e179869179916%_ + _%tl180762181551%_)) + (let ((_%e180854180901%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179777180566%_)))) - (let ((_%tl179871179921%_ + (gx#stx-e _%tl180762181551%_)))) + (let ((_%tl180856180906%_ (let () (declare (not safe)) - (##cdr _%e179869179916%_))) - (_%hd179870179919%_ + (##cdr _%e180854180901%_))) + (_%hd180855180904%_ (let () (declare (not safe)) - (##car _%e179869179916%_)))) + (##car _%e180854180901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179870179919%_)) - (let ((_%e179872179924%_ + (gx#stx-pair? _%hd180855180904%_)) + (let ((_%e180857180909%_ (let () (declare (not safe)) - (gx#stx-e _%hd179870179919%_)))) - (let ((_%tl179874179929%_ + (gx#stx-e _%hd180855180904%_)))) + (let ((_%tl180859180914%_ (let () (declare (not safe)) - (##cdr _%e179872179924%_))) - (_%hd179873179927%_ + (##cdr _%e180857180909%_))) + (_%hd180858180912%_ (let () (declare (not safe)) - (##car _%e179872179924%_)))) + (##car _%e180857180909%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179873179927%_)) + (gx#identifier? _%hd180858180912%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179873179927%_)) + _%hd180858180912%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179874179929%_)) - (let ((_%e179875179932%_ + (gx#stx-pair? _%tl180859180914%_)) + (let ((_%e180860180917%_ (let () (declare (not safe)) (gx#stx-e - _%tl179874179929%_)))) - (let ((_%tl179877179937%_ + _%tl180859180914%_)))) + (let ((_%tl180862180922%_ (let () (declare (not safe)) - (##cdr _%e179875179932%_))) - (_%hd179876179935%_ + (##cdr _%e180860180917%_))) + (_%hd180861180920%_ (let () (declare (not safe)) - (##car _%e179875179932%_)))) + (##car _%e180860180917%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179876179935%_)) - (let ((_%__splice192004192005%_ + _%hd180861180920%_)) + (let ((_%__splice192989192990%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179876179935%_ + _%hd180861180920%_ '0)))) - (let ((_%tl179880179942%_ + (let ((_%tl180865180927%_ (let () (declare (not safe)) (##vector-ref - _%__splice192004192005%_ + _%__splice192989192990%_ '1))) - (_%target179878179940%_ + (_%target180863180925%_ (let () (declare (not safe)) (##vector-ref - _%__splice192004192005%_ + _%__splice192989192990%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179880179942%_)) - (_%__match192249192250%_ - _%e179775180561%_ - _%hd179776180564%_ - _%tl179777180566%_ - _%e179869179916%_ - _%hd179870179919%_ - _%tl179871179921%_ - _%e179872179924%_ - _%hd179873179927%_ - _%tl179874179929%_ - _%e179875179932%_ - _%hd179876179935%_ - _%tl179877179937%_ - _%__splice192004192005%_ - _%target179878179940%_ - _%tl179880179942%_) + _%tl180865180927%_)) + (_%__match193234193235%_ + _%e180760181546%_ + _%hd180761181549%_ + _%tl180762181551%_ + _%e180854180901%_ + _%hd180855180904%_ + _%tl180856180906%_ + _%e180857180909%_ + _%hd180858180912%_ + _%tl180859180914%_ + _%e180860180917%_ + _%hd180861180920%_ + _%tl180862180922%_ + _%__splice192989192990%_ + _%target180863180925%_ + _%tl180865180927%_) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_))) + (_%g180755180888%_))) (let () (declare (not safe)) - (_%g179770179903%_))) + (_%g180755180888%_))) (let () (declare (not safe)) - (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))))) - (let () (declare (not safe)) (_%g179770179903%_))) - (let () (declare (not safe)) (_%g179770179903%_)))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179770179903%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179770179903%_)))))))) - (_%xform-loop-e179377%_ - (lambda (_%expr179587%_ - _%kont-id179588%_ - _%kont-box179589%_ - _%negation-id179590%_) - (let* ((_%g179592179632%_ - (lambda (_%g179593179629%_) + (_%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" - _%g179593179629%_)))) - (_%g179591179758%_ - (lambda (_%g179593179635%_) + _%g180578180614%_)))) + (_%g180576180743%_ + (lambda (_%g180578180620%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179593179635%_)) - (let ((_%e179598179637%_ + (gx#stx-pair? _%g180578180620%_)) + (let ((_%e180583180622%_ (let () (declare (not safe)) - (gx#stx-e _%g179593179635%_)))) - (let ((_%hd179599179640%_ + (gx#stx-e _%g180578180620%_)))) + (let ((_%hd180584180625%_ (let () (declare (not safe)) - (##car _%e179598179637%_))) - (_%tl179600179642%_ + (##car _%e180583180622%_))) + (_%tl180585180627%_ (let () (declare (not safe)) - (##cdr _%e179598179637%_)))) + (##cdr _%e180583180622%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179599179640%_)) + _%hd180584180625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179599179640%_)) + _%hd180584180625%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179600179642%_)) - (let ((_%e179601179645%_ + _%tl180585180627%_)) + (let ((_%e180586180630%_ (let () (declare (not safe)) (gx#stx-e - _%tl179600179642%_)))) - (let ((_%hd179602179648%_ + _%tl180585180627%_)))) + (let ((_%hd180587180633%_ (let () (declare (not safe)) - (##car _%e179601179645%_))) - (_%tl179603179650%_ + (##car _%e180586180630%_))) + (_%tl180588180635%_ (let () (declare (not safe)) - (##cdr _%e179601179645%_)))) + (##cdr _%e180586180630%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179602179648%_)) - (let ((_g192637_ + _%hd180587180633%_)) + (let ((_g193622_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd179602179648%_ '0)))) + (gx#syntax-split-splice _%hd180587180633%_ '0)))) (begin - (let ((_g192638_ + (let ((_g193623_ (let () (declare (not safe)) - (if (##values? _g192637_) - (##values-length _g192637_) + (if (##values? _g193622_) + (##values-length _g193622_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192638_ 2))) - (error "Context expects 2 values" _g192638_))) - (let ((_%target179604179653%_ + (##fx= _g193623_ 2))) + (error "Context expects 2 values" _g193623_))) + (let ((_%target180589180638%_ (let () (declare (not safe)) - (##values-ref _g192637_ 0))) - (_%tl179606179655%_ + (##values-ref _g193622_ 0))) + (_%tl180591180640%_ (let () (declare (not safe)) - (##values-ref _g192637_ 1)))) + (##values-ref _g193622_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179606179655%_)) - (letrec ((_%loop179607179658%_ - (lambda (_%hd179605179661%_ - _%id179611179663%_) + (gx#stx-null? _%tl180591180640%_)) + (letrec ((_%loop180592180643%_ + (lambda (_%hd180590180646%_ + _%id180596180648%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179605179661%_)) - (let ((_%e179608179666%_ + _%hd180590180646%_)) + (let ((_%e180593180651%_ (let () (declare (not safe)) (gx#stx-e - _%hd179605179661%_)))) - (let ((_%lp-hd179609179669%_ + _%hd180590180646%_)))) + (let ((_%lp-hd180594180654%_ (let () (declare (not safe)) - (##car _%e179608179666%_))) - (_%lp-tl179610179671%_ + (##car _%e180593180651%_))) + (_%lp-tl180595180656%_ (let () (declare (not safe)) - (##cdr _%e179608179666%_)))) - (_%loop179607179658%_ - _%lp-tl179610179671%_ - (cons _%lp-hd179609179669%_ - _%id179611179663%_)))) - (let ((_%id179612179674%_ - (reverse _%id179611179663%_))) + (##cdr _%e180593180651%_)))) + (_%loop180592180643%_ + _%lp-tl180595180656%_ + (cons _%lp-hd180594180654%_ + _%id180596180648%_)))) + (let ((_%id180597180659%_ + (reverse _%id180596180648%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179603179650%_)) - (let ((_%e179613179677%_ + _%tl180588180635%_)) + (let ((_%e180598180662%_ (let () (declare (not safe)) (gx#stx-e - _%tl179603179650%_)))) - (let ((_%hd179614179680%_ + _%tl180588180635%_)))) + (let ((_%hd180599180665%_ (let () (declare (not safe)) - (##car _%e179613179677%_))) - (_%tl179615179682%_ + (##car _%e180598180662%_))) + (_%tl180600180667%_ (let () (declare (not safe)) - (##cdr _%e179613179677%_)))) + (##cdr _%e180598180662%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179614179680%_)) - (let ((_%e179616179685%_ + _%hd180599180665%_)) + (let ((_%e180601180670%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179614179680%_)))) - (let ((_%hd179617179688%_ + (gx#stx-e _%hd180599180665%_)))) + (let ((_%hd180602180673%_ (let () (declare (not safe)) - (##car _%e179616179685%_))) - (_%tl179618179690%_ + (##car _%e180601180670%_))) + (_%tl180603180675%_ (let () (declare (not safe)) - (##cdr _%e179616179685%_)))) + (##cdr _%e180601180670%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179617179688%_)) + (gx#identifier? _%hd180602180673%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd179617179688%_)) + (gx#stx-eq? '%#if _%hd180602180673%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179618179690%_)) - (let ((_%e179619179693%_ + (gx#stx-pair? _%tl180603180675%_)) + (let ((_%e180604180678%_ (let () (declare (not safe)) - (gx#stx-e _%tl179618179690%_)))) - (let ((_%hd179620179696%_ + (gx#stx-e _%tl180603180675%_)))) + (let ((_%hd180605180681%_ (let () (declare (not safe)) - (##car _%e179619179693%_))) - (_%tl179621179698%_ + (##car _%e180604180678%_))) + (_%tl180606180683%_ (let () (declare (not safe)) - (##cdr _%e179619179693%_)))) + (##cdr _%e180604180678%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179621179698%_)) - (let ((_%e179622179701%_ + (gx#stx-pair? _%tl180606180683%_)) + (let ((_%e180607180686%_ (let () (declare (not safe)) (gx#stx-e - _%tl179621179698%_)))) - (let ((_%hd179623179704%_ + _%tl180606180683%_)))) + (let ((_%hd180608180689%_ (let () (declare (not safe)) - (##car _%e179622179701%_))) - (_%tl179624179706%_ + (##car _%e180607180686%_))) + (_%tl180609180691%_ (let () (declare (not safe)) - (##cdr _%e179622179701%_)))) + (##cdr _%e180607180686%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179624179706%_)) - (let ((_%e179625179709%_ + _%tl180609180691%_)) + (let ((_%e180610180694%_ (let () (declare (not safe)) (gx#stx-e - _%tl179624179706%_)))) - (let ((_%hd179626179712%_ + _%tl180609180691%_)))) + (let ((_%hd180611180697%_ (let () (declare (not safe)) - (##car _%e179625179709%_))) - (_%tl179627179714%_ + (##car _%e180610180694%_))) + (_%tl180612180699%_ (let () (declare (not safe)) - (##cdr _%e179625179709%_)))) + (##cdr _%e180610180694%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179627179714%_)) + _%tl180612180699%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179615179682%_)) - ((lambda (_%L179717%_ - _%L179718%_ - _%L179719%_ - _%L179720%_) - (let ((_%E179749%_ - (_%xform-e179376%_ - _%L179717%_ - _%kont-id179588%_ - _%kont-box179589%_ - _%negation-id179590%_))) + (gx#stx-null? _%tl180600180667%_)) + ((lambda (_%L180702%_ + _%L180703%_ + _%L180704%_ + _%L180705%_) + (let ((_%E180734%_ + (_%xform-e180361%_ + _%L180702%_ + _%kont-id180573%_ + _%kont-box180574%_ + _%negation-id180575%_))) (cons '%#lambda - (cons (let ((__tmp192639 - (lambda (_%g179750179753%_ - _%g179751179755%_) - (cons _%g179750179753%_ - _%g179751179755%_)))) + (cons (let ((__tmp193624 + (lambda (_%g180735180738%_ + _%g180736180740%_) + (cons _%g180735180738%_ + _%g180736180740%_)))) (declare (not safe)) (__foldr1 - __tmp192639 + __tmp193624 '() - _%L179720%_)) + _%L180705%_)) (cons (cons '%#if - (cons _%L179719%_ - (cons _%L179718%_ - (cons _%E179749%_ + (cons _%L180704%_ + (cons _%L180703%_ + (cons _%E180734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd179626179712%_ - _%hd179623179704%_ - _%hd179620179696%_ - _%id179612179674%_) - (_%g179592179632%_ _%g179593179635%_)) - (_%g179592179632%_ _%g179593179635%_)))) + _%hd180611180697%_ + _%hd180608180689%_ + _%hd180605180681%_ + _%id180597180659%_) + (_%g180577180617%_ _%g180578180620%_)) + (_%g180577180617%_ _%g180578180620%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179592179632%_ - _%g179593179635%_)))) - (_%g179592179632%_ - _%g179593179635%_)))) - (_%g179592179632%_ _%g179593179635%_)) - (_%g179592179632%_ _%g179593179635%_)) - (_%g179592179632%_ _%g179593179635%_)))) - (_%g179592179632%_ _%g179593179635%_)))) + (_%g180577180617%_ + _%g180578180620%_)))) + (_%g180577180617%_ + _%g180578180620%_)))) + (_%g180577180617%_ _%g180578180620%_)) + (_%g180577180617%_ _%g180578180620%_)) + (_%g180577180617%_ _%g180578180620%_)))) + (_%g180577180617%_ _%g180578180620%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179592179632%_ - _%g179593179635%_))))))) - (_%loop179607179658%_ - _%target179604179653%_ + (_%g180577180617%_ + _%g180578180620%_))))))) + (_%loop180592180643%_ + _%target180589180638%_ '())) - (_%g179592179632%_ _%g179593179635%_))))) - (_%g179592179632%_ _%g179593179635%_)))) + (_%g180577180617%_ _%g180578180620%_))))) + (_%g180577180617%_ _%g180578180620%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179592179632%_ - _%g179593179635%_)) - (_%g179592179632%_ - _%g179593179635%_)) - (_%g179592179632%_ - _%g179593179635%_)))) - (_%g179592179632%_ _%g179593179635%_))))) - (_%g179591179758%_ _%expr179587%_)))) - (_%clause-e179378%_ - (lambda (_%clause-lambda179457%_ - _%kont-id179458%_ - _%rest179459%_) - (letrec* ((_%kont-box179461%_ (box '#f))) - (let* ((_%negation-id179501%_ - (let* ((_%rest179462179472%_ _%rest179459%_) - (_%else179464179480%_ - (lambda () _%negation-id179374%_)) - (_%K179466179486%_ - (lambda (_%clause179483%_ - _%clause-id179484%_) - _%clause-id179484%_))) - (if (pair? _%rest179462179472%_) - (let ((_%hd179467179489%_ + (_%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 _%rest179462179472%_)))) - (if (pair? _%hd179467179489%_) - (let ((_%hd179469179492%_ + (##car _%rest180447180457%_)))) + (if (pair? _%hd180452180474%_) + (let ((_%hd180454180477%_ (let () (declare (not safe)) - (##car _%hd179467179489%_))) - (_%tl179470179494%_ + (##car _%hd180452180474%_))) + (_%tl180455180479%_ (let () (declare (not safe)) - (##cdr _%hd179467179489%_)))) - (let* ((_%clause-id179497%_ - _%hd179469179492%_) - (_%clause179499%_ - _%tl179470179494%_)) - (_%K179466179486%_ - _%clause179499%_ - _%clause-id179497%_))) - (_%else179464179480%_))) - (_%else179464179480%_)))) - (_%g179503179523%_ - (lambda (_%g179504179520%_) + (##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" - _%g179504179520%_)))) - (_%g179502179584%_ - (lambda (_%g179504179526%_) + _%g180489180505%_)))) + (_%g180487180569%_ + (lambda (_%g180489180511%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179504179526%_)) - (let ((_%e179507179528%_ + (gx#stx-pair? _%g180489180511%_)) + (let ((_%e180492180513%_ (let () (declare (not safe)) - (gx#stx-e _%g179504179526%_)))) - (let ((_%hd179508179531%_ + (gx#stx-e _%g180489180511%_)))) + (let ((_%hd180493180516%_ (let () (declare (not safe)) - (##car _%e179507179528%_))) - (_%tl179509179533%_ + (##car _%e180492180513%_))) + (_%tl180494180518%_ (let () (declare (not safe)) - (##cdr _%e179507179528%_)))) + (##cdr _%e180492180513%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179508179531%_)) + _%hd180493180516%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179508179531%_)) + _%hd180493180516%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179509179533%_)) - (let ((_%e179510179536%_ + _%tl180494180518%_)) + (let ((_%e180495180521%_ (let () (declare (not safe)) (gx#stx-e - _%tl179509179533%_)))) - (let ((_%hd179511179539%_ + _%tl180494180518%_)))) + (let ((_%hd180496180524%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e179510179536%_))) - (_%tl179512179541%_ - (let () (declare (not safe)) (##cdr _%e179510179536%_)))) + (##car _%e180495180521%_))) + (_%tl180497180526%_ + (let () (declare (not safe)) (##cdr _%e180495180521%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179511179539%_)) - (let ((_%e179513179544%_ + (gx#stx-pair? _%hd180496180524%_)) + (let ((_%e180498180529%_ (let () (declare (not safe)) - (gx#stx-e _%hd179511179539%_)))) - (let ((_%hd179514179547%_ + (gx#stx-e _%hd180496180524%_)))) + (let ((_%hd180499180532%_ (let () (declare (not safe)) - (##car _%e179513179544%_))) - (_%tl179515179549%_ + (##car _%e180498180529%_))) + (_%tl180500180534%_ (let () (declare (not safe)) - (##cdr _%e179513179544%_)))) + (##cdr _%e180498180529%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179515179549%_)) + (gx#stx-null? _%tl180500180534%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179512179541%_)) - (let ((_%e179516179552%_ + (gx#stx-pair? _%tl180497180526%_)) + (let ((_%e180501180537%_ (let () (declare (not safe)) - (gx#stx-e _%tl179512179541%_)))) - (let ((_%hd179517179555%_ + (gx#stx-e _%tl180497180526%_)))) + (let ((_%hd180502180540%_ (let () (declare (not safe)) - (##car _%e179516179552%_))) - (_%tl179518179557%_ + (##car _%e180501180537%_))) + (_%tl180503180542%_ (let () (declare (not safe)) - (##cdr _%e179516179552%_)))) + (##cdr _%e180501180537%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179518179557%_)) - ((lambda (_%L179560%_ _%L179561%_) - (let ((_%body179582%_ - (_%xform-e179376%_ - _%L179560%_ - _%kont-id179458%_ - _%kont-box179461%_ - _%negation-id179501%_))) + (gx#stx-null? _%tl180503180542%_)) + ((lambda (_%L180545%_ _%L180546%_) + (let ((_%body180567%_ + (_%xform-e180361%_ + _%L180545%_ + _%kont-id180443%_ + _%kont-box180446%_ + _%negation-id180486%_))) (values (cons '%#lambda - (cons (cons _%L179561%_ + (cons (cons _%L180546%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body179582%_ '()))) + (cons _%body180567%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box179461%_)))) - _%hd179517179555%_ - _%hd179514179547%_) - (_%g179503179523%_ - _%g179504179526%_)))) - (_%g179503179523%_ _%g179504179526%_)) - (_%g179503179523%_ _%g179504179526%_)))) - (_%g179503179523%_ _%g179504179526%_)))) + (unbox _%kont-box180446%_)))) + _%hd180502180540%_ + _%hd180499180532%_) + (_%g180488180508%_ + _%g180489180511%_)))) + (_%g180488180508%_ _%g180489180511%_)) + (_%g180488180508%_ _%g180489180511%_)))) + (_%g180488180508%_ _%g180489180511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179503179523%_ - _%g179504179526%_)) - (_%g179503179523%_ - _%g179504179526%_)) - (_%g179503179523%_ - _%g179504179526%_)))) - (_%g179503179523%_ _%g179504179526%_))))) - (_%g179502179584%_ _%clause-lambda179457%_)))))) - (let _%lp179380%_ ((_%rest179382%_ _%clauses179373%_) - (_%clauses179383%_ '()) - (_%konts179384%_ '())) - (let* ((_%rest179385179393%_ _%rest179382%_) - (_%else179387179401%_ + (_%g180488180508%_ + _%g180489180511%_)) + (_%g180488180508%_ + _%g180489180511%_)) + (_%g180488180508%_ + _%g180489180511%_)))) + (_%g180488180508%_ _%g180489180511%_))))) + (_%g180487180569%_ _%clause-lambda180442%_)))))) + (let _%lp180365%_ ((_%rest180367%_ _%clauses180358%_) + (_%clauses180368%_ '()) + (_%konts180369%_ '())) + (let* ((_%rest180370180378%_ _%rest180367%_) + (_%else180372180386%_ (lambda () - (values (reverse _%clauses179383%_) - (reverse _%konts179384%_)))) - (_%K179389179445%_ - (lambda (_%rest179404%_ _%clause179405%_) - (let* ((_%clause179406179413%_ _%clause179405%_) - (_%E179408179417%_ + (values (reverse _%clauses180368%_) + (reverse _%konts180369%_)))) + (_%K180374180430%_ + (lambda (_%rest180389%_ _%clause180390%_) + (let* ((_%clause180391180398%_ _%clause180390%_) + (_%E180393180402%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause179406179413%_ + _%clause180391180398%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K179409179433%_ - (lambda (_%clause-lambda179420%_ - _%clause-id179421%_) - (let* ((_%id179423%_ - (let ((__tmp192640 + (_%K180394180418%_ + (lambda (_%clause-lambda180405%_ + _%clause-id180406%_) + (let* ((_%id180408%_ + (let ((__tmp193625 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp192640))) - (_%id179425%_ + (make-symbol__0 __tmp193625))) + (_%id180410%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id179423%_))) - (_%_179427%_ + _%id180408%_))) + (_%_180412%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id179425%_))) - (_g192641_ - (_%clause-e179378%_ - _%clause-lambda179420%_ - _%id179425%_ - _%rest179404%_))) + _%id180410%_))) + (_g193626_ + (_%clause-e180363%_ + _%clause-lambda180405%_ + _%id180410%_ + _%rest180389%_))) (begin - (let ((_g192642_ + (let ((_g193627_ (let () (declare (not safe)) - (if (##values? _g192641_) - (##values-length _g192641_) + (if (##values? _g193626_) + (##values-length _g193626_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192642_ 2))) + (##fx= _g193627_ 2))) (error "Context expects 2 values" - _g192642_))) - (let ((_%clause-lambda179429%_ + _g193627_))) + (let ((_%clause-lambda180414%_ (let () (declare (not safe)) - (##values-ref _g192641_ 0))) - (_%kont179430%_ + (##values-ref _g193626_ 0))) + (_%kont180415%_ (let () (declare (not safe)) - (##values-ref _g192641_ 1)))) - (_%lp179380%_ - _%rest179404%_ - (cons (cons _%clause-id179421%_ - _%clause-lambda179429%_) - _%clauses179383%_) - (cons (cons _%id179425%_ _%kont179430%_) - _%konts179384%_)))))))) - (if (pair? _%clause179406179413%_) - (let ((_%hd179410179436%_ + (##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 _%clause179406179413%_))) - (_%tl179411179438%_ + (##car _%clause180391180398%_))) + (_%tl180396180423%_ (let () (declare (not safe)) - (##cdr _%clause179406179413%_)))) - (let* ((_%clause-id179441%_ _%hd179410179436%_) - (_%clause-lambda179443%_ - _%tl179411179438%_)) - (_%K179409179433%_ - _%clause-lambda179443%_ - _%clause-id179441%_))) - (_%E179408179417%_)))))) - (if (pair? _%rest179385179393%_) - (let ((_%hd179390179448%_ + (##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 _%rest179385179393%_))) - (_%tl179391179450%_ + (##car _%rest180370180378%_))) + (_%tl180376180435%_ (let () (declare (not safe)) - (##cdr _%rest179385179393%_)))) - (let* ((_%clause179453%_ _%hd179390179448%_) - (_%rest179455%_ _%tl179391179450%_)) - (_%K179389179445%_ _%rest179455%_ _%clause179453%_))) - (_%else179387179401%_))))))) + (##cdr _%rest180370180378%_)))) + (let* ((_%clause180438%_ _%hd180375180433%_) + (_%rest180440%_ _%tl180376180435%_)) + (_%K180374180430%_ _%rest180440%_ _%clause180438%_))) + (_%else180372180386%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause178717%_ _%negation178718%_ _%target178719%_) - (letrec ((_%closure-e178721%_ - (lambda (_%expr178838%_) - (let* ((_%__stx192252192253%_ _%expr178838%_) - (_%g178845178960%_ + (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" - _%__stx192252192253%_))))) - (let ((_%__kont192254192255%_ - (lambda (_%L179351%_ _%L179352%_ _%L179353%_) + _%__stx193237193238%_))))) + (let ((_%__kont193239193240%_ + (lambda (_%L180336%_ _%L180337%_ _%L180338%_) (cons '%#if - (cons _%L179353%_ - (cons (_%closure-e178721%_ - _%L179352%_) - (cons (_%closure-e178721%_ - _%L179351%_) + (cons _%L180338%_ + (cons (_%closure-e179706%_ + _%L180337%_) + (cons (_%closure-e179706%_ + _%L180336%_) '())))))) - (_%__kont192256192257%_ - (lambda (_%L179299%_ _%L179300%_) + (_%__kont193241193242%_ + (lambda (_%L180284%_ _%L180285%_) (cons '%#let-values - (cons _%L179300%_ - (cons (_%closure-e178721%_ - _%L179299%_) + (cons _%L180285%_ + (cons (_%closure-e179706%_ + _%L180284%_) '()))))) - (_%__kont192258192259%_ - (lambda (_%L179245%_ _%L179246%_ _%L179247%_) + (_%__kont193243193244%_ + (lambda (_%L180230%_ _%L180231%_ _%L180232%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L179247%_ '()) - (cons (_%closure-e178721%_ - _%L179246%_) + (cons (cons (cons (cons _%L180232%_ '()) + (cons (_%closure-e179706%_ + _%L180231%_) '())) '()) - (cons _%L179245%_ '()))))) - (_%__kont192260192261%_ - (lambda (_%L179158%_ _%L179159%_) + (cons _%L180230%_ '()))))) + (_%__kont193245193246%_ + (lambda (_%L180143%_ _%L180144%_) (cons '%#lambda - (cons (let ((__tmp192643 - (lambda (_%g179176179179%_ - _%g179177179181%_) - (cons _%g179176179179%_ - _%g179177179181%_)))) + (cons (let ((__tmp193628 + (lambda (_%g180161180164%_ + _%g180162180166%_) + (cons _%g180161180164%_ + _%g180162180166%_)))) (declare (not safe)) (__foldr1 - __tmp192643 + __tmp193628 '() - _%L179159%_)) - (cons (_%closure-e178721%_ - _%L179158%_) + _%L180144%_)) + (cons (_%closure-e179706%_ + _%L180143%_) '()))))) - (_%__kont192264192265%_ - (lambda (_%L179088%_) + (_%__kont193249193250%_ + (lambda (_%L180073%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L179088%_ '())) + (cons _%L180073%_ '())) '())))) - (_%__kont192266192267%_ - (lambda (_%L179021%_ _%L179022%_) - _%expr178838%_))) - (let* ((_%__match192485192486%_ - (lambda (_%e178935178965%_ - _%hd178936178968%_ - _%tl178937178970%_ - _%e178938178973%_ - _%hd178939178976%_ - _%tl178940178978%_ - _%e178941178981%_ - _%hd178942178984%_ - _%tl178943178986%_ - _%e178944178989%_ - _%hd178945178992%_ - _%tl178946178994%_ - _%__splice192268192269%_ - _%target178947178997%_ - _%tl178949178999%_) - (letrec ((_%loop178950179002%_ - (lambda (_%hd178948179005%_ - _%arg178954179007%_) + (_%__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? - _%hd178948179005%_)) - (let ((_%e178951179010%_ + _%hd179933179990%_)) + (let ((_%e179936179995%_ (let () (declare (not safe)) (gx#stx-e - _%hd178948179005%_)))) - (let ((_%lp-tl178953179015%_ + _%hd179933179990%_)))) + (let ((_%lp-tl179938180000%_ (let () (declare (not safe)) - (##cdr _%e178951179010%_))) - (_%lp-hd178952179013%_ + (##cdr _%e179936179995%_))) + (_%lp-hd179937179998%_ (let () (declare (not safe)) - (##car _%e178951179010%_)))) - (_%loop178950179002%_ - _%lp-tl178953179015%_ - (cons _%lp-hd178952179013%_ - _%arg178954179007%_)))) - (let ((_%arg178955179018%_ - (reverse _%arg178954179007%_))) - (_%__kont192266192267%_ - _%arg178955179018%_ - _%hd178945178992%_)))))) - (_%loop178950179002%_ - _%target178947178997%_ + (##car _%e179936179995%_)))) + (_%loop179935179987%_ + _%lp-tl179938180000%_ + (cons _%lp-hd179937179998%_ + _%arg179939179992%_)))) + (let ((_%arg179940180003%_ + (reverse _%arg179939179992%_))) + (_%__kont193251193252%_ + _%arg179940180003%_ + _%hd179930179977%_)))))) + (_%loop179935179987%_ + _%target179932179982%_ '())))) - (_%__match192443192444%_ - (lambda (_%e178918179048%_ - _%hd178919179051%_ - _%tl178920179053%_ - _%e178921179056%_ - _%hd178922179059%_ - _%tl178923179061%_ - _%e178924179064%_ - _%hd178925179067%_ - _%tl178926179069%_ - _%e178927179072%_ - _%hd178928179075%_ - _%tl178929179077%_ - _%e178930179080%_ - _%hd178931179083%_ - _%tl178932179085%_) - (let ((_%L179088%_ _%hd178928179075%_)) + (_%__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=? - _%L179088%_ - _%negation178718%_)) - (_%__kont192264192265%_ _%L179088%_) + _%L180073%_ + _%negation179703%_)) + (_%__kont193249193250%_ _%L180073%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl178923179061%_)) - (let ((_%__splice192268192269%_ + _%tl179908180046%_)) + (let ((_%__splice193253193254%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178923179061%_ + _%tl179908180046%_ '0)))) - (let ((_%tl178949178999%_ + (let ((_%tl179934179984%_ (let () (declare (not safe)) (##vector-ref - _%__splice192268192269%_ + _%__splice193253193254%_ '1))) - (_%target178947178997%_ + (_%target179932179982%_ (let () (declare (not safe)) (##vector-ref - _%__splice192268192269%_ + _%__splice193253193254%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178949178999%_)) - (_%__match192485192486%_ - _%e178918179048%_ - _%hd178919179051%_ - _%tl178920179053%_ - _%e178921179056%_ - _%hd178922179059%_ - _%tl178923179061%_ - _%e178924179064%_ - _%hd178925179067%_ - _%tl178926179069%_ - _%e178927179072%_ - _%hd178928179075%_ - _%tl178929179077%_ - _%__splice192268192269%_ - _%target178947178997%_ - _%tl178949178999%_) + _%tl179934179984%_)) + (_%__match193470193471%_ + _%e179903180033%_ + _%hd179904180036%_ + _%tl179905180038%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%__splice193253193254%_ + _%target179932179982%_ + _%tl179934179984%_) (let () (declare (not safe)) - (_%g178845178960%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178845178960%_))))))) - (_%__match192401192402%_ - (lambda (_%e178899179110%_ - _%hd178900179113%_ - _%tl178901179115%_ - _%e178902179118%_ - _%hd178903179121%_ - _%tl178904179123%_ - _%__splice192262192263%_ - _%target178905179126%_ - _%tl178907179128%_) - (letrec ((_%loop178908179131%_ - (lambda (_%hd178906179134%_ - _%id178912179136%_) + (_%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? - _%hd178906179134%_)) - (let ((_%e178909179139%_ + _%hd179891180119%_)) + (let ((_%e179894180124%_ (let () (declare (not safe)) (gx#stx-e - _%hd178906179134%_)))) - (let ((_%lp-tl178911179144%_ + _%hd179891180119%_)))) + (let ((_%lp-tl179896180129%_ (let () (declare (not safe)) - (##cdr _%e178909179139%_))) - (_%lp-hd178910179142%_ + (##cdr _%e179894180124%_))) + (_%lp-hd179895180127%_ (let () (declare (not safe)) - (##car _%e178909179139%_)))) - (_%loop178908179131%_ - _%lp-tl178911179144%_ - (cons _%lp-hd178910179142%_ - _%id178912179136%_)))) - (let ((_%id178913179147%_ - (reverse _%id178912179136%_))) + (##car _%e179894180124%_)))) + (_%loop179893180116%_ + _%lp-tl179896180129%_ + (cons _%lp-hd179895180127%_ + _%id179897180121%_)))) + (let ((_%id179898180132%_ + (reverse _%id179897180121%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178904179123%_)) - (let ((_%e178914179150%_ + _%tl179889180108%_)) + (let ((_%e179899180135%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178904179123%_)))) - (let ((_%tl178916179155%_ + (gx#stx-e _%tl179889180108%_)))) + (let ((_%tl179901180140%_ (let () (declare (not safe)) - (##cdr _%e178914179150%_))) - (_%hd178915179153%_ + (##cdr _%e179899180135%_))) + (_%hd179900180138%_ (let () (declare (not safe)) - (##car _%e178914179150%_)))) + (##car _%e179899180135%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178916179155%_)) - (_%__kont192260192261%_ - _%hd178915179153%_ - _%id178913179147%_) - (let () (declare (not safe)) (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_)))))))) + (gx#stx-null? _%tl179901180140%_)) + (_%__kont193245193246%_ + _%hd179900180138%_ + _%id179898180132%_) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop178908179131%_ - _%target178905179126%_ + (_%loop179893180116%_ + _%target179890180111%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192252192253%_)) - (let ((_%e178850179319%_ + (gx#stx-pair? _%__stx193237193238%_)) + (let ((_%e179835180304%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192252192253%_)))) - (let ((_%tl178852179324%_ + (gx#stx-e _%__stx193237193238%_)))) + (let ((_%tl179837180309%_ (let () (declare (not safe)) - (##cdr _%e178850179319%_))) - (_%hd178851179322%_ + (##cdr _%e179835180304%_))) + (_%hd179836180307%_ (let () (declare (not safe)) - (##car _%e178850179319%_)))) + (##car _%e179835180304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178851179322%_)) + (gx#identifier? _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178851179322%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178852179324%_)) - (let ((_%e178853179327%_ + _%tl179837180309%_)) + (let ((_%e179838180312%_ (let () (declare (not safe)) (gx#stx-e - _%tl178852179324%_)))) - (let ((_%tl178855179332%_ + _%tl179837180309%_)))) + (let ((_%tl179840180317%_ (let () (declare (not safe)) - (##cdr _%e178853179327%_))) - (_%hd178854179330%_ + (##cdr _%e179838180312%_))) + (_%hd179839180315%_ (let () (declare (not safe)) - (##car _%e178853179327%_)))) + (##car _%e179838180312%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178855179332%_)) - (let ((_%e178856179335%_ + _%tl179840180317%_)) + (let ((_%e179841180320%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178855179332%_)))) - (let ((_%tl178858179340%_ - (let () (declare (not safe)) (##cdr _%e178856179335%_))) - (_%hd178857179338%_ + (gx#stx-e _%tl179840180317%_)))) + (let ((_%tl179843180325%_ + (let () (declare (not safe)) (##cdr _%e179841180320%_))) + (_%hd179842180323%_ (let () (declare (not safe)) - (##car _%e178856179335%_)))) + (##car _%e179841180320%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178858179340%_)) - (let ((_%e178859179343%_ + (gx#stx-pair? _%tl179843180325%_)) + (let ((_%e179844180328%_ (let () (declare (not safe)) - (gx#stx-e _%tl178858179340%_)))) - (let ((_%tl178861179348%_ + (gx#stx-e _%tl179843180325%_)))) + (let ((_%tl179846180333%_ (let () (declare (not safe)) - (##cdr _%e178859179343%_))) - (_%hd178860179346%_ + (##cdr _%e179844180328%_))) + (_%hd179845180331%_ (let () (declare (not safe)) - (##car _%e178859179343%_)))) + (##car _%e179844180328%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178861179348%_)) - (_%__kont192254192255%_ - _%hd178860179346%_ - _%hd178857179338%_ - _%hd178854179330%_) + (gx#stx-null? _%tl179846180333%_)) + (_%__kont193239193240%_ + _%hd179845180331%_ + _%hd179842180323%_ + _%hd179839180315%_) (let () (declare (not safe)) - (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178845178960%_))) + (_%g179830179945%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178851179322%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178852179324%_)) - (let ((_%e178867179283%_ + _%tl179837180309%_)) + (let ((_%e179852180268%_ (let () (declare (not safe)) (gx#stx-e - _%tl178852179324%_)))) - (let ((_%tl178869179288%_ + _%tl179837180309%_)))) + (let ((_%tl179854180273%_ (let () (declare (not safe)) - (##cdr _%e178867179283%_))) - (_%hd178868179286%_ + (##cdr _%e179852180268%_))) + (_%hd179853180271%_ (let () (declare (not safe)) - (##car _%e178867179283%_)))) + (##car _%e179852180268%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178869179288%_)) - (let ((_%e178870179291%_ + _%tl179854180273%_)) + (let ((_%e179855180276%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178869179288%_)))) - (let ((_%tl178872179296%_ + (gx#stx-e _%tl179854180273%_)))) + (let ((_%tl179857180281%_ (let () (declare (not safe)) - (##cdr _%e178870179291%_))) - (_%hd178871179294%_ + (##cdr _%e179855180276%_))) + (_%hd179856180279%_ (let () (declare (not safe)) - (##car _%e178870179291%_)))) + (##car _%e179855180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178872179296%_)) - (_%__kont192256192257%_ - _%hd178871179294%_ - _%hd178868179286%_) - (let () (declare (not safe)) (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))))) + (gx#stx-null? _%tl179857180281%_)) + (_%__kont193241193242%_ + _%hd179856180279%_ + _%hd179853180271%_) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178845178960%_))) + (_%g179830179945%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd178851179322%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178852179324%_)) - (let ((_%e178879179197%_ + _%tl179837180309%_)) + (let ((_%e179864180182%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178852179324%_)))) - (let ((_%tl178881179202%_ - (let () (declare (not safe)) (##cdr _%e178879179197%_))) - (_%hd178880179200%_ + (gx#stx-e _%tl179837180309%_)))) + (let ((_%tl179866180187%_ + (let () (declare (not safe)) (##cdr _%e179864180182%_))) + (_%hd179865180185%_ (let () (declare (not safe)) - (##car _%e178879179197%_)))) + (##car _%e179864180182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178880179200%_)) - (let ((_%e178882179205%_ + (gx#stx-pair? _%hd179865180185%_)) + (let ((_%e179867180190%_ (let () (declare (not safe)) - (gx#stx-e _%hd178880179200%_)))) - (let ((_%tl178884179210%_ + (gx#stx-e _%hd179865180185%_)))) + (let ((_%tl179869180195%_ (let () (declare (not safe)) - (##cdr _%e178882179205%_))) - (_%hd178883179208%_ + (##cdr _%e179867180190%_))) + (_%hd179868180193%_ (let () (declare (not safe)) - (##car _%e178882179205%_)))) + (##car _%e179867180190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178883179208%_)) - (let ((_%e178885179213%_ + (gx#stx-pair? _%hd179868180193%_)) + (let ((_%e179870180198%_ (let () (declare (not safe)) - (gx#stx-e _%hd178883179208%_)))) - (let ((_%tl178887179218%_ + (gx#stx-e _%hd179868180193%_)))) + (let ((_%tl179872180203%_ (let () (declare (not safe)) - (##cdr _%e178885179213%_))) - (_%hd178886179216%_ + (##cdr _%e179870180198%_))) + (_%hd179871180201%_ (let () (declare (not safe)) - (##car _%e178885179213%_)))) + (##car _%e179870180198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178886179216%_)) - (let ((_%e178888179221%_ + (gx#stx-pair? _%hd179871180201%_)) + (let ((_%e179873180206%_ (let () (declare (not safe)) - (gx#stx-e _%hd178886179216%_)))) - (let ((_%tl178890179226%_ + (gx#stx-e _%hd179871180201%_)))) + (let ((_%tl179875180211%_ (let () (declare (not safe)) - (##cdr _%e178888179221%_))) - (_%hd178889179224%_ + (##cdr _%e179873180206%_))) + (_%hd179874180209%_ (let () (declare (not safe)) - (##car _%e178888179221%_)))) + (##car _%e179873180206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178890179226%_)) + _%tl179875180211%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178887179218%_)) - (let ((_%e178891179229%_ + _%tl179872180203%_)) + (let ((_%e179876180214%_ (let () (declare (not safe)) (gx#stx-e - _%tl178887179218%_)))) - (let ((_%tl178893179234%_ + _%tl179872180203%_)))) + (let ((_%tl179878180219%_ (let () (declare (not safe)) - (##cdr _%e178891179229%_))) - (_%hd178892179232%_ + (##cdr _%e179876180214%_))) + (_%hd179877180217%_ (let () (declare (not safe)) - (##car _%e178891179229%_)))) + (##car _%e179876180214%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178893179234%_)) + _%tl179878180219%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178884179210%_)) + (gx#stx-null? _%tl179869180195%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178881179202%_)) - (let ((_%e178894179237%_ + (gx#stx-pair? _%tl179866180187%_)) + (let ((_%e179879180222%_ (let () (declare (not safe)) - (gx#stx-e _%tl178881179202%_)))) - (let ((_%tl178896179242%_ + (gx#stx-e _%tl179866180187%_)))) + (let ((_%tl179881180227%_ (let () (declare (not safe)) - (##cdr _%e178894179237%_))) - (_%hd178895179240%_ + (##cdr _%e179879180222%_))) + (_%hd179880180225%_ (let () (declare (not safe)) - (##car _%e178894179237%_)))) + (##car _%e179879180222%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178896179242%_)) - (_%__kont192258192259%_ - _%hd178895179240%_ - _%hd178892179232%_ - _%hd178889179224%_) + (gx#stx-null? _%tl179881180227%_)) + (_%__kont193243193244%_ + _%hd179880180225%_ + _%hd179877180217%_ + _%hd179874180209%_) (let () (declare (not safe)) - (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))) - (let () (declare (not safe)) (_%g178845178960%_))) - (let () (declare (not safe)) (_%g178845178960%_))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) + (let () (declare (not safe)) (_%g179830179945%_))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178845178960%_))) + (_%g179830179945%_))) (let () (declare (not safe)) - (_%g178845178960%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178845178960%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178851179322%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178852179324%_)) - (let ((_%e178902179118%_ + _%tl179837180309%_)) + (let ((_%e179887180103%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178852179324%_)))) - (let ((_%tl178904179123%_ + (gx#stx-e _%tl179837180309%_)))) + (let ((_%tl179889180108%_ (let () (declare (not safe)) - (##cdr _%e178902179118%_))) - (_%hd178903179121%_ + (##cdr _%e179887180103%_))) + (_%hd179888180106%_ (let () (declare (not safe)) - (##car _%e178902179118%_)))) + (##car _%e179887180103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd178903179121%_)) - (let ((_%__splice192262192263%_ + (gx#stx-pair/null? _%hd179888180106%_)) + (let ((_%__splice193247193248%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd178903179121%_ + _%hd179888180106%_ '0)))) - (let ((_%tl178907179128%_ + (let ((_%tl179892180113%_ (let () (declare (not safe)) (##vector-ref - _%__splice192262192263%_ + _%__splice193247193248%_ '1))) - (_%target178905179126%_ + (_%target179890180111%_ (let () (declare (not safe)) (##vector-ref - _%__splice192262192263%_ + _%__splice193247193248%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178907179128%_)) - (_%__match192401192402%_ - _%e178850179319%_ - _%hd178851179322%_ - _%tl178852179324%_ - _%e178902179118%_ - _%hd178903179121%_ - _%tl178904179123%_ - _%__splice192262192263%_ - _%target178905179126%_ - _%tl178907179128%_) + (gx#stx-null? _%tl179892180113%_)) + (_%__match193386193387%_ + _%e179835180304%_ + _%hd179836180307%_ + _%tl179837180309%_ + _%e179887180103%_ + _%hd179888180106%_ + _%tl179889180108%_ + _%__splice193247193248%_ + _%target179890180111%_ + _%tl179892180113%_) (let () (declare (not safe)) - (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178851179322%_)) + (gx#stx-eq? '%#call _%hd179836180307%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178852179324%_)) - (let ((_%e178921179056%_ + (gx#stx-pair? _%tl179837180309%_)) + (let ((_%e179906180041%_ (let () (declare (not safe)) - (gx#stx-e _%tl178852179324%_)))) - (let ((_%tl178923179061%_ + (gx#stx-e _%tl179837180309%_)))) + (let ((_%tl179908180046%_ (let () (declare (not safe)) - (##cdr _%e178921179056%_))) - (_%hd178922179059%_ + (##cdr _%e179906180041%_))) + (_%hd179907180044%_ (let () (declare (not safe)) - (##car _%e178921179056%_)))) + (##car _%e179906180041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178922179059%_)) - (let ((_%e178924179064%_ + (gx#stx-pair? _%hd179907180044%_)) + (let ((_%e179909180049%_ (let () (declare (not safe)) - (gx#stx-e _%hd178922179059%_)))) - (let ((_%tl178926179069%_ + (gx#stx-e _%hd179907180044%_)))) + (let ((_%tl179911180054%_ (let () (declare (not safe)) - (##cdr _%e178924179064%_))) - (_%hd178925179067%_ + (##cdr _%e179909180049%_))) + (_%hd179910180052%_ (let () (declare (not safe)) - (##car _%e178924179064%_)))) + (##car _%e179909180049%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178925179067%_)) + (gx#identifier? _%hd179910180052%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178925179067%_)) + _%hd179910180052%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178926179069%_)) - (let ((_%e178927179072%_ + _%tl179911180054%_)) + (let ((_%e179912180057%_ (let () (declare (not safe)) (gx#stx-e - _%tl178926179069%_)))) - (let ((_%tl178929179077%_ + _%tl179911180054%_)))) + (let ((_%tl179914180062%_ (let () (declare (not safe)) - (##cdr _%e178927179072%_))) - (_%hd178928179075%_ + (##cdr _%e179912180057%_))) + (_%hd179913180060%_ (let () (declare (not safe)) - (##car _%e178927179072%_)))) + (##car _%e179912180057%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178929179077%_)) + _%tl179914180062%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178923179061%_)) - (let ((_%e178930179080%_ + _%tl179908180046%_)) + (let ((_%e179915180065%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178923179061%_)))) - (let ((_%tl178932179085%_ + (gx#stx-e _%tl179908180046%_)))) + (let ((_%tl179917180070%_ (let () (declare (not safe)) - (##cdr _%e178930179080%_))) - (_%hd178931179083%_ + (##cdr _%e179915180065%_))) + (_%hd179916180068%_ (let () (declare (not safe)) - (##car _%e178930179080%_)))) + (##car _%e179915180065%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178932179085%_)) - (_%__match192443192444%_ - _%e178850179319%_ - _%hd178851179322%_ - _%tl178852179324%_ - _%e178921179056%_ - _%hd178922179059%_ - _%tl178923179061%_ - _%e178924179064%_ - _%hd178925179067%_ - _%tl178926179069%_ - _%e178927179072%_ - _%hd178928179075%_ - _%tl178929179077%_ - _%e178930179080%_ - _%hd178931179083%_ - _%tl178932179085%_) + (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? _%tl178923179061%_)) - (let ((_%__splice192268192269%_ + (gx#stx-pair/null? _%tl179908180046%_)) + (let ((_%__splice193253193254%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178923179061%_ + _%tl179908180046%_ '0)))) - (let ((_%tl178949178999%_ + (let ((_%tl179934179984%_ (let () (declare (not safe)) (##vector-ref - _%__splice192268192269%_ + _%__splice193253193254%_ '1))) - (_%target178947178997%_ + (_%target179932179982%_ (let () (declare (not safe)) (##vector-ref - _%__splice192268192269%_ + _%__splice193253193254%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178949178999%_)) - (_%__match192485192486%_ - _%e178850179319%_ - _%hd178851179322%_ - _%tl178852179324%_ - _%e178921179056%_ - _%hd178922179059%_ - _%tl178923179061%_ - _%e178924179064%_ - _%hd178925179067%_ - _%tl178926179069%_ - _%e178927179072%_ - _%hd178928179075%_ - _%tl178929179077%_ - _%__splice192268192269%_ - _%target178947178997%_ - _%tl178949178999%_) + (gx#stx-null? _%tl179934179984%_)) + (_%__match193470193471%_ + _%e179835180304%_ + _%hd179836180307%_ + _%tl179837180309%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%__splice193253193254%_ + _%target179932179982%_ + _%tl179934179984%_) (let () (declare (not safe)) - (_%g178845178960%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178845178960%_)))))) + (_%g179830179945%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178923179061%_)) - (let ((_%__splice192268192269%_ + (gx#stx-pair/null? _%tl179908180046%_)) + (let ((_%__splice193253193254%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178923179061%_ + _%tl179908180046%_ '0)))) - (let ((_%tl178949178999%_ + (let ((_%tl179934179984%_ (let () (declare (not safe)) - (##vector-ref _%__splice192268192269%_ '1))) - (_%target178947178997%_ + (##vector-ref _%__splice193253193254%_ '1))) + (_%target179932179982%_ (let () (declare (not safe)) - (##vector-ref _%__splice192268192269%_ '0)))) + (##vector-ref _%__splice193253193254%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178949178999%_)) - (_%__match192485192486%_ - _%e178850179319%_ - _%hd178851179322%_ - _%tl178852179324%_ - _%e178921179056%_ - _%hd178922179059%_ - _%tl178923179061%_ - _%e178924179064%_ - _%hd178925179067%_ - _%tl178926179069%_ - _%e178927179072%_ - _%hd178928179075%_ - _%tl178929179077%_ - _%__splice192268192269%_ - _%target178947178997%_ - _%tl178949178999%_) + (gx#stx-null? _%tl179934179984%_)) + (_%__match193470193471%_ + _%e179835180304%_ + _%hd179836180307%_ + _%tl179837180309%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%__splice193253193254%_ + _%target179932179982%_ + _%tl179934179984%_) (let () (declare (not safe)) - (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_)))) - (let () (declare (not safe)) (_%g178845178960%_))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_)))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178845178960%_))) + (_%g179830179945%_))) (let () (declare (not safe)) - (_%g178845178960%_))) + (_%g179830179945%_))) (let () (declare (not safe)) - (_%g178845178960%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178845178960%_))))) - (let () (declare (not safe)) (_%g178845178960%_))) - (let () (declare (not safe)) (_%g178845178960%_))))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) + (let () (declare (not safe)) (_%g179830179945%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178845178960%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178845178960%_))))))))) - (let* ((_%clause178722178729%_ _%clause178717%_) - (_%E178724178733%_ + (_%g179830179945%_))))))))) + (let* ((_%clause179707179714%_ _%clause179702%_) + (_%E179709179718%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause178722178729%_ + _%clause179707179714%_ '([id . kont]))) '#!void)) - (_%K178725178826%_ - (lambda (_%kont178736%_ _%id178737%_) - (let* ((_%g178739178759%_ - (lambda (_%g178740178756%_) + (_%K179710179811%_ + (lambda (_%kont179721%_ _%id179722%_) + (let* ((_%g179724179744%_ + (lambda (_%g179725179741%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178740178756%_)))) - (_%g178738178823%_ - (lambda (_%g178740178762%_) + _%g179725179741%_)))) + (_%g179723179808%_ + (lambda (_%g179725179747%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178740178762%_)) - (let ((_%e178743178764%_ + (gx#stx-pair? _%g179725179747%_)) + (let ((_%e179728179749%_ (let () (declare (not safe)) - (gx#stx-e _%g178740178762%_)))) - (let ((_%hd178744178767%_ + (gx#stx-e _%g179725179747%_)))) + (let ((_%hd179729179752%_ (let () (declare (not safe)) - (##car _%e178743178764%_))) - (_%tl178745178769%_ + (##car _%e179728179749%_))) + (_%tl179730179754%_ (let () (declare (not safe)) - (##cdr _%e178743178764%_)))) + (##cdr _%e179728179749%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178744178767%_)) + _%hd179729179752%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178744178767%_)) + _%hd179729179752%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178745178769%_)) - (let ((_%e178746178772%_ + _%tl179730179754%_)) + (let ((_%e179731179757%_ (let () (declare (not safe)) (gx#stx-e - _%tl178745178769%_)))) - (let ((_%hd178747178775%_ + _%tl179730179754%_)))) + (let ((_%hd179732179760%_ (let () (declare (not safe)) - (##car _%e178746178772%_))) - (_%tl178748178777%_ + (##car _%e179731179757%_))) + (_%tl179733179762%_ (let () (declare (not safe)) - (##cdr _%e178746178772%_)))) + (##cdr _%e179731179757%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178747178775%_)) - (let ((_%e178749178780%_ + _%hd179732179760%_)) + (let ((_%e179734179765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178747178775%_)))) - (let ((_%hd178750178783%_ + (gx#stx-e _%hd179732179760%_)))) + (let ((_%hd179735179768%_ (let () (declare (not safe)) - (##car _%e178749178780%_))) - (_%tl178751178785%_ + (##car _%e179734179765%_))) + (_%tl179736179770%_ (let () (declare (not safe)) - (##cdr _%e178749178780%_)))) + (##cdr _%e179734179765%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178751178785%_)) + (gx#stx-null? _%tl179736179770%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178748178777%_)) - (let ((_%e178752178788%_ + (gx#stx-pair? _%tl179733179762%_)) + (let ((_%e179737179773%_ (let () (declare (not safe)) - (gx#stx-e _%tl178748178777%_)))) - (let ((_%hd178753178791%_ + (gx#stx-e _%tl179733179762%_)))) + (let ((_%hd179738179776%_ (let () (declare (not safe)) - (##car _%e178752178788%_))) - (_%tl178754178793%_ + (##car _%e179737179773%_))) + (_%tl179739179778%_ (let () (declare (not safe)) - (##cdr _%e178752178788%_)))) + (##cdr _%e179737179773%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178754178793%_)) - ((lambda (_%L178796%_ _%L178797%_) - (let* ((_%body178818%_ + (gx#stx-null? _%tl179739179778%_)) + ((lambda (_%L179781%_ _%L179782%_) + (let* ((_%body179803%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L178797%_ - _%target178719%_ - _%L178796%_))) - (_%body178820%_ - (if _%negation178718%_ - (_%closure-e178721%_ - _%body178818%_) - _%body178818%_))) - (let ((__tmp192645 + _%L179782%_ + _%target179704%_ + _%L179781%_))) + (_%body179805%_ + (if _%negation179703%_ + (_%closure-e179706%_ + _%body179803%_) + _%body179803%_))) + (let ((__tmp193630 (let () (declare (not safe)) (gxc#identifier-symbol - _%id178737%_))) - (__tmp192644 - (let ((__obj192543 + _%id179722%_))) + (__tmp193629 + (let ((__obj193528 (let () (declare (not safe)) (##structure @@ -16505,575 +16505,575 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj192543 + __obj193528 '0 '#f)) - __obj192543))) + __obj193528))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp192645 - __tmp192644 + __tmp193630 + __tmp193629 '#t)) - (cons _%id178737%_ + (cons _%id179722%_ (cons '%#lambda (cons '() - (cons _%body178820%_ + (cons _%body179805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178753178791%_ - _%hd178750178783%_) - (_%g178739178759%_ _%g178740178762%_)))) - (_%g178739178759%_ _%g178740178762%_)) - (_%g178739178759%_ _%g178740178762%_)))) - (_%g178739178759%_ _%g178740178762%_)))) + _%hd179738179776%_ + _%hd179735179768%_) + (_%g179724179744%_ _%g179725179747%_)))) + (_%g179724179744%_ _%g179725179747%_)) + (_%g179724179744%_ _%g179725179747%_)))) + (_%g179724179744%_ _%g179725179747%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178739178759%_ - _%g178740178762%_)) - (_%g178739178759%_ - _%g178740178762%_)) - (_%g178739178759%_ - _%g178740178762%_)))) - (_%g178739178759%_ _%g178740178762%_))))) - (_%g178738178823%_ _%kont178736%_))))) - (if (pair? _%clause178722178729%_) - (let ((_%hd178726178829%_ + (_%g179724179744%_ + _%g179725179747%_)) + (_%g179724179744%_ + _%g179725179747%_)) + (_%g179724179744%_ + _%g179725179747%_)))) + (_%g179724179744%_ _%g179725179747%_))))) + (_%g179723179808%_ _%kont179721%_))))) + (if (pair? _%clause179707179714%_) + (let ((_%hd179711179814%_ (let () (declare (not safe)) - (##car _%clause178722178729%_))) - (_%tl178727178831%_ + (##car _%clause179707179714%_))) + (_%tl179712179816%_ (let () (declare (not safe)) - (##cdr _%clause178722178729%_)))) - (let* ((_%id178834%_ _%hd178726178829%_) - (_%kont178836%_ _%tl178727178831%_)) - (_%K178725178826%_ _%kont178836%_ _%id178834%_))) - (_%E178724178733%_)))))) + (##cdr _%clause179707179714%_)))) + (let* ((_%id179819%_ _%hd179711179814%_) + (_%kont179821%_ _%tl179712179816%_)) + (_%K179710179811%_ _%kont179821%_ _%id179819%_))) + (_%E179709179718%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self178501%_ _%stx178502%_) - (let* ((_%g178504178521%_ - (lambda (_%g178505178518%_) + (lambda (_%self179486%_ _%stx179487%_) + (let* ((_%g179489179506%_ + (lambda (_%g179490179503%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178505178518%_)))) - (_%g178503178714%_ - (lambda (_%g178505178524%_) + _%g179490179503%_)))) + (_%g179488179699%_ + (lambda (_%g179490179509%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178505178524%_)) - (let ((_%e178508178526%_ + (gx#stx-pair? _%g179490179509%_)) + (let ((_%e179493179511%_ (let () (declare (not safe)) - (gx#stx-e _%g178505178524%_)))) - (let ((_%hd178509178529%_ + (gx#stx-e _%g179490179509%_)))) + (let ((_%hd179494179514%_ (let () (declare (not safe)) - (##car _%e178508178526%_))) - (_%tl178510178531%_ + (##car _%e179493179511%_))) + (_%tl179495179516%_ (let () (declare (not safe)) - (##cdr _%e178508178526%_)))) + (##cdr _%e179493179511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178510178531%_)) - (let ((_%e178511178534%_ + (gx#stx-pair? _%tl179495179516%_)) + (let ((_%e179496179519%_ (let () (declare (not safe)) - (gx#stx-e _%tl178510178531%_)))) - (let ((_%hd178512178537%_ + (gx#stx-e _%tl179495179516%_)))) + (let ((_%hd179497179522%_ (let () (declare (not safe)) - (##car _%e178511178534%_))) - (_%tl178513178539%_ + (##car _%e179496179519%_))) + (_%tl179498179524%_ (let () (declare (not safe)) - (##cdr _%e178511178534%_)))) + (##cdr _%e179496179519%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178513178539%_)) - (let ((_%e178514178542%_ + (gx#stx-pair? _%tl179498179524%_)) + (let ((_%e179499179527%_ (let () (declare (not safe)) - (gx#stx-e _%tl178513178539%_)))) - (let ((_%hd178515178545%_ + (gx#stx-e _%tl179498179524%_)))) + (let ((_%hd179500179530%_ (let () (declare (not safe)) - (##car _%e178514178542%_))) - (_%tl178516178547%_ + (##car _%e179499179527%_))) + (_%tl179501179532%_ (let () (declare (not safe)) - (##cdr _%e178514178542%_)))) + (##cdr _%e179499179527%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178516178547%_)) - ((lambda (_%L178550%_ - _%L178551%_) - (let _%lp178566%_ ((_%rest178568%_ + _%tl179501179532%_)) + ((lambda (_%L179535%_ + _%L179536%_) + (let _%lp179551%_ ((_%rest179553%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L178551%_) - (_%rebind178569%_ '()) - (_%vars178570%_ + _%L179536%_) + (_%rebind179554%_ '()) + (_%vars179555%_ (let () (declare (not safe)) - (slot-ref__0 _%self178501%_ 'vars)))) + (slot-ref__0 _%self179486%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest178571178579%_ - _%rest178568%_) - (_%else178573178590%_ + (let* ((_%rest179556179564%_ + _%rest179553%_) + (_%else179558179575%_ (lambda () - (let ((_%sibling178587%_ + (let ((_%sibling179572%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self178501%_)))) + (struct-copy _%self179486%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling178587%_ 'vars _%vars178570%_)) - (let ((__tmp192646 + (slot-set!__0 _%sibling179572%_ 'vars _%vars179555%_)) + (let ((__tmp193631 (lambda () - (if (null? _%rebind178569%_) + (if (null? _%rebind179554%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling178587%_ - _%L178550%_)) - (let ((__tmp192647 + _%sibling179572%_ + _%L179535%_)) + (let ((__tmp193632 (cons '%#let-values - (cons (reverse _%rebind178569%_) + (cons (reverse _%rebind179554%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling178587%_ _%L178550%_)) + (gxc#compile-e__1 _%sibling179572%_ _%L179535%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192647 - _%stx178502%_)))))) + __tmp193632 + _%stx179487%_)))))) (declare (not safe)) (__call-with-parameters - __tmp192646 + __tmp193631 gxc#current-compile-method - _%sibling178587%_))))) - (_%K178575178702%_ - (lambda (_%rest178593%_ _%bind178594%_) - (let* ((_%__stx192488192489%_ _%bind178594%_) - (_%g178597178620%_ + _%sibling179572%_))))) + (_%K179560179687%_ + (lambda (_%rest179578%_ _%bind179579%_) + (let* ((_%__stx193473193474%_ _%bind179579%_) + (_%g179582179605%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx192488192489%_))))) - (let ((_%__kont192490192491%_ - (lambda (_%L178672%_ _%L178673%_) - (_%lp178566%_ - _%rest178593%_ - _%rebind178569%_ - (cons _%bind178594%_ _%vars178570%_)))) - (_%__kont192492192493%_ + _%__stx193473193474%_))))) + (let ((_%__kont193475193476%_ + (lambda (_%L179657%_ _%L179658%_) + (_%lp179551%_ + _%rest179578%_ + _%rebind179554%_ + (cons _%bind179579%_ _%vars179555%_)))) + (_%__kont193477193478%_ (lambda () - (_%lp178566%_ - _%rest178593%_ - (cons _%bind178594%_ _%rebind178569%_) - _%vars178570%_)))) + (_%lp179551%_ + _%rest179578%_ + (cons _%bind179579%_ _%rebind179554%_) + _%vars179555%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192488192489%_)) - (let ((_%e178601178632%_ + (gx#stx-pair? _%__stx193473193474%_)) + (let ((_%e179586179617%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192488192489%_)))) - (let ((_%tl178603178637%_ + (gx#stx-e _%__stx193473193474%_)))) + (let ((_%tl179588179622%_ (let () (declare (not safe)) - (##cdr _%e178601178632%_))) - (_%hd178602178635%_ + (##cdr _%e179586179617%_))) + (_%hd179587179620%_ (let () (declare (not safe)) - (##car _%e178601178632%_)))) + (##car _%e179586179617%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178602178635%_)) - (let ((_%e178604178640%_ + (gx#stx-pair? _%hd179587179620%_)) + (let ((_%e179589179625%_ (let () (declare (not safe)) - (gx#stx-e _%hd178602178635%_)))) - (let ((_%tl178606178645%_ + (gx#stx-e _%hd179587179620%_)))) + (let ((_%tl179591179630%_ (let () (declare (not safe)) - (##cdr _%e178604178640%_))) - (_%hd178605178643%_ + (##cdr _%e179589179625%_))) + (_%hd179590179628%_ (let () (declare (not safe)) - (##car _%e178604178640%_)))) + (##car _%e179589179625%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178606178645%_)) + _%tl179591179630%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178603178637%_)) - (let ((_%e178607178648%_ + _%tl179588179622%_)) + (let ((_%e179592179633%_ (let () (declare (not safe)) (gx#stx-e - _%tl178603178637%_)))) - (let ((_%tl178609178653%_ + _%tl179588179622%_)))) + (let ((_%tl179594179638%_ (let () (declare (not safe)) - (##cdr _%e178607178648%_))) - (_%hd178608178651%_ + (##cdr _%e179592179633%_))) + (_%hd179593179636%_ (let () (declare (not safe)) - (##car _%e178607178648%_)))) + (##car _%e179592179633%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178608178651%_)) - (let ((_%e178610178656%_ + _%hd179593179636%_)) + (let ((_%e179595179641%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd178608178651%_)))) - (let ((_%tl178612178661%_ + (gx#stx-e _%hd179593179636%_)))) + (let ((_%tl179597179646%_ (let () (declare (not safe)) - (##cdr _%e178610178656%_))) - (_%hd178611178659%_ + (##cdr _%e179595179641%_))) + (_%hd179596179644%_ (let () (declare (not safe)) - (##car _%e178610178656%_)))) + (##car _%e179595179641%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178611178659%_)) + (gx#identifier? _%hd179596179644%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178611178659%_)) + (gx#stx-eq? '%#ref _%hd179596179644%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178612178661%_)) - (let ((_%e178613178664%_ + (gx#stx-pair? _%tl179597179646%_)) + (let ((_%e179598179649%_ (let () (declare (not safe)) - (gx#stx-e _%tl178612178661%_)))) - (let ((_%tl178615178669%_ + (gx#stx-e _%tl179597179646%_)))) + (let ((_%tl179600179654%_ (let () (declare (not safe)) - (##cdr _%e178613178664%_))) - (_%hd178614178667%_ + (##cdr _%e179598179649%_))) + (_%hd179599179652%_ (let () (declare (not safe)) - (##car _%e178613178664%_)))) + (##car _%e179598179649%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178615178669%_)) + (gx#stx-null? _%tl179600179654%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178609178653%_)) - (_%__kont192490192491%_ - _%hd178614178667%_ - _%hd178605178643%_) - (_%__kont192492192493%_)) - (_%__kont192492192493%_)))) - (_%__kont192492192493%_)) - (_%__kont192492192493%_)) - (_%__kont192492192493%_)))) - (_%__kont192492192493%_)))) + _%tl179594179638%_)) + (_%__kont193475193476%_ + _%hd179599179652%_ + _%hd179590179628%_) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont192492192493%_)) - (_%__kont192492192493%_)))) - (_%__kont192492192493%_)))) - (_%__kont192492192493%_))))))) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest178571178579%_) - (let ((_%hd178576178705%_ + (if (pair? _%rest179556179564%_) + (let ((_%hd179561179690%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest178571178579%_))) - (_%tl178577178707%_ + (##car _%rest179556179564%_))) + (_%tl179562179692%_ (let () (declare (not safe)) - (##cdr _%rest178571178579%_)))) - (let* ((_%bind178710%_ _%hd178576178705%_) - (_%rest178712%_ _%tl178577178707%_)) - (_%K178575178702%_ _%rest178712%_ _%bind178710%_))) - (_%else178573178590%_))))) + (##cdr _%rest179556179564%_)))) + (let* ((_%bind179695%_ _%hd179561179690%_) + (_%rest179697%_ _%tl179562179692%_)) + (_%K179560179687%_ _%rest179697%_ _%bind179695%_))) + (_%else179558179575%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178515178545%_ - _%hd178512178537%_) - (_%g178504178521%_ - _%g178505178524%_)))) - (_%g178504178521%_ _%g178505178524%_)))) - (_%g178504178521%_ _%g178505178524%_)))) - (_%g178504178521%_ _%g178505178524%_))))) - (_%g178503178714%_ _%stx178502%_)))) + _%hd179500179530%_ + _%hd179497179522%_) + (_%g179489179506%_ + _%g179490179509%_)))) + (_%g179489179506%_ _%g179490179509%_)))) + (_%g179489179506%_ _%g179490179509%_)))) + (_%g179489179506%_ _%g179490179509%_))))) + (_%g179488179699%_ _%stx179487%_)))) (define gxc#push-match-vars-if% - (lambda (_%self178417%_ _%stx178418%_) - (let* ((_%g178420178441%_ - (lambda (_%g178421178438%_) + (lambda (_%self179402%_ _%stx179403%_) + (let* ((_%g179405179426%_ + (lambda (_%g179406179423%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178421178438%_)))) - (_%g178419178498%_ - (lambda (_%g178421178444%_) + _%g179406179423%_)))) + (_%g179404179483%_ + (lambda (_%g179406179429%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178421178444%_)) - (let ((_%e178425178446%_ + (gx#stx-pair? _%g179406179429%_)) + (let ((_%e179410179431%_ (let () (declare (not safe)) - (gx#stx-e _%g178421178444%_)))) - (let ((_%hd178426178449%_ + (gx#stx-e _%g179406179429%_)))) + (let ((_%hd179411179434%_ (let () (declare (not safe)) - (##car _%e178425178446%_))) - (_%tl178427178451%_ + (##car _%e179410179431%_))) + (_%tl179412179436%_ (let () (declare (not safe)) - (##cdr _%e178425178446%_)))) + (##cdr _%e179410179431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178427178451%_)) - (let ((_%e178428178454%_ + (gx#stx-pair? _%tl179412179436%_)) + (let ((_%e179413179439%_ (let () (declare (not safe)) - (gx#stx-e _%tl178427178451%_)))) - (let ((_%hd178429178457%_ + (gx#stx-e _%tl179412179436%_)))) + (let ((_%hd179414179442%_ (let () (declare (not safe)) - (##car _%e178428178454%_))) - (_%tl178430178459%_ + (##car _%e179413179439%_))) + (_%tl179415179444%_ (let () (declare (not safe)) - (##cdr _%e178428178454%_)))) + (##cdr _%e179413179439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178430178459%_)) - (let ((_%e178431178462%_ + (gx#stx-pair? _%tl179415179444%_)) + (let ((_%e179416179447%_ (let () (declare (not safe)) - (gx#stx-e _%tl178430178459%_)))) - (let ((_%hd178432178465%_ + (gx#stx-e _%tl179415179444%_)))) + (let ((_%hd179417179450%_ (let () (declare (not safe)) - (##car _%e178431178462%_))) - (_%tl178433178467%_ + (##car _%e179416179447%_))) + (_%tl179418179452%_ (let () (declare (not safe)) - (##cdr _%e178431178462%_)))) + (##cdr _%e179416179447%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178433178467%_)) - (let ((_%e178434178470%_ + _%tl179418179452%_)) + (let ((_%e179419179455%_ (let () (declare (not safe)) (gx#stx-e - _%tl178433178467%_)))) - (let ((_%hd178435178473%_ + _%tl179418179452%_)))) + (let ((_%hd179420179458%_ (let () (declare (not safe)) - (##car _%e178434178470%_))) - (_%tl178436178475%_ + (##car _%e179419179455%_))) + (_%tl179421179460%_ (let () (declare (not safe)) - (##cdr _%e178434178470%_)))) + (##cdr _%e179419179455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178436178475%_)) - ((lambda (_%L178478%_ - _%L178479%_ - _%L178480%_) - (if (let ((__tmp192648 + _%tl179421179460%_)) + ((lambda (_%L179463%_ + _%L179464%_ + _%L179465%_) + (if (let ((__tmp193633 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self178417%_ 'vars))))) + (slot-ref__0 _%self179402%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192648 - _%L178480%_)) - (gxc#push-match-vars-stop _%self178417%_ _%stx178418%_) - (let ((__tmp192649 + __tmp193633 + _%L179465%_)) + (gxc#push-match-vars-stop _%self179402%_ _%stx179403%_) + (let ((__tmp193634 (cons '%#if - (cons _%L178480%_ + (cons _%L179465%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178417%_ - _%L178479%_)) + _%self179402%_ + _%L179464%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178417%_ - _%L178478%_)) + _%self179402%_ + _%L179463%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192649 _%stx178418%_)))) - _%hd178435178473%_ - _%hd178432178465%_ - _%hd178429178457%_) - (_%g178420178441%_ _%g178421178444%_)))) + (gxc#xform-wrap-source __tmp193634 _%stx179403%_)))) + _%hd179420179458%_ + _%hd179417179450%_ + _%hd179414179442%_) + (_%g179405179426%_ _%g179406179429%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178420178441%_ - _%g178421178444%_)))) - (_%g178420178441%_ _%g178421178444%_)))) - (_%g178420178441%_ _%g178421178444%_)))) - (_%g178420178441%_ _%g178421178444%_))))) - (_%g178419178498%_ _%stx178418%_)))) + (_%g179405179426%_ + _%g179406179429%_)))) + (_%g179405179426%_ _%g179406179429%_)))) + (_%g179405179426%_ _%g179406179429%_)))) + (_%g179405179426%_ _%g179406179429%_))))) + (_%g179404179483%_ _%stx179403%_)))) (define gxc#push-match-vars-call% - (lambda (_%self178339%_ _%stx178340%_) - (let* ((_%g178342178361%_ - (lambda (_%g178343178358%_) + (lambda (_%self179324%_ _%stx179325%_) + (let* ((_%g179327179346%_ + (lambda (_%g179328179343%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178343178358%_)))) - (_%g178341178414%_ - (lambda (_%g178343178364%_) + _%g179328179343%_)))) + (_%g179326179399%_ + (lambda (_%g179328179349%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178343178364%_)) - (let ((_%e178345178366%_ + (gx#stx-pair? _%g179328179349%_)) + (let ((_%e179330179351%_ (let () (declare (not safe)) - (gx#stx-e _%g178343178364%_)))) - (let ((_%hd178346178369%_ + (gx#stx-e _%g179328179349%_)))) + (let ((_%hd179331179354%_ (let () (declare (not safe)) - (##car _%e178345178366%_))) - (_%tl178347178371%_ + (##car _%e179330179351%_))) + (_%tl179332179356%_ (let () (declare (not safe)) - (##cdr _%e178345178366%_)))) + (##cdr _%e179330179351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178347178371%_)) - (let ((_%e178348178374%_ + (gx#stx-pair? _%tl179332179356%_)) + (let ((_%e179333179359%_ (let () (declare (not safe)) - (gx#stx-e _%tl178347178371%_)))) - (let ((_%hd178349178377%_ + (gx#stx-e _%tl179332179356%_)))) + (let ((_%hd179334179362%_ (let () (declare (not safe)) - (##car _%e178348178374%_))) - (_%tl178350178379%_ + (##car _%e179333179359%_))) + (_%tl179335179364%_ (let () (declare (not safe)) - (##cdr _%e178348178374%_)))) + (##cdr _%e179333179359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178349178377%_)) - (let ((_%e178351178382%_ + (gx#stx-pair? _%hd179334179362%_)) + (let ((_%e179336179367%_ (let () (declare (not safe)) - (gx#stx-e _%hd178349178377%_)))) - (let ((_%hd178352178385%_ + (gx#stx-e _%hd179334179362%_)))) + (let ((_%hd179337179370%_ (let () (declare (not safe)) - (##car _%e178351178382%_))) - (_%tl178353178387%_ + (##car _%e179336179367%_))) + (_%tl179338179372%_ (let () (declare (not safe)) - (##cdr _%e178351178382%_)))) + (##cdr _%e179336179367%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178352178385%_)) + _%hd179337179370%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178352178385%_)) + _%hd179337179370%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178353178387%_)) - (let ((_%e178354178390%_ + _%tl179338179372%_)) + (let ((_%e179339179375%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178353178387%_)))) - (let ((_%hd178355178393%_ - (let () (declare (not safe)) (##car _%e178354178390%_))) - (_%tl178356178395%_ + (gx#stx-e _%tl179338179372%_)))) + (let ((_%hd179340179378%_ + (let () (declare (not safe)) (##car _%e179339179375%_))) + (_%tl179341179380%_ (let () (declare (not safe)) - (##cdr _%e178354178390%_)))) + (##cdr _%e179339179375%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178356178395%_)) - ((lambda (_%L178398%_) - (if (and (let ((__tmp192650 + (gx#stx-null? _%tl179341179380%_)) + ((lambda (_%L179383%_) + (if (and (let ((__tmp193635 (let () (declare (not safe)) - (slot-ref__0 _%self178339%_ 'K)))) + (slot-ref__0 _%self179324%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L178398%_ - __tmp192650)) + _%L179383%_ + __tmp193635)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self178339%_ + _%self179324%_ 'vars)))) - (let ((__tmp192651 + (let ((__tmp193636 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self178339%_ + _%self179324%_ 'vars))) - (cons _%stx178340%_ '()))))) + (cons _%stx179325%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192651 - _%stx178340%_)) - _%stx178340%_)) - _%hd178355178393%_) - (_%g178342178361%_ _%g178343178364%_)))) - (_%g178342178361%_ _%g178343178364%_)) + __tmp193636 + _%stx179325%_)) + _%stx179325%_)) + _%hd179340179378%_) + (_%g179327179346%_ _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178342178361%_ - _%g178343178364%_)) - (_%g178342178361%_ - _%g178343178364%_)))) - (_%g178342178361%_ _%g178343178364%_)))) - (_%g178342178361%_ _%g178343178364%_)))) - (_%g178342178361%_ _%g178343178364%_))))) - (_%g178341178414%_ _%stx178340%_)))) + (_%g179327179346%_ + _%g179328179349%_)) + (_%g179327179346%_ + _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_))))) + (_%g179326179399%_ _%stx179325%_)))) (define gxc#push-match-vars-stop - (lambda (_%self178336%_ _%stx178337%_) + (lambda (_%self179321%_ _%stx179322%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self178336%_ 'vars))) - _%stx178337%_ - (let ((__tmp192652 + (slot-ref__0 _%self179321%_ 'vars))) + _%stx179322%_ + (let ((__tmp193637 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self178336%_ 'vars))) - (cons _%stx178337%_ '()))))) + (slot-ref__0 _%self179321%_ 'vars))) + (cons _%stx179322%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192652 _%stx178337%_))))))) + (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 206dd2a5b..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]#_g192654_| + (define |gxc[1]#_g193639_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192656_| + (define |gxc[1]#_g193641_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192658_| + (define |gxc[1]#_g193643_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192660_| + (define |gxc[1]#_g193645_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192662_| + (define |gxc[1]#_g193647_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192664_| + (define |gxc[1]#_g193649_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192666_| + (define |gxc[1]#_g193651_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192668_| + (define |gxc[1]#_g193653_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192670_| + (define |gxc[1]#_g193655_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192672_| + (define |gxc[1]#_g193657_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192674_| + (define |gxc[1]#_g193659_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192676_| + (define |gxc[1]#_g193661_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192677_| + (define |gxc[1]#_g193662_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192679_| + (define |gxc[1]#_g193664_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192680_| + (define |gxc[1]#_g193665_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192682_| + (define |gxc[1]#_g193667_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192683_| + (define |gxc[1]#_g193668_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192685_| + (define |gxc[1]#_g193670_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192686_| + (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 ((__obj192535 + (let ((__obj193520 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192535 + __obj193520 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192535 + __obj193520 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '6 '#f '#f)) - (let ((__tmp192653 (cons |gxc[1]#_g192654_| '()))) + (##unchecked-structure-set! __obj193520 '() '6 '#f '#f)) + (let ((__tmp193638 (cons |gxc[1]#_g193639_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192535 __tmp192653 '3 '#f '#f)) + (##unchecked-structure-set! __obj193520 __tmp193638 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj193520 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj193520 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj193520 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '#f '11 '#f '#f)) - (let ((__tmp192655 |gxc[1]#_g192656_|)) + (##unchecked-structure-set! __obj193520 '#f '11 '#f '#f)) + (let ((__tmp193640 |gxc[1]#_g193641_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192535 __tmp192655 '12 '#f '#f)) - (let ((__tmp192657 |gxc[1]#_g192658_|)) + (##unchecked-structure-set! __obj193520 __tmp193640 '12 '#f '#f)) + (let ((__tmp193642 |gxc[1]#_g193643_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192535 __tmp192657 '13 '#f '#f)) - (let ((__tmp192659 |gxc[1]#_g192660_|)) + (##unchecked-structure-set! __obj193520 __tmp193642 '13 '#f '#f)) + (let ((__tmp193644 |gxc[1]#_g193645_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192535 __tmp192659 '14 '#f '#f)) + (##unchecked-structure-set! __obj193520 __tmp193644 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192535 '() '20 '#f '#f)) - __obj192535)) + (##unchecked-structure-set! __obj193520 '() '20 '#f '#f)) + __obj193520)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj192537 + (let ((__obj193522 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192537 + __obj193522 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192537 + __obj193522 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '6 '#f '#f)) - (let ((__tmp192661 (cons |gxc[1]#_g192662_| '()))) + (##unchecked-structure-set! __obj193522 '() '6 '#f '#f)) + (let ((__tmp193646 (cons |gxc[1]#_g193647_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192537 __tmp192661 '3 '#f '#f)) + (##unchecked-structure-set! __obj193522 __tmp193646 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj193522 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj193522 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj193522 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '#f '11 '#f '#f)) - (let ((__tmp192663 |gxc[1]#_g192664_|)) + (##unchecked-structure-set! __obj193522 '#f '11 '#f '#f)) + (let ((__tmp193648 |gxc[1]#_g193649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192537 __tmp192663 '12 '#f '#f)) - (let ((__tmp192665 |gxc[1]#_g192666_|)) + (##unchecked-structure-set! __obj193522 __tmp193648 '12 '#f '#f)) + (let ((__tmp193650 |gxc[1]#_g193651_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192537 __tmp192665 '13 '#f '#f)) - (let ((__tmp192667 |gxc[1]#_g192668_|)) + (##unchecked-structure-set! __obj193522 __tmp193650 '13 '#f '#f)) + (let ((__tmp193652 |gxc[1]#_g193653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192537 __tmp192667 '14 '#f '#f)) + (##unchecked-structure-set! __obj193522 __tmp193652 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192537 '() '20 '#f '#f)) - __obj192537)) + (##unchecked-structure-set! __obj193522 '() '20 '#f '#f)) + __obj193522)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj192539 + (let ((__obj193524 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192539 + __obj193524 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192539 + __obj193524 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj193524 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj193524 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj193524 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj193524 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj193524 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj193524 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '#f '11 '#f '#f)) - (let ((__tmp192669 |gxc[1]#_g192670_|)) + (##unchecked-structure-set! __obj193524 '#f '11 '#f '#f)) + (let ((__tmp193654 |gxc[1]#_g193655_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192539 __tmp192669 '12 '#f '#f)) - (let ((__tmp192671 |gxc[1]#_g192672_|)) + (##unchecked-structure-set! __obj193524 __tmp193654 '12 '#f '#f)) + (let ((__tmp193656 |gxc[1]#_g193657_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192539 __tmp192671 '13 '#f '#f)) - (let ((__tmp192673 |gxc[1]#_g192674_|)) + (##unchecked-structure-set! __obj193524 __tmp193656 '13 '#f '#f)) + (let ((__tmp193658 |gxc[1]#_g193659_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192539 __tmp192673 '14 '#f '#f)) - (let ((__tmp192675 - (cons (cons 'vars |gxc[1]#_g192676_|) - (cons (cons 'K |gxc[1]#_g192677_|) '())))) + (##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! __obj192539 __tmp192675 '15 '#f '#f)) - (let ((__tmp192678 - (cons (cons 'vars |gxc[1]#_g192679_|) - (cons (cons 'K |gxc[1]#_g192680_|) '())))) + (##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! __obj192539 __tmp192678 '16 '#f '#f)) - (let ((__tmp192681 - (cons (cons 'vars |gxc[1]#_g192682_|) - (cons (cons 'K |gxc[1]#_g192683_|) '())))) + (##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! __obj192539 __tmp192681 '17 '#f '#f)) - (let ((__tmp192684 - (cons (cons 'vars |gxc[1]#_g192685_|) - (cons (cons 'K |gxc[1]#_g192686_|) '())))) + (##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! __obj192539 __tmp192684 '18 '#f '#f)) + (##unchecked-structure-set! __obj193524 __tmp193669 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj193524 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj193524 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192539 '() '20 '#f '#f)) - __obj192539)))) + (##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 e80b987e2..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 1734131748) + (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 ((__tmp152406 (list)) (__tmp152405 (cons (cons 'struct: '#t) '()))) + (let ((__tmp153391 (list)) (__tmp153390 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp152406 + __tmp153391 '(type classes ssxi methods) - __tmp152405 + __tmp153390 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args152377%_ - (apply make-instance gxc#optimizer-info::t _%$args152377%_))) + (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 (_%self149518152362%_) - (let* ((_%self152365%_ _%self149518152362%_) - (_%self152367%_ _%self152365%_)) - (if (let ((__tmp152407 + (lambda (_%self150503153347%_) + (let* ((_%self153350%_ _%self150503153347%_) + (_%self153352%_ _%self153350%_)) + (if (let ((__tmp153392 (let () (declare (not safe)) - (##structure-length _%self152367%_)))) + (##structure-length _%self153352%_)))) (declare (not safe)) - (##fx< '4 __tmp152407)) + (##fx< '4 __tmp153392)) (begin - (let ((__tmp152408 + (let ((__tmp153393 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152367%_ - __tmp152408 + _%self153352%_ + __tmp153393 '1 '#f '#f)) - (let ((__tmp152409 + (let ((__tmp153394 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152367%_ - __tmp152409 + _%self153352%_ + __tmp153394 '2 '#f '#f)) - (let ((__tmp152410 + (let ((__tmp153395 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152367%_ - __tmp152410 + _%self153352%_ + __tmp153395 '3 '#f '#f)) - (let ((__tmp152411 + (let ((__tmp153396 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152367%_ - __tmp152411 + _%self153352%_ + __tmp153396 '4 '#f '#f)) '#!void) - (let ((__tmp152412 + (let ((__tmp153397 (let () (declare (not safe)) - (##vector-length _%self152367%_)))) + (##vector-length _%self153352%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self152367%_ + _%self153352%_ '4 - __tmp152412)))))) + __tmp153397)))))) (let () (declare (not safe)) (__bind-method!__% @@ -152,22 +152,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp152414 (list)) - (__tmp152413 + (let ((__tmp153399 (list)) + (__tmp153398 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp152414 + __tmp153399 '(id) - __tmp152413 + __tmp153398 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args152237%_ - (apply make-instance gxc#!type::t _%$args152237%_))) + (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 ((__tmp152416 (list gxc#!type::t)) - (__tmp152415 (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 - __tmp152416 + __tmp153401 '() - __tmp152415 + __tmp153400 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args152234%_ - (apply make-instance gxc#!abort::t _%$args152234%_))) + (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 ((__tmp152418 (list gxc#!type::t)) - (__tmp152417 (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 - __tmp152418 + __tmp153403 '() - __tmp152417 + __tmp153402 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args152231%_ - (apply make-instance gxc#!alias::t _%$args152231%_))) + (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 ((__tmp152420 (list)) - (__tmp152419 + (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 - __tmp152420 + __tmp153405 '(return effect arguments unchecked origin) - __tmp152419 + __tmp153404 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args152228%_ - (apply make-instance gxc#!signature::t _%$args152228%_))) + (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 ((__tmp152422 (list gxc#!type::t)) - (__tmp152421 + (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 - __tmp152422 + __tmp153407 '(signature) - __tmp152421 + __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 (_%id152207%_ _%signature152208%_) - (if ((lambda (_%$obj152211%_) - (or (not _%$obj152211%_) + (lambda (_%id153192%_ _%signature153193%_) + (if ((lambda (_%$obj153196%_) + (or (not _%$obj153196%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj152211%_ + _%$obj153196%_ 'gxc#!signature::t)))) - _%signature152208%_) - (let ((_%signature152218%_ _%signature152208%_)) - (gxc#__make-!procedure _%id152207%_ _%signature152218%_)) + _%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: - _%signature152208%_) + _%signature153193%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id152193%_ _%signature152195%_) - (let ((_%signature152198%_ _%signature152195%_)) + (lambda (_%id153178%_ _%signature153180%_) + (let ((_%signature153183%_ _%signature153180%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id152193%_ _%signature152198%_)))) + (##structure gxc#!procedure::t _%id153178%_ _%signature153183%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj152162%_ _%signature152163%_) + (lambda (_%$obj153147%_ _%signature153148%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj152162%_ 'gxc#!procedure::t)) - (let ((_%$obj152167%_ _%$obj152162%_)) - (if ((lambda (_%$obj152176%_) - (or (not _%$obj152176%_) + (##structure-instance-of? _%$obj153147%_ 'gxc#!procedure::t)) + (let ((_%$obj153152%_ _%$obj153147%_)) + (if ((lambda (_%$obj153161%_) + (or (not _%$obj153161%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj152176%_ + _%$obj153161%_ 'gxc#!signature::t)))) - _%signature152163%_) - (let ((_%signature152183%_ _%signature152163%_)) + _%signature153148%_) + (let ((_%signature153168%_ _%signature153148%_)) (gxc#__!procedure-signature-set! - _%$obj152167%_ - _%signature152183%_)) + _%$obj153152%_ + _%signature153168%_)) (begin (raise-contract-violation-error '"contract violation" @@ -447,7 +447,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature152163%_) + _%signature153148%_) '#!void))) (begin (raise-contract-violation-error @@ -457,37 +457,37 @@ 'contract: '!procedure? 'value: - _%$obj152162%_) + _%$obj153147%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj152139%_ _%signature152141%_) - (let* ((_%$obj152145%_ _%$obj152139%_) - (_%signature152153%_ _%signature152141%_)) + (lambda (_%$obj153124%_ _%signature153126%_) + (let* ((_%$obj153130%_ _%$obj153124%_) + (_%signature153138%_ _%signature153126%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj152145%_ - _%signature152153%_ + _%$obj153130%_ + _%signature153138%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp152424 (list gxc#!type::t)) - (__tmp152423 (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 - __tmp152424 + __tmp153409 '(class) - __tmp152423 + __tmp153408 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args152136%_ - (apply make-instance gxc#!class-meta::t _%$args152136%_))) + (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 ((__tmp152426 (list gxc#!type::t)) - (__tmp152425 + (let ((__tmp153411 (list gxc#!type::t)) + (__tmp153410 (cons (cons 'struct: '#t) '((equal: super @@ -540,7 +540,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp152426 + __tmp153411 '(super precedence-list slots fields @@ -550,13 +550,13 @@ system? metaclass methods) - __tmp152425 + __tmp153410 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args152133%_ - (apply make-instance gxc#!class::t _%$args152133%_))) + (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 ((__tmp152428 (list gxc#!procedure::t)) - (__tmp152427 (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 - __tmp152428 + __tmp153413 '() - __tmp152427 + __tmp153412 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args152130%_ - (apply make-instance gxc#!predicate::t _%$args152130%_))) + (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 ((__tmp152430 (list gxc#!procedure::t)) - (__tmp152429 (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 - __tmp152430 + __tmp153415 '() - __tmp152429 + __tmp153414 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args152127%_ - (apply make-instance gxc#!constructor::t _%$args152127%_))) + (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 ((__tmp152432 (list gxc#!procedure::t)) - (__tmp152431 (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 - __tmp152432 + __tmp153417 '(slot checked?) - __tmp152431 + __tmp153416 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args152124%_ - (apply make-instance gxc#!accessor::t _%$args152124%_))) + (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 ((__tmp152434 (list gxc#!procedure::t)) - (__tmp152433 (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 - __tmp152434 + __tmp153419 '(slot checked?) - __tmp152433 + __tmp153418 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args152121%_ - (apply make-instance gxc#!mutator::t _%$args152121%_))) + (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 ((__tmp152436 (list gxc#!type::t)) - (__tmp152435 (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 - __tmp152436 + __tmp153421 '(methods) - __tmp152435 + __tmp153420 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args152118%_ - (apply make-instance gxc#!interface::t _%$args152118%_))) + (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 ((__tmp152438 (list gxc#!procedure::t)) - (__tmp152437 + (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 - __tmp152438 + __tmp153423 '(arity dispatch inline inline-typedecl) - __tmp152437 + __tmp153422 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args152115%_ - (apply make-instance gxc#!lambda::t _%$args152115%_))) + (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 ((__tmp152440 (list gxc#!procedure::t)) - (__tmp152439 (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 - __tmp152440 + __tmp153425 '(clauses) - __tmp152439 + __tmp153424 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args152112%_ - (apply make-instance gxc#!case-lambda::t _%$args152112%_))) + (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 ((__tmp152442 (list gxc#!procedure::t)) - (__tmp152441 + (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 - __tmp152442 + __tmp153427 '(table dispatch) - __tmp152441 + __tmp153426 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args152109%_ - (apply make-instance gxc#!kw-lambda::t _%$args152109%_))) + (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 ((__tmp152444 (list gxc#!procedure::t)) - (__tmp152443 (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 - __tmp152444 + __tmp153429 '(keys main) - __tmp152443 + __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 _%$args152106%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args152106%_))) + (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 ((__tmp152445 (list))) + (let ((__tmp153430 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp152445 + __tmp153430 '() '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args152103%_ - (apply make-instance gxc#!primitive::t _%$args152103%_))) + (lambda _%$args153088%_ + (apply make-instance gxc#!primitive::t _%$args153088%_))) (define gxc#!primitive-predicate::t - (let ((__tmp152447 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp152446 (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 - __tmp152447 + __tmp153432 '() - __tmp152446 + __tmp153431 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args152100%_ - (apply make-instance gxc#!primitive-predicate::t _%$args152100%_))) + (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 ((__tmp152449 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp152448 (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 - __tmp152449 + __tmp153434 '() - __tmp152448 + __tmp153433 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args152097%_ - (apply make-instance gxc#!primitive-lambda::t _%$args152097%_))) + (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 ((__tmp152451 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp152450 (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 - __tmp152451 + __tmp153436 '() - __tmp152450 + __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 _%$args152094%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args152094%_))) + (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 (_%self149519152079%_) - (let* ((_%self152082%_ _%self149519152079%_) - (_%self152084%_ _%self152082%_)) + (lambda (_%self150504153064%_) + (let* ((_%self153067%_ _%self150504153064%_) + (_%self153069%_ _%self153067%_)) (declare (not safe)) - (##unchecked-structure-set! _%self152084%_ '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 (_%self149520151941%_ _%klass151943%_) - (let* ((_%self151945%_ _%self149520151941%_) - (_%self151947%_ _%self151945%_)) + (lambda (_%self150505152926%_ _%klass152928%_) + (let* ((_%self152930%_ _%self150505152926%_) + (_%self152932%_ _%self152930%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self151947%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self152932%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151947%_ - _%klass151943%_ + _%self152932%_ + _%klass152928%_ '2 '#f '#f))))) @@ -1707,592 +1707,592 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self149521151629%_ - _%id151631%_ - _%super151632%_ - _%slots151633%_ - _%ctor-method151634%_ - _%struct?151635%_ - _%final?151636%_ - _%system?151637%_ - _%metaclass151638%_) - (let* ((_%self151640%_ _%self149521151629%_) - (_%self151642%_ _%self151640%_)) - (let _%lp151652%_ ((_%rest151654%_ _%super151632%_)) - (let* ((_%rest151655151663%_ _%rest151654%_) - (_%else151657151671%_ (lambda () '#!void)) - (_%K151659151677%_ - (lambda (_%rest151674%_ _%super-id151675%_) - (if (let ((__tmp152452 + (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 _%id151631%_ '())) - _%super-id151675%_))) + (cons '!class (cons _%id152616%_ '())) + _%super-id152660%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152452 '8 '#f '#f)) - (let ((__tmp152453 - (cons '!class (cons _%id151631%_ '())))) + (##unchecked-structure-ref __tmp153437 '8 '#f '#f)) + (let ((__tmp153438 + (cons '!class (cons _%id152616%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp152453 - _%super-id151675%_)) + __tmp153438 + _%super-id152660%_)) '#!void) - (_%lp151652%_ _%rest151674%_)))) - (if (pair? _%rest151655151663%_) - (let ((_%hd151660151680%_ + (_%lp152637%_ _%rest152659%_)))) + (if (pair? _%rest152640152648%_) + (let ((_%hd152645152665%_ (let () (declare (not safe)) - (##car _%rest151655151663%_))) - (_%tl151661151682%_ + (##car _%rest152640152648%_))) + (_%tl152646152667%_ (let () (declare (not safe)) - (##cdr _%rest151655151663%_)))) - (let* ((_%super-id151685%_ _%hd151660151680%_) - (_%rest151687%_ _%tl151661151682%_)) - (_%K151659151677%_ _%rest151687%_ _%super-id151685%_))) + (##cdr _%rest152640152648%_)))) + (let* ((_%super-id152670%_ _%hd152645152665%_) + (_%rest152672%_ _%tl152646152667%_)) + (_%K152644152662%_ _%rest152672%_ _%super-id152670%_))) '#!void))) - (let* ((_%ctor-method151738%_ - (let ((_%$e151689%_ _%ctor-method151634%_)) - (if _%$e151689%_ - _%$e151689%_ - (let _%lp151692%_ ((_%rest151694%_ _%super151632%_) - (_%method151695%_ '#f)) - (let* ((_%rest151696151704%_ _%rest151694%_) - (_%else151698151712%_ - (lambda () _%method151695%_)) - (_%K151700151726%_ - (lambda (_%rest151715%_ _%super-id151716%_) - (let* ((_%klass151718%_ + (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 _%id151631%_ '())) - _%super-id151716%_)) - (_%$e151720%_ + (cons _%id152616%_ '())) + _%super-id152701%_)) + (_%$e152705%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151718%_ + _%klass152703%_ '6 '#f '#f)))) - (if _%$e151720%_ - ((lambda (_%ctor-method151723%_) - (if _%method151695%_ - (if (eq? _%ctor-method151723%_ - _%method151695%_) - (_%lp151692%_ - _%rest151715%_ - _%ctor-method151723%_) - (let ((__tmp152454 + (if _%$e152705%_ + ((lambda (_%ctor-method152708%_) + (if _%method152680%_ + (if (eq? _%ctor-method152708%_ + _%method152680%_) + (_%lp152677%_ + _%rest152700%_ + _%ctor-method152708%_) + (let ((__tmp153439 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id151631%_ '())))) + (cons _%id152616%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp152454 - _%method151695%_ - _%ctor-method151723%_))) + __tmp153439 + _%method152680%_ + _%ctor-method152708%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp151692%_ - _%rest151715%_ - _%ctor-method151723%_))) - _%$e151720%_) - (_%lp151692%_ - _%rest151715%_ - _%method151695%_)))))) - (if (pair? _%rest151696151704%_) - (let ((_%hd151701151729%_ + (_%lp152677%_ + _%rest152700%_ + _%ctor-method152708%_))) + _%$e152705%_) + (_%lp152677%_ + _%rest152700%_ + _%method152680%_)))))) + (if (pair? _%rest152681152689%_) + (let ((_%hd152686152714%_ (let () (declare (not safe)) - (##car _%rest151696151704%_))) - (_%tl151702151731%_ + (##car _%rest152681152689%_))) + (_%tl152687152716%_ (let () (declare (not safe)) - (##cdr _%rest151696151704%_)))) - (let* ((_%super-id151734%_ - _%hd151701151729%_) - (_%rest151736%_ _%tl151702151731%_)) - (_%K151700151726%_ - _%rest151736%_ - _%super-id151734%_))) - (_%else151698151712%_))))))) - (_g152455_ - (let ((__tmp152459 - (lambda (_%klass-id151740%_) - (cons _%klass-id151740%_ - (let ((__tmp152460 + (##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 _%id151631%_ '())) - _%klass-id151740%_))) + (cons '!class (cons _%id152616%_ '())) + _%klass-id152725%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152460 + __tmp153445 '3 '#f '#f))))) - (__tmp152457 - (lambda (_%klass-id151742%_) - (let ((__tmp152458 + (__tmp153442 + (lambda (_%klass-id152727%_) + (let ((__tmp153443 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151631%_ '())) - _%klass-id151742%_))) + (cons '!class (cons _%id152616%_ '())) + _%klass-id152727%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152458 + __tmp153443 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp152459 - __tmp152457 + __tmp153444 + __tmp153442 eq? identity '() - _%super151632%_)))) + _%super152617%_)))) (begin - (let ((_g152456_ + (let ((_g153441_ (let () (declare (not safe)) - (if (##values? _g152455_) - (##values-length _g152455_) + (if (##values? _g153440_) + (##values-length _g153440_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g152456_ 2))) - (error "Context expects 2 values" _g152456_))) - (let ((_%precedence-list151744%_ - (let () (declare (not safe)) (##values-ref _g152455_ 0))) - (_%base-struct151745%_ - (let () (declare (not safe)) (##values-ref _g152455_ 1)))) - (let* ((_%precedence-list151789%_ + (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 _%id151631%_ '(t object class))) - _%precedence-list151744%_ - (if (memq 'object::t _%precedence-list151744%_) - _%precedence-list151744%_ - (if _%system?151637%_ - (if (memq 't::t _%precedence-list151744%_) - _%precedence-list151744%_ + (##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-list151744%_ + _%precedence-list152729%_ '(t::t)))) - (let _%loop151751%_ ((_%tail151753%_ - _%precedence-list151744%_) - (_%head151754%_ '())) - (let* ((_%tail151755151763%_ - _%tail151753%_) - (_%else151757151771%_ + (let _%loop152736%_ ((_%tail152738%_ + _%precedence-list152729%_) + (_%head152739%_ '())) + (let* ((_%tail152740152748%_ + _%tail152738%_) + (_%else152742152756%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head151754%_)))) - (_%K151759151777%_ - (lambda (_%rest151774%_ - _%hd151775%_) - (if (eq? _%hd151775%_ 't::t) - (let ((__tmp152461 + _%head152739%_)))) + (_%K152744152762%_ + (lambda (_%rest152759%_ + _%hd152760%_) + (if (eq? _%hd152760%_ 't::t) + (let ((__tmp153446 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail151753%_))) + _%tail152738%_))) (declare (not safe)) - (__foldl1 cons __tmp152461 _%head151754%_)) + (__foldl1 cons __tmp153446 _%head152739%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151751%_ - _%rest151774%_ - (cons _%hd151775%_ - _%head151754%_)))))) - (if (pair? _%tail151755151763%_) - (let ((_%hd151760151780%_ + (_%loop152736%_ + _%rest152759%_ + (cons _%hd152760%_ + _%head152739%_)))))) + (if (pair? _%tail152740152748%_) + (let ((_%hd152745152765%_ (let () (declare (not safe)) - (##car _%tail151755151763%_))) - (_%tl151761151782%_ + (##car _%tail152740152748%_))) + (_%tl152746152767%_ (let () (declare (not safe)) - (##cdr _%tail151755151763%_)))) - (let* ((_%hd151785%_ - _%hd151760151780%_) - (_%rest151787%_ - _%tl151761151782%_)) - (_%K151759151777%_ - _%rest151787%_ - _%hd151785%_))) - (_%else151757151771%_)))))))) - (_%fields151791%_ + (##cdr _%tail152740152748%_)))) + (let* ((_%hd152770%_ + _%hd152745152765%_) + (_%rest152772%_ + _%tl152746152767%_)) + (_%K152744152762%_ + _%rest152772%_ + _%hd152770%_))) + (_%else152742152756%_)))))))) + (_%fields152776%_ (gxc#compute-class-fields - (cons '!class (cons _%id151631%_ '())) - _%base-struct151745%_ - _%precedence-list151789%_ - _%slots151633%_))) + (cons '!class (cons _%id152616%_ '())) + _%base-struct152730%_ + _%precedence-list152774%_ + _%slots152618%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%id151631%_ + _%self152627%_ + _%id152616%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%super151632%_ + _%self152627%_ + _%super152617%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%precedence-list151789%_ + _%self152627%_ + _%precedence-list152774%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%slots151633%_ + _%self152627%_ + _%slots152618%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%fields151791%_ + _%self152627%_ + _%fields152776%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%ctor-method151738%_ + _%self152627%_ + _%ctor-method152723%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%struct?151635%_ + _%self152627%_ + _%struct?152620%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%final?151636%_ + _%self152627%_ + _%final?152621%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151642%_ - _%metaclass151638%_ + _%self152627%_ + _%metaclass152623%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self149522151794%_ - _%id151796%_ - _%super151797%_ - _%precedence-list151798%_ - _%slots151799%_ - _%fields151800%_ - _%constructor151801%_ - _%struct?151802%_ - _%final?151803%_ - _%system?151804%_ - _%metaclass151805%_ - _%methods151806%_) - (let* ((_%self151808%_ _%self149522151794%_) - (_%self151810%_ _%self151808%_)) + (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! - _%self151810%_ - _%id151796%_ + _%self152795%_ + _%id152781%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%super151797%_ + _%self152795%_ + _%super152782%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%precedence-list151798%_ + _%self152795%_ + _%precedence-list152783%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%slots151799%_ + _%self152795%_ + _%slots152784%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%fields151800%_ + _%self152795%_ + _%fields152785%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%constructor151801%_ + _%self152795%_ + _%constructor152786%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%struct?151802%_ + _%self152795%_ + _%struct?152787%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%final?151803%_ + _%self152795%_ + _%final?152788%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - _%metaclass151805%_ + _%self152795%_ + _%metaclass152790%_ '10 '#f '#f)) - (if _%methods151806%_ - (let ((__tmp152462 + (if _%methods152791%_ + (let ((__tmp153447 (let () (declare (not safe)) - (list->hash-table-eq _%methods151806%_)))) + (list->hash-table-eq _%methods152791%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self151810%_ - __tmp152462 + _%self152795%_ + __tmp153447 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g152464_ - (let ((_g152463_ (let () (declare (not safe)) (##length _g152464_)))) - (cond ((let () (declare (not safe)) (##fx= _g152463_ 9)) - (apply gxc#!class:::init!__0 _g152464_)) - ((let () (declare (not safe)) (##fx= _g152463_ 12)) - (apply gxc#!class:::init!__1 _g152464_)) + (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! - _g152464_)))))) + _g153449_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where151481%_ - _%base-struct151482%_ - _%precedence-list151483%_ - _%direct-slots151484%_) - (let* ((_%base-fields151486%_ - (if _%base-struct151482%_ - (let ((__tmp152465 + (lambda (_%where152466%_ + _%base-struct152467%_ + _%precedence-list152468%_ + _%direct-slots152469%_) + (let* ((_%base-fields152471%_ + (if _%base-struct152467%_ + (let ((__tmp153450 (gxc#optimizer-resolve-class - _%where151481%_ - _%base-struct151482%_))) + _%where152466%_ + _%base-struct152467%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152465 '5 '#f '#f)) + (##unchecked-structure-ref __tmp153450 '5 '#f '#f)) '())) - (_%r-fields151488%_ (reverse _%base-fields151486%_)) - (_%seen-slots151496%_ - (let ((_%tab151490%_ + (_%r-fields152473%_ (reverse _%base-fields152471%_)) + (_%seen-slots152481%_ + (let ((_%tab152475%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g151491151493%_) + (lambda (_%g152476152478%_) (let () (declare (not safe)) - (__hash-put! _%tab151490%_ _%g151491151493%_ '#t))) - _%base-fields151486%_) - _%tab151490%_)) - (_%process-slot151500%_ - (lambda (_%slot151498%_) + (__hash-put! _%tab152475%_ _%g152476152478%_ '#t))) + _%base-fields152471%_) + _%tab152475%_)) + (_%process-slot152485%_ + (lambda (_%slot152483%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots151496%_ _%slot151498%_)) + (__hash-get _%seen-slots152481%_ _%slot152483%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots151496%_ - _%slot151498%_ + _%seen-slots152481%_ + _%slot152483%_ '#t)) - (set! _%r-fields151488%_ - (cons _%slot151498%_ _%r-fields151488%_))))))) + (set! _%r-fields152473%_ + (cons _%slot152483%_ _%r-fields152473%_))))))) (for-each - (lambda (_%mixin151503%_) - (let ((_%klass151505%_ + (lambda (_%mixin152488%_) + (let ((_%klass152490%_ (gxc#optimizer-resolve-class - _%where151481%_ - _%mixin151503%_))) + _%where152466%_ + _%mixin152488%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass151505%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass152490%_ '7 '#f '#f)) '#!void (for-each - _%process-slot151500%_ + _%process-slot152485%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151505%_ + _%klass152490%_ '5 '#f '#f)))))) - _%precedence-list151483%_) - (for-each _%process-slot151500%_ _%direct-slots151484%_) - (let () (declare (not safe)) (##reverse _%r-fields151488%_))))) + _%precedence-list152468%_) + (for-each _%process-slot152485%_ _%direct-slots152469%_) + (let () (declare (not safe)) (##reverse _%r-fields152473%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass151440%_ _%slot151441%_) - (let _%lp151443%_ ((_%rest151445%_ + (lambda (_%klass152425%_ _%slot152426%_) + (let _%lp152428%_ ((_%rest152430%_ (##structure-ref - _%klass151440%_ + _%klass152425%_ '5 gxc#!class::t '#f)) - (_%offset151446%_ '1)) - (let* ((_%rest151447151455%_ _%rest151445%_) - (_%else151449151463%_ + (_%offset152431%_ '1)) + (let* ((_%rest152432152440%_ _%rest152430%_) + (_%else152434152448%_ (lambda () - (let ((__tmp152467 + (let ((__tmp153452 (##structure-ref - _%klass151440%_ + _%klass152425%_ '1 gxc#!type::t '#f)) - (__tmp152466 + (__tmp153451 (##structure-ref - _%klass151440%_ + _%klass152425%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp152467 - __tmp152466 - _%slot151441%_)))) - (_%K151451151469%_ - (lambda (_%rest151466%_ _%s151467%_) - (if (eq? _%s151467%_ _%slot151441%_) - _%offset151446%_ - (_%lp151443%_ - _%rest151466%_ + __tmp153452 + __tmp153451 + _%slot152426%_)))) + (_%K152436152454%_ + (lambda (_%rest152451%_ _%s152452%_) + (if (eq? _%s152452%_ _%slot152426%_) + _%offset152431%_ + (_%lp152428%_ + _%rest152451%_ (let () (declare (not safe)) - (##fx+ _%offset151446%_ '1))))))) - (if (pair? _%rest151447151455%_) - (let ((_%hd151452151472%_ + (##fx+ _%offset152431%_ '1))))))) + (if (pair? _%rest152432152440%_) + (let ((_%hd152437152457%_ (let () (declare (not safe)) - (##car _%rest151447151455%_))) - (_%tl151453151474%_ + (##car _%rest152432152440%_))) + (_%tl152438152459%_ (let () (declare (not safe)) - (##cdr _%rest151447151455%_)))) - (let* ((_%s151477%_ _%hd151452151472%_) - (_%rest151479%_ _%tl151453151474%_)) - (_%K151451151469%_ _%rest151479%_ _%s151477%_))) - (_%else151449151463%_)))))) + (##cdr _%rest152432152440%_)))) + (let* ((_%s152462%_ _%hd152437152457%_) + (_%rest152464%_ _%tl152438152459%_)) + (_%K152436152454%_ _%rest152464%_ _%s152462%_))) + (_%else152434152448%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass151398%_ _%slot151399%_) - (if (gxc#!class-struct-slot? _%klass151398%_ _%slot151399%_) - _%klass151398%_ - (let _%lp151401%_ ((_%rest151403%_ + (lambda (_%klass152383%_ _%slot152384%_) + (if (gxc#!class-struct-slot? _%klass152383%_ _%slot152384%_) + _%klass152383%_ + (let _%lp152386%_ ((_%rest152388%_ (##structure-ref - _%klass151398%_ + _%klass152383%_ '3 gxc#!class::t '#f))) - (let* ((_%rest151404151412%_ _%rest151403%_) - (_%else151406151420%_ (lambda () '#f)) - (_%K151408151428%_ - (lambda (_%rest151423%_ _%super151424%_) - (let ((_%super-class151426%_ + (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 - _%klass151398%_ + _%klass152383%_ '1 gxc#!type::t '#f) - (cons _%slot151399%_ '()))) - _%super151424%_))) + (cons _%slot152384%_ '()))) + _%super152409%_))) (if (gxc#!class-struct-slot? - _%super-class151426%_ - _%slot151399%_) - _%super-class151426%_ - (_%lp151401%_ _%rest151423%_)))))) - (if (pair? _%rest151404151412%_) - (let ((_%hd151409151431%_ + _%super-class152411%_ + _%slot152384%_) + _%super-class152411%_ + (_%lp152386%_ _%rest152408%_)))))) + (if (pair? _%rest152389152397%_) + (let ((_%hd152394152416%_ (let () (declare (not safe)) - (##car _%rest151404151412%_))) - (_%tl151410151433%_ + (##car _%rest152389152397%_))) + (_%tl152395152418%_ (let () (declare (not safe)) - (##cdr _%rest151404151412%_)))) - (let* ((_%super151436%_ _%hd151409151431%_) - (_%rest151438%_ _%tl151410151433%_)) - (_%K151408151428%_ _%rest151438%_ _%super151436%_))) - (_%else151406151420%_))))))) + (##cdr _%rest152389152397%_)))) + (let* ((_%super152421%_ _%hd152394152416%_) + (_%rest152423%_ _%tl152395152418%_)) + (_%K152393152413%_ _%rest152423%_ _%super152421%_))) + (_%else152391152405%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass151395%_ _%slot151396%_) - (if (##structure-ref _%klass151395%_ '7 gxc#!class::t '#f) - (memq _%slot151396%_ - (##structure-ref _%klass151395%_ '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 (_%self149523151379%_ _%id151381%_) - (let* ((_%self151383%_ _%self149523151379%_) - (_%self151385%_ _%self151383%_)) + (lambda (_%self150508152364%_ _%id152366%_) + (let* ((_%self152368%_ _%self150508152364%_) + (_%self152370%_ _%self152368%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151385%_ - _%id151381%_ + _%self152370%_ + _%id152366%_ '1 '#f '#f)) - (let ((__tmp152468 - (let ((__obj152400 + (let ((__tmp153453 + (let ((__obj153385 (let () (declare (not safe)) (##structure @@ -2305,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152400 + __obj153385 'boolean::t '1 '#f @@ -2313,7 +2313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152400 + __obj153385 '(pure predicate) '2 '#f @@ -2321,16 +2321,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152400 + __obj153385 '(t::t) '3 '#f '#f)) - __obj152400))) + __obj153385))) (declare (not safe)) (##unchecked-structure-set! - _%self151385%_ - __tmp152468 + _%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 (_%self149524151241%_ _%id151243%_) - (let* ((_%self151245%_ _%self149524151241%_) - (_%self151247%_ _%self151245%_)) + (lambda (_%self150509152226%_ _%id152228%_) + (let* ((_%self152230%_ _%self150509152226%_) + (_%self152232%_ _%self152230%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151247%_ - _%id151243%_ + _%self152232%_ + _%id152228%_ '1 '#f '#f)) - (let ((__tmp152469 - (let ((__obj152401 + (let ((__tmp153454 + (let ((__obj153386 (let () (declare (not safe)) (##structure @@ -2363,24 +2363,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152401 - _%id151243%_ + __obj153386 + _%id152228%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152401 + __obj153386 '(alloc) '2 '#f '#f)) - __obj152401))) + __obj153386))) (declare (not safe)) (##unchecked-structure-set! - _%self151247%_ - __tmp152469 + _%self152232%_ + __tmp153454 '2 '#f '#f))))) @@ -2392,38 +2392,38 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self149525151101%_ - _%id151103%_ - _%slot151104%_ - _%checked?151105%_) - (let* ((_%self151107%_ _%self149525151101%_) - (_%self151109%_ _%self151107%_)) + (lambda (_%self150510152086%_ + _%id152088%_ + _%slot152089%_ + _%checked?152090%_) + (let* ((_%self152092%_ _%self150510152086%_) + (_%self152094%_ _%self152092%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151109%_ - _%id151103%_ + _%self152094%_ + _%id152088%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151109%_ - _%slot151104%_ + _%self152094%_ + _%slot152089%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151109%_ - _%checked?151105%_ + _%self152094%_ + _%checked?152090%_ '4 '#f '#f)) - (let ((__tmp152470 - (let ((__obj152402 + (let ((__tmp153455 + (let ((__obj153387 (let () (declare (not safe)) (##structure @@ -2435,28 +2435,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152402 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj153387 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152402 + __obj153387 '(pure) '2 '#f '#f)) - (let ((__tmp152471 (cons _%id151103%_ '()))) + (let ((__tmp153456 (cons _%id152088%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj152402 - __tmp152471 + __obj153387 + __tmp153456 '3 '#f '#f)) - __obj152402))) + __obj153387))) (declare (not safe)) (##unchecked-structure-set! - _%self151109%_ - __tmp152470 + _%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 (_%self149526150961%_ - _%id150963%_ - _%slot150964%_ - _%checked?150965%_) - (let* ((_%self150967%_ _%self149526150961%_) - (_%self150969%_ _%self150967%_)) + (lambda (_%self150511151946%_ + _%id151948%_ + _%slot151949%_ + _%checked?151950%_) + (let* ((_%self151952%_ _%self150511151946%_) + (_%self151954%_ _%self151952%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150969%_ - _%id150963%_ + _%self151954%_ + _%id151948%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150969%_ - _%slot150964%_ + _%self151954%_ + _%slot151949%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150969%_ - _%checked?150965%_ + _%self151954%_ + _%checked?151950%_ '4 '#f '#f)) - (let ((__tmp152472 - (let ((__obj152403 + (let ((__tmp153457 + (let ((__obj153388 (let () (declare (not safe)) (##structure @@ -2508,7 +2508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152403 + __obj153388 'void::t '1 '#f @@ -2516,24 +2516,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152403 + __obj153388 '(mut) '2 '#f '#f)) - (let ((__tmp152473 (cons _%id150963%_ (cons 't::t '())))) + (let ((__tmp153458 (cons _%id151948%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152403 - __tmp152473 + __obj153388 + __tmp153458 '3 '#f '#f)) - __obj152403))) + __obj153388))) (declare (not safe)) (##unchecked-structure-set! - _%self150969%_ - __tmp152472 + _%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 (_%@@keywords150803%_ - _%signature150800150804%_ - _%self149527150806%_ - _%arity150808%_ - _%dispatch150809%_) - (let* ((_%signature150811%_ - (if (eq? _%signature150800150804%_ absent-value) + (lambda (_%@@keywords151788%_ + _%signature151785151789%_ + _%self150512151791%_ + _%arity151793%_ + _%dispatch151794%_) + (let* ((_%signature151796%_ + (if (eq? _%signature151785151789%_ absent-value) '#f - _%signature150800150804%_)) - (_%self150813%_ _%self149527150806%_) - (_%self150815%_ _%self150813%_)) + _%signature151785151789%_)) + (_%self151798%_ _%self150512151791%_) + (_%self151800%_ _%self151798%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150815%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151800%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150815%_ - _%arity150808%_ + _%self151800%_ + _%arity151793%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150815%_ - _%dispatch150809%_ + _%self151800%_ + _%dispatch151794%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150815%_ - _%signature150811%_ + _%self151800%_ + _%signature151796%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords150829%_ . _%args150830%_) + (lambda (_%@@keywords151814%_ . _%args151815%_) (apply gxc#!lambda:::init!__% - _%@@keywords150829%_ + _%@@keywords151814%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150829%_ + _%@@keywords151814%_ 'signature: absent-value)) - _%args150830%_))) + _%args151815%_))) (define gxc#!lambda:::init! - (lambda _%args150801150836%_ + (lambda _%args151786151821%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args150801150836%_))) + _%args151786151821%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords150642%_ - _%signature150639150643%_ - _%self149528150645%_ - _%clauses150647%_) - (let* ((_%signature150649%_ - (if (eq? _%signature150639150643%_ absent-value) + (lambda (_%@@keywords151627%_ + _%signature151624151628%_ + _%self150513151630%_ + _%clauses151632%_) + (let* ((_%signature151634%_ + (if (eq? _%signature151624151628%_ absent-value) '#f - _%signature150639150643%_)) - (_%self150651%_ _%self149528150645%_) - (_%self150653%_ _%self150651%_)) + _%signature151624151628%_)) + (_%self151636%_ _%self150513151630%_) + (_%self151638%_ _%self151636%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150653%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151638%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150653%_ - _%signature150649%_ + _%self151638%_ + _%signature151634%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150653%_ - _%clauses150647%_ + _%self151638%_ + _%clauses151632%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords150667%_ . _%args150668%_) + (lambda (_%@@keywords151652%_ . _%args151653%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords150667%_ + _%@@keywords151652%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150667%_ + _%@@keywords151652%_ 'signature: absent-value)) - _%args150668%_))) + _%args151653%_))) (define gxc#!case-lambda:::init! - (lambda _%args150640150674%_ + (lambda _%args151625151659%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args150640150674%_))) + _%args151625151659%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2654,25 +2654,25 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self149529150499%_ _%tab150501%_ _%dispatch150502%_) - (let* ((_%self150504%_ _%self149529150499%_) - (_%self150506%_ _%self150504%_)) + (lambda (_%self150514151484%_ _%tab151486%_ _%dispatch151487%_) + (let* ((_%self151489%_ _%self150514151484%_) + (_%self151491%_ _%self151489%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150506%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151491%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150506%_ - _%tab150501%_ + _%self151491%_ + _%tab151486%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150506%_ - _%dispatch150502%_ + _%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 (_%self149530150360%_ _%keys150362%_ _%main150363%_) - (let* ((_%self150365%_ _%self149530150360%_) - (_%self150367%_ _%self150365%_)) + (lambda (_%self150515151345%_ _%keys151347%_ _%main151348%_) + (let* ((_%self151350%_ _%self150515151345%_) + (_%self151352%_ _%self151350%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150367%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151352%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150367%_ - _%keys150362%_ + _%self151352%_ + _%keys151347%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150367%_ - _%main150363%_ + _%self151352%_ + _%main151348%_ '4 '#f '#f))))) @@ -2726,19 +2726,19 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self149531149978%_ _%id149980%_) - (let* ((_%self149982%_ _%self149531149978%_) - (_%self149984%_ _%self149982%_)) + (lambda (_%self150516150963%_ _%id150965%_) + (let* ((_%self150967%_ _%self150516150963%_) + (_%self150969%_ _%self150967%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149984%_ - _%id149980%_ + _%self150969%_ + _%id150965%_ '1 '#f '#f)) - (let ((__tmp152474 - (let ((__obj152404 + (let ((__tmp153459 + (let ((__obj153389 (let () (declare (not safe)) (##structure @@ -2751,7 +2751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152404 + __obj153389 'boolean::t '1 '#f @@ -2759,7 +2759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152404 + __obj153389 '(pure) '2 '#f @@ -2767,16 +2767,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152404 + __obj153389 '(t::t) '3 '#f '#f)) - __obj152404))) + __obj153389))) (declare (not safe)) (##unchecked-structure-set! - _%self149984%_ - __tmp152474 + _%self150969%_ + __tmp153459 '2 '#f '#f))))) @@ -2788,158 +2788,158 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass149847%_) - (let ((_%$e149849%_ - (##structure-ref _%klass149847%_ '11 gxc#!class::t '#f))) - (if _%$e149849%_ - _%$e149849%_ - (let ((_%tab149853%_ + (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! - _%klass149847%_ - _%tab149853%_ + _%klass150832%_ + _%tab150838%_ '11 gxc#!class::t '#f) - _%tab149853%_))))) + _%tab150838%_))))) (define gxc#!class-lookup-method - (lambda (_%klass149838%_ _%method149839%_) - (let ((_%tab149840149842%_ - (##structure-ref _%klass149838%_ '11 gxc#!class::t '#f))) - (if _%tab149840149842%_ - (let ((_%tab149845%_ _%tab149840149842%_)) + (lambda (_%klass150823%_ _%method150824%_) + (let ((_%tab150825150827%_ + (##structure-ref _%klass150823%_ '11 gxc#!class::t '#f))) + (if _%tab150825150827%_ + (let ((_%tab150830%_ _%tab150825150827%_)) (declare (not safe)) - (hash-get _%tab149845%_ _%method149839%_)) + (hash-get _%tab150830%_ _%method150824%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a149826%_ _%type-b149827%_) - (if _%type-a149826%_ - (if _%type-b149827%_ - (let ((_%$e149829%_ (eq? _%type-a149826%_ _%type-b149827%_))) - (if _%$e149829%_ - _%$e149829%_ - (let ((_%$e149832%_ + (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-b149827%_ + _%type-b150812%_ '1 gxc#!type::t '#f) 't))) - (if _%$e149832%_ - _%$e149832%_ - (let ((_%$e149835%_ + (if _%$e150817%_ + _%$e150817%_ + (let ((_%$e150820%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149826%_ + _%type-a150811%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b149827%_ + _%type-b150812%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e149835%_ - _%$e149835%_ + (if _%$e150820%_ + _%$e150820%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149826%_ + _%type-a150811%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b149827%_ + _%type-b150812%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a149826%_ - _%type-b149827%_) + _%type-a150811%_ + _%type-b150812%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a149777%_ _%klass-b149778%_) - (let ((_%$e149780%_ - (eq? (##structure-ref _%klass-a149777%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b149778%_ '1 gxc#!type::t '#f)))) - (if _%$e149780%_ - _%$e149780%_ - (let ((_%klass-id-b149783%_ - (##structure-ref _%klass-b149778%_ '1 gxc#!type::t '#f)) - (_%precedence-list149784%_ - (##structure-ref _%klass-a149777%_ '3 gxc#!class::t '#f))) - (let _%loop149786%_ ((_%rest149788%_ - _%precedence-list149784%_)) - (let* ((_%rest149789149797%_ _%rest149788%_) - (_%else149791149805%_ (lambda () '#f)) - (_%K149793149814%_ - (lambda (_%rest149808%_ _%klass-name149809%_) - (let ((_%$e149811%_ - (eq? (let ((__tmp152475 + (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-a149777%_ - (cons _%klass-b149778%_ + (cons _%klass-a150762%_ + (cons _%klass-b150763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name149809%_))) + _%klass-name150794%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152475 + __tmp153460 '1 '#f '#f)) - _%klass-id-b149783%_))) - (if _%$e149811%_ - _%$e149811%_ - (_%loop149786%_ _%rest149808%_)))))) - (if (pair? _%rest149789149797%_) - (let ((_%hd149794149817%_ + _%klass-id-b150768%_))) + (if _%$e150796%_ + _%$e150796%_ + (_%loop150771%_ _%rest150793%_)))))) + (if (pair? _%rest150774150782%_) + (let ((_%hd150779150802%_ (let () (declare (not safe)) - (##car _%rest149789149797%_))) - (_%tl149795149819%_ + (##car _%rest150774150782%_))) + (_%tl150780150804%_ (let () (declare (not safe)) - (##cdr _%rest149789149797%_)))) - (let* ((_%klass-name149822%_ _%hd149794149817%_) - (_%rest149824%_ _%tl149795149819%_)) - (_%K149793149814%_ - _%rest149824%_ - _%klass-name149822%_))) - (_%else149791149805%_))))))))) + (##cdr _%rest150774150782%_)))) + (let* ((_%klass-name150807%_ _%hd150779150802%_) + (_%rest150809%_ _%tl150780150804%_)) + (_%K150778150799%_ + _%rest150809%_ + _%klass-name150807%_))) + (_%else150776150790%_))))))))) (define gxc#!interface-instance? - (lambda (_%type149775%_) + (lambda (_%type150760%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149775%_ 'gxc#!class::t)) + (##structure-instance-of? _%type150760%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type149775%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type150760%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc149764%_) + (lambda (_%proc150749%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc149764%_ 'gxc#!procedure::t)) - (let ((_%proc149767%_ _%proc149764%_)) + (##structure-instance-of? _%proc150749%_ 'gxc#!procedure::t)) + (let ((_%proc150752%_ _%proc150749%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc149767%_ '2 '#f '#f)) - (let ((__tmp152476 + (##unchecked-structure-ref _%proc150752%_ '2 '#f '#f)) + (let ((__tmp153461 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc149767%_ + _%proc150752%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp152476 '5 '#f '#f)) + (##unchecked-structure-ref __tmp153461 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2949,24 +2949,24 @@ 'contract: '!procedure? 'value: - _%proc149764%_) + _%proc150749%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym149746%_ _%type149747%_ _%local?149748%_) + (lambda (_%sym150731%_ _%type150732%_ _%local?150733%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149747%_ 'gxc#!type::t)) + (##structure-instance-of? _%type150732%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym149746%_ - _%type149747%_))) + _%sym150731%_ + _%type150732%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym149746%_ '" " _%type149747%_)) - (let ((_%table149750%_ - (if _%local?149748%_ + (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! _%table149750%_ _%sym149746%_ _%type149747%_)))) + (hash-put! _%table150735%_ _%sym150731%_ _%type150732%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym149755%_ _%type149756%_) - (let ((_%local?149758%_ '#f)) + (lambda (_%sym150740%_ _%type150741%_) + (let ((_%local?150743%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym149755%_ - _%type149756%_ - _%local?149758%_)))) + _%sym150740%_ + _%type150741%_ + _%local?150743%_)))) (define gxc#optimizer-declare-type! - (lambda _g152478_ - (let ((_g152477_ (let () (declare (not safe)) (##length _g152478_)))) - (cond ((let () (declare (not safe)) (##fx= _g152477_ 2)) - (apply gxc#optimizer-declare-type!__0 _g152478_)) - ((let () (declare (not safe)) (##fx= _g152477_ 3)) - (apply gxc#optimizer-declare-type!__% _g152478_)) + (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! - _g152478_)))))) + _g153463_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym149740%_ _%type149741%_) + (lambda (_%sym150725%_ _%type150726%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149741%_ 'gxc#!class::t)) + (##structure-instance-of? _%type150726%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149740%_ - _%type149741%_))) - (let ((_%table149743%_ + _%sym150725%_ + _%type150726%_))) + (let ((_%table150728%_ (##structure-ref (let () (declare (not safe)) @@ -3016,28 +3016,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp152479 - (let () (declare (not safe)) (struct->list _%type149741%_)))) + (let ((__tmp153464 + (let () (declare (not safe)) (struct->list _%type150726%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym149740%_ '" " __tmp152479)) + (gxc#verbose '"declare-class " _%sym150725%_ '" " __tmp153464)) (let () (declare (not safe)) - (hash-put! _%table149743%_ _%sym149740%_ _%type149741%_)) + (hash-put! _%table150728%_ _%sym150725%_ _%type150726%_)) (let () (declare (not safe)) - (hash-put! _%table149743%_ _%type149741%_ _%sym149740%_))))) + (hash-put! _%table150728%_ _%type150726%_ _%sym150725%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym149735%_ _%type149736%_) + (lambda (_%sym150720%_ _%type150721%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149736%_ 'gxc#!class::t)) + (##structure-instance-of? _%type150721%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149735%_ - _%type149736%_))) - (let ((_%table149738%_ + _%sym150720%_ + _%type150721%_))) + (let ((_%table150723%_ (##structure-ref (let () (declare (not safe)) @@ -3047,38 +3047,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table149738%_ _%sym149735%_)) + (hash-get _%table150723%_ _%sym150720%_)) '#!void (begin - (let ((__tmp152480 + (let ((__tmp153465 (let () (declare (not safe)) - (struct->list _%type149736%_)))) + (struct->list _%type150721%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym149735%_ + _%sym150720%_ '" " - __tmp152480)) + __tmp153465)) (let () (declare (not safe)) - (hash-put! _%table149738%_ _%sym149735%_ _%type149736%_)) + (hash-put! _%table150723%_ _%sym150720%_ _%type150721%_)) (let () (declare (not safe)) (hash-put! - _%table149738%_ - _%type149736%_ - _%sym149735%_))))))) + _%table150723%_ + _%type150721%_ + _%sym150720%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym149733%_) + (lambda (_%sym150718%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym149733%_)) - (let ((__tmp152481 + (gxc#verbose '"clear-type " _%sym150718%_)) + (let ((__tmp153466 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp152481 _%sym149733%_)) - (let ((__tmp152482 + (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! __tmp152482 _%sym149733%_)))) + (hash-remove! __tmp153467 _%sym150718%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t149701%_ - _%method149702%_ - _%sym149703%_ - _%rebind?149704%_) - (let ((__tmp152483 + (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! __tmp152483 _%sym149703%_ '#t)) - (let ((_%klass149706%_ (gxc#optimizer-lookup-class _%type-t149701%_))) - (if _%klass149706%_ - (let* ((_%vtab149708%_ (gxc#!class-method-table _%klass149706%_)) - (_%$e149710%_ + (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 _%vtab149708%_ _%method149702%_)))) - (if _%$e149710%_ - ((lambda (_%existing149713%_) - (if _%rebind?149704%_ + (hash-get _%vtab150693%_ _%method150687%_)))) + (if _%$e150695%_ + ((lambda (_%existing150698%_) + (if _%rebind?150689%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t149701%_ + _%type-t150686%_ '" " - _%method149702%_)) + _%method150687%_)) (let () (declare (not safe)) (hash-put! - _%vtab149708%_ - _%method149702%_ - _%sym149703%_))) - (if (eq? _%existing149713%_ _%sym149703%_) + _%vtab150693%_ + _%method150687%_ + _%sym150688%_))) + (if (eq? _%existing150698%_ _%sym150688%_) '#!void - (let ((__tmp152484 + (let ((__tmp153469 (cons 'bind-method! - (cons _%type-t149701%_ - (cons _%method149702%_ - (cons _%sym149703%_ + (cons _%type-t150686%_ + (cons _%method150687%_ + (cons _%sym150688%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp152484 - _%method149702%_))))) - _%$e149710%_) + __tmp153469 + _%method150687%_))))) + _%$e150695%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t149701%_ + _%type-t150686%_ '" " - _%method149702%_ + _%method150687%_ '" => " - _%sym149703%_)) + _%sym150688%_)) (let () (declare (not safe)) (hash-put! - _%vtab149708%_ - _%method149702%_ - _%sym149703%_))))) + _%vtab150693%_ + _%method150687%_ + _%sym150688%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t149701%_)))))) + _%type-t150686%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t149722%_ _%method149723%_ _%sym149724%_) - (let ((_%rebind?149726%_ '#f)) + (lambda (_%type-t150707%_ _%method150708%_ _%sym150709%_) + (let ((_%rebind?150711%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t149722%_ - _%method149723%_ - _%sym149724%_ - _%rebind?149726%_)))) + _%type-t150707%_ + _%method150708%_ + _%sym150709%_ + _%rebind?150711%_)))) (define gxc#optimizer-declare-method! - (lambda _g152486_ - (let ((_g152485_ (let () (declare (not safe)) (##length _g152486_)))) - (cond ((let () (declare (not safe)) (##fx= _g152485_ 3)) - (apply gxc#optimizer-declare-method!__0 _g152486_)) - ((let () (declare (not safe)) (##fx= _g152485_ 4)) - (apply gxc#optimizer-declare-method!__% _g152486_)) + (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! - _g152486_)))))) + _g153471_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym149686%_) - (let ((_%$e149688%_ - (let ((__tmp152487 + (lambda (_%sym150671%_) + (let ((_%$e150673%_ + (let ((__tmp153472 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym149686%_ __tmp152487)))) - (if _%$e149688%_ - _%$e149688%_ - (let ((_%$e149697%_ - (let ((_%ht149690149692%_ + (agetq__0 _%sym150671%_ __tmp153472)))) + (if _%$e150673%_ + _%$e150673%_ + (let ((_%$e150682%_ + (let ((_%ht150675150677%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht149690149692%_ - (let ((_%ht149695%_ _%ht149690149692%_)) + (if _%ht150675150677%_ + (let ((_%ht150680%_ _%ht150675150677%_)) (declare (not safe)) - (hash-get _%ht149695%_ _%sym149686%_)) + (hash-get _%ht150680%_ _%sym150671%_)) '#f)))) - (if _%$e149697%_ - _%$e149697%_ - (let ((__tmp152488 + (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 __tmp152488 _%sym149686%_)))))))) + (hash-get __tmp153473 _%sym150671%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym149678%_) - (let ((_%type149679149681%_ (gxc#optimizer-lookup-type _%sym149678%_))) - (if _%type149679149681%_ - (let ((_%type149684%_ _%type149679149681%_)) + (lambda (_%sym150663%_) + (let ((_%type150664150666%_ (gxc#optimizer-lookup-type _%sym150663%_))) + (if _%type150664150666%_ + (let ((_%type150669%_ _%type150664150666%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149684%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type150669%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type149684%_ '1 '#f '#f))) - _%type149684%_)) + (##unchecked-structure-ref _%type150669%_ '1 '#f '#f))) + _%type150669%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym149674%_) - (let ((_%table149676%_ + (lambda (_%sym150659%_) + (let ((_%table150661%_ (##structure-ref (let () (declare (not safe)) @@ -3239,34 +3239,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table149676%_ _%sym149674%_)))) + (hash-get _%table150661%_ _%sym150659%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where149659%_ _%sym149660%_) - (let ((_%$e149663%_ (gxc#optimizer-lookup-class _%sym149660%_))) - (if _%$e149663%_ - ((lambda (_%g149665149667%_) - (let ((_%val149670%_ _%g149665149667%_)) + (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? - _%val149670%_ + _%val150655%_ 'gxc#!class::t)) - _%val149670%_ + _%val150655%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val149670%_))))) - _%$e149663%_) + (error '"bad cast" gxc#!class::t _%val150655%_))))) + _%$e150648%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where149659%_ - _%sym149660%_)) + _%where150644%_ + _%sym150645%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass149657%_) - (let ((__tmp152489 + (lambda (_%klass150642%_) + (let ((__tmp153474 (##structure-ref (let () (declare (not safe)) @@ -3275,15 +3275,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152489 _%klass149657%_)))) + (hash-get __tmp153474 _%klass150642%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t149654%_ _%method149655%_) + (lambda (_%type-t150639%_ _%method150640%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t149654%_) - _%method149655%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t150639%_) + _%method150640%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym149652%_) - (let ((__tmp152490 + (lambda (_%sym150637%_) + (let ((__tmp153475 (##structure-ref (let () (declare (not safe)) @@ -3292,59 +3292,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152490 _%sym149652%_)))) + (hash-get __tmp153475 _%sym150637%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e149534%_ - (lambda (_%t149635%_) - (if (symbol? _%t149635%_) - (_%type-e149534%_ - (gxc#optimizer-lookup-type _%t149635%_)) + (letrec ((_%type-e150519%_ + (lambda (_%t150620%_) + (if (symbol? _%t150620%_) + (_%type-e150519%_ + (gxc#optimizer-lookup-type _%t150620%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149635%_ + _%t150620%_ 'gxc#!lambda::t)) - (_%__lambda-type149536%_ _%t149635%_) + (_%__lambda-type150521%_ _%t150620%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149635%_ + _%t150620%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type149538%_ _%t149635%_) + (_%__kw-lambda-type150523%_ _%t150620%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149635%_ + _%t150620%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type149540%_ - _%t149635%_) + (_%__kw-lambda-primary-type150525%_ + _%t150620%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149635%_ + _%t150620%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t149642%_ _%t149635%_)) + (let ((_%t150627%_ _%t150620%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149642%_ + _%t150627%_ '2 '#f '#f)) - (let ((__tmp152491 + (let ((__tmp153476 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149642%_ + _%t150627%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152491 + __tmp153476 '1 '#f '#f)) @@ -3352,31 +3352,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t149635%_ + _%t150620%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t149635%_ + _%t150620%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type149535%_ - (lambda (_%t149623%_) - (let ((_%t149626%_ _%t149623%_)) - (_%__lambda-type149536%_ _%t149626%_)))) - (_%__lambda-type149536%_ - (lambda (_%t149611%_) - (let ((_%t149614%_ _%t149611%_)) + (_%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 _%t149614%_ '4 '#f '#f)) - (_%type-e149534%_ + (##unchecked-structure-ref _%t150599%_ '4 '#f '#f)) + (_%type-e150519%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149614%_ + _%t150599%_ '4 '#f '#f))) @@ -3384,56 +3384,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149614%_ + _%t150599%_ '2 '#f '#f)) - (let ((__tmp152492 + (let ((__tmp153477 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149614%_ + _%t150599%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152492 + __tmp153477 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type149537%_ - (lambda (_%t149599%_) - (let ((_%t149602%_ _%t149599%_)) - (_%__kw-lambda-type149538%_ _%t149602%_)))) - (_%__kw-lambda-type149538%_ - (lambda (_%t149587%_) - (let ((_%t149590%_ _%t149587%_)) - (_%type-e149534%_ + (_%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 - _%t149590%_ + _%t150575%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type149539%_ - (lambda (_%t149575%_) - (let ((_%t149578%_ _%t149575%_)) - (_%__kw-lambda-primary-type149540%_ _%t149578%_)))) - (_%__kw-lambda-primary-type149540%_ - (lambda (_%t149561%_) - (let ((_%t149564%_ _%t149561%_)) - (_%type-e149534%_ + (_%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 - _%t149564%_ + _%t150549%_ '4 '#f '#f))))))) - (let* ((_%ht1149542%_ + (let* ((_%ht1150527%_ (##structure-ref (let () (declare (not safe)) @@ -3441,33 +3441,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2149544%_ + (_%ht2150529%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result149546%_ - (if _%ht1149542%_ - (let () (declare (not safe)) (hash->list _%ht1149542%_)) + (_%result150531%_ + (if _%ht1150527%_ + (let () (declare (not safe)) (hash->list _%ht1150527%_)) '())) - (_%result149548%_ - (if _%ht2149544%_ - (let ((__tmp152493 + (_%result150533%_ + (if _%ht2150529%_ + (let ((__tmp153478 (let () (declare (not safe)) - (hash->list _%ht2149544%_)))) + (hash->list _%ht2150529%_)))) (declare (not safe)) - (__foldl1 cons _%result149546%_ __tmp152493)) - _%result149546%_))) + (__foldl1 cons _%result150531%_ __tmp153478)) + _%result150531%_))) (for-each - (lambda (_%p149551%_) - (let* ((_%t149553%_ (cdr _%p149551%_)) - (_%tr149555%_ (_%type-e149534%_ _%t149553%_))) - (set-cdr! _%p149551%_ _%tr149555%_))) - _%result149548%_) + (lambda (_%p150536%_) + (let* ((_%t150538%_ (cdr _%p150536%_)) + (_%tr150540%_ (_%type-e150519%_ _%t150538%_))) + (set-cdr! _%p150536%_ _%tr150540%_))) + _%result150533%_) (list-sort - (lambda (_%a149558%_ _%b149559%_) - (let ((__tmp152495 (symbol->string (car _%a149558%_))) - (__tmp152494 (symbol->string (car _%b149559%_)))) + (lambda (_%a150543%_ _%b150544%_) + (let ((__tmp153480 (symbol->string (car _%a150543%_))) + (__tmp153479 (symbol->string (car _%b150544%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152386 __tmp152645 '15 '#f '#f)) - (let ((__tmp152657 - (cons (cons 'super |gxc[1]#_g152658_|) - (cons (cons 'precedence-list |gxc[1]#_g152659_|) - (cons (cons 'slots |gxc[1]#_g152660_|) - (cons (cons 'fields |gxc[1]#_g152661_|) + (##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]#_g152662_|) + |gxc[1]#_g153647_|) (cons (cons 'struct? - |gxc[1]#_g152663_|) + |gxc[1]#_g153648_|) (cons (cons 'final? - |gxc[1]#_g152664_|) + |gxc[1]#_g153649_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152665_|) - (cons (cons 'metaclass |gxc[1]#_g152666_|) - (cons (cons 'methods |gxc[1]#_g152667_|) - (cons (cons 'id |gxc[1]#_g152668_|) + |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! __obj152386 __tmp152657 '16 '#f '#f)) - (let ((__tmp152669 - (cons (cons 'super |gxc[1]#_g152670_|) - (cons (cons 'precedence-list |gxc[1]#_g152671_|) - (cons (cons 'slots |gxc[1]#_g152672_|) - (cons (cons 'fields |gxc[1]#_g152673_|) + (##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]#_g152674_|) + |gxc[1]#_g153659_|) (cons (cons 'struct? - |gxc[1]#_g152675_|) + |gxc[1]#_g153660_|) (cons (cons 'final? - |gxc[1]#_g152676_|) + |gxc[1]#_g153661_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152677_|) - (cons (cons 'metaclass |gxc[1]#_g152678_|) - (cons (cons 'methods |gxc[1]#_g152679_|) - (cons (cons 'id |gxc[1]#_g152680_|) + |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! __obj152386 __tmp152669 '17 '#f '#f)) - (let ((__tmp152681 - (cons (cons 'super |gxc[1]#_g152682_|) - (cons (cons 'precedence-list |gxc[1]#_g152683_|) - (cons (cons 'slots |gxc[1]#_g152684_|) - (cons (cons 'fields |gxc[1]#_g152685_|) + (##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]#_g152686_|) + |gxc[1]#_g153671_|) (cons (cons 'struct? - |gxc[1]#_g152687_|) + |gxc[1]#_g153672_|) (cons (cons 'final? - |gxc[1]#_g152688_|) + |gxc[1]#_g153673_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152689_|) - (cons (cons 'metaclass |gxc[1]#_g152690_|) - (cons (cons 'methods |gxc[1]#_g152691_|) - (cons (cons 'id |gxc[1]#_g152692_|) + |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! __obj152386 __tmp152681 '18 '#f '#f)) + (##unchecked-structure-set! __obj153371 __tmp153666 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152386 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153371 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152386 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153371 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152386 '() '20 '#f '#f)) - __obj152386)) + (##unchecked-structure-set! __obj153371 '() '20 '#f '#f)) + __obj153371)) (define |gxc[:0:]#!predicate| - (let ((__obj152387 + (let ((__obj153372 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152387 + __obj153372 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj153372 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153372 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '(id signature) '6 '#f '#f)) - (let ((__tmp152693 (cons |gxc[1]#_g152694_| '()))) + (##unchecked-structure-set! __obj153372 '(id signature) '6 '#f '#f)) + (let ((__tmp153678 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152387 __tmp152693 '3 '#f '#f)) + (##unchecked-structure-set! __obj153372 __tmp153678 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153372 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153372 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153372 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 ':init! '11 '#f '#f)) - (let ((__tmp152695 |gxc[1]#_g152696_|)) + (##unchecked-structure-set! __obj153372 ':init! '11 '#f '#f)) + (let ((__tmp153680 |gxc[1]#_g153681_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152387 __tmp152695 '12 '#f '#f)) - (let ((__tmp152697 |gxc[1]#_g152698_|)) + (##unchecked-structure-set! __obj153372 __tmp153680 '12 '#f '#f)) + (let ((__tmp153682 |gxc[1]#_g153683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152387 __tmp152697 '13 '#f '#f)) - (let ((__tmp152699 |gxc[1]#_g152700_|)) + (##unchecked-structure-set! __obj153372 __tmp153682 '13 '#f '#f)) + (let ((__tmp153684 |gxc[1]#_g153685_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152387 __tmp152699 '14 '#f '#f)) - (let ((__tmp152701 - (cons (cons 'signature |gxc[1]#_g152702_|) - (cons (cons 'id |gxc[1]#_g152703_|) '())))) + (##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! __obj152387 __tmp152701 '15 '#f '#f)) - (let ((__tmp152704 - (cons (cons 'signature |gxc[1]#_g152705_|) - (cons (cons 'id |gxc[1]#_g152706_|) '())))) + (##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! __obj152387 __tmp152704 '16 '#f '#f)) - (let ((__tmp152707 - (cons (cons 'signature |gxc[1]#_g152708_|) - (cons (cons 'id |gxc[1]#_g152709_|) '())))) + (##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! __obj152387 __tmp152707 '17 '#f '#f)) - (let ((__tmp152710 - (cons (cons 'signature |gxc[1]#_g152711_|) - (cons (cons 'id |gxc[1]#_g152712_|) '())))) + (##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! __obj152387 __tmp152710 '18 '#f '#f)) - (let ((__tmp152713 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153372 __tmp153695 '18 '#f '#f)) + (let ((__tmp153698 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152387 __tmp152713 '19 '#f '#f)) + (##unchecked-structure-set! __obj153372 __tmp153698 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153372 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152387 '() '20 '#f '#f)) - __obj152387)) + (##unchecked-structure-set! __obj153372 '() '20 '#f '#f)) + __obj153372)) (define |gxc[:0:]#!constructor| - (let ((__obj152388 + (let ((__obj153373 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152388 + __obj153373 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj153373 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153373 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '(id signature) '6 '#f '#f)) - (let ((__tmp152714 (cons |gxc[1]#_g152694_| '()))) + (##unchecked-structure-set! __obj153373 '(id signature) '6 '#f '#f)) + (let ((__tmp153699 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152388 __tmp152714 '3 '#f '#f)) + (##unchecked-structure-set! __obj153373 __tmp153699 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153373 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153373 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153373 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 ':init! '11 '#f '#f)) - (let ((__tmp152715 |gxc[1]#_g152716_|)) + (##unchecked-structure-set! __obj153373 ':init! '11 '#f '#f)) + (let ((__tmp153700 |gxc[1]#_g153701_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152388 __tmp152715 '12 '#f '#f)) - (let ((__tmp152717 |gxc[1]#_g152718_|)) + (##unchecked-structure-set! __obj153373 __tmp153700 '12 '#f '#f)) + (let ((__tmp153702 |gxc[1]#_g153703_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152388 __tmp152717 '13 '#f '#f)) - (let ((__tmp152719 |gxc[1]#_g152720_|)) + (##unchecked-structure-set! __obj153373 __tmp153702 '13 '#f '#f)) + (let ((__tmp153704 |gxc[1]#_g153705_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152388 __tmp152719 '14 '#f '#f)) - (let ((__tmp152721 - (cons (cons 'signature |gxc[1]#_g152722_|) - (cons (cons 'id |gxc[1]#_g152723_|) '())))) + (##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! __obj152388 __tmp152721 '15 '#f '#f)) - (let ((__tmp152724 - (cons (cons 'signature |gxc[1]#_g152725_|) - (cons (cons 'id |gxc[1]#_g152726_|) '())))) + (##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! __obj152388 __tmp152724 '16 '#f '#f)) - (let ((__tmp152727 - (cons (cons 'signature |gxc[1]#_g152728_|) - (cons (cons 'id |gxc[1]#_g152729_|) '())))) + (##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! __obj152388 __tmp152727 '17 '#f '#f)) - (let ((__tmp152730 - (cons (cons 'signature |gxc[1]#_g152731_|) - (cons (cons 'id |gxc[1]#_g152732_|) '())))) + (##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! __obj152388 __tmp152730 '18 '#f '#f)) - (let ((__tmp152733 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153373 __tmp153715 '18 '#f '#f)) + (let ((__tmp153718 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152388 __tmp152733 '19 '#f '#f)) + (##unchecked-structure-set! __obj153373 __tmp153718 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153373 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152388 '() '20 '#f '#f)) - __obj152388)) + (##unchecked-structure-set! __obj153373 '() '20 '#f '#f)) + __obj153373)) (define |gxc[:0:]#!accessor| - (let ((__obj152389 + (let ((__obj153374 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152389 + __obj153374 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj153374 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj153374 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152389 + __obj153374 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152734 (cons |gxc[1]#_g152694_| '()))) + (let ((__tmp153719 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152389 __tmp152734 '3 '#f '#f)) + (##unchecked-structure-set! __obj153374 __tmp153719 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153374 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153374 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153374 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 ':init! '11 '#f '#f)) - (let ((__tmp152735 |gxc[1]#_g152736_|)) + (##unchecked-structure-set! __obj153374 ':init! '11 '#f '#f)) + (let ((__tmp153720 |gxc[1]#_g153721_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152389 __tmp152735 '12 '#f '#f)) - (let ((__tmp152737 |gxc[1]#_g152738_|)) + (##unchecked-structure-set! __obj153374 __tmp153720 '12 '#f '#f)) + (let ((__tmp153722 |gxc[1]#_g153723_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152389 __tmp152737 '13 '#f '#f)) - (let ((__tmp152739 |gxc[1]#_g152740_|)) + (##unchecked-structure-set! __obj153374 __tmp153722 '13 '#f '#f)) + (let ((__tmp153724 |gxc[1]#_g153725_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152389 __tmp152739 '14 '#f '#f)) - (let ((__tmp152741 - (cons (cons 'slot |gxc[1]#_g152742_|) - (cons (cons 'checked? |gxc[1]#_g152743_|) - (cons (cons 'signature |gxc[1]#_g152744_|) - (cons (cons 'id |gxc[1]#_g152745_|) '())))))) + (##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! __obj152389 __tmp152741 '15 '#f '#f)) - (let ((__tmp152746 - (cons (cons 'slot |gxc[1]#_g152747_|) - (cons (cons 'checked? |gxc[1]#_g152748_|) - (cons (cons 'signature |gxc[1]#_g152749_|) - (cons (cons 'id |gxc[1]#_g152750_|) '())))))) + (##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! __obj152389 __tmp152746 '16 '#f '#f)) - (let ((__tmp152751 - (cons (cons 'slot |gxc[1]#_g152752_|) - (cons (cons 'checked? |gxc[1]#_g152753_|) - (cons (cons 'signature |gxc[1]#_g152754_|) - (cons (cons 'id |gxc[1]#_g152755_|) '())))))) + (##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! __obj152389 __tmp152751 '17 '#f '#f)) - (let ((__tmp152756 - (cons (cons 'slot |gxc[1]#_g152757_|) - (cons (cons 'checked? |gxc[1]#_g152758_|) - (cons (cons 'signature |gxc[1]#_g152759_|) - (cons (cons 'id |gxc[1]#_g152760_|) '())))))) + (##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! __obj152389 __tmp152756 '18 '#f '#f)) - (let ((__tmp152761 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153374 __tmp153741 '18 '#f '#f)) + (let ((__tmp153746 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152389 __tmp152761 '19 '#f '#f)) + (##unchecked-structure-set! __obj153374 __tmp153746 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153374 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152389 '() '20 '#f '#f)) - __obj152389)) + (##unchecked-structure-set! __obj153374 '() '20 '#f '#f)) + __obj153374)) (define |gxc[:0:]#!mutator| - (let ((__obj152390 + (let ((__obj153375 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj153375 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj153375 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj153375 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152390 + __obj153375 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152762 (cons |gxc[1]#_g152694_| '()))) + (let ((__tmp153747 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152390 __tmp152762 '3 '#f '#f)) + (##unchecked-structure-set! __obj153375 __tmp153747 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153375 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153375 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153375 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 ':init! '11 '#f '#f)) - (let ((__tmp152763 |gxc[1]#_g152764_|)) + (##unchecked-structure-set! __obj153375 ':init! '11 '#f '#f)) + (let ((__tmp153748 |gxc[1]#_g153749_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152390 __tmp152763 '12 '#f '#f)) - (let ((__tmp152765 |gxc[1]#_g152766_|)) + (##unchecked-structure-set! __obj153375 __tmp153748 '12 '#f '#f)) + (let ((__tmp153750 |gxc[1]#_g153751_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152390 __tmp152765 '13 '#f '#f)) - (let ((__tmp152767 |gxc[1]#_g152768_|)) + (##unchecked-structure-set! __obj153375 __tmp153750 '13 '#f '#f)) + (let ((__tmp153752 |gxc[1]#_g153753_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152390 __tmp152767 '14 '#f '#f)) - (let ((__tmp152769 - (cons (cons 'slot |gxc[1]#_g152770_|) - (cons (cons 'checked? |gxc[1]#_g152771_|) - (cons (cons 'signature |gxc[1]#_g152772_|) - (cons (cons 'id |gxc[1]#_g152773_|) '())))))) + (##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! __obj152390 __tmp152769 '15 '#f '#f)) - (let ((__tmp152774 - (cons (cons 'slot |gxc[1]#_g152775_|) - (cons (cons 'checked? |gxc[1]#_g152776_|) - (cons (cons 'signature |gxc[1]#_g152777_|) - (cons (cons 'id |gxc[1]#_g152778_|) '())))))) + (##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! __obj152390 __tmp152774 '16 '#f '#f)) - (let ((__tmp152779 - (cons (cons 'slot |gxc[1]#_g152780_|) - (cons (cons 'checked? |gxc[1]#_g152781_|) - (cons (cons 'signature |gxc[1]#_g152782_|) - (cons (cons 'id |gxc[1]#_g152783_|) '())))))) + (##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! __obj152390 __tmp152779 '17 '#f '#f)) - (let ((__tmp152784 - (cons (cons 'slot |gxc[1]#_g152785_|) - (cons (cons 'checked? |gxc[1]#_g152786_|) - (cons (cons 'signature |gxc[1]#_g152787_|) - (cons (cons 'id |gxc[1]#_g152788_|) '())))))) + (##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! __obj152390 __tmp152784 '18 '#f '#f)) - (let ((__tmp152789 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153375 __tmp153769 '18 '#f '#f)) + (let ((__tmp153774 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152390 __tmp152789 '19 '#f '#f)) + (##unchecked-structure-set! __obj153375 __tmp153774 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153375 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152390 '() '20 '#f '#f)) - __obj152390)) + (##unchecked-structure-set! __obj153375 '() '20 '#f '#f)) + __obj153375)) (define |gxc[:0:]#!interface| - (let ((__obj152391 + (let ((__obj153376 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152391 + __obj153376 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj153376 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj153376 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '(id methods) '6 '#f '#f)) - (let ((__tmp152790 (cons |gxc[1]#_g152537_| '()))) + (##unchecked-structure-set! __obj153376 '(id methods) '6 '#f '#f)) + (let ((__tmp153775 (cons |gxc[1]#_g153522_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152391 __tmp152790 '3 '#f '#f)) + (##unchecked-structure-set! __obj153376 __tmp153775 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153376 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153376 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153376 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '#f '11 '#f '#f)) - (let ((__tmp152791 |gxc[1]#_g152792_|)) + (##unchecked-structure-set! __obj153376 '#f '11 '#f '#f)) + (let ((__tmp153776 |gxc[1]#_g153777_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152391 __tmp152791 '12 '#f '#f)) - (let ((__tmp152793 |gxc[1]#_g152794_|)) + (##unchecked-structure-set! __obj153376 __tmp153776 '12 '#f '#f)) + (let ((__tmp153778 |gxc[1]#_g153779_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152391 __tmp152793 '13 '#f '#f)) - (let ((__tmp152795 |gxc[1]#_g152796_|)) + (##unchecked-structure-set! __obj153376 __tmp153778 '13 '#f '#f)) + (let ((__tmp153780 |gxc[1]#_g153781_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152391 __tmp152795 '14 '#f '#f)) - (let ((__tmp152797 - (cons (cons 'methods |gxc[1]#_g152798_|) - (cons (cons 'id |gxc[1]#_g152799_|) '())))) + (##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! __obj152391 __tmp152797 '15 '#f '#f)) - (let ((__tmp152800 - (cons (cons 'methods |gxc[1]#_g152801_|) - (cons (cons 'id |gxc[1]#_g152802_|) '())))) + (##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! __obj152391 __tmp152800 '16 '#f '#f)) - (let ((__tmp152803 - (cons (cons 'methods |gxc[1]#_g152804_|) - (cons (cons 'id |gxc[1]#_g152805_|) '())))) + (##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! __obj152391 __tmp152803 '17 '#f '#f)) - (let ((__tmp152806 - (cons (cons 'methods |gxc[1]#_g152807_|) - (cons (cons 'id |gxc[1]#_g152808_|) '())))) + (##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! __obj152391 __tmp152806 '18 '#f '#f)) + (##unchecked-structure-set! __obj153376 __tmp153791 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153376 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153376 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152391 '() '20 '#f '#f)) - __obj152391)) + (##unchecked-structure-set! __obj153376 '() '20 '#f '#f)) + __obj153376)) (define |gxc[:0:]#!lambda| - (let ((__obj152392 + (let ((__obj153377 (let () (declare (not safe)) (##structure @@ -3835,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj153377 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj153377 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152392 + __obj153377 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3850,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152392 + __obj153377 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152809 (cons |gxc[1]#_g152694_| '()))) + (let ((__tmp153794 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152809 '3 '#f '#f)) + (##unchecked-structure-set! __obj153377 __tmp153794 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153377 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153377 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153377 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 ':init! '11 '#f '#f)) - (let ((__tmp152810 |gxc[1]#_g152811_|)) + (##unchecked-structure-set! __obj153377 ':init! '11 '#f '#f)) + (let ((__tmp153795 |gxc[1]#_g153796_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152810 '12 '#f '#f)) - (let ((__tmp152812 |gxc[1]#_g152813_|)) + (##unchecked-structure-set! __obj153377 __tmp153795 '12 '#f '#f)) + (let ((__tmp153797 |gxc[1]#_g153798_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152812 '13 '#f '#f)) - (let ((__tmp152814 |gxc[1]#_g152815_|)) + (##unchecked-structure-set! __obj153377 __tmp153797 '13 '#f '#f)) + (let ((__tmp153799 |gxc[1]#_g153800_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152814 '14 '#f '#f)) - (let ((__tmp152816 - (cons (cons 'arity |gxc[1]#_g152817_|) - (cons (cons 'dispatch |gxc[1]#_g152818_|) - (cons (cons 'inline |gxc[1]#_g152819_|) + (##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]#_g152820_|) + |gxc[1]#_g153805_|) (cons (cons 'signature - |gxc[1]#_g152821_|) + |gxc[1]#_g153806_|) (cons (cons 'id - |gxc[1]#_g152822_|) + |gxc[1]#_g153807_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152816 '15 '#f '#f)) - (let ((__tmp152823 - (cons (cons 'arity |gxc[1]#_g152824_|) - (cons (cons 'dispatch |gxc[1]#_g152825_|) - (cons (cons 'inline |gxc[1]#_g152826_|) + (##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]#_g152827_|) + |gxc[1]#_g153812_|) (cons (cons 'signature - |gxc[1]#_g152828_|) + |gxc[1]#_g153813_|) (cons (cons 'id - |gxc[1]#_g152829_|) + |gxc[1]#_g153814_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152823 '16 '#f '#f)) - (let ((__tmp152830 - (cons (cons 'arity |gxc[1]#_g152831_|) - (cons (cons 'dispatch |gxc[1]#_g152832_|) - (cons (cons 'inline |gxc[1]#_g152833_|) + (##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]#_g152834_|) + |gxc[1]#_g153819_|) (cons (cons 'signature - |gxc[1]#_g152835_|) + |gxc[1]#_g153820_|) (cons (cons 'id - |gxc[1]#_g152836_|) + |gxc[1]#_g153821_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152830 '17 '#f '#f)) - (let ((__tmp152837 - (cons (cons 'arity |gxc[1]#_g152838_|) - (cons (cons 'dispatch |gxc[1]#_g152839_|) - (cons (cons 'inline |gxc[1]#_g152840_|) + (##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]#_g152841_|) + |gxc[1]#_g153826_|) (cons (cons 'signature - |gxc[1]#_g152842_|) + |gxc[1]#_g153827_|) (cons (cons 'id - |gxc[1]#_g152843_|) + |gxc[1]#_g153828_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152837 '18 '#f '#f)) - (let ((__tmp152844 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153377 __tmp153822 '18 '#f '#f)) + (let ((__tmp153829 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152392 __tmp152844 '19 '#f '#f)) + (##unchecked-structure-set! __obj153377 __tmp153829 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153377 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152392 '() '20 '#f '#f)) - __obj152392)) + (##unchecked-structure-set! __obj153377 '() '20 '#f '#f)) + __obj153377)) (define |gxc[:0:]#!case-lambda| - (let ((__obj152393 + (let ((__obj153378 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152393 + __obj153378 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj153378 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj153378 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152393 + __obj153378 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152845 (cons |gxc[1]#_g152694_| '()))) + (let ((__tmp153830 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152393 __tmp152845 '3 '#f '#f)) + (##unchecked-structure-set! __obj153378 __tmp153830 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153378 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153378 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153378 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 ':init! '11 '#f '#f)) - (let ((__tmp152846 |gxc[1]#_g152847_|)) + (##unchecked-structure-set! __obj153378 ':init! '11 '#f '#f)) + (let ((__tmp153831 |gxc[1]#_g153832_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152393 __tmp152846 '12 '#f '#f)) - (let ((__tmp152848 |gxc[1]#_g152849_|)) + (##unchecked-structure-set! __obj153378 __tmp153831 '12 '#f '#f)) + (let ((__tmp153833 |gxc[1]#_g153834_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152393 __tmp152848 '13 '#f '#f)) - (let ((__tmp152850 |gxc[1]#_g152851_|)) + (##unchecked-structure-set! __obj153378 __tmp153833 '13 '#f '#f)) + (let ((__tmp153835 |gxc[1]#_g153836_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152393 __tmp152850 '14 '#f '#f)) - (let ((__tmp152852 - (cons (cons 'clauses |gxc[1]#_g152853_|) - (cons (cons 'signature |gxc[1]#_g152854_|) - (cons (cons 'id |gxc[1]#_g152855_|) '()))))) + (##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! __obj152393 __tmp152852 '15 '#f '#f)) - (let ((__tmp152856 - (cons (cons 'clauses |gxc[1]#_g152857_|) - (cons (cons 'signature |gxc[1]#_g152858_|) - (cons (cons 'id |gxc[1]#_g152859_|) '()))))) + (##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! __obj152393 __tmp152856 '16 '#f '#f)) - (let ((__tmp152860 - (cons (cons 'clauses |gxc[1]#_g152861_|) - (cons (cons 'signature |gxc[1]#_g152862_|) - (cons (cons 'id |gxc[1]#_g152863_|) '()))))) + (##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! __obj152393 __tmp152860 '17 '#f '#f)) - (let ((__tmp152864 - (cons (cons 'clauses |gxc[1]#_g152865_|) - (cons (cons 'signature |gxc[1]#_g152866_|) - (cons (cons 'id |gxc[1]#_g152867_|) '()))))) + (##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! __obj152393 __tmp152864 '18 '#f '#f)) - (let ((__tmp152868 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153378 __tmp153849 '18 '#f '#f)) + (let ((__tmp153853 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152393 __tmp152868 '19 '#f '#f)) + (##unchecked-structure-set! __obj153378 __tmp153853 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153378 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152393 '() '20 '#f '#f)) - __obj152393)) + (##unchecked-structure-set! __obj153378 '() '20 '#f '#f)) + __obj153378)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj152394 + (let ((__obj153379 (let () (declare (not safe)) (##structure @@ -4078,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152394 + __obj153379 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152394 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj153379 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152394 + __obj153379 '(table dispatch) '4 '#f @@ -4097,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152394 + __obj153379 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp152869 (cons |gxc[1]#_g152694_| '()))) + (let ((__tmp153854 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152394 __tmp152869 '3 '#f '#f)) + (##unchecked-structure-set! __obj153379 __tmp153854 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152394 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153379 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152394 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153379 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152394 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153379 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152394 ':init! '11 '#f '#f)) - (let ((__tmp152870 |gxc[1]#_g152871_|)) + (##unchecked-structure-set! __obj153379 ':init! '11 '#f '#f)) + (let ((__tmp153855 |gxc[1]#_g153856_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152394 __tmp152870 '12 '#f '#f)) - (let ((__tmp152872 |gxc[1]#_g152873_|)) + (##unchecked-structure-set! __obj153379 __tmp153855 '12 '#f '#f)) + (let ((__tmp153857 |gxc[1]#_g153858_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152394 __tmp152872 '13 '#f '#f)) - (let ((__tmp152874 |gxc[1]#_g152875_|)) + (##unchecked-structure-set! __obj153379 __tmp153857 '13 '#f '#f)) + (let ((__tmp153859 |gxc[1]#_g153860_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152394 __tmp152874 '14 '#f '#f)) - (let ((__tmp152876 - (cons (cons 'table |gxc[1]#_g152877_|) - (cons (cons 'dispatch |gxc[1]#_g152878_|) - (cons (cons 'signature |gxc[1]#_g152879_|) - (cons (cons 'id |gxc[1]#_g152880_|) '())))))) + (##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! __obj152394 __tmp152876 '15 '#f '#f)) - (let ((__tmp152881 - (cons (cons 'table |gxc[1]#_g152882_|) - (cons (cons 'dispatch |gxc[1]#_g152883_|) - (cons (cons 'signature |gxc[1]#_g152884_|) - (cons (cons 'id |gxc[1]#_g152885_|) '())))))) + (##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! __obj152394 __tmp152881 '16 '#f '#f)) - (let ((__tmp152886 - (cons (cons 'table |gxc[1]#_g152887_|) - (cons (cons 'dispatch |gxc[1]#_g152888_|) - (cons (cons 'signature |gxc[1]#_g152889_|) - (cons (cons 'id |gxc[1]#_g152890_|) '())))))) + (##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! __obj152394 __tmp152886 '17 '#f '#f)) - (let ((__tmp152891 - (cons (cons 'table |gxc[1]#_g152892_|) - (cons (cons 'dispatch |gxc[1]#_g152893_|) - (cons (cons 'signature |gxc[1]#_g152894_|) - (cons (cons 'id |gxc[1]#_g152895_|) '())))))) + (##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! __obj152394 __tmp152891 '18 '#f '#f)) - (let ((__tmp152896 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153379 __tmp153876 '18 '#f '#f)) + (let ((__tmp153881 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152394 __tmp152896 '19 '#f '#f)) + (##unchecked-structure-set! __obj153379 __tmp153881 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152394 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153379 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152394 '() '20 '#f '#f)) - __obj152394)) + (##unchecked-structure-set! __obj153379 '() '20 '#f '#f)) + __obj153379)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj152395 + (let ((__obj153380 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152395 + __obj153380 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152395 + __obj153380 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152395 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj153380 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152395 + __obj153380 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp152897 (cons |gxc[1]#_g152694_| '()))) + (let ((__tmp153882 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152395 __tmp152897 '3 '#f '#f)) + (##unchecked-structure-set! __obj153380 __tmp153882 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152395 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153380 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152395 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153380 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152395 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153380 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152395 ':init! '11 '#f '#f)) - (let ((__tmp152898 |gxc[1]#_g152899_|)) + (##unchecked-structure-set! __obj153380 ':init! '11 '#f '#f)) + (let ((__tmp153883 |gxc[1]#_g153884_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152395 __tmp152898 '12 '#f '#f)) - (let ((__tmp152900 |gxc[1]#_g152901_|)) + (##unchecked-structure-set! __obj153380 __tmp153883 '12 '#f '#f)) + (let ((__tmp153885 |gxc[1]#_g153886_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152395 __tmp152900 '13 '#f '#f)) - (let ((__tmp152902 |gxc[1]#_g152903_|)) + (##unchecked-structure-set! __obj153380 __tmp153885 '13 '#f '#f)) + (let ((__tmp153887 |gxc[1]#_g153888_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152395 __tmp152902 '14 '#f '#f)) - (let ((__tmp152904 - (cons (cons 'keys |gxc[1]#_g152905_|) - (cons (cons 'main |gxc[1]#_g152906_|) - (cons (cons 'signature |gxc[1]#_g152907_|) - (cons (cons 'id |gxc[1]#_g152908_|) '())))))) + (##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! __obj152395 __tmp152904 '15 '#f '#f)) - (let ((__tmp152909 - (cons (cons 'keys |gxc[1]#_g152910_|) - (cons (cons 'main |gxc[1]#_g152911_|) - (cons (cons 'signature |gxc[1]#_g152912_|) - (cons (cons 'id |gxc[1]#_g152913_|) '())))))) + (##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! __obj152395 __tmp152909 '16 '#f '#f)) - (let ((__tmp152914 - (cons (cons 'keys |gxc[1]#_g152915_|) - (cons (cons 'main |gxc[1]#_g152916_|) - (cons (cons 'signature |gxc[1]#_g152917_|) - (cons (cons 'id |gxc[1]#_g152918_|) '())))))) + (##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! __obj152395 __tmp152914 '17 '#f '#f)) - (let ((__tmp152919 - (cons (cons 'keys |gxc[1]#_g152920_|) - (cons (cons 'main |gxc[1]#_g152921_|) - (cons (cons 'signature |gxc[1]#_g152922_|) - (cons (cons 'id |gxc[1]#_g152923_|) '())))))) + (##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! __obj152395 __tmp152919 '18 '#f '#f)) - (let ((__tmp152924 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153380 __tmp153904 '18 '#f '#f)) + (let ((__tmp153909 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152395 __tmp152924 '19 '#f '#f)) + (##unchecked-structure-set! __obj153380 __tmp153909 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152395 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153380 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152395 '() '20 '#f '#f)) - __obj152395)) + (##unchecked-structure-set! __obj153380 '() '20 '#f '#f)) + __obj153380)) (define |gxc[:0:]#!primitive| - (let ((__obj152396 + (let ((__obj153381 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152396 + __obj153381 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj153381 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153381 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153381 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153381 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '#f '11 '#f '#f)) - (let ((__tmp152925 |gxc[1]#_g152926_|)) + (##unchecked-structure-set! __obj153381 '#f '11 '#f '#f)) + (let ((__tmp153910 |gxc[1]#_g153911_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152396 __tmp152925 '12 '#f '#f)) - (let ((__tmp152927 |gxc[1]#_g152928_|)) + (##unchecked-structure-set! __obj153381 __tmp153910 '12 '#f '#f)) + (let ((__tmp153912 |gxc[1]#_g153913_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152396 __tmp152927 '13 '#f '#f)) - (let ((__tmp152929 |gxc[1]#_g152930_|)) + (##unchecked-structure-set! __obj153381 __tmp153912 '13 '#f '#f)) + (let ((__tmp153914 |gxc[1]#_g153915_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152396 __tmp152929 '14 '#f '#f)) + (##unchecked-structure-set! __obj153381 __tmp153914 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152396 '() '20 '#f '#f)) - __obj152396)) + (##unchecked-structure-set! __obj153381 '() '20 '#f '#f)) + __obj153381)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj152397 + (let ((__obj153382 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152397 + __obj153382 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152397 + __obj153382 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153382 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 '(id signature) '6 '#f '#f)) - (let ((__tmp152931 - (cons |gxc[1]#_g152932_| (cons |gxc[1]#_g152694_| '())))) + (##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! __obj152397 __tmp152931 '3 '#f '#f)) + (##unchecked-structure-set! __obj153382 __tmp153916 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153382 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153382 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153382 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 ':init! '11 '#f '#f)) - (let ((__tmp152933 |gxc[1]#_g152934_|)) + (##unchecked-structure-set! __obj153382 ':init! '11 '#f '#f)) + (let ((__tmp153918 |gxc[1]#_g153919_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152397 __tmp152933 '12 '#f '#f)) - (let ((__tmp152935 |gxc[1]#_g152936_|)) + (##unchecked-structure-set! __obj153382 __tmp153918 '12 '#f '#f)) + (let ((__tmp153920 |gxc[1]#_g153921_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152397 __tmp152935 '13 '#f '#f)) - (let ((__tmp152937 |gxc[1]#_g152938_|)) + (##unchecked-structure-set! __obj153382 __tmp153920 '13 '#f '#f)) + (let ((__tmp153922 |gxc[1]#_g153923_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152397 __tmp152937 '14 '#f '#f)) - (let ((__tmp152939 - (cons (cons 'signature |gxc[1]#_g152940_|) - (cons (cons 'id |gxc[1]#_g152941_|) '())))) + (##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! __obj152397 __tmp152939 '15 '#f '#f)) - (let ((__tmp152942 - (cons (cons 'signature |gxc[1]#_g152943_|) - (cons (cons 'id |gxc[1]#_g152944_|) '())))) + (##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! __obj152397 __tmp152942 '16 '#f '#f)) - (let ((__tmp152945 - (cons (cons 'signature |gxc[1]#_g152946_|) - (cons (cons 'id |gxc[1]#_g152947_|) '())))) + (##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! __obj152397 __tmp152945 '17 '#f '#f)) - (let ((__tmp152948 - (cons (cons 'signature |gxc[1]#_g152949_|) - (cons (cons 'id |gxc[1]#_g152950_|) '())))) + (##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! __obj152397 __tmp152948 '18 '#f '#f)) - (let ((__tmp152951 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153382 __tmp153933 '18 '#f '#f)) + (let ((__tmp153936 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152397 __tmp152951 '19 '#f '#f)) + (##unchecked-structure-set! __obj153382 __tmp153936 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153382 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152397 '() '20 '#f '#f)) - __obj152397)) + (##unchecked-structure-set! __obj153382 '() '20 '#f '#f)) + __obj153382)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj152398 + (let ((__obj153383 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152398 + __obj153383 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152398 + __obj153383 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152398 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153383 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152398 + __obj153383 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152952 - (cons |gxc[1]#_g152932_| (cons |gxc[1]#_g152953_| '())))) + (let ((__tmp153937 + (cons |gxc[1]#_g153917_| (cons |gxc[1]#_g153938_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152952 '3 '#f '#f)) + (##unchecked-structure-set! __obj153383 __tmp153937 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152398 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153383 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152398 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153383 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152398 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153383 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152398 ':init! '11 '#f '#f)) - (let ((__tmp152954 |gxc[1]#_g152955_|)) + (##unchecked-structure-set! __obj153383 ':init! '11 '#f '#f)) + (let ((__tmp153939 |gxc[1]#_g153940_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152954 '12 '#f '#f)) - (let ((__tmp152956 |gxc[1]#_g152957_|)) + (##unchecked-structure-set! __obj153383 __tmp153939 '12 '#f '#f)) + (let ((__tmp153941 |gxc[1]#_g153942_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152956 '13 '#f '#f)) - (let ((__tmp152958 |gxc[1]#_g152959_|)) + (##unchecked-structure-set! __obj153383 __tmp153941 '13 '#f '#f)) + (let ((__tmp153943 |gxc[1]#_g153944_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152958 '14 '#f '#f)) - (let ((__tmp152960 - (cons (cons 'arity |gxc[1]#_g152961_|) - (cons (cons 'dispatch |gxc[1]#_g152962_|) - (cons (cons 'inline |gxc[1]#_g152963_|) + (##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]#_g152964_|) + |gxc[1]#_g153949_|) (cons (cons 'signature - |gxc[1]#_g152965_|) + |gxc[1]#_g153950_|) (cons (cons 'id - |gxc[1]#_g152966_|) + |gxc[1]#_g153951_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152960 '15 '#f '#f)) - (let ((__tmp152967 - (cons (cons 'arity |gxc[1]#_g152968_|) - (cons (cons 'dispatch |gxc[1]#_g152969_|) - (cons (cons 'inline |gxc[1]#_g152970_|) + (##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]#_g152971_|) + |gxc[1]#_g153956_|) (cons (cons 'signature - |gxc[1]#_g152972_|) + |gxc[1]#_g153957_|) (cons (cons 'id - |gxc[1]#_g152973_|) + |gxc[1]#_g153958_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152967 '16 '#f '#f)) - (let ((__tmp152974 - (cons (cons 'arity |gxc[1]#_g152975_|) - (cons (cons 'dispatch |gxc[1]#_g152976_|) - (cons (cons 'inline |gxc[1]#_g152977_|) + (##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]#_g152978_|) + |gxc[1]#_g153963_|) (cons (cons 'signature - |gxc[1]#_g152979_|) + |gxc[1]#_g153964_|) (cons (cons 'id - |gxc[1]#_g152980_|) + |gxc[1]#_g153965_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152974 '17 '#f '#f)) - (let ((__tmp152981 - (cons (cons 'arity |gxc[1]#_g152982_|) - (cons (cons 'dispatch |gxc[1]#_g152983_|) - (cons (cons 'inline |gxc[1]#_g152984_|) + (##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]#_g152985_|) + |gxc[1]#_g153970_|) (cons (cons 'signature - |gxc[1]#_g152986_|) + |gxc[1]#_g153971_|) (cons (cons 'id - |gxc[1]#_g152987_|) + |gxc[1]#_g153972_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152981 '18 '#f '#f)) - (let ((__tmp152988 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153383 __tmp153966 '18 '#f '#f)) + (let ((__tmp153973 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152398 __tmp152988 '19 '#f '#f)) + (##unchecked-structure-set! __obj153383 __tmp153973 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152398 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153383 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152398 '() '20 '#f '#f)) - __obj152398)) + (##unchecked-structure-set! __obj153383 '() '20 '#f '#f)) + __obj153383)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj152399 + (let ((__obj153384 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152399 + __obj153384 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152399 + __obj153384 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152399 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153384 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152399 + __obj153384 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152989 - (cons |gxc[1]#_g152932_| (cons |gxc[1]#_g152990_| '())))) + (let ((__tmp153974 + (cons |gxc[1]#_g153917_| (cons |gxc[1]#_g153975_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152399 __tmp152989 '3 '#f '#f)) + (##unchecked-structure-set! __obj153384 __tmp153974 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152399 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153384 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152399 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153384 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152399 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153384 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152399 ':init! '11 '#f '#f)) - (let ((__tmp152991 |gxc[1]#_g152992_|)) + (##unchecked-structure-set! __obj153384 ':init! '11 '#f '#f)) + (let ((__tmp153976 |gxc[1]#_g153977_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152399 __tmp152991 '12 '#f '#f)) - (let ((__tmp152993 |gxc[1]#_g152994_|)) + (##unchecked-structure-set! __obj153384 __tmp153976 '12 '#f '#f)) + (let ((__tmp153978 |gxc[1]#_g153979_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152399 __tmp152993 '13 '#f '#f)) - (let ((__tmp152995 |gxc[1]#_g152996_|)) + (##unchecked-structure-set! __obj153384 __tmp153978 '13 '#f '#f)) + (let ((__tmp153980 |gxc[1]#_g153981_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152399 __tmp152995 '14 '#f '#f)) - (let ((__tmp152997 - (cons (cons 'clauses |gxc[1]#_g152998_|) - (cons (cons 'signature |gxc[1]#_g152999_|) - (cons (cons 'id |gxc[1]#_g153000_|) '()))))) + (##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! __obj152399 __tmp152997 '15 '#f '#f)) - (let ((__tmp153001 - (cons (cons 'clauses |gxc[1]#_g153002_|) - (cons (cons 'signature |gxc[1]#_g153003_|) - (cons (cons 'id |gxc[1]#_g153004_|) '()))))) + (##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! __obj152399 __tmp153001 '16 '#f '#f)) - (let ((__tmp153005 - (cons (cons 'clauses |gxc[1]#_g153006_|) - (cons (cons 'signature |gxc[1]#_g153007_|) - (cons (cons 'id |gxc[1]#_g153008_|) '()))))) + (##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! __obj152399 __tmp153005 '17 '#f '#f)) - (let ((__tmp153009 - (cons (cons 'clauses |gxc[1]#_g153010_|) - (cons (cons 'signature |gxc[1]#_g153011_|) - (cons (cons 'id |gxc[1]#_g153012_|) '()))))) + (##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! __obj152399 __tmp153009 '18 '#f '#f)) - (let ((__tmp153013 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (##unchecked-structure-set! __obj153384 __tmp153994 '18 '#f '#f)) + (let ((__tmp153998 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152399 __tmp153013 '19 '#f '#f)) + (##unchecked-structure-set! __obj153384 __tmp153998 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152399 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153384 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152399 '() '20 '#f '#f)) - __obj152399)))) + (##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 230e87408..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 1734131753) + (define gerbil/compiler/optimize-call::timestamp 1734357968) (begin (define gxc#::optimize-call::t - (let ((__tmp197450 (list gxc#::basic-xform::t)) - (__tmp197449 (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 - __tmp197450 + __tmp198435 '() - __tmp197449 + __tmp198434 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args196727%_ - (apply make-instance gxc#::optimize-call::t _%$args196727%_))) + (lambda _%$args197712%_ + (apply make-instance gxc#::optimize-call::t _%$args197712%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp197451 + (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 __tmp197451))) + (__make-promise __tmp198436))) (define gxc#apply-optimize-call - (lambda (_%stx196719%_) + (lambda (_%stx197704%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self196722%_ - (let ((__obj197441 + (let* ((_%self197707%_ + (let ((__obj198426 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj197441)) - (__tmp197452 + __obj198426)) + (__tmp198437 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196722%_ _%stx196719%_))))) + (gxc#compile-e__1 _%self197707%_ _%stx197704%_))))) (declare (not safe)) (__call-with-parameters - __tmp197452 + __tmp198437 gxc#current-compile-method - _%self196722%_)))) + _%self197707%_)))) (define gxc#::check-return-type::t - (let ((__tmp197454 (list gxc#::void::t)) - (__tmp197453 (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 - __tmp197454 + __tmp198439 '() - __tmp197453 + __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 _%$args196716%_ - (apply make-instance gxc#::check-return-type::t _%$args196716%_))) + (lambda _%$args197701%_ + (apply make-instance gxc#::check-return-type::t _%$args197701%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp197455 + (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 __tmp197455))) + (__make-promise __tmp198440))) (define gxc#apply-check-return-type - (lambda (_%stx196708%_) + (lambda (_%stx197693%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self196711%_ - (let ((__obj197443 + (let* ((_%self197696%_ + (let ((__obj198428 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj197443)) - (__tmp197456 + __obj198428)) + (__tmp198441 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196711%_ _%stx196708%_))))) + (gxc#compile-e__1 _%self197696%_ _%stx197693%_))))) (declare (not safe)) (__call-with-parameters - __tmp197456 + __tmp198441 gxc#current-compile-method - _%self196711%_)))) + _%self197696%_)))) (define gxc#optimize-call% - (lambda (_%self196309%_ _%stx196310%_) - (let* ((_%__stx196796196797%_ _%stx196310%_) - (_%g196313196359%_ + (lambda (_%self197294%_ _%stx197295%_) + (let* ((_%__stx197781197782%_ _%stx197295%_) + (_%g197298197344%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196796196797%_))))) - (let ((_%__kont196798196799%_ - (lambda (_%L196502%_ _%L196503%_) - (let* ((_%rator-id196523%_ + _%__stx197781197782%_))))) + (let ((_%__kont197783197784%_ + (lambda (_%L197487%_ _%L197488%_) + (let* ((_%rator-id197508%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L196503%_))) - (_%rator-type196525%_ + (gxc#identifier-symbol _%L197488%_))) + (_%rator-type197510%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id196523%_)))) - (if (or (not _%rator-type196525%_) + (gxc#optimizer-resolve-type _%rator-id197508%_)))) + (if (or (not _%rator-type197510%_) (eq? (##structure-ref - _%rator-type196525%_ + _%rator-type197510%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self196309%_ _%stx196310%_)) + (gxc#xform-call% _%self197294%_ _%stx197295%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196525%_ + _%rator-type197510%_ 'gxc#!procedure::t)) (let () - (let ((__tmp197457 + (let ((__tmp198442 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196525%_ + _%rator-type197510%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id196523%_ + _%rator-id197508%_ '" => " - _%rator-type196525%_ + _%rator-type197510%_ '" " - __tmp197457)) - (let* ((_%optimized196540%_ - (let ((__method197444 + __tmp198442)) + (let* ((_%optimized197525%_ + (let ((__method198429 (let () (declare (not safe)) (__method-ref - _%rator-type196525%_ + _%rator-type197510%_ 'optimize-call)))) - (if __method197444 - (let ((__tmp197458 - (let ((__tmp197459 - (lambda (_%g196532196535%_ + (if __method198429 + (let ((__tmp198443 + (let ((__tmp198444 + (lambda (_%g197517197520%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196533196537%_) - (cons _%g196532196535%_ _%g196533196537%_)))) + _%g197518197522%_) + (cons _%g197517197520%_ _%g197518197522%_)))) (declare (not safe)) - (__foldr1 __tmp197459 '() _%L196502%_)))) + (__foldr1 __tmp198444 '() _%L197487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method197444 - _%rator-type196525%_ - _%self196309%_ - _%stx196310%_ - __tmp197458)) + (__method198429 + _%rator-type197510%_ + _%self197294%_ + _%stx197295%_ + __tmp198443)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type196525%_ + _%rator-type197510%_ 'optimize-call)) '#!void)))) - (_%__stx196744196745%_ - _%optimized196540%_) - (_%g196543196572%_ + (_%__stx197729197730%_ + _%optimized197525%_) + (_%g197528197557%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196744196745%_))))) - (let ((_%__kont196746196747%_ - (lambda (_%L196640%_ _%L196641%_) - (let* ((_%optimized-rator-id196668%_ + _%__stx197729197730%_))))) + (let ((_%__kont197731197732%_ + (lambda (_%L197625%_ _%L197626%_) + (let* ((_%optimized-rator-id197653%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L196641%_))) - (_%rator-type196673%_ - (let ((_%$e196670%_ + _%L197626%_))) + (_%rator-type197658%_ + (let ((_%$e197655%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id196668%_)))) - (if _%$e196670%_ - _%$e196670%_ - _%rator-type196525%_)))) + _%optimized-rator-id197653%_)))) + (if _%$e197655%_ + _%$e197655%_ + _%rator-type197510%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196673%_)) + _%rator-type197658%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id196668%_ + (##memq _%optimized-rator-id197653%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196673%_ + _%rator-type197658%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type196673%_)) + (gxc#!procedure-origin _%rator-type197658%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +326,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized196540%_ - (let ((__tmp197460 + _%optimized197525%_ + (let ((__tmp198445 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196641%_ '())) - (let ((__tmp197461 - (lambda (_%g196681196684%_ _%g196682196686%_) - (cons _%g196681196684%_ - _%g196682196686%_)))) + (cons _%L197626%_ '())) + (let ((__tmp198446 + (lambda (_%g197666197669%_ _%g197667197671%_) + (cons _%g197666197669%_ + _%g197667197671%_)))) (declare (not safe)) - (__foldr1 __tmp197461 '() _%L196640%_)))))) + (__foldr1 __tmp198446 '() _%L197625%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197460 - _%stx196310%_)))))) - (_%__kont196750196751%_ - (lambda () _%optimized196540%_))) - (let ((_%__match196793196794%_ - (lambda (_%e196547196584%_ - _%hd196548196587%_ - _%tl196549196589%_ - _%e196550196592%_ - _%hd196551196595%_ - _%tl196552196597%_ - _%e196553196600%_ - _%hd196554196603%_ - _%tl196555196605%_ - _%e196556196608%_ - _%hd196557196611%_ - _%tl196558196613%_ - _%__splice196748196749%_ - _%target196559196616%_ - _%tl196561196618%_) - (letrec ((_%loop196562196621%_ - (lambda (_%hd196560196624%_ - _%arg196566196626%_) + __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? - _%hd196560196624%_)) - (let ((_%e196563196629%_ + _%hd197545197609%_)) + (let ((_%e197548197614%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd196560196624%_)))) - (let ((_%lp-tl196565196634%_ + (gx#stx-e _%hd197545197609%_)))) + (let ((_%lp-tl197550197619%_ (let () (declare (not safe)) - (##cdr _%e196563196629%_))) - (_%lp-hd196564196632%_ + (##cdr _%e197548197614%_))) + (_%lp-hd197549197617%_ (let () (declare (not safe)) - (##car _%e196563196629%_)))) - (_%loop196562196621%_ - _%lp-tl196565196634%_ - (cons _%lp-hd196564196632%_ _%arg196566196626%_)))) - (let ((_%arg196567196637%_ (reverse _%arg196566196626%_))) - (_%__kont196746196747%_ - _%arg196567196637%_ - _%hd196557196611%_)))))) + (##car _%e197548197614%_)))) + (_%loop197547197606%_ + _%lp-tl197550197619%_ + (cons _%lp-hd197549197617%_ _%arg197551197611%_)))) + (let ((_%arg197552197622%_ (reverse _%arg197551197611%_))) + (_%__kont197731197732%_ + _%arg197552197622%_ + _%hd197542197596%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196562196621%_ - _%target196559196616%_ + (_%loop197547197606%_ + _%target197544197601%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx196744196745%_)) - (let ((_%e196547196584%_ + _%__stx197729197730%_)) + (let ((_%e197532197569%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196744196745%_)))) - (let ((_%tl196549196589%_ + _%__stx197729197730%_)))) + (let ((_%tl197534197574%_ (let () (declare (not safe)) - (##cdr _%e196547196584%_))) - (_%hd196548196587%_ + (##cdr _%e197532197569%_))) + (_%hd197533197572%_ (let () (declare (not safe)) - (##car _%e196547196584%_)))) + (##car _%e197532197569%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196548196587%_)) + _%hd197533197572%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd196548196587%_)) + _%hd197533197572%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196549196589%_)) - (let ((_%e196550196592%_ + _%tl197534197574%_)) + (let ((_%e197535197577%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl196549196589%_)))) - (let ((_%tl196552196597%_ + (gx#stx-e _%tl197534197574%_)))) + (let ((_%tl197537197582%_ (let () (declare (not safe)) - (##cdr _%e196550196592%_))) - (_%hd196551196595%_ + (##cdr _%e197535197577%_))) + (_%hd197536197580%_ (let () (declare (not safe)) - (##car _%e196550196592%_)))) + (##car _%e197535197577%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196551196595%_)) - (let ((_%e196553196600%_ + (gx#stx-pair? _%hd197536197580%_)) + (let ((_%e197538197585%_ (let () (declare (not safe)) - (gx#stx-e _%hd196551196595%_)))) - (let ((_%tl196555196605%_ + (gx#stx-e _%hd197536197580%_)))) + (let ((_%tl197540197590%_ (let () (declare (not safe)) - (##cdr _%e196553196600%_))) - (_%hd196554196603%_ + (##cdr _%e197538197585%_))) + (_%hd197539197588%_ (let () (declare (not safe)) - (##car _%e196553196600%_)))) + (##car _%e197538197585%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd196554196603%_)) + (gx#identifier? _%hd197539197588%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd196554196603%_)) + (gx#stx-eq? '%#ref _%hd197539197588%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196555196605%_)) - (let ((_%e196556196608%_ + (gx#stx-pair? _%tl197540197590%_)) + (let ((_%e197541197593%_ (let () (declare (not safe)) (gx#stx-e - _%tl196555196605%_)))) - (let ((_%tl196558196613%_ + _%tl197540197590%_)))) + (let ((_%tl197543197598%_ (let () (declare (not safe)) - (##cdr _%e196556196608%_))) - (_%hd196557196611%_ + (##cdr _%e197541197593%_))) + (_%hd197542197596%_ (let () (declare (not safe)) - (##car _%e196556196608%_)))) + (##car _%e197541197593%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196558196613%_)) + _%tl197543197598%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196552196597%_)) - (let ((_%__splice196748196749%_ + _%tl197537197582%_)) + (let ((_%__splice197733197734%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196552196597%_ + _%tl197537197582%_ '0)))) - (let ((_%tl196561196618%_ + (let ((_%tl197546197603%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice196748196749%_ '1))) - (_%target196559196616%_ + (##vector-ref _%__splice197733197734%_ '1))) + (_%target197544197601%_ (let () (declare (not safe)) - (##vector-ref _%__splice196748196749%_ '0)))) + (##vector-ref _%__splice197733197734%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196561196618%_)) - (_%__match196793196794%_ - _%e196547196584%_ - _%hd196548196587%_ - _%tl196549196589%_ - _%e196550196592%_ - _%hd196551196595%_ - _%tl196552196597%_ - _%e196553196600%_ - _%hd196554196603%_ - _%tl196555196605%_ - _%e196556196608%_ - _%hd196557196611%_ - _%tl196558196613%_ - _%__splice196748196749%_ - _%target196559196616%_ - _%tl196561196618%_) - (_%__kont196750196751%_)))) + (gx#stx-null? _%tl197546197603%_)) + (_%__match197778197779%_ + _%e197532197569%_ + _%hd197533197572%_ + _%tl197534197574%_ + _%e197535197577%_ + _%hd197536197580%_ + _%tl197537197582%_ + _%e197538197585%_ + _%hd197539197588%_ + _%tl197540197590%_ + _%e197541197593%_ + _%hd197542197596%_ + _%tl197543197598%_ + _%__splice197733197734%_ + _%target197544197601%_ + _%tl197546197603%_) + (_%__kont197735197736%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196750196751%_)) - (_%__kont196750196751%_)))) - (_%__kont196750196751%_)) - (_%__kont196750196751%_)) - (_%__kont196750196751%_)))) - (_%__kont196750196751%_)))) - (_%__kont196750196751%_)) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196750196751%_)) - (_%__kont196750196751%_)))) - (_%__kont196750196751%_)))))) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196525%_ + _%rator-type197510%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196525%_ + _%rator-type197510%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp197462 + (let ((__tmp198447 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +553,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196503%_ + (cons _%L197488%_ '())) - (map (lambda (_%g196692196694%_) + (map (lambda (_%g197677197679%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196309%_ - _%g196692196694%_))) - (let ((__tmp197463 - (lambda (_%g196696196699%_ + _%self197294%_ + _%g197677197679%_))) + (let ((__tmp198448 + (lambda (_%g197681197684%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196697196701%_) - (cons _%g196696196699%_ _%g196697196701%_)))) + _%g197682197686%_) + (cons _%g197681197684%_ _%g197682197686%_)))) (declare (not safe)) - (__foldr1 __tmp197463 '() _%L196502%_))))))) + (__foldr1 __tmp198448 '() _%L197487%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197462 - _%stx196310%_)) + __tmp198447 + _%stx197295%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196310%_ - _%rator-type196525%_)))))))) - (_%__kont196802196803%_ - (lambda (_%L196404%_ _%L196405%_) - (let ((_%rator-type196422%_ + _%stx197295%_ + _%rator-type197510%_)))))))) + (_%__kont197787197788%_ + (lambda (_%L197389%_ _%L197390%_) + (let ((_%rator-type197407%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L196405%_)))) - (if (and _%rator-type196422%_ + (gxc#apply-basic-expression-type _%L197390%_)))) + (if (and _%rator-type197407%_ (eq? (##structure-ref - _%rator-type196422%_ + _%rator-type197407%_ '1 gxc#!type::t '#f) @@ -597,17 +597,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196422%_)) + _%rator-type197407%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196422%_ + _%rator-type197407%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type196422%_)) + _%rator-type197407%_)) (##structure-ref (let () (declare (not safe)) @@ -615,607 +615,607 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp197464 + (let ((__tmp198449 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self196309%_ - _%L196405%_)) - (map (lambda (_%g196424196426%_) + _%self197294%_ + _%L197390%_)) + (map (lambda (_%g197409197411%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196309%_ - _%g196424196426%_))) - (let ((__tmp197465 - (lambda (_%g196428196431%_ + _%self197294%_ + _%g197409197411%_))) + (let ((__tmp198450 + (lambda (_%g197413197416%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196429196433%_) - (cons _%g196428196431%_ _%g196429196433%_)))) + _%g197414197418%_) + (cons _%g197413197416%_ _%g197414197418%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197465 + __tmp198450 '() - _%L196404%_))))))) + _%L197389%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197464 _%stx196310%_)) - (if (or (not _%rator-type196422%_) - (let ((__tmp197466 + (gxc#xform-wrap-source __tmp198449 _%stx197295%_)) + (if (or (not _%rator-type197407%_) + (let ((__tmp198451 (##structure-ref - _%rator-type196422%_ + _%rator-type197407%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp197466 '(t procedure)))) + (##memq __tmp198451 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self196309%_ _%stx196310%_)) + (gxc#xform-call% _%self197294%_ _%stx197295%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196310%_ - _%rator-type196422%_)))))))) - (let* ((_%__match196863196864%_ - (lambda (_%e196340196364%_ - _%hd196341196367%_ - _%tl196342196369%_ - _%e196343196372%_ - _%hd196344196375%_ - _%tl196345196377%_ - _%__splice196804196805%_ - _%target196346196380%_ - _%tl196348196382%_) - (letrec ((_%loop196349196385%_ - (lambda (_%hd196347196388%_ - _%rand196353196390%_) + _%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? _%hd196347196388%_)) - (let ((_%e196350196393%_ + (gx#stx-pair? _%hd197332197373%_)) + (let ((_%e197335197378%_ (let () (declare (not safe)) - (gx#stx-e _%hd196347196388%_)))) - (let ((_%lp-tl196352196398%_ + (gx#stx-e _%hd197332197373%_)))) + (let ((_%lp-tl197337197383%_ (let () (declare (not safe)) - (##cdr _%e196350196393%_))) - (_%lp-hd196351196396%_ + (##cdr _%e197335197378%_))) + (_%lp-hd197336197381%_ (let () (declare (not safe)) - (##car _%e196350196393%_)))) - (_%loop196349196385%_ - _%lp-tl196352196398%_ - (cons _%lp-hd196351196396%_ - _%rand196353196390%_)))) - (let ((_%rand196354196401%_ - (reverse _%rand196353196390%_))) - (_%__kont196802196803%_ - _%rand196354196401%_ - _%hd196344196375%_)))))) - (_%loop196349196385%_ _%target196346196380%_ '())))) - (_%__match196843196844%_ - (lambda (_%e196317196446%_ - _%hd196318196449%_ - _%tl196319196451%_ - _%e196320196454%_ - _%hd196321196457%_ - _%tl196322196459%_ - _%e196323196462%_ - _%hd196324196465%_ - _%tl196325196467%_ - _%e196326196470%_ - _%hd196327196473%_ - _%tl196328196475%_ - _%__splice196800196801%_ - _%target196329196478%_ - _%tl196331196480%_) - (letrec ((_%loop196332196483%_ - (lambda (_%hd196330196486%_ - _%rand196336196488%_) + (##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? _%hd196330196486%_)) - (let ((_%e196333196491%_ + (gx#stx-pair? _%hd197315197471%_)) + (let ((_%e197318197476%_ (let () (declare (not safe)) - (gx#stx-e _%hd196330196486%_)))) - (let ((_%lp-tl196335196496%_ + (gx#stx-e _%hd197315197471%_)))) + (let ((_%lp-tl197320197481%_ (let () (declare (not safe)) - (##cdr _%e196333196491%_))) - (_%lp-hd196334196494%_ + (##cdr _%e197318197476%_))) + (_%lp-hd197319197479%_ (let () (declare (not safe)) - (##car _%e196333196491%_)))) - (_%loop196332196483%_ - _%lp-tl196335196496%_ - (cons _%lp-hd196334196494%_ - _%rand196336196488%_)))) - (let ((_%rand196337196499%_ - (reverse _%rand196336196488%_))) - (_%__kont196798196799%_ - _%rand196337196499%_ - _%hd196327196473%_)))))) - (_%loop196332196483%_ _%target196329196478%_ '()))))) + (##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? _%__stx196796196797%_)) - (let ((_%e196317196446%_ + (gx#stx-pair? _%__stx197781197782%_)) + (let ((_%e197302197431%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196796196797%_)))) - (let ((_%tl196319196451%_ + (gx#stx-e _%__stx197781197782%_)))) + (let ((_%tl197304197436%_ (let () (declare (not safe)) - (##cdr _%e196317196446%_))) - (_%hd196318196449%_ + (##cdr _%e197302197431%_))) + (_%hd197303197434%_ (let () (declare (not safe)) - (##car _%e196317196446%_)))) + (##car _%e197302197431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196319196451%_)) - (let ((_%e196320196454%_ + (gx#stx-pair? _%tl197304197436%_)) + (let ((_%e197305197439%_ (let () (declare (not safe)) - (gx#stx-e _%tl196319196451%_)))) - (let ((_%tl196322196459%_ + (gx#stx-e _%tl197304197436%_)))) + (let ((_%tl197307197444%_ (let () (declare (not safe)) - (##cdr _%e196320196454%_))) - (_%hd196321196457%_ + (##cdr _%e197305197439%_))) + (_%hd197306197442%_ (let () (declare (not safe)) - (##car _%e196320196454%_)))) + (##car _%e197305197439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196321196457%_)) - (let ((_%e196323196462%_ + (gx#stx-pair? _%hd197306197442%_)) + (let ((_%e197308197447%_ (let () (declare (not safe)) - (gx#stx-e _%hd196321196457%_)))) - (let ((_%tl196325196467%_ + (gx#stx-e _%hd197306197442%_)))) + (let ((_%tl197310197452%_ (let () (declare (not safe)) - (##cdr _%e196323196462%_))) - (_%hd196324196465%_ + (##cdr _%e197308197447%_))) + (_%hd197309197450%_ (let () (declare (not safe)) - (##car _%e196323196462%_)))) + (##car _%e197308197447%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196324196465%_)) + _%hd197309197450%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd196324196465%_)) + _%hd197309197450%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196325196467%_)) - (let ((_%e196326196470%_ + _%tl197310197452%_)) + (let ((_%e197311197455%_ (let () (declare (not safe)) (gx#stx-e - _%tl196325196467%_)))) - (let ((_%tl196328196475%_ + _%tl197310197452%_)))) + (let ((_%tl197313197460%_ (let () (declare (not safe)) - (##cdr _%e196326196470%_))) - (_%hd196327196473%_ + (##cdr _%e197311197455%_))) + (_%hd197312197458%_ (let () (declare (not safe)) - (##car _%e196326196470%_)))) + (##car _%e197311197455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196328196475%_)) + _%tl197313197460%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl196322196459%_)) - (let ((_%__splice196800196801%_ + (gx#stx-pair/null? _%tl197307197444%_)) + (let ((_%__splice197785197786%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196322196459%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196331196480%_ + (let ((_%tl197316197465%_ (let () (declare (not safe)) - (##vector-ref _%__splice196800196801%_ '1))) - (_%target196329196478%_ + (##vector-ref _%__splice197785197786%_ '1))) + (_%target197314197463%_ (let () (declare (not safe)) - (##vector-ref _%__splice196800196801%_ '0)))) + (##vector-ref _%__splice197785197786%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196331196480%_)) - (_%__match196843196844%_ - _%e196317196446%_ - _%hd196318196449%_ - _%tl196319196451%_ - _%e196320196454%_ - _%hd196321196457%_ - _%tl196322196459%_ - _%e196323196462%_ - _%hd196324196465%_ - _%tl196325196467%_ - _%e196326196470%_ - _%hd196327196473%_ - _%tl196328196475%_ - _%__splice196800196801%_ - _%target196329196478%_ - _%tl196331196480%_) + (gx#stx-null? _%tl197316197465%_)) + (_%__match197828197829%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%e197308197447%_ + _%hd197309197450%_ + _%tl197310197452%_ + _%e197311197455%_ + _%hd197312197458%_ + _%tl197313197460%_ + _%__splice197785197786%_ + _%target197314197463%_ + _%tl197316197465%_) (let () (declare (not safe)) - (_%g196313196359%_))))) - (let () (declare (not safe)) (_%g196313196359%_))) + (_%g197298197344%_))))) + (let () (declare (not safe)) (_%g197298197344%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196322196459%_)) - (let ((_%__splice196804196805%_ + (gx#stx-pair/null? _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196322196459%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196348196382%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) - (##vector-ref _%__splice196804196805%_ '1))) - (_%target196346196380%_ + (##vector-ref _%__splice197789197790%_ '1))) + (_%target197331197365%_ (let () (declare (not safe)) - (##vector-ref _%__splice196804196805%_ '0)))) + (##vector-ref _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196348196382%_)) - (_%__match196863196864%_ - _%e196317196446%_ - _%hd196318196449%_ - _%tl196319196451%_ - _%e196320196454%_ - _%hd196321196457%_ - _%tl196322196459%_ - _%__splice196804196805%_ - _%target196346196380%_ - _%tl196348196382%_) + (gx#stx-null? _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196313196359%_))))) - (let () (declare (not safe)) (_%g196313196359%_)))))) + (_%g197298197344%_))))) + (let () (declare (not safe)) (_%g197298197344%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196322196459%_)) - (let ((_%__splice196804196805%_ + _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl196322196459%_ '0)))) - (let ((_%tl196348196382%_ + (gx#syntax-split-splice _%tl197307197444%_ '0)))) + (let ((_%tl197333197367%_ (let () (declare (not safe)) - (##vector-ref _%__splice196804196805%_ '1))) - (_%target196346196380%_ + (##vector-ref _%__splice197789197790%_ '1))) + (_%target197331197365%_ (let () (declare (not safe)) - (##vector-ref _%__splice196804196805%_ '0)))) + (##vector-ref _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196348196382%_)) - (_%__match196863196864%_ - _%e196317196446%_ - _%hd196318196449%_ - _%tl196319196451%_ - _%e196320196454%_ - _%hd196321196457%_ - _%tl196322196459%_ - _%__splice196804196805%_ - _%target196346196380%_ - _%tl196348196382%_) - (let () (declare (not safe)) (_%g196313196359%_))))) - (let () (declare (not safe)) (_%g196313196359%_)))) + (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? - _%tl196322196459%_)) - (let ((_%__splice196804196805%_ + _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196322196459%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196348196382%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) (##vector-ref - _%__splice196804196805%_ + _%__splice197789197790%_ '1))) - (_%target196346196380%_ + (_%target197331197365%_ (let () (declare (not safe)) (##vector-ref - _%__splice196804196805%_ + _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196348196382%_)) - (_%__match196863196864%_ - _%e196317196446%_ - _%hd196318196449%_ - _%tl196319196451%_ - _%e196320196454%_ - _%hd196321196457%_ - _%tl196322196459%_ - _%__splice196804196805%_ - _%target196346196380%_ - _%tl196348196382%_) + _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196313196359%_))))) + (_%g197298197344%_))))) (let () (declare (not safe)) - (_%g196313196359%_)))) + (_%g197298197344%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196322196459%_)) - (let ((_%__splice196804196805%_ + _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196322196459%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196348196382%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) (##vector-ref - _%__splice196804196805%_ + _%__splice197789197790%_ '1))) - (_%target196346196380%_ + (_%target197331197365%_ (let () (declare (not safe)) (##vector-ref - _%__splice196804196805%_ + _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196348196382%_)) - (_%__match196863196864%_ - _%e196317196446%_ - _%hd196318196449%_ - _%tl196319196451%_ - _%e196320196454%_ - _%hd196321196457%_ - _%tl196322196459%_ - _%__splice196804196805%_ - _%target196346196380%_ - _%tl196348196382%_) + _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196313196359%_))))) + (_%g197298197344%_))))) (let () (declare (not safe)) - (_%g196313196359%_)))))) + (_%g197298197344%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196322196459%_)) - (let ((_%__splice196804196805%_ + (gx#stx-pair/null? _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196322196459%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196348196382%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) (##vector-ref - _%__splice196804196805%_ + _%__splice197789197790%_ '1))) - (_%target196346196380%_ + (_%target197331197365%_ (let () (declare (not safe)) (##vector-ref - _%__splice196804196805%_ + _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196348196382%_)) - (_%__match196863196864%_ - _%e196317196446%_ - _%hd196318196449%_ - _%tl196319196451%_ - _%e196320196454%_ - _%hd196321196457%_ - _%tl196322196459%_ - _%__splice196804196805%_ - _%target196346196380%_ - _%tl196348196382%_) + _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196313196359%_))))) + (_%g197298197344%_))))) (let () (declare (not safe)) - (_%g196313196359%_)))))) - (let () (declare (not safe)) (_%g196313196359%_))))) - (let () (declare (not safe)) (_%g196313196359%_)))))))) + (_%g197298197344%_)))))) + (let () (declare (not safe)) (_%g197298197344%_))))) + (let () (declare (not safe)) (_%g197298197344%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self192688196269%_ _%ctx196271%_ _%stx196272%_ _%args196273%_) - (let* ((_%self196275%_ _%self192688196269%_) - (_%self196277%_ _%self196275%_)) - (if (let ((__method197445 + (lambda (_%self193673197254%_ _%ctx197256%_ _%stx197257%_ _%args197258%_) + (let* ((_%self197260%_ _%self193673197254%_) + (_%self197262%_ _%self197260%_)) + (if (let ((__method198430 (let () (declare (not safe)) - (__method-ref _%self196277%_ 'check-arguments)))) - (if __method197445 + (__method-ref _%self197262%_ 'check-arguments)))) + (if __method198430 (let () (declare (not safe)) - (__method197445 - _%self196277%_ - _%ctx196271%_ - _%stx196272%_ - _%args196273%_)) + (__method198430 + _%self197262%_ + _%ctx197256%_ + _%stx197257%_ + _%args197258%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self196277%_ + _%self197262%_ 'check-arguments)) '#!void))) - (let* ((_%signature196287%_ + (let* ((_%signature197272%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196277%_ '2 '#f '#f))) - (_%signature196289%_ _%signature196287%_) - (_%$e196299%_ - (if _%signature196289%_ + (##unchecked-structure-ref _%self197262%_ '2 '#f '#f))) + (_%signature197274%_ _%signature197272%_) + (_%$e197284%_ + (if _%signature197274%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196289%_ + _%signature197274%_ '4 '#f '#f)) '#f))) - (if _%$e196299%_ - ((lambda (_%unchecked196302%_) + (if _%$e197284%_ + ((lambda (_%unchecked197287%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked196302%_)) - (let ((__tmp197467 + (gxc#symbol-in-local-scope? _%unchecked197287%_)) + (let ((__tmp198452 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196302%_ + (cons _%unchecked197287%_ '())) - (map (lambda (_%g196303196305%_) + (map (lambda (_%g197288197290%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx196271%_ - _%g196303196305%_))) - _%args196273%_))))) + _%ctx197256%_ + _%g197288197290%_))) + _%args197258%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197467 - _%stx196272%_ - _%ctx196271%_)) + __tmp198452 + _%stx197257%_ + _%ctx197256%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))) - _%$e196299%_) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))) + _%$e197284%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))))) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass196729 __method-table196730) - (let ((__check-arguments196731 - (let ((__tmp197468 + (lambda (__klass197714 __method-table197715) + (let ((__check-arguments197716 + (let ((__tmp198453 (lambda () - (let ((__method196732 + (let ((__method197717 (let () (declare (not safe)) (symbolic-table-ref - __method-table196730 + __method-table197715 'check-arguments '#f)))) - (if __method196732 - __method196732 + (if __method197717 + __method197717 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197468)))) - (lambda (_%self192688196269%_ - _%ctx196271%_ - _%stx196272%_ - _%args196273%_) - (let* ((_%self196275%_ _%self192688196269%_) - (_%self196277%_ _%self196275%_)) - (if ((force __check-arguments196731) - _%self196277%_ - _%ctx196271%_ - _%stx196272%_ - _%args196273%_) - (let* ((_%signature196287%_ + (__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 - _%self196277%_ + _%self197262%_ '2 '#f '#f))) - (_%signature196289%_ _%signature196287%_) - (_%$e196299%_ - (if _%signature196289%_ + (_%signature197274%_ _%signature197272%_) + (_%$e197284%_ + (if _%signature197274%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196289%_ + _%signature197274%_ '4 '#f '#f)) '#f))) - (if _%$e196299%_ - ((lambda (_%unchecked196302%_) + (if _%$e197284%_ + ((lambda (_%unchecked197287%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked196302%_)) - (let ((__tmp197469 + _%unchecked197287%_)) + (let ((__tmp198454 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196302%_ + (cons _%unchecked197287%_ '())) - (map (lambda (_%g196303196305%_) + (map (lambda (_%g197288197290%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx196271%_ - _%g196303196305%_))) - _%args196273%_))))) + _%ctx197256%_ + _%g197288197290%_))) + _%args197258%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197469 - _%stx196272%_ - _%ctx196271%_)) + __tmp198454 + _%stx197257%_ + _%ctx197256%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx196271%_ - _%stx196272%_)))) - _%$e196299%_) + _%ctx197256%_ + _%stx197257%_)))) + _%$e197284%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))))))) + (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 (_%self192689196018%_ _%ctx196020%_ _%stx196021%_ _%args196022%_) - (let* ((_%self196024%_ _%self192689196018%_) - (_%self196026%_ _%self196024%_) - (_%signature196035196037%_ + (lambda (_%self193674197003%_ _%ctx197005%_ _%stx197006%_ _%args197007%_) + (let* ((_%self197009%_ _%self193674197003%_) + (_%self197011%_ _%self197009%_) + (_%signature197020197022%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196026%_ '2 '#f '#f)))) - (if _%signature196035196037%_ - (let* ((_%signature196040%_ _%signature196035196037%_) - (_%argument-types196041196043%_ + (##unchecked-structure-ref _%self197011%_ '2 '#f '#f)))) + (if _%signature197020197022%_ + (let* ((_%signature197025%_ _%signature197020197022%_) + (_%argument-types197026197028%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196040%_ + _%signature197025%_ '3 '#f '#f)))) - (if _%argument-types196041196043%_ - (let* ((_%argument-types196046%_ - _%argument-types196041196043%_) - (_%argument-types196051%_ - (let ((__tmp197470 - (lambda (_%t196049%_) - (if _%t196049%_ + (if _%argument-types197026197028%_ + (let* ((_%argument-types197031%_ + _%argument-types197026197028%_) + (_%argument-types197036%_ + (let ((__tmp198455 + (lambda (_%t197034%_) + (if _%t197034%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx196021%_ - _%t196049%_)) + _%stx197006%_ + _%t197034%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp197470 - _%argument-types196046%_)))) - (let _%loop196053%_ ((_%rest-args196055%_ _%args196022%_) - (_%rest-types196056%_ - _%argument-types196051%_) - (_%result196057%_ '#t)) - (let* ((_%rest-args196058196066%_ _%rest-args196055%_) - (_%else196060196074%_ - (lambda () _%result196057%_)) - (_%K196062196135%_ - (lambda (_%rest-args196077%_ _%arg196078%_) - (let* ((_%rest-types196079196090%_ - _%rest-types196056%_) - (_%E196083196094%_ + __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-types196079196090%_ + _%rest-types197064197075%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K196086196123%_ - (lambda (_%rest-types196120%_ - _%type196121%_) - (_%loop196053%_ - _%rest-args196077%_ - _%rest-types196120%_ + (let ((_%K197071197108%_ + (lambda (_%rest-types197105%_ + _%type197106%_) + (_%loop197038%_ + _%rest-args197062%_ + _%rest-types197105%_ (if (gxc#check-expression-type! - _%stx196021%_ - _%arg196078%_ - _%type196121%_) - _%result196057%_ + _%stx197006%_ + _%arg197063%_ + _%type197106%_) + _%result197042%_ '#f)))) - (_%K196085196114%_ + (_%K197070197099%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx196021%_ - _%argument-types196051%_)))) - (_%K196084196104%_ - (lambda (_%tail-type196098%_) - (if (let ((__tmp197471 - (lambda (_%g196099196101%_) + _%stx197006%_ + _%argument-types197036%_)))) + (_%K197069197089%_ + (lambda (_%tail-type197083%_) + (if (let ((__tmp198456 + (lambda (_%g197084197086%_) (gxc#check-expression-type! - _%stx196021%_ - _%g196099196101%_ - _%tail-type196098%_)))) + _%stx197006%_ + _%g197084197086%_ + _%tail-type197083%_)))) (declare (not safe)) (__andmap1 - __tmp197471 - _%rest-args196077%_)) - _%result196057%_ + __tmp198456 + _%rest-args197062%_)) + _%result197042%_ '#f)))) - (let ((_%try-match196081196117%_ + (let ((_%try-match197066197102%_ (lambda () - (if (null? _%rest-types196079196090%_) - (_%K196085196114%_) - (let ((_%tail-type196107%_ - _%rest-types196079196090%_)) - (_%K196084196104%_ - _%tail-type196107%_)))))) - (if (pair? _%rest-types196079196090%_) - (let ((_%tl196088196128%_ + (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-types196079196090%_))) - (_%hd196087196126%_ + (##cdr _%rest-types197064197075%_))) + (_%hd197072197111%_ (let () (declare (not safe)) - (##car _%rest-types196079196090%_)))) - (let ((_%type196131%_ - _%hd196087196126%_) - (_%rest-types196133%_ - _%tl196088196128%_)) - (_%K196086196123%_ - _%rest-types196133%_ - _%type196131%_))) - (_%try-match196081196117%_)))))))) - (if (pair? _%rest-args196058196066%_) - (let ((_%hd196063196138%_ + (##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-args196058196066%_))) - (_%tl196064196140%_ + (##car _%rest-args197043197051%_))) + (_%tl197049197125%_ (let () (declare (not safe)) - (##cdr _%rest-args196058196066%_)))) - (let* ((_%arg196143%_ _%hd196063196138%_) - (_%rest-args196145%_ - _%tl196064196140%_)) - (_%K196062196135%_ - _%rest-args196145%_ - _%arg196143%_))) - (_%else196060196074%_))))) + (##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 (_%self192690195827%_ _%ctx195829%_ _%stx195830%_ _%args195831%_) - (let* ((_%self195833%_ _%self192690195827%_) - (_%self195835%_ _%self195833%_) - (_%g195845195855%_ - (lambda (_%g195846195852%_) + (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" - _%g195846195852%_)))) - (_%g195844195893%_ - (lambda (_%g195846195858%_) + _%g196831196837%_)))) + (_%g196829196878%_ + (lambda (_%g196831196843%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195846195858%_)) - (let ((_%e195848195860%_ + (gx#stx-pair? _%g196831196843%_)) + (let ((_%e196833196845%_ (let () (declare (not safe)) - (gx#stx-e _%g195846195858%_)))) - (let ((_%hd195849195863%_ + (gx#stx-e _%g196831196843%_)))) + (let ((_%hd196834196848%_ (let () (declare (not safe)) - (##car _%e195848195860%_))) - (_%tl195850195865%_ + (##car _%e196833196845%_))) + (_%tl196835196850%_ (let () (declare (not safe)) - (##cdr _%e195848195860%_)))) + (##cdr _%e196833196845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195850195865%_)) - ((lambda (_%L195868%_) - (let* ((_%klass195880%_ - (let ((__tmp197472 + (gx#stx-null? _%tl196835196850%_)) + ((lambda (_%L196853%_) + (let* ((_%klass196865%_ + (let ((__tmp198457 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195835%_ + _%self196820%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195830%_ - __tmp197472))) - (_%object195882%_ + _%stx196815%_ + __tmp198457))) + (_%object196867%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195829%_ - _%L195868%_))) - (_%instance?195887%_ - (let ((_%$e195884%_ + _%ctx196814%_ + _%L196853%_))) + (_%instance?196872%_ + (let ((_%$e196869%_ (gxc#expression-type? - _%object195882%_ - _%klass195880%_))) - (if _%$e195884%_ - _%$e195884%_ + _%object196867%_ + _%klass196865%_))) + (if _%$e196869%_ + _%$e196869%_ (gxc#expression-type? - _%L195868%_ - _%klass195880%_))))) - (if _%instance?195887%_ - (let ((__tmp197473 + _%L196853%_ + _%klass196865%_))))) + (if _%instance?196872%_ + (let ((__tmp198458 (if (or (gxc#expression-no-side-effects? - _%object195882%_) + _%object196867%_) (gxc#expression-no-side-effects? - _%L195868%_)) + _%L196853%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195882%_ + (cons _%object196867%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197473 - _%stx195830%_)) + __tmp198458 + _%stx196815%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx195829%_ - _%stx195830%_))))) - _%hd195849195863%_) - (_%g195845195855%_ _%g195846195858%_)))) - (_%g195845195855%_ _%g195846195858%_))))) - (_%g195844195893%_ _%args195831%_)))) + _%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 (_%self192691195621%_ _%ctx195623%_ _%stx195624%_ _%args195625%_) - (let* ((_%self195627%_ _%self192691195621%_) - (_%self195629%_ _%self195627%_) - (_%g195639195649%_ - (lambda (_%g195640195646%_) + (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" - _%g195640195646%_)))) - (_%g195638195702%_ - (lambda (_%g195640195652%_) + _%g196625196631%_)))) + (_%g196623196687%_ + (lambda (_%g196625196637%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195640195652%_)) - (let ((_%e195642195654%_ + (gx#stx-pair? _%g196625196637%_)) + (let ((_%e196627196639%_ (let () (declare (not safe)) - (gx#stx-e _%g195640195652%_)))) - (let ((_%hd195643195657%_ + (gx#stx-e _%g196625196637%_)))) + (let ((_%hd196628196642%_ (let () (declare (not safe)) - (##car _%e195642195654%_))) - (_%tl195644195659%_ + (##car _%e196627196639%_))) + (_%tl196629196644%_ (let () (declare (not safe)) - (##cdr _%e195642195654%_)))) + (##cdr _%e196627196639%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195644195659%_)) - ((lambda (_%L195662%_) - (let* ((_%klass195674%_ - (let ((__tmp197474 + (gx#stx-null? _%tl196629196644%_)) + ((lambda (_%L196647%_) + (let* ((_%klass196659%_ + (let ((__tmp198459 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195629%_ + _%self196614%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195624%_ - __tmp197474))) - (_%object195676%_ + _%stx196609%_ + __tmp198459))) + (_%object196661%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195623%_ - _%L195662%_))) - (_%instance?195681%_ - (let ((_%$e195678%_ + _%ctx196608%_ + _%L196647%_))) + (_%instance?196666%_ + (let ((_%$e196663%_ (gxc#expression-type? - _%object195676%_ - _%klass195674%_))) - (if _%$e195678%_ - _%$e195678%_ + _%object196661%_ + _%klass196659%_))) + (if _%$e196663%_ + _%$e196663%_ (gxc#expression-type? - _%L195662%_ - _%klass195674%_)))) - (_%klass195684%_ _%klass195674%_)) - (if _%instance?195681%_ - (let ((__tmp197475 + _%L196647%_ + _%klass196659%_)))) + (_%klass196669%_ _%klass196659%_)) + (if _%instance?196666%_ + (let ((__tmp198460 (if (or (gxc#expression-no-side-effects? - _%object195676%_) + _%object196661%_) (gxc#expression-no-side-effects? - _%L195662%_)) + _%L196647%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195676%_ + (cons _%object196661%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197475 - _%stx195624%_)) + __tmp198460 + _%stx196609%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195684%_ + _%klass196669%_ '8 '#f '#f)) - (let ((__tmp197476 + (let ((__tmp198461 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195684%_ + _%klass196669%_ '1 '#f '#f)) '())) - (cons _%object195676%_ '()))))) + (cons _%object196661%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197476 - _%stx195624%_)) + __tmp198461 + _%stx196609%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195684%_ + _%klass196669%_ '7 '#f '#f)) - (let ((__tmp197477 + (let ((__tmp198462 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195684%_ + _%klass196669%_ '1 '#f '#f)) '())) - (cons _%object195676%_ '()))))) + (cons _%object196661%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197477 - _%stx195624%_)) - (let ((__tmp197478 + __tmp198462 + _%stx196609%_)) + (let ((__tmp198463 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1604,21 +1604,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195629%_ + _%self196614%_ '1 '#f '#f)) '())) - (cons _%object195676%_ '())))))) + (cons _%object196661%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197478 - _%stx195624%_))))))) - _%hd195643195657%_) - (_%g195639195649%_ _%g195640195652%_)))) - (_%g195639195649%_ _%g195640195652%_))))) - (_%g195638195702%_ _%args195625%_)))) + __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 (_%stx195284%_) - (let* ((_%__stx196873196874%_ _%stx195284%_) - (_%g195289195330%_ + (lambda (_%stx196269%_) + (let* ((_%__stx197858197859%_ _%stx196269%_) + (_%g196274196315%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196873196874%_))))) - (let ((_%__kont196875196876%_ (lambda () '#t)) - (_%__kont196877196878%_ (lambda () '#t)) - (_%__kont196879196880%_ - (lambda (_%L195398%_ _%L195399%_) - (let ((_%rator-type195420195422%_ - (let ((__tmp197479 + _%__stx197858197859%_))))) + (let ((_%__kont197860197861%_ (lambda () '#t)) + (_%__kont197862197863%_ (lambda () '#t)) + (_%__kont197864197865%_ + (lambda (_%L196383%_ _%L196384%_) + (let ((_%rator-type196405196407%_ + (let ((__tmp198464 (let () (declare (not safe)) - (gxc#identifier-symbol _%L195399%_)))) + (gxc#identifier-symbol _%L196384%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp197479)))) - (if _%rator-type195420195422%_ - (let* ((_%rator-type195425%_ - _%rator-type195420195422%_) - (_%rator-signature195426195428%_ + (gxc#optimizer-resolve-type __tmp198464)))) + (if _%rator-type196405196407%_ + (let* ((_%rator-type196410%_ + _%rator-type196405196407%_) + (_%rator-signature196411196413%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195425%_ + _%rator-type196410%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type195425%_ + _%rator-type196410%_ '2 '#f '#f)) '#f))) - (if _%rator-signature195426195428%_ - (let* ((_%rator-signature195431%_ - _%rator-signature195426195428%_) - (_%rator-effect195432195434%_ - (if _%rator-signature195431%_ + (if _%rator-signature196411196413%_ + (let* ((_%rator-signature196416%_ + _%rator-signature196411196413%_) + (_%rator-effect196417196419%_ + (if _%rator-signature196416%_ (##direct-structure-ref - _%rator-signature195431%_ + _%rator-signature196416%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect195432195434%_ - (let ((_%rator-effect195437%_ - _%rator-effect195432195434%_)) + (if _%rator-effect196417196419%_ + (let ((_%rator-effect196422%_ + _%rator-effect196417196419%_)) (if (or (equal? '(pure) - _%rator-effect195437%_) + _%rator-effect196422%_) (equal? '(alloc) - _%rator-effect195437%_)) - (let ((__tmp197480 - (let ((__tmp197481 - (lambda (_%g195442195445%_ + _%rator-effect196422%_)) + (let ((__tmp198465 + (let ((__tmp198466 + (lambda (_%g196427196430%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g195443195447%_) - (cons _%g195442195445%_ _%g195443195447%_)))) + _%g196428196432%_) + (cons _%g196427196430%_ _%g196428196432%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197481 + __tmp198466 '() - _%L195398%_)))) + _%L196383%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp197480)) + __tmp198465)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont196883196884%_ (lambda () '#f))) - (let ((_%__match196962196963%_ - (lambda (_%e195305195342%_ - _%hd195306195345%_ - _%tl195307195347%_ - _%e195308195350%_ - _%hd195309195353%_ - _%tl195310195355%_ - _%e195311195358%_ - _%hd195312195361%_ - _%tl195313195363%_ - _%e195314195366%_ - _%hd195315195369%_ - _%tl195316195371%_ - _%__splice196881196882%_ - _%target195317195374%_ - _%tl195319195376%_) - (letrec ((_%loop195320195379%_ - (lambda (_%hd195318195382%_ - _%rand195324195384%_) + (_%__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? _%hd195318195382%_)) - (let ((_%e195321195387%_ + (gx#stx-pair? _%hd196303196367%_)) + (let ((_%e196306196372%_ (let () (declare (not safe)) - (gx#stx-e _%hd195318195382%_)))) - (let ((_%lp-tl195323195392%_ + (gx#stx-e _%hd196303196367%_)))) + (let ((_%lp-tl196308196377%_ (let () (declare (not safe)) - (##cdr _%e195321195387%_))) - (_%lp-hd195322195390%_ + (##cdr _%e196306196372%_))) + (_%lp-hd196307196375%_ (let () (declare (not safe)) - (##car _%e195321195387%_)))) - (_%loop195320195379%_ - _%lp-tl195323195392%_ - (cons _%lp-hd195322195390%_ - _%rand195324195384%_)))) - (let ((_%rand195325195395%_ - (reverse _%rand195324195384%_))) - (_%__kont196879196880%_ - _%rand195325195395%_ - _%hd195315195369%_)))))) - (_%loop195320195379%_ _%target195317195374%_ '()))))) + (##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? _%__stx196873196874%_)) - (let ((_%e195291195478%_ + (gx#stx-pair? _%__stx197858197859%_)) + (let ((_%e196276196463%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196873196874%_)))) - (let ((_%tl195293195483%_ + (gx#stx-e _%__stx197858197859%_)))) + (let ((_%tl196278196468%_ (let () (declare (not safe)) - (##cdr _%e195291195478%_))) - (_%hd195292195481%_ + (##cdr _%e196276196463%_))) + (_%hd196277196466%_ (let () (declare (not safe)) - (##car _%e195291195478%_)))) + (##car _%e196276196463%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd195292195481%_)) + (gx#identifier? _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd195292195481%_)) + (gx#stx-eq? '%#quote _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195293195483%_)) - (let ((_%e195294195486%_ + (gx#stx-pair? _%tl196278196468%_)) + (let ((_%e196279196471%_ (let () (declare (not safe)) - (gx#stx-e _%tl195293195483%_)))) - (let ((_%tl195296195491%_ + (gx#stx-e _%tl196278196468%_)))) + (let ((_%tl196281196476%_ (let () (declare (not safe)) - (##cdr _%e195294195486%_))) - (_%hd195295195489%_ + (##cdr _%e196279196471%_))) + (_%hd196280196474%_ (let () (declare (not safe)) - (##car _%e195294195486%_)))) + (##car _%e196279196471%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195296195491%_)) - (_%__kont196875196876%_) - (_%__kont196883196884%_)))) - (_%__kont196883196884%_)) + (gx#stx-null? _%tl196281196476%_)) + (_%__kont197860197861%_) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd195292195481%_)) + (gx#stx-eq? '%#ref _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195293195483%_)) - (let ((_%e195300195463%_ + (gx#stx-pair? _%tl196278196468%_)) + (let ((_%e196285196448%_ (let () (declare (not safe)) - (gx#stx-e _%tl195293195483%_)))) - (let ((_%tl195302195468%_ + (gx#stx-e _%tl196278196468%_)))) + (let ((_%tl196287196453%_ (let () (declare (not safe)) - (##cdr _%e195300195463%_))) - (_%hd195301195466%_ + (##cdr _%e196285196448%_))) + (_%hd196286196451%_ (let () (declare (not safe)) - (##car _%e195300195463%_)))) + (##car _%e196285196448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195302195468%_)) - (_%__kont196877196878%_) - (_%__kont196883196884%_)))) - (_%__kont196883196884%_)) + _%tl196287196453%_)) + (_%__kont197862197863%_) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd195292195481%_)) + _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195293195483%_)) - (let ((_%e195308195350%_ + (gx#stx-pair? _%tl196278196468%_)) + (let ((_%e196293196335%_ (let () (declare (not safe)) (gx#stx-e - _%tl195293195483%_)))) - (let ((_%tl195310195355%_ + _%tl196278196468%_)))) + (let ((_%tl196295196340%_ (let () (declare (not safe)) - (##cdr _%e195308195350%_))) - (_%hd195309195353%_ + (##cdr _%e196293196335%_))) + (_%hd196294196338%_ (let () (declare (not safe)) - (##car _%e195308195350%_)))) + (##car _%e196293196335%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195309195353%_)) - (let ((_%e195311195358%_ + _%hd196294196338%_)) + (let ((_%e196296196343%_ (let () (declare (not safe)) (gx#stx-e - _%hd195309195353%_)))) - (let ((_%tl195313195363%_ + _%hd196294196338%_)))) + (let ((_%tl196298196348%_ (let () (declare (not safe)) - (##cdr _%e195311195358%_))) - (_%hd195312195361%_ + (##cdr _%e196296196343%_))) + (_%hd196297196346%_ (let () (declare (not safe)) - (##car _%e195311195358%_)))) + (##car _%e196296196343%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195312195361%_)) + _%hd196297196346%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd195312195361%_)) + (gx#stx-eq? '%#ref _%hd196297196346%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195313195363%_)) - (let ((_%e195314195366%_ + (gx#stx-pair? _%tl196298196348%_)) + (let ((_%e196299196351%_ (let () (declare (not safe)) - (gx#stx-e _%tl195313195363%_)))) - (let ((_%tl195316195371%_ + (gx#stx-e _%tl196298196348%_)))) + (let ((_%tl196301196356%_ (let () (declare (not safe)) - (##cdr _%e195314195366%_))) - (_%hd195315195369%_ + (##cdr _%e196299196351%_))) + (_%hd196300196354%_ (let () (declare (not safe)) - (##car _%e195314195366%_)))) + (##car _%e196299196351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195316195371%_)) + (gx#stx-null? _%tl196301196356%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl195310195355%_)) - (let ((_%__splice196881196882%_ + (gx#stx-pair/null? _%tl196295196340%_)) + (let ((_%__splice197866197867%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl195310195355%_ + _%tl196295196340%_ '0)))) - (let ((_%tl195319195376%_ + (let ((_%tl196304196361%_ (let () (declare (not safe)) (##vector-ref - _%__splice196881196882%_ + _%__splice197866197867%_ '1))) - (_%target195317195374%_ + (_%target196302196359%_ (let () (declare (not safe)) (##vector-ref - _%__splice196881196882%_ + _%__splice197866197867%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195319195376%_)) - (_%__match196962196963%_ - _%e195291195478%_ - _%hd195292195481%_ - _%tl195293195483%_ - _%e195308195350%_ - _%hd195309195353%_ - _%tl195310195355%_ - _%e195311195358%_ - _%hd195312195361%_ - _%tl195313195363%_ - _%e195314195366%_ - _%hd195315195369%_ - _%tl195316195371%_ - _%__splice196881196882%_ - _%target195317195374%_ - _%tl195319195376%_) - (_%__kont196883196884%_)))) - (_%__kont196883196884%_)) - (_%__kont196883196884%_)))) - (_%__kont196883196884%_)) - (_%__kont196883196884%_)) - (_%__kont196883196884%_)))) + _%tl196304196361%_)) + (_%__match197947197948%_ + _%e196276196463%_ + _%hd196277196466%_ + _%tl196278196468%_ + _%e196293196335%_ + _%hd196294196338%_ + _%tl196295196340%_ + _%e196296196343%_ + _%hd196297196346%_ + _%tl196298196348%_ + _%e196299196351%_ + _%hd196300196354%_ + _%tl196301196356%_ + _%__splice197866197867%_ + _%target196302196359%_ + _%tl196304196361%_) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196883196884%_)))) - (_%__kont196883196884%_)) - (_%__kont196883196884%_)))) - (_%__kont196883196884%_)))) - (_%__kont196883196884%_))))))) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_))))))) (define gxc#expression-type? - (lambda (_%stx195279%_ _%klass195280%_) - (let ((_%expr-type195282%_ + (lambda (_%stx196264%_ _%klass196265%_) + (let ((_%expr-type196267%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx195279%_)))) - (if _%expr-type195282%_ + (gxc#apply-basic-expression-type _%stx196264%_)))) + (if _%expr-type196267%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type195282%_ _%klass195280%_)) + (gxc#!type-subtype? _%expr-type196267%_ _%klass196265%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx195257%_ _%expr195258%_ _%type195259%_) - (if (not _%type195259%_) + (lambda (_%stx196242%_ _%expr196243%_ _%type196244%_) + (if (not _%type196244%_) '#f - (let ((_%$e195262%_ - (eq? (##structure-ref _%type195259%_ '1 gxc#!type::t '#f) + (let ((_%$e196247%_ + (eq? (##structure-ref _%type196244%_ '1 gxc#!type::t '#f) 't))) - (if _%$e195262%_ - _%$e195262%_ - (let ((_%expr-type195266%_ + (if _%$e196247%_ + _%$e196247%_ + (let ((_%expr-type196251%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr195258%_)))) - (if (not _%expr-type195266%_) + (gxc#apply-basic-expression-type _%expr196243%_)))) + (if (not _%expr-type196251%_) '#f (if (eq? 't (##structure-ref - _%expr-type195266%_ + _%expr-type196251%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e195270%_ + (let ((_%$e196255%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type195266%_ + _%expr-type196251%_ 'gxc#!abort::t)))) - (if _%$e195270%_ - _%$e195270%_ - (let ((_%$e195273%_ + (if _%$e196255%_ + _%$e196255%_ + (let ((_%$e196258%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type195266%_ - _%type195259%_)))) - (if _%$e195273%_ - _%$e195273%_ + _%expr-type196251%_ + _%type196244%_)))) + (if _%$e196258%_ + _%$e196258%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type195259%_)) + _%type196244%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type195259%_ - _%expr-type195266%_)) + _%type196244%_ + _%expr-type196251%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx195257%_ - _%expr195258%_ - _%expr-type195266%_ - _%type195259%_)))))))))))))))) + _%stx196242%_ + _%expr196243%_ + _%expr-type196251%_ + _%type196244%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self192692195069%_ _%ctx195071%_ _%stx195072%_ _%args195073%_) - (let* ((_%self195075%_ _%self192692195069%_) - (_%self195077%_ _%self195075%_) - (_%klass195087%_ - (let ((__tmp197482 + (lambda (_%self193677196054%_ _%ctx196056%_ _%stx196057%_ _%args196058%_) + (let* ((_%self196060%_ _%self193677196054%_) + (_%self196062%_ _%self196060%_) + (_%klass196072%_ + (let ((__tmp198467 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx195072%_ __tmp197482))) - (_%fields195089%_ + (gxc#optimizer-resolve-class _%stx196057%_ __tmp198467))) + (_%fields196074%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195087%_ + _%klass196072%_ '5 '#f '#f)))) - (_%args195095%_ - (map (lambda (_%g195090195092%_) + (_%args196080%_ + (map (lambda (_%g196075196077%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx195071%_ _%g195090195092%_))) - _%args195073%_)) - (_%inline-make-object195097%_ + (gxc#compile-e__1 _%ctx196056%_ _%g196075196077%_))) + _%args196058%_)) + (_%inline-make-object196082%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)) @@ -2052,66 +2052,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields195089%_ + _%fields196074%_ '(%#quote #f))))) '())))) - (_%klass195100%_ _%klass195087%_) - (_%$e195114%_ + (_%klass196085%_ _%klass196072%_) + (_%$e196099%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass195100%_ '6 '#f '#f)))) - (if _%$e195114%_ - ((lambda (_%ctor195117%_) - (let ((_%$obj195119%_ - (let ((__tmp197483 + (##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 __tmp197483))) - (_%ctor-impl195120%_ + (make-symbol__0 __tmp198468))) + (_%ctor-impl196105%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass195100%_ - _%ctor195117%_)))) - (let ((__tmp197484 + _%klass196085%_ + _%ctor196102%_)))) + (let ((__tmp198469 (cons '%#let-values - (cons (cons (cons (cons _%$obj195119%_ '()) - (cons _%inline-make-object195097%_ + (cons (cons (cons (cons _%$obj196104%_ '()) + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl195120%_ - (let ((__tmp197485 + (cons (if _%ctor-impl196105%_ + (let ((__tmp198470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl195120%_ '())) + (cons _%ctor-impl196105%_ '())) (cons (cons '%#ref - (cons _%$obj195119%_ '())) - _%args195095%_))))) + (cons _%$obj196104%_ '())) + _%args196080%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197485 - _%stx195072%_ - _%ctx195071%_)) - (let ((_%$ctor195122%_ - (let ((__tmp197486 + __tmp198470 + _%stx196057%_ + _%ctx196056%_)) + (let ((_%$ctor196107%_ + (let ((__tmp198471 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp197486)))) + (make-symbol__0 __tmp198471)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor195122%_ '()) + (cons (cons (cons (cons _%$ctor196107%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2120,28 +2120,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj195119%_ '())) + (cons (cons '%#ref (cons _%$obj196104%_ '())) (cons (cons '%#quote - (cons _%ctor195117%_ '())) + (cons _%ctor196102%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor195122%_ + (cons _%$ctor196107%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor195122%_ '())) - (cons (cons '%#ref (cons _%$obj195119%_ '())) - _%args195095%_))) + (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 - _%self195077%_ + _%self196062%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor195117%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor196102%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj195119%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj196104%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197484 _%stx195072%_)))) - _%$e195114%_) - (let ((_%$e195124%_ + (gxc#xform-wrap-source __tmp198469 _%stx196057%_)))) + _%$e196099%_) + (let ((_%$e196109%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195100%_ + _%klass196085%_ '10 '#f '#f)))) - (if _%$e195124%_ - ((lambda (_%metaclass195127%_) - (let* ((_%$obj195129%_ - (let ((__tmp197487 + (if _%$e196109%_ + ((lambda (_%metaclass196112%_) + (let* ((_%$obj196114%_ + (let ((__tmp198472 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197487))) - (_%metakons195131%_ - (let ((__tmp197488 + (make-symbol__0 __tmp198472))) + (_%metakons196116%_ + (let ((__tmp198473 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195072%_ - _%metaclass195127%_)))) + _%stx196057%_ + _%metaclass196112%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp197488 + __tmp198473 'instance-init!))) - (__tmp197489 + (__tmp198474 (cons '%#let-values - (cons (cons (cons (cons _%$obj195129%_ + (cons (cons (cons (cons _%$obj196114%_ '()) - (cons _%inline-make-object195097%_ + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons195131%_ + (cons (if _%metakons196116%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197490 + (let ((__tmp198475 (cons '%#call (cons (cons '%#ref - (cons _%metakons195131%_ + (cons _%metakons196116%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self195077%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self196062%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj195129%_ + (cons _%$obj196114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args195095%_)))))) + _%args196080%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197490 - _%stx195072%_ - _%ctx195071%_)) + __tmp198475 + _%stx196057%_ + _%ctx196056%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)) @@ -2248,38 +2248,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj195129%_ + (cons _%$obj196114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args195095%_)))))) + _%args196080%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj195129%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj196114%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197489 _%stx195072%_))) - _%$e195124%_) + (gxc#xform-wrap-source __tmp198474 _%stx196057%_))) + _%$e196109%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195100%_ + _%klass196085%_ '7 '#f '#f)) - (if (let ((__tmp197491 + (if (let ((__tmp198476 (let () (declare (not safe)) - (##length _%args195095%_)))) + (##length _%args196080%_)))) (declare (not safe)) - (##fx= __tmp197491 _%fields195089%_)) - (let ((__tmp197492 + (##fx= __tmp198476 _%fields196074%_)) + (let ((__tmp198477 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)) @@ -2292,151 +2292,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)) '())) - _%args195095%_))) + _%args196080%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197492 - _%stx195072%_)) - (let ((__tmp197494 + __tmp198477 + _%stx196057%_)) + (let ((__tmp198479 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f))) - (__tmp197493 + (__tmp198478 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195100%_ + _%klass196085%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx195072%_ - __tmp197494 - __tmp197493))) - (let ((_%$obj195136%_ - (let ((__tmp197495 + _%stx196057%_ + __tmp198479 + __tmp198478))) + (let ((_%$obj196121%_ + (let ((__tmp198480 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197495)))) - (let _%lp195138%_ ((_%rest195140%_ _%args195095%_) - (_%initializers195141%_ '())) - (let* ((_%__stx196965196966%_ _%rest195140%_) - (_%g195145195166%_ + (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" - _%__stx196965196966%_))))) - (let ((_%__kont196967196968%_ - (lambda (_%L195220%_ - _%L195221%_ - _%L195222%_) - (let* ((_%slot195249%_ - (let ((__tmp197496 + _%__stx197950197951%_))))) + (let ((_%__kont197952197953%_ + (lambda (_%L196205%_ + _%L196206%_ + _%L196207%_) + (let* ((_%slot196234%_ + (let ((__tmp198481 (let () (declare (not safe)) (gx#stx-e - _%L195222%_)))) + _%L196207%_)))) (declare (not safe)) (keyword->symbol - __tmp197496))) - (_%off195251%_ + __tmp198481))) + (_%off196236%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass195100%_ - _%slot195249%_)))) - (if _%off195251%_ - (_%lp195138%_ - _%L195220%_ - (cons (cons _%off195251%_ - _%L195221%_) - _%initializers195141%_)) - (let ((__tmp197497 + _%klass196085%_ + _%slot196234%_)))) + (if _%off196236%_ + (_%lp196123%_ + _%L196205%_ + (cons (cons _%off196236%_ + _%L196206%_) + _%initializers196126%_)) + (let ((__tmp198482 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx195072%_ - __tmp197497 - _%slot195249%_)))))) - (_%__kont196969196970%_ + _%stx196057%_ + __tmp198482 + _%slot196234%_)))))) + (_%__kont197954197955%_ (lambda () - (let ((__tmp197498 + (let ((__tmp198483 (cons '%#let-values - (cons (cons (cons (cons _%$obj195136%_ + (cons (cons (cons (cons _%$obj196121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object195097%_ '())) + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin - (let ((__tmp197501 + (let ((__tmp198486 (cons (cons '%#ref - (cons _%$obj195136%_ '())) + (cons _%$obj196121%_ '())) '())) - (__tmp197499 - (let ((__tmp197500 - (lambda (_%i195180%_ _%r195181%_) + (__tmp198484 + (let ((__tmp198485 + (lambda (_%i196165%_ _%r196166%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195077%_ + _%self196062%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i195180%_) '())) - (cons (cons '%#ref (cons _%$obj195136%_ '())) - (cons (cdr _%i195180%_) '()))))) + (cons (cons '%#quote (cons (car _%i196165%_) '())) + (cons (cons '%#ref (cons _%$obj196121%_ '())) + (cons (cdr _%i196165%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r195181%_)))) + _%r196166%_)))) (declare (not safe)) (__foldl1 - __tmp197500 + __tmp198485 '() - _%initializers195141%_)))) + _%initializers196126%_)))) (declare (not safe)) - (__foldr1 cons __tmp197501 __tmp197499))) + (__foldr1 cons __tmp198486 __tmp198484))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197498 - _%stx195072%_)))) - (_%__kont196971196972%_ + __tmp198483 + _%stx196057%_)))) + (_%__kont197956197957%_ (lambda () - (let ((__tmp197502 + (let ((__tmp198487 (cons '%#let-values - (cons (cons (cons (cons _%$obj195136%_ + (cons (cons (cons (cons _%$obj196121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object195097%_ '())) + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2444,157 +2444,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj195136%_ + (cons _%$obj196121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args195095%_))) + _%args196080%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj195136%_ '())) + (cons _%$obj196121%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197502 - _%stx195072%_))))) - (let* ((_%g195143195183%_ + __tmp198487 + _%stx196057%_))))) + (let* ((_%g196128196168%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx196965196966%_)) - (_%__kont196969196970%_) - (_%__kont196971196972%_)))) - (_%__match197002197003%_ - (lambda (_%e195150195188%_ - _%hd195151195191%_ - _%tl195152195193%_ - _%e195153195196%_ - _%hd195154195199%_ - _%tl195155195201%_ - _%e195156195204%_ - _%hd195157195207%_ - _%tl195158195209%_ - _%e195159195212%_ - _%hd195160195215%_ - _%tl195161195217%_) - (let ((_%L195220%_ - _%tl195161195217%_) - (_%L195221%_ - _%hd195160195215%_) - (_%L195222%_ - _%hd195157195207%_)) + _%__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? - _%L195222%_)) - (_%__kont196967196968%_ - _%L195220%_ - _%L195221%_ - _%L195222%_) - (_%__kont196971196972%_)))))) + _%L196207%_)) + (_%__kont197952197953%_ + _%L196205%_ + _%L196206%_ + _%L196207%_) + (_%__kont197956197957%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196965196966%_)) - (let ((_%e195150195188%_ + (gx#stx-pair? _%__stx197950197951%_)) + (let ((_%e196135196173%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196965196966%_)))) - (let ((_%tl195152195193%_ + _%__stx197950197951%_)))) + (let ((_%tl196137196178%_ (let () (declare (not safe)) - (##cdr _%e195150195188%_))) - (_%hd195151195191%_ + (##cdr _%e196135196173%_))) + (_%hd196136196176%_ (let () (declare (not safe)) - (##car _%e195150195188%_)))) + (##car _%e196135196173%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195151195191%_)) - (let ((_%e195153195196%_ + _%hd196136196176%_)) + (let ((_%e196138196181%_ (let () (declare (not safe)) (gx#stx-e - _%hd195151195191%_)))) - (let ((_%tl195155195201%_ + _%hd196136196176%_)))) + (let ((_%tl196140196186%_ (let () (declare (not safe)) - (##cdr _%e195153195196%_))) - (_%hd195154195199%_ + (##cdr _%e196138196181%_))) + (_%hd196139196184%_ (let () (declare (not safe)) - (##car _%e195153195196%_)))) + (##car _%e196138196181%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195154195199%_)) + _%hd196139196184%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd195154195199%_)) + _%hd196139196184%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl195155195201%_)) - (let ((_%e195156195204%_ + (gx#stx-pair? _%tl196140196186%_)) + (let ((_%e196141196189%_ (let () (declare (not safe)) - (gx#stx-e _%tl195155195201%_)))) - (let ((_%tl195158195209%_ + (gx#stx-e _%tl196140196186%_)))) + (let ((_%tl196143196194%_ (let () (declare (not safe)) - (##cdr _%e195156195204%_))) - (_%hd195157195207%_ + (##cdr _%e196141196189%_))) + (_%hd196142196192%_ (let () (declare (not safe)) - (##car _%e195156195204%_)))) + (##car _%e196141196189%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195158195209%_)) + (gx#stx-null? _%tl196143196194%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195152195193%_)) - (let ((_%e195159195212%_ + (gx#stx-pair? _%tl196137196178%_)) + (let ((_%e196144196197%_ (let () (declare (not safe)) - (gx#stx-e _%tl195152195193%_)))) - (let ((_%tl195161195217%_ + (gx#stx-e _%tl196137196178%_)))) + (let ((_%tl196146196202%_ (let () (declare (not safe)) - (##cdr _%e195159195212%_))) - (_%hd195160195215%_ + (##cdr _%e196144196197%_))) + (_%hd196145196200%_ (let () (declare (not safe)) - (##car _%e195159195212%_)))) - (_%__match197002197003%_ - _%e195150195188%_ - _%hd195151195191%_ - _%tl195152195193%_ - _%e195153195196%_ - _%hd195154195199%_ - _%tl195155195201%_ - _%e195156195204%_ - _%hd195157195207%_ - _%tl195158195209%_ - _%e195159195212%_ - _%hd195160195215%_ - _%tl195161195217%_))) - (_%__kont196971196972%_)) - (_%__kont196971196972%_)))) - (_%__kont196971196972%_)) - (_%__kont196971196972%_)) - (_%__kont196971196972%_)))) + (##car _%e196144196197%_)))) + (_%__match197987197988%_ + _%e196135196173%_ + _%hd196136196176%_ + _%tl196137196178%_ + _%e196138196181%_ + _%hd196139196184%_ + _%tl196140196186%_ + _%e196141196189%_ + _%hd196142196192%_ + _%tl196143196194%_ + _%e196144196197%_ + _%hd196145196200%_ + _%tl196146196202%_))) + (_%__kont197956197957%_)) + (_%__kont197956197957%_)))) + (_%__kont197956197957%_)) + (_%__kont197956197957%_)) + (_%__kont197956197957%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196971196972%_)))) + (_%__kont197956197957%_)))) (let () (declare (not safe)) - (_%g195143195183%_))))))))))))))) + (_%g196128196168%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2603,105 +2603,105 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self192693194850%_ _%ctx194852%_ _%stx194853%_ _%args194854%_) - (let* ((_%self194856%_ _%self192693194850%_) - (_%self194858%_ _%self194856%_) - (_%arguments-ok?194868%_ - (let ((__method197446 + (lambda (_%self193678195835%_ _%ctx195837%_ _%stx195838%_ _%args195839%_) + (let* ((_%self195841%_ _%self193678195835%_) + (_%self195843%_ _%self195841%_) + (_%arguments-ok?195853%_ + (let ((__method198431 (let () (declare (not safe)) - (__method-ref _%self194858%_ 'check-arguments)))) - (if __method197446 + (__method-ref _%self195843%_ 'check-arguments)))) + (if __method198431 (let () (declare (not safe)) - (__method197446 - _%self194858%_ - _%ctx194852%_ - _%stx194853%_ - _%args194854%_)) + (__method198431 + _%self195843%_ + _%ctx195837%_ + _%stx195838%_ + _%args195839%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194858%_ + _%self195843%_ 'check-arguments)) '#!void)))) - (_%g194870194880%_ - (lambda (_%g194871194877%_) + (_%g195855195865%_ + (lambda (_%g195856195862%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194871194877%_)))) - (_%g194869194944%_ - (lambda (_%g194871194883%_) + _%g195856195862%_)))) + (_%g195854195929%_ + (lambda (_%g195856195868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194871194883%_)) - (let ((_%e194873194885%_ + (gx#stx-pair? _%g195856195868%_)) + (let ((_%e195858195870%_ (let () (declare (not safe)) - (gx#stx-e _%g194871194883%_)))) - (let ((_%hd194874194888%_ + (gx#stx-e _%g195856195868%_)))) + (let ((_%hd195859195873%_ (let () (declare (not safe)) - (##car _%e194873194885%_))) - (_%tl194875194890%_ + (##car _%e195858195870%_))) + (_%tl195860195875%_ (let () (declare (not safe)) - (##cdr _%e194873194885%_)))) + (##cdr _%e195858195870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194875194890%_)) - ((lambda (_%L194893%_) - (let* ((_%klass194906%_ - (let ((__tmp197503 + (gx#stx-null? _%tl195860195875%_)) + ((lambda (_%L195878%_) + (let* ((_%klass195891%_ + (let ((__tmp198488 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194853%_ - __tmp197503))) - (_%field194908%_ - (let ((__tmp197504 + _%stx195838%_ + __tmp198488))) + (_%field195893%_ + (let ((__tmp198489 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194906%_ - __tmp197504))) - (_%object194910%_ + _%klass195891%_ + __tmp198489))) + (_%object195895%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194852%_ - _%L194893%_))) - (_%klass194913%_ _%klass194906%_)) + _%ctx195837%_ + _%L195878%_))) + (_%klass195898%_ _%klass195891%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194913%_ + _%klass195898%_ '8 '#f '#f)) - (let ((__tmp197505 - (cons (if (or _%arguments-ok?194868%_ + (let ((__tmp198490 + (cons (if (or _%arguments-ok?195853%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)))) @@ -2713,32 +2713,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194908%_ '())) - (cons _%object194910%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197505 - _%stx194853%_)) + __tmp198490 + _%stx195838%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194913%_ + _%klass195898%_ '7 '#f '#f)) - (let ((__tmp197506 - (cons (if (or _%arguments-ok?194868%_ + (let ((__tmp198491 + (cons (if (or _%arguments-ok?195853%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)))) @@ -2748,40 +2748,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194908%_ '())) - (cons _%object194910%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197506 - _%stx194853%_)) - (let ((_%$e194932%_ - (let ((__tmp197507 + __tmp198491 + _%stx195838%_)) + (let ((_%$e195917%_ + (let ((__tmp198492 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194913%_ - __tmp197507)))) - (if _%$e194932%_ - ((lambda (_%klass194935%_) - (let ((__tmp197508 - (cons (if (or _%arguments-ok?194868%_ + _%klass195898%_ + __tmp198492)))) + (if _%$e195917%_ + ((lambda (_%klass195920%_) + (let ((__tmp198493 + (cons (if (or _%arguments-ok?195853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)))) @@ -2791,36 +2791,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194908%_ '())) - (cons _%object194910%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197508 _%stx194853%_))) + (gxc#xform-wrap-source __tmp198493 _%stx195838%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e194932%_) + _%$e195917%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)) - (let ((__tmp197509 - (let ((_%$obj194941%_ + (let ((__tmp198494 + (let ((_%$obj195926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197510 + (let ((__tmp198495 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197510)))) + (make-symbol__0 __tmp198495)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194941%_ '()) - (cons _%object194910%_ '())) + (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 - _%klass194913%_ + _%klass195898%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194941%_ '())) '()))) + (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 - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194908%_ '())) + (cons (cons '%#quote (cons _%field195893%_ '())) (cons (cons '%#ref - (cons _%$obj194941%_ '())) + (cons _%$obj195926%_ '())) '())))) - (cons (if _%arguments-ok?194868%_ + (cons (if _%arguments-ok?195853%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194941%_ '())) + (cons _%$obj195926%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)) @@ -2877,20 +2877,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194941%_ + (cons _%$obj195926%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)) @@ -2901,148 +2901,148 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197509 _%stx194853%_)) + (gxc#xform-wrap-source __tmp198494 _%stx195838%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp197511 + (let ((__tmp198496 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194910%_ + (cons _%object195895%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197511 _%stx194853%_))))))))) + (gxc#xform-wrap-source __tmp198496 _%stx195838%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194874194888%_) - (_%g194870194880%_ _%g194871194883%_)))) - (_%g194870194880%_ _%g194871194883%_))))) - (_%g194869194944%_ _%args194854%_)))) + _%hd195859195873%_) + (_%g195855195865%_ _%g195856195868%_)))) + (_%g195855195865%_ _%g195856195868%_))))) + (_%g195854195929%_ _%args195839%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass196733 __method-table196734) - (let ((__check-arguments196735 - (let ((__tmp197512 + (lambda (__klass197718 __method-table197719) + (let ((__check-arguments197720 + (let ((__tmp198497 (lambda () - (let ((__method196736 + (let ((__method197721 (let () (declare (not safe)) (symbolic-table-ref - __method-table196734 + __method-table197719 'check-arguments '#f)))) - (if __method196736 - __method196736 + (if __method197721 + __method197721 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197512))) - (__slot196737 - (let ((__slot196738 + (__make-promise __tmp198497))) + (__slot197722 + (let ((__slot197723 (let () (declare (not safe)) - (class-slot-offset __klass196733 'slot)))) - (if __slot196738 - __slot196738 + (class-slot-offset __klass197718 'slot)))) + (if __slot197723 + __slot197723 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self192693194850%_ - _%ctx194852%_ - _%stx194853%_ - _%args194854%_) - (let* ((_%self194856%_ _%self192693194850%_) - (_%self194858%_ _%self194856%_) - (_%arguments-ok?194868%_ - ((force __check-arguments196735) - _%self194858%_ - _%ctx194852%_ - _%stx194853%_ - _%args194854%_)) - (_%g194870194880%_ - (lambda (_%g194871194877%_) + (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" - _%g194871194877%_)))) - (_%g194869194944%_ - (lambda (_%g194871194883%_) + _%g195856195862%_)))) + (_%g195854195929%_ + (lambda (_%g195856195868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194871194883%_)) - (let ((_%e194873194885%_ + (gx#stx-pair? _%g195856195868%_)) + (let ((_%e195858195870%_ (let () (declare (not safe)) - (gx#stx-e _%g194871194883%_)))) - (let ((_%hd194874194888%_ + (gx#stx-e _%g195856195868%_)))) + (let ((_%hd195859195873%_ (let () (declare (not safe)) - (##car _%e194873194885%_))) - (_%tl194875194890%_ + (##car _%e195858195870%_))) + (_%tl195860195875%_ (let () (declare (not safe)) - (##cdr _%e194873194885%_)))) + (##cdr _%e195858195870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194875194890%_)) - ((lambda (_%L194893%_) - (let* ((_%klass194906%_ - (let ((__tmp197513 + (gx#stx-null? _%tl195860195875%_)) + ((lambda (_%L195878%_) + (let* ((_%klass195891%_ + (let ((__tmp198498 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194853%_ - __tmp197513))) - (_%field194908%_ - (let ((__tmp197514 + _%stx195838%_ + __tmp198498))) + (_%field195893%_ + (let ((__tmp198499 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194906%_ - __tmp197514))) - (_%object194910%_ + _%klass195891%_ + __tmp198499))) + (_%object195895%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194852%_ - _%L194893%_))) - (_%klass194913%_ _%klass194906%_)) + _%ctx195837%_ + _%L195878%_))) + (_%klass195898%_ _%klass195891%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194913%_ + _%klass195898%_ '8 '#f '#f)) - (let ((__tmp197515 - (cons (if (or _%arguments-ok?194868%_ + (let ((__tmp198500 + (cons (if (or _%arguments-ok?195853%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)))) @@ -3052,32 +3052,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194908%_ '())) - (cons _%object194910%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197515 - _%stx194853%_)) + __tmp198500 + _%stx195838%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194913%_ + _%klass195898%_ '7 '#f '#f)) - (let ((__tmp197516 - (cons (if (or _%arguments-ok?194868%_ + (let ((__tmp198501 + (cons (if (or _%arguments-ok?195853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)))) @@ -3087,37 +3087,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194908%_ '())) - (cons _%object194910%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197516 - _%stx194853%_)) - (let ((_%$e194932%_ - (let ((__tmp197517 + __tmp198501 + _%stx195838%_)) + (let ((_%$e195917%_ + (let ((__tmp198502 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194858%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self195843%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass194913%_ __tmp197517)))) + (gxc#!class-slot-find-struct _%klass195898%_ __tmp198502)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194932%_ - ((lambda (_%klass194935%_) - (let ((__tmp197518 - (cons (if (or _%arguments-ok?194868%_ + (if _%$e195917%_ + ((lambda (_%klass195920%_) + (let ((__tmp198503 + (cons (if (or _%arguments-ok?195853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)))) @@ -3127,37 +3127,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194908%_ '())) - (cons _%object194910%_ '())))))) + (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197518 _%stx194853%_))) - _%$e194932%_) + (gxc#xform-wrap-source __tmp198503 _%stx195838%_))) + _%$e195917%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '4 '#f '#f)) - (let ((__tmp197519 - (let ((_%$obj194941%_ + (let ((__tmp198504 + (let ((_%$obj195926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197520 + (let ((__tmp198505 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197520)))) + (make-symbol__0 __tmp198505)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194941%_ '()) - (cons _%object194910%_ '())) + (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 - _%klass194913%_ + _%klass195898%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194941%_ '())) + (cons (cons '%#ref (cons _%$obj195926%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194908%_ '())) + (cons _%field195893%_ '())) (cons (cons '%#ref - (cons _%$obj194941%_ '())) + (cons _%$obj195926%_ '())) '())))) - (cons (if _%arguments-ok?194868%_ + (cons (if _%arguments-ok?195853%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194941%_ + (cons _%$obj195926%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ - __slot196737 + _%self195843%_ + __slot197722 '#f '#f)) '())) @@ -3216,18 +3216,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194858%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self195843%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194941%_ + (cons _%$obj195926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)) @@ -3238,30 +3238,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197519 _%stx194853%_)) - (let ((__tmp197521 + (gxc#xform-wrap-source __tmp198504 _%stx195838%_)) + (let ((__tmp198506 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194910%_ + (cons _%object195895%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194858%_ + _%self195843%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197521 _%stx194853%_))))))))) + (gxc#xform-wrap-source __tmp198506 _%stx195838%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194874194888%_) - (_%g194870194880%_ _%g194871194883%_)))) - (_%g194870194880%_ _%g194871194883%_))))) - (_%g194869194944%_ _%args194854%_)))))) + _%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 (_%self192694194612%_ _%ctx194614%_ _%stx194615%_ _%args194616%_) - (let* ((_%self194618%_ _%self192694194612%_) - (_%self194620%_ _%self194618%_) - (_%arguments-ok?194630%_ - (let ((__method197447 + (lambda (_%self193679195597%_ _%ctx195599%_ _%stx195600%_ _%args195601%_) + (let* ((_%self195603%_ _%self193679195597%_) + (_%self195605%_ _%self195603%_) + (_%arguments-ok?195615%_ + (let ((__method198432 (let () (declare (not safe)) - (__method-ref _%self194620%_ 'check-arguments)))) - (if __method197447 + (__method-ref _%self195605%_ 'check-arguments)))) + (if __method198432 (let () (declare (not safe)) - (__method197447 - _%self194620%_ - _%ctx194614%_ - _%stx194615%_ - _%args194616%_)) + (__method198432 + _%self195605%_ + _%ctx195599%_ + _%stx195600%_ + _%args195601%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194620%_ + _%self195605%_ 'check-arguments)) '#!void)))) - (_%g194632194646%_ - (lambda (_%g194633194643%_) + (_%g195617195631%_ + (lambda (_%g195618195628%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194633194643%_)))) - (_%g194631194725%_ - (lambda (_%g194633194649%_) + _%g195618195628%_)))) + (_%g195616195710%_ + (lambda (_%g195618195634%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194633194649%_)) - (let ((_%e194636194651%_ + (gx#stx-pair? _%g195618195634%_)) + (let ((_%e195621195636%_ (let () (declare (not safe)) - (gx#stx-e _%g194633194649%_)))) - (let ((_%hd194637194654%_ + (gx#stx-e _%g195618195634%_)))) + (let ((_%hd195622195639%_ (let () (declare (not safe)) - (##car _%e194636194651%_))) - (_%tl194638194656%_ + (##car _%e195621195636%_))) + (_%tl195623195641%_ (let () (declare (not safe)) - (##cdr _%e194636194651%_)))) + (##cdr _%e195621195636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194638194656%_)) - (let ((_%e194639194659%_ + (gx#stx-pair? _%tl195623195641%_)) + (let ((_%e195624195644%_ (let () (declare (not safe)) - (gx#stx-e _%tl194638194656%_)))) - (let ((_%hd194640194662%_ + (gx#stx-e _%tl195623195641%_)))) + (let ((_%hd195625195647%_ (let () (declare (not safe)) - (##car _%e194639194659%_))) - (_%tl194641194664%_ + (##car _%e195624195644%_))) + (_%tl195626195649%_ (let () (declare (not safe)) - (##cdr _%e194639194659%_)))) + (##cdr _%e195624195644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194641194664%_)) - ((lambda (_%L194667%_ _%L194668%_) - (let* ((_%klass194684%_ - (let ((__tmp197522 + (gx#stx-null? _%tl195626195649%_)) + ((lambda (_%L195652%_ _%L195653%_) + (let* ((_%klass195669%_ + (let ((__tmp198507 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194615%_ - __tmp197522))) - (_%field194686%_ - (let ((__tmp197523 + _%stx195600%_ + __tmp198507))) + (_%field195671%_ + (let ((__tmp198508 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194684%_ - __tmp197523))) - (_%object194688%_ + _%klass195669%_ + __tmp198508))) + (_%object195673%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194614%_ - _%L194668%_))) - (_%value194690%_ + _%ctx195599%_ + _%L195653%_))) + (_%value195675%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194614%_ - _%L194667%_))) - (_%klass194693%_ - _%klass194684%_)) + _%ctx195599%_ + _%L195652%_))) + (_%klass195678%_ + _%klass195669%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194693%_ + _%klass195678%_ '8 '#f '#f)) - (let ((__tmp197524 - (cons (if (or _%arguments-ok?194630%_ + (let ((__tmp198509 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '4 '#f '#f)))) @@ -3405,33 +3405,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194686%_ '())) - (cons _%object194688%_ - (cons _%value194690%_ '()))))))) + (cons (cons '%#quote (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197524 - _%stx194615%_)) + __tmp198509 + _%stx195600%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194693%_ + _%klass195678%_ '7 '#f '#f)) - (let ((__tmp197525 - (cons (if (or _%arguments-ok?194630%_ + (let ((__tmp198510 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '4 '#f '#f)))) @@ -3441,43 +3441,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194686%_ '())) - (cons _%object194688%_ - (cons _%value194690%_ '()))))))) + (cons (cons '%#quote (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197525 - _%stx194615%_)) - (let ((_%$e194713%_ - (let ((__tmp197526 + __tmp198510 + _%stx195600%_)) + (let ((_%$e195698%_ + (let ((__tmp198511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194693%_ - __tmp197526)))) + _%klass195678%_ + __tmp198511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194713%_ - ((lambda (_%klass194716%_) - (let ((__tmp197527 + (if _%$e195698%_ + ((lambda (_%klass195701%_) + (let ((__tmp198512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?194630%_ + (cons (if (or _%arguments-ok?195615%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)))) @@ -3487,33 +3487,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194686%_ '())) - (cons _%object194688%_ - (cons _%value194690%_ + (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197527 _%stx194615%_))) - _%$e194713%_) + (gxc#xform-wrap-source __tmp198512 _%stx195600%_))) + _%$e195698%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self194620%_ '4 '#f '#f)) - (let ((__tmp197528 - (let ((_%$obj194722%_ - (let ((__tmp197529 + (##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 __tmp197529)))) + (make-symbol__0 __tmp198514)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194722%_ '()) - (cons _%object194688%_ + (cons (cons (cons (cons _%$obj195707%_ '()) + (cons _%object195673%_ '())) '()) (cons (cons '%#if @@ -3523,49 +3523,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194693%_ + _%klass195678%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194722%_ '())) + (cons (cons '%#ref (cons _%$obj195707%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194686%_ '())) + (cons _%field195671%_ '())) (cons (cons '%#ref - (cons _%$obj194722%_ + (cons _%$obj195707%_ '())) - (cons _%value194690%_ + (cons _%value195675%_ '()))))) - (cons (if _%arguments-ok?194630%_ + (cons (if _%arguments-ok?195615%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194722%_ + (cons _%$obj195707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194690%_ '()))))) + (cons _%value195675%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3576,189 +3576,189 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194722%_ '())) + (cons (cons '%#ref (cons _%$obj195707%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194690%_ '()))))))) + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197528 _%stx194615%_)) - (let ((__tmp197530 + (gxc#xform-wrap-source __tmp198513 _%stx195600%_)) + (let ((__tmp198515 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194688%_ + (cons _%object195673%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value194690%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197530 - _%stx194615%_))))))))) + __tmp198515 + _%stx195600%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194640194662%_ - _%hd194637194654%_) - (_%g194632194646%_ _%g194633194649%_)))) - (_%g194632194646%_ _%g194633194649%_)))) - (_%g194632194646%_ _%g194633194649%_))))) - (_%g194631194725%_ _%args194616%_)))) + _%hd195625195647%_ + _%hd195622195639%_) + (_%g195617195631%_ _%g195618195634%_)))) + (_%g195617195631%_ _%g195618195634%_)))) + (_%g195617195631%_ _%g195618195634%_))))) + (_%g195616195710%_ _%args195601%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass196739 __method-table196740) - (let ((__check-arguments196741 - (let ((__tmp197531 + (lambda (__klass197724 __method-table197725) + (let ((__check-arguments197726 + (let ((__tmp198516 (lambda () - (let ((__method196742 + (let ((__method197727 (let () (declare (not safe)) (symbolic-table-ref - __method-table196740 + __method-table197725 'check-arguments '#f)))) - (if __method196742 - __method196742 + (if __method197727 + __method197727 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197531)))) - (lambda (_%self192694194612%_ - _%ctx194614%_ - _%stx194615%_ - _%args194616%_) - (let* ((_%self194618%_ _%self192694194612%_) - (_%self194620%_ _%self194618%_) - (_%arguments-ok?194630%_ - ((force __check-arguments196741) - _%self194620%_ - _%ctx194614%_ - _%stx194615%_ - _%args194616%_)) - (_%g194632194646%_ - (lambda (_%g194633194643%_) + (__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" - _%g194633194643%_)))) - (_%g194631194725%_ - (lambda (_%g194633194649%_) + _%g195618195628%_)))) + (_%g195616195710%_ + (lambda (_%g195618195634%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194633194649%_)) - (let ((_%e194636194651%_ + (gx#stx-pair? _%g195618195634%_)) + (let ((_%e195621195636%_ (let () (declare (not safe)) - (gx#stx-e _%g194633194649%_)))) - (let ((_%hd194637194654%_ + (gx#stx-e _%g195618195634%_)))) + (let ((_%hd195622195639%_ (let () (declare (not safe)) - (##car _%e194636194651%_))) - (_%tl194638194656%_ + (##car _%e195621195636%_))) + (_%tl195623195641%_ (let () (declare (not safe)) - (##cdr _%e194636194651%_)))) + (##cdr _%e195621195636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194638194656%_)) - (let ((_%e194639194659%_ + (gx#stx-pair? _%tl195623195641%_)) + (let ((_%e195624195644%_ (let () (declare (not safe)) - (gx#stx-e _%tl194638194656%_)))) - (let ((_%hd194640194662%_ + (gx#stx-e _%tl195623195641%_)))) + (let ((_%hd195625195647%_ (let () (declare (not safe)) - (##car _%e194639194659%_))) - (_%tl194641194664%_ + (##car _%e195624195644%_))) + (_%tl195626195649%_ (let () (declare (not safe)) - (##cdr _%e194639194659%_)))) + (##cdr _%e195624195644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194641194664%_)) - ((lambda (_%L194667%_ _%L194668%_) - (let* ((_%klass194684%_ - (let ((__tmp197532 + (gx#stx-null? _%tl195626195649%_)) + ((lambda (_%L195652%_ _%L195653%_) + (let* ((_%klass195669%_ + (let ((__tmp198517 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194615%_ - __tmp197532))) - (_%field194686%_ - (let ((__tmp197533 + _%stx195600%_ + __tmp198517))) + (_%field195671%_ + (let ((__tmp198518 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194684%_ - __tmp197533))) - (_%object194688%_ + _%klass195669%_ + __tmp198518))) + (_%object195673%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194614%_ - _%L194668%_))) - (_%value194690%_ + _%ctx195599%_ + _%L195653%_))) + (_%value195675%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194614%_ - _%L194667%_))) - (_%klass194693%_ - _%klass194684%_)) + _%ctx195599%_ + _%L195652%_))) + (_%klass195678%_ + _%klass195669%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194693%_ + _%klass195678%_ '8 '#f '#f)) - (let ((__tmp197534 - (cons (if (or _%arguments-ok?194630%_ + (let ((__tmp198519 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '4 '#f '#f)))) @@ -3768,33 +3768,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194686%_ '())) - (cons _%object194688%_ - (cons _%value194690%_ '()))))))) + (cons (cons '%#quote (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197534 - _%stx194615%_)) + __tmp198519 + _%stx195600%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194693%_ + _%klass195678%_ '7 '#f '#f)) - (let ((__tmp197535 - (cons (if (or _%arguments-ok?194630%_ + (let ((__tmp198520 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '4 '#f '#f)))) @@ -3804,38 +3804,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194686%_ '())) - (cons _%object194688%_ - (cons _%value194690%_ '()))))))) + (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197535 _%stx194615%_)) - (let ((_%$e194713%_ - (let ((__tmp197536 + (gxc#xform-wrap-source __tmp198520 _%stx195600%_)) + (let ((_%$e195698%_ + (let ((__tmp198521 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194693%_ - __tmp197536)))) - (if _%$e194713%_ - ((lambda (_%klass194716%_) - (let ((__tmp197537 - (cons (if (or _%arguments-ok?194630%_ + _%klass195678%_ + __tmp198521)))) + (if _%$e195698%_ + ((lambda (_%klass195701%_) + (let ((__tmp198522 + (cons (if (or _%arguments-ok?195615%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)))) @@ -3845,39 +3845,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194686%_ + (cons _%field195671%_ '())) - (cons _%object194688%_ - (cons _%value194690%_ + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197537 _%stx194615%_))) - _%$e194713%_) + (gxc#xform-wrap-source __tmp198522 _%stx195600%_))) + _%$e195698%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '4 '#f '#f)) - (let ((__tmp197538 - (let ((_%$obj194722%_ - (let ((__tmp197539 + (let ((__tmp198523 + (let ((_%$obj195707%_ + (let ((__tmp198524 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197539)))) + (make-symbol__0 __tmp198524)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194722%_ + (cons (cons (cons (cons _%$obj195707%_ '()) - (cons _%object194688%_ + (cons _%object195673%_ '())) '()) (cons (cons '%#if @@ -3887,52 +3887,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194693%_ + _%klass195678%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194722%_ '())) + (cons _%$obj195707%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194686%_ + (cons _%field195671%_ '())) (cons (cons '%#ref - (cons _%$obj194722%_ + (cons _%$obj195707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value194690%_ '()))))) + (cons _%value195675%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?194630%_ + (cons (if _%arguments-ok?195615%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194722%_ + (cons _%$obj195707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194690%_ '()))))) + (cons _%value195675%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3943,58 +3943,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194722%_ '())) + (cons (cons '%#ref (cons _%$obj195707%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194690%_ '()))))))) + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197538 _%stx194615%_)) - (let ((__tmp197540 + (gxc#xform-wrap-source __tmp198523 _%stx195600%_)) + (let ((__tmp198525 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194688%_ + (cons _%object195673%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194620%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194690%_ '()))))))) + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197540 - _%stx194615%_))))))))) + __tmp198525 + _%stx195600%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194640194662%_ - _%hd194637194654%_) - (_%g194632194646%_ - _%g194633194649%_)))) - (_%g194632194646%_ _%g194633194649%_)))) - (_%g194632194646%_ _%g194633194649%_))))) - (_%g194631194725%_ _%args194616%_)))))) + _%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 (_%self192695194425%_ _%ctx194427%_ _%stx194428%_ _%args194429%_) - (let* ((_%self194431%_ _%self192695194425%_) - (_%self194433%_ _%self194431%_) - (_%self194442194452%_ _%self194433%_) - (_%E194444194456%_ + (lambda (_%self193680195410%_ _%ctx195412%_ _%stx195413%_ _%args195414%_) + (let* ((_%self195416%_ _%self193680195410%_) + (_%self195418%_ _%self195416%_) + (_%self195427195437%_ _%self195418%_) + (_%E195429195441%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self194442194452%_ + _%self195427195437%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K194445194466%_ - (lambda (_%inline194459%_ _%dispatch194460%_ _%arity194461%_) + (_%K195430195451%_ + (lambda (_%inline195444%_ _%dispatch195445%_ _%arity195446%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self194433%_ - _%args194429%_)) + _%self195418%_ + _%args195414%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx194428%_ - _%arity194461%_))) - (if _%inline194459%_ + _%stx195413%_ + _%arity195446%_))) + (if _%inline195444%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp197541 (_%inline194459%_ _%stx194428%_))) + (let ((__tmp198526 (_%inline195444%_ _%stx195413%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197541 - _%stx194428%_ - _%ctx194427%_))) - (if (and _%dispatch194460%_ + __tmp198526 + _%stx195413%_ + _%ctx195412%_))) + (if (and _%dispatch195445%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch194460%_))) + _%dispatch195445%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch194460%_)) - (let ((__tmp197542 + _%dispatch195445%_)) + (let ((__tmp198527 (cons '%#call (cons (cons '%#ref - (cons _%dispatch194460%_ + (cons _%dispatch195445%_ '())) - _%args194429%_)))) + _%args195414%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197542 - _%stx194428%_ - _%ctx194427%_))) + __tmp198527 + _%stx195413%_ + _%ctx195412%_))) (gxc#!procedure::optimize-call - _%self194433%_ - _%ctx194427%_ - _%stx194428%_ - _%args194429%_))))) - (_%e194446194469%_ + _%self195418%_ + _%ctx195412%_ + _%stx195413%_ + _%args195414%_))))) + (_%e195431195454%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194442194452%_ '1 '#f '#f))) - (_%e194447194472%_ + (##unchecked-structure-ref _%self195427195437%_ '1 '#f '#f))) + (_%e195432195457%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194442194452%_ '2 '#f '#f))) - (_%e194448194475%_ + (##unchecked-structure-ref _%self195427195437%_ '2 '#f '#f))) + (_%e195433195460%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194442194452%_ '3 '#f '#f))) - (_%arity194478%_ _%e194448194475%_) - (_%e194449194480%_ + (##unchecked-structure-ref _%self195427195437%_ '3 '#f '#f))) + (_%arity195463%_ _%e195433195460%_) + (_%e195434195465%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194442194452%_ '4 '#f '#f))) - (_%dispatch194483%_ _%e194449194480%_) - (_%e194450194485%_ + (##unchecked-structure-ref _%self195427195437%_ '4 '#f '#f))) + (_%dispatch195468%_ _%e195434195465%_) + (_%e195435195470%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194442194452%_ '5 '#f '#f))) - (_%inline194488%_ _%e194450194485%_)) - (_%K194445194466%_ - _%inline194488%_ - _%dispatch194483%_ - _%arity194478%_)))) + (##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 (_%self192696194275%_ _%ctx194277%_ _%stx194278%_ _%args194279%_) - (let* ((_%self194281%_ _%self192696194275%_) - (_%self194283%_ _%self194281%_) - (_%$e194297%_ - (let ((__tmp197544 - (lambda (_%g194292194294%_) + (lambda (_%self193681195260%_ _%ctx195262%_ _%stx195263%_ _%args195264%_) + (let* ((_%self195266%_ _%self193681195260%_) + (_%self195268%_ _%self195266%_) + (_%$e195282%_ + (let ((__tmp198529 + (lambda (_%g195277195279%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g194292194294%_ - _%args194279%_)))) - (__tmp197543 + _%g195277195279%_ + _%args195264%_)))) + (__tmp198528 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194283%_ + _%self195268%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp197544 __tmp197543)))) - (if _%$e194297%_ - ((lambda (_%clause194300%_) - (let ((__method197448 + (__find __tmp198529 __tmp198528)))) + (if _%$e195282%_ + ((lambda (_%clause195285%_) + (let ((__method198433 (let () (declare (not safe)) - (__method-ref _%clause194300%_ 'optimize-call)))) - (if __method197448 + (__method-ref _%clause195285%_ 'optimize-call)))) + (if __method198433 (let () (declare (not safe)) - (__method197448 - _%clause194300%_ - _%ctx194277%_ - _%stx194278%_ - _%args194279%_)) + (__method198433 + _%clause195285%_ + _%ctx195262%_ + _%stx195263%_ + _%args195264%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause194300%_ + _%clause195285%_ 'optimize-call)) '#!void)))) - _%$e194297%_) - (let ((__tmp197545 + _%$e195282%_) + (let ((__tmp198530 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self194283%_ + _%self195268%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx194278%_ - __tmp197545)))))) + _%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 (_%self192697194013%_ _%ctx194015%_ _%stx194016%_ _%args194017%_) - (let* ((_%self194019%_ _%self192697194013%_) - (_%self194021%_ _%self194019%_) - (_%self194030194039%_ _%self194021%_) - (_%E194032194043%_ + (lambda (_%self193682194998%_ _%ctx195000%_ _%stx195001%_ _%args195002%_) + (let* ((_%self195004%_ _%self193682194998%_) + (_%self195006%_ _%self195004%_) + (_%self195015195024%_ _%self195006%_) + (_%E195017195028%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self194030194039%_ + _%self195015195024%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K194033194134%_ - (lambda (_%dispatch194046%_ _%table194047%_) + (_%K195018195119%_ + (lambda (_%dispatch195031%_ _%table195032%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch194046%_)) - (let* ((_%g194048194058%_ + (gxc#symbol-in-local-scope? _%dispatch195031%_)) + (let* ((_%g195033195043%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch194046%_))) - (_%else194050194066%_ + _%dispatch195031%_))) + (_%else195035195051%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch194046%_)) + _%dispatch195031%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx194015%_ - _%stx194016%_)))) - (_%K194052194115%_ - (lambda (_%main194069%_ _%keys194070%_) - (let ((_g197546_ + _%ctx195000%_ + _%stx195001%_)))) + (_%K195037195100%_ + (lambda (_%main195054%_ _%keys195055%_) + (let ((_g198531_ (gxc#!kw-lambda-split-args - _%stx194016%_ - _%args194017%_))) + _%stx195001%_ + _%args195002%_))) (begin - (let ((_g197547_ + (let ((_g198532_ (let () (declare (not safe)) - (if (##values? _g197546_) - (##values-length _g197546_) + (if (##values? _g198531_) + (##values-length _g198531_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g197547_ 2))) + (##fx= _g198532_ 2))) (error "Context expects 2 values" - _g197547_))) - (let ((_%pargs194072%_ + _g198532_))) + (let ((_%pargs195057%_ (let () (declare (not safe)) - (##values-ref _g197546_ 0))) - (_%kwargs194073%_ + (##values-ref _g198531_ 0))) + (_%kwargs195058%_ (let () (declare (not safe)) - (##values-ref _g197546_ 1)))) + (##values-ref _g198531_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main194069%_)) - (if _%table194047%_ - (let ((_%xargs194081%_ - (map (lambda (_%key194075%_) - (let ((_%$e194077%_ + _%main195054%_)) + (if _%table195032%_ + (let ((_%xargs195066%_ + (map (lambda (_%key195060%_) + (let ((_%$e195062%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key194075%_ _%kwargs194073%_)))) - (if _%$e194077%_ _%$e194077%_ '(%#ref absent-value)))) - _%keys194070%_))) + (agetq__0 _%key195060%_ _%kwargs195058%_)))) + (if _%$e195062%_ _%$e195062%_ '(%#ref absent-value)))) + _%keys195055%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw194083%_) - (if (memq (car _%kw194083%_) - _%keys194070%_) + (lambda (_%kw195068%_) + (if (memq (car _%kw195068%_) + _%keys195055%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx194016%_ - _%keys194070%_ - _%kw194083%_)))) - _%kwargs194073%_) - (let ((__tmp197548 + _%stx195001%_ + _%keys195055%_ + _%kw195068%_)))) + _%kwargs195058%_) + (let ((__tmp198533 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main194069%_ '())) + (cons _%main195054%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs194072%_ - _%xargs194081%_))))))) + _%pargs195057%_ + _%xargs195066%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197548 - _%stx194016%_ - _%ctx194015%_))) - (let* ((_%kwt194085%_ - (let ((__tmp197549 + __tmp198533 + _%stx195001%_ + _%ctx195000%_))) + (let* ((_%kwt195070%_ + (let ((__tmp198534 (let () (declare (not safe)) @@ -4289,175 +4289,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp197549))) - (_%kwvars194089%_ - (map (lambda (_%_194087%_) - (let ((__tmp197550 + __tmp198534))) + (_%kwvars195074%_ + (map (lambda (_%_195072%_) + (let ((__tmp198535 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp197550))) - _%kwargs194073%_)) + (make-symbol__0 __tmp198535))) + _%kwargs195058%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind194094%_ - (map (lambda (_%kw194091%_ + (_%kwbind195079%_ + (map (lambda (_%kw195076%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar194092%_) - (cons (cons _%kwvar194092%_ '()) - (cons (cdr _%kw194091%_) '()))) - _%kwargs194073%_ - _%kwvars194089%_)) + _%kwvar195077%_) + (cons (cons _%kwvar195077%_ '()) + (cons (cdr _%kw195076%_) '()))) + _%kwargs195058%_ + _%kwvars195074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset194099%_ - (map (lambda (_%kw194096%_ + (_%kwset195084%_ + (map (lambda (_%kw195081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar194097%_) + _%kwvar195082%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt194085%_ '())) + (cons (cons '%#ref (cons _%kwt195070%_ '())) (cons (cons '%#quote - (cons (car _%kw194096%_) '())) + (cons (car _%kw195081%_) '())) (cons (cons '%#ref - (cons _%kwvar194097%_ + (cons _%kwvar195082%_ '())) '())))))) - _%kwargs194073%_ - _%kwvars194089%_)) + _%kwargs195058%_ + _%kwvars195074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs194104%_ - (map (lambda (_%kw194101%_ + (_%xkwargs195089%_ + (map (lambda (_%kw195086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar194102%_) - (cons (car _%kw194101%_) - (cons '%#ref (cons _%kwvar194102%_ '())))) - _%kwargs194073%_ - _%kwvars194089%_)) + _%kwvar195087%_) + (cons (car _%kw195086%_) + (cons '%#ref (cons _%kwvar195087%_ '())))) + _%kwargs195058%_ + _%kwvars195074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs194112%_ - (map (lambda (_%key194106%_) - (let ((_%$e194108%_ + (_%xargs195097%_ + (map (lambda (_%key195091%_) + (let ((_%$e195093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key194106%_ _%xkwargs194104%_)))) - (if _%$e194108%_ _%$e194108%_ '(%#ref absent-value)))) - _%keys194070%_)) + (agetq__0 _%key195091%_ _%xkwargs195089%_)))) + (if _%$e195093%_ _%$e195093%_ '(%#ref absent-value)))) + _%keys195055%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp197551 + (__tmp198536 (cons '%#let-values - (cons _%kwbind194094%_ + (cons _%kwbind195079%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt194085%_ '()) - (cons (let ((__tmp197552 + (cons (cons (cons (cons _%kwt195070%_ '()) + (cons (let ((__tmp198537 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs194073%_) + (cons (length _%kwargs195058%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197552 _%stx194016%_)) + (gxc#xform-wrap-source __tmp198537 _%stx195001%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp197553 - (cons (let ((__tmp197554 + (let ((__tmp198538 + (cons (let ((__tmp198539 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main194069%_ '())) + (cons _%main195054%_ '())) (cons (cons '%#ref - (cons _%kwt194085%_ + (cons _%kwt195070%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs194072%_ - _%xargs194112%_))))))) + _%pargs195057%_ + _%xargs195097%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197554 _%stx194016%_)) + (gxc#xform-wrap-source __tmp198539 _%stx195001%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp197553 _%kwset194099%_))) + (__foldr1 cons __tmp198538 _%kwset195084%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197551 - _%stx194016%_ - _%ctx194015%_)))))))))) + __tmp198536 + _%stx195001%_ + _%ctx195000%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g194048194058%_ + _%g195033195043%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e194053194118%_ + (let* ((_%e195038195103%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g194048194058%_ + _%g195033195043%_ '1 '#f '#f))) - (_%e194054194121%_ + (_%e195039195106%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g194048194058%_ + _%g195033195043%_ '2 '#f '#f))) - (_%e194055194124%_ + (_%e195040195109%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g194048194058%_ + _%g195033195043%_ '3 '#f '#f))) - (_%keys194127%_ _%e194055194124%_) - (_%e194056194129%_ + (_%keys195112%_ _%e195040195109%_) + (_%e195041195114%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g194048194058%_ + _%g195033195043%_ '4 '#f '#f))) - (_%main194132%_ _%e194056194129%_)) - (_%K194052194115%_ - _%main194132%_ - _%keys194127%_)) - (_%else194050194066%_))) + (_%main195117%_ _%e195041195114%_)) + (_%K195037195100%_ + _%main195117%_ + _%keys195112%_)) + (_%else195035195051%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194015%_ _%stx194016%_))))) - (_%e194034194137%_ + (gxc#xform-call% _%ctx195000%_ _%stx195001%_))))) + (_%e195019195122%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194030194039%_ '1 '#f '#f))) - (_%e194035194140%_ + (##unchecked-structure-ref _%self195015195024%_ '1 '#f '#f))) + (_%e195020195125%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194030194039%_ '2 '#f '#f))) - (_%e194036194143%_ + (##unchecked-structure-ref _%self195015195024%_ '2 '#f '#f))) + (_%e195021195128%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194030194039%_ '3 '#f '#f))) - (_%table194146%_ _%e194036194143%_) - (_%e194037194148%_ + (##unchecked-structure-ref _%self195015195024%_ '3 '#f '#f))) + (_%table195131%_ _%e195021195128%_) + (_%e195022195133%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194030194039%_ '4 '#f '#f))) - (_%dispatch194151%_ _%e194037194148%_)) - (_%K194033194134%_ _%dispatch194151%_ _%table194146%_)))) + (##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 (_%stx193626%_ _%args193627%_) - (let _%lp193629%_ ((_%rest193631%_ _%args193627%_) - (_%pargs193632%_ '()) - (_%kwargs193633%_ '())) - (let* ((_%__stx197007197008%_ _%rest193631%_) - (_%g193639193691%_ + (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" - _%__stx197007197008%_))))) - (let ((_%__kont197009197010%_ - (lambda (_%L193870%_ _%L193871%_) - (_%lp193629%_ - _%L193870%_ - (cons _%L193871%_ _%pargs193632%_) - _%kwargs193633%_))) - (_%__kont197011197012%_ - (lambda (_%L193816%_) + _%__stx197992197993%_))))) + (let ((_%__kont197994197995%_ + (lambda (_%L194855%_ _%L194856%_) + (_%lp194614%_ + _%L194855%_ + (cons _%L194856%_ _%pargs194617%_) + _%kwargs194618%_))) + (_%__kont197996197997%_ + (lambda (_%L194801%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L193816%_ _%pargs193632%_)) - (reverse _%kwargs193633%_)))) - (_%__kont197013197014%_ - (lambda (_%L193763%_ _%L193764%_ _%L193765%_) - (let ((_%kw193782%_ + (__foldl1 cons _%L194801%_ _%pargs194617%_)) + (reverse _%kwargs194618%_)))) + (_%__kont197998197999%_ + (lambda (_%L194748%_ _%L194749%_ _%L194750%_) + (let ((_%kw194767%_ (let () (declare (not safe)) - (gx#stx-e _%L193765%_)))) - (if (assq _%kw193782%_ _%kwargs193633%_) + (gx#stx-e _%L194750%_)))) + (if (assq _%kw194767%_ _%kwargs194618%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx193626%_ - _%kw193782%_)) - (_%lp193629%_ - _%L193763%_ - _%pargs193632%_ - (cons (cons _%kw193782%_ _%L193764%_) - _%kwargs193633%_)))))) - (_%__kont197015197016%_ - (lambda (_%L193711%_ _%L193712%_) - (_%lp193629%_ - _%L193711%_ - (cons _%L193712%_ _%pargs193632%_) - _%kwargs193633%_))) - (_%__kont197017197018%_ + _%stx194611%_ + _%kw194767%_)) + (_%lp194614%_ + _%L194748%_ + _%pargs194617%_ + (cons (cons _%kw194767%_ _%L194749%_) + _%kwargs194618%_)))))) + (_%__kont198000198001%_ + (lambda (_%L194696%_ _%L194697%_) + (_%lp194614%_ + _%L194696%_ + (cons _%L194697%_ _%pargs194617%_) + _%kwargs194618%_))) + (_%__kont198002198003%_ (lambda () - (values (reverse _%pargs193632%_) - (reverse _%kwargs193633%_))))) - (let ((_%__match197114197115%_ - (lambda (_%e193670193731%_ - _%hd193671193734%_ - _%tl193672193736%_ - _%e193673193739%_ - _%hd193674193742%_ - _%tl193675193744%_ - _%e193676193747%_ - _%hd193677193750%_ - _%tl193678193752%_ - _%e193679193755%_ - _%hd193680193758%_ - _%tl193681193760%_) - (let ((_%L193763%_ _%tl193681193760%_) - (_%L193764%_ _%hd193680193758%_) - (_%L193765%_ _%hd193677193750%_)) + (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? _%L193765%_)) - (_%__kont197013197014%_ - _%L193763%_ - _%L193764%_ - _%L193765%_) - (_%__kont197015197016%_ - _%tl193672193736%_ - _%hd193671193734%_)))))) + (gx#stx-keyword? _%L194750%_)) + (_%__kont197998197999%_ + _%L194748%_ + _%L194749%_ + _%L194750%_) + (_%__kont198000198001%_ + _%tl194657194721%_ + _%hd194656194719%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197007197008%_)) - (let ((_%e193643193835%_ + (gx#stx-pair? _%__stx197992197993%_)) + (let ((_%e194628194820%_ (let () (declare (not safe)) - (gx#stx-e _%__stx197007197008%_)))) - (let ((_%tl193645193840%_ + (gx#stx-e _%__stx197992197993%_)))) + (let ((_%tl194630194825%_ (let () (declare (not safe)) - (##cdr _%e193643193835%_))) - (_%hd193644193838%_ + (##cdr _%e194628194820%_))) + (_%hd194629194823%_ (let () (declare (not safe)) - (##car _%e193643193835%_)))) + (##car _%e194628194820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193644193838%_)) - (let ((_%e193646193843%_ + (gx#stx-pair? _%hd194629194823%_)) + (let ((_%e194631194828%_ (let () (declare (not safe)) - (gx#stx-e _%hd193644193838%_)))) - (let ((_%tl193648193848%_ + (gx#stx-e _%hd194629194823%_)))) + (let ((_%tl194633194833%_ (let () (declare (not safe)) - (##cdr _%e193646193843%_))) - (_%hd193647193846%_ + (##cdr _%e194631194828%_))) + (_%hd194632194831%_ (let () (declare (not safe)) - (##car _%e193646193843%_)))) + (##car _%e194631194828%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193647193846%_)) + (gx#identifier? _%hd194632194831%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193647193846%_)) + _%hd194632194831%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193648193848%_)) - (let ((_%e193649193851%_ + _%tl194633194833%_)) + (let ((_%e194634194836%_ (let () (declare (not safe)) (gx#stx-e - _%tl193648193848%_)))) - (let ((_%tl193651193856%_ + _%tl194633194833%_)))) + (let ((_%tl194636194841%_ (let () (declare (not safe)) - (##cdr _%e193649193851%_))) - (_%hd193650193854%_ + (##cdr _%e194634194836%_))) + (_%hd194635194839%_ (let () (declare (not safe)) - (##car _%e193649193851%_)))) + (##car _%e194634194836%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd193650193854%_)) - (let ((_%e193652193859%_ + _%hd194635194839%_)) + (let ((_%e194637194844%_ (let () (declare (not safe)) (gx#stx-e - _%hd193650193854%_)))) - (if (equal? _%e193652193859%_ + _%hd194635194839%_)))) + (if (equal? _%e194637194844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193651193856%_)) + (gx#stx-null? _%tl194636194841%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193645193840%_)) - (let ((_%e193653193862%_ + (gx#stx-pair? _%tl194630194825%_)) + (let ((_%e194638194847%_ (let () (declare (not safe)) - (gx#stx-e _%tl193645193840%_)))) - (let ((_%tl193655193867%_ + (gx#stx-e _%tl194630194825%_)))) + (let ((_%tl194640194852%_ (let () (declare (not safe)) - (##cdr _%e193653193862%_))) - (_%hd193654193865%_ + (##cdr _%e194638194847%_))) + (_%hd194639194850%_ (let () (declare (not safe)) - (##car _%e193653193862%_)))) - (_%__kont197009197010%_ - _%tl193655193867%_ - _%hd193654193865%_))) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)) - (if (equal? _%e193652193859%_ '#!rest) + (##car _%e194638194847%_)))) + (_%__kont197994197995%_ + _%tl194640194852%_ + _%hd194639194850%_))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (if (equal? _%e194637194844%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193651193856%_)) - (_%__kont197011197012%_ _%tl193645193840%_) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)) + (gx#stx-null? _%tl194636194841%_)) + (_%__kont197996197997%_ _%tl194630194825%_) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193651193856%_)) + (gx#stx-null? _%tl194636194841%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193645193840%_)) - (let ((_%e193679193755%_ + (gx#stx-pair? _%tl194630194825%_)) + (let ((_%e194664194740%_ (let () (declare (not safe)) - (gx#stx-e _%tl193645193840%_)))) - (let ((_%tl193681193760%_ + (gx#stx-e _%tl194630194825%_)))) + (let ((_%tl194666194745%_ (let () (declare (not safe)) - (##cdr _%e193679193755%_))) - (_%hd193680193758%_ + (##cdr _%e194664194740%_))) + (_%hd194665194743%_ (let () (declare (not safe)) - (##car _%e193679193755%_)))) - (_%__match197114197115%_ - _%e193643193835%_ - _%hd193644193838%_ - _%tl193645193840%_ - _%e193646193843%_ - _%hd193647193846%_ - _%tl193648193848%_ - _%e193649193851%_ - _%hd193650193854%_ - _%tl193651193856%_ - _%e193679193755%_ - _%hd193680193758%_ - _%tl193681193760%_))) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_))))) + (##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? - _%tl193651193856%_)) + _%tl194636194841%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193645193840%_)) - (let ((_%e193679193755%_ + _%tl194630194825%_)) + (let ((_%e194664194740%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193645193840%_)))) - (let ((_%tl193681193760%_ + (gx#stx-e _%tl194630194825%_)))) + (let ((_%tl194666194745%_ (let () (declare (not safe)) - (##cdr _%e193679193755%_))) - (_%hd193680193758%_ + (##cdr _%e194664194740%_))) + (_%hd194665194743%_ (let () (declare (not safe)) - (##car _%e193679193755%_)))) - (_%__match197114197115%_ - _%e193643193835%_ - _%hd193644193838%_ - _%tl193645193840%_ - _%e193646193843%_ - _%hd193647193846%_ - _%tl193648193848%_ - _%e193649193851%_ - _%hd193650193854%_ - _%tl193651193856%_ - _%e193679193755%_ - _%hd193680193758%_ - _%tl193681193760%_))) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_))))) + (##car _%e194664194740%_)))) + (_%__match198099198100%_ + _%e194628194820%_ + _%hd194629194823%_ + _%tl194630194825%_ + _%e194631194828%_ + _%hd194632194831%_ + _%tl194633194833%_ + _%e194634194836%_ + _%hd194635194839%_ + _%tl194636194841%_ + _%e194664194740%_ + _%hd194665194743%_ + _%tl194666194745%_))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)))) - (_%__kont197015197016%_ - _%tl193645193840%_ - _%hd193644193838%_)))) - (_%__kont197017197018%_)))))))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)))) + (_%__kont198002198003%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self192698193608%_ _%ctx193610%_ _%stx193611%_ _%args193612%_) - (let* ((_%self193614%_ _%self192698193608%_) - (_%self193616%_ _%self193614%_)) + (lambda (_%self193683194593%_ _%ctx194595%_ _%stx194596%_ _%args194597%_) + (let* ((_%self194599%_ _%self193683194593%_) + (_%self194601%_ _%self194599%_)) (declare (not safe)) - (gxc#xform-call% _%ctx193610%_ _%stx193611%_)))) + (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 (_%self193296%_ _%stx193297%_) - (let* ((_%__stx197123197124%_ _%stx193297%_) - (_%g193300193340%_ + (lambda (_%self194281%_ _%stx194282%_) + (let* ((_%__stx198108198109%_ _%stx194282%_) + (_%g194285194325%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197123197124%_))))) - (let ((_%__kont197125197126%_ - (lambda (_%L193446%_ _%L193447%_) - (let ((_%$e193474%_ + _%__stx198108198109%_))))) + (let ((_%__kont198110198111%_ + (lambda (_%L194431%_ _%L194432%_) + (let ((_%$e194459%_ (member 'return: - (let ((__tmp197555 - (lambda (_%g193466193469%_ - _%g193467193471%_) - (cons _%g193466193469%_ - _%g193467193471%_)))) + (let ((__tmp198540 + (lambda (_%g194451194454%_ + _%g194452194456%_) + (cons _%g194451194454%_ + _%g194452194456%_)))) (declare (not safe)) - (__foldr1 __tmp197555 '() _%L193447%_)) + (__foldr1 __tmp198540 '() _%L194432%_)) gx#stx-eq?))) - (if _%$e193474%_ - ((lambda (_%tail193477%_) - (let ((_%type193479%_ - (let ((__tmp197556 - (let ((__tmp197557 - (cadr _%tail193477%_))) + (if _%$e194459%_ + ((lambda (_%tail194462%_) + (let ((_%type194464%_ + (let ((__tmp198541 + (let ((__tmp198542 + (cadr _%tail194462%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp197557)))) + __tmp198542)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193297%_ - __tmp197556)))) + _%stx194282%_ + __tmp198541)))) (gxc#check-return-type! - _%stx193297%_ - _%L193446%_ - _%type193479%_) + _%stx194282%_ + _%L194431%_ + _%type194464%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self193296%_ - _%L193446%_)))) - _%$e193474%_) + _%self194281%_ + _%L194431%_)))) + _%$e194459%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self193296%_ _%L193446%_)))))) - (_%__kont197129197130%_ - (lambda (_%L193369%_ _%L193370%_) + (gxc#compile-e__1 _%self194281%_ _%L194431%_)))))) + (_%__kont198114198115%_ + (lambda (_%L194354%_ _%L194355%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self193296%_ _%L193369%_))))) - (let ((_%__match197160197161%_ - (lambda (_%e193304193390%_ - _%hd193305193393%_ - _%tl193306193395%_ - _%e193307193398%_ - _%hd193308193401%_ - _%tl193309193403%_ - _%e193310193406%_ - _%hd193311193409%_ - _%tl193312193411%_ - _%__splice197127197128%_ - _%target193313193414%_ - _%tl193315193416%_) - (letrec ((_%loop193316193419%_ - (lambda (_%hd193314193422%_ - _%signature193320193424%_) + (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? _%hd193314193422%_)) - (let ((_%e193317193427%_ + (gx#stx-pair? _%hd194299194407%_)) + (let ((_%e194302194412%_ (let () (declare (not safe)) - (gx#stx-e _%hd193314193422%_)))) - (let ((_%lp-tl193319193432%_ + (gx#stx-e _%hd194299194407%_)))) + (let ((_%lp-tl194304194417%_ (let () (declare (not safe)) - (##cdr _%e193317193427%_))) - (_%lp-hd193318193430%_ + (##cdr _%e194302194412%_))) + (_%lp-hd194303194415%_ (let () (declare (not safe)) - (##car _%e193317193427%_)))) - (_%loop193316193419%_ - _%lp-tl193319193432%_ - (cons _%lp-hd193318193430%_ - _%signature193320193424%_)))) - (let ((_%signature193321193435%_ - (reverse _%signature193320193424%_))) + (##car _%e194302194412%_)))) + (_%loop194301194404%_ + _%lp-tl194304194417%_ + (cons _%lp-hd194303194415%_ + _%signature194305194409%_)))) + (let ((_%signature194306194420%_ + (reverse _%signature194305194409%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193309193403%_)) - (let ((_%e193322193438%_ + (gx#stx-pair? _%tl194294194388%_)) + (let ((_%e194307194423%_ (let () (declare (not safe)) (gx#stx-e - _%tl193309193403%_)))) - (let ((_%tl193324193443%_ + _%tl194294194388%_)))) + (let ((_%tl194309194428%_ (let () (declare (not safe)) - (##cdr _%e193322193438%_))) - (_%hd193323193441%_ + (##cdr _%e194307194423%_))) + (_%hd194308194426%_ (let () (declare (not safe)) - (##car _%e193322193438%_)))) + (##car _%e194307194423%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193324193443%_)) - (_%__kont197125197126%_ - _%hd193323193441%_ - _%signature193321193435%_) + _%tl194309194428%_)) + (_%__kont198110198111%_ + _%hd194308194426%_ + _%signature194306194420%_) (let () (declare (not safe)) - (_%g193300193340%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g193300193340%_)))))))) - (_%loop193316193419%_ _%target193313193414%_ '()))))) + (_%g194285194325%_)))))))) + (_%loop194301194404%_ _%target194298194399%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197123197124%_)) - (let ((_%e193304193390%_ + (gx#stx-pair? _%__stx198108198109%_)) + (let ((_%e194289194375%_ (let () (declare (not safe)) - (gx#stx-e _%__stx197123197124%_)))) - (let ((_%tl193306193395%_ + (gx#stx-e _%__stx198108198109%_)))) + (let ((_%tl194291194380%_ (let () (declare (not safe)) - (##cdr _%e193304193390%_))) - (_%hd193305193393%_ + (##cdr _%e194289194375%_))) + (_%hd194290194378%_ (let () (declare (not safe)) - (##car _%e193304193390%_)))) + (##car _%e194289194375%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193306193395%_)) - (let ((_%e193307193398%_ + (gx#stx-pair? _%tl194291194380%_)) + (let ((_%e194292194383%_ (let () (declare (not safe)) - (gx#stx-e _%tl193306193395%_)))) - (let ((_%tl193309193403%_ + (gx#stx-e _%tl194291194380%_)))) + (let ((_%tl194294194388%_ (let () (declare (not safe)) - (##cdr _%e193307193398%_))) - (_%hd193308193401%_ + (##cdr _%e194292194383%_))) + (_%hd194293194386%_ (let () (declare (not safe)) - (##car _%e193307193398%_)))) + (##car _%e194292194383%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193308193401%_)) - (let ((_%e193310193406%_ + (gx#stx-pair? _%hd194293194386%_)) + (let ((_%e194295194391%_ (let () (declare (not safe)) - (gx#stx-e _%hd193308193401%_)))) - (let ((_%tl193312193411%_ + (gx#stx-e _%hd194293194386%_)))) + (let ((_%tl194297194396%_ (let () (declare (not safe)) - (##cdr _%e193310193406%_))) - (_%hd193311193409%_ + (##cdr _%e194295194391%_))) + (_%hd194296194394%_ (let () (declare (not safe)) - (##car _%e193310193406%_)))) + (##car _%e194295194391%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193311193409%_)) + _%hd194296194394%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd193311193409%_)) + _%hd194296194394%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl193312193411%_)) - (let ((_%__splice197127197128%_ + _%tl194297194396%_)) + (let ((_%__splice198112198113%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl193312193411%_ + _%tl194297194396%_ '0)))) - (let ((_%tl193315193416%_ + (let ((_%tl194300194401%_ (let () (declare (not safe)) (##vector-ref - _%__splice197127197128%_ + _%__splice198112198113%_ '1))) - (_%target193313193414%_ + (_%target194298194399%_ (let () (declare (not safe)) (##vector-ref - _%__splice197127197128%_ + _%__splice198112198113%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193315193416%_)) - (_%__match197160197161%_ - _%e193304193390%_ - _%hd193305193393%_ - _%tl193306193395%_ - _%e193307193398%_ - _%hd193308193401%_ - _%tl193309193403%_ - _%e193310193406%_ - _%hd193311193409%_ - _%tl193312193411%_ - _%__splice197127197128%_ - _%target193313193414%_ - _%tl193315193416%_) + _%tl194300194401%_)) + (_%__match198145198146%_ + _%e194289194375%_ + _%hd194290194378%_ + _%tl194291194380%_ + _%e194292194383%_ + _%hd194293194386%_ + _%tl194294194388%_ + _%e194295194391%_ + _%hd194296194394%_ + _%tl194297194396%_ + _%__splice198112198113%_ + _%target194298194399%_ + _%tl194300194401%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193309193403%_)) - (let ((_%e193333193361%_ + (gx#stx-pair? _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) - (gx#stx-e _%tl193309193403%_)))) - (let ((_%tl193335193366%_ + (gx#stx-e _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193333193361%_))) - (_%hd193334193364%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193333193361%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193335193366%_)) - (_%__kont197129197130%_ - _%hd193334193364%_ - _%hd193308193401%_) + (gx#stx-null? _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g193300193340%_))))) - (let () (declare (not safe)) (_%g193300193340%_)))))) + (_%g194285194325%_))))) + (let () (declare (not safe)) (_%g194285194325%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193309193403%_)) - (let ((_%e193333193361%_ + _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193309193403%_)))) - (let ((_%tl193335193366%_ - (let () (declare (not safe)) (##cdr _%e193333193361%_))) - (_%hd193334193364%_ + (gx#stx-e _%tl194294194388%_)))) + (let ((_%tl194320194351%_ + (let () (declare (not safe)) (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193333193361%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193335193366%_)) - (_%__kont197129197130%_ - _%hd193334193364%_ - _%hd193308193401%_) - (let () (declare (not safe)) (_%g193300193340%_))))) - (let () (declare (not safe)) (_%g193300193340%_)))) + (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? - _%tl193309193403%_)) - (let ((_%e193333193361%_ + _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) (gx#stx-e - _%tl193309193403%_)))) - (let ((_%tl193335193366%_ + _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193333193361%_))) - (_%hd193334193364%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193333193361%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193335193366%_)) - (_%__kont197129197130%_ - _%hd193334193364%_ - _%hd193308193401%_) + _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g193300193340%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g193300193340%_)))) + (_%g194285194325%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193309193403%_)) - (let ((_%e193333193361%_ + _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) (gx#stx-e - _%tl193309193403%_)))) - (let ((_%tl193335193366%_ + _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193333193361%_))) - (_%hd193334193364%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193333193361%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193335193366%_)) - (_%__kont197129197130%_ - _%hd193334193364%_ - _%hd193308193401%_) + _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g193300193340%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g193300193340%_)))))) + (_%g194285194325%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193309193403%_)) - (let ((_%e193333193361%_ + (gx#stx-pair? _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) - (gx#stx-e _%tl193309193403%_)))) - (let ((_%tl193335193366%_ + (gx#stx-e _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193333193361%_))) - (_%hd193334193364%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193333193361%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193335193366%_)) - (_%__kont197129197130%_ - _%hd193334193364%_ - _%hd193308193401%_) + _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g193300193340%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g193300193340%_)))))) - (let () (declare (not safe)) (_%g193300193340%_))))) - (let () (declare (not safe)) (_%g193300193340%_)))))))) + (_%g194285194325%_)))))) + (let () (declare (not safe)) (_%g194285194325%_))))) + (let () (declare (not safe)) (_%g194285194325%_)))))))) (define gxc#check-return-type! - (lambda (_%stx193274%_ _%expr193275%_ _%type193276%_) - (let ((_%$e193278%_ (not _%type193276%_))) - (if _%$e193278%_ - _%$e193278%_ - (let ((_%$e193281%_ - (eq? (##structure-ref _%type193276%_ '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 _%$e193281%_ - _%$e193281%_ - (let ((_%expr-type193285%_ + (if _%$e194266%_ + _%$e194266%_ + (let ((_%expr-type194270%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr193275%_)))) - (if (not _%expr-type193285%_) + _%expr194260%_)))) + (if (not _%expr-type194270%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx193274%_ - _%type193276%_)) + _%stx194259%_ + _%type194261%_)) (if (eq? 't (##structure-ref - _%expr-type193285%_ + _%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" - _%stx193274%_ - _%type193276%_ - _%expr-type193285%_)) - (let ((_%$e193289%_ + _%stx194259%_ + _%type194261%_ + _%expr-type194270%_)) + (let ((_%$e194274%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type193285%_ + _%expr-type194270%_ 'gxc#!abort::t)))) - (if _%$e193289%_ - _%$e193289%_ - (let ((_%$e193292%_ + (if _%$e194274%_ + _%$e194274%_ + (let ((_%$e194277%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type193285%_ - _%type193276%_)))) - (if _%$e193292%_ - _%$e193292%_ + _%expr-type194270%_ + _%type194261%_)))) + (if _%$e194277%_ + _%$e194277%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx193274%_ - _%type193276%_ - _%expr-type193285%_))))))))))))))) + _%stx194259%_ + _%type194261%_ + _%expr-type194270%_))))))))))))))) (define gxc#optimize-if% - (lambda (_%self192700%_ _%stx192701%_) - (let* ((_%__stx197205197206%_ _%stx192701%_) - (_%g192706192816%_ + (lambda (_%self193685%_ _%stx193686%_) + (let* ((_%__stx198190198191%_ _%stx193686%_) + (_%g193691193801%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197205197206%_))))) - (let ((_%__kont197207197208%_ - (lambda (_%L193248%_ _%L193249%_ _%L193250%_) - (if (let () (declare (not safe)) (gx#stx-e _%L193250%_)) + _%__stx198190198191%_))))) + (let ((_%__kont198192198193%_ + (lambda (_%L194233%_ _%L194234%_ _%L194235%_) + (if (let () (declare (not safe)) (gx#stx-e _%L194235%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192700%_ _%L193249%_)) + (gxc#compile-e__1 _%self193685%_ _%L194234%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192700%_ _%L193248%_))))) - (_%__kont197209197210%_ - (lambda (_%L193074%_ _%L193075%_ _%L193076%_ _%L193077%_) - (let ((_%$e193109%_ - (let ((__tmp197558 + (gxc#compile-e__1 _%self193685%_ _%L194233%_))))) + (_%__kont198194198195%_ + (lambda (_%L194059%_ _%L194060%_ _%L194061%_ _%L194062%_) + (let ((_%$e194094%_ + (let ((__tmp198543 (let () (declare (not safe)) - (gxc#identifier-symbol _%L193077%_)))) + (gxc#identifier-symbol _%L194062%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp197558)))) - (if _%$e193109%_ - ((lambda (_%pred-type193112%_) + (gxc#optimizer-lookup-type __tmp198543)))) + (if _%$e194094%_ + ((lambda (_%pred-type194097%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type193112%_ + _%pred-type194097%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type193112%_ + _%pred-type194097%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test193117%_ - (let ((__tmp197559 + (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 _%L193077%_ '())) + (cons _%L194062%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L193076%_ '())) + (cons _%L194061%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197559 - _%stx192701%_ - _%self192700%_))) - (_%K193121%_ - (let ((__tmp197560 + __tmp198544 + _%stx193686%_ + _%self193685%_))) + (_%K194106%_ + (let ((__tmp198545 (lambda () - (let ((__tmp197563 + (let ((__tmp198548 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192700%_ - _%L193075%_)))) - (__tmp197561 + _%self193685%_ + _%L194060%_)))) + (__tmp198546 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L193076%_)) - (let ((__tmp197562 + (gxc#identifier-symbol _%L194061%_)) + (let ((__tmp198547 (##structure-ref - _%pred-type193112%_ + _%pred-type194097%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192701%_ - __tmp197562))) + _%stx193686%_ + __tmp198547))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp197563 + __tmp198548 gxc#current-compile-path-type - __tmp197561))))) + __tmp198546))))) (declare (not safe)) - (__make-promise __tmp197560))) - (_%E193124%_ - (let ((__tmp197564 + (__make-promise __tmp198545))) + (_%E194109%_ + (let ((__tmp198549 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192700%_ - _%L193074%_))))) + _%self193685%_ + _%L194059%_))))) (declare (not safe)) - (__make-promise __tmp197564))) - (_%__stx197183197184%_ _%test193117%_) - (_%g193128193142%_ + (__make-promise __tmp198549))) + (_%__stx198168198169%_ _%test194102%_) + (_%g194113194127%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197183197184%_))))) - (let ((_%__kont197185197186%_ - (lambda (_%L193170%_ _%L193171%_) + _%__stx198168198169%_))))) + (let ((_%__kont198170198171%_ + (lambda (_%L194155%_ _%L194156%_) (if (let () (declare (not safe)) - (gx#stx-e _%L193170%_)) - (force _%K193121%_) - (force _%E193124%_)))) - (_%__kont197187197188%_ + (gx#stx-e _%L194155%_)) + (force _%K194106%_) + (force _%E194109%_)))) + (_%__kont198172198173%_ (lambda () - (let ((__tmp197565 + (let ((__tmp198550 (cons '%#if - (cons _%test193117%_ - (cons (force _%K193121%_) + (cons _%test194102%_ + (cons (force _%K194106%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E193124%_) '())))))) + (cons (force _%E194109%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197565 - _%stx192701%_))))) + __tmp198550 + _%stx193686%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197183197184%_)) - (let ((_%e193132193154%_ + (gx#stx-pair? _%__stx198168198169%_)) + (let ((_%e194117194139%_ (let () (declare (not safe)) (gx#stx-e - _%__stx197183197184%_)))) - (let ((_%tl193134193159%_ + _%__stx198168198169%_)))) + (let ((_%tl194119194144%_ (let () (declare (not safe)) - (##cdr _%e193132193154%_))) - (_%hd193133193157%_ + (##cdr _%e194117194139%_))) + (_%hd194118194142%_ (let () (declare (not safe)) - (##car _%e193132193154%_)))) + (##car _%e194117194139%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193134193159%_)) - (let ((_%e193135193162%_ + _%tl194119194144%_)) + (let ((_%e194120194147%_ (let () (declare (not safe)) (gx#stx-e - _%tl193134193159%_)))) - (let ((_%tl193137193167%_ + _%tl194119194144%_)))) + (let ((_%tl194122194152%_ (let () (declare (not safe)) - (##cdr _%e193135193162%_))) - (_%hd193136193165%_ + (##cdr _%e194120194147%_))) + (_%hd194121194150%_ (let () (declare (not safe)) - (##car _%e193135193162%_)))) + (##car _%e194120194147%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193137193167%_)) - (_%__kont197185197186%_ - _%hd193136193165%_ - _%hd193133193157%_) - (_%__kont197187197188%_)))) - (_%__kont197187197188%_)))) - (_%__kont197187197188%_)))) + _%tl194122194152%_)) + (_%__kont198170198171%_ + _%hd194121194150%_ + _%hd194118194142%_) + (_%__kont198172198173%_)))) + (_%__kont198172198173%_)))) + (_%__kont198172198173%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self192700%_ - _%stx192701%_)))) - _%$e193109%_) + _%self193685%_ + _%stx193686%_)))) + _%$e194094%_) (let () (declare (not safe)) (gxc#xform-operands - _%self192700%_ - _%stx192701%_)))))) - (_%__kont197211197212%_ - (lambda (_%L192950%_ _%L192951%_ _%L192952%_ _%L192953%_) + _%self193685%_ + _%stx193686%_)))))) + (_%__kont198196198197%_ + (lambda (_%L193935%_ _%L193936%_ _%L193937%_ _%L193938%_) (gxc#optimize-if% - _%self192700%_ - (let ((__tmp197566 + _%self193685%_ + (let ((__tmp198551 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L192952%_ - (cons _%L192950%_ - (cons _%L192951%_ '())))))) + (cons _%L193937%_ + (cons _%L193935%_ + (cons _%L193936%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197566 _%stx192701%_))))) - (_%__kont197213197214%_ - (lambda (_%L192853%_ _%L192854%_ _%L192855%_) + (gxc#xform-wrap-source __tmp198551 _%stx193686%_))))) + (_%__kont198198198199%_ + (lambda (_%L193838%_ _%L193839%_ _%L193840%_) (let () (declare (not safe)) - (gxc#xform-operands _%self192700%_ _%stx192701%_))))) - (let ((_%__match197412197413%_ - (lambda (_%e192770192878%_ - _%hd192771192881%_ - _%tl192772192883%_ - _%e192773192886%_ - _%hd192774192889%_ - _%tl192775192891%_ - _%e192776192894%_ - _%hd192777192897%_ - _%tl192778192899%_ - _%e192779192902%_ - _%hd192780192905%_ - _%tl192781192907%_ - _%e192782192910%_ - _%hd192783192913%_ - _%tl192784192915%_ - _%e192785192918%_ - _%hd192786192921%_ - _%tl192787192923%_ - _%e192788192926%_ - _%hd192789192929%_ - _%tl192790192931%_ - _%e192791192934%_ - _%hd192792192937%_ - _%tl192793192939%_ - _%e192794192942%_ - _%hd192795192945%_ - _%tl192796192947%_) - (let ((_%L192950%_ _%hd192795192945%_) - (_%L192951%_ _%hd192792192937%_) - (_%L192952%_ _%hd192789192929%_) - (_%L192953%_ _%hd192786192921%_)) + (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=? _%L192953%_ 'not)) - (_%__kont197211197212%_ - _%L192950%_ - _%L192951%_ - _%L192952%_ - _%L192953%_) - (_%__kont197213197214%_ - _%hd192795192945%_ - _%hd192792192937%_ - _%hd192774192889%_)))))) + (gxc#runtime-identifier=? _%L193938%_ 'not)) + (_%__kont198196198197%_ + _%L193935%_ + _%L193936%_ + _%L193937%_ + _%L193938%_) + (_%__kont198198198199%_ + _%hd193780193930%_ + _%hd193777193922%_ + _%hd193759193874%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197205197206%_)) - (let ((_%e192711193200%_ + (gx#stx-pair? _%__stx198190198191%_)) + (let ((_%e193696194185%_ (let () (declare (not safe)) - (gx#stx-e _%__stx197205197206%_)))) - (let ((_%tl192713193205%_ + (gx#stx-e _%__stx198190198191%_)))) + (let ((_%tl193698194190%_ (let () (declare (not safe)) - (##cdr _%e192711193200%_))) - (_%hd192712193203%_ + (##cdr _%e193696194185%_))) + (_%hd193697194188%_ (let () (declare (not safe)) - (##car _%e192711193200%_)))) + (##car _%e193696194185%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192713193205%_)) - (let ((_%e192714193208%_ + (gx#stx-pair? _%tl193698194190%_)) + (let ((_%e193699194193%_ (let () (declare (not safe)) - (gx#stx-e _%tl192713193205%_)))) - (let ((_%tl192716193213%_ + (gx#stx-e _%tl193698194190%_)))) + (let ((_%tl193701194198%_ (let () (declare (not safe)) - (##cdr _%e192714193208%_))) - (_%hd192715193211%_ + (##cdr _%e193699194193%_))) + (_%hd193700194196%_ (let () (declare (not safe)) - (##car _%e192714193208%_)))) + (##car _%e193699194193%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192715193211%_)) - (let ((_%e192717193216%_ + (gx#stx-pair? _%hd193700194196%_)) + (let ((_%e193702194201%_ (let () (declare (not safe)) - (gx#stx-e _%hd192715193211%_)))) - (let ((_%tl192719193221%_ + (gx#stx-e _%hd193700194196%_)))) + (let ((_%tl193704194206%_ (let () (declare (not safe)) - (##cdr _%e192717193216%_))) - (_%hd192718193219%_ + (##cdr _%e193702194201%_))) + (_%hd193703194204%_ (let () (declare (not safe)) - (##car _%e192717193216%_)))) + (##car _%e193702194201%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192718193219%_)) + _%hd193703194204%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd192718193219%_)) + _%hd193703194204%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192719193221%_)) - (let ((_%e192720193224%_ + _%tl193704194206%_)) + (let ((_%e193705194209%_ (let () (declare (not safe)) (gx#stx-e - _%tl192719193221%_)))) - (let ((_%tl192722193229%_ + _%tl193704194206%_)))) + (let ((_%tl193707194214%_ (let () (declare (not safe)) - (##cdr _%e192720193224%_))) - (_%hd192721193227%_ + (##cdr _%e193705194209%_))) + (_%hd193706194212%_ (let () (declare (not safe)) - (##car _%e192720193224%_)))) + (##car _%e193705194209%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192722193229%_)) + _%tl193707194214%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192723193232%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193708194217%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192725193237%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193710194222%_ (let () (declare (not safe)) - (##cdr _%e192723193232%_))) - (_%hd192724193235%_ + (##cdr _%e193708194217%_))) + (_%hd193709194220%_ (let () (declare (not safe)) - (##car _%e192723193232%_)))) + (##car _%e193708194217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192725193237%_)) - (let ((_%e192726193240%_ + (gx#stx-pair? _%tl193710194222%_)) + (let ((_%e193711194225%_ (let () (declare (not safe)) - (gx#stx-e _%tl192725193237%_)))) - (let ((_%tl192728193245%_ + (gx#stx-e _%tl193710194222%_)))) + (let ((_%tl193713194230%_ (let () (declare (not safe)) - (##cdr _%e192726193240%_))) - (_%hd192727193243%_ + (##cdr _%e193711194225%_))) + (_%hd193712194228%_ (let () (declare (not safe)) - (##car _%e192726193240%_)))) + (##car _%e193711194225%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192728193245%_)) - (_%__kont197207197208%_ - _%hd192727193243%_ - _%hd192724193235%_ - _%hd192721193227%_) + (gx#stx-null? _%tl193713194230%_)) + (_%__kont198192198193%_ + _%hd193712194228%_ + _%hd193709194220%_ + _%hd193706194212%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_)))))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192806192837%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ - (let () (declare (not safe)) (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ + (let () (declare (not safe)) (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_)))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd192718193219%_)) + _%hd193703194204%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192719193221%_)) - (let ((_%e192742193010%_ + _%tl193704194206%_)) + (let ((_%e193727193995%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192719193221%_)))) - (let ((_%tl192744193015%_ - (let () (declare (not safe)) (##cdr _%e192742193010%_))) - (_%hd192743193013%_ + (gx#stx-e _%tl193704194206%_)))) + (let ((_%tl193729194000%_ + (let () (declare (not safe)) (##cdr _%e193727193995%_))) + (_%hd193728193998%_ (let () (declare (not safe)) - (##car _%e192742193010%_)))) + (##car _%e193727193995%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192743193013%_)) - (let ((_%e192745193018%_ + (gx#stx-pair? _%hd193728193998%_)) + (let ((_%e193730194003%_ (let () (declare (not safe)) - (gx#stx-e _%hd192743193013%_)))) - (let ((_%tl192747193023%_ + (gx#stx-e _%hd193728193998%_)))) + (let ((_%tl193732194008%_ (let () (declare (not safe)) - (##cdr _%e192745193018%_))) - (_%hd192746193021%_ + (##cdr _%e193730194003%_))) + (_%hd193731194006%_ (let () (declare (not safe)) - (##car _%e192745193018%_)))) + (##car _%e193730194003%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192746193021%_)) + (gx#identifier? _%hd193731194006%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192746193021%_)) + (gx#stx-eq? '%#ref _%hd193731194006%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192747193023%_)) - (let ((_%e192748193026%_ + (gx#stx-pair? _%tl193732194008%_)) + (let ((_%e193733194011%_ (let () (declare (not safe)) - (gx#stx-e _%tl192747193023%_)))) - (let ((_%tl192750193031%_ + (gx#stx-e _%tl193732194008%_)))) + (let ((_%tl193735194016%_ (let () (declare (not safe)) - (##cdr _%e192748193026%_))) - (_%hd192749193029%_ + (##cdr _%e193733194011%_))) + (_%hd193734194014%_ (let () (declare (not safe)) - (##car _%e192748193026%_)))) + (##car _%e193733194011%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192750193031%_)) + _%tl193735194016%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192744193015%_)) - (let ((_%e192751193034%_ + _%tl193729194000%_)) + (let ((_%e193736194019%_ (let () (declare (not safe)) (gx#stx-e - _%tl192744193015%_)))) - (let ((_%tl192753193039%_ + _%tl193729194000%_)))) + (let ((_%tl193738194024%_ (let () (declare (not safe)) - (##cdr _%e192751193034%_))) - (_%hd192752193037%_ + (##cdr _%e193736194019%_))) + (_%hd193737194022%_ (let () (declare (not safe)) - (##car _%e192751193034%_)))) + (##car _%e193736194019%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192752193037%_)) - (let ((_%e192754193042%_ + _%hd193737194022%_)) + (let ((_%e193739194027%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd192752193037%_)))) - (let ((_%tl192756193047%_ + (gx#stx-e _%hd193737194022%_)))) + (let ((_%tl193741194032%_ (let () (declare (not safe)) - (##cdr _%e192754193042%_))) - (_%hd192755193045%_ + (##cdr _%e193739194027%_))) + (_%hd193740194030%_ (let () (declare (not safe)) - (##car _%e192754193042%_)))) + (##car _%e193739194027%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192755193045%_)) + (gx#identifier? _%hd193740194030%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192755193045%_)) + (gx#stx-eq? '%#ref _%hd193740194030%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192756193047%_)) - (let ((_%e192757193050%_ + (gx#stx-pair? _%tl193741194032%_)) + (let ((_%e193742194035%_ (let () (declare (not safe)) - (gx#stx-e _%tl192756193047%_)))) - (let ((_%tl192759193055%_ + (gx#stx-e _%tl193741194032%_)))) + (let ((_%tl193744194040%_ (let () (declare (not safe)) - (##cdr _%e192757193050%_))) - (_%hd192758193053%_ + (##cdr _%e193742194035%_))) + (_%hd193743194038%_ (let () (declare (not safe)) - (##car _%e192757193050%_)))) + (##car _%e193742194035%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192759193055%_)) + (gx#stx-null? _%tl193744194040%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192753193039%_)) + _%tl193738194024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192760193058%_ + _%tl193701194198%_)) + (let ((_%e193745194043%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192762193063%_ + _%tl193701194198%_)))) + (let ((_%tl193747194048%_ (let () (declare (not safe)) - (##cdr _%e192760193058%_))) - (_%hd192761193061%_ + (##cdr _%e193745194043%_))) + (_%hd193746194046%_ (let () (declare (not safe)) - (##car _%e192760193058%_)))) + (##car _%e193745194043%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192762193063%_)) - (let ((_%e192763193066%_ + _%tl193747194048%_)) + (let ((_%e193748194051%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192762193063%_)))) - (let ((_%tl192765193071%_ + (gx#stx-e _%tl193747194048%_)))) + (let ((_%tl193750194056%_ (let () (declare (not safe)) - (##cdr _%e192763193066%_))) - (_%hd192764193069%_ + (##cdr _%e193748194051%_))) + (_%hd193749194054%_ (let () (declare (not safe)) - (##car _%e192763193066%_)))) + (##car _%e193748194051%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192765193071%_)) - (_%__kont197209197210%_ - _%hd192764193069%_ - _%hd192761193061%_ - _%hd192758193053%_ - _%hd192749193029%_) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) + (gx#stx-null? _%tl193750194056%_)) + (_%__kont198194198195%_ + _%hd193749194054%_ + _%hd193746194046%_ + _%hd193743194038%_ + _%hd193734194014%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192706192816%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192806192837%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192706192816%_)))) + (_%g193691193801%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192753193039%_)) + _%tl193738194024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192791192934%_ + _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192793192939%_ + _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192791192934%_))) - (_%hd192792192937%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192791192934%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192793192939%_)) - (let ((_%e192794192942%_ + _%tl193778193924%_)) + (let ((_%e193779193927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192793192939%_)))) - (let ((_%tl192796192947%_ + (gx#stx-e _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192794192942%_))) - (_%hd192795192945%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192794192942%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192796192947%_)) - (_%__match197412197413%_ - _%e192711193200%_ - _%hd192712193203%_ - _%tl192713193205%_ - _%e192714193208%_ - _%hd192715193211%_ - _%tl192716193213%_ - _%e192717193216%_ - _%hd192718193219%_ - _%tl192719193221%_ - _%e192742193010%_ - _%hd192743193013%_ - _%tl192744193015%_ - _%e192745193018%_ - _%hd192746193021%_ - _%tl192747193023%_ - _%e192748193026%_ - _%hd192749193029%_ - _%tl192750193031%_ - _%e192751193034%_ - _%hd192752193037%_ - _%tl192753193039%_ - _%e192791192934%_ - _%hd192792192937%_ - _%tl192793192939%_ - _%e192794192942%_ - _%hd192795192945%_ - _%tl192796192947%_) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) + (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)) - (_%g192706192816%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192806192837%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192706192816%_))))))) + (_%g193691193801%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192753193039%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192791192934%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192793192939%_ + _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192791192934%_))) - (_%hd192792192937%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192791192934%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192793192939%_)) - (let ((_%e192794192942%_ + _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) (gx#stx-e - _%tl192793192939%_)))) - (let ((_%tl192796192947%_ + _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192794192942%_))) - (_%hd192795192945%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192794192942%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192796192947%_)) - (_%__match197412197413%_ - _%e192711193200%_ - _%hd192712193203%_ - _%tl192713193205%_ - _%e192714193208%_ - _%hd192715193211%_ - _%tl192716193213%_ - _%e192717193216%_ - _%hd192718193219%_ - _%tl192719193221%_ - _%e192742193010%_ - _%hd192743193013%_ - _%tl192744193015%_ - _%e192745193018%_ - _%hd192746193021%_ - _%tl192747193023%_ - _%e192748193026%_ - _%hd192749193029%_ - _%tl192750193031%_ - _%e192751193034%_ - _%hd192752193037%_ - _%tl192753193039%_ - _%e192791192934%_ - _%hd192792192937%_ - _%tl192793192939%_ - _%e192794192942%_ - _%hd192795192945%_ - _%tl192796192947%_) + _%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)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192753193039%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192791192934%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192793192939%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192791192934%_))) - (_%hd192792192937%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192791192934%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192793192939%_)) - (let ((_%e192794192942%_ + _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) (gx#stx-e - _%tl192793192939%_)))) - (let ((_%tl192796192947%_ + _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192794192942%_))) - (_%hd192795192945%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192794192942%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192796192947%_)) - (_%__match197412197413%_ - _%e192711193200%_ - _%hd192712193203%_ - _%tl192713193205%_ - _%e192714193208%_ - _%hd192715193211%_ - _%tl192716193213%_ - _%e192717193216%_ - _%hd192718193219%_ - _%tl192719193221%_ - _%e192742193010%_ - _%hd192743193013%_ - _%tl192744193015%_ - _%e192745193018%_ - _%hd192746193021%_ - _%tl192747193023%_ - _%e192748193026%_ - _%hd192749193029%_ - _%tl192750193031%_ - _%e192751193034%_ - _%hd192752193037%_ - _%tl192753193039%_ - _%e192791192934%_ - _%hd192792192937%_ - _%tl192793192939%_ - _%e192794192942%_ - _%hd192795192945%_ - _%tl192796192947%_) + _%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)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192753193039%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192791192934%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192793192939%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192791192934%_))) - (_%hd192792192937%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192791192934%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192793192939%_)) - (let ((_%e192794192942%_ + (gx#stx-pair? _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) (gx#stx-e - _%tl192793192939%_)))) - (let ((_%tl192796192947%_ + _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192794192942%_))) - (_%hd192795192945%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192794192942%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192796192947%_)) - (_%__match197412197413%_ - _%e192711193200%_ - _%hd192712193203%_ - _%tl192713193205%_ - _%e192714193208%_ - _%hd192715193211%_ - _%tl192716193213%_ - _%e192717193216%_ - _%hd192718193219%_ - _%tl192719193221%_ - _%e192742193010%_ - _%hd192743193013%_ - _%tl192744193015%_ - _%e192745193018%_ - _%hd192746193021%_ - _%tl192747193023%_ - _%e192748193026%_ - _%hd192749193029%_ - _%tl192750193031%_ - _%e192751193034%_ - _%hd192752193037%_ - _%tl192753193039%_ - _%e192791192934%_ - _%hd192792192937%_ - _%tl192793192939%_ - _%e192794192942%_ - _%hd192795192945%_ - _%tl192796192947%_) + _%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)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))))) + (_%g193691193801%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192753193039%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192791192934%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192793192939%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192791192934%_))) - (_%hd192792192937%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192791192934%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192793192939%_)) - (let ((_%e192794192942%_ + (gx#stx-pair? _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) - (gx#stx-e _%tl192793192939%_)))) - (let ((_%tl192796192947%_ + (gx#stx-e _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192794192942%_))) - (_%hd192795192945%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192794192942%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192796192947%_)) - (_%__match197412197413%_ - _%e192711193200%_ - _%hd192712193203%_ - _%tl192713193205%_ - _%e192714193208%_ - _%hd192715193211%_ - _%tl192716193213%_ - _%e192717193216%_ - _%hd192718193219%_ - _%tl192719193221%_ - _%e192742193010%_ - _%hd192743193013%_ - _%tl192744193015%_ - _%e192745193018%_ - _%hd192746193021%_ - _%tl192747193023%_ - _%e192748193026%_ - _%hd192749193029%_ - _%tl192750193031%_ - _%e192751193034%_ - _%hd192752193037%_ - _%tl192753193039%_ - _%e192791192934%_ - _%hd192792192937%_ - _%tl192793192939%_ - _%e192794192942%_ - _%hd192795192945%_ - _%tl192796192947%_) + (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)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))))) + (_%g193691193801%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192806192837%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ - (let () (declare (not safe)) (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ + (let () (declare (not safe)) (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_)))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192806192837%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192706192816%_)))))) + (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_)))) + (_%g193691193801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_)))) + (_%g193691193801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_)))))) + (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_)))))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_)))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192806192837%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ - (let () (declare (not safe)) (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ + (let () (declare (not safe)) (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192808192842%_)) - (let ((_%e192809192845%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192716193213%_)) - (let ((_%e192806192837%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192808192842%_)))) - (let ((_%tl192811192850%_ - (let () (declare (not safe)) (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ + (let () (declare (not safe)) (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192706192816%_)))))) + (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192716193213%_)) - (let ((_%e192806192837%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192716193213%_)))) - (let ((_%tl192808192842%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192806192837%_))) - (_%hd192807192840%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192806192837%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192808192842%_)) - (let ((_%e192809192845%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192808192842%_)))) - (let ((_%tl192811192850%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192809192845%_))) - (_%hd192810192848%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192809192845%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192811192850%_)) - (_%__kont197213197214%_ - _%hd192810192848%_ - _%hd192807192840%_ - _%hd192715193211%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192706192816%_)))))) - (let () (declare (not safe)) (_%g192706192816%_))))) - (let () (declare (not safe)) (_%g192706192816%_)))))))))) + (_%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 9d332b9fd..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]#_g197568_| + (define |gxc[1]#_g198553_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197570_| + (define |gxc[1]#_g198555_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197572_| + (define |gxc[1]#_g198557_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197574_| + (define |gxc[1]#_g198559_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197576_| + (define |gxc[1]#_g198561_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197578_| + (define |gxc[1]#_g198563_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197580_| + (define |gxc[1]#_g198565_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197582_| + (define |gxc[1]#_g198567_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj197440 + (let ((__obj198425 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197440 + __obj198425 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj198425 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '6 '#f '#f)) - (let ((__tmp197567 (cons |gxc[1]#_g197568_| '()))) + (##unchecked-structure-set! __obj198425 '() '6 '#f '#f)) + (let ((__tmp198552 (cons |gxc[1]#_g198553_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197440 __tmp197567 '3 '#f '#f)) + (##unchecked-structure-set! __obj198425 __tmp198552 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj198425 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj198425 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj198425 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '#f '11 '#f '#f)) - (let ((__tmp197569 |gxc[1]#_g197570_|)) + (##unchecked-structure-set! __obj198425 '#f '11 '#f '#f)) + (let ((__tmp198554 |gxc[1]#_g198555_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197440 __tmp197569 '12 '#f '#f)) - (let ((__tmp197571 |gxc[1]#_g197572_|)) + (##unchecked-structure-set! __obj198425 __tmp198554 '12 '#f '#f)) + (let ((__tmp198556 |gxc[1]#_g198557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197440 __tmp197571 '13 '#f '#f)) - (let ((__tmp197573 |gxc[1]#_g197574_|)) + (##unchecked-structure-set! __obj198425 __tmp198556 '13 '#f '#f)) + (let ((__tmp198558 |gxc[1]#_g198559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197440 __tmp197573 '14 '#f '#f)) + (##unchecked-structure-set! __obj198425 __tmp198558 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197440 '() '20 '#f '#f)) - __obj197440)) + (##unchecked-structure-set! __obj198425 '() '20 '#f '#f)) + __obj198425)) (define |gxc[:0:]#::check-return-type| - (let ((__obj197442 + (let ((__obj198427 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197442 + __obj198427 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197442 + __obj198427 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '6 '#f '#f)) - (let ((__tmp197575 (cons |gxc[1]#_g197576_| '()))) + (##unchecked-structure-set! __obj198427 '() '6 '#f '#f)) + (let ((__tmp198560 (cons |gxc[1]#_g198561_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197442 __tmp197575 '3 '#f '#f)) + (##unchecked-structure-set! __obj198427 __tmp198560 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj198427 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj198427 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj198427 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '#f '11 '#f '#f)) - (let ((__tmp197577 |gxc[1]#_g197578_|)) + (##unchecked-structure-set! __obj198427 '#f '11 '#f '#f)) + (let ((__tmp198562 |gxc[1]#_g198563_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197442 __tmp197577 '12 '#f '#f)) - (let ((__tmp197579 |gxc[1]#_g197580_|)) + (##unchecked-structure-set! __obj198427 __tmp198562 '12 '#f '#f)) + (let ((__tmp198564 |gxc[1]#_g198565_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197442 __tmp197579 '13 '#f '#f)) - (let ((__tmp197581 |gxc[1]#_g197582_|)) + (##unchecked-structure-set! __obj198427 __tmp198564 '13 '#f '#f)) + (let ((__tmp198566 |gxc[1]#_g198567_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197442 __tmp197581 '14 '#f '#f)) + (##unchecked-structure-set! __obj198427 __tmp198566 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197442 '() '20 '#f '#f)) - __obj197442)))) + (##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 6f5dd54ab..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 1734131750) + (define gerbil/compiler/optimize-spec::timestamp 1734357965) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp178113 (list gxc#::identity::t)) - (__tmp178112 (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 - __tmp178113 + __tmp179098 '() - __tmp178112 + __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 _%$args176910%_ + (lambda _%$args177895%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args176910%_))) + _%$args177895%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp178114 + (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 __tmp178114))) + (__make-promise __tmp179099))) (define gxc#apply-generate-method-specializers - (lambda (_%stx176902%_) + (lambda (_%stx177887%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self176905%_ - (let ((__obj178105 + (let* ((_%self177890%_ + (let ((__obj179090 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj178105)) - (__tmp178115 + __obj179090)) + (__tmp179100 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176905%_ _%stx176902%_))))) + (gxc#compile-e__1 _%self177890%_ _%stx177887%_))))) (declare (not safe)) (__call-with-parameters - __tmp178115 + __tmp179100 gxc#current-compile-method - _%self176905%_)))) + _%self177890%_)))) (define gxc#::extract-receiver::t - (let ((__tmp178117 (list gxc#::false::t)) - (__tmp178116 (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 - __tmp178117 + __tmp179102 '() - __tmp178116 + __tmp179101 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args176899%_ - (apply make-instance gxc#::extract-receiver::t _%$args176899%_))) + (lambda _%$args177884%_ + (apply make-instance gxc#::extract-receiver::t _%$args177884%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp178118 + (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 __tmp178118))) + (__make-promise __tmp179103))) (define gxc#apply-extract-receiver - (lambda (_%stx176891%_) + (lambda (_%stx177876%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self176894%_ - (let ((__obj178107 + (let* ((_%self177879%_ + (let ((__obj179092 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj178107)) - (__tmp178119 + __obj179092)) + (__tmp179104 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176894%_ _%stx176891%_))))) + (gxc#compile-e__1 _%self177879%_ _%stx177876%_))))) (declare (not safe)) (__call-with-parameters - __tmp178119 + __tmp179104 gxc#current-compile-method - _%self176894%_)))) + _%self177879%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp178121 (list gxc#::void::t)) - (__tmp178120 (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 - __tmp178121 + __tmp179106 '(receiver methods slots) - __tmp178120 + __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 _%$args176888%_ - (apply make-instance gxc#::collect-object-refs::t _%$args176888%_))) + (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 ((__tmp178122 + (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 __tmp178122))) + (__make-promise __tmp179107))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords176854%_ - _%receiver176849176855%_ - _%methods176850176857%_ - _%slots176851176859%_ - _%stx176861%_) - (let* ((_%receiver176864%_ - (if (eq? _%receiver176849176855%_ 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:)) - _%receiver176849176855%_)) - (_%methods176866%_ - (if (eq? _%methods176850176857%_ absent-value) + _%receiver177834177840%_)) + (_%methods177851%_ + (if (eq? _%methods177835177842%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176850176857%_)) - (_%slots176868%_ - (if (eq? _%slots176851176859%_ absent-value) + _%methods177835177842%_)) + (_%slots177853%_ + (if (eq? _%slots177836177844%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176851176859%_))) + _%slots177836177844%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self176870%_ - (let ((__obj178109 + (let* ((_%self177855%_ + (let ((__obj179094 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178109 - _%receiver176864%_ + __obj179094 + _%receiver177849%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178109 - _%methods176866%_ + __obj179094 + _%methods177851%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178109 - _%slots176868%_ + __obj179094 + _%slots177853%_ '3 '#f '#f)) - __obj178109)) - (__tmp178123 + __obj179094)) + (__tmp179108 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176870%_ _%stx176861%_))))) + (gxc#compile-e__1 _%self177855%_ _%stx177846%_))))) (declare (not safe)) (__call-with-parameters - __tmp178123 + __tmp179108 gxc#current-compile-method - _%self176870%_))))) + _%self177855%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords176877%_ . _%args176878%_) + (lambda (_%@@keywords177862%_ . _%args177863%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords176877%_ + _%@@keywords177862%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176877%_ + _%@@keywords177862%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176877%_ + _%@@keywords177862%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176877%_ + _%@@keywords177862%_ 'slots: absent-value)) - _%args176878%_))) + _%args177863%_))) (define gxc#apply-collect-object-refs - (lambda _%args176852176884%_ + (lambda _%args177837177869%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args176852176884%_))) + _%args177837177869%_))) (define gxc#::subst-object-refs::t - (let ((__tmp178125 (list gxc#::basic-xform-expression::t)) - (__tmp178124 (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 - __tmp178125 + __tmp179110 '(receiver klass methods slots) - __tmp178124 + __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 _%$args176845%_ - (apply make-instance gxc#::subst-object-refs::t _%$args176845%_))) + (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 ((__tmp178126 + (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 __tmp178126))) + (__make-promise __tmp179111))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords176807%_ - _%receiver176801176808%_ - _%klass176802176810%_ - _%methods176803176812%_ - _%slots176804176814%_ - _%stx176816%_) - (let* ((_%receiver176819%_ - (if (eq? _%receiver176801176808%_ 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:)) - _%receiver176801176808%_)) - (_%klass176821%_ - (if (eq? _%klass176802176810%_ absent-value) + _%receiver177786177793%_)) + (_%klass177806%_ + (if (eq? _%klass177787177795%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass176802176810%_)) - (_%methods176823%_ - (if (eq? _%methods176803176812%_ absent-value) + _%klass177787177795%_)) + (_%methods177808%_ + (if (eq? _%methods177788177797%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176803176812%_)) - (_%slots176825%_ - (if (eq? _%slots176804176814%_ absent-value) + _%methods177788177797%_)) + (_%slots177810%_ + (if (eq? _%slots177789177799%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176804176814%_))) + _%slots177789177799%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self176827%_ - (let ((__obj178111 + (let* ((_%self177812%_ + (let ((__obj179096 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178111 - _%receiver176819%_ + __obj179096 + _%receiver177804%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178111 - _%klass176821%_ + __obj179096 + _%klass177806%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178111 - _%methods176823%_ + __obj179096 + _%methods177808%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178111 - _%slots176825%_ + __obj179096 + _%slots177810%_ '4 '#f '#f)) - __obj178111)) - (__tmp178127 + __obj179096)) + (__tmp179112 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176827%_ _%stx176816%_))))) + (gxc#compile-e__1 _%self177812%_ _%stx177801%_))))) (declare (not safe)) (__call-with-parameters - __tmp178127 + __tmp179112 gxc#current-compile-method - _%self176827%_))))) + _%self177812%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords176834%_ . _%args176835%_) + (lambda (_%@@keywords177819%_ . _%args177820%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords176834%_ + _%@@keywords177819%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176834%_ + _%@@keywords177819%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176834%_ + _%@@keywords177819%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176834%_ + _%@@keywords177819%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176834%_ + _%@@keywords177819%_ 'slots: absent-value)) - _%args176835%_))) + _%args177820%_))) (define gxc#apply-subst-object-refs - (lambda _%args176805176841%_ + (lambda _%args177790177826%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args176805176841%_))) + _%args177790177826%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self173916%_ _%stx173917%_) - (letrec ((_%generate-method-bind173919%_ - (lambda (_%$klass176793%_ - _%$method-table176794%_ - _%id176795%_ - _%$id176796%_) - (let ((_%$tmp176798%_ - (let ((__tmp178128 + (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 __tmp178128)))) - (cons (cons _%$id176796%_ '()) + (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 _%$tmp176798%_ '()) + (cons (cons (cons (cons _%$tmp177783%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table176794%_ '())) + (cons _%$method-table177779%_ '())) (cons (cons '%#quote - (cons _%id176795%_ '())) + (cons _%id177780%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176798%_ '())) - (cons (cons '%#ref (cons _%$tmp176798%_ '())) + (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 _%id176795%_ + (cons _%id177780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind173920%_ - (lambda (_%$klass176787%_ _%id176788%_ _%$id176789%_) - (let ((_%$tmp176791%_ - (let ((__tmp178129 + (_%generate-slot-bind174905%_ + (lambda (_%$klass177772%_ _%id177773%_ _%$id177774%_) + (let ((_%$tmp177776%_ + (let ((__tmp179114 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp178129)))) - (cons (cons _%$id176789%_ '()) + (make-symbol__0 __tmp179114)))) + (cons (cons _%$id177774%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp176791%_ + (cons (cons (cons (cons _%$tmp177776%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass176787%_ '())) + (cons _%$klass177772%_ '())) (cons (cons '%#quote - (cons _%id176788%_ '())) + (cons _%id177773%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,465 +762,465 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176791%_ '())) - (cons (cons '%#ref (cons _%$tmp176791%_ '())) + (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 _%id176788%_ '())) '())))) + (cons (cons '%#quote (cons _%id177773%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl173921%_ - (lambda (_%$klass176781%_ - _%$method-table176782%_ - _%methods-bind176783%_ - _%slots-bind176784%_ - _%specializer-impl176785%_) - (let ((__tmp178130 + (_%generate-specializer-impl174906%_ + (lambda (_%$klass177766%_ + _%$method-table177767%_ + _%methods-bind177768%_ + _%slots-bind177769%_ + _%specializer-impl177770%_) + (let ((__tmp179115 (cons '%#lambda - (cons (cons _%$klass176781%_ - (cons _%$method-table176782%_ + (cons (cons _%$klass177766%_ + (cons _%$method-table177767%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind176784%_ - _%methods-bind176783%_)) - (cons _%specializer-impl176785%_ + _%slots-bind177769%_ + _%methods-bind177768%_)) + (cons _%specializer-impl177770%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178130 _%stx173917%_)))) - (_%generate-specializer-def173922%_ - (lambda (_%id176777%_ - _%specializer-id176778%_ - _%specializer-impl176779%_) - (let ((__tmp178131 + (gxc#xform-wrap-source __tmp179115 _%stx174902%_)))) + (_%generate-specializer-def174907%_ + (lambda (_%id177762%_ + _%specializer-id177763%_ + _%specializer-impl177764%_) + (let ((__tmp179116 (cons '%#begin - (cons _%stx173917%_ - (cons (let ((__tmp178132 + (cons _%stx174902%_ + (cons (let ((__tmp179117 (cons '%#define-values - (cons (cons _%specializer-id176778%_ + (cons (cons _%specializer-id177763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl176779%_ '()))))) + (cons _%specializer-impl177764%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178132 - _%stx173917%_)) - (cons (let ((__tmp178133 + __tmp179117 + _%stx174902%_)) + (cons (let ((__tmp179118 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id176777%_ '())) + (cons (cons '%#ref (cons _%id177762%_ '())) (cons (cons '%#ref - (cons _%specializer-id176778%_ + (cons _%specializer-id177763%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178133 - _%stx173917%_)) + __tmp179118 + _%stx174902%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178131 _%stx173917%_))))) - (let* ((_%__stx176999177000%_ _%stx173917%_) - (_%g173925173945%_ + (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" - _%__stx176999177000%_))))) - (let ((_%__kont177001177002%_ - (lambda (_%L173989%_ _%L173990%_) - (let ((_%method-calls174009%_ + _%__stx177984177985%_))))) + (let ((_%__kont177986177987%_ + (lambda (_%L174974%_ _%L174975%_) + (let ((_%method-calls174994%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs174010%_ + (_%slot-refs174995%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty174011%_ + (_%empty174996%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?174013%_ + (letrec ((_%no-specializer?174998%_ (lambda () (if (fxzero? (let () (declare (not safe)) (__hash-length - _%method-calls174009%_))) + _%method-calls174994%_))) (fxzero? (let () (declare (not safe)) (__hash-length - _%slot-refs174010%_))) + _%slot-refs174995%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L173989%_)) - (let* ((_%__stx176913176914%_ _%L173989%_) - (_%g174401174419%_ + (gxc#lambda-expr? _%L174974%_)) + (let* ((_%__stx177898177899%_ _%L174974%_) + (_%g175386175404%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176913176914%_))))) - (let ((_%__kont176915176916%_ - (lambda (_%L174455%_ - _%L174456%_ - _%L174457%_) - (let ((_%receiver174477%_ - (let ((_%$e174474%_ + _%__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)) - _%L174455%_)))) + _%L175440%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e174474%_ - _%$e174474%_ - _%L174457%_)))) + (if _%$e175459%_ + _%$e175459%_ + _%L175442%_)))) (for-each - (lambda (_%g174478174480%_) + (lambda (_%g175463175465%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174477%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g174478174480%_)) - _%L174455%_) - (if (_%no-specializer?174013%_) - _%stx173917%_ - (let* ((_%specializer-id174489%_ - (let* ((_%id174483%_ - (let ((__tmp178134 + _%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 _%L173990%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp178134 '"::specialize"))) - (_%specializer-id174486%_ - (let ((__tmp178135 + (make-symbol__1 __tmp179119 '"::specialize"))) + (_%specializer-id175471%_ + (let ((__tmp179120 (let () (declare (not safe)) - (gx#stx-source _%stx173917%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id174483%_ __tmp178135)))) + (gx#core-quote-syntax__1 _%id175468%_ __tmp179120)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174486%_)) - _%specializer-id174486%_)) + (gx#core-bind-runtime!__0 _%specializer-id175471%_)) + _%specializer-id175471%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass174491%_ - (let ((__tmp178136 + (_%$klass175476%_ + (let ((__tmp179121 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178136))) + (make-symbol__0 __tmp179121))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table174493%_ - (let ((__tmp178137 + (_%$method-table175478%_ + (let ((__tmp179122 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178137))) + (make-symbol__0 __tmp179122))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods174495%_ + (_%methods175480%_ (let () (declare (not safe)) (__hash-keys - _%method-calls174009%_))) - (_%$methods174499%_ - (map (lambda (_%id174497%_) - (let ((__tmp178138 + _%method-calls174994%_))) + (_%$methods175484%_ + (map (lambda (_%id175482%_) + (let ((__tmp179123 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174497%_))) + (gensym _%id175482%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178138))) - _%methods174495%_)) + (make-symbol__1 '"__" __tmp179123))) + _%methods175480%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174508%_ + (_%_175493%_ (for-each - (lambda (_%g174500174503%_ - _%g174501174505%_) + (lambda (_%g175485175488%_ + _%g175486175490%_) (let () (declare (not safe)) (__hash-put! - _%method-calls174009%_ - _%g174500174503%_ - _%g174501174505%_))) - _%methods174495%_ - _%$methods174499%_)) - (_%methods-bind174518%_ - (map (lambda (_%g174510174513%_ + _%method-calls174994%_ + _%g175485175488%_ + _%g175486175490%_))) + _%methods175480%_ + _%$methods175484%_)) + (_%methods-bind175503%_ + (map (lambda (_%g175495175498%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174511174515%_) - (_%generate-method-bind173919%_ - _%$klass174491%_ - _%$method-table174493%_ - _%g174510174513%_ - _%g174511174515%_)) - _%methods174495%_ - _%$methods174499%_)) + _%g175496175500%_) + (_%generate-method-bind174904%_ + _%$klass175476%_ + _%$method-table175478%_ + _%g175495175498%_ + _%g175496175500%_)) + _%methods175480%_ + _%$methods175484%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots174520%_ + (_%slots175505%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs174010%_))) - (_%$slots174524%_ - (map (lambda (_%id174522%_) - (let ((__tmp178139 + _%slot-refs174995%_))) + (_%$slots175509%_ + (map (lambda (_%id175507%_) + (let ((__tmp179124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174522%_))) + (gensym _%id175507%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178139))) - _%slots174520%_)) + (make-symbol__1 '"__" __tmp179124))) + _%slots175505%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174533%_ + (_%_175518%_ (for-each - (lambda (_%g174525174528%_ - _%g174526174530%_) + (lambda (_%g175510175513%_ + _%g175511175515%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs174010%_ - _%g174525174528%_ - _%g174526174530%_))) - _%slots174520%_ - _%$slots174524%_)) - (_%slots-bind174542%_ - (map (lambda (_%g174534174537%_ + _%slot-refs174995%_ + _%g175510175513%_ + _%g175511175515%_))) + _%slots175505%_ + _%$slots175509%_)) + (_%slots-bind175527%_ + (map (lambda (_%g175519175522%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174535174539%_) - (_%generate-slot-bind173920%_ - _%$klass174491%_ - _%g174534174537%_ - _%g174535174539%_)) - _%slots174520%_ - _%$slots174524%_)) + _%g175520175524%_) + (_%generate-slot-bind174905%_ + _%$klass175476%_ + _%g175519175522%_ + _%g175520175524%_)) + _%slots175505%_ + _%$slots175509%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body174548%_ - (map (lambda (_%g174543174545%_) + (_%specializer-body175533%_ + (map (lambda (_%g175528175530%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174477%_ - _%$klass174491%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g174543174545%_)) - _%L174455%_)) - (_%specializer-impl174550%_ - (let ((__tmp178140 + _%receiver175462%_ + _%$klass175476%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g175528175530%_)) + _%L175440%_)) + (_%specializer-impl175535%_ + (let ((__tmp179125 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L174457%_ _%L174456%_) - _%specializer-body174548%_)))) + (cons (cons _%L175442%_ _%L175441%_) + _%specializer-body175533%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178140 _%stx173917%_))) + (gxc#xform-wrap-source __tmp179125 _%stx174902%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl174552%_ - (_%generate-specializer-impl173921%_ - _%$klass174491%_ - _%$method-table174493%_ - _%methods-bind174518%_ - _%slots-bind174542%_ - _%specializer-impl174550%_))) - (let ((__tmp178142 + (_%specializer-impl175537%_ + (_%generate-specializer-impl174906%_ + _%$klass175476%_ + _%$method-table175478%_ + _%methods-bind175503%_ + _%slots-bind175527%_ + _%specializer-impl175535%_))) + (let ((__tmp179127 (let () (declare (not safe)) (gx#stx-e - _%L173990%_))) - (__tmp178141 + _%L174975%_))) + (__tmp179126 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174489%_)))) + _%specializer-id175474%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178142 + __tmp179127 '" => " - __tmp178141)) - (_%generate-specializer-def173922%_ - _%L173990%_ - _%specializer-id174489%_ - _%specializer-impl174552%_)))))) - (_%__kont176917176918%_ - (lambda () _%stx173917%_))) + __tmp179126)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id175474%_ + _%specializer-impl175537%_)))))) + (_%__kont177902177903%_ + (lambda () _%stx174902%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176913176914%_)) - (let ((_%e174406174431%_ + (gx#stx-pair? _%__stx177898177899%_)) + (let ((_%e175391175416%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176913176914%_)))) - (let ((_%tl174408174436%_ + _%__stx177898177899%_)))) + (let ((_%tl175393175421%_ (let () (declare (not safe)) - (##cdr _%e174406174431%_))) - (_%hd174407174434%_ + (##cdr _%e175391175416%_))) + (_%hd175392175419%_ (let () (declare (not safe)) - (##car _%e174406174431%_)))) + (##car _%e175391175416%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174408174436%_)) - (let ((_%e174409174439%_ + _%tl175393175421%_)) + (let ((_%e175394175424%_ (let () (declare (not safe)) (gx#stx-e - _%tl174408174436%_)))) - (let ((_%tl174411174444%_ + _%tl175393175421%_)))) + (let ((_%tl175396175429%_ (let () (declare (not safe)) - (##cdr _%e174409174439%_))) - (_%hd174410174442%_ + (##cdr _%e175394175424%_))) + (_%hd175395175427%_ (let () (declare (not safe)) - (##car _%e174409174439%_)))) + (##car _%e175394175424%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174410174442%_)) - (let ((_%e174412174447%_ + _%hd175395175427%_)) + (let ((_%e175397175432%_ (let () (declare (not safe)) (gx#stx-e - _%hd174410174442%_)))) - (let ((_%tl174414174452%_ + _%hd175395175427%_)))) + (let ((_%tl175399175437%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e174412174447%_))) - (_%hd174413174450%_ - (let () (declare (not safe)) (##car _%e174412174447%_)))) - (_%__kont176915176916%_ - _%tl174411174444%_ - _%tl174414174452%_ - _%hd174413174450%_))) + (##cdr _%e175397175432%_))) + (_%hd175398175435%_ + (let () (declare (not safe)) (##car _%e175397175432%_)))) + (_%__kont177900177901%_ + _%tl175396175429%_ + _%tl175399175437%_ + _%hd175398175435%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176917176918%_)))) - (_%__kont176917176918%_)))) - (_%__kont176917176918%_)))) + (_%__kont177902177903%_)))) + (_%__kont177902177903%_)))) + (_%__kont177902177903%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L173989%_)) - (let* ((_%g174559174578%_ - (lambda (_%g174560174575%_) + (gxc#case-lambda-expr? _%L174974%_)) + (let* ((_%g175544175563%_ + (lambda (_%g175545175560%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174560174575%_)))) - (_%g174558174876%_ - (lambda (_%g174560174581%_) + _%g175545175560%_)))) + (_%g175543175861%_ + (lambda (_%g175545175566%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174560174581%_)) - (let ((_%e174562174583%_ + _%g175545175566%_)) + (let ((_%e175547175568%_ (let () (declare (not safe)) (gx#stx-e - _%g174560174581%_)))) - (let ((_%hd174563174586%_ + _%g175545175566%_)))) + (let ((_%hd175548175571%_ (let () (declare (not safe)) - (##car _%e174562174583%_))) - (_%tl174564174588%_ + (##car _%e175547175568%_))) + (_%tl175549175573%_ (let () (declare (not safe)) - (##cdr _%e174562174583%_)))) + (##cdr _%e175547175568%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174564174588%_)) - (let ((_g178143_ + _%tl175549175573%_)) + (let ((_g179128_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl174564174588%_ '0)))) + (gx#syntax-split-splice _%tl175549175573%_ '0)))) (begin - (let ((_g178144_ + (let ((_g179129_ (let () (declare (not safe)) - (if (##values? _g178143_) - (##values-length _g178143_) + (if (##values? _g179128_) + (##values-length _g179128_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178144_ 2))) - (error "Context expects 2 values" _g178144_))) - (let ((_%target174565174591%_ + (##fx= _g179129_ 2))) + (error "Context expects 2 values" _g179129_))) + (let ((_%target175550175576%_ (let () (declare (not safe)) - (##values-ref _g178143_ 0))) - (_%tl174567174593%_ + (##values-ref _g179128_ 0))) + (_%tl175552175578%_ (let () (declare (not safe)) - (##values-ref _g178143_ 1)))) + (##values-ref _g179128_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174567174593%_)) - (letrec ((_%loop174568174596%_ - (lambda (_%hd174566174599%_ - _%clause174572174601%_) + (gx#stx-null? _%tl175552175578%_)) + (letrec ((_%loop175553175581%_ + (lambda (_%hd175551175584%_ + _%clause175557175586%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174566174599%_)) - (let ((_%e174569174604%_ + (gx#stx-pair? _%hd175551175584%_)) + (let ((_%e175554175589%_ (let () (declare (not safe)) (gx#stx-e - _%hd174566174599%_)))) - (let ((_%lp-hd174570174607%_ + _%hd175551175584%_)))) + (let ((_%lp-hd175555175592%_ (let () (declare (not safe)) - (##car _%e174569174604%_))) - (_%lp-tl174571174609%_ + (##car _%e175554175589%_))) + (_%lp-tl175556175594%_ (let () (declare (not safe)) - (##cdr _%e174569174604%_)))) - (_%loop174568174596%_ - _%lp-tl174571174609%_ - (cons _%lp-hd174570174607%_ - _%clause174572174601%_)))) - (let ((_%clause174573174612%_ - (reverse _%clause174572174601%_))) - ((lambda (_%L174615%_) + (##cdr _%e175554175589%_)))) + (_%loop175553175581%_ + _%lp-tl175556175594%_ + (cons _%lp-hd175555175592%_ + _%clause175557175586%_)))) + (let ((_%clause175558175597%_ + (reverse _%clause175557175586%_))) + ((lambda (_%L175600%_) (for-each - (lambda (_%clause174629%_) - (let* ((_%__stx176939176940%_ - _%clause174629%_) - (_%g174632174647%_ + (lambda (_%clause175614%_) + (let* ((_%__stx177924177925%_ + _%clause175614%_) + (_%g175617175632%_ (lambda () (let () (declare @@ -1228,190 +1228,190 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176939176940%_))))) - (let ((_%__kont176941176942%_ - (lambda (_%L174675%_ + _%__stx177924177925%_))))) + (let ((_%__kont177926177927%_ + (lambda (_%L175660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L174676%_ - _%L174677%_) - (let ((_%receiver174696%_ - (let ((_%$e174693%_ + _%L175661%_ + _%L175662%_) + (let ((_%receiver175681%_ + (let ((_%$e175678%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174675%_)))) - (if _%$e174693%_ _%$e174693%_ _%L174677%_)))) + _%L175660%_)))) + (if _%$e175678%_ _%$e175678%_ _%L175662%_)))) (for-each - (lambda (_%g174697174699%_) + (lambda (_%g175682175684%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174696%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g174697174699%_)) - _%L174675%_)))) - (_%__kont176943176944%_ (lambda () '#!void))) + _%receiver175681%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g175682175684%_)) + _%L175660%_)))) + (_%__kont177928177929%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176939176940%_)) - (let ((_%e174637174659%_ + _%__stx177924177925%_)) + (let ((_%e175622175644%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx176939176940%_)))) - (let ((_%tl174639174664%_ + (gx#stx-e _%__stx177924177925%_)))) + (let ((_%tl175624175649%_ (let () (declare (not safe)) - (##cdr _%e174637174659%_))) - (_%hd174638174662%_ + (##cdr _%e175622175644%_))) + (_%hd175623175647%_ (let () (declare (not safe)) - (##car _%e174637174659%_)))) + (##car _%e175622175644%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174638174662%_)) - (let ((_%e174640174667%_ + (gx#stx-pair? _%hd175623175647%_)) + (let ((_%e175625175652%_ (let () (declare (not safe)) - (gx#stx-e _%hd174638174662%_)))) - (let ((_%tl174642174672%_ + (gx#stx-e _%hd175623175647%_)))) + (let ((_%tl175627175657%_ (let () (declare (not safe)) - (##cdr _%e174640174667%_))) - (_%hd174641174670%_ + (##cdr _%e175625175652%_))) + (_%hd175626175655%_ (let () (declare (not safe)) - (##car _%e174640174667%_)))) - (_%__kont176941176942%_ - _%tl174639174664%_ - _%tl174642174672%_ - _%hd174641174670%_))) - (_%__kont176943176944%_)))) - (_%__kont176943176944%_))))) + (##car _%e175625175652%_)))) + (_%__kont177926177927%_ + _%tl175624175649%_ + _%tl175627175657%_ + _%hd175626175655%_))) + (_%__kont177928177929%_)))) + (_%__kont177928177929%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178145 - (lambda (_%g174704174707%_ - _%g174705174709%_) - (cons _%g174704174707%_ - _%g174705174709%_)))) + (let ((__tmp179130 + (lambda (_%g175689175692%_ + _%g175690175694%_) + (cons _%g175689175692%_ + _%g175690175694%_)))) (declare (not safe)) (__foldr1 - __tmp178145 + __tmp179130 '() - _%L174615%_))) - (if (_%no-specializer?174013%_) - _%stx173917%_ - (let* ((_%specializer-id174718%_ - (let* ((_%id174712%_ + _%L175600%_))) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id175703%_ + (let* ((_%id175697%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp178146 + (let ((__tmp179131 (let () (declare (not safe)) - (gx#stx-e _%L173990%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp178146 '"::specialize"))) - (_%specializer-id174715%_ - (let ((__tmp178147 + (make-symbol__1 __tmp179131 '"::specialize"))) + (_%specializer-id175700%_ + (let ((__tmp179132 (let () (declare (not safe)) - (gx#stx-source _%stx173917%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174712%_ - __tmp178147)))) + _%id175697%_ + __tmp179132)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174715%_)) - _%specializer-id174715%_)) - (_%$klass174720%_ - (let ((__tmp178148 + (gx#core-bind-runtime!__0 _%specializer-id175700%_)) + _%specializer-id175700%_)) + (_%$klass175705%_ + (let ((__tmp179133 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178148))) - (_%$method-table174722%_ - (let ((__tmp178149 + (make-symbol__0 __tmp179133))) + (_%$method-table175707%_ + (let ((__tmp179134 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178149))) - (_%methods174724%_ + (make-symbol__0 __tmp179134))) + (_%methods175709%_ (let () (declare (not safe)) - (__hash-keys _%method-calls174009%_))) - (_%$methods174728%_ - (map (lambda (_%id174726%_) - (let ((__tmp178150 (gensym _%id174726%_))) + (__hash-keys _%method-calls174994%_))) + (_%$methods175713%_ + (map (lambda (_%id175711%_) + (let ((__tmp179135 (gensym _%id175711%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178150))) - _%methods174724%_)) - (_%_174737%_ + (make-symbol__1 '"__" __tmp179135))) + _%methods175709%_)) + (_%_175722%_ (for-each - (lambda (_%g174729174732%_ _%g174730174734%_) + (lambda (_%g175714175717%_ _%g175715175719%_) (let () (declare (not safe)) (__hash-put! - _%method-calls174009%_ - _%g174729174732%_ - _%g174730174734%_))) - _%methods174724%_ - _%$methods174728%_)) - (_%methods-bind174747%_ - (map (lambda (_%g174739174742%_ _%g174740174744%_) - (_%generate-method-bind173919%_ - _%$klass174720%_ - _%$method-table174722%_ - _%g174739174742%_ - _%g174740174744%_)) - _%methods174724%_ - _%$methods174728%_)) - (_%slots174749%_ + _%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-refs174010%_))) - (_%$slots174753%_ - (map (lambda (_%id174751%_) - (let ((__tmp178151 (gensym _%id174751%_))) + (__hash-keys _%slot-refs174995%_))) + (_%$slots175738%_ + (map (lambda (_%id175736%_) + (let ((__tmp179136 (gensym _%id175736%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178151))) - _%slots174749%_)) - (_%_174762%_ + (make-symbol__1 '"__" __tmp179136))) + _%slots175734%_)) + (_%_175747%_ (for-each - (lambda (_%g174754174757%_ _%g174755174759%_) + (lambda (_%g175739175742%_ _%g175740175744%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs174010%_ - _%g174754174757%_ - _%g174755174759%_))) - _%slots174749%_ - _%$slots174753%_)) - (_%slots-bind174771%_ - (map (lambda (_%g174763174766%_ _%g174764174768%_) - (_%generate-slot-bind173920%_ - _%$klass174720%_ - _%g174763174766%_ - _%g174764174768%_)) - _%slots174749%_ - _%$slots174753%_)) - (_%specializer-clauses174869%_ - (map (lambda (_%clause174773%_) - (let* ((_%__stx176959176960%_ _%clause174773%_) - (_%g174776174791%_ + _%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" - _%__stx176959176960%_))))) - (let ((_%__kont176961176962%_ - (lambda (_%L174819%_ _%L174820%_ _%L174821%_) - (let* ((_%receiver174850%_ - (let ((_%$e174847%_ + _%__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)) - _%L174819%_)))) - (if _%$e174847%_ - _%$e174847%_ - _%L174821%_))) - (_%body174856%_ - (map (lambda (_%g174851174853%_) + _%L175804%_)))) + (if _%$e175832%_ + _%$e175832%_ + _%L175806%_))) + (_%body175841%_ + (map (lambda (_%g175836175838%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174850%_ - _%$klass174720%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g174851174853%_)) - _%L174819%_))) - (cons (cons _%L174821%_ _%L174820%_) - _%body174856%_)))) - (_%__kont176963176964%_ - (lambda () _%clause174773%_))) + _%receiver175835%_ + _%$klass175705%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g175836175838%_)) + _%L175804%_))) + (cons (cons _%L175806%_ _%L175805%_) + _%body175841%_)))) + (_%__kont177948177949%_ + (lambda () _%clause175758%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176959176960%_)) - (let ((_%e174781174803%_ + (gx#stx-pair? _%__stx177944177945%_)) + (let ((_%e175766175788%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176959176960%_)))) - (let ((_%tl174783174808%_ + (gx#stx-e _%__stx177944177945%_)))) + (let ((_%tl175768175793%_ (let () (declare (not safe)) - (##cdr _%e174781174803%_))) - (_%hd174782174806%_ + (##cdr _%e175766175788%_))) + (_%hd175767175791%_ (let () (declare (not safe)) - (##car _%e174781174803%_)))) + (##car _%e175766175788%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174782174806%_)) - (let ((_%e174784174811%_ + (gx#stx-pair? _%hd175767175791%_)) + (let ((_%e175769175796%_ (let () (declare (not safe)) (gx#stx-e - _%hd174782174806%_)))) - (let ((_%tl174786174816%_ + _%hd175767175791%_)))) + (let ((_%tl175771175801%_ (let () (declare (not safe)) - (##cdr _%e174784174811%_))) - (_%hd174785174814%_ + (##cdr _%e175769175796%_))) + (_%hd175770175799%_ (let () (declare (not safe)) - (##car _%e174784174811%_)))) - (_%__kont176961176962%_ - _%tl174783174808%_ - _%tl174786174816%_ - _%hd174785174814%_))) - (_%__kont176963176964%_)))) - (_%__kont176963176964%_))))) - (let ((__tmp178152 - (lambda (_%g174861174864%_ _%g174862174866%_) - (cons _%g174861174864%_ _%g174862174866%_)))) + (##car _%e175769175796%_)))) + (_%__kont177946177947%_ + _%tl175768175793%_ + _%tl175771175801%_ + _%hd175770175799%_))) + (_%__kont177948177949%_)))) + (_%__kont177948177949%_))))) + (let ((__tmp179137 + (lambda (_%g175846175849%_ _%g175847175851%_) + (cons _%g175846175849%_ _%g175847175851%_)))) (declare (not safe)) - (__foldr1 __tmp178152 '() _%L174615%_)))) - (_%specializer-impl174871%_ - (let ((__tmp178153 - (cons '%#case-lambda _%specializer-clauses174869%_))) + (__foldr1 __tmp179137 '() _%L175600%_)))) + (_%specializer-impl175856%_ + (let ((__tmp179138 + (cons '%#case-lambda _%specializer-clauses175854%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178153 _%stx173917%_))) - (_%specializer-impl174873%_ - (_%generate-specializer-impl173921%_ - _%$klass174720%_ - _%$method-table174722%_ - _%methods-bind174747%_ - _%slots-bind174771%_ - _%specializer-impl174871%_))) + (gxc#xform-wrap-source __tmp179138 _%stx174902%_))) + (_%specializer-impl175858%_ + (_%generate-specializer-impl174906%_ + _%$klass175705%_ + _%$method-table175707%_ + _%methods-bind175732%_ + _%slots-bind175756%_ + _%specializer-impl175856%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178155 + (let ((__tmp179140 (let () (declare (not safe)) (gx#stx-e - _%L173990%_))) - (__tmp178154 + _%L174975%_))) + (__tmp179139 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174718%_)))) + _%specializer-id175703%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178155 + __tmp179140 '" => " - __tmp178154)) - (_%generate-specializer-def173922%_ - _%L173990%_ - _%specializer-id174718%_ - _%specializer-impl174873%_)))) - _%clause174573174612%_)))))) - (_%loop174568174596%_ _%target174565174591%_ '())) - (_%g174559174578%_ _%g174560174581%_))))) - (_%g174559174578%_ _%g174560174581%_)))) + __tmp179139)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id175703%_ + _%specializer-impl175858%_)))) + _%clause175558175597%_)))))) + (_%loop175553175581%_ _%target175550175576%_ '())) + (_%g175544175563%_ _%g175545175566%_))))) + (_%g175544175563%_ _%g175545175566%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174559174578%_ - _%g174560174581%_))))) - (_%g174558174876%_ _%L173989%_)) + (_%g175544175563%_ + _%g175545175566%_))))) + (_%g175543175861%_ _%L174974%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L173989%_)) - (let* ((_%g174880174910%_ - (lambda (_%g174881174907%_) + (gxc#opt-lambda-expr? _%L174974%_)) + (let* ((_%g175865175895%_ + (lambda (_%g175866175892%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174881174907%_)))) - (_%g174879175541%_ - (lambda (_%g174881174913%_) + _%g175866175892%_)))) + (_%g175864176526%_ + (lambda (_%g175866175898%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174881174913%_)) - (let ((_%e174885174915%_ + _%g175866175898%_)) + (let ((_%e175870175900%_ (let () (declare (not safe)) (gx#stx-e - _%g174881174913%_)))) - (let ((_%hd174886174918%_ + _%g175866175898%_)))) + (let ((_%hd175871175903%_ (let () (declare (not safe)) - (##car _%e174885174915%_))) - (_%tl174887174920%_ + (##car _%e175870175900%_))) + (_%tl175872175905%_ (let () (declare (not safe)) - (##cdr _%e174885174915%_)))) + (##cdr _%e175870175900%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174887174920%_)) - (let ((_%e174888174923%_ + _%tl175872175905%_)) + (let ((_%e175873175908%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174887174920%_)))) - (let ((_%hd174889174926%_ + (gx#stx-e _%tl175872175905%_)))) + (let ((_%hd175874175911%_ (let () (declare (not safe)) - (##car _%e174888174923%_))) - (_%tl174890174928%_ + (##car _%e175873175908%_))) + (_%tl175875175913%_ (let () (declare (not safe)) - (##cdr _%e174888174923%_)))) + (##cdr _%e175873175908%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174889174926%_)) - (let ((_%e174891174931%_ + (gx#stx-pair? _%hd175874175911%_)) + (let ((_%e175876175916%_ (let () (declare (not safe)) - (gx#stx-e _%hd174889174926%_)))) - (let ((_%hd174892174934%_ + (gx#stx-e _%hd175874175911%_)))) + (let ((_%hd175877175919%_ (let () (declare (not safe)) - (##car _%e174891174931%_))) - (_%tl174893174936%_ + (##car _%e175876175916%_))) + (_%tl175878175921%_ (let () (declare (not safe)) - (##cdr _%e174891174931%_)))) + (##cdr _%e175876175916%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174892174934%_)) - (let ((_%e174894174939%_ + (gx#stx-pair? _%hd175877175919%_)) + (let ((_%e175879175924%_ (let () (declare (not safe)) - (gx#stx-e _%hd174892174934%_)))) - (let ((_%hd174895174942%_ + (gx#stx-e _%hd175877175919%_)))) + (let ((_%hd175880175927%_ (let () (declare (not safe)) - (##car _%e174894174939%_))) - (_%tl174896174944%_ + (##car _%e175879175924%_))) + (_%tl175881175929%_ (let () (declare (not safe)) - (##cdr _%e174894174939%_)))) + (##cdr _%e175879175924%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174895174942%_)) - (let ((_%e174897174947%_ + (gx#stx-pair? _%hd175880175927%_)) + (let ((_%e175882175932%_ (let () (declare (not safe)) (gx#stx-e - _%hd174895174942%_)))) - (let ((_%hd174898174950%_ + _%hd175880175927%_)))) + (let ((_%hd175883175935%_ (let () (declare (not safe)) - (##car _%e174897174947%_))) - (_%tl174899174952%_ + (##car _%e175882175932%_))) + (_%tl175884175937%_ (let () (declare (not safe)) - (##cdr _%e174897174947%_)))) + (##cdr _%e175882175932%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174899174952%_)) + _%tl175884175937%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174896174944%_)) - (let ((_%e174900174955%_ + _%tl175881175929%_)) + (let ((_%e175885175940%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174896174944%_)))) - (let ((_%hd174901174958%_ + (gx#stx-e _%tl175881175929%_)))) + (let ((_%hd175886175943%_ (let () (declare (not safe)) - (##car _%e174900174955%_))) - (_%tl174902174960%_ + (##car _%e175885175940%_))) + (_%tl175887175945%_ (let () (declare (not safe)) - (##cdr _%e174900174955%_)))) + (##cdr _%e175885175940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174902174960%_)) + (gx#stx-null? _%tl175887175945%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174893174936%_)) + (gx#stx-null? _%tl175878175921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174890174928%_)) - (let ((_%e174903174963%_ + (gx#stx-pair? _%tl175875175913%_)) + (let ((_%e175888175948%_ (let () (declare (not safe)) - (gx#stx-e _%tl174890174928%_)))) - (let ((_%hd174904174966%_ + (gx#stx-e _%tl175875175913%_)))) + (let ((_%hd175889175951%_ (let () (declare (not safe)) - (##car _%e174903174963%_))) - (_%tl174905174968%_ + (##car _%e175888175948%_))) + (_%tl175890175953%_ (let () (declare (not safe)) - (##cdr _%e174903174963%_)))) + (##cdr _%e175888175948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174905174968%_)) - ((lambda (_%L174971%_ - _%L174972%_ - _%L174973%_) - (let* ((_%g174997175015%_ - (lambda (_%g174998175012%_) + (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" - _%g174998175012%_)))) - (_%g174996175071%_ - (lambda (_%g174998175018%_) + _%g175983175997%_)))) + (_%g175981176056%_ + (lambda (_%g175983176003%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174998175018%_)) - (let ((_%e175002175020%_ + _%g175983176003%_)) + (let ((_%e175987176005%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174998175018%_)))) - (let ((_%hd175003175023%_ + (gx#stx-e _%g175983176003%_)))) + (let ((_%hd175988176008%_ (let () (declare (not safe)) - (##car _%e175002175020%_))) - (_%tl175004175025%_ + (##car _%e175987176005%_))) + (_%tl175989176010%_ (let () (declare (not safe)) - (##cdr _%e175002175020%_)))) + (##cdr _%e175987176005%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175004175025%_)) - (let ((_%e175005175028%_ + (gx#stx-pair? _%tl175989176010%_)) + (let ((_%e175990176013%_ (let () (declare (not safe)) - (gx#stx-e _%tl175004175025%_)))) - (let ((_%hd175006175031%_ + (gx#stx-e _%tl175989176010%_)))) + (let ((_%hd175991176016%_ (let () (declare (not safe)) - (##car _%e175005175028%_))) - (_%tl175007175033%_ + (##car _%e175990176013%_))) + (_%tl175992176018%_ (let () (declare (not safe)) - (##cdr _%e175005175028%_)))) + (##cdr _%e175990176013%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175006175031%_)) - (let ((_%e175008175036%_ + (gx#stx-pair? _%hd175991176016%_)) + (let ((_%e175993176021%_ (let () (declare (not safe)) - (gx#stx-e _%hd175006175031%_)))) - (let ((_%hd175009175039%_ + (gx#stx-e _%hd175991176016%_)))) + (let ((_%hd175994176024%_ (let () (declare (not safe)) - (##car _%e175008175036%_))) - (_%tl175010175041%_ + (##car _%e175993176021%_))) + (_%tl175995176026%_ (let () (declare (not safe)) - (##cdr _%e175008175036%_)))) - ((lambda (_%L175044%_ - _%L175045%_ - _%L175046%_) - (let ((_%receiver175065%_ - (let ((_%$e175062%_ + (##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)) - _%L175044%_)))) - (if _%$e175062%_ - _%$e175062%_ - _%L175046%_)))) + _%L176029%_)))) + (if _%$e176047%_ + _%$e176047%_ + _%L176031%_)))) (for-each - (lambda (_%g175066175068%_) + (lambda (_%g176051176053%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175065%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g175066175068%_)) - _%L175044%_))) - _%tl175007175033%_ - _%tl175010175041%_ - _%hd175009175039%_))) - (_%g174997175015%_ _%g174998175018%_)))) - (_%g174997175015%_ _%g174998175018%_)))) - (_%g174997175015%_ _%g174998175018%_))))) + _%receiver176050%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g176051176053%_)) + _%L176029%_))) + _%tl175992176018%_ + _%tl175995176026%_ + _%hd175994176024%_))) + (_%g175982176000%_ _%g175983176003%_)))) + (_%g175982176000%_ _%g175983176003%_)))) + (_%g175982176000%_ _%g175983176003%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174996175071%_ _%L174972%_)) - (let* ((_%g175074175093%_ - (lambda (_%g175075175090%_) + (_%g175981176056%_ _%L175957%_)) + (let* ((_%g176059176078%_ + (lambda (_%g176060176075%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175075175090%_)))) - (_%g175073175217%_ - (lambda (_%g175075175096%_) + _%g176060176075%_)))) + (_%g176058176202%_ + (lambda (_%g176060176081%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175075175096%_)) - (let ((_%e175077175098%_ + _%g176060176081%_)) + (let ((_%e176062176083%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g175075175096%_)))) - (let ((_%hd175078175101%_ + (gx#stx-e _%g176060176081%_)))) + (let ((_%hd176063176086%_ (let () (declare (not safe)) - (##car _%e175077175098%_))) - (_%tl175079175103%_ + (##car _%e176062176083%_))) + (_%tl176064176088%_ (let () (declare (not safe)) - (##cdr _%e175077175098%_)))) + (##cdr _%e176062176083%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175079175103%_)) - (let ((_g178156_ + (gx#stx-pair/null? _%tl176064176088%_)) + (let ((_g179141_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175079175103%_ + _%tl176064176088%_ '0)))) (begin - (let ((_g178157_ + (let ((_g179142_ (let () (declare (not safe)) - (if (##values? _g178156_) - (##values-length _g178156_) + (if (##values? _g179141_) + (##values-length _g179141_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178157_ 2))) + (##fx= _g179142_ 2))) (error "Context expects 2 values" - _g178157_))) - (let ((_%target175080175106%_ + _g179142_))) + (let ((_%target176065176091%_ (let () (declare (not safe)) - (##values-ref _g178156_ 0))) - (_%tl175082175108%_ + (##values-ref _g179141_ 0))) + (_%tl176067176093%_ (let () (declare (not safe)) - (##values-ref _g178156_ 1)))) + (##values-ref _g179141_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175082175108%_)) - (letrec ((_%loop175083175111%_ - (lambda (_%hd175081175114%_ - _%clause175087175116%_) + (gx#stx-null? _%tl176067176093%_)) + (letrec ((_%loop176068176096%_ + (lambda (_%hd176066176099%_ + _%clause176072176101%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175081175114%_)) - (let ((_%e175084175119%_ + _%hd176066176099%_)) + (let ((_%e176069176104%_ (let () (declare (not safe)) (gx#stx-e - _%hd175081175114%_)))) - (let ((_%lp-hd175085175122%_ + _%hd176066176099%_)))) + (let ((_%lp-hd176070176107%_ (let () (declare (not safe)) - (##car _%e175084175119%_))) - (_%lp-tl175086175124%_ + (##car _%e176069176104%_))) + (_%lp-tl176071176109%_ (let () (declare (not safe)) - (##cdr _%e175084175119%_)))) - (_%loop175083175111%_ - _%lp-tl175086175124%_ - (cons _%lp-hd175085175122%_ - _%clause175087175116%_)))) - (let ((_%clause175088175127%_ - (reverse _%clause175087175116%_))) - ((lambda (_%L175130%_) + (##cdr _%e176069176104%_)))) + (_%loop176068176096%_ + _%lp-tl176071176109%_ + (cons _%lp-hd176070176107%_ + _%clause176072176101%_)))) + (let ((_%clause176073176112%_ + (reverse _%clause176072176101%_))) + ((lambda (_%L176115%_) (for-each - (lambda (_%clause175143%_) - (let* ((_%g175145175160%_ + (lambda (_%clause176128%_) + (let* ((_%g176130176145%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g175146175157%_) + (lambda (_%g176131176142%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175146175157%_)))) - (_%g175144175207%_ - (lambda (_%g175146175163%_) + _%g176131176142%_)))) + (_%g176129176192%_ + (lambda (_%g176131176148%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175146175163%_)) - (let ((_%e175150175165%_ + (gx#stx-pair? _%g176131176148%_)) + (let ((_%e176135176150%_ (let () (declare (not safe)) - (gx#stx-e _%g175146175163%_)))) - (let ((_%hd175151175168%_ + (gx#stx-e _%g176131176148%_)))) + (let ((_%hd176136176153%_ (let () (declare (not safe)) - (##car _%e175150175165%_))) - (_%tl175152175170%_ + (##car _%e176135176150%_))) + (_%tl176137176155%_ (let () (declare (not safe)) - (##cdr _%e175150175165%_)))) + (##cdr _%e176135176150%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175151175168%_)) - (let ((_%e175153175173%_ + (gx#stx-pair? _%hd176136176153%_)) + (let ((_%e176138176158%_ (let () (declare (not safe)) (gx#stx-e - _%hd175151175168%_)))) - (let ((_%hd175154175176%_ + _%hd176136176153%_)))) + (let ((_%hd176139176161%_ (let () (declare (not safe)) - (##car _%e175153175173%_))) - (_%tl175155175178%_ + (##car _%e176138176158%_))) + (_%tl176140176163%_ (let () (declare (not safe)) - (##cdr _%e175153175173%_)))) - ((lambda (_%L175181%_ - _%L175182%_ - _%L175183%_) - (let ((_%receiver175201%_ - (let ((_%$e175198%_ + (##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)) - _%L175181%_)))) - (if _%$e175198%_ _%$e175198%_ _%L175183%_)))) + _%L176166%_)))) + (if _%$e176183%_ _%$e176183%_ _%L176168%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g175202175204%_) + (lambda (_%g176187176189%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175201%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g175202175204%_)) - _%L175181%_))) - _%tl175152175170%_ - _%tl175155175178%_ - _%hd175154175176%_))) - (_%g175145175160%_ - _%g175146175163%_)))) - (_%g175145175160%_ _%g175146175163%_))))) - (_%g175144175207%_ _%clause175143%_))) - (let ((__tmp178158 - (lambda (_%g175209175212%_ _%g175210175214%_) - (cons _%g175209175212%_ _%g175210175214%_)))) + _%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 __tmp178158 '() _%L175130%_)))) + (__foldr1 __tmp179143 '() _%L176115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause175088175127%_)))))) - (_%loop175083175111%_ - _%target175080175106%_ + _%clause176073176112%_)))))) + (_%loop176068176096%_ + _%target176065176091%_ '())) - (_%g175074175093%_ _%g175075175096%_))))) - (_%g175074175093%_ _%g175075175096%_)))) - (_%g175074175093%_ _%g175075175096%_))))) + (_%g176059176078%_ _%g176060176081%_))))) + (_%g176059176078%_ _%g176060176081%_)))) + (_%g176059176078%_ _%g176060176081%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175073175217%_ _%L174971%_)) - (if (_%no-specializer?174013%_) - _%stx173917%_ - (let* ((_%specializer-id175226%_ - (let* ((_%id175220%_ - (let ((__tmp178159 + (_%g176058176202%_ _%L175956%_)) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id176211%_ + (let* ((_%id176205%_ + (let ((__tmp179144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173990%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp178159 '"::specialize"))) - (_%specializer-id175223%_ - (let ((__tmp178160 + (make-symbol__1 __tmp179144 '"::specialize"))) + (_%specializer-id176208%_ + (let ((__tmp179145 (let () (declare (not safe)) - (gx#stx-source _%stx173917%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id175220%_ __tmp178160)))) + (gx#core-quote-syntax__1 _%id176205%_ __tmp179145)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id175223%_)) - _%specializer-id175223%_)) + (gx#core-bind-runtime!__0 _%specializer-id176208%_)) + _%specializer-id176208%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass175228%_ - (let ((__tmp178161 + (_%$klass176213%_ + (let ((__tmp179146 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178161))) + (make-symbol__0 __tmp179146))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table175230%_ - (let ((__tmp178162 + (_%$method-table176215%_ + (let ((__tmp179147 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178162))) + (make-symbol__0 __tmp179147))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods175232%_ + (_%methods176217%_ (let () (declare (not safe)) (__hash-keys - _%method-calls174009%_))) - (_%$methods175236%_ - (map (lambda (_%id175234%_) - (let ((__tmp178163 + _%method-calls174994%_))) + (_%$methods176221%_ + (map (lambda (_%id176219%_) + (let ((__tmp179148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id175234%_))) + (gensym _%id176219%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178163))) - _%methods175232%_)) + (make-symbol__1 '"__" __tmp179148))) + _%methods176217%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_175245%_ + (_%_176230%_ (for-each - (lambda (_%g175237175240%_ - _%g175238175242%_) + (lambda (_%g176222176225%_ + _%g176223176227%_) (let () (declare (not safe)) (__hash-put! - _%method-calls174009%_ - _%g175237175240%_ - _%g175238175242%_))) - _%methods175232%_ - _%$methods175236%_)) - (_%methods-bind175255%_ - (map (lambda (_%g175247175250%_ + _%method-calls174994%_ + _%g176222176225%_ + _%g176223176227%_))) + _%methods176217%_ + _%$methods176221%_)) + (_%methods-bind176240%_ + (map (lambda (_%g176232176235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175248175252%_) - (_%generate-method-bind173919%_ - _%$klass175228%_ - _%$method-table175230%_ - _%g175247175250%_ - _%g175248175252%_)) - _%methods175232%_ - _%$methods175236%_)) + _%g176233176237%_) + (_%generate-method-bind174904%_ + _%$klass176213%_ + _%$method-table176215%_ + _%g176232176235%_ + _%g176233176237%_)) + _%methods176217%_ + _%$methods176221%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots175257%_ + (_%slots176242%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs174010%_))) - (_%$slots175261%_ - (map (lambda (_%id175259%_) - (let ((__tmp178164 + _%slot-refs174995%_))) + (_%$slots176246%_ + (map (lambda (_%id176244%_) + (let ((__tmp179149 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id175259%_))) + (gensym _%id176244%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178164))) - _%slots175257%_)) + (make-symbol__1 '"__" __tmp179149))) + _%slots176242%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_175270%_ + (_%_176255%_ (for-each - (lambda (_%g175262175265%_ - _%g175263175267%_) + (lambda (_%g176247176250%_ + _%g176248176252%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs174010%_ - _%g175262175265%_ - _%g175263175267%_))) - _%slots175257%_ - _%$slots175261%_)) - (_%slots-bind175279%_ - (map (lambda (_%g175271175274%_ + _%slot-refs174995%_ + _%g176247176250%_ + _%g176248176252%_))) + _%slots176242%_ + _%$slots176246%_)) + (_%slots-bind176264%_ + (map (lambda (_%g176256176259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175272175276%_) - (_%generate-slot-bind173920%_ - _%$klass175228%_ - _%g175271175274%_ - _%g175272175276%_)) - _%slots175257%_ - _%$slots175261%_)) + _%g176257176261%_) + (_%generate-slot-bind174905%_ + _%$klass176213%_ + _%g176256176259%_ + _%g176257176261%_)) + _%slots176242%_ + _%$slots176246%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr175371%_ - (let* ((_%g175281175299%_ - (lambda (_%g175282175296%_) + (_%specializer-lambda-expr176356%_ + (let* ((_%g176266176284%_ + (lambda (_%g176267176281%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175282175296%_)))) - (_%g175280175368%_ - (lambda (_%g175282175302%_) + _%g176267176281%_)))) + (_%g176265176353%_ + (lambda (_%g176267176287%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175282175302%_)) - (let ((_%e175286175304%_ + (gx#stx-pair? _%g176267176287%_)) + (let ((_%e176271176289%_ (let () (declare (not safe)) - (gx#stx-e _%g175282175302%_)))) - (let ((_%hd175287175307%_ + (gx#stx-e _%g176267176287%_)))) + (let ((_%hd176272176292%_ (let () (declare (not safe)) - (##car _%e175286175304%_))) - (_%tl175288175309%_ + (##car _%e176271176289%_))) + (_%tl176273176294%_ (let () (declare (not safe)) - (##cdr _%e175286175304%_)))) + (##cdr _%e176271176289%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175288175309%_)) - (let ((_%e175289175312%_ + (gx#stx-pair? _%tl176273176294%_)) + (let ((_%e176274176297%_ (let () (declare (not safe)) - (gx#stx-e _%tl175288175309%_)))) - (let ((_%hd175290175315%_ + (gx#stx-e _%tl176273176294%_)))) + (let ((_%hd176275176300%_ (let () (declare (not safe)) - (##car _%e175289175312%_))) - (_%tl175291175317%_ + (##car _%e176274176297%_))) + (_%tl176276176302%_ (let () (declare (not safe)) - (##cdr _%e175289175312%_)))) + (##cdr _%e176274176297%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175290175315%_)) - (let ((_%e175292175320%_ + _%hd176275176300%_)) + (let ((_%e176277176305%_ (let () (declare (not safe)) (gx#stx-e - _%hd175290175315%_)))) - (let ((_%hd175293175323%_ + _%hd176275176300%_)))) + (let ((_%hd176278176308%_ (let () (declare (not safe)) - (##car _%e175292175320%_))) - (_%tl175294175325%_ + (##car _%e176277176305%_))) + (_%tl176279176310%_ (let () (declare (not safe)) - (##cdr _%e175292175320%_)))) - ((lambda (_%L175328%_ - _%L175329%_ - _%L175330%_) - (let* ((_%receiver175359%_ - (let ((_%$e175356%_ + (##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)) - _%L175328%_)))) - (if _%$e175356%_ _%$e175356%_ _%L175330%_))) - (_%body175365%_ - (map (lambda (_%g175360175362%_) + _%L176313%_)))) + (if _%$e176341%_ _%$e176341%_ _%L176315%_))) + (_%body176350%_ + (map (lambda (_%g176345176347%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175359%_ - _%$klass175228%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g175360175362%_)) - _%L175328%_)) - (__tmp178165 + _%receiver176344%_ + _%$klass176213%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g176345176347%_)) + _%L176313%_)) + (__tmp179150 (cons '%#lambda - (cons (cons _%L175330%_ _%L175329%_) - _%body175365%_)))) + (cons (cons _%L176315%_ _%L176314%_) + _%body176350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178165 - _%L174972%_))) - _%tl175291175317%_ - _%tl175294175325%_ - _%hd175293175323%_))) - (_%g175281175299%_ - _%g175282175302%_)))) - (_%g175281175299%_ _%g175282175302%_)))) - (_%g175281175299%_ _%g175282175302%_))))) - (_%g175280175368%_ _%L174972%_))) + __tmp179150 + _%L175957%_))) + _%tl176276176302%_ + _%tl176279176310%_ + _%hd176278176308%_))) + (_%g176266176284%_ + _%g176267176287%_)))) + (_%g176266176284%_ _%g176267176287%_)))) + (_%g176266176284%_ _%g176267176287%_))))) + (_%g176265176353%_ _%L175957%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr175534%_ - (let* ((_%g175373175392%_ - (lambda (_%g175374175389%_) + (_%specializer-case-lambda-expr176519%_ + (let* ((_%g176358176377%_ + (lambda (_%g176359176374%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175374175389%_)))) - (_%g175372175531%_ - (lambda (_%g175374175395%_) + _%g176359176374%_)))) + (_%g176357176516%_ + (lambda (_%g176359176380%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175374175395%_)) - (let ((_%e175376175397%_ + (gx#stx-pair? _%g176359176380%_)) + (let ((_%e176361176382%_ (let () (declare (not safe)) - (gx#stx-e _%g175374175395%_)))) - (let ((_%hd175377175400%_ + (gx#stx-e _%g176359176380%_)))) + (let ((_%hd176362176385%_ (let () (declare (not safe)) - (##car _%e175376175397%_))) - (_%tl175378175402%_ + (##car _%e176361176382%_))) + (_%tl176363176387%_ (let () (declare (not safe)) - (##cdr _%e175376175397%_)))) + (##cdr _%e176361176382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175378175402%_)) - (let ((_g178166_ + (gx#stx-pair/null? _%tl176363176387%_)) + (let ((_g179151_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175378175402%_ + _%tl176363176387%_ '0)))) (begin - (let ((_g178167_ + (let ((_g179152_ (let () (declare (not safe)) - (if (##values? _g178166_) + (if (##values? _g179151_) (##values-length - _g178166_) + _g179151_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178167_ 2))) + (##fx= _g179152_ 2))) (error "Context expects 2 values" - _g178167_))) - (let ((_%target175379175405%_ + _g179152_))) + (let ((_%target176364176390%_ (let () (declare (not safe)) - (##values-ref _g178166_ 0))) - (_%tl175381175407%_ + (##values-ref _g179151_ 0))) + (_%tl176366176392%_ (let () (declare (not safe)) - (##values-ref _g178166_ 1)))) + (##values-ref _g179151_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175381175407%_)) - (letrec ((_%loop175382175410%_ - (lambda (_%hd175380175413%_ + _%tl176366176392%_)) + (letrec ((_%loop176367176395%_ + (lambda (_%hd176365176398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause175386175415%_) + _%clause176371176400%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175380175413%_)) - (let ((_%e175383175418%_ + (gx#stx-pair? _%hd176365176398%_)) + (let ((_%e176368176403%_ (let () (declare (not safe)) - (gx#stx-e _%hd175380175413%_)))) - (let ((_%lp-hd175384175421%_ + (gx#stx-e _%hd176365176398%_)))) + (let ((_%lp-hd176369176406%_ (let () (declare (not safe)) - (##car _%e175383175418%_))) - (_%lp-tl175385175423%_ + (##car _%e176368176403%_))) + (_%lp-tl176370176408%_ (let () (declare (not safe)) - (##cdr _%e175383175418%_)))) - (_%loop175382175410%_ - _%lp-tl175385175423%_ - (cons _%lp-hd175384175421%_ - _%clause175386175415%_)))) - (let ((_%clause175387175426%_ - (reverse _%clause175386175415%_))) - ((lambda (_%L175429%_) - (let* ((_%clauses175529%_ - (map (lambda (_%clause175443%_) - (let* ((_%__stx176979176980%_ - _%clause175443%_) - (_%g175446175461%_ + (##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" - _%__stx176979176980%_))))) - (let ((_%__kont176981176982%_ - (lambda (_%L175489%_ - _%L175490%_ - _%L175491%_) - (let* ((_%receiver175510%_ - (let ((_%$e175507%_ + _%__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)) - _%L175489%_)))) - (if _%$e175507%_ _%$e175507%_ _%L175491%_))) - (_%body175516%_ - (map (lambda (_%g175511175513%_) + _%L176474%_)))) + (if _%$e176492%_ _%$e176492%_ _%L176476%_))) + (_%body176501%_ + (map (lambda (_%g176496176498%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175510%_ - _%$klass175228%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g175511175513%_)) - _%L175489%_))) - (cons (cons _%L175491%_ _%L175490%_) _%body175516%_)))) + _%receiver176495%_ + _%$klass176213%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g176496176498%_)) + _%L176474%_))) + (cons (cons _%L176476%_ _%L176475%_) _%body176501%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176983176984%_ + (_%__kont177968177969%_ (lambda () - _%clause175443%_))) + _%clause176428%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176979176980%_)) - (let ((_%e175451175473%_ + _%__stx177964177965%_)) + (let ((_%e176436176458%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176979176980%_)))) - (let ((_%tl175453175478%_ + _%__stx177964177965%_)))) + (let ((_%tl176438176463%_ (let () (declare (not safe)) - (##cdr _%e175451175473%_))) - (_%hd175452175476%_ + (##cdr _%e176436176458%_))) + (_%hd176437176461%_ (let () (declare (not safe)) - (##car _%e175451175473%_)))) + (##car _%e176436176458%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175452175476%_)) - (let ((_%e175454175481%_ + _%hd176437176461%_)) + (let ((_%e176439176466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175452175476%_)))) - (let ((_%tl175456175486%_ + (gx#stx-e _%hd176437176461%_)))) + (let ((_%tl176441176471%_ (let () (declare (not safe)) - (##cdr _%e175454175481%_))) - (_%hd175455175484%_ + (##cdr _%e176439176466%_))) + (_%hd176440176469%_ (let () (declare (not safe)) - (##car _%e175454175481%_)))) - (_%__kont176981176982%_ - _%tl175453175478%_ - _%tl175456175486%_ - _%hd175455175484%_))) - (_%__kont176983176984%_)))) + (##car _%e176439176466%_)))) + (_%__kont177966177967%_ + _%tl176438176463%_ + _%tl176441176471%_ + _%hd176440176469%_))) + (_%__kont177968177969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176983176984%_))))) - (let ((__tmp178168 - (lambda (_%g175521175524%_ - _%g175522175526%_) - (cons _%g175521175524%_ - _%g175522175526%_)))) + (_%__kont177968177969%_))))) + (let ((__tmp179153 + (lambda (_%g176506176509%_ + _%g176507176511%_) + (cons _%g176506176509%_ + _%g176507176511%_)))) (declare (not safe)) (__foldr1 - __tmp178168 + __tmp179153 '() - _%L175429%_)))) - (__tmp178169 - (cons '%#case-lambda _%clauses175529%_))) + _%L176414%_)))) + (__tmp179154 + (cons '%#case-lambda _%clauses176514%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178169 _%L174971%_))) - _%clause175387175426%_)))))) + (gxc#xform-wrap-source __tmp179154 _%L175956%_))) + _%clause176372176411%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175382175410%_ - _%target175379175405%_ + (_%loop176367176395%_ + _%target176364176390%_ '())) - (_%g175373175392%_ - _%g175374175395%_))))) - (_%g175373175392%_ _%g175374175395%_)))) - (_%g175373175392%_ _%g175374175395%_))))) - (_%g175372175531%_ _%L174971%_))) + (_%g176358176377%_ + _%g176359176380%_))))) + (_%g176358176377%_ _%g176359176380%_)))) + (_%g176358176377%_ _%g176359176380%_))))) + (_%g176357176516%_ _%L175956%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175536%_ - (let ((__tmp178170 + (_%specializer-impl176521%_ + (let ((__tmp179155 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L174973%_ '()) - (cons _%specializer-lambda-expr175371%_ + (cons (cons (cons (cons _%L175958%_ '()) + (cons _%specializer-lambda-expr176356%_ '())) '()) - (cons _%specializer-case-lambda-expr175534%_ + (cons _%specializer-case-lambda-expr176519%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178170 _%stx173917%_))) + (gxc#xform-wrap-source __tmp179155 _%stx174902%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175538%_ - (_%generate-specializer-impl173921%_ - _%$klass175228%_ - _%$method-table175230%_ - _%methods-bind175255%_ - _%slots-bind175279%_ - _%specializer-impl175536%_))) - (let ((__tmp178172 + (_%specializer-impl176523%_ + (_%generate-specializer-impl174906%_ + _%$klass176213%_ + _%$method-table176215%_ + _%methods-bind176240%_ + _%slots-bind176264%_ + _%specializer-impl176521%_))) + (let ((__tmp179157 (let () (declare (not safe)) (gx#stx-e - _%L173990%_))) - (__tmp178171 + _%L174975%_))) + (__tmp179156 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175226%_)))) + _%specializer-id176211%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178172 + __tmp179157 '" => " - __tmp178171)) - (_%generate-specializer-def173922%_ - _%L173990%_ - _%specializer-id175226%_ - _%specializer-impl175538%_)))) - _%hd174904174966%_ - _%hd174901174958%_ - _%hd174898174950%_) - (_%g174880174910%_ _%g174881174913%_)))) - (_%g174880174910%_ _%g174881174913%_)) - (_%g174880174910%_ _%g174881174913%_)) - (_%g174880174910%_ _%g174881174913%_)))) - (_%g174880174910%_ _%g174881174913%_)) + __tmp179156)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id176211%_ + _%specializer-impl176523%_)))) + _%hd175889175951%_ + _%hd175886175943%_ + _%hd175883175935%_) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)) + (_%g175865175895%_ _%g175866175898%_)) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174880174910%_ - _%g174881174913%_)))) - (_%g174880174910%_ - _%g174881174913%_)))) - (_%g174880174910%_ _%g174881174913%_)))) - (_%g174880174910%_ _%g174881174913%_)))) - (_%g174880174910%_ _%g174881174913%_)))) + (_%g175865175895%_ + _%g175866175898%_)))) + (_%g175865175895%_ + _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174880174910%_ - _%g174881174913%_))))) - (_%g174879175541%_ _%L173989%_)) + (_%g175865175895%_ + _%g175866175898%_))))) + (_%g175864176526%_ _%L174974%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L173989%_)) - (let* ((_%g175545175598%_ - (lambda (_%g175546175595%_) + (gxc#kw-lambda-expr? _%L174974%_)) + (let* ((_%g176530176583%_ + (lambda (_%g176531176580%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175546175595%_)))) - (_%g175544176769%_ - (lambda (_%g175546175601%_) + _%g176531176580%_)))) + (_%g176529177754%_ + (lambda (_%g176531176586%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175546175601%_)) - (let ((_%e175552175603%_ + _%g176531176586%_)) + (let ((_%e176537176588%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g175546175601%_)))) - (let ((_%hd175553175606%_ + (gx#stx-e _%g176531176586%_)))) + (let ((_%hd176538176591%_ (let () (declare (not safe)) - (##car _%e175552175603%_))) - (_%tl175554175608%_ + (##car _%e176537176588%_))) + (_%tl176539176593%_ (let () (declare (not safe)) - (##cdr _%e175552175603%_)))) + (##cdr _%e176537176588%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175553175606%_)) + (gx#identifier? _%hd176538176591%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd175553175606%_)) + (gx#stx-eq? '%#let-values _%hd176538176591%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175554175608%_)) - (let ((_%e175555175611%_ + (gx#stx-pair? _%tl176539176593%_)) + (let ((_%e176540176596%_ (let () (declare (not safe)) - (gx#stx-e _%tl175554175608%_)))) - (let ((_%hd175556175614%_ + (gx#stx-e _%tl176539176593%_)))) + (let ((_%hd176541176599%_ (let () (declare (not safe)) - (##car _%e175555175611%_))) - (_%tl175557175616%_ + (##car _%e176540176596%_))) + (_%tl176542176601%_ (let () (declare (not safe)) - (##cdr _%e175555175611%_)))) + (##cdr _%e176540176596%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175556175614%_)) - (let ((_%e175558175619%_ + (gx#stx-pair? _%hd176541176599%_)) + (let ((_%e176543176604%_ (let () (declare (not safe)) (gx#stx-e - _%hd175556175614%_)))) - (let ((_%hd175559175622%_ + _%hd176541176599%_)))) + (let ((_%hd176544176607%_ (let () (declare (not safe)) - (##car _%e175558175619%_))) - (_%tl175560175624%_ + (##car _%e176543176604%_))) + (_%tl176545176609%_ (let () (declare (not safe)) - (##cdr _%e175558175619%_)))) + (##cdr _%e176543176604%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175559175622%_)) - (let ((_%e175561175627%_ + _%hd176544176607%_)) + (let ((_%e176546176612%_ (let () (declare (not safe)) (gx#stx-e - _%hd175559175622%_)))) - (let ((_%hd175562175630%_ + _%hd176544176607%_)))) + (let ((_%hd176547176615%_ (let () (declare (not safe)) - (##car _%e175561175627%_))) - (_%tl175563175632%_ + (##car _%e176546176612%_))) + (_%tl176548176617%_ (let () (declare (not safe)) - (##cdr _%e175561175627%_)))) + (##cdr _%e176546176612%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175562175630%_)) - (let ((_%e175564175635%_ + _%hd176547176615%_)) + (let ((_%e176549176620%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175562175630%_)))) - (let ((_%hd175565175638%_ + (gx#stx-e _%hd176547176615%_)))) + (let ((_%hd176550176623%_ (let () (declare (not safe)) - (##car _%e175564175635%_))) - (_%tl175566175640%_ + (##car _%e176549176620%_))) + (_%tl176551176625%_ (let () (declare (not safe)) - (##cdr _%e175564175635%_)))) + (##cdr _%e176549176620%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175566175640%_)) + (gx#stx-null? _%tl176551176625%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175563175632%_)) - (let ((_%e175567175643%_ + (gx#stx-pair? _%tl176548176617%_)) + (let ((_%e176552176628%_ (let () (declare (not safe)) - (gx#stx-e _%tl175563175632%_)))) - (let ((_%hd175568175646%_ + (gx#stx-e _%tl176548176617%_)))) + (let ((_%hd176553176631%_ (let () (declare (not safe)) - (##car _%e175567175643%_))) - (_%tl175569175648%_ + (##car _%e176552176628%_))) + (_%tl176554176633%_ (let () (declare (not safe)) - (##cdr _%e175567175643%_)))) + (##cdr _%e176552176628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175568175646%_)) - (let ((_%e175570175651%_ + (gx#stx-pair? _%hd176553176631%_)) + (let ((_%e176555176636%_ (let () (declare (not safe)) - (gx#stx-e _%hd175568175646%_)))) - (let ((_%hd175571175654%_ + (gx#stx-e _%hd176553176631%_)))) + (let ((_%hd176556176639%_ (let () (declare (not safe)) - (##car _%e175570175651%_))) - (_%tl175572175656%_ + (##car _%e176555176636%_))) + (_%tl176557176641%_ (let () (declare (not safe)) - (##cdr _%e175570175651%_)))) + (##cdr _%e176555176636%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175571175654%_)) + _%hd176556176639%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175571175654%_)) + _%hd176556176639%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175572175656%_)) - (let ((_%e175573175659%_ + _%tl176557176641%_)) + (let ((_%e176558176644%_ (let () (declare (not safe)) (gx#stx-e - _%tl175572175656%_)))) - (let ((_%hd175574175662%_ + _%tl176557176641%_)))) + (let ((_%hd176559176647%_ (let () (declare (not safe)) - (##car _%e175573175659%_))) - (_%tl175575175664%_ + (##car _%e176558176644%_))) + (_%tl176560176649%_ (let () (declare (not safe)) - (##cdr _%e175573175659%_)))) + (##cdr _%e176558176644%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175574175662%_)) - (let ((_%e175576175667%_ + _%hd176559176647%_)) + (let ((_%e176561176652%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175574175662%_)))) - (let ((_%hd175577175670%_ + (gx#stx-e _%hd176559176647%_)))) + (let ((_%hd176562176655%_ (let () (declare (not safe)) - (##car _%e175576175667%_))) - (_%tl175578175672%_ + (##car _%e176561176652%_))) + (_%tl176563176657%_ (let () (declare (not safe)) - (##cdr _%e175576175667%_)))) + (##cdr _%e176561176652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175577175670%_)) - (let ((_%e175579175675%_ + (gx#stx-pair? _%hd176562176655%_)) + (let ((_%e176564176660%_ (let () (declare (not safe)) - (gx#stx-e _%hd175577175670%_)))) - (let ((_%hd175580175678%_ + (gx#stx-e _%hd176562176655%_)))) + (let ((_%hd176565176663%_ (let () (declare (not safe)) - (##car _%e175579175675%_))) - (_%tl175581175680%_ + (##car _%e176564176660%_))) + (_%tl176566176665%_ (let () (declare (not safe)) - (##cdr _%e175579175675%_)))) + (##cdr _%e176564176660%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175580175678%_)) - (let ((_%e175582175683%_ + (gx#stx-pair? _%hd176565176663%_)) + (let ((_%e176567176668%_ (let () (declare (not safe)) - (gx#stx-e _%hd175580175678%_)))) - (let ((_%hd175583175686%_ + (gx#stx-e _%hd176565176663%_)))) + (let ((_%hd176568176671%_ (let () (declare (not safe)) - (##car _%e175582175683%_))) - (_%tl175584175688%_ + (##car _%e176567176668%_))) + (_%tl176569176673%_ (let () (declare (not safe)) - (##cdr _%e175582175683%_)))) + (##cdr _%e176567176668%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175584175688%_)) + (gx#stx-null? _%tl176569176673%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175581175680%_)) - (let ((_%e175585175691%_ + _%tl176566176665%_)) + (let ((_%e176570176676%_ (let () (declare (not safe)) (gx#stx-e - _%tl175581175680%_)))) - (let ((_%hd175586175694%_ + _%tl176566176665%_)))) + (let ((_%hd176571176679%_ (let () (declare (not safe)) - (##car _%e175585175691%_))) - (_%tl175587175696%_ + (##car _%e176570176676%_))) + (_%tl176572176681%_ (let () (declare (not safe)) - (##cdr _%e175585175691%_)))) + (##cdr _%e176570176676%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175587175696%_)) + _%tl176572176681%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175578175672%_)) + _%tl176563176657%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl175575175664%_)) - (let ((_%e175588175699%_ + (gx#stx-pair? _%tl176560176649%_)) + (let ((_%e176573176684%_ (let () (declare (not safe)) - (gx#stx-e _%tl175575175664%_)))) - (let ((_%hd175589175702%_ + (gx#stx-e _%tl176560176649%_)))) + (let ((_%hd176574176687%_ (let () (declare (not safe)) - (##car _%e175588175699%_))) - (_%tl175590175704%_ + (##car _%e176573176684%_))) + (_%tl176575176689%_ (let () (declare (not safe)) - (##cdr _%e175588175699%_)))) + (##cdr _%e176573176684%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175590175704%_)) + (gx#stx-null? _%tl176575176689%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175569175648%_)) + (gx#stx-null? _%tl176554176633%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175560175624%_)) + (gx#stx-null? _%tl176545176609%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175557175616%_)) - (let ((_%e175591175707%_ + (gx#stx-pair? _%tl176542176601%_)) + (let ((_%e176576176692%_ (let () (declare (not safe)) (gx#stx-e - _%tl175557175616%_)))) - (let ((_%hd175592175710%_ + _%tl176542176601%_)))) + (let ((_%hd176577176695%_ (let () (declare (not safe)) - (##car _%e175591175707%_))) - (_%tl175593175712%_ + (##car _%e176576176692%_))) + (_%tl176578176697%_ (let () (declare (not safe)) - (##cdr _%e175591175707%_)))) + (##cdr _%e176576176692%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175593175712%_)) - ((lambda (_%L175715%_ - _%L175716%_ - _%L175717%_ - _%L175718%_ - _%L175719%_) - (let* ((_%g175759175821%_ - (lambda (_%g175760175818%_) + _%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" - _%g175760175818%_)))) - (_%g175758176766%_ - (lambda (_%g175760175824%_) + _%g176745176803%_)))) + (_%g176743177751%_ + (lambda (_%g176745176809%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175760175824%_)) - (let ((_%e175766175826%_ + (gx#stx-pair? _%g176745176809%_)) + (let ((_%e176751176811%_ (let () (declare (not safe)) - (gx#stx-e _%g175760175824%_)))) - (let ((_%hd175767175829%_ + (gx#stx-e _%g176745176809%_)))) + (let ((_%hd176752176814%_ (let () (declare (not safe)) - (##car _%e175766175826%_))) - (_%tl175768175831%_ + (##car _%e176751176811%_))) + (_%tl176753176816%_ (let () (declare (not safe)) - (##cdr _%e175766175826%_)))) + (##cdr _%e176751176811%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175767175829%_)) + (gx#identifier? _%hd176752176814%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd175767175829%_)) + _%hd176752176814%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175768175831%_)) - (let ((_%e175769175834%_ + _%tl176753176816%_)) + (let ((_%e176754176819%_ (let () (declare (not safe)) (gx#stx-e - _%tl175768175831%_)))) - (let ((_%hd175770175837%_ + _%tl176753176816%_)))) + (let ((_%hd176755176822%_ (let () (declare (not safe)) - (##car _%e175769175834%_))) - (_%tl175771175839%_ + (##car _%e176754176819%_))) + (_%tl176756176824%_ (let () (declare (not safe)) - (##cdr _%e175769175834%_)))) + (##cdr _%e176754176819%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175771175839%_)) - (let ((_%e175772175842%_ + _%tl176756176824%_)) + (let ((_%e176757176827%_ (let () (declare (not safe)) (gx#stx-e - _%tl175771175839%_)))) - (let ((_%hd175773175845%_ + _%tl176756176824%_)))) + (let ((_%hd176758176830%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175772175842%_))) - (_%tl175774175847%_ - (let () (declare (not safe)) (##cdr _%e175772175842%_)))) + (##car _%e176757176827%_))) + (_%tl176759176832%_ + (let () (declare (not safe)) (##cdr _%e176757176827%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175773175845%_)) - (let ((_%e175775175850%_ + (gx#stx-pair? _%hd176758176830%_)) + (let ((_%e176760176835%_ (let () (declare (not safe)) - (gx#stx-e _%hd175773175845%_)))) - (let ((_%hd175776175853%_ + (gx#stx-e _%hd176758176830%_)))) + (let ((_%hd176761176838%_ (let () (declare (not safe)) - (##car _%e175775175850%_))) - (_%tl175777175855%_ + (##car _%e176760176835%_))) + (_%tl176762176840%_ (let () (declare (not safe)) - (##cdr _%e175775175850%_)))) + (##cdr _%e176760176835%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175776175853%_)) + (gx#identifier? _%hd176761176838%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd175776175853%_)) + (gx#stx-eq? '%#call _%hd176761176838%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175777175855%_)) - (let ((_%e175778175858%_ + (gx#stx-pair? _%tl176762176840%_)) + (let ((_%e176763176843%_ (let () (declare (not safe)) - (gx#stx-e _%tl175777175855%_)))) - (let ((_%hd175779175861%_ + (gx#stx-e _%tl176762176840%_)))) + (let ((_%hd176764176846%_ (let () (declare (not safe)) - (##car _%e175778175858%_))) - (_%tl175780175863%_ + (##car _%e176763176843%_))) + (_%tl176765176848%_ (let () (declare (not safe)) - (##cdr _%e175778175858%_)))) + (##cdr _%e176763176843%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175779175861%_)) - (let ((_%e175781175866%_ + _%hd176764176846%_)) + (let ((_%e176766176851%_ (let () (declare (not safe)) (gx#stx-e - _%hd175779175861%_)))) - (let ((_%hd175782175869%_ + _%hd176764176846%_)))) + (let ((_%hd176767176854%_ (let () (declare (not safe)) - (##car _%e175781175866%_))) - (_%tl175783175871%_ + (##car _%e176766176851%_))) + (_%tl176768176856%_ (let () (declare (not safe)) - (##cdr _%e175781175866%_)))) + (##cdr _%e176766176851%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175782175869%_)) + _%hd176767176854%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175782175869%_)) + _%hd176767176854%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175783175871%_)) - (let ((_%e175784175874%_ + _%tl176768176856%_)) + (let ((_%e176769176859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175783175871%_)))) - (let ((_%hd175785175877%_ + (gx#stx-e _%tl176768176856%_)))) + (let ((_%hd176770176862%_ (let () (declare (not safe)) - (##car _%e175784175874%_))) - (_%tl175786175879%_ + (##car _%e176769176859%_))) + (_%tl176771176864%_ (let () (declare (not safe)) - (##cdr _%e175784175874%_)))) + (##cdr _%e176769176859%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175786175879%_)) + (gx#stx-null? _%tl176771176864%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175780175863%_)) - (let ((_%e175787175882%_ + (gx#stx-pair? _%tl176765176848%_)) + (let ((_%e176772176867%_ (let () (declare (not safe)) - (gx#stx-e _%tl175780175863%_)))) - (let ((_%hd175788175885%_ + (gx#stx-e _%tl176765176848%_)))) + (let ((_%hd176773176870%_ (let () (declare (not safe)) - (##car _%e175787175882%_))) - (_%tl175789175887%_ + (##car _%e176772176867%_))) + (_%tl176774176872%_ (let () (declare (not safe)) - (##cdr _%e175787175882%_)))) + (##cdr _%e176772176867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175788175885%_)) - (let ((_%e175790175890%_ + (gx#stx-pair? _%hd176773176870%_)) + (let ((_%e176775176875%_ (let () (declare (not safe)) (gx#stx-e - _%hd175788175885%_)))) - (let ((_%hd175791175893%_ + _%hd176773176870%_)))) + (let ((_%hd176776176878%_ (let () (declare (not safe)) - (##car _%e175790175890%_))) - (_%tl175792175895%_ + (##car _%e176775176875%_))) + (_%tl176777176880%_ (let () (declare (not safe)) - (##cdr _%e175790175890%_)))) + (##cdr _%e176775176875%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175791175893%_)) + _%hd176776176878%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175791175893%_)) + _%hd176776176878%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175792175895%_)) - (let ((_%e175793175898%_ + _%tl176777176880%_)) + (let ((_%e176778176883%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl175792175895%_)))) - (let ((_%hd175794175901%_ + (gx#stx-e _%tl176777176880%_)))) + (let ((_%hd176779176886%_ (let () (declare (not safe)) - (##car _%e175793175898%_))) - (_%tl175795175903%_ + (##car _%e176778176883%_))) + (_%tl176780176888%_ (let () (declare (not safe)) - (##cdr _%e175793175898%_)))) + (##cdr _%e176778176883%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175795175903%_)) + (gx#stx-null? _%tl176780176888%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175789175887%_)) - (let ((_%e175796175906%_ + (gx#stx-pair? _%tl176774176872%_)) + (let ((_%e176781176891%_ (let () (declare (not safe)) - (gx#stx-e _%tl175789175887%_)))) - (let ((_%hd175797175909%_ + (gx#stx-e _%tl176774176872%_)))) + (let ((_%hd176782176894%_ (let () (declare (not safe)) - (##car _%e175796175906%_))) - (_%tl175798175911%_ + (##car _%e176781176891%_))) + (_%tl176783176896%_ (let () (declare (not safe)) - (##cdr _%e175796175906%_)))) + (##cdr _%e176781176891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175797175909%_)) - (let ((_%e175799175914%_ + (gx#stx-pair? _%hd176782176894%_)) + (let ((_%e176784176899%_ (let () (declare (not safe)) - (gx#stx-e _%hd175797175909%_)))) - (let ((_%hd175800175917%_ + (gx#stx-e _%hd176782176894%_)))) + (let ((_%hd176785176902%_ (let () (declare (not safe)) - (##car _%e175799175914%_))) - (_%tl175801175919%_ + (##car _%e176784176899%_))) + (_%tl176786176904%_ (let () (declare (not safe)) - (##cdr _%e175799175914%_)))) + (##cdr _%e176784176899%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175800175917%_)) + _%hd176785176902%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175800175917%_)) + _%hd176785176902%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175801175919%_)) - (let ((_%e175802175922%_ + _%tl176786176904%_)) + (let ((_%e176787176907%_ (let () (declare (not safe)) (gx#stx-e - _%tl175801175919%_)))) - (let ((_%hd175803175925%_ + _%tl176786176904%_)))) + (let ((_%hd176788176910%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175802175922%_))) - (_%tl175804175927%_ - (let () (declare (not safe)) (##cdr _%e175802175922%_)))) + (##car _%e176787176907%_))) + (_%tl176789176912%_ + (let () (declare (not safe)) (##cdr _%e176787176907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175804175927%_)) + (gx#stx-null? _%tl176789176912%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175798175911%_)) - (if (let ((__tmp178173 + (gx#stx-pair/null? _%tl176783176896%_)) + (if (let ((__tmp179158 (let () (declare (not safe)) - (gx#stx-length _%tl175798175911%_)))) + (gx#stx-length _%tl176783176896%_)))) (declare (not safe)) - (##fx>= __tmp178173 '1)) - (let ((_g178174_ + (##fx>= __tmp179158 '1)) + (let ((_g179159_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175798175911%_ + _%tl176783176896%_ '1)))) (begin - (let ((_g178175_ + (let ((_g179160_ (let () (declare (not safe)) - (if (##values? _g178174_) - (##values-length _g178174_) + (if (##values? _g179159_) + (##values-length _g179159_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178175_ 2))) + (##fx= _g179160_ 2))) (error "Context expects 2 values" - _g178175_))) - (let ((_%target175805175930%_ + _g179160_))) + (let ((_%target176790176915%_ (let () (declare (not safe)) - (##values-ref _g178174_ 0))) - (_%tl175807175932%_ + (##values-ref _g179159_ 0))) + (_%tl176792176917%_ (let () (declare (not safe)) - (##values-ref _g178174_ 1)))) + (##values-ref _g179159_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175807175932%_)) - (let ((_%e175814175935%_ + (gx#stx-pair? _%tl176792176917%_)) + (let ((_%e176799176920%_ (let () (declare (not safe)) - (gx#stx-e _%tl175807175932%_)))) - (let ((_%hd175815175938%_ + (gx#stx-e _%tl176792176917%_)))) + (let ((_%hd176800176923%_ (let () (declare (not safe)) - (##car _%e175814175935%_))) - (_%tl175816175940%_ + (##car _%e176799176920%_))) + (_%tl176801176925%_ (let () (declare (not safe)) - (##cdr _%e175814175935%_)))) + (##cdr _%e176799176920%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175816175940%_)) - (letrec ((_%loop175808175943%_ - (lambda (_%hd175806175946%_ + _%tl176801176925%_)) + (letrec ((_%loop176793176928%_ + (lambda (_%hd176791176931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref175812175948%_) + _%kw-ref176797176933%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175806175946%_)) - (let ((_%e175809175951%_ + (gx#stx-pair? _%hd176791176931%_)) + (let ((_%e176794176936%_ (let () (declare (not safe)) - (gx#stx-e _%hd175806175946%_)))) - (let ((_%lp-hd175810175954%_ + (gx#stx-e _%hd176791176931%_)))) + (let ((_%lp-hd176795176939%_ (let () (declare (not safe)) - (##car _%e175809175951%_))) - (_%lp-tl175811175956%_ + (##car _%e176794176936%_))) + (_%lp-tl176796176941%_ (let () (declare (not safe)) - (##cdr _%e175809175951%_)))) - (_%loop175808175943%_ - _%lp-tl175811175956%_ - (cons _%lp-hd175810175954%_ - _%kw-ref175812175948%_)))) - (let ((_%kw-ref175813175959%_ - (reverse _%kw-ref175812175948%_))) + (##cdr _%e176794176936%_)))) + (_%loop176793176928%_ + _%lp-tl176796176941%_ + (cons _%lp-hd176795176939%_ + _%kw-ref176797176933%_)))) + (let ((_%kw-ref176798176944%_ + (reverse _%kw-ref176797176933%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175774175847%_)) - ((lambda (_%L175962%_ - _%L175963%_ - _%L175964%_ - _%L175965%_ - _%L175966%_) - (let* ((_%kw-count176017%_ - (length (let ((__tmp178176 - (lambda (_%g176009176012%_ - _%g176010176014%_) - (cons _%g176009176012%_ - _%g176010176014%_)))) + (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 - __tmp178176 + __tmp179161 '() - _%L175963%_)))) - (_%self-index176019%_ + _%L176948%_)))) + (_%self-index177004%_ (let () (declare (not safe)) - (##fx+ _%kw-count176017%_ '1)))) + (##fx+ _%kw-count177002%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L175717%_)) - (let* ((_%g176023176037%_ - (lambda (_%g176024176034%_) + (gxc#lambda-expr? _%L176702%_)) + (let* ((_%g177008177022%_ + (lambda (_%g177009177019%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176024176034%_)))) - (_%g176022176160%_ - (lambda (_%g176024176040%_) + _%g177009177019%_)))) + (_%g177007177145%_ + (lambda (_%g177009177025%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176024176040%_)) - (let ((_%e176027176042%_ + _%g177009177025%_)) + (let ((_%e177012177027%_ (let () (declare (not safe)) (gx#stx-e - _%g176024176040%_)))) - (let ((_%hd176028176045%_ + _%g177009177025%_)))) + (let ((_%hd177013177030%_ (let () (declare (not safe)) - (##car _%e176027176042%_))) - (_%tl176029176047%_ + (##car _%e177012177027%_))) + (_%tl177014177032%_ (let () (declare (not safe)) - (##cdr _%e176027176042%_)))) + (##cdr _%e177012177027%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176029176047%_)) - (let ((_%e176030176050%_ + _%tl177014177032%_)) + (let ((_%e177015177035%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl176029176047%_)))) - (let ((_%hd176031176053%_ + (gx#stx-e _%tl177014177032%_)))) + (let ((_%hd177016177038%_ (let () (declare (not safe)) - (##car _%e176030176050%_))) - (_%tl176032176055%_ + (##car _%e177015177035%_))) + (_%tl177017177040%_ (let () (declare (not safe)) - (##cdr _%e176030176050%_)))) - ((lambda (_%L176058%_ _%L176059%_) - (let* ((_%self176076%_ - (list-ref _%L176059%_ _%self-index176019%_)) - (_%receiver176081%_ - (let ((_%$e176078%_ + (##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)) - _%L176058%_)))) - (if _%$e176078%_ - _%$e176078%_ - _%self176076%_)))) + _%L177043%_)))) + (if _%$e177063%_ + _%$e177063%_ + _%self177061%_)))) (for-each - (lambda (_%g176083176085%_) + (lambda (_%g177068177070%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176081%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g176083176085%_)) - _%L176058%_) - (if (_%no-specializer?174013%_) - _%stx173917%_ - (let* ((_%specializer-id176094%_ - (let* ((_%id176088%_ - (let ((__tmp178177 + _%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 - _%L173990%_)))) + _%L174975%_)))) (declare (not safe)) (make-symbol__1 - __tmp178177 + __tmp179162 '"::specialize"))) - (_%specializer-id176091%_ - (let ((__tmp178178 + (_%specializer-id177076%_ + (let ((__tmp179163 (let () (declare (not safe)) (gx#stx-source - _%stx173917%_)))) + _%stx174902%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id176088%_ - __tmp178178)))) + _%id177073%_ + __tmp179163)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id176091%_)) - _%specializer-id176091%_)) - (_%$klass176096%_ - (let ((__tmp178179 + _%specializer-id177076%_)) + _%specializer-id177076%_)) + (_%$klass177081%_ + (let ((__tmp179164 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178179))) - (_%$method-table176098%_ - (let ((__tmp178180 + (make-symbol__0 __tmp179164))) + (_%$method-table177083%_ + (let ((__tmp179165 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178180))) - (_%methods176100%_ + (make-symbol__0 __tmp179165))) + (_%methods177085%_ (let () (declare (not safe)) (__hash-keys - _%method-calls174009%_))) - (_%$methods176104%_ - (map (lambda (_%id176102%_) - (let ((__tmp178181 - (gensym _%id176102%_))) + _%method-calls174994%_))) + (_%$methods177089%_ + (map (lambda (_%id177087%_) + (let ((__tmp179166 + (gensym _%id177087%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp178181))) - _%methods176100%_)) - (_%_176113%_ + __tmp179166))) + _%methods177085%_)) + (_%_177098%_ (for-each - (lambda (_%g176105176108%_ - _%g176106176110%_) + (lambda (_%g177090177093%_ + _%g177091177095%_) (let () (declare (not safe)) (__hash-put! - _%method-calls174009%_ - _%g176105176108%_ - _%g176106176110%_))) - _%methods176100%_ - _%$methods176104%_)) - (_%methods-bind176123%_ - (map (lambda (_%g176115176118%_ - _%g176116176120%_) - (_%generate-method-bind173919%_ - _%$klass176096%_ - _%$method-table176098%_ - _%g176115176118%_ - _%g176116176120%_)) - _%methods176100%_ - _%$methods176104%_)) - (_%slots176125%_ + _%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-refs174010%_))) - (_%$slots176129%_ - (map (lambda (_%id176127%_) - (let ((__tmp178182 - (gensym _%id176127%_))) + (__hash-keys _%slot-refs174995%_))) + (_%$slots177114%_ + (map (lambda (_%id177112%_) + (let ((__tmp179167 + (gensym _%id177112%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp178182))) - _%slots176125%_)) - (_%_176138%_ + __tmp179167))) + _%slots177110%_)) + (_%_177123%_ (for-each - (lambda (_%g176130176133%_ - _%g176131176135%_) + (lambda (_%g177115177118%_ + _%g177116177120%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs174010%_ - _%g176130176133%_ - _%g176131176135%_))) - _%slots176125%_ - _%$slots176129%_)) - (_%slots-bind176147%_ - (map (lambda (_%g176139176142%_ - _%g176140176144%_) - (_%generate-slot-bind173920%_ - _%$klass176096%_ - _%g176139176142%_ - _%g176140176144%_)) - _%slots176125%_ - _%$slots176129%_)) - (_%specializer-impl176155%_ - (let* ((_%specializer-body176153%_ - (map (lambda (_%g176148176150%_) + _%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 - _%receiver176081%_ - _%$klass176096%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g176148176150%_)) - _%L176058%_)) - (__tmp178183 + _%receiver177066%_ + _%$klass177081%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177133177135%_)) + _%L177043%_)) + (__tmp179168 (cons '%#let-values - (cons (cons (cons (cons _%L175719%_ + (cons (cons (cons (cons _%L176704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175718%_ + (cons (cons (cons (cons _%L176703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp178184 + (cons (let ((__tmp179169 (cons '%#lambda - (cons _%L176059%_ - _%specializer-body176153%_)))) + (cons _%L177044%_ + _%specializer-body177138%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178184 _%L175717%_)) + (gxc#xform-wrap-source __tmp179169 _%L176702%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L175716%_ '()))) + (cons _%L176701%_ '()))) '())) '()) - (cons _%L175715%_ '()))))) + (cons _%L176700%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178183 - _%stx173917%_))) - (_%specializer-impl176157%_ - (_%generate-specializer-impl173921%_ - _%$klass176096%_ - _%$method-table176098%_ - _%methods-bind176123%_ - _%slots-bind176147%_ - _%specializer-impl176155%_))) - (let ((__tmp178186 + __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 _%L173990%_))) - (__tmp178185 + (gx#stx-e _%L174975%_))) + (__tmp179170 (let () (declare (not safe)) (gx#stx-e - _%specializer-id176094%_)))) + _%specializer-id177079%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178186 + __tmp179171 '" => " - __tmp178185)) - (_%generate-specializer-def173922%_ - _%L173990%_ - _%specializer-id176094%_ - _%specializer-impl176157%_))))) - _%tl176032176055%_ - _%hd176031176053%_))) - (_%g176023176037%_ _%g176024176040%_)))) + __tmp179170)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id177079%_ + _%specializer-impl177142%_))))) + _%tl177017177040%_ + _%hd177016177038%_))) + (_%g177008177022%_ _%g177009177025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176023176037%_ - _%g176024176040%_))))) - (_%g176022176160%_ _%L175717%_)) + (_%g177008177022%_ + _%g177009177025%_))))) + (_%g177007177145%_ _%L176702%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L175717%_)) - (let* ((_%g176164176194%_ - (lambda (_%g176165176191%_) + (gxc#opt-lambda-expr? _%L176702%_)) + (let* ((_%g177149177179%_ + (lambda (_%g177150177176%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176165176191%_)))) - (_%g176163176762%_ - (lambda (_%g176165176197%_) + _%g177150177176%_)))) + (_%g177148177747%_ + (lambda (_%g177150177182%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176165176197%_)) - (let ((_%e176169176199%_ + _%g177150177182%_)) + (let ((_%e177154177184%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g176165176197%_)))) - (let ((_%hd176170176202%_ + (gx#stx-e _%g177150177182%_)))) + (let ((_%hd177155177187%_ (let () (declare (not safe)) - (##car _%e176169176199%_))) - (_%tl176171176204%_ + (##car _%e177154177184%_))) + (_%tl177156177189%_ (let () (declare (not safe)) - (##cdr _%e176169176199%_)))) + (##cdr _%e177154177184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176171176204%_)) - (let ((_%e176172176207%_ + (gx#stx-pair? _%tl177156177189%_)) + (let ((_%e177157177192%_ (let () (declare (not safe)) - (gx#stx-e _%tl176171176204%_)))) - (let ((_%hd176173176210%_ + (gx#stx-e _%tl177156177189%_)))) + (let ((_%hd177158177195%_ (let () (declare (not safe)) - (##car _%e176172176207%_))) - (_%tl176174176212%_ + (##car _%e177157177192%_))) + (_%tl177159177197%_ (let () (declare (not safe)) - (##cdr _%e176172176207%_)))) + (##cdr _%e177157177192%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176173176210%_)) - (let ((_%e176175176215%_ + (gx#stx-pair? _%hd177158177195%_)) + (let ((_%e177160177200%_ (let () (declare (not safe)) - (gx#stx-e _%hd176173176210%_)))) - (let ((_%hd176176176218%_ + (gx#stx-e _%hd177158177195%_)))) + (let ((_%hd177161177203%_ (let () (declare (not safe)) - (##car _%e176175176215%_))) - (_%tl176177176220%_ + (##car _%e177160177200%_))) + (_%tl177162177205%_ (let () (declare (not safe)) - (##cdr _%e176175176215%_)))) + (##cdr _%e177160177200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176176176218%_)) - (let ((_%e176178176223%_ + (gx#stx-pair? _%hd177161177203%_)) + (let ((_%e177163177208%_ (let () (declare (not safe)) (gx#stx-e - _%hd176176176218%_)))) - (let ((_%hd176179176226%_ + _%hd177161177203%_)))) + (let ((_%hd177164177211%_ (let () (declare (not safe)) - (##car _%e176178176223%_))) - (_%tl176180176228%_ + (##car _%e177163177208%_))) + (_%tl177165177213%_ (let () (declare (not safe)) - (##cdr _%e176178176223%_)))) + (##cdr _%e177163177208%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176179176226%_)) - (let ((_%e176181176231%_ + _%hd177164177211%_)) + (let ((_%e177166177216%_ (let () (declare (not safe)) (gx#stx-e - _%hd176179176226%_)))) - (let ((_%hd176182176234%_ + _%hd177164177211%_)))) + (let ((_%hd177167177219%_ (let () (declare (not safe)) - (##car _%e176181176231%_))) - (_%tl176183176236%_ + (##car _%e177166177216%_))) + (_%tl177168177221%_ (let () (declare (not safe)) - (##cdr _%e176181176231%_)))) + (##cdr _%e177166177216%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176183176236%_)) + _%tl177168177221%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176180176228%_)) - (let ((_%e176184176239%_ + _%tl177165177213%_)) + (let ((_%e177169177224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl176180176228%_)))) - (let ((_%hd176185176242%_ + (gx#stx-e _%tl177165177213%_)))) + (let ((_%hd177170177227%_ (let () (declare (not safe)) - (##car _%e176184176239%_))) - (_%tl176186176244%_ + (##car _%e177169177224%_))) + (_%tl177171177229%_ (let () (declare (not safe)) - (##cdr _%e176184176239%_)))) + (##cdr _%e177169177224%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176186176244%_)) + (gx#stx-null? _%tl177171177229%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176177176220%_)) + (gx#stx-null? _%tl177162177205%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176174176212%_)) - (let ((_%e176187176247%_ + (gx#stx-pair? _%tl177159177197%_)) + (let ((_%e177172177232%_ (let () (declare (not safe)) - (gx#stx-e _%tl176174176212%_)))) - (let ((_%hd176188176250%_ + (gx#stx-e _%tl177159177197%_)))) + (let ((_%hd177173177235%_ (let () (declare (not safe)) - (##car _%e176187176247%_))) - (_%tl176189176252%_ + (##car _%e177172177232%_))) + (_%tl177174177237%_ (let () (declare (not safe)) - (##cdr _%e176187176247%_)))) + (##cdr _%e177172177232%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176189176252%_)) - ((lambda (_%L176255%_ - _%L176256%_ - _%L176257%_) - (let* ((_%g176281176295%_ - (lambda (_%g176282176292%_) + (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" - _%g176282176292%_)))) - (_%g176280176342%_ - (lambda (_%g176282176298%_) + _%g177267177277%_)))) + (_%g177265177327%_ + (lambda (_%g177267177283%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176282176298%_)) - (let ((_%e176285176300%_ + _%g177267177283%_)) + (let ((_%e177270177285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176282176298%_)))) - (let ((_%hd176286176303%_ + (gx#stx-e _%g177267177283%_)))) + (let ((_%hd177271177288%_ (let () (declare (not safe)) - (##car _%e176285176300%_))) - (_%tl176287176305%_ + (##car _%e177270177285%_))) + (_%tl177272177290%_ (let () (declare (not safe)) - (##cdr _%e176285176300%_)))) + (##cdr _%e177270177285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176287176305%_)) - (let ((_%e176288176308%_ + (gx#stx-pair? _%tl177272177290%_)) + (let ((_%e177273177293%_ (let () (declare (not safe)) - (gx#stx-e _%tl176287176305%_)))) - (let ((_%hd176289176311%_ + (gx#stx-e _%tl177272177290%_)))) + (let ((_%hd177274177296%_ (let () (declare (not safe)) - (##car _%e176288176308%_))) - (_%tl176290176313%_ + (##car _%e177273177293%_))) + (_%tl177275177298%_ (let () (declare (not safe)) - (##cdr _%e176288176308%_)))) - ((lambda (_%L176316%_ _%L176317%_) - (let* ((_%self176330%_ + (##cdr _%e177273177293%_)))) + ((lambda (_%L177301%_ _%L177302%_) + (let* ((_%self177315%_ (list-ref - _%L176317%_ - _%self-index176019%_)) - (_%receiver176335%_ - (let ((_%$e176332%_ + _%L177302%_ + _%self-index177004%_)) + (_%receiver177320%_ + (let ((_%$e177317%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176316%_)))) - (if _%$e176332%_ - _%$e176332%_ - _%self176330%_)))) + _%L177301%_)))) + (if _%$e177317%_ + _%$e177317%_ + _%self177315%_)))) (for-each - (lambda (_%g176337176339%_) + (lambda (_%g177322177324%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176335%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g176337176339%_)) - _%L176316%_))) - _%tl176290176313%_ - _%hd176289176311%_))) - (_%g176281176295%_ _%g176282176298%_)))) - (_%g176281176295%_ _%g176282176298%_))))) + _%receiver177320%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177322177324%_)) + _%L177301%_))) + _%tl177275177298%_ + _%hd177274177296%_))) + (_%g177266177280%_ _%g177267177283%_)))) + (_%g177266177280%_ _%g177267177283%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176280176342%_ - _%L176256%_)) - (let* ((_%g176345176364%_ - (lambda (_%g176346176361%_) + (_%g177265177327%_ + _%L177241%_)) + (let* ((_%g177330177349%_ + (lambda (_%g177331177346%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176346176361%_)))) - (_%g176344176475%_ - (lambda (_%g176346176367%_) + _%g177331177346%_)))) + (_%g177329177460%_ + (lambda (_%g177331177352%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176346176367%_)) - (let ((_%e176348176369%_ + _%g177331177352%_)) + (let ((_%e177333177354%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176346176367%_)))) - (let ((_%hd176349176372%_ + (gx#stx-e _%g177331177352%_)))) + (let ((_%hd177334177357%_ (let () (declare (not safe)) - (##car _%e176348176369%_))) - (_%tl176350176374%_ + (##car _%e177333177354%_))) + (_%tl177335177359%_ (let () (declare (not safe)) - (##cdr _%e176348176369%_)))) + (##cdr _%e177333177354%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl176350176374%_)) - (let ((_g178187_ + (gx#stx-pair/null? _%tl177335177359%_)) + (let ((_g179172_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176350176374%_ + _%tl177335177359%_ '0)))) (begin - (let ((_g178188_ + (let ((_g179173_ (let () (declare (not safe)) - (if (##values? _g178187_) - (##values-length _g178187_) + (if (##values? _g179172_) + (##values-length _g179172_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178188_ 2))) + (##fx= _g179173_ 2))) (error "Context expects 2 values" - _g178188_))) - (let ((_%target176351176377%_ + _g179173_))) + (let ((_%target177336177362%_ (let () (declare (not safe)) - (##values-ref _g178187_ 0))) - (_%tl176353176379%_ + (##values-ref _g179172_ 0))) + (_%tl177338177364%_ (let () (declare (not safe)) - (##values-ref _g178187_ 1)))) + (##values-ref _g179172_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176353176379%_)) - (letrec ((_%loop176354176382%_ - (lambda (_%hd176352176385%_ - _%clause176358176387%_) + (gx#stx-null? _%tl177338177364%_)) + (letrec ((_%loop177339177367%_ + (lambda (_%hd177337177370%_ + _%clause177343177372%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176352176385%_)) - (let ((_%e176355176390%_ + _%hd177337177370%_)) + (let ((_%e177340177375%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd176352176385%_)))) - (let ((_%lp-hd176356176393%_ - (let () (declare (not safe)) (##car _%e176355176390%_))) - (_%lp-tl176357176395%_ + (gx#stx-e _%hd177337177370%_)))) + (let ((_%lp-hd177341177378%_ + (let () (declare (not safe)) (##car _%e177340177375%_))) + (_%lp-tl177342177380%_ (let () (declare (not safe)) - (##cdr _%e176355176390%_)))) - (_%loop176354176382%_ - _%lp-tl176357176395%_ - (cons _%lp-hd176356176393%_ _%clause176358176387%_)))) - (let ((_%clause176359176398%_ (reverse _%clause176358176387%_))) - ((lambda (_%L176401%_) + (##cdr _%e177340177375%_)))) + (_%loop177339177367%_ + _%lp-tl177342177380%_ + (cons _%lp-hd177341177378%_ _%clause177343177372%_)))) + (let ((_%clause177344177383%_ (reverse _%clause177343177372%_))) + ((lambda (_%L177386%_) (for-each - (lambda (_%clause176414%_) - (let* ((_%g176416176427%_ - (lambda (_%g176417176424%_) + (lambda (_%clause177399%_) + (let* ((_%g177401177412%_ + (lambda (_%g177402177409%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176417176424%_)))) - (_%g176415176465%_ - (lambda (_%g176417176430%_) + _%g177402177409%_)))) + (_%g177400177450%_ + (lambda (_%g177402177415%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176417176430%_)) - (let ((_%e176420176432%_ + (gx#stx-pair? _%g177402177415%_)) + (let ((_%e177405177417%_ (let () (declare (not safe)) - (gx#stx-e _%g176417176430%_)))) - (let ((_%hd176421176435%_ + (gx#stx-e _%g177402177415%_)))) + (let ((_%hd177406177420%_ (let () (declare (not safe)) - (##car _%e176420176432%_))) - (_%tl176422176437%_ + (##car _%e177405177417%_))) + (_%tl177407177422%_ (let () (declare (not safe)) - (##cdr _%e176420176432%_)))) - ((lambda (_%L176440%_ _%L176441%_) - (let* ((_%self176453%_ + (##cdr _%e177405177417%_)))) + ((lambda (_%L177425%_ _%L177426%_) + (let* ((_%self177438%_ (list-ref - _%L176441%_ - _%self-index176019%_)) - (_%receiver176458%_ - (let ((_%$e176455%_ + _%L177426%_ + _%self-index177004%_)) + (_%receiver177443%_ + (let ((_%$e177440%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176440%_)))) + _%L177425%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e176455%_ - _%$e176455%_ - _%self176453%_)))) + (if _%$e177440%_ + _%$e177440%_ + _%self177438%_)))) (for-each - (lambda (_%g176460176462%_) + (lambda (_%g177445177447%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176458%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g176460176462%_)) - _%L176440%_))) - _%tl176422176437%_ - _%hd176421176435%_))) - (_%g176416176427%_ _%g176417176430%_))))) - (_%g176415176465%_ _%clause176414%_))) - (let ((__tmp178189 - (lambda (_%g176467176470%_ _%g176468176472%_) - (cons _%g176467176470%_ _%g176468176472%_)))) + _%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 __tmp178189 '() _%L176401%_)))) - _%clause176359176398%_)))))) + (__foldr1 __tmp179174 '() _%L177386%_)))) + _%clause177344177383%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176354176382%_ - _%target176351176377%_ + (_%loop177339177367%_ + _%target177336177362%_ '())) - (_%g176345176364%_ _%g176346176367%_))))) - (_%g176345176364%_ _%g176346176367%_)))) - (_%g176345176364%_ _%g176346176367%_))))) + (_%g177330177349%_ _%g177331177352%_))))) + (_%g177330177349%_ _%g177331177352%_)))) + (_%g177330177349%_ _%g177331177352%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176344176475%_ - _%L176255%_)) - (if (_%no-specializer?174013%_) - _%stx173917%_ - (let* ((_%specializer-id176484%_ - (let* ((_%id176478%_ + (_%g177329177460%_ + _%L177240%_)) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id177469%_ + (let* ((_%id177463%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp178190 + (let ((__tmp179175 (let () (declare (not safe)) - (gx#stx-e _%L173990%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp178190 '"::specialize"))) - (_%specializer-id176481%_ - (let ((__tmp178191 + (make-symbol__1 __tmp179175 '"::specialize"))) + (_%specializer-id177466%_ + (let ((__tmp179176 (let () (declare (not safe)) - (gx#stx-source _%stx173917%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id176478%_ - __tmp178191)))) + _%id177463%_ + __tmp179176)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id176481%_)) - _%specializer-id176481%_)) - (_%$klass176486%_ - (let ((__tmp178192 + (gx#core-bind-runtime!__0 _%specializer-id177466%_)) + _%specializer-id177466%_)) + (_%$klass177471%_ + (let ((__tmp179177 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178192))) - (_%$method-table176488%_ - (let ((__tmp178193 + (make-symbol__0 __tmp179177))) + (_%$method-table177473%_ + (let ((__tmp179178 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178193))) - (_%methods176490%_ + (make-symbol__0 __tmp179178))) + (_%methods177475%_ (let () (declare (not safe)) - (__hash-keys _%method-calls174009%_))) - (_%$methods176494%_ - (map (lambda (_%id176492%_) - (let ((__tmp178194 (gensym _%id176492%_))) + (__hash-keys _%method-calls174994%_))) + (_%$methods177479%_ + (map (lambda (_%id177477%_) + (let ((__tmp179179 (gensym _%id177477%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178194))) - _%methods176490%_)) - (_%_176503%_ + (make-symbol__1 '"__" __tmp179179))) + _%methods177475%_)) + (_%_177488%_ (for-each - (lambda (_%g176495176498%_ _%g176496176500%_) + (lambda (_%g177480177483%_ _%g177481177485%_) (let () (declare (not safe)) (__hash-put! - _%method-calls174009%_ - _%g176495176498%_ - _%g176496176500%_))) - _%methods176490%_ - _%$methods176494%_)) - (_%methods-bind176513%_ - (map (lambda (_%g176505176508%_ _%g176506176510%_) - (_%generate-method-bind173919%_ - _%$klass176486%_ - _%$method-table176488%_ - _%g176505176508%_ - _%g176506176510%_)) - _%methods176490%_ - _%$methods176494%_)) - (_%slots176515%_ + _%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-refs174010%_))) - (_%$slots176519%_ - (map (lambda (_%id176517%_) - (let ((__tmp178195 (gensym _%id176517%_))) + (__hash-keys _%slot-refs174995%_))) + (_%$slots177504%_ + (map (lambda (_%id177502%_) + (let ((__tmp179180 (gensym _%id177502%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178195))) - _%slots176515%_)) - (_%_176528%_ + (make-symbol__1 '"__" __tmp179180))) + _%slots177500%_)) + (_%_177513%_ (for-each - (lambda (_%g176520176523%_ _%g176521176525%_) + (lambda (_%g177505177508%_ _%g177506177510%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs174010%_ - _%g176520176523%_ - _%g176521176525%_))) - _%slots176515%_ - _%$slots176519%_)) - (_%slots-bind176537%_ - (map (lambda (_%g176529176532%_ _%g176530176534%_) - (_%generate-slot-bind173920%_ - _%$klass176486%_ - _%g176529176532%_ - _%g176530176534%_)) - _%slots176515%_ - _%$slots176519%_)) - (_%specializer-lambda-expr176615%_ - (let* ((_%g176539176553%_ - (lambda (_%g176540176550%_) + _%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" - _%g176540176550%_)))) - (_%g176538176612%_ - (lambda (_%g176540176556%_) + _%g177525177535%_)))) + (_%g177523177597%_ + (lambda (_%g177525177541%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176540176556%_)) - (let ((_%e176543176558%_ + (gx#stx-pair? _%g177525177541%_)) + (let ((_%e177528177543%_ (let () (declare (not safe)) - (gx#stx-e _%g176540176556%_)))) - (let ((_%hd176544176561%_ + (gx#stx-e _%g177525177541%_)))) + (let ((_%hd177529177546%_ (let () (declare (not safe)) - (##car _%e176543176558%_))) - (_%tl176545176563%_ + (##car _%e177528177543%_))) + (_%tl177530177548%_ (let () (declare (not safe)) - (##cdr _%e176543176558%_)))) + (##cdr _%e177528177543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176545176563%_)) - (let ((_%e176546176566%_ + (gx#stx-pair? _%tl177530177548%_)) + (let ((_%e177531177551%_ (let () (declare (not safe)) (gx#stx-e - _%tl176545176563%_)))) - (let ((_%hd176547176569%_ + _%tl177530177548%_)))) + (let ((_%hd177532177554%_ (let () (declare (not safe)) - (##car _%e176546176566%_))) - (_%tl176548176571%_ + (##car _%e177531177551%_))) + (_%tl177533177556%_ (let () (declare (not safe)) - (##cdr _%e176546176566%_)))) - ((lambda (_%L176574%_ _%L176575%_) - (let* ((_%self176598%_ + (##cdr _%e177531177551%_)))) + ((lambda (_%L177559%_ _%L177560%_) + (let* ((_%self177583%_ (list-ref - _%L176575%_ - _%self-index176019%_)) - (_%receiver176603%_ - (let ((_%$e176600%_ + _%L177560%_ + _%self-index177004%_)) + (_%receiver177588%_ + (let ((_%$e177585%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176574%_)))) - (if _%$e176600%_ _%$e176600%_ _%self176598%_))) - (_%body176609%_ - (map (lambda (_%g176604176606%_) + _%L177559%_)))) + (if _%$e177585%_ _%$e177585%_ _%self177583%_))) + (_%body177594%_ + (map (lambda (_%g177589177591%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176603%_ - _%$klass176486%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g176604176606%_)) - _%L176574%_)) - (__tmp178196 (cons '%#lambda (cons _%L176575%_ _%body176609%_)))) + _%receiver177588%_ + _%$klass177471%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177589177591%_)) + _%L177559%_)) + (__tmp179181 (cons '%#lambda (cons _%L177560%_ _%body177594%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178196 - _%L176256%_))) - _%tl176548176571%_ - _%hd176547176569%_))) - (_%g176539176553%_ - _%g176540176556%_)))) - (_%g176539176553%_ _%g176540176556%_))))) - (_%g176538176612%_ _%L176256%_))) - (_%specializer-case-lambda-expr176755%_ - (let* ((_%g176617176636%_ - (lambda (_%g176618176633%_) + __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" - _%g176618176633%_)))) - (_%g176616176752%_ - (lambda (_%g176618176639%_) + _%g177603177618%_)))) + (_%g177601177737%_ + (lambda (_%g177603177624%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176618176639%_)) - (let ((_%e176620176641%_ + (gx#stx-pair? _%g177603177624%_)) + (let ((_%e177605177626%_ (let () (declare (not safe)) - (gx#stx-e _%g176618176639%_)))) - (let ((_%hd176621176644%_ + (gx#stx-e _%g177603177624%_)))) + (let ((_%hd177606177629%_ (let () (declare (not safe)) - (##car _%e176620176641%_))) - (_%tl176622176646%_ + (##car _%e177605177626%_))) + (_%tl177607177631%_ (let () (declare (not safe)) - (##cdr _%e176620176641%_)))) + (##cdr _%e177605177626%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl176622176646%_)) - (let ((_g178197_ + _%tl177607177631%_)) + (let ((_g179182_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176622176646%_ + _%tl177607177631%_ '0)))) (begin - (let ((_g178198_ + (let ((_g179183_ (let () (declare (not safe)) - (if (##values? _g178197_) + (if (##values? _g179182_) (##values-length - _g178197_) + _g179182_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178198_ 2))) + (##fx= _g179183_ 2))) (error "Context expects 2 values" - _g178198_))) - (let ((_%target176623176649%_ + _g179183_))) + (let ((_%target177608177634%_ (let () (declare (not safe)) (##values-ref - _g178197_ + _g179182_ 0))) - (_%tl176625176651%_ + (_%tl177610177636%_ (let () (declare (not safe)) (##values-ref - _g178197_ + _g179182_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176625176651%_)) - (letrec ((_%loop176626176654%_ - (lambda (_%hd176624176657%_ + _%tl177610177636%_)) + (letrec ((_%loop177611177639%_ + (lambda (_%hd177609177642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause176630176659%_) + _%clause177615177644%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176624176657%_)) - (let ((_%e176627176662%_ + (gx#stx-pair? _%hd177609177642%_)) + (let ((_%e177612177647%_ (let () (declare (not safe)) - (gx#stx-e _%hd176624176657%_)))) - (let ((_%lp-hd176628176665%_ + (gx#stx-e _%hd177609177642%_)))) + (let ((_%lp-hd177613177650%_ (let () (declare (not safe)) - (##car _%e176627176662%_))) - (_%lp-tl176629176667%_ + (##car _%e177612177647%_))) + (_%lp-tl177614177652%_ (let () (declare (not safe)) - (##cdr _%e176627176662%_)))) - (_%loop176626176654%_ - _%lp-tl176629176667%_ - (cons _%lp-hd176628176665%_ - _%clause176630176659%_)))) - (let ((_%clause176631176670%_ - (reverse _%clause176630176659%_))) - ((lambda (_%L176673%_) - (let* ((_%clauses176750%_ - (map (lambda (_%clause176687%_) - (let* ((_%g176689176700%_ - (lambda (_%g176690176697%_) + (##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" - _%g176690176697%_)))) - (_%g176688176740%_ - (lambda (_%g176690176703%_) + _%g177675177682%_)))) + (_%g177673177725%_ + (lambda (_%g177675177688%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176690176703%_)) - (let ((_%e176693176705%_ + _%g177675177688%_)) + (let ((_%e177678177690%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176690176703%_)))) - (let ((_%hd176694176708%_ + (gx#stx-e _%g177675177688%_)))) + (let ((_%hd177679177693%_ (let () (declare (not safe)) - (##car _%e176693176705%_))) - (_%tl176695176710%_ + (##car _%e177678177690%_))) + (_%tl177680177695%_ (let () (declare (not safe)) - (##cdr _%e176693176705%_)))) - ((lambda (_%L176713%_ _%L176714%_) - (let* ((_%self176726%_ - (list-ref _%L176714%_ _%self-index176019%_)) - (_%receiver176731%_ - (let ((_%$e176728%_ + (##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)) - _%L176713%_)))) - (if _%$e176728%_ - _%$e176728%_ - _%self176726%_))) - (_%body176737%_ - (map (lambda (_%g176732176734%_) + _%L177698%_)))) + (if _%$e177713%_ + _%$e177713%_ + _%self177711%_))) + (_%body177722%_ + (map (lambda (_%g177717177719%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176731%_ - _%$klass176486%_ - _%method-calls174009%_ - _%slot-refs174010%_ - _%g176732176734%_)) - _%L176713%_))) - (cons _%L176714%_ _%body176737%_))) - _%tl176695176710%_ - _%hd176694176708%_))) - (_%g176689176700%_ _%g176690176703%_))))) + _%receiver177716%_ + _%$klass177471%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177717177719%_)) + _%L177698%_))) + (cons _%L177699%_ _%body177722%_))) + _%tl177680177695%_ + _%hd177679177693%_))) + (_%g177674177685%_ _%g177675177688%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176688176740%_ - _%clause176687%_))) - (let ((__tmp178199 - (lambda (_%g176742176745%_ - _%g176743176747%_) - (cons _%g176742176745%_ - _%g176743176747%_)))) + (_%g177673177725%_ + _%clause177672%_))) + (let ((__tmp179184 + (lambda (_%g177727177730%_ + _%g177728177732%_) + (cons _%g177727177730%_ + _%g177728177732%_)))) (declare (not safe)) (__foldr1 - __tmp178199 + __tmp179184 '() - _%L176673%_)))) - (__tmp178200 + _%L177658%_)))) + (__tmp179185 (cons '%#case-lambda - _%clauses176750%_))) + _%clauses177735%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp178200 - _%L176255%_))) - _%clause176631176670%_)))))) + __tmp179185 + _%L177240%_))) + _%clause177616177655%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176626176654%_ - _%target176623176649%_ + (_%loop177611177639%_ + _%target177608177634%_ '())) - (_%g176617176636%_ - _%g176618176639%_))))) - (_%g176617176636%_ - _%g176618176639%_)))) - (_%g176617176636%_ _%g176618176639%_))))) - (_%g176616176752%_ _%L176255%_))) - (_%specializer-impl176757%_ - (let ((__tmp178201 + (_%g177602177621%_ + _%g177603177624%_))))) + (_%g177602177621%_ + _%g177603177624%_)))) + (_%g177602177621%_ _%g177603177624%_))))) + (_%g177601177737%_ _%L177240%_))) + (_%specializer-impl177742%_ + (let ((__tmp179186 (cons '%#let-values - (cons (cons (cons (cons _%L175719%_ '()) + (cons (cons (cons (cons _%L176704%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175718%_ + (cons (cons (cons (cons _%L176703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp178202 + (cons (let ((__tmp179187 (cons '%#let-values - (cons (cons (cons (cons _%L176257%_ + (cons (cons (cons (cons _%L177242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr176615%_ + (cons _%specializer-lambda-expr177600%_ '())) '()) - (cons _%specializer-case-lambda-expr176755%_ '()))))) + (cons _%specializer-case-lambda-expr177740%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178202 - _%stx173917%_)) + __tmp179187 + _%stx174902%_)) '())) '()) - (cons _%L175716%_ '()))) + (cons _%L176701%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L175715%_ '()))))) + (cons _%L176700%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178201 _%stx173917%_))) - (_%specializer-impl176759%_ - (_%generate-specializer-impl173921%_ - _%$klass176486%_ - _%$method-table176488%_ - _%methods-bind176513%_ - _%slots-bind176537%_ - _%specializer-impl176757%_))) + (gxc#xform-wrap-source __tmp179186 _%stx174902%_))) + (_%specializer-impl177744%_ + (_%generate-specializer-impl174906%_ + _%$klass177471%_ + _%$method-table177473%_ + _%methods-bind177498%_ + _%slots-bind177522%_ + _%specializer-impl177742%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178204 + (let ((__tmp179189 (let () (declare (not safe)) (gx#stx-e - _%L173990%_))) - (__tmp178203 + _%L174975%_))) + (__tmp179188 (let () (declare (not safe)) (gx#stx-e - _%specializer-id176484%_)))) + _%specializer-id177469%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178204 + __tmp179189 '" => " - __tmp178203)) - (_%generate-specializer-def173922%_ - _%L173990%_ - _%specializer-id176484%_ - _%specializer-impl176759%_)))) - _%hd176188176250%_ - _%hd176185176242%_ - _%hd176182176234%_) - (_%g176164176194%_ - _%g176165176197%_)))) - (_%g176164176194%_ _%g176165176197%_)) - (_%g176164176194%_ _%g176165176197%_)) - (_%g176164176194%_ _%g176165176197%_)))) - (_%g176164176194%_ _%g176165176197%_)) - (_%g176164176194%_ _%g176165176197%_)))) + __tmp179188)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id177469%_ + _%specializer-impl177744%_)))) + _%hd177173177235%_ + _%hd177170177227%_ + _%hd177167177219%_) + (_%g177149177179%_ + _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)) + (_%g177149177179%_ _%g177150177182%_)) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)) + (_%g177149177179%_ _%g177150177182%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176164176194%_ - _%g176165176197%_)))) - (_%g176164176194%_ _%g176165176197%_)))) - (_%g176164176194%_ _%g176165176197%_)))) - (_%g176164176194%_ _%g176165176197%_)))) - (_%g176164176194%_ _%g176165176197%_))))) + (_%g177149177179%_ + _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176163176762%_ _%L175717%_)) - _%stx173917%_)))) - _%hd175815175938%_ - _%kw-ref175813175959%_ - _%hd175803175925%_ - _%hd175794175901%_ - _%hd175785175877%_) - (_%g175759175821%_ _%g175760175824%_))))))) + (_%g177148177747%_ _%L176702%_)) + _%stx174902%_)))) + _%hd176800176923%_ + _%kw-ref176798176944%_ + _%hd176788176910%_ + _%hd176779176886%_ + _%hd176770176862%_) + (_%g176744176806%_ _%g176745176809%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175808175943%_ - _%target175805175930%_ + (_%loop176793176928%_ + _%target176790176915%_ '())) - (_%g175759175821%_ - _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_))))) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_))))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175759175821%_ - _%g175760175824%_)) - (_%g175759175821%_ - _%g175760175824%_)) - (_%g175759175821%_ - _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_)) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175759175821%_ - _%g175760175824%_)) - (_%g175759175821%_ - _%g175760175824%_)))) - (_%g175759175821%_ - _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175759175821%_ - _%g175760175824%_)))) - (_%g175759175821%_ - _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175759175821%_ - _%g175760175824%_)))) - (_%g175759175821%_ - _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)) - (_%g175759175821%_ _%g175760175824%_)))) - (_%g175759175821%_ _%g175760175824%_))))) - (_%g175758176766%_ _%L175716%_))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_))))) + (_%g176743177751%_ _%L176701%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd175592175710%_ - _%hd175589175702%_ - _%hd175586175694%_ - _%hd175583175686%_ - _%hd175565175638%_) - (_%g175545175598%_ - _%g175546175601%_)))) - (_%g175545175598%_ - _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)))) + _%hd176577176695%_ + _%hd176574176687%_ + _%hd176571176679%_ + _%hd176568176671%_ + _%hd176550176623%_) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175545175598%_ - _%g175546175601%_)) - (_%g175545175598%_ - _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)))) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175545175598%_ - _%g175546175601%_)) - (_%g175545175598%_ - _%g175546175601%_)) - (_%g175545175598%_ - _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)))) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175545175598%_ - _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)) - (_%g175545175598%_ _%g175546175601%_)))) - (_%g175545175598%_ _%g175546175601%_))))) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175544176769%_ _%L173989%_)) - _%stx173917%_)))))))) - (_%__kont177003177004%_ (lambda () _%stx173917%_))) - (let ((_%__match177032177033%_ - (lambda (_%e173929173957%_ - _%hd173930173960%_ - _%tl173931173962%_ - _%e173932173965%_ - _%hd173933173968%_ - _%tl173934173970%_ - _%e173935173973%_ - _%hd173936173976%_ - _%tl173937173978%_ - _%e173938173981%_ - _%hd173939173984%_ - _%tl173940173986%_) - (let ((_%L173989%_ _%hd173939173984%_) - (_%L173990%_ _%hd173936173976%_)) - (if (let ((__tmp178205 + (_%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 _%L173990%_)))) + (gxc#identifier-symbol _%L174975%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp178205)) - (_%__kont177001177002%_ _%L173989%_ _%L173990%_) - (_%__kont177003177004%_)))))) + (gxc#optimizer-top-level-method? __tmp179190)) + (_%__kont177986177987%_ _%L174974%_ _%L174975%_) + (_%__kont177988177989%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176999177000%_)) - (let ((_%e173929173957%_ + (gx#stx-pair? _%__stx177984177985%_)) + (let ((_%e174914174942%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176999177000%_)))) - (let ((_%tl173931173962%_ + (gx#stx-e _%__stx177984177985%_)))) + (let ((_%tl174916174947%_ (let () (declare (not safe)) - (##cdr _%e173929173957%_))) - (_%hd173930173960%_ + (##cdr _%e174914174942%_))) + (_%hd174915174945%_ (let () (declare (not safe)) - (##car _%e173929173957%_)))) + (##car _%e174914174942%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173931173962%_)) - (let ((_%e173932173965%_ + (gx#stx-pair? _%tl174916174947%_)) + (let ((_%e174917174950%_ (let () (declare (not safe)) - (gx#stx-e _%tl173931173962%_)))) - (let ((_%tl173934173970%_ + (gx#stx-e _%tl174916174947%_)))) + (let ((_%tl174919174955%_ (let () (declare (not safe)) - (##cdr _%e173932173965%_))) - (_%hd173933173968%_ + (##cdr _%e174917174950%_))) + (_%hd174918174953%_ (let () (declare (not safe)) - (##car _%e173932173965%_)))) + (##car _%e174917174950%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173933173968%_)) - (let ((_%e173935173973%_ + (gx#stx-pair? _%hd174918174953%_)) + (let ((_%e174920174958%_ (let () (declare (not safe)) - (gx#stx-e _%hd173933173968%_)))) - (let ((_%tl173937173978%_ + (gx#stx-e _%hd174918174953%_)))) + (let ((_%tl174922174963%_ (let () (declare (not safe)) - (##cdr _%e173935173973%_))) - (_%hd173936173976%_ + (##cdr _%e174920174958%_))) + (_%hd174921174961%_ (let () (declare (not safe)) - (##car _%e173935173973%_)))) + (##car _%e174920174958%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173937173978%_)) + _%tl174922174963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173934173970%_)) - (let ((_%e173938173981%_ + _%tl174919174955%_)) + (let ((_%e174923174966%_ (let () (declare (not safe)) (gx#stx-e - _%tl173934173970%_)))) - (let ((_%tl173940173986%_ + _%tl174919174955%_)))) + (let ((_%tl174925174971%_ (let () (declare (not safe)) - (##cdr _%e173938173981%_))) - (_%hd173939173984%_ + (##cdr _%e174923174966%_))) + (_%hd174924174969%_ (let () (declare (not safe)) - (##car _%e173938173981%_)))) + (##car _%e174923174966%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173940173986%_)) - (_%__match177032177033%_ - _%e173929173957%_ - _%hd173930173960%_ - _%tl173931173962%_ - _%e173932173965%_ - _%hd173933173968%_ - _%tl173934173970%_ - _%e173935173973%_ - _%hd173936173976%_ - _%tl173937173978%_ - _%e173938173981%_ - _%hd173939173984%_ - _%tl173940173986%_) - (_%__kont177003177004%_)))) - (_%__kont177003177004%_)) - (_%__kont177003177004%_)))) - (_%__kont177003177004%_)))) - (_%__kont177003177004%_)))) - (_%__kont177003177004%_)))))))) + _%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 (_%self173769%_ _%stx173770%_) - (let* ((_%__stx177035177036%_ _%stx173770%_) - (_%g173773173806%_ + (lambda (_%self174754%_ _%stx174755%_) + (let* ((_%__stx178020178021%_ _%stx174755%_) + (_%g174758174791%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177035177036%_))))) - (let ((_%__kont177037177038%_ (lambda (_%L173896%_) _%L173896%_)) - (_%__kont177039177040%_ - (lambda (_%L173835%_ _%L173836%_) + _%__stx178020178021%_))))) + (let ((_%__kont178022178023%_ (lambda (_%L174881%_) _%L174881%_)) + (_%__kont178024178025%_ + (lambda (_%L174820%_ _%L174821%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173769%_ _%L173835%_))))) + (gxc#compile-e__1 _%self174754%_ _%L174820%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177035177036%_)) - (let ((_%e173776173856%_ + (gx#stx-pair? _%__stx178020178021%_)) + (let ((_%e174761174841%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177035177036%_)))) - (let ((_%tl173778173861%_ + (gx#stx-e _%__stx178020178021%_)))) + (let ((_%tl174763174846%_ (let () (declare (not safe)) - (##cdr _%e173776173856%_))) - (_%hd173777173859%_ + (##cdr _%e174761174841%_))) + (_%hd174762174844%_ (let () (declare (not safe)) - (##car _%e173776173856%_)))) + (##car _%e174761174841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173778173861%_)) - (let ((_%e173779173864%_ + (gx#stx-pair? _%tl174763174846%_)) + (let ((_%e174764174849%_ (let () (declare (not safe)) - (gx#stx-e _%tl173778173861%_)))) - (let ((_%tl173781173869%_ + (gx#stx-e _%tl174763174846%_)))) + (let ((_%tl174766174854%_ (let () (declare (not safe)) - (##cdr _%e173779173864%_))) - (_%hd173780173867%_ + (##cdr _%e174764174849%_))) + (_%hd174765174852%_ (let () (declare (not safe)) - (##car _%e173779173864%_)))) + (##car _%e174764174849%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173780173867%_)) - (let ((_%e173782173872%_ + (gx#stx-pair? _%hd174765174852%_)) + (let ((_%e174767174857%_ (let () (declare (not safe)) - (gx#stx-e _%hd173780173867%_)))) - (let ((_%tl173784173877%_ + (gx#stx-e _%hd174765174852%_)))) + (let ((_%tl174769174862%_ (let () (declare (not safe)) - (##cdr _%e173782173872%_))) - (_%hd173783173875%_ + (##cdr _%e174767174857%_))) + (_%hd174768174860%_ (let () (declare (not safe)) - (##car _%e173782173872%_)))) + (##car _%e174767174857%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173783173875%_)) + (gx#identifier? _%hd174768174860%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd173783173875%_)) + _%hd174768174860%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173784173877%_)) - (let ((_%e173785173880%_ + _%tl174769174862%_)) + (let ((_%e174770174865%_ (let () (declare (not safe)) (gx#stx-e - _%tl173784173877%_)))) - (let ((_%tl173787173885%_ + _%tl174769174862%_)))) + (let ((_%tl174772174870%_ (let () (declare (not safe)) - (##cdr _%e173785173880%_))) - (_%hd173786173883%_ + (##cdr _%e174770174865%_))) + (_%hd174771174868%_ (let () (declare (not safe)) - (##car _%e173785173880%_)))) + (##car _%e174770174865%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173787173885%_)) + _%tl174772174870%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173781173869%_)) - (let ((_%e173788173888%_ + _%tl174766174854%_)) + (let ((_%e174773174873%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173781173869%_)))) - (let ((_%tl173790173893%_ + (gx#stx-e _%tl174766174854%_)))) + (let ((_%tl174775174878%_ (let () (declare (not safe)) - (##cdr _%e173788173888%_))) - (_%hd173789173891%_ + (##cdr _%e174773174873%_))) + (_%hd174774174876%_ (let () (declare (not safe)) - (##car _%e173788173888%_)))) + (##car _%e174773174873%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173790173893%_)) - (_%__kont177037177038%_ _%hd173786173883%_) + (gx#stx-null? _%tl174775174878%_)) + (_%__kont178022178023%_ _%hd174771174868%_) (let () (declare (not safe)) - (_%g173773173806%_))))) - (let () (declare (not safe)) (_%g173773173806%_))) + (_%g174758174791%_))))) + (let () (declare (not safe)) (_%g174758174791%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173781173869%_)) - (let ((_%e173799173827%_ + (gx#stx-pair? _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) - (gx#stx-e _%tl173781173869%_)))) - (let ((_%tl173801173832%_ + (gx#stx-e _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173799173827%_))) - (_%hd173800173830%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173799173827%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173801173832%_)) - (_%__kont177039177040%_ - _%hd173800173830%_ - _%hd173780173867%_) + (gx#stx-null? _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173773173806%_))))) - (let () (declare (not safe)) (_%g173773173806%_)))))) + (_%g174758174791%_))))) + (let () (declare (not safe)) (_%g174758174791%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173781173869%_)) - (let ((_%e173799173827%_ + _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) (gx#stx-e - _%tl173781173869%_)))) - (let ((_%tl173801173832%_ + _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e173799173827%_))) - (_%hd173800173830%_ - (let () (declare (not safe)) (##car _%e173799173827%_)))) + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ + (let () (declare (not safe)) (##car _%e174784174812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173801173832%_)) - (_%__kont177039177040%_ - _%hd173800173830%_ - _%hd173780173867%_) - (let () (declare (not safe)) (_%g173773173806%_))))) + (gx#stx-null? _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) + (let () (declare (not safe)) (_%g174758174791%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173773173806%_)))) + (_%g174758174791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173781173869%_)) - (let ((_%e173799173827%_ + _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) (gx#stx-e - _%tl173781173869%_)))) - (let ((_%tl173801173832%_ + _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173799173827%_))) - (_%hd173800173830%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173799173827%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173801173832%_)) - (_%__kont177039177040%_ - _%hd173800173830%_ - _%hd173780173867%_) + _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173773173806%_))))) + (_%g174758174791%_))))) (let () (declare (not safe)) - (_%g173773173806%_)))) + (_%g174758174791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173781173869%_)) - (let ((_%e173799173827%_ + _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) (gx#stx-e - _%tl173781173869%_)))) - (let ((_%tl173801173832%_ + _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173799173827%_))) - (_%hd173800173830%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173799173827%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173801173832%_)) - (_%__kont177039177040%_ - _%hd173800173830%_ - _%hd173780173867%_) + _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173773173806%_))))) + (_%g174758174791%_))))) (let () (declare (not safe)) - (_%g173773173806%_)))))) + (_%g174758174791%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173781173869%_)) - (let ((_%e173799173827%_ + (gx#stx-pair? _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) - (gx#stx-e _%tl173781173869%_)))) - (let ((_%tl173801173832%_ + (gx#stx-e _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173799173827%_))) - (_%hd173800173830%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173799173827%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173801173832%_)) - (_%__kont177039177040%_ - _%hd173800173830%_ - _%hd173780173867%_) + _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173773173806%_))))) + (_%g174758174791%_))))) (let () (declare (not safe)) - (_%g173773173806%_)))))) - (let () (declare (not safe)) (_%g173773173806%_))))) - (let () (declare (not safe)) (_%g173773173806%_))))))) + (_%g174758174791%_)))))) + (let () (declare (not safe)) (_%g174758174791%_))))) + (let () (declare (not safe)) (_%g174758174791%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self173685%_ _%stx173686%_) - (let* ((_%g173688173709%_ - (lambda (_%g173689173706%_) + (lambda (_%self174670%_ _%stx174671%_) + (let* ((_%g174673174694%_ + (lambda (_%g174674174691%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173689173706%_)))) - (_%g173687173766%_ - (lambda (_%g173689173712%_) + _%g174674174691%_)))) + (_%g174672174751%_ + (lambda (_%g174674174697%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173689173712%_)) - (let ((_%e173693173714%_ + (gx#stx-pair? _%g174674174697%_)) + (let ((_%e174678174699%_ (let () (declare (not safe)) - (gx#stx-e _%g173689173712%_)))) - (let ((_%hd173694173717%_ + (gx#stx-e _%g174674174697%_)))) + (let ((_%hd174679174702%_ (let () (declare (not safe)) - (##car _%e173693173714%_))) - (_%tl173695173719%_ + (##car _%e174678174699%_))) + (_%tl174680174704%_ (let () (declare (not safe)) - (##cdr _%e173693173714%_)))) + (##cdr _%e174678174699%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173695173719%_)) - (let ((_%e173696173722%_ + (gx#stx-pair? _%tl174680174704%_)) + (let ((_%e174681174707%_ (let () (declare (not safe)) - (gx#stx-e _%tl173695173719%_)))) - (let ((_%hd173697173725%_ + (gx#stx-e _%tl174680174704%_)))) + (let ((_%hd174682174710%_ (let () (declare (not safe)) - (##car _%e173696173722%_))) - (_%tl173698173727%_ + (##car _%e174681174707%_))) + (_%tl174683174712%_ (let () (declare (not safe)) - (##cdr _%e173696173722%_)))) + (##cdr _%e174681174707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173698173727%_)) - (let ((_%e173699173730%_ + (gx#stx-pair? _%tl174683174712%_)) + (let ((_%e174684174715%_ (let () (declare (not safe)) - (gx#stx-e _%tl173698173727%_)))) - (let ((_%hd173700173733%_ + (gx#stx-e _%tl174683174712%_)))) + (let ((_%hd174685174718%_ (let () (declare (not safe)) - (##car _%e173699173730%_))) - (_%tl173701173735%_ + (##car _%e174684174715%_))) + (_%tl174686174720%_ (let () (declare (not safe)) - (##cdr _%e173699173730%_)))) + (##cdr _%e174684174715%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173701173735%_)) - (let ((_%e173702173738%_ + _%tl174686174720%_)) + (let ((_%e174687174723%_ (let () (declare (not safe)) (gx#stx-e - _%tl173701173735%_)))) - (let ((_%hd173703173741%_ + _%tl174686174720%_)))) + (let ((_%hd174688174726%_ (let () (declare (not safe)) - (##car _%e173702173738%_))) - (_%tl173704173743%_ + (##car _%e174687174723%_))) + (_%tl174689174728%_ (let () (declare (not safe)) - (##cdr _%e173702173738%_)))) + (##cdr _%e174687174723%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173704173743%_)) - ((lambda (_%L173746%_ - _%L173747%_ - _%L173748%_) + _%tl174689174728%_)) + ((lambda (_%L174731%_ + _%L174732%_ + _%L174733%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self173685%_ - _%L173747%_))) - _%hd173703173741%_ - _%hd173700173733%_ - _%hd173697173725%_) - (_%g173688173709%_ - _%g173689173712%_)))) - (_%g173688173709%_ - _%g173689173712%_)))) - (_%g173688173709%_ _%g173689173712%_)))) - (_%g173688173709%_ _%g173689173712%_)))) - (_%g173688173709%_ _%g173689173712%_))))) - (_%g173687173766%_ _%stx173686%_)))) + _%self174670%_ + _%L174732%_))) + _%hd174688174726%_ + _%hd174685174718%_ + _%hd174682174710%_) + (_%g174673174694%_ + _%g174674174697%_)))) + (_%g174673174694%_ + _%g174674174697%_)))) + (_%g174673174694%_ _%g174674174697%_)))) + (_%g174673174694%_ _%g174674174697%_)))) + (_%g174673174694%_ _%g174674174697%_))))) + (_%g174672174751%_ _%stx174671%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self172646%_ _%stx172647%_) - (let* ((_%__stx177101177102%_ _%stx172647%_) - (_%g172655172877%_ + (lambda (_%self173631%_ _%stx173632%_) + (let* ((_%__stx178086178087%_ _%stx173632%_) + (_%g173640173862%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177101177102%_))))) - (let ((_%__kont177103177104%_ - (lambda (_%L173634%_ _%L173635%_ _%L173636%_ _%L173637%_) - (let ((__tmp178207 + _%__stx178086178087%_))))) + (let ((_%__kont178088178089%_ + (lambda (_%L174619%_ _%L174620%_ _%L174621%_ _%L174622%_) + (let ((__tmp179192 (let () (declare (not safe)) - (slot-ref__0 _%self172646%_ 'methods))) - (__tmp178206 + (slot-ref__0 _%self173631%_ 'methods))) + (__tmp179191 (let () (declare (not safe)) - (gx#stx-e _%L173635%_)))) + (gx#stx-e _%L174620%_)))) (declare (not safe)) - (hash-put! __tmp178207 __tmp178206 '#t)) + (hash-put! __tmp179192 __tmp179191 '#t)) (for-each - (lambda (_%g173670173672%_) + (lambda (_%g174655174657%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172646%_ _%g173670173672%_))) - (let ((__tmp178208 - (lambda (_%g173674173677%_ _%g173675173679%_) - (cons _%g173674173677%_ _%g173675173679%_)))) + (gxc#compile-e__1 _%self173631%_ _%g174655174657%_))) + (let ((__tmp179193 + (lambda (_%g174659174662%_ _%g174660174664%_) + (cons _%g174659174662%_ _%g174660174664%_)))) (declare (not safe)) - (__foldr1 __tmp178208 '() _%L173634%_))))) - (_%__kont177107177108%_ - (lambda (_%L173469%_ - _%L173470%_ - _%L173471%_ - _%L173472%_ - _%L173473%_) - (let ((__tmp178210 + (__foldr1 __tmp179193 '() _%L174619%_))))) + (_%__kont178092178093%_ + (lambda (_%L174454%_ + _%L174455%_ + _%L174456%_ + _%L174457%_ + _%L174458%_) + (let ((__tmp179195 (let () (declare (not safe)) - (slot-ref__0 _%self172646%_ 'methods))) - (__tmp178209 + (slot-ref__0 _%self173631%_ 'methods))) + (__tmp179194 (let () (declare (not safe)) - (gx#stx-e _%L173470%_)))) + (gx#stx-e _%L174455%_)))) (declare (not safe)) - (hash-put! __tmp178210 __tmp178209 '#t)) + (hash-put! __tmp179195 __tmp179194 '#t)) (for-each - (lambda (_%g173513173515%_) + (lambda (_%g174498174500%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172646%_ _%g173513173515%_))) - (let ((__tmp178211 - (lambda (_%g173517173520%_ _%g173518173522%_) - (cons _%g173517173520%_ _%g173518173522%_)))) + (gxc#compile-e__1 _%self173631%_ _%g174498174500%_))) + (let ((__tmp179196 + (lambda (_%g174502174505%_ _%g174503174507%_) + (cons _%g174502174505%_ _%g174503174507%_)))) (declare (not safe)) - (__foldr1 __tmp178211 '() _%L173469%_))))) - (_%__kont177111177112%_ - (lambda (_%L173302%_ _%L173303%_ _%L173304%_) - (let ((__tmp178213 + (__foldr1 __tmp179196 '() _%L174454%_))))) + (_%__kont178096178097%_ + (lambda (_%L174287%_ _%L174288%_ _%L174289%_) + (let ((__tmp179198 (let () (declare (not safe)) - (slot-ref__0 _%self172646%_ 'slots))) - (__tmp178212 + (slot-ref__0 _%self173631%_ 'slots))) + (__tmp179197 (let () (declare (not safe)) - (gx#stx-e _%L173302%_)))) + (gx#stx-e _%L174287%_)))) (declare (not safe)) - (hash-put! __tmp178213 __tmp178212 '#t)))) - (_%__kont177113177114%_ - (lambda (_%L173179%_ _%L173180%_ _%L173181%_ _%L173182%_) - (let ((__tmp178215 + (hash-put! __tmp179198 __tmp179197 '#t)))) + (_%__kont178098178099%_ + (lambda (_%L174164%_ _%L174165%_ _%L174166%_ _%L174167%_) + (let ((__tmp179200 (let () (declare (not safe)) - (slot-ref__0 _%self172646%_ 'slots))) - (__tmp178214 + (slot-ref__0 _%self173631%_ 'slots))) + (__tmp179199 (let () (declare (not safe)) - (gx#stx-e _%L173180%_)))) + (gx#stx-e _%L174165%_)))) (declare (not safe)) - (hash-put! __tmp178215 __tmp178214 '#t)) + (hash-put! __tmp179200 __tmp179199 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172646%_ _%L173179%_)))) - (_%__kont177115177116%_ - (lambda (_%L173053%_ _%L173054%_) - (let* ((_%accessor173076%_ - (let ((__tmp178216 + (gxc#compile-e__1 _%self173631%_ _%L174164%_)))) + (_%__kont178100178101%_ + (lambda (_%L174038%_ _%L174039%_) + (let* ((_%accessor174061%_ + (let ((__tmp179201 (let () (declare (not safe)) - (gxc#identifier-symbol _%L173054%_)))) + (gxc#identifier-symbol _%L174039%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178216))) - (_%klass173078%_ - (let ((__tmp178217 + (gxc#optimizer-resolve-type __tmp179201))) + (_%klass174063%_ + (let ((__tmp179202 (##structure-ref - _%accessor173076%_ + _%accessor174061%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172647%_ - __tmp178217))) - (_%slot173080%_ + _%stx173632%_ + __tmp179202))) + (_%slot174065%_ (##structure-ref - _%accessor173076%_ + _%accessor174061%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor173076%_ + _%accessor174061%_ '4 gxc#!accessor::t '#f) @@ -4837,56 +4837,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass173078%_ - _%slot173080%_)) + _%klass174063%_ + _%slot174065%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass173078%_ + _%klass174063%_ '8 '#f '#f)))) '#!void - (let ((__tmp178219 + (let ((__tmp179204 (let () (declare (not safe)) - (slot-ref__0 _%self172646%_ 'slots))) - (__tmp178218 + (slot-ref__0 _%self173631%_ 'slots))) + (__tmp179203 (##structure-ref - _%accessor173076%_ + _%accessor174061%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp178219 __tmp178218 '#t)))))) - (_%__kont177117177118%_ - (lambda (_%L172953%_ _%L172954%_ _%L172955%_) - (let* ((_%mutator172982%_ - (let ((__tmp178220 + (hash-put! __tmp179204 __tmp179203 '#t)))))) + (_%__kont178102178103%_ + (lambda (_%L173938%_ _%L173939%_ _%L173940%_) + (let* ((_%mutator173967%_ + (let ((__tmp179205 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172955%_)))) + (gxc#identifier-symbol _%L173940%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178220))) - (_%klass172984%_ - (let ((__tmp178221 + (gxc#optimizer-resolve-type __tmp179205))) + (_%klass173969%_ + (let ((__tmp179206 (##structure-ref - _%mutator172982%_ + _%mutator173967%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172647%_ - __tmp178221))) - (_%slot172986%_ + _%stx173632%_ + __tmp179206))) + (_%slot173971%_ (##structure-ref - _%mutator172982%_ + _%mutator173967%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator172982%_ + _%mutator173967%_ '4 gxc#!mutator::t '#f) @@ -4894,2064 +4894,2064 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172984%_ - _%slot172986%_)) + _%klass173969%_ + _%slot173971%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172984%_ + _%klass173969%_ '8 '#f '#f)))) '#!void - (let ((__tmp178222 + (let ((__tmp179207 (let () (declare (not safe)) - (slot-ref__0 _%self172646%_ 'slots)))) + (slot-ref__0 _%self173631%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp178222 _%slot172986%_ '#t))) + (hash-put! __tmp179207 _%slot173971%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172646%_ _%L172953%_))))) - (_%__kont177119177120%_ + (gxc#compile-e__1 _%self173631%_ _%L173938%_))))) + (_%__kont178104178105%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self172646%_ _%stx172647%_))))) - (let* ((_%__match177600177601%_ - (lambda (_%e172849172889%_ - _%hd172850172892%_ - _%tl172851172894%_ - _%e172852172897%_ - _%hd172853172900%_ - _%tl172854172902%_ - _%e172855172905%_ - _%hd172856172908%_ - _%tl172857172910%_ - _%e172858172913%_ - _%hd172859172916%_ - _%tl172860172918%_ - _%e172861172921%_ - _%hd172862172924%_ - _%tl172863172926%_ - _%e172864172929%_ - _%hd172865172932%_ - _%tl172866172934%_ - _%e172867172937%_ - _%hd172868172940%_ - _%tl172869172942%_ - _%e172870172945%_ - _%hd172871172948%_ - _%tl172872172950%_) - (let ((_%L172953%_ _%hd172871172948%_) - (_%L172954%_ _%hd172868172940%_) - (_%L172955%_ _%hd172859172916%_)) - (if (and (let ((__tmp178223 - (let ((__tmp178224 + (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 - _%L172955%_)))) + _%L173940%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178224)))) + __tmp179209)))) (declare (not safe)) (##structure-instance-of? - __tmp178223 + __tmp179208 'gxc#!mutator::t)) - (let ((__tmp178225 + (let ((__tmp179210 (let () (declare (not safe)) (slot-ref__0 - _%self172646%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172954%_ - __tmp178225))) - (_%__kont177117177118%_ - _%L172953%_ - _%L172954%_ - _%L172955%_) - (_%__kont177119177120%_))))) - (_%__match177598177599%_ - (lambda (_%e172849172889%_ - _%hd172850172892%_ - _%tl172851172894%_ - _%e172852172897%_ - _%hd172853172900%_ - _%tl172854172902%_ - _%e172855172905%_ - _%hd172856172908%_ - _%tl172857172910%_ - _%e172858172913%_ - _%hd172859172916%_ - _%tl172860172918%_ - _%e172861172921%_ - _%hd172862172924%_ - _%tl172863172926%_ - _%e172864172929%_ - _%hd172865172932%_ - _%tl172866172934%_ - _%e172867172937%_ - _%hd172868172940%_ - _%tl172869172942%_ - _%e172870172945%_ - _%hd172871172948%_ - _%tl172872172950%_) + _%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? _%tl172872172950%_)) - (_%__match177600177601%_ - _%e172849172889%_ - _%hd172850172892%_ - _%tl172851172894%_ - _%e172852172897%_ - _%hd172853172900%_ - _%tl172854172902%_ - _%e172855172905%_ - _%hd172856172908%_ - _%tl172857172910%_ - _%e172858172913%_ - _%hd172859172916%_ - _%tl172860172918%_ - _%e172861172921%_ - _%hd172862172924%_ - _%tl172863172926%_ - _%e172864172929%_ - _%hd172865172932%_ - _%tl172866172934%_ - _%e172867172937%_ - _%hd172868172940%_ - _%tl172869172942%_ - _%e172870172945%_ - _%hd172871172948%_ - _%tl172872172950%_) - (_%__kont177119177120%_)))) - (_%__match177592177593%_ - (lambda (_%e172849172889%_ - _%hd172850172892%_ - _%tl172851172894%_ - _%e172852172897%_ - _%hd172853172900%_ - _%tl172854172902%_ - _%e172855172905%_ - _%hd172856172908%_ - _%tl172857172910%_ - _%e172858172913%_ - _%hd172859172916%_ - _%tl172860172918%_ - _%e172861172921%_ - _%hd172862172924%_ - _%tl172863172926%_ - _%e172864172929%_ - _%hd172865172932%_ - _%tl172866172934%_ - _%e172867172937%_ - _%hd172868172940%_ - _%tl172869172942%_) + (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? _%tl172863172926%_)) - (let ((_%e172870172945%_ + (gx#stx-pair? _%tl173848173911%_)) + (let ((_%e173855173930%_ (let () (declare (not safe)) - (gx#stx-e _%tl172863172926%_)))) - (let ((_%tl172872172950%_ + (gx#stx-e _%tl173848173911%_)))) + (let ((_%tl173857173935%_ (let () (declare (not safe)) - (##cdr _%e172870172945%_))) - (_%hd172871172948%_ + (##cdr _%e173855173930%_))) + (_%hd173856173933%_ (let () (declare (not safe)) - (##car _%e172870172945%_)))) + (##car _%e173855173930%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172872172950%_)) - (_%__match177600177601%_ - _%e172849172889%_ - _%hd172850172892%_ - _%tl172851172894%_ - _%e172852172897%_ - _%hd172853172900%_ - _%tl172854172902%_ - _%e172855172905%_ - _%hd172856172908%_ - _%tl172857172910%_ - _%e172858172913%_ - _%hd172859172916%_ - _%tl172860172918%_ - _%e172861172921%_ - _%hd172862172924%_ - _%tl172863172926%_ - _%e172864172929%_ - _%hd172865172932%_ - _%tl172866172934%_ - _%e172867172937%_ - _%hd172868172940%_ - _%tl172869172942%_ - _%e172870172945%_ - _%hd172871172948%_ - _%tl172872172950%_) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_)))) - (_%__match177538177539%_ - (lambda (_%e172825172997%_ - _%hd172826173000%_ - _%tl172827173002%_ - _%e172828173005%_ - _%hd172829173008%_ - _%tl172830173010%_ - _%e172831173013%_ - _%hd172832173016%_ - _%tl172833173018%_ - _%e172834173021%_ - _%hd172835173024%_ - _%tl172836173026%_ - _%e172837173029%_ - _%hd172838173032%_ - _%tl172839173034%_ - _%e172840173037%_ - _%hd172841173040%_ - _%tl172842173042%_ - _%e172843173045%_ - _%hd172844173048%_ - _%tl172845173050%_) - (let ((_%L173053%_ _%hd172844173048%_) - (_%L173054%_ _%hd172835173024%_)) - (if (and (let ((__tmp178226 - (let ((__tmp178227 + (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 - _%L173054%_)))) + _%L174039%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178227)))) + __tmp179212)))) (declare (not safe)) (##structure-instance-of? - __tmp178226 + __tmp179211 'gxc#!accessor::t)) - (let ((__tmp178228 + (let ((__tmp179213 (let () (declare (not safe)) (slot-ref__0 - _%self172646%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173053%_ - __tmp178228))) - (_%__kont177115177116%_ _%L173053%_ _%L173054%_) - (_%__kont177119177120%_))))) - (_%__match177536177537%_ - (lambda (_%e172825172997%_ - _%hd172826173000%_ - _%tl172827173002%_ - _%e172828173005%_ - _%hd172829173008%_ - _%tl172830173010%_ - _%e172831173013%_ - _%hd172832173016%_ - _%tl172833173018%_ - _%e172834173021%_ - _%hd172835173024%_ - _%tl172836173026%_ - _%e172837173029%_ - _%hd172838173032%_ - _%tl172839173034%_ - _%e172840173037%_ - _%hd172841173040%_ - _%tl172842173042%_ - _%e172843173045%_ - _%hd172844173048%_ - _%tl172845173050%_) + _%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? _%tl172839173034%_)) - (_%__match177538177539%_ - _%e172825172997%_ - _%hd172826173000%_ - _%tl172827173002%_ - _%e172828173005%_ - _%hd172829173008%_ - _%tl172830173010%_ - _%e172831173013%_ - _%hd172832173016%_ - _%tl172833173018%_ - _%e172834173021%_ - _%hd172835173024%_ - _%tl172836173026%_ - _%e172837173029%_ - _%hd172838173032%_ - _%tl172839173034%_ - _%e172840173037%_ - _%hd172841173040%_ - _%tl172842173042%_ - _%e172843173045%_ - _%hd172844173048%_ - _%tl172845173050%_) - (_%__match177592177593%_ - _%e172825172997%_ - _%hd172826173000%_ - _%tl172827173002%_ - _%e172828173005%_ - _%hd172829173008%_ - _%tl172830173010%_ - _%e172831173013%_ - _%hd172832173016%_ - _%tl172833173018%_ - _%e172834173021%_ - _%hd172835173024%_ - _%tl172836173026%_ - _%e172837173029%_ - _%hd172838173032%_ - _%tl172839173034%_ - _%e172840173037%_ - _%hd172841173040%_ - _%tl172842173042%_ - _%e172843173045%_ - _%hd172844173048%_ - _%tl172845173050%_)))) - (_%__match177482177483%_ - (lambda (_%e172790173091%_ - _%hd172791173094%_ - _%tl172792173096%_ - _%e172793173099%_ - _%hd172794173102%_ - _%tl172795173104%_ - _%e172796173107%_ - _%hd172797173110%_ - _%tl172798173112%_ - _%e172799173115%_ - _%hd172800173118%_ - _%tl172801173120%_ - _%e172802173123%_ - _%hd172803173126%_ - _%tl172804173128%_ - _%e172805173131%_ - _%hd172806173134%_ - _%tl172807173136%_ - _%e172808173139%_ - _%hd172809173142%_ - _%tl172810173144%_ - _%e172811173147%_ - _%hd172812173150%_ - _%tl172813173152%_ - _%e172814173155%_ - _%hd172815173158%_ - _%tl172816173160%_ - _%e172817173163%_ - _%hd172818173166%_ - _%tl172819173168%_ - _%e172820173171%_ - _%hd172821173174%_ - _%tl172822173176%_) - (let ((_%L173179%_ _%hd172821173174%_) - (_%L173180%_ _%hd172818173166%_) - (_%L173181%_ _%hd172809173142%_) - (_%L173182%_ _%hd172800173118%_)) + (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=? - _%L173182%_ + _%L174167%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173182%_ + _%L174167%_ 'unchecked-slot-set!))) - (let ((__tmp178229 + (let ((__tmp179214 (let () (declare (not safe)) (slot-ref__0 - _%self172646%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173181%_ - __tmp178229))) - (_%__kont177113177114%_ - _%L173179%_ - _%L173180%_ - _%L173181%_ - _%L173182%_) - (_%__kont177119177120%_))))) - (_%__match177474177475%_ - (lambda (_%e172790173091%_ - _%hd172791173094%_ - _%tl172792173096%_ - _%e172793173099%_ - _%hd172794173102%_ - _%tl172795173104%_ - _%e172796173107%_ - _%hd172797173110%_ - _%tl172798173112%_ - _%e172799173115%_ - _%hd172800173118%_ - _%tl172801173120%_ - _%e172802173123%_ - _%hd172803173126%_ - _%tl172804173128%_ - _%e172805173131%_ - _%hd172806173134%_ - _%tl172807173136%_ - _%e172808173139%_ - _%hd172809173142%_ - _%tl172810173144%_ - _%e172811173147%_ - _%hd172812173150%_ - _%tl172813173152%_ - _%e172814173155%_ - _%hd172815173158%_ - _%tl172816173160%_ - _%e172817173163%_ - _%hd172818173166%_ - _%tl172819173168%_) + _%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? _%tl172813173152%_)) - (let ((_%e172820173171%_ + (gx#stx-pair? _%tl173798174137%_)) + (let ((_%e173805174156%_ (let () (declare (not safe)) - (gx#stx-e _%tl172813173152%_)))) - (let ((_%tl172822173176%_ + (gx#stx-e _%tl173798174137%_)))) + (let ((_%tl173807174161%_ (let () (declare (not safe)) - (##cdr _%e172820173171%_))) - (_%hd172821173174%_ + (##cdr _%e173805174156%_))) + (_%hd173806174159%_ (let () (declare (not safe)) - (##car _%e172820173171%_)))) + (##car _%e173805174156%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172822173176%_)) - (_%__match177482177483%_ - _%e172790173091%_ - _%hd172791173094%_ - _%tl172792173096%_ - _%e172793173099%_ - _%hd172794173102%_ - _%tl172795173104%_ - _%e172796173107%_ - _%hd172797173110%_ - _%tl172798173112%_ - _%e172799173115%_ - _%hd172800173118%_ - _%tl172801173120%_ - _%e172802173123%_ - _%hd172803173126%_ - _%tl172804173128%_ - _%e172805173131%_ - _%hd172806173134%_ - _%tl172807173136%_ - _%e172808173139%_ - _%hd172809173142%_ - _%tl172810173144%_ - _%e172811173147%_ - _%hd172812173150%_ - _%tl172813173152%_ - _%e172814173155%_ - _%hd172815173158%_ - _%tl172816173160%_ - _%e172817173163%_ - _%hd172818173166%_ - _%tl172819173168%_ - _%e172820173171%_ - _%hd172821173174%_ - _%tl172822173176%_) - (_%__kont177119177120%_)))) - (_%__match177598177599%_ - _%e172790173091%_ - _%hd172791173094%_ - _%tl172792173096%_ - _%e172793173099%_ - _%hd172794173102%_ - _%tl172795173104%_ - _%e172796173107%_ - _%hd172797173110%_ - _%tl172798173112%_ - _%e172799173115%_ - _%hd172800173118%_ - _%tl172801173120%_ - _%e172802173123%_ - _%hd172803173126%_ - _%tl172804173128%_ - _%e172805173131%_ - _%hd172806173134%_ - _%tl172807173136%_ - _%e172808173139%_ - _%hd172809173142%_ - _%tl172810173144%_ - _%e172811173147%_ - _%hd172812173150%_ - _%tl172813173152%_)))) - (_%__match177396177397%_ - (lambda (_%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_ - _%e172780173286%_ - _%hd172781173289%_ - _%tl172782173291%_ - _%e172783173294%_ - _%hd172784173297%_ - _%tl172785173299%_) - (let ((_%L173302%_ _%hd172784173297%_) - (_%L173303%_ _%hd172775173273%_) - (_%L173304%_ _%hd172766173249%_)) + (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=? - _%L173304%_ + _%L174289%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173304%_ + _%L174289%_ 'unchecked-slot-ref))) - (let ((__tmp178230 + (let ((__tmp179215 (let () (declare (not safe)) (slot-ref__0 - _%self172646%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173303%_ - __tmp178230))) - (_%__kont177111177112%_ - _%L173302%_ - _%L173303%_ - _%L173304%_) - (_%__match177600177601%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_))))) - (_%__match177394177395%_ - (lambda (_%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_ - _%e172780173286%_ - _%hd172781173289%_ - _%tl172782173291%_ - _%e172783173294%_ - _%hd172784173297%_ - _%tl172785173299%_) + _%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? _%tl172779173283%_)) - (_%__match177396177397%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_ - _%e172780173286%_ - _%hd172781173289%_ - _%tl172782173291%_ - _%e172783173294%_ - _%hd172784173297%_ - _%tl172785173299%_) - (_%__match177474177475%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_ - _%e172780173286%_ - _%hd172781173289%_ - _%tl172782173291%_ - _%e172783173294%_ - _%hd172784173297%_ - _%tl172785173299%_)))) - (_%__match177384177385%_ - (lambda (_%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_ - _%e172780173286%_ - _%hd172781173289%_ - _%tl172782173291%_) + (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 _%hd172781173289%_)) + (gx#stx-eq? '%#quote _%hd173766174274%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172782173291%_)) - (let ((_%e172783173294%_ + (gx#stx-pair? _%tl173767174276%_)) + (let ((_%e173768174279%_ (let () (declare (not safe)) - (gx#stx-e _%tl172782173291%_)))) - (let ((_%tl172785173299%_ + (gx#stx-e _%tl173767174276%_)))) + (let ((_%tl173770174284%_ (let () (declare (not safe)) - (##cdr _%e172783173294%_))) - (_%hd172784173297%_ + (##cdr _%e173768174279%_))) + (_%hd173769174282%_ (let () (declare (not safe)) - (##car _%e172783173294%_)))) + (##car _%e173768174279%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172785173299%_)) + (gx#stx-null? _%tl173770174284%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172779173283%_)) - (_%__match177396177397%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_ - _%e172780173286%_ - _%hd172781173289%_ - _%tl172782173291%_ - _%e172783173294%_ - _%hd172784173297%_ - _%tl172785173299%_) - (_%__match177474177475%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_ - _%e172780173286%_ - _%hd172781173289%_ - _%tl172782173291%_ - _%e172783173294%_ - _%hd172784173297%_ - _%tl172785173299%_)) - (_%__match177598177599%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_)))) - (_%__match177598177599%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_)) - (_%__match177598177599%_ - _%e172756173222%_ - _%hd172757173225%_ - _%tl172758173227%_ - _%e172759173230%_ - _%hd172760173233%_ - _%tl172761173235%_ - _%e172762173238%_ - _%hd172763173241%_ - _%tl172764173243%_ - _%e172765173246%_ - _%hd172766173249%_ - _%tl172767173251%_ - _%e172768173254%_ - _%hd172769173257%_ - _%tl172770173259%_ - _%e172771173262%_ - _%hd172772173265%_ - _%tl172773173267%_ - _%e172774173270%_ - _%hd172775173273%_ - _%tl172776173275%_ - _%e172777173278%_ - _%hd172778173281%_ - _%tl172779173283%_)))) - (_%__match177316177317%_ - (lambda (_%e172705173341%_ - _%hd172706173344%_ - _%tl172707173346%_ - _%e172708173349%_ - _%hd172709173352%_ - _%tl172710173354%_ - _%e172711173357%_ - _%hd172712173360%_ - _%tl172713173362%_ - _%e172714173365%_ - _%hd172715173368%_ - _%tl172716173370%_ - _%e172717173373%_ - _%hd172718173376%_ - _%tl172719173378%_ - _%e172720173381%_ - _%hd172721173384%_ - _%tl172722173386%_ - _%e172723173389%_ - _%hd172724173392%_ - _%tl172725173394%_ - _%e172726173397%_ - _%hd172727173400%_ - _%tl172728173402%_ - _%e172729173405%_ - _%hd172730173408%_ - _%tl172731173410%_ - _%e172732173413%_ - _%hd172733173416%_ - _%tl172734173418%_ - _%e172735173421%_ - _%hd172736173424%_ - _%tl172737173426%_ - _%e172738173429%_ - _%hd172739173432%_ - _%tl172740173434%_ - _%e172741173437%_ - _%hd172742173440%_ - _%tl172743173442%_ - _%__splice177109177110%_ - _%target172744173445%_ - _%tl172746173447%_) - (letrec ((_%loop172747173450%_ - (lambda (_%hd172745173453%_ - _%args172751173455%_) + (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? _%hd172745173453%_)) - (let ((_%e172748173458%_ + (gx#stx-pair? _%hd173730174438%_)) + (let ((_%e173733174443%_ (let () (declare (not safe)) - (gx#stx-e _%hd172745173453%_)))) - (let ((_%lp-tl172750173463%_ + (gx#stx-e _%hd173730174438%_)))) + (let ((_%lp-tl173735174448%_ (let () (declare (not safe)) - (##cdr _%e172748173458%_))) - (_%lp-hd172749173461%_ + (##cdr _%e173733174443%_))) + (_%lp-hd173734174446%_ (let () (declare (not safe)) - (##car _%e172748173458%_)))) - (_%loop172747173450%_ - _%lp-tl172750173463%_ - (cons _%lp-hd172749173461%_ - _%args172751173455%_)))) - (let ((_%args172752173466%_ - (reverse _%args172751173455%_))) - (let ((_%L173469%_ - _%args172752173466%_) - (_%L173470%_ _%hd172742173440%_) - (_%L173471%_ _%hd172733173416%_) - (_%L173472%_ _%hd172724173392%_) - (_%L173473%_ _%hd172715173368%_)) + (##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=? - _%L173473%_ + _%L174458%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173472%_ + _%L174457%_ 'call-method)) - (let ((__tmp178231 + (let ((__tmp179216 (let () (declare (not safe)) (slot-ref__0 - _%self172646%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173471%_ - __tmp178231))) - (_%__kont177107177108%_ - _%L173469%_ - _%L173470%_ - _%L173471%_ - _%L173472%_ - _%L173473%_) - (_%__kont177119177120%_)))))))) - (_%loop172747173450%_ _%target172744173445%_ '())))) - (_%__match177274177275%_ - (lambda (_%e172705173341%_ - _%hd172706173344%_ - _%tl172707173346%_ - _%e172708173349%_ - _%hd172709173352%_ - _%tl172710173354%_ - _%e172711173357%_ - _%hd172712173360%_ - _%tl172713173362%_ - _%e172714173365%_ - _%hd172715173368%_ - _%tl172716173370%_ - _%e172717173373%_ - _%hd172718173376%_ - _%tl172719173378%_ - _%e172720173381%_ - _%hd172721173384%_ - _%tl172722173386%_ - _%e172723173389%_ - _%hd172724173392%_ - _%tl172725173394%_ - _%e172726173397%_ - _%hd172727173400%_ - _%tl172728173402%_ - _%e172729173405%_ - _%hd172730173408%_ - _%tl172731173410%_) + _%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 _%hd172730173408%_)) + (gx#stx-eq? '%#ref _%hd173715174393%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172731173410%_)) - (let ((_%e172732173413%_ + (gx#stx-pair? _%tl173716174395%_)) + (let ((_%e173717174398%_ (let () (declare (not safe)) - (gx#stx-e _%tl172731173410%_)))) - (let ((_%tl172734173418%_ + (gx#stx-e _%tl173716174395%_)))) + (let ((_%tl173719174403%_ (let () (declare (not safe)) - (##cdr _%e172732173413%_))) - (_%hd172733173416%_ + (##cdr _%e173717174398%_))) + (_%hd173718174401%_ (let () (declare (not safe)) - (##car _%e172732173413%_)))) + (##car _%e173717174398%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172734173418%_)) + (gx#stx-null? _%tl173719174403%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172728173402%_)) - (let ((_%e172735173421%_ + (gx#stx-pair? _%tl173713174387%_)) + (let ((_%e173720174406%_ (let () (declare (not safe)) (gx#stx-e - _%tl172728173402%_)))) - (let ((_%tl172737173426%_ + _%tl173713174387%_)))) + (let ((_%tl173722174411%_ (let () (declare (not safe)) - (##cdr _%e172735173421%_))) - (_%hd172736173424%_ + (##cdr _%e173720174406%_))) + (_%hd173721174409%_ (let () (declare (not safe)) - (##car _%e172735173421%_)))) + (##car _%e173720174406%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd172736173424%_)) - (let ((_%e172738173429%_ + _%hd173721174409%_)) + (let ((_%e173723174414%_ (let () (declare (not safe)) (gx#stx-e - _%hd172736173424%_)))) - (let ((_%tl172740173434%_ + _%hd173721174409%_)))) + (let ((_%tl173725174419%_ (let () (declare (not safe)) - (##cdr _%e172738173429%_))) - (_%hd172739173432%_ + (##cdr _%e173723174414%_))) + (_%hd173724174417%_ (let () (declare (not safe)) - (##car _%e172738173429%_)))) + (##car _%e173723174414%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172739173432%_)) + _%hd173724174417%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd172739173432%_)) + (gx#stx-eq? '%#quote _%hd173724174417%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172740173434%_)) - (let ((_%e172741173437%_ + (gx#stx-pair? _%tl173725174419%_)) + (let ((_%e173726174422%_ (let () (declare (not safe)) - (gx#stx-e _%tl172740173434%_)))) - (let ((_%tl172743173442%_ + (gx#stx-e _%tl173725174419%_)))) + (let ((_%tl173728174427%_ (let () (declare (not safe)) - (##cdr _%e172741173437%_))) - (_%hd172742173440%_ + (##cdr _%e173726174422%_))) + (_%hd173727174425%_ (let () (declare (not safe)) - (##car _%e172741173437%_)))) + (##car _%e173726174422%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172743173442%_)) + (gx#stx-null? _%tl173728174427%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl172737173426%_)) - (let ((_%__splice177109177110%_ + (gx#stx-pair/null? _%tl173722174411%_)) + (let ((_%__splice178094178095%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl172737173426%_ + _%tl173722174411%_ '0)))) - (let ((_%tl172746173447%_ + (let ((_%tl173731174432%_ (let () (declare (not safe)) (##vector-ref - _%__splice177109177110%_ + _%__splice178094178095%_ '1))) - (_%target172744173445%_ + (_%target173729174430%_ (let () (declare (not safe)) (##vector-ref - _%__splice177109177110%_ + _%__splice178094178095%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172746173447%_)) - (_%__match177316177317%_ - _%e172705173341%_ - _%hd172706173344%_ - _%tl172707173346%_ - _%e172708173349%_ - _%hd172709173352%_ - _%tl172710173354%_ - _%e172711173357%_ - _%hd172712173360%_ - _%tl172713173362%_ - _%e172714173365%_ - _%hd172715173368%_ - _%tl172716173370%_ - _%e172717173373%_ - _%hd172718173376%_ - _%tl172719173378%_ - _%e172720173381%_ - _%hd172721173384%_ - _%tl172722173386%_ - _%e172723173389%_ - _%hd172724173392%_ - _%tl172725173394%_ - _%e172726173397%_ - _%hd172727173400%_ - _%tl172728173402%_ - _%e172729173405%_ - _%hd172730173408%_ - _%tl172731173410%_ - _%e172732173413%_ - _%hd172733173416%_ - _%tl172734173418%_ - _%e172735173421%_ - _%hd172736173424%_ - _%tl172737173426%_ - _%e172738173429%_ - _%hd172739173432%_ - _%tl172740173434%_ - _%e172741173437%_ - _%hd172742173440%_ - _%tl172743173442%_ - _%__splice177109177110%_ - _%target172744173445%_ - _%tl172746173447%_) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_)) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_)) - (_%__kont177119177120%_)) - (_%__kont177119177120%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177119177120%_)))) - (_%__match177598177599%_ - _%e172705173341%_ - _%hd172706173344%_ - _%tl172707173346%_ - _%e172708173349%_ - _%hd172709173352%_ - _%tl172710173354%_ - _%e172711173357%_ - _%hd172712173360%_ - _%tl172713173362%_ - _%e172714173365%_ - _%hd172715173368%_ - _%tl172716173370%_ - _%e172717173373%_ - _%hd172718173376%_ - _%tl172719173378%_ - _%e172720173381%_ - _%hd172721173384%_ - _%tl172722173386%_ - _%e172723173389%_ - _%hd172724173392%_ - _%tl172725173394%_ - _%e172726173397%_ - _%hd172727173400%_ - _%tl172728173402%_)) - (_%__match177598177599%_ - _%e172705173341%_ - _%hd172706173344%_ - _%tl172707173346%_ - _%e172708173349%_ - _%hd172709173352%_ - _%tl172710173354%_ - _%e172711173357%_ - _%hd172712173360%_ - _%tl172713173362%_ - _%e172714173365%_ - _%hd172715173368%_ - _%tl172716173370%_ - _%e172717173373%_ - _%hd172718173376%_ - _%tl172719173378%_ - _%e172720173381%_ - _%hd172721173384%_ - _%tl172722173386%_ - _%e172723173389%_ - _%hd172724173392%_ - _%tl172725173394%_ - _%e172726173397%_ - _%hd172727173400%_ - _%tl172728173402%_)))) - (_%__match177598177599%_ - _%e172705173341%_ - _%hd172706173344%_ - _%tl172707173346%_ - _%e172708173349%_ - _%hd172709173352%_ - _%tl172710173354%_ - _%e172711173357%_ - _%hd172712173360%_ - _%tl172713173362%_ - _%e172714173365%_ - _%hd172715173368%_ - _%tl172716173370%_ - _%e172717173373%_ - _%hd172718173376%_ - _%tl172719173378%_ - _%e172720173381%_ - _%hd172721173384%_ - _%tl172722173386%_ - _%e172723173389%_ - _%hd172724173392%_ - _%tl172725173394%_ - _%e172726173397%_ - _%hd172727173400%_ - _%tl172728173402%_)) - (_%__match177384177385%_ - _%e172705173341%_ - _%hd172706173344%_ - _%tl172707173346%_ - _%e172708173349%_ - _%hd172709173352%_ - _%tl172710173354%_ - _%e172711173357%_ - _%hd172712173360%_ - _%tl172713173362%_ - _%e172714173365%_ - _%hd172715173368%_ - _%tl172716173370%_ - _%e172717173373%_ - _%hd172718173376%_ - _%tl172719173378%_ - _%e172720173381%_ - _%hd172721173384%_ - _%tl172722173386%_ - _%e172723173389%_ - _%hd172724173392%_ - _%tl172725173394%_ - _%e172726173397%_ - _%hd172727173400%_ - _%tl172728173402%_ - _%e172729173405%_ - _%hd172730173408%_ - _%tl172731173410%_)))) - (_%__match177206177207%_ - (lambda (_%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_ - _%e172685173594%_ - _%hd172686173597%_ - _%tl172687173599%_ - _%e172688173602%_ - _%hd172689173605%_ - _%tl172690173607%_ - _%__splice177105177106%_ - _%target172691173610%_ - _%tl172693173612%_) - (letrec ((_%loop172694173615%_ - (lambda (_%hd172692173618%_ - _%args172698173620%_) + (_%__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? _%hd172692173618%_)) - (let ((_%e172695173623%_ + (gx#stx-pair? _%hd173677174603%_)) + (let ((_%e173680174608%_ (let () (declare (not safe)) - (gx#stx-e _%hd172692173618%_)))) - (let ((_%lp-tl172697173628%_ + (gx#stx-e _%hd173677174603%_)))) + (let ((_%lp-tl173682174613%_ (let () (declare (not safe)) - (##cdr _%e172695173623%_))) - (_%lp-hd172696173626%_ + (##cdr _%e173680174608%_))) + (_%lp-hd173681174611%_ (let () (declare (not safe)) - (##car _%e172695173623%_)))) - (_%loop172694173615%_ - _%lp-tl172697173628%_ - (cons _%lp-hd172696173626%_ - _%args172698173620%_)))) - (let ((_%args172699173631%_ - (reverse _%args172698173620%_))) - (let ((_%L173634%_ - _%args172699173631%_) - (_%L173635%_ _%hd172689173605%_) - (_%L173636%_ _%hd172680173581%_) - (_%L173637%_ _%hd172671173557%_)) + (##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=? - _%L173637%_ + _%L174622%_ 'call-method)) - (let ((__tmp178232 + (let ((__tmp179217 (let () (declare (not safe)) (slot-ref__0 - _%self172646%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173636%_ - __tmp178232))) - (_%__kont177103177104%_ - _%L173634%_ - _%L173635%_ - _%L173636%_ - _%L173637%_) - (_%__match177394177395%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_ - _%e172685173594%_ - _%hd172686173597%_ - _%tl172687173599%_ - _%e172688173602%_ - _%hd172689173605%_ - _%tl172690173607%_)))))))) - (_%loop172694173615%_ _%target172691173610%_ '()))))) + _%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? _%__stx177101177102%_)) - (let ((_%e172661173530%_ + (gx#stx-pair? _%__stx178086178087%_)) + (let ((_%e173646174515%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177101177102%_)))) - (let ((_%tl172663173535%_ + (gx#stx-e _%__stx178086178087%_)))) + (let ((_%tl173648174520%_ (let () (declare (not safe)) - (##cdr _%e172661173530%_))) - (_%hd172662173533%_ + (##cdr _%e173646174515%_))) + (_%hd173647174518%_ (let () (declare (not safe)) - (##car _%e172661173530%_)))) + (##car _%e173646174515%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172663173535%_)) - (let ((_%e172664173538%_ + (gx#stx-pair? _%tl173648174520%_)) + (let ((_%e173649174523%_ (let () (declare (not safe)) - (gx#stx-e _%tl172663173535%_)))) - (let ((_%tl172666173543%_ + (gx#stx-e _%tl173648174520%_)))) + (let ((_%tl173651174528%_ (let () (declare (not safe)) - (##cdr _%e172664173538%_))) - (_%hd172665173541%_ + (##cdr _%e173649174523%_))) + (_%hd173650174526%_ (let () (declare (not safe)) - (##car _%e172664173538%_)))) + (##car _%e173649174523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172665173541%_)) - (let ((_%e172667173546%_ + (gx#stx-pair? _%hd173650174526%_)) + (let ((_%e173652174531%_ (let () (declare (not safe)) - (gx#stx-e _%hd172665173541%_)))) - (let ((_%tl172669173551%_ + (gx#stx-e _%hd173650174526%_)))) + (let ((_%tl173654174536%_ (let () (declare (not safe)) - (##cdr _%e172667173546%_))) - (_%hd172668173549%_ + (##cdr _%e173652174531%_))) + (_%hd173653174534%_ (let () (declare (not safe)) - (##car _%e172667173546%_)))) + (##car _%e173652174531%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172668173549%_)) + _%hd173653174534%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172668173549%_)) + _%hd173653174534%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172669173551%_)) - (let ((_%e172670173554%_ + _%tl173654174536%_)) + (let ((_%e173655174539%_ (let () (declare (not safe)) (gx#stx-e - _%tl172669173551%_)))) - (let ((_%tl172672173559%_ + _%tl173654174536%_)))) + (let ((_%tl173657174544%_ (let () (declare (not safe)) - (##cdr _%e172670173554%_))) - (_%hd172671173557%_ + (##cdr _%e173655174539%_))) + (_%hd173656174542%_ (let () (declare (not safe)) - (##car _%e172670173554%_)))) + (##car _%e173655174539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172672173559%_)) + _%tl173657174544%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl172666173543%_)) - (let ((_%e172673173562%_ + (gx#stx-pair? _%tl173651174528%_)) + (let ((_%e173658174547%_ (let () (declare (not safe)) - (gx#stx-e _%tl172666173543%_)))) - (let ((_%tl172675173567%_ + (gx#stx-e _%tl173651174528%_)))) + (let ((_%tl173660174552%_ (let () (declare (not safe)) - (##cdr _%e172673173562%_))) - (_%hd172674173565%_ + (##cdr _%e173658174547%_))) + (_%hd173659174550%_ (let () (declare (not safe)) - (##car _%e172673173562%_)))) + (##car _%e173658174547%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172674173565%_)) - (let ((_%e172676173570%_ + (gx#stx-pair? _%hd173659174550%_)) + (let ((_%e173661174555%_ (let () (declare (not safe)) - (gx#stx-e _%hd172674173565%_)))) - (let ((_%tl172678173575%_ + (gx#stx-e _%hd173659174550%_)))) + (let ((_%tl173663174560%_ (let () (declare (not safe)) - (##cdr _%e172676173570%_))) - (_%hd172677173573%_ + (##cdr _%e173661174555%_))) + (_%hd173662174558%_ (let () (declare (not safe)) - (##car _%e172676173570%_)))) + (##car _%e173661174555%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172677173573%_)) + (gx#identifier? _%hd173662174558%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172677173573%_)) + _%hd173662174558%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172678173575%_)) - (let ((_%e172679173578%_ + _%tl173663174560%_)) + (let ((_%e173664174563%_ (let () (declare (not safe)) (gx#stx-e - _%tl172678173575%_)))) - (let ((_%tl172681173583%_ + _%tl173663174560%_)))) + (let ((_%tl173666174568%_ (let () (declare (not safe)) - (##cdr _%e172679173578%_))) - (_%hd172680173581%_ + (##cdr _%e173664174563%_))) + (_%hd173665174566%_ (let () (declare (not safe)) - (##car _%e172679173578%_)))) + (##car _%e173664174563%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172681173583%_)) + _%tl173666174568%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172675173567%_)) - (let ((_%e172682173586%_ + _%tl173660174552%_)) + (let ((_%e173667174571%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl172675173567%_)))) - (let ((_%tl172684173591%_ + (gx#stx-e _%tl173660174552%_)))) + (let ((_%tl173669174576%_ (let () (declare (not safe)) - (##cdr _%e172682173586%_))) - (_%hd172683173589%_ + (##cdr _%e173667174571%_))) + (_%hd173668174574%_ (let () (declare (not safe)) - (##car _%e172682173586%_)))) + (##car _%e173667174571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172683173589%_)) - (let ((_%e172685173594%_ + (gx#stx-pair? _%hd173668174574%_)) + (let ((_%e173670174579%_ (let () (declare (not safe)) - (gx#stx-e _%hd172683173589%_)))) - (let ((_%tl172687173599%_ + (gx#stx-e _%hd173668174574%_)))) + (let ((_%tl173672174584%_ (let () (declare (not safe)) - (##cdr _%e172685173594%_))) - (_%hd172686173597%_ + (##cdr _%e173670174579%_))) + (_%hd173671174582%_ (let () (declare (not safe)) - (##car _%e172685173594%_)))) + (##car _%e173670174579%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172686173597%_)) + (gx#identifier? _%hd173671174582%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd172686173597%_)) + _%hd173671174582%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172687173599%_)) - (let ((_%e172688173602%_ + (gx#stx-pair? _%tl173672174584%_)) + (let ((_%e173673174587%_ (let () (declare (not safe)) (gx#stx-e - _%tl172687173599%_)))) - (let ((_%tl172690173607%_ + _%tl173672174584%_)))) + (let ((_%tl173675174592%_ (let () (declare (not safe)) - (##cdr _%e172688173602%_))) - (_%hd172689173605%_ + (##cdr _%e173673174587%_))) + (_%hd173674174590%_ (let () (declare (not safe)) - (##car _%e172688173602%_)))) + (##car _%e173673174587%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172690173607%_)) + _%tl173675174592%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl172684173591%_)) - (let ((_%__splice177105177106%_ + _%tl173669174576%_)) + (let ((_%__splice178090178091%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl172684173591%_ '0)))) - (let ((_%tl172693173612%_ + (gx#syntax-split-splice _%tl173669174576%_ '0)))) + (let ((_%tl173678174597%_ (let () (declare (not safe)) - (##vector-ref _%__splice177105177106%_ '1))) - (_%target172691173610%_ + (##vector-ref _%__splice178090178091%_ '1))) + (_%target173676174595%_ (let () (declare (not safe)) - (##vector-ref _%__splice177105177106%_ '0)))) + (##vector-ref _%__splice178090178091%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172693173612%_)) - (_%__match177206177207%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_ - _%e172685173594%_ - _%hd172686173597%_ - _%tl172687173599%_ - _%e172688173602%_ - _%hd172689173605%_ - _%tl172690173607%_ - _%__splice177105177106%_ - _%target172691173610%_ - _%tl172693173612%_) - (_%__match177394177395%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_ - _%e172685173594%_ - _%hd172686173597%_ - _%tl172687173599%_ - _%e172688173602%_ - _%hd172689173605%_ - _%tl172690173607%_)))) - (_%__match177394177395%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_ - _%e172685173594%_ - _%hd172686173597%_ - _%tl172687173599%_ - _%e172688173602%_ - _%hd172689173605%_ - _%tl172690173607%_)) + (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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177598177599%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_)))) - (_%__match177598177599%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_)) - (_%__match177274177275%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_ - _%e172685173594%_ - _%hd172686173597%_ - _%tl172687173599%_)) - (_%__match177598177599%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_)))) - (_%__match177598177599%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_ - _%e172682173586%_ - _%hd172683173589%_ - _%tl172684173591%_)))) - (_%__match177536177537%_ - _%e172661173530%_ - _%hd172662173533%_ - _%tl172663173535%_ - _%e172664173538%_ - _%hd172665173541%_ - _%tl172666173543%_ - _%e172667173546%_ - _%hd172668173549%_ - _%tl172669173551%_ - _%e172670173554%_ - _%hd172671173557%_ - _%tl172672173559%_ - _%e172673173562%_ - _%hd172674173565%_ - _%tl172675173567%_ - _%e172676173570%_ - _%hd172677173573%_ - _%tl172678173575%_ - _%e172679173578%_ - _%hd172680173581%_ - _%tl172681173583%_)) - (_%__kont177119177120%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177119177120%_)) - (_%__kont177119177120%_)) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_)) - (_%__kont177119177120%_)))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177119177120%_)) - (_%__kont177119177120%_)) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_)))) - (_%__kont177119177120%_))))))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self171585%_ _%stx171586%_) - (letrec ((_%force-e171588%_ - (lambda (_%target172644%_) + (lambda (_%self172570%_ _%stx172571%_) + (letrec ((_%force-e172573%_ + (lambda (_%target173629%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target172644%_ '())) + (cons (cons '%#ref (cons _%target173629%_ '())) '())))))) - (let* ((_%__stx177603177604%_ _%stx171586%_) - (_%g171596171818%_ + (let* ((_%__stx178588178589%_ _%stx172571%_) + (_%g172581172803%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177603177604%_))))) - (let ((_%__kont177605177606%_ - (lambda (_%L172590%_ _%L172591%_ _%L172592%_ _%L172593%_) - (let ((_%$method172638%_ - (let ((__tmp178234 + _%__stx178588178589%_))))) + (let ((_%__kont178590178591%_ + (lambda (_%L173575%_ _%L173576%_ _%L173577%_ _%L173578%_) + (let ((_%$method173623%_ + (let ((__tmp179219 (let () (declare (not safe)) - (slot-ref__0 _%self171585%_ 'methods))) - (__tmp178233 + (slot-ref__0 _%self172570%_ 'methods))) + (__tmp179218 (let () (declare (not safe)) - (gx#stx-e _%L172591%_)))) + (gx#stx-e _%L173576%_)))) (declare (not safe)) - (hash-ref__0 __tmp178234 __tmp178233))) - (_%args172639%_ - (map (lambda (_%g172626172628%_) + (hash-ref__0 __tmp179219 __tmp179218))) + (_%args173624%_ + (map (lambda (_%g173611173613%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171585%_ - _%g172626172628%_))) - (let ((__tmp178235 - (lambda (_%g172630172633%_ - _%g172631172635%_) - (cons _%g172630172633%_ - _%g172631172635%_)))) + _%self172570%_ + _%g173611173613%_))) + (let ((__tmp179220 + (lambda (_%g173615173618%_ + _%g173616173620%_) + (cons _%g173615173618%_ + _%g173616173620%_)))) (declare (not safe)) - (__foldr1 __tmp178235 '() _%L172590%_))))) - (let ((__tmp178236 + (__foldr1 __tmp179220 '() _%L173575%_))))) + (let ((__tmp179221 (cons '%#call - (cons (_%force-e171588%_ _%$method172638%_) + (cons (_%force-e172573%_ _%$method173623%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'receiver)) '())) - _%args172639%_))))) + _%args173624%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178236 _%stx171586%_))))) - (_%__kont177609177610%_ - (lambda (_%L172422%_ - _%L172423%_ - _%L172424%_ - _%L172425%_ - _%L172426%_) - (let ((_%$method172478%_ - (let ((__tmp178238 + (gxc#xform-wrap-source __tmp179221 _%stx172571%_))))) + (_%__kont178594178595%_ + (lambda (_%L173407%_ + _%L173408%_ + _%L173409%_ + _%L173410%_ + _%L173411%_) + (let ((_%$method173463%_ + (let ((__tmp179223 (let () (declare (not safe)) - (slot-ref__0 _%self171585%_ 'methods))) - (__tmp178237 + (slot-ref__0 _%self172570%_ 'methods))) + (__tmp179222 (let () (declare (not safe)) - (gx#stx-e _%L172423%_)))) + (gx#stx-e _%L173408%_)))) (declare (not safe)) - (hash-ref__0 __tmp178238 __tmp178237))) - (_%args172479%_ - (map (lambda (_%g172466172468%_) + (hash-ref__0 __tmp179223 __tmp179222))) + (_%args173464%_ + (map (lambda (_%g173451173453%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171585%_ - _%g172466172468%_))) - (let ((__tmp178239 - (lambda (_%g172470172473%_ - _%g172471172475%_) - (cons _%g172470172473%_ - _%g172471172475%_)))) + _%self172570%_ + _%g173451173453%_))) + (let ((__tmp179224 + (lambda (_%g173455173458%_ + _%g173456173460%_) + (cons _%g173455173458%_ + _%g173456173460%_)))) (declare (not safe)) - (__foldr1 __tmp178239 '() _%L172422%_))))) - (let ((__tmp178240 + (__foldr1 __tmp179224 '() _%L173407%_))))) + (let ((__tmp179225 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e171588%_ - _%$method172478%_) + (cons (_%force-e172573%_ + _%$method173463%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171585%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) - _%args172479%_)))))) + _%args173464%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp178240 _%stx171586%_))))) - (_%__kont177613177614%_ - (lambda (_%L172253%_ _%L172254%_ _%L172255%_) - (let* ((_%$field172287%_ - (let ((__tmp178242 + (gxc#xform-wrap-source __tmp179225 _%stx172571%_))))) + (_%__kont178598178599%_ + (lambda (_%L173238%_ _%L173239%_ _%L173240%_) + (let* ((_%$field173272%_ + (let ((__tmp179227 (let () (declare (not safe)) - (slot-ref__0 _%self171585%_ 'slots))) - (__tmp178241 + (slot-ref__0 _%self172570%_ 'slots))) + (__tmp179226 (let () (declare (not safe)) - (gx#stx-e _%L172253%_)))) + (gx#stx-e _%L173238%_)))) (declare (not safe)) - (hash-ref__0 __tmp178242 __tmp178241))) - (__tmp178243 + (hash-ref__0 __tmp179227 __tmp179226))) + (__tmp179228 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field172287%_ + (cons _%$field173272%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171585%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178243 _%stx171586%_)))) - (_%__kont177615177616%_ - (lambda (_%L172127%_ _%L172128%_ _%L172129%_ _%L172130%_) - (let ((_%$field172165%_ - (let ((__tmp178245 + (gxc#xform-wrap-source __tmp179228 _%stx172571%_)))) + (_%__kont178600178601%_ + (lambda (_%L173112%_ _%L173113%_ _%L173114%_ _%L173115%_) + (let ((_%$field173150%_ + (let ((__tmp179230 (let () (declare (not safe)) - (slot-ref__0 _%self171585%_ 'slots))) - (__tmp178244 + (slot-ref__0 _%self172570%_ 'slots))) + (__tmp179229 (let () (declare (not safe)) - (gx#stx-e _%L172128%_)))) + (gx#stx-e _%L173113%_)))) (declare (not safe)) - (hash-ref__0 __tmp178245 __tmp178244))) - (_%expr172166%_ + (hash-ref__0 __tmp179230 __tmp179229))) + (_%expr173151%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171585%_ _%L172127%_)))) - (let ((__tmp178246 + (gxc#compile-e__1 _%self172570%_ _%L173112%_)))) + (let ((__tmp179231 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field172165%_ + (cons _%$field173150%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171585%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) - (cons _%expr172166%_ '()))))))) + (cons _%expr173151%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp178246 _%stx171586%_))))) - (_%__kont177617177618%_ - (lambda (_%L171999%_ _%L172000%_) - (let* ((_%accessor172022%_ - (let ((__tmp178247 + (gxc#xform-wrap-source __tmp179231 _%stx172571%_))))) + (_%__kont178602178603%_ + (lambda (_%L172984%_ _%L172985%_) + (let* ((_%accessor173007%_ + (let ((__tmp179232 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172000%_)))) + (gxc#identifier-symbol _%L172985%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178247))) - (_%klass172024%_ - (let ((__tmp178248 + (gxc#optimizer-resolve-type __tmp179232))) + (_%klass173009%_ + (let ((__tmp179233 (##structure-ref - _%accessor172022%_ + _%accessor173007%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171586%_ - __tmp178248))) - (_%slot172026%_ + _%stx172571%_ + __tmp179233))) + (_%slot173011%_ (##structure-ref - _%accessor172022%_ + _%accessor173007%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor172022%_ + _%accessor173007%_ '4 gxc#!accessor::t '#f) @@ -6959,37 +6959,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172024%_ - _%slot172026%_)) + _%klass173009%_ + _%slot173011%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172024%_ + _%klass173009%_ '8 '#f '#f)))) - _%stx171586%_ - (let* ((_%$field172032%_ - (let ((__tmp178249 + _%stx172571%_ + (let* ((_%$field173017%_ + (let ((__tmp179234 (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp178249 _%slot172026%_))) - (__tmp178250 + (hash-ref__0 __tmp179234 _%slot173011%_))) + (__tmp179235 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field172032%_ + (cons _%$field173017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6997,46 +6997,46 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171585%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178250 - _%stx171586%_)))))) - (_%__kont177619177620%_ - (lambda (_%L171894%_ _%L171895%_ _%L171896%_) - (let* ((_%mutator171924%_ - (let ((__tmp178251 + __tmp179235 + _%stx172571%_)))))) + (_%__kont178604178605%_ + (lambda (_%L172879%_ _%L172880%_ _%L172881%_) + (let* ((_%mutator172909%_ + (let ((__tmp179236 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171896%_)))) + (gxc#identifier-symbol _%L172881%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178251))) - (_%klass171926%_ - (let ((__tmp178252 + (gxc#optimizer-resolve-type __tmp179236))) + (_%klass172911%_ + (let ((__tmp179237 (##structure-ref - _%mutator171924%_ + _%mutator172909%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171586%_ - __tmp178252))) - (_%slot171928%_ + _%stx172571%_ + __tmp179237))) + (_%slot172913%_ (##structure-ref - _%mutator171924%_ + _%mutator172909%_ '3 gxc#!mutator::t '#f)) - (_%expr171930%_ + (_%expr172915%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171585%_ _%L171894%_)))) + (gxc#compile-e__1 _%self172570%_ _%L172879%_)))) (if (if (##structure-ref - _%mutator171924%_ + _%mutator172909%_ '4 gxc#!mutator::t '#f) @@ -7044,56 +7044,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171926%_ - _%slot171928%_)) + _%klass172911%_ + _%slot172913%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171926%_ + _%klass172911%_ '8 '#f '#f)))) - (let ((__tmp178253 + (let ((__tmp179238 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171896%_ '())) + (cons _%L172881%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171895%_ + (cons _%L172880%_ '())) - (cons _%expr171930%_ + (cons _%expr172915%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178253 _%stx171586%_)) - (let* ((_%$field171936%_ - (let ((__tmp178254 + (gxc#xform-wrap-source __tmp179238 _%stx172571%_)) + (let* ((_%$field172921%_ + (let ((__tmp179239 (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp178254 _%slot171928%_))) - (__tmp178255 + (hash-ref__0 __tmp179239 _%slot172913%_))) + (__tmp179240 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171936%_ + (cons _%$field172921%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7101,1846 +7101,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171585%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) - (cons _%expr171930%_ '()))))))) + (cons _%expr172915%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178255 - _%stx171586%_)))))) - (_%__kont177621177622%_ + __tmp179240 + _%stx172571%_)))))) + (_%__kont178606178607%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self171585%_ _%stx171586%_))))) - (let* ((_%__match178102178103%_ - (lambda (_%e171790171830%_ - _%hd171791171833%_ - _%tl171792171835%_ - _%e171793171838%_ - _%hd171794171841%_ - _%tl171795171843%_ - _%e171796171846%_ - _%hd171797171849%_ - _%tl171798171851%_ - _%e171799171854%_ - _%hd171800171857%_ - _%tl171801171859%_ - _%e171802171862%_ - _%hd171803171865%_ - _%tl171804171867%_ - _%e171805171870%_ - _%hd171806171873%_ - _%tl171807171875%_ - _%e171808171878%_ - _%hd171809171881%_ - _%tl171810171883%_ - _%e171811171886%_ - _%hd171812171889%_ - _%tl171813171891%_) - (let ((_%L171894%_ _%hd171812171889%_) - (_%L171895%_ _%hd171809171881%_) - (_%L171896%_ _%hd171800171857%_)) - (if (and (let ((__tmp178256 + (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 - _%self171585%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171895%_ - __tmp178256)) - (let ((__tmp178257 - (let ((__tmp178258 + _%L172880%_ + __tmp179241)) + (let ((__tmp179242 + (let ((__tmp179243 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171896%_)))) + _%L172881%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178258)))) + __tmp179243)))) (declare (not safe)) (##structure-instance-of? - __tmp178257 + __tmp179242 'gxc#!mutator::t))) - (_%__kont177619177620%_ - _%L171894%_ - _%L171895%_ - _%L171896%_) - (_%__kont177621177622%_))))) - (_%__match178100178101%_ - (lambda (_%e171790171830%_ - _%hd171791171833%_ - _%tl171792171835%_ - _%e171793171838%_ - _%hd171794171841%_ - _%tl171795171843%_ - _%e171796171846%_ - _%hd171797171849%_ - _%tl171798171851%_ - _%e171799171854%_ - _%hd171800171857%_ - _%tl171801171859%_ - _%e171802171862%_ - _%hd171803171865%_ - _%tl171804171867%_ - _%e171805171870%_ - _%hd171806171873%_ - _%tl171807171875%_ - _%e171808171878%_ - _%hd171809171881%_ - _%tl171810171883%_ - _%e171811171886%_ - _%hd171812171889%_ - _%tl171813171891%_) + (_%__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? _%tl171813171891%_)) - (_%__match178102178103%_ - _%e171790171830%_ - _%hd171791171833%_ - _%tl171792171835%_ - _%e171793171838%_ - _%hd171794171841%_ - _%tl171795171843%_ - _%e171796171846%_ - _%hd171797171849%_ - _%tl171798171851%_ - _%e171799171854%_ - _%hd171800171857%_ - _%tl171801171859%_ - _%e171802171862%_ - _%hd171803171865%_ - _%tl171804171867%_ - _%e171805171870%_ - _%hd171806171873%_ - _%tl171807171875%_ - _%e171808171878%_ - _%hd171809171881%_ - _%tl171810171883%_ - _%e171811171886%_ - _%hd171812171889%_ - _%tl171813171891%_) - (_%__kont177621177622%_)))) - (_%__match178094178095%_ - (lambda (_%e171790171830%_ - _%hd171791171833%_ - _%tl171792171835%_ - _%e171793171838%_ - _%hd171794171841%_ - _%tl171795171843%_ - _%e171796171846%_ - _%hd171797171849%_ - _%tl171798171851%_ - _%e171799171854%_ - _%hd171800171857%_ - _%tl171801171859%_ - _%e171802171862%_ - _%hd171803171865%_ - _%tl171804171867%_ - _%e171805171870%_ - _%hd171806171873%_ - _%tl171807171875%_ - _%e171808171878%_ - _%hd171809171881%_ - _%tl171810171883%_) + (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? _%tl171804171867%_)) - (let ((_%e171811171886%_ + (gx#stx-pair? _%tl172789172852%_)) + (let ((_%e172796172871%_ (let () (declare (not safe)) - (gx#stx-e _%tl171804171867%_)))) - (let ((_%tl171813171891%_ + (gx#stx-e _%tl172789172852%_)))) + (let ((_%tl172798172876%_ (let () (declare (not safe)) - (##cdr _%e171811171886%_))) - (_%hd171812171889%_ + (##cdr _%e172796172871%_))) + (_%hd172797172874%_ (let () (declare (not safe)) - (##car _%e171811171886%_)))) + (##car _%e172796172871%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171813171891%_)) - (_%__match178102178103%_ - _%e171790171830%_ - _%hd171791171833%_ - _%tl171792171835%_ - _%e171793171838%_ - _%hd171794171841%_ - _%tl171795171843%_ - _%e171796171846%_ - _%hd171797171849%_ - _%tl171798171851%_ - _%e171799171854%_ - _%hd171800171857%_ - _%tl171801171859%_ - _%e171802171862%_ - _%hd171803171865%_ - _%tl171804171867%_ - _%e171805171870%_ - _%hd171806171873%_ - _%tl171807171875%_ - _%e171808171878%_ - _%hd171809171881%_ - _%tl171810171883%_ - _%e171811171886%_ - _%hd171812171889%_ - _%tl171813171891%_) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)))) - (_%__match178040178041%_ - (lambda (_%e171766171943%_ - _%hd171767171946%_ - _%tl171768171948%_ - _%e171769171951%_ - _%hd171770171954%_ - _%tl171771171956%_ - _%e171772171959%_ - _%hd171773171962%_ - _%tl171774171964%_ - _%e171775171967%_ - _%hd171776171970%_ - _%tl171777171972%_ - _%e171778171975%_ - _%hd171779171978%_ - _%tl171780171980%_ - _%e171781171983%_ - _%hd171782171986%_ - _%tl171783171988%_ - _%e171784171991%_ - _%hd171785171994%_ - _%tl171786171996%_) - (let ((_%L171999%_ _%hd171785171994%_) - (_%L172000%_ _%hd171776171970%_)) - (if (and (let ((__tmp178259 + (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 - _%self171585%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171999%_ - __tmp178259)) - (let ((__tmp178260 - (let ((__tmp178261 + _%L172984%_ + __tmp179244)) + (let ((__tmp179245 + (let ((__tmp179246 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172000%_)))) + _%L172985%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178261)))) + __tmp179246)))) (declare (not safe)) (##structure-instance-of? - __tmp178260 + __tmp179245 'gxc#!accessor::t))) - (_%__kont177617177618%_ _%L171999%_ _%L172000%_) - (_%__kont177621177622%_))))) - (_%__match178038178039%_ - (lambda (_%e171766171943%_ - _%hd171767171946%_ - _%tl171768171948%_ - _%e171769171951%_ - _%hd171770171954%_ - _%tl171771171956%_ - _%e171772171959%_ - _%hd171773171962%_ - _%tl171774171964%_ - _%e171775171967%_ - _%hd171776171970%_ - _%tl171777171972%_ - _%e171778171975%_ - _%hd171779171978%_ - _%tl171780171980%_ - _%e171781171983%_ - _%hd171782171986%_ - _%tl171783171988%_ - _%e171784171991%_ - _%hd171785171994%_ - _%tl171786171996%_) + (_%__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? _%tl171780171980%_)) - (_%__match178040178041%_ - _%e171766171943%_ - _%hd171767171946%_ - _%tl171768171948%_ - _%e171769171951%_ - _%hd171770171954%_ - _%tl171771171956%_ - _%e171772171959%_ - _%hd171773171962%_ - _%tl171774171964%_ - _%e171775171967%_ - _%hd171776171970%_ - _%tl171777171972%_ - _%e171778171975%_ - _%hd171779171978%_ - _%tl171780171980%_ - _%e171781171983%_ - _%hd171782171986%_ - _%tl171783171988%_ - _%e171784171991%_ - _%hd171785171994%_ - _%tl171786171996%_) - (_%__match178094178095%_ - _%e171766171943%_ - _%hd171767171946%_ - _%tl171768171948%_ - _%e171769171951%_ - _%hd171770171954%_ - _%tl171771171956%_ - _%e171772171959%_ - _%hd171773171962%_ - _%tl171774171964%_ - _%e171775171967%_ - _%hd171776171970%_ - _%tl171777171972%_ - _%e171778171975%_ - _%hd171779171978%_ - _%tl171780171980%_ - _%e171781171983%_ - _%hd171782171986%_ - _%tl171783171988%_ - _%e171784171991%_ - _%hd171785171994%_ - _%tl171786171996%_)))) - (_%__match177984177985%_ - (lambda (_%e171731172039%_ - _%hd171732172042%_ - _%tl171733172044%_ - _%e171734172047%_ - _%hd171735172050%_ - _%tl171736172052%_ - _%e171737172055%_ - _%hd171738172058%_ - _%tl171739172060%_ - _%e171740172063%_ - _%hd171741172066%_ - _%tl171742172068%_ - _%e171743172071%_ - _%hd171744172074%_ - _%tl171745172076%_ - _%e171746172079%_ - _%hd171747172082%_ - _%tl171748172084%_ - _%e171749172087%_ - _%hd171750172090%_ - _%tl171751172092%_ - _%e171752172095%_ - _%hd171753172098%_ - _%tl171754172100%_ - _%e171755172103%_ - _%hd171756172106%_ - _%tl171757172108%_ - _%e171758172111%_ - _%hd171759172114%_ - _%tl171760172116%_ - _%e171761172119%_ - _%hd171762172122%_ - _%tl171763172124%_) - (let ((_%L172127%_ _%hd171762172122%_) - (_%L172128%_ _%hd171759172114%_) - (_%L172129%_ _%hd171750172090%_) - (_%L172130%_ _%hd171741172066%_)) + (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=? - _%L172130%_ + _%L173115%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172130%_ + _%L173115%_ 'unchecked-slot-set!))) - (let ((__tmp178262 + (let ((__tmp179247 (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172129%_ - __tmp178262))) - (_%__kont177615177616%_ - _%L172127%_ - _%L172128%_ - _%L172129%_ - _%L172130%_) - (_%__kont177621177622%_))))) - (_%__match177976177977%_ - (lambda (_%e171731172039%_ - _%hd171732172042%_ - _%tl171733172044%_ - _%e171734172047%_ - _%hd171735172050%_ - _%tl171736172052%_ - _%e171737172055%_ - _%hd171738172058%_ - _%tl171739172060%_ - _%e171740172063%_ - _%hd171741172066%_ - _%tl171742172068%_ - _%e171743172071%_ - _%hd171744172074%_ - _%tl171745172076%_ - _%e171746172079%_ - _%hd171747172082%_ - _%tl171748172084%_ - _%e171749172087%_ - _%hd171750172090%_ - _%tl171751172092%_ - _%e171752172095%_ - _%hd171753172098%_ - _%tl171754172100%_ - _%e171755172103%_ - _%hd171756172106%_ - _%tl171757172108%_ - _%e171758172111%_ - _%hd171759172114%_ - _%tl171760172116%_) + _%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? _%tl171754172100%_)) - (let ((_%e171761172119%_ + (gx#stx-pair? _%tl172739173085%_)) + (let ((_%e172746173104%_ (let () (declare (not safe)) - (gx#stx-e _%tl171754172100%_)))) - (let ((_%tl171763172124%_ + (gx#stx-e _%tl172739173085%_)))) + (let ((_%tl172748173109%_ (let () (declare (not safe)) - (##cdr _%e171761172119%_))) - (_%hd171762172122%_ + (##cdr _%e172746173104%_))) + (_%hd172747173107%_ (let () (declare (not safe)) - (##car _%e171761172119%_)))) + (##car _%e172746173104%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171763172124%_)) - (_%__match177984177985%_ - _%e171731172039%_ - _%hd171732172042%_ - _%tl171733172044%_ - _%e171734172047%_ - _%hd171735172050%_ - _%tl171736172052%_ - _%e171737172055%_ - _%hd171738172058%_ - _%tl171739172060%_ - _%e171740172063%_ - _%hd171741172066%_ - _%tl171742172068%_ - _%e171743172071%_ - _%hd171744172074%_ - _%tl171745172076%_ - _%e171746172079%_ - _%hd171747172082%_ - _%tl171748172084%_ - _%e171749172087%_ - _%hd171750172090%_ - _%tl171751172092%_ - _%e171752172095%_ - _%hd171753172098%_ - _%tl171754172100%_ - _%e171755172103%_ - _%hd171756172106%_ - _%tl171757172108%_ - _%e171758172111%_ - _%hd171759172114%_ - _%tl171760172116%_ - _%e171761172119%_ - _%hd171762172122%_ - _%tl171763172124%_) - (_%__kont177621177622%_)))) - (_%__match178100178101%_ - _%e171731172039%_ - _%hd171732172042%_ - _%tl171733172044%_ - _%e171734172047%_ - _%hd171735172050%_ - _%tl171736172052%_ - _%e171737172055%_ - _%hd171738172058%_ - _%tl171739172060%_ - _%e171740172063%_ - _%hd171741172066%_ - _%tl171742172068%_ - _%e171743172071%_ - _%hd171744172074%_ - _%tl171745172076%_ - _%e171746172079%_ - _%hd171747172082%_ - _%tl171748172084%_ - _%e171749172087%_ - _%hd171750172090%_ - _%tl171751172092%_ - _%e171752172095%_ - _%hd171753172098%_ - _%tl171754172100%_)))) - (_%__match177898177899%_ - (lambda (_%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_ - _%e171721172237%_ - _%hd171722172240%_ - _%tl171723172242%_ - _%e171724172245%_ - _%hd171725172248%_ - _%tl171726172250%_) - (let ((_%L172253%_ _%hd171725172248%_) - (_%L172254%_ _%hd171716172224%_) - (_%L172255%_ _%hd171707172200%_)) + (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=? - _%L172255%_ + _%L173240%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172255%_ + _%L173240%_ 'unchecked-slot-ref))) - (let ((__tmp178263 + (let ((__tmp179248 (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172254%_ - __tmp178263))) - (_%__kont177613177614%_ - _%L172253%_ - _%L172254%_ - _%L172255%_) - (_%__match178102178103%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_))))) - (_%__match177896177897%_ - (lambda (_%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_ - _%e171721172237%_ - _%hd171722172240%_ - _%tl171723172242%_ - _%e171724172245%_ - _%hd171725172248%_ - _%tl171726172250%_) + _%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? _%tl171720172234%_)) - (_%__match177898177899%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_ - _%e171721172237%_ - _%hd171722172240%_ - _%tl171723172242%_ - _%e171724172245%_ - _%hd171725172248%_ - _%tl171726172250%_) - (_%__match177976177977%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_ - _%e171721172237%_ - _%hd171722172240%_ - _%tl171723172242%_ - _%e171724172245%_ - _%hd171725172248%_ - _%tl171726172250%_)))) - (_%__match177886177887%_ - (lambda (_%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_ - _%e171721172237%_ - _%hd171722172240%_ - _%tl171723172242%_) + (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 _%hd171722172240%_)) + (gx#stx-eq? '%#quote _%hd172707173225%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171723172242%_)) - (let ((_%e171724172245%_ + (gx#stx-pair? _%tl172708173227%_)) + (let ((_%e172709173230%_ (let () (declare (not safe)) - (gx#stx-e _%tl171723172242%_)))) - (let ((_%tl171726172250%_ + (gx#stx-e _%tl172708173227%_)))) + (let ((_%tl172711173235%_ (let () (declare (not safe)) - (##cdr _%e171724172245%_))) - (_%hd171725172248%_ + (##cdr _%e172709173230%_))) + (_%hd172710173233%_ (let () (declare (not safe)) - (##car _%e171724172245%_)))) + (##car _%e172709173230%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171726172250%_)) + (gx#stx-null? _%tl172711173235%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171720172234%_)) - (_%__match177898177899%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_ - _%e171721172237%_ - _%hd171722172240%_ - _%tl171723172242%_ - _%e171724172245%_ - _%hd171725172248%_ - _%tl171726172250%_) - (_%__match177976177977%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_ - _%e171721172237%_ - _%hd171722172240%_ - _%tl171723172242%_ - _%e171724172245%_ - _%hd171725172248%_ - _%tl171726172250%_)) - (_%__match178100178101%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_)))) - (_%__match178100178101%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_)) - (_%__match178100178101%_ - _%e171697172173%_ - _%hd171698172176%_ - _%tl171699172178%_ - _%e171700172181%_ - _%hd171701172184%_ - _%tl171702172186%_ - _%e171703172189%_ - _%hd171704172192%_ - _%tl171705172194%_ - _%e171706172197%_ - _%hd171707172200%_ - _%tl171708172202%_ - _%e171709172205%_ - _%hd171710172208%_ - _%tl171711172210%_ - _%e171712172213%_ - _%hd171713172216%_ - _%tl171714172218%_ - _%e171715172221%_ - _%hd171716172224%_ - _%tl171717172226%_ - _%e171718172229%_ - _%hd171719172232%_ - _%tl171720172234%_)))) - (_%__match177818177819%_ - (lambda (_%e171646172294%_ - _%hd171647172297%_ - _%tl171648172299%_ - _%e171649172302%_ - _%hd171650172305%_ - _%tl171651172307%_ - _%e171652172310%_ - _%hd171653172313%_ - _%tl171654172315%_ - _%e171655172318%_ - _%hd171656172321%_ - _%tl171657172323%_ - _%e171658172326%_ - _%hd171659172329%_ - _%tl171660172331%_ - _%e171661172334%_ - _%hd171662172337%_ - _%tl171663172339%_ - _%e171664172342%_ - _%hd171665172345%_ - _%tl171666172347%_ - _%e171667172350%_ - _%hd171668172353%_ - _%tl171669172355%_ - _%e171670172358%_ - _%hd171671172361%_ - _%tl171672172363%_ - _%e171673172366%_ - _%hd171674172369%_ - _%tl171675172371%_ - _%e171676172374%_ - _%hd171677172377%_ - _%tl171678172379%_ - _%e171679172382%_ - _%hd171680172385%_ - _%tl171681172387%_ - _%e171682172390%_ - _%hd171683172393%_ - _%tl171684172395%_ - _%__splice177611177612%_ - _%target171685172398%_ - _%tl171687172400%_) - (letrec ((_%loop171688172403%_ - (lambda (_%hd171686172406%_ - _%args171692172408%_) + _%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? _%hd171686172406%_)) - (let ((_%e171689172411%_ + (gx#stx-pair? _%hd172671173391%_)) + (let ((_%e172674173396%_ (let () (declare (not safe)) (gx#stx-e - _%hd171686172406%_)))) - (let ((_%lp-tl171691172416%_ + _%hd172671173391%_)))) + (let ((_%lp-tl172676173401%_ (let () (declare (not safe)) - (##cdr _%e171689172411%_))) - (_%lp-hd171690172414%_ + (##cdr _%e172674173396%_))) + (_%lp-hd172675173399%_ (let () (declare (not safe)) - (##car _%e171689172411%_)))) - (_%loop171688172403%_ - _%lp-tl171691172416%_ - (cons _%lp-hd171690172414%_ - _%args171692172408%_)))) - (let ((_%args171693172419%_ - (reverse _%args171692172408%_))) - (let ((_%L172422%_ - _%args171693172419%_) - (_%L172423%_ - _%hd171683172393%_) - (_%L172424%_ - _%hd171674172369%_) - (_%L172425%_ - _%hd171665172345%_) - (_%L172426%_ - _%hd171656172321%_)) + (##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=? - _%L172426%_ + _%L173411%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172425%_ + _%L173410%_ 'call-method)) - (let ((__tmp178264 + (let ((__tmp179249 (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172424%_ - __tmp178264))) - (_%__kont177609177610%_ - _%L172422%_ - _%L172423%_ - _%L172424%_ - _%L172425%_ - _%L172426%_) - (_%__kont177621177622%_)))))))) - (_%loop171688172403%_ _%target171685172398%_ '())))) - (_%__match177776177777%_ - (lambda (_%e171646172294%_ - _%hd171647172297%_ - _%tl171648172299%_ - _%e171649172302%_ - _%hd171650172305%_ - _%tl171651172307%_ - _%e171652172310%_ - _%hd171653172313%_ - _%tl171654172315%_ - _%e171655172318%_ - _%hd171656172321%_ - _%tl171657172323%_ - _%e171658172326%_ - _%hd171659172329%_ - _%tl171660172331%_ - _%e171661172334%_ - _%hd171662172337%_ - _%tl171663172339%_ - _%e171664172342%_ - _%hd171665172345%_ - _%tl171666172347%_ - _%e171667172350%_ - _%hd171668172353%_ - _%tl171669172355%_ - _%e171670172358%_ - _%hd171671172361%_ - _%tl171672172363%_) + _%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 _%hd171671172361%_)) + (gx#stx-eq? '%#ref _%hd172656173346%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171672172363%_)) - (let ((_%e171673172366%_ + (gx#stx-pair? _%tl172657173348%_)) + (let ((_%e172658173351%_ (let () (declare (not safe)) - (gx#stx-e _%tl171672172363%_)))) - (let ((_%tl171675172371%_ + (gx#stx-e _%tl172657173348%_)))) + (let ((_%tl172660173356%_ (let () (declare (not safe)) - (##cdr _%e171673172366%_))) - (_%hd171674172369%_ + (##cdr _%e172658173351%_))) + (_%hd172659173354%_ (let () (declare (not safe)) - (##car _%e171673172366%_)))) + (##car _%e172658173351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171675172371%_)) + (gx#stx-null? _%tl172660173356%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171669172355%_)) - (let ((_%e171676172374%_ + _%tl172654173340%_)) + (let ((_%e172661173359%_ (let () (declare (not safe)) (gx#stx-e - _%tl171669172355%_)))) - (let ((_%tl171678172379%_ + _%tl172654173340%_)))) + (let ((_%tl172663173364%_ (let () (declare (not safe)) - (##cdr _%e171676172374%_))) - (_%hd171677172377%_ + (##cdr _%e172661173359%_))) + (_%hd172662173362%_ (let () (declare (not safe)) - (##car _%e171676172374%_)))) + (##car _%e172661173359%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171677172377%_)) - (let ((_%e171679172382%_ + _%hd172662173362%_)) + (let ((_%e172664173367%_ (let () (declare (not safe)) (gx#stx-e - _%hd171677172377%_)))) - (let ((_%tl171681172387%_ + _%hd172662173362%_)))) + (let ((_%tl172666173372%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171679172382%_))) - (_%hd171680172385%_ - (let () (declare (not safe)) (##car _%e171679172382%_)))) + (##cdr _%e172664173367%_))) + (_%hd172665173370%_ + (let () (declare (not safe)) (##car _%e172664173367%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171680172385%_)) + (gx#identifier? _%hd172665173370%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171680172385%_)) + (gx#stx-eq? '%#quote _%hd172665173370%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171681172387%_)) - (let ((_%e171682172390%_ + (gx#stx-pair? _%tl172666173372%_)) + (let ((_%e172667173375%_ (let () (declare (not safe)) - (gx#stx-e _%tl171681172387%_)))) - (let ((_%tl171684172395%_ + (gx#stx-e _%tl172666173372%_)))) + (let ((_%tl172669173380%_ (let () (declare (not safe)) - (##cdr _%e171682172390%_))) - (_%hd171683172393%_ + (##cdr _%e172667173375%_))) + (_%hd172668173378%_ (let () (declare (not safe)) - (##car _%e171682172390%_)))) + (##car _%e172667173375%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171684172395%_)) + (gx#stx-null? _%tl172669173380%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171678172379%_)) - (let ((_%__splice177611177612%_ + _%tl172663173364%_)) + (let ((_%__splice178596178597%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl171678172379%_ + _%tl172663173364%_ '0)))) - (let ((_%tl171687172400%_ + (let ((_%tl172672173385%_ (let () (declare (not safe)) (##vector-ref - _%__splice177611177612%_ + _%__splice178596178597%_ '1))) - (_%target171685172398%_ + (_%target172670173383%_ (let () (declare (not safe)) (##vector-ref - _%__splice177611177612%_ + _%__splice178596178597%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171687172400%_)) - (_%__match177818177819%_ - _%e171646172294%_ - _%hd171647172297%_ - _%tl171648172299%_ - _%e171649172302%_ - _%hd171650172305%_ - _%tl171651172307%_ - _%e171652172310%_ - _%hd171653172313%_ - _%tl171654172315%_ - _%e171655172318%_ - _%hd171656172321%_ - _%tl171657172323%_ - _%e171658172326%_ - _%hd171659172329%_ - _%tl171660172331%_ - _%e171661172334%_ - _%hd171662172337%_ - _%tl171663172339%_ - _%e171664172342%_ - _%hd171665172345%_ - _%tl171666172347%_ - _%e171667172350%_ - _%hd171668172353%_ - _%tl171669172355%_ - _%e171670172358%_ - _%hd171671172361%_ - _%tl171672172363%_ - _%e171673172366%_ - _%hd171674172369%_ - _%tl171675172371%_ - _%e171676172374%_ - _%hd171677172377%_ - _%tl171678172379%_ - _%e171679172382%_ - _%hd171680172385%_ - _%tl171681172387%_ - _%e171682172390%_ - _%hd171683172393%_ - _%tl171684172395%_ - _%__splice177611177612%_ - _%target171685172398%_ - _%tl171687172400%_) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)) - (_%__kont177621177622%_)) - (_%__kont177621177622%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177621177622%_)))) - (_%__match178100178101%_ - _%e171646172294%_ - _%hd171647172297%_ - _%tl171648172299%_ - _%e171649172302%_ - _%hd171650172305%_ - _%tl171651172307%_ - _%e171652172310%_ - _%hd171653172313%_ - _%tl171654172315%_ - _%e171655172318%_ - _%hd171656172321%_ - _%tl171657172323%_ - _%e171658172326%_ - _%hd171659172329%_ - _%tl171660172331%_ - _%e171661172334%_ - _%hd171662172337%_ - _%tl171663172339%_ - _%e171664172342%_ - _%hd171665172345%_ - _%tl171666172347%_ - _%e171667172350%_ - _%hd171668172353%_ - _%tl171669172355%_)) - (_%__match178100178101%_ - _%e171646172294%_ - _%hd171647172297%_ - _%tl171648172299%_ - _%e171649172302%_ - _%hd171650172305%_ - _%tl171651172307%_ - _%e171652172310%_ - _%hd171653172313%_ - _%tl171654172315%_ - _%e171655172318%_ - _%hd171656172321%_ - _%tl171657172323%_ - _%e171658172326%_ - _%hd171659172329%_ - _%tl171660172331%_ - _%e171661172334%_ - _%hd171662172337%_ - _%tl171663172339%_ - _%e171664172342%_ - _%hd171665172345%_ - _%tl171666172347%_ - _%e171667172350%_ - _%hd171668172353%_ - _%tl171669172355%_)))) - (_%__match178100178101%_ - _%e171646172294%_ - _%hd171647172297%_ - _%tl171648172299%_ - _%e171649172302%_ - _%hd171650172305%_ - _%tl171651172307%_ - _%e171652172310%_ - _%hd171653172313%_ - _%tl171654172315%_ - _%e171655172318%_ - _%hd171656172321%_ - _%tl171657172323%_ - _%e171658172326%_ - _%hd171659172329%_ - _%tl171660172331%_ - _%e171661172334%_ - _%hd171662172337%_ - _%tl171663172339%_ - _%e171664172342%_ - _%hd171665172345%_ - _%tl171666172347%_ - _%e171667172350%_ - _%hd171668172353%_ - _%tl171669172355%_)) - (_%__match177886177887%_ - _%e171646172294%_ - _%hd171647172297%_ - _%tl171648172299%_ - _%e171649172302%_ - _%hd171650172305%_ - _%tl171651172307%_ - _%e171652172310%_ - _%hd171653172313%_ - _%tl171654172315%_ - _%e171655172318%_ - _%hd171656172321%_ - _%tl171657172323%_ - _%e171658172326%_ - _%hd171659172329%_ - _%tl171660172331%_ - _%e171661172334%_ - _%hd171662172337%_ - _%tl171663172339%_ - _%e171664172342%_ - _%hd171665172345%_ - _%tl171666172347%_ - _%e171667172350%_ - _%hd171668172353%_ - _%tl171669172355%_ - _%e171670172358%_ - _%hd171671172361%_ - _%tl171672172363%_)))) - (_%__match177708177709%_ - (lambda (_%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_ - _%e171626172550%_ - _%hd171627172553%_ - _%tl171628172555%_ - _%e171629172558%_ - _%hd171630172561%_ - _%tl171631172563%_ - _%__splice177607177608%_ - _%target171632172566%_ - _%tl171634172568%_) - (letrec ((_%loop171635172571%_ - (lambda (_%hd171633172574%_ - _%args171639172576%_) + (_%__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? _%hd171633172574%_)) - (let ((_%e171636172579%_ + (gx#stx-pair? _%hd172618173559%_)) + (let ((_%e172621173564%_ (let () (declare (not safe)) (gx#stx-e - _%hd171633172574%_)))) - (let ((_%lp-tl171638172584%_ + _%hd172618173559%_)))) + (let ((_%lp-tl172623173569%_ (let () (declare (not safe)) - (##cdr _%e171636172579%_))) - (_%lp-hd171637172582%_ + (##cdr _%e172621173564%_))) + (_%lp-hd172622173567%_ (let () (declare (not safe)) - (##car _%e171636172579%_)))) - (_%loop171635172571%_ - _%lp-tl171638172584%_ - (cons _%lp-hd171637172582%_ - _%args171639172576%_)))) - (let ((_%args171640172587%_ - (reverse _%args171639172576%_))) - (let ((_%L172590%_ - _%args171640172587%_) - (_%L172591%_ - _%hd171630172561%_) - (_%L172592%_ - _%hd171621172537%_) - (_%L172593%_ - _%hd171612172513%_)) + (##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=? - _%L172593%_ + _%L173578%_ 'call-method)) - (let ((__tmp178265 + (let ((__tmp179250 (let () (declare (not safe)) (slot-ref__0 - _%self171585%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172592%_ - __tmp178265))) - (_%__kont177605177606%_ - _%L172590%_ - _%L172591%_ - _%L172592%_ - _%L172593%_) - (_%__match177896177897%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_ - _%e171626172550%_ - _%hd171627172553%_ - _%tl171628172555%_ - _%e171629172558%_ - _%hd171630172561%_ - _%tl171631172563%_)))))))) - (_%loop171635172571%_ _%target171632172566%_ '()))))) + _%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? _%__stx177603177604%_)) - (let ((_%e171602172486%_ + (gx#stx-pair? _%__stx178588178589%_)) + (let ((_%e172587173471%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177603177604%_)))) - (let ((_%tl171604172491%_ + (gx#stx-e _%__stx178588178589%_)))) + (let ((_%tl172589173476%_ (let () (declare (not safe)) - (##cdr _%e171602172486%_))) - (_%hd171603172489%_ + (##cdr _%e172587173471%_))) + (_%hd172588173474%_ (let () (declare (not safe)) - (##car _%e171602172486%_)))) + (##car _%e172587173471%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171604172491%_)) - (let ((_%e171605172494%_ + (gx#stx-pair? _%tl172589173476%_)) + (let ((_%e172590173479%_ (let () (declare (not safe)) - (gx#stx-e _%tl171604172491%_)))) - (let ((_%tl171607172499%_ + (gx#stx-e _%tl172589173476%_)))) + (let ((_%tl172592173484%_ (let () (declare (not safe)) - (##cdr _%e171605172494%_))) - (_%hd171606172497%_ + (##cdr _%e172590173479%_))) + (_%hd172591173482%_ (let () (declare (not safe)) - (##car _%e171605172494%_)))) + (##car _%e172590173479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171606172497%_)) - (let ((_%e171608172502%_ + (gx#stx-pair? _%hd172591173482%_)) + (let ((_%e172593173487%_ (let () (declare (not safe)) - (gx#stx-e _%hd171606172497%_)))) - (let ((_%tl171610172507%_ + (gx#stx-e _%hd172591173482%_)))) + (let ((_%tl172595173492%_ (let () (declare (not safe)) - (##cdr _%e171608172502%_))) - (_%hd171609172505%_ + (##cdr _%e172593173487%_))) + (_%hd172594173490%_ (let () (declare (not safe)) - (##car _%e171608172502%_)))) + (##car _%e172593173487%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171609172505%_)) + _%hd172594173490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171609172505%_)) + _%hd172594173490%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171610172507%_)) - (let ((_%e171611172510%_ + _%tl172595173492%_)) + (let ((_%e172596173495%_ (let () (declare (not safe)) (gx#stx-e - _%tl171610172507%_)))) - (let ((_%tl171613172515%_ + _%tl172595173492%_)))) + (let ((_%tl172598173500%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171611172510%_))) - (_%hd171612172513%_ - (let () (declare (not safe)) (##car _%e171611172510%_)))) + (##cdr _%e172596173495%_))) + (_%hd172597173498%_ + (let () (declare (not safe)) (##car _%e172596173495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171613172515%_)) + (gx#stx-null? _%tl172598173500%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171607172499%_)) - (let ((_%e171614172518%_ + (gx#stx-pair? _%tl172592173484%_)) + (let ((_%e172599173503%_ (let () (declare (not safe)) - (gx#stx-e _%tl171607172499%_)))) - (let ((_%tl171616172523%_ + (gx#stx-e _%tl172592173484%_)))) + (let ((_%tl172601173508%_ (let () (declare (not safe)) - (##cdr _%e171614172518%_))) - (_%hd171615172521%_ + (##cdr _%e172599173503%_))) + (_%hd172600173506%_ (let () (declare (not safe)) - (##car _%e171614172518%_)))) + (##car _%e172599173503%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171615172521%_)) - (let ((_%e171617172526%_ + (gx#stx-pair? _%hd172600173506%_)) + (let ((_%e172602173511%_ (let () (declare (not safe)) - (gx#stx-e _%hd171615172521%_)))) - (let ((_%tl171619172531%_ + (gx#stx-e _%hd172600173506%_)))) + (let ((_%tl172604173516%_ (let () (declare (not safe)) - (##cdr _%e171617172526%_))) - (_%hd171618172529%_ + (##cdr _%e172602173511%_))) + (_%hd172603173514%_ (let () (declare (not safe)) - (##car _%e171617172526%_)))) + (##car _%e172602173511%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171618172529%_)) + (gx#identifier? _%hd172603173514%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171618172529%_)) + _%hd172603173514%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171619172531%_)) - (let ((_%e171620172534%_ + _%tl172604173516%_)) + (let ((_%e172605173519%_ (let () (declare (not safe)) (gx#stx-e - _%tl171619172531%_)))) - (let ((_%tl171622172539%_ + _%tl172604173516%_)))) + (let ((_%tl172607173524%_ (let () (declare (not safe)) - (##cdr _%e171620172534%_))) - (_%hd171621172537%_ + (##cdr _%e172605173519%_))) + (_%hd172606173522%_ (let () (declare (not safe)) - (##car _%e171620172534%_)))) + (##car _%e172605173519%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171622172539%_)) + _%tl172607173524%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171616172523%_)) - (let ((_%e171623172542%_ + _%tl172601173508%_)) + (let ((_%e172608173527%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171616172523%_)))) - (let ((_%tl171625172547%_ + (gx#stx-e _%tl172601173508%_)))) + (let ((_%tl172610173532%_ (let () (declare (not safe)) - (##cdr _%e171623172542%_))) - (_%hd171624172545%_ + (##cdr _%e172608173527%_))) + (_%hd172609173530%_ (let () (declare (not safe)) - (##car _%e171623172542%_)))) + (##car _%e172608173527%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171624172545%_)) - (let ((_%e171626172550%_ + (gx#stx-pair? _%hd172609173530%_)) + (let ((_%e172611173535%_ (let () (declare (not safe)) - (gx#stx-e _%hd171624172545%_)))) - (let ((_%tl171628172555%_ + (gx#stx-e _%hd172609173530%_)))) + (let ((_%tl172613173540%_ (let () (declare (not safe)) - (##cdr _%e171626172550%_))) - (_%hd171627172553%_ + (##cdr _%e172611173535%_))) + (_%hd172612173538%_ (let () (declare (not safe)) - (##car _%e171626172550%_)))) + (##car _%e172611173535%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171627172553%_)) + (gx#identifier? _%hd172612173538%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd171627172553%_)) + _%hd172612173538%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171628172555%_)) - (let ((_%e171629172558%_ + _%tl172613173540%_)) + (let ((_%e172614173543%_ (let () (declare (not safe)) (gx#stx-e - _%tl171628172555%_)))) - (let ((_%tl171631172563%_ + _%tl172613173540%_)))) + (let ((_%tl172616173548%_ (let () (declare (not safe)) - (##cdr _%e171629172558%_))) - (_%hd171630172561%_ + (##cdr _%e172614173543%_))) + (_%hd172615173546%_ (let () (declare (not safe)) - (##car _%e171629172558%_)))) + (##car _%e172614173543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171631172563%_)) + _%tl172616173548%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171625172547%_)) - (let ((_%__splice177607177608%_ + _%tl172610173532%_)) + (let ((_%__splice178592178593%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl171625172547%_ '0)))) - (let ((_%tl171634172568%_ + (gx#syntax-split-splice _%tl172610173532%_ '0)))) + (let ((_%tl172619173553%_ (let () (declare (not safe)) - (##vector-ref _%__splice177607177608%_ '1))) - (_%target171632172566%_ + (##vector-ref _%__splice178592178593%_ '1))) + (_%target172617173551%_ (let () (declare (not safe)) - (##vector-ref _%__splice177607177608%_ '0)))) + (##vector-ref _%__splice178592178593%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171634172568%_)) - (_%__match177708177709%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_ - _%e171626172550%_ - _%hd171627172553%_ - _%tl171628172555%_ - _%e171629172558%_ - _%hd171630172561%_ - _%tl171631172563%_ - _%__splice177607177608%_ - _%target171632172566%_ - _%tl171634172568%_) - (_%__match177896177897%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_ - _%e171626172550%_ - _%hd171627172553%_ - _%tl171628172555%_ - _%e171629172558%_ - _%hd171630172561%_ - _%tl171631172563%_)))) - (_%__match177896177897%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_ - _%e171626172550%_ - _%hd171627172553%_ - _%tl171628172555%_ - _%e171629172558%_ - _%hd171630172561%_ - _%tl171631172563%_)) + (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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178100178101%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_)))) - (_%__match178100178101%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_)) - (_%__match177776177777%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_ - _%e171626172550%_ - _%hd171627172553%_ - _%tl171628172555%_)) - (_%__match178100178101%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_)))) - (_%__match178100178101%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_ - _%e171623172542%_ - _%hd171624172545%_ - _%tl171625172547%_)))) - (_%__match178038178039%_ - _%e171602172486%_ - _%hd171603172489%_ - _%tl171604172491%_ - _%e171605172494%_ - _%hd171606172497%_ - _%tl171607172499%_ - _%e171608172502%_ - _%hd171609172505%_ - _%tl171610172507%_ - _%e171611172510%_ - _%hd171612172513%_ - _%tl171613172515%_ - _%e171614172518%_ - _%hd171615172521%_ - _%tl171616172523%_ - _%e171617172526%_ - _%hd171618172529%_ - _%tl171619172531%_ - _%e171620172534%_ - _%hd171621172537%_ - _%tl171622172539%_)) - (_%__kont177621177622%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177621177622%_)) - (_%__kont177621177622%_)) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)) - (_%__kont177621177622%_)))) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177621177622%_)) - (_%__kont177621177622%_)) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)))) - (_%__kont177621177622%_)))))))))) + (_%__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 1a6c690ca..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]#_g178267_| + (define |gxc[1]#_g179252_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178269_| + (define |gxc[1]#_g179254_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178271_| + (define |gxc[1]#_g179256_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178273_| + (define |gxc[1]#_g179258_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178275_| + (define |gxc[1]#_g179260_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178277_| + (define |gxc[1]#_g179262_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178279_| + (define |gxc[1]#_g179264_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178281_| + (define |gxc[1]#_g179266_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178283_| + (define |gxc[1]#_g179268_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178285_| + (define |gxc[1]#_g179270_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178287_| + (define |gxc[1]#_g179272_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178289_| + (define |gxc[1]#_g179274_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178291_| + (define |gxc[1]#_g179276_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178292_| + (define |gxc[1]#_g179277_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178293_| + (define |gxc[1]#_g179278_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178295_| + (define |gxc[1]#_g179280_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178296_| + (define |gxc[1]#_g179281_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178297_| + (define |gxc[1]#_g179282_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178299_| + (define |gxc[1]#_g179284_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178300_| + (define |gxc[1]#_g179285_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178301_| + (define |gxc[1]#_g179286_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178303_| + (define |gxc[1]#_g179288_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178304_| + (define |gxc[1]#_g179289_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178305_| + (define |gxc[1]#_g179290_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178307_| + (define |gxc[1]#_g179292_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178309_| + (define |gxc[1]#_g179294_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178311_| + (define |gxc[1]#_g179296_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178313_| + (define |gxc[1]#_g179298_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178315_| + (define |gxc[1]#_g179300_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178316_| + (define |gxc[1]#_g179301_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178317_| + (define |gxc[1]#_g179302_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178318_| + (define |gxc[1]#_g179303_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178320_| + (define |gxc[1]#_g179305_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178321_| + (define |gxc[1]#_g179306_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178322_| + (define |gxc[1]#_g179307_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178323_| + (define |gxc[1]#_g179308_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178325_| + (define |gxc[1]#_g179310_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178326_| + (define |gxc[1]#_g179311_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178327_| + (define |gxc[1]#_g179312_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178328_| + (define |gxc[1]#_g179313_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178330_| + (define |gxc[1]#_g179315_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178331_| + (define |gxc[1]#_g179316_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178332_| + (define |gxc[1]#_g179317_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178333_| + (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 ((__obj178104 + (let ((__obj179089 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178104 + __obj179089 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178104 + __obj179089 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '6 '#f '#f)) - (let ((__tmp178266 (cons |gxc[1]#_g178267_| '()))) + (##unchecked-structure-set! __obj179089 '() '6 '#f '#f)) + (let ((__tmp179251 (cons |gxc[1]#_g179252_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj178104 __tmp178266 '3 '#f '#f)) + (##unchecked-structure-set! __obj179089 __tmp179251 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179089 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179089 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '#f '11 '#f '#f)) - (let ((__tmp178268 |gxc[1]#_g178269_|)) + (##unchecked-structure-set! __obj179089 '#f '11 '#f '#f)) + (let ((__tmp179253 |gxc[1]#_g179254_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178104 __tmp178268 '12 '#f '#f)) - (let ((__tmp178270 |gxc[1]#_g178271_|)) + (##unchecked-structure-set! __obj179089 __tmp179253 '12 '#f '#f)) + (let ((__tmp179255 |gxc[1]#_g179256_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178104 __tmp178270 '13 '#f '#f)) - (let ((__tmp178272 |gxc[1]#_g178273_|)) + (##unchecked-structure-set! __obj179089 __tmp179255 '13 '#f '#f)) + (let ((__tmp179257 |gxc[1]#_g179258_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178104 __tmp178272 '14 '#f '#f)) + (##unchecked-structure-set! __obj179089 __tmp179257 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178104 '() '20 '#f '#f)) - __obj178104)) + (##unchecked-structure-set! __obj179089 '() '20 '#f '#f)) + __obj179089)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj178106 + (let ((__obj179091 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178106 + __obj179091 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178106 + __obj179091 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '6 '#f '#f)) - (let ((__tmp178274 (cons |gxc[1]#_g178275_| '()))) + (##unchecked-structure-set! __obj179091 '() '6 '#f '#f)) + (let ((__tmp179259 (cons |gxc[1]#_g179260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj178106 __tmp178274 '3 '#f '#f)) + (##unchecked-structure-set! __obj179091 __tmp179259 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179091 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179091 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '#f '11 '#f '#f)) - (let ((__tmp178276 |gxc[1]#_g178277_|)) + (##unchecked-structure-set! __obj179091 '#f '11 '#f '#f)) + (let ((__tmp179261 |gxc[1]#_g179262_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178106 __tmp178276 '12 '#f '#f)) - (let ((__tmp178278 |gxc[1]#_g178279_|)) + (##unchecked-structure-set! __obj179091 __tmp179261 '12 '#f '#f)) + (let ((__tmp179263 |gxc[1]#_g179264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178106 __tmp178278 '13 '#f '#f)) - (let ((__tmp178280 |gxc[1]#_g178281_|)) + (##unchecked-structure-set! __obj179091 __tmp179263 '13 '#f '#f)) + (let ((__tmp179265 |gxc[1]#_g179266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178106 __tmp178280 '14 '#f '#f)) + (##unchecked-structure-set! __obj179091 __tmp179265 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178106 '() '20 '#f '#f)) - __obj178106)) + (##unchecked-structure-set! __obj179091 '() '20 '#f '#f)) + __obj179091)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj178108 + (let ((__obj179093 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178108 + __obj179093 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178108 + __obj179093 '::collect-object-refs '2 '#f @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178108 + __obj179093 '(receiver methods slots) '4 '#f @@ -553,71 +553,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178108 + __obj179093 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp178282 (cons |gxc[1]#_g178283_| '()))) + (let ((__tmp179267 (cons |gxc[1]#_g179268_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj178108 __tmp178282 '3 '#f '#f)) + (##unchecked-structure-set! __obj179093 __tmp179267 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178108 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179093 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178108 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179093 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178108 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179093 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178108 '#f '11 '#f '#f)) - (let ((__tmp178284 |gxc[1]#_g178285_|)) + (##unchecked-structure-set! __obj179093 '#f '11 '#f '#f)) + (let ((__tmp179269 |gxc[1]#_g179270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178108 __tmp178284 '12 '#f '#f)) - (let ((__tmp178286 |gxc[1]#_g178287_|)) + (##unchecked-structure-set! __obj179093 __tmp179269 '12 '#f '#f)) + (let ((__tmp179271 |gxc[1]#_g179272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178108 __tmp178286 '13 '#f '#f)) - (let ((__tmp178288 |gxc[1]#_g178289_|)) + (##unchecked-structure-set! __obj179093 __tmp179271 '13 '#f '#f)) + (let ((__tmp179273 |gxc[1]#_g179274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178108 __tmp178288 '14 '#f '#f)) - (let ((__tmp178290 - (cons (cons 'receiver |gxc[1]#_g178291_|) - (cons (cons 'methods |gxc[1]#_g178292_|) - (cons (cons 'slots |gxc[1]#_g178293_|) '()))))) + (##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! __obj178108 __tmp178290 '15 '#f '#f)) - (let ((__tmp178294 - (cons (cons 'receiver |gxc[1]#_g178295_|) - (cons (cons 'methods |gxc[1]#_g178296_|) - (cons (cons 'slots |gxc[1]#_g178297_|) '()))))) + (##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! __obj178108 __tmp178294 '16 '#f '#f)) - (let ((__tmp178298 - (cons (cons 'receiver |gxc[1]#_g178299_|) - (cons (cons 'methods |gxc[1]#_g178300_|) - (cons (cons 'slots |gxc[1]#_g178301_|) '()))))) + (##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! __obj178108 __tmp178298 '17 '#f '#f)) - (let ((__tmp178302 - (cons (cons 'receiver |gxc[1]#_g178303_|) - (cons (cons 'methods |gxc[1]#_g178304_|) - (cons (cons 'slots |gxc[1]#_g178305_|) '()))))) + (##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! __obj178108 __tmp178302 '18 '#f '#f)) + (##unchecked-structure-set! __obj179093 __tmp179287 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178108 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179093 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178108 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179093 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178108 '() '20 '#f '#f)) - __obj178108)) + (##unchecked-structure-set! __obj179093 '() '20 '#f '#f)) + __obj179093)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj178110 + (let ((__obj179095 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178110 + __obj179095 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178110 + __obj179095 '::subst-object-refs '2 '#f @@ -662,7 +662,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178110 + __obj179095 '(receiver klass methods slots) '4 '#f @@ -670,74 +670,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178110 + __obj179095 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp178306 (cons |gxc[1]#_g178307_| '()))) + (let ((__tmp179291 (cons |gxc[1]#_g179292_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj178110 __tmp178306 '3 '#f '#f)) + (##unchecked-structure-set! __obj179095 __tmp179291 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178110 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179095 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178110 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179095 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178110 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179095 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178110 '#f '11 '#f '#f)) - (let ((__tmp178308 |gxc[1]#_g178309_|)) + (##unchecked-structure-set! __obj179095 '#f '11 '#f '#f)) + (let ((__tmp179293 |gxc[1]#_g179294_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178110 __tmp178308 '12 '#f '#f)) - (let ((__tmp178310 |gxc[1]#_g178311_|)) + (##unchecked-structure-set! __obj179095 __tmp179293 '12 '#f '#f)) + (let ((__tmp179295 |gxc[1]#_g179296_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178110 __tmp178310 '13 '#f '#f)) - (let ((__tmp178312 |gxc[1]#_g178313_|)) + (##unchecked-structure-set! __obj179095 __tmp179295 '13 '#f '#f)) + (let ((__tmp179297 |gxc[1]#_g179298_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178110 __tmp178312 '14 '#f '#f)) - (let ((__tmp178314 - (cons (cons 'receiver |gxc[1]#_g178315_|) - (cons (cons 'klass |gxc[1]#_g178316_|) - (cons (cons 'methods |gxc[1]#_g178317_|) - (cons (cons 'slots |gxc[1]#_g178318_|) + (##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! __obj178110 __tmp178314 '15 '#f '#f)) - (let ((__tmp178319 - (cons (cons 'receiver |gxc[1]#_g178320_|) - (cons (cons 'klass |gxc[1]#_g178321_|) - (cons (cons 'methods |gxc[1]#_g178322_|) - (cons (cons 'slots |gxc[1]#_g178323_|) + (##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! __obj178110 __tmp178319 '16 '#f '#f)) - (let ((__tmp178324 - (cons (cons 'receiver |gxc[1]#_g178325_|) - (cons (cons 'klass |gxc[1]#_g178326_|) - (cons (cons 'methods |gxc[1]#_g178327_|) - (cons (cons 'slots |gxc[1]#_g178328_|) + (##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! __obj178110 __tmp178324 '17 '#f '#f)) - (let ((__tmp178329 - (cons (cons 'receiver |gxc[1]#_g178330_|) - (cons (cons 'klass |gxc[1]#_g178331_|) - (cons (cons 'methods |gxc[1]#_g178332_|) - (cons (cons 'slots |gxc[1]#_g178333_|) + (##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! __obj178110 __tmp178329 '18 '#f '#f)) + (##unchecked-structure-set! __obj179095 __tmp179314 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178110 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179095 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178110 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179095 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178110 '() '20 '#f '#f)) - __obj178110)))) + (##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 d653bcc02..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 1734131749) + (define gerbil/compiler/optimize-top::timestamp 1734357964) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp171153 (list gxc#::void::t)) - (__tmp171152 (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 - __tmp171153 + __tmp172138 '() - __tmp171152 + __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 _%$args168095%_ + (lambda _%$args169080%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args168095%_))) + _%$args169080%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp171154 + (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 __tmp171154))) + (__make-promise __tmp172139))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx168087%_) + (lambda (_%stx169072%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self168090%_ - (let ((__obj171099 + (let* ((_%self169075%_ + (let ((__obj172084 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj171099)) - (__tmp171155 + __obj172084)) + (__tmp172140 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168090%_ _%stx168087%_))))) + (gxc#compile-e__1 _%self169075%_ _%stx169072%_))))) (declare (not safe)) (__call-with-parameters - __tmp171155 + __tmp172140 gxc#current-compile-method - _%self168090%_)))) + _%self169075%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp171157 (list gxc#::void::t)) - (__tmp171156 (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 - __tmp171157 + __tmp172142 '() - __tmp171156 + __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 _%$args168084%_ + (lambda _%$args169069%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args168084%_))) + _%$args169069%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp171158 + (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 __tmp171158))) + (__make-promise __tmp172143))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx168076%_) + (lambda (_%stx169061%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self168079%_ - (let ((__obj171101 + (let* ((_%self169064%_ + (let ((__obj172086 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj171101)) - (__tmp171159 + __obj172086)) + (__tmp172144 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168079%_ _%stx168076%_))))) + (gxc#compile-e__1 _%self169064%_ _%stx169061%_))))) (declare (not safe)) (__call-with-parameters - __tmp171159 + __tmp172144 gxc#current-compile-method - _%self168079%_)))) + _%self169064%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp171161 (list gxc#::false::t)) - (__tmp171160 (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 - __tmp171161 + __tmp172146 '() - __tmp171160 + __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 _%$args168073%_ + (lambda _%$args169058%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args168073%_))) + _%$args169058%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp171162 + (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 __tmp171162))) + (__make-promise __tmp172147))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx168065%_) + (lambda (_%stx169050%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self168068%_ - (let ((__obj171103 + (let* ((_%self169053%_ + (let ((__obj172088 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj171103)) - (__tmp171163 + __obj172088)) + (__tmp172148 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168068%_ _%stx168065%_))))) + (gxc#compile-e__1 _%self169053%_ _%stx169050%_))))) (declare (not safe)) (__call-with-parameters - __tmp171163 + __tmp172148 gxc#current-compile-method - _%self168068%_)))) + _%self169053%_)))) (define gxc#::collect-type-info::t - (let ((__tmp171165 (list gxc#::void::t)) - (__tmp171164 (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 - __tmp171165 + __tmp172150 '() - __tmp171164 + __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 _%$args168062%_ - (apply make-instance gxc#::collect-type-info::t _%$args168062%_))) + (lambda _%$args169047%_ + (apply make-instance gxc#::collect-type-info::t _%$args169047%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp171166 + (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 __tmp171166))) + (__make-promise __tmp172151))) (define gxc#apply-collect-type-info - (lambda (_%stx168054%_) + (lambda (_%stx169039%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self168057%_ - (let ((__obj171105 + (let* ((_%self169042%_ + (let ((__obj172090 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj171105)) - (__tmp171167 + __obj172090)) + (__tmp172152 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168057%_ _%stx168054%_))))) + (gxc#compile-e__1 _%self169042%_ _%stx169039%_))))) (declare (not safe)) (__call-with-parameters - __tmp171167 + __tmp172152 gxc#current-compile-method - _%self168057%_)))) + _%self169042%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp171169 (list gxc#::void::t)) - (__tmp171168 (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 - __tmp171169 + __tmp172154 '() - __tmp171168 + __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 _%$args168051%_ + (lambda _%$args169036%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args168051%_))) + _%$args169036%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp171170 + (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 __tmp171170))) + (__make-promise __tmp172155))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx168043%_) + (lambda (_%stx169028%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self168046%_ - (let ((__obj171107 + (let* ((_%self169031%_ + (let ((__obj172092 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj171107)) - (__tmp171171 + __obj172092)) + (__tmp172156 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168046%_ _%stx168043%_))))) + (gxc#compile-e__1 _%self169031%_ _%stx169028%_))))) (declare (not safe)) (__call-with-parameters - __tmp171171 + __tmp172156 gxc#current-compile-method - _%self168046%_)))) + _%self169031%_)))) (define gxc#::refine-type-info::t - (let ((__tmp171173 (list gxc#::void::t)) - (__tmp171172 (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 - __tmp171173 + __tmp172158 '() - __tmp171172 + __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 _%$args168040%_ - (apply make-instance gxc#::refine-type-info::t _%$args168040%_))) + (lambda _%$args169025%_ + (apply make-instance gxc#::refine-type-info::t _%$args169025%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp171174 + (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 __tmp171174))) + (__make-promise __tmp172159))) (define gxc#apply-refine-type-info - (lambda (_%stx168032%_) + (lambda (_%stx169017%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self168035%_ - (let ((__obj171109 + (let* ((_%self169020%_ + (let ((__obj172094 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj171109)) - (__tmp171175 + __obj172094)) + (__tmp172160 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168035%_ _%stx168032%_))))) + (gxc#compile-e__1 _%self169020%_ _%stx169017%_))))) (declare (not safe)) (__call-with-parameters - __tmp171175 + __tmp172160 gxc#current-compile-method - _%self168035%_)))) + _%self169020%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp171176 (list gxc#::false::t))) + (let ((__tmp172161 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp171176 + __tmp172161 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args168029%_ - (apply make-instance gxc#::raw-expression-type::t _%$args168029%_))) + (lambda _%$args169014%_ + (apply make-instance gxc#::raw-expression-type::t _%$args169014%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp171177 + (let ((__tmp172162 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp171177))) + (__make-promise __tmp172162))) (define gxc#apply-raw-expression-type - (lambda (_%stx168021%_) + (lambda (_%stx169006%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self168024%_ - (let ((__obj171111 + (let* ((_%self169009%_ + (let ((__obj172096 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj171111)) - (__tmp171178 + __obj172096)) + (__tmp172163 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168024%_ _%stx168021%_))))) + (gxc#compile-e__1 _%self169009%_ _%stx169006%_))))) (declare (not safe)) (__call-with-parameters - __tmp171178 + __tmp172163 gxc#current-compile-method - _%self168024%_)))) + _%self169009%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp171180 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp171179 (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 - __tmp171180 + __tmp172165 '() - __tmp171179 + __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 _%$args168018%_ - (apply make-instance gxc#::basic-expression-type::t _%$args168018%_))) + (lambda _%$args169003%_ + (apply make-instance gxc#::basic-expression-type::t _%$args169003%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp171181 + (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 __tmp171181))) + (__make-promise __tmp172166))) (define gxc#apply-basic-expression-type - (lambda (_%stx168010%_) + (lambda (_%stx168995%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self168013%_ - (let ((__obj171113 + (let* ((_%self168998%_ + (let ((__obj172098 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj171113)) - (__tmp171182 + __obj172098)) + (__tmp172167 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168013%_ _%stx168010%_))))) + (gxc#compile-e__1 _%self168998%_ _%stx168995%_))))) (declare (not safe)) (__call-with-parameters - __tmp171182 + __tmp172167 gxc#current-compile-method - _%self168013%_)))) + _%self168998%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp171184 (list gxc#::basic-xform::t)) - (__tmp171183 (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 - __tmp171184 + __tmp172169 '() - __tmp171183 + __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 _%$args168007%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args168007%_))) + (lambda _%$args168992%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args168992%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp171185 + (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 __tmp171185))) + (__make-promise __tmp172170))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx167999%_) + (lambda (_%stx168984%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self168002%_ - (let ((__obj171115 + (let* ((_%self168987%_ + (let ((__obj172100 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj171115)) - (__tmp171186 + __obj172100)) + (__tmp172171 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self168002%_ _%stx167999%_))))) + (gxc#compile-e__1 _%self168987%_ _%stx168984%_))))) (declare (not safe)) (__call-with-parameters - __tmp171186 + __tmp172171 gxc#current-compile-method - _%self168002%_)))) + _%self168987%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp171188 (list gxc#::false::t)) - (__tmp171187 (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 - __tmp171188 + __tmp172173 '() - __tmp171187 + __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 _%$args167996%_ + (lambda _%$args168981%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args167996%_))) + _%$args168981%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp171189 + (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 __tmp171189))) + (__make-promise __tmp172174))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx167988%_) + (lambda (_%stx168973%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self167991%_ - (let ((__obj171117 + (let* ((_%self168976%_ + (let ((__obj172102 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj171117)) - (__tmp171190 + __obj172102)) + (__tmp172175 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167991%_ _%stx167988%_))))) + (gxc#compile-e__1 _%self168976%_ _%stx168973%_))))) (declare (not safe)) (__call-with-parameters - __tmp171190 + __tmp172175 gxc#current-compile-method - _%self167991%_)))) + _%self168976%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self167890%_ _%stx167891%_) - (let* ((_%__stx168108168109%_ _%stx167891%_) - (_%g167894167914%_ + (lambda (_%self168875%_ _%stx168876%_) + (let* ((_%__stx169093169094%_ _%stx168876%_) + (_%g168879168899%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168108168109%_))))) - (let ((_%__kont168110168111%_ - (lambda (_%L167958%_ _%L167959%_) - (let ((_%sym167977%_ + _%__stx169093169094%_))))) + (let ((_%__kont169095169096%_ + (lambda (_%L168943%_ _%L168944%_) + (let ((_%sym168962%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167959%_)))) + (gxc#identifier-symbol _%L168944%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167890%_ _%L167958%_)) - (let ((_%type167978167980%_ + (gxc#compile-e__1 _%self168875%_ _%L168943%_)) + (let ((_%type168963168965%_ (gxc#apply-basic-expression-top-level-type - _%L167958%_))) - (if _%type167978167980%_ - (let ((_%type167983%_ _%type167978167980%_)) + _%L168943%_))) + (if _%type168963168965%_ + (let ((_%type168968%_ _%type168963168965%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167983%_ + _%type168968%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171191 + (let ((__tmp172176 (let () (declare (not safe)) (##unchecked-structure-ref - _%type167983%_ + _%type168968%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym167977%_ - __tmp171191)) - (let ((__tmp171192 + _%sym168962%_ + __tmp172176)) + (let ((__tmp172177 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167891%_ + _%stx168876%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167977%_ - __tmp171192))) + _%sym168962%_ + __tmp172177))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167977%_ - _%type167983%_)))) + _%sym168962%_ + _%type168968%_)))) '#f))))) - (_%__kont168112168113%_ (lambda () '#!void))) - (let ((_%__match168141168142%_ - (lambda (_%e167898167926%_ - _%hd167899167929%_ - _%tl167900167931%_ - _%e167901167934%_ - _%hd167902167937%_ - _%tl167903167939%_ - _%e167904167942%_ - _%hd167905167945%_ - _%tl167906167947%_ - _%e167907167950%_ - _%hd167908167953%_ - _%tl167909167955%_) - (let ((_%L167958%_ _%hd167908167953%_) - (_%L167959%_ _%hd167905167945%_)) + (_%__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? _%L167959%_)) - (_%__kont168110168111%_ _%L167958%_ _%L167959%_) - (_%__kont168112168113%_)))))) + (gx#identifier? _%L168944%_)) + (_%__kont169095169096%_ _%L168943%_ _%L168944%_) + (_%__kont169097169098%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168108168109%_)) - (let ((_%e167898167926%_ + (gx#stx-pair? _%__stx169093169094%_)) + (let ((_%e168883168911%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168108168109%_)))) - (let ((_%tl167900167931%_ + (gx#stx-e _%__stx169093169094%_)))) + (let ((_%tl168885168916%_ (let () (declare (not safe)) - (##cdr _%e167898167926%_))) - (_%hd167899167929%_ + (##cdr _%e168883168911%_))) + (_%hd168884168914%_ (let () (declare (not safe)) - (##car _%e167898167926%_)))) + (##car _%e168883168911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167900167931%_)) - (let ((_%e167901167934%_ + (gx#stx-pair? _%tl168885168916%_)) + (let ((_%e168886168919%_ (let () (declare (not safe)) - (gx#stx-e _%tl167900167931%_)))) - (let ((_%tl167903167939%_ + (gx#stx-e _%tl168885168916%_)))) + (let ((_%tl168888168924%_ (let () (declare (not safe)) - (##cdr _%e167901167934%_))) - (_%hd167902167937%_ + (##cdr _%e168886168919%_))) + (_%hd168887168922%_ (let () (declare (not safe)) - (##car _%e167901167934%_)))) + (##car _%e168886168919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167902167937%_)) - (let ((_%e167904167942%_ + (gx#stx-pair? _%hd168887168922%_)) + (let ((_%e168889168927%_ (let () (declare (not safe)) - (gx#stx-e _%hd167902167937%_)))) - (let ((_%tl167906167947%_ + (gx#stx-e _%hd168887168922%_)))) + (let ((_%tl168891168932%_ (let () (declare (not safe)) - (##cdr _%e167904167942%_))) - (_%hd167905167945%_ + (##cdr _%e168889168927%_))) + (_%hd168890168930%_ (let () (declare (not safe)) - (##car _%e167904167942%_)))) + (##car _%e168889168927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167906167947%_)) + (gx#stx-null? _%tl168891168932%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167903167939%_)) - (let ((_%e167907167950%_ + _%tl168888168924%_)) + (let ((_%e168892168935%_ (let () (declare (not safe)) (gx#stx-e - _%tl167903167939%_)))) - (let ((_%tl167909167955%_ + _%tl168888168924%_)))) + (let ((_%tl168894168940%_ (let () (declare (not safe)) - (##cdr _%e167907167950%_))) - (_%hd167908167953%_ + (##cdr _%e168892168935%_))) + (_%hd168893168938%_ (let () (declare (not safe)) - (##car _%e167907167950%_)))) + (##car _%e168892168935%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167909167955%_)) - (_%__match168141168142%_ - _%e167898167926%_ - _%hd167899167929%_ - _%tl167900167931%_ - _%e167901167934%_ - _%hd167902167937%_ - _%tl167903167939%_ - _%e167904167942%_ - _%hd167905167945%_ - _%tl167906167947%_ - _%e167907167950%_ - _%hd167908167953%_ - _%tl167909167955%_) - (_%__kont168112168113%_)))) - (_%__kont168112168113%_)) - (_%__kont168112168113%_)))) - (_%__kont168112168113%_)))) - (_%__kont168112168113%_)))) - (_%__kont168112168113%_))))))) + _%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 (_%self167712%_ _%stx167713%_) - (let* ((_%__stx168144168145%_ _%stx167713%_) - (_%g167716167756%_ + (lambda (_%self168697%_ _%stx168698%_) + (let* ((_%__stx169129169130%_ _%stx168698%_) + (_%g168701168741%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168144168145%_))))) - (let ((_%__kont168146168147%_ - (lambda (_%L167862%_ _%L167863%_) - (let ((_%type167885%_ - (let ((__tmp171193 + _%__stx169129169130%_))))) + (let ((_%__kont169131169132%_ + (lambda (_%L168847%_ _%L168848%_) + (let ((_%type168870%_ + (let ((__tmp172178 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167863%_)))) + (gxc#identifier-symbol _%L168848%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171193)))) + (gxc#optimizer-lookup-type __tmp172178)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167885%_ + _%type168870%_ 'gxc#!lambda::t)) - (let ((__tmp171194 - (gxc#eval-in-ssxi-context _%L167862%_))) + (let ((__tmp172179 + (gxc#eval-in-ssxi-context _%L168847%_))) (declare (not safe)) (##unchecked-structure-set! - _%type167885%_ - __tmp171194 + _%type168870%_ + __tmp172179 '5 '#f '#f)) @@ -1139,6747 +1139,6747 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx167713%_ - _%L167863%_)))))) - (_%__kont168148168149%_ - (lambda (_%L167785%_ _%L167786%_) '#!void))) + _%stx168698%_ + _%L168848%_)))))) + (_%__kont169133169134%_ + (lambda (_%L168770%_ _%L168771%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168144168145%_)) - (let ((_%e167720167806%_ + (gx#stx-pair? _%__stx169129169130%_)) + (let ((_%e168705168791%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168144168145%_)))) - (let ((_%tl167722167811%_ + (gx#stx-e _%__stx169129169130%_)))) + (let ((_%tl168707168796%_ (let () (declare (not safe)) - (##cdr _%e167720167806%_))) - (_%hd167721167809%_ + (##cdr _%e168705168791%_))) + (_%hd168706168794%_ (let () (declare (not safe)) - (##car _%e167720167806%_)))) + (##car _%e168705168791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167722167811%_)) - (let ((_%e167723167814%_ + (gx#stx-pair? _%tl168707168796%_)) + (let ((_%e168708168799%_ (let () (declare (not safe)) - (gx#stx-e _%tl167722167811%_)))) - (let ((_%tl167725167819%_ + (gx#stx-e _%tl168707168796%_)))) + (let ((_%tl168710168804%_ (let () (declare (not safe)) - (##cdr _%e167723167814%_))) - (_%hd167724167817%_ + (##cdr _%e168708168799%_))) + (_%hd168709168802%_ (let () (declare (not safe)) - (##car _%e167723167814%_)))) + (##car _%e168708168799%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167724167817%_)) - (let ((_%e167726167822%_ + (gx#stx-pair? _%hd168709168802%_)) + (let ((_%e168711168807%_ (let () (declare (not safe)) - (gx#stx-e _%hd167724167817%_)))) - (let ((_%tl167728167827%_ + (gx#stx-e _%hd168709168802%_)))) + (let ((_%tl168713168812%_ (let () (declare (not safe)) - (##cdr _%e167726167822%_))) - (_%hd167727167825%_ + (##cdr _%e168711168807%_))) + (_%hd168712168810%_ (let () (declare (not safe)) - (##car _%e167726167822%_)))) + (##car _%e168711168807%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167727167825%_)) + (gx#identifier? _%hd168712168810%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd167727167825%_)) + _%hd168712168810%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167728167827%_)) - (let ((_%e167729167830%_ + _%tl168713168812%_)) + (let ((_%e168714168815%_ (let () (declare (not safe)) (gx#stx-e - _%tl167728167827%_)))) - (let ((_%tl167731167835%_ + _%tl168713168812%_)))) + (let ((_%tl168716168820%_ (let () (declare (not safe)) - (##cdr _%e167729167830%_))) - (_%hd167730167833%_ + (##cdr _%e168714168815%_))) + (_%hd168715168818%_ (let () (declare (not safe)) - (##car _%e167729167830%_)))) + (##car _%e168714168815%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167731167835%_)) + _%tl168716168820%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167725167819%_)) - (let ((_%e167732167838%_ + _%tl168710168804%_)) + (let ((_%e168717168823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl167725167819%_)))) - (let ((_%tl167734167843%_ + (gx#stx-e _%tl168710168804%_)))) + (let ((_%tl168719168828%_ (let () (declare (not safe)) - (##cdr _%e167732167838%_))) - (_%hd167733167841%_ + (##cdr _%e168717168823%_))) + (_%hd168718168826%_ (let () (declare (not safe)) - (##car _%e167732167838%_)))) + (##car _%e168717168823%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167733167841%_)) - (let ((_%e167735167846%_ + (gx#stx-pair? _%hd168718168826%_)) + (let ((_%e168720168831%_ (let () (declare (not safe)) - (gx#stx-e _%hd167733167841%_)))) - (let ((_%tl167737167851%_ + (gx#stx-e _%hd168718168826%_)))) + (let ((_%tl168722168836%_ (let () (declare (not safe)) - (##cdr _%e167735167846%_))) - (_%hd167736167849%_ + (##cdr _%e168720168831%_))) + (_%hd168721168834%_ (let () (declare (not safe)) - (##car _%e167735167846%_)))) + (##car _%e168720168831%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167736167849%_)) + (gx#identifier? _%hd168721168834%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd167736167849%_)) + _%hd168721168834%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167737167851%_)) - (let ((_%e167738167854%_ + _%tl168722168836%_)) + (let ((_%e168723168839%_ (let () (declare (not safe)) (gx#stx-e - _%tl167737167851%_)))) - (let ((_%tl167740167859%_ + _%tl168722168836%_)))) + (let ((_%tl168725168844%_ (let () (declare (not safe)) - (##cdr _%e167738167854%_))) - (_%hd167739167857%_ + (##cdr _%e168723168839%_))) + (_%hd168724168842%_ (let () (declare (not safe)) - (##car _%e167738167854%_)))) + (##car _%e168723168839%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167740167859%_)) + _%tl168725168844%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167734167843%_)) - (_%__kont168146168147%_ - _%hd167739167857%_ - _%hd167730167833%_) + _%tl168719168828%_)) + (_%__kont169131169132%_ + _%hd168724168842%_ + _%hd168715168818%_) (let () (declare (not safe)) - (_%g167716167756%_))) + (_%g168701168741%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167734167843%_)) - (_%__kont168148168149%_ - _%hd167733167841%_ - _%hd167724167817%_) + _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_)))))) + (_%g168701168741%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167734167843%_)) - (_%__kont168148168149%_ - _%hd167733167841%_ - _%hd167724167817%_) + _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167734167843%_)) - (_%__kont168148168149%_ - _%hd167733167841%_ - _%hd167724167817%_) + _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167734167843%_)) - (_%__kont168148168149%_ - _%hd167733167841%_ - _%hd167724167817%_) + (gx#stx-null? _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_)))))) + (_%g168701168741%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167734167843%_)) - (_%__kont168148168149%_ - _%hd167733167841%_ - _%hd167724167817%_) + (gx#stx-null? _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_)))))) - (let () (declare (not safe)) (_%g167716167756%_))) + (_%g168701168741%_)))))) + (let () (declare (not safe)) (_%g168701168741%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167725167819%_)) - (let ((_%e167749167777%_ + (gx#stx-pair? _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) - (gx#stx-e _%tl167725167819%_)))) - (let ((_%tl167751167782%_ + (gx#stx-e _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167749167777%_))) - (_%hd167750167780%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167749167777%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167751167782%_)) - (_%__kont168148168149%_ - _%hd167750167780%_ - _%hd167724167817%_) + (gx#stx-null? _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_))))) - (let () (declare (not safe)) (_%g167716167756%_)))))) + (_%g168701168741%_))))) + (let () (declare (not safe)) (_%g168701168741%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167725167819%_)) - (let ((_%e167749167777%_ + _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) (gx#stx-e - _%tl167725167819%_)))) - (let ((_%tl167751167782%_ + _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167749167777%_))) - (_%hd167750167780%_ - (let () (declare (not safe)) (##car _%e167749167777%_)))) + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ + (let () (declare (not safe)) (##car _%e168734168762%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167751167782%_)) - (_%__kont168148168149%_ - _%hd167750167780%_ - _%hd167724167817%_) - (let () (declare (not safe)) (_%g167716167756%_))))) + (gx#stx-null? _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) + (let () (declare (not safe)) (_%g168701168741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167716167756%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167725167819%_)) - (let ((_%e167749167777%_ + _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) (gx#stx-e - _%tl167725167819%_)))) - (let ((_%tl167751167782%_ + _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167749167777%_))) - (_%hd167750167780%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167749167777%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167751167782%_)) - (_%__kont168148168149%_ - _%hd167750167780%_ - _%hd167724167817%_) + _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_))))) + (_%g168701168741%_))))) (let () (declare (not safe)) - (_%g167716167756%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167725167819%_)) - (let ((_%e167749167777%_ + _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) (gx#stx-e - _%tl167725167819%_)))) - (let ((_%tl167751167782%_ + _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167749167777%_))) - (_%hd167750167780%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167749167777%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167751167782%_)) - (_%__kont168148168149%_ - _%hd167750167780%_ - _%hd167724167817%_) + _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_))))) + (_%g168701168741%_))))) (let () (declare (not safe)) - (_%g167716167756%_)))))) + (_%g168701168741%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167725167819%_)) - (let ((_%e167749167777%_ + (gx#stx-pair? _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) - (gx#stx-e _%tl167725167819%_)))) - (let ((_%tl167751167782%_ + (gx#stx-e _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167749167777%_))) - (_%hd167750167780%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167749167777%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167751167782%_)) - (_%__kont168148168149%_ - _%hd167750167780%_ - _%hd167724167817%_) + _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167716167756%_))))) + (_%g168701168741%_))))) (let () (declare (not safe)) - (_%g167716167756%_)))))) - (let () (declare (not safe)) (_%g167716167756%_))))) - (let () (declare (not safe)) (_%g167716167756%_))))))) + (_%g168701168741%_)))))) + (let () (declare (not safe)) (_%g168701168741%_))))) + (let () (declare (not safe)) (_%g168701168741%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr167709%_) - (let ((__tmp171196 + (lambda (_%expr168694%_) + (let ((__tmp172181 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr167709%_)))) - (__tmp171195 - (let ((__obj171118 + (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 __obj171118)) - __obj171118))) + (gx#top-context:::init!__0 __obj172103)) + __obj172103))) (declare (not safe)) (__call-with-parameters - __tmp171196 + __tmp172181 gx#current-expander-context - __tmp171195)))) + __tmp172180)))) (define gxc#collect-type-define-values% - (lambda (_%self167571%_ _%stx167572%_) - (let* ((_%__stx168228168229%_ _%stx167572%_) - (_%g167575167605%_ + (lambda (_%self168556%_ _%stx168557%_) + (let* ((_%__stx169213169214%_ _%stx168557%_) + (_%g168560168590%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168228168229%_))))) - (let ((_%__kont168230168231%_ - (lambda (_%L167685%_ _%L167686%_) - (let ((_%sym167702%_ + _%__stx169213169214%_))))) + (let ((_%__kont169215169216%_ + (lambda (_%L168670%_ _%L168671%_) + (let ((_%sym168687%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167686%_)))) + (gxc#identifier-symbol _%L168671%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym167702%_)) + (gxc#optimizer-lookup-type _%sym168687%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167571%_ _%L167685%_)) - (let ((_%type167704%_ - (gxc#apply-basic-expression-type _%L167685%_))) - (if _%type167704%_ + (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 - _%sym167702%_ - _%type167704%_)) + _%sym168687%_ + _%type168689%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self167571%_ - _%L167685%_))))))) - (_%__kont168232168233%_ - (lambda (_%L167634%_) + _%self168556%_ + _%L168670%_))))))) + (_%__kont169217169218%_ + (lambda (_%L168619%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167571%_ _%L167634%_))))) - (let ((_%__match168261168262%_ - (lambda (_%e167579167653%_ - _%hd167580167656%_ - _%tl167581167658%_ - _%e167582167661%_ - _%hd167583167664%_ - _%tl167584167666%_ - _%e167585167669%_ - _%hd167586167672%_ - _%tl167587167674%_ - _%e167588167677%_ - _%hd167589167680%_ - _%tl167590167682%_) - (let ((_%L167685%_ _%hd167589167680%_) - (_%L167686%_ _%hd167586167672%_)) + (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? _%L167686%_)) - (_%__kont168230168231%_ _%L167685%_ _%L167686%_) - (_%__kont168232168233%_ _%hd167589167680%_)))))) + (gx#identifier? _%L168671%_)) + (_%__kont169215169216%_ _%L168670%_ _%L168671%_) + (_%__kont169217169218%_ _%hd168574168665%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168228168229%_)) - (let ((_%e167579167653%_ + (gx#stx-pair? _%__stx169213169214%_)) + (let ((_%e168564168638%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168228168229%_)))) - (let ((_%tl167581167658%_ + (gx#stx-e _%__stx169213169214%_)))) + (let ((_%tl168566168643%_ (let () (declare (not safe)) - (##cdr _%e167579167653%_))) - (_%hd167580167656%_ + (##cdr _%e168564168638%_))) + (_%hd168565168641%_ (let () (declare (not safe)) - (##car _%e167579167653%_)))) + (##car _%e168564168638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167581167658%_)) - (let ((_%e167582167661%_ + (gx#stx-pair? _%tl168566168643%_)) + (let ((_%e168567168646%_ (let () (declare (not safe)) - (gx#stx-e _%tl167581167658%_)))) - (let ((_%tl167584167666%_ + (gx#stx-e _%tl168566168643%_)))) + (let ((_%tl168569168651%_ (let () (declare (not safe)) - (##cdr _%e167582167661%_))) - (_%hd167583167664%_ + (##cdr _%e168567168646%_))) + (_%hd168568168649%_ (let () (declare (not safe)) - (##car _%e167582167661%_)))) + (##car _%e168567168646%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167583167664%_)) - (let ((_%e167585167669%_ + (gx#stx-pair? _%hd168568168649%_)) + (let ((_%e168570168654%_ (let () (declare (not safe)) - (gx#stx-e _%hd167583167664%_)))) - (let ((_%tl167587167674%_ + (gx#stx-e _%hd168568168649%_)))) + (let ((_%tl168572168659%_ (let () (declare (not safe)) - (##cdr _%e167585167669%_))) - (_%hd167586167672%_ + (##cdr _%e168570168654%_))) + (_%hd168571168657%_ (let () (declare (not safe)) - (##car _%e167585167669%_)))) + (##car _%e168570168654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167587167674%_)) + (gx#stx-null? _%tl168572168659%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167584167666%_)) - (let ((_%e167588167677%_ + _%tl168569168651%_)) + (let ((_%e168573168662%_ (let () (declare (not safe)) (gx#stx-e - _%tl167584167666%_)))) - (let ((_%tl167590167682%_ + _%tl168569168651%_)))) + (let ((_%tl168575168667%_ (let () (declare (not safe)) - (##cdr _%e167588167677%_))) - (_%hd167589167680%_ + (##cdr _%e168573168662%_))) + (_%hd168574168665%_ (let () (declare (not safe)) - (##car _%e167588167677%_)))) + (##car _%e168573168662%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167590167682%_)) - (_%__match168261168262%_ - _%e167579167653%_ - _%hd167580167656%_ - _%tl167581167658%_ - _%e167582167661%_ - _%hd167583167664%_ - _%tl167584167666%_ - _%e167585167669%_ - _%hd167586167672%_ - _%tl167587167674%_ - _%e167588167677%_ - _%hd167589167680%_ - _%tl167590167682%_) + _%tl168575168667%_)) + (_%__match169246169247%_ + _%e168564168638%_ + _%hd168565168641%_ + _%tl168566168643%_ + _%e168567168646%_ + _%hd168568168649%_ + _%tl168569168651%_ + _%e168570168654%_ + _%hd168571168657%_ + _%tl168572168659%_ + _%e168573168662%_ + _%hd168574168665%_ + _%tl168575168667%_) (let () (declare (not safe)) - (_%g167575167605%_))))) + (_%g168560168590%_))))) (let () (declare (not safe)) - (_%g167575167605%_))) + (_%g168560168590%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167584167666%_)) - (let ((_%e167598167626%_ + _%tl168569168651%_)) + (let ((_%e168583168611%_ (let () (declare (not safe)) (gx#stx-e - _%tl167584167666%_)))) - (let ((_%tl167600167631%_ + _%tl168569168651%_)))) + (let ((_%tl168585168616%_ (let () (declare (not safe)) - (##cdr _%e167598167626%_))) - (_%hd167599167629%_ + (##cdr _%e168583168611%_))) + (_%hd168584168614%_ (let () (declare (not safe)) - (##car _%e167598167626%_)))) + (##car _%e168583168611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167600167631%_)) - (_%__kont168232168233%_ - _%hd167599167629%_) + _%tl168585168616%_)) + (_%__kont169217169218%_ + _%hd168584168614%_) (let () (declare (not safe)) - (_%g167575167605%_))))) + (_%g168560168590%_))))) (let () (declare (not safe)) - (_%g167575167605%_)))))) + (_%g168560168590%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167584167666%_)) - (let ((_%e167598167626%_ + (gx#stx-pair? _%tl168569168651%_)) + (let ((_%e168583168611%_ (let () (declare (not safe)) - (gx#stx-e _%tl167584167666%_)))) - (let ((_%tl167600167631%_ + (gx#stx-e _%tl168569168651%_)))) + (let ((_%tl168585168616%_ (let () (declare (not safe)) - (##cdr _%e167598167626%_))) - (_%hd167599167629%_ + (##cdr _%e168583168611%_))) + (_%hd168584168614%_ (let () (declare (not safe)) - (##car _%e167598167626%_)))) + (##car _%e168583168611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167600167631%_)) - (_%__kont168232168233%_ - _%hd167599167629%_) + _%tl168585168616%_)) + (_%__kont169217169218%_ + _%hd168584168614%_) (let () (declare (not safe)) - (_%g167575167605%_))))) + (_%g168560168590%_))))) (let () (declare (not safe)) - (_%g167575167605%_)))))) - (let () (declare (not safe)) (_%g167575167605%_))))) - (let () (declare (not safe)) (_%g167575167605%_)))))))) + (_%g168560168590%_)))))) + (let () (declare (not safe)) (_%g168560168590%_))))) + (let () (declare (not safe)) (_%g168560168590%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self167326%_ _%stx167327%_) - (let* ((_%__stx168306168307%_ _%stx167327%_) - (_%g167330167370%_ + (lambda (_%self168311%_ _%stx168312%_) + (let* ((_%__stx169291169292%_ _%stx168312%_) + (_%g168315168355%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168306168307%_))))) - (let ((_%__kont168308168309%_ - (lambda (_%L167476%_ _%L167477%_) + _%__stx169291169292%_))))) + (let ((_%__kont169293169294%_ + (lambda (_%L168461%_ _%L168462%_) (for-each - (lambda (_%assertion167497%_) - (let* ((_%__stx168284168285%_ _%assertion167497%_) - (_%g167500167514%_ + (lambda (_%assertion168482%_) + (let* ((_%__stx169269169270%_ _%assertion168482%_) + (_%g168485168499%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168284168285%_))))) - (let ((_%__kont168286168287%_ - (lambda (_%L167542%_ _%L167543%_) - (let ((__tmp171199 + _%__stx169269169270%_))))) + (let ((_%__kont169271169272%_ + (lambda (_%L168527%_ _%L168528%_) + (let ((__tmp172184 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167543%_))) - (__tmp171197 - (let ((__tmp171198 + (gxc#identifier-symbol _%L168528%_))) + (__tmp172182 + (let ((__tmp172183 (let () (declare (not safe)) (gxc#identifier-symbol - _%L167542%_)))) + _%L168527%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167327%_ - __tmp171198)))) + _%stx168312%_ + __tmp172183)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp171199 - __tmp171197 + __tmp172184 + __tmp172182 '#t)))) - (_%__kont168288168289%_ + (_%__kont169273169274%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx167327%_ - _%assertion167497%_))))) - (let ((_%__match168303168304%_ - (lambda (_%e167504167526%_ - _%hd167505167529%_ - _%tl167506167531%_ - _%e167507167534%_ - _%hd167508167537%_ - _%tl167509167539%_) - (let ((_%L167542%_ _%hd167508167537%_) - (_%L167543%_ _%hd167505167529%_)) + _%stx168312%_ + _%assertion168482%_))))) + (let ((_%__match169288169289%_ + (lambda (_%e168489168511%_ + _%hd168490168514%_ + _%tl168491168516%_ + _%e168492168519%_ + _%hd168493168522%_ + _%tl168494168524%_) + (let ((_%L168527%_ _%hd168493168522%_) + (_%L168528%_ _%hd168490168514%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L167543%_)) + (gx#identifier? _%L168528%_)) (let () (declare (not safe)) - (gx#identifier? _%L167542%_))) - (_%__kont168286168287%_ - _%L167542%_ - _%L167543%_) - (_%__kont168288168289%_)))))) + (gx#identifier? _%L168527%_))) + (_%__kont169271169272%_ + _%L168527%_ + _%L168528%_) + (_%__kont169273169274%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168284168285%_)) - (let ((_%e167504167526%_ + (gx#stx-pair? _%__stx169269169270%_)) + (let ((_%e168489168511%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168284168285%_)))) - (let ((_%tl167506167531%_ + (gx#stx-e _%__stx169269169270%_)))) + (let ((_%tl168491168516%_ (let () (declare (not safe)) - (##cdr _%e167504167526%_))) - (_%hd167505167529%_ + (##cdr _%e168489168511%_))) + (_%hd168490168514%_ (let () (declare (not safe)) - (##car _%e167504167526%_)))) + (##car _%e168489168511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167506167531%_)) - (let ((_%e167507167534%_ + (gx#stx-pair? _%tl168491168516%_)) + (let ((_%e168492168519%_ (let () (declare (not safe)) (gx#stx-e - _%tl167506167531%_)))) - (let ((_%tl167509167539%_ + _%tl168491168516%_)))) + (let ((_%tl168494168524%_ (let () (declare (not safe)) - (##cdr _%e167507167534%_))) - (_%hd167508167537%_ + (##cdr _%e168492168519%_))) + (_%hd168493168522%_ (let () (declare (not safe)) - (##car _%e167507167534%_)))) + (##car _%e168492168519%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167509167539%_)) - (_%__match168303168304%_ - _%e167504167526%_ - _%hd167505167529%_ - _%tl167506167531%_ - _%e167507167534%_ - _%hd167508167537%_ - _%tl167509167539%_) - (_%__kont168288168289%_)))) - (_%__kont168288168289%_)))) - (_%__kont168288168289%_)))))) - (let ((__tmp171200 - (lambda (_%g167560167563%_ _%g167561167565%_) - (cons _%g167560167563%_ _%g167561167565%_)))) + _%tl168494168524%_)) + (_%__match169288169289%_ + _%e168489168511%_ + _%hd168490168514%_ + _%tl168491168516%_ + _%e168492168519%_ + _%hd168493168522%_ + _%tl168494168524%_) + (_%__kont169273169274%_)))) + (_%__kont169273169274%_)))) + (_%__kont169273169274%_)))))) + (let ((__tmp172185 + (lambda (_%g168545168548%_ _%g168546168550%_) + (cons _%g168545168548%_ _%g168546168550%_)))) (declare (not safe)) - (__foldr1 __tmp171200 '() _%L167477%_))) + (__foldr1 __tmp172185 '() _%L168462%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167326%_ _%L167476%_)))) - (_%__kont168312168313%_ - (lambda (_%L167399%_ _%L167400%_) + (gxc#compile-e__1 _%self168311%_ _%L168461%_)))) + (_%__kont169297169298%_ + (lambda (_%L168384%_ _%L168385%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167326%_ _%L167399%_))))) - (let ((_%__match168343168344%_ - (lambda (_%e167334167420%_ - _%hd167335167423%_ - _%tl167336167425%_ - _%e167337167428%_ - _%hd167338167431%_ - _%tl167339167433%_ - _%e167340167436%_ - _%hd167341167439%_ - _%tl167342167441%_ - _%__splice168310168311%_ - _%target167343167444%_ - _%tl167345167446%_) - (letrec ((_%loop167346167449%_ - (lambda (_%hd167344167452%_ - _%assertion167350167454%_) + (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? _%hd167344167452%_)) - (let ((_%e167347167457%_ + (gx#stx-pair? _%hd168329168437%_)) + (let ((_%e168332168442%_ (let () (declare (not safe)) - (gx#stx-e _%hd167344167452%_)))) - (let ((_%lp-tl167349167462%_ + (gx#stx-e _%hd168329168437%_)))) + (let ((_%lp-tl168334168447%_ (let () (declare (not safe)) - (##cdr _%e167347167457%_))) - (_%lp-hd167348167460%_ + (##cdr _%e168332168442%_))) + (_%lp-hd168333168445%_ (let () (declare (not safe)) - (##car _%e167347167457%_)))) - (_%loop167346167449%_ - _%lp-tl167349167462%_ - (cons _%lp-hd167348167460%_ - _%assertion167350167454%_)))) - (let ((_%assertion167351167465%_ - (reverse _%assertion167350167454%_))) + (##car _%e168332168442%_)))) + (_%loop168331168434%_ + _%lp-tl168334168447%_ + (cons _%lp-hd168333168445%_ + _%assertion168335168439%_)))) + (let ((_%assertion168336168450%_ + (reverse _%assertion168335168439%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167339167433%_)) - (let ((_%e167352167468%_ + (gx#stx-pair? _%tl168324168418%_)) + (let ((_%e168337168453%_ (let () (declare (not safe)) (gx#stx-e - _%tl167339167433%_)))) - (let ((_%tl167354167473%_ + _%tl168324168418%_)))) + (let ((_%tl168339168458%_ (let () (declare (not safe)) - (##cdr _%e167352167468%_))) - (_%hd167353167471%_ + (##cdr _%e168337168453%_))) + (_%hd168338168456%_ (let () (declare (not safe)) - (##car _%e167352167468%_)))) + (##car _%e168337168453%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167354167473%_)) - (_%__kont168308168309%_ - _%hd167353167471%_ - _%assertion167351167465%_) + _%tl168339168458%_)) + (_%__kont169293169294%_ + _%hd168338168456%_ + _%assertion168336168450%_) (let () (declare (not safe)) - (_%g167330167370%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167330167370%_)))))))) - (_%loop167346167449%_ _%target167343167444%_ '()))))) + (_%g168315168355%_)))))))) + (_%loop168331168434%_ _%target168328168429%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168306168307%_)) - (let ((_%e167334167420%_ + (gx#stx-pair? _%__stx169291169292%_)) + (let ((_%e168319168405%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168306168307%_)))) - (let ((_%tl167336167425%_ + (gx#stx-e _%__stx169291169292%_)))) + (let ((_%tl168321168410%_ (let () (declare (not safe)) - (##cdr _%e167334167420%_))) - (_%hd167335167423%_ + (##cdr _%e168319168405%_))) + (_%hd168320168408%_ (let () (declare (not safe)) - (##car _%e167334167420%_)))) + (##car _%e168319168405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167336167425%_)) - (let ((_%e167337167428%_ + (gx#stx-pair? _%tl168321168410%_)) + (let ((_%e168322168413%_ (let () (declare (not safe)) - (gx#stx-e _%tl167336167425%_)))) - (let ((_%tl167339167433%_ + (gx#stx-e _%tl168321168410%_)))) + (let ((_%tl168324168418%_ (let () (declare (not safe)) - (##cdr _%e167337167428%_))) - (_%hd167338167431%_ + (##cdr _%e168322168413%_))) + (_%hd168323168416%_ (let () (declare (not safe)) - (##car _%e167337167428%_)))) + (##car _%e168322168413%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167338167431%_)) - (let ((_%e167340167436%_ + (gx#stx-pair? _%hd168323168416%_)) + (let ((_%e168325168421%_ (let () (declare (not safe)) - (gx#stx-e _%hd167338167431%_)))) - (let ((_%tl167342167441%_ + (gx#stx-e _%hd168323168416%_)))) + (let ((_%tl168327168426%_ (let () (declare (not safe)) - (##cdr _%e167340167436%_))) - (_%hd167341167439%_ + (##cdr _%e168325168421%_))) + (_%hd168326168424%_ (let () (declare (not safe)) - (##car _%e167340167436%_)))) + (##car _%e168325168421%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167341167439%_)) + _%hd168326168424%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd167341167439%_)) + _%hd168326168424%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl167342167441%_)) - (let ((_%__splice168310168311%_ + _%tl168327168426%_)) + (let ((_%__splice169295169296%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl167342167441%_ + _%tl168327168426%_ '0)))) - (let ((_%tl167345167446%_ + (let ((_%tl168330168431%_ (let () (declare (not safe)) (##vector-ref - _%__splice168310168311%_ + _%__splice169295169296%_ '1))) - (_%target167343167444%_ + (_%target168328168429%_ (let () (declare (not safe)) (##vector-ref - _%__splice168310168311%_ + _%__splice169295169296%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167345167446%_)) - (_%__match168343168344%_ - _%e167334167420%_ - _%hd167335167423%_ - _%tl167336167425%_ - _%e167337167428%_ - _%hd167338167431%_ - _%tl167339167433%_ - _%e167340167436%_ - _%hd167341167439%_ - _%tl167342167441%_ - _%__splice168310168311%_ - _%target167343167444%_ - _%tl167345167446%_) + _%tl168330168431%_)) + (_%__match169328169329%_ + _%e168319168405%_ + _%hd168320168408%_ + _%tl168321168410%_ + _%e168322168413%_ + _%hd168323168416%_ + _%tl168324168418%_ + _%e168325168421%_ + _%hd168326168424%_ + _%tl168327168426%_ + _%__splice169295169296%_ + _%target168328168429%_ + _%tl168330168431%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl167339167433%_)) - (let ((_%e167363167391%_ + (gx#stx-pair? _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) - (gx#stx-e _%tl167339167433%_)))) - (let ((_%tl167365167396%_ + (gx#stx-e _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167363167391%_))) - (_%hd167364167394%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167363167391%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167365167396%_)) - (_%__kont168312168313%_ - _%hd167364167394%_ - _%hd167338167431%_) + (gx#stx-null? _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167330167370%_))))) - (let () (declare (not safe)) (_%g167330167370%_)))))) + (_%g168315168355%_))))) + (let () (declare (not safe)) (_%g168315168355%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167339167433%_)) - (let ((_%e167363167391%_ + _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl167339167433%_)))) - (let ((_%tl167365167396%_ - (let () (declare (not safe)) (##cdr _%e167363167391%_))) - (_%hd167364167394%_ + (gx#stx-e _%tl168324168418%_)))) + (let ((_%tl168350168381%_ + (let () (declare (not safe)) (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167363167391%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167365167396%_)) - (_%__kont168312168313%_ - _%hd167364167394%_ - _%hd167338167431%_) - (let () (declare (not safe)) (_%g167330167370%_))))) - (let () (declare (not safe)) (_%g167330167370%_)))) + (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? - _%tl167339167433%_)) - (let ((_%e167363167391%_ + _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) (gx#stx-e - _%tl167339167433%_)))) - (let ((_%tl167365167396%_ + _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167363167391%_))) - (_%hd167364167394%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167363167391%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167365167396%_)) - (_%__kont168312168313%_ - _%hd167364167394%_ - _%hd167338167431%_) + _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167330167370%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167330167370%_)))) + (_%g168315168355%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167339167433%_)) - (let ((_%e167363167391%_ + _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) (gx#stx-e - _%tl167339167433%_)))) - (let ((_%tl167365167396%_ + _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167363167391%_))) - (_%hd167364167394%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167363167391%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167365167396%_)) - (_%__kont168312168313%_ - _%hd167364167394%_ - _%hd167338167431%_) + _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167330167370%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167330167370%_)))))) + (_%g168315168355%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167339167433%_)) - (let ((_%e167363167391%_ + (gx#stx-pair? _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) - (gx#stx-e _%tl167339167433%_)))) - (let ((_%tl167365167396%_ + (gx#stx-e _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167363167391%_))) - (_%hd167364167394%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167363167391%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167365167396%_)) - (_%__kont168312168313%_ - _%hd167364167394%_ - _%hd167338167431%_) + _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167330167370%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167330167370%_)))))) - (let () (declare (not safe)) (_%g167330167370%_))))) - (let () (declare (not safe)) (_%g167330167370%_)))))))) + (_%g168315168355%_)))))) + (let () (declare (not safe)) (_%g168315168355%_))))) + (let () (declare (not safe)) (_%g168315168355%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self167270%_ _%stx167271%_) - (let* ((_%g167273167287%_ - (lambda (_%g167274167284%_) + (lambda (_%self168255%_ _%stx168256%_) + (let* ((_%g168258168272%_ + (lambda (_%g168259168269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167274167284%_)))) - (_%g167272167323%_ - (lambda (_%g167274167290%_) + _%g168259168269%_)))) + (_%g168257168308%_ + (lambda (_%g168259168275%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167274167290%_)) - (let ((_%e167277167292%_ + (gx#stx-pair? _%g168259168275%_)) + (let ((_%e168262168277%_ (let () (declare (not safe)) - (gx#stx-e _%g167274167290%_)))) - (let ((_%hd167278167295%_ + (gx#stx-e _%g168259168275%_)))) + (let ((_%hd168263168280%_ (let () (declare (not safe)) - (##car _%e167277167292%_))) - (_%tl167279167297%_ + (##car _%e168262168277%_))) + (_%tl168264168282%_ (let () (declare (not safe)) - (##cdr _%e167277167292%_)))) + (##cdr _%e168262168277%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167279167297%_)) - (let ((_%e167280167300%_ + (gx#stx-pair? _%tl168264168282%_)) + (let ((_%e168265168285%_ (let () (declare (not safe)) - (gx#stx-e _%tl167279167297%_)))) - (let ((_%hd167281167303%_ + (gx#stx-e _%tl168264168282%_)))) + (let ((_%hd168266168288%_ (let () (declare (not safe)) - (##car _%e167280167300%_))) - (_%tl167282167305%_ + (##car _%e168265168285%_))) + (_%tl168267168290%_ (let () (declare (not safe)) - (##cdr _%e167280167300%_)))) - ((lambda (_%L167308%_ _%L167309%_) - (let ((__tmp171202 + (##cdr _%e168265168285%_)))) + ((lambda (_%L168293%_ _%L168294%_) + (let ((__tmp172187 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx167271%_ - _%L167309%_) + _%stx168256%_ + _%L168294%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self167270%_ - _%stx167271%_)))) - (__tmp171201 + _%self168255%_ + _%stx168256%_)))) + (__tmp172186 (let () (declare (not safe)) (gxc#xform-let-locals - _%L167309%_)))) + _%L168294%_)))) (declare (not safe)) (__call-with-parameters - __tmp171202 + __tmp172187 gxc#current-compile-local-env - __tmp171201))) - _%tl167282167305%_ - _%hd167281167303%_))) - (_%g167273167287%_ _%g167274167290%_)))) - (_%g167273167287%_ _%g167274167290%_))))) - (_%g167272167323%_ _%stx167271%_)))) + __tmp172186))) + _%tl168267168290%_ + _%hd168266168288%_))) + (_%g168258168272%_ _%g168259168275%_)))) + (_%g168258168272%_ _%g168259168275%_))))) + (_%g168257168308%_ _%stx168256%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self167086%_ _%stx167087%_) - (let* ((_%g167089167117%_ - (lambda (_%g167090167114%_) + (lambda (_%self168071%_ _%stx168072%_) + (let* ((_%g168074168102%_ + (lambda (_%g168075168099%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167090167114%_)))) - (_%g167088167267%_ - (lambda (_%g167090167120%_) + _%g168075168099%_)))) + (_%g168073168252%_ + (lambda (_%g168075168105%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167090167120%_)) - (let ((_%e167093167122%_ + (gx#stx-pair? _%g168075168105%_)) + (let ((_%e168078168107%_ (let () (declare (not safe)) - (gx#stx-e _%g167090167120%_)))) - (let ((_%hd167094167125%_ + (gx#stx-e _%g168075168105%_)))) + (let ((_%hd168079168110%_ (let () (declare (not safe)) - (##car _%e167093167122%_))) - (_%tl167095167127%_ + (##car _%e168078168107%_))) + (_%tl168080168112%_ (let () (declare (not safe)) - (##cdr _%e167093167122%_)))) + (##cdr _%e168078168107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl167095167127%_)) - (let ((_g171203_ + (gx#stx-pair/null? _%tl168080168112%_)) + (let ((_g172188_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl167095167127%_ + _%tl168080168112%_ '0)))) (begin - (let ((_g171204_ + (let ((_g172189_ (let () (declare (not safe)) - (if (##values? _g171203_) - (##values-length _g171203_) + (if (##values? _g172188_) + (##values-length _g172188_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171204_ 2))) + (##fx= _g172189_ 2))) (error "Context expects 2 values" - _g171204_))) - (let ((_%target167096167130%_ + _g172189_))) + (let ((_%target168081168115%_ (let () (declare (not safe)) - (##values-ref _g171203_ 0))) - (_%tl167098167132%_ + (##values-ref _g172188_ 0))) + (_%tl168083168117%_ (let () (declare (not safe)) - (##values-ref _g171203_ 1)))) + (##values-ref _g172188_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167098167132%_)) - (letrec ((_%loop167099167135%_ - (lambda (_%hd167097167138%_ - _%body167103167140%_ - _%hd167104167142%_) + (gx#stx-null? _%tl168083168117%_)) + (letrec ((_%loop168084168120%_ + (lambda (_%hd168082168123%_ + _%body168088168125%_ + _%hd168089168127%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd167097167138%_)) - (let ((_%e167100167145%_ + _%hd168082168123%_)) + (let ((_%e168085168130%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd167097167138%_)))) - (let ((_%lp-hd167101167148%_ + (gx#stx-e _%hd168082168123%_)))) + (let ((_%lp-hd168086168133%_ (let () (declare (not safe)) - (##car _%e167100167145%_))) - (_%lp-tl167102167150%_ + (##car _%e168085168130%_))) + (_%lp-tl168087168135%_ (let () (declare (not safe)) - (##cdr _%e167100167145%_)))) + (##cdr _%e168085168130%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd167101167148%_)) - (let ((_%e167107167153%_ + (gx#stx-pair? _%lp-hd168086168133%_)) + (let ((_%e168092168138%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd167101167148%_)))) - (let ((_%hd167108167156%_ + (gx#stx-e _%lp-hd168086168133%_)))) + (let ((_%hd168093168141%_ (let () (declare (not safe)) - (##car _%e167107167153%_))) - (_%tl167109167158%_ + (##car _%e168092168138%_))) + (_%tl168094168143%_ (let () (declare (not safe)) - (##cdr _%e167107167153%_)))) + (##cdr _%e168092168138%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167109167158%_)) - (let ((_%e167110167161%_ + (gx#stx-pair? _%tl168094168143%_)) + (let ((_%e168095168146%_ (let () (declare (not safe)) - (gx#stx-e _%tl167109167158%_)))) - (let ((_%hd167111167164%_ + (gx#stx-e _%tl168094168143%_)))) + (let ((_%hd168096168149%_ (let () (declare (not safe)) - (##car _%e167110167161%_))) - (_%tl167112167166%_ + (##car _%e168095168146%_))) + (_%tl168097168151%_ (let () (declare (not safe)) - (##cdr _%e167110167161%_)))) + (##cdr _%e168095168146%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167112167166%_)) - (_%loop167099167135%_ - _%lp-tl167102167150%_ - (cons _%hd167111167164%_ - _%body167103167140%_) - (cons _%hd167108167156%_ - _%hd167104167142%_)) - (_%g167089167117%_ - _%g167090167120%_)))) - (_%g167089167117%_ _%g167090167120%_)))) - (_%g167089167117%_ _%g167090167120%_)))) - (let ((_%body167105167169%_ (reverse _%body167103167140%_)) - (_%hd167106167171%_ (reverse _%hd167104167142%_))) - ((lambda (_%L167174%_ _%L167175%_) + (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 (_%g167189167191%_) + (lambda (_%g168174168176%_) (gxc#collect-type-lambda-formals-tail - _%stx167087%_ - _%g167189167191%_)) - (let ((__tmp171205 - (lambda (_%g167193167196%_ _%g167194167198%_) - (cons _%g167193167196%_ _%g167194167198%_)))) + _%stx168072%_ + _%g168174168176%_)) + (let ((__tmp172190 + (lambda (_%g168178168181%_ _%g168179168183%_) + (cons _%g168178168181%_ _%g168179168183%_)))) (declare (not safe)) - (__foldr1 __tmp171205 '() _%L167175%_))) + (__foldr1 __tmp172190 '() _%L168160%_))) (for-each - (lambda (_%clause167201%_) - (let* ((_%g167203167217%_ - (lambda (_%g167204167214%_) + (lambda (_%clause168186%_) + (let* ((_%g168188168202%_ + (lambda (_%g168189168199%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167204167214%_)))) - (_%g167202167254%_ - (lambda (_%g167204167220%_) + _%g168189168199%_)))) + (_%g168187168239%_ + (lambda (_%g168189168205%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167204167220%_)) - (let ((_%e167207167222%_ + (gx#stx-pair? _%g168189168205%_)) + (let ((_%e168192168207%_ (let () (declare (not safe)) - (gx#stx-e _%g167204167220%_)))) - (let ((_%hd167208167225%_ + (gx#stx-e _%g168189168205%_)))) + (let ((_%hd168193168210%_ (let () (declare (not safe)) - (##car _%e167207167222%_))) - (_%tl167209167227%_ + (##car _%e168192168207%_))) + (_%tl168194168212%_ (let () (declare (not safe)) - (##cdr _%e167207167222%_)))) + (##cdr _%e168192168207%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167209167227%_)) - (let ((_%e167210167230%_ + _%tl168194168212%_)) + (let ((_%e168195168215%_ (let () (declare (not safe)) (gx#stx-e - _%tl167209167227%_)))) - (let ((_%hd167211167233%_ + _%tl168194168212%_)))) + (let ((_%hd168196168218%_ (let () (declare (not safe)) - (##car _%e167210167230%_))) - (_%tl167212167235%_ + (##car _%e168195168215%_))) + (_%tl168197168220%_ (let () (declare (not safe)) - (##cdr _%e167210167230%_)))) + (##cdr _%e168195168215%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167212167235%_)) - ((lambda (_%L167238%_ - _%L167239%_) - (let ((__tmp171207 + _%tl168197168220%_)) + ((lambda (_%L168223%_ + _%L168224%_) + (let ((__tmp172192 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self167086%_ - _%stx167087%_)))) - (__tmp171206 + _%self168071%_ + _%stx168072%_)))) + (__tmp172191 (let () (declare (not safe)) - (gxc#xform-let-locals _%L167239%_)))) + (gxc#xform-let-locals _%L168224%_)))) (declare (not safe)) (__call-with-parameters - __tmp171207 + __tmp172192 gxc#current-compile-local-env - __tmp171206))) - _%hd167211167233%_ - _%hd167208167225%_) - (_%g167203167217%_ _%g167204167220%_)))) + __tmp172191))) + _%hd168196168218%_ + _%hd168193168210%_) + (_%g168188168202%_ _%g168189168205%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g167203167217%_ - _%g167204167220%_)))) - (_%g167203167217%_ _%g167204167220%_))))) - (_%g167202167254%_ _%clause167201%_))) + (_%g168188168202%_ + _%g168189168205%_)))) + (_%g168188168202%_ _%g168189168205%_))))) + (_%g168187168239%_ _%clause168186%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L167174%_ - _%L167175%_)) - (let ((__tmp171208 - (lambda (_%g167256167260%_ - _%g167257167262%_ - _%g167258167264%_) - (cons (cons _%g167257167262%_ - (cons _%g167256167260%_ '())) - _%g167258167264%_)))) + _%L168159%_ + _%L168160%_)) + (let ((__tmp172193 + (lambda (_%g168241168245%_ + _%g168242168247%_ + _%g168243168249%_) + (cons (cons _%g168242168247%_ + (cons _%g168241168245%_ '())) + _%g168243168249%_)))) (declare (not safe)) (__foldr2 - __tmp171208 + __tmp172193 '() - _%L167174%_ - _%L167175%_))))) - _%body167105167169%_ - _%hd167106167171%_)))))) + _%L168159%_ + _%L168160%_))))) + _%body168090168154%_ + _%hd168091168156%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop167099167135%_ - _%target167096167130%_ + (_%loop168084168120%_ + _%target168081168115%_ '() '())) - (_%g167089167117%_ - _%g167090167120%_))))) - (_%g167089167117%_ _%g167090167120%_)))) - (_%g167089167117%_ _%g167090167120%_))))) - (_%g167088167267%_ _%stx167087%_)))) + (_%g168074168102%_ + _%g168075168105%_))))) + (_%g168074168102%_ _%g168075168105%_)))) + (_%g168074168102%_ _%g168075168105%_))))) + (_%g168073168252%_ _%stx168072%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx167018%_ _%formals167019%_) - (let _%loop167021%_ ((_%rest167023%_ _%formals167019%_)) - (let* ((_%__stx168366168367%_ _%rest167023%_) - (_%g167027167038%_ + (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" - _%__stx168366168367%_))))) - (let ((_%__kont168368168369%_ - (lambda (_%L167074%_) (_%loop167021%_ _%L167074%_))) - (_%__kont168370168371%_ - (lambda (_%L167050%_) - (let ((__tmp171210 + _%__stx169351169352%_))))) + (let ((_%__kont169353169354%_ + (lambda (_%L168059%_) (_%loop168006%_ _%L168059%_))) + (_%__kont169355169356%_ + (lambda (_%L168035%_) + (let ((__tmp172195 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167050%_))) - (__tmp171209 + (gxc#identifier-symbol _%L168035%_))) + (__tmp172194 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167018%_ + _%stx168003%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp171210 - __tmp171209 + __tmp172195 + __tmp172194 '#t)))) - (_%__kont168372168373%_ (lambda () '#!void))) - (let ((_%g167025167061%_ + (_%__kont169357169358%_ (lambda () '#!void))) + (let ((_%g168010168046%_ (lambda () - (let ((_%L167050%_ _%__stx168366168367%_)) + (let ((_%L168035%_ _%__stx169351169352%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167050%_)) - (_%__kont168370168371%_ _%L167050%_) - (_%__kont168372168373%_)))))) + (gx#identifier? _%L168035%_)) + (_%__kont169355169356%_ _%L168035%_) + (_%__kont169357169358%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168366168367%_)) - (let ((_%e167030167066%_ + (gx#stx-pair? _%__stx169351169352%_)) + (let ((_%e168015168051%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168366168367%_)))) - (let ((_%tl167032167071%_ + (gx#stx-e _%__stx169351169352%_)))) + (let ((_%tl168017168056%_ (let () (declare (not safe)) - (##cdr _%e167030167066%_))) - (_%hd167031167069%_ + (##cdr _%e168015168051%_))) + (_%hd168016168054%_ (let () (declare (not safe)) - (##car _%e167030167066%_)))) - (_%__kont168368168369%_ _%tl167032167071%_))) - (let () (declare (not safe)) (_%g167025167061%_))))))))) + (##car _%e168015168051%_)))) + (_%__kont169353169354%_ _%tl168017168056%_))) + (let () (declare (not safe)) (_%g168010168046%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self166777%_ _%stx166778%_ _%expression-type166779%_) - (letrec ((_%collect-e166781%_ - (lambda (_%hd166950%_ _%expr166951%_) - (let* ((_%__stx168382168383%_ _%hd166950%_) - (_%g166954166964%_ + (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" - _%__stx168382168383%_))))) - (let ((_%__kont168384168385%_ - (lambda (_%L166984%_) - (let* ((_%sym166995%_ + _%__stx169367169368%_))))) + (let ((_%__kont169369169370%_ + (lambda (_%L167969%_) + (let* ((_%sym167980%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166984%_))) - (_%type166996166998%_ - (_%expression-type166779%_ - _%expr166951%_))) - (if _%type166996166998%_ - (let ((_%type167001%_ - _%type166996166998%_)) + (gxc#identifier-symbol _%L167969%_))) + (_%type167981167983%_ + (_%expression-type167764%_ + _%expr167936%_))) + (if _%type167981167983%_ + (let ((_%type167986%_ + _%type167981167983%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167001%_ + _%type167986%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171211 + (let ((__tmp172196 (let () (declare (not safe)) (##unchecked-structure-ref - _%type167001%_ + _%type167986%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166995%_ - __tmp171211)) - (let ((__tmp171212 + _%sym167980%_ + __tmp172196)) + (let ((__tmp172197 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166778%_ + _%stx167763%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166995%_ - __tmp171212 + _%sym167980%_ + __tmp172197 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166995%_ - _%type167001%_ + _%sym167980%_ + _%type167986%_ '#t)))) '#f)))) - (_%__kont168386168387%_ (lambda () '#!void))) - (let ((_%__match168395168396%_ - (lambda (_%e166957166976%_ - _%hd166958166979%_ - _%tl166959166981%_) - (let ((_%L166984%_ _%hd166958166979%_)) + (_%__kont169371169372%_ (lambda () '#!void))) + (let ((_%__match169380169381%_ + (lambda (_%e167942167961%_ + _%hd167943167964%_ + _%tl167944167966%_) + (let ((_%L167969%_ _%hd167943167964%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166984%_)) - (_%__kont168384168385%_ _%L166984%_) - (_%__kont168386168387%_)))))) + (gx#identifier? _%L167969%_)) + (_%__kont169369169370%_ _%L167969%_) + (_%__kont169371169372%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168382168383%_)) - (let ((_%e166957166976%_ + (gx#stx-pair? _%__stx169367169368%_)) + (let ((_%e167942167961%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168382168383%_)))) - (let ((_%tl166959166981%_ + (gx#stx-e _%__stx169367169368%_)))) + (let ((_%tl167944167966%_ (let () (declare (not safe)) - (##cdr _%e166957166976%_))) - (_%hd166958166979%_ + (##cdr _%e167942167961%_))) + (_%hd167943167964%_ (let () (declare (not safe)) - (##car _%e166957166976%_)))) + (##car _%e167942167961%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166959166981%_)) - (_%__match168395168396%_ - _%e166957166976%_ - _%hd166958166979%_ - _%tl166959166981%_) - (_%__kont168386168387%_)))) - (_%__kont168386168387%_)))))))) - (let* ((_%g166783166818%_ - (lambda (_%g166784166815%_) + (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" - _%g166784166815%_)))) - (_%g166782166947%_ - (lambda (_%g166784166821%_) + _%g167769167800%_)))) + (_%g167767167932%_ + (lambda (_%g167769167806%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166784166821%_)) - (let ((_%e166788166823%_ + (gx#stx-pair? _%g167769167806%_)) + (let ((_%e167773167808%_ (let () (declare (not safe)) - (gx#stx-e _%g166784166821%_)))) - (let ((_%hd166789166826%_ + (gx#stx-e _%g167769167806%_)))) + (let ((_%hd167774167811%_ (let () (declare (not safe)) - (##car _%e166788166823%_))) - (_%tl166790166828%_ + (##car _%e167773167808%_))) + (_%tl167775167813%_ (let () (declare (not safe)) - (##cdr _%e166788166823%_)))) + (##cdr _%e167773167808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166790166828%_)) - (let ((_%e166791166831%_ + (gx#stx-pair? _%tl167775167813%_)) + (let ((_%e167776167816%_ (let () (declare (not safe)) - (gx#stx-e _%tl166790166828%_)))) - (let ((_%hd166792166834%_ + (gx#stx-e _%tl167775167813%_)))) + (let ((_%hd167777167819%_ (let () (declare (not safe)) - (##car _%e166791166831%_))) - (_%tl166793166836%_ + (##car _%e167776167816%_))) + (_%tl167778167821%_ (let () (declare (not safe)) - (##cdr _%e166791166831%_)))) + (##cdr _%e167776167816%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166792166834%_)) - (let ((_g171213_ + _%hd167777167819%_)) + (let ((_g172198_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166792166834%_ + _%hd167777167819%_ '0)))) (begin - (let ((_g171214_ + (let ((_g172199_ (let () (declare (not safe)) - (if (##values? _g171213_) + (if (##values? _g172198_) (##values-length - _g171213_) + _g172198_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171214_ 2))) + (##fx= _g172199_ 2))) (error "Context expects 2 values" - _g171214_))) - (let ((_%target166794166839%_ + _g172199_))) + (let ((_%target167779167824%_ (let () (declare (not safe)) (##values-ref - _g171213_ + _g172198_ 0))) - (_%tl166796166841%_ + (_%tl167781167826%_ (let () (declare (not safe)) (##values-ref - _g171213_ + _g172198_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166796166841%_)) - (letrec ((_%loop166797166844%_ - (lambda (_%hd166795166847%_ + _%tl167781167826%_)) + (letrec ((_%loop167782167829%_ + (lambda (_%hd167780167832%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166801166849%_ - _%hd166802166851%_) + _%expr167786167834%_ + _%hd167787167836%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166795166847%_)) - (let ((_%e166798166854%_ + (gx#stx-pair? _%hd167780167832%_)) + (let ((_%e167783167839%_ (let () (declare (not safe)) - (gx#stx-e _%hd166795166847%_)))) - (let ((_%lp-hd166799166857%_ + (gx#stx-e _%hd167780167832%_)))) + (let ((_%lp-hd167784167842%_ (let () (declare (not safe)) - (##car _%e166798166854%_))) - (_%lp-tl166800166859%_ + (##car _%e167783167839%_))) + (_%lp-tl167785167844%_ (let () (declare (not safe)) - (##cdr _%e166798166854%_)))) + (##cdr _%e167783167839%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166799166857%_)) - (let ((_%e166808166862%_ + (gx#stx-pair? _%lp-hd167784167842%_)) + (let ((_%e167793167847%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166799166857%_)))) - (let ((_%hd166809166865%_ + (gx#stx-e _%lp-hd167784167842%_)))) + (let ((_%hd167794167850%_ (let () (declare (not safe)) - (##car _%e166808166862%_))) - (_%tl166810166867%_ + (##car _%e167793167847%_))) + (_%tl167795167852%_ (let () (declare (not safe)) - (##cdr _%e166808166862%_)))) + (##cdr _%e167793167847%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166810166867%_)) - (let ((_%e166811166870%_ + (gx#stx-pair? _%tl167795167852%_)) + (let ((_%e167796167855%_ (let () (declare (not safe)) (gx#stx-e - _%tl166810166867%_)))) - (let ((_%hd166812166873%_ + _%tl167795167852%_)))) + (let ((_%hd167797167858%_ (let () (declare (not safe)) - (##car _%e166811166870%_))) - (_%tl166813166875%_ + (##car _%e167796167855%_))) + (_%tl167798167860%_ (let () (declare (not safe)) - (##cdr _%e166811166870%_)))) + (##cdr _%e167796167855%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166813166875%_)) - (_%loop166797166844%_ - _%lp-tl166800166859%_ - (cons _%hd166812166873%_ - _%expr166801166849%_) - (cons _%hd166809166865%_ - _%hd166802166851%_)) - (_%g166783166818%_ - _%g166784166821%_)))) - (_%g166783166818%_ - _%g166784166821%_)))) - (_%g166783166818%_ _%g166784166821%_)))) - (let ((_%expr166803166878%_ - (reverse _%expr166801166849%_)) - (_%hd166804166880%_ - (reverse _%hd166802166851%_))) + _%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? _%tl166793166836%_)) - (let ((_%e166805166883%_ + (gx#stx-pair? _%tl167778167821%_)) + (let ((_%e167790167868%_ (let () (declare (not safe)) - (gx#stx-e _%tl166793166836%_)))) - (let ((_%hd166806166886%_ + (gx#stx-e _%tl167778167821%_)))) + (let ((_%hd167791167871%_ (let () (declare (not safe)) - (##car _%e166805166883%_))) - (_%tl166807166888%_ + (##car _%e167790167868%_))) + (_%tl167792167873%_ (let () (declare (not safe)) - (##cdr _%e166805166883%_)))) + (##cdr _%e167790167868%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166807166888%_)) - ((lambda (_%L166891%_ - _%L166892%_ - _%L166893%_) + (gx#stx-null? _%tl167792167873%_)) + ((lambda (_%L167876%_ + _%L167877%_ + _%L167878%_) (for-each - _%collect-e166781%_ - (let ((__tmp171215 - (lambda (_%g166913166916%_ - _%g166914166918%_) - (cons _%g166913166916%_ - _%g166914166918%_)))) + _%collect-e167766%_ + (let ((__tmp172200 + (lambda (_%g167898167901%_ + _%g167899167903%_) + (cons _%g167898167901%_ + _%g167899167903%_)))) (declare (not safe)) (__foldr1 - __tmp171215 + __tmp172200 '() - _%L166893%_)) - (let ((__tmp171216 - (lambda (_%g166920166923%_ - _%g166921166925%_) - (cons _%g166920166923%_ - _%g166921166925%_)))) + _%L167878%_)) + (let ((__tmp172201 + (lambda (_%g167905167908%_ + _%g167906167910%_) + (cons _%g167905167908%_ + _%g167906167910%_)))) (declare (not safe)) (__foldr1 - __tmp171216 + __tmp172201 '() - _%L166892%_))) + _%L167877%_))) (for-each - (lambda (_%g166927166929%_) + (lambda (_%g167912167914%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166777%_ - _%g166927166929%_))) - (let ((__tmp171217 - (lambda (_%g166931166934%_ - _%g166932166936%_) - (cons _%g166931166934%_ - _%g166932166936%_)))) + _%self167762%_ + _%g167912167914%_))) + (let ((__tmp172202 + (lambda (_%g167916167919%_ + _%g167917167921%_) + (cons _%g167916167919%_ + _%g167917167921%_)))) (declare (not safe)) (__foldr1 - __tmp171217 + __tmp172202 '() - _%L166892%_))) - (let ((__tmp171221 + _%L167877%_))) + (let ((__tmp172206 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self166777%_ - _%L166891%_)))) - (__tmp171218 - (let ((__tmp171219 - (let ((__tmp171220 - (lambda (_%g166939166942%_ + _%self167762%_ + _%L167876%_)))) + (__tmp172203 + (let ((__tmp172204 + (let ((__tmp172205 + (lambda (_%g167924167927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166940166944%_) - (cons _%g166939166942%_ _%g166940166944%_)))) + _%g167925167929%_) + (cons _%g167924167927%_ _%g167925167929%_)))) (declare (not safe)) - (__foldr1 __tmp171220 '() _%L166893%_)))) + (__foldr1 __tmp172205 '() _%L167878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171219)))) + __tmp172204)))) (declare (not safe)) (__call-with-parameters - __tmp171221 + __tmp172206 gxc#current-compile-local-env - __tmp171218))) - _%hd166806166886%_ - _%expr166803166878%_ - _%hd166804166880%_) - (_%g166783166818%_ - _%g166784166821%_)))) - (_%g166783166818%_ _%g166784166821%_))))))) + __tmp172203))) + _%hd167791167871%_ + _%expr167788167863%_ + _%hd167789167865%_) + (_%g167768167803%_ + _%g167769167806%_)))) + (_%g167768167803%_ _%g167769167806%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166797166844%_ - _%target166794166839%_ + (_%loop167782167829%_ + _%target167779167824%_ '() '())) - (_%g166783166818%_ - _%g166784166821%_))))) - (_%g166783166818%_ - _%g166784166821%_)))) - (_%g166783166818%_ _%g166784166821%_)))) - (_%g166783166818%_ _%g166784166821%_))))) - (_%g166782166947%_ _%stx166778%_))))) + (_%g167768167803%_ + _%g167769167806%_))))) + (_%g167768167803%_ + _%g167769167806%_)))) + (_%g167768167803%_ _%g167769167806%_)))) + (_%g167768167803%_ _%g167769167806%_))))) + (_%g167767167932%_ _%stx167763%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self167009%_ _%stx167010%_) - (let ((_%expression-type167012%_ gxc#apply-basic-expression-type)) + (lambda (_%self167994%_ _%stx167995%_) + (let ((_%expression-type167997%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self167009%_ - _%stx167010%_ - _%expression-type167012%_)))) + _%self167994%_ + _%stx167995%_ + _%expression-type167997%_)))) (define gxc#collect-type-let-values% - (lambda _g171223_ - (let ((_g171222_ (let () (declare (not safe)) (##length _g171223_)))) - (cond ((let () (declare (not safe)) (##fx= _g171222_ 2)) - (apply gxc#collect-type-let-values%__0 _g171223_)) - ((let () (declare (not safe)) (##fx= _g171222_ 3)) - (apply gxc#collect-type-let-values%__% _g171223_)) + (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% - _g171223_)))))) + _g172208_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self166510%_ _%stx166511%_ _%expression-type166512%_) - (letrec ((_%collect-e166514%_ - (lambda (_%hd166708%_ _%expr166709%_) - (let* ((_%__stx168398168399%_ _%hd166708%_) - (_%g166712166722%_ + (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" - _%__stx168398168399%_))))) - (let ((_%__kont168400168401%_ - (lambda (_%L166742%_) - (let* ((_%sym166753%_ + _%__stx169383169384%_))))) + (let ((_%__kont169385169386%_ + (lambda (_%L167727%_) + (let* ((_%sym167738%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166742%_))) - (_%type166754166756%_ - (_%expression-type166512%_ - _%expr166709%_))) - (if _%type166754166756%_ - (let ((_%type166759%_ - _%type166754166756%_)) + (gxc#identifier-symbol _%L167727%_))) + (_%type167739167741%_ + (_%expression-type167497%_ + _%expr167694%_))) + (if _%type167739167741%_ + (let ((_%type167744%_ + _%type167739167741%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166759%_ + _%type167744%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171224 + (let ((__tmp172209 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166759%_ + _%type167744%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166753%_ - __tmp171224)) - (let ((__tmp171225 + _%sym167738%_ + __tmp172209)) + (let ((__tmp172210 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166511%_ + _%stx167496%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166753%_ - __tmp171225 + _%sym167738%_ + __tmp172210 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166753%_ - _%type166759%_ + _%sym167738%_ + _%type167744%_ '#t)))) '#f)))) - (_%__kont168402168403%_ (lambda () '#!void))) - (let ((_%__match168411168412%_ - (lambda (_%e166715166734%_ - _%hd166716166737%_ - _%tl166717166739%_) - (let ((_%L166742%_ _%hd166716166737%_)) + (_%__kont169387169388%_ (lambda () '#!void))) + (let ((_%__match169396169397%_ + (lambda (_%e167700167719%_ + _%hd167701167722%_ + _%tl167702167724%_) + (let ((_%L167727%_ _%hd167701167722%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166742%_)) - (_%__kont168400168401%_ _%L166742%_) - (_%__kont168402168403%_)))))) + (gx#identifier? _%L167727%_)) + (_%__kont169385169386%_ _%L167727%_) + (_%__kont169387169388%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168398168399%_)) - (let ((_%e166715166734%_ + (gx#stx-pair? _%__stx169383169384%_)) + (let ((_%e167700167719%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168398168399%_)))) - (let ((_%tl166717166739%_ + (gx#stx-e _%__stx169383169384%_)))) + (let ((_%tl167702167724%_ (let () (declare (not safe)) - (##cdr _%e166715166734%_))) - (_%hd166716166737%_ + (##cdr _%e167700167719%_))) + (_%hd167701167722%_ (let () (declare (not safe)) - (##car _%e166715166734%_)))) + (##car _%e167700167719%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166717166739%_)) - (_%__match168411168412%_ - _%e166715166734%_ - _%hd166716166737%_ - _%tl166717166739%_) - (_%__kont168402168403%_)))) - (_%__kont168402168403%_)))))))) - (let* ((_%g166516166551%_ - (lambda (_%g166517166548%_) + (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" - _%g166517166548%_)))) - (_%g166515166705%_ - (lambda (_%g166517166554%_) + _%g167502167533%_)))) + (_%g167500167690%_ + (lambda (_%g167502167539%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166517166554%_)) - (let ((_%e166521166556%_ + (gx#stx-pair? _%g167502167539%_)) + (let ((_%e167506167541%_ (let () (declare (not safe)) - (gx#stx-e _%g166517166554%_)))) - (let ((_%hd166522166559%_ + (gx#stx-e _%g167502167539%_)))) + (let ((_%hd167507167544%_ (let () (declare (not safe)) - (##car _%e166521166556%_))) - (_%tl166523166561%_ + (##car _%e167506167541%_))) + (_%tl167508167546%_ (let () (declare (not safe)) - (##cdr _%e166521166556%_)))) + (##cdr _%e167506167541%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166523166561%_)) - (let ((_%e166524166564%_ + (gx#stx-pair? _%tl167508167546%_)) + (let ((_%e167509167549%_ (let () (declare (not safe)) - (gx#stx-e _%tl166523166561%_)))) - (let ((_%hd166525166567%_ + (gx#stx-e _%tl167508167546%_)))) + (let ((_%hd167510167552%_ (let () (declare (not safe)) - (##car _%e166524166564%_))) - (_%tl166526166569%_ + (##car _%e167509167549%_))) + (_%tl167511167554%_ (let () (declare (not safe)) - (##cdr _%e166524166564%_)))) + (##cdr _%e167509167549%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166525166567%_)) - (let ((_g171226_ + _%hd167510167552%_)) + (let ((_g172211_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166525166567%_ + _%hd167510167552%_ '0)))) (begin - (let ((_g171227_ + (let ((_g172212_ (let () (declare (not safe)) - (if (##values? _g171226_) + (if (##values? _g172211_) (##values-length - _g171226_) + _g172211_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171227_ 2))) + (##fx= _g172212_ 2))) (error "Context expects 2 values" - _g171227_))) - (let ((_%target166527166572%_ + _g172212_))) + (let ((_%target167512167557%_ (let () (declare (not safe)) (##values-ref - _g171226_ + _g172211_ 0))) - (_%tl166529166574%_ + (_%tl167514167559%_ (let () (declare (not safe)) (##values-ref - _g171226_ + _g172211_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166529166574%_)) - (letrec ((_%loop166530166577%_ - (lambda (_%hd166528166580%_ + _%tl167514167559%_)) + (letrec ((_%loop167515167562%_ + (lambda (_%hd167513167565%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166534166582%_ - _%hd166535166584%_) + _%expr167519167567%_ + _%hd167520167569%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166528166580%_)) - (let ((_%e166531166587%_ + (gx#stx-pair? _%hd167513167565%_)) + (let ((_%e167516167572%_ (let () (declare (not safe)) - (gx#stx-e _%hd166528166580%_)))) - (let ((_%lp-hd166532166590%_ + (gx#stx-e _%hd167513167565%_)))) + (let ((_%lp-hd167517167575%_ (let () (declare (not safe)) - (##car _%e166531166587%_))) - (_%lp-tl166533166592%_ + (##car _%e167516167572%_))) + (_%lp-tl167518167577%_ (let () (declare (not safe)) - (##cdr _%e166531166587%_)))) + (##cdr _%e167516167572%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166532166590%_)) - (let ((_%e166541166595%_ + (gx#stx-pair? _%lp-hd167517167575%_)) + (let ((_%e167526167580%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166532166590%_)))) - (let ((_%hd166542166598%_ + (gx#stx-e _%lp-hd167517167575%_)))) + (let ((_%hd167527167583%_ (let () (declare (not safe)) - (##car _%e166541166595%_))) - (_%tl166543166600%_ + (##car _%e167526167580%_))) + (_%tl167528167585%_ (let () (declare (not safe)) - (##cdr _%e166541166595%_)))) + (##cdr _%e167526167580%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166543166600%_)) - (let ((_%e166544166603%_ + (gx#stx-pair? _%tl167528167585%_)) + (let ((_%e167529167588%_ (let () (declare (not safe)) (gx#stx-e - _%tl166543166600%_)))) - (let ((_%hd166545166606%_ + _%tl167528167585%_)))) + (let ((_%hd167530167591%_ (let () (declare (not safe)) - (##car _%e166544166603%_))) - (_%tl166546166608%_ + (##car _%e167529167588%_))) + (_%tl167531167593%_ (let () (declare (not safe)) - (##cdr _%e166544166603%_)))) + (##cdr _%e167529167588%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166546166608%_)) - (_%loop166530166577%_ - _%lp-tl166533166592%_ - (cons _%hd166545166606%_ - _%expr166534166582%_) - (cons _%hd166542166598%_ - _%hd166535166584%_)) - (_%g166516166551%_ - _%g166517166554%_)))) - (_%g166516166551%_ - _%g166517166554%_)))) - (_%g166516166551%_ _%g166517166554%_)))) - (let ((_%expr166536166611%_ - (reverse _%expr166534166582%_)) - (_%hd166537166613%_ - (reverse _%hd166535166584%_))) + _%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? _%tl166526166569%_)) - (let ((_%e166538166616%_ + (gx#stx-pair? _%tl167511167554%_)) + (let ((_%e167523167601%_ (let () (declare (not safe)) - (gx#stx-e _%tl166526166569%_)))) - (let ((_%hd166539166619%_ + (gx#stx-e _%tl167511167554%_)))) + (let ((_%hd167524167604%_ (let () (declare (not safe)) - (##car _%e166538166616%_))) - (_%tl166540166621%_ + (##car _%e167523167601%_))) + (_%tl167525167606%_ (let () (declare (not safe)) - (##cdr _%e166538166616%_)))) + (##cdr _%e167523167601%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166540166621%_)) - ((lambda (_%L166624%_ - _%L166625%_ - _%L166626%_) - (let ((__tmp171231 + (gx#stx-null? _%tl167525167606%_)) + ((lambda (_%L167609%_ + _%L167610%_ + _%L167611%_) + (let ((__tmp172216 (lambda () (for-each - _%collect-e166514%_ - (let ((__tmp171232 - (lambda (_%g166647166650%_ + _%collect-e167499%_ + (let ((__tmp172217 + (lambda (_%g167632167635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166648166652%_) - (cons _%g166647166650%_ _%g166648166652%_)))) + _%g167633167637%_) + (cons _%g167632167635%_ _%g167633167637%_)))) (declare (not safe)) - (__foldr1 __tmp171232 '() _%L166626%_)) + (__foldr1 __tmp172217 '() _%L167611%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171233 - (lambda (_%g166654166657%_ + (let ((__tmp172218 + (lambda (_%g167639167642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166655166659%_) - (cons _%g166654166657%_ _%g166655166659%_)))) + _%g167640167644%_) + (cons _%g167639167642%_ _%g167640167644%_)))) (declare (not safe)) - (__foldr1 __tmp171233 '() _%L166625%_))) + (__foldr1 __tmp172218 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166661166663%_) + (lambda (_%g167646167648%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166510%_ - _%g166661166663%_))) - (let ((__tmp171234 - (lambda (_%g166665166668%_ + _%self167495%_ + _%g167646167648%_))) + (let ((__tmp172219 + (lambda (_%g167650167653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166666166670%_) - (cons _%g166665166668%_ _%g166666166670%_)))) + _%g167651167655%_) + (cons _%g167650167653%_ _%g167651167655%_)))) (declare (not safe)) - (__foldr1 __tmp171234 '() _%L166625%_))) + (__foldr1 __tmp172219 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e166514%_ - (let ((__tmp171235 - (lambda (_%g166672166675%_ + _%collect-e167499%_ + (let ((__tmp172220 + (lambda (_%g167657167660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166673166677%_) - (cons _%g166672166675%_ _%g166673166677%_)))) + _%g167658167662%_) + (cons _%g167657167660%_ _%g167658167662%_)))) (declare (not safe)) - (__foldr1 __tmp171235 '() _%L166626%_)) + (__foldr1 __tmp172220 '() _%L167611%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171236 - (lambda (_%g166679166682%_ + (let ((__tmp172221 + (lambda (_%g167664167667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166680166684%_) - (cons _%g166679166682%_ _%g166680166684%_)))) + _%g167665167669%_) + (cons _%g167664167667%_ _%g167665167669%_)))) (declare (not safe)) - (__foldr1 __tmp171236 '() _%L166625%_))) + (__foldr1 __tmp172221 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166686166688%_) + (lambda (_%g167671167673%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166510%_ - _%g166686166688%_))) - (let ((__tmp171237 - (lambda (_%g166690166693%_ + _%self167495%_ + _%g167671167673%_))) + (let ((__tmp172222 + (lambda (_%g167675167678%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166691166695%_) - (cons _%g166690166693%_ _%g166691166695%_)))) + _%g167676167680%_) + (cons _%g167675167678%_ _%g167676167680%_)))) (declare (not safe)) - (__foldr1 __tmp171237 '() _%L166625%_))) + (__foldr1 __tmp172222 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self166510%_ - _%L166624%_)))) - (__tmp171228 - (let ((__tmp171229 - (let ((__tmp171230 - (lambda (_%g166697166700%_ + _%self167495%_ + _%L167609%_)))) + (__tmp172213 + (let ((__tmp172214 + (let ((__tmp172215 + (lambda (_%g167682167685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166698166702%_) - (cons _%g166697166700%_ _%g166698166702%_)))) + _%g167683167687%_) + (cons _%g167682167685%_ _%g167683167687%_)))) (declare (not safe)) - (__foldr1 __tmp171230 '() _%L166626%_)))) + (__foldr1 __tmp172215 '() _%L167611%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171229)))) + __tmp172214)))) (declare (not safe)) (__call-with-parameters - __tmp171231 + __tmp172216 gxc#current-compile-local-env - __tmp171228))) - _%hd166539166619%_ - _%expr166536166611%_ - _%hd166537166613%_) - (_%g166516166551%_ - _%g166517166554%_)))) - (_%g166516166551%_ _%g166517166554%_))))))) + __tmp172213))) + _%hd167524167604%_ + _%expr167521167596%_ + _%hd167522167598%_) + (_%g167501167536%_ + _%g167502167539%_)))) + (_%g167501167536%_ _%g167502167539%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166530166577%_ - _%target166527166572%_ + (_%loop167515167562%_ + _%target167512167557%_ '() '())) - (_%g166516166551%_ - _%g166517166554%_))))) - (_%g166516166551%_ - _%g166517166554%_)))) - (_%g166516166551%_ _%g166517166554%_)))) - (_%g166516166551%_ _%g166517166554%_))))) - (_%g166515166705%_ _%stx166511%_))))) + (_%g167501167536%_ + _%g167502167539%_))))) + (_%g167501167536%_ + _%g167502167539%_)))) + (_%g167501167536%_ _%g167502167539%_)))) + (_%g167501167536%_ _%g167502167539%_))))) + (_%g167500167690%_ _%stx167496%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self166767%_ _%stx166768%_) - (let ((_%expression-type166770%_ gxc#apply-basic-expression-type)) + (lambda (_%self167752%_ _%stx167753%_) + (let ((_%expression-type167755%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self166767%_ - _%stx166768%_ - _%expression-type166770%_)))) + _%self167752%_ + _%stx167753%_ + _%expression-type167755%_)))) (define gxc#collect-type-letrec-values% - (lambda _g171239_ - (let ((_g171238_ (let () (declare (not safe)) (##length _g171239_)))) - (cond ((let () (declare (not safe)) (##fx= _g171238_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g171239_)) - ((let () (declare (not safe)) (##fx= _g171238_ 3)) - (apply gxc#collect-type-letrec-values%__% _g171239_)) + (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% - _g171239_)))))) + _g172224_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self166506%_ _%stx166507%_) + (lambda (_%self167491%_ _%stx167492%_) (gxc#collect-type-let-values%__% - _%self166506%_ - _%stx166507%_ + _%self167491%_ + _%stx167492%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self166503%_ _%stx166504%_) + (lambda (_%self167488%_ _%stx167489%_) (gxc#collect-type-letrec-values%__% - _%self166503%_ - _%stx166504%_ + _%self167488%_ + _%stx167489%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self165990%_ _%stx165991%_) - (let* ((_%__stx168414168415%_ _%stx165991%_) - (_%g165995166110%_ + (lambda (_%self166975%_ _%stx166976%_) + (let* ((_%__stx169399169400%_ _%stx166976%_) + (_%g166980167095%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168414168415%_))))) - (let ((_%__kont168416168417%_ - (lambda (_%L166453%_ - _%L166454%_ - _%L166455%_ - _%L166456%_ - _%L166457%_) - (let ((__tmp171243 + _%__stx169399169400%_))))) + (let ((_%__kont169401169402%_ + (lambda (_%L167438%_ + _%L167439%_ + _%L167440%_ + _%L167441%_ + _%L167442%_) + (let ((__tmp172228 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166456%_))) - (__tmp171242 - (let () (declare (not safe)) (gx#stx-e _%L166455%_))) - (__tmp171241 + (gxc#identifier-symbol _%L167441%_))) + (__tmp172227 + (let () (declare (not safe)) (gx#stx-e _%L167440%_))) + (__tmp172226 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166454%_))) - (__tmp171240 + (gxc#identifier-symbol _%L167439%_))) + (__tmp172225 (let () (declare (not safe)) - (gx#stx-e _%L166453%_)))) + (gx#stx-e _%L167438%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp171243 - __tmp171242 - __tmp171241 - __tmp171240)))) - (_%__kont168418168419%_ - (lambda (_%L166281%_ _%L166282%_ _%L166283%_ _%L166284%_) - (let ((__tmp171246 + __tmp172228 + __tmp172227 + __tmp172226 + __tmp172225)))) + (_%__kont169403169404%_ + (lambda (_%L167266%_ _%L167267%_ _%L167268%_ _%L167269%_) + (let ((__tmp172231 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166283%_))) - (__tmp171245 - (let () (declare (not safe)) (gx#stx-e _%L166282%_))) - (__tmp171244 + (gxc#identifier-symbol _%L167268%_))) + (__tmp172230 + (let () (declare (not safe)) (gx#stx-e _%L167267%_))) + (__tmp172229 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166281%_)))) + (gxc#identifier-symbol _%L167266%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp171246 - __tmp171245 - __tmp171244 + __tmp172231 + __tmp172230 + __tmp172229 '#f)))) - (_%__kont168420168421%_ - (lambda (_%L166147%_) + (_%__kont169405169406%_ + (lambda (_%L167132%_) (for-each - (lambda (_%g166160166162%_) + (lambda (_%g167145167147%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165990%_ _%g166160166162%_))) - (let ((__tmp171247 - (lambda (_%g166164166167%_ _%g166165166169%_) - (cons _%g166164166167%_ _%g166165166169%_)))) + (gxc#compile-e__1 _%self166975%_ _%g167145167147%_))) + (let ((__tmp172232 + (lambda (_%g167149167152%_ _%g167150167154%_) + (cons _%g167149167152%_ _%g167150167154%_)))) (declare (not safe)) - (__foldr1 __tmp171247 '() _%L166147%_)))))) - (let* ((_%__match168671168672%_ - (lambda (_%e166094166115%_ - _%hd166095166118%_ - _%tl166096166120%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) - (letrec ((_%loop166100166128%_ - (lambda (_%hd166098166131%_ - _%expr166104166133%_) + (__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? _%hd166098166131%_)) - (let ((_%e166101166136%_ + (gx#stx-pair? _%hd167083167116%_)) + (let ((_%e167086167121%_ (let () (declare (not safe)) - (gx#stx-e _%hd166098166131%_)))) - (let ((_%lp-tl166103166141%_ + (gx#stx-e _%hd167083167116%_)))) + (let ((_%lp-tl167088167126%_ (let () (declare (not safe)) - (##cdr _%e166101166136%_))) - (_%lp-hd166102166139%_ + (##cdr _%e167086167121%_))) + (_%lp-hd167087167124%_ (let () (declare (not safe)) - (##car _%e166101166136%_)))) - (_%loop166100166128%_ - _%lp-tl166103166141%_ - (cons _%lp-hd166102166139%_ - _%expr166104166133%_)))) - (let ((_%expr166105166144%_ - (reverse _%expr166104166133%_))) - (_%__kont168420168421%_ - _%expr166105166144%_)))))) - (_%loop166100166128%_ _%target166097166123%_ '())))) - (_%__match168551168552%_ - (lambda (_%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%e166005166333%_ - _%hd166006166336%_ - _%tl166007166338%_ - _%e166008166341%_ - _%hd166009166344%_ - _%tl166010166346%_ - _%e166011166349%_ - _%hd166012166352%_ - _%tl166013166354%_ - _%e166014166357%_ - _%hd166015166360%_ - _%tl166016166362%_ - _%e166017166365%_ - _%hd166018166368%_ - _%tl166019166370%_ - _%e166020166373%_ - _%hd166021166376%_ - _%tl166022166378%_ - _%e166023166381%_ - _%hd166024166384%_ - _%tl166025166386%_ - _%e166026166389%_ - _%hd166027166392%_ - _%tl166028166394%_ - _%e166029166397%_ - _%hd166030166400%_ - _%tl166031166402%_ - _%e166032166405%_ - _%hd166033166408%_ - _%tl166034166410%_ - _%e166035166413%_ - _%hd166036166416%_ - _%tl166037166418%_ - _%e166038166421%_ - _%hd166039166424%_ - _%tl166040166426%_ - _%e166041166429%_ - _%hd166042166432%_ - _%tl166043166434%_ - _%e166044166437%_ - _%hd166045166440%_ - _%tl166046166442%_ - _%e166047166445%_ - _%hd166048166448%_ - _%tl166049166450%_) - (let ((_%L166453%_ _%hd166048166448%_) - (_%L166454%_ _%hd166039166424%_) - (_%L166455%_ _%hd166030166400%_) - (_%L166456%_ _%hd166021166376%_) - (_%L166457%_ _%hd166012166352%_)) + (##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=? - _%L166457%_ + _%L167442%_ 'bind-method!)) - (_%__kont168416168417%_ - _%L166453%_ - _%L166454%_ - _%L166455%_ - _%L166456%_ - _%L166457%_) + (_%__kont169401169402%_ + _%L167438%_ + _%L167439%_ + _%L167440%_ + _%L167441%_ + _%L167442%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))))) + (_%g166980167095%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168414168415%_)) - (let ((_%e166002166325%_ + (gx#stx-pair? _%__stx169399169400%_)) + (let ((_%e166987167310%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168414168415%_)))) - (let ((_%tl166004166330%_ + (gx#stx-e _%__stx169399169400%_)))) + (let ((_%tl166989167315%_ (let () (declare (not safe)) - (##cdr _%e166002166325%_))) - (_%hd166003166328%_ + (##cdr _%e166987167310%_))) + (_%hd166988167313%_ (let () (declare (not safe)) - (##car _%e166002166325%_)))) + (##car _%e166987167310%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166004166330%_)) - (let ((_%e166005166333%_ + (gx#stx-pair? _%tl166989167315%_)) + (let ((_%e166990167318%_ (let () (declare (not safe)) - (gx#stx-e _%tl166004166330%_)))) - (let ((_%tl166007166338%_ + (gx#stx-e _%tl166989167315%_)))) + (let ((_%tl166992167323%_ (let () (declare (not safe)) - (##cdr _%e166005166333%_))) - (_%hd166006166336%_ + (##cdr _%e166990167318%_))) + (_%hd166991167321%_ (let () (declare (not safe)) - (##car _%e166005166333%_)))) + (##car _%e166990167318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166006166336%_)) - (let ((_%e166008166341%_ + (gx#stx-pair? _%hd166991167321%_)) + (let ((_%e166993167326%_ (let () (declare (not safe)) - (gx#stx-e _%hd166006166336%_)))) - (let ((_%tl166010166346%_ + (gx#stx-e _%hd166991167321%_)))) + (let ((_%tl166995167331%_ (let () (declare (not safe)) - (##cdr _%e166008166341%_))) - (_%hd166009166344%_ + (##cdr _%e166993167326%_))) + (_%hd166994167329%_ (let () (declare (not safe)) - (##car _%e166008166341%_)))) + (##car _%e166993167326%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd166009166344%_)) + _%hd166994167329%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd166009166344%_)) + _%hd166994167329%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166010166346%_)) - (let ((_%e166011166349%_ + _%tl166995167331%_)) + (let ((_%e166996167334%_ (let () (declare (not safe)) (gx#stx-e - _%tl166010166346%_)))) - (let ((_%tl166013166354%_ + _%tl166995167331%_)))) + (let ((_%tl166998167339%_ (let () (declare (not safe)) - (##cdr _%e166011166349%_))) - (_%hd166012166352%_ + (##cdr _%e166996167334%_))) + (_%hd166997167337%_ (let () (declare (not safe)) - (##car _%e166011166349%_)))) + (##car _%e166996167334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166013166354%_)) + _%tl166998167339%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl166007166338%_)) - (let ((_%e166014166357%_ + (gx#stx-pair? _%tl166992167323%_)) + (let ((_%e166999167342%_ (let () (declare (not safe)) - (gx#stx-e _%tl166007166338%_)))) - (let ((_%tl166016166362%_ + (gx#stx-e _%tl166992167323%_)))) + (let ((_%tl167001167347%_ (let () (declare (not safe)) - (##cdr _%e166014166357%_))) - (_%hd166015166360%_ + (##cdr _%e166999167342%_))) + (_%hd167000167345%_ (let () (declare (not safe)) - (##car _%e166014166357%_)))) + (##car _%e166999167342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166015166360%_)) - (let ((_%e166017166365%_ + (gx#stx-pair? _%hd167000167345%_)) + (let ((_%e167002167350%_ (let () (declare (not safe)) - (gx#stx-e _%hd166015166360%_)))) - (let ((_%tl166019166370%_ + (gx#stx-e _%hd167000167345%_)))) + (let ((_%tl167004167355%_ (let () (declare (not safe)) - (##cdr _%e166017166365%_))) - (_%hd166018166368%_ + (##cdr _%e167002167350%_))) + (_%hd167003167353%_ (let () (declare (not safe)) - (##car _%e166017166365%_)))) + (##car _%e167002167350%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166018166368%_)) + (gx#identifier? _%hd167003167353%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd166018166368%_)) + _%hd167003167353%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166019166370%_)) - (let ((_%e166020166373%_ + _%tl167004167355%_)) + (let ((_%e167005167358%_ (let () (declare (not safe)) (gx#stx-e - _%tl166019166370%_)))) - (let ((_%tl166022166378%_ + _%tl167004167355%_)))) + (let ((_%tl167007167363%_ (let () (declare (not safe)) - (##cdr _%e166020166373%_))) - (_%hd166021166376%_ + (##cdr _%e167005167358%_))) + (_%hd167006167361%_ (let () (declare (not safe)) - (##car _%e166020166373%_)))) + (##car _%e167005167358%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166022166378%_)) + _%tl167007167363%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166016166362%_)) - (let ((_%e166023166381%_ + _%tl167001167347%_)) + (let ((_%e167008167366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl166016166362%_)))) - (let ((_%tl166025166386%_ + (gx#stx-e _%tl167001167347%_)))) + (let ((_%tl167010167371%_ (let () (declare (not safe)) - (##cdr _%e166023166381%_))) - (_%hd166024166384%_ + (##cdr _%e167008167366%_))) + (_%hd167009167369%_ (let () (declare (not safe)) - (##car _%e166023166381%_)))) + (##car _%e167008167366%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166024166384%_)) - (let ((_%e166026166389%_ + (gx#stx-pair? _%hd167009167369%_)) + (let ((_%e167011167374%_ (let () (declare (not safe)) - (gx#stx-e _%hd166024166384%_)))) - (let ((_%tl166028166394%_ + (gx#stx-e _%hd167009167369%_)))) + (let ((_%tl167013167379%_ (let () (declare (not safe)) - (##cdr _%e166026166389%_))) - (_%hd166027166392%_ + (##cdr _%e167011167374%_))) + (_%hd167012167377%_ (let () (declare (not safe)) - (##car _%e166026166389%_)))) + (##car _%e167011167374%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166027166392%_)) + (gx#identifier? _%hd167012167377%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd166027166392%_)) + _%hd167012167377%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166028166394%_)) - (let ((_%e166029166397%_ + (gx#stx-pair? _%tl167013167379%_)) + (let ((_%e167014167382%_ (let () (declare (not safe)) (gx#stx-e - _%tl166028166394%_)))) - (let ((_%tl166031166402%_ + _%tl167013167379%_)))) + (let ((_%tl167016167387%_ (let () (declare (not safe)) - (##cdr _%e166029166397%_))) - (_%hd166030166400%_ + (##cdr _%e167014167382%_))) + (_%hd167015167385%_ (let () (declare (not safe)) - (##car _%e166029166397%_)))) + (##car _%e167014167382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166031166402%_)) + _%tl167016167387%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166025166386%_)) - (let ((_%e166032166405%_ + _%tl167010167371%_)) + (let ((_%e167017167390%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl166025166386%_)))) - (let ((_%tl166034166410%_ - (let () (declare (not safe)) (##cdr _%e166032166405%_))) - (_%hd166033166408%_ + (gx#stx-e _%tl167010167371%_)))) + (let ((_%tl167019167395%_ + (let () (declare (not safe)) (##cdr _%e167017167390%_))) + (_%hd167018167393%_ (let () (declare (not safe)) - (##car _%e166032166405%_)))) + (##car _%e167017167390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166033166408%_)) - (let ((_%e166035166413%_ + (gx#stx-pair? _%hd167018167393%_)) + (let ((_%e167020167398%_ (let () (declare (not safe)) - (gx#stx-e _%hd166033166408%_)))) - (let ((_%tl166037166418%_ + (gx#stx-e _%hd167018167393%_)))) + (let ((_%tl167022167403%_ (let () (declare (not safe)) - (##cdr _%e166035166413%_))) - (_%hd166036166416%_ + (##cdr _%e167020167398%_))) + (_%hd167021167401%_ (let () (declare (not safe)) - (##car _%e166035166413%_)))) + (##car _%e167020167398%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166036166416%_)) + (gx#identifier? _%hd167021167401%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd166036166416%_)) + (gx#stx-eq? '%#ref _%hd167021167401%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166037166418%_)) - (let ((_%e166038166421%_ + (gx#stx-pair? _%tl167022167403%_)) + (let ((_%e167023167406%_ (let () (declare (not safe)) - (gx#stx-e _%tl166037166418%_)))) - (let ((_%tl166040166426%_ + (gx#stx-e _%tl167022167403%_)))) + (let ((_%tl167025167411%_ (let () (declare (not safe)) - (##cdr _%e166038166421%_))) - (_%hd166039166424%_ + (##cdr _%e167023167406%_))) + (_%hd167024167409%_ (let () (declare (not safe)) - (##car _%e166038166421%_)))) + (##car _%e167023167406%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166040166426%_)) + _%tl167025167411%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166034166410%_)) - (let ((_%e166041166429%_ + _%tl167019167395%_)) + (let ((_%e167026167414%_ (let () (declare (not safe)) (gx#stx-e - _%tl166034166410%_)))) - (let ((_%tl166043166434%_ + _%tl167019167395%_)))) + (let ((_%tl167028167419%_ (let () (declare (not safe)) - (##cdr _%e166041166429%_))) - (_%hd166042166432%_ + (##cdr _%e167026167414%_))) + (_%hd167027167417%_ (let () (declare (not safe)) - (##car _%e166041166429%_)))) + (##car _%e167026167414%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166042166432%_)) - (let ((_%e166044166437%_ + _%hd167027167417%_)) + (let ((_%e167029167422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd166042166432%_)))) - (let ((_%tl166046166442%_ + (gx#stx-e _%hd167027167417%_)))) + (let ((_%tl167031167427%_ (let () (declare (not safe)) - (##cdr _%e166044166437%_))) - (_%hd166045166440%_ + (##cdr _%e167029167422%_))) + (_%hd167030167425%_ (let () (declare (not safe)) - (##car _%e166044166437%_)))) + (##car _%e167029167422%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166045166440%_)) + (gx#identifier? _%hd167030167425%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd166045166440%_)) + (gx#stx-eq? '%#quote _%hd167030167425%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166046166442%_)) - (let ((_%e166047166445%_ + (gx#stx-pair? _%tl167031167427%_)) + (let ((_%e167032167430%_ (let () (declare (not safe)) - (gx#stx-e _%tl166046166442%_)))) - (let ((_%tl166049166450%_ + (gx#stx-e _%tl167031167427%_)))) + (let ((_%tl167034167435%_ (let () (declare (not safe)) - (##cdr _%e166047166445%_))) - (_%hd166048166448%_ + (##cdr _%e167032167430%_))) + (_%hd167033167433%_ (let () (declare (not safe)) - (##car _%e166047166445%_)))) + (##car _%e167032167430%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166049166450%_)) + (gx#stx-null? _%tl167034167435%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166043166434%_)) - (_%__match168551168552%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%e166005166333%_ - _%hd166006166336%_ - _%tl166007166338%_ - _%e166008166341%_ - _%hd166009166344%_ - _%tl166010166346%_ - _%e166011166349%_ - _%hd166012166352%_ - _%tl166013166354%_ - _%e166014166357%_ - _%hd166015166360%_ - _%tl166016166362%_ - _%e166017166365%_ - _%hd166018166368%_ - _%tl166019166370%_ - _%e166020166373%_ - _%hd166021166376%_ - _%tl166022166378%_ - _%e166023166381%_ - _%hd166024166384%_ - _%tl166025166386%_ - _%e166026166389%_ - _%hd166027166392%_ - _%tl166028166394%_ - _%e166029166397%_ - _%hd166030166400%_ - _%tl166031166402%_ - _%e166032166405%_ - _%hd166033166408%_ - _%tl166034166410%_ - _%e166035166413%_ - _%hd166036166416%_ - _%tl166037166418%_ - _%e166038166421%_ - _%hd166039166424%_ - _%tl166040166426%_ - _%e166041166429%_ - _%hd166042166432%_ - _%tl166043166434%_ - _%e166044166437%_ - _%hd166045166440%_ - _%tl166046166442%_ - _%e166047166445%_ - _%hd166048166448%_ - _%tl166049166450%_) + _%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? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl166034166410%_)) - (if (let ((__tmp171248 + _%tl167019167395%_)) + (if (let ((__tmp172233 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp171248 'bind-method!)) - (let ((_%L166281%_ _%hd166039166424%_) - (_%L166282%_ _%hd166030166400%_) - (_%L166283%_ _%hd166021166376%_) - (_%L166284%_ _%hd166012166352%_)) - (_%__kont168418168419%_ - _%L166281%_ - _%L166282%_ - _%L166283%_ - _%L166284%_)) + (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? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl166004166330%_ '0)))) - (let ((_%tl166099166125%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) - (let () (declare (not safe)) (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_))))) + (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? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl166004166330%_ '0)))) - (let ((_%tl166099166125%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) - (let () (declare (not safe)) (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))) + (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? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl166004166330%_ '0)))) - (let ((_%tl166099166125%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) - (let () (declare (not safe)) (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))))) + (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? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl166004166330%_ '0)))) - (let ((_%tl166099166125%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) - (let () (declare (not safe)) (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))))) + (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? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl166004166330%_ '0)))) - (let ((_%tl166099166125%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '1))) - (_%target166097166123%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168422168423%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) - (let () (declare (not safe)) (_%g165995166110%_))))) - (let () (declare (not safe)) (_%g165995166110%_)))) + (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? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166004166330%_)) - (let ((_%__splice168422168423%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166004166330%_ + _%tl166989167315%_ '0)))) - (let ((_%tl166099166125%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '1))) - (_%target166097166123%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168422168423%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166099166125%_)) - (_%__match168671168672%_ - _%e166002166325%_ - _%hd166003166328%_ - _%tl166004166330%_ - _%__splice168422168423%_ - _%target166097166123%_ - _%tl166099166125%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165995166110%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165995166110%_)))))) - (let () (declare (not safe)) (_%g165995166110%_)))))))) + (_%g166980167095%_)))))) + (let () (declare (not safe)) (_%g166980167095%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self165913%_ _%stx165914%_) - (let* ((_%g165916165933%_ - (lambda (_%g165917165930%_) + (lambda (_%self166898%_ _%stx166899%_) + (let* ((_%g166901166918%_ + (lambda (_%g166902166915%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165917165930%_)))) - (_%g165915165987%_ - (lambda (_%g165917165936%_) + _%g166902166915%_)))) + (_%g166900166972%_ + (lambda (_%g166902166921%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165917165936%_)) - (let ((_%e165920165938%_ + (gx#stx-pair? _%g166902166921%_)) + (let ((_%e166905166923%_ (let () (declare (not safe)) - (gx#stx-e _%g165917165936%_)))) - (let ((_%hd165921165941%_ + (gx#stx-e _%g166902166921%_)))) + (let ((_%hd166906166926%_ (let () (declare (not safe)) - (##car _%e165920165938%_))) - (_%tl165922165943%_ + (##car _%e166905166923%_))) + (_%tl166907166928%_ (let () (declare (not safe)) - (##cdr _%e165920165938%_)))) + (##cdr _%e166905166923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165922165943%_)) - (let ((_%e165923165946%_ + (gx#stx-pair? _%tl166907166928%_)) + (let ((_%e166908166931%_ (let () (declare (not safe)) - (gx#stx-e _%tl165922165943%_)))) - (let ((_%hd165924165949%_ + (gx#stx-e _%tl166907166928%_)))) + (let ((_%hd166909166934%_ (let () (declare (not safe)) - (##car _%e165923165946%_))) - (_%tl165925165951%_ + (##car _%e166908166931%_))) + (_%tl166910166936%_ (let () (declare (not safe)) - (##cdr _%e165923165946%_)))) + (##cdr _%e166908166931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165925165951%_)) - (let ((_%e165926165954%_ + (gx#stx-pair? _%tl166910166936%_)) + (let ((_%e166911166939%_ (let () (declare (not safe)) - (gx#stx-e _%tl165925165951%_)))) - (let ((_%hd165927165957%_ + (gx#stx-e _%tl166910166936%_)))) + (let ((_%hd166912166942%_ (let () (declare (not safe)) - (##car _%e165926165954%_))) - (_%tl165928165959%_ + (##car _%e166911166939%_))) + (_%tl166913166944%_ (let () (declare (not safe)) - (##cdr _%e165926165954%_)))) + (##cdr _%e166911166939%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165928165959%_)) - ((lambda (_%L165962%_ - _%L165963%_) - (let* ((_%sym165978%_ + _%tl166913166944%_)) + ((lambda (_%L166947%_ + _%L166948%_) + (let* ((_%sym166963%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L165963%_))) - (_%bind-type165980%_ + _%L166948%_))) + (_%bind-type166965%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym165978%_))) - (_%expr-type165982%_ + _%sym166963%_))) + (_%expr-type166967%_ (gxc#apply-basic-expression-type - _%L165962%_)) - (_%reduced-type165984%_ + _%L166947%_)) + (_%reduced-type166969%_ (gxc#greatest-common-type - _%stx165914%_ - _%bind-type165980%_ - _%expr-type165982%_))) - (if _%reduced-type165984%_ - (let ((__tmp171249 - (memq _%sym165978%_ + _%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!__% - _%sym165978%_ - _%reduced-type165984%_ - __tmp171249)) + _%sym166963%_ + _%reduced-type166969%_ + __tmp172234)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self165913%_ - _%L165962%_)))) - _%hd165927165957%_ - _%hd165924165949%_) - (_%g165916165933%_ - _%g165917165936%_)))) - (_%g165916165933%_ _%g165917165936%_)))) - (_%g165916165933%_ _%g165917165936%_)))) - (_%g165916165933%_ _%g165917165936%_))))) - (_%g165915165987%_ _%stx165914%_)))) + _%self166898%_ + _%L166947%_)))) + _%hd166912166942%_ + _%hd166909166934%_) + (_%g166901166918%_ + _%g166902166921%_)))) + (_%g166901166918%_ _%g166902166921%_)))) + (_%g166901166918%_ _%g166902166921%_)))) + (_%g166901166918%_ _%g166902166921%_))))) + (_%g166900166972%_ _%stx166899%_)))) (define gxc#apply-path-type-if% - (lambda (_%self165513%_ _%stx165514%_) - (let* ((_%__stx168674168675%_ _%stx165514%_) - (_%g165518165607%_ + (lambda (_%self166498%_ _%stx166499%_) + (let* ((_%__stx169659169660%_ _%stx166499%_) + (_%g166503166592%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168674168675%_))))) - (let ((_%__kont168676168677%_ - (lambda (_%L165865%_ _%L165866%_ _%L165867%_ _%L165868%_) - (let ((_%$e165900%_ - (let ((__tmp171250 + _%__stx169659169660%_))))) + (let ((_%__kont169661169662%_ + (lambda (_%L166850%_ _%L166851%_ _%L166852%_ _%L166853%_) + (let ((_%$e166885%_ + (let ((__tmp172235 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165868%_)))) + (gxc#identifier-symbol _%L166853%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171250)))) - (if _%$e165900%_ - ((lambda (_%pred-type165903%_) + (gxc#optimizer-lookup-type __tmp172235)))) + (if _%$e166885%_ + ((lambda (_%pred-type166888%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165903%_ + _%pred-type166888%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165903%_ + _%pred-type166888%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp171253 + (let ((__tmp172238 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165513%_ - _%L165866%_)))) - (__tmp171251 + _%self166498%_ + _%L166851%_)))) + (__tmp172236 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L165867%_)) - (let ((__tmp171252 + _%L166852%_)) + (let ((__tmp172237 (##structure-ref - _%pred-type165903%_ + _%pred-type166888%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165514%_ - __tmp171252))) + _%stx166499%_ + __tmp172237))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (__call-with-parameters - __tmp171253 + __tmp172238 gxc#current-compile-path-type - __tmp171251)) + __tmp172236)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165513%_ - _%L165865%_))) + _%self166498%_ + _%L166850%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self165513%_ - _%stx165514%_)))) - _%$e165900%_) + _%self166498%_ + _%stx166499%_)))) + _%$e166885%_) (let () (declare (not safe)) (gxc#apply-operands - _%self165513%_ - _%stx165514%_)))))) - (_%__kont168678168679%_ - (lambda (_%L165741%_ _%L165742%_ _%L165743%_ _%L165744%_) + _%self166498%_ + _%stx166499%_)))))) + (_%__kont169663169664%_ + (lambda (_%L166726%_ _%L166727%_ _%L166728%_ _%L166729%_) (gxc#apply-path-type-if% - _%self165513%_ - (let ((__tmp171254 + _%self166498%_ + (let ((__tmp172239 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L165743%_ - (cons _%L165741%_ - (cons _%L165742%_ '())))))) + (cons _%L166728%_ + (cons _%L166726%_ + (cons _%L166727%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171254 _%stx165514%_))))) - (_%__kont168680168681%_ - (lambda (_%L165644%_ _%L165645%_ _%L165646%_) + (gxc#xform-wrap-source __tmp172239 _%stx166499%_))))) + (_%__kont169665169666%_ + (lambda (_%L166629%_ _%L166630%_ _%L166631%_) (let () (declare (not safe)) - (gxc#apply-operands _%self165513%_ _%stx165514%_))))) - (let ((_%__match168835168836%_ - (lambda (_%e165561165669%_ - _%hd165562165672%_ - _%tl165563165674%_ - _%e165564165677%_ - _%hd165565165680%_ - _%tl165566165682%_ - _%e165567165685%_ - _%hd165568165688%_ - _%tl165569165690%_ - _%e165570165693%_ - _%hd165571165696%_ - _%tl165572165698%_ - _%e165573165701%_ - _%hd165574165704%_ - _%tl165575165706%_ - _%e165576165709%_ - _%hd165577165712%_ - _%tl165578165714%_ - _%e165579165717%_ - _%hd165580165720%_ - _%tl165581165722%_ - _%e165582165725%_ - _%hd165583165728%_ - _%tl165584165730%_ - _%e165585165733%_ - _%hd165586165736%_ - _%tl165587165738%_) - (let ((_%L165741%_ _%hd165586165736%_) - (_%L165742%_ _%hd165583165728%_) - (_%L165743%_ _%hd165580165720%_) - (_%L165744%_ _%hd165577165712%_)) + (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=? _%L165744%_ 'not)) - (_%__kont168678168679%_ - _%L165741%_ - _%L165742%_ - _%L165743%_ - _%L165744%_) - (_%__kont168680168681%_ - _%hd165586165736%_ - _%hd165583165728%_ - _%hd165565165680%_)))))) + (gxc#runtime-identifier=? _%L166729%_ 'not)) + (_%__kont169663169664%_ + _%L166726%_ + _%L166727%_ + _%L166728%_ + _%L166729%_) + (_%__kont169665169666%_ + _%hd166571166721%_ + _%hd166568166713%_ + _%hd166550166665%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168674168675%_)) - (let ((_%e165524165777%_ + (gx#stx-pair? _%__stx169659169660%_)) + (let ((_%e166509166762%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168674168675%_)))) - (let ((_%tl165526165782%_ + (gx#stx-e _%__stx169659169660%_)))) + (let ((_%tl166511166767%_ (let () (declare (not safe)) - (##cdr _%e165524165777%_))) - (_%hd165525165780%_ + (##cdr _%e166509166762%_))) + (_%hd166510166765%_ (let () (declare (not safe)) - (##car _%e165524165777%_)))) + (##car _%e166509166762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165526165782%_)) - (let ((_%e165527165785%_ + (gx#stx-pair? _%tl166511166767%_)) + (let ((_%e166512166770%_ (let () (declare (not safe)) - (gx#stx-e _%tl165526165782%_)))) - (let ((_%tl165529165790%_ + (gx#stx-e _%tl166511166767%_)))) + (let ((_%tl166514166775%_ (let () (declare (not safe)) - (##cdr _%e165527165785%_))) - (_%hd165528165788%_ + (##cdr _%e166512166770%_))) + (_%hd166513166773%_ (let () (declare (not safe)) - (##car _%e165527165785%_)))) + (##car _%e166512166770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165528165788%_)) - (let ((_%e165530165793%_ + (gx#stx-pair? _%hd166513166773%_)) + (let ((_%e166515166778%_ (let () (declare (not safe)) - (gx#stx-e _%hd165528165788%_)))) - (let ((_%tl165532165798%_ + (gx#stx-e _%hd166513166773%_)))) + (let ((_%tl166517166783%_ (let () (declare (not safe)) - (##cdr _%e165530165793%_))) - (_%hd165531165796%_ + (##cdr _%e166515166778%_))) + (_%hd166516166781%_ (let () (declare (not safe)) - (##car _%e165530165793%_)))) + (##car _%e166515166778%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165531165796%_)) + _%hd166516166781%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd165531165796%_)) + _%hd166516166781%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165532165798%_)) - (let ((_%e165533165801%_ + _%tl166517166783%_)) + (let ((_%e166518166786%_ (let () (declare (not safe)) (gx#stx-e - _%tl165532165798%_)))) - (let ((_%tl165535165806%_ + _%tl166517166783%_)))) + (let ((_%tl166520166791%_ (let () (declare (not safe)) - (##cdr _%e165533165801%_))) - (_%hd165534165804%_ + (##cdr _%e166518166786%_))) + (_%hd166519166789%_ (let () (declare (not safe)) - (##car _%e165533165801%_)))) + (##car _%e166518166786%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165534165804%_)) - (let ((_%e165536165809%_ + _%hd166519166789%_)) + (let ((_%e166521166794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165534165804%_)))) - (let ((_%tl165538165814%_ + (gx#stx-e _%hd166519166789%_)))) + (let ((_%tl166523166799%_ (let () (declare (not safe)) - (##cdr _%e165536165809%_))) - (_%hd165537165812%_ + (##cdr _%e166521166794%_))) + (_%hd166522166797%_ (let () (declare (not safe)) - (##car _%e165536165809%_)))) + (##car _%e166521166794%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165537165812%_)) + (gx#identifier? _%hd166522166797%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165537165812%_)) + (gx#stx-eq? '%#ref _%hd166522166797%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165538165814%_)) - (let ((_%e165539165817%_ + (gx#stx-pair? _%tl166523166799%_)) + (let ((_%e166524166802%_ (let () (declare (not safe)) - (gx#stx-e _%tl165538165814%_)))) - (let ((_%tl165541165822%_ + (gx#stx-e _%tl166523166799%_)))) + (let ((_%tl166526166807%_ (let () (declare (not safe)) - (##cdr _%e165539165817%_))) - (_%hd165540165820%_ + (##cdr _%e166524166802%_))) + (_%hd166525166805%_ (let () (declare (not safe)) - (##car _%e165539165817%_)))) + (##car _%e166524166802%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165541165822%_)) + (gx#stx-null? _%tl166526166807%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165535165806%_)) - (let ((_%e165542165825%_ + _%tl166520166791%_)) + (let ((_%e166527166810%_ (let () (declare (not safe)) (gx#stx-e - _%tl165535165806%_)))) - (let ((_%tl165544165830%_ + _%tl166520166791%_)))) + (let ((_%tl166529166815%_ (let () (declare (not safe)) - (##cdr _%e165542165825%_))) - (_%hd165543165828%_ + (##cdr _%e166527166810%_))) + (_%hd166528166813%_ (let () (declare (not safe)) - (##car _%e165542165825%_)))) + (##car _%e166527166810%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165543165828%_)) - (let ((_%e165545165833%_ + _%hd166528166813%_)) + (let ((_%e166530166818%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd165543165828%_)))) - (let ((_%tl165547165838%_ - (let () (declare (not safe)) (##cdr _%e165545165833%_))) - (_%hd165546165836%_ + (gx#stx-e _%hd166528166813%_)))) + (let ((_%tl166532166823%_ + (let () (declare (not safe)) (##cdr _%e166530166818%_))) + (_%hd166531166821%_ (let () (declare (not safe)) - (##car _%e165545165833%_)))) + (##car _%e166530166818%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165546165836%_)) + (gx#identifier? _%hd166531166821%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165546165836%_)) + (gx#stx-eq? '%#ref _%hd166531166821%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165547165838%_)) - (let ((_%e165548165841%_ + (gx#stx-pair? _%tl166532166823%_)) + (let ((_%e166533166826%_ (let () (declare (not safe)) - (gx#stx-e _%tl165547165838%_)))) - (let ((_%tl165550165846%_ + (gx#stx-e _%tl166532166823%_)))) + (let ((_%tl166535166831%_ (let () (declare (not safe)) - (##cdr _%e165548165841%_))) - (_%hd165549165844%_ + (##cdr _%e166533166826%_))) + (_%hd166534166829%_ (let () (declare (not safe)) - (##car _%e165548165841%_)))) + (##car _%e166533166826%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165550165846%_)) + (gx#stx-null? _%tl166535166831%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165544165830%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165551165849%_ + _%tl166514166775%_)) + (let ((_%e166536166834%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165553165854%_ + _%tl166514166775%_)))) + (let ((_%tl166538166839%_ (let () (declare (not safe)) - (##cdr _%e165551165849%_))) - (_%hd165552165852%_ + (##cdr _%e166536166834%_))) + (_%hd166537166837%_ (let () (declare (not safe)) - (##car _%e165551165849%_)))) + (##car _%e166536166834%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165553165854%_)) - (let ((_%e165554165857%_ + _%tl166538166839%_)) + (let ((_%e166539166842%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165553165854%_)))) - (let ((_%tl165556165862%_ - (let () (declare (not safe)) (##cdr _%e165554165857%_))) - (_%hd165555165860%_ + (gx#stx-e _%tl166538166839%_)))) + (let ((_%tl166541166847%_ + (let () (declare (not safe)) (##cdr _%e166539166842%_))) + (_%hd166540166845%_ (let () (declare (not safe)) - (##car _%e165554165857%_)))) + (##car _%e166539166842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165556165862%_)) - (_%__kont168676168677%_ - _%hd165555165860%_ - _%hd165552165852%_ - _%hd165549165844%_ - _%hd165540165820%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (gx#stx-null? _%tl166541166847%_)) + (_%__kont169661169662%_ + _%hd166540166845%_ + _%hd166537166837%_ + _%hd166534166829%_ + _%hd166525166805%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165518165607%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165597165628%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ - (let () (declare (not safe)) (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165518165607%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165544165830%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165582165725%_ + _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165584165730%_ + _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165582165725%_))) - (_%hd165583165728%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165582165725%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165584165730%_)) - (let ((_%e165585165733%_ + _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165584165730%_)))) - (let ((_%tl165587165738%_ - (let () (declare (not safe)) (##cdr _%e165585165733%_))) - (_%hd165586165736%_ + (gx#stx-e _%tl166569166715%_)))) + (let ((_%tl166572166723%_ + (let () (declare (not safe)) (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165585165733%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165587165738%_)) - (_%__match168835168836%_ - _%e165524165777%_ - _%hd165525165780%_ - _%tl165526165782%_ - _%e165527165785%_ - _%hd165528165788%_ - _%tl165529165790%_ - _%e165530165793%_ - _%hd165531165796%_ - _%tl165532165798%_ - _%e165533165801%_ - _%hd165534165804%_ - _%tl165535165806%_ - _%e165536165809%_ - _%hd165537165812%_ - _%tl165538165814%_ - _%e165539165817%_ - _%hd165540165820%_ - _%tl165541165822%_ - _%e165542165825%_ - _%hd165543165828%_ - _%tl165544165830%_ - _%e165582165725%_ - _%hd165583165728%_ - _%tl165584165730%_ - _%e165585165733%_ - _%hd165586165736%_ - _%tl165587165738%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (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)) - (_%g165518165607%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165597165628%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ - (let () (declare (not safe)) (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165518165607%_))))))) + (_%g166503166592%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165544165830%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165582165725%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165584165730%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165582165725%_))) - (_%hd165583165728%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165582165725%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165584165730%_)) - (let ((_%e165585165733%_ + _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) (gx#stx-e - _%tl165584165730%_)))) - (let ((_%tl165587165738%_ + _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165585165733%_))) - (_%hd165586165736%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165585165733%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165587165738%_)) - (_%__match168835168836%_ - _%e165524165777%_ - _%hd165525165780%_ - _%tl165526165782%_ - _%e165527165785%_ - _%hd165528165788%_ - _%tl165529165790%_ - _%e165530165793%_ - _%hd165531165796%_ - _%tl165532165798%_ - _%e165533165801%_ - _%hd165534165804%_ - _%tl165535165806%_ - _%e165536165809%_ - _%hd165537165812%_ - _%tl165538165814%_ - _%e165539165817%_ - _%hd165540165820%_ - _%tl165541165822%_ - _%e165542165825%_ - _%hd165543165828%_ - _%tl165544165830%_ - _%e165582165725%_ - _%hd165583165728%_ - _%tl165584165730%_ - _%e165585165733%_ - _%hd165586165736%_ - _%tl165587165738%_) + _%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)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165544165830%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165582165725%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165584165730%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165582165725%_))) - (_%hd165583165728%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165582165725%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165584165730%_)) - (let ((_%e165585165733%_ + (gx#stx-pair? _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) (gx#stx-e - _%tl165584165730%_)))) - (let ((_%tl165587165738%_ + _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165585165733%_))) - (_%hd165586165736%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165585165733%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165587165738%_)) - (_%__match168835168836%_ - _%e165524165777%_ - _%hd165525165780%_ - _%tl165526165782%_ - _%e165527165785%_ - _%hd165528165788%_ - _%tl165529165790%_ - _%e165530165793%_ - _%hd165531165796%_ - _%tl165532165798%_ - _%e165533165801%_ - _%hd165534165804%_ - _%tl165535165806%_ - _%e165536165809%_ - _%hd165537165812%_ - _%tl165538165814%_ - _%e165539165817%_ - _%hd165540165820%_ - _%tl165541165822%_ - _%e165542165825%_ - _%hd165543165828%_ - _%tl165544165830%_ - _%e165582165725%_ - _%hd165583165728%_ - _%tl165584165730%_ - _%e165585165733%_ - _%hd165586165736%_ - _%tl165587165738%_) + _%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)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165599165633%_)) - (let ((_%e165600165636%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165544165830%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165582165725%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165584165730%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165582165725%_))) - (_%hd165583165728%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165582165725%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165584165730%_)) - (let ((_%e165585165733%_ + (gx#stx-pair? _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) - (gx#stx-e _%tl165584165730%_)))) - (let ((_%tl165587165738%_ + (gx#stx-e _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165585165733%_))) - (_%hd165586165736%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165585165733%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165587165738%_)) - (_%__match168835168836%_ - _%e165524165777%_ - _%hd165525165780%_ - _%tl165526165782%_ - _%e165527165785%_ - _%hd165528165788%_ - _%tl165529165790%_ - _%e165530165793%_ - _%hd165531165796%_ - _%tl165532165798%_ - _%e165533165801%_ - _%hd165534165804%_ - _%tl165535165806%_ - _%e165536165809%_ - _%hd165537165812%_ - _%tl165538165814%_ - _%e165539165817%_ - _%hd165540165820%_ - _%tl165541165822%_ - _%e165542165825%_ - _%hd165543165828%_ - _%tl165544165830%_ - _%e165582165725%_ - _%hd165583165728%_ - _%tl165584165730%_ - _%e165585165733%_ - _%hd165586165736%_ - _%tl165587165738%_) + _%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)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165599165633%_)) - (let ((_%e165600165636%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))))) + (_%g166503166592%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165544165830%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165582165725%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165584165730%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165582165725%_))) - (_%hd165583165728%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165582165725%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165584165730%_)) - (let ((_%e165585165733%_ + (gx#stx-pair? _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) - (gx#stx-e _%tl165584165730%_)))) - (let ((_%tl165587165738%_ + (gx#stx-e _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165585165733%_))) - (_%hd165586165736%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165585165733%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165587165738%_)) - (_%__match168835168836%_ - _%e165524165777%_ - _%hd165525165780%_ - _%tl165526165782%_ - _%e165527165785%_ - _%hd165528165788%_ - _%tl165529165790%_ - _%e165530165793%_ - _%hd165531165796%_ - _%tl165532165798%_ - _%e165533165801%_ - _%hd165534165804%_ - _%tl165535165806%_ - _%e165536165809%_ - _%hd165537165812%_ - _%tl165538165814%_ - _%e165539165817%_ - _%hd165540165820%_ - _%tl165541165822%_ - _%e165542165825%_ - _%hd165543165828%_ - _%tl165544165830%_ - _%e165582165725%_ - _%hd165583165728%_ - _%tl165584165730%_ - _%e165585165733%_ - _%hd165586165736%_ - _%tl165587165738%_) + (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)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165599165633%_)) - (let ((_%e165600165636%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165597165628%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165518165607%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165597165628%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ - (let () (declare (not safe)) (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165518165607%_)))))) + (_%g166503166592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165599165633%_)) - (let ((_%e165600165636%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165599165633%_)) - (let ((_%e165600165636%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_)))))) + (_%g166503166592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165599165633%_)) - (let ((_%e165600165636%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_)))))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165597165628%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ - (let () (declare (not safe)) (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ + (let () (declare (not safe)) (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165599165633%_)) - (let ((_%e165600165636%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_)))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165597165628%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165518165607%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165529165790%_)) - (let ((_%e165597165628%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165599165633%_)))) - (let ((_%tl165602165641%_ - (let () (declare (not safe)) (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165518165607%_)))))) + (_%g166503166592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165529165790%_)) - (let ((_%e165597165628%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165529165790%_)))) - (let ((_%tl165599165633%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165597165628%_))) - (_%hd165598165631%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165597165628%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165599165633%_)) - (let ((_%e165600165636%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165599165633%_)))) - (let ((_%tl165602165641%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165600165636%_))) - (_%hd165601165639%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165600165636%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165602165641%_)) - (_%__kont168680168681%_ - _%hd165601165639%_ - _%hd165598165631%_ - _%hd165528165788%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165518165607%_)))))) - (let () (declare (not safe)) (_%g165518165607%_))))) - (let () (declare (not safe)) (_%g165518165607%_)))))))) + (_%g166503166592%_)))))) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self165371%_ _%stx165372%_) - (let* ((_%__stx168864168865%_ _%stx165372%_) - (_%g165375165405%_ + (lambda (_%self166356%_ _%stx166357%_) + (let* ((_%__stx169849169850%_ _%stx166357%_) + (_%g166360166390%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168864168865%_))))) - (let ((_%__kont168866168867%_ - (lambda (_%L165485%_ _%L165486%_) - (let ((_%sym165502%_ + _%__stx169849169850%_))))) + (let ((_%__kont169851169852%_ + (lambda (_%L166470%_ _%L166471%_) + (let ((_%sym166487%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165486%_)))) - (if (let ((__tmp171255 + (gxc#identifier-symbol _%L166471%_)))) + (if (let ((__tmp172240 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171255 _%sym165502%_)) + (hash-get __tmp172240 _%sym166487%_)) '#!void - (let ((_%type165503165505%_ - (gxc#apply-basic-expression-type _%L165485%_))) - (if _%type165503165505%_ - (let ((_%type165508%_ _%type165503165505%_)) + (let ((_%type166488166490%_ + (gxc#apply-basic-expression-type _%L166470%_))) + (if _%type166488166490%_ + (let ((_%type166493%_ _%type166488166490%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165508%_ + _%type166493%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym165502%_ - _%type165508%_)))) + _%sym166487%_ + _%type166493%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165371%_ _%L165485%_))))) - (_%__kont168868168869%_ - (lambda (_%L165434%_) + (gxc#compile-e__1 _%self166356%_ _%L166470%_))))) + (_%__kont169853169854%_ + (lambda (_%L166419%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165371%_ _%L165434%_))))) - (let ((_%__match168897168898%_ - (lambda (_%e165379165453%_ - _%hd165380165456%_ - _%tl165381165458%_ - _%e165382165461%_ - _%hd165383165464%_ - _%tl165384165466%_ - _%e165385165469%_ - _%hd165386165472%_ - _%tl165387165474%_ - _%e165388165477%_ - _%hd165389165480%_ - _%tl165390165482%_) - (let ((_%L165485%_ _%hd165389165480%_) - (_%L165486%_ _%hd165386165472%_)) + (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? _%L165486%_)) - (_%__kont168866168867%_ _%L165485%_ _%L165486%_) - (_%__kont168868168869%_ _%hd165389165480%_)))))) + (gx#identifier? _%L166471%_)) + (_%__kont169851169852%_ _%L166470%_ _%L166471%_) + (_%__kont169853169854%_ _%hd166374166465%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168864168865%_)) - (let ((_%e165379165453%_ + (gx#stx-pair? _%__stx169849169850%_)) + (let ((_%e166364166438%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168864168865%_)))) - (let ((_%tl165381165458%_ + (gx#stx-e _%__stx169849169850%_)))) + (let ((_%tl166366166443%_ (let () (declare (not safe)) - (##cdr _%e165379165453%_))) - (_%hd165380165456%_ + (##cdr _%e166364166438%_))) + (_%hd166365166441%_ (let () (declare (not safe)) - (##car _%e165379165453%_)))) + (##car _%e166364166438%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165381165458%_)) - (let ((_%e165382165461%_ + (gx#stx-pair? _%tl166366166443%_)) + (let ((_%e166367166446%_ (let () (declare (not safe)) - (gx#stx-e _%tl165381165458%_)))) - (let ((_%tl165384165466%_ + (gx#stx-e _%tl166366166443%_)))) + (let ((_%tl166369166451%_ (let () (declare (not safe)) - (##cdr _%e165382165461%_))) - (_%hd165383165464%_ + (##cdr _%e166367166446%_))) + (_%hd166368166449%_ (let () (declare (not safe)) - (##car _%e165382165461%_)))) + (##car _%e166367166446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165383165464%_)) - (let ((_%e165385165469%_ + (gx#stx-pair? _%hd166368166449%_)) + (let ((_%e166370166454%_ (let () (declare (not safe)) - (gx#stx-e _%hd165383165464%_)))) - (let ((_%tl165387165474%_ + (gx#stx-e _%hd166368166449%_)))) + (let ((_%tl166372166459%_ (let () (declare (not safe)) - (##cdr _%e165385165469%_))) - (_%hd165386165472%_ + (##cdr _%e166370166454%_))) + (_%hd166371166457%_ (let () (declare (not safe)) - (##car _%e165385165469%_)))) + (##car _%e166370166454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165387165474%_)) + (gx#stx-null? _%tl166372166459%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165384165466%_)) - (let ((_%e165388165477%_ + _%tl166369166451%_)) + (let ((_%e166373166462%_ (let () (declare (not safe)) (gx#stx-e - _%tl165384165466%_)))) - (let ((_%tl165390165482%_ + _%tl166369166451%_)))) + (let ((_%tl166375166467%_ (let () (declare (not safe)) - (##cdr _%e165388165477%_))) - (_%hd165389165480%_ + (##cdr _%e166373166462%_))) + (_%hd166374166465%_ (let () (declare (not safe)) - (##car _%e165388165477%_)))) + (##car _%e166373166462%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165390165482%_)) - (_%__match168897168898%_ - _%e165379165453%_ - _%hd165380165456%_ - _%tl165381165458%_ - _%e165382165461%_ - _%hd165383165464%_ - _%tl165384165466%_ - _%e165385165469%_ - _%hd165386165472%_ - _%tl165387165474%_ - _%e165388165477%_ - _%hd165389165480%_ - _%tl165390165482%_) + _%tl166375166467%_)) + (_%__match169882169883%_ + _%e166364166438%_ + _%hd166365166441%_ + _%tl166366166443%_ + _%e166367166446%_ + _%hd166368166449%_ + _%tl166369166451%_ + _%e166370166454%_ + _%hd166371166457%_ + _%tl166372166459%_ + _%e166373166462%_ + _%hd166374166465%_ + _%tl166375166467%_) (let () (declare (not safe)) - (_%g165375165405%_))))) + (_%g166360166390%_))))) (let () (declare (not safe)) - (_%g165375165405%_))) + (_%g166360166390%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165384165466%_)) - (let ((_%e165398165426%_ + _%tl166369166451%_)) + (let ((_%e166383166411%_ (let () (declare (not safe)) (gx#stx-e - _%tl165384165466%_)))) - (let ((_%tl165400165431%_ + _%tl166369166451%_)))) + (let ((_%tl166385166416%_ (let () (declare (not safe)) - (##cdr _%e165398165426%_))) - (_%hd165399165429%_ + (##cdr _%e166383166411%_))) + (_%hd166384166414%_ (let () (declare (not safe)) - (##car _%e165398165426%_)))) + (##car _%e166383166411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165400165431%_)) - (_%__kont168868168869%_ - _%hd165399165429%_) + _%tl166385166416%_)) + (_%__kont169853169854%_ + _%hd166384166414%_) (let () (declare (not safe)) - (_%g165375165405%_))))) + (_%g166360166390%_))))) (let () (declare (not safe)) - (_%g165375165405%_)))))) + (_%g166360166390%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165384165466%_)) - (let ((_%e165398165426%_ + (gx#stx-pair? _%tl166369166451%_)) + (let ((_%e166383166411%_ (let () (declare (not safe)) - (gx#stx-e _%tl165384165466%_)))) - (let ((_%tl165400165431%_ + (gx#stx-e _%tl166369166451%_)))) + (let ((_%tl166385166416%_ (let () (declare (not safe)) - (##cdr _%e165398165426%_))) - (_%hd165399165429%_ + (##cdr _%e166383166411%_))) + (_%hd166384166414%_ (let () (declare (not safe)) - (##car _%e165398165426%_)))) + (##car _%e166383166411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165400165431%_)) - (_%__kont168868168869%_ - _%hd165399165429%_) + _%tl166385166416%_)) + (_%__kont169853169854%_ + _%hd166384166414%_) (let () (declare (not safe)) - (_%g165375165405%_))))) + (_%g166360166390%_))))) (let () (declare (not safe)) - (_%g165375165405%_)))))) - (let () (declare (not safe)) (_%g165375165405%_))))) - (let () (declare (not safe)) (_%g165375165405%_)))))))) + (_%g166360166390%_)))))) + (let () (declare (not safe)) (_%g166360166390%_))))) + (let () (declare (not safe)) (_%g166360166390%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self165143%_ _%stx165144%_) - (letrec ((_%collect-e165146%_ - (lambda (_%hd165315%_ _%expr165316%_) - (let* ((_%__stx168920168921%_ _%hd165315%_) - (_%g165319165329%_ + (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" - _%__stx168920168921%_))))) - (let ((_%__kont168922168923%_ - (lambda (_%L165349%_) - (let ((_%sym165360%_ + _%__stx169905169906%_))))) + (let ((_%__kont169907169908%_ + (lambda (_%L166334%_) + (let ((_%sym166345%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165349%_)))) - (if (let ((__tmp171256 + (gxc#identifier-symbol _%L166334%_)))) + (if (let ((__tmp172241 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171256 _%sym165360%_)) + (hash-get __tmp172241 _%sym166345%_)) '#!void - (let ((_%type165361165363%_ + (let ((_%type166346166348%_ (gxc#apply-basic-expression-type - _%expr165316%_))) - (if _%type165361165363%_ - (let ((_%type165366%_ - _%type165361165363%_)) + _%expr166301%_))) + (if _%type166346166348%_ + (let ((_%type166351%_ + _%type166346166348%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165366%_ + _%type166351%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165360%_ - _%type165366%_ + _%sym166345%_ + _%type166351%_ '#t)))) '#f)))))) - (_%__kont168924168925%_ (lambda () '#!void))) - (let ((_%__match168933168934%_ - (lambda (_%e165322165341%_ - _%hd165323165344%_ - _%tl165324165346%_) - (let ((_%L165349%_ _%hd165323165344%_)) + (_%__kont169909169910%_ (lambda () '#!void))) + (let ((_%__match169918169919%_ + (lambda (_%e166307166326%_ + _%hd166308166329%_ + _%tl166309166331%_) + (let ((_%L166334%_ _%hd166308166329%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165349%_)) - (_%__kont168922168923%_ _%L165349%_) - (_%__kont168924168925%_)))))) + (gx#identifier? _%L166334%_)) + (_%__kont169907169908%_ _%L166334%_) + (_%__kont169909169910%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168920168921%_)) - (let ((_%e165322165341%_ + (gx#stx-pair? _%__stx169905169906%_)) + (let ((_%e166307166326%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168920168921%_)))) - (let ((_%tl165324165346%_ + (gx#stx-e _%__stx169905169906%_)))) + (let ((_%tl166309166331%_ (let () (declare (not safe)) - (##cdr _%e165322165341%_))) - (_%hd165323165344%_ + (##cdr _%e166307166326%_))) + (_%hd166308166329%_ (let () (declare (not safe)) - (##car _%e165322165341%_)))) + (##car _%e166307166326%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165324165346%_)) - (_%__match168933168934%_ - _%e165322165341%_ - _%hd165323165344%_ - _%tl165324165346%_) - (_%__kont168924168925%_)))) - (_%__kont168924168925%_)))))))) - (let* ((_%g165148165183%_ - (lambda (_%g165149165180%_) + (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" - _%g165149165180%_)))) - (_%g165147165312%_ - (lambda (_%g165149165186%_) + _%g166134166165%_)))) + (_%g166132166297%_ + (lambda (_%g166134166171%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165149165186%_)) - (let ((_%e165153165188%_ + (gx#stx-pair? _%g166134166171%_)) + (let ((_%e166138166173%_ (let () (declare (not safe)) - (gx#stx-e _%g165149165186%_)))) - (let ((_%hd165154165191%_ + (gx#stx-e _%g166134166171%_)))) + (let ((_%hd166139166176%_ (let () (declare (not safe)) - (##car _%e165153165188%_))) - (_%tl165155165193%_ + (##car _%e166138166173%_))) + (_%tl166140166178%_ (let () (declare (not safe)) - (##cdr _%e165153165188%_)))) + (##cdr _%e166138166173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165155165193%_)) - (let ((_%e165156165196%_ + (gx#stx-pair? _%tl166140166178%_)) + (let ((_%e166141166181%_ (let () (declare (not safe)) - (gx#stx-e _%tl165155165193%_)))) - (let ((_%hd165157165199%_ + (gx#stx-e _%tl166140166178%_)))) + (let ((_%hd166142166184%_ (let () (declare (not safe)) - (##car _%e165156165196%_))) - (_%tl165158165201%_ + (##car _%e166141166181%_))) + (_%tl166143166186%_ (let () (declare (not safe)) - (##cdr _%e165156165196%_)))) + (##cdr _%e166141166181%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd165157165199%_)) - (let ((_g171257_ + _%hd166142166184%_)) + (let ((_g172242_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd165157165199%_ + _%hd166142166184%_ '0)))) (begin - (let ((_g171258_ + (let ((_g172243_ (let () (declare (not safe)) - (if (##values? _g171257_) + (if (##values? _g172242_) (##values-length - _g171257_) + _g172242_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171258_ 2))) + (##fx= _g172243_ 2))) (error "Context expects 2 values" - _g171258_))) - (let ((_%target165159165204%_ + _g172243_))) + (let ((_%target166144166189%_ (let () (declare (not safe)) (##values-ref - _g171257_ + _g172242_ 0))) - (_%tl165161165206%_ + (_%tl166146166191%_ (let () (declare (not safe)) (##values-ref - _g171257_ + _g172242_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165161165206%_)) - (letrec ((_%loop165162165209%_ - (lambda (_%hd165160165212%_ + _%tl166146166191%_)) + (letrec ((_%loop166147166194%_ + (lambda (_%hd166145166197%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr165166165214%_ - _%hd165167165216%_) + _%expr166151166199%_ + _%hd166152166201%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165160165212%_)) - (let ((_%e165163165219%_ + (gx#stx-pair? _%hd166145166197%_)) + (let ((_%e166148166204%_ (let () (declare (not safe)) - (gx#stx-e _%hd165160165212%_)))) - (let ((_%lp-hd165164165222%_ + (gx#stx-e _%hd166145166197%_)))) + (let ((_%lp-hd166149166207%_ (let () (declare (not safe)) - (##car _%e165163165219%_))) - (_%lp-tl165165165224%_ + (##car _%e166148166204%_))) + (_%lp-tl166150166209%_ (let () (declare (not safe)) - (##cdr _%e165163165219%_)))) + (##cdr _%e166148166204%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165164165222%_)) - (let ((_%e165173165227%_ + (gx#stx-pair? _%lp-hd166149166207%_)) + (let ((_%e166158166212%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165164165222%_)))) - (let ((_%hd165174165230%_ + (gx#stx-e _%lp-hd166149166207%_)))) + (let ((_%hd166159166215%_ (let () (declare (not safe)) - (##car _%e165173165227%_))) - (_%tl165175165232%_ + (##car _%e166158166212%_))) + (_%tl166160166217%_ (let () (declare (not safe)) - (##cdr _%e165173165227%_)))) + (##cdr _%e166158166212%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165175165232%_)) - (let ((_%e165176165235%_ + (gx#stx-pair? _%tl166160166217%_)) + (let ((_%e166161166220%_ (let () (declare (not safe)) (gx#stx-e - _%tl165175165232%_)))) - (let ((_%hd165177165238%_ + _%tl166160166217%_)))) + (let ((_%hd166162166223%_ (let () (declare (not safe)) - (##car _%e165176165235%_))) - (_%tl165178165240%_ + (##car _%e166161166220%_))) + (_%tl166163166225%_ (let () (declare (not safe)) - (##cdr _%e165176165235%_)))) + (##cdr _%e166161166220%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165178165240%_)) - (_%loop165162165209%_ - _%lp-tl165165165224%_ - (cons _%hd165177165238%_ - _%expr165166165214%_) - (cons _%hd165174165230%_ - _%hd165167165216%_)) - (_%g165148165183%_ - _%g165149165186%_)))) - (_%g165148165183%_ - _%g165149165186%_)))) - (_%g165148165183%_ _%g165149165186%_)))) - (let ((_%expr165168165243%_ - (reverse _%expr165166165214%_)) - (_%hd165169165245%_ - (reverse _%hd165167165216%_))) + _%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? _%tl165158165201%_)) - (let ((_%e165170165248%_ + (gx#stx-pair? _%tl166143166186%_)) + (let ((_%e166155166233%_ (let () (declare (not safe)) - (gx#stx-e _%tl165158165201%_)))) - (let ((_%hd165171165251%_ + (gx#stx-e _%tl166143166186%_)))) + (let ((_%hd166156166236%_ (let () (declare (not safe)) - (##car _%e165170165248%_))) - (_%tl165172165253%_ + (##car _%e166155166233%_))) + (_%tl166157166238%_ (let () (declare (not safe)) - (##cdr _%e165170165248%_)))) + (##cdr _%e166155166233%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165172165253%_)) - ((lambda (_%L165256%_ - _%L165257%_ - _%L165258%_) + (gx#stx-null? _%tl166157166238%_)) + ((lambda (_%L166241%_ + _%L166242%_ + _%L166243%_) (for-each - _%collect-e165146%_ - (let ((__tmp171259 - (lambda (_%g165278165281%_ - _%g165279165283%_) - (cons _%g165278165281%_ - _%g165279165283%_)))) + _%collect-e166131%_ + (let ((__tmp172244 + (lambda (_%g166263166266%_ + _%g166264166268%_) + (cons _%g166263166266%_ + _%g166264166268%_)))) (declare (not safe)) (__foldr1 - __tmp171259 + __tmp172244 '() - _%L165258%_)) - (let ((__tmp171260 - (lambda (_%g165285165288%_ - _%g165286165290%_) - (cons _%g165285165288%_ - _%g165286165290%_)))) + _%L166243%_)) + (let ((__tmp172245 + (lambda (_%g166270166273%_ + _%g166271166275%_) + (cons _%g166270166273%_ + _%g166271166275%_)))) (declare (not safe)) (__foldr1 - __tmp171260 + __tmp172245 '() - _%L165257%_))) + _%L166242%_))) (for-each - (lambda (_%g165292165294%_) + (lambda (_%g166277166279%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165143%_ - _%g165292165294%_))) - (let ((__tmp171261 - (lambda (_%g165296165299%_ - _%g165297165301%_) - (cons _%g165296165299%_ - _%g165297165301%_)))) + _%self166128%_ + _%g166277166279%_))) + (let ((__tmp172246 + (lambda (_%g166281166284%_ + _%g166282166286%_) + (cons _%g166281166284%_ + _%g166282166286%_)))) (declare (not safe)) (__foldr1 - __tmp171261 + __tmp172246 '() - _%L165257%_))) - (let ((__tmp171265 + _%L166242%_))) + (let ((__tmp172250 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165143%_ - _%L165256%_)))) - (__tmp171262 - (let ((__tmp171263 - (let ((__tmp171264 - (lambda (_%g165304165307%_ + _%self166128%_ + _%L166241%_)))) + (__tmp172247 + (let ((__tmp172248 + (let ((__tmp172249 + (lambda (_%g166289166292%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165305165309%_) - (cons _%g165304165307%_ _%g165305165309%_)))) + _%g166290166294%_) + (cons _%g166289166292%_ _%g166290166294%_)))) (declare (not safe)) - (__foldr1 __tmp171264 '() _%L165258%_)))) + (__foldr1 __tmp172249 '() _%L166243%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171263)))) + __tmp172248)))) (declare (not safe)) (__call-with-parameters - __tmp171265 + __tmp172250 gxc#current-compile-local-env - __tmp171262))) - _%hd165171165251%_ - _%expr165168165243%_ - _%hd165169165245%_) - (_%g165148165183%_ - _%g165149165186%_)))) - (_%g165148165183%_ _%g165149165186%_))))))) + __tmp172247))) + _%hd166156166236%_ + _%expr166153166228%_ + _%hd166154166230%_) + (_%g166133166168%_ + _%g166134166171%_)))) + (_%g166133166168%_ _%g166134166171%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165162165209%_ - _%target165159165204%_ + (_%loop166147166194%_ + _%target166144166189%_ '() '())) - (_%g165148165183%_ - _%g165149165186%_))))) - (_%g165148165183%_ - _%g165149165186%_)))) - (_%g165148165183%_ _%g165149165186%_)))) - (_%g165148165183%_ _%g165149165186%_))))) - (_%g165147165312%_ _%stx165144%_))))) + (_%g166133166168%_ + _%g166134166171%_))))) + (_%g166133166168%_ + _%g166134166171%_)))) + (_%g166133166168%_ _%g166134166171%_)))) + (_%g166133166168%_ _%g166134166171%_))))) + (_%g166132166297%_ _%stx166129%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self164915%_ _%stx164916%_) - (letrec ((_%collect-e164918%_ - (lambda (_%hd165087%_ _%expr165088%_) - (let* ((_%__stx168936168937%_ _%hd165087%_) - (_%g165091165101%_ + (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" - _%__stx168936168937%_))))) - (let ((_%__kont168938168939%_ - (lambda (_%L165121%_) - (let ((_%sym165132%_ + _%__stx169921169922%_))))) + (let ((_%__kont169923169924%_ + (lambda (_%L166106%_) + (let ((_%sym166117%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165121%_)))) - (if (let ((__tmp171266 + (gxc#identifier-symbol _%L166106%_)))) + (if (let ((__tmp172251 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171266 _%sym165132%_)) + (hash-get __tmp172251 _%sym166117%_)) '#!void - (let ((_%type165133165135%_ + (let ((_%type166118166120%_ (gxc#apply-basic-expression-type - _%expr165088%_))) - (if _%type165133165135%_ - (let ((_%type165138%_ - _%type165133165135%_)) + _%expr166073%_))) + (if _%type166118166120%_ + (let ((_%type166123%_ + _%type166118166120%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165138%_ + _%type166123%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165132%_ - _%type165138%_ + _%sym166117%_ + _%type166123%_ '#t)))) '#f)))))) - (_%__kont168940168941%_ (lambda () '#!void))) - (let ((_%__match168949168950%_ - (lambda (_%e165094165113%_ - _%hd165095165116%_ - _%tl165096165118%_) - (let ((_%L165121%_ _%hd165095165116%_)) + (_%__kont169925169926%_ (lambda () '#!void))) + (let ((_%__match169934169935%_ + (lambda (_%e166079166098%_ + _%hd166080166101%_ + _%tl166081166103%_) + (let ((_%L166106%_ _%hd166080166101%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165121%_)) - (_%__kont168938168939%_ _%L165121%_) - (_%__kont168940168941%_)))))) + (gx#identifier? _%L166106%_)) + (_%__kont169923169924%_ _%L166106%_) + (_%__kont169925169926%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168936168937%_)) - (let ((_%e165094165113%_ + (gx#stx-pair? _%__stx169921169922%_)) + (let ((_%e166079166098%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168936168937%_)))) - (let ((_%tl165096165118%_ + (gx#stx-e _%__stx169921169922%_)))) + (let ((_%tl166081166103%_ (let () (declare (not safe)) - (##cdr _%e165094165113%_))) - (_%hd165095165116%_ + (##cdr _%e166079166098%_))) + (_%hd166080166101%_ (let () (declare (not safe)) - (##car _%e165094165113%_)))) + (##car _%e166079166098%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165096165118%_)) - (_%__match168949168950%_ - _%e165094165113%_ - _%hd165095165116%_ - _%tl165096165118%_) - (_%__kont168940168941%_)))) - (_%__kont168940168941%_)))))))) - (let* ((_%g164920164955%_ - (lambda (_%g164921164952%_) + (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" - _%g164921164952%_)))) - (_%g164919165084%_ - (lambda (_%g164921164958%_) + _%g165906165937%_)))) + (_%g165904166069%_ + (lambda (_%g165906165943%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164921164958%_)) - (let ((_%e164925164960%_ + (gx#stx-pair? _%g165906165943%_)) + (let ((_%e165910165945%_ (let () (declare (not safe)) - (gx#stx-e _%g164921164958%_)))) - (let ((_%hd164926164963%_ + (gx#stx-e _%g165906165943%_)))) + (let ((_%hd165911165948%_ (let () (declare (not safe)) - (##car _%e164925164960%_))) - (_%tl164927164965%_ + (##car _%e165910165945%_))) + (_%tl165912165950%_ (let () (declare (not safe)) - (##cdr _%e164925164960%_)))) + (##cdr _%e165910165945%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164927164965%_)) - (let ((_%e164928164968%_ + (gx#stx-pair? _%tl165912165950%_)) + (let ((_%e165913165953%_ (let () (declare (not safe)) - (gx#stx-e _%tl164927164965%_)))) - (let ((_%hd164929164971%_ + (gx#stx-e _%tl165912165950%_)))) + (let ((_%hd165914165956%_ (let () (declare (not safe)) - (##car _%e164928164968%_))) - (_%tl164930164973%_ + (##car _%e165913165953%_))) + (_%tl165915165958%_ (let () (declare (not safe)) - (##cdr _%e164928164968%_)))) + (##cdr _%e165913165953%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164929164971%_)) - (let ((_g171267_ + _%hd165914165956%_)) + (let ((_g172252_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164929164971%_ + _%hd165914165956%_ '0)))) (begin - (let ((_g171268_ + (let ((_g172253_ (let () (declare (not safe)) - (if (##values? _g171267_) + (if (##values? _g172252_) (##values-length - _g171267_) + _g172252_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171268_ 2))) + (##fx= _g172253_ 2))) (error "Context expects 2 values" - _g171268_))) - (let ((_%target164931164976%_ + _g172253_))) + (let ((_%target165916165961%_ (let () (declare (not safe)) (##values-ref - _g171267_ + _g172252_ 0))) - (_%tl164933164978%_ + (_%tl165918165963%_ (let () (declare (not safe)) (##values-ref - _g171267_ + _g172252_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164933164978%_)) - (letrec ((_%loop164934164981%_ - (lambda (_%hd164932164984%_ + _%tl165918165963%_)) + (letrec ((_%loop165919165966%_ + (lambda (_%hd165917165969%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164938164986%_ - _%hd164939164988%_) + _%expr165923165971%_ + _%hd165924165973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164932164984%_)) - (let ((_%e164935164991%_ + (gx#stx-pair? _%hd165917165969%_)) + (let ((_%e165920165976%_ (let () (declare (not safe)) - (gx#stx-e _%hd164932164984%_)))) - (let ((_%lp-hd164936164994%_ + (gx#stx-e _%hd165917165969%_)))) + (let ((_%lp-hd165921165979%_ (let () (declare (not safe)) - (##car _%e164935164991%_))) - (_%lp-tl164937164996%_ + (##car _%e165920165976%_))) + (_%lp-tl165922165981%_ (let () (declare (not safe)) - (##cdr _%e164935164991%_)))) + (##cdr _%e165920165976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164936164994%_)) - (let ((_%e164945164999%_ + (gx#stx-pair? _%lp-hd165921165979%_)) + (let ((_%e165930165984%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164936164994%_)))) - (let ((_%hd164946165002%_ + (gx#stx-e _%lp-hd165921165979%_)))) + (let ((_%hd165931165987%_ (let () (declare (not safe)) - (##car _%e164945164999%_))) - (_%tl164947165004%_ + (##car _%e165930165984%_))) + (_%tl165932165989%_ (let () (declare (not safe)) - (##cdr _%e164945164999%_)))) + (##cdr _%e165930165984%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164947165004%_)) - (let ((_%e164948165007%_ + (gx#stx-pair? _%tl165932165989%_)) + (let ((_%e165933165992%_ (let () (declare (not safe)) (gx#stx-e - _%tl164947165004%_)))) - (let ((_%hd164949165010%_ + _%tl165932165989%_)))) + (let ((_%hd165934165995%_ (let () (declare (not safe)) - (##car _%e164948165007%_))) - (_%tl164950165012%_ + (##car _%e165933165992%_))) + (_%tl165935165997%_ (let () (declare (not safe)) - (##cdr _%e164948165007%_)))) + (##cdr _%e165933165992%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164950165012%_)) - (_%loop164934164981%_ - _%lp-tl164937164996%_ - (cons _%hd164949165010%_ - _%expr164938164986%_) - (cons _%hd164946165002%_ - _%hd164939164988%_)) - (_%g164920164955%_ - _%g164921164958%_)))) - (_%g164920164955%_ - _%g164921164958%_)))) - (_%g164920164955%_ _%g164921164958%_)))) - (let ((_%expr164940165015%_ - (reverse _%expr164938164986%_)) - (_%hd164941165017%_ - (reverse _%hd164939164988%_))) + _%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? _%tl164930164973%_)) - (let ((_%e164942165020%_ + (gx#stx-pair? _%tl165915165958%_)) + (let ((_%e165927166005%_ (let () (declare (not safe)) - (gx#stx-e _%tl164930164973%_)))) - (let ((_%hd164943165023%_ + (gx#stx-e _%tl165915165958%_)))) + (let ((_%hd165928166008%_ (let () (declare (not safe)) - (##car _%e164942165020%_))) - (_%tl164944165025%_ + (##car _%e165927166005%_))) + (_%tl165929166010%_ (let () (declare (not safe)) - (##cdr _%e164942165020%_)))) + (##cdr _%e165927166005%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164944165025%_)) - ((lambda (_%L165028%_ - _%L165029%_ - _%L165030%_) - (let ((__tmp171272 + (gx#stx-null? _%tl165929166010%_)) + ((lambda (_%L166013%_ + _%L166014%_ + _%L166015%_) + (let ((__tmp172257 (lambda () (for-each - _%collect-e164918%_ - (let ((__tmp171273 - (lambda (_%g165051165054%_ + _%collect-e165903%_ + (let ((__tmp172258 + (lambda (_%g166036166039%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165052165056%_) - (cons _%g165051165054%_ _%g165052165056%_)))) + _%g166037166041%_) + (cons _%g166036166039%_ _%g166037166041%_)))) (declare (not safe)) - (__foldr1 __tmp171273 '() _%L165030%_)) + (__foldr1 __tmp172258 '() _%L166015%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171274 - (lambda (_%g165058165061%_ + (let ((__tmp172259 + (lambda (_%g166043166046%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165059165063%_) - (cons _%g165058165061%_ _%g165059165063%_)))) + _%g166044166048%_) + (cons _%g166043166046%_ _%g166044166048%_)))) (declare (not safe)) - (__foldr1 __tmp171274 '() _%L165029%_))) + (__foldr1 __tmp172259 '() _%L166014%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g165065165067%_) + (lambda (_%g166050166052%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164915%_ - _%g165065165067%_))) - (let ((__tmp171275 - (lambda (_%g165069165072%_ + _%self165900%_ + _%g166050166052%_))) + (let ((__tmp172260 + (lambda (_%g166054166057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165070165074%_) - (cons _%g165069165072%_ _%g165070165074%_)))) + _%g166055166059%_) + (cons _%g166054166057%_ _%g166055166059%_)))) (declare (not safe)) - (__foldr1 __tmp171275 '() _%L165029%_))) + (__foldr1 __tmp172260 '() _%L166014%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164915%_ - _%L165028%_)))) - (__tmp171269 - (let ((__tmp171270 - (let ((__tmp171271 - (lambda (_%g165076165079%_ + _%self165900%_ + _%L166013%_)))) + (__tmp172254 + (let ((__tmp172255 + (let ((__tmp172256 + (lambda (_%g166061166064%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165077165081%_) - (cons _%g165076165079%_ _%g165077165081%_)))) + _%g166062166066%_) + (cons _%g166061166064%_ _%g166062166066%_)))) (declare (not safe)) - (__foldr1 __tmp171271 '() _%L165030%_)))) + (__foldr1 __tmp172256 '() _%L166015%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171270)))) + __tmp172255)))) (declare (not safe)) (__call-with-parameters - __tmp171272 + __tmp172257 gxc#current-compile-local-env - __tmp171269))) - _%hd164943165023%_ - _%expr164940165015%_ - _%hd164941165017%_) - (_%g164920164955%_ - _%g164921164958%_)))) - (_%g164920164955%_ _%g164921164958%_))))))) + __tmp172254))) + _%hd165928166008%_ + _%expr165925166000%_ + _%hd165926166002%_) + (_%g165905165940%_ + _%g165906165943%_)))) + (_%g165905165940%_ _%g165906165943%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164934164981%_ - _%target164931164976%_ + (_%loop165919165966%_ + _%target165916165961%_ '() '())) - (_%g164920164955%_ - _%g164921164958%_))))) - (_%g164920164955%_ - _%g164921164958%_)))) - (_%g164920164955%_ _%g164921164958%_)))) - (_%g164920164955%_ _%g164921164958%_))))) - (_%g164919165084%_ _%stx164916%_))))) + (_%g165905165940%_ + _%g165906165943%_))))) + (_%g165905165940%_ + _%g165906165943%_)))) + (_%g165905165940%_ _%g165906165943%_)))) + (_%g165905165940%_ _%g165906165943%_))))) + (_%g165904166069%_ _%stx165901%_))))) (define gxc#refine-type-lambda% - (lambda (_%self164859%_ _%stx164860%_) - (let* ((_%g164862164876%_ - (lambda (_%g164863164873%_) + (lambda (_%self165844%_ _%stx165845%_) + (let* ((_%g165847165861%_ + (lambda (_%g165848165858%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164863164873%_)))) - (_%g164861164912%_ - (lambda (_%g164863164879%_) + _%g165848165858%_)))) + (_%g165846165897%_ + (lambda (_%g165848165864%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164863164879%_)) - (let ((_%e164866164881%_ + (gx#stx-pair? _%g165848165864%_)) + (let ((_%e165851165866%_ (let () (declare (not safe)) - (gx#stx-e _%g164863164879%_)))) - (let ((_%hd164867164884%_ + (gx#stx-e _%g165848165864%_)))) + (let ((_%hd165852165869%_ (let () (declare (not safe)) - (##car _%e164866164881%_))) - (_%tl164868164886%_ + (##car _%e165851165866%_))) + (_%tl165853165871%_ (let () (declare (not safe)) - (##cdr _%e164866164881%_)))) + (##cdr _%e165851165866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164868164886%_)) - (let ((_%e164869164889%_ + (gx#stx-pair? _%tl165853165871%_)) + (let ((_%e165854165874%_ (let () (declare (not safe)) - (gx#stx-e _%tl164868164886%_)))) - (let ((_%hd164870164892%_ + (gx#stx-e _%tl165853165871%_)))) + (let ((_%hd165855165877%_ (let () (declare (not safe)) - (##car _%e164869164889%_))) - (_%tl164871164894%_ + (##car _%e165854165874%_))) + (_%tl165856165879%_ (let () (declare (not safe)) - (##cdr _%e164869164889%_)))) - ((lambda (_%L164897%_ _%L164898%_) - (let ((__tmp171277 + (##cdr _%e165854165874%_)))) + ((lambda (_%L165882%_ _%L165883%_) + (let ((__tmp172262 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self164859%_ - _%stx164860%_)))) - (__tmp171276 + _%self165844%_ + _%stx165845%_)))) + (__tmp172261 (let () (declare (not safe)) (gxc#xform-let-locals - _%L164898%_)))) + _%L165883%_)))) (declare (not safe)) (__call-with-parameters - __tmp171277 + __tmp172262 gxc#current-compile-local-env - __tmp171276))) - _%tl164871164894%_ - _%hd164870164892%_))) - (_%g164862164876%_ _%g164863164879%_)))) - (_%g164862164876%_ _%g164863164879%_))))) - (_%g164861164912%_ _%stx164860%_)))) + __tmp172261))) + _%tl165856165879%_ + _%hd165855165877%_))) + (_%g165847165861%_ _%g165848165864%_)))) + (_%g165847165861%_ _%g165848165864%_))))) + (_%g165846165897%_ _%stx165845%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self164686%_ _%stx164687%_) - (let* ((_%g164689164717%_ - (lambda (_%g164690164714%_) + (lambda (_%self165671%_ _%stx165672%_) + (let* ((_%g165674165702%_ + (lambda (_%g165675165699%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164690164714%_)))) - (_%g164688164856%_ - (lambda (_%g164690164720%_) + _%g165675165699%_)))) + (_%g165673165841%_ + (lambda (_%g165675165705%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164690164720%_)) - (let ((_%e164693164722%_ + (gx#stx-pair? _%g165675165705%_)) + (let ((_%e165678165707%_ (let () (declare (not safe)) - (gx#stx-e _%g164690164720%_)))) - (let ((_%hd164694164725%_ + (gx#stx-e _%g165675165705%_)))) + (let ((_%hd165679165710%_ (let () (declare (not safe)) - (##car _%e164693164722%_))) - (_%tl164695164727%_ + (##car _%e165678165707%_))) + (_%tl165680165712%_ (let () (declare (not safe)) - (##cdr _%e164693164722%_)))) + (##cdr _%e165678165707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164695164727%_)) - (let ((_g171278_ + (gx#stx-pair/null? _%tl165680165712%_)) + (let ((_g172263_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164695164727%_ + _%tl165680165712%_ '0)))) (begin - (let ((_g171279_ + (let ((_g172264_ (let () (declare (not safe)) - (if (##values? _g171278_) - (##values-length _g171278_) + (if (##values? _g172263_) + (##values-length _g172263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171279_ 2))) + (##fx= _g172264_ 2))) (error "Context expects 2 values" - _g171279_))) - (let ((_%target164696164730%_ + _g172264_))) + (let ((_%target165681165715%_ (let () (declare (not safe)) - (##values-ref _g171278_ 0))) - (_%tl164698164732%_ + (##values-ref _g172263_ 0))) + (_%tl165683165717%_ (let () (declare (not safe)) - (##values-ref _g171278_ 1)))) + (##values-ref _g172263_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164698164732%_)) - (letrec ((_%loop164699164735%_ - (lambda (_%hd164697164738%_ - _%body164703164740%_ - _%hd164704164742%_) + (gx#stx-null? _%tl165683165717%_)) + (letrec ((_%loop165684165720%_ + (lambda (_%hd165682165723%_ + _%body165688165725%_ + _%hd165689165727%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164697164738%_)) - (let ((_%e164700164745%_ + _%hd165682165723%_)) + (let ((_%e165685165730%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd164697164738%_)))) - (let ((_%lp-hd164701164748%_ + (gx#stx-e _%hd165682165723%_)))) + (let ((_%lp-hd165686165733%_ (let () (declare (not safe)) - (##car _%e164700164745%_))) - (_%lp-tl164702164750%_ + (##car _%e165685165730%_))) + (_%lp-tl165687165735%_ (let () (declare (not safe)) - (##cdr _%e164700164745%_)))) + (##cdr _%e165685165730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164701164748%_)) - (let ((_%e164707164753%_ + (gx#stx-pair? _%lp-hd165686165733%_)) + (let ((_%e165692165738%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164701164748%_)))) - (let ((_%hd164708164756%_ + (gx#stx-e _%lp-hd165686165733%_)))) + (let ((_%hd165693165741%_ (let () (declare (not safe)) - (##car _%e164707164753%_))) - (_%tl164709164758%_ + (##car _%e165692165738%_))) + (_%tl165694165743%_ (let () (declare (not safe)) - (##cdr _%e164707164753%_)))) + (##cdr _%e165692165738%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164709164758%_)) - (let ((_%e164710164761%_ + (gx#stx-pair? _%tl165694165743%_)) + (let ((_%e165695165746%_ (let () (declare (not safe)) - (gx#stx-e _%tl164709164758%_)))) - (let ((_%hd164711164764%_ + (gx#stx-e _%tl165694165743%_)))) + (let ((_%hd165696165749%_ (let () (declare (not safe)) - (##car _%e164710164761%_))) - (_%tl164712164766%_ + (##car _%e165695165746%_))) + (_%tl165697165751%_ (let () (declare (not safe)) - (##cdr _%e164710164761%_)))) + (##cdr _%e165695165746%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164712164766%_)) - (_%loop164699164735%_ - _%lp-tl164702164750%_ - (cons _%hd164711164764%_ - _%body164703164740%_) - (cons _%hd164708164756%_ - _%hd164704164742%_)) - (_%g164689164717%_ - _%g164690164720%_)))) - (_%g164689164717%_ _%g164690164720%_)))) - (_%g164689164717%_ _%g164690164720%_)))) - (let ((_%body164705164769%_ (reverse _%body164703164740%_)) - (_%hd164706164771%_ (reverse _%hd164704164742%_))) - ((lambda (_%L164774%_ _%L164775%_) + (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 (_%clause164790%_) - (let* ((_%g164792164806%_ - (lambda (_%g164793164803%_) + (lambda (_%clause165775%_) + (let* ((_%g165777165791%_ + (lambda (_%g165778165788%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164793164803%_)))) - (_%g164791164843%_ - (lambda (_%g164793164809%_) + _%g165778165788%_)))) + (_%g165776165828%_ + (lambda (_%g165778165794%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164793164809%_)) - (let ((_%e164796164811%_ + (gx#stx-pair? _%g165778165794%_)) + (let ((_%e165781165796%_ (let () (declare (not safe)) - (gx#stx-e _%g164793164809%_)))) - (let ((_%hd164797164814%_ + (gx#stx-e _%g165778165794%_)))) + (let ((_%hd165782165799%_ (let () (declare (not safe)) - (##car _%e164796164811%_))) - (_%tl164798164816%_ + (##car _%e165781165796%_))) + (_%tl165783165801%_ (let () (declare (not safe)) - (##cdr _%e164796164811%_)))) + (##cdr _%e165781165796%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164798164816%_)) - (let ((_%e164799164819%_ + _%tl165783165801%_)) + (let ((_%e165784165804%_ (let () (declare (not safe)) (gx#stx-e - _%tl164798164816%_)))) - (let ((_%hd164800164822%_ + _%tl165783165801%_)))) + (let ((_%hd165785165807%_ (let () (declare (not safe)) - (##car _%e164799164819%_))) - (_%tl164801164824%_ + (##car _%e165784165804%_))) + (_%tl165786165809%_ (let () (declare (not safe)) - (##cdr _%e164799164819%_)))) + (##cdr _%e165784165804%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164801164824%_)) - ((lambda (_%L164827%_ - _%L164828%_) - (let ((__tmp171281 + _%tl165786165809%_)) + ((lambda (_%L165812%_ + _%L165813%_) + (let ((__tmp172266 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self164686%_ - _%stx164687%_)))) - (__tmp171280 + _%self165671%_ + _%stx165672%_)))) + (__tmp172265 (let () (declare (not safe)) - (gxc#xform-let-locals _%L164828%_)))) + (gxc#xform-let-locals _%L165813%_)))) (declare (not safe)) (__call-with-parameters - __tmp171281 + __tmp172266 gxc#current-compile-local-env - __tmp171280))) - _%hd164800164822%_ - _%hd164797164814%_) - (_%g164792164806%_ _%g164793164809%_)))) + __tmp172265))) + _%hd165785165807%_ + _%hd165782165799%_) + (_%g165777165791%_ _%g165778165794%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164792164806%_ - _%g164793164809%_)))) - (_%g164792164806%_ _%g164793164809%_))))) - (_%g164791164843%_ _%clause164790%_))) + (_%g165777165791%_ + _%g165778165794%_)))) + (_%g165777165791%_ _%g165778165794%_))))) + (_%g165776165828%_ _%clause165775%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L164774%_ - _%L164775%_)) - (let ((__tmp171282 - (lambda (_%g164845164849%_ - _%g164846164851%_ - _%g164847164853%_) - (cons (cons _%g164846164851%_ - (cons _%g164845164849%_ '())) - _%g164847164853%_)))) + _%L165759%_ + _%L165760%_)) + (let ((__tmp172267 + (lambda (_%g165830165834%_ + _%g165831165836%_ + _%g165832165838%_) + (cons (cons _%g165831165836%_ + (cons _%g165830165834%_ '())) + _%g165832165838%_)))) (declare (not safe)) (__foldr2 - __tmp171282 + __tmp172267 '() - _%L164774%_ - _%L164775%_))))) - _%body164705164769%_ - _%hd164706164771%_)))))) + _%L165759%_ + _%L165760%_))))) + _%body165690165754%_ + _%hd165691165756%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164699164735%_ - _%target164696164730%_ + (_%loop165684165720%_ + _%target165681165715%_ '() '())) - (_%g164689164717%_ - _%g164690164720%_))))) - (_%g164689164717%_ _%g164690164720%_)))) - (_%g164689164717%_ _%g164690164720%_))))) - (_%g164688164856%_ _%stx164687%_)))) + (_%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 (_%self164564%_ _%stx164565%_) - (let* ((_%g164567164584%_ - (lambda (_%g164568164581%_) + (lambda (_%self165549%_ _%stx165550%_) + (let* ((_%g165552165569%_ + (lambda (_%g165553165566%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164568164581%_)))) - (_%g164566164683%_ - (lambda (_%g164568164587%_) + _%g165553165566%_)))) + (_%g165551165668%_ + (lambda (_%g165553165572%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164568164587%_)) - (let ((_%e164571164589%_ + (gx#stx-pair? _%g165553165572%_)) + (let ((_%e165556165574%_ (let () (declare (not safe)) - (gx#stx-e _%g164568164587%_)))) - (let ((_%hd164572164592%_ + (gx#stx-e _%g165553165572%_)))) + (let ((_%hd165557165577%_ (let () (declare (not safe)) - (##car _%e164571164589%_))) - (_%tl164573164594%_ + (##car _%e165556165574%_))) + (_%tl165558165579%_ (let () (declare (not safe)) - (##cdr _%e164571164589%_)))) + (##cdr _%e165556165574%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164573164594%_)) - (let ((_%e164574164597%_ + (gx#stx-pair? _%tl165558165579%_)) + (let ((_%e165559165582%_ (let () (declare (not safe)) - (gx#stx-e _%tl164573164594%_)))) - (let ((_%hd164575164600%_ + (gx#stx-e _%tl165558165579%_)))) + (let ((_%hd165560165585%_ (let () (declare (not safe)) - (##car _%e164574164597%_))) - (_%tl164576164602%_ + (##car _%e165559165582%_))) + (_%tl165561165587%_ (let () (declare (not safe)) - (##cdr _%e164574164597%_)))) + (##cdr _%e165559165582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164576164602%_)) - (let ((_%e164577164605%_ + (gx#stx-pair? _%tl165561165587%_)) + (let ((_%e165562165590%_ (let () (declare (not safe)) - (gx#stx-e _%tl164576164602%_)))) - (let ((_%hd164578164608%_ + (gx#stx-e _%tl165561165587%_)))) + (let ((_%hd165563165593%_ (let () (declare (not safe)) - (##car _%e164577164605%_))) - (_%tl164579164610%_ + (##car _%e165562165590%_))) + (_%tl165564165595%_ (let () (declare (not safe)) - (##cdr _%e164577164605%_)))) + (##cdr _%e165562165590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164579164610%_)) - ((lambda (_%L164613%_ - _%L164614%_) - (let* ((_%__stx168952168953%_ - _%L164614%_) - (_%g164630164641%_ + _%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" - _%__stx168952168953%_))))) - (let ((_%__kont168954168955%_ - (lambda (_%L164661%_ + _%__stx169937169938%_))))) + (let ((_%__kont169939169940%_ + (lambda (_%L165646%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L164662%_) - (let ((_%$e164674%_ - (let ((__tmp171283 + _%L165647%_) + (let ((_%$e165659%_ + (let ((__tmp172268 (let () (declare (not safe)) - (gx#stx-e _%L164662%_)))) + (gx#stx-e _%L165647%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp171283)))) - (if _%$e164674%_ - ((lambda (_%type-e164677%_) - (_%type-e164677%_ _%stx164565%_ _%L164614%_)) - _%$e164674%_) + __tmp172268)))) + (if _%$e165659%_ + ((lambda (_%type-e165662%_) + (_%type-e165662%_ _%stx165550%_ _%L165599%_)) + _%$e165659%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self164564%_ _%L164613%_)))))) - (_%__kont168956168957%_ + (gxc#compile-e__1 _%self165549%_ _%L165598%_)))))) + (_%__kont169941169942%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self164564%_ _%L164613%_))))) + (gxc#compile-e__1 _%self165549%_ _%L165598%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match168963168964%_ - (lambda (_%e164634164653%_ + (let ((_%__match169948169949%_ + (lambda (_%e165619165638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd164635164656%_ - _%tl164636164658%_) - (let ((_%L164661%_ _%tl164636164658%_) - (_%L164662%_ _%hd164635164656%_)) + _%hd165620165641%_ + _%tl165621165643%_) + (let ((_%L165646%_ _%tl165621165643%_) + (_%L165647%_ _%hd165620165641%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164662%_)) - (_%__kont168954168955%_ _%L164661%_ _%L164662%_) - (_%__kont168956168957%_)))))) + (gx#identifier? _%L165647%_)) + (_%__kont169939169940%_ _%L165646%_ _%L165647%_) + (_%__kont169941169942%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168952168953%_)) - (let ((_%e164634164653%_ + (gx#stx-pair? _%__stx169937169938%_)) + (let ((_%e165619165638%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168952168953%_)))) - (let ((_%tl164636164658%_ + (gx#stx-e _%__stx169937169938%_)))) + (let ((_%tl165621165643%_ (let () (declare (not safe)) - (##cdr _%e164634164653%_))) - (_%hd164635164656%_ + (##cdr _%e165619165638%_))) + (_%hd165620165641%_ (let () (declare (not safe)) - (##car _%e164634164653%_)))) - (_%__match168963168964%_ - _%e164634164653%_ - _%hd164635164656%_ - _%tl164636164658%_))) - (_%__kont168956168957%_)))))) + (##car _%e165619165638%_)))) + (_%__match169948169949%_ + _%e165619165638%_ + _%hd165620165641%_ + _%tl165621165643%_))) + (_%__kont169941169942%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd164578164608%_ - _%hd164575164600%_) - (_%g164567164584%_ - _%g164568164587%_)))) - (_%g164567164584%_ _%g164568164587%_)))) - (_%g164567164584%_ _%g164568164587%_)))) - (_%g164567164584%_ _%g164568164587%_))))) - (_%g164566164683%_ _%stx164565%_)))) + _%hd165563165593%_ + _%hd165560165585%_) + (_%g165552165569%_ + _%g165553165572%_)))) + (_%g165552165569%_ _%g165553165572%_)))) + (_%g165552165569%_ _%g165553165572%_)))) + (_%g165552165569%_ _%g165553165572%_))))) + (_%g165551165668%_ _%stx165550%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx164512%_ _%ann164513%_) - (let* ((_%g164515164528%_ - (lambda (_%g164516164525%_) + (lambda (_%stx165497%_ _%ann165498%_) + (let* ((_%g165500165513%_ + (lambda (_%g165501165510%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164516164525%_)))) - (_%g164514164561%_ - (lambda (_%g164516164531%_) + _%g165501165510%_)))) + (_%g165499165546%_ + (lambda (_%g165501165516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164516164531%_)) - (let ((_%e164518164533%_ + (gx#stx-pair? _%g165501165516%_)) + (let ((_%e165503165518%_ (let () (declare (not safe)) - (gx#stx-e _%g164516164531%_)))) - (let ((_%hd164519164536%_ + (gx#stx-e _%g165501165516%_)))) + (let ((_%hd165504165521%_ (let () (declare (not safe)) - (##car _%e164518164533%_))) - (_%tl164520164538%_ + (##car _%e165503165518%_))) + (_%tl165505165523%_ (let () (declare (not safe)) - (##cdr _%e164518164533%_)))) + (##cdr _%e165503165518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164520164538%_)) - (let ((_%e164521164541%_ + (gx#stx-pair? _%tl165505165523%_)) + (let ((_%e165506165526%_ (let () (declare (not safe)) - (gx#stx-e _%tl164520164538%_)))) - (let ((_%hd164522164544%_ + (gx#stx-e _%tl165505165523%_)))) + (let ((_%hd165507165529%_ (let () (declare (not safe)) - (##car _%e164521164541%_))) - (_%tl164523164546%_ + (##car _%e165506165526%_))) + (_%tl165508165531%_ (let () (declare (not safe)) - (##cdr _%e164521164541%_)))) + (##cdr _%e165506165526%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164523164546%_)) - ((lambda (_%L164549%_) - (let ((__tmp171284 + (gx#stx-null? _%tl165508165531%_)) + ((lambda (_%L165534%_) + (let ((__tmp172269 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164549%_)))) + _%L165534%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx164512%_ - __tmp171284))) - _%hd164522164544%_) - (_%g164515164528%_ _%g164516164531%_)))) - (_%g164515164528%_ _%g164516164531%_)))) - (_%g164515164528%_ _%g164516164531%_))))) - (_%g164514164561%_ _%ann164513%_)))) + _%stx165497%_ + __tmp172269))) + _%hd165507165529%_) + (_%g165500165513%_ _%g165501165516%_)))) + (_%g165500165513%_ _%g165501165516%_)))) + (_%g165500165513%_ _%g165501165516%_))))) + (_%g165499165546%_ _%ann165498%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx164356%_ _%ann164357%_) - (let* ((_%g164359164396%_ - (lambda (_%g164360164393%_) + (lambda (_%stx165341%_ _%ann165342%_) + (let* ((_%g165344165381%_ + (lambda (_%g165345165378%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164360164393%_)))) - (_%g164358164509%_ - (lambda (_%g164360164399%_) + _%g165345165378%_)))) + (_%g165343165494%_ + (lambda (_%g165345165384%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164360164399%_)) - (let ((_%e164368164401%_ + (gx#stx-pair? _%g165345165384%_)) + (let ((_%e165353165386%_ (let () (declare (not safe)) - (gx#stx-e _%g164360164399%_)))) - (let ((_%hd164369164404%_ + (gx#stx-e _%g165345165384%_)))) + (let ((_%hd165354165389%_ (let () (declare (not safe)) - (##car _%e164368164401%_))) - (_%tl164370164406%_ + (##car _%e165353165386%_))) + (_%tl165355165391%_ (let () (declare (not safe)) - (##cdr _%e164368164401%_)))) + (##cdr _%e165353165386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164370164406%_)) - (let ((_%e164371164409%_ + (gx#stx-pair? _%tl165355165391%_)) + (let ((_%e165356165394%_ (let () (declare (not safe)) - (gx#stx-e _%tl164370164406%_)))) - (let ((_%hd164372164412%_ + (gx#stx-e _%tl165355165391%_)))) + (let ((_%hd165357165397%_ (let () (declare (not safe)) - (##car _%e164371164409%_))) - (_%tl164373164414%_ + (##car _%e165356165394%_))) + (_%tl165358165399%_ (let () (declare (not safe)) - (##cdr _%e164371164409%_)))) + (##cdr _%e165356165394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164373164414%_)) - (let ((_%e164374164417%_ + (gx#stx-pair? _%tl165358165399%_)) + (let ((_%e165359165402%_ (let () (declare (not safe)) - (gx#stx-e _%tl164373164414%_)))) - (let ((_%hd164375164420%_ + (gx#stx-e _%tl165358165399%_)))) + (let ((_%hd165360165405%_ (let () (declare (not safe)) - (##car _%e164374164417%_))) - (_%tl164376164422%_ + (##car _%e165359165402%_))) + (_%tl165361165407%_ (let () (declare (not safe)) - (##cdr _%e164374164417%_)))) + (##cdr _%e165359165402%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164376164422%_)) - (let ((_%e164377164425%_ + _%tl165361165407%_)) + (let ((_%e165362165410%_ (let () (declare (not safe)) (gx#stx-e - _%tl164376164422%_)))) - (let ((_%hd164378164428%_ + _%tl165361165407%_)))) + (let ((_%hd165363165413%_ (let () (declare (not safe)) - (##car _%e164377164425%_))) - (_%tl164379164430%_ + (##car _%e165362165410%_))) + (_%tl165364165415%_ (let () (declare (not safe)) - (##cdr _%e164377164425%_)))) + (##cdr _%e165362165410%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164379164430%_)) - (let ((_%e164380164433%_ + _%tl165364165415%_)) + (let ((_%e165365165418%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164379164430%_)))) - (let ((_%hd164381164436%_ - (let () (declare (not safe)) (##car _%e164380164433%_))) - (_%tl164382164438%_ + (gx#stx-e _%tl165364165415%_)))) + (let ((_%hd165366165421%_ + (let () (declare (not safe)) (##car _%e165365165418%_))) + (_%tl165367165423%_ (let () (declare (not safe)) - (##cdr _%e164380164433%_)))) + (##cdr _%e165365165418%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164382164438%_)) - (let ((_%e164383164441%_ + (gx#stx-pair? _%tl165367165423%_)) + (let ((_%e165368165426%_ (let () (declare (not safe)) - (gx#stx-e _%tl164382164438%_)))) - (let ((_%hd164384164444%_ + (gx#stx-e _%tl165367165423%_)))) + (let ((_%hd165369165429%_ (let () (declare (not safe)) - (##car _%e164383164441%_))) - (_%tl164385164446%_ + (##car _%e165368165426%_))) + (_%tl165370165431%_ (let () (declare (not safe)) - (##cdr _%e164383164441%_)))) + (##cdr _%e165368165426%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164385164446%_)) - (let ((_%e164386164449%_ + (gx#stx-pair? _%tl165370165431%_)) + (let ((_%e165371165434%_ (let () (declare (not safe)) - (gx#stx-e _%tl164385164446%_)))) - (let ((_%hd164387164452%_ + (gx#stx-e _%tl165370165431%_)))) + (let ((_%hd165372165437%_ (let () (declare (not safe)) - (##car _%e164386164449%_))) - (_%tl164388164454%_ + (##car _%e165371165434%_))) + (_%tl165373165439%_ (let () (declare (not safe)) - (##cdr _%e164386164449%_)))) + (##cdr _%e165371165434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164388164454%_)) - (let ((_%e164389164457%_ + (gx#stx-pair? _%tl165373165439%_)) + (let ((_%e165374165442%_ (let () (declare (not safe)) - (gx#stx-e _%tl164388164454%_)))) - (let ((_%hd164390164460%_ + (gx#stx-e _%tl165373165439%_)))) + (let ((_%hd165375165445%_ (let () (declare (not safe)) - (##car _%e164389164457%_))) - (_%tl164391164462%_ + (##car _%e165374165442%_))) + (_%tl165376165447%_ (let () (declare (not safe)) - (##cdr _%e164389164457%_)))) + (##cdr _%e165374165442%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164462%_)) - ((lambda (_%L164465%_ - _%L164466%_ - _%L164467%_ - _%L164468%_ - _%L164469%_ - _%L164470%_ - _%L164471%_) - (let ((_%type-id164501%_ + _%tl165376165447%_)) + ((lambda (_%L165450%_ + _%L165451%_ + _%L165452%_ + _%L165453%_ + _%L165454%_ + _%L165455%_ + _%L165456%_) + (let ((_%type-id165486%_ (let () (declare (not safe)) (gx#stx-e - _%L164471%_))) - (_%super164502%_ + _%L165456%_))) + (_%super165487%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164470%_))) - (_%slots164503%_ + _%L165455%_))) + (_%slots165488%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L164469%_))) - (_%ctor-method164504%_ + _%L165454%_))) + (_%ctor-method165489%_ (let () (declare (not safe)) (gx#stx-e - _%L164468%_))) - (_%struct?164505%_ + _%L165453%_))) + (_%struct?165490%_ (let () (declare (not safe)) (gx#stx-e - _%L164467%_))) - (_%final?164506%_ + _%L165452%_))) + (_%final?165491%_ (let () (declare (not safe)) (gx#stx-e - _%L164466%_))) - (_%metaclass164507%_ + _%L165451%_))) + (_%metaclass165492%_ (if (let () (declare (not safe)) (gx#stx-e - _%L164465%_)) + _%L165450%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L164465%_)) + _%L165450%_)) '#f))) - (let ((__obj171120 + (let ((__obj172105 (let () (declare (not safe)) @@ -8213,8 +8213,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp171285 - (let ((__obj171119 + (let ((__tmp172270 + (let ((__obj172104 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8234,115 +8234,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj171119 - _%type-id164501%_ - _%super164502%_ - _%slots164503%_ - _%ctor-method164504%_ - _%struct?164505%_ - _%final?164506%_ + __obj172104 + _%type-id165486%_ + _%super165487%_ + _%slots165488%_ + _%ctor-method165489%_ + _%struct?165490%_ + _%final?165491%_ '#f - _%metaclass164507%_)) - __obj171119))) + _%metaclass165492%_)) + __obj172104))) (declare (not safe)) - (gxc#!class-meta:::init! __obj171120 __tmp171285)) + (gxc#!class-meta:::init! __obj172105 __tmp172270)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj171120))) - _%hd164390164460%_ - _%hd164387164452%_ - _%hd164384164444%_ - _%hd164381164436%_ - _%hd164378164428%_ - _%hd164375164420%_ - _%hd164372164412%_) - (_%g164359164396%_ - _%g164360164399%_)))) - (_%g164359164396%_ _%g164360164399%_)))) - (_%g164359164396%_ _%g164360164399%_)))) - (_%g164359164396%_ _%g164360164399%_)))) - (_%g164359164396%_ _%g164360164399%_)))) + __obj172105))) + _%hd165375165445%_ + _%hd165372165437%_ + _%hd165369165429%_ + _%hd165366165421%_ + _%hd165363165413%_ + _%hd165360165405%_ + _%hd165357165397%_) + (_%g165344165381%_ + _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164359164396%_ - _%g164360164399%_)))) - (_%g164359164396%_ _%g164360164399%_)))) - (_%g164359164396%_ _%g164360164399%_)))) - (_%g164359164396%_ _%g164360164399%_))))) - (_%g164358164509%_ _%ann164357%_)))) + (_%g165344165381%_ + _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_))))) + (_%g165343165494%_ _%ann165342%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx164285%_ _%ann164286%_) - (let* ((_%g164288164305%_ - (lambda (_%g164289164302%_) + (lambda (_%stx165270%_ _%ann165271%_) + (let* ((_%g165273165290%_ + (lambda (_%g165274165287%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164289164302%_)))) - (_%g164287164353%_ - (lambda (_%g164289164308%_) + _%g165274165287%_)))) + (_%g165272165338%_ + (lambda (_%g165274165293%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164289164308%_)) - (let ((_%e164292164310%_ + (gx#stx-pair? _%g165274165293%_)) + (let ((_%e165277165295%_ (let () (declare (not safe)) - (gx#stx-e _%g164289164308%_)))) - (let ((_%hd164293164313%_ + (gx#stx-e _%g165274165293%_)))) + (let ((_%hd165278165298%_ (let () (declare (not safe)) - (##car _%e164292164310%_))) - (_%tl164294164315%_ + (##car _%e165277165295%_))) + (_%tl165279165300%_ (let () (declare (not safe)) - (##cdr _%e164292164310%_)))) + (##cdr _%e165277165295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164294164315%_)) - (let ((_%e164295164318%_ + (gx#stx-pair? _%tl165279165300%_)) + (let ((_%e165280165303%_ (let () (declare (not safe)) - (gx#stx-e _%tl164294164315%_)))) - (let ((_%hd164296164321%_ + (gx#stx-e _%tl165279165300%_)))) + (let ((_%hd165281165306%_ (let () (declare (not safe)) - (##car _%e164295164318%_))) - (_%tl164297164323%_ + (##car _%e165280165303%_))) + (_%tl165282165308%_ (let () (declare (not safe)) - (##cdr _%e164295164318%_)))) + (##cdr _%e165280165303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164297164323%_)) - (let ((_%e164298164326%_ + (gx#stx-pair? _%tl165282165308%_)) + (let ((_%e165283165311%_ (let () (declare (not safe)) - (gx#stx-e _%tl164297164323%_)))) - (let ((_%hd164299164329%_ + (gx#stx-e _%tl165282165308%_)))) + (let ((_%hd165284165314%_ (let () (declare (not safe)) - (##car _%e164298164326%_))) - (_%tl164300164331%_ + (##car _%e165283165311%_))) + (_%tl165285165316%_ (let () (declare (not safe)) - (##cdr _%e164298164326%_)))) + (##cdr _%e165283165311%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164300164331%_)) - ((lambda (_%L164334%_ - _%L164335%_) - (let ((_%type-id164350%_ + _%tl165285165316%_)) + ((lambda (_%L165319%_ + _%L165320%_) + (let ((_%type-id165335%_ (let () (declare (not safe)) (gx#stx-e - _%L164335%_))) - (_%super164351%_ + _%L165320%_))) + (_%super165336%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164334%_)))) - (let ((__obj171122 + _%L165319%_)))) + (let ((__obj172107 (let () (declare (not safe)) @@ -8350,8 +8350,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp171286 - (let ((__obj171121 + (let ((__tmp172271 + (let ((__obj172106 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8371,589 +8371,589 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj171121 - _%type-id164350%_ - _%super164351%_ + __obj172106 + _%type-id165335%_ + _%super165336%_ '() '#f '#f '#f '#t '#f)) - __obj171121))) + __obj172106))) (declare (not safe)) - (gxc#!class-meta:::init! __obj171122 __tmp171286)) + (gxc#!class-meta:::init! __obj172107 __tmp172271)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj171122))) - _%hd164299164329%_ - _%hd164296164321%_) - (_%g164288164305%_ - _%g164289164308%_)))) - (_%g164288164305%_ _%g164289164308%_)))) - (_%g164288164305%_ _%g164289164308%_)))) - (_%g164288164305%_ _%g164289164308%_))))) - (_%g164287164353%_ _%ann164286%_)))) + __obj172107))) + _%hd165284165314%_ + _%hd165281165306%_) + (_%g165273165290%_ + _%g165274165293%_)))) + (_%g165273165290%_ _%g165274165293%_)))) + (_%g165273165290%_ _%g165274165293%_)))) + (_%g165273165290%_ _%g165274165293%_))))) + (_%g165272165338%_ _%ann165271%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx164233%_ _%ann164234%_) - (let* ((_%g164236164249%_ - (lambda (_%g164237164246%_) + (lambda (_%stx165218%_ _%ann165219%_) + (let* ((_%g165221165234%_ + (lambda (_%g165222165231%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164237164246%_)))) - (_%g164235164282%_ - (lambda (_%g164237164252%_) + _%g165222165231%_)))) + (_%g165220165267%_ + (lambda (_%g165222165237%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164237164252%_)) - (let ((_%e164239164254%_ + (gx#stx-pair? _%g165222165237%_)) + (let ((_%e165224165239%_ (let () (declare (not safe)) - (gx#stx-e _%g164237164252%_)))) - (let ((_%hd164240164257%_ + (gx#stx-e _%g165222165237%_)))) + (let ((_%hd165225165242%_ (let () (declare (not safe)) - (##car _%e164239164254%_))) - (_%tl164241164259%_ + (##car _%e165224165239%_))) + (_%tl165226165244%_ (let () (declare (not safe)) - (##cdr _%e164239164254%_)))) + (##cdr _%e165224165239%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164241164259%_)) - (let ((_%e164242164262%_ + (gx#stx-pair? _%tl165226165244%_)) + (let ((_%e165227165247%_ (let () (declare (not safe)) - (gx#stx-e _%tl164241164259%_)))) - (let ((_%hd164243164265%_ + (gx#stx-e _%tl165226165244%_)))) + (let ((_%hd165228165250%_ (let () (declare (not safe)) - (##car _%e164242164262%_))) - (_%tl164244164267%_ + (##car _%e165227165247%_))) + (_%tl165229165252%_ (let () (declare (not safe)) - (##cdr _%e164242164262%_)))) + (##cdr _%e165227165247%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164244164267%_)) - ((lambda (_%L164270%_) - (let ((__obj171123 + (gx#stx-null? _%tl165229165252%_)) + ((lambda (_%L165255%_) + (let ((__obj172108 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp171287 + (let ((__tmp172272 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164270%_)))) + _%L165255%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj171123 - __tmp171287)) - __obj171123)) - _%hd164243164265%_) - (_%g164236164249%_ _%g164237164252%_)))) - (_%g164236164249%_ _%g164237164252%_)))) - (_%g164236164249%_ _%g164237164252%_))))) - (_%g164235164282%_ _%ann164234%_)))) + __obj172108 + __tmp172272)) + __obj172108)) + _%hd165228165250%_) + (_%g165221165234%_ _%g165222165237%_)))) + (_%g165221165234%_ _%g165222165237%_)))) + (_%g165221165234%_ _%g165222165237%_))))) + (_%g165220165267%_ _%ann165219%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx164181%_ _%ann164182%_) - (let* ((_%g164184164197%_ - (lambda (_%g164185164194%_) + (lambda (_%stx165166%_ _%ann165167%_) + (let* ((_%g165169165182%_ + (lambda (_%g165170165179%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164185164194%_)))) - (_%g164183164230%_ - (lambda (_%g164185164200%_) + _%g165170165179%_)))) + (_%g165168165215%_ + (lambda (_%g165170165185%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164185164200%_)) - (let ((_%e164187164202%_ + (gx#stx-pair? _%g165170165185%_)) + (let ((_%e165172165187%_ (let () (declare (not safe)) - (gx#stx-e _%g164185164200%_)))) - (let ((_%hd164188164205%_ + (gx#stx-e _%g165170165185%_)))) + (let ((_%hd165173165190%_ (let () (declare (not safe)) - (##car _%e164187164202%_))) - (_%tl164189164207%_ + (##car _%e165172165187%_))) + (_%tl165174165192%_ (let () (declare (not safe)) - (##cdr _%e164187164202%_)))) + (##cdr _%e165172165187%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164189164207%_)) - (let ((_%e164190164210%_ + (gx#stx-pair? _%tl165174165192%_)) + (let ((_%e165175165195%_ (let () (declare (not safe)) - (gx#stx-e _%tl164189164207%_)))) - (let ((_%hd164191164213%_ + (gx#stx-e _%tl165174165192%_)))) + (let ((_%hd165176165198%_ (let () (declare (not safe)) - (##car _%e164190164210%_))) - (_%tl164192164215%_ + (##car _%e165175165195%_))) + (_%tl165177165200%_ (let () (declare (not safe)) - (##cdr _%e164190164210%_)))) + (##cdr _%e165175165195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164192164215%_)) - ((lambda (_%L164218%_) - (let ((__obj171124 + (gx#stx-null? _%tl165177165200%_)) + ((lambda (_%L165203%_) + (let ((__obj172109 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp171288 + (let ((__tmp172273 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164218%_)))) + _%L165203%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj171124 - __tmp171288)) - __obj171124)) - _%hd164191164213%_) - (_%g164184164197%_ _%g164185164200%_)))) - (_%g164184164197%_ _%g164185164200%_)))) - (_%g164184164197%_ _%g164185164200%_))))) - (_%g164183164230%_ _%ann164182%_)))) + __obj172109 + __tmp172273)) + __obj172109)) + _%hd165176165198%_) + (_%g165169165182%_ _%g165170165185%_)))) + (_%g165169165182%_ _%g165170165185%_)))) + (_%g165169165182%_ _%g165170165185%_))))) + (_%g165168165215%_ _%ann165167%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx164097%_ _%ann164098%_) - (let* ((_%g164100164121%_ - (lambda (_%g164101164118%_) + (lambda (_%stx165082%_ _%ann165083%_) + (let* ((_%g165085165106%_ + (lambda (_%g165086165103%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164101164118%_)))) - (_%g164099164178%_ - (lambda (_%g164101164124%_) + _%g165086165103%_)))) + (_%g165084165163%_ + (lambda (_%g165086165109%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164101164124%_)) - (let ((_%e164105164126%_ + (gx#stx-pair? _%g165086165109%_)) + (let ((_%e165090165111%_ (let () (declare (not safe)) - (gx#stx-e _%g164101164124%_)))) - (let ((_%hd164106164129%_ + (gx#stx-e _%g165086165109%_)))) + (let ((_%hd165091165114%_ (let () (declare (not safe)) - (##car _%e164105164126%_))) - (_%tl164107164131%_ + (##car _%e165090165111%_))) + (_%tl165092165116%_ (let () (declare (not safe)) - (##cdr _%e164105164126%_)))) + (##cdr _%e165090165111%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164107164131%_)) - (let ((_%e164108164134%_ + (gx#stx-pair? _%tl165092165116%_)) + (let ((_%e165093165119%_ (let () (declare (not safe)) - (gx#stx-e _%tl164107164131%_)))) - (let ((_%hd164109164137%_ + (gx#stx-e _%tl165092165116%_)))) + (let ((_%hd165094165122%_ (let () (declare (not safe)) - (##car _%e164108164134%_))) - (_%tl164110164139%_ + (##car _%e165093165119%_))) + (_%tl165095165124%_ (let () (declare (not safe)) - (##cdr _%e164108164134%_)))) + (##cdr _%e165093165119%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164110164139%_)) - (let ((_%e164111164142%_ + (gx#stx-pair? _%tl165095165124%_)) + (let ((_%e165096165127%_ (let () (declare (not safe)) - (gx#stx-e _%tl164110164139%_)))) - (let ((_%hd164112164145%_ + (gx#stx-e _%tl165095165124%_)))) + (let ((_%hd165097165130%_ (let () (declare (not safe)) - (##car _%e164111164142%_))) - (_%tl164113164147%_ + (##car _%e165096165127%_))) + (_%tl165098165132%_ (let () (declare (not safe)) - (##cdr _%e164111164142%_)))) + (##cdr _%e165096165127%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164113164147%_)) - (let ((_%e164114164150%_ + _%tl165098165132%_)) + (let ((_%e165099165135%_ (let () (declare (not safe)) (gx#stx-e - _%tl164113164147%_)))) - (let ((_%hd164115164153%_ + _%tl165098165132%_)))) + (let ((_%hd165100165138%_ (let () (declare (not safe)) - (##car _%e164114164150%_))) - (_%tl164116164155%_ + (##car _%e165099165135%_))) + (_%tl165101165140%_ (let () (declare (not safe)) - (##cdr _%e164114164150%_)))) + (##cdr _%e165099165135%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164116164155%_)) - ((lambda (_%L164158%_ - _%L164159%_ - _%L164160%_) - (let ((__obj171125 + _%tl165101165140%_)) + ((lambda (_%L165143%_ + _%L165144%_ + _%L165145%_) + (let ((__obj172110 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp171291 + (let ((__tmp172276 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164160%_))) - (__tmp171290 - (let () (declare (not safe)) (gx#stx-e _%L164159%_))) - (__tmp171289 + (gxc#identifier-symbol _%L165145%_))) + (__tmp172275 + (let () (declare (not safe)) (gx#stx-e _%L165144%_))) + (__tmp172274 (let () (declare (not safe)) - (gx#stx-e _%L164158%_)))) + (gx#stx-e _%L165143%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj171125 - __tmp171291 - __tmp171290 - __tmp171289)) - __obj171125)) - _%hd164115164153%_ - _%hd164112164145%_ - _%hd164109164137%_) - (_%g164100164121%_ _%g164101164124%_)))) + __obj172110 + __tmp172276 + __tmp172275 + __tmp172274)) + __obj172110)) + _%hd165100165138%_ + _%hd165097165130%_ + _%hd165094165122%_) + (_%g165085165106%_ _%g165086165109%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164100164121%_ - _%g164101164124%_)))) - (_%g164100164121%_ _%g164101164124%_)))) - (_%g164100164121%_ _%g164101164124%_)))) - (_%g164100164121%_ _%g164101164124%_))))) - (_%g164099164178%_ _%ann164098%_)))) + (_%g165085165106%_ + _%g165086165109%_)))) + (_%g165085165106%_ _%g165086165109%_)))) + (_%g165085165106%_ _%g165086165109%_)))) + (_%g165085165106%_ _%g165086165109%_))))) + (_%g165084165163%_ _%ann165083%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx164013%_ _%ann164014%_) - (let* ((_%g164016164037%_ - (lambda (_%g164017164034%_) + (lambda (_%stx164998%_ _%ann164999%_) + (let* ((_%g165001165022%_ + (lambda (_%g165002165019%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164017164034%_)))) - (_%g164015164094%_ - (lambda (_%g164017164040%_) + _%g165002165019%_)))) + (_%g165000165079%_ + (lambda (_%g165002165025%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164017164040%_)) - (let ((_%e164021164042%_ + (gx#stx-pair? _%g165002165025%_)) + (let ((_%e165006165027%_ (let () (declare (not safe)) - (gx#stx-e _%g164017164040%_)))) - (let ((_%hd164022164045%_ + (gx#stx-e _%g165002165025%_)))) + (let ((_%hd165007165030%_ (let () (declare (not safe)) - (##car _%e164021164042%_))) - (_%tl164023164047%_ + (##car _%e165006165027%_))) + (_%tl165008165032%_ (let () (declare (not safe)) - (##cdr _%e164021164042%_)))) + (##cdr _%e165006165027%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164023164047%_)) - (let ((_%e164024164050%_ + (gx#stx-pair? _%tl165008165032%_)) + (let ((_%e165009165035%_ (let () (declare (not safe)) - (gx#stx-e _%tl164023164047%_)))) - (let ((_%hd164025164053%_ + (gx#stx-e _%tl165008165032%_)))) + (let ((_%hd165010165038%_ (let () (declare (not safe)) - (##car _%e164024164050%_))) - (_%tl164026164055%_ + (##car _%e165009165035%_))) + (_%tl165011165040%_ (let () (declare (not safe)) - (##cdr _%e164024164050%_)))) + (##cdr _%e165009165035%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164026164055%_)) - (let ((_%e164027164058%_ + (gx#stx-pair? _%tl165011165040%_)) + (let ((_%e165012165043%_ (let () (declare (not safe)) - (gx#stx-e _%tl164026164055%_)))) - (let ((_%hd164028164061%_ + (gx#stx-e _%tl165011165040%_)))) + (let ((_%hd165013165046%_ (let () (declare (not safe)) - (##car _%e164027164058%_))) - (_%tl164029164063%_ + (##car _%e165012165043%_))) + (_%tl165014165048%_ (let () (declare (not safe)) - (##cdr _%e164027164058%_)))) + (##cdr _%e165012165043%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164029164063%_)) - (let ((_%e164030164066%_ + _%tl165014165048%_)) + (let ((_%e165015165051%_ (let () (declare (not safe)) (gx#stx-e - _%tl164029164063%_)))) - (let ((_%hd164031164069%_ + _%tl165014165048%_)))) + (let ((_%hd165016165054%_ (let () (declare (not safe)) - (##car _%e164030164066%_))) - (_%tl164032164071%_ + (##car _%e165015165051%_))) + (_%tl165017165056%_ (let () (declare (not safe)) - (##cdr _%e164030164066%_)))) + (##cdr _%e165015165051%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164032164071%_)) - ((lambda (_%L164074%_ - _%L164075%_ - _%L164076%_) - (let ((__obj171126 + _%tl165017165056%_)) + ((lambda (_%L165059%_ + _%L165060%_ + _%L165061%_) + (let ((__obj172111 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp171294 + (let ((__tmp172279 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164076%_))) - (__tmp171293 - (let () (declare (not safe)) (gx#stx-e _%L164075%_))) - (__tmp171292 + (gxc#identifier-symbol _%L165061%_))) + (__tmp172278 + (let () (declare (not safe)) (gx#stx-e _%L165060%_))) + (__tmp172277 (let () (declare (not safe)) - (gx#stx-e _%L164074%_)))) + (gx#stx-e _%L165059%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj171126 - __tmp171294 - __tmp171293 - __tmp171292)) - __obj171126)) - _%hd164031164069%_ - _%hd164028164061%_ - _%hd164025164053%_) - (_%g164016164037%_ _%g164017164040%_)))) + __obj172111 + __tmp172279 + __tmp172278 + __tmp172277)) + __obj172111)) + _%hd165016165054%_ + _%hd165013165046%_ + _%hd165010165038%_) + (_%g165001165022%_ _%g165002165025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164016164037%_ - _%g164017164040%_)))) - (_%g164016164037%_ _%g164017164040%_)))) - (_%g164016164037%_ _%g164017164040%_)))) - (_%g164016164037%_ _%g164017164040%_))))) - (_%g164015164094%_ _%ann164014%_)))) + (_%g165001165022%_ + _%g165002165025%_)))) + (_%g165001165022%_ _%g165002165025%_)))) + (_%g165001165022%_ _%g165002165025%_)))) + (_%g165001165022%_ _%g165002165025%_))))) + (_%g165000165079%_ _%ann164999%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx163945%_ _%ann163946%_) - (let* ((_%g163948163965%_ - (lambda (_%g163949163962%_) + (lambda (_%stx164930%_ _%ann164931%_) + (let* ((_%g164933164950%_ + (lambda (_%g164934164947%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163949163962%_)))) - (_%g163947164010%_ - (lambda (_%g163949163968%_) + _%g164934164947%_)))) + (_%g164932164995%_ + (lambda (_%g164934164953%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163949163968%_)) - (let ((_%e163952163970%_ + (gx#stx-pair? _%g164934164953%_)) + (let ((_%e164937164955%_ (let () (declare (not safe)) - (gx#stx-e _%g163949163968%_)))) - (let ((_%hd163953163973%_ + (gx#stx-e _%g164934164953%_)))) + (let ((_%hd164938164958%_ (let () (declare (not safe)) - (##car _%e163952163970%_))) - (_%tl163954163975%_ + (##car _%e164937164955%_))) + (_%tl164939164960%_ (let () (declare (not safe)) - (##cdr _%e163952163970%_)))) + (##cdr _%e164937164955%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163954163975%_)) - (let ((_%e163955163978%_ + (gx#stx-pair? _%tl164939164960%_)) + (let ((_%e164940164963%_ (let () (declare (not safe)) - (gx#stx-e _%tl163954163975%_)))) - (let ((_%hd163956163981%_ + (gx#stx-e _%tl164939164960%_)))) + (let ((_%hd164941164966%_ (let () (declare (not safe)) - (##car _%e163955163978%_))) - (_%tl163957163983%_ + (##car _%e164940164963%_))) + (_%tl164942164968%_ (let () (declare (not safe)) - (##cdr _%e163955163978%_)))) + (##cdr _%e164940164963%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163957163983%_)) - (let ((_%e163958163986%_ + (gx#stx-pair? _%tl164942164968%_)) + (let ((_%e164943164971%_ (let () (declare (not safe)) - (gx#stx-e _%tl163957163983%_)))) - (let ((_%hd163959163989%_ + (gx#stx-e _%tl164942164968%_)))) + (let ((_%hd164944164974%_ (let () (declare (not safe)) - (##car _%e163958163986%_))) - (_%tl163960163991%_ + (##car _%e164943164971%_))) + (_%tl164945164976%_ (let () (declare (not safe)) - (##cdr _%e163958163986%_)))) + (##cdr _%e164943164971%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163960163991%_)) - ((lambda (_%L163994%_ - _%L163995%_) - (let ((__tmp171296 + _%tl164945164976%_)) + ((lambda (_%L164979%_ + _%L164980%_) + (let ((__tmp172281 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163995%_))) - (__tmp171295 + _%L164980%_))) + (__tmp172280 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L163994%_)))) + _%L164979%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp171296 - __tmp171295))) - _%hd163959163989%_ - _%hd163956163981%_) - (_%g163948163965%_ - _%g163949163968%_)))) - (_%g163948163965%_ _%g163949163968%_)))) - (_%g163948163965%_ _%g163949163968%_)))) - (_%g163948163965%_ _%g163949163968%_))))) - (_%g163947164010%_ _%ann163946%_)))) + __tmp172281 + __tmp172280))) + _%hd164944164974%_ + _%hd164941164966%_) + (_%g164933164950%_ + _%g164934164953%_)))) + (_%g164933164950%_ _%g164934164953%_)))) + (_%g164933164950%_ _%g164934164953%_)))) + (_%g164933164950%_ _%g164934164953%_))))) + (_%g164932164995%_ _%ann164931%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx163893%_ _%ann163894%_) - (let* ((_%g163896163909%_ - (lambda (_%g163897163906%_) + (lambda (_%stx164878%_ _%ann164879%_) + (let* ((_%g164881164894%_ + (lambda (_%g164882164891%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163897163906%_)))) - (_%g163895163942%_ - (lambda (_%g163897163912%_) + _%g164882164891%_)))) + (_%g164880164927%_ + (lambda (_%g164882164897%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163897163912%_)) - (let ((_%e163899163914%_ + (gx#stx-pair? _%g164882164897%_)) + (let ((_%e164884164899%_ (let () (declare (not safe)) - (gx#stx-e _%g163897163912%_)))) - (let ((_%hd163900163917%_ + (gx#stx-e _%g164882164897%_)))) + (let ((_%hd164885164902%_ (let () (declare (not safe)) - (##car _%e163899163914%_))) - (_%tl163901163919%_ + (##car _%e164884164899%_))) + (_%tl164886164904%_ (let () (declare (not safe)) - (##cdr _%e163899163914%_)))) + (##cdr _%e164884164899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163901163919%_)) - (let ((_%e163902163922%_ + (gx#stx-pair? _%tl164886164904%_)) + (let ((_%e164887164907%_ (let () (declare (not safe)) - (gx#stx-e _%tl163901163919%_)))) - (let ((_%hd163903163925%_ + (gx#stx-e _%tl164886164904%_)))) + (let ((_%hd164888164910%_ (let () (declare (not safe)) - (##car _%e163902163922%_))) - (_%tl163904163927%_ + (##car _%e164887164907%_))) + (_%tl164889164912%_ (let () (declare (not safe)) - (##cdr _%e163902163922%_)))) + (##cdr _%e164887164907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163904163927%_)) - ((lambda (_%L163930%_) - (let ((__obj171127 + (gx#stx-null? _%tl164889164912%_)) + ((lambda (_%L164915%_) + (let ((__obj172112 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp171297 + (let ((__tmp172282 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163930%_)))) + _%L164915%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj171127 - __tmp171297)) - __obj171127)) - _%hd163903163925%_) - (_%g163896163909%_ _%g163897163912%_)))) - (_%g163896163909%_ _%g163897163912%_)))) - (_%g163896163909%_ _%g163897163912%_))))) - (_%g163895163942%_ _%ann163894%_)))) + __obj172112 + __tmp172282)) + __obj172112)) + _%hd164888164910%_) + (_%g164881164894%_ _%g164882164897%_)))) + (_%g164881164894%_ _%g164882164897%_)))) + (_%g164881164894%_ _%g164882164897%_))))) + (_%g164880164927%_ _%ann164879%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx163863%_ _%ann163864%_) - (let* ((_%g163866163875%_ - (lambda (_%g163867163872%_) + (lambda (_%stx164848%_ _%ann164849%_) + (let* ((_%g164851164860%_ + (lambda (_%g164852164857%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163867163872%_)))) - (_%g163865163890%_ - (lambda (_%g163867163878%_) + _%g164852164857%_)))) + (_%g164850164875%_ + (lambda (_%g164852164863%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163867163878%_)) - (let ((_%e163868163880%_ + (gx#stx-pair? _%g164852164863%_)) + (let ((_%e164853164865%_ (let () (declare (not safe)) - (gx#stx-e _%g163867163878%_)))) - (let ((_%hd163869163883%_ + (gx#stx-e _%g164852164863%_)))) + (let ((_%hd164854164868%_ (let () (declare (not safe)) - (##car _%e163868163880%_))) - (_%tl163870163885%_ + (##car _%e164853164865%_))) + (_%tl164855164870%_ (let () (declare (not safe)) - (##cdr _%e163868163880%_)))) + (##cdr _%e164853164865%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163870163885%_)) + (gx#stx-null? _%tl164855164870%_)) ((lambda () - (let ((__obj171128 + (let ((__obj172113 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj171128)) - __obj171128))) - (_%g163866163875%_ _%g163867163878%_)))) - (_%g163866163875%_ _%g163867163878%_))))) - (_%g163865163890%_ _%ann163864%_)))) + (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 (_%self163795%_ _%stx163796%_) - (let* ((_%__stx168966168967%_ _%stx163796%_) - (_%g163799163813%_ + (lambda (_%self164780%_ _%stx164781%_) + (let* ((_%__stx169951169952%_ _%stx164781%_) + (_%g164784164798%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168966168967%_))))) - (let ((_%__kont168968168969%_ - (lambda (_%L163851%_) - (let ((__obj171129 + _%__stx169951169952%_))))) + (let ((_%__kont169953169954%_ + (lambda (_%L164836%_) + (let ((__obj172114 (let () (declare (not safe)) (##structure @@ -9038,22 +9038,22 @@ '#f '#f '#f)))) - (let ((__tmp171299 (gxc#lambda-form-arity _%L163851%_)) - (__tmp171298 - (gxc#dispatch-lambda-form-delegate _%L163851%_))) + (let ((__tmp172284 (gxc#lambda-form-arity _%L164836%_)) + (__tmp172283 + (gxc#dispatch-lambda-form-delegate _%L164836%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj171129 - __tmp171299 - __tmp171298)) - __obj171129))) - (_%__kont168970168971%_ - (lambda (_%L163826%_) - (let* ((_%signature163836%_ - (gxc#lambda-form-infer-signature _%L163826%_)) - (__obj171130 + __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 ((__tmp171300 (gxc#lambda-form-arity _%L163826%_))) + (let ((__tmp172285 (gxc#lambda-form-arity _%L164811%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163836%_ - __obj171130 - __tmp171300 + _%signature164821%_ + __obj172115 + __tmp172285 '#f)) - __obj171130)))) - (let ((_%__match168977168978%_ - (lambda (_%e163802163843%_ - _%hd163803163846%_ - _%tl163804163848%_) - (let ((_%L163851%_ _%tl163804163848%_)) - (if (gxc#dispatch-lambda-form? _%L163851%_) - (_%__kont168968168969%_ _%L163851%_) - (_%__kont168970168971%_ _%tl163804163848%_)))))) + __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? _%__stx168966168967%_)) - (let ((_%e163802163843%_ + (gx#stx-pair? _%__stx169951169952%_)) + (let ((_%e164787164828%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168966168967%_)))) - (let ((_%tl163804163848%_ + (gx#stx-e _%__stx169951169952%_)))) + (let ((_%tl164789164833%_ (let () (declare (not safe)) - (##cdr _%e163802163843%_))) - (_%hd163803163846%_ + (##cdr _%e164787164828%_))) + (_%hd164788164831%_ (let () (declare (not safe)) - (##car _%e163802163843%_)))) - (_%__match168977168978%_ - _%e163802163843%_ - _%hd163803163846%_ - _%tl163804163848%_))) - (let () (declare (not safe)) (_%g163799163813%_)))))))) + (##car _%e164787164828%_)))) + (_%__match169962169963%_ + _%e164787164828%_ + _%hd164788164831%_ + _%tl164789164833%_))) + (let () (declare (not safe)) (_%g164784164798%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self162939%_ _%stx162940%_) - (let* ((_%__stx168986168987%_ _%stx162940%_) - (_%g162945163137%_ + (lambda (_%self163924%_ _%stx163925%_) + (let* ((_%__stx169971169972%_ _%stx163925%_) + (_%g163930164122%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168986168987%_))))) - (let ((_%__kont168988168989%_ - (lambda (_%L163732%_ - _%L163733%_ - _%L163734%_ - _%L163735%_ - _%L163736%_ - _%L163737%_) - (let* ((_%tab163787%_ + _%__stx169971169972%_))))) + (let ((_%__kont169973169974%_ + (lambda (_%L164717%_ + _%L164718%_ + _%L164719%_ + _%L164720%_ + _%L164721%_ + _%L164722%_) + (let* ((_%tab164772%_ (let () (declare (not safe)) - (gx#stx-e _%L163734%_))) - (_%keys163789%_ - (if _%tab163787%_ - (let ((__tmp171301 - (vector->list _%tab163787%_))) + (gx#stx-e _%L164719%_))) + (_%keys164774%_ + (if _%tab164772%_ + (let ((__tmp172286 + (vector->list _%tab164772%_))) (declare (not safe)) - (##filter identity __tmp171301)) + (##filter identity __tmp172286)) '#f)) - (__obj171131 + (__obj172116 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp171302 + (let ((__tmp172287 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163733%_)))) + (gxc#identifier-symbol _%L164718%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj171131 - _%keys163789%_ - __tmp171302)) - __obj171131))) - (_%__kont168990168991%_ - (lambda (_%L163465%_ - _%L163466%_ - _%L163467%_ - _%L163468%_ - _%L163469%_ - _%L163470%_ - _%L163471%_ - _%L163472%_ - _%L163473%_ - _%L163474%_) - (let ((__obj171132 + __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 ((__tmp171304 + (let ((__tmp172289 (map gx#stx-e - (let ((__tmp171305 - (lambda (_%g163567163570%_ - _%g163568163572%_) - (cons _%g163567163570%_ - _%g163568163572%_)))) + (let ((__tmp172290 + (lambda (_%g164552164555%_ + _%g164553164557%_) + (cons _%g164552164555%_ + _%g164553164557%_)))) (declare (not safe)) - (__foldr1 __tmp171305 '() _%L163467%_)))) - (__tmp171303 + (__foldr1 __tmp172290 '() _%L164452%_)))) + (__tmp172288 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163471%_)))) + (gxc#identifier-symbol _%L164456%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj171132 - __tmp171304 - __tmp171303)) - __obj171132))) - (_%__kont168994168995%_ - (lambda (_%L163175%_) - (let ((__obj171133 + __obj172117 + __tmp172289 + __tmp172288)) + __obj172117))) + (_%__kont169979169980%_ + (lambda (_%L164160%_) + (let ((__obj172118 (let () (declare (not safe)) (##structure @@ -9196,22 +9196,22 @@ '#f '#f '#f)))) - (let ((__tmp171307 (gxc#lambda-form-arity _%L163175%_)) - (__tmp171306 - (gxc#dispatch-lambda-form-delegate _%L163175%_))) + (let ((__tmp172292 (gxc#lambda-form-arity _%L164160%_)) + (__tmp172291 + (gxc#dispatch-lambda-form-delegate _%L164160%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj171133 - __tmp171307 - __tmp171306)) - __obj171133))) - (_%__kont168996168997%_ - (lambda (_%L163150%_) - (let* ((_%signature163160%_ - (gxc#lambda-form-infer-signature _%L163150%_)) - (__obj171134 + __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 ((__tmp171308 (gxc#lambda-form-arity _%L163150%_))) + (let ((__tmp172293 (gxc#lambda-form-arity _%L164135%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163160%_ - __obj171134 - __tmp171308 + _%signature164145%_ + __obj172119 + __tmp172293 '#f)) - __obj171134)))) - (let* ((_%__match169295169296%_ - (lambda (_%e163126163167%_ - _%hd163127163170%_ - _%tl163128163172%_) - (let ((_%L163175%_ _%tl163128163172%_)) - (if (gxc#dispatch-lambda-form? _%L163175%_) - (_%__kont168994168995%_ _%L163175%_) - (_%__kont168996168997%_ _%tl163128163172%_))))) - (_%__match169289169290%_ - (lambda (_%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_ - _%e163023163197%_ - _%hd163024163200%_ - _%tl163025163202%_ - _%e163026163205%_ - _%hd163027163208%_ - _%tl163028163210%_ - _%e163029163213%_ - _%hd163030163216%_ - _%tl163031163218%_ - _%e163032163221%_ - _%hd163033163224%_ - _%tl163034163226%_ - _%e163035163229%_ - _%hd163036163232%_ - _%tl163037163234%_ - _%e163038163237%_ - _%hd163039163240%_ - _%tl163040163242%_ - _%e163041163245%_ - _%hd163042163248%_ - _%tl163043163250%_ - _%e163044163253%_ - _%hd163045163256%_ - _%tl163046163258%_ - _%e163047163261%_ - _%hd163048163264%_ - _%tl163049163266%_ - _%e163050163269%_ - _%hd163051163272%_ - _%tl163052163274%_ - _%e163053163277%_ - _%hd163054163280%_ - _%tl163055163282%_ - _%e163056163285%_ - _%hd163057163288%_ - _%tl163058163290%_ - _%e163059163293%_ - _%hd163060163296%_ - _%tl163061163298%_ - _%__splice168992168993%_ - _%target163062163301%_ - _%tl163064163303%_ - _%e163077163306%_ - _%hd163078163309%_ - _%tl163079163311%_ - _%e163080163314%_ - _%hd163081163317%_ - _%tl163082163319%_ - _%e163083163322%_ - _%hd163084163325%_ - _%tl163085163327%_) - (letrec ((_%loop163065163330%_ - (lambda (_%hd163063163333%_ - _%-absent-value163069163335%_ - _%key163070163337%_ - _%-xkwvar163071163339%_ - _%-hash-ref163072163341%_) + __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? _%hd163063163333%_)) - (let ((_%e163066163344%_ + (gx#stx-pair? _%hd164048164318%_)) + (let ((_%e164051164329%_ (let () (declare (not safe)) - (gx#stx-e _%hd163063163333%_)))) - (let ((_%lp-tl163068163349%_ + (gx#stx-e _%hd164048164318%_)))) + (let ((_%lp-tl164053164334%_ (let () (declare (not safe)) - (##cdr _%e163066163344%_))) - (_%lp-hd163067163347%_ + (##cdr _%e164051164329%_))) + (_%lp-hd164052164332%_ (let () (declare (not safe)) - (##car _%e163066163344%_)))) + (##car _%e164051164329%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd163067163347%_)) - (let ((_%e163086163352%_ + _%lp-hd164052164332%_)) + (let ((_%e164071164337%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd163067163347%_)))) - (let ((_%tl163088163357%_ + _%lp-hd164052164332%_)))) + (let ((_%tl164073164342%_ (let () (declare (not safe)) - (##cdr _%e163086163352%_))) - (_%hd163087163355%_ + (##cdr _%e164071164337%_))) + (_%hd164072164340%_ (let () (declare (not safe)) - (##car _%e163086163352%_)))) + (##car _%e164071164337%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd163087163355%_)) + _%hd164072164340%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd163087163355%_)) + _%hd164072164340%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl163088163357%_)) - (let ((_%e163089163360%_ + (gx#stx-pair? _%tl164073164342%_)) + (let ((_%e164074164345%_ (let () (declare (not safe)) - (gx#stx-e _%tl163088163357%_)))) - (let ((_%tl163091163365%_ + (gx#stx-e _%tl164073164342%_)))) + (let ((_%tl164076164350%_ (let () (declare (not safe)) - (##cdr _%e163089163360%_))) - (_%hd163090163363%_ + (##cdr _%e164074164345%_))) + (_%hd164075164348%_ (let () (declare (not safe)) - (##car _%e163089163360%_)))) + (##car _%e164074164345%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163090163363%_)) - (let ((_%e163092163368%_ + (gx#stx-pair? _%hd164075164348%_)) + (let ((_%e164077164353%_ (let () (declare (not safe)) - (gx#stx-e _%hd163090163363%_)))) - (let ((_%tl163094163373%_ + (gx#stx-e _%hd164075164348%_)))) + (let ((_%tl164079164358%_ (let () (declare (not safe)) - (##cdr _%e163092163368%_))) - (_%hd163093163371%_ + (##cdr _%e164077164353%_))) + (_%hd164078164356%_ (let () (declare (not safe)) - (##car _%e163092163368%_)))) + (##car _%e164077164353%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163093163371%_)) + (gx#identifier? _%hd164078164356%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd163093163371%_)) + _%hd164078164356%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163094163373%_)) - (let ((_%e163095163376%_ + _%tl164079164358%_)) + (let ((_%e164080164361%_ (let () (declare (not safe)) (gx#stx-e - _%tl163094163373%_)))) - (let ((_%tl163097163381%_ + _%tl164079164358%_)))) + (let ((_%tl164082164366%_ (let () (declare (not safe)) - (##cdr _%e163095163376%_))) - (_%hd163096163379%_ + (##cdr _%e164080164361%_))) + (_%hd164081164364%_ (let () (declare (not safe)) - (##car _%e163095163376%_)))) + (##car _%e164080164361%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163097163381%_)) + _%tl164082164366%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163091163365%_)) - (let ((_%e163098163384%_ + _%tl164076164350%_)) + (let ((_%e164083164369%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl163091163365%_)))) - (let ((_%tl163100163389%_ + (gx#stx-e _%tl164076164350%_)))) + (let ((_%tl164085164374%_ (let () (declare (not safe)) - (##cdr _%e163098163384%_))) - (_%hd163099163387%_ + (##cdr _%e164083164369%_))) + (_%hd164084164372%_ (let () (declare (not safe)) - (##car _%e163098163384%_)))) + (##car _%e164083164369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163099163387%_)) - (let ((_%e163101163392%_ + (gx#stx-pair? _%hd164084164372%_)) + (let ((_%e164086164377%_ (let () (declare (not safe)) - (gx#stx-e _%hd163099163387%_)))) - (let ((_%tl163103163397%_ + (gx#stx-e _%hd164084164372%_)))) + (let ((_%tl164088164382%_ (let () (declare (not safe)) - (##cdr _%e163101163392%_))) - (_%hd163102163395%_ + (##cdr _%e164086164377%_))) + (_%hd164087164380%_ (let () (declare (not safe)) - (##car _%e163101163392%_)))) + (##car _%e164086164377%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163102163395%_)) + (gx#identifier? _%hd164087164380%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163102163395%_)) + (gx#stx-eq? '%#ref _%hd164087164380%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163103163397%_)) - (let ((_%e163104163400%_ + (gx#stx-pair? _%tl164088164382%_)) + (let ((_%e164089164385%_ (let () (declare (not safe)) (gx#stx-e - _%tl163103163397%_)))) - (let ((_%tl163106163405%_ + _%tl164088164382%_)))) + (let ((_%tl164091164390%_ (let () (declare (not safe)) - (##cdr _%e163104163400%_))) - (_%hd163105163403%_ + (##cdr _%e164089164385%_))) + (_%hd164090164388%_ (let () (declare (not safe)) - (##car _%e163104163400%_)))) + (##car _%e164089164385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163106163405%_)) + _%tl164091164390%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163100163389%_)) - (let ((_%e163107163408%_ + _%tl164085164374%_)) + (let ((_%e164092164393%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163100163389%_)))) - (let ((_%tl163109163413%_ - (let () (declare (not safe)) (##cdr _%e163107163408%_))) - (_%hd163108163411%_ + (gx#stx-e _%tl164085164374%_)))) + (let ((_%tl164094164398%_ + (let () (declare (not safe)) (##cdr _%e164092164393%_))) + (_%hd164093164396%_ (let () (declare (not safe)) - (##car _%e163107163408%_)))) + (##car _%e164092164393%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163108163411%_)) - (let ((_%e163110163416%_ + (gx#stx-pair? _%hd164093164396%_)) + (let ((_%e164095164401%_ (let () (declare (not safe)) - (gx#stx-e _%hd163108163411%_)))) - (let ((_%tl163112163421%_ + (gx#stx-e _%hd164093164396%_)))) + (let ((_%tl164097164406%_ (let () (declare (not safe)) - (##cdr _%e163110163416%_))) - (_%hd163111163419%_ + (##cdr _%e164095164401%_))) + (_%hd164096164404%_ (let () (declare (not safe)) - (##car _%e163110163416%_)))) + (##car _%e164095164401%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163111163419%_)) + (gx#identifier? _%hd164096164404%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd163111163419%_)) + (gx#stx-eq? '%#quote _%hd164096164404%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163112163421%_)) - (let ((_%e163113163424%_ + (gx#stx-pair? _%tl164097164406%_)) + (let ((_%e164098164409%_ (let () (declare (not safe)) - (gx#stx-e _%tl163112163421%_)))) - (let ((_%tl163115163429%_ + (gx#stx-e _%tl164097164406%_)))) + (let ((_%tl164100164414%_ (let () (declare (not safe)) - (##cdr _%e163113163424%_))) - (_%hd163114163427%_ + (##cdr _%e164098164409%_))) + (_%hd164099164412%_ (let () (declare (not safe)) - (##car _%e163113163424%_)))) + (##car _%e164098164409%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163115163429%_)) + _%tl164100164414%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163109163413%_)) - (let ((_%e163116163432%_ + _%tl164094164398%_)) + (let ((_%e164101164417%_ (let () (declare (not safe)) (gx#stx-e - _%tl163109163413%_)))) - (let ((_%tl163118163437%_ + _%tl164094164398%_)))) + (let ((_%tl164103164422%_ (let () (declare (not safe)) - (##cdr _%e163116163432%_))) - (_%hd163117163435%_ + (##cdr _%e164101164417%_))) + (_%hd164102164420%_ (let () (declare (not safe)) - (##car _%e163116163432%_)))) + (##car _%e164101164417%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163117163435%_)) - (let ((_%e163119163440%_ + _%hd164102164420%_)) + (let ((_%e164104164425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd163117163435%_)))) - (let ((_%tl163121163445%_ + (gx#stx-e _%hd164102164420%_)))) + (let ((_%tl164106164430%_ (let () (declare (not safe)) - (##cdr _%e163119163440%_))) - (_%hd163120163443%_ + (##cdr _%e164104164425%_))) + (_%hd164105164428%_ (let () (declare (not safe)) - (##car _%e163119163440%_)))) + (##car _%e164104164425%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163120163443%_)) + (gx#identifier? _%hd164105164428%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163120163443%_)) + (gx#stx-eq? '%#ref _%hd164105164428%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163121163445%_)) - (let ((_%e163122163448%_ + (gx#stx-pair? _%tl164106164430%_)) + (let ((_%e164107164433%_ (let () (declare (not safe)) - (gx#stx-e _%tl163121163445%_)))) - (let ((_%tl163124163453%_ + (gx#stx-e _%tl164106164430%_)))) + (let ((_%tl164109164438%_ (let () (declare (not safe)) - (##cdr _%e163122163448%_))) - (_%hd163123163451%_ + (##cdr _%e164107164433%_))) + (_%hd164108164436%_ (let () (declare (not safe)) - (##car _%e163122163448%_)))) + (##car _%e164107164433%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163124163453%_)) + (gx#stx-null? _%tl164109164438%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163118163437%_)) - (_%loop163065163330%_ - _%lp-tl163068163349%_ - (cons _%hd163123163451%_ - _%-absent-value163069163335%_) - (cons _%hd163114163427%_ - _%key163070163337%_) - (cons _%hd163105163403%_ - _%-xkwvar163071163339%_) - (cons _%hd163096163379%_ - _%-hash-ref163072163341%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (let ((_%-hash-ref163076163462%_ - (reverse _%-hash-ref163072163341%_)) - (_%-xkwvar163075163460%_ - (reverse _%-xkwvar163071163339%_)) - (_%key163074163458%_ - (reverse _%key163070163337%_)) - (_%-absent-value163073163456%_ - (reverse _%-absent-value163069163335%_))) + (_%__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? - _%tl163031163218%_)) - (let ((_%L163465%_ - _%hd163084163325%_) - (_%L163466%_ - _%-absent-value163073163456%_) - (_%L163467%_ - _%key163074163458%_) - (_%L163468%_ - _%-xkwvar163075163460%_) - (_%L163469%_ - _%-hash-ref163076163462%_) - (_%L163470%_ - _%hd163060163296%_) - (_%L163471%_ - _%hd163051163272%_) - (_%L163472%_ - _%hd163042163248%_) - (_%L163473%_ - _%tl163028163210%_) - (_%L163474%_ - _%hd163027163208%_)) + _%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? - _%L163474%_)) + _%L164459%_)) (let () (declare (not safe)) (gx#identifier? - _%L163473%_)) + _%L164458%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163472%_ + _%L164457%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163474%_ - _%L163470%_)) - (let ((__tmp171309 - (let ((__tmp171310 + _%L164459%_ + _%L164455%_)) + (let ((__tmp172294 + (let ((__tmp172295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g163527163530%_ _%g163528163532%_) - (cons _%g163527163530%_ _%g163528163532%_)))) + (lambda (_%g164512164515%_ _%g164513164517%_) + (cons _%g164512164515%_ _%g164513164517%_)))) (declare (not safe)) - (__foldr1 __tmp171310 '() _%L163467%_)))) + (__foldr1 __tmp172295 '() _%L164452%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp171309)) - (let ((__tmp171313 - (lambda (_%g163534163536%_) + (__andmap1 gx#stx-keyword? __tmp172294)) + (let ((__tmp172298 + (lambda (_%g164519164521%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163534163536%_ + _%g164519164521%_ 'symbolic-table-ref)))) - (__tmp171311 - (let ((__tmp171312 - (lambda (_%g163538163541%_ _%g163539163543%_) - (cons _%g163538163541%_ _%g163539163543%_)))) + (__tmp172296 + (let ((__tmp172297 + (lambda (_%g164523164526%_ _%g164524164528%_) + (cons _%g164523164526%_ _%g164524164528%_)))) (declare (not safe)) - (__foldr1 __tmp171312 '() _%L163469%_)))) + (__foldr1 __tmp172297 '() _%L164454%_)))) (declare (not safe)) - (__andmap1 __tmp171313 __tmp171311)) - (let ((__tmp171316 - (lambda (_%g163545163547%_) + (__andmap1 __tmp172298 __tmp172296)) + (let ((__tmp172301 + (lambda (_%g164530164532%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163545163547%_ + _%g164530164532%_ 'absent-value)))) - (__tmp171314 - (let ((__tmp171315 - (lambda (_%g163549163552%_ _%g163550163554%_) - (cons _%g163549163552%_ _%g163550163554%_)))) + (__tmp172299 + (let ((__tmp172300 + (lambda (_%g164534164537%_ _%g164535164539%_) + (cons _%g164534164537%_ _%g164535164539%_)))) (declare (not safe)) - (__foldr1 __tmp171315 '() _%L163466%_)))) + (__foldr1 __tmp172300 '() _%L164451%_)))) (declare (not safe)) - (__andmap1 __tmp171316 __tmp171314)) - (let ((__tmp171319 - (lambda (_%g163556163558%_) + (__andmap1 __tmp172301 __tmp172299)) + (let ((__tmp172304 + (lambda (_%g164541164543%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g163556163558%_ - _%L163474%_)))) - (__tmp171317 - (let ((__tmp171318 - (lambda (_%g163560163563%_ _%g163561163565%_) - (cons _%g163560163563%_ _%g163561163565%_)))) + _%g164541164543%_ + _%L164459%_)))) + (__tmp172302 + (let ((__tmp172303 + (lambda (_%g164545164548%_ _%g164546164550%_) + (cons _%g164545164548%_ _%g164546164550%_)))) (declare (not safe)) - (__foldr1 __tmp171318 '() _%L163468%_)))) + (__foldr1 __tmp172303 '() _%L164453%_)))) (declare (not safe)) - (__andmap1 __tmp171319 __tmp171317))) + (__andmap1 __tmp172304 __tmp172302))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168990168991%_ - _%L163465%_ - _%L163466%_ - _%L163467%_ - _%L163468%_ - _%L163469%_ - _%L163470%_ - _%L163471%_ - _%L163472%_ - _%L163473%_ - _%L163474%_) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_))))))) - (_%loop163065163330%_ - _%target163062163301%_ + (_%__kont169975169976%_ + _%L164450%_ + _%L164451%_ + _%L164452%_ + _%L164453%_ + _%L164454%_ + _%L164455%_ + _%L164456%_ + _%L164457%_ + _%L164458%_ + _%L164459%_) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_))))))) + (_%loop164050164315%_ + _%target164047164286%_ '() '() '() '())))) - (_%__match169161169162%_ - (lambda (_%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_ - _%e163023163197%_ - _%hd163024163200%_ - _%tl163025163202%_) + (_%__match170146170147%_ + (lambda (_%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_ + _%e164008164182%_ + _%hd164009164185%_ + _%tl164010164187%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163024163200%_)) - (let ((_%e163026163205%_ + (gx#stx-pair? _%hd164009164185%_)) + (let ((_%e164011164190%_ (let () (declare (not safe)) - (gx#stx-e _%hd163024163200%_)))) - (let ((_%tl163028163210%_ + (gx#stx-e _%hd164009164185%_)))) + (let ((_%tl164013164195%_ (let () (declare (not safe)) - (##cdr _%e163026163205%_))) - (_%hd163027163208%_ + (##cdr _%e164011164190%_))) + (_%hd164012164193%_ (let () (declare (not safe)) - (##car _%e163026163205%_)))) + (##car _%e164011164190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163025163202%_)) - (let ((_%e163029163213%_ + (gx#stx-pair? _%tl164010164187%_)) + (let ((_%e164014164198%_ (let () (declare (not safe)) - (gx#stx-e _%tl163025163202%_)))) - (let ((_%tl163031163218%_ + (gx#stx-e _%tl164010164187%_)))) + (let ((_%tl164016164203%_ (let () (declare (not safe)) - (##cdr _%e163029163213%_))) - (_%hd163030163216%_ + (##cdr _%e164014164198%_))) + (_%hd164015164201%_ (let () (declare (not safe)) - (##car _%e163029163213%_)))) + (##car _%e164014164198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163030163216%_)) - (let ((_%e163032163221%_ + (gx#stx-pair? _%hd164015164201%_)) + (let ((_%e164017164206%_ (let () (declare (not safe)) (gx#stx-e - _%hd163030163216%_)))) - (let ((_%tl163034163226%_ + _%hd164015164201%_)))) + (let ((_%tl164019164211%_ (let () (declare (not safe)) - (##cdr _%e163032163221%_))) - (_%hd163033163224%_ + (##cdr _%e164017164206%_))) + (_%hd164018164209%_ (let () (declare (not safe)) - (##car _%e163032163221%_)))) + (##car _%e164017164206%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd163033163224%_)) + _%hd164018164209%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd163033163224%_)) + _%hd164018164209%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163034163226%_)) - (let ((_%e163035163229%_ + _%tl164019164211%_)) + (let ((_%e164020164214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl163034163226%_)))) - (let ((_%tl163037163234%_ + (gx#stx-e _%tl164019164211%_)))) + (let ((_%tl164022164219%_ (let () (declare (not safe)) - (##cdr _%e163035163229%_))) - (_%hd163036163232%_ + (##cdr _%e164020164214%_))) + (_%hd164021164217%_ (let () (declare (not safe)) - (##car _%e163035163229%_)))) + (##car _%e164020164214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163036163232%_)) - (let ((_%e163038163237%_ + (gx#stx-pair? _%hd164021164217%_)) + (let ((_%e164023164222%_ (let () (declare (not safe)) - (gx#stx-e _%hd163036163232%_)))) - (let ((_%tl163040163242%_ + (gx#stx-e _%hd164021164217%_)))) + (let ((_%tl164025164227%_ (let () (declare (not safe)) - (##cdr _%e163038163237%_))) - (_%hd163039163240%_ + (##cdr _%e164023164222%_))) + (_%hd164024164225%_ (let () (declare (not safe)) - (##car _%e163038163237%_)))) + (##car _%e164023164222%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163039163240%_)) + (gx#identifier? _%hd164024164225%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163039163240%_)) + (gx#stx-eq? '%#ref _%hd164024164225%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163040163242%_)) - (let ((_%e163041163245%_ + (gx#stx-pair? _%tl164025164227%_)) + (let ((_%e164026164230%_ (let () (declare (not safe)) (gx#stx-e - _%tl163040163242%_)))) - (let ((_%tl163043163250%_ + _%tl164025164227%_)))) + (let ((_%tl164028164235%_ (let () (declare (not safe)) - (##cdr _%e163041163245%_))) - (_%hd163042163248%_ + (##cdr _%e164026164230%_))) + (_%hd164027164233%_ (let () (declare (not safe)) - (##car _%e163041163245%_)))) + (##car _%e164026164230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163043163250%_)) + _%tl164028164235%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163037163234%_)) - (let ((_%e163044163253%_ + _%tl164022164219%_)) + (let ((_%e164029164238%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163037163234%_)))) - (let ((_%tl163046163258%_ - (let () (declare (not safe)) (##cdr _%e163044163253%_))) - (_%hd163045163256%_ + (gx#stx-e _%tl164022164219%_)))) + (let ((_%tl164031164243%_ + (let () (declare (not safe)) (##cdr _%e164029164238%_))) + (_%hd164030164241%_ (let () (declare (not safe)) - (##car _%e163044163253%_)))) + (##car _%e164029164238%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163045163256%_)) - (let ((_%e163047163261%_ + (gx#stx-pair? _%hd164030164241%_)) + (let ((_%e164032164246%_ (let () (declare (not safe)) - (gx#stx-e _%hd163045163256%_)))) - (let ((_%tl163049163266%_ + (gx#stx-e _%hd164030164241%_)))) + (let ((_%tl164034164251%_ (let () (declare (not safe)) - (##cdr _%e163047163261%_))) - (_%hd163048163264%_ + (##cdr _%e164032164246%_))) + (_%hd164033164249%_ (let () (declare (not safe)) - (##car _%e163047163261%_)))) + (##car _%e164032164246%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163048163264%_)) + (gx#identifier? _%hd164033164249%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163048163264%_)) + (gx#stx-eq? '%#ref _%hd164033164249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163049163266%_)) - (let ((_%e163050163269%_ + (gx#stx-pair? _%tl164034164251%_)) + (let ((_%e164035164254%_ (let () (declare (not safe)) - (gx#stx-e _%tl163049163266%_)))) - (let ((_%tl163052163274%_ + (gx#stx-e _%tl164034164251%_)))) + (let ((_%tl164037164259%_ (let () (declare (not safe)) - (##cdr _%e163050163269%_))) - (_%hd163051163272%_ + (##cdr _%e164035164254%_))) + (_%hd164036164257%_ (let () (declare (not safe)) - (##car _%e163050163269%_)))) + (##car _%e164035164254%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163052163274%_)) + _%tl164037164259%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163046163258%_)) - (let ((_%e163053163277%_ + _%tl164031164243%_)) + (let ((_%e164038164262%_ (let () (declare (not safe)) (gx#stx-e - _%tl163046163258%_)))) - (let ((_%tl163055163282%_ + _%tl164031164243%_)))) + (let ((_%tl164040164267%_ (let () (declare (not safe)) - (##cdr _%e163053163277%_))) - (_%hd163054163280%_ + (##cdr _%e164038164262%_))) + (_%hd164039164265%_ (let () (declare (not safe)) - (##car _%e163053163277%_)))) + (##car _%e164038164262%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163054163280%_)) - (let ((_%e163056163285%_ + _%hd164039164265%_)) + (let ((_%e164041164270%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd163054163280%_)))) - (let ((_%tl163058163290%_ + (gx#stx-e _%hd164039164265%_)))) + (let ((_%tl164043164275%_ (let () (declare (not safe)) - (##cdr _%e163056163285%_))) - (_%hd163057163288%_ + (##cdr _%e164041164270%_))) + (_%hd164042164273%_ (let () (declare (not safe)) - (##car _%e163056163285%_)))) + (##car _%e164041164270%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163057163288%_)) + (gx#identifier? _%hd164042164273%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163057163288%_)) + (gx#stx-eq? '%#ref _%hd164042164273%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163058163290%_)) - (let ((_%e163059163293%_ + (gx#stx-pair? _%tl164043164275%_)) + (let ((_%e164044164278%_ (let () (declare (not safe)) - (gx#stx-e _%tl163058163290%_)))) - (let ((_%tl163061163298%_ + (gx#stx-e _%tl164043164275%_)))) + (let ((_%tl164046164283%_ (let () (declare (not safe)) - (##cdr _%e163059163293%_))) - (_%hd163060163296%_ + (##cdr _%e164044164278%_))) + (_%hd164045164281%_ (let () (declare (not safe)) - (##car _%e163059163293%_)))) + (##car _%e164044164278%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163061163298%_)) + (gx#stx-null? _%tl164046164283%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl163055163282%_)) - (if (let ((__tmp171320 + _%tl164040164267%_)) + (if (let ((__tmp172305 (let () (declare (not safe)) (gx#stx-length - _%tl163055163282%_)))) + _%tl164040164267%_)))) (declare (not safe)) - (##fx>= __tmp171320 '1)) - (let ((_%__splice168992168993%_ + (##fx>= __tmp172305 '1)) + (let ((_%__splice169977169978%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl163055163282%_ + _%tl164040164267%_ '1)))) - (let ((_%tl163064163303%_ + (let ((_%tl164049164288%_ (let () (declare (not safe)) (##vector-ref - _%__splice168992168993%_ + _%__splice169977169978%_ '1))) - (_%target163062163301%_ + (_%target164047164286%_ (let () (declare (not safe)) (##vector-ref - _%__splice168992168993%_ + _%__splice169977169978%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163064163303%_)) - (let ((_%e163077163306%_ + _%tl164049164288%_)) + (let ((_%e164062164291%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl163064163303%_)))) - (let ((_%tl163079163311%_ + (gx#stx-e _%tl164049164288%_)))) + (let ((_%tl164064164296%_ (let () (declare (not safe)) - (##cdr _%e163077163306%_))) - (_%hd163078163309%_ + (##cdr _%e164062164291%_))) + (_%hd164063164294%_ (let () (declare (not safe)) - (##car _%e163077163306%_)))) + (##car _%e164062164291%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163078163309%_)) - (let ((_%e163080163314%_ + (gx#stx-pair? _%hd164063164294%_)) + (let ((_%e164065164299%_ (let () (declare (not safe)) - (gx#stx-e _%hd163078163309%_)))) - (let ((_%tl163082163319%_ + (gx#stx-e _%hd164063164294%_)))) + (let ((_%tl164067164304%_ (let () (declare (not safe)) - (##cdr _%e163080163314%_))) - (_%hd163081163317%_ + (##cdr _%e164065164299%_))) + (_%hd164066164302%_ (let () (declare (not safe)) - (##car _%e163080163314%_)))) + (##car _%e164065164299%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163081163317%_)) + (gx#identifier? _%hd164066164302%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163081163317%_)) + (gx#stx-eq? '%#ref _%hd164066164302%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163082163319%_)) - (let ((_%e163083163322%_ + (gx#stx-pair? _%tl164067164304%_)) + (let ((_%e164068164307%_ (let () (declare (not safe)) (gx#stx-e - _%tl163082163319%_)))) - (let ((_%tl163085163327%_ + _%tl164067164304%_)))) + (let ((_%tl164070164312%_ (let () (declare (not safe)) - (##cdr _%e163083163322%_))) - (_%hd163084163325%_ + (##cdr _%e164068164307%_))) + (_%hd164069164310%_ (let () (declare (not safe)) - (##car _%e163083163322%_)))) + (##car _%e164068164307%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163085163327%_)) + _%tl164070164312%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163079163311%_)) - (_%__match169289169290%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_ - _%e163023163197%_ - _%hd163024163200%_ - _%tl163025163202%_ - _%e163026163205%_ - _%hd163027163208%_ - _%tl163028163210%_ - _%e163029163213%_ - _%hd163030163216%_ - _%tl163031163218%_ - _%e163032163221%_ - _%hd163033163224%_ - _%tl163034163226%_ - _%e163035163229%_ - _%hd163036163232%_ - _%tl163037163234%_ - _%e163038163237%_ - _%hd163039163240%_ - _%tl163040163242%_ - _%e163041163245%_ - _%hd163042163248%_ - _%tl163043163250%_ - _%e163044163253%_ - _%hd163045163256%_ - _%tl163046163258%_ - _%e163047163261%_ - _%hd163048163264%_ - _%tl163049163266%_ - _%e163050163269%_ - _%hd163051163272%_ - _%tl163052163274%_ - _%e163053163277%_ - _%hd163054163280%_ - _%tl163055163282%_ - _%e163056163285%_ - _%hd163057163288%_ - _%tl163058163290%_ - _%e163059163293%_ - _%hd163060163296%_ - _%tl163061163298%_ - _%__splice168992168993%_ - _%target163062163301%_ - _%tl163064163303%_ - _%e163077163306%_ - _%hd163078163309%_ - _%tl163079163311%_ - _%e163080163314%_ - _%hd163081163317%_ - _%tl163082163319%_ - _%e163083163322%_ - _%hd163084163325%_ - _%tl163085163327%_) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169295169296%_ - _%e163020163189%_ - _%hd163021163192%_ - _%tl163022163194%_)))) - (_%__match169149169150%_ - (lambda (_%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_ - _%e162959163596%_ - _%hd162960163599%_ - _%tl162961163601%_ - _%e162962163604%_ - _%hd162963163607%_ - _%tl162964163609%_ - _%e162965163612%_ - _%hd162966163615%_ - _%tl162967163617%_ - _%e162968163620%_ - _%hd162969163623%_ - _%tl162970163625%_ - _%e162971163628%_ - _%hd162972163631%_ - _%tl162973163633%_ - _%e162974163636%_ - _%hd162975163639%_ - _%tl162976163641%_ - _%e162977163644%_ - _%hd162978163647%_ - _%tl162979163649%_ - _%e162980163652%_ - _%hd162981163655%_ - _%tl162982163657%_ - _%e162983163660%_ - _%hd162984163663%_ - _%tl162985163665%_ - _%e162986163668%_ - _%hd162987163671%_ - _%tl162988163673%_ - _%e162989163676%_ - _%hd162990163679%_ - _%tl162991163681%_ - _%e162992163684%_ - _%hd162993163687%_ - _%tl162994163689%_ - _%e162995163692%_ - _%hd162996163695%_ - _%tl162997163697%_ - _%e162998163700%_ - _%hd162999163703%_ - _%tl163000163705%_ - _%e163001163708%_ - _%hd163002163711%_ - _%tl163003163713%_ - _%e163004163716%_ - _%hd163005163719%_ - _%tl163006163721%_ - _%e163007163724%_ - _%hd163008163727%_ - _%tl163009163729%_) - (let ((_%L163732%_ _%hd163008163727%_) - (_%L163733%_ _%hd162999163703%_) - (_%L163734%_ _%hd162990163679%_) - (_%L163735%_ _%hd162981163655%_) - (_%L163736%_ _%hd162972163631%_) - (_%L163737%_ _%hd162957163591%_)) + (_%__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? _%L163737%_)) + (gx#identifier? _%L164722%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163736%_ + _%L164721%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163735%_ + _%L164720%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163737%_ - _%L163732%_))) - (_%__kont168988168989%_ - _%L163732%_ - _%L163733%_ - _%L163734%_ - _%L163735%_ - _%L163736%_ - _%L163737%_) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))))) + _%L164722%_ + _%L164717%_))) + (_%__kont169973169974%_ + _%L164717%_ + _%L164718%_ + _%L164719%_ + _%L164720%_ + _%L164721%_ + _%L164722%_) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168986168987%_)) - (let ((_%e162953163580%_ + (gx#stx-pair? _%__stx169971169972%_)) + (let ((_%e163938164565%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168986168987%_)))) - (let ((_%tl162955163585%_ + (gx#stx-e _%__stx169971169972%_)))) + (let ((_%tl163940164570%_ (let () (declare (not safe)) - (##cdr _%e162953163580%_))) - (_%hd162954163583%_ + (##cdr _%e163938164565%_))) + (_%hd163939164568%_ (let () (declare (not safe)) - (##car _%e162953163580%_)))) + (##car _%e163938164565%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162955163585%_)) - (let ((_%e162956163588%_ + (gx#stx-pair? _%tl163940164570%_)) + (let ((_%e163941164573%_ (let () (declare (not safe)) - (gx#stx-e _%tl162955163585%_)))) - (let ((_%tl162958163593%_ + (gx#stx-e _%tl163940164570%_)))) + (let ((_%tl163943164578%_ (let () (declare (not safe)) - (##cdr _%e162956163588%_))) - (_%hd162957163591%_ + (##cdr _%e163941164573%_))) + (_%hd163942164576%_ (let () (declare (not safe)) - (##car _%e162956163588%_)))) + (##car _%e163941164573%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162958163593%_)) - (let ((_%e162959163596%_ + (gx#stx-pair? _%tl163943164578%_)) + (let ((_%e163944164581%_ (let () (declare (not safe)) - (gx#stx-e _%tl162958163593%_)))) - (let ((_%tl162961163601%_ + (gx#stx-e _%tl163943164578%_)))) + (let ((_%tl163946164586%_ (let () (declare (not safe)) - (##cdr _%e162959163596%_))) - (_%hd162960163599%_ + (##cdr _%e163944164581%_))) + (_%hd163945164584%_ (let () (declare (not safe)) - (##car _%e162959163596%_)))) + (##car _%e163944164581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162960163599%_)) - (let ((_%e162962163604%_ + (gx#stx-pair? _%hd163945164584%_)) + (let ((_%e163947164589%_ (let () (declare (not safe)) (gx#stx-e - _%hd162960163599%_)))) - (let ((_%tl162964163609%_ + _%hd163945164584%_)))) + (let ((_%tl163949164594%_ (let () (declare (not safe)) - (##cdr _%e162962163604%_))) - (_%hd162963163607%_ + (##cdr _%e163947164589%_))) + (_%hd163948164592%_ (let () (declare (not safe)) - (##car _%e162962163604%_)))) + (##car _%e163947164589%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162963163607%_)) + _%hd163948164592%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162963163607%_)) + _%hd163948164592%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162964163609%_)) - (let ((_%e162965163612%_ + _%tl163949164594%_)) + (let ((_%e163950164597%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162964163609%_)))) - (let ((_%tl162967163617%_ + (gx#stx-e _%tl163949164594%_)))) + (let ((_%tl163952164602%_ (let () (declare (not safe)) - (##cdr _%e162965163612%_))) - (_%hd162966163615%_ + (##cdr _%e163950164597%_))) + (_%hd163951164600%_ (let () (declare (not safe)) - (##car _%e162965163612%_)))) + (##car _%e163950164597%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162966163615%_)) - (let ((_%e162968163620%_ + (gx#stx-pair? _%hd163951164600%_)) + (let ((_%e163953164605%_ (let () (declare (not safe)) - (gx#stx-e _%hd162966163615%_)))) - (let ((_%tl162970163625%_ + (gx#stx-e _%hd163951164600%_)))) + (let ((_%tl163955164610%_ (let () (declare (not safe)) - (##cdr _%e162968163620%_))) - (_%hd162969163623%_ + (##cdr _%e163953164605%_))) + (_%hd163954164608%_ (let () (declare (not safe)) - (##car _%e162968163620%_)))) + (##car _%e163953164605%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162969163623%_)) + (gx#identifier? _%hd163954164608%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162969163623%_)) + (gx#stx-eq? '%#ref _%hd163954164608%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162970163625%_)) - (let ((_%e162971163628%_ + (gx#stx-pair? _%tl163955164610%_)) + (let ((_%e163956164613%_ (let () (declare (not safe)) (gx#stx-e - _%tl162970163625%_)))) - (let ((_%tl162973163633%_ + _%tl163955164610%_)))) + (let ((_%tl163958164618%_ (let () (declare (not safe)) - (##cdr _%e162971163628%_))) - (_%hd162972163631%_ + (##cdr _%e163956164613%_))) + (_%hd163957164616%_ (let () (declare (not safe)) - (##car _%e162971163628%_)))) + (##car _%e163956164613%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162973163633%_)) + _%tl163958164618%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162967163617%_)) - (let ((_%e162974163636%_ + _%tl163952164602%_)) + (let ((_%e163959164621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162967163617%_)))) - (let ((_%tl162976163641%_ - (let () (declare (not safe)) (##cdr _%e162974163636%_))) - (_%hd162975163639%_ + (gx#stx-e _%tl163952164602%_)))) + (let ((_%tl163961164626%_ + (let () (declare (not safe)) (##cdr _%e163959164621%_))) + (_%hd163960164624%_ (let () (declare (not safe)) - (##car _%e162974163636%_)))) + (##car _%e163959164621%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162975163639%_)) - (let ((_%e162977163644%_ + (gx#stx-pair? _%hd163960164624%_)) + (let ((_%e163962164629%_ (let () (declare (not safe)) - (gx#stx-e _%hd162975163639%_)))) - (let ((_%tl162979163649%_ + (gx#stx-e _%hd163960164624%_)))) + (let ((_%tl163964164634%_ (let () (declare (not safe)) - (##cdr _%e162977163644%_))) - (_%hd162978163647%_ + (##cdr _%e163962164629%_))) + (_%hd163963164632%_ (let () (declare (not safe)) - (##car _%e162977163644%_)))) + (##car _%e163962164629%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162978163647%_)) + (gx#identifier? _%hd163963164632%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162978163647%_)) + (gx#stx-eq? '%#ref _%hd163963164632%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162979163649%_)) - (let ((_%e162980163652%_ + (gx#stx-pair? _%tl163964164634%_)) + (let ((_%e163965164637%_ (let () (declare (not safe)) - (gx#stx-e _%tl162979163649%_)))) - (let ((_%tl162982163657%_ + (gx#stx-e _%tl163964164634%_)))) + (let ((_%tl163967164642%_ (let () (declare (not safe)) - (##cdr _%e162980163652%_))) - (_%hd162981163655%_ + (##cdr _%e163965164637%_))) + (_%hd163966164640%_ (let () (declare (not safe)) - (##car _%e162980163652%_)))) + (##car _%e163965164637%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162982163657%_)) + _%tl163967164642%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162976163641%_)) - (let ((_%e162983163660%_ + _%tl163961164626%_)) + (let ((_%e163968164645%_ (let () (declare (not safe)) (gx#stx-e - _%tl162976163641%_)))) - (let ((_%tl162985163665%_ + _%tl163961164626%_)))) + (let ((_%tl163970164650%_ (let () (declare (not safe)) - (##cdr _%e162983163660%_))) - (_%hd162984163663%_ + (##cdr _%e163968164645%_))) + (_%hd163969164648%_ (let () (declare (not safe)) - (##car _%e162983163660%_)))) + (##car _%e163968164645%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162984163663%_)) - (let ((_%e162986163668%_ + _%hd163969164648%_)) + (let ((_%e163971164653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162984163663%_)))) - (let ((_%tl162988163673%_ + (gx#stx-e _%hd163969164648%_)))) + (let ((_%tl163973164658%_ (let () (declare (not safe)) - (##cdr _%e162986163668%_))) - (_%hd162987163671%_ + (##cdr _%e163971164653%_))) + (_%hd163972164656%_ (let () (declare (not safe)) - (##car _%e162986163668%_)))) + (##car _%e163971164653%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162987163671%_)) + (gx#identifier? _%hd163972164656%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162987163671%_)) + (gx#stx-eq? '%#quote _%hd163972164656%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162988163673%_)) - (let ((_%e162989163676%_ + (gx#stx-pair? _%tl163973164658%_)) + (let ((_%e163974164661%_ (let () (declare (not safe)) - (gx#stx-e _%tl162988163673%_)))) - (let ((_%tl162991163681%_ + (gx#stx-e _%tl163973164658%_)))) + (let ((_%tl163976164666%_ (let () (declare (not safe)) - (##cdr _%e162989163676%_))) - (_%hd162990163679%_ + (##cdr _%e163974164661%_))) + (_%hd163975164664%_ (let () (declare (not safe)) - (##car _%e162989163676%_)))) + (##car _%e163974164661%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162991163681%_)) + (gx#stx-null? _%tl163976164666%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162985163665%_)) - (let ((_%e162992163684%_ + _%tl163970164650%_)) + (let ((_%e163977164669%_ (let () (declare (not safe)) (gx#stx-e - _%tl162985163665%_)))) - (let ((_%tl162994163689%_ + _%tl163970164650%_)))) + (let ((_%tl163979164674%_ (let () (declare (not safe)) - (##cdr _%e162992163684%_))) - (_%hd162993163687%_ + (##cdr _%e163977164669%_))) + (_%hd163978164672%_ (let () (declare (not safe)) - (##car _%e162992163684%_)))) + (##car _%e163977164669%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162993163687%_)) - (let ((_%e162995163692%_ + _%hd163978164672%_)) + (let ((_%e163980164677%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd162993163687%_)))) - (let ((_%tl162997163697%_ - (let () (declare (not safe)) (##cdr _%e162995163692%_))) - (_%hd162996163695%_ + (gx#stx-e _%hd163978164672%_)))) + (let ((_%tl163982164682%_ + (let () (declare (not safe)) (##cdr _%e163980164677%_))) + (_%hd163981164680%_ (let () (declare (not safe)) - (##car _%e162995163692%_)))) + (##car _%e163980164677%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162996163695%_)) + (gx#identifier? _%hd163981164680%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162996163695%_)) + (gx#stx-eq? '%#ref _%hd163981164680%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162997163697%_)) - (let ((_%e162998163700%_ + (gx#stx-pair? _%tl163982164682%_)) + (let ((_%e163983164685%_ (let () (declare (not safe)) - (gx#stx-e _%tl162997163697%_)))) - (let ((_%tl163000163705%_ + (gx#stx-e _%tl163982164682%_)))) + (let ((_%tl163985164690%_ (let () (declare (not safe)) - (##cdr _%e162998163700%_))) - (_%hd162999163703%_ + (##cdr _%e163983164685%_))) + (_%hd163984164688%_ (let () (declare (not safe)) - (##car _%e162998163700%_)))) + (##car _%e163983164685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163000163705%_)) + (gx#stx-null? _%tl163985164690%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162994163689%_)) - (let ((_%e163001163708%_ + (gx#stx-pair? _%tl163979164674%_)) + (let ((_%e163986164693%_ (let () (declare (not safe)) (gx#stx-e - _%tl162994163689%_)))) - (let ((_%tl163003163713%_ + _%tl163979164674%_)))) + (let ((_%tl163988164698%_ (let () (declare (not safe)) - (##cdr _%e163001163708%_))) - (_%hd163002163711%_ + (##cdr _%e163986164693%_))) + (_%hd163987164696%_ (let () (declare (not safe)) - (##car _%e163001163708%_)))) + (##car _%e163986164693%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163002163711%_)) - (let ((_%e163004163716%_ + _%hd163987164696%_)) + (let ((_%e163989164701%_ (let () (declare (not safe)) (gx#stx-e - _%hd163002163711%_)))) - (let ((_%tl163006163721%_ + _%hd163987164696%_)))) + (let ((_%tl163991164706%_ (let () (declare (not safe)) - (##cdr _%e163004163716%_))) - (_%hd163005163719%_ + (##cdr _%e163989164701%_))) + (_%hd163990164704%_ (let () (declare (not safe)) - (##car _%e163004163716%_)))) + (##car _%e163989164701%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd163005163719%_)) + _%hd163990164704%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd163005163719%_)) + (gx#stx-eq? '%#ref _%hd163990164704%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163006163721%_)) - (let ((_%e163007163724%_ + (gx#stx-pair? _%tl163991164706%_)) + (let ((_%e163992164709%_ (let () (declare (not safe)) - (gx#stx-e _%tl163006163721%_)))) - (let ((_%tl163009163729%_ + (gx#stx-e _%tl163991164706%_)))) + (let ((_%tl163994164714%_ (let () (declare (not safe)) - (##cdr _%e163007163724%_))) - (_%hd163008163727%_ + (##cdr _%e163992164709%_))) + (_%hd163993164712%_ (let () (declare (not safe)) - (##car _%e163007163724%_)))) + (##car _%e163992164709%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163009163729%_)) + (gx#stx-null? _%tl163994164714%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163003163713%_)) + (gx#stx-null? _%tl163988164698%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162961163601%_)) - (_%__match169149169150%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_ - _%e162959163596%_ - _%hd162960163599%_ - _%tl162961163601%_ - _%e162962163604%_ - _%hd162963163607%_ - _%tl162964163609%_ - _%e162965163612%_ - _%hd162966163615%_ - _%tl162967163617%_ - _%e162968163620%_ - _%hd162969163623%_ - _%tl162970163625%_ - _%e162971163628%_ - _%hd162972163631%_ - _%tl162973163633%_ - _%e162974163636%_ - _%hd162975163639%_ - _%tl162976163641%_ - _%e162977163644%_ - _%hd162978163647%_ - _%tl162979163649%_ - _%e162980163652%_ - _%hd162981163655%_ - _%tl162982163657%_ - _%e162983163660%_ - _%hd162984163663%_ - _%tl162985163665%_ - _%e162986163668%_ - _%hd162987163671%_ - _%tl162988163673%_ - _%e162989163676%_ - _%hd162990163679%_ - _%tl162991163681%_ - _%e162992163684%_ - _%hd162993163687%_ - _%tl162994163689%_ - _%e162995163692%_ - _%hd162996163695%_ - _%tl162997163697%_ - _%e162998163700%_ - _%hd162999163703%_ - _%tl163000163705%_ - _%e163001163708%_ - _%hd163002163711%_ - _%tl163003163713%_ - _%e163004163716%_ - _%hd163005163719%_ - _%tl163006163721%_ - _%e163007163724%_ - _%hd163008163727%_ - _%tl163009163729%_) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169161169162%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_ - _%e162956163588%_ - _%hd162957163591%_ - _%tl162958163593%_)))) - (_%__match169295169296%_ - _%e162953163580%_ - _%hd162954163583%_ - _%tl162955163585%_)))) - (let () (declare (not safe)) (_%g162945163137%_)))))))) + (_%__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 (_%self162809%_ _%stx162810%_) - (letrec ((_%clause-e162812%_ - (lambda (_%form162935%_) - (let* ((_%signature162937%_ - (gxc#lambda-form-infer-signature _%form162935%_)) - (__obj171135 + (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 ((__tmp171322 - (gxc#lambda-form-arity _%form162935%_)) - (__tmp171321 - (if (gxc#dispatch-lambda-form? _%form162935%_) + (let ((__tmp172307 + (gxc#lambda-form-arity _%form163920%_)) + (__tmp172306 + (if (gxc#dispatch-lambda-form? _%form163920%_) (gxc#dispatch-lambda-form-delegate - _%form162935%_) + _%form163920%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162937%_ - __obj171135 - __tmp171322 - __tmp171321)) - __obj171135))) - (_%return-type-e162813%_ - (lambda (_%clauses162863%_) - (let _%loop162865%_ ((_%rest162867%_ _%clauses162863%_) - (_%result162868%_ '#f)) - (let* ((_%rest162869162877%_ _%rest162867%_) - (_%else162871162885%_ - (lambda () _%result162868%_)) - (_%K162873162923%_ - (lambda (_%rest162888%_ _%clause162889%_) - (let* ((_%clause162891%_ _%clause162889%_) - (_%return162915%_ - (let* ((_%signature162904%_ + _%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 - _%clause162891%_ + _%clause163876%_ '2 '#f '#f))) - (_%signature162906%_ - _%signature162904%_)) - (if _%signature162906%_ + (_%signature163891%_ + _%signature163889%_)) + (if _%signature163891%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162906%_ + _%signature163891%_ '1 '#f '#f)) - (let ((__tmp171323 + (let ((__tmp172308 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162906%_ + _%signature163891%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162810%_ - __tmp171323)) + _%stx163795%_ + __tmp172308)) '#f) '#f))) - (_%result162920%_ - (if (and _%result162868%_ - _%return162915%_) + (_%result163905%_ + (if (and _%result163853%_ + _%return163900%_) (gxc#greatest-common-type - _%stx162810%_ - _%result162868%_ - _%return162915%_) - (let ((_%$e162917%_ - _%result162868%_)) - (if _%$e162917%_ - _%$e162917%_ - _%return162915%_))))) - (_%loop162865%_ - _%rest162888%_ - _%result162920%_))))) - (if (pair? _%rest162869162877%_) - (let ((_%hd162874162926%_ + _%stx163795%_ + _%result163853%_ + _%return163900%_) + (let ((_%$e163902%_ + _%result163853%_)) + (if _%$e163902%_ + _%$e163902%_ + _%return163900%_))))) + (_%loop163850%_ + _%rest163873%_ + _%result163905%_))))) + (if (pair? _%rest163854163862%_) + (let ((_%hd163859163911%_ (let () (declare (not safe)) - (##car _%rest162869162877%_))) - (_%tl162875162928%_ + (##car _%rest163854163862%_))) + (_%tl163860163913%_ (let () (declare (not safe)) - (##cdr _%rest162869162877%_)))) - (let* ((_%clause162931%_ _%hd162874162926%_) - (_%rest162933%_ _%tl162875162928%_)) - (_%K162873162923%_ - _%rest162933%_ - _%clause162931%_))) - (_%else162871162885%_))))))) - (let* ((_%g162815162825%_ - (lambda (_%g162816162822%_) + (##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" - _%g162816162822%_)))) - (_%g162814162860%_ - (lambda (_%g162816162828%_) + _%g163801163807%_)))) + (_%g163799163845%_ + (lambda (_%g163801163813%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162816162828%_)) - (let ((_%e162818162830%_ + (gx#stx-pair? _%g163801163813%_)) + (let ((_%e163803163815%_ (let () (declare (not safe)) - (gx#stx-e _%g162816162828%_)))) - (let ((_%hd162819162833%_ + (gx#stx-e _%g163801163813%_)))) + (let ((_%hd163804163818%_ (let () (declare (not safe)) - (##car _%e162818162830%_))) - (_%tl162820162835%_ + (##car _%e163803163815%_))) + (_%tl163805163820%_ (let () (declare (not safe)) - (##cdr _%e162818162830%_)))) - ((lambda (_%L162838%_) - (let* ((_%clauses162849%_ - (map _%clause-e162812%_ _%L162838%_)) - (_%return162851%_ - (_%return-type-e162813%_ - _%clauses162849%_)) - (__obj171137 + (##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 ((__tmp171324 - (if _%return162851%_ - (let ((_%return-type162853162855%_ + (let ((__tmp172309 + (if _%return163836%_ + (let ((_%return-type163838163840%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return162851%_)))) - (if _%return-type162853162855%_ - (let* ((_%return-type162858%_ - _%return-type162853162855%_) - (__obj171136 + _%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! - __obj171136 - _%return-type162858%_ + __obj172121 + _%return-type163843%_ '1 '#f '#f)) - __obj171136) + __obj172121) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp171324 - __obj171137 - _%clauses162849%_)) - __obj171137)) - _%tl162820162835%_))) - (_%g162815162825%_ _%g162816162828%_))))) - (_%g162814162860%_ _%stx162810%_))))) + __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 (_%self162669%_ _%stx162670%_) - (letrec ((_%type-e162672%_ - (lambda (_%rator162802%_ _%rator-type162803%_ _%args162804%_) - (if (not _%rator-type162803%_) + (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-type162803%_ + _%rator-type163788%_ 'gxc#!procedure::t)) - (let ((__method171138 + (let ((__method172123 (let () (declare (not safe)) (__method-ref - _%rator-type162803%_ + _%rator-type163788%_ 'return-type)))) - (if __method171138 + (if __method172123 (let () (declare (not safe)) - (__method171138 - _%rator-type162803%_ - _%self162669%_ - _%stx162670%_ - _%args162804%_)) + (__method172123 + _%rator-type163788%_ + _%self163654%_ + _%stx163655%_ + _%args163789%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type162803%_ + _%rator-type163788%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx169304169305%_ _%stx162670%_) - (_%g162675162703%_ + (let* ((_%__stx170289170290%_ _%stx163655%_) + (_%g163660163688%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169304169305%_))))) - (let ((_%__kont169306169307%_ - (lambda (_%L162776%_ _%L162777%_) - (let ((_%$e162793%_ - (let ((__tmp171325 + _%__stx170289170290%_))))) + (let ((_%__kont170291170292%_ + (lambda (_%L163761%_ _%L163762%_) + (let ((_%$e163778%_ + (let ((__tmp172310 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162777%_)))) + (gxc#identifier-symbol _%L163762%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp171325)))) - (if _%$e162793%_ - ((lambda (_%type-e162796%_) - (_%type-e162796%_ _%self162669%_ _%stx162670%_)) - _%$e162793%_) - (_%type-e162672%_ - _%L162777%_ - (let ((__tmp171326 + __tmp172310)))) + (if _%$e163778%_ + ((lambda (_%type-e163781%_) + (_%type-e163781%_ _%self163654%_ _%stx163655%_)) + _%$e163778%_) + (_%type-e163657%_ + _%L163762%_ + (let ((__tmp172311 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162777%_)))) + (gxc#identifier-symbol _%L163762%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp171326)) - _%L162776%_))))) - (_%__kont169308169309%_ - (lambda (_%L162724%_ _%L162725%_) - (_%type-e162672%_ - _%L162725%_ - (gxc#apply-basic-expression-type _%L162725%_) - _%L162724%_)))) + (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? _%__stx169304169305%_)) - (let ((_%e162679162744%_ + (gx#stx-pair? _%__stx170289170290%_)) + (let ((_%e163664163729%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169304169305%_)))) - (let ((_%tl162681162749%_ + (gx#stx-e _%__stx170289170290%_)))) + (let ((_%tl163666163734%_ (let () (declare (not safe)) - (##cdr _%e162679162744%_))) - (_%hd162680162747%_ + (##cdr _%e163664163729%_))) + (_%hd163665163732%_ (let () (declare (not safe)) - (##car _%e162679162744%_)))) + (##car _%e163664163729%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162681162749%_)) - (let ((_%e162682162752%_ + (gx#stx-pair? _%tl163666163734%_)) + (let ((_%e163667163737%_ (let () (declare (not safe)) - (gx#stx-e _%tl162681162749%_)))) - (let ((_%tl162684162757%_ + (gx#stx-e _%tl163666163734%_)))) + (let ((_%tl163669163742%_ (let () (declare (not safe)) - (##cdr _%e162682162752%_))) - (_%hd162683162755%_ + (##cdr _%e163667163737%_))) + (_%hd163668163740%_ (let () (declare (not safe)) - (##car _%e162682162752%_)))) + (##car _%e163667163737%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162683162755%_)) - (let ((_%e162685162760%_ + (gx#stx-pair? _%hd163668163740%_)) + (let ((_%e163670163745%_ (let () (declare (not safe)) - (gx#stx-e _%hd162683162755%_)))) - (let ((_%tl162687162765%_ + (gx#stx-e _%hd163668163740%_)))) + (let ((_%tl163672163750%_ (let () (declare (not safe)) - (##cdr _%e162685162760%_))) - (_%hd162686162763%_ + (##cdr _%e163670163745%_))) + (_%hd163671163748%_ (let () (declare (not safe)) - (##car _%e162685162760%_)))) + (##car _%e163670163745%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162686162763%_)) + _%hd163671163748%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162686162763%_)) + _%hd163671163748%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162687162765%_)) - (let ((_%e162688162768%_ + _%tl163672163750%_)) + (let ((_%e163673163753%_ (let () (declare (not safe)) (gx#stx-e - _%tl162687162765%_)))) - (let ((_%tl162690162773%_ + _%tl163672163750%_)))) + (let ((_%tl163675163758%_ (let () (declare (not safe)) - (##cdr _%e162688162768%_))) - (_%hd162689162771%_ + (##cdr _%e163673163753%_))) + (_%hd163674163756%_ (let () (declare (not safe)) - (##car _%e162688162768%_)))) + (##car _%e163673163753%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162690162773%_)) - (_%__kont169306169307%_ - _%tl162684162757%_ - _%hd162689162771%_) - (_%__kont169308169309%_ - _%tl162684162757%_ - _%hd162683162755%_)))) - (_%__kont169308169309%_ - _%tl162684162757%_ - _%hd162683162755%_)) - (_%__kont169308169309%_ - _%tl162684162757%_ - _%hd162683162755%_)) - (_%__kont169308169309%_ - _%tl162684162757%_ - _%hd162683162755%_)))) - (_%__kont169308169309%_ - _%tl162684162757%_ - _%hd162683162755%_)))) - (let () (declare (not safe)) (_%g162675162703%_))))) - (let () (declare (not safe)) (_%g162675162703%_)))))))) + _%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 (_%self154412162651%_ _%ctx162653%_ _%stx162654%_ _%args162655%_) - (let* ((_%self162657%_ _%self154412162651%_) - (_%self162659%_ _%self162657%_)) + (lambda (_%self155397163636%_ _%ctx163638%_ _%stx163639%_ _%args163640%_) + (let* ((_%self163642%_ _%self155397163636%_) + (_%self163644%_ _%self163642%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162659%_ '2 '#f '#f)) - (let ((__tmp171327 - (let ((__tmp171328 + (##unchecked-structure-ref _%self163644%_ '2 '#f '#f)) + (let ((__tmp172312 + (let ((__tmp172313 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162659%_ + _%self163644%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp171328 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp172313 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx162654%_ __tmp171327)) + (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 (_%self154413162383%_ _%ctx162385%_ _%stx162386%_ _%args162387%_) - (let* ((_%self162389%_ _%self154413162383%_) - (_%self162391%_ _%self162389%_)) + (lambda (_%self155398163368%_ _%ctx163370%_ _%stx163371%_ _%args163372%_) + (let* ((_%self163374%_ _%self155398163368%_) + (_%self163376%_ _%self163374%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162391%_ '4 '#f '#f)) - (let ((_%dispatch-type162400162402%_ - (let ((__tmp171329 + (##unchecked-structure-ref _%self163376%_ '4 '#f '#f)) + (let ((_%dispatch-type163385163387%_ + (let ((__tmp172314 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162391%_ + _%self163376%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171329)))) - (if _%dispatch-type162400162402%_ - (let ((_%dispatch-type162405%_ - _%dispatch-type162400162402%_)) + (gxc#optimizer-lookup-type __tmp172314)))) + (if _%dispatch-type163385163387%_ + (let ((_%dispatch-type163390%_ + _%dispatch-type163385163387%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type162405%_ + _%dispatch-type163390%_ 'gxc#!procedure::t)) - (let ((__method171139 + (let ((__method172124 (let () (declare (not safe)) (__method-ref - _%dispatch-type162405%_ + _%dispatch-type163390%_ 'return-type)))) - (if __method171139 + (if __method172124 (let () (declare (not safe)) - (__method171139 - _%dispatch-type162405%_ - _%ctx162385%_ - _%stx162386%_ - _%args162387%_)) + (__method172124 + _%dispatch-type163390%_ + _%ctx163370%_ + _%stx163371%_ + _%args163372%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type162405%_ + _%dispatch-type163390%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self162391%_ - _%ctx162385%_ - _%stx162386%_ - _%args162387%_))))) + _%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 (_%self154414162111%_ _%ctx162113%_ _%stx162114%_ _%args162115%_) - (let* ((_%self162117%_ _%self154414162111%_) - (_%self162119%_ _%self162117%_) - (_%$e162133%_ - (let ((__tmp171331 - (lambda (_%g162128162130%_) + (lambda (_%self155399163096%_ _%ctx163098%_ _%stx163099%_ _%args163100%_) + (let* ((_%self163102%_ _%self155399163096%_) + (_%self163104%_ _%self163102%_) + (_%$e163118%_ + (let ((__tmp172316 + (lambda (_%g163113163115%_) (gxc#!lambda-arity-match? - _%g162128162130%_ - _%args162115%_))) - (__tmp171330 + _%g163113163115%_ + _%args163100%_))) + (__tmp172315 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162119%_ + _%self163104%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp171331 __tmp171330)))) - (if _%$e162133%_ - ((lambda (_%clause162136%_) - (let ((__method171140 + (__find __tmp172316 __tmp172315)))) + (if _%$e163118%_ + ((lambda (_%clause163121%_) + (let ((__method172125 (let () (declare (not safe)) - (__method-ref _%clause162136%_ 'return-type)))) - (if __method171140 + (__method-ref _%clause163121%_ 'return-type)))) + (if __method172125 (let () (declare (not safe)) - (__method171140 - _%clause162136%_ - _%ctx162113%_ - _%stx162114%_ - _%args162115%_)) + (__method172125 + _%clause163121%_ + _%ctx163098%_ + _%stx163099%_ + _%args163100%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause162136%_ + _%clause163121%_ 'return-type)) '#!void)))) - _%$e162133%_) + _%$e163118%_) (gxc#!procedure::return-type - _%self162119%_ - _%ctx162113%_ - _%stx162114%_ - _%args162115%_))))) + _%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 (_%self154415161957%_ _%ctx161959%_ _%stx161960%_ _%args161961%_) - (let* ((_%self161963%_ _%self154415161957%_) - (_%self161965%_ _%self161963%_) - (_%candidates161979%_ - (filter (lambda (_%g161974161976%_) + (lambda (_%self155400162942%_ _%ctx162944%_ _%stx162945%_ _%args162946%_) + (let* ((_%self162948%_ _%self155400162942%_) + (_%self162950%_ _%self162948%_) + (_%candidates162964%_ + (filter (lambda (_%g162959162961%_) (gxc#!lambda-arity-match-apply? - _%g161974161976%_ - _%args161961%_)) + _%g162959162961%_ + _%args162946%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self161965%_ + _%self162950%_ '3 '#f '#f)))) - (_%candidate-types161983%_ - (let ((__tmp171332 - (lambda (_%candidate161981%_) - (let ((__method171141 + (_%candidate-types162968%_ + (let ((__tmp172317 + (lambda (_%candidate162966%_) + (let ((__method172126 (let () (declare (not safe)) (__method-ref - _%candidate161981%_ + _%candidate162966%_ 'apply-return-type)))) - (if __method171141 + (if __method172126 (let () (declare (not safe)) - (__method171141 - _%candidate161981%_ - _%ctx161959%_ - _%stx161960%_ - _%args161961%_)) + (__method172126 + _%candidate162966%_ + _%ctx162944%_ + _%stx162945%_ + _%args162946%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate161981%_ + _%candidate162966%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp171332 _%candidates161979%_)))) - (if (pair? _%candidate-types161983%_) - (let ((__tmp171335 - (lambda (_%candidate-type161986%_ _%ret161987%_) - (if _%ret161987%_ - (if _%candidate-type161986%_ + (##map __tmp172317 _%candidates162964%_)))) + (if (pair? _%candidate-types162968%_) + (let ((__tmp172320 + (lambda (_%candidate-type162971%_ _%ret162972%_) + (if _%ret162972%_ + (if _%candidate-type162971%_ (gxc#greatest-common-type - _%stx161960%_ - _%candidate-type161986%_ - _%ret161987%_) + _%stx162945%_ + _%candidate-type162971%_ + _%ret162972%_) '#f) '#f))) - (__tmp171334 + (__tmp172319 (let () (declare (not safe)) - (##car _%candidate-types161983%_))) - (__tmp171333 + (##car _%candidate-types162968%_))) + (__tmp172318 (let () (declare (not safe)) - (##cdr _%candidate-types161983%_)))) + (##cdr _%candidate-types162968%_)))) (declare (not safe)) - (__foldl1 __tmp171335 __tmp171334 __tmp171333)) + (__foldl1 __tmp172320 __tmp172319 __tmp172318)) (gxc#!procedure::return-type - _%self161965%_ - _%ctx161959%_ - _%stx161960%_ - _%args161961%_))))) + _%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 (_%self154416161761%_ _%ctx161763%_ _%stx161764%_ _%args161765%_) - (let* ((_%self161767%_ _%self154416161761%_) - (_%self161769%_ _%self161767%_) - (_%g161778161789%_ - (let ((__tmp171336 + (lambda (_%self155401162746%_ _%ctx162748%_ _%stx162749%_ _%args162750%_) + (let* ((_%self162752%_ _%self155401162746%_) + (_%self162754%_ _%self162752%_) + (_%g162763162774%_ + (let ((__tmp172321 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161769%_ + _%self162754%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171336))) - (_%E161781161793%_ + (gxc#optimizer-lookup-type __tmp172321))) + (_%E162766162778%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161778161789%_ + _%g162763162774%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161783161816%_ - (lambda (_%main161807%_ _%keys161808%_) - (let ((_%main-type161809161811%_ + (let ((_%K162768162801%_ + (lambda (_%main162792%_ _%keys162793%_) + (let ((_%main-type162794162796%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161807%_)))) - (if _%main-type161809161811%_ - (let* ((_%main-type161814%_ _%main-type161809161811%_) - (__method171142 + (gxc#optimizer-lookup-type _%main162792%_)))) + (if _%main-type162794162796%_ + (let* ((_%main-type162799%_ _%main-type162794162796%_) + (__method172127 (let () (declare (not safe)) (__method-ref - _%main-type161814%_ + _%main-type162799%_ 'return-type)))) - (if __method171142 - (let ((__tmp171337 + (if __method172127 + (let ((__tmp172322 (gxc#extract-keyword-args - _%args161765%_))) + _%args162750%_))) (declare (not safe)) - (__method171142 - _%main-type161814%_ - _%ctx161763%_ - _%stx161764%_ - __tmp171337)) + (__method172127 + _%main-type162799%_ + _%ctx162748%_ + _%stx162749%_ + __tmp172322)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161814%_ + _%main-type162799%_ 'return-type)) '#!void))) '#f)))) - (_%K161782161799%_ - (lambda (_%proc161797%_) - (let ((__method171143 + (_%K162767162784%_ + (lambda (_%proc162782%_) + (let ((__method172128 (let () (declare (not safe)) - (__method-ref _%proc161797%_ 'return-type)))) - (if __method171143 - (let ((__tmp171338 - (gxc#extract-keyword-args _%args161765%_))) + (__method-ref _%proc162782%_ 'return-type)))) + (if __method172128 + (let ((__tmp172323 + (gxc#extract-keyword-args _%args162750%_))) (declare (not safe)) - (__method171143 - _%proc161797%_ - _%proc161797%_ - _%ctx161763%_ - _%stx161764%_ - __tmp171338)) + (__method172128 + _%proc162782%_ + _%proc162782%_ + _%ctx162748%_ + _%stx162749%_ + __tmp172323)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161797%_ + _%proc162782%_ 'return-type)) '#!void)))))) - (let ((_%try-match161780161804%_ + (let ((_%try-match162765162789%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161778161789%_ + _%g162763162774%_ 'gxc#!procedure::t)) - (let ((_%proc161802%_ _%g161778161789%_)) - (_%K161782161799%_ _%proc161802%_)) - (_%E161781161793%_))))) + (let ((_%proc162787%_ _%g162763162774%_)) + (_%K162767162784%_ _%proc162787%_)) + (_%E162766162778%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161778161789%_ + _%g162763162774%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161784161819%_ + (let* ((_%e162769162804%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161778161789%_ + _%g162763162774%_ '1 '#f '#f))) - (_%e161785161822%_ + (_%e162770162807%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161778161789%_ + _%g162763162774%_ '2 '#f '#f))) - (_%e161786161825%_ + (_%e162771162810%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161778161789%_ + _%g162763162774%_ '3 '#f '#f))) - (_%e161787161830%_ + (_%e162772162815%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161778161789%_ + _%g162763162774%_ '4 '#f '#f)))) - (let ((_%keys161828%_ _%e161786161825%_) - (_%main161833%_ _%e161787161830%_)) - (_%K161783161816%_ _%main161833%_ _%keys161828%_))) - (_%try-match161780161804%_))))))) + (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 (_%self154417161565%_ _%ctx161567%_ _%stx161568%_ _%args161569%_) - (let* ((_%self161571%_ _%self154417161565%_) - (_%self161573%_ _%self161571%_) - (_%g161582161593%_ - (let ((__tmp171339 + (lambda (_%self155402162550%_ _%ctx162552%_ _%stx162553%_ _%args162554%_) + (let* ((_%self162556%_ _%self155402162550%_) + (_%self162558%_ _%self162556%_) + (_%g162567162578%_ + (let ((__tmp172324 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161573%_ + _%self162558%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171339))) - (_%E161585161597%_ + (gxc#optimizer-lookup-type __tmp172324))) + (_%E162570162582%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161582161593%_ + _%g162567162578%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161587161620%_ - (lambda (_%main161611%_ _%keys161612%_) - (let ((_%main-type161613161615%_ + (let ((_%K162572162605%_ + (lambda (_%main162596%_ _%keys162597%_) + (let ((_%main-type162598162600%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161611%_)))) - (if _%main-type161613161615%_ - (let* ((_%main-type161618%_ _%main-type161613161615%_) - (__method171144 + (gxc#optimizer-lookup-type _%main162596%_)))) + (if _%main-type162598162600%_ + (let* ((_%main-type162603%_ _%main-type162598162600%_) + (__method172129 (let () (declare (not safe)) (__method-ref - _%main-type161618%_ + _%main-type162603%_ 'apply-return-type)))) - (if __method171144 - (let ((__tmp171340 + (if __method172129 + (let ((__tmp172325 (gxc#extract-keyword-args - _%args161569%_))) + _%args162554%_))) (declare (not safe)) - (__method171144 - _%main-type161618%_ - _%ctx161567%_ - _%stx161568%_ - __tmp171340)) + (__method172129 + _%main-type162603%_ + _%ctx162552%_ + _%stx162553%_ + __tmp172325)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161618%_ + _%main-type162603%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K161586161603%_ - (lambda (_%proc161601%_) - (let ((__method171145 + (_%K162571162588%_ + (lambda (_%proc162586%_) + (let ((__method172130 (let () (declare (not safe)) - (__method-ref _%proc161601%_ 'apply-return-type)))) - (if __method171145 - (let ((__tmp171341 - (gxc#extract-keyword-args _%args161569%_))) + (__method-ref _%proc162586%_ 'apply-return-type)))) + (if __method172130 + (let ((__tmp172326 + (gxc#extract-keyword-args _%args162554%_))) (declare (not safe)) - (__method171145 - _%proc161601%_ - _%proc161601%_ - _%ctx161567%_ - _%stx161568%_ - __tmp171341)) + (__method172130 + _%proc162586%_ + _%proc162586%_ + _%ctx162552%_ + _%stx162553%_ + __tmp172326)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161601%_ + _%proc162586%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match161584161608%_ + (let ((_%try-match162569162593%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161582161593%_ + _%g162567162578%_ 'gxc#!procedure::t)) - (let ((_%proc161606%_ _%g161582161593%_)) - (_%K161586161603%_ _%proc161606%_)) - (_%E161585161597%_))))) + (let ((_%proc162591%_ _%g162567162578%_)) + (_%K162571162588%_ _%proc162591%_)) + (_%E162570162582%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161582161593%_ + _%g162567162578%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161588161623%_ + (let* ((_%e162573162608%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161582161593%_ + _%g162567162578%_ '1 '#f '#f))) - (_%e161589161626%_ + (_%e162574162611%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161582161593%_ + _%g162567162578%_ '2 '#f '#f))) - (_%e161590161629%_ + (_%e162575162614%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161582161593%_ + _%g162567162578%_ '3 '#f '#f))) - (_%e161591161634%_ + (_%e162576162619%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161582161593%_ + _%g162567162578%_ '4 '#f '#f)))) - (let ((_%keys161632%_ _%e161590161629%_) - (_%main161637%_ _%e161591161634%_)) - (_%K161587161620%_ _%main161637%_ _%keys161632%_))) - (_%try-match161584161608%_))))))) + (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 (_%args161314%_) - (let _%loop161316%_ ((_%rest161318%_ _%args161314%_) - (_%result161319%_ '())) - (let* ((_%__stx169384169385%_ _%rest161318%_) - (_%g161323161349%_ + (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" - _%__stx169384169385%_))))) - (let ((_%__kont169386169387%_ - (lambda (_%L161421%_ _%L161422%_ _%L161423%_) - (_%loop161316%_ - _%L161421%_ - (cons _%L161422%_ _%result161319%_)))) - (_%__kont169388169389%_ - (lambda (_%L161369%_ _%L161370%_) - (_%loop161316%_ - _%L161369%_ - (cons _%L161370%_ _%result161319%_)))) - (_%__kont169390169391%_ - (lambda () (reverse! _%result161319%_)))) - (let ((_%__match169421169422%_ - (lambda (_%e161328161389%_ - _%hd161329161392%_ - _%tl161330161394%_ - _%e161331161397%_ - _%hd161332161400%_ - _%tl161333161402%_ - _%e161334161405%_ - _%hd161335161408%_ - _%tl161336161410%_ - _%e161337161413%_ - _%hd161338161416%_ - _%tl161339161418%_) - (let ((_%L161421%_ _%tl161339161418%_) - (_%L161422%_ _%hd161338161416%_) - (_%L161423%_ _%hd161335161408%_)) + _%__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? _%L161423%_)) - (_%__kont169386169387%_ - _%L161421%_ - _%L161422%_ - _%L161423%_) - (_%__kont169388169389%_ - _%tl161330161394%_ - _%hd161329161392%_)))))) + (gx#stx-keyword? _%L162408%_)) + (_%__kont170371170372%_ + _%L162406%_ + _%L162407%_ + _%L162408%_) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169384169385%_)) - (let ((_%e161328161389%_ + (gx#stx-pair? _%__stx170369170370%_)) + (let ((_%e162313162374%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169384169385%_)))) - (let ((_%tl161330161394%_ + (gx#stx-e _%__stx170369170370%_)))) + (let ((_%tl162315162379%_ (let () (declare (not safe)) - (##cdr _%e161328161389%_))) - (_%hd161329161392%_ + (##cdr _%e162313162374%_))) + (_%hd162314162377%_ (let () (declare (not safe)) - (##car _%e161328161389%_)))) + (##car _%e162313162374%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161329161392%_)) - (let ((_%e161331161397%_ + (gx#stx-pair? _%hd162314162377%_)) + (let ((_%e162316162382%_ (let () (declare (not safe)) - (gx#stx-e _%hd161329161392%_)))) - (let ((_%tl161333161402%_ + (gx#stx-e _%hd162314162377%_)))) + (let ((_%tl162318162387%_ (let () (declare (not safe)) - (##cdr _%e161331161397%_))) - (_%hd161332161400%_ + (##cdr _%e162316162382%_))) + (_%hd162317162385%_ (let () (declare (not safe)) - (##car _%e161331161397%_)))) + (##car _%e162316162382%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161332161400%_)) + (gx#identifier? _%hd162317162385%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd161332161400%_)) + _%hd162317162385%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161333161402%_)) - (let ((_%e161334161405%_ + _%tl162318162387%_)) + (let ((_%e162319162390%_ (let () (declare (not safe)) (gx#stx-e - _%tl161333161402%_)))) - (let ((_%tl161336161410%_ + _%tl162318162387%_)))) + (let ((_%tl162321162395%_ (let () (declare (not safe)) - (##cdr _%e161334161405%_))) - (_%hd161335161408%_ + (##cdr _%e162319162390%_))) + (_%hd162320162393%_ (let () (declare (not safe)) - (##car _%e161334161405%_)))) + (##car _%e162319162390%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161336161410%_)) + _%tl162321162395%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161330161394%_)) - (let ((_%e161337161413%_ + _%tl162315162379%_)) + (let ((_%e162322162398%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl161330161394%_)))) - (let ((_%tl161339161418%_ + (gx#stx-e _%tl162315162379%_)))) + (let ((_%tl162324162403%_ (let () (declare (not safe)) - (##cdr _%e161337161413%_))) - (_%hd161338161416%_ + (##cdr _%e162322162398%_))) + (_%hd162323162401%_ (let () (declare (not safe)) - (##car _%e161337161413%_)))) - (_%__match169421169422%_ - _%e161328161389%_ - _%hd161329161392%_ - _%tl161330161394%_ - _%e161331161397%_ - _%hd161332161400%_ - _%tl161333161402%_ - _%e161334161405%_ - _%hd161335161408%_ - _%tl161336161410%_ - _%e161337161413%_ - _%hd161338161416%_ - _%tl161339161418%_))) - (_%__kont169388169389%_ _%tl161330161394%_ _%hd161329161392%_)) + (##car _%e162322162398%_)))) + (_%__match170406170407%_ + _%e162313162374%_ + _%hd162314162377%_ + _%tl162315162379%_ + _%e162316162382%_ + _%hd162317162385%_ + _%tl162318162387%_ + _%e162319162390%_ + _%hd162320162393%_ + _%tl162321162395%_ + _%e162322162398%_ + _%hd162323162401%_ + _%tl162324162403%_))) + (_%__kont170373170374%_ _%tl162315162379%_ _%hd162314162377%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169388169389%_ - _%tl161330161394%_ - _%hd161329161392%_)))) - (_%__kont169388169389%_ - _%tl161330161394%_ - _%hd161329161392%_)) - (_%__kont169388169389%_ - _%tl161330161394%_ - _%hd161329161392%_)) - (_%__kont169388169389%_ - _%tl161330161394%_ - _%hd161329161392%_)))) - (_%__kont169388169389%_ - _%tl161330161394%_ - _%hd161329161392%_)))) - (_%__kont169390169391%_)))))))) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))) + (_%__kont170375170376%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self161246%_ _%args161247%_) - (let* ((_%self161248161256%_ _%self161246%_) - (_%E161250161260%_ + (lambda (_%self162231%_ _%args162232%_) + (let* ((_%self162233162241%_ _%self162231%_) + (_%E162235162245%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self161248161256%_ + _%self162233162241%_ '((!lambda _ _ arity)))) '#!void)) - (_%K161251161300%_ - (lambda (_%arity161263%_) - (let* ((_%arity161264161273%_ _%arity161263%_) - (_%E161267161277%_ + (_%K162236162285%_ + (lambda (_%arity162248%_) + (let* ((_%arity162249162258%_ _%arity162248%_) + (_%E162252162262%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity161264161273%_ + _%arity162249162258%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K161271161297%_ + (let ((_%K162256162282%_ (lambda () - (fx= (length _%args161247%_) _%arity161263%_))) - (_%K161268161283%_ - (lambda (_%arity161281%_) - (fx>= (length _%args161247%_) _%arity161281%_)))) - (let* ((_%__match169440169441%_ - (lambda (_%hd161269161286%_ _%tl161270161288%_) - (let ((_%arity161291%_ _%hd161269161286%_)) - (_%E161267161277%_)))) - (_%try-match161266161293%_ + (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? _%arity161264161273%_) - (let ((_%tl161270161288%_ + (if (pair? _%arity162249162258%_) + (let ((_%tl162255162273%_ (let () (declare (not safe)) - (##cdr _%arity161264161273%_))) - (_%hd161269161286%_ + (##cdr _%arity162249162258%_))) + (_%hd162254162271%_ (let () (declare (not safe)) - (##car _%arity161264161273%_)))) - (if (null? _%tl161270161288%_) - (let ((_%arity161291%_ - _%hd161269161286%_)) - (_%K161268161283%_ - _%arity161291%_)) - (_%__match169440169441%_ - _%hd161269161286%_ - _%tl161270161288%_))) - (_%E161267161277%_))))) - (if (fixnum? _%arity161264161273%_) - (_%K161271161297%_) - (_%try-match161266161293%_)))))))) + (##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? - _%self161248161256%_ + _%self162233162241%_ 'gxc#!lambda::t)) - (let* ((_%e161252161303%_ + (let* ((_%e162237162288%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161248161256%_ + _%self162233162241%_ '1 '#f '#f))) - (_%e161253161306%_ + (_%e162238162291%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161248161256%_ + _%self162233162241%_ '2 '#f '#f))) - (_%e161254161309%_ + (_%e162239162294%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161248161256%_ + _%self162233162241%_ '3 '#f '#f))) - (_%arity161312%_ _%e161254161309%_)) - (_%K161251161300%_ _%arity161312%_)) - (_%E161250161260%_))))) + (_%arity162297%_ _%e162239162294%_)) + (_%K162236162285%_ _%arity162297%_)) + (_%E162235162245%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self161178%_ _%args161179%_) - (let* ((_%self161180161188%_ _%self161178%_) - (_%E161182161192%_ + (lambda (_%self162163%_ _%args162164%_) + (let* ((_%self162165162173%_ _%self162163%_) + (_%E162167162177%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self161180161188%_ + _%self162165162173%_ '((!lambda _ _ arity)))) '#!void)) - (_%K161183161232%_ - (lambda (_%arity161195%_) - (let* ((_%arity161196161205%_ _%arity161195%_) - (_%E161199161209%_ + (_%K162168162217%_ + (lambda (_%arity162180%_) + (let* ((_%arity162181162190%_ _%arity162180%_) + (_%E162184162194%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity161196161205%_ + _%arity162181162190%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K161203161229%_ + (let ((_%K162188162214%_ (lambda () - (let ((__tmp171342 (length _%args161179%_))) + (let ((__tmp172327 (length _%args162164%_))) (declare (not safe)) - (##fx>= _%arity161195%_ __tmp171342)))) - (_%K161200161215%_ (lambda (_%arity161213%_) '#t))) - (let* ((_%__match169453169454%_ - (lambda (_%hd161201161218%_ _%tl161202161220%_) - (let ((_%arity161223%_ _%hd161201161218%_)) - (_%E161199161209%_)))) - (_%try-match161198161225%_ + (##fx>= _%arity162180%_ __tmp172327)))) + (_%K162185162200%_ (lambda (_%arity162198%_) '#t))) + (let* ((_%__match170438170439%_ + (lambda (_%hd162186162203%_ _%tl162187162205%_) + (let ((_%arity162208%_ _%hd162186162203%_)) + (_%E162184162194%_)))) + (_%try-match162183162210%_ (lambda () - (if (pair? _%arity161196161205%_) - (let ((_%tl161202161220%_ + (if (pair? _%arity162181162190%_) + (let ((_%tl162187162205%_ (let () (declare (not safe)) - (##cdr _%arity161196161205%_))) - (_%hd161201161218%_ + (##cdr _%arity162181162190%_))) + (_%hd162186162203%_ (let () (declare (not safe)) - (##car _%arity161196161205%_)))) - (if (null? _%tl161202161220%_) - (let ((_%arity161223%_ - _%hd161201161218%_)) - (_%K161200161215%_ - _%arity161223%_)) - (_%__match169453169454%_ - _%hd161201161218%_ - _%tl161202161220%_))) - (_%E161199161209%_))))) - (if (fixnum? _%arity161196161205%_) - (_%K161203161229%_) - (_%try-match161198161225%_)))))))) + (##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? - _%self161180161188%_ + _%self162165162173%_ 'gxc#!lambda::t)) - (let* ((_%e161184161235%_ + (let* ((_%e162169162220%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161180161188%_ + _%self162165162173%_ '1 '#f '#f))) - (_%e161185161238%_ + (_%e162170162223%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161180161188%_ + _%self162165162173%_ '2 '#f '#f))) - (_%e161186161241%_ + (_%e162171162226%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161180161188%_ + _%self162165162173%_ '3 '#f '#f))) - (_%arity161244%_ _%e161186161241%_)) - (_%K161183161232%_ _%arity161244%_)) - (_%E161182161192%_))))) + (_%arity162229%_ _%e162171162226%_)) + (_%K162168162217%_ _%arity162229%_)) + (_%E162167162177%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx161065%_ _%stx161066%_) - (let* ((_%g161068161094%_ - (lambda (_%g161069161091%_) + (lambda (_%ctx162050%_ _%stx162051%_) + (let* ((_%g162053162079%_ + (lambda (_%g162054162076%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161069161091%_)))) - (_%g161067161175%_ - (lambda (_%g161069161097%_) + _%g162054162076%_)))) + (_%g162052162160%_ + (lambda (_%g162054162082%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161069161097%_)) - (let ((_%e161072161099%_ + (gx#stx-pair? _%g162054162082%_)) + (let ((_%e162057162084%_ (let () (declare (not safe)) - (gx#stx-e _%g161069161097%_)))) - (let ((_%hd161073161102%_ + (gx#stx-e _%g162054162082%_)))) + (let ((_%hd162058162087%_ (let () (declare (not safe)) - (##car _%e161072161099%_))) - (_%tl161074161104%_ + (##car _%e162057162084%_))) + (_%tl162059162089%_ (let () (declare (not safe)) - (##cdr _%e161072161099%_)))) + (##cdr _%e162057162084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161074161104%_)) - (let ((_%e161075161107%_ + (gx#stx-pair? _%tl162059162089%_)) + (let ((_%e162060162092%_ (let () (declare (not safe)) - (gx#stx-e _%tl161074161104%_)))) - (let ((_%hd161076161110%_ + (gx#stx-e _%tl162059162089%_)))) + (let ((_%hd162061162095%_ (let () (declare (not safe)) - (##car _%e161075161107%_))) - (_%tl161077161112%_ + (##car _%e162060162092%_))) + (_%tl162062162097%_ (let () (declare (not safe)) - (##cdr _%e161075161107%_)))) + (##cdr _%e162060162092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161077161112%_)) - (let ((_%e161078161115%_ + (gx#stx-pair? _%tl162062162097%_)) + (let ((_%e162063162100%_ (let () (declare (not safe)) - (gx#stx-e _%tl161077161112%_)))) - (let ((_%hd161079161118%_ + (gx#stx-e _%tl162062162097%_)))) + (let ((_%hd162064162103%_ (let () (declare (not safe)) - (##car _%e161078161115%_))) - (_%tl161080161120%_ + (##car _%e162063162100%_))) + (_%tl162065162105%_ (let () (declare (not safe)) - (##cdr _%e161078161115%_)))) + (##cdr _%e162063162100%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161079161118%_)) - (let ((_%e161081161123%_ + _%hd162064162103%_)) + (let ((_%e162066162108%_ (let () (declare (not safe)) (gx#stx-e - _%hd161079161118%_)))) - (let ((_%hd161082161126%_ + _%hd162064162103%_)))) + (let ((_%hd162067162111%_ (let () (declare (not safe)) - (##car _%e161081161123%_))) - (_%tl161083161128%_ + (##car _%e162066162108%_))) + (_%tl162068162113%_ (let () (declare (not safe)) - (##cdr _%e161081161123%_)))) + (##cdr _%e162066162108%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161082161126%_)) + _%hd162067162111%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd161082161126%_)) + _%hd162067162111%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl161083161128%_)) - (let ((_%e161084161131%_ + (gx#stx-pair? _%tl162068162113%_)) + (let ((_%e162069162116%_ (let () (declare (not safe)) - (gx#stx-e _%tl161083161128%_)))) - (let ((_%hd161085161134%_ + (gx#stx-e _%tl162068162113%_)))) + (let ((_%hd162070162119%_ (let () (declare (not safe)) - (##car _%e161084161131%_))) - (_%tl161086161136%_ + (##car _%e162069162116%_))) + (_%tl162071162121%_ (let () (declare (not safe)) - (##cdr _%e161084161131%_)))) + (##cdr _%e162069162116%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161086161136%_)) + (gx#stx-null? _%tl162071162121%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161080161120%_)) - (let ((_%e161087161139%_ + (gx#stx-pair? _%tl162065162105%_)) + (let ((_%e162072162124%_ (let () (declare (not safe)) - (gx#stx-e _%tl161080161120%_)))) - (let ((_%hd161088161142%_ + (gx#stx-e _%tl162065162105%_)))) + (let ((_%hd162073162127%_ (let () (declare (not safe)) - (##car _%e161087161139%_))) - (_%tl161089161144%_ + (##car _%e162072162124%_))) + (_%tl162074162129%_ (let () (declare (not safe)) - (##cdr _%e161087161139%_)))) + (##cdr _%e162072162124%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161089161144%_)) - ((lambda (_%L161147%_ _%L161148%_) - (let ((_%interface-type161168161170%_ - (let ((__tmp171343 + (gx#stx-null? _%tl162074162129%_)) + ((lambda (_%L162132%_ _%L162133%_) + (let ((_%interface-type162153162155%_ + (let ((__tmp172328 (let () (declare (not safe)) (gxc#identifier-symbol - _%L161148%_)))) + _%L162133%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171343)))) - (if _%interface-type161168161170%_ - (let ((_%interface-type161173%_ - _%interface-type161168161170%_)) + __tmp172328)))) + (if _%interface-type162153162155%_ + (let ((_%interface-type162158%_ + _%interface-type162153162155%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type161173%_ + _%interface-type162158%_ 'gxc#!interface::t)) - (let ((__tmp171344 + (let ((__tmp172329 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type161173%_ + _%interface-type162158%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx161066%_ __tmp171344)) + (gxc#optimizer-resolve-class _%stx162051%_ __tmp172329)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx161066%_ - _%L161148%_ - _%interface-type161173%_)))) + _%stx162051%_ + _%L162133%_ + _%interface-type162158%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd161088161142%_ - _%hd161085161134%_) - (_%g161068161094%_ - _%g161069161097%_)))) - (_%g161068161094%_ _%g161069161097%_)) - (_%g161068161094%_ _%g161069161097%_)))) - (_%g161068161094%_ _%g161069161097%_)) - (_%g161068161094%_ _%g161069161097%_)) - (_%g161068161094%_ _%g161069161097%_)))) + _%hd162073162127%_ + _%hd162070162119%_) + (_%g162053162079%_ + _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)) + (_%g162053162079%_ _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)) + (_%g162053162079%_ _%g162054162082%_)) + (_%g162053162079%_ _%g162054162082%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g161068161094%_ - _%g161069161097%_)))) - (_%g161068161094%_ _%g161069161097%_)))) - (_%g161068161094%_ _%g161069161097%_)))) - (_%g161068161094%_ _%g161069161097%_))))) - (_%g161067161175%_ _%stx161066%_)))) + (_%g162053162079%_ + _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_))))) + (_%g162052162160%_ _%stx162051%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx160855%_ _%stx160856%_) - (letrec ((_%type-e160858%_ - (lambda (_%rator161061%_ _%rator-type161062%_ _%args161063%_) + (lambda (_%ctx161840%_ _%stx161841%_) + (letrec ((_%type-e161843%_ + (lambda (_%rator162046%_ _%rator-type162047%_ _%args162048%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type161062%_ + _%rator-type162047%_ 'gxc#!procedure::t)) - (let ((__method171146 + (let ((__method172131 (let () (declare (not safe)) (__method-ref - _%rator-type161062%_ + _%rator-type162047%_ 'apply-return-type)))) - (if __method171146 + (if __method172131 (let () (declare (not safe)) - (__method171146 - _%rator-type161062%_ - _%ctx160855%_ - _%stx160856%_ - _%args161063%_)) + (__method172131 + _%rator-type162047%_ + _%ctx161840%_ + _%stx161841%_ + _%args162048%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type161062%_ + _%rator-type162047%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx169456169457%_ _%stx160856%_) - (_%g160862160904%_ + (let* ((_%__stx170441170442%_ _%stx161841%_) + (_%g161847161889%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169456169457%_))))) - (let ((_%__kont169458169459%_ - (lambda (_%L161025%_ _%L161026%_ _%L161027%_ _%L161028%_) - (let ((_%rator-type161051161053%_ - (gxc#apply-basic-expression-type _%L161026%_))) - (if _%rator-type161051161053%_ - (let ((_%rator-type161056%_ - _%rator-type161051161053%_)) - (_%type-e160858%_ - _%L161026%_ - _%rator-type161056%_ - (cons _%L161027%_ _%L161025%_))) + _%__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)))) - (_%__kont169460169461%_ - (lambda (_%L160940%_ _%L160941%_) - (let ((_%rator-type160957160959%_ - (gxc#apply-basic-expression-type _%L160941%_))) - (if _%rator-type160957160959%_ - (let ((_%rator-type160962%_ - _%rator-type160957160959%_)) - (_%type-e160858%_ - _%L160941%_ - _%rator-type160962%_ - _%L160940%_)) + (_%__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)))) - (_%__kont169462169463%_ (lambda () '#f))) - (let ((_%__match169511169512%_ - (lambda (_%e160868160969%_ - _%hd160869160972%_ - _%tl160870160974%_ - _%e160871160977%_ - _%hd160872160980%_ - _%tl160873160982%_ - _%e160874160985%_ - _%hd160875160988%_ - _%tl160876160990%_ - _%e160877160993%_ - _%hd160878160996%_ - _%tl160879160998%_ - _%e160880161001%_ - _%hd160881161004%_ - _%tl160882161006%_ - _%e160883161009%_ - _%hd160884161012%_ - _%tl160885161014%_ - _%e160886161017%_ - _%hd160887161020%_ - _%tl160888161022%_) - (let ((_%L161025%_ _%tl160888161022%_) - (_%L161026%_ _%hd160887161020%_) - (_%L161027%_ _%hd160884161012%_) - (_%L161028%_ _%hd160881161004%_)) + (_%__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=? - _%L161028%_ + _%L162013%_ 'keyword-dispatch)) - (_%__kont169458169459%_ - _%L161025%_ - _%L161026%_ - _%L161027%_ - _%L161028%_) - (_%__kont169460169461%_ - _%tl160876160990%_ - _%hd160875160988%_)))))) + (_%__kont170443170444%_ + _%L162010%_ + _%L162011%_ + _%L162012%_ + _%L162013%_) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169456169457%_)) - (let ((_%e160868160969%_ + (gx#stx-pair? _%__stx170441170442%_)) + (let ((_%e161853161954%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169456169457%_)))) - (let ((_%tl160870160974%_ + (gx#stx-e _%__stx170441170442%_)))) + (let ((_%tl161855161959%_ (let () (declare (not safe)) - (##cdr _%e160868160969%_))) - (_%hd160869160972%_ + (##cdr _%e161853161954%_))) + (_%hd161854161957%_ (let () (declare (not safe)) - (##car _%e160868160969%_)))) + (##car _%e161853161954%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160870160974%_)) - (let ((_%e160871160977%_ + (gx#stx-pair? _%tl161855161959%_)) + (let ((_%e161856161962%_ (let () (declare (not safe)) - (gx#stx-e _%tl160870160974%_)))) - (let ((_%tl160873160982%_ + (gx#stx-e _%tl161855161959%_)))) + (let ((_%tl161858161967%_ (let () (declare (not safe)) - (##cdr _%e160871160977%_))) - (_%hd160872160980%_ + (##cdr _%e161856161962%_))) + (_%hd161857161965%_ (let () (declare (not safe)) - (##car _%e160871160977%_)))) + (##car _%e161856161962%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160873160982%_)) - (let ((_%e160874160985%_ + (gx#stx-pair? _%tl161858161967%_)) + (let ((_%e161859161970%_ (let () (declare (not safe)) - (gx#stx-e _%tl160873160982%_)))) - (let ((_%tl160876160990%_ + (gx#stx-e _%tl161858161967%_)))) + (let ((_%tl161861161975%_ (let () (declare (not safe)) - (##cdr _%e160874160985%_))) - (_%hd160875160988%_ + (##cdr _%e161859161970%_))) + (_%hd161860161973%_ (let () (declare (not safe)) - (##car _%e160874160985%_)))) + (##car _%e161859161970%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160875160988%_)) - (let ((_%e160877160993%_ + _%hd161860161973%_)) + (let ((_%e161862161978%_ (let () (declare (not safe)) (gx#stx-e - _%hd160875160988%_)))) - (let ((_%tl160879160998%_ + _%hd161860161973%_)))) + (let ((_%tl161864161983%_ (let () (declare (not safe)) - (##cdr _%e160877160993%_))) - (_%hd160878160996%_ + (##cdr _%e161862161978%_))) + (_%hd161863161981%_ (let () (declare (not safe)) - (##car _%e160877160993%_)))) + (##car _%e161862161978%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160878160996%_)) + _%hd161863161981%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160878160996%_)) + _%hd161863161981%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160879160998%_)) - (let ((_%e160880161001%_ + _%tl161864161983%_)) + (let ((_%e161865161986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl160879160998%_)))) - (let ((_%tl160882161006%_ + (gx#stx-e _%tl161864161983%_)))) + (let ((_%tl161867161991%_ (let () (declare (not safe)) - (##cdr _%e160880161001%_))) - (_%hd160881161004%_ + (##cdr _%e161865161986%_))) + (_%hd161866161989%_ (let () (declare (not safe)) - (##car _%e160880161001%_)))) + (##car _%e161865161986%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160882161006%_)) + (gx#stx-null? _%tl161867161991%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160876160990%_)) - (let ((_%e160883161009%_ + (gx#stx-pair? _%tl161861161975%_)) + (let ((_%e161868161994%_ (let () (declare (not safe)) - (gx#stx-e _%tl160876160990%_)))) - (let ((_%tl160885161014%_ + (gx#stx-e _%tl161861161975%_)))) + (let ((_%tl161870161999%_ (let () (declare (not safe)) - (##cdr _%e160883161009%_))) - (_%hd160884161012%_ + (##cdr _%e161868161994%_))) + (_%hd161869161997%_ (let () (declare (not safe)) - (##car _%e160883161009%_)))) + (##car _%e161868161994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160885161014%_)) - (let ((_%e160886161017%_ + (gx#stx-pair? _%tl161870161999%_)) + (let ((_%e161871162002%_ (let () (declare (not safe)) (gx#stx-e - _%tl160885161014%_)))) - (let ((_%tl160888161022%_ + _%tl161870161999%_)))) + (let ((_%tl161873162007%_ (let () (declare (not safe)) - (##cdr _%e160886161017%_))) - (_%hd160887161020%_ + (##cdr _%e161871162002%_))) + (_%hd161872162005%_ (let () (declare (not safe)) - (##car _%e160886161017%_)))) - (_%__match169511169512%_ - _%e160868160969%_ - _%hd160869160972%_ - _%tl160870160974%_ - _%e160871160977%_ - _%hd160872160980%_ - _%tl160873160982%_ - _%e160874160985%_ - _%hd160875160988%_ - _%tl160876160990%_ - _%e160877160993%_ - _%hd160878160996%_ - _%tl160879160998%_ - _%e160880161001%_ - _%hd160881161004%_ - _%tl160882161006%_ - _%e160883161009%_ - _%hd160884161012%_ - _%tl160885161014%_ - _%e160886161017%_ - _%hd160887161020%_ - _%tl160888161022%_))) - (_%__kont169460169461%_ - _%tl160876160990%_ - _%hd160875160988%_)))) - (_%__kont169460169461%_ - _%tl160876160990%_ - _%hd160875160988%_)) - (_%__kont169460169461%_ - _%tl160876160990%_ - _%hd160875160988%_)))) - (_%__kont169460169461%_ - _%tl160876160990%_ - _%hd160875160988%_)) - (_%__kont169460169461%_ _%tl160876160990%_ _%hd160875160988%_)) + (##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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169460169461%_ - _%tl160876160990%_ - _%hd160875160988%_)))) - (_%__kont169460169461%_ - _%tl160876160990%_ - _%hd160875160988%_)))) - (_%__kont169462169463%_)))) - (_%__kont169462169463%_)))) - (_%__kont169462169463%_)))))))) + (_%__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 (_%self160803%_ _%stx160804%_) - (let* ((_%g160806160819%_ - (lambda (_%g160807160816%_) + (lambda (_%self161788%_ _%stx161789%_) + (let* ((_%g161791161804%_ + (lambda (_%g161792161801%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160807160816%_)))) - (_%g160805160852%_ - (lambda (_%g160807160822%_) + _%g161792161801%_)))) + (_%g161790161837%_ + (lambda (_%g161792161807%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160807160822%_)) - (let ((_%e160809160824%_ + (gx#stx-pair? _%g161792161807%_)) + (let ((_%e161794161809%_ (let () (declare (not safe)) - (gx#stx-e _%g160807160822%_)))) - (let ((_%hd160810160827%_ + (gx#stx-e _%g161792161807%_)))) + (let ((_%hd161795161812%_ (let () (declare (not safe)) - (##car _%e160809160824%_))) - (_%tl160811160829%_ + (##car _%e161794161809%_))) + (_%tl161796161814%_ (let () (declare (not safe)) - (##cdr _%e160809160824%_)))) + (##cdr _%e161794161809%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160811160829%_)) - (let ((_%e160812160832%_ + (gx#stx-pair? _%tl161796161814%_)) + (let ((_%e161797161817%_ (let () (declare (not safe)) - (gx#stx-e _%tl160811160829%_)))) - (let ((_%hd160813160835%_ + (gx#stx-e _%tl161796161814%_)))) + (let ((_%hd161798161820%_ (let () (declare (not safe)) - (##car _%e160812160832%_))) - (_%tl160814160837%_ + (##car _%e161797161817%_))) + (_%tl161799161822%_ (let () (declare (not safe)) - (##cdr _%e160812160832%_)))) + (##cdr _%e161797161817%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160814160837%_)) - ((lambda (_%L160840%_) - (let ((__tmp171345 + (gx#stx-null? _%tl161799161822%_)) + ((lambda (_%L161825%_) + (let ((__tmp172330 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160840%_)))) + _%L161825%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171345))) - _%hd160813160835%_) - (_%g160806160819%_ _%g160807160822%_)))) - (_%g160806160819%_ _%g160807160822%_)))) - (_%g160806160819%_ _%g160807160822%_))))) - (_%g160805160852%_ _%stx160804%_)))) + __tmp172330))) + _%hd161798161820%_) + (_%g161791161804%_ _%g161792161807%_)))) + (_%g161791161804%_ _%g161792161807%_)))) + (_%g161791161804%_ _%g161792161807%_))))) + (_%g161790161837%_ _%stx161789%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self160382%_ _%stx160383%_) - (letrec ((_%type-e160385%_ - (lambda (_%type-K160797%_ _%type-E160798%_) + (lambda (_%self161367%_ _%stx161368%_) + (letrec ((_%type-e161370%_ + (lambda (_%type-K161782%_ _%type-E161783%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E160798%_ + _%type-E161783%_ 'gxc#!abort::t)) - _%type-K160797%_ + _%type-K161782%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K160797%_ + _%type-K161782%_ 'gxc#!abort::t)) - _%type-E160798%_ + _%type-E161783%_ (gxc#greatest-common-type - _%stx160383%_ - _%type-K160797%_ - _%type-E160798%_))))) - (_%basic-type-e160386%_ - (lambda (_%K160791%_ _%E160792%_) - (let ((_%type-K160794%_ - (gxc#apply-basic-expression-type _%K160791%_)) - (_%type-E160795%_ - (gxc#apply-basic-expression-type _%E160792%_))) - (_%type-e160385%_ _%type-K160794%_ _%type-E160795%_))))) - (let* ((_%__stx169532169533%_ _%stx160383%_) - (_%g160390160479%_ + _%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" - _%__stx169532169533%_))))) - (let ((_%__kont169534169535%_ - (lambda (_%L160738%_ _%L160739%_ _%L160740%_ _%L160741%_) - (let ((_%$e160773%_ - (let ((__tmp171346 + _%__stx170517170518%_))))) + (let ((_%__kont170519170520%_ + (lambda (_%L161723%_ _%L161724%_ _%L161725%_ _%L161726%_) + (let ((_%$e161758%_ + (let ((__tmp172331 (let () (declare (not safe)) - (gxc#identifier-symbol _%L160741%_)))) + (gxc#identifier-symbol _%L161726%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171346)))) - (if _%$e160773%_ - ((lambda (_%pred-type160776%_) + (gxc#optimizer-lookup-type __tmp172331)))) + (if _%$e161758%_ + ((lambda (_%pred-type161761%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160776%_ + _%pred-type161761%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160776%_ + _%pred-type161761%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K160782%_ - (let ((__tmp171349 + (let* ((_%type-K161767%_ + (let ((__tmp172334 (lambda () (gxc#apply-basic-expression-type - _%L160739%_))) - (__tmp171347 + _%L161724%_))) + (__tmp172332 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L160740%_)) - (let ((__tmp171348 + (gxc#identifier-symbol _%L161725%_)) + (let ((__tmp172333 (##structure-ref - _%pred-type160776%_ + _%pred-type161761%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160383%_ - __tmp171348))) + _%stx161368%_ + __tmp172333))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp171349 + __tmp172334 gxc#current-compile-path-type - __tmp171347))) - (_%type-E160784%_ + __tmp172332))) + (_%type-E161769%_ (gxc#apply-basic-expression-type - _%L160738%_))) - (_%type-e160385%_ - _%type-K160782%_ - _%type-E160784%_)) - (_%basic-type-e160386%_ - _%L160739%_ - _%L160738%_))) - _%$e160773%_) - (_%basic-type-e160386%_ _%L160739%_ _%L160738%_))))) - (_%__kont169536169537%_ - (lambda (_%L160614%_ _%L160615%_ _%L160616%_ _%L160617%_) + _%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% - _%self160382%_ - (let ((__tmp171350 + _%self161367%_ + (let ((__tmp172335 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L160616%_ - (cons _%L160614%_ - (cons _%L160615%_ '())))))) + (cons _%L161601%_ + (cons _%L161599%_ + (cons _%L161600%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171350 _%stx160383%_))))) - (_%__kont169538169539%_ - (lambda (_%L160516%_ _%L160517%_ _%L160518%_) - (_%basic-type-e160386%_ _%L160517%_ _%L160516%_)))) - (let ((_%__match169693169694%_ - (lambda (_%e160433160542%_ - _%hd160434160545%_ - _%tl160435160547%_ - _%e160436160550%_ - _%hd160437160553%_ - _%tl160438160555%_ - _%e160439160558%_ - _%hd160440160561%_ - _%tl160441160563%_ - _%e160442160566%_ - _%hd160443160569%_ - _%tl160444160571%_ - _%e160445160574%_ - _%hd160446160577%_ - _%tl160447160579%_ - _%e160448160582%_ - _%hd160449160585%_ - _%tl160450160587%_ - _%e160451160590%_ - _%hd160452160593%_ - _%tl160453160595%_ - _%e160454160598%_ - _%hd160455160601%_ - _%tl160456160603%_ - _%e160457160606%_ - _%hd160458160609%_ - _%tl160459160611%_) - (let ((_%L160614%_ _%hd160458160609%_) - (_%L160615%_ _%hd160455160601%_) - (_%L160616%_ _%hd160452160593%_) - (_%L160617%_ _%hd160449160585%_)) + (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=? _%L160617%_ 'not)) - (_%__kont169536169537%_ - _%L160614%_ - _%L160615%_ - _%L160616%_ - _%L160617%_) - (_%__kont169538169539%_ - _%hd160458160609%_ - _%hd160455160601%_ - _%hd160437160553%_)))))) + (gxc#runtime-identifier=? _%L161602%_ 'not)) + (_%__kont170521170522%_ + _%L161599%_ + _%L161600%_ + _%L161601%_ + _%L161602%_) + (_%__kont170523170524%_ + _%hd161443161594%_ + _%hd161440161586%_ + _%hd161422161538%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169532169533%_)) - (let ((_%e160396160650%_ + (gx#stx-pair? _%__stx170517170518%_)) + (let ((_%e161381161635%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169532169533%_)))) - (let ((_%tl160398160655%_ + (gx#stx-e _%__stx170517170518%_)))) + (let ((_%tl161383161640%_ (let () (declare (not safe)) - (##cdr _%e160396160650%_))) - (_%hd160397160653%_ + (##cdr _%e161381161635%_))) + (_%hd161382161638%_ (let () (declare (not safe)) - (##car _%e160396160650%_)))) + (##car _%e161381161635%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160398160655%_)) - (let ((_%e160399160658%_ + (gx#stx-pair? _%tl161383161640%_)) + (let ((_%e161384161643%_ (let () (declare (not safe)) - (gx#stx-e _%tl160398160655%_)))) - (let ((_%tl160401160663%_ + (gx#stx-e _%tl161383161640%_)))) + (let ((_%tl161386161648%_ (let () (declare (not safe)) - (##cdr _%e160399160658%_))) - (_%hd160400160661%_ + (##cdr _%e161384161643%_))) + (_%hd161385161646%_ (let () (declare (not safe)) - (##car _%e160399160658%_)))) + (##car _%e161384161643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160400160661%_)) - (let ((_%e160402160666%_ + (gx#stx-pair? _%hd161385161646%_)) + (let ((_%e161387161651%_ (let () (declare (not safe)) - (gx#stx-e _%hd160400160661%_)))) - (let ((_%tl160404160671%_ + (gx#stx-e _%hd161385161646%_)))) + (let ((_%tl161389161656%_ (let () (declare (not safe)) - (##cdr _%e160402160666%_))) - (_%hd160403160669%_ + (##cdr _%e161387161651%_))) + (_%hd161388161654%_ (let () (declare (not safe)) - (##car _%e160402160666%_)))) + (##car _%e161387161651%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160403160669%_)) + _%hd161388161654%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd160403160669%_)) + _%hd161388161654%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160404160671%_)) - (let ((_%e160405160674%_ + _%tl161389161656%_)) + (let ((_%e161390161659%_ (let () (declare (not safe)) (gx#stx-e - _%tl160404160671%_)))) - (let ((_%tl160407160679%_ + _%tl161389161656%_)))) + (let ((_%tl161392161664%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160405160674%_))) - (_%hd160406160677%_ - (let () (declare (not safe)) (##car _%e160405160674%_)))) + (##cdr _%e161390161659%_))) + (_%hd161391161662%_ + (let () (declare (not safe)) (##car _%e161390161659%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160406160677%_)) - (let ((_%e160408160682%_ + (gx#stx-pair? _%hd161391161662%_)) + (let ((_%e161393161667%_ (let () (declare (not safe)) - (gx#stx-e _%hd160406160677%_)))) - (let ((_%tl160410160687%_ + (gx#stx-e _%hd161391161662%_)))) + (let ((_%tl161395161672%_ (let () (declare (not safe)) - (##cdr _%e160408160682%_))) - (_%hd160409160685%_ + (##cdr _%e161393161667%_))) + (_%hd161394161670%_ (let () (declare (not safe)) - (##car _%e160408160682%_)))) + (##car _%e161393161667%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160409160685%_)) + (gx#identifier? _%hd161394161670%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160409160685%_)) + (gx#stx-eq? '%#ref _%hd161394161670%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160410160687%_)) - (let ((_%e160411160690%_ + (gx#stx-pair? _%tl161395161672%_)) + (let ((_%e161396161675%_ (let () (declare (not safe)) - (gx#stx-e _%tl160410160687%_)))) - (let ((_%tl160413160695%_ + (gx#stx-e _%tl161395161672%_)))) + (let ((_%tl161398161680%_ (let () (declare (not safe)) - (##cdr _%e160411160690%_))) - (_%hd160412160693%_ + (##cdr _%e161396161675%_))) + (_%hd161397161678%_ (let () (declare (not safe)) - (##car _%e160411160690%_)))) + (##car _%e161396161675%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160413160695%_)) + _%tl161398161680%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160407160679%_)) - (let ((_%e160414160698%_ + _%tl161392161664%_)) + (let ((_%e161399161683%_ (let () (declare (not safe)) (gx#stx-e - _%tl160407160679%_)))) - (let ((_%tl160416160703%_ + _%tl161392161664%_)))) + (let ((_%tl161401161688%_ (let () (declare (not safe)) - (##cdr _%e160414160698%_))) - (_%hd160415160701%_ + (##cdr _%e161399161683%_))) + (_%hd161400161686%_ (let () (declare (not safe)) - (##car _%e160414160698%_)))) + (##car _%e161399161683%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160415160701%_)) - (let ((_%e160417160706%_ + _%hd161400161686%_)) + (let ((_%e161402161691%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd160415160701%_)))) - (let ((_%tl160419160711%_ + (gx#stx-e _%hd161400161686%_)))) + (let ((_%tl161404161696%_ (let () (declare (not safe)) - (##cdr _%e160417160706%_))) - (_%hd160418160709%_ + (##cdr _%e161402161691%_))) + (_%hd161403161694%_ (let () (declare (not safe)) - (##car _%e160417160706%_)))) + (##car _%e161402161691%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160418160709%_)) + (gx#identifier? _%hd161403161694%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160418160709%_)) + (gx#stx-eq? '%#ref _%hd161403161694%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160419160711%_)) - (let ((_%e160420160714%_ + (gx#stx-pair? _%tl161404161696%_)) + (let ((_%e161405161699%_ (let () (declare (not safe)) - (gx#stx-e _%tl160419160711%_)))) - (let ((_%tl160422160719%_ + (gx#stx-e _%tl161404161696%_)))) + (let ((_%tl161407161704%_ (let () (declare (not safe)) - (##cdr _%e160420160714%_))) - (_%hd160421160717%_ + (##cdr _%e161405161699%_))) + (_%hd161406161702%_ (let () (declare (not safe)) - (##car _%e160420160714%_)))) + (##car _%e161405161699%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160422160719%_)) + (gx#stx-null? _%tl161407161704%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160416160703%_)) + _%tl161401161688%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160423160722%_ + _%tl161386161648%_)) + (let ((_%e161408161707%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160425160727%_ + _%tl161386161648%_)))) + (let ((_%tl161410161712%_ (let () (declare (not safe)) - (##cdr _%e160423160722%_))) - (_%hd160424160725%_ + (##cdr _%e161408161707%_))) + (_%hd161409161710%_ (let () (declare (not safe)) - (##car _%e160423160722%_)))) + (##car _%e161408161707%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160425160727%_)) - (let ((_%e160426160730%_ + _%tl161410161712%_)) + (let ((_%e161411161715%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160425160727%_)))) - (let ((_%tl160428160735%_ + (gx#stx-e _%tl161410161712%_)))) + (let ((_%tl161413161720%_ (let () (declare (not safe)) - (##cdr _%e160426160730%_))) - (_%hd160427160733%_ + (##cdr _%e161411161715%_))) + (_%hd161412161718%_ (let () (declare (not safe)) - (##car _%e160426160730%_)))) + (##car _%e161411161715%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160428160735%_)) - (_%__kont169534169535%_ - _%hd160427160733%_ - _%hd160424160725%_ - _%hd160421160717%_ - _%hd160412160693%_) - (let () (declare (not safe)) (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (gx#stx-null? _%tl161413161720%_)) + (_%__kont170519170520%_ + _%hd161412161718%_ + _%hd161409161710%_ + _%hd161406161702%_ + _%hd161397161678%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160390160479%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160469160500%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) - (let () (declare (not safe)) (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160390160479%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160416160703%_)) + _%tl161401161688%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160454160598%_ + _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160456160603%_ + _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160454160598%_))) - (_%hd160455160601%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160454160598%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160456160603%_)) - (let ((_%e160457160606%_ + _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160456160603%_)))) - (let ((_%tl160459160611%_ + (gx#stx-e _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160457160606%_))) - (_%hd160458160609%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160457160606%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160459160611%_)) - (_%__match169693169694%_ - _%e160396160650%_ - _%hd160397160653%_ - _%tl160398160655%_ - _%e160399160658%_ - _%hd160400160661%_ - _%tl160401160663%_ - _%e160402160666%_ - _%hd160403160669%_ - _%tl160404160671%_ - _%e160405160674%_ - _%hd160406160677%_ - _%tl160407160679%_ - _%e160408160682%_ - _%hd160409160685%_ - _%tl160410160687%_ - _%e160411160690%_ - _%hd160412160693%_ - _%tl160413160695%_ - _%e160414160698%_ - _%hd160415160701%_ - _%tl160416160703%_ - _%e160454160598%_ - _%hd160455160601%_ - _%tl160456160603%_ - _%e160457160606%_ - _%hd160458160609%_ - _%tl160459160611%_) - (let () (declare (not safe)) (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (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)) - (_%g160390160479%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160469160500%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) - (let () (declare (not safe)) (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160390160479%_))))))) + (_%g161375161464%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160416160703%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160454160598%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160456160603%_ + _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160454160598%_))) - (_%hd160455160601%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160454160598%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160456160603%_)) - (let ((_%e160457160606%_ + _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) (gx#stx-e - _%tl160456160603%_)))) - (let ((_%tl160459160611%_ + _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160457160606%_))) - (_%hd160458160609%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160457160606%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160459160611%_)) - (_%__match169693169694%_ - _%e160396160650%_ - _%hd160397160653%_ - _%tl160398160655%_ - _%e160399160658%_ - _%hd160400160661%_ - _%tl160401160663%_ - _%e160402160666%_ - _%hd160403160669%_ - _%tl160404160671%_ - _%e160405160674%_ - _%hd160406160677%_ - _%tl160407160679%_ - _%e160408160682%_ - _%hd160409160685%_ - _%tl160410160687%_ - _%e160411160690%_ - _%hd160412160693%_ - _%tl160413160695%_ - _%e160414160698%_ - _%hd160415160701%_ - _%tl160416160703%_ - _%e160454160598%_ - _%hd160455160601%_ - _%tl160456160603%_ - _%e160457160606%_ - _%hd160458160609%_ - _%tl160459160611%_) + _%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)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160416160703%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160454160598%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160456160603%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160454160598%_))) - (_%hd160455160601%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160454160598%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160456160603%_)) - (let ((_%e160457160606%_ + _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) (gx#stx-e - _%tl160456160603%_)))) - (let ((_%tl160459160611%_ + _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160457160606%_))) - (_%hd160458160609%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160457160606%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160459160611%_)) - (_%__match169693169694%_ - _%e160396160650%_ - _%hd160397160653%_ - _%tl160398160655%_ - _%e160399160658%_ - _%hd160400160661%_ - _%tl160401160663%_ - _%e160402160666%_ - _%hd160403160669%_ - _%tl160404160671%_ - _%e160405160674%_ - _%hd160406160677%_ - _%tl160407160679%_ - _%e160408160682%_ - _%hd160409160685%_ - _%tl160410160687%_ - _%e160411160690%_ - _%hd160412160693%_ - _%tl160413160695%_ - _%e160414160698%_ - _%hd160415160701%_ - _%tl160416160703%_ - _%e160454160598%_ - _%hd160455160601%_ - _%tl160456160603%_ - _%e160457160606%_ - _%hd160458160609%_ - _%tl160459160611%_) + _%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)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160416160703%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160454160598%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160456160603%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160454160598%_))) - (_%hd160455160601%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160454160598%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160456160603%_)) - (let ((_%e160457160606%_ + (gx#stx-pair? _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) (gx#stx-e - _%tl160456160603%_)))) - (let ((_%tl160459160611%_ + _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160457160606%_))) - (_%hd160458160609%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160457160606%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160459160611%_)) - (_%__match169693169694%_ - _%e160396160650%_ - _%hd160397160653%_ - _%tl160398160655%_ - _%e160399160658%_ - _%hd160400160661%_ - _%tl160401160663%_ - _%e160402160666%_ - _%hd160403160669%_ - _%tl160404160671%_ - _%e160405160674%_ - _%hd160406160677%_ - _%tl160407160679%_ - _%e160408160682%_ - _%hd160409160685%_ - _%tl160410160687%_ - _%e160411160690%_ - _%hd160412160693%_ - _%tl160413160695%_ - _%e160414160698%_ - _%hd160415160701%_ - _%tl160416160703%_ - _%e160454160598%_ - _%hd160455160601%_ - _%tl160456160603%_ - _%e160457160606%_ - _%hd160458160609%_ - _%tl160459160611%_) + _%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)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160471160505%_)) - (let ((_%e160472160508%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))))) + (_%g161375161464%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160416160703%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160454160598%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160456160603%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160454160598%_))) - (_%hd160455160601%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160454160598%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160456160603%_)) - (let ((_%e160457160606%_ + (gx#stx-pair? _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) - (gx#stx-e _%tl160456160603%_)))) - (let ((_%tl160459160611%_ + (gx#stx-e _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160457160606%_))) - (_%hd160458160609%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160457160606%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160459160611%_)) - (_%__match169693169694%_ - _%e160396160650%_ - _%hd160397160653%_ - _%tl160398160655%_ - _%e160399160658%_ - _%hd160400160661%_ - _%tl160401160663%_ - _%e160402160666%_ - _%hd160403160669%_ - _%tl160404160671%_ - _%e160405160674%_ - _%hd160406160677%_ - _%tl160407160679%_ - _%e160408160682%_ - _%hd160409160685%_ - _%tl160410160687%_ - _%e160411160690%_ - _%hd160412160693%_ - _%tl160413160695%_ - _%e160414160698%_ - _%hd160415160701%_ - _%tl160416160703%_ - _%e160454160598%_ - _%hd160455160601%_ - _%tl160456160603%_ - _%e160457160606%_ - _%hd160458160609%_ - _%tl160459160611%_) + (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)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160471160505%_)) - (let ((_%e160472160508%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160469160500%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ - (let () (declare (not safe)) (##car _%e160469160500%_)))) + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ + (let () (declare (not safe)) (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160471160505%_)) - (let ((_%e160472160508%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160390160479%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160469160500%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) - (let () (declare (not safe)) (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160390160479%_)))))) + (_%g161375161464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160471160505%_)) - (let ((_%e160472160508%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_)))))) + (_%g161375161464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160471160505%_)) - (let ((_%e160472160508%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_)))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160469160500%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160471160505%_)) - (let ((_%e160472160508%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_)))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160469160500%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ - (let () (declare (not safe)) (##car _%e160469160500%_)))) + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ + (let () (declare (not safe)) (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160471160505%_)) - (let ((_%e160472160508%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160390160479%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160401160663%_)) - (let ((_%e160469160500%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) - (let () (declare (not safe)) (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160390160479%_)))))) + (_%g161375161464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160401160663%_)) - (let ((_%e160469160500%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160401160663%_)))) - (let ((_%tl160471160505%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160469160500%_))) - (_%hd160470160503%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160469160500%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160471160505%_)) - (let ((_%e160472160508%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160471160505%_)))) - (let ((_%tl160474160513%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160472160508%_))) - (_%hd160473160511%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160472160508%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160474160513%_)) - (_%__kont169538169539%_ - _%hd160473160511%_ - _%hd160470160503%_ - _%hd160400160661%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160390160479%_)))))) + (_%g161375161464%_)))))) (let () (declare (not safe)) - (_%g160390160479%_))))) - (let () (declare (not safe)) (_%g160390160479%_))))))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx160238%_ _%type-a160239%_ _%type-b160240%_) - (letrec ((_%common-e160242%_ - (lambda (_%left160342%_ _%right160343%_) - (let _%loop160345%_ ((_%rest160347%_ _%left160342%_)) - (let* ((_%rest160348160356%_ _%rest160347%_) - (_%else160350160364%_ + (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 - _%stx160238%_ + _%stx161223%_ 't::t)))) - (_%K160352160370%_ - (lambda (_%rest160367%_ _%klass-name160368%_) - (if (memq _%klass-name160368%_ _%right160343%_) + (_%K161337161355%_ + (lambda (_%rest161352%_ _%klass-name161353%_) + (if (memq _%klass-name161353%_ _%right161328%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160238%_ - _%klass-name160368%_)) - (_%loop160345%_ _%rest160367%_))))) - (if (pair? _%rest160348160356%_) - (let ((_%hd160353160373%_ + _%stx161223%_ + _%klass-name161353%_)) + (_%loop161330%_ _%rest161352%_))))) + (if (pair? _%rest161333161341%_) + (let ((_%hd161338161358%_ (let () (declare (not safe)) - (##car _%rest160348160356%_))) - (_%tl160354160375%_ + (##car _%rest161333161341%_))) + (_%tl161339161360%_ (let () (declare (not safe)) - (##cdr _%rest160348160356%_)))) - (let* ((_%klass-name160378%_ _%hd160353160373%_) - (_%rest160380%_ _%tl160354160375%_)) - (_%K160352160370%_ - _%rest160380%_ - _%klass-name160378%_))) - (_%else160350160364%_)))))) - (_%common-tail160243%_ - (lambda (_%precedence-list-a160262%_ - _%precedence-list-b160263%_) - (let* ((_%rev-precedence-list-a160265%_ - (reverse _%precedence-list-a160262%_)) - (_%rev-precedence-list-b160267%_ - (reverse _%precedence-list-b160263%_))) - (let _%loop160270%_ ((_%rest-a160272%_ - _%rev-precedence-list-a160265%_) - (_%rest-b160273%_ - _%rev-precedence-list-b160267%_) - (_%result160274%_ '#f)) - (let* ((_%rest-a160275160283%_ _%rest-a160272%_) - (_%else160277160291%_ + (##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 _%result160274%_ + (if _%result161259%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160238%_ - _%result160274%_)) + _%stx161223%_ + _%result161259%_)) '#f))) - (_%K160279160330%_ - (lambda (_%rest-a160294%_ _%super-a160295%_) - (let* ((_%rest-b160296160304%_ - _%rest-b160273%_) - (_%else160298160312%_ + (_%K161264161315%_ + (lambda (_%rest-a161279%_ _%super-a161280%_) + (let* ((_%rest-b161281161289%_ + _%rest-b161258%_) + (_%else161283161297%_ (lambda () - (if _%result160274%_ + (if _%result161259%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160238%_ - _%result160274%_)) + _%stx161223%_ + _%result161259%_)) '#f))) - (_%K160300160318%_ - (lambda (_%rest-b160315%_ - _%super-b160316%_) - (if (eq? _%super-a160295%_ - _%super-b160316%_) - (_%loop160270%_ - _%rest-a160294%_ - _%rest-b160315%_ - _%super-a160295%_) - (if _%result160274%_ + (_%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 - _%stx160238%_ - _%result160274%_)) + _%stx161223%_ + _%result161259%_)) '#f))))) - (if (pair? _%rest-b160296160304%_) - (let ((_%hd160301160321%_ + (if (pair? _%rest-b161281161289%_) + (let ((_%hd161286161306%_ (let () (declare (not safe)) - (##car _%rest-b160296160304%_))) - (_%tl160302160323%_ + (##car _%rest-b161281161289%_))) + (_%tl161287161308%_ (let () (declare (not safe)) - (##cdr _%rest-b160296160304%_)))) - (let* ((_%super-b160326%_ - _%hd160301160321%_) - (_%rest-b160328%_ - _%tl160302160323%_)) - (_%K160300160318%_ - _%rest-b160328%_ - _%super-b160326%_))) - (_%else160298160312%_)))))) - (if (pair? _%rest-a160275160283%_) - (let ((_%hd160280160333%_ + (##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-a160275160283%_))) - (_%tl160281160335%_ + (##car _%rest-a161260161268%_))) + (_%tl161266161320%_ (let () (declare (not safe)) - (##cdr _%rest-a160275160283%_)))) - (let* ((_%super-a160338%_ _%hd160280160333%_) - (_%rest-a160340%_ _%tl160281160335%_)) - (_%K160279160330%_ - _%rest-a160340%_ - _%super-a160338%_))) - (_%else160277160291%_)))))))) - (if (or (not _%type-a160239%_) (not _%type-b160240%_)) + (##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 _%stx160238%_ 't::t)) + (gxc#optimizer-resolve-class _%stx161223%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a160239%_ _%type-b160240%_)) - _%type-b160240%_ + (gxc#!type-subtype? _%type-a161224%_ _%type-b161225%_)) + _%type-b161225%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b160240%_ _%type-a160239%_)) - _%type-a160239%_ + (gxc#!type-subtype? _%type-b161225%_ _%type-a161224%_)) + _%type-a161224%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a160239%_ + _%type-a161224%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b160240%_ + _%type-b161225%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a160252%_ + (let* ((_%precedence-list-a161237%_ (##structure-ref - _%type-a160239%_ + _%type-a161224%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b160254%_ + (_%precedence-list-b161239%_ (##structure-ref - _%type-b160240%_ + _%type-b161225%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a160252%_) - (length _%precedence-list-b160254%_)) - (_%common-e160242%_ - _%precedence-list-b160254%_ - _%precedence-list-a160252%_) - (if (< (length _%precedence-list-a160252%_) - (length _%precedence-list-b160254%_)) - (_%common-e160242%_ - _%precedence-list-a160252%_ - _%precedence-list-b160254%_) - (_%common-tail160243%_ - _%precedence-list-a160252%_ - _%precedence-list-b160254%_)))) + (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-a160239%_ + _%type-a161224%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b160240%_ + _%type-b161225%_ '1 gxc#!type::t '#f) @@ -14573,3419 +14573,3419 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160238%_ + _%stx161223%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self160150%_ _%stx160151%_) - (let* ((_%g160153160166%_ - (lambda (_%g160154160163%_) + (lambda (_%self161135%_ _%stx161136%_) + (let* ((_%g161138161151%_ + (lambda (_%g161139161148%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160154160163%_)))) - (_%g160152160235%_ - (lambda (_%g160154160169%_) + _%g161139161148%_)))) + (_%g161137161220%_ + (lambda (_%g161139161154%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160154160169%_)) - (let ((_%e160156160171%_ + (gx#stx-pair? _%g161139161154%_)) + (let ((_%e161141161156%_ (let () (declare (not safe)) - (gx#stx-e _%g160154160169%_)))) - (let ((_%hd160157160174%_ + (gx#stx-e _%g161139161154%_)))) + (let ((_%hd161142161159%_ (let () (declare (not safe)) - (##car _%e160156160171%_))) - (_%tl160158160176%_ + (##car _%e161141161156%_))) + (_%tl161143161161%_ (let () (declare (not safe)) - (##cdr _%e160156160171%_)))) + (##cdr _%e161141161156%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160158160176%_)) - (let ((_%e160159160179%_ + (gx#stx-pair? _%tl161143161161%_)) + (let ((_%e161144161164%_ (let () (declare (not safe)) - (gx#stx-e _%tl160158160176%_)))) - (let ((_%hd160160160182%_ + (gx#stx-e _%tl161143161161%_)))) + (let ((_%hd161145161167%_ (let () (declare (not safe)) - (##car _%e160159160179%_))) - (_%tl160161160184%_ + (##car _%e161144161164%_))) + (_%tl161146161169%_ (let () (declare (not safe)) - (##cdr _%e160159160179%_)))) + (##cdr _%e161144161164%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160161160184%_)) - ((lambda (_%L160187%_) - (let ((_%obj160199%_ + (gx#stx-null? _%tl161146161169%_)) + ((lambda (_%L161172%_) + (let ((_%obj161184%_ (let () (declare (not safe)) - (gx#stx-e _%L160187%_)))) + (gx#stx-e _%L161172%_)))) (if (let () (declare (not safe)) - (immediate? _%obj160199%_)) - (if (char? _%obj160199%_) + (immediate? _%obj161184%_)) + (if (char? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'char::t)) - (if (eq? _%obj160199%_ '#t) + (if (eq? _%obj161184%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'true::t)) - (if (not _%obj160199%_) + (if (not _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'false::t)) - (if (eq? _%obj160199%_ + (if (eq? _%obj161184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160151%_ 'void::t)) - (if (eof-object? _%obj160199%_) + (gxc#optimizer-resolve-class _%stx161136%_ 'void::t)) + (if (eof-object? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'eof::t)) - (if (fixnum? _%obj160199%_) + (if (fixnum? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'fixnum::t)) - (if (null? _%obj160199%_) + (if (null? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj160199%_) - (if (flonum? _%obj160199%_) + (if (number? _%obj161184%_) + (if (flonum? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj160199%_)) + _%obj161184%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj160199%_)) + (##ratnum? _%obj161184%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj160199%_)) + (##cpxnum? _%obj161184%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj160199%_) + (if (symbol? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'symbol::t)) (if (keyword? - _%obj160199%_) + _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'keyword::t)) - (if (pair? _%obj160199%_) + (if (pair? _%obj161184%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160151%_ 'pair::t)) - (if (sequence? _%obj160199%_) - (if (vector? _%obj160199%_) + (gxc#optimizer-resolve-class _%stx161136%_ 'pair::t)) + (if (sequence? _%obj161184%_) + (if (vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'vector::t)) - (if (string? _%obj160199%_) + (if (string? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'string::t)) - (if (u8vector? _%obj160199%_) + (if (u8vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'u8vector::t)) - (if (s8vector? _%obj160199%_) + (if (s8vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 's8vector::t)) - (if (u16vector? _%obj160199%_) + (if (u16vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'u16vector::t)) - (if (s16vector? _%obj160199%_) + (if (s16vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 's16vector::t)) (if (u32vector? - _%obj160199%_) + _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'u32vector::t)) (if (s32vector? - _%obj160199%_) + _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 's32vector::t)) (if (u64vector? - _%obj160199%_) + _%obj161184%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'u64vector::t)) - (if (s64vector? _%obj160199%_) + (if (s64vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 's64vector::t)) - (if (f32vector? _%obj160199%_) + (if (f32vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'f32vector::t)) - (if (f64vector? _%obj160199%_) + (if (f64vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj160199%_) + (if (box? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160151%_ + _%stx161136%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd160160160182%_) - (_%g160153160166%_ _%g160154160169%_)))) - (_%g160153160166%_ _%g160154160169%_)))) - (_%g160153160166%_ _%g160154160169%_))))) - (_%g160152160235%_ _%stx160151%_)))) + _%hd161145161167%_) + (_%g161138161151%_ _%g161139161154%_)))) + (_%g161138161151%_ _%g161139161154%_)))) + (_%g161138161151%_ _%g161139161154%_))))) + (_%g161137161220%_ _%stx161136%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form159384%_) - (let* ((_%__stx169722169723%_ _%form159384%_) - (_%g159389159546%_ + (lambda (_%form160369%_) + (let* ((_%__stx170707170708%_ _%form160369%_) + (_%g160374160531%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169722169723%_))))) - (let ((_%__kont169724169725%_ - (lambda (_%L160070%_ _%L160071%_ _%L160072%_) '#t)) - (_%__kont169730169731%_ - (lambda (_%L159858%_ - _%L159859%_ - _%L159860%_ - _%L159861%_ - _%L159862%_ - _%L159863%_) + _%__stx170707170708%_))))) + (let ((_%__kont170709170710%_ + (lambda (_%L161055%_ _%L161056%_ _%L161057%_) '#t)) + (_%__kont170715170716%_ + (lambda (_%L160843%_ + _%L160844%_ + _%L160845%_ + _%L160846%_ + _%L160847%_ + _%L160848%_) '#t)) - (_%__kont169736169737%_ - (lambda (_%L159654%_ _%L159655%_ _%L159656%_ _%L159657%_) + (_%__kont170721170722%_ + (lambda (_%L160639%_ _%L160640%_ _%L160641%_ _%L160642%_) '#t)) - (_%__kont169738169739%_ (lambda () '#f))) - (let* ((_%__match169863169864%_ - (lambda (_%e159506159558%_ - _%hd159507159561%_ - _%tl159508159563%_ - _%e159509159566%_ - _%hd159510159569%_ - _%tl159511159571%_ - _%e159512159574%_ - _%hd159513159577%_ - _%tl159514159579%_ - _%e159515159582%_ - _%hd159516159585%_ - _%tl159517159587%_ - _%e159518159590%_ - _%hd159519159593%_ - _%tl159520159595%_ - _%e159521159598%_ - _%hd159522159601%_ - _%tl159523159603%_ - _%e159524159606%_ - _%hd159525159609%_ - _%tl159526159611%_ - _%e159527159614%_ - _%hd159528159617%_ - _%tl159529159619%_ - _%e159530159622%_ - _%hd159531159625%_ - _%tl159532159627%_ - _%e159533159630%_ - _%hd159534159633%_ - _%tl159535159635%_ - _%e159536159638%_ - _%hd159537159641%_ - _%tl159538159643%_ - _%e159539159646%_ - _%hd159540159649%_ - _%tl159541159651%_) - (let ((_%L159654%_ _%hd159540159649%_) - (_%L159655%_ _%hd159531159625%_) - (_%L159656%_ _%hd159522159601%_) - (_%L159657%_ _%hd159507159561%_)) + (_%__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? _%L159657%_)) + (gx#identifier? _%L160642%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L159656%_ + _%L160641%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L159657%_ - _%L159654%_)) + _%L160642%_ + _%L160639%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L159655%_ - _%L159657%_)))) - (_%__kont169736169737%_ - _%L159654%_ - _%L159655%_ - _%L159656%_ - _%L159657%_) - (_%__kont169738169739%_))))) - (_%__match169835169836%_ - (lambda (_%e159506159558%_ - _%hd159507159561%_ - _%tl159508159563%_ - _%e159509159566%_ - _%hd159510159569%_ - _%tl159511159571%_ - _%e159512159574%_ - _%hd159513159577%_ - _%tl159514159579%_ - _%e159515159582%_ - _%hd159516159585%_ - _%tl159517159587%_ - _%e159518159590%_ - _%hd159519159593%_ - _%tl159520159595%_ - _%e159521159598%_ - _%hd159522159601%_ - _%tl159523159603%_ - _%e159524159606%_ - _%hd159525159609%_ - _%tl159526159611%_ - _%e159527159614%_ - _%hd159528159617%_ - _%tl159529159619%_ - _%e159530159622%_ - _%hd159531159625%_ - _%tl159532159627%_) + _%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? _%tl159526159611%_)) - (let ((_%e159533159630%_ + (gx#stx-pair? _%tl160511160596%_)) + (let ((_%e160518160615%_ (let () (declare (not safe)) - (gx#stx-e _%tl159526159611%_)))) - (let ((_%tl159535159635%_ + (gx#stx-e _%tl160511160596%_)))) + (let ((_%tl160520160620%_ (let () (declare (not safe)) - (##cdr _%e159533159630%_))) - (_%hd159534159633%_ + (##cdr _%e160518160615%_))) + (_%hd160519160618%_ (let () (declare (not safe)) - (##car _%e159533159630%_)))) + (##car _%e160518160615%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159534159633%_)) - (let ((_%e159536159638%_ + (gx#stx-pair? _%hd160519160618%_)) + (let ((_%e160521160623%_ (let () (declare (not safe)) - (gx#stx-e _%hd159534159633%_)))) - (let ((_%tl159538159643%_ + (gx#stx-e _%hd160519160618%_)))) + (let ((_%tl160523160628%_ (let () (declare (not safe)) - (##cdr _%e159536159638%_))) - (_%hd159537159641%_ + (##cdr _%e160521160623%_))) + (_%hd160522160626%_ (let () (declare (not safe)) - (##car _%e159536159638%_)))) + (##car _%e160521160623%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159537159641%_)) + _%hd160522160626%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159537159641%_)) + _%hd160522160626%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159538159643%_)) - (let ((_%e159539159646%_ + _%tl160523160628%_)) + (let ((_%e160524160631%_ (let () (declare (not safe)) (gx#stx-e - _%tl159538159643%_)))) - (let ((_%tl159541159651%_ + _%tl160523160628%_)))) + (let ((_%tl160526160636%_ (let () (declare (not safe)) - (##cdr _%e159539159646%_))) - (_%hd159540159649%_ + (##cdr _%e160524160631%_))) + (_%hd160525160634%_ (let () (declare (not safe)) - (##car _%e159539159646%_)))) + (##car _%e160524160631%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159541159651%_)) + _%tl160526160636%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl159535159635%_)) + (gx#stx-null? _%tl160520160620%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159511159571%_)) - (_%__match169863169864%_ - _%e159506159558%_ - _%hd159507159561%_ - _%tl159508159563%_ - _%e159509159566%_ - _%hd159510159569%_ - _%tl159511159571%_ - _%e159512159574%_ - _%hd159513159577%_ - _%tl159514159579%_ - _%e159515159582%_ - _%hd159516159585%_ - _%tl159517159587%_ - _%e159518159590%_ - _%hd159519159593%_ - _%tl159520159595%_ - _%e159521159598%_ - _%hd159522159601%_ - _%tl159523159603%_ - _%e159524159606%_ - _%hd159525159609%_ - _%tl159526159611%_ - _%e159527159614%_ - _%hd159528159617%_ - _%tl159529159619%_ - _%e159530159622%_ - _%hd159531159625%_ - _%tl159532159627%_ - _%e159533159630%_ - _%hd159534159633%_ - _%tl159535159635%_ - _%e159536159638%_ - _%hd159537159641%_ - _%tl159538159643%_ - _%e159539159646%_ - _%hd159540159649%_ - _%tl159541159651%_) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) - (_%__match169765169766%_ - (lambda (_%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%__splice169732169733%_ - _%target159445159706%_ - _%tl159447159708%_) - (letrec ((_%loop159448159711%_ - (lambda (_%hd159446159714%_ - _%arg159452159716%_) + (_%__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? _%hd159446159714%_)) - (let ((_%e159449159719%_ + (gx#stx-pair? _%hd160431160699%_)) + (let ((_%e160434160704%_ (let () (declare (not safe)) - (gx#stx-e _%hd159446159714%_)))) - (let ((_%lp-tl159451159724%_ + (gx#stx-e _%hd160431160699%_)))) + (let ((_%lp-tl160436160709%_ (let () (declare (not safe)) - (##cdr _%e159449159719%_))) - (_%lp-hd159450159722%_ + (##cdr _%e160434160704%_))) + (_%lp-hd160435160707%_ (let () (declare (not safe)) - (##car _%e159449159719%_)))) - (_%loop159448159711%_ - _%lp-tl159451159724%_ - (cons _%lp-hd159450159722%_ - _%arg159452159716%_)))) - (let ((_%arg159453159727%_ - (reverse _%arg159452159716%_))) + (##car _%e160434160704%_)))) + (_%loop160433160696%_ + _%lp-tl160436160709%_ + (cons _%lp-hd160435160707%_ + _%arg160437160701%_)))) + (let ((_%arg160438160712%_ + (reverse _%arg160437160701%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159444159703%_)) - (let ((_%e159454159730%_ + _%tl160429160688%_)) + (let ((_%e160439160715%_ (let () (declare (not safe)) (gx#stx-e - _%tl159444159703%_)))) - (let ((_%tl159456159735%_ + _%tl160429160688%_)))) + (let ((_%tl160441160720%_ (let () (declare (not safe)) - (##cdr _%e159454159730%_))) - (_%hd159455159733%_ + (##cdr _%e160439160715%_))) + (_%hd160440160718%_ (let () (declare (not safe)) - (##car _%e159454159730%_)))) + (##car _%e160439160715%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159455159733%_)) - (let ((_%e159457159738%_ + _%hd160440160718%_)) + (let ((_%e160442160723%_ (let () (declare (not safe)) (gx#stx-e - _%hd159455159733%_)))) - (let ((_%tl159459159743%_ + _%hd160440160718%_)))) + (let ((_%tl160444160728%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159457159738%_))) - (_%hd159458159741%_ - (let () (declare (not safe)) (##car _%e159457159738%_)))) + (##cdr _%e160442160723%_))) + (_%hd160443160726%_ + (let () (declare (not safe)) (##car _%e160442160723%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159458159741%_)) + (gx#identifier? _%hd160443160726%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159458159741%_)) + (gx#stx-eq? '%#call _%hd160443160726%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159459159743%_)) - (let ((_%e159460159746%_ + (gx#stx-pair? _%tl160444160728%_)) + (let ((_%e160445160731%_ (let () (declare (not safe)) - (gx#stx-e _%tl159459159743%_)))) - (let ((_%tl159462159751%_ + (gx#stx-e _%tl160444160728%_)))) + (let ((_%tl160447160736%_ (let () (declare (not safe)) - (##cdr _%e159460159746%_))) - (_%hd159461159749%_ + (##cdr _%e160445160731%_))) + (_%hd160446160734%_ (let () (declare (not safe)) - (##car _%e159460159746%_)))) + (##car _%e160445160731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159461159749%_)) - (let ((_%e159463159754%_ + (gx#stx-pair? _%hd160446160734%_)) + (let ((_%e160448160739%_ (let () (declare (not safe)) - (gx#stx-e _%hd159461159749%_)))) - (let ((_%tl159465159759%_ + (gx#stx-e _%hd160446160734%_)))) + (let ((_%tl160450160744%_ (let () (declare (not safe)) - (##cdr _%e159463159754%_))) - (_%hd159464159757%_ + (##cdr _%e160448160739%_))) + (_%hd160449160742%_ (let () (declare (not safe)) - (##car _%e159463159754%_)))) + (##car _%e160448160739%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159464159757%_)) + _%hd160449160742%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159464159757%_)) + _%hd160449160742%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159465159759%_)) - (let ((_%e159466159762%_ + _%tl160450160744%_)) + (let ((_%e160451160747%_ (let () (declare (not safe)) (gx#stx-e - _%tl159465159759%_)))) - (let ((_%tl159468159767%_ + _%tl160450160744%_)))) + (let ((_%tl160453160752%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159466159762%_))) - (_%hd159467159765%_ - (let () (declare (not safe)) (##car _%e159466159762%_)))) + (##cdr _%e160451160747%_))) + (_%hd160452160750%_ + (let () (declare (not safe)) (##car _%e160451160747%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159468159767%_)) + (gx#stx-null? _%tl160453160752%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159462159751%_)) - (let ((_%e159469159770%_ + (gx#stx-pair? _%tl160447160736%_)) + (let ((_%e160454160755%_ (let () (declare (not safe)) - (gx#stx-e _%tl159462159751%_)))) - (let ((_%tl159471159775%_ + (gx#stx-e _%tl160447160736%_)))) + (let ((_%tl160456160760%_ (let () (declare (not safe)) - (##cdr _%e159469159770%_))) - (_%hd159470159773%_ + (##cdr _%e160454160755%_))) + (_%hd160455160758%_ (let () (declare (not safe)) - (##car _%e159469159770%_)))) + (##car _%e160454160755%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159470159773%_)) - (let ((_%e159472159778%_ + (gx#stx-pair? _%hd160455160758%_)) + (let ((_%e160457160763%_ (let () (declare (not safe)) - (gx#stx-e _%hd159470159773%_)))) - (let ((_%tl159474159783%_ + (gx#stx-e _%hd160455160758%_)))) + (let ((_%tl160459160768%_ (let () (declare (not safe)) - (##cdr _%e159472159778%_))) - (_%hd159473159781%_ + (##cdr _%e160457160763%_))) + (_%hd160458160766%_ (let () (declare (not safe)) - (##car _%e159472159778%_)))) + (##car _%e160457160763%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159473159781%_)) + (gx#identifier? _%hd160458160766%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159473159781%_)) + _%hd160458160766%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159474159783%_)) - (let ((_%e159475159786%_ + _%tl160459160768%_)) + (let ((_%e160460160771%_ (let () (declare (not safe)) (gx#stx-e - _%tl159474159783%_)))) - (let ((_%tl159477159791%_ + _%tl160459160768%_)))) + (let ((_%tl160462160776%_ (let () (declare (not safe)) - (##cdr _%e159475159786%_))) - (_%hd159476159789%_ + (##cdr _%e160460160771%_))) + (_%hd160461160774%_ (let () (declare (not safe)) - (##car _%e159475159786%_)))) + (##car _%e160460160771%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159477159791%_)) + _%tl160462160776%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl159471159775%_)) - (if (let ((__tmp171351 + _%tl160456160760%_)) + (if (let ((__tmp172336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl159471159775%_)))) + (gx#stx-length _%tl160456160760%_)))) (declare (not safe)) - (##fx>= __tmp171351 '1)) - (let ((_%__splice169734169735%_ + (##fx>= __tmp172336 '1)) + (let ((_%__splice170719170720%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159471159775%_ + _%tl160456160760%_ '1)))) - (let ((_%tl159480159796%_ + (let ((_%tl160465160781%_ (let () (declare (not safe)) - (##vector-ref _%__splice169734169735%_ '1))) - (_%target159478159794%_ + (##vector-ref _%__splice170719170720%_ '1))) + (_%target160463160779%_ (let () (declare (not safe)) (##vector-ref - _%__splice169734169735%_ + _%__splice170719170720%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159480159796%_)) - (let ((_%e159487159799%_ + (gx#stx-pair? _%tl160465160781%_)) + (let ((_%e160472160784%_ (let () (declare (not safe)) - (gx#stx-e _%tl159480159796%_)))) - (let ((_%tl159489159804%_ + (gx#stx-e _%tl160465160781%_)))) + (let ((_%tl160474160789%_ (let () (declare (not safe)) - (##cdr _%e159487159799%_))) - (_%hd159488159802%_ + (##cdr _%e160472160784%_))) + (_%hd160473160787%_ (let () (declare (not safe)) - (##car _%e159487159799%_)))) + (##car _%e160472160784%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159488159802%_)) - (let ((_%e159490159807%_ + (gx#stx-pair? _%hd160473160787%_)) + (let ((_%e160475160792%_ (let () (declare (not safe)) (gx#stx-e - _%hd159488159802%_)))) - (let ((_%tl159492159812%_ + _%hd160473160787%_)))) + (let ((_%tl160477160797%_ (let () (declare (not safe)) - (##cdr _%e159490159807%_))) - (_%hd159491159810%_ + (##cdr _%e160475160792%_))) + (_%hd160476160795%_ (let () (declare (not safe)) - (##car _%e159490159807%_)))) + (##car _%e160475160792%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159491159810%_)) + _%hd160476160795%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159491159810%_)) + _%hd160476160795%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159492159812%_)) - (let ((_%e159493159815%_ + _%tl160477160797%_)) + (let ((_%e160478160800%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159492159812%_)))) - (let ((_%tl159495159820%_ + (gx#stx-e _%tl160477160797%_)))) + (let ((_%tl160480160805%_ (let () (declare (not safe)) - (##cdr _%e159493159815%_))) - (_%hd159494159818%_ + (##cdr _%e160478160800%_))) + (_%hd160479160803%_ (let () (declare (not safe)) - (##car _%e159493159815%_)))) + (##car _%e160478160800%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159495159820%_)) + (gx#stx-null? _%tl160480160805%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159489159804%_)) - (letrec ((_%loop159481159823%_ - (lambda (_%hd159479159826%_ - _%xarg159485159828%_) + (gx#stx-null? _%tl160474160789%_)) + (letrec ((_%loop160466160808%_ + (lambda (_%hd160464160811%_ + _%xarg160470160813%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159479159826%_)) - (let ((_%e159482159831%_ + _%hd160464160811%_)) + (let ((_%e160467160816%_ (let () (declare (not safe)) (gx#stx-e - _%hd159479159826%_)))) - (let ((_%lp-tl159484159836%_ + _%hd160464160811%_)))) + (let ((_%lp-tl160469160821%_ (let () (declare (not safe)) - (##cdr _%e159482159831%_))) - (_%lp-hd159483159834%_ + (##cdr _%e160467160816%_))) + (_%lp-hd160468160819%_ (let () (declare (not safe)) - (##car _%e159482159831%_)))) + (##car _%e160467160816%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159483159834%_)) - (let ((_%e159496159839%_ + _%lp-hd160468160819%_)) + (let ((_%e160481160824%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd159483159834%_)))) - (let ((_%tl159498159844%_ + _%lp-hd160468160819%_)))) + (let ((_%tl160483160829%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159496159839%_))) - (_%hd159497159842%_ - (let () (declare (not safe)) (##car _%e159496159839%_)))) + (##cdr _%e160481160824%_))) + (_%hd160482160827%_ + (let () (declare (not safe)) (##car _%e160481160824%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159497159842%_)) + (gx#identifier? _%hd160482160827%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159497159842%_)) + (gx#stx-eq? '%#ref _%hd160482160827%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159498159844%_)) - (let ((_%e159499159847%_ + (gx#stx-pair? _%tl160483160829%_)) + (let ((_%e160484160832%_ (let () (declare (not safe)) - (gx#stx-e _%tl159498159844%_)))) - (let ((_%tl159501159852%_ + (gx#stx-e _%tl160483160829%_)))) + (let ((_%tl160486160837%_ (let () (declare (not safe)) - (##cdr _%e159499159847%_))) - (_%hd159500159850%_ + (##cdr _%e160484160832%_))) + (_%hd160485160835%_ (let () (declare (not safe)) - (##car _%e159499159847%_)))) + (##car _%e160484160832%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159501159852%_)) - (_%loop159481159823%_ - _%lp-tl159484159836%_ - (cons _%hd159500159850%_ - _%xarg159485159828%_)) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)))) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)))) - (let ((_%xarg159486159855%_ - (reverse _%xarg159485159828%_))) + (_%__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? - _%tl159456159735%_)) - (let ((_%L159858%_ - _%hd159494159818%_) - (_%L159859%_ - _%xarg159486159855%_) - (_%L159860%_ - _%hd159476159789%_) - (_%L159861%_ - _%hd159467159765%_) - (_%L159862%_ - _%tl159447159708%_) - (_%L159863%_ - _%arg159453159727%_)) - (if (and (let ((__tmp171352 + _%tl160441160720%_)) + (let ((_%L160843%_ + _%hd160479160803%_) + (_%L160844%_ + _%xarg160471160840%_) + (_%L160845%_ + _%hd160461160774%_) + (_%L160846%_ + _%hd160452160750%_) + (_%L160847%_ + _%tl160432160693%_) + (_%L160848%_ + _%arg160438160712%_)) + (if (and (let ((__tmp172337 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171353 - (lambda (_%g159906159909%_ - _%g159907159911%_) - (cons _%g159906159909%_ - _%g159907159911%_)))) + (let ((__tmp172338 + (lambda (_%g160891160894%_ + _%g160892160896%_) + (cons _%g160891160894%_ + _%g160892160896%_)))) (declare (not safe)) - (__foldr1 __tmp171353 '() _%L159863%_)))) + (__foldr1 __tmp172338 '() _%L160848%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171352)) - (let () (declare (not safe)) (gx#identifier? _%L159862%_)) + (gx#identifier-list? __tmp172337)) + (let () (declare (not safe)) (gx#identifier? _%L160847%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L159861%_ 'apply)) - (let ((__tmp171356 - (length (let ((__tmp171357 - (lambda (_%g159913159916%_ - _%g159914159918%_) - (cons _%g159913159916%_ - _%g159914159918%_)))) + (gxc#runtime-identifier=? _%L160846%_ 'apply)) + (let ((__tmp172341 + (length (let ((__tmp172342 + (lambda (_%g160898160901%_ + _%g160899160903%_) + (cons _%g160898160901%_ + _%g160899160903%_)))) (declare (not safe)) - (__foldr1 __tmp171357 '() _%L159863%_)))) - (__tmp171354 - (length (let ((__tmp171355 - (lambda (_%g159920159923%_ - _%g159921159925%_) - (cons _%g159920159923%_ - _%g159921159925%_)))) + (__foldr1 __tmp172342 '() _%L160848%_)))) + (__tmp172339 + (length (let ((__tmp172340 + (lambda (_%g160905160908%_ + _%g160906160910%_) + (cons _%g160905160908%_ + _%g160906160910%_)))) (declare (not safe)) (__foldr1 - __tmp171355 + __tmp172340 '() - _%L159859%_))))) + _%L160844%_))))) (declare (not safe)) - (##fx= __tmp171356 __tmp171354)) - (let ((__tmp171360 - (let ((__tmp171361 - (lambda (_%g159927159930%_ - _%g159928159932%_) - (cons _%g159927159930%_ - _%g159928159932%_)))) + (##fx= __tmp172341 __tmp172339)) + (let ((__tmp172345 + (let ((__tmp172346 + (lambda (_%g160912160915%_ + _%g160913160917%_) + (cons _%g160912160915%_ + _%g160913160917%_)))) (declare (not safe)) - (__foldr1 __tmp171361 '() _%L159863%_))) - (__tmp171358 - (let ((__tmp171359 - (lambda (_%g159934159937%_ - _%g159935159939%_) - (cons _%g159934159937%_ - _%g159935159939%_)))) + (__foldr1 __tmp172346 '() _%L160848%_))) + (__tmp172343 + (let ((__tmp172344 + (lambda (_%g160919160922%_ + _%g160920160924%_) + (cons _%g160919160922%_ + _%g160920160924%_)))) (declare (not safe)) - (__foldr1 __tmp171359 '() _%L159859%_)))) + (__foldr1 __tmp172344 '() _%L160844%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171360 - __tmp171358)) + __tmp172345 + __tmp172343)) (let () (declare (not safe)) - (gx#free-identifier=? _%L159862%_ _%L159858%_)) - (not (let ((__tmp171365 - (lambda (_%g159941159943%_) + (gx#free-identifier=? _%L160847%_ _%L160843%_)) + (not (let ((__tmp172350 + (lambda (_%g160926160928%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159941159943%_ - _%L159860%_)))) - (__tmp171362 - (let ((__tmp171364 - (lambda (_%g159945159948%_ - _%g159946159950%_) - (cons _%g159945159948%_ - _%g159946159950%_))) - (__tmp171363 (cons _%L159862%_ '()))) + _%g160926160928%_ + _%L160845%_)))) + (__tmp172347 + (let ((__tmp172349 + (lambda (_%g160930160933%_ + _%g160931160935%_) + (cons _%g160930160933%_ + _%g160931160935%_))) + (__tmp172348 (cons _%L160847%_ '()))) (declare (not safe)) (__foldr1 - __tmp171364 - __tmp171363 - _%L159863%_)))) + __tmp172349 + __tmp172348 + _%L160848%_)))) (declare (not safe)) - (__find __tmp171365 __tmp171362)))) - (_%__kont169730169731%_ - _%L159858%_ - _%L159859%_ - _%L159860%_ - _%L159861%_ - _%L159862%_ - _%L159863%_) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_))) + (__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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_))))))) - (_%loop159481159823%_ - _%target159478159794%_ + (_%__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%_ '())) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)))) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)) + (_%__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%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)))) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)))) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)))) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)) - (_%__match169835169836%_ - _%e159442159698%_ - _%hd159443159701%_ - _%tl159444159703%_ - _%e159454159730%_ - _%hd159455159733%_ - _%tl159456159735%_ - _%e159457159738%_ - _%hd159458159741%_ - _%tl159459159743%_ - _%e159460159746%_ - _%hd159461159749%_ - _%tl159462159751%_ - _%e159463159754%_ - _%hd159464159757%_ - _%tl159465159759%_ - _%e159466159762%_ - _%hd159467159765%_ - _%tl159468159767%_ - _%e159469159770%_ - _%hd159470159773%_ - _%tl159471159775%_ - _%e159472159778%_ - _%hd159473159781%_ - _%tl159474159783%_ - _%e159475159786%_ - _%hd159476159789%_ - _%tl159477159791%_)) - (_%__kont169738169739%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169738169739%_)))) - (_%__kont169738169739%_))))))) - (_%loop159448159711%_ _%target159445159706%_ '())))) - (_%__match169753169754%_ - (lambda (_%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_) - (letrec ((_%loop159400159971%_ - (lambda (_%hd159398159974%_ - _%arg159404159976%_) + (_%__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? _%hd159398159974%_)) - (let ((_%e159401159979%_ + (gx#stx-pair? _%hd160383160959%_)) + (let ((_%e160386160964%_ (let () (declare (not safe)) - (gx#stx-e _%hd159398159974%_)))) - (let ((_%lp-tl159403159984%_ + (gx#stx-e _%hd160383160959%_)))) + (let ((_%lp-tl160388160969%_ (let () (declare (not safe)) - (##cdr _%e159401159979%_))) - (_%lp-hd159402159982%_ + (##cdr _%e160386160964%_))) + (_%lp-hd160387160967%_ (let () (declare (not safe)) - (##car _%e159401159979%_)))) - (_%loop159400159971%_ - _%lp-tl159403159984%_ - (cons _%lp-hd159402159982%_ - _%arg159404159976%_)))) - (let ((_%arg159405159987%_ - (reverse _%arg159404159976%_))) + (##car _%e160386160964%_)))) + (_%loop160385160956%_ + _%lp-tl160388160969%_ + (cons _%lp-hd160387160967%_ + _%arg160389160961%_)))) + (let ((_%arg160390160972%_ + (reverse _%arg160389160961%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159396159963%_)) - (let ((_%e159406159990%_ + _%tl160381160948%_)) + (let ((_%e160391160975%_ (let () (declare (not safe)) (gx#stx-e - _%tl159396159963%_)))) - (let ((_%tl159408159995%_ + _%tl160381160948%_)))) + (let ((_%tl160393160980%_ (let () (declare (not safe)) - (##cdr _%e159406159990%_))) - (_%hd159407159993%_ + (##cdr _%e160391160975%_))) + (_%hd160392160978%_ (let () (declare (not safe)) - (##car _%e159406159990%_)))) + (##car _%e160391160975%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159407159993%_)) - (let ((_%e159409159998%_ + _%hd160392160978%_)) + (let ((_%e160394160983%_ (let () (declare (not safe)) (gx#stx-e - _%hd159407159993%_)))) - (let ((_%tl159411160003%_ + _%hd160392160978%_)))) + (let ((_%tl160396160988%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159409159998%_))) - (_%hd159410160001%_ - (let () (declare (not safe)) (##car _%e159409159998%_)))) + (##cdr _%e160394160983%_))) + (_%hd160395160986%_ + (let () (declare (not safe)) (##car _%e160394160983%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159410160001%_)) + (gx#identifier? _%hd160395160986%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159410160001%_)) + (gx#stx-eq? '%#call _%hd160395160986%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159411160003%_)) - (let ((_%e159412160006%_ + (gx#stx-pair? _%tl160396160988%_)) + (let ((_%e160397160991%_ (let () (declare (not safe)) - (gx#stx-e _%tl159411160003%_)))) - (let ((_%tl159414160011%_ + (gx#stx-e _%tl160396160988%_)))) + (let ((_%tl160399160996%_ (let () (declare (not safe)) - (##cdr _%e159412160006%_))) - (_%hd159413160009%_ + (##cdr _%e160397160991%_))) + (_%hd160398160994%_ (let () (declare (not safe)) - (##car _%e159412160006%_)))) + (##car _%e160397160991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159413160009%_)) - (let ((_%e159415160014%_ + (gx#stx-pair? _%hd160398160994%_)) + (let ((_%e160400160999%_ (let () (declare (not safe)) - (gx#stx-e _%hd159413160009%_)))) - (let ((_%tl159417160019%_ + (gx#stx-e _%hd160398160994%_)))) + (let ((_%tl160402161004%_ (let () (declare (not safe)) - (##cdr _%e159415160014%_))) - (_%hd159416160017%_ + (##cdr _%e160400160999%_))) + (_%hd160401161002%_ (let () (declare (not safe)) - (##car _%e159415160014%_)))) + (##car _%e160400160999%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159416160017%_)) + _%hd160401161002%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159416160017%_)) + _%hd160401161002%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159417160019%_)) - (let ((_%e159418160022%_ + _%tl160402161004%_)) + (let ((_%e160403161007%_ (let () (declare (not safe)) (gx#stx-e - _%tl159417160019%_)))) - (let ((_%tl159420160027%_ + _%tl160402161004%_)))) + (let ((_%tl160405161012%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159418160022%_))) - (_%hd159419160025%_ - (let () (declare (not safe)) (##car _%e159418160022%_)))) + (##cdr _%e160403161007%_))) + (_%hd160404161010%_ + (let () (declare (not safe)) (##car _%e160403161007%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159420160027%_)) + (gx#stx-null? _%tl160405161012%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl159414160011%_)) - (let ((_%__splice169728169729%_ + (gx#stx-pair/null? _%tl160399160996%_)) + (let ((_%__splice170713170714%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159414160011%_ + _%tl160399160996%_ '0)))) - (let ((_%tl159423160032%_ + (let ((_%tl160408161017%_ (let () (declare (not safe)) - (##vector-ref _%__splice169728169729%_ '1))) - (_%target159421160030%_ + (##vector-ref _%__splice170713170714%_ '1))) + (_%target160406161015%_ (let () (declare (not safe)) (##vector-ref - _%__splice169728169729%_ + _%__splice170713170714%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159423160032%_)) - (letrec ((_%loop159424160035%_ - (lambda (_%hd159422160038%_ - _%xarg159428160040%_) + (gx#stx-null? _%tl160408161017%_)) + (letrec ((_%loop160409161020%_ + (lambda (_%hd160407161023%_ + _%xarg160413161025%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159422160038%_)) - (let ((_%e159425160043%_ + _%hd160407161023%_)) + (let ((_%e160410161028%_ (let () (declare (not safe)) (gx#stx-e - _%hd159422160038%_)))) - (let ((_%lp-tl159427160048%_ + _%hd160407161023%_)))) + (let ((_%lp-tl160412161033%_ (let () (declare (not safe)) - (##cdr _%e159425160043%_))) - (_%lp-hd159426160046%_ + (##cdr _%e160410161028%_))) + (_%lp-hd160411161031%_ (let () (declare (not safe)) - (##car _%e159425160043%_)))) + (##car _%e160410161028%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159426160046%_)) - (let ((_%e159430160051%_ + _%lp-hd160411161031%_)) + (let ((_%e160415161036%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd159426160046%_)))) - (let ((_%tl159432160056%_ + (gx#stx-e _%lp-hd160411161031%_)))) + (let ((_%tl160417161041%_ (let () (declare (not safe)) - (##cdr _%e159430160051%_))) - (_%hd159431160054%_ + (##cdr _%e160415161036%_))) + (_%hd160416161039%_ (let () (declare (not safe)) - (##car _%e159430160051%_)))) + (##car _%e160415161036%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159431160054%_)) + (gx#identifier? _%hd160416161039%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159431160054%_)) + (gx#stx-eq? '%#ref _%hd160416161039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159432160056%_)) - (let ((_%e159433160059%_ + (gx#stx-pair? _%tl160417161041%_)) + (let ((_%e160418161044%_ (let () (declare (not safe)) - (gx#stx-e _%tl159432160056%_)))) - (let ((_%tl159435160064%_ + (gx#stx-e _%tl160417161041%_)))) + (let ((_%tl160420161049%_ (let () (declare (not safe)) - (##cdr _%e159433160059%_))) - (_%hd159434160062%_ + (##cdr _%e160418161044%_))) + (_%hd160419161047%_ (let () (declare (not safe)) - (##car _%e159433160059%_)))) + (##car _%e160418161044%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159435160064%_)) - (_%loop159424160035%_ - _%lp-tl159427160048%_ - (cons _%hd159434160062%_ - _%xarg159428160040%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) + (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 ((_%xarg159429160067%_ - (reverse _%xarg159428160040%_))) + (let ((_%xarg160414161052%_ + (reverse _%xarg160413161025%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159408159995%_)) - (let ((_%L160070%_ - _%xarg159429160067%_) - (_%L160071%_ - _%hd159419160025%_) - (_%L160072%_ - _%arg159405159987%_)) - (if (and (let ((__tmp171366 + _%tl160393160980%_)) + (let ((_%L161055%_ + _%xarg160414161052%_) + (_%L161056%_ + _%hd160404161010%_) + (_%L161057%_ + _%arg160390160972%_)) + (if (and (let ((__tmp172351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171367 - (lambda (_%g160100160103%_ - _%g160101160105%_) - (cons _%g160100160103%_ - _%g160101160105%_)))) + (let ((__tmp172352 + (lambda (_%g161085161088%_ + _%g161086161090%_) + (cons _%g161085161088%_ + _%g161086161090%_)))) (declare (not safe)) - (__foldr1 __tmp171367 '() _%L160072%_)))) + (__foldr1 __tmp172352 '() _%L161057%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171366)) - (let ((__tmp171370 - (length (let ((__tmp171371 - (lambda (_%g160107160110%_ - _%g160108160112%_) - (cons _%g160107160110%_ - _%g160108160112%_)))) + (gx#identifier-list? __tmp172351)) + (let ((__tmp172355 + (length (let ((__tmp172356 + (lambda (_%g161092161095%_ + _%g161093161097%_) + (cons _%g161092161095%_ + _%g161093161097%_)))) (declare (not safe)) (__foldr1 - __tmp171371 + __tmp172356 '() - _%L160072%_)))) - (__tmp171368 - (length (let ((__tmp171369 - (lambda (_%g160114160117%_ - _%g160115160119%_) - (cons _%g160114160117%_ - _%g160115160119%_)))) + _%L161057%_)))) + (__tmp172353 + (length (let ((__tmp172354 + (lambda (_%g161099161102%_ + _%g161100161104%_) + (cons _%g161099161102%_ + _%g161100161104%_)))) (declare (not safe)) (__foldr1 - __tmp171369 + __tmp172354 '() - _%L160070%_))))) + _%L161055%_))))) (declare (not safe)) - (##fx= __tmp171370 __tmp171368)) - (let ((__tmp171374 - (let ((__tmp171375 - (lambda (_%g160121160124%_ - _%g160122160126%_) - (cons _%g160121160124%_ - _%g160122160126%_)))) + (##fx= __tmp172355 __tmp172353)) + (let ((__tmp172359 + (let ((__tmp172360 + (lambda (_%g161106161109%_ + _%g161107161111%_) + (cons _%g161106161109%_ + _%g161107161111%_)))) (declare (not safe)) - (__foldr1 __tmp171375 '() _%L160072%_))) - (__tmp171372 - (let ((__tmp171373 - (lambda (_%g160128160131%_ - _%g160129160133%_) - (cons _%g160128160131%_ - _%g160129160133%_)))) + (__foldr1 __tmp172360 '() _%L161057%_))) + (__tmp172357 + (let ((__tmp172358 + (lambda (_%g161113161116%_ + _%g161114161118%_) + (cons _%g161113161116%_ + _%g161114161118%_)))) (declare (not safe)) - (__foldr1 __tmp171373 '() _%L160070%_)))) + (__foldr1 __tmp172358 '() _%L161055%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171374 - __tmp171372)) - (not (let ((__tmp171378 - (lambda (_%g160135160137%_) + __tmp172359 + __tmp172357)) + (not (let ((__tmp172363 + (lambda (_%g161120161122%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g160135160137%_ - _%L160071%_)))) - (__tmp171376 - (let ((__tmp171377 - (lambda (_%g160139160142%_ - _%g160140160144%_) - (cons _%g160139160142%_ - _%g160140160144%_)))) + _%g161120161122%_ + _%L161056%_)))) + (__tmp172361 + (let ((__tmp172362 + (lambda (_%g161124161127%_ + _%g161125161129%_) + (cons _%g161124161127%_ + _%g161125161129%_)))) (declare (not safe)) (__foldr1 - __tmp171377 + __tmp172362 '() - _%L160072%_)))) + _%L161057%_)))) (declare (not safe)) - (__find __tmp171378 __tmp171376)))) - (_%__kont169724169725%_ - _%L160070%_ - _%L160071%_ - _%L160072%_) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_))) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_))))))) + (__find __tmp172363 __tmp172361)))) + (_%__kont170709170710%_ + _%L161055%_ + _%L161056%_ + _%L161057%_) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop159424160035%_ - _%target159421160030%_ + (_%loop160409161020%_ + _%target160406161015%_ '())) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_))))))) - (_%loop159400159971%_ _%target159397159966%_ '()))))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_))))))) + (_%loop160385160956%_ _%target160382160951%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169722169723%_)) - (let ((_%e159394159958%_ + (gx#stx-pair? _%__stx170707170708%_)) + (let ((_%e160379160943%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169722169723%_)))) - (let ((_%tl159396159963%_ + (gx#stx-e _%__stx170707170708%_)))) + (let ((_%tl160381160948%_ (let () (declare (not safe)) - (##cdr _%e159394159958%_))) - (_%hd159395159961%_ + (##cdr _%e160379160943%_))) + (_%hd160380160946%_ (let () (declare (not safe)) - (##car _%e159394159958%_)))) + (##car _%e160379160943%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd159395159961%_)) - (let ((_%__splice169726169727%_ + (gx#stx-pair/null? _%hd160380160946%_)) + (let ((_%__splice170711170712%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd159395159961%_ + _%hd160380160946%_ '0)))) - (let ((_%tl159399159968%_ + (let ((_%tl160384160953%_ (let () (declare (not safe)) (##vector-ref - _%__splice169726169727%_ + _%__splice170711170712%_ '1))) - (_%target159397159966%_ + (_%target160382160951%_ (let () (declare (not safe)) (##vector-ref - _%__splice169726169727%_ + _%__splice170711170712%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159399159968%_)) - (_%__match169753169754%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_) - (_%__match169765169766%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%__splice169726169727%_ - _%target159397159966%_ - _%tl159399159968%_)))) + (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? _%tl159396159963%_)) - (let ((_%e159509159566%_ + (gx#stx-pair? _%tl160381160948%_)) + (let ((_%e160494160551%_ (let () (declare (not safe)) - (gx#stx-e _%tl159396159963%_)))) - (let ((_%tl159511159571%_ + (gx#stx-e _%tl160381160948%_)))) + (let ((_%tl160496160556%_ (let () (declare (not safe)) - (##cdr _%e159509159566%_))) - (_%hd159510159569%_ + (##cdr _%e160494160551%_))) + (_%hd160495160554%_ (let () (declare (not safe)) - (##car _%e159509159566%_)))) + (##car _%e160494160551%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159510159569%_)) - (let ((_%e159512159574%_ + (gx#stx-pair? _%hd160495160554%_)) + (let ((_%e160497160559%_ (let () (declare (not safe)) - (gx#stx-e _%hd159510159569%_)))) - (let ((_%tl159514159579%_ + (gx#stx-e _%hd160495160554%_)))) + (let ((_%tl160499160564%_ (let () (declare (not safe)) - (##cdr _%e159512159574%_))) - (_%hd159513159577%_ + (##cdr _%e160497160559%_))) + (_%hd160498160562%_ (let () (declare (not safe)) - (##car _%e159512159574%_)))) + (##car _%e160497160559%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159513159577%_)) + _%hd160498160562%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159513159577%_)) + _%hd160498160562%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159514159579%_)) - (let ((_%e159515159582%_ + _%tl160499160564%_)) + (let ((_%e160500160567%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159514159579%_)))) - (let ((_%tl159517159587%_ - (let () (declare (not safe)) (##cdr _%e159515159582%_))) - (_%hd159516159585%_ + (gx#stx-e _%tl160499160564%_)))) + (let ((_%tl160502160572%_ + (let () (declare (not safe)) (##cdr _%e160500160567%_))) + (_%hd160501160570%_ (let () (declare (not safe)) - (##car _%e159515159582%_)))) + (##car _%e160500160567%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159516159585%_)) - (let ((_%e159518159590%_ + (gx#stx-pair? _%hd160501160570%_)) + (let ((_%e160503160575%_ (let () (declare (not safe)) - (gx#stx-e _%hd159516159585%_)))) - (let ((_%tl159520159595%_ + (gx#stx-e _%hd160501160570%_)))) + (let ((_%tl160505160580%_ (let () (declare (not safe)) - (##cdr _%e159518159590%_))) - (_%hd159519159593%_ + (##cdr _%e160503160575%_))) + (_%hd160504160578%_ (let () (declare (not safe)) - (##car _%e159518159590%_)))) + (##car _%e160503160575%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159519159593%_)) + (gx#identifier? _%hd160504160578%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159519159593%_)) + (gx#stx-eq? '%#ref _%hd160504160578%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159520159595%_)) - (let ((_%e159521159598%_ + (gx#stx-pair? _%tl160505160580%_)) + (let ((_%e160506160583%_ (let () (declare (not safe)) - (gx#stx-e _%tl159520159595%_)))) - (let ((_%tl159523159603%_ + (gx#stx-e _%tl160505160580%_)))) + (let ((_%tl160508160588%_ (let () (declare (not safe)) - (##cdr _%e159521159598%_))) - (_%hd159522159601%_ + (##cdr _%e160506160583%_))) + (_%hd160507160586%_ (let () (declare (not safe)) - (##car _%e159521159598%_)))) + (##car _%e160506160583%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159523159603%_)) + _%tl160508160588%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159517159587%_)) - (let ((_%e159524159606%_ + _%tl160502160572%_)) + (let ((_%e160509160591%_ (let () (declare (not safe)) (gx#stx-e - _%tl159517159587%_)))) - (let ((_%tl159526159611%_ + _%tl160502160572%_)))) + (let ((_%tl160511160596%_ (let () (declare (not safe)) - (##cdr _%e159524159606%_))) - (_%hd159525159609%_ + (##cdr _%e160509160591%_))) + (_%hd160510160594%_ (let () (declare (not safe)) - (##car _%e159524159606%_)))) + (##car _%e160509160591%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159525159609%_)) - (let ((_%e159527159614%_ + _%hd160510160594%_)) + (let ((_%e160512160599%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159525159609%_)))) - (let ((_%tl159529159619%_ + (gx#stx-e _%hd160510160594%_)))) + (let ((_%tl160514160604%_ (let () (declare (not safe)) - (##cdr _%e159527159614%_))) - (_%hd159528159617%_ + (##cdr _%e160512160599%_))) + (_%hd160513160602%_ (let () (declare (not safe)) - (##car _%e159527159614%_)))) + (##car _%e160512160599%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159528159617%_)) + (gx#identifier? _%hd160513160602%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159528159617%_)) + (gx#stx-eq? '%#ref _%hd160513160602%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159529159619%_)) - (let ((_%e159530159622%_ + (gx#stx-pair? _%tl160514160604%_)) + (let ((_%e160515160607%_ (let () (declare (not safe)) - (gx#stx-e _%tl159529159619%_)))) - (let ((_%tl159532159627%_ + (gx#stx-e _%tl160514160604%_)))) + (let ((_%tl160517160612%_ (let () (declare (not safe)) - (##cdr _%e159530159622%_))) - (_%hd159531159625%_ + (##cdr _%e160515160607%_))) + (_%hd160516160610%_ (let () (declare (not safe)) - (##car _%e159530159622%_)))) + (##car _%e160515160607%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159532159627%_)) + (gx#stx-null? _%tl160517160612%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159526159611%_)) - (let ((_%e159533159630%_ + _%tl160511160596%_)) + (let ((_%e160518160615%_ (let () (declare (not safe)) (gx#stx-e - _%tl159526159611%_)))) - (let ((_%tl159535159635%_ + _%tl160511160596%_)))) + (let ((_%tl160520160620%_ (let () (declare (not safe)) - (##cdr _%e159533159630%_))) - (_%hd159534159633%_ + (##cdr _%e160518160615%_))) + (_%hd160519160618%_ (let () (declare (not safe)) - (##car _%e159533159630%_)))) + (##car _%e160518160615%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159534159633%_)) - (let ((_%e159536159638%_ + _%hd160519160618%_)) + (let ((_%e160521160623%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd159534159633%_)))) - (let ((_%tl159538159643%_ - (let () (declare (not safe)) (##cdr _%e159536159638%_))) - (_%hd159537159641%_ + (gx#stx-e _%hd160519160618%_)))) + (let ((_%tl160523160628%_ + (let () (declare (not safe)) (##cdr _%e160521160623%_))) + (_%hd160522160626%_ (let () (declare (not safe)) - (##car _%e159536159638%_)))) + (##car _%e160521160623%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159537159641%_)) + (gx#identifier? _%hd160522160626%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159537159641%_)) + (gx#stx-eq? '%#ref _%hd160522160626%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159538159643%_)) - (let ((_%e159539159646%_ + (gx#stx-pair? _%tl160523160628%_)) + (let ((_%e160524160631%_ (let () (declare (not safe)) - (gx#stx-e _%tl159538159643%_)))) - (let ((_%tl159541159651%_ + (gx#stx-e _%tl160523160628%_)))) + (let ((_%tl160526160636%_ (let () (declare (not safe)) - (##cdr _%e159539159646%_))) - (_%hd159540159649%_ + (##cdr _%e160524160631%_))) + (_%hd160525160634%_ (let () (declare (not safe)) - (##car _%e159539159646%_)))) + (##car _%e160524160631%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159541159651%_)) + (gx#stx-null? _%tl160526160636%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159535159635%_)) + (gx#stx-null? _%tl160520160620%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159511159571%_)) - (_%__match169863169864%_ - _%e159394159958%_ - _%hd159395159961%_ - _%tl159396159963%_ - _%e159509159566%_ - _%hd159510159569%_ - _%tl159511159571%_ - _%e159512159574%_ - _%hd159513159577%_ - _%tl159514159579%_ - _%e159515159582%_ - _%hd159516159585%_ - _%tl159517159587%_ - _%e159518159590%_ - _%hd159519159593%_ - _%tl159520159595%_ - _%e159521159598%_ - _%hd159522159601%_ - _%tl159523159603%_ - _%e159524159606%_ - _%hd159525159609%_ - _%tl159526159611%_ - _%e159527159614%_ - _%hd159528159617%_ - _%tl159529159619%_ - _%e159530159622%_ - _%hd159531159625%_ - _%tl159532159627%_ - _%e159533159630%_ - _%hd159534159633%_ - _%tl159535159635%_ - _%e159536159638%_ - _%hd159537159641%_ - _%tl159538159643%_ - _%e159539159646%_ - _%hd159540159649%_ - _%tl159541159651%_) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169738169739%_)) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_)))) - (_%__kont169738169739%_))))) - (_%__kont169738169739%_))))))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_))))) + (_%__kont170723170724%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form158852%_) - (let* ((_%__stx169866169867%_ _%form158852%_) - (_%g158856158980%_ + (lambda (_%form159837%_) + (let* ((_%__stx170851170852%_ _%form159837%_) + (_%g159841159965%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169866169867%_))))) - (let ((_%__kont169868169869%_ - (lambda (_%L159350%_ _%L159351%_ _%L159352%_) + _%__stx170851170852%_))))) + (let ((_%__kont170853170854%_ + (lambda (_%L160335%_ _%L160336%_ _%L160337%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159351%_)))) - (_%__kont169874169875%_ - (lambda (_%L159198%_ _%L159199%_ _%L159200%_ _%L159201%_) + (gxc#identifier-symbol _%L160336%_)))) + (_%__kont170859170860%_ + (lambda (_%L160183%_ _%L160184%_ _%L160185%_ _%L160186%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159198%_)))) - (_%__kont169878169879%_ - (lambda (_%L159065%_ _%L159066%_ _%L159067%_) + (gxc#identifier-symbol _%L160183%_)))) + (_%__kont170863170864%_ + (lambda (_%L160050%_ _%L160051%_ _%L160052%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159065%_))))) - (let* ((_%__match169975169976%_ - (lambda (_%e158946158985%_ - _%hd158947158988%_ - _%tl158948158990%_ - _%e158949158993%_ - _%hd158950158996%_ - _%tl158951158998%_ - _%e158952159001%_ - _%hd158953159004%_ - _%tl158954159006%_ - _%e158955159009%_ - _%hd158956159012%_ - _%tl158957159014%_ - _%e158958159017%_ - _%hd158959159020%_ - _%tl158960159022%_ - _%e158961159025%_ - _%hd158962159028%_ - _%tl158963159030%_ - _%e158964159033%_ - _%hd158965159036%_ - _%tl158966159038%_ - _%e158967159041%_ - _%hd158968159044%_ - _%tl158969159046%_ - _%e158970159049%_ - _%hd158971159052%_ - _%tl158972159054%_) + (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? _%tl158966159038%_)) - (let ((_%e158973159057%_ + (gx#stx-pair? _%tl159951160023%_)) + (let ((_%e159958160042%_ (let () (declare (not safe)) - (gx#stx-e _%tl158966159038%_)))) - (let ((_%tl158975159062%_ + (gx#stx-e _%tl159951160023%_)))) + (let ((_%tl159960160047%_ (let () (declare (not safe)) - (##cdr _%e158973159057%_))) - (_%hd158974159060%_ + (##cdr _%e159958160042%_))) + (_%hd159959160045%_ (let () (declare (not safe)) - (##car _%e158973159057%_)))) + (##car _%e159958160042%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158975159062%_)) + (gx#stx-null? _%tl159960160047%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158951158998%_)) - (_%__kont169878169879%_ - _%hd158971159052%_ - _%hd158962159028%_ - _%hd158947158988%_) + (gx#stx-null? _%tl159936159983%_)) + (_%__kont170863170864%_ + _%hd159956160037%_ + _%hd159947160013%_ + _%hd159932159973%_) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) - (let () (declare (not safe)) (_%g158856158980%_))))) - (_%__match169905169906%_ - (lambda (_%e158907159102%_ - _%hd158908159105%_ - _%tl158909159107%_ - _%__splice169876169877%_ - _%target158910159110%_ - _%tl158912159112%_) - (letrec ((_%loop158913159115%_ - (lambda (_%hd158911159118%_ - _%arg158917159120%_) + (_%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? _%hd158911159118%_)) - (let ((_%e158914159123%_ + (gx#stx-pair? _%hd159896160103%_)) + (let ((_%e159899160108%_ (let () (declare (not safe)) - (gx#stx-e _%hd158911159118%_)))) - (let ((_%lp-tl158916159128%_ + (gx#stx-e _%hd159896160103%_)))) + (let ((_%lp-tl159901160113%_ (let () (declare (not safe)) - (##cdr _%e158914159123%_))) - (_%lp-hd158915159126%_ + (##cdr _%e159899160108%_))) + (_%lp-hd159900160111%_ (let () (declare (not safe)) - (##car _%e158914159123%_)))) - (_%loop158913159115%_ - _%lp-tl158916159128%_ - (cons _%lp-hd158915159126%_ - _%arg158917159120%_)))) - (let ((_%arg158918159131%_ - (reverse _%arg158917159120%_))) + (##car _%e159899160108%_)))) + (_%loop159898160100%_ + _%lp-tl159901160113%_ + (cons _%lp-hd159900160111%_ + _%arg159902160105%_)))) + (let ((_%arg159903160116%_ + (reverse _%arg159902160105%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158909159107%_)) - (let ((_%e158919159134%_ + _%tl159894160092%_)) + (let ((_%e159904160119%_ (let () (declare (not safe)) (gx#stx-e - _%tl158909159107%_)))) - (let ((_%tl158921159139%_ + _%tl159894160092%_)))) + (let ((_%tl159906160124%_ (let () (declare (not safe)) - (##cdr _%e158919159134%_))) - (_%hd158920159137%_ + (##cdr _%e159904160119%_))) + (_%hd159905160122%_ (let () (declare (not safe)) - (##car _%e158919159134%_)))) + (##car _%e159904160119%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158920159137%_)) - (let ((_%e158922159142%_ + _%hd159905160122%_)) + (let ((_%e159907160127%_ (let () (declare (not safe)) (gx#stx-e - _%hd158920159137%_)))) - (let ((_%tl158924159147%_ + _%hd159905160122%_)))) + (let ((_%tl159909160132%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158922159142%_))) - (_%hd158923159145%_ - (let () (declare (not safe)) (##car _%e158922159142%_)))) + (##cdr _%e159907160127%_))) + (_%hd159908160130%_ + (let () (declare (not safe)) (##car _%e159907160127%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158923159145%_)) + (gx#identifier? _%hd159908160130%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158923159145%_)) + (gx#stx-eq? '%#call _%hd159908160130%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158924159147%_)) - (let ((_%e158925159150%_ + (gx#stx-pair? _%tl159909160132%_)) + (let ((_%e159910160135%_ (let () (declare (not safe)) - (gx#stx-e _%tl158924159147%_)))) - (let ((_%tl158927159155%_ + (gx#stx-e _%tl159909160132%_)))) + (let ((_%tl159912160140%_ (let () (declare (not safe)) - (##cdr _%e158925159150%_))) - (_%hd158926159153%_ + (##cdr _%e159910160135%_))) + (_%hd159911160138%_ (let () (declare (not safe)) - (##car _%e158925159150%_)))) + (##car _%e159910160135%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158926159153%_)) - (let ((_%e158928159158%_ + (gx#stx-pair? _%hd159911160138%_)) + (let ((_%e159913160143%_ (let () (declare (not safe)) - (gx#stx-e _%hd158926159153%_)))) - (let ((_%tl158930159163%_ + (gx#stx-e _%hd159911160138%_)))) + (let ((_%tl159915160148%_ (let () (declare (not safe)) - (##cdr _%e158928159158%_))) - (_%hd158929159161%_ + (##cdr _%e159913160143%_))) + (_%hd159914160146%_ (let () (declare (not safe)) - (##car _%e158928159158%_)))) + (##car _%e159913160143%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158929159161%_)) + _%hd159914160146%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158929159161%_)) + _%hd159914160146%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158930159163%_)) - (let ((_%e158931159166%_ + _%tl159915160148%_)) + (let ((_%e159916160151%_ (let () (declare (not safe)) (gx#stx-e - _%tl158930159163%_)))) - (let ((_%tl158933159171%_ + _%tl159915160148%_)))) + (let ((_%tl159918160156%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158931159166%_))) - (_%hd158932159169%_ - (let () (declare (not safe)) (##car _%e158931159166%_)))) + (##cdr _%e159916160151%_))) + (_%hd159917160154%_ + (let () (declare (not safe)) (##car _%e159916160151%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158933159171%_)) + (gx#stx-null? _%tl159918160156%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158927159155%_)) - (let ((_%e158934159174%_ + (gx#stx-pair? _%tl159912160140%_)) + (let ((_%e159919160159%_ (let () (declare (not safe)) - (gx#stx-e _%tl158927159155%_)))) - (let ((_%tl158936159179%_ + (gx#stx-e _%tl159912160140%_)))) + (let ((_%tl159921160164%_ (let () (declare (not safe)) - (##cdr _%e158934159174%_))) - (_%hd158935159177%_ + (##cdr _%e159919160159%_))) + (_%hd159920160162%_ (let () (declare (not safe)) - (##car _%e158934159174%_)))) + (##car _%e159919160159%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158935159177%_)) - (let ((_%e158937159182%_ + (gx#stx-pair? _%hd159920160162%_)) + (let ((_%e159922160167%_ (let () (declare (not safe)) - (gx#stx-e _%hd158935159177%_)))) - (let ((_%tl158939159187%_ + (gx#stx-e _%hd159920160162%_)))) + (let ((_%tl159924160172%_ (let () (declare (not safe)) - (##cdr _%e158937159182%_))) - (_%hd158938159185%_ + (##cdr _%e159922160167%_))) + (_%hd159923160170%_ (let () (declare (not safe)) - (##car _%e158937159182%_)))) + (##car _%e159922160167%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158938159185%_)) + (gx#identifier? _%hd159923160170%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158938159185%_)) + _%hd159923160170%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158939159187%_)) - (let ((_%e158940159190%_ + _%tl159924160172%_)) + (let ((_%e159925160175%_ (let () (declare (not safe)) (gx#stx-e - _%tl158939159187%_)))) - (let ((_%tl158942159195%_ + _%tl159924160172%_)))) + (let ((_%tl159927160180%_ (let () (declare (not safe)) - (##cdr _%e158940159190%_))) - (_%hd158941159193%_ + (##cdr _%e159925160175%_))) + (_%hd159926160178%_ (let () (declare (not safe)) - (##car _%e158940159190%_)))) + (##car _%e159925160175%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158942159195%_)) + _%tl159927160180%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158921159139%_)) - (_%__kont169874169875%_ - _%hd158941159193%_ - _%hd158932159169%_ - _%tl158912159112%_ - _%arg158918159131%_) - (_%__match169975169976%_ - _%e158907159102%_ - _%hd158908159105%_ - _%tl158909159107%_ - _%e158919159134%_ - _%hd158920159137%_ - _%tl158921159139%_ - _%e158922159142%_ - _%hd158923159145%_ - _%tl158924159147%_ - _%e158925159150%_ - _%hd158926159153%_ - _%tl158927159155%_ - _%e158928159158%_ - _%hd158929159161%_ - _%tl158930159163%_ - _%e158931159166%_ - _%hd158932159169%_ - _%tl158933159171%_ - _%e158934159174%_ - _%hd158935159177%_ - _%tl158936159179%_ - _%e158937159182%_ - _%hd158938159185%_ - _%tl158939159187%_ - _%e158940159190%_ - _%hd158941159193%_ - _%tl158942159195%_)) + _%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)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_))))) - (let () (declare (not safe)) (_%g158856158980%_))) - (let () (declare (not safe)) (_%g158856158980%_))))) + (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_))))) - (let () (declare (not safe)) (_%g158856158980%_))) - (let () (declare (not safe)) (_%g158856158980%_))) - (let () (declare (not safe)) (_%g158856158980%_))))) + (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_)))))))) - (_%loop158913159115%_ _%target158910159110%_ '())))) - (_%__match169893169894%_ - (lambda (_%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_) - (letrec ((_%loop158867159251%_ - (lambda (_%hd158865159254%_ - _%arg158871159256%_) + (_%g159841159965%_)))))))) + (_%loop159898160100%_ _%target159895160095%_ '())))) + (_%__match170878170879%_ + (lambda (_%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_) + (letrec ((_%loop159852160236%_ + (lambda (_%hd159850160239%_ + _%arg159856160241%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158865159254%_)) - (let ((_%e158868159259%_ + (gx#stx-pair? _%hd159850160239%_)) + (let ((_%e159853160244%_ (let () (declare (not safe)) - (gx#stx-e _%hd158865159254%_)))) - (let ((_%lp-tl158870159264%_ + (gx#stx-e _%hd159850160239%_)))) + (let ((_%lp-tl159855160249%_ (let () (declare (not safe)) - (##cdr _%e158868159259%_))) - (_%lp-hd158869159262%_ + (##cdr _%e159853160244%_))) + (_%lp-hd159854160247%_ (let () (declare (not safe)) - (##car _%e158868159259%_)))) - (_%loop158867159251%_ - _%lp-tl158870159264%_ - (cons _%lp-hd158869159262%_ - _%arg158871159256%_)))) - (let ((_%arg158872159267%_ - (reverse _%arg158871159256%_))) + (##car _%e159853160244%_)))) + (_%loop159852160236%_ + _%lp-tl159855160249%_ + (cons _%lp-hd159854160247%_ + _%arg159856160241%_)))) + (let ((_%arg159857160252%_ + (reverse _%arg159856160241%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158863159243%_)) - (let ((_%e158873159270%_ + _%tl159848160228%_)) + (let ((_%e159858160255%_ (let () (declare (not safe)) (gx#stx-e - _%tl158863159243%_)))) - (let ((_%tl158875159275%_ + _%tl159848160228%_)))) + (let ((_%tl159860160260%_ (let () (declare (not safe)) - (##cdr _%e158873159270%_))) - (_%hd158874159273%_ + (##cdr _%e159858160255%_))) + (_%hd159859160258%_ (let () (declare (not safe)) - (##car _%e158873159270%_)))) + (##car _%e159858160255%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158874159273%_)) - (let ((_%e158876159278%_ + _%hd159859160258%_)) + (let ((_%e159861160263%_ (let () (declare (not safe)) (gx#stx-e - _%hd158874159273%_)))) - (let ((_%tl158878159283%_ + _%hd159859160258%_)))) + (let ((_%tl159863160268%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158876159278%_))) - (_%hd158877159281%_ - (let () (declare (not safe)) (##car _%e158876159278%_)))) + (##cdr _%e159861160263%_))) + (_%hd159862160266%_ + (let () (declare (not safe)) (##car _%e159861160263%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158877159281%_)) + (gx#identifier? _%hd159862160266%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158877159281%_)) + (gx#stx-eq? '%#call _%hd159862160266%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158878159283%_)) - (let ((_%e158879159286%_ + (gx#stx-pair? _%tl159863160268%_)) + (let ((_%e159864160271%_ (let () (declare (not safe)) - (gx#stx-e _%tl158878159283%_)))) - (let ((_%tl158881159291%_ + (gx#stx-e _%tl159863160268%_)))) + (let ((_%tl159866160276%_ (let () (declare (not safe)) - (##cdr _%e158879159286%_))) - (_%hd158880159289%_ + (##cdr _%e159864160271%_))) + (_%hd159865160274%_ (let () (declare (not safe)) - (##car _%e158879159286%_)))) + (##car _%e159864160271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158880159289%_)) - (let ((_%e158882159294%_ + (gx#stx-pair? _%hd159865160274%_)) + (let ((_%e159867160279%_ (let () (declare (not safe)) - (gx#stx-e _%hd158880159289%_)))) - (let ((_%tl158884159299%_ + (gx#stx-e _%hd159865160274%_)))) + (let ((_%tl159869160284%_ (let () (declare (not safe)) - (##cdr _%e158882159294%_))) - (_%hd158883159297%_ + (##cdr _%e159867160279%_))) + (_%hd159868160282%_ (let () (declare (not safe)) - (##car _%e158882159294%_)))) + (##car _%e159867160279%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158883159297%_)) + _%hd159868160282%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158883159297%_)) + _%hd159868160282%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158884159299%_)) - (let ((_%e158885159302%_ + _%tl159869160284%_)) + (let ((_%e159870160287%_ (let () (declare (not safe)) (gx#stx-e - _%tl158884159299%_)))) - (let ((_%tl158887159307%_ + _%tl159869160284%_)))) + (let ((_%tl159872160292%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158885159302%_))) - (_%hd158886159305%_ - (let () (declare (not safe)) (##car _%e158885159302%_)))) + (##cdr _%e159870160287%_))) + (_%hd159871160290%_ + (let () (declare (not safe)) (##car _%e159870160287%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158887159307%_)) + (gx#stx-null? _%tl159872160292%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl158881159291%_)) - (let ((_%__splice169872169873%_ + (gx#stx-pair/null? _%tl159866160276%_)) + (let ((_%__splice170857170858%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158881159291%_ + _%tl159866160276%_ '0)))) - (let ((_%tl158890159312%_ + (let ((_%tl159875160297%_ (let () (declare (not safe)) - (##vector-ref _%__splice169872169873%_ '1))) - (_%target158888159310%_ + (##vector-ref _%__splice170857170858%_ '1))) + (_%target159873160295%_ (let () (declare (not safe)) (##vector-ref - _%__splice169872169873%_ + _%__splice170857170858%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158890159312%_)) - (letrec ((_%loop158891159315%_ - (lambda (_%hd158889159318%_ - _%xarg158895159320%_) + (gx#stx-null? _%tl159875160297%_)) + (letrec ((_%loop159876160300%_ + (lambda (_%hd159874160303%_ + _%xarg159880160305%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158889159318%_)) - (let ((_%e158892159323%_ + _%hd159874160303%_)) + (let ((_%e159877160308%_ (let () (declare (not safe)) (gx#stx-e - _%hd158889159318%_)))) - (let ((_%lp-tl158894159328%_ + _%hd159874160303%_)))) + (let ((_%lp-tl159879160313%_ (let () (declare (not safe)) - (##cdr _%e158892159323%_))) - (_%lp-hd158893159326%_ + (##cdr _%e159877160308%_))) + (_%lp-hd159878160311%_ (let () (declare (not safe)) - (##car _%e158892159323%_)))) + (##car _%e159877160308%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd158893159326%_)) - (let ((_%e158897159331%_ + _%lp-hd159878160311%_)) + (let ((_%e159882160316%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd158893159326%_)))) - (let ((_%tl158899159336%_ + (gx#stx-e _%lp-hd159878160311%_)))) + (let ((_%tl159884160321%_ (let () (declare (not safe)) - (##cdr _%e158897159331%_))) - (_%hd158898159334%_ + (##cdr _%e159882160316%_))) + (_%hd159883160319%_ (let () (declare (not safe)) - (##car _%e158897159331%_)))) + (##car _%e159882160316%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158898159334%_)) + (gx#identifier? _%hd159883160319%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158898159334%_)) + (gx#stx-eq? '%#ref _%hd159883160319%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158899159336%_)) - (let ((_%e158900159339%_ + (gx#stx-pair? _%tl159884160321%_)) + (let ((_%e159885160324%_ (let () (declare (not safe)) - (gx#stx-e _%tl158899159336%_)))) - (let ((_%tl158902159344%_ + (gx#stx-e _%tl159884160321%_)))) + (let ((_%tl159887160329%_ (let () (declare (not safe)) - (##cdr _%e158900159339%_))) - (_%hd158901159342%_ + (##cdr _%e159885160324%_))) + (_%hd159886160327%_ (let () (declare (not safe)) - (##car _%e158900159339%_)))) + (##car _%e159885160324%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158902159344%_)) - (_%loop158891159315%_ - _%lp-tl158894159328%_ - (cons _%hd158901159342%_ - _%xarg158895159320%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) + (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 ((_%xarg158896159347%_ - (reverse _%xarg158895159320%_))) + (let ((_%xarg159881160332%_ + (reverse _%xarg159880160305%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158875159275%_)) - (_%__kont169868169869%_ - _%xarg158896159347%_ - _%hd158886159305%_ - _%arg158872159267%_) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_))))))) - (_%loop158891159315%_ - _%target158888159310%_ + _%tl159860160260%_)) + (_%__kont170853170854%_ + _%xarg159881160332%_ + _%hd159871160290%_ + _%arg159857160252%_) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_))))))) + (_%loop159876160300%_ + _%target159873160295%_ '())) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) + (_%__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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_))))))) - (_%loop158867159251%_ _%target158864159246%_ '()))))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_))))))) + (_%loop159852160236%_ _%target159849160231%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169866169867%_)) - (let ((_%e158861159238%_ + (gx#stx-pair? _%__stx170851170852%_)) + (let ((_%e159846160223%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169866169867%_)))) - (let ((_%tl158863159243%_ + (gx#stx-e _%__stx170851170852%_)))) + (let ((_%tl159848160228%_ (let () (declare (not safe)) - (##cdr _%e158861159238%_))) - (_%hd158862159241%_ + (##cdr _%e159846160223%_))) + (_%hd159847160226%_ (let () (declare (not safe)) - (##car _%e158861159238%_)))) + (##car _%e159846160223%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd158862159241%_)) - (let ((_%__splice169870169871%_ + (gx#stx-pair/null? _%hd159847160226%_)) + (let ((_%__splice170855170856%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd158862159241%_ + _%hd159847160226%_ '0)))) - (let ((_%tl158866159248%_ + (let ((_%tl159851160233%_ (let () (declare (not safe)) (##vector-ref - _%__splice169870169871%_ + _%__splice170855170856%_ '1))) - (_%target158864159246%_ + (_%target159849160231%_ (let () (declare (not safe)) (##vector-ref - _%__splice169870169871%_ + _%__splice170855170856%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158866159248%_)) - (_%__match169893169894%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_) - (_%__match169905169906%_ - _%e158861159238%_ - _%hd158862159241%_ - _%tl158863159243%_ - _%__splice169870169871%_ - _%target158864159246%_ - _%tl158866159248%_)))) + (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? _%tl158863159243%_)) - (let ((_%e158949158993%_ + (gx#stx-pair? _%tl159848160228%_)) + (let ((_%e159934159978%_ (let () (declare (not safe)) - (gx#stx-e _%tl158863159243%_)))) - (let ((_%tl158951158998%_ + (gx#stx-e _%tl159848160228%_)))) + (let ((_%tl159936159983%_ (let () (declare (not safe)) - (##cdr _%e158949158993%_))) - (_%hd158950158996%_ + (##cdr _%e159934159978%_))) + (_%hd159935159981%_ (let () (declare (not safe)) - (##car _%e158949158993%_)))) + (##car _%e159934159978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158950158996%_)) - (let ((_%e158952159001%_ + (gx#stx-pair? _%hd159935159981%_)) + (let ((_%e159937159986%_ (let () (declare (not safe)) - (gx#stx-e _%hd158950158996%_)))) - (let ((_%tl158954159006%_ + (gx#stx-e _%hd159935159981%_)))) + (let ((_%tl159939159991%_ (let () (declare (not safe)) - (##cdr _%e158952159001%_))) - (_%hd158953159004%_ + (##cdr _%e159937159986%_))) + (_%hd159938159989%_ (let () (declare (not safe)) - (##car _%e158952159001%_)))) + (##car _%e159937159986%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158953159004%_)) + _%hd159938159989%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158953159004%_)) + _%hd159938159989%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158954159006%_)) - (let ((_%e158955159009%_ + _%tl159939159991%_)) + (let ((_%e159940159994%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158954159006%_)))) - (let ((_%tl158957159014%_ - (let () (declare (not safe)) (##cdr _%e158955159009%_))) - (_%hd158956159012%_ + (gx#stx-e _%tl159939159991%_)))) + (let ((_%tl159942159999%_ + (let () (declare (not safe)) (##cdr _%e159940159994%_))) + (_%hd159941159997%_ (let () (declare (not safe)) - (##car _%e158955159009%_)))) + (##car _%e159940159994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158956159012%_)) - (let ((_%e158958159017%_ + (gx#stx-pair? _%hd159941159997%_)) + (let ((_%e159943160002%_ (let () (declare (not safe)) - (gx#stx-e _%hd158956159012%_)))) - (let ((_%tl158960159022%_ + (gx#stx-e _%hd159941159997%_)))) + (let ((_%tl159945160007%_ (let () (declare (not safe)) - (##cdr _%e158958159017%_))) - (_%hd158959159020%_ + (##cdr _%e159943160002%_))) + (_%hd159944160005%_ (let () (declare (not safe)) - (##car _%e158958159017%_)))) + (##car _%e159943160002%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158959159020%_)) + (gx#identifier? _%hd159944160005%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158959159020%_)) + (gx#stx-eq? '%#ref _%hd159944160005%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158960159022%_)) - (let ((_%e158961159025%_ + (gx#stx-pair? _%tl159945160007%_)) + (let ((_%e159946160010%_ (let () (declare (not safe)) - (gx#stx-e _%tl158960159022%_)))) - (let ((_%tl158963159030%_ + (gx#stx-e _%tl159945160007%_)))) + (let ((_%tl159948160015%_ (let () (declare (not safe)) - (##cdr _%e158961159025%_))) - (_%hd158962159028%_ + (##cdr _%e159946160010%_))) + (_%hd159947160013%_ (let () (declare (not safe)) - (##car _%e158961159025%_)))) + (##car _%e159946160010%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158963159030%_)) + _%tl159948160015%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158957159014%_)) - (let ((_%e158964159033%_ + _%tl159942159999%_)) + (let ((_%e159949160018%_ (let () (declare (not safe)) (gx#stx-e - _%tl158957159014%_)))) - (let ((_%tl158966159038%_ + _%tl159942159999%_)))) + (let ((_%tl159951160023%_ (let () (declare (not safe)) - (##cdr _%e158964159033%_))) - (_%hd158965159036%_ + (##cdr _%e159949160018%_))) + (_%hd159950160021%_ (let () (declare (not safe)) - (##car _%e158964159033%_)))) + (##car _%e159949160018%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158965159036%_)) - (let ((_%e158967159041%_ + _%hd159950160021%_)) + (let ((_%e159952160026%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd158965159036%_)))) - (let ((_%tl158969159046%_ + (gx#stx-e _%hd159950160021%_)))) + (let ((_%tl159954160031%_ (let () (declare (not safe)) - (##cdr _%e158967159041%_))) - (_%hd158968159044%_ + (##cdr _%e159952160026%_))) + (_%hd159953160029%_ (let () (declare (not safe)) - (##car _%e158967159041%_)))) + (##car _%e159952160026%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158968159044%_)) + (gx#identifier? _%hd159953160029%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158968159044%_)) + (gx#stx-eq? '%#ref _%hd159953160029%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158969159046%_)) - (let ((_%e158970159049%_ + (gx#stx-pair? _%tl159954160031%_)) + (let ((_%e159955160034%_ (let () (declare (not safe)) - (gx#stx-e _%tl158969159046%_)))) - (let ((_%tl158972159054%_ + (gx#stx-e _%tl159954160031%_)))) + (let ((_%tl159957160039%_ (let () (declare (not safe)) - (##cdr _%e158970159049%_))) - (_%hd158971159052%_ + (##cdr _%e159955160034%_))) + (_%hd159956160037%_ (let () (declare (not safe)) - (##car _%e158970159049%_)))) + (##car _%e159955160034%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158972159054%_)) + (gx#stx-null? _%tl159957160039%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158966159038%_)) - (let ((_%e158973159057%_ + _%tl159951160023%_)) + (let ((_%e159958160042%_ (let () (declare (not safe)) (gx#stx-e - _%tl158966159038%_)))) - (let ((_%tl158975159062%_ + _%tl159951160023%_)))) + (let ((_%tl159960160047%_ (let () (declare (not safe)) - (##cdr _%e158973159057%_))) - (_%hd158974159060%_ + (##cdr _%e159958160042%_))) + (_%hd159959160045%_ (let () (declare (not safe)) - (##car _%e158973159057%_)))) + (##car _%e159958160042%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158975159062%_)) + _%tl159960160047%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158951158998%_)) - (_%__kont169878169879%_ - _%hd158971159052%_ - _%hd158962159028%_ - _%hd158862159241%_) + _%tl159936159983%_)) + (_%__kont170863170864%_ + _%hd159956160037%_ + _%hd159947160013%_ + _%hd159847160226%_) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))) - (let () (declare (not safe)) (_%g158856158980%_))))) - (let () (declare (not safe)) (_%g158856158980%_))))) + (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) - (let () (declare (not safe)) (_%g158856158980%_))))) - (let () (declare (not safe)) (_%g158856158980%_))) + (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158856158980%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158856158980%_)))))) - (let () (declare (not safe)) (_%g158856158980%_)))))))) + (_%g159841159965%_)))))) + (let () (declare (not safe)) (_%g159841159965%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form158656%_) - (let* ((_%g158658158672%_ - (lambda (_%g158659158669%_) + (lambda (_%form159641%_) + (let* ((_%g159643159657%_ + (lambda (_%g159644159654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158659158669%_)))) - (_%g158657158849%_ - (lambda (_%g158659158675%_) + _%g159644159654%_)))) + (_%g159642159834%_ + (lambda (_%g159644159660%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158659158675%_)) - (let ((_%e158662158677%_ + (gx#stx-pair? _%g159644159660%_)) + (let ((_%e159647159662%_ (let () (declare (not safe)) - (gx#stx-e _%g158659158675%_)))) - (let ((_%hd158663158680%_ + (gx#stx-e _%g159644159660%_)))) + (let ((_%hd159648159665%_ (let () (declare (not safe)) - (##car _%e158662158677%_))) - (_%tl158664158682%_ + (##car _%e159647159662%_))) + (_%tl159649159667%_ (let () (declare (not safe)) - (##cdr _%e158662158677%_)))) + (##cdr _%e159647159662%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158664158682%_)) - (let ((_%e158665158685%_ + (gx#stx-pair? _%tl159649159667%_)) + (let ((_%e159650159670%_ (let () (declare (not safe)) - (gx#stx-e _%tl158664158682%_)))) - (let ((_%hd158666158688%_ + (gx#stx-e _%tl159649159667%_)))) + (let ((_%hd159651159673%_ (let () (declare (not safe)) - (##car _%e158665158685%_))) - (_%tl158667158690%_ + (##car _%e159650159670%_))) + (_%tl159652159675%_ (let () (declare (not safe)) - (##cdr _%e158665158685%_)))) + (##cdr _%e159650159670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158667158690%_)) - ((lambda (_%L158693%_ _%L158694%_) - (let* ((_%__stx169988169989%_ - _%L158694%_) - (_%g158709158737%_ + (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" - _%__stx169988169989%_))))) - (let ((_%__kont169990169991%_ - (lambda (_%L158828%_) - (length (let ((__tmp171379 + _%__stx170973170974%_))))) + (let ((_%__kont170975170976%_ + (lambda (_%L159813%_) + (length (let ((__tmp172364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158838158841%_ _%g158839158843%_) - (cons _%g158838158841%_ _%g158839158843%_)))) + (lambda (_%g159823159826%_ _%g159824159828%_) + (cons _%g159823159826%_ _%g159824159828%_)))) (declare (not safe)) - (__foldr1 __tmp171379 '() _%L158828%_))))) + (__foldr1 __tmp172364 '() _%L159813%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169994169995%_ - (lambda (_%L158779%_ - _%L158780%_) - (cons (length (let ((__tmp171380 + (_%__kont170979170980%_ + (lambda (_%L159764%_ + _%L159765%_) + (cons (length (let ((__tmp172365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158791158794%_ _%g158792158796%_) - (cons _%g158791158794%_ - _%g158792158796%_)))) + (lambda (_%g159776159779%_ _%g159777159781%_) + (cons _%g159776159779%_ + _%g159777159781%_)))) (declare (not safe)) - (__foldr1 __tmp171380 '() _%L158780%_))) + (__foldr1 __tmp172365 '() _%L159765%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169998169999%_ - (lambda (_%L158742%_) + (_%__kont170983170984%_ + (lambda (_%L159727%_) (cons '0 '())))) - (let* ((_%__match170013170014%_ - (lambda (_%__splice169996169997%_ - _%target158723158755%_ - _%tl158725158757%_) - (letrec ((_%loop158726158760%_ + (let* ((_%__match170998170999%_ + (lambda (_%__splice170981170982%_ + _%target159708159740%_ + _%tl159710159742%_) + (letrec ((_%loop159711159745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158724158763%_ _%arg158730158765%_) + (lambda (_%hd159709159748%_ _%arg159715159750%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158724158763%_)) - (let ((_%e158727158768%_ + (gx#stx-pair? _%hd159709159748%_)) + (let ((_%e159712159753%_ (let () (declare (not safe)) - (gx#stx-e _%hd158724158763%_)))) - (let ((_%lp-tl158729158773%_ + (gx#stx-e _%hd159709159748%_)))) + (let ((_%lp-tl159714159758%_ (let () (declare (not safe)) - (##cdr _%e158727158768%_))) - (_%lp-hd158728158771%_ + (##cdr _%e159712159753%_))) + (_%lp-hd159713159756%_ (let () (declare (not safe)) - (##car _%e158727158768%_)))) - (_%loop158726158760%_ - _%lp-tl158729158773%_ - (cons _%lp-hd158728158771%_ - _%arg158730158765%_)))) - (let ((_%arg158731158776%_ - (reverse _%arg158730158765%_))) - (_%__kont169994169995%_ - _%tl158725158757%_ - _%arg158731158776%_)))))) - (_%loop158726158760%_ _%target158723158755%_ '())))) + (##car _%e159712159753%_)))) + (_%loop159711159745%_ + _%lp-tl159714159758%_ + (cons _%lp-hd159713159756%_ + _%arg159715159750%_)))) + (let ((_%arg159716159761%_ + (reverse _%arg159715159750%_))) + (_%__kont170979170980%_ + _%tl159710159742%_ + _%arg159716159761%_)))))) + (_%loop159711159745%_ _%target159708159740%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match170007170008%_ - (lambda (_%__splice169992169993%_ - _%target158712158804%_ - _%tl158714158806%_) - (letrec ((_%loop158715158809%_ + (_%__match170992170993%_ + (lambda (_%__splice170977170978%_ + _%target159697159789%_ + _%tl159699159791%_) + (letrec ((_%loop159700159794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158713158812%_ _%arg158719158814%_) + (lambda (_%hd159698159797%_ _%arg159704159799%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158713158812%_)) - (let ((_%e158716158817%_ + (gx#stx-pair? _%hd159698159797%_)) + (let ((_%e159701159802%_ (let () (declare (not safe)) - (gx#stx-e _%hd158713158812%_)))) - (let ((_%lp-tl158718158822%_ + (gx#stx-e _%hd159698159797%_)))) + (let ((_%lp-tl159703159807%_ (let () (declare (not safe)) - (##cdr _%e158716158817%_))) - (_%lp-hd158717158820%_ + (##cdr _%e159701159802%_))) + (_%lp-hd159702159805%_ (let () (declare (not safe)) - (##car _%e158716158817%_)))) - (_%loop158715158809%_ - _%lp-tl158718158822%_ - (cons _%lp-hd158717158820%_ - _%arg158719158814%_)))) - (let ((_%arg158720158825%_ - (reverse _%arg158719158814%_))) - (_%__kont169990169991%_ - _%arg158720158825%_)))))) - (_%loop158715158809%_ _%target158712158804%_ '()))))) + (##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? - _%__stx169988169989%_)) - (let ((_%__splice169992169993%_ + _%__stx170973170974%_)) + (let ((_%__splice170977170978%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx169988169989%_ + _%__stx170973170974%_ '0)))) - (let ((_%tl158714158806%_ + (let ((_%tl159699159791%_ (let () (declare (not safe)) (##vector-ref - _%__splice169992169993%_ + _%__splice170977170978%_ '1))) - (_%target158712158804%_ + (_%target159697159789%_ (let () (declare (not safe)) (##vector-ref - _%__splice169992169993%_ + _%__splice170977170978%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158714158806%_)) - (_%__match170007170008%_ - _%__splice169992169993%_ - _%target158712158804%_ - _%tl158714158806%_) - (_%__match170013170014%_ - _%__splice169992169993%_ - _%target158712158804%_ - _%tl158714158806%_)))) - (_%__kont169998169999%_ - _%__stx169988169989%_)))))) - _%hd158666158688%_ - _%hd158663158680%_) - (_%g158658158672%_ _%g158659158675%_)))) - (_%g158658158672%_ _%g158659158675%_)))) - (_%g158658158672%_ _%g158659158675%_))))) - (_%g158657158849%_ _%form158656%_)))) + _%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 (_%form158582%_) - (letrec ((_%default-signature158584%_ + (lambda (_%form159567%_) + (letrec ((_%default-signature159569%_ (lambda () - (let ((__obj171147 + (let ((__obj172132 (let () (declare (not safe)) (##structure @@ -17998,12 +17998,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171147 + __obj172132 't::t '1 '#f '#f)) - (let ((__tmp171381 + (let ((__tmp172366 (##structure-ref (let () (declare (not safe)) @@ -18013,74 +18013,74 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171147 - __tmp171381 + __obj172132 + __tmp172366 '5 '#f '#f)) - __obj171147)))) - (let* ((_%g158586158600%_ - (lambda (_%g158587158597%_) + __obj172132)))) + (let* ((_%g159571159585%_ + (lambda (_%g159572159582%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158587158597%_)))) - (_%g158585158652%_ - (lambda (_%g158587158603%_) + _%g159572159582%_)))) + (_%g159570159637%_ + (lambda (_%g159572159588%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158587158603%_)) - (let ((_%e158590158605%_ + (gx#stx-pair? _%g159572159588%_)) + (let ((_%e159575159590%_ (let () (declare (not safe)) - (gx#stx-e _%g158587158603%_)))) - (let ((_%hd158591158608%_ + (gx#stx-e _%g159572159588%_)))) + (let ((_%hd159576159593%_ (let () (declare (not safe)) - (##car _%e158590158605%_))) - (_%tl158592158610%_ + (##car _%e159575159590%_))) + (_%tl159577159595%_ (let () (declare (not safe)) - (##cdr _%e158590158605%_)))) + (##cdr _%e159575159590%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158592158610%_)) - (let ((_%e158593158613%_ + (gx#stx-pair? _%tl159577159595%_)) + (let ((_%e159578159598%_ (let () (declare (not safe)) - (gx#stx-e _%tl158592158610%_)))) - (let ((_%hd158594158616%_ + (gx#stx-e _%tl159577159595%_)))) + (let ((_%hd159579159601%_ (let () (declare (not safe)) - (##car _%e158593158613%_))) - (_%tl158595158618%_ + (##car _%e159578159598%_))) + (_%tl159580159603%_ (let () (declare (not safe)) - (##cdr _%e158593158613%_)))) + (##cdr _%e159578159598%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158595158618%_)) - ((lambda (_%L158621%_ _%L158622%_) - (let ((_%$e158636%_ + (gx#stx-null? _%tl159580159603%_)) + ((lambda (_%L159606%_ _%L159607%_) + (let ((_%$e159621%_ (gxc#apply-extract-lambda-signature - _%L158621%_))) - (if _%$e158636%_ - _%$e158636%_ - (let ((_%$e158639%_ + _%L159606%_))) + (if _%$e159621%_ + _%$e159621%_ + (let ((_%$e159624%_ (gxc#apply-basic-expression-type - _%L158621%_))) - (if _%$e158639%_ - ((lambda (_%return-type158642%_) + _%L159606%_))) + (if _%$e159624%_ + ((lambda (_%return-type159627%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type158642%_ + _%return-type159627%_ 'gxc#!procedure::t)) - (let ((__obj171149 + (let ((__obj172134 (let () (declare (not safe)) (##structure @@ -18093,12 +18093,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171149 + __obj172134 'procedure::t '1 '#f '#f)) - (let ((__tmp171382 + (let ((__tmp172367 (##structure-ref (let () (declare (not safe)) @@ -18108,20 +18108,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171149 - __tmp171382 + __obj172134 + __tmp172367 '5 '#f '#f)) - __obj171149) - (let ((_%$e158645%_ + __obj172134) + (let ((_%$e159630%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type158642%_)))) - (if _%$e158645%_ - ((lambda (_%return-type-name158648%_) - (let ((__obj171148 + _%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! - __obj171148 - _%return-type-name158648%_ + __obj172133 + _%return-type-name159633%_ '1 '#f '#f)) - (let ((__tmp171383 + (let ((__tmp172368 (##structure-ref (let () (declare (not safe)) @@ -18149,124 +18149,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171148 - __tmp171383 + __obj172133 + __tmp172368 '5 '#f '#f)) - __obj171148)) - _%$e158645%_) - (_%default-signature158584%_))))) - _%$e158639%_) - (_%default-signature158584%_)))))) + __obj172133)) + _%$e159630%_) + (_%default-signature159569%_))))) + _%$e159624%_) + (_%default-signature159569%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd158594158616%_ - _%hd158591158608%_) - (_%g158586158600%_ - _%g158587158603%_)))) - (_%g158586158600%_ _%g158587158603%_)))) - (_%g158586158600%_ _%g158587158603%_))))) - (_%g158585158652%_ _%form158582%_))))) + _%hd159579159601%_ + _%hd159576159593%_) + (_%g159571159585%_ + _%g159572159588%_)))) + (_%g159571159585%_ _%g159572159588%_)))) + (_%g159571159585%_ _%g159572159588%_))))) + (_%g159570159637%_ _%form159567%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self158321%_ _%stx158322%_) - (let* ((_%__stx170029170030%_ _%stx158322%_) - (_%g158325158365%_ + (lambda (_%self159306%_ _%stx159307%_) + (let* ((_%__stx171014171015%_ _%stx159307%_) + (_%g159310159350%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170029170030%_))))) - (let ((_%__kont170031170032%_ - (lambda (_%L158471%_ _%L158472%_) - (let _%loop158492%_ ((_%rest158494%_ - (let ((__tmp171388 - (lambda (_%g158571158574%_ - _%g158572158576%_) - (cons _%g158571158574%_ - _%g158572158576%_)))) + _%__stx171014171015%_))))) + (let ((_%__kont171016171017%_ + (lambda (_%L159456%_ _%L159457%_) + (let _%loop159477%_ ((_%rest159479%_ + (let ((__tmp172373 + (lambda (_%g159556159559%_ + _%g159557159561%_) + (cons _%g159556159559%_ + _%g159557159561%_)))) (declare (not safe)) (__foldr1 - __tmp171388 + __tmp172373 '() - _%L158472%_))) - (_%result158495%_ '())) - (let* ((_%rest158496158509%_ _%rest158494%_) - (_%E158500158513%_ + _%L159457%_))) + (_%result159480%_ '())) + (let* ((_%rest159481159494%_ _%rest159479%_) + (_%E159485159498%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest158496158509%_ + _%rest159481159494%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K158503158553%_ - (lambda (_%rest158539%_ - _%arg158540%_ - _%key158541%_) - (let ((_%$e158543%_ + (let ((_%K159488159538%_ + (lambda (_%rest159524%_ + _%arg159525%_ + _%key159526%_) + (let ((_%$e159528%_ (let () (declare (not safe)) - (gx#stx-e _%key158541%_)))) - (if (eq? 'return: _%$e158543%_) - (_%loop158492%_ - _%rest158539%_ + (gx#stx-e _%key159526%_)))) + (if (eq? 'return: _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg158540%_)) - _%result158495%_))) - (if (eq? 'effect: _%$e158543%_) - (_%loop158492%_ - _%rest158539%_ + _%arg159525%_)) + _%result159480%_))) + (if (eq? 'effect: _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'effect: - (cons (if _%arg158540%_ + (cons (if _%arg159525%_ (map gx#stx-e - _%arg158540%_) + _%arg159525%_) '#f) - _%result158495%_))) - (if (eq? 'arguments: _%$e158543%_) - (_%loop158492%_ - _%rest158539%_ + _%result159480%_))) + (if (eq? 'arguments: _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg158540%_)) - _%result158495%_))) + _%arg159525%_)) + _%result159480%_))) (if (eq? 'unchecked: - _%$e158543%_) - (_%loop158492%_ - _%rest158539%_ + _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg158540%_)) - _%result158495%_))) + (gxc#identifier-symbol _%arg159525%_)) + _%result159480%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171384 - (let ((__tmp171385 - (lambda (_%g158545158548%_ + (let ((__tmp172369 + (let ((__tmp172370 + (lambda (_%g159530159533%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g158546158550%_) - (cons _%g158545158548%_ _%g158546158550%_)))) + _%g159531159535%_) + (cons _%g159530159533%_ _%g159531159535%_)))) (declare (not safe)) - (__foldr1 __tmp171385 '() _%L158472%_)))) + (__foldr1 __tmp172370 '() _%L159457%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158322%_ - __tmp171384 - _%key158541%_))))))))) - (_%K158502158533%_ + _%stx159307%_ + __tmp172369 + _%key159526%_))))))))) + (_%K159487159518%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18277,1824 +18277,1824 @@ '1 gx#expander-context::t '#f) - _%result158495%_))) - (_%K158501158525%_ + _%result159480%_))) + (_%K159486159510%_ (lambda () - (let ((__tmp171386 - (let ((__tmp171387 - (lambda (_%g158517158520%_ - _%g158518158522%_) - (cons _%g158517158520%_ - _%g158518158522%_)))) + (let ((__tmp172371 + (let ((__tmp172372 + (lambda (_%g159502159505%_ + _%g159503159507%_) + (cons _%g159502159505%_ + _%g159503159507%_)))) (declare (not safe)) (__foldr1 - __tmp171387 + __tmp172372 '() - _%L158472%_)))) + _%L159457%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158322%_ - __tmp171386))))) - (let ((_%try-match158498158536%_ + _%stx159307%_ + __tmp172371))))) + (let ((_%try-match159483159521%_ (lambda () - (if (null? _%rest158496158509%_) - (_%K158502158533%_) - (_%K158501158525%_))))) - (if (pair? _%rest158496158509%_) - (let ((_%tl158505158558%_ + (if (null? _%rest159481159494%_) + (_%K159487159518%_) + (_%K159486159510%_))))) + (if (pair? _%rest159481159494%_) + (let ((_%tl159490159543%_ (let () (declare (not safe)) - (##cdr _%rest158496158509%_))) - (_%hd158504158556%_ + (##cdr _%rest159481159494%_))) + (_%hd159489159541%_ (let () (declare (not safe)) - (##car _%rest158496158509%_)))) + (##car _%rest159481159494%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd158504158556%_)) - (if (pair? _%tl158505158558%_) - (let ((_%tl158507158565%_ + (gx#stx-keyword? _%hd159489159541%_)) + (if (pair? _%tl159490159543%_) + (let ((_%tl159492159550%_ (let () (declare (not safe)) - (##cdr _%tl158505158558%_))) - (_%hd158506158563%_ + (##cdr _%tl159490159543%_))) + (_%hd159491159548%_ (let () (declare (not safe)) - (##car _%tl158505158558%_)))) - (let ((_%key158561%_ - _%hd158504158556%_) - (_%arg158568%_ - _%hd158506158563%_) - (_%rest158570%_ - _%tl158507158565%_)) - (_%K158503158553%_ - _%rest158570%_ - _%arg158568%_ - _%key158561%_))) - (_%K158501158525%_)) - (_%K158501158525%_))) - (_%try-match158498158536%_)))))))) - (_%__kont170035170036%_ - (lambda (_%L158394%_ _%L158395%_) + (##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 _%self158321%_ _%L158394%_))))) - (let ((_%__match170066170067%_ - (lambda (_%e158329158415%_ - _%hd158330158418%_ - _%tl158331158420%_ - _%e158332158423%_ - _%hd158333158426%_ - _%tl158334158428%_ - _%e158335158431%_ - _%hd158336158434%_ - _%tl158337158436%_ - _%__splice170033170034%_ - _%target158338158439%_ - _%tl158340158441%_) - (letrec ((_%loop158341158444%_ - (lambda (_%hd158339158447%_ - _%signature158345158449%_) + (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? _%hd158339158447%_)) - (let ((_%e158342158452%_ + (gx#stx-pair? _%hd159324159432%_)) + (let ((_%e159327159437%_ (let () (declare (not safe)) - (gx#stx-e _%hd158339158447%_)))) - (let ((_%lp-tl158344158457%_ + (gx#stx-e _%hd159324159432%_)))) + (let ((_%lp-tl159329159442%_ (let () (declare (not safe)) - (##cdr _%e158342158452%_))) - (_%lp-hd158343158455%_ + (##cdr _%e159327159437%_))) + (_%lp-hd159328159440%_ (let () (declare (not safe)) - (##car _%e158342158452%_)))) - (_%loop158341158444%_ - _%lp-tl158344158457%_ - (cons _%lp-hd158343158455%_ - _%signature158345158449%_)))) - (let ((_%signature158346158460%_ - (reverse _%signature158345158449%_))) + (##car _%e159327159437%_)))) + (_%loop159326159429%_ + _%lp-tl159329159442%_ + (cons _%lp-hd159328159440%_ + _%signature159330159434%_)))) + (let ((_%signature159331159445%_ + (reverse _%signature159330159434%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158334158428%_)) - (let ((_%e158347158463%_ + (gx#stx-pair? _%tl159319159413%_)) + (let ((_%e159332159448%_ (let () (declare (not safe)) (gx#stx-e - _%tl158334158428%_)))) - (let ((_%tl158349158468%_ + _%tl159319159413%_)))) + (let ((_%tl159334159453%_ (let () (declare (not safe)) - (##cdr _%e158347158463%_))) - (_%hd158348158466%_ + (##cdr _%e159332159448%_))) + (_%hd159333159451%_ (let () (declare (not safe)) - (##car _%e158347158463%_)))) + (##car _%e159332159448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158349158468%_)) - (_%__kont170031170032%_ - _%hd158348158466%_ - _%signature158346158460%_) + _%tl159334159453%_)) + (_%__kont171016171017%_ + _%hd159333159451%_ + _%signature159331159445%_) (let () (declare (not safe)) - (_%g158325158365%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158325158365%_)))))))) - (_%loop158341158444%_ _%target158338158439%_ '()))))) + (_%g159310159350%_)))))))) + (_%loop159326159429%_ _%target159323159424%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170029170030%_)) - (let ((_%e158329158415%_ + (gx#stx-pair? _%__stx171014171015%_)) + (let ((_%e159314159400%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170029170030%_)))) - (let ((_%tl158331158420%_ + (gx#stx-e _%__stx171014171015%_)))) + (let ((_%tl159316159405%_ (let () (declare (not safe)) - (##cdr _%e158329158415%_))) - (_%hd158330158418%_ + (##cdr _%e159314159400%_))) + (_%hd159315159403%_ (let () (declare (not safe)) - (##car _%e158329158415%_)))) + (##car _%e159314159400%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158331158420%_)) - (let ((_%e158332158423%_ + (gx#stx-pair? _%tl159316159405%_)) + (let ((_%e159317159408%_ (let () (declare (not safe)) - (gx#stx-e _%tl158331158420%_)))) - (let ((_%tl158334158428%_ + (gx#stx-e _%tl159316159405%_)))) + (let ((_%tl159319159413%_ (let () (declare (not safe)) - (##cdr _%e158332158423%_))) - (_%hd158333158426%_ + (##cdr _%e159317159408%_))) + (_%hd159318159411%_ (let () (declare (not safe)) - (##car _%e158332158423%_)))) + (##car _%e159317159408%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158333158426%_)) - (let ((_%e158335158431%_ + (gx#stx-pair? _%hd159318159411%_)) + (let ((_%e159320159416%_ (let () (declare (not safe)) - (gx#stx-e _%hd158333158426%_)))) - (let ((_%tl158337158436%_ + (gx#stx-e _%hd159318159411%_)))) + (let ((_%tl159322159421%_ (let () (declare (not safe)) - (##cdr _%e158335158431%_))) - (_%hd158336158434%_ + (##cdr _%e159320159416%_))) + (_%hd159321159419%_ (let () (declare (not safe)) - (##car _%e158335158431%_)))) + (##car _%e159320159416%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158336158434%_)) + _%hd159321159419%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd158336158434%_)) + _%hd159321159419%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl158337158436%_)) - (let ((_%__splice170033170034%_ + _%tl159322159421%_)) + (let ((_%__splice171018171019%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158337158436%_ + _%tl159322159421%_ '0)))) - (let ((_%tl158340158441%_ + (let ((_%tl159325159426%_ (let () (declare (not safe)) (##vector-ref - _%__splice170033170034%_ + _%__splice171018171019%_ '1))) - (_%target158338158439%_ + (_%target159323159424%_ (let () (declare (not safe)) (##vector-ref - _%__splice170033170034%_ + _%__splice171018171019%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158340158441%_)) - (_%__match170066170067%_ - _%e158329158415%_ - _%hd158330158418%_ - _%tl158331158420%_ - _%e158332158423%_ - _%hd158333158426%_ - _%tl158334158428%_ - _%e158335158431%_ - _%hd158336158434%_ - _%tl158337158436%_ - _%__splice170033170034%_ - _%target158338158439%_ - _%tl158340158441%_) + _%tl159325159426%_)) + (_%__match171051171052%_ + _%e159314159400%_ + _%hd159315159403%_ + _%tl159316159405%_ + _%e159317159408%_ + _%hd159318159411%_ + _%tl159319159413%_ + _%e159320159416%_ + _%hd159321159419%_ + _%tl159322159421%_ + _%__splice171018171019%_ + _%target159323159424%_ + _%tl159325159426%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl158334158428%_)) - (let ((_%e158358158386%_ + (gx#stx-pair? _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) - (gx#stx-e _%tl158334158428%_)))) - (let ((_%tl158360158391%_ + (gx#stx-e _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158358158386%_))) - (_%hd158359158389%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158358158386%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158360158391%_)) - (_%__kont170035170036%_ - _%hd158359158389%_ - _%hd158333158426%_) + (gx#stx-null? _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158325158365%_))))) - (let () (declare (not safe)) (_%g158325158365%_)))))) + (_%g159310159350%_))))) + (let () (declare (not safe)) (_%g159310159350%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158334158428%_)) - (let ((_%e158358158386%_ + _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158334158428%_)))) - (let ((_%tl158360158391%_ - (let () (declare (not safe)) (##cdr _%e158358158386%_))) - (_%hd158359158389%_ + (gx#stx-e _%tl159319159413%_)))) + (let ((_%tl159345159376%_ + (let () (declare (not safe)) (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158358158386%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158360158391%_)) - (_%__kont170035170036%_ - _%hd158359158389%_ - _%hd158333158426%_) - (let () (declare (not safe)) (_%g158325158365%_))))) - (let () (declare (not safe)) (_%g158325158365%_)))) + (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? - _%tl158334158428%_)) - (let ((_%e158358158386%_ + _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) (gx#stx-e - _%tl158334158428%_)))) - (let ((_%tl158360158391%_ + _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158358158386%_))) - (_%hd158359158389%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158358158386%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158360158391%_)) - (_%__kont170035170036%_ - _%hd158359158389%_ - _%hd158333158426%_) + _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158325158365%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158325158365%_)))) + (_%g159310159350%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158334158428%_)) - (let ((_%e158358158386%_ + _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) (gx#stx-e - _%tl158334158428%_)))) - (let ((_%tl158360158391%_ + _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158358158386%_))) - (_%hd158359158389%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158358158386%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158360158391%_)) - (_%__kont170035170036%_ - _%hd158359158389%_ - _%hd158333158426%_) + _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158325158365%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158325158365%_)))))) + (_%g159310159350%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158334158428%_)) - (let ((_%e158358158386%_ + (gx#stx-pair? _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) - (gx#stx-e _%tl158334158428%_)))) - (let ((_%tl158360158391%_ + (gx#stx-e _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158358158386%_))) - (_%hd158359158389%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158358158386%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158360158391%_)) - (_%__kont170035170036%_ - _%hd158359158389%_ - _%hd158333158426%_) + _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158325158365%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158325158365%_)))))) - (let () (declare (not safe)) (_%g158325158365%_))))) - (let () (declare (not safe)) (_%g158325158365%_)))))))) + (_%g159310159350%_)))))) + (let () (declare (not safe)) (_%g159310159350%_))))) + (let () (declare (not safe)) (_%g159310159350%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr158274%_) - (let* ((_%__stx170089170090%_ _%expr158274%_) - (_%g158277158287%_ + (lambda (_%expr159259%_) + (let* ((_%__stx171074171075%_ _%expr159259%_) + (_%g159262159272%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170089170090%_))))) - (let ((_%__kont170091170092%_ (lambda (_%L158307%_) '#t)) - (_%__kont170093170094%_ (lambda () '#f))) + _%__stx171074171075%_))))) + (let ((_%__kont171076171077%_ (lambda (_%L159292%_) '#t)) + (_%__kont171078171079%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170089170090%_)) - (let ((_%e158280158299%_ + (gx#stx-pair? _%__stx171074171075%_)) + (let ((_%e159265159284%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170089170090%_)))) - (let ((_%tl158282158304%_ + (gx#stx-e _%__stx171074171075%_)))) + (let ((_%tl159267159289%_ (let () (declare (not safe)) - (##cdr _%e158280158299%_))) - (_%hd158281158302%_ + (##cdr _%e159265159284%_))) + (_%hd159266159287%_ (let () (declare (not safe)) - (##car _%e158280158299%_)))) + (##car _%e159265159284%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158281158302%_)) + (gx#identifier? _%hd159266159287%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd158281158302%_)) - (_%__kont170091170092%_ _%tl158282158304%_) - (_%__kont170093170094%_)) - (_%__kont170093170094%_)))) - (_%__kont170093170094%_)))))) + (gx#stx-eq? '%#lambda _%hd159266159287%_)) + (_%__kont171076171077%_ _%tl159267159289%_) + (_%__kont171078171079%_)) + (_%__kont171078171079%_)))) + (_%__kont171078171079%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr158227%_) - (let* ((_%__stx170107170108%_ _%expr158227%_) - (_%g158230158240%_ + (lambda (_%expr159212%_) + (let* ((_%__stx171092171093%_ _%expr159212%_) + (_%g159215159225%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170107170108%_))))) - (let ((_%__kont170109170110%_ (lambda (_%L158260%_) '#t)) - (_%__kont170111170112%_ (lambda () '#f))) + _%__stx171092171093%_))))) + (let ((_%__kont171094171095%_ (lambda (_%L159245%_) '#t)) + (_%__kont171096171097%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170107170108%_)) - (let ((_%e158233158252%_ + (gx#stx-pair? _%__stx171092171093%_)) + (let ((_%e159218159237%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170107170108%_)))) - (let ((_%tl158235158257%_ + (gx#stx-e _%__stx171092171093%_)))) + (let ((_%tl159220159242%_ (let () (declare (not safe)) - (##cdr _%e158233158252%_))) - (_%hd158234158255%_ + (##cdr _%e159218159237%_))) + (_%hd159219159240%_ (let () (declare (not safe)) - (##car _%e158233158252%_)))) + (##car _%e159218159237%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158234158255%_)) + (gx#identifier? _%hd159219159240%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd158234158255%_)) - (_%__kont170109170110%_ _%tl158235158257%_) - (_%__kont170111170112%_)) - (_%__kont170111170112%_)))) - (_%__kont170111170112%_)))))) + (gx#stx-eq? '%#case-lambda _%hd159219159240%_)) + (_%__kont171094171095%_ _%tl159220159242%_) + (_%__kont171096171097%_)) + (_%__kont171096171097%_)))) + (_%__kont171096171097%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr158096%_) - (let* ((_%__stx170125170126%_ _%expr158096%_) - (_%g158099158129%_ + (lambda (_%expr159081%_) + (let* ((_%__stx171110171111%_ _%expr159081%_) + (_%g159084159114%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170125170126%_))))) - (let ((_%__kont170127170128%_ - (lambda (_%L158197%_ _%L158198%_ _%L158199%_) + _%__stx171110171111%_))))) + (let ((_%__kont171112171113%_ + (lambda (_%L159182%_ _%L159183%_ _%L159184%_) (if (let () (declare (not safe)) - (gx#identifier? _%L158199%_)) - (if (gxc#lambda-expr? _%L158198%_) - (gxc#case-lambda-expr? _%L158197%_) + (gx#identifier? _%L159184%_)) + (if (gxc#lambda-expr? _%L159183%_) + (gxc#case-lambda-expr? _%L159182%_) '#f) '#f))) - (_%__kont170129170130%_ (lambda () '#f))) + (_%__kont171114171115%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170125170126%_)) - (let ((_%e158104158141%_ + (gx#stx-pair? _%__stx171110171111%_)) + (let ((_%e159089159126%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170125170126%_)))) - (let ((_%tl158106158146%_ + (gx#stx-e _%__stx171110171111%_)))) + (let ((_%tl159091159131%_ (let () (declare (not safe)) - (##cdr _%e158104158141%_))) - (_%hd158105158144%_ + (##cdr _%e159089159126%_))) + (_%hd159090159129%_ (let () (declare (not safe)) - (##car _%e158104158141%_)))) + (##car _%e159089159126%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158105158144%_)) + (gx#identifier? _%hd159090159129%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd158105158144%_)) + (gx#stx-eq? '%#let-values _%hd159090159129%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158106158146%_)) - (let ((_%e158107158149%_ + (gx#stx-pair? _%tl159091159131%_)) + (let ((_%e159092159134%_ (let () (declare (not safe)) - (gx#stx-e _%tl158106158146%_)))) - (let ((_%tl158109158154%_ + (gx#stx-e _%tl159091159131%_)))) + (let ((_%tl159094159139%_ (let () (declare (not safe)) - (##cdr _%e158107158149%_))) - (_%hd158108158152%_ + (##cdr _%e159092159134%_))) + (_%hd159093159137%_ (let () (declare (not safe)) - (##car _%e158107158149%_)))) + (##car _%e159092159134%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158108158152%_)) - (let ((_%e158110158157%_ + (gx#stx-pair? _%hd159093159137%_)) + (let ((_%e159095159142%_ (let () (declare (not safe)) (gx#stx-e - _%hd158108158152%_)))) - (let ((_%tl158112158162%_ + _%hd159093159137%_)))) + (let ((_%tl159097159147%_ (let () (declare (not safe)) - (##cdr _%e158110158157%_))) - (_%hd158111158160%_ + (##cdr _%e159095159142%_))) + (_%hd159096159145%_ (let () (declare (not safe)) - (##car _%e158110158157%_)))) + (##car _%e159095159142%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158111158160%_)) - (let ((_%e158113158165%_ + _%hd159096159145%_)) + (let ((_%e159098159150%_ (let () (declare (not safe)) (gx#stx-e - _%hd158111158160%_)))) - (let ((_%tl158115158170%_ + _%hd159096159145%_)))) + (let ((_%tl159100159155%_ (let () (declare (not safe)) - (##cdr _%e158113158165%_))) - (_%hd158114158168%_ + (##cdr _%e159098159150%_))) + (_%hd159099159153%_ (let () (declare (not safe)) - (##car _%e158113158165%_)))) + (##car _%e159098159150%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158114158168%_)) - (let ((_%e158116158173%_ + _%hd159099159153%_)) + (let ((_%e159101159158%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd158114158168%_)))) - (let ((_%tl158118158178%_ + (gx#stx-e _%hd159099159153%_)))) + (let ((_%tl159103159163%_ (let () (declare (not safe)) - (##cdr _%e158116158173%_))) - (_%hd158117158176%_ + (##cdr _%e159101159158%_))) + (_%hd159102159161%_ (let () (declare (not safe)) - (##car _%e158116158173%_)))) + (##car _%e159101159158%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158118158178%_)) + (gx#stx-null? _%tl159103159163%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158115158170%_)) - (let ((_%e158119158181%_ + (gx#stx-pair? _%tl159100159155%_)) + (let ((_%e159104159166%_ (let () (declare (not safe)) - (gx#stx-e _%tl158115158170%_)))) - (let ((_%tl158121158186%_ + (gx#stx-e _%tl159100159155%_)))) + (let ((_%tl159106159171%_ (let () (declare (not safe)) - (##cdr _%e158119158181%_))) - (_%hd158120158184%_ + (##cdr _%e159104159166%_))) + (_%hd159105159169%_ (let () (declare (not safe)) - (##car _%e158119158181%_)))) + (##car _%e159104159166%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158121158186%_)) + (gx#stx-null? _%tl159106159171%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158112158162%_)) + (gx#stx-null? _%tl159097159147%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158109158154%_)) - (let ((_%e158122158189%_ + _%tl159094159139%_)) + (let ((_%e159107159174%_ (let () (declare (not safe)) (gx#stx-e - _%tl158109158154%_)))) - (let ((_%tl158124158194%_ + _%tl159094159139%_)))) + (let ((_%tl159109159179%_ (let () (declare (not safe)) - (##cdr _%e158122158189%_))) - (_%hd158123158192%_ + (##cdr _%e159107159174%_))) + (_%hd159108159177%_ (let () (declare (not safe)) - (##car _%e158122158189%_)))) + (##car _%e159107159174%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158124158194%_)) - (_%__kont170127170128%_ - _%hd158123158192%_ - _%hd158120158184%_ - _%hd158117158176%_) - (_%__kont170129170130%_)))) - (_%__kont170129170130%_)) - (_%__kont170129170130%_)) - (_%__kont170129170130%_)))) - (_%__kont170129170130%_)) - (_%__kont170129170130%_)))) - (_%__kont170129170130%_)))) + _%tl159109159179%_)) + (_%__kont171112171113%_ + _%hd159108159177%_ + _%hd159105159169%_ + _%hd159102159161%_) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170129170130%_)))) - (_%__kont170129170130%_)))) - (_%__kont170129170130%_)) - (_%__kont170129170130%_)) - (_%__kont170129170130%_)))) - (_%__kont170129170130%_)))))) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr157421%_) - (let* ((_%__stx170187170188%_ _%expr157421%_) - (_%g157424157582%_ + (lambda (_%expr158406%_) + (let* ((_%__stx171172171173%_ _%expr158406%_) + (_%g158409158567%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170187170188%_))))) - (let ((_%__kont170189170190%_ - (lambda (_%L157970%_ - _%L157971%_ - _%L157972%_ - _%L157973%_ - _%L157974%_ - _%L157975%_ - _%L157976%_ - _%L157977%_ - _%L157978%_ - _%L157979%_ - _%L157980%_) + _%__stx171172171173%_))))) + (let ((_%__kont171174171175%_ + (lambda (_%L158955%_ + _%L158956%_ + _%L158957%_ + _%L158958%_ + _%L158959%_ + _%L158960%_ + _%L158961%_ + _%L158962%_ + _%L158963%_ + _%L158964%_ + _%L158965%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157977%_ 'apply)) + (gxc#runtime-identifier=? _%L158962%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157973%_ 'apply)) + (gxc#runtime-identifier=? _%L158958%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L157972%_ + _%L158957%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157980%_ - _%L157971%_)) + _%L158965%_ + _%L158956%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157979%_ - _%L157976%_)) + _%L158964%_ + _%L158961%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157974%_ - _%L157970%_)) + _%L158959%_ + _%L158955%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L157978%_ - _%L157975%_)) + _%L158963%_ + _%L158960%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont170191170192%_ (lambda () '#f))) + (_%__kont171176171177%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170187170188%_)) - (let ((_%e157437157594%_ + (gx#stx-pair? _%__stx171172171173%_)) + (let ((_%e158422158579%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170187170188%_)))) - (let ((_%tl157439157599%_ + (gx#stx-e _%__stx171172171173%_)))) + (let ((_%tl158424158584%_ (let () (declare (not safe)) - (##cdr _%e157437157594%_))) - (_%hd157438157597%_ + (##cdr _%e158422158579%_))) + (_%hd158423158582%_ (let () (declare (not safe)) - (##car _%e157437157594%_)))) + (##car _%e158422158579%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157438157597%_)) + (gx#identifier? _%hd158423158582%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157438157597%_)) + (gx#stx-eq? '%#let-values _%hd158423158582%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157439157599%_)) - (let ((_%e157440157602%_ + (gx#stx-pair? _%tl158424158584%_)) + (let ((_%e158425158587%_ (let () (declare (not safe)) - (gx#stx-e _%tl157439157599%_)))) - (let ((_%tl157442157607%_ + (gx#stx-e _%tl158424158584%_)))) + (let ((_%tl158427158592%_ (let () (declare (not safe)) - (##cdr _%e157440157602%_))) - (_%hd157441157605%_ + (##cdr _%e158425158587%_))) + (_%hd158426158590%_ (let () (declare (not safe)) - (##car _%e157440157602%_)))) + (##car _%e158425158587%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157441157605%_)) - (let ((_%e157443157610%_ + (gx#stx-pair? _%hd158426158590%_)) + (let ((_%e158428158595%_ (let () (declare (not safe)) (gx#stx-e - _%hd157441157605%_)))) - (let ((_%tl157445157615%_ + _%hd158426158590%_)))) + (let ((_%tl158430158600%_ (let () (declare (not safe)) - (##cdr _%e157443157610%_))) - (_%hd157444157613%_ + (##cdr _%e158428158595%_))) + (_%hd158429158598%_ (let () (declare (not safe)) - (##car _%e157443157610%_)))) + (##car _%e158428158595%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157444157613%_)) - (let ((_%e157446157618%_ + _%hd158429158598%_)) + (let ((_%e158431158603%_ (let () (declare (not safe)) (gx#stx-e - _%hd157444157613%_)))) - (let ((_%tl157448157623%_ + _%hd158429158598%_)))) + (let ((_%tl158433158608%_ (let () (declare (not safe)) - (##cdr _%e157446157618%_))) - (_%hd157447157621%_ + (##cdr _%e158431158603%_))) + (_%hd158432158606%_ (let () (declare (not safe)) - (##car _%e157446157618%_)))) + (##car _%e158431158603%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157447157621%_)) - (let ((_%e157449157626%_ + _%hd158432158606%_)) + (let ((_%e158434158611%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157447157621%_)))) - (let ((_%tl157451157631%_ + (gx#stx-e _%hd158432158606%_)))) + (let ((_%tl158436158616%_ (let () (declare (not safe)) - (##cdr _%e157449157626%_))) - (_%hd157450157629%_ + (##cdr _%e158434158611%_))) + (_%hd158435158614%_ (let () (declare (not safe)) - (##car _%e157449157626%_)))) + (##car _%e158434158611%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157451157631%_)) + (gx#stx-null? _%tl158436158616%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157448157623%_)) - (let ((_%e157452157634%_ + (gx#stx-pair? _%tl158433158608%_)) + (let ((_%e158437158619%_ (let () (declare (not safe)) - (gx#stx-e _%tl157448157623%_)))) - (let ((_%tl157454157639%_ + (gx#stx-e _%tl158433158608%_)))) + (let ((_%tl158439158624%_ (let () (declare (not safe)) - (##cdr _%e157452157634%_))) - (_%hd157453157637%_ + (##cdr _%e158437158619%_))) + (_%hd158438158622%_ (let () (declare (not safe)) - (##car _%e157452157634%_)))) + (##car _%e158437158619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157453157637%_)) - (let ((_%e157455157642%_ + (gx#stx-pair? _%hd158438158622%_)) + (let ((_%e158440158627%_ (let () (declare (not safe)) - (gx#stx-e _%hd157453157637%_)))) - (let ((_%tl157457157647%_ + (gx#stx-e _%hd158438158622%_)))) + (let ((_%tl158442158632%_ (let () (declare (not safe)) - (##cdr _%e157455157642%_))) - (_%hd157456157645%_ + (##cdr _%e158440158627%_))) + (_%hd158441158630%_ (let () (declare (not safe)) - (##car _%e157455157642%_)))) + (##car _%e158440158627%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157456157645%_)) + _%hd158441158630%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd157456157645%_)) + _%hd158441158630%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157457157647%_)) - (let ((_%e157458157650%_ + _%tl158442158632%_)) + (let ((_%e158443158635%_ (let () (declare (not safe)) (gx#stx-e - _%tl157457157647%_)))) - (let ((_%tl157460157655%_ + _%tl158442158632%_)))) + (let ((_%tl158445158640%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157458157650%_))) - (_%hd157459157653%_ - (let () (declare (not safe)) (##car _%e157458157650%_)))) + (##cdr _%e158443158635%_))) + (_%hd158444158638%_ + (let () (declare (not safe)) (##car _%e158443158635%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157459157653%_)) - (let ((_%e157461157658%_ + (gx#stx-pair? _%hd158444158638%_)) + (let ((_%e158446158643%_ (let () (declare (not safe)) - (gx#stx-e _%hd157459157653%_)))) - (let ((_%tl157463157663%_ + (gx#stx-e _%hd158444158638%_)))) + (let ((_%tl158448158648%_ (let () (declare (not safe)) - (##cdr _%e157461157658%_))) - (_%hd157462157661%_ + (##cdr _%e158446158643%_))) + (_%hd158447158646%_ (let () (declare (not safe)) - (##car _%e157461157658%_)))) + (##car _%e158446158643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157462157661%_)) - (let ((_%e157464157666%_ + (gx#stx-pair? _%hd158447158646%_)) + (let ((_%e158449158651%_ (let () (declare (not safe)) - (gx#stx-e _%hd157462157661%_)))) - (let ((_%tl157466157671%_ + (gx#stx-e _%hd158447158646%_)))) + (let ((_%tl158451158656%_ (let () (declare (not safe)) - (##cdr _%e157464157666%_))) - (_%hd157465157669%_ + (##cdr _%e158449158651%_))) + (_%hd158450158654%_ (let () (declare (not safe)) - (##car _%e157464157666%_)))) + (##car _%e158449158651%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157465157669%_)) - (let ((_%e157467157674%_ + (gx#stx-pair? _%hd158450158654%_)) + (let ((_%e158452158659%_ (let () (declare (not safe)) - (gx#stx-e _%hd157465157669%_)))) - (let ((_%tl157469157679%_ + (gx#stx-e _%hd158450158654%_)))) + (let ((_%tl158454158664%_ (let () (declare (not safe)) - (##cdr _%e157467157674%_))) - (_%hd157468157677%_ + (##cdr _%e158452158659%_))) + (_%hd158453158662%_ (let () (declare (not safe)) - (##car _%e157467157674%_)))) + (##car _%e158452158659%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157469157679%_)) + _%tl158454158664%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157466157671%_)) - (let ((_%e157470157682%_ + _%tl158451158656%_)) + (let ((_%e158455158667%_ (let () (declare (not safe)) (gx#stx-e - _%tl157466157671%_)))) - (let ((_%tl157472157687%_ + _%tl158451158656%_)))) + (let ((_%tl158457158672%_ (let () (declare (not safe)) - (##cdr _%e157470157682%_))) - (_%hd157471157685%_ + (##cdr _%e158455158667%_))) + (_%hd158456158670%_ (let () (declare (not safe)) - (##car _%e157470157682%_)))) + (##car _%e158455158667%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157472157687%_)) + _%tl158457158672%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157463157663%_)) + _%tl158448158648%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157460157655%_)) - (let ((_%e157473157690%_ + (gx#stx-pair? _%tl158445158640%_)) + (let ((_%e158458158675%_ (let () (declare (not safe)) - (gx#stx-e _%tl157460157655%_)))) - (let ((_%tl157475157695%_ + (gx#stx-e _%tl158445158640%_)))) + (let ((_%tl158460158680%_ (let () (declare (not safe)) - (##cdr _%e157473157690%_))) - (_%hd157474157693%_ + (##cdr _%e158458158675%_))) + (_%hd158459158678%_ (let () (declare (not safe)) - (##car _%e157473157690%_)))) + (##car _%e158458158675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157474157693%_)) - (let ((_%e157476157698%_ + (gx#stx-pair? _%hd158459158678%_)) + (let ((_%e158461158683%_ (let () (declare (not safe)) - (gx#stx-e _%hd157474157693%_)))) - (let ((_%tl157478157703%_ + (gx#stx-e _%hd158459158678%_)))) + (let ((_%tl158463158688%_ (let () (declare (not safe)) - (##cdr _%e157476157698%_))) - (_%hd157477157701%_ + (##cdr _%e158461158683%_))) + (_%hd158462158686%_ (let () (declare (not safe)) - (##car _%e157476157698%_)))) + (##car _%e158461158683%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157477157701%_)) + (gx#identifier? _%hd158462158686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd157477157701%_)) + _%hd158462158686%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157478157703%_)) - (let ((_%e157479157706%_ + _%tl158463158688%_)) + (let ((_%e158464158691%_ (let () (declare (not safe)) (gx#stx-e - _%tl157478157703%_)))) - (let ((_%tl157481157711%_ + _%tl158463158688%_)))) + (let ((_%tl158466158696%_ (let () (declare (not safe)) - (##cdr _%e157479157706%_))) - (_%hd157480157709%_ + (##cdr _%e158464158691%_))) + (_%hd158465158694%_ (let () (declare (not safe)) - (##car _%e157479157706%_)))) + (##car _%e158464158691%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157480157709%_)) - (let ((_%e157482157714%_ + _%hd158465158694%_)) + (let ((_%e158467158699%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157480157709%_)))) - (let ((_%tl157484157719%_ + (gx#stx-e _%hd158465158694%_)))) + (let ((_%tl158469158704%_ (let () (declare (not safe)) - (##cdr _%e157482157714%_))) - (_%hd157483157717%_ + (##cdr _%e158467158699%_))) + (_%hd158468158702%_ (let () (declare (not safe)) - (##car _%e157482157714%_)))) + (##car _%e158467158699%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157481157711%_)) - (let ((_%e157485157722%_ + (gx#stx-pair? _%tl158466158696%_)) + (let ((_%e158470158707%_ (let () (declare (not safe)) - (gx#stx-e _%tl157481157711%_)))) - (let ((_%tl157487157727%_ + (gx#stx-e _%tl158466158696%_)))) + (let ((_%tl158472158712%_ (let () (declare (not safe)) - (##cdr _%e157485157722%_))) - (_%hd157486157725%_ + (##cdr _%e158470158707%_))) + (_%hd158471158710%_ (let () (declare (not safe)) - (##car _%e157485157722%_)))) + (##car _%e158470158707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157486157725%_)) - (let ((_%e157488157730%_ + (gx#stx-pair? _%hd158471158710%_)) + (let ((_%e158473158715%_ (let () (declare (not safe)) - (gx#stx-e _%hd157486157725%_)))) - (let ((_%tl157490157735%_ + (gx#stx-e _%hd158471158710%_)))) + (let ((_%tl158475158720%_ (let () (declare (not safe)) - (##cdr _%e157488157730%_))) - (_%hd157489157733%_ + (##cdr _%e158473158715%_))) + (_%hd158474158718%_ (let () (declare (not safe)) - (##car _%e157488157730%_)))) + (##car _%e158473158715%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157489157733%_)) + (gx#identifier? _%hd158474158718%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157489157733%_)) + _%hd158474158718%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157490157735%_)) - (let ((_%e157491157738%_ + _%tl158475158720%_)) + (let ((_%e158476158723%_ (let () (declare (not safe)) (gx#stx-e - _%tl157490157735%_)))) - (let ((_%tl157493157743%_ + _%tl158475158720%_)))) + (let ((_%tl158478158728%_ (let () (declare (not safe)) - (##cdr _%e157491157738%_))) - (_%hd157492157741%_ + (##cdr _%e158476158723%_))) + (_%hd158477158726%_ (let () (declare (not safe)) - (##car _%e157491157738%_)))) + (##car _%e158476158723%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157492157741%_)) - (let ((_%e157494157746%_ + _%hd158477158726%_)) + (let ((_%e158479158731%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157492157741%_)))) - (let ((_%tl157496157751%_ + (gx#stx-e _%hd158477158726%_)))) + (let ((_%tl158481158736%_ (let () (declare (not safe)) - (##cdr _%e157494157746%_))) - (_%hd157495157749%_ + (##cdr _%e158479158731%_))) + (_%hd158480158734%_ (let () (declare (not safe)) - (##car _%e157494157746%_)))) + (##car _%e158479158731%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157495157749%_)) + (gx#identifier? _%hd158480158734%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157495157749%_)) + (gx#stx-eq? '%#ref _%hd158480158734%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157496157751%_)) - (let ((_%e157497157754%_ + (gx#stx-pair? _%tl158481158736%_)) + (let ((_%e158482158739%_ (let () (declare (not safe)) - (gx#stx-e _%tl157496157751%_)))) - (let ((_%tl157499157759%_ + (gx#stx-e _%tl158481158736%_)))) + (let ((_%tl158484158744%_ (let () (declare (not safe)) - (##cdr _%e157497157754%_))) - (_%hd157498157757%_ + (##cdr _%e158482158739%_))) + (_%hd158483158742%_ (let () (declare (not safe)) - (##car _%e157497157754%_)))) + (##car _%e158482158739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157499157759%_)) + (gx#stx-null? _%tl158484158744%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157493157743%_)) - (let ((_%e157500157762%_ + _%tl158478158728%_)) + (let ((_%e158485158747%_ (let () (declare (not safe)) (gx#stx-e - _%tl157493157743%_)))) - (let ((_%tl157502157767%_ + _%tl158478158728%_)))) + (let ((_%tl158487158752%_ (let () (declare (not safe)) - (##cdr _%e157500157762%_))) - (_%hd157501157765%_ + (##cdr _%e158485158747%_))) + (_%hd158486158750%_ (let () (declare (not safe)) - (##car _%e157500157762%_)))) + (##car _%e158485158747%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157501157765%_)) - (let ((_%e157503157770%_ + _%hd158486158750%_)) + (let ((_%e158488158755%_ (let () (declare (not safe)) (gx#stx-e - _%hd157501157765%_)))) - (let ((_%tl157505157775%_ + _%hd158486158750%_)))) + (let ((_%tl158490158760%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157503157770%_))) - (_%hd157504157773%_ - (let () (declare (not safe)) (##car _%e157503157770%_)))) + (##cdr _%e158488158755%_))) + (_%hd158489158758%_ + (let () (declare (not safe)) (##car _%e158488158755%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157504157773%_)) + (gx#identifier? _%hd158489158758%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157504157773%_)) + (gx#stx-eq? '%#ref _%hd158489158758%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157505157775%_)) - (let ((_%e157506157778%_ + (gx#stx-pair? _%tl158490158760%_)) + (let ((_%e158491158763%_ (let () (declare (not safe)) - (gx#stx-e _%tl157505157775%_)))) - (let ((_%tl157508157783%_ + (gx#stx-e _%tl158490158760%_)))) + (let ((_%tl158493158768%_ (let () (declare (not safe)) - (##cdr _%e157506157778%_))) - (_%hd157507157781%_ + (##cdr _%e158491158763%_))) + (_%hd158492158766%_ (let () (declare (not safe)) - (##car _%e157506157778%_)))) + (##car _%e158491158763%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157508157783%_)) + (gx#stx-null? _%tl158493158768%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157502157767%_)) - (let ((_%e157509157786%_ + (gx#stx-pair? _%tl158487158752%_)) + (let ((_%e158494158771%_ (let () (declare (not safe)) (gx#stx-e - _%tl157502157767%_)))) - (let ((_%tl157511157791%_ + _%tl158487158752%_)))) + (let ((_%tl158496158776%_ (let () (declare (not safe)) - (##cdr _%e157509157786%_))) - (_%hd157510157789%_ + (##cdr _%e158494158771%_))) + (_%hd158495158774%_ (let () (declare (not safe)) - (##car _%e157509157786%_)))) + (##car _%e158494158771%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157510157789%_)) - (let ((_%e157512157794%_ + _%hd158495158774%_)) + (let ((_%e158497158779%_ (let () (declare (not safe)) (gx#stx-e - _%hd157510157789%_)))) - (let ((_%tl157514157799%_ + _%hd158495158774%_)))) + (let ((_%tl158499158784%_ (let () (declare (not safe)) - (##cdr _%e157512157794%_))) - (_%hd157513157797%_ + (##cdr _%e158497158779%_))) + (_%hd158498158782%_ (let () (declare (not safe)) - (##car _%e157512157794%_)))) + (##car _%e158497158779%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157513157797%_)) + _%hd158498158782%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157513157797%_)) + _%hd158498158782%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157514157799%_)) - (let ((_%e157515157802%_ + (gx#stx-pair? _%tl158499158784%_)) + (let ((_%e158500158787%_ (let () (declare (not safe)) - (gx#stx-e _%tl157514157799%_)))) - (let ((_%tl157517157807%_ + (gx#stx-e _%tl158499158784%_)))) + (let ((_%tl158502158792%_ (let () (declare (not safe)) - (##cdr _%e157515157802%_))) - (_%hd157516157805%_ + (##cdr _%e158500158787%_))) + (_%hd158501158790%_ (let () (declare (not safe)) - (##car _%e157515157802%_)))) + (##car _%e158500158787%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157517157807%_)) + (gx#stx-null? _%tl158502158792%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157487157727%_)) + (gx#stx-null? _%tl158472158712%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157475157695%_)) + (gx#stx-null? _%tl158460158680%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157454157639%_)) + _%tl158439158624%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157445157615%_)) + _%tl158430158600%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157442157607%_)) - (let ((_%e157518157810%_ + _%tl158427158592%_)) + (let ((_%e158503158795%_ (let () (declare (not safe)) (gx#stx-e - _%tl157442157607%_)))) - (let ((_%tl157520157815%_ + _%tl158427158592%_)))) + (let ((_%tl158505158800%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157518157810%_))) - (_%hd157519157813%_ - (let () (declare (not safe)) (##car _%e157518157810%_)))) + (##cdr _%e158503158795%_))) + (_%hd158504158798%_ + (let () (declare (not safe)) (##car _%e158503158795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157519157813%_)) - (let ((_%e157521157818%_ + (gx#stx-pair? _%hd158504158798%_)) + (let ((_%e158506158803%_ (let () (declare (not safe)) - (gx#stx-e _%hd157519157813%_)))) - (let ((_%tl157523157823%_ + (gx#stx-e _%hd158504158798%_)))) + (let ((_%tl158508158808%_ (let () (declare (not safe)) - (##cdr _%e157521157818%_))) - (_%hd157522157821%_ + (##cdr _%e158506158803%_))) + (_%hd158507158806%_ (let () (declare (not safe)) - (##car _%e157521157818%_)))) + (##car _%e158506158803%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157522157821%_)) + (gx#identifier? _%hd158507158806%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd157522157821%_)) + (gx#stx-eq? '%#lambda _%hd158507158806%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157523157823%_)) - (let ((_%e157524157826%_ + (gx#stx-pair? _%tl158508158808%_)) + (let ((_%e158509158811%_ (let () (declare (not safe)) - (gx#stx-e _%tl157523157823%_)))) - (let ((_%tl157526157831%_ + (gx#stx-e _%tl158508158808%_)))) + (let ((_%tl158511158816%_ (let () (declare (not safe)) - (##cdr _%e157524157826%_))) - (_%hd157525157829%_ + (##cdr _%e158509158811%_))) + (_%hd158510158814%_ (let () (declare (not safe)) - (##car _%e157524157826%_)))) + (##car _%e158509158811%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157526157831%_)) - (let ((_%e157527157834%_ + _%tl158511158816%_)) + (let ((_%e158512158819%_ (let () (declare (not safe)) (gx#stx-e - _%tl157526157831%_)))) - (let ((_%tl157529157839%_ + _%tl158511158816%_)))) + (let ((_%tl158514158824%_ (let () (declare (not safe)) - (##cdr _%e157527157834%_))) - (_%hd157528157837%_ + (##cdr _%e158512158819%_))) + (_%hd158513158822%_ (let () (declare (not safe)) - (##car _%e157527157834%_)))) + (##car _%e158512158819%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157528157837%_)) - (let ((_%e157530157842%_ + _%hd158513158822%_)) + (let ((_%e158515158827%_ (let () (declare (not safe)) (gx#stx-e - _%hd157528157837%_)))) - (let ((_%tl157532157847%_ + _%hd158513158822%_)))) + (let ((_%tl158517158832%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157530157842%_))) - (_%hd157531157845%_ - (let () (declare (not safe)) (##car _%e157530157842%_)))) + (##cdr _%e158515158827%_))) + (_%hd158516158830%_ + (let () (declare (not safe)) (##car _%e158515158827%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157531157845%_)) + (gx#identifier? _%hd158516158830%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157531157845%_)) + (gx#stx-eq? '%#call _%hd158516158830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157532157847%_)) - (let ((_%e157533157850%_ + (gx#stx-pair? _%tl158517158832%_)) + (let ((_%e158518158835%_ (let () (declare (not safe)) - (gx#stx-e _%tl157532157847%_)))) - (let ((_%tl157535157855%_ + (gx#stx-e _%tl158517158832%_)))) + (let ((_%tl158520158840%_ (let () (declare (not safe)) - (##cdr _%e157533157850%_))) - (_%hd157534157853%_ + (##cdr _%e158518158835%_))) + (_%hd158519158838%_ (let () (declare (not safe)) - (##car _%e157533157850%_)))) + (##car _%e158518158835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157534157853%_)) - (let ((_%e157536157858%_ + (gx#stx-pair? _%hd158519158838%_)) + (let ((_%e158521158843%_ (let () (declare (not safe)) - (gx#stx-e _%hd157534157853%_)))) - (let ((_%tl157538157863%_ + (gx#stx-e _%hd158519158838%_)))) + (let ((_%tl158523158848%_ (let () (declare (not safe)) - (##cdr _%e157536157858%_))) - (_%hd157537157861%_ + (##cdr _%e158521158843%_))) + (_%hd158522158846%_ (let () (declare (not safe)) - (##car _%e157536157858%_)))) + (##car _%e158521158843%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157537157861%_)) + _%hd158522158846%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157537157861%_)) + _%hd158522158846%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157538157863%_)) - (let ((_%e157539157866%_ + _%tl158523158848%_)) + (let ((_%e158524158851%_ (let () (declare (not safe)) (gx#stx-e - _%tl157538157863%_)))) - (let ((_%tl157541157871%_ + _%tl158523158848%_)))) + (let ((_%tl158526158856%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157539157866%_))) - (_%hd157540157869%_ - (let () (declare (not safe)) (##car _%e157539157866%_)))) + (##cdr _%e158524158851%_))) + (_%hd158525158854%_ + (let () (declare (not safe)) (##car _%e158524158851%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157541157871%_)) + (gx#stx-null? _%tl158526158856%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157535157855%_)) - (let ((_%e157542157874%_ + (gx#stx-pair? _%tl158520158840%_)) + (let ((_%e158527158859%_ (let () (declare (not safe)) - (gx#stx-e _%tl157535157855%_)))) - (let ((_%tl157544157879%_ + (gx#stx-e _%tl158520158840%_)))) + (let ((_%tl158529158864%_ (let () (declare (not safe)) - (##cdr _%e157542157874%_))) - (_%hd157543157877%_ + (##cdr _%e158527158859%_))) + (_%hd158528158862%_ (let () (declare (not safe)) - (##car _%e157542157874%_)))) + (##car _%e158527158859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157543157877%_)) - (let ((_%e157545157882%_ + (gx#stx-pair? _%hd158528158862%_)) + (let ((_%e158530158867%_ (let () (declare (not safe)) - (gx#stx-e _%hd157543157877%_)))) - (let ((_%tl157547157887%_ + (gx#stx-e _%hd158528158862%_)))) + (let ((_%tl158532158872%_ (let () (declare (not safe)) - (##cdr _%e157545157882%_))) - (_%hd157546157885%_ + (##cdr _%e158530158867%_))) + (_%hd158531158870%_ (let () (declare (not safe)) - (##car _%e157545157882%_)))) + (##car _%e158530158867%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157546157885%_)) + (gx#identifier? _%hd158531158870%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157546157885%_)) + _%hd158531158870%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157547157887%_)) - (let ((_%e157548157890%_ + _%tl158532158872%_)) + (let ((_%e158533158875%_ (let () (declare (not safe)) (gx#stx-e - _%tl157547157887%_)))) - (let ((_%tl157550157895%_ + _%tl158532158872%_)))) + (let ((_%tl158535158880%_ (let () (declare (not safe)) - (##cdr _%e157548157890%_))) - (_%hd157549157893%_ + (##cdr _%e158533158875%_))) + (_%hd158534158878%_ (let () (declare (not safe)) - (##car _%e157548157890%_)))) + (##car _%e158533158875%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157550157895%_)) + _%tl158535158880%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157544157879%_)) - (let ((_%e157551157898%_ + _%tl158529158864%_)) + (let ((_%e158536158883%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl157544157879%_)))) - (let ((_%tl157553157903%_ + (gx#stx-e _%tl158529158864%_)))) + (let ((_%tl158538158888%_ (let () (declare (not safe)) - (##cdr _%e157551157898%_))) - (_%hd157552157901%_ + (##cdr _%e158536158883%_))) + (_%hd158537158886%_ (let () (declare (not safe)) - (##car _%e157551157898%_)))) + (##car _%e158536158883%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157552157901%_)) - (let ((_%e157554157906%_ + (gx#stx-pair? _%hd158537158886%_)) + (let ((_%e158539158891%_ (let () (declare (not safe)) - (gx#stx-e _%hd157552157901%_)))) - (let ((_%tl157556157911%_ + (gx#stx-e _%hd158537158886%_)))) + (let ((_%tl158541158896%_ (let () (declare (not safe)) - (##cdr _%e157554157906%_))) - (_%hd157555157909%_ + (##cdr _%e158539158891%_))) + (_%hd158540158894%_ (let () (declare (not safe)) - (##car _%e157554157906%_)))) + (##car _%e158539158891%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157555157909%_)) + (gx#identifier? _%hd158540158894%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd157555157909%_)) + _%hd158540158894%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157556157911%_)) - (let ((_%e157557157914%_ + _%tl158541158896%_)) + (let ((_%e158542158899%_ (let () (declare (not safe)) (gx#stx-e - _%tl157556157911%_)))) - (let ((_%tl157559157919%_ + _%tl158541158896%_)))) + (let ((_%tl158544158904%_ (let () (declare (not safe)) - (##cdr _%e157557157914%_))) - (_%hd157558157917%_ + (##cdr _%e158542158899%_))) + (_%hd158543158902%_ (let () (declare (not safe)) - (##car _%e157557157914%_)))) + (##car _%e158542158899%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157559157919%_)) + _%tl158544158904%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157553157903%_)) - (let ((_%e157560157922%_ + _%tl158538158888%_)) + (let ((_%e158545158907%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl157553157903%_)))) - (let ((_%tl157562157927%_ + (gx#stx-e _%tl158538158888%_)))) + (let ((_%tl158547158912%_ (let () (declare (not safe)) - (##cdr _%e157560157922%_))) - (_%hd157561157925%_ + (##cdr _%e158545158907%_))) + (_%hd158546158910%_ (let () (declare (not safe)) - (##car _%e157560157922%_)))) + (##car _%e158545158907%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157561157925%_)) - (let ((_%e157563157930%_ + (gx#stx-pair? _%hd158546158910%_)) + (let ((_%e158548158915%_ (let () (declare (not safe)) - (gx#stx-e _%hd157561157925%_)))) - (let ((_%tl157565157935%_ + (gx#stx-e _%hd158546158910%_)))) + (let ((_%tl158550158920%_ (let () (declare (not safe)) - (##cdr _%e157563157930%_))) - (_%hd157564157933%_ + (##cdr _%e158548158915%_))) + (_%hd158549158918%_ (let () (declare (not safe)) - (##car _%e157563157930%_)))) + (##car _%e158548158915%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157564157933%_)) + (gx#identifier? _%hd158549158918%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157564157933%_)) + (gx#stx-eq? '%#ref _%hd158549158918%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157565157935%_)) - (let ((_%e157566157938%_ + (gx#stx-pair? _%tl158550158920%_)) + (let ((_%e158551158923%_ (let () (declare (not safe)) (gx#stx-e - _%tl157565157935%_)))) - (let ((_%tl157568157943%_ + _%tl158550158920%_)))) + (let ((_%tl158553158928%_ (let () (declare (not safe)) - (##cdr _%e157566157938%_))) - (_%hd157567157941%_ + (##cdr _%e158551158923%_))) + (_%hd158552158926%_ (let () (declare (not safe)) - (##car _%e157566157938%_)))) + (##car _%e158551158923%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157568157943%_)) + _%tl158553158928%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157562157927%_)) - (let ((_%e157569157946%_ + _%tl158547158912%_)) + (let ((_%e158554158931%_ (let () (declare (not safe)) (gx#stx-e - _%tl157562157927%_)))) - (let ((_%tl157571157951%_ + _%tl158547158912%_)))) + (let ((_%tl158556158936%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157569157946%_))) - (_%hd157570157949%_ - (let () (declare (not safe)) (##car _%e157569157946%_)))) + (##cdr _%e158554158931%_))) + (_%hd158555158934%_ + (let () (declare (not safe)) (##car _%e158554158931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157570157949%_)) - (let ((_%e157572157954%_ + (gx#stx-pair? _%hd158555158934%_)) + (let ((_%e158557158939%_ (let () (declare (not safe)) - (gx#stx-e _%hd157570157949%_)))) - (let ((_%tl157574157959%_ + (gx#stx-e _%hd158555158934%_)))) + (let ((_%tl158559158944%_ (let () (declare (not safe)) - (##cdr _%e157572157954%_))) - (_%hd157573157957%_ + (##cdr _%e158557158939%_))) + (_%hd158558158942%_ (let () (declare (not safe)) - (##car _%e157572157954%_)))) + (##car _%e158557158939%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157573157957%_)) + (gx#identifier? _%hd158558158942%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157573157957%_)) + (gx#stx-eq? '%#ref _%hd158558158942%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157574157959%_)) - (let ((_%e157575157962%_ + (gx#stx-pair? _%tl158559158944%_)) + (let ((_%e158560158947%_ (let () (declare (not safe)) - (gx#stx-e _%tl157574157959%_)))) - (let ((_%tl157577157967%_ + (gx#stx-e _%tl158559158944%_)))) + (let ((_%tl158562158952%_ (let () (declare (not safe)) - (##cdr _%e157575157962%_))) - (_%hd157576157965%_ + (##cdr _%e158560158947%_))) + (_%hd158561158950%_ (let () (declare (not safe)) - (##car _%e157575157962%_)))) + (##car _%e158560158947%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157577157967%_)) + _%tl158562158952%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157571157951%_)) + _%tl158556158936%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157529157839%_)) + _%tl158514158824%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157520157815%_)) - (_%__kont170189170190%_ - _%hd157576157965%_ - _%hd157567157941%_ - _%hd157549157893%_ - _%hd157540157869%_ - _%hd157525157829%_ - _%hd157516157805%_ - _%hd157507157781%_ - _%hd157498157757%_ - _%hd157483157717%_ - _%hd157468157677%_ - _%hd157450157629%_) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) + _%tl158505158800%_)) + (_%__kont171174171175%_ + _%hd158561158950%_ + _%hd158552158926%_ + _%hd158534158878%_ + _%hd158525158854%_ + _%hd158510158814%_ + _%hd158501158790%_ + _%hd158492158766%_ + _%hd158483158742%_ + _%hd158468158702%_ + _%hd158453158662%_ + _%hd158435158614%_) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)) - (_%__kont170191170192%_)))) - (_%__kont170191170192%_)))))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx157163%_ _%id157164%_ _%clauses157165%_ _%gensym?157166%_) - (let _%lp157168%_ ((_%rest157170%_ _%clauses157165%_) - (_%ids157171%_ '()) - (_%impls157172%_ '()) - (_%clauses157173%_ '())) - (let* ((_%rest157174157182%_ _%rest157170%_) - (_%else157176157190%_ + (lambda (_%stx158148%_ _%id158149%_ _%clauses158150%_ _%gensym?158151%_) + (let _%lp158153%_ ((_%rest158155%_ _%clauses158150%_) + (_%ids158156%_ '()) + (_%impls158157%_ '()) + (_%clauses158158%_ '())) + (let* ((_%rest158159158167%_ _%rest158155%_) + (_%else158161158175%_ (lambda () - (values (reverse _%ids157171%_) - (reverse _%impls157172%_) - (reverse _%clauses157173%_)))) - (_%K157178157395%_ - (lambda (_%rest157193%_ _%clause157194%_) - (if (gxc#dispatch-lambda-form? _%clause157194%_) - (_%lp157168%_ - _%rest157193%_ - _%ids157171%_ - _%impls157172%_ - (cons _%clause157194%_ _%clauses157173%_)) - (let* ((_%g157196157207%_ - (lambda (_%g157197157204%_) + (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" - _%g157197157204%_)))) - (_%g157195157392%_ - (lambda (_%g157197157210%_) + _%g158182158189%_)))) + (_%g158180158377%_ + (lambda (_%g158182158195%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157197157210%_)) - (let ((_%e157200157212%_ + (gx#stx-pair? _%g158182158195%_)) + (let ((_%e158185158197%_ (let () (declare (not safe)) - (gx#stx-e _%g157197157210%_)))) - (let ((_%hd157201157215%_ + (gx#stx-e _%g158182158195%_)))) + (let ((_%hd158186158200%_ (let () (declare (not safe)) - (##car _%e157200157212%_))) - (_%tl157202157217%_ + (##car _%e158185158197%_))) + (_%tl158187158202%_ (let () (declare (not safe)) - (##cdr _%e157200157212%_)))) - ((lambda (_%L157220%_ _%L157221%_) - (let* ((_%id157238%_ - (let ((__tmp171391 + (##cdr _%e158185158197%_)))) + ((lambda (_%L158205%_ _%L158206%_) + (let* ((_%id158223%_ + (let ((__tmp172376 (let () (declare (not safe)) (gx#stx-e - _%id157164%_))) - (__tmp171390 - (length _%clauses157173%_)) - (__tmp171389 - (if _%gensym?157166%_ + _%id158149%_))) + (__tmp172375 + (length _%clauses158158%_)) + (__tmp172374 + (if _%gensym?158151%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp171391 '"__" __tmp171390 __tmp171389))) + (make-symbol__1 __tmp172376 '"__" __tmp172375 __tmp172374))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id157240%_ - (let ((__tmp171392 + (_%id158225%_ + (let ((__tmp172377 (let () (declare (not safe)) (gx#stx-source - _%stx157163%_)))) + _%stx158148%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id157238%_ - __tmp171392))) - (_%impl157242%_ - (let ((__tmp171393 + _%id158223%_ + __tmp172377))) + (_%impl158227%_ + (let ((__tmp172378 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L157221%_ _%L157220%_)))) + (cons _%L158206%_ _%L158205%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171393 _%stx157163%_))) + (gxc#xform-wrap-source __tmp172378 _%stx158148%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause157389%_ - (let* ((_%__stx170571170572%_ - _%L157221%_) - (_%g157246157274%_ + (_%clause158374%_ + (let* ((_%__stx171556171557%_ + _%L158206%_) + (_%g158231158259%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20102,353 +20102,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170571170572%_))))) - (let ((_%__kont170573170574%_ - (lambda (_%L157368%_) - (cons _%L157221%_ - (cons (let ((__tmp171394 + _%__stx171556171557%_))))) + (let ((_%__kont171558171559%_ + (lambda (_%L158353%_) + (cons _%L158206%_ + (cons (let ((__tmp172379 (cons '%#call (cons (cons '%#ref - (cons _%id157240%_ + (cons _%id158225%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp171395 - (lambda (_%g157378157381%_ _%g157379157383%_) + (let ((__tmp172380 + (lambda (_%g158363158366%_ _%g158364158368%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157378157381%_ '())) - _%g157379157383%_)))) + (cons _%g158363158366%_ '())) + _%g158364158368%_)))) (declare (not safe)) - (__foldr1 __tmp171395 '() _%L157368%_)))))) + (__foldr1 __tmp172380 '() _%L158353%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171394 - _%stx157163%_)) + __tmp172379 + _%stx158148%_)) '())))) - (_%__kont170577170578%_ - (lambda (_%L157319%_ _%L157320%_) - (cons _%L157221%_ - (cons (let ((__tmp171396 + (_%__kont171562171563%_ + (lambda (_%L158304%_ _%L158305%_) + (cons _%L158206%_ + (cons (let ((__tmp172381 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id157240%_ '())) - (let ((__tmp171399 + (cons _%id158225%_ '())) + (let ((__tmp172384 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157319%_ '())) + (cons _%L158304%_ '())) '())) - (__tmp171397 - (let ((__tmp171398 - (lambda (_%g157331157334%_ - _%g157332157336%_) + (__tmp172382 + (let ((__tmp172383 + (lambda (_%g158316158319%_ + _%g158317158321%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157331157334%_ '())) - _%g157332157336%_)))) + (cons _%g158316158319%_ '())) + _%g158317158321%_)))) (declare (not safe)) - (__foldr1 __tmp171398 '() _%L157320%_)))) + (__foldr1 __tmp172383 '() _%L158305%_)))) (declare (not safe)) - (__foldr1 cons __tmp171399 __tmp171397))))))) + (__foldr1 cons __tmp172384 __tmp172382))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171396 - _%stx157163%_)) + __tmp172381 + _%stx158148%_)) '())))) - (_%__kont170581170582%_ - (lambda (_%L157279%_) - (cons _%L157221%_ - (cons (let ((__tmp171400 + (_%__kont171566171567%_ + (lambda (_%L158264%_) + (cons _%L158206%_ + (cons (let ((__tmp172385 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id157240%_ '())) + (cons _%id158225%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157279%_ '())) + (cons _%L158264%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171400 - _%stx157163%_)) + __tmp172385 + _%stx158148%_)) '()))))) - (let* ((_%__match170596170597%_ - (lambda (_%__splice170579170580%_ - _%target157260157295%_ - _%tl157262157297%_) - (letrec ((_%loop157263157300%_ - (lambda (_%hd157261157303%_ - _%arg157267157305%_) + (let* ((_%__match171581171582%_ + (lambda (_%__splice171564171565%_ + _%target158245158280%_ + _%tl158247158282%_) + (letrec ((_%loop158248158285%_ + (lambda (_%hd158246158288%_ + _%arg158252158290%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157261157303%_)) - (let ((_%e157264157308%_ + (gx#stx-pair? _%hd158246158288%_)) + (let ((_%e158249158293%_ (let () (declare (not safe)) (gx#stx-e - _%hd157261157303%_)))) - (let ((_%lp-tl157266157313%_ + _%hd158246158288%_)))) + (let ((_%lp-tl158251158298%_ (let () (declare (not safe)) - (##cdr _%e157264157308%_))) - (_%lp-hd157265157311%_ + (##cdr _%e158249158293%_))) + (_%lp-hd158250158296%_ (let () (declare (not safe)) - (##car _%e157264157308%_)))) - (_%loop157263157300%_ - _%lp-tl157266157313%_ - (cons _%lp-hd157265157311%_ - _%arg157267157305%_)))) - (let ((_%arg157268157316%_ - (reverse _%arg157267157305%_))) - (_%__kont170577170578%_ - _%tl157262157297%_ - _%arg157268157316%_)))))) - (_%loop157263157300%_ - _%target157260157295%_ + (##car _%e158249158293%_)))) + (_%loop158248158285%_ + _%lp-tl158251158298%_ + (cons _%lp-hd158250158296%_ + _%arg158252158290%_)))) + (let ((_%arg158253158301%_ + (reverse _%arg158252158290%_))) + (_%__kont171562171563%_ + _%tl158247158282%_ + _%arg158253158301%_)))))) + (_%loop158248158285%_ + _%target158245158280%_ '())))) - (_%__match170590170591%_ - (lambda (_%__splice170575170576%_ - _%target157249157344%_ - _%tl157251157346%_) - (letrec ((_%loop157252157349%_ - (lambda (_%hd157250157352%_ - _%arg157256157354%_) + (_%__match171575171576%_ + (lambda (_%__splice171560171561%_ + _%target158234158329%_ + _%tl158236158331%_) + (letrec ((_%loop158237158334%_ + (lambda (_%hd158235158337%_ + _%arg158241158339%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157250157352%_)) - (let ((_%e157253157357%_ + (gx#stx-pair? _%hd158235158337%_)) + (let ((_%e158238158342%_ (let () (declare (not safe)) (gx#stx-e - _%hd157250157352%_)))) - (let ((_%lp-tl157255157362%_ + _%hd158235158337%_)))) + (let ((_%lp-tl158240158347%_ (let () (declare (not safe)) - (##cdr _%e157253157357%_))) - (_%lp-hd157254157360%_ + (##cdr _%e158238158342%_))) + (_%lp-hd158239158345%_ (let () (declare (not safe)) - (##car _%e157253157357%_)))) - (_%loop157252157349%_ - _%lp-tl157255157362%_ - (cons _%lp-hd157254157360%_ - _%arg157256157354%_)))) - (let ((_%arg157257157365%_ - (reverse _%arg157256157354%_))) - (_%__kont170573170574%_ - _%arg157257157365%_)))))) - (_%loop157252157349%_ - _%target157249157344%_ + (##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? _%__stx170571170572%_)) - (let ((_%__splice170575170576%_ + (gx#stx-pair/null? _%__stx171556171557%_)) + (let ((_%__splice171560171561%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx170571170572%_ + _%__stx171556171557%_ '0)))) - (let ((_%tl157251157346%_ + (let ((_%tl158236158331%_ (let () (declare (not safe)) - (##vector-ref _%__splice170575170576%_ '1))) - (_%target157249157344%_ + (##vector-ref _%__splice171560171561%_ '1))) + (_%target158234158329%_ (let () (declare (not safe)) - (##vector-ref _%__splice170575170576%_ '0)))) + (##vector-ref _%__splice171560171561%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157251157346%_)) - (_%__match170590170591%_ - _%__splice170575170576%_ - _%target157249157344%_ - _%tl157251157346%_) - (_%__match170596170597%_ - _%__splice170575170576%_ - _%target157249157344%_ - _%tl157251157346%_)))) - (_%__kont170581170582%_ _%__stx170571170572%_))))))) + (gx#stx-null? _%tl158236158331%_)) + (_%__match171575171576%_ + _%__splice171560171561%_ + _%target158234158329%_ + _%tl158236158331%_) + (_%__match171581171582%_ + _%__splice171560171561%_ + _%target158234158329%_ + _%tl158236158331%_)))) + (_%__kont171566171567%_ _%__stx171556171557%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp157168%_ - _%rest157193%_ - (cons _%id157240%_ - _%ids157171%_) - (cons _%impl157242%_ - _%impls157172%_) - (cons _%clause157389%_ - _%clauses157173%_)))) - _%tl157202157217%_ - _%hd157201157215%_))) - (_%g157196157207%_ _%g157197157210%_))))) - (_%g157195157392%_ _%clause157194%_)))))) - (if (pair? _%rest157174157182%_) - (let ((_%hd157179157398%_ + (_%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 _%rest157174157182%_))) - (_%tl157180157400%_ + (##car _%rest158159158167%_))) + (_%tl158165158385%_ (let () (declare (not safe)) - (##cdr _%rest157174157182%_)))) - (let* ((_%clause157403%_ _%hd157179157398%_) - (_%rest157405%_ _%tl157180157400%_)) - (_%K157178157395%_ _%rest157405%_ _%clause157403%_))) - (_%else157176157190%_)))))) + (##cdr _%rest158159158167%_)))) + (let* ((_%clause158388%_ _%hd158164158383%_) + (_%rest158390%_ _%tl158165158385%_)) + (_%K158163158380%_ _%rest158390%_ _%clause158388%_))) + (_%else158161158175%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx157410%_ _%id157411%_ _%clauses157412%_) - (let ((_%gensym?157414%_ '#f)) + (lambda (_%stx158395%_ _%id158396%_ _%clauses158397%_) + (let ((_%gensym?158399%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx157410%_ - _%id157411%_ - _%clauses157412%_ - _%gensym?157414%_)))) + _%stx158395%_ + _%id158396%_ + _%clauses158397%_ + _%gensym?158399%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g171402_ - (let ((_g171401_ (let () (declare (not safe)) (##length _g171402_)))) - (cond ((let () (declare (not safe)) (##fx= _g171401_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g171402_)) - ((let () (declare (not safe)) (##fx= _g171401_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g171402_)) + (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 - _g171402_)))))) + _g172387_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self156435%_ _%stx156436%_) - (letrec ((_%case-lambda-clause-def156438%_ - (lambda (_%id157159%_ _%impl157160%_) - (let ((__tmp171403 + (lambda (_%self157420%_ _%stx157421%_) + (letrec ((_%case-lambda-clause-def157423%_ + (lambda (_%id158144%_ _%impl158145%_) + (let ((__tmp172388 (cons '%#define-values - (cons (cons _%id157159%_ '()) + (cons (cons _%id158144%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156435%_ - _%impl157160%_)) + _%self157420%_ + _%impl158145%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171403 _%stx156436%_)))) - (_%opt-lambda-dispatch-name156439%_ - (lambda (_%id157155%_) - (if (uninterned-symbol? _%id157155%_) - (let ((_%str157157%_ (symbol->string _%id157155%_))) + (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" _%str157157%_)) + (##string-prefix? '"opt-lambda" _%str158142%_)) '"%" - _%id157155%_)) - _%id157155%_))) - (_%kw-lambda-dispatch-name156440%_ - (lambda (_%id157150%_ _%name157151%_) - (if (uninterned-symbol? _%id157150%_) - (let ((_%str157153%_ (symbol->string _%id157150%_))) + _%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" _%str157153%_)) - _%name157151%_ - _%id157150%_)) - _%id157150%_)))) - (let* ((_%__stx170619170620%_ _%stx156436%_) - (_%g156445156504%_ + (##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" - _%__stx170619170620%_))))) - (let ((_%__kont170621170622%_ - (lambda (_%L157058%_ _%L157059%_) - (let* ((_%__stx170599170600%_ _%L157058%_) - (_%g157076157090%_ + _%__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" - _%__stx170599170600%_))))) - (let ((_%__kont170601170602%_ - (lambda (_%L157135%_) _%stx156436%_)) - (_%__kont170603170604%_ - (lambda (_%L157103%_) - (let ((_g171404_ + _%__stx171584171585%_))))) + (let ((_%__kont171586171587%_ + (lambda (_%L158120%_) _%stx157421%_)) + (_%__kont171588171589%_ + (lambda (_%L158088%_) + (let ((_g172389_ (gxc#lift-case-lambda-clauses__0 - _%stx156436%_ - _%L157059%_ - _%L157103%_))) + _%stx157421%_ + _%L158044%_ + _%L158088%_))) (begin - (let ((_g171405_ + (let ((_g172390_ (let () (declare (not safe)) - (if (##values? _g171404_) - (##values-length _g171404_) + (if (##values? _g172389_) + (##values-length _g172389_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171405_ 3))) + (##fx= _g172390_ 3))) (error "Context expects 3 values" - _g171405_))) - (let ((_%ids157113%_ + _g172390_))) + (let ((_%ids158098%_ (let () (declare (not safe)) - (##values-ref _g171404_ 0))) - (_%impls157114%_ + (##values-ref _g172389_ 0))) + (_%impls158099%_ (let () (declare (not safe)) - (##values-ref _g171404_ 1))) - (_%clauses157115%_ + (##values-ref _g172389_ 1))) + (_%clauses158100%_ (let () (declare (not safe)) - (##values-ref _g171404_ 2)))) - (let* ((_%_157117%_ + (##values-ref _g172389_ 2)))) + (let* ((_%_158102%_ (for-each gx#core-bind-runtime! - _%ids157113%_)) - (_%defs157119%_ - (map _%case-lambda-clause-def156438%_ - _%ids157113%_ - _%impls157114%_))) - (let ((__tmp171407 + _%ids158098%_)) + (_%defs158104%_ + (map _%case-lambda-clause-def157423%_ + _%ids158098%_ + _%impls158099%_))) + (let ((__tmp172392 (let () (declare (not safe)) (gxc#identifier-symbol - _%L157059%_))) - (__tmp171406 + _%L158044%_))) + (__tmp172391 (map gxc#identifier-symbol - _%ids157113%_))) + _%ids158098%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171407 + __tmp172392 '" => " - __tmp171406)) - (let ((__tmp171408 + __tmp172391)) + (let ((__tmp172393 (cons '%#begin - (let ((__tmp171409 - (cons (let ((__tmp171410 + (let ((__tmp172394 + (cons (let ((__tmp172395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L157059%_ '()) - (cons (let ((__tmp171412 + (cons (cons _%L158044%_ '()) + (cons (let ((__tmp172397 (cons '%#case-lambda - _%clauses157115%_)) - (__tmp171411 + _%clauses158100%_)) + (__tmp172396 (let () (declare (not safe)) @@ -20457,1128 +20457,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171412 - __tmp171411)) + __tmp172397 + __tmp172396)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171410 _%stx156436%_)) + (gxc#xform-wrap-source __tmp172395 _%stx157421%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp171409 _%defs157119%_))))) + (__foldr1 cons __tmp172394 _%defs158104%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171408 - _%stx156436%_))))))))) - (let ((_%__match170610170611%_ - (lambda (_%e157079157127%_ - _%hd157080157130%_ - _%tl157081157132%_) - (let ((_%L157135%_ _%tl157081157132%_)) + __tmp172393 + _%stx157421%_))))))))) + (let ((_%__match171595171596%_ + (lambda (_%e158064158112%_ + _%hd158065158115%_ + _%tl158066158117%_) + (let ((_%L158120%_ _%tl158066158117%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L157135%_)) - (_%__kont170601170602%_ _%L157135%_) - (_%__kont170603170604%_ - _%tl157081157132%_)))))) + _%L158120%_)) + (_%__kont171586171587%_ _%L158120%_) + (_%__kont171588171589%_ + _%tl158066158117%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170599170600%_)) - (let ((_%e157079157127%_ + (gx#stx-pair? _%__stx171584171585%_)) + (let ((_%e158064158112%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170599170600%_)))) - (let ((_%tl157081157132%_ + (gx#stx-e _%__stx171584171585%_)))) + (let ((_%tl158066158117%_ (let () (declare (not safe)) - (##cdr _%e157079157127%_))) - (_%hd157080157130%_ + (##cdr _%e158064158112%_))) + (_%hd158065158115%_ (let () (declare (not safe)) - (##car _%e157079157127%_)))) - (_%__match170610170611%_ - _%e157079157127%_ - _%hd157080157130%_ - _%tl157081157132%_))) + (##car _%e158064158112%_)))) + (_%__match171595171596%_ + _%e158064158112%_ + _%hd158065158115%_ + _%tl158066158117%_))) (let () (declare (not safe)) - (_%g157076157090%_)))))))) - (_%__kont170623170624%_ - (lambda (_%L156875%_ _%L156876%_) - (let* ((_%g156892156922%_ - (lambda (_%g156893156919%_) + (_%g158061158075%_)))))))) + (_%__kont171608171609%_ + (lambda (_%L157860%_ _%L157861%_) + (let* ((_%g157877157907%_ + (lambda (_%g157878157904%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156893156919%_)))) - (_%g156891157018%_ - (lambda (_%g156893156925%_) + _%g157878157904%_)))) + (_%g157876158003%_ + (lambda (_%g157878157910%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156893156925%_)) - (let ((_%e156897156927%_ + (gx#stx-pair? _%g157878157910%_)) + (let ((_%e157882157912%_ (let () (declare (not safe)) - (gx#stx-e _%g156893156925%_)))) - (let ((_%hd156898156930%_ + (gx#stx-e _%g157878157910%_)))) + (let ((_%hd157883157915%_ (let () (declare (not safe)) - (##car _%e156897156927%_))) - (_%tl156899156932%_ + (##car _%e157882157912%_))) + (_%tl157884157917%_ (let () (declare (not safe)) - (##cdr _%e156897156927%_)))) + (##cdr _%e157882157912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156899156932%_)) - (let ((_%e156900156935%_ + (gx#stx-pair? _%tl157884157917%_)) + (let ((_%e157885157920%_ (let () (declare (not safe)) (gx#stx-e - _%tl156899156932%_)))) - (let ((_%hd156901156938%_ + _%tl157884157917%_)))) + (let ((_%hd157886157923%_ (let () (declare (not safe)) - (##car _%e156900156935%_))) - (_%tl156902156940%_ + (##car _%e157885157920%_))) + (_%tl157887157925%_ (let () (declare (not safe)) - (##cdr _%e156900156935%_)))) + (##cdr _%e157885157920%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156901156938%_)) - (let ((_%e156903156943%_ + _%hd157886157923%_)) + (let ((_%e157888157928%_ (let () (declare (not safe)) (gx#stx-e - _%hd156901156938%_)))) - (let ((_%hd156904156946%_ + _%hd157886157923%_)))) + (let ((_%hd157889157931%_ (let () (declare (not safe)) - (##car _%e156903156943%_))) - (_%tl156905156948%_ + (##car _%e157888157928%_))) + (_%tl157890157933%_ (let () (declare (not safe)) - (##cdr _%e156903156943%_)))) + (##cdr _%e157888157928%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156904156946%_)) - (let ((_%e156906156951%_ + _%hd157889157931%_)) + (let ((_%e157891157936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156904156946%_)))) - (let ((_%hd156907156954%_ + (gx#stx-e _%hd157889157931%_)))) + (let ((_%hd157892157939%_ (let () (declare (not safe)) - (##car _%e156906156951%_))) - (_%tl156908156956%_ + (##car _%e157891157936%_))) + (_%tl157893157941%_ (let () (declare (not safe)) - (##cdr _%e156906156951%_)))) + (##cdr _%e157891157936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156907156954%_)) - (let ((_%e156909156959%_ + (gx#stx-pair? _%hd157892157939%_)) + (let ((_%e157894157944%_ (let () (declare (not safe)) - (gx#stx-e _%hd156907156954%_)))) - (let ((_%hd156910156962%_ + (gx#stx-e _%hd157892157939%_)))) + (let ((_%hd157895157947%_ (let () (declare (not safe)) - (##car _%e156909156959%_))) - (_%tl156911156964%_ + (##car _%e157894157944%_))) + (_%tl157896157949%_ (let () (declare (not safe)) - (##cdr _%e156909156959%_)))) + (##cdr _%e157894157944%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156911156964%_)) + (gx#stx-null? _%tl157896157949%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156908156956%_)) - (let ((_%e156912156967%_ + (gx#stx-pair? _%tl157893157941%_)) + (let ((_%e157897157952%_ (let () (declare (not safe)) (gx#stx-e - _%tl156908156956%_)))) - (let ((_%hd156913156970%_ + _%tl157893157941%_)))) + (let ((_%hd157898157955%_ (let () (declare (not safe)) - (##car _%e156912156967%_))) - (_%tl156914156972%_ + (##car _%e157897157952%_))) + (_%tl157899157957%_ (let () (declare (not safe)) - (##cdr _%e156912156967%_)))) + (##cdr _%e157897157952%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156914156972%_)) + _%tl157899157957%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156905156948%_)) + _%tl157890157933%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156902156940%_)) - (let ((_%e156915156975%_ + _%tl157887157925%_)) + (let ((_%e157900157960%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156902156940%_)))) - (let ((_%hd156916156978%_ + (gx#stx-e _%tl157887157925%_)))) + (let ((_%hd157901157963%_ (let () (declare (not safe)) - (##car _%e156915156975%_))) - (_%tl156917156980%_ + (##car _%e157900157960%_))) + (_%tl157902157965%_ (let () (declare (not safe)) - (##cdr _%e156915156975%_)))) + (##cdr _%e157900157960%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156917156980%_)) - ((lambda (_%L156983%_ _%L156984%_ _%L156985%_) - (let* ((_%lambda-id157009%_ - (let ((__tmp171414 + (gx#stx-null? _%tl157902157965%_)) + ((lambda (_%L157968%_ _%L157969%_ _%L157970%_) + (let* ((_%lambda-id157994%_ + (let ((__tmp172399 (let () (declare (not safe)) - (gx#stx-e _%L156876%_))) - (__tmp171413 - (_%opt-lambda-dispatch-name156439%_ + (gx#stx-e _%L157861%_))) + (__tmp172398 + (_%opt-lambda-dispatch-name157424%_ (let () (declare (not safe)) - (gx#stx-e _%L156985%_))))) + (gx#stx-e _%L157970%_))))) (declare (not safe)) (make-symbol__1 - __tmp171414 + __tmp172399 '"__" - __tmp171413))) - (_%lambda-id157011%_ - (let ((__tmp171415 + __tmp172398))) + (_%lambda-id157996%_ + (let ((__tmp172400 (let () (declare (not safe)) - (gx#stx-source _%stx156436%_)))) + (gx#stx-source _%stx157421%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id157009%_ - __tmp171415))) - (_%_157013%_ + _%lambda-id157994%_ + __tmp172400))) + (_%_157998%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id157011%_))) - (_%new-case-lambda-expr157015%_ + _%lambda-id157996%_))) + (_%new-case-lambda-expr158000%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156985%_ - _%lambda-id157011%_ - _%L156983%_)))) - (let ((__tmp171417 + _%L157970%_ + _%lambda-id157996%_ + _%L157968%_)))) + (let ((__tmp172402 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156876%_))) - (__tmp171416 + (gxc#identifier-symbol _%L157861%_))) + (__tmp172401 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id157011%_)))) + _%lambda-id157996%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171417 + __tmp172402 '" => " - __tmp171416)) - (let ((__tmp171418 + __tmp172401)) + (let ((__tmp172403 (cons '%#begin - (cons (let ((__tmp171419 + (cons (let ((__tmp172404 (cons '%#define-values - (cons (cons _%lambda-id157011%_ + (cons (cons _%lambda-id157996%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156435%_ - _%L156984%_)) + _%self157420%_ + _%L157969%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171419 - _%stx156436%_)) + __tmp172404 + _%stx157421%_)) (cons (gxc#lift-top-lambda-define-values% - _%self156435%_ - (let ((__tmp171420 + _%self157420%_ + (let ((__tmp172405 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L156876%_ '()) - (cons _%new-case-lambda-expr157015%_ '()))))) + (cons (cons _%L157861%_ '()) + (cons _%new-case-lambda-expr158000%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171420 _%stx156436%_))) + (gxc#xform-wrap-source __tmp172405 _%stx157421%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171418 - _%stx156436%_)))) - _%hd156916156978%_ - _%hd156913156970%_ - _%hd156910156962%_) - (_%g156892156922%_ _%g156893156925%_)))) - (_%g156892156922%_ _%g156893156925%_)) + __tmp172403 + _%stx157421%_)))) + _%hd157901157963%_ + _%hd157898157955%_ + _%hd157895157947%_) + (_%g157877157907%_ _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156892156922%_ - _%g156893156925%_)) - (_%g156892156922%_ - _%g156893156925%_)))) - (_%g156892156922%_ _%g156893156925%_)) - (_%g156892156922%_ _%g156893156925%_)))) - (_%g156892156922%_ _%g156893156925%_)))) - (_%g156892156922%_ _%g156893156925%_)))) + (_%g157877157907%_ + _%g157878157910%_)) + (_%g157877157907%_ + _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)) + (_%g157877157907%_ _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156892156922%_ - _%g156893156925%_)))) - (_%g156892156922%_ - _%g156893156925%_)))) - (_%g156892156922%_ _%g156893156925%_))))) - (_%g156891157018%_ _%L156875%_)))) - (_%__kont170625170626%_ - (lambda (_%L156587%_ _%L156588%_) - (let* ((_%g156604156657%_ - (lambda (_%g156605156654%_) + (_%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" - _%g156605156654%_)))) - (_%g156603156835%_ - (lambda (_%g156605156660%_) + _%g157590157639%_)))) + (_%g157588157820%_ + (lambda (_%g157590157645%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156605156660%_)) - (let ((_%e156611156662%_ + (gx#stx-pair? _%g157590157645%_)) + (let ((_%e157596157647%_ (let () (declare (not safe)) - (gx#stx-e _%g156605156660%_)))) - (let ((_%hd156612156665%_ + (gx#stx-e _%g157590157645%_)))) + (let ((_%hd157597157650%_ (let () (declare (not safe)) - (##car _%e156611156662%_))) - (_%tl156613156667%_ + (##car _%e157596157647%_))) + (_%tl157598157652%_ (let () (declare (not safe)) - (##cdr _%e156611156662%_)))) + (##cdr _%e157596157647%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156613156667%_)) - (let ((_%e156614156670%_ + (gx#stx-pair? _%tl157598157652%_)) + (let ((_%e157599157655%_ (let () (declare (not safe)) (gx#stx-e - _%tl156613156667%_)))) - (let ((_%hd156615156673%_ + _%tl157598157652%_)))) + (let ((_%hd157600157658%_ (let () (declare (not safe)) - (##car _%e156614156670%_))) - (_%tl156616156675%_ + (##car _%e157599157655%_))) + (_%tl157601157660%_ (let () (declare (not safe)) - (##cdr _%e156614156670%_)))) + (##cdr _%e157599157655%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156615156673%_)) - (let ((_%e156617156678%_ + _%hd157600157658%_)) + (let ((_%e157602157663%_ (let () (declare (not safe)) (gx#stx-e - _%hd156615156673%_)))) - (let ((_%hd156618156681%_ + _%hd157600157658%_)))) + (let ((_%hd157603157666%_ (let () (declare (not safe)) - (##car _%e156617156678%_))) - (_%tl156619156683%_ + (##car _%e157602157663%_))) + (_%tl157604157668%_ (let () (declare (not safe)) - (##cdr _%e156617156678%_)))) + (##cdr _%e157602157663%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156618156681%_)) - (let ((_%e156620156686%_ + _%hd157603157666%_)) + (let ((_%e157605157671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156618156681%_)))) - (let ((_%hd156621156689%_ + (gx#stx-e _%hd157603157666%_)))) + (let ((_%hd157606157674%_ (let () (declare (not safe)) - (##car _%e156620156686%_))) - (_%tl156622156691%_ + (##car _%e157605157671%_))) + (_%tl157607157676%_ (let () (declare (not safe)) - (##cdr _%e156620156686%_)))) + (##cdr _%e157605157671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156621156689%_)) - (let ((_%e156623156694%_ + (gx#stx-pair? _%hd157606157674%_)) + (let ((_%e157608157679%_ (let () (declare (not safe)) - (gx#stx-e _%hd156621156689%_)))) - (let ((_%hd156624156697%_ + (gx#stx-e _%hd157606157674%_)))) + (let ((_%hd157609157682%_ (let () (declare (not safe)) - (##car _%e156623156694%_))) - (_%tl156625156699%_ + (##car _%e157608157679%_))) + (_%tl157610157684%_ (let () (declare (not safe)) - (##cdr _%e156623156694%_)))) + (##cdr _%e157608157679%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156625156699%_)) + (gx#stx-null? _%tl157610157684%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156622156691%_)) - (let ((_%e156626156702%_ + (gx#stx-pair? _%tl157607157676%_)) + (let ((_%e157611157687%_ (let () (declare (not safe)) (gx#stx-e - _%tl156622156691%_)))) - (let ((_%hd156627156705%_ + _%tl157607157676%_)))) + (let ((_%hd157612157690%_ (let () (declare (not safe)) - (##car _%e156626156702%_))) - (_%tl156628156707%_ + (##car _%e157611157687%_))) + (_%tl157613157692%_ (let () (declare (not safe)) - (##cdr _%e156626156702%_)))) + (##cdr _%e157611157687%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156627156705%_)) - (let ((_%e156629156710%_ + _%hd157612157690%_)) + (let ((_%e157614157695%_ (let () (declare (not safe)) (gx#stx-e - _%hd156627156705%_)))) - (let ((_%hd156630156713%_ + _%hd157612157690%_)))) + (let ((_%hd157615157698%_ (let () (declare (not safe)) - (##car _%e156629156710%_))) - (_%tl156631156715%_ + (##car _%e157614157695%_))) + (_%tl157616157700%_ (let () (declare (not safe)) - (##cdr _%e156629156710%_)))) + (##cdr _%e157614157695%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156631156715%_)) - (let ((_%e156632156718%_ + _%tl157616157700%_)) + (let ((_%e157617157703%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156631156715%_)))) - (let ((_%hd156633156721%_ + (gx#stx-e _%tl157616157700%_)))) + (let ((_%hd157618157706%_ (let () (declare (not safe)) - (##car _%e156632156718%_))) - (_%tl156634156723%_ + (##car _%e157617157703%_))) + (_%tl157619157708%_ (let () (declare (not safe)) - (##cdr _%e156632156718%_)))) + (##cdr _%e157617157703%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156633156721%_)) - (let ((_%e156635156726%_ + (gx#stx-pair? _%hd157618157706%_)) + (let ((_%e157620157711%_ (let () (declare (not safe)) - (gx#stx-e _%hd156633156721%_)))) - (let ((_%hd156636156729%_ + (gx#stx-e _%hd157618157706%_)))) + (let ((_%hd157621157714%_ (let () (declare (not safe)) - (##car _%e156635156726%_))) - (_%tl156637156731%_ + (##car _%e157620157711%_))) + (_%tl157622157716%_ (let () (declare (not safe)) - (##cdr _%e156635156726%_)))) + (##cdr _%e157620157711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156636156729%_)) - (let ((_%e156638156734%_ + (gx#stx-pair? _%hd157621157714%_)) + (let ((_%e157623157719%_ (let () (declare (not safe)) - (gx#stx-e _%hd156636156729%_)))) - (let ((_%hd156639156737%_ + (gx#stx-e _%hd157621157714%_)))) + (let ((_%hd157624157722%_ (let () (declare (not safe)) - (##car _%e156638156734%_))) - (_%tl156640156739%_ + (##car _%e157623157719%_))) + (_%tl157625157724%_ (let () (declare (not safe)) - (##cdr _%e156638156734%_)))) + (##cdr _%e157623157719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156639156737%_)) - (let ((_%e156641156742%_ + (gx#stx-pair? _%hd157624157722%_)) + (let ((_%e157626157727%_ (let () (declare (not safe)) (gx#stx-e - _%hd156639156737%_)))) - (let ((_%hd156642156745%_ + _%hd157624157722%_)))) + (let ((_%hd157627157730%_ (let () (declare (not safe)) - (##car _%e156641156742%_))) - (_%tl156643156747%_ + (##car _%e157626157727%_))) + (_%tl157628157732%_ (let () (declare (not safe)) - (##cdr _%e156641156742%_)))) + (##cdr _%e157626157727%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156643156747%_)) + _%tl157628157732%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156640156739%_)) - (let ((_%e156644156750%_ + _%tl157625157724%_)) + (let ((_%e157629157735%_ (let () (declare (not safe)) (gx#stx-e - _%tl156640156739%_)))) - (let ((_%hd156645156753%_ + _%tl157625157724%_)))) + (let ((_%hd157630157738%_ (let () (declare (not safe)) - (##car _%e156644156750%_))) - (_%tl156646156755%_ + (##car _%e157629157735%_))) + (_%tl157631157740%_ (let () (declare (not safe)) - (##cdr _%e156644156750%_)))) + (##cdr _%e157629157735%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156646156755%_)) + _%tl157631157740%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl156637156731%_)) + (gx#stx-null? _%tl157622157716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156634156723%_)) - (let ((_%e156647156758%_ + (gx#stx-pair? _%tl157619157708%_)) + (let ((_%e157632157743%_ (let () (declare (not safe)) - (gx#stx-e _%tl156634156723%_)))) - (let ((_%hd156648156761%_ + (gx#stx-e _%tl157619157708%_)))) + (let ((_%hd157633157746%_ (let () (declare (not safe)) - (##car _%e156647156758%_))) - (_%tl156649156763%_ + (##car _%e157632157743%_))) + (_%tl157634157748%_ (let () (declare (not safe)) - (##cdr _%e156647156758%_)))) + (##cdr _%e157632157743%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156649156763%_)) + (gx#stx-null? _%tl157634157748%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156628156707%_)) + (gx#stx-null? _%tl157613157692%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156619156683%_)) + (gx#stx-null? _%tl157604157668%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156616156675%_)) - (let ((_%e156650156766%_ + _%tl157601157660%_)) + (let ((_%e157635157751%_ (let () (declare (not safe)) (gx#stx-e - _%tl156616156675%_)))) - (let ((_%hd156651156769%_ + _%tl157601157660%_)))) + (let ((_%hd157636157754%_ (let () (declare (not safe)) - (##car _%e156650156766%_))) - (_%tl156652156771%_ + (##car _%e157635157751%_))) + (_%tl157637157756%_ (let () (declare (not safe)) - (##cdr _%e156650156766%_)))) + (##cdr _%e157635157751%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156652156771%_)) - ((lambda (_%L156774%_ + _%tl157637157756%_)) + ((lambda (_%L157759%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L156775%_ - _%L156776%_ - _%L156777%_ - _%L156778%_) - (let* ((_%get-kws-id156818%_ - (let ((__tmp171422 + _%L157760%_ + _%L157761%_ + _%L157762%_ + _%L157763%_) + (let* ((_%get-kws-id157803%_ + (let ((__tmp172407 (let () (declare (not safe)) - (gx#stx-e _%L156588%_))) - (__tmp171421 - (_%kw-lambda-dispatch-name156440%_ + (gx#stx-e _%L157573%_))) + (__tmp172406 + (_%kw-lambda-dispatch-name157425%_ (let () (declare (not safe)) - (gx#stx-e _%L156778%_)) + (gx#stx-e _%L157763%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp171422 '"__" __tmp171421))) - (_%get-kws-id156820%_ - (let ((__tmp171423 + (make-symbol__1 __tmp172407 '"__" __tmp172406))) + (_%get-kws-id157805%_ + (let ((__tmp172408 (let () (declare (not safe)) - (gx#stx-source _%stx156436%_)))) + (gx#stx-source _%stx157421%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id156818%_ - __tmp171423))) - (_%main-id156822%_ - (let ((__tmp171425 + _%get-kws-id157803%_ + __tmp172408))) + (_%main-id157807%_ + (let ((__tmp172410 (let () (declare (not safe)) - (gx#stx-e _%L156588%_))) - (__tmp171424 - (_%kw-lambda-dispatch-name156440%_ + (gx#stx-e _%L157573%_))) + (__tmp172409 + (_%kw-lambda-dispatch-name157425%_ (let () (declare (not safe)) - (gx#stx-e _%L156777%_)) + (gx#stx-e _%L157762%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp171425 '"__" __tmp171424))) - (_%main-id156824%_ - (let ((__tmp171426 + (make-symbol__1 __tmp172410 '"__" __tmp172409))) + (_%main-id157809%_ + (let ((__tmp172411 (let () (declare (not safe)) - (gx#stx-source _%stx156436%_)))) + (gx#stx-source _%stx157421%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id156822%_ - __tmp171426))) - (_%_156826%_ + _%main-id157807%_ + __tmp172411))) + (_%_157811%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id156820%_))) - (_%_156828%_ + (gx#core-bind-runtime!__0 _%get-kws-id157805%_))) + (_%_157813%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id156824%_))) - (_%new-kw-dispatch156830%_ + (gx#core-bind-runtime!__0 _%main-id157809%_))) + (_%new-kw-dispatch157815%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156778%_ - _%get-kws-id156820%_ - _%L156774%_))) - (_%new-get-kws156832%_ + _%L157763%_ + _%get-kws-id157805%_ + _%L157759%_))) + (_%new-get-kws157817%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156777%_ - _%main-id156824%_ - _%L156775%_)))) - (let ((__tmp171429 + _%L157762%_ + _%main-id157809%_ + _%L157760%_)))) + (let ((__tmp172414 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156588%_))) - (__tmp171428 + (gxc#identifier-symbol _%L157573%_))) + (__tmp172413 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id156820%_))) - (__tmp171427 + (gxc#identifier-symbol _%get-kws-id157805%_))) + (__tmp172412 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id156824%_)))) + (gxc#identifier-symbol _%main-id157809%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171429 + __tmp172414 '" => " - __tmp171428 + __tmp172413 '" => " - __tmp171427)) - (let ((__tmp171430 + __tmp172412)) + (let ((__tmp172415 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self156435%_ - (let ((__tmp171431 + _%self157420%_ + (let ((__tmp172416 (cons '%#define-values - (cons (cons _%main-id156824%_ + (cons (cons _%main-id157809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L156776%_ '()))))) + (cons _%L157761%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171431 - _%stx156436%_))) - (cons (let ((__tmp171432 + __tmp172416 + _%stx157421%_))) + (cons (let ((__tmp172417 (cons '%#define-values - (cons (cons _%get-kws-id156820%_ + (cons (cons _%get-kws-id157805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws156832%_ '()))))) + (cons _%new-get-kws157817%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171432 - _%stx156436%_)) - (cons (let ((__tmp171433 + __tmp172417 + _%stx157421%_)) + (cons (let ((__tmp172418 (cons '%#define-values - (cons (cons _%L156588%_ + (cons (cons _%L157573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch156830%_ '()))))) + (cons _%new-kw-dispatch157815%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171433 - _%stx156436%_)) + __tmp172418 + _%stx157421%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171430 _%stx156436%_)))) - _%hd156651156769%_ - _%hd156648156761%_ - _%hd156645156753%_ - _%hd156642156745%_ - _%hd156624156697%_) - (_%g156604156657%_ _%g156605156660%_)))) + (gxc#xform-wrap-source __tmp172415 _%stx157421%_)))) + _%hd157636157754%_ + _%hd157633157746%_ + _%hd157630157738%_ + _%hd157627157730%_ + _%hd157609157682%_) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156604156657%_ - _%g156605156660%_)) - (_%g156604156657%_ - _%g156605156660%_)) - (_%g156604156657%_ _%g156605156660%_)) - (_%g156604156657%_ _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)) - (_%g156604156657%_ _%g156605156660%_)) - (_%g156604156657%_ _%g156605156660%_)))) + (_%g157589157642%_ + _%g157590157645%_)) + (_%g157589157642%_ + _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156604156657%_ - _%g156605156660%_)) - (_%g156604156657%_ - _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)))) + (_%g157589157642%_ + _%g157590157645%_)) + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156604156657%_ - _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)) - (_%g156604156657%_ _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_)))) + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156604156657%_ - _%g156605156660%_)))) - (_%g156604156657%_ - _%g156605156660%_)))) - (_%g156604156657%_ _%g156605156660%_))))) - (_%g156603156835%_ _%L156587%_)))) - (_%__kont170627170628%_ - (lambda (_%L156533%_ _%L156534%_) - (let ((__tmp171434 + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_))))) + (_%g157588157820%_ _%L157572%_)))) + (_%__kont171612171613%_ + (lambda (_%L157518%_ _%L157519%_) + (let ((__tmp172419 (cons '%#define-values - (cons _%L156534%_ + (cons _%L157519%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156435%_ - _%L156533%_)) + _%self157420%_ + _%L157518%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171434 _%stx156436%_))))) - (let* ((_%__match170712170713%_ - (lambda (_%e156477156555%_ - _%hd156478156558%_ - _%tl156479156560%_ - _%e156480156563%_ - _%hd156481156566%_ - _%tl156482156568%_ - _%e156483156571%_ - _%hd156484156574%_ - _%tl156485156576%_ - _%e156486156579%_ - _%hd156487156582%_ - _%tl156488156584%_) - (let ((_%L156587%_ _%hd156487156582%_) - (_%L156588%_ _%hd156484156574%_)) + (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? _%L156588%_)) - (gxc#kw-lambda-expr? _%L156587%_)) - (_%__kont170625170626%_ _%L156587%_ _%L156588%_) - (_%__kont170627170628%_ - _%hd156487156582%_ - _%hd156481156566%_))))) - (_%__match170684170685%_ - (lambda (_%e156463156843%_ - _%hd156464156846%_ - _%tl156465156848%_ - _%e156466156851%_ - _%hd156467156854%_ - _%tl156468156856%_ - _%e156469156859%_ - _%hd156470156862%_ - _%tl156471156864%_ - _%e156472156867%_ - _%hd156473156870%_ - _%tl156474156872%_) - (let ((_%L156875%_ _%hd156473156870%_) - (_%L156876%_ _%hd156470156862%_)) + (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? _%L156876%_)) - (gxc#opt-lambda-expr? _%L156875%_)) - (_%__kont170623170624%_ _%L156875%_ _%L156876%_) - (_%__match170712170713%_ - _%e156463156843%_ - _%hd156464156846%_ - _%tl156465156848%_ - _%e156466156851%_ - _%hd156467156854%_ - _%tl156468156856%_ - _%e156469156859%_ - _%hd156470156862%_ - _%tl156471156864%_ - _%e156472156867%_ - _%hd156473156870%_ - _%tl156474156872%_))))) - (_%__match170656170657%_ - (lambda (_%e156449157026%_ - _%hd156450157029%_ - _%tl156451157031%_ - _%e156452157034%_ - _%hd156453157037%_ - _%tl156454157039%_ - _%e156455157042%_ - _%hd156456157045%_ - _%tl156457157047%_ - _%e156458157050%_ - _%hd156459157053%_ - _%tl156460157055%_) - (let ((_%L157058%_ _%hd156459157053%_) - (_%L157059%_ _%hd156456157045%_)) + (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? _%L157059%_)) - (gxc#case-lambda-expr? _%L157058%_)) - (_%__kont170621170622%_ _%L157058%_ _%L157059%_) - (_%__match170684170685%_ - _%e156449157026%_ - _%hd156450157029%_ - _%tl156451157031%_ - _%e156452157034%_ - _%hd156453157037%_ - _%tl156454157039%_ - _%e156455157042%_ - _%hd156456157045%_ - _%tl156457157047%_ - _%e156458157050%_ - _%hd156459157053%_ - _%tl156460157055%_)))))) + (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? _%__stx170619170620%_)) - (let ((_%e156449157026%_ + (gx#stx-pair? _%__stx171604171605%_)) + (let ((_%e157434158011%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170619170620%_)))) - (let ((_%tl156451157031%_ + (gx#stx-e _%__stx171604171605%_)))) + (let ((_%tl157436158016%_ (let () (declare (not safe)) - (##cdr _%e156449157026%_))) - (_%hd156450157029%_ + (##cdr _%e157434158011%_))) + (_%hd157435158014%_ (let () (declare (not safe)) - (##car _%e156449157026%_)))) + (##car _%e157434158011%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156451157031%_)) - (let ((_%e156452157034%_ + (gx#stx-pair? _%tl157436158016%_)) + (let ((_%e157437158019%_ (let () (declare (not safe)) - (gx#stx-e _%tl156451157031%_)))) - (let ((_%tl156454157039%_ + (gx#stx-e _%tl157436158016%_)))) + (let ((_%tl157439158024%_ (let () (declare (not safe)) - (##cdr _%e156452157034%_))) - (_%hd156453157037%_ + (##cdr _%e157437158019%_))) + (_%hd157438158022%_ (let () (declare (not safe)) - (##car _%e156452157034%_)))) + (##car _%e157437158019%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156453157037%_)) - (let ((_%e156455157042%_ + (gx#stx-pair? _%hd157438158022%_)) + (let ((_%e157440158027%_ (let () (declare (not safe)) - (gx#stx-e _%hd156453157037%_)))) - (let ((_%tl156457157047%_ + (gx#stx-e _%hd157438158022%_)))) + (let ((_%tl157442158032%_ (let () (declare (not safe)) - (##cdr _%e156455157042%_))) - (_%hd156456157045%_ + (##cdr _%e157440158027%_))) + (_%hd157441158030%_ (let () (declare (not safe)) - (##car _%e156455157042%_)))) + (##car _%e157440158027%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156457157047%_)) + _%tl157442158032%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156454157039%_)) - (let ((_%e156458157050%_ + _%tl157439158024%_)) + (let ((_%e157443158035%_ (let () (declare (not safe)) (gx#stx-e - _%tl156454157039%_)))) - (let ((_%tl156460157055%_ + _%tl157439158024%_)))) + (let ((_%tl157445158040%_ (let () (declare (not safe)) - (##cdr _%e156458157050%_))) - (_%hd156459157053%_ + (##cdr _%e157443158035%_))) + (_%hd157444158038%_ (let () (declare (not safe)) - (##car _%e156458157050%_)))) + (##car _%e157443158035%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156460157055%_)) - (_%__match170656170657%_ - _%e156449157026%_ - _%hd156450157029%_ - _%tl156451157031%_ - _%e156452157034%_ - _%hd156453157037%_ - _%tl156454157039%_ - _%e156455157042%_ - _%hd156456157045%_ - _%tl156457157047%_ - _%e156458157050%_ - _%hd156459157053%_ - _%tl156460157055%_) + _%tl157445158040%_)) + (_%__match171641171642%_ + _%e157434158011%_ + _%hd157435158014%_ + _%tl157436158016%_ + _%e157437158019%_ + _%hd157438158022%_ + _%tl157439158024%_ + _%e157440158027%_ + _%hd157441158030%_ + _%tl157442158032%_ + _%e157443158035%_ + _%hd157444158038%_ + _%tl157445158040%_) (let () (declare (not safe)) - (_%g156445156504%_))))) + (_%g157430157489%_))))) (let () (declare (not safe)) - (_%g156445156504%_))) + (_%g157430157489%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156454157039%_)) - (let ((_%e156497156525%_ + _%tl157439158024%_)) + (let ((_%e157482157510%_ (let () (declare (not safe)) (gx#stx-e - _%tl156454157039%_)))) - (let ((_%tl156499156530%_ + _%tl157439158024%_)))) + (let ((_%tl157484157515%_ (let () (declare (not safe)) - (##cdr _%e156497156525%_))) - (_%hd156498156528%_ + (##cdr _%e157482157510%_))) + (_%hd157483157513%_ (let () (declare (not safe)) - (##car _%e156497156525%_)))) + (##car _%e157482157510%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156499156530%_)) - (_%__kont170627170628%_ - _%hd156498156528%_ - _%hd156453157037%_) + _%tl157484157515%_)) + (_%__kont171612171613%_ + _%hd157483157513%_ + _%hd157438158022%_) (let () (declare (not safe)) - (_%g156445156504%_))))) + (_%g157430157489%_))))) (let () (declare (not safe)) - (_%g156445156504%_)))))) + (_%g157430157489%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156454157039%_)) - (let ((_%e156497156525%_ + (gx#stx-pair? _%tl157439158024%_)) + (let ((_%e157482157510%_ (let () (declare (not safe)) (gx#stx-e - _%tl156454157039%_)))) - (let ((_%tl156499156530%_ + _%tl157439158024%_)))) + (let ((_%tl157484157515%_ (let () (declare (not safe)) - (##cdr _%e156497156525%_))) - (_%hd156498156528%_ + (##cdr _%e157482157510%_))) + (_%hd157483157513%_ (let () (declare (not safe)) - (##car _%e156497156525%_)))) + (##car _%e157482157510%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156499156530%_)) - (_%__kont170627170628%_ - _%hd156498156528%_ - _%hd156453157037%_) + _%tl157484157515%_)) + (_%__kont171612171613%_ + _%hd157483157513%_ + _%hd157438158022%_) (let () (declare (not safe)) - (_%g156445156504%_))))) + (_%g157430157489%_))))) (let () (declare (not safe)) - (_%g156445156504%_)))))) + (_%g157430157489%_)))))) (let () (declare (not safe)) - (_%g156445156504%_))))) - (let () (declare (not safe)) (_%g156445156504%_))))))))) + (_%g157430157489%_))))) + (let () (declare (not safe)) (_%g157430157489%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self155362%_ _%stx155363%_) - (letrec* ((_%bind-e__168098168099%_ - (lambda (_%id156419%_ _%expr156420%_ _%compile?156421%_) - (cons (cons _%id156419%_ '()) - (cons (if _%compile?156421%_ + (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 - _%self155362%_ - _%expr156420%_)) - _%expr156420%_) + _%self156347%_ + _%expr157405%_)) + _%expr157405%_) '())))) - (_%bind-e__0__168100168101%_ - (lambda (_%id156426%_ _%expr156427%_) - (let ((_%compile?156429%_ '#t)) - (_%bind-e__168098168099%_ - _%id156426%_ - _%expr156427%_ - _%compile?156429%_)))) - (_%bind-e155365%_ - (lambda _g171436_ - (let ((_g171435_ + (_%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 _g171436_)))) - (cond ((let () (declare (not safe)) (##fx= _g171435_ 2)) - (apply _%bind-e__0__168100168101%_ _g171436_)) - ((let () (declare (not safe)) (##fx= _g171435_ 3)) - (apply _%bind-e__168098168099%_ _g171436_)) + (##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 - _g171436_)))))) - (_%compile-bindings155366%_ - (lambda (_%bindings156001%_) - (let _%lp156003%_ ((_%rest156005%_ _%bindings156001%_) - (_%lift1156006%_ '()) - (_%lift2156007%_ '()) - (_%bind156008%_ '())) - (let* ((_%rest156009156017%_ _%rest156005%_) - (_%else156011156025%_ + _g172421_)))))) + (_%compile-bindings156351%_ + (lambda (_%bindings156986%_) + (let _%lp156988%_ ((_%rest156990%_ _%bindings156986%_) + (_%lift1156991%_ '()) + (_%lift2156992%_ '()) + (_%bind156993%_ '())) + (let* ((_%rest156994157002%_ _%rest156990%_) + (_%else156996157010%_ (lambda () - (values (reverse _%lift1156006%_) - (reverse _%lift2156007%_) - (reverse _%bind156008%_)))) - (_%K156013156406%_ - (lambda (_%rest156028%_ _%hd156029%_) - (let* ((_%__stx170755170756%_ _%hd156029%_) - (_%g156033156069%_ + (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" - _%__stx170755170756%_))))) - (let ((_%__kont170757170758%_ - (lambda (_%L156312%_ _%L156313%_) - (let* ((_%__stx170735170736%_ - _%L156312%_) - (_%g156328156342%_ + _%__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" - _%__stx170735170736%_))))) - (let ((_%__kont170737170738%_ - (lambda (_%L156391%_) - (_%lp156003%_ - _%rest156028%_ - _%lift1156006%_ - _%lift2156007%_ - (cons (_%bind-e__168098168099%_ - _%L156313%_ - _%L156312%_ + _%__stx171720171721%_))))) + (let ((_%__kont171722171723%_ + (lambda (_%L157376%_) + (_%lp156988%_ + _%rest157013%_ + _%lift1156991%_ + _%lift2156992%_ + (cons (_%bind-e__169083169084%_ + _%L157298%_ + _%L157297%_ '#f) - _%bind156008%_)))) - (_%__kont170739170740%_ - (lambda (_%L156355%_) - (let ((_g171437_ + _%bind156993%_)))) + (_%__kont171724171725%_ + (lambda (_%L157340%_) + (let ((_g172422_ (gxc#lift-case-lambda-clauses__% - _%stx155363%_ - _%L156313%_ - _%L156355%_ + _%stx156348%_ + _%L157298%_ + _%L157340%_ '#t))) (begin - (let ((_g171438_ + (let ((_g172423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171437_) - (##values-length _g171437_) + (if (##values? _g172422_) + (##values-length _g172422_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171438_ 3))) - (error "Context expects 3 values" _g171438_))) - (let ((_%ids156365%_ + (##fx= _g172423_ 3))) + (error "Context expects 3 values" _g172423_))) + (let ((_%ids157350%_ (let () (declare (not safe)) - (##values-ref _g171437_ 0))) - (_%impls156366%_ + (##values-ref _g172422_ 0))) + (_%impls157351%_ (let () (declare (not safe)) - (##values-ref _g171437_ 1))) - (_%clauses156367%_ + (##values-ref _g172422_ 1))) + (_%clauses157352%_ (let () (declare (not safe)) - (##values-ref _g171437_ 2)))) - (let* ((_%_156369%_ - (for-each gx#core-bind-runtime! _%ids156365%_)) - (_%xbind156371%_ - (map _%bind-e155365%_ - _%ids156365%_ - _%impls156366%_)) - (_%expr*156373%_ - (let ((__tmp171440 - (cons '%#case-lambda _%clauses156367%_)) - (__tmp171439 + (##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 - __tmp171440 - __tmp171439))) - (_%bind*156375%_ - (_%bind-e__168098168099%_ - _%L156313%_ - _%expr*156373%_ + __tmp172425 + __tmp172424))) + (_%bind*157360%_ + (_%bind-e__169083169084%_ + _%L157298%_ + _%expr*157358%_ '#f))) - (let ((__tmp171442 + (let ((__tmp172427 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156313%_))) - (__tmp171441 - (map gxc#identifier-symbol _%ids156365%_))) + (gxc#identifier-symbol _%L157298%_))) + (__tmp172426 + (map gxc#identifier-symbol _%ids157350%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171442 + __tmp172427 '" => " - __tmp171441)) - (_%lp156003%_ - _%rest156028%_ - _%lift1156006%_ + __tmp172426)) + (_%lp156988%_ + _%rest157013%_ + _%lift1156991%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2156007%_ _%xbind156371%_)) - (cons _%bind*156375%_ _%bind156008%_))))))))) + (__foldl1 cons _%lift2156992%_ _%xbind157356%_)) + (cons _%bind*157360%_ _%bind156993%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170746170747%_ - (lambda (_%e156331156383%_ - _%hd156332156386%_ - _%tl156333156388%_) - (let ((_%L156391%_ - _%tl156333156388%_)) + (let ((_%__match171731171732%_ + (lambda (_%e157316157368%_ + _%hd157317157371%_ + _%tl157318157373%_) + (let ((_%L157376%_ + _%tl157318157373%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L156391%_)) - (_%__kont170737170738%_ _%L156391%_) - (_%__kont170739170740%_ _%tl156333156388%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L157376%_)) + (_%__kont171722171723%_ _%L157376%_) + (_%__kont171724171725%_ _%tl157318157373%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170735170736%_)) - (let ((_%e156331156383%_ + _%__stx171720171721%_)) + (let ((_%e157316157368%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170735170736%_)))) - (let ((_%tl156333156388%_ - (let () (declare (not safe)) (##cdr _%e156331156383%_))) - (_%hd156332156386%_ + (gx#stx-e _%__stx171720171721%_)))) + (let ((_%tl157318157373%_ + (let () (declare (not safe)) (##cdr _%e157316157368%_))) + (_%hd157317157371%_ (let () (declare (not safe)) - (##car _%e156331156383%_)))) - (_%__match170746170747%_ - _%e156331156383%_ - _%hd156332156386%_ - _%tl156333156388%_))) - (let () (declare (not safe)) (_%g156328156342%_)))))))) + (##car _%e157316157368%_)))) + (_%__match171731171732%_ + _%e157316157368%_ + _%hd157317157371%_ + _%tl157318157373%_))) + (let () (declare (not safe)) (_%g157313157327%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170759170760%_ - (lambda (_%L156139%_ _%L156140%_) - (let* ((_%g156154156184%_ - (lambda (_%g156155156181%_) + (_%__kont171744171745%_ + (lambda (_%L157124%_ _%L157125%_) + (let* ((_%g157139157169%_ + (lambda (_%g157140157166%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156155156181%_)))) - (_%g156153156280%_ - (lambda (_%g156155156187%_) + _%g157140157166%_)))) + (_%g157138157265%_ + (lambda (_%g157140157172%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g156155156187%_)) - (let ((_%e156159156189%_ + _%g157140157172%_)) + (let ((_%e157144157174%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g156155156187%_)))) - (let ((_%hd156160156192%_ + (gx#stx-e _%g157140157172%_)))) + (let ((_%hd157145157177%_ (let () (declare (not safe)) - (##car _%e156159156189%_))) - (_%tl156161156194%_ + (##car _%e157144157174%_))) + (_%tl157146157179%_ (let () (declare (not safe)) - (##cdr _%e156159156189%_)))) + (##cdr _%e157144157174%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156161156194%_)) - (let ((_%e156162156197%_ + (gx#stx-pair? _%tl157146157179%_)) + (let ((_%e157147157182%_ (let () (declare (not safe)) - (gx#stx-e _%tl156161156194%_)))) - (let ((_%hd156163156200%_ + (gx#stx-e _%tl157146157179%_)))) + (let ((_%hd157148157185%_ (let () (declare (not safe)) - (##car _%e156162156197%_))) - (_%tl156164156202%_ + (##car _%e157147157182%_))) + (_%tl157149157187%_ (let () (declare (not safe)) - (##cdr _%e156162156197%_)))) + (##cdr _%e157147157182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156163156200%_)) - (let ((_%e156165156205%_ + (gx#stx-pair? _%hd157148157185%_)) + (let ((_%e157150157190%_ (let () (declare (not safe)) - (gx#stx-e _%hd156163156200%_)))) - (let ((_%hd156166156208%_ + (gx#stx-e _%hd157148157185%_)))) + (let ((_%hd157151157193%_ (let () (declare (not safe)) - (##car _%e156165156205%_))) - (_%tl156167156210%_ + (##car _%e157150157190%_))) + (_%tl157152157195%_ (let () (declare (not safe)) - (##cdr _%e156165156205%_)))) + (##cdr _%e157150157190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156166156208%_)) - (let ((_%e156168156213%_ + (gx#stx-pair? _%hd157151157193%_)) + (let ((_%e157153157198%_ (let () (declare (not safe)) (gx#stx-e - _%hd156166156208%_)))) - (let ((_%hd156169156216%_ + _%hd157151157193%_)))) + (let ((_%hd157154157201%_ (let () (declare (not safe)) - (##car _%e156168156213%_))) - (_%tl156170156218%_ + (##car _%e157153157198%_))) + (_%tl157155157203%_ (let () (declare (not safe)) - (##cdr _%e156168156213%_)))) + (##cdr _%e157153157198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156169156216%_)) - (let ((_%e156171156221%_ + _%hd157154157201%_)) + (let ((_%e157156157206%_ (let () (declare (not safe)) (gx#stx-e - _%hd156169156216%_)))) - (let ((_%hd156172156224%_ + _%hd157154157201%_)))) + (let ((_%hd157157157209%_ (let () (declare (not safe)) - (##car _%e156171156221%_))) - (_%tl156173156226%_ + (##car _%e157156157206%_))) + (_%tl157158157211%_ (let () (declare (not safe)) - (##cdr _%e156171156221%_)))) + (##cdr _%e157156157206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156173156226%_)) + _%tl157158157211%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl156170156218%_)) - (let ((_%e156174156229%_ + (gx#stx-pair? _%tl157155157203%_)) + (let ((_%e157159157214%_ (let () (declare (not safe)) - (gx#stx-e _%tl156170156218%_)))) - (let ((_%hd156175156232%_ + (gx#stx-e _%tl157155157203%_)))) + (let ((_%hd157160157217%_ (let () (declare (not safe)) - (##car _%e156174156229%_))) - (_%tl156176156234%_ + (##car _%e157159157214%_))) + (_%tl157161157219%_ (let () (declare (not safe)) - (##cdr _%e156174156229%_)))) + (##cdr _%e157159157214%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156176156234%_)) + (gx#stx-null? _%tl157161157219%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156167156210%_)) + (gx#stx-null? _%tl157152157195%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156164156202%_)) - (let ((_%e156177156237%_ + (gx#stx-pair? _%tl157149157187%_)) + (let ((_%e157162157222%_ (let () (declare (not safe)) - (gx#stx-e _%tl156164156202%_)))) - (let ((_%hd156178156240%_ + (gx#stx-e _%tl157149157187%_)))) + (let ((_%hd157163157225%_ (let () (declare (not safe)) - (##car _%e156177156237%_))) - (_%tl156179156242%_ + (##car _%e157162157222%_))) + (_%tl157164157227%_ (let () (declare (not safe)) - (##cdr _%e156177156237%_)))) + (##cdr _%e157162157222%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156179156242%_)) - ((lambda (_%L156245%_ - _%L156246%_ - _%L156247%_) - (let* ((_%lambda-id156271%_ - (let ((__tmp171444 + _%tl157164157227%_)) + ((lambda (_%L157230%_ + _%L157231%_ + _%L157232%_) + (let* ((_%lambda-id157256%_ + (let ((__tmp172429 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L156140%_))) - (__tmp171443 + (gx#stx-e _%L157125%_))) + (__tmp172428 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171444 __tmp171443))) - (_%lambda-id156273%_ - (let ((__tmp171445 + (make-symbol__1 __tmp172429 __tmp172428))) + (_%lambda-id157258%_ + (let ((__tmp172430 (let () (declare (not safe)) - (gx#stx-source _%stx155363%_)))) + (gx#stx-source _%stx156348%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id156271%_ __tmp171445))) - (_%_156275%_ + (gx#core-quote-syntax__1 _%lambda-id157256%_ __tmp172430))) + (_%_157260%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id156273%_))) - (_%new-case-lambda-expr156277%_ + (gx#core-bind-runtime!__0 _%lambda-id157258%_))) + (_%new-case-lambda-expr157262%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156247%_ - _%lambda-id156273%_ - _%L156245%_)))) + _%L157232%_ + _%lambda-id157258%_ + _%L157230%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171447 + (let ((__tmp172432 (let () (declare (not safe)) (gxc#identifier-symbol - _%L156140%_))) - (__tmp171446 + _%L157125%_))) + (__tmp172431 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id156273%_)))) + _%lambda-id157258%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171447 + __tmp172432 '" => " - __tmp171446)) - (_%lp156003%_ - (cons (_%bind-e__168098168099%_ - _%L156140%_ - _%new-case-lambda-expr156277%_ + __tmp172431)) + (_%lp156988%_ + (cons (_%bind-e__169083169084%_ + _%L157125%_ + _%new-case-lambda-expr157262%_ '#f) - _%rest156028%_) - (cons (_%bind-e__0__168100168101%_ - _%lambda-id156273%_ - _%L156246%_) - _%lift1156006%_) - _%lift2156007%_ - _%bind156008%_))) - _%hd156178156240%_ - _%hd156175156232%_ - _%hd156172156224%_) - (_%g156154156184%_ - _%g156155156187%_)))) - (_%g156154156184%_ _%g156155156187%_)) - (_%g156154156184%_ _%g156155156187%_)) - (_%g156154156184%_ _%g156155156187%_)))) - (_%g156154156184%_ _%g156155156187%_)) - (_%g156154156184%_ _%g156155156187%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156154156184%_ - _%g156155156187%_)))) - (_%g156154156184%_ - _%g156155156187%_)))) - (_%g156154156184%_ _%g156155156187%_)))) - (_%g156154156184%_ _%g156155156187%_)))) - (_%g156154156184%_ _%g156155156187%_))))) + (_%g157139157169%_ + _%g157140157172%_)))) + (_%g157139157169%_ + _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156153156280%_ - _%L156139%_)))) - (_%__kont170761170762%_ - (lambda (_%L156090%_ _%L156091%_) - (_%lp156003%_ - _%rest156028%_ - _%lift1156006%_ - _%lift2156007%_ - (cons (cons _%L156091%_ + (_%g157138157265%_ + _%L157124%_)))) + (_%__kont171746171747%_ + (lambda (_%L157075%_ _%L157076%_) + (_%lp156988%_ + _%rest157013%_ + _%lift1156991%_ + _%lift2156992%_ + (cons (cons _%L157076%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self155362%_ _%L156090%_)) + (gxc#compile-e__1 _%self156347%_ _%L157075%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind156008%_))))) - (let* ((_%__match170806170807%_ - (lambda (_%e156048156115%_ - _%hd156049156118%_ - _%tl156050156120%_ - _%e156051156123%_ - _%hd156052156126%_ - _%tl156053156128%_ - _%e156054156131%_ - _%hd156055156134%_ - _%tl156056156136%_) - (let ((_%L156139%_ - _%hd156055156134%_) - (_%L156140%_ - _%hd156052156126%_)) + _%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? - _%L156140%_)) + _%L157125%_)) (gxc#opt-lambda-expr? - _%L156139%_)) - (_%__kont170759170760%_ - _%L156139%_ - _%L156140%_) - (_%__kont170761170762%_ - _%hd156055156134%_ - _%hd156049156118%_))))) - (_%__match170784170785%_ - (lambda (_%e156037156288%_ - _%hd156038156291%_ - _%tl156039156293%_ - _%e156040156296%_ - _%hd156041156299%_ - _%tl156042156301%_ - _%e156043156304%_ - _%hd156044156307%_ - _%tl156045156309%_) - (let ((_%L156312%_ - _%hd156044156307%_) - (_%L156313%_ - _%hd156041156299%_)) + _%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? - _%L156313%_)) + _%L157298%_)) (gxc#case-lambda-expr? - _%L156312%_)) - (_%__kont170757170758%_ - _%L156312%_ - _%L156313%_) - (_%__match170806170807%_ - _%e156037156288%_ - _%hd156038156291%_ - _%tl156039156293%_ - _%e156040156296%_ - _%hd156041156299%_ - _%tl156042156301%_ - _%e156043156304%_ - _%hd156044156307%_ - _%tl156045156309%_)))))) + _%L157297%_)) + (_%__kont171742171743%_ + _%L157297%_ + _%L157298%_) + (_%__match171791171792%_ + _%e157022157273%_ + _%hd157023157276%_ + _%tl157024157278%_ + _%e157025157281%_ + _%hd157026157284%_ + _%tl157027157286%_ + _%e157028157289%_ + _%hd157029157292%_ + _%tl157030157294%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170755170756%_)) - (let ((_%e156037156288%_ + _%__stx171740171741%_)) + (let ((_%e157022157273%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170755170756%_)))) - (let ((_%tl156039156293%_ + _%__stx171740171741%_)))) + (let ((_%tl157024157278%_ (let () (declare (not safe)) - (##cdr _%e156037156288%_))) - (_%hd156038156291%_ + (##cdr _%e157022157273%_))) + (_%hd157023157276%_ (let () (declare (not safe)) - (##car _%e156037156288%_)))) + (##car _%e157022157273%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156038156291%_)) - (let ((_%e156040156296%_ + _%hd157023157276%_)) + (let ((_%e157025157281%_ (let () (declare (not safe)) (gx#stx-e - _%hd156038156291%_)))) - (let ((_%tl156042156301%_ + _%hd157023157276%_)))) + (let ((_%tl157027157286%_ (let () (declare (not safe)) - (##cdr _%e156040156296%_))) - (_%hd156041156299%_ + (##cdr _%e157025157281%_))) + (_%hd157026157284%_ (let () (declare (not safe)) - (##car _%e156040156296%_)))) + (##car _%e157025157281%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156042156301%_)) + _%tl157027157286%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl156039156293%_)) - (let ((_%e156043156304%_ + (gx#stx-pair? _%tl157024157278%_)) + (let ((_%e157028157289%_ (let () (declare (not safe)) - (gx#stx-e _%tl156039156293%_)))) - (let ((_%tl156045156309%_ + (gx#stx-e _%tl157024157278%_)))) + (let ((_%tl157030157294%_ (let () (declare (not safe)) - (##cdr _%e156043156304%_))) - (_%hd156044156307%_ + (##cdr _%e157028157289%_))) + (_%hd157029157292%_ (let () (declare (not safe)) - (##car _%e156043156304%_)))) + (##car _%e157028157289%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156045156309%_)) - (_%__match170784170785%_ - _%e156037156288%_ - _%hd156038156291%_ - _%tl156039156293%_ - _%e156040156296%_ - _%hd156041156299%_ - _%tl156042156301%_ - _%e156043156304%_ - _%hd156044156307%_ - _%tl156045156309%_) + (gx#stx-null? _%tl157030157294%_)) + (_%__match171769171770%_ + _%e157022157273%_ + _%hd157023157276%_ + _%tl157024157278%_ + _%e157025157281%_ + _%hd157026157284%_ + _%tl157027157286%_ + _%e157028157289%_ + _%hd157029157292%_ + _%tl157030157294%_) (let () (declare (not safe)) - (_%g156033156069%_))))) - (let () (declare (not safe)) (_%g156033156069%_))) + (_%g157018157054%_))))) + (let () (declare (not safe)) (_%g157018157054%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156039156293%_)) - (let ((_%e156062156082%_ + (gx#stx-pair? _%tl157024157278%_)) + (let ((_%e157047157067%_ (let () (declare (not safe)) - (gx#stx-e _%tl156039156293%_)))) - (let ((_%tl156064156087%_ + (gx#stx-e _%tl157024157278%_)))) + (let ((_%tl157049157072%_ (let () (declare (not safe)) - (##cdr _%e156062156082%_))) - (_%hd156063156085%_ + (##cdr _%e157047157067%_))) + (_%hd157048157070%_ (let () (declare (not safe)) - (##car _%e156062156082%_)))) + (##car _%e157047157067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156064156087%_)) - (_%__kont170761170762%_ - _%hd156063156085%_ - _%hd156038156291%_) + (gx#stx-null? _%tl157049157072%_)) + (_%__kont171746171747%_ + _%hd157048157070%_ + _%hd157023157276%_) (let () (declare (not safe)) - (_%g156033156069%_))))) - (let () (declare (not safe)) (_%g156033156069%_)))))) + (_%g157018157054%_))))) + (let () (declare (not safe)) (_%g157018157054%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156039156293%_)) - (let ((_%e156062156082%_ + _%tl157024157278%_)) + (let ((_%e157047157067%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156039156293%_)))) - (let ((_%tl156064156087%_ + (gx#stx-e _%tl157024157278%_)))) + (let ((_%tl157049157072%_ (let () (declare (not safe)) - (##cdr _%e156062156082%_))) - (_%hd156063156085%_ + (##cdr _%e157047157067%_))) + (_%hd157048157070%_ (let () (declare (not safe)) - (##car _%e156062156082%_)))) + (##car _%e157047157067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156064156087%_)) - (_%__kont170761170762%_ - _%hd156063156085%_ - _%hd156038156291%_) - (let () (declare (not safe)) (_%g156033156069%_))))) - (let () (declare (not safe)) (_%g156033156069%_)))))) + (gx#stx-null? _%tl157049157072%_)) + (_%__kont171746171747%_ + _%hd157048157070%_ + _%hd157023157276%_) + (let () (declare (not safe)) (_%g157018157054%_))))) + (let () (declare (not safe)) (_%g157018157054%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g156033156069%_))))))))) - (if (pair? _%rest156009156017%_) - (let ((_%hd156014156409%_ + (_%g157018157054%_))))))))) + (if (pair? _%rest156994157002%_) + (let ((_%hd156999157394%_ (let () (declare (not safe)) - (##car _%rest156009156017%_))) - (_%tl156015156411%_ + (##car _%rest156994157002%_))) + (_%tl157000157396%_ (let () (declare (not safe)) - (##cdr _%rest156009156017%_)))) - (let* ((_%hd156414%_ _%hd156014156409%_) - (_%rest156416%_ _%tl156015156411%_)) - (_%K156013156406%_ - _%rest156416%_ - _%hd156414%_))) - (_%else156011156025%_)))))) - (_%lift-kw-lambda?155367%_ - (lambda (_%bind155925%_) - (let* ((_%__stx170823170824%_ _%bind155925%_) - (_%g155928155945%_ + (##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" - _%__stx170823170824%_))))) - (let ((_%__kont170825170826%_ - (lambda (_%L155981%_ _%L155982%_) + _%__stx171808171809%_))))) + (let ((_%__kont171810171811%_ + (lambda (_%L156966%_ _%L156967%_) (if (let () (declare (not safe)) - (gx#identifier? _%L155982%_)) - (gxc#kw-lambda-expr? _%L155981%_) + (gx#identifier? _%L156967%_)) + (gxc#kw-lambda-expr? _%L156966%_) '#f))) - (_%__kont170827170828%_ (lambda () '#f))) + (_%__kont171812171813%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170823170824%_)) - (let ((_%e155932155957%_ + (gx#stx-pair? _%__stx171808171809%_)) + (let ((_%e156917156942%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170823170824%_)))) - (let ((_%tl155934155962%_ + (gx#stx-e _%__stx171808171809%_)))) + (let ((_%tl156919156947%_ (let () (declare (not safe)) - (##cdr _%e155932155957%_))) - (_%hd155933155960%_ + (##cdr _%e156917156942%_))) + (_%hd156918156945%_ (let () (declare (not safe)) - (##car _%e155932155957%_)))) + (##car _%e156917156942%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155933155960%_)) - (let ((_%e155935155965%_ + (gx#stx-pair? _%hd156918156945%_)) + (let ((_%e156920156950%_ (let () (declare (not safe)) - (gx#stx-e _%hd155933155960%_)))) - (let ((_%tl155937155970%_ + (gx#stx-e _%hd156918156945%_)))) + (let ((_%tl156922156955%_ (let () (declare (not safe)) - (##cdr _%e155935155965%_))) - (_%hd155936155968%_ + (##cdr _%e156920156950%_))) + (_%hd156921156953%_ (let () (declare (not safe)) - (##car _%e155935155965%_)))) + (##car _%e156920156950%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155937155970%_)) + _%tl156922156955%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155934155962%_)) - (let ((_%e155938155973%_ + _%tl156919156947%_)) + (let ((_%e156923156958%_ (let () (declare (not safe)) (gx#stx-e - _%tl155934155962%_)))) - (let ((_%tl155940155978%_ + _%tl156919156947%_)))) + (let ((_%tl156925156963%_ (let () (declare (not safe)) - (##cdr _%e155938155973%_))) - (_%hd155939155976%_ + (##cdr _%e156923156958%_))) + (_%hd156924156961%_ (let () (declare (not safe)) - (##car _%e155938155973%_)))) + (##car _%e156923156958%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155940155978%_)) - (_%__kont170825170826%_ - _%hd155939155976%_ - _%hd155936155968%_) - (_%__kont170827170828%_)))) - (_%__kont170827170828%_)) - (_%__kont170827170828%_)))) - (_%__kont170827170828%_)))) - (_%__kont170827170828%_)))))) - (_%lift-kw-lambda-bindings155368%_ - (lambda (_%bindings155535%_) - (let _%lp155537%_ ((_%rest155539%_ _%bindings155535%_) - (_%lift1155540%_ '()) - (_%lift2155541%_ '()) - (_%bind155542%_ '())) - (let* ((_%rest155543155551%_ _%rest155539%_) - (_%else155545155559%_ + _%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 _%lift1155540%_) - (reverse _%lift2155541%_) - (reverse _%bind155542%_)))) - (_%K155547155913%_ - (lambda (_%rest155562%_ _%hd155563%_) - (let* ((_%__stx170853170854%_ _%hd155563%_) - (_%g155566155591%_ + (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" - _%__stx170853170854%_))))) - (let ((_%__kont170855170856%_ - (lambda (_%L155661%_ _%L155662%_) - (let* ((_%g155676155729%_ - (lambda (_%g155677155726%_) + _%__stx171838171839%_))))) + (let ((_%__kont171840171841%_ + (lambda (_%L156646%_ _%L156647%_) + (let* ((_%g156661156714%_ + (lambda (_%g156662156711%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155677155726%_)))) - (_%g155675155907%_ - (lambda (_%g155677155732%_) + _%g156662156711%_)))) + (_%g156660156892%_ + (lambda (_%g156662156717%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155677155732%_)) - (let ((_%e155683155734%_ + _%g156662156717%_)) + (let ((_%e156668156719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155677155732%_)))) - (let ((_%hd155684155737%_ + (gx#stx-e _%g156662156717%_)))) + (let ((_%hd156669156722%_ (let () (declare (not safe)) - (##car _%e155683155734%_))) - (_%tl155685155739%_ + (##car _%e156668156719%_))) + (_%tl156670156724%_ (let () (declare (not safe)) - (##cdr _%e155683155734%_)))) + (##cdr _%e156668156719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155685155739%_)) - (let ((_%e155686155742%_ + (gx#stx-pair? _%tl156670156724%_)) + (let ((_%e156671156727%_ (let () (declare (not safe)) - (gx#stx-e _%tl155685155739%_)))) - (let ((_%hd155687155745%_ + (gx#stx-e _%tl156670156724%_)))) + (let ((_%hd156672156730%_ (let () (declare (not safe)) - (##car _%e155686155742%_))) - (_%tl155688155747%_ + (##car _%e156671156727%_))) + (_%tl156673156732%_ (let () (declare (not safe)) - (##cdr _%e155686155742%_)))) + (##cdr _%e156671156727%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155687155745%_)) - (let ((_%e155689155750%_ + (gx#stx-pair? _%hd156672156730%_)) + (let ((_%e156674156735%_ (let () (declare (not safe)) - (gx#stx-e _%hd155687155745%_)))) - (let ((_%hd155690155753%_ + (gx#stx-e _%hd156672156730%_)))) + (let ((_%hd156675156738%_ (let () (declare (not safe)) - (##car _%e155689155750%_))) - (_%tl155691155755%_ + (##car _%e156674156735%_))) + (_%tl156676156740%_ (let () (declare (not safe)) - (##cdr _%e155689155750%_)))) + (##cdr _%e156674156735%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155690155753%_)) - (let ((_%e155692155758%_ + (gx#stx-pair? _%hd156675156738%_)) + (let ((_%e156677156743%_ (let () (declare (not safe)) (gx#stx-e - _%hd155690155753%_)))) - (let ((_%hd155693155761%_ + _%hd156675156738%_)))) + (let ((_%hd156678156746%_ (let () (declare (not safe)) - (##car _%e155692155758%_))) - (_%tl155694155763%_ + (##car _%e156677156743%_))) + (_%tl156679156748%_ (let () (declare (not safe)) - (##cdr _%e155692155758%_)))) + (##cdr _%e156677156743%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155693155761%_)) - (let ((_%e155695155766%_ + _%hd156678156746%_)) + (let ((_%e156680156751%_ (let () (declare (not safe)) (gx#stx-e - _%hd155693155761%_)))) - (let ((_%hd155696155769%_ + _%hd156678156746%_)))) + (let ((_%hd156681156754%_ (let () (declare (not safe)) - (##car _%e155695155766%_))) - (_%tl155697155771%_ + (##car _%e156680156751%_))) + (_%tl156682156756%_ (let () (declare (not safe)) - (##cdr _%e155695155766%_)))) + (##cdr _%e156680156751%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155697155771%_)) + _%tl156682156756%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155694155763%_)) - (let ((_%e155698155774%_ + (gx#stx-pair? _%tl156679156748%_)) + (let ((_%e156683156759%_ (let () (declare (not safe)) - (gx#stx-e _%tl155694155763%_)))) - (let ((_%hd155699155777%_ + (gx#stx-e _%tl156679156748%_)))) + (let ((_%hd156684156762%_ (let () (declare (not safe)) - (##car _%e155698155774%_))) - (_%tl155700155779%_ + (##car _%e156683156759%_))) + (_%tl156685156764%_ (let () (declare (not safe)) - (##cdr _%e155698155774%_)))) + (##cdr _%e156683156759%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155699155777%_)) - (let ((_%e155701155782%_ + (gx#stx-pair? _%hd156684156762%_)) + (let ((_%e156686156767%_ (let () (declare (not safe)) - (gx#stx-e _%hd155699155777%_)))) - (let ((_%hd155702155785%_ + (gx#stx-e _%hd156684156762%_)))) + (let ((_%hd156687156770%_ (let () (declare (not safe)) - (##car _%e155701155782%_))) - (_%tl155703155787%_ + (##car _%e156686156767%_))) + (_%tl156688156772%_ (let () (declare (not safe)) - (##cdr _%e155701155782%_)))) + (##cdr _%e156686156767%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155703155787%_)) - (let ((_%e155704155790%_ + (gx#stx-pair? _%tl156688156772%_)) + (let ((_%e156689156775%_ (let () (declare (not safe)) - (gx#stx-e _%tl155703155787%_)))) - (let ((_%hd155705155793%_ + (gx#stx-e _%tl156688156772%_)))) + (let ((_%hd156690156778%_ (let () (declare (not safe)) - (##car _%e155704155790%_))) - (_%tl155706155795%_ + (##car _%e156689156775%_))) + (_%tl156691156780%_ (let () (declare (not safe)) - (##cdr _%e155704155790%_)))) + (##cdr _%e156689156775%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155705155793%_)) - (let ((_%e155707155798%_ + _%hd156690156778%_)) + (let ((_%e156692156783%_ (let () (declare (not safe)) (gx#stx-e - _%hd155705155793%_)))) - (let ((_%hd155708155801%_ + _%hd156690156778%_)))) + (let ((_%hd156693156786%_ (let () (declare (not safe)) - (##car _%e155707155798%_))) - (_%tl155709155803%_ + (##car _%e156692156783%_))) + (_%tl156694156788%_ (let () (declare (not safe)) - (##cdr _%e155707155798%_)))) + (##cdr _%e156692156783%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155708155801%_)) - (let ((_%e155710155806%_ + _%hd156693156786%_)) + (let ((_%e156695156791%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd155708155801%_)))) - (let ((_%hd155711155809%_ - (let () (declare (not safe)) (##car _%e155710155806%_))) - (_%tl155712155811%_ + (gx#stx-e _%hd156693156786%_)))) + (let ((_%hd156696156794%_ + (let () (declare (not safe)) (##car _%e156695156791%_))) + (_%tl156697156796%_ (let () (declare (not safe)) - (##cdr _%e155710155806%_)))) + (##cdr _%e156695156791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155711155809%_)) - (let ((_%e155713155814%_ + (gx#stx-pair? _%hd156696156794%_)) + (let ((_%e156698156799%_ (let () (declare (not safe)) - (gx#stx-e _%hd155711155809%_)))) - (let ((_%hd155714155817%_ + (gx#stx-e _%hd156696156794%_)))) + (let ((_%hd156699156802%_ (let () (declare (not safe)) - (##car _%e155713155814%_))) - (_%tl155715155819%_ + (##car _%e156698156799%_))) + (_%tl156700156804%_ (let () (declare (not safe)) - (##cdr _%e155713155814%_)))) + (##cdr _%e156698156799%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155715155819%_)) + (gx#stx-null? _%tl156700156804%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155712155811%_)) - (let ((_%e155716155822%_ + (gx#stx-pair? _%tl156697156796%_)) + (let ((_%e156701156807%_ (let () (declare (not safe)) - (gx#stx-e _%tl155712155811%_)))) - (let ((_%hd155717155825%_ + (gx#stx-e _%tl156697156796%_)))) + (let ((_%hd156702156810%_ (let () (declare (not safe)) - (##car _%e155716155822%_))) - (_%tl155718155827%_ + (##car _%e156701156807%_))) + (_%tl156703156812%_ (let () (declare (not safe)) - (##cdr _%e155716155822%_)))) + (##cdr _%e156701156807%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155718155827%_)) + (gx#stx-null? _%tl156703156812%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155709155803%_)) + _%tl156694156788%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155706155795%_)) - (let ((_%e155719155830%_ + _%tl156691156780%_)) + (let ((_%e156704156815%_ (let () (declare (not safe)) (gx#stx-e - _%tl155706155795%_)))) - (let ((_%hd155720155833%_ + _%tl156691156780%_)))) + (let ((_%hd156705156818%_ (let () (declare (not safe)) - (##car _%e155719155830%_))) - (_%tl155721155835%_ + (##car _%e156704156815%_))) + (_%tl156706156820%_ (let () (declare (not safe)) - (##cdr _%e155719155830%_)))) + (##cdr _%e156704156815%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155721155835%_)) + _%tl156706156820%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl155700155779%_)) + (gx#stx-null? _%tl156685156764%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155691155755%_)) + (gx#stx-null? _%tl156676156740%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155688155747%_)) - (let ((_%e155722155838%_ + (gx#stx-pair? _%tl156673156732%_)) + (let ((_%e156707156823%_ (let () (declare (not safe)) - (gx#stx-e _%tl155688155747%_)))) - (let ((_%hd155723155841%_ + (gx#stx-e _%tl156673156732%_)))) + (let ((_%hd156708156826%_ (let () (declare (not safe)) - (##car _%e155722155838%_))) - (_%tl155724155843%_ + (##car _%e156707156823%_))) + (_%tl156709156828%_ (let () (declare (not safe)) - (##cdr _%e155722155838%_)))) + (##cdr _%e156707156823%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155724155843%_)) - ((lambda (_%L155846%_ - _%L155847%_ - _%L155848%_ - _%L155849%_ - _%L155850%_) - (let* ((_%get-kws-id155890%_ - (let ((__tmp171449 + (gx#stx-null? _%tl156709156828%_)) + ((lambda (_%L156831%_ + _%L156832%_ + _%L156833%_ + _%L156834%_ + _%L156835%_) + (let* ((_%get-kws-id156875%_ + (let ((__tmp172434 (let () (declare (not safe)) (gx#stx-e - _%L155662%_))) - (__tmp171448 + _%L156647%_))) + (__tmp172433 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171449 - __tmp171448))) - (_%get-kws-id155892%_ - (let ((__tmp171450 + __tmp172434 + __tmp172433))) + (_%get-kws-id156877%_ + (let ((__tmp172435 (let () (declare (not safe)) (gx#stx-source - _%stx155363%_)))) + _%stx156348%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155890%_ - __tmp171450))) - (_%main-id155894%_ - (let ((__tmp171452 + _%get-kws-id156875%_ + __tmp172435))) + (_%main-id156879%_ + (let ((__tmp172437 (let () (declare (not safe)) (gx#stx-e - _%L155662%_))) - (__tmp171451 + _%L156647%_))) + (__tmp172436 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171452 - __tmp171451))) - (_%main-id155896%_ - (let ((__tmp171453 + __tmp172437 + __tmp172436))) + (_%main-id156881%_ + (let ((__tmp172438 (let () (declare (not safe)) (gx#stx-source - _%stx155363%_)))) + _%stx156348%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155894%_ - __tmp171453))) - (_%_155898%_ + _%main-id156879%_ + __tmp172438))) + (_%_156883%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id155892%_))) - (_%_155900%_ + _%get-kws-id156877%_))) + (_%_156885%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id155896%_))) - (_%new-kw-dispatch155902%_ + _%main-id156881%_))) + (_%new-kw-dispatch156887%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155850%_ - _%get-kws-id155892%_ - _%L155846%_))) - (_%new-get-kws155904%_ + _%L156835%_ + _%get-kws-id156877%_ + _%L156831%_))) + (_%new-get-kws156889%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155849%_ - _%main-id155896%_ - _%L155847%_)))) - (let ((__tmp171456 + _%L156834%_ + _%main-id156881%_ + _%L156832%_)))) + (let ((__tmp172441 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155662%_))) - (__tmp171455 + _%L156647%_))) + (__tmp172440 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id155892%_))) - (__tmp171454 + _%get-kws-id156877%_))) + (__tmp172439 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id155896%_)))) + _%main-id156881%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171456 + __tmp172441 '" => " - __tmp171455 + __tmp172440 '" => " - __tmp171454)) - (_%lp155537%_ - _%rest155562%_ - (cons (_%bind-e__168098168099%_ - _%main-id155896%_ - _%L155848%_ + __tmp172439)) + (_%lp156522%_ + _%rest156547%_ + (cons (_%bind-e__169083169084%_ + _%main-id156881%_ + _%L156833%_ '#f) - _%lift1155540%_) - (cons (_%bind-e__168098168099%_ - _%get-kws-id155892%_ - _%new-get-kws155904%_ + _%lift1156525%_) + (cons (_%bind-e__169083169084%_ + _%get-kws-id156877%_ + _%new-get-kws156889%_ '#f) - _%lift2155541%_) - (cons (_%bind-e__168098168099%_ - _%L155662%_ - _%new-kw-dispatch155902%_ + _%lift2156526%_) + (cons (_%bind-e__169083169084%_ + _%L156647%_ + _%new-kw-dispatch156887%_ '#f) - _%bind155542%_)))) - _%hd155723155841%_ - _%hd155720155833%_ - _%hd155717155825%_ - _%hd155714155817%_ - _%hd155696155769%_) - (_%g155676155729%_ _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)) - (_%g155676155729%_ _%g155677155732%_)) - (_%g155676155729%_ _%g155677155732%_)) - (_%g155676155729%_ _%g155677155732%_)))) + _%bind156527%_)))) + _%hd156708156826%_ + _%hd156705156818%_ + _%hd156702156810%_ + _%hd156699156802%_ + _%hd156681156754%_) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155676155729%_ - _%g155677155732%_)) - (_%g155676155729%_ - _%g155677155732%_)) - (_%g155676155729%_ - _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)) - (_%g155676155729%_ _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)))) + (_%g156661156714%_ + _%g156662156717%_)) + (_%g156661156714%_ + _%g156662156717%_)) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155676155729%_ - _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)) - (_%g155676155729%_ _%g155677155732%_)))) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155676155729%_ - _%g155677155732%_)))) - (_%g155676155729%_ - _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_)))) - (_%g155676155729%_ _%g155677155732%_))))) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155675155907%_ - _%L155661%_)))) - (_%__kont170857170858%_ - (lambda (_%L155612%_ _%L155613%_) - (_%lp155537%_ - _%rest155562%_ - _%lift1155540%_ - _%lift2155541%_ - (cons (cons _%L155613%_ - (cons _%L155612%_ + (_%g156660156892%_ + _%L156646%_)))) + (_%__kont171842171843%_ + (lambda (_%L156597%_ _%L156598%_) + (_%lp156522%_ + _%rest156547%_ + _%lift1156525%_ + _%lift2156526%_ + (cons (cons _%L156598%_ + (cons _%L156597%_ '())) - _%bind155542%_))))) - (let ((_%__match170880170881%_ - (lambda (_%e155570155637%_ - _%hd155571155640%_ - _%tl155572155642%_ - _%e155573155645%_ - _%hd155574155648%_ - _%tl155575155650%_ - _%e155576155653%_ - _%hd155577155656%_ - _%tl155578155658%_) - (let ((_%L155661%_ - _%hd155577155656%_) - (_%L155662%_ - _%hd155574155648%_)) + _%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? - _%L155662%_)) + _%L156647%_)) (gxc#kw-lambda-expr? - _%L155661%_)) - (_%__kont170855170856%_ - _%L155661%_ - _%L155662%_) - (_%__kont170857170858%_ - _%hd155577155656%_ - _%hd155571155640%_)))))) + _%L156646%_)) + (_%__kont171840171841%_ + _%L156646%_ + _%L156647%_) + (_%__kont171842171843%_ + _%hd156562156641%_ + _%hd156556156625%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170853170854%_)) - (let ((_%e155570155637%_ + _%__stx171838171839%_)) + (let ((_%e156555156622%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170853170854%_)))) - (let ((_%tl155572155642%_ + _%__stx171838171839%_)))) + (let ((_%tl156557156627%_ (let () (declare (not safe)) - (##cdr _%e155570155637%_))) - (_%hd155571155640%_ + (##cdr _%e156555156622%_))) + (_%hd156556156625%_ (let () (declare (not safe)) - (##car _%e155570155637%_)))) + (##car _%e156555156622%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155571155640%_)) - (let ((_%e155573155645%_ + _%hd156556156625%_)) + (let ((_%e156558156630%_ (let () (declare (not safe)) (gx#stx-e - _%hd155571155640%_)))) - (let ((_%tl155575155650%_ + _%hd156556156625%_)))) + (let ((_%tl156560156635%_ (let () (declare (not safe)) - (##cdr _%e155573155645%_))) - (_%hd155574155648%_ + (##cdr _%e156558156630%_))) + (_%hd156559156633%_ (let () (declare (not safe)) - (##car _%e155573155645%_)))) + (##car _%e156558156630%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155575155650%_)) + _%tl156560156635%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155572155642%_)) - (let ((_%e155576155653%_ + (gx#stx-pair? _%tl156557156627%_)) + (let ((_%e156561156638%_ (let () (declare (not safe)) - (gx#stx-e _%tl155572155642%_)))) - (let ((_%tl155578155658%_ + (gx#stx-e _%tl156557156627%_)))) + (let ((_%tl156563156643%_ (let () (declare (not safe)) - (##cdr _%e155576155653%_))) - (_%hd155577155656%_ + (##cdr _%e156561156638%_))) + (_%hd156562156641%_ (let () (declare (not safe)) - (##car _%e155576155653%_)))) + (##car _%e156561156638%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155578155658%_)) - (_%__match170880170881%_ - _%e155570155637%_ - _%hd155571155640%_ - _%tl155572155642%_ - _%e155573155645%_ - _%hd155574155648%_ - _%tl155575155650%_ - _%e155576155653%_ - _%hd155577155656%_ - _%tl155578155658%_) + (gx#stx-null? _%tl156563156643%_)) + (_%__match171865171866%_ + _%e156555156622%_ + _%hd156556156625%_ + _%tl156557156627%_ + _%e156558156630%_ + _%hd156559156633%_ + _%tl156560156635%_ + _%e156561156638%_ + _%hd156562156641%_ + _%tl156563156643%_) (let () (declare (not safe)) - (_%g155566155591%_))))) - (let () (declare (not safe)) (_%g155566155591%_))) + (_%g156551156576%_))))) + (let () (declare (not safe)) (_%g156551156576%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155572155642%_)) - (let ((_%e155584155604%_ + (gx#stx-pair? _%tl156557156627%_)) + (let ((_%e156569156589%_ (let () (declare (not safe)) - (gx#stx-e _%tl155572155642%_)))) - (let ((_%tl155586155609%_ + (gx#stx-e _%tl156557156627%_)))) + (let ((_%tl156571156594%_ (let () (declare (not safe)) - (##cdr _%e155584155604%_))) - (_%hd155585155607%_ + (##cdr _%e156569156589%_))) + (_%hd156570156592%_ (let () (declare (not safe)) - (##car _%e155584155604%_)))) + (##car _%e156569156589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155586155609%_)) - (_%__kont170857170858%_ - _%hd155585155607%_ - _%hd155571155640%_) + (gx#stx-null? _%tl156571156594%_)) + (_%__kont171842171843%_ + _%hd156570156592%_ + _%hd156556156625%_) (let () (declare (not safe)) - (_%g155566155591%_))))) - (let () (declare (not safe)) (_%g155566155591%_)))))) + (_%g156551156576%_))))) + (let () (declare (not safe)) (_%g156551156576%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155572155642%_)) - (let ((_%e155584155604%_ + _%tl156557156627%_)) + (let ((_%e156569156589%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155572155642%_)))) - (let ((_%tl155586155609%_ + (gx#stx-e _%tl156557156627%_)))) + (let ((_%tl156571156594%_ (let () (declare (not safe)) - (##cdr _%e155584155604%_))) - (_%hd155585155607%_ + (##cdr _%e156569156589%_))) + (_%hd156570156592%_ (let () (declare (not safe)) - (##car _%e155584155604%_)))) + (##car _%e156569156589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155586155609%_)) - (_%__kont170857170858%_ - _%hd155585155607%_ - _%hd155571155640%_) - (let () (declare (not safe)) (_%g155566155591%_))))) - (let () (declare (not safe)) (_%g155566155591%_)))))) + (gx#stx-null? _%tl156571156594%_)) + (_%__kont171842171843%_ + _%hd156570156592%_ + _%hd156556156625%_) + (let () (declare (not safe)) (_%g156551156576%_))))) + (let () (declare (not safe)) (_%g156551156576%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155566155591%_))))))))) - (if (pair? _%rest155543155551%_) - (let ((_%hd155548155916%_ + (_%g156551156576%_))))))))) + (if (pair? _%rest156528156536%_) + (let ((_%hd156533156901%_ (let () (declare (not safe)) - (##car _%rest155543155551%_))) - (_%tl155549155918%_ + (##car _%rest156528156536%_))) + (_%tl156534156903%_ (let () (declare (not safe)) - (##cdr _%rest155543155551%_)))) - (let* ((_%hd155921%_ _%hd155548155916%_) - (_%rest155923%_ _%tl155549155918%_)) - (_%K155547155913%_ - _%rest155923%_ - _%hd155921%_))) - (_%else155545155559%_))))))) - (let* ((_%__stx170897170898%_ _%stx155363%_) - (_%g155371155397%_ + (##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" - _%__stx170897170898%_))))) - (let ((_%__kont170899170900%_ - (lambda (_%L155457%_ _%L155458%_) - (let ((__tmp171458 + _%__stx171882171883%_))))) + (let ((_%__kont171884171885%_ + (lambda (_%L156442%_ _%L156443%_) + (let ((__tmp172443 (lambda () - (if (let ((__tmp171459 - (let ((__tmp171460 - (lambda (_%g155486155489%_ - _%g155487155491%_) - (cons _%g155486155489%_ - _%g155487155491%_)))) + (if (let ((__tmp172444 + (let ((__tmp172445 + (lambda (_%g156471156474%_ + _%g156472156476%_) + (cons _%g156471156474%_ + _%g156472156476%_)))) (declare (not safe)) (__foldr1 - __tmp171460 + __tmp172445 '() - _%L155458%_)))) + _%L156443%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?155367%_ - __tmp171459)) - (let ((_g171461_ - (_%lift-kw-lambda-bindings155368%_ - (let ((__tmp171463 - (lambda (_%g155493155496%_ - _%g155494155498%_) - (cons _%g155493155496%_ - _%g155494155498%_)))) + _%lift-kw-lambda?156352%_ + __tmp172444)) + (let ((_g172446_ + (_%lift-kw-lambda-bindings156353%_ + (let ((__tmp172448 + (lambda (_%g156478156481%_ + _%g156479156483%_) + (cons _%g156478156481%_ + _%g156479156483%_)))) (declare (not safe)) (__foldr1 - __tmp171463 + __tmp172448 '() - _%L155458%_))))) + _%L156443%_))))) (begin - (let ((_g171462_ + (let ((_g172447_ (let () (declare (not safe)) - (if (##values? _g171461_) - (##values-length _g171461_) + (if (##values? _g172446_) + (##values-length _g172446_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171462_ 3))) + (##fx= _g172447_ 3))) (error "Context expects 3 values" - _g171462_))) - (let ((_%lift1155501%_ + _g172447_))) + (let ((_%lift1156486%_ (let () (declare (not safe)) - (##values-ref _g171461_ 0))) - (_%lift2155502%_ + (##values-ref _g172446_ 0))) + (_%lift2156487%_ (let () (declare (not safe)) - (##values-ref _g171461_ 1))) - (_%hd155503%_ + (##values-ref _g172446_ 1))) + (_%hd156488%_ (let () (declare (not safe)) - (##values-ref _g171461_ 2)))) - (let* ((_%expr155505%_ - (let ((__tmp171464 + (##values-ref _g172446_ 2)))) + (let* ((_%expr156490%_ + (let ((__tmp172449 (cons '%#let-values - (cons _%hd155503%_ + (cons _%hd156488%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L155457%_ '()))))) + (cons _%L156442%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171464 - _%stx155363%_))) - (_%expr155507%_ - (let ((__tmp171465 + __tmp172449 + _%stx156348%_))) + (_%expr156492%_ + (let ((__tmp172450 (cons '%#let-values - (cons _%lift2155502%_ + (cons _%lift2156487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155505%_ '()))))) + (cons _%expr156490%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171465 - _%stx155363%_))) - (_%expr155509%_ - (let ((__tmp171466 + __tmp172450 + _%stx156348%_))) + (_%expr156494%_ + (let ((__tmp172451 (cons '%#let-values - (cons _%lift1155501%_ + (cons _%lift1156486%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155507%_ '()))))) + (cons _%expr156492%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171466 - _%stx155363%_)))) + __tmp172451 + _%stx156348%_)))) (gxc#lift-top-lambda-let-values% - _%self155362%_ - _%expr155509%_))))) - (let ((_g171467_ - (_%compile-bindings155366%_ - (let ((__tmp171469 - (lambda (_%g155511155514%_ - _%g155512155516%_) - (cons _%g155511155514%_ - _%g155512155516%_)))) + _%self156347%_ + _%expr156494%_))))) + (let ((_g172452_ + (_%compile-bindings156351%_ + (let ((__tmp172454 + (lambda (_%g156496156499%_ + _%g156497156501%_) + (cons _%g156496156499%_ + _%g156497156501%_)))) (declare (not safe)) (__foldr1 - __tmp171469 + __tmp172454 '() - _%L155458%_))))) + _%L156443%_))))) (begin - (let ((_g171468_ + (let ((_g172453_ (let () (declare (not safe)) - (if (##values? _g171467_) - (##values-length _g171467_) + (if (##values? _g172452_) + (##values-length _g172452_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171468_ 3))) + (##fx= _g172453_ 3))) (error "Context expects 3 values" - _g171468_))) - (let ((_%lift1155519%_ + _g172453_))) + (let ((_%lift1156504%_ (let () (declare (not safe)) - (##values-ref _g171467_ 0))) - (_%lift2155520%_ + (##values-ref _g172452_ 0))) + (_%lift2156505%_ (let () (declare (not safe)) - (##values-ref _g171467_ 1))) - (_%hd155521%_ + (##values-ref _g172452_ 1))) + (_%hd156506%_ (let () (declare (not safe)) - (##values-ref _g171467_ 2)))) - (let* ((_%body155523%_ + (##values-ref _g172452_ 2)))) + (let* ((_%body156508%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155362%_ - _%L155457%_))) - (_%expr155525%_ - (let ((__tmp171470 + _%self156347%_ + _%L156442%_))) + (_%expr156510%_ + (let ((__tmp172455 (cons '%#let-values - (cons _%hd155521%_ + (cons _%hd156506%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body155523%_ '()))))) + (cons _%body156508%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171470 - _%stx155363%_))) - (_%expr155527%_ - (if (null? _%lift2155520%_) - _%expr155525%_ - (let ((__tmp171471 + __tmp172455 + _%stx156348%_))) + (_%expr156512%_ + (if (null? _%lift2156505%_) + _%expr156510%_ + (let ((__tmp172456 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2155520%_ (cons _%expr155525%_ '()))))) + (cons _%lift2156505%_ (cons _%expr156510%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171471 _%stx155363%_)))) + (gxc#xform-wrap-source __tmp172456 _%stx156348%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr155529%_ - (if (null? _%lift1155519%_) - _%expr155527%_ - (let ((__tmp171472 + (_%expr156514%_ + (if (null? _%lift1156504%_) + _%expr156512%_ + (let ((__tmp172457 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1155519%_ (cons _%expr155527%_ '()))))) + (cons _%lift1156504%_ (cons _%expr156512%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171472 _%stx155363%_))))) + (gxc#xform-wrap-source __tmp172457 _%stx156348%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr155529%_))))))) - (__tmp171457 - (let ((__obj171150 + _%expr156514%_))))))) + (__tmp172442 + (let ((__obj172135 (let () (declare (not safe)) (##structure @@ -22999,278 +22999,278 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj171150)) - __obj171150))) + (gx#local-context:::init!__0 __obj172135)) + __obj172135))) (declare (not safe)) (__call-with-parameters - __tmp171458 + __tmp172443 gx#current-expander-context - __tmp171457)))) - (_%__kont170903170904%_ + __tmp172442)))) + (_%__kont171888171889%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self155362%_ _%stx155363%_))))) - (let ((_%__match170924170925%_ - (lambda (_%e155375155409%_ - _%hd155376155412%_ - _%tl155377155414%_ - _%e155378155417%_ - _%hd155379155420%_ - _%tl155380155422%_ - _%__splice170901170902%_ - _%target155381155425%_ - _%tl155383155427%_) - (letrec ((_%loop155384155430%_ - (lambda (_%hd155382155433%_ - _%bind155388155435%_) + (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? _%hd155382155433%_)) - (let ((_%e155385155438%_ + (gx#stx-pair? _%hd156367156418%_)) + (let ((_%e156370156423%_ (let () (declare (not safe)) (gx#stx-e - _%hd155382155433%_)))) - (let ((_%lp-tl155387155443%_ + _%hd156367156418%_)))) + (let ((_%lp-tl156372156428%_ (let () (declare (not safe)) - (##cdr _%e155385155438%_))) - (_%lp-hd155386155441%_ + (##cdr _%e156370156423%_))) + (_%lp-hd156371156426%_ (let () (declare (not safe)) - (##car _%e155385155438%_)))) - (_%loop155384155430%_ - _%lp-tl155387155443%_ - (cons _%lp-hd155386155441%_ - _%bind155388155435%_)))) - (let ((_%bind155389155446%_ - (reverse _%bind155388155435%_))) + (##car _%e156370156423%_)))) + (_%loop156369156415%_ + _%lp-tl156372156428%_ + (cons _%lp-hd156371156426%_ + _%bind156373156420%_)))) + (let ((_%bind156374156431%_ + (reverse _%bind156373156420%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155380155422%_)) - (let ((_%e155390155449%_ + _%tl156365156407%_)) + (let ((_%e156375156434%_ (let () (declare (not safe)) (gx#stx-e - _%tl155380155422%_)))) - (let ((_%tl155392155454%_ + _%tl156365156407%_)))) + (let ((_%tl156377156439%_ (let () (declare (not safe)) - (##cdr _%e155390155449%_))) - (_%hd155391155452%_ + (##cdr _%e156375156434%_))) + (_%hd156376156437%_ (let () (declare (not safe)) - (##car _%e155390155449%_)))) + (##car _%e156375156434%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155392155454%_)) - (let ((_%L155457%_ - _%hd155391155452%_) - (_%L155458%_ - _%bind155389155446%_)) - (if (let ((__tmp171473 + _%tl156377156439%_)) + (let ((_%L156442%_ + _%hd156376156437%_) + (_%L156443%_ + _%bind156374156431%_)) + (if (let ((__tmp172458 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171474 - (lambda (_%g155478155481%_ _%g155479155483%_) - (cons _%g155478155481%_ - _%g155479155483%_)))) + (let ((__tmp172459 + (lambda (_%g156463156466%_ _%g156464156468%_) + (cons _%g156463156466%_ + _%g156464156468%_)))) (declare (not safe)) - (__foldr1 __tmp171474 '() _%L155458%_)))) + (__foldr1 __tmp172459 '() _%L156443%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171473)) - (_%__kont170899170900%_ _%L155457%_ _%L155458%_) - (_%__kont170903170904%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp172458)) + (_%__kont171884171885%_ _%L156442%_ _%L156443%_) + (_%__kont171888171889%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170903170904%_)))) - (_%__kont170903170904%_))))))) - (_%loop155384155430%_ _%target155381155425%_ '()))))) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_))))))) + (_%loop156369156415%_ _%target156366156410%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170897170898%_)) - (let ((_%e155375155409%_ + (gx#stx-pair? _%__stx171882171883%_)) + (let ((_%e156360156394%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170897170898%_)))) - (let ((_%tl155377155414%_ + (gx#stx-e _%__stx171882171883%_)))) + (let ((_%tl156362156399%_ (let () (declare (not safe)) - (##cdr _%e155375155409%_))) - (_%hd155376155412%_ + (##cdr _%e156360156394%_))) + (_%hd156361156397%_ (let () (declare (not safe)) - (##car _%e155375155409%_)))) + (##car _%e156360156394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155377155414%_)) - (let ((_%e155378155417%_ + (gx#stx-pair? _%tl156362156399%_)) + (let ((_%e156363156402%_ (let () (declare (not safe)) - (gx#stx-e _%tl155377155414%_)))) - (let ((_%tl155380155422%_ + (gx#stx-e _%tl156362156399%_)))) + (let ((_%tl156365156407%_ (let () (declare (not safe)) - (##cdr _%e155378155417%_))) - (_%hd155379155420%_ + (##cdr _%e156363156402%_))) + (_%hd156364156405%_ (let () (declare (not safe)) - (##car _%e155378155417%_)))) + (##car _%e156363156402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd155379155420%_)) - (let ((_%__splice170901170902%_ + (gx#stx-pair/null? _%hd156364156405%_)) + (let ((_%__splice171886171887%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd155379155420%_ + _%hd156364156405%_ '0)))) - (let ((_%tl155383155427%_ + (let ((_%tl156368156412%_ (let () (declare (not safe)) (##vector-ref - _%__splice170901170902%_ + _%__splice171886171887%_ '1))) - (_%target155381155425%_ + (_%target156366156410%_ (let () (declare (not safe)) (##vector-ref - _%__splice170901170902%_ + _%__splice171886171887%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155383155427%_)) - (_%__match170924170925%_ - _%e155375155409%_ - _%hd155376155412%_ - _%tl155377155414%_ - _%e155378155417%_ - _%hd155379155420%_ - _%tl155380155422%_ - _%__splice170901170902%_ - _%target155381155425%_ - _%tl155383155427%_) - (_%__kont170903170904%_)))) - (_%__kont170903170904%_)))) - (_%__kont170903170904%_)))) - (_%__kont170903170904%_)))))))) + _%tl156368156412%_)) + (_%__match171909171910%_ + _%e156360156394%_ + _%hd156361156397%_ + _%tl156362156399%_ + _%e156363156402%_ + _%hd156364156405%_ + _%tl156365156407%_ + _%__splice171886171887%_ + _%target156366156410%_ + _%tl156368156412%_) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self154501%_ _%stx154502%_) - (letrec* ((_%bind-e__168103168104%_ - (lambda (_%id155346%_ _%expr155347%_ _%compile?155348%_) - (cons (cons _%id155346%_ '()) - (cons (if _%compile?155348%_ + (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 - _%self154501%_ - _%expr155347%_)) - _%expr155347%_) + _%self155486%_ + _%expr156332%_)) + _%expr156332%_) '())))) - (_%bind-e__0__168105168106%_ - (lambda (_%id155353%_ _%expr155354%_) - (let ((_%compile?155356%_ '#t)) - (_%bind-e__168103168104%_ - _%id155353%_ - _%expr155354%_ - _%compile?155356%_)))) - (_%bind-e154504%_ - (lambda _g171476_ - (let ((_g171475_ + (_%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 _g171476_)))) - (cond ((let () (declare (not safe)) (##fx= _g171475_ 2)) - (apply _%bind-e__0__168105168106%_ _g171476_)) - ((let () (declare (not safe)) (##fx= _g171475_ 3)) - (apply _%bind-e__168103168104%_ _g171476_)) + (##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 - _g171476_)))))) - (_%compile-bindings154505%_ - (lambda (_%rest154640%_) - (let _%lp154642%_ ((_%rest154644%_ _%rest154640%_) - (_%bind154645%_ '())) - (let* ((_%rest154646154654%_ _%rest154644%_) - (_%else154648154662%_ - (lambda () (reverse _%bind154645%_))) - (_%K154650155333%_ - (lambda (_%rest154665%_ _%hd154666%_) - (let* ((_%__stx170947170948%_ _%hd154666%_) - (_%g154671154718%_ + _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" - _%__stx170947170948%_))))) - (let ((_%__kont170949170950%_ - (lambda (_%L155239%_ _%L155240%_) - (let* ((_%__stx170927170928%_ - _%L155239%_) - (_%g155255155269%_ + _%__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" - _%__stx170927170928%_))))) - (let ((_%__kont170929170930%_ - (lambda (_%L155318%_) - (_%lp154642%_ - _%rest154665%_ - (cons (_%bind-e__168103168104%_ - _%L155240%_ - _%L155239%_ + _%__stx171912171913%_))))) + (let ((_%__kont171914171915%_ + (lambda (_%L156303%_) + (_%lp155627%_ + _%rest155650%_ + (cons (_%bind-e__169088169089%_ + _%L156225%_ + _%L156224%_ '#f) - _%bind154645%_)))) - (_%__kont170931170932%_ - (lambda (_%L155282%_) - (let ((_g171477_ + _%bind155630%_)))) + (_%__kont171916171917%_ + (lambda (_%L156267%_) + (let ((_g172462_ (gxc#lift-case-lambda-clauses__% - _%stx154502%_ - _%L155240%_ - _%L155282%_ + _%stx155487%_ + _%L156225%_ + _%L156267%_ '#t))) (begin - (let ((_g171478_ + (let ((_g172463_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171477_) - (##values-length _g171477_) + (if (##values? _g172462_) + (##values-length _g172462_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171478_ 3))) - (error "Context expects 3 values" _g171478_))) - (let ((_%ids155292%_ + (##fx= _g172463_ 3))) + (error "Context expects 3 values" _g172463_))) + (let ((_%ids156277%_ (let () (declare (not safe)) - (##values-ref _g171477_ 0))) - (_%impls155293%_ + (##values-ref _g172462_ 0))) + (_%impls156278%_ (let () (declare (not safe)) - (##values-ref _g171477_ 1))) - (_%clauses155294%_ + (##values-ref _g172462_ 1))) + (_%clauses156279%_ (let () (declare (not safe)) - (##values-ref _g171477_ 2)))) - (let* ((_%_155296%_ - (for-each gx#core-bind-runtime! _%ids155292%_)) - (_%xbind155298%_ - (map _%bind-e154504%_ - _%ids155292%_ - _%impls155293%_)) - (_%expr*155300%_ - (let ((__tmp171480 - (cons '%#case-lambda _%clauses155294%_)) - (__tmp171479 + (##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 - __tmp171480 - __tmp171479))) - (_%bind*155302%_ - (_%bind-e__168103168104%_ - _%L155240%_ - _%expr*155300%_ + __tmp172465 + __tmp172464))) + (_%bind*156287%_ + (_%bind-e__169088169089%_ + _%L156225%_ + _%expr*156285%_ '#f))) - (let ((__tmp171482 + (let ((__tmp172467 (let () (declare (not safe)) - (gxc#identifier-symbol _%L155240%_))) - (__tmp171481 - (map gxc#identifier-symbol _%ids155292%_))) + (gxc#identifier-symbol _%L156225%_))) + (__tmp172466 + (map gxc#identifier-symbol _%ids156277%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171482 + __tmp172467 '" => " - __tmp171481)) - (_%lp154642%_ - _%rest154665%_ - (cons _%bind*155302%_ + __tmp172466)) + (_%lp155627%_ + _%rest155650%_ + (cons _%bind*156287%_ (let () (declare (not safe)) (__foldl1 cons - _%bind154645%_ - _%xbind155298%_))))))))))) + _%bind155630%_ + _%xbind156283%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170938170939%_ - (lambda (_%e155258155310%_ - _%hd155259155313%_ - _%tl155260155315%_) - (let ((_%L155318%_ - _%tl155260155315%_)) + (let ((_%__match171923171924%_ + (lambda (_%e156243156295%_ + _%hd156244156298%_ + _%tl156245156300%_) + (let ((_%L156303%_ + _%tl156245156300%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L155318%_)) - (_%__kont170929170930%_ _%L155318%_) - (_%__kont170931170932%_ _%tl155260155315%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L156303%_)) + (_%__kont171914171915%_ _%L156303%_) + (_%__kont171916171917%_ _%tl156245156300%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170927170928%_)) - (let ((_%e155258155310%_ + _%__stx171912171913%_)) + (let ((_%e156243156295%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170927170928%_)))) - (let ((_%tl155260155315%_ - (let () (declare (not safe)) (##cdr _%e155258155310%_))) - (_%hd155259155313%_ + (gx#stx-e _%__stx171912171913%_)))) + (let ((_%tl156245156300%_ + (let () (declare (not safe)) (##cdr _%e156243156295%_))) + (_%hd156244156298%_ (let () (declare (not safe)) - (##car _%e155258155310%_)))) - (_%__match170938170939%_ - _%e155258155310%_ - _%hd155259155313%_ - _%tl155260155315%_))) - (let () (declare (not safe)) (_%g155255155269%_)))))))) + (##car _%e156243156295%_)))) + (_%__match171923171924%_ + _%e156243156295%_ + _%hd156244156298%_ + _%tl156245156300%_))) + (let () (declare (not safe)) (_%g156240156254%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170951170952%_ - (lambda (_%L155066%_ _%L155067%_) - (let* ((_%g155081155111%_ - (lambda (_%g155082155108%_) + (_%__kont171936171937%_ + (lambda (_%L156051%_ _%L156052%_) + (let* ((_%g156066156096%_ + (lambda (_%g156067156093%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155082155108%_)))) - (_%g155080155207%_ - (lambda (_%g155082155114%_) + _%g156067156093%_)))) + (_%g156065156192%_ + (lambda (_%g156067156099%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155082155114%_)) - (let ((_%e155086155116%_ + _%g156067156099%_)) + (let ((_%e156071156101%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155082155114%_)))) - (let ((_%hd155087155119%_ + (gx#stx-e _%g156067156099%_)))) + (let ((_%hd156072156104%_ (let () (declare (not safe)) - (##car _%e155086155116%_))) - (_%tl155088155121%_ + (##car _%e156071156101%_))) + (_%tl156073156106%_ (let () (declare (not safe)) - (##cdr _%e155086155116%_)))) + (##cdr _%e156071156101%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155088155121%_)) - (let ((_%e155089155124%_ + (gx#stx-pair? _%tl156073156106%_)) + (let ((_%e156074156109%_ (let () (declare (not safe)) - (gx#stx-e _%tl155088155121%_)))) - (let ((_%hd155090155127%_ + (gx#stx-e _%tl156073156106%_)))) + (let ((_%hd156075156112%_ (let () (declare (not safe)) - (##car _%e155089155124%_))) - (_%tl155091155129%_ + (##car _%e156074156109%_))) + (_%tl156076156114%_ (let () (declare (not safe)) - (##cdr _%e155089155124%_)))) + (##cdr _%e156074156109%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155090155127%_)) - (let ((_%e155092155132%_ + (gx#stx-pair? _%hd156075156112%_)) + (let ((_%e156077156117%_ (let () (declare (not safe)) - (gx#stx-e _%hd155090155127%_)))) - (let ((_%hd155093155135%_ + (gx#stx-e _%hd156075156112%_)))) + (let ((_%hd156078156120%_ (let () (declare (not safe)) - (##car _%e155092155132%_))) - (_%tl155094155137%_ + (##car _%e156077156117%_))) + (_%tl156079156122%_ (let () (declare (not safe)) - (##cdr _%e155092155132%_)))) + (##cdr _%e156077156117%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155093155135%_)) - (let ((_%e155095155140%_ + (gx#stx-pair? _%hd156078156120%_)) + (let ((_%e156080156125%_ (let () (declare (not safe)) (gx#stx-e - _%hd155093155135%_)))) - (let ((_%hd155096155143%_ + _%hd156078156120%_)))) + (let ((_%hd156081156128%_ (let () (declare (not safe)) - (##car _%e155095155140%_))) - (_%tl155097155145%_ + (##car _%e156080156125%_))) + (_%tl156082156130%_ (let () (declare (not safe)) - (##cdr _%e155095155140%_)))) + (##cdr _%e156080156125%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155096155143%_)) - (let ((_%e155098155148%_ + _%hd156081156128%_)) + (let ((_%e156083156133%_ (let () (declare (not safe)) (gx#stx-e - _%hd155096155143%_)))) - (let ((_%hd155099155151%_ + _%hd156081156128%_)))) + (let ((_%hd156084156136%_ (let () (declare (not safe)) - (##car _%e155098155148%_))) - (_%tl155100155153%_ + (##car _%e156083156133%_))) + (_%tl156085156138%_ (let () (declare (not safe)) - (##cdr _%e155098155148%_)))) + (##cdr _%e156083156133%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155100155153%_)) + _%tl156085156138%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155097155145%_)) - (let ((_%e155101155156%_ + (gx#stx-pair? _%tl156082156130%_)) + (let ((_%e156086156141%_ (let () (declare (not safe)) - (gx#stx-e _%tl155097155145%_)))) - (let ((_%hd155102155159%_ + (gx#stx-e _%tl156082156130%_)))) + (let ((_%hd156087156144%_ (let () (declare (not safe)) - (##car _%e155101155156%_))) - (_%tl155103155161%_ + (##car _%e156086156141%_))) + (_%tl156088156146%_ (let () (declare (not safe)) - (##cdr _%e155101155156%_)))) + (##cdr _%e156086156141%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155103155161%_)) + (gx#stx-null? _%tl156088156146%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155094155137%_)) + (gx#stx-null? _%tl156079156122%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155091155129%_)) - (let ((_%e155104155164%_ + (gx#stx-pair? _%tl156076156114%_)) + (let ((_%e156089156149%_ (let () (declare (not safe)) - (gx#stx-e _%tl155091155129%_)))) - (let ((_%hd155105155167%_ + (gx#stx-e _%tl156076156114%_)))) + (let ((_%hd156090156152%_ (let () (declare (not safe)) - (##car _%e155104155164%_))) - (_%tl155106155169%_ + (##car _%e156089156149%_))) + (_%tl156091156154%_ (let () (declare (not safe)) - (##cdr _%e155104155164%_)))) + (##cdr _%e156089156149%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155106155169%_)) - ((lambda (_%L155172%_ - _%L155173%_ - _%L155174%_) - (let* ((_%lambda-id155198%_ - (let ((__tmp171484 + _%tl156091156154%_)) + ((lambda (_%L156157%_ + _%L156158%_ + _%L156159%_) + (let* ((_%lambda-id156183%_ + (let ((__tmp172469 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L155067%_))) - (__tmp171483 + (gx#stx-e _%L156052%_))) + (__tmp172468 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171484 __tmp171483))) - (_%lambda-id155200%_ - (let ((__tmp171485 + (make-symbol__1 __tmp172469 __tmp172468))) + (_%lambda-id156185%_ + (let ((__tmp172470 (let () (declare (not safe)) - (gx#stx-source _%stx154502%_)))) + (gx#stx-source _%stx155487%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id155198%_ __tmp171485))) - (_%_155202%_ + (gx#core-quote-syntax__1 _%lambda-id156183%_ __tmp172470))) + (_%_156187%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id155200%_))) - (_%new-case-lambda-expr155204%_ + (gx#core-bind-runtime!__0 _%lambda-id156185%_))) + (_%new-case-lambda-expr156189%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155174%_ - _%lambda-id155200%_ - _%L155172%_)))) + _%L156159%_ + _%lambda-id156185%_ + _%L156157%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171487 + (let ((__tmp172472 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155067%_))) - (__tmp171486 + _%L156052%_))) + (__tmp172471 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id155200%_)))) + _%lambda-id156185%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171487 + __tmp172472 '" => " - __tmp171486)) - (_%lp154642%_ - (cons (_%bind-e__168103168104%_ - _%L155067%_ - _%new-case-lambda-expr155204%_ + __tmp172471)) + (_%lp155627%_ + (cons (_%bind-e__169088169089%_ + _%L156052%_ + _%new-case-lambda-expr156189%_ '#f) - _%rest154665%_) - (cons (_%bind-e__0__168105168106%_ - _%lambda-id155200%_ - _%L155173%_) - _%bind154645%_)))) - _%hd155105155167%_ - _%hd155102155159%_ - _%hd155099155151%_) - (_%g155081155111%_ - _%g155082155114%_)))) - (_%g155081155111%_ _%g155082155114%_)) - (_%g155081155111%_ _%g155082155114%_)) - (_%g155081155111%_ _%g155082155114%_)))) - (_%g155081155111%_ _%g155082155114%_)) - (_%g155081155111%_ _%g155082155114%_)))) + _%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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155081155111%_ - _%g155082155114%_)))) - (_%g155081155111%_ - _%g155082155114%_)))) - (_%g155081155111%_ _%g155082155114%_)))) - (_%g155081155111%_ _%g155082155114%_)))) - (_%g155081155111%_ _%g155082155114%_))))) + (_%g156066156096%_ + _%g156067156099%_)))) + (_%g156066156096%_ + _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155080155207%_ - _%L155066%_)))) - (_%__kont170953170954%_ - (lambda (_%L154788%_ _%L154789%_) - (let* ((_%g154803154856%_ - (lambda (_%g154804154853%_) + (_%g156065156192%_ + _%L156051%_)))) + (_%__kont171938171939%_ + (lambda (_%L155773%_ _%L155774%_) + (let* ((_%g155788155841%_ + (lambda (_%g155789155838%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154804154853%_)))) - (_%g154802155034%_ - (lambda (_%g154804154859%_) + _%g155789155838%_)))) + (_%g155787156019%_ + (lambda (_%g155789155844%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154804154859%_)) - (let ((_%e154810154861%_ + _%g155789155844%_)) + (let ((_%e155795155846%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154804154859%_)))) - (let ((_%hd154811154864%_ + (gx#stx-e _%g155789155844%_)))) + (let ((_%hd155796155849%_ (let () (declare (not safe)) - (##car _%e154810154861%_))) - (_%tl154812154866%_ + (##car _%e155795155846%_))) + (_%tl155797155851%_ (let () (declare (not safe)) - (##cdr _%e154810154861%_)))) + (##cdr _%e155795155846%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154812154866%_)) - (let ((_%e154813154869%_ + (gx#stx-pair? _%tl155797155851%_)) + (let ((_%e155798155854%_ (let () (declare (not safe)) - (gx#stx-e _%tl154812154866%_)))) - (let ((_%hd154814154872%_ + (gx#stx-e _%tl155797155851%_)))) + (let ((_%hd155799155857%_ (let () (declare (not safe)) - (##car _%e154813154869%_))) - (_%tl154815154874%_ + (##car _%e155798155854%_))) + (_%tl155800155859%_ (let () (declare (not safe)) - (##cdr _%e154813154869%_)))) + (##cdr _%e155798155854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154814154872%_)) - (let ((_%e154816154877%_ + (gx#stx-pair? _%hd155799155857%_)) + (let ((_%e155801155862%_ (let () (declare (not safe)) - (gx#stx-e _%hd154814154872%_)))) - (let ((_%hd154817154880%_ + (gx#stx-e _%hd155799155857%_)))) + (let ((_%hd155802155865%_ (let () (declare (not safe)) - (##car _%e154816154877%_))) - (_%tl154818154882%_ + (##car _%e155801155862%_))) + (_%tl155803155867%_ (let () (declare (not safe)) - (##cdr _%e154816154877%_)))) + (##cdr _%e155801155862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154817154880%_)) - (let ((_%e154819154885%_ + (gx#stx-pair? _%hd155802155865%_)) + (let ((_%e155804155870%_ (let () (declare (not safe)) (gx#stx-e - _%hd154817154880%_)))) - (let ((_%hd154820154888%_ + _%hd155802155865%_)))) + (let ((_%hd155805155873%_ (let () (declare (not safe)) - (##car _%e154819154885%_))) - (_%tl154821154890%_ + (##car _%e155804155870%_))) + (_%tl155806155875%_ (let () (declare (not safe)) - (##cdr _%e154819154885%_)))) + (##cdr _%e155804155870%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154820154888%_)) - (let ((_%e154822154893%_ + _%hd155805155873%_)) + (let ((_%e155807155878%_ (let () (declare (not safe)) (gx#stx-e - _%hd154820154888%_)))) - (let ((_%hd154823154896%_ + _%hd155805155873%_)))) + (let ((_%hd155808155881%_ (let () (declare (not safe)) - (##car _%e154822154893%_))) - (_%tl154824154898%_ + (##car _%e155807155878%_))) + (_%tl155809155883%_ (let () (declare (not safe)) - (##cdr _%e154822154893%_)))) + (##cdr _%e155807155878%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154824154898%_)) + _%tl155809155883%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154821154890%_)) - (let ((_%e154825154901%_ + (gx#stx-pair? _%tl155806155875%_)) + (let ((_%e155810155886%_ (let () (declare (not safe)) - (gx#stx-e _%tl154821154890%_)))) - (let ((_%hd154826154904%_ + (gx#stx-e _%tl155806155875%_)))) + (let ((_%hd155811155889%_ (let () (declare (not safe)) - (##car _%e154825154901%_))) - (_%tl154827154906%_ + (##car _%e155810155886%_))) + (_%tl155812155891%_ (let () (declare (not safe)) - (##cdr _%e154825154901%_)))) + (##cdr _%e155810155886%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154826154904%_)) - (let ((_%e154828154909%_ + (gx#stx-pair? _%hd155811155889%_)) + (let ((_%e155813155894%_ (let () (declare (not safe)) - (gx#stx-e _%hd154826154904%_)))) - (let ((_%hd154829154912%_ + (gx#stx-e _%hd155811155889%_)))) + (let ((_%hd155814155897%_ (let () (declare (not safe)) - (##car _%e154828154909%_))) - (_%tl154830154914%_ + (##car _%e155813155894%_))) + (_%tl155815155899%_ (let () (declare (not safe)) - (##cdr _%e154828154909%_)))) + (##cdr _%e155813155894%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154830154914%_)) - (let ((_%e154831154917%_ + (gx#stx-pair? _%tl155815155899%_)) + (let ((_%e155816155902%_ (let () (declare (not safe)) - (gx#stx-e _%tl154830154914%_)))) - (let ((_%hd154832154920%_ + (gx#stx-e _%tl155815155899%_)))) + (let ((_%hd155817155905%_ (let () (declare (not safe)) - (##car _%e154831154917%_))) - (_%tl154833154922%_ + (##car _%e155816155902%_))) + (_%tl155818155907%_ (let () (declare (not safe)) - (##cdr _%e154831154917%_)))) + (##cdr _%e155816155902%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154832154920%_)) - (let ((_%e154834154925%_ + _%hd155817155905%_)) + (let ((_%e155819155910%_ (let () (declare (not safe)) (gx#stx-e - _%hd154832154920%_)))) - (let ((_%hd154835154928%_ + _%hd155817155905%_)))) + (let ((_%hd155820155913%_ (let () (declare (not safe)) - (##car _%e154834154925%_))) - (_%tl154836154930%_ + (##car _%e155819155910%_))) + (_%tl155821155915%_ (let () (declare (not safe)) - (##cdr _%e154834154925%_)))) + (##cdr _%e155819155910%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154835154928%_)) - (let ((_%e154837154933%_ + _%hd155820155913%_)) + (let ((_%e155822155918%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd154835154928%_)))) - (let ((_%hd154838154936%_ - (let () (declare (not safe)) (##car _%e154837154933%_))) - (_%tl154839154938%_ + (gx#stx-e _%hd155820155913%_)))) + (let ((_%hd155823155921%_ + (let () (declare (not safe)) (##car _%e155822155918%_))) + (_%tl155824155923%_ (let () (declare (not safe)) - (##cdr _%e154837154933%_)))) + (##cdr _%e155822155918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154838154936%_)) - (let ((_%e154840154941%_ + (gx#stx-pair? _%hd155823155921%_)) + (let ((_%e155825155926%_ (let () (declare (not safe)) - (gx#stx-e _%hd154838154936%_)))) - (let ((_%hd154841154944%_ + (gx#stx-e _%hd155823155921%_)))) + (let ((_%hd155826155929%_ (let () (declare (not safe)) - (##car _%e154840154941%_))) - (_%tl154842154946%_ + (##car _%e155825155926%_))) + (_%tl155827155931%_ (let () (declare (not safe)) - (##cdr _%e154840154941%_)))) + (##cdr _%e155825155926%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154842154946%_)) + (gx#stx-null? _%tl155827155931%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154839154938%_)) - (let ((_%e154843154949%_ + (gx#stx-pair? _%tl155824155923%_)) + (let ((_%e155828155934%_ (let () (declare (not safe)) - (gx#stx-e _%tl154839154938%_)))) - (let ((_%hd154844154952%_ + (gx#stx-e _%tl155824155923%_)))) + (let ((_%hd155829155937%_ (let () (declare (not safe)) - (##car _%e154843154949%_))) - (_%tl154845154954%_ + (##car _%e155828155934%_))) + (_%tl155830155939%_ (let () (declare (not safe)) - (##cdr _%e154843154949%_)))) + (##cdr _%e155828155934%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154845154954%_)) + (gx#stx-null? _%tl155830155939%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154836154930%_)) + _%tl155821155915%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154833154922%_)) - (let ((_%e154846154957%_ + _%tl155818155907%_)) + (let ((_%e155831155942%_ (let () (declare (not safe)) (gx#stx-e - _%tl154833154922%_)))) - (let ((_%hd154847154960%_ + _%tl155818155907%_)))) + (let ((_%hd155832155945%_ (let () (declare (not safe)) - (##car _%e154846154957%_))) - (_%tl154848154962%_ + (##car _%e155831155942%_))) + (_%tl155833155947%_ (let () (declare (not safe)) - (##cdr _%e154846154957%_)))) + (##cdr _%e155831155942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154848154962%_)) + _%tl155833155947%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl154827154906%_)) + (gx#stx-null? _%tl155812155891%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154818154882%_)) + (gx#stx-null? _%tl155803155867%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154815154874%_)) - (let ((_%e154849154965%_ + (gx#stx-pair? _%tl155800155859%_)) + (let ((_%e155834155950%_ (let () (declare (not safe)) - (gx#stx-e _%tl154815154874%_)))) - (let ((_%hd154850154968%_ + (gx#stx-e _%tl155800155859%_)))) + (let ((_%hd155835155953%_ (let () (declare (not safe)) - (##car _%e154849154965%_))) - (_%tl154851154970%_ + (##car _%e155834155950%_))) + (_%tl155836155955%_ (let () (declare (not safe)) - (##cdr _%e154849154965%_)))) + (##cdr _%e155834155950%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154851154970%_)) - ((lambda (_%L154973%_ - _%L154974%_ - _%L154975%_ - _%L154976%_ - _%L154977%_) - (let* ((_%get-kws-id155017%_ - (let ((__tmp171489 + (gx#stx-null? _%tl155836155955%_)) + ((lambda (_%L155958%_ + _%L155959%_ + _%L155960%_ + _%L155961%_ + _%L155962%_) + (let* ((_%get-kws-id156002%_ + (let ((__tmp172474 (let () (declare (not safe)) (gx#stx-e - _%L154789%_))) - (__tmp171488 + _%L155774%_))) + (__tmp172473 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171489 - __tmp171488))) - (_%get-kws-id155019%_ - (let ((__tmp171490 + __tmp172474 + __tmp172473))) + (_%get-kws-id156004%_ + (let ((__tmp172475 (let () (declare (not safe)) (gx#stx-source - _%stx154502%_)))) + _%stx155487%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155017%_ - __tmp171490))) - (_%main-id155021%_ - (let ((__tmp171492 + _%get-kws-id156002%_ + __tmp172475))) + (_%main-id156006%_ + (let ((__tmp172477 (let () (declare (not safe)) (gx#stx-e - _%L154789%_))) - (__tmp171491 + _%L155774%_))) + (__tmp172476 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171492 - __tmp171491))) - (_%main-id155023%_ - (let ((__tmp171493 + __tmp172477 + __tmp172476))) + (_%main-id156008%_ + (let ((__tmp172478 (let () (declare (not safe)) (gx#stx-source - _%stx154502%_)))) + _%stx155487%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155021%_ - __tmp171493))) - (_%_155025%_ + _%main-id156006%_ + __tmp172478))) + (_%_156010%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id155019%_))) - (_%_155027%_ + _%get-kws-id156004%_))) + (_%_156012%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id155023%_))) - (_%new-kw-dispatch155029%_ + _%main-id156008%_))) + (_%new-kw-dispatch156014%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154977%_ - _%get-kws-id155019%_ - _%L154973%_))) - (_%new-get-kws155031%_ + _%L155962%_ + _%get-kws-id156004%_ + _%L155958%_))) + (_%new-get-kws156016%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154976%_ - _%main-id155023%_ - _%L154974%_)))) - (let ((__tmp171496 + _%L155961%_ + _%main-id156008%_ + _%L155959%_)))) + (let ((__tmp172481 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154789%_))) - (__tmp171495 + _%L155774%_))) + (__tmp172480 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id155019%_))) - (__tmp171494 + _%get-kws-id156004%_))) + (__tmp172479 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id155023%_)))) + _%main-id156008%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171496 + __tmp172481 '" => " - __tmp171495 + __tmp172480 '" => " - __tmp171494)) - (_%lp154642%_ - (cons (_%bind-e__168103168104%_ - _%main-id155023%_ - _%L154975%_ + __tmp172479)) + (_%lp155627%_ + (cons (_%bind-e__169088169089%_ + _%main-id156008%_ + _%L155960%_ '#f) - (cons (_%bind-e__168103168104%_ - _%get-kws-id155019%_ - _%new-get-kws155031%_ + (cons (_%bind-e__169088169089%_ + _%get-kws-id156004%_ + _%new-get-kws156016%_ '#f) - (cons (_%bind-e__168103168104%_ - _%L154789%_ - _%new-kw-dispatch155029%_ + (cons (_%bind-e__169088169089%_ + _%L155774%_ + _%new-kw-dispatch156014%_ '#f) - _%rest154665%_))) - _%bind154645%_))) - _%hd154850154968%_ - _%hd154847154960%_ - _%hd154844154952%_ - _%hd154841154944%_ - _%hd154823154896%_) - (_%g154803154856%_ _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)) - (_%g154803154856%_ _%g154804154859%_)) - (_%g154803154856%_ _%g154804154859%_)) - (_%g154803154856%_ _%g154804154859%_)))) + _%rest155650%_))) + _%bind155630%_))) + _%hd155835155953%_ + _%hd155832155945%_ + _%hd155829155937%_ + _%hd155826155929%_ + _%hd155808155881%_) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154803154856%_ - _%g154804154859%_)) - (_%g154803154856%_ - _%g154804154859%_)) - (_%g154803154856%_ - _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)) - (_%g154803154856%_ _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)))) + (_%g155788155841%_ + _%g155789155844%_)) + (_%g155788155841%_ + _%g155789155844%_)) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154803154856%_ - _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)) - (_%g154803154856%_ _%g154804154859%_)))) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154803154856%_ - _%g154804154859%_)))) - (_%g154803154856%_ - _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_)))) - (_%g154803154856%_ _%g154804154859%_))))) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154802155034%_ - _%L154788%_)))) - (_%__kont170955170956%_ - (lambda (_%L154739%_ _%L154740%_) - (_%lp154642%_ - _%rest154665%_ - (cons (cons _%L154740%_ + (_%g155787156019%_ + _%L155773%_)))) + (_%__kont171940171941%_ + (lambda (_%L155724%_ _%L155725%_) + (_%lp155627%_ + _%rest155650%_ + (cons (cons _%L155725%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self154501%_ _%L154739%_)) + (gxc#compile-e__1 _%self155486%_ _%L155724%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind154645%_))))) - (let* ((_%__match171022171023%_ - (lambda (_%e154697154764%_ - _%hd154698154767%_ - _%tl154699154769%_ - _%e154700154772%_ - _%hd154701154775%_ - _%tl154702154777%_ - _%e154703154780%_ - _%hd154704154783%_ - _%tl154705154785%_) - (let ((_%L154788%_ - _%hd154704154783%_) - (_%L154789%_ - _%hd154701154775%_)) + _%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? - _%L154789%_)) + _%L155774%_)) (gxc#kw-lambda-expr? - _%L154788%_)) - (_%__kont170953170954%_ - _%L154788%_ - _%L154789%_) - (_%__kont170955170956%_ - _%hd154704154783%_ - _%hd154698154767%_))))) - (_%__match171000171001%_ - (lambda (_%e154686155042%_ - _%hd154687155045%_ - _%tl154688155047%_ - _%e154689155050%_ - _%hd154690155053%_ - _%tl154691155055%_ - _%e154692155058%_ - _%hd154693155061%_ - _%tl154694155063%_) - (let ((_%L155066%_ - _%hd154693155061%_) - (_%L155067%_ - _%hd154690155053%_)) + _%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? - _%L155067%_)) + _%L156052%_)) (gxc#opt-lambda-expr? - _%L155066%_)) - (_%__kont170951170952%_ - _%L155066%_ - _%L155067%_) - (_%__match171022171023%_ - _%e154686155042%_ - _%hd154687155045%_ - _%tl154688155047%_ - _%e154689155050%_ - _%hd154690155053%_ - _%tl154691155055%_ - _%e154692155058%_ - _%hd154693155061%_ - _%tl154694155063%_))))) - (_%__match170978170979%_ - (lambda (_%e154675155215%_ - _%hd154676155218%_ - _%tl154677155220%_ - _%e154678155223%_ - _%hd154679155226%_ - _%tl154680155228%_ - _%e154681155231%_ - _%hd154682155234%_ - _%tl154683155236%_) - (let ((_%L155239%_ - _%hd154682155234%_) - (_%L155240%_ - _%hd154679155226%_)) + _%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? - _%L155240%_)) + _%L156225%_)) (gxc#case-lambda-expr? - _%L155239%_)) - (_%__kont170949170950%_ - _%L155239%_ - _%L155240%_) - (_%__match171000171001%_ - _%e154675155215%_ - _%hd154676155218%_ - _%tl154677155220%_ - _%e154678155223%_ - _%hd154679155226%_ - _%tl154680155228%_ - _%e154681155231%_ - _%hd154682155234%_ - _%tl154683155236%_)))))) + _%L156224%_)) + (_%__kont171934171935%_ + _%L156224%_ + _%L156225%_) + (_%__match171985171986%_ + _%e155660156200%_ + _%hd155661156203%_ + _%tl155662156205%_ + _%e155663156208%_ + _%hd155664156211%_ + _%tl155665156213%_ + _%e155666156216%_ + _%hd155667156219%_ + _%tl155668156221%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170947170948%_)) - (let ((_%e154675155215%_ + _%__stx171932171933%_)) + (let ((_%e155660156200%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170947170948%_)))) - (let ((_%tl154677155220%_ + _%__stx171932171933%_)))) + (let ((_%tl155662156205%_ (let () (declare (not safe)) - (##cdr _%e154675155215%_))) - (_%hd154676155218%_ + (##cdr _%e155660156200%_))) + (_%hd155661156203%_ (let () (declare (not safe)) - (##car _%e154675155215%_)))) + (##car _%e155660156200%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154676155218%_)) - (let ((_%e154678155223%_ + _%hd155661156203%_)) + (let ((_%e155663156208%_ (let () (declare (not safe)) (gx#stx-e - _%hd154676155218%_)))) - (let ((_%tl154680155228%_ + _%hd155661156203%_)))) + (let ((_%tl155665156213%_ (let () (declare (not safe)) - (##cdr _%e154678155223%_))) - (_%hd154679155226%_ + (##cdr _%e155663156208%_))) + (_%hd155664156211%_ (let () (declare (not safe)) - (##car _%e154678155223%_)))) + (##car _%e155663156208%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154680155228%_)) + _%tl155665156213%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154677155220%_)) - (let ((_%e154681155231%_ + (gx#stx-pair? _%tl155662156205%_)) + (let ((_%e155666156216%_ (let () (declare (not safe)) - (gx#stx-e _%tl154677155220%_)))) - (let ((_%tl154683155236%_ + (gx#stx-e _%tl155662156205%_)))) + (let ((_%tl155668156221%_ (let () (declare (not safe)) - (##cdr _%e154681155231%_))) - (_%hd154682155234%_ + (##cdr _%e155666156216%_))) + (_%hd155667156219%_ (let () (declare (not safe)) - (##car _%e154681155231%_)))) + (##car _%e155666156216%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154683155236%_)) - (_%__match170978170979%_ - _%e154675155215%_ - _%hd154676155218%_ - _%tl154677155220%_ - _%e154678155223%_ - _%hd154679155226%_ - _%tl154680155228%_ - _%e154681155231%_ - _%hd154682155234%_ - _%tl154683155236%_) + (gx#stx-null? _%tl155668156221%_)) + (_%__match171963171964%_ + _%e155660156200%_ + _%hd155661156203%_ + _%tl155662156205%_ + _%e155663156208%_ + _%hd155664156211%_ + _%tl155665156213%_ + _%e155666156216%_ + _%hd155667156219%_ + _%tl155668156221%_) (let () (declare (not safe)) - (_%g154671154718%_))))) - (let () (declare (not safe)) (_%g154671154718%_))) + (_%g155656155703%_))))) + (let () (declare (not safe)) (_%g155656155703%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154677155220%_)) - (let ((_%e154711154731%_ + (gx#stx-pair? _%tl155662156205%_)) + (let ((_%e155696155716%_ (let () (declare (not safe)) - (gx#stx-e _%tl154677155220%_)))) - (let ((_%tl154713154736%_ + (gx#stx-e _%tl155662156205%_)))) + (let ((_%tl155698155721%_ (let () (declare (not safe)) - (##cdr _%e154711154731%_))) - (_%hd154712154734%_ + (##cdr _%e155696155716%_))) + (_%hd155697155719%_ (let () (declare (not safe)) - (##car _%e154711154731%_)))) + (##car _%e155696155716%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154713154736%_)) - (_%__kont170955170956%_ - _%hd154712154734%_ - _%hd154676155218%_) + (gx#stx-null? _%tl155698155721%_)) + (_%__kont171940171941%_ + _%hd155697155719%_ + _%hd155661156203%_) (let () (declare (not safe)) - (_%g154671154718%_))))) - (let () (declare (not safe)) (_%g154671154718%_)))))) + (_%g155656155703%_))))) + (let () (declare (not safe)) (_%g155656155703%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154677155220%_)) - (let ((_%e154711154731%_ + _%tl155662156205%_)) + (let ((_%e155696155716%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154677155220%_)))) - (let ((_%tl154713154736%_ + (gx#stx-e _%tl155662156205%_)))) + (let ((_%tl155698155721%_ (let () (declare (not safe)) - (##cdr _%e154711154731%_))) - (_%hd154712154734%_ + (##cdr _%e155696155716%_))) + (_%hd155697155719%_ (let () (declare (not safe)) - (##car _%e154711154731%_)))) + (##car _%e155696155716%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154713154736%_)) - (_%__kont170955170956%_ - _%hd154712154734%_ - _%hd154676155218%_) - (let () (declare (not safe)) (_%g154671154718%_))))) - (let () (declare (not safe)) (_%g154671154718%_)))))) + (gx#stx-null? _%tl155698155721%_)) + (_%__kont171940171941%_ + _%hd155697155719%_ + _%hd155661156203%_) + (let () (declare (not safe)) (_%g155656155703%_))))) + (let () (declare (not safe)) (_%g155656155703%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154671154718%_))))))))) - (if (pair? _%rest154646154654%_) - (let ((_%hd154651155336%_ + (_%g155656155703%_))))))))) + (if (pair? _%rest155631155639%_) + (let ((_%hd155636156321%_ (let () (declare (not safe)) - (##car _%rest154646154654%_))) - (_%tl154652155338%_ + (##car _%rest155631155639%_))) + (_%tl155637156323%_ (let () (declare (not safe)) - (##cdr _%rest154646154654%_)))) - (let* ((_%hd155341%_ _%hd154651155336%_) - (_%rest155343%_ _%tl154652155338%_)) - (_%K154650155333%_ - _%rest155343%_ - _%hd155341%_))) - (_%else154648154662%_))))))) - (let* ((_%__stx171039171040%_ _%stx154502%_) - (_%g154508154535%_ + (##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" - _%__stx171039171040%_))))) - (let ((_%__kont171041171042%_ - (lambda (_%L154595%_ _%L154596%_ _%L154597%_) - (let ((__tmp171498 + _%__stx172024172025%_))))) + (let ((_%__kont172026172027%_ + (lambda (_%L155580%_ _%L155581%_ _%L155582%_) + (let ((__tmp172483 (lambda () - (let ((_%hd154634%_ - (_%compile-bindings154505%_ - (let ((__tmp171499 - (lambda (_%g154626154629%_ - _%g154627154631%_) - (cons _%g154626154629%_ - _%g154627154631%_)))) + (let ((_%hd155619%_ + (_%compile-bindings155490%_ + (let ((__tmp172484 + (lambda (_%g155611155614%_ + _%g155612155616%_) + (cons _%g155611155614%_ + _%g155612155616%_)))) (declare (not safe)) (__foldr1 - __tmp171499 + __tmp172484 '() - _%L154596%_)))) - (_%body154635%_ + _%L155581%_)))) + (_%body155620%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154501%_ - _%L154595%_)))) - (let ((__tmp171500 - (cons _%L154597%_ - (cons _%hd154634%_ - (cons _%body154635%_ + _%self155486%_ + _%L155580%_)))) + (let ((__tmp172485 + (cons _%L155582%_ + (cons _%hd155619%_ + (cons _%body155620%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171500 - _%stx154502%_))))) - (__tmp171497 - (let ((__obj171151 + __tmp172485 + _%stx155487%_))))) + (__tmp172482 + (let ((__obj172136 (let () (declare (not safe)) (##structure @@ -24298,249 +24298,249 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj171151)) - __obj171151))) + (gx#local-context:::init!__0 __obj172136)) + __obj172136))) (declare (not safe)) (__call-with-parameters - __tmp171498 + __tmp172483 gx#current-expander-context - __tmp171497)))) - (_%__kont171045171046%_ + __tmp172482)))) + (_%__kont172030172031%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self154501%_ _%stx154502%_))))) - (let ((_%__match171066171067%_ - (lambda (_%e154513154547%_ - _%hd154514154550%_ - _%tl154515154552%_ - _%e154516154555%_ - _%hd154517154558%_ - _%tl154518154560%_ - _%__splice171043171044%_ - _%target154519154563%_ - _%tl154521154565%_) - (letrec ((_%loop154522154568%_ - (lambda (_%hd154520154571%_ - _%bind154526154573%_) + (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? _%hd154520154571%_)) - (let ((_%e154523154576%_ + (gx#stx-pair? _%hd155505155556%_)) + (let ((_%e155508155561%_ (let () (declare (not safe)) (gx#stx-e - _%hd154520154571%_)))) - (let ((_%lp-tl154525154581%_ + _%hd155505155556%_)))) + (let ((_%lp-tl155510155566%_ (let () (declare (not safe)) - (##cdr _%e154523154576%_))) - (_%lp-hd154524154579%_ + (##cdr _%e155508155561%_))) + (_%lp-hd155509155564%_ (let () (declare (not safe)) - (##car _%e154523154576%_)))) - (_%loop154522154568%_ - _%lp-tl154525154581%_ - (cons _%lp-hd154524154579%_ - _%bind154526154573%_)))) - (let ((_%bind154527154584%_ - (reverse _%bind154526154573%_))) + (##car _%e155508155561%_)))) + (_%loop155507155553%_ + _%lp-tl155510155566%_ + (cons _%lp-hd155509155564%_ + _%bind155511155558%_)))) + (let ((_%bind155512155569%_ + (reverse _%bind155511155558%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154518154560%_)) - (let ((_%e154528154587%_ + _%tl155503155545%_)) + (let ((_%e155513155572%_ (let () (declare (not safe)) (gx#stx-e - _%tl154518154560%_)))) - (let ((_%tl154530154592%_ + _%tl155503155545%_)))) + (let ((_%tl155515155577%_ (let () (declare (not safe)) - (##cdr _%e154528154587%_))) - (_%hd154529154590%_ + (##cdr _%e155513155572%_))) + (_%hd155514155575%_ (let () (declare (not safe)) - (##car _%e154528154587%_)))) + (##car _%e155513155572%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154530154592%_)) - (let ((_%L154595%_ - _%hd154529154590%_) - (_%L154596%_ - _%bind154527154584%_) - (_%L154597%_ - _%hd154514154550%_)) - (if (let ((__tmp171501 + _%tl155515155577%_)) + (let ((_%L155580%_ + _%hd155514155575%_) + (_%L155581%_ + _%bind155512155569%_) + (_%L155582%_ + _%hd155499155535%_)) + (if (let ((__tmp172486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171502 - (lambda (_%g154618154621%_ _%g154619154623%_) - (cons _%g154618154621%_ - _%g154619154623%_)))) + (let ((__tmp172487 + (lambda (_%g155603155606%_ _%g155604155608%_) + (cons _%g155603155606%_ + _%g155604155608%_)))) (declare (not safe)) - (__foldr1 __tmp171502 '() _%L154596%_)))) + (__foldr1 __tmp172487 '() _%L155581%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171501)) - (_%__kont171041171042%_ _%L154595%_ _%L154596%_ _%L154597%_) - (_%__kont171045171046%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp172486)) + (_%__kont172026172027%_ _%L155580%_ _%L155581%_ _%L155582%_) + (_%__kont172030172031%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont171045171046%_)))) - (_%__kont171045171046%_))))))) - (_%loop154522154568%_ _%target154519154563%_ '()))))) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_))))))) + (_%loop155507155553%_ _%target155504155548%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx171039171040%_)) - (let ((_%e154513154547%_ + (gx#stx-pair? _%__stx172024172025%_)) + (let ((_%e155498155532%_ (let () (declare (not safe)) - (gx#stx-e _%__stx171039171040%_)))) - (let ((_%tl154515154552%_ + (gx#stx-e _%__stx172024172025%_)))) + (let ((_%tl155500155537%_ (let () (declare (not safe)) - (##cdr _%e154513154547%_))) - (_%hd154514154550%_ + (##cdr _%e155498155532%_))) + (_%hd155499155535%_ (let () (declare (not safe)) - (##car _%e154513154547%_)))) + (##car _%e155498155532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154515154552%_)) - (let ((_%e154516154555%_ + (gx#stx-pair? _%tl155500155537%_)) + (let ((_%e155501155540%_ (let () (declare (not safe)) - (gx#stx-e _%tl154515154552%_)))) - (let ((_%tl154518154560%_ + (gx#stx-e _%tl155500155537%_)))) + (let ((_%tl155503155545%_ (let () (declare (not safe)) - (##cdr _%e154516154555%_))) - (_%hd154517154558%_ + (##cdr _%e155501155540%_))) + (_%hd155502155543%_ (let () (declare (not safe)) - (##car _%e154516154555%_)))) + (##car _%e155501155540%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd154517154558%_)) - (let ((_%__splice171043171044%_ + (gx#stx-pair/null? _%hd155502155543%_)) + (let ((_%__splice172028172029%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd154517154558%_ + _%hd155502155543%_ '0)))) - (let ((_%tl154521154565%_ + (let ((_%tl155506155550%_ (let () (declare (not safe)) (##vector-ref - _%__splice171043171044%_ + _%__splice172028172029%_ '1))) - (_%target154519154563%_ + (_%target155504155548%_ (let () (declare (not safe)) (##vector-ref - _%__splice171043171044%_ + _%__splice172028172029%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154521154565%_)) - (_%__match171066171067%_ - _%e154513154547%_ - _%hd154514154550%_ - _%tl154515154552%_ - _%e154516154555%_ - _%hd154517154558%_ - _%tl154518154560%_ - _%__splice171043171044%_ - _%target154519154563%_ - _%tl154521154565%_) - (_%__kont171045171046%_)))) - (_%__kont171045171046%_)))) - (_%__kont171045171046%_)))) - (_%__kont171045171046%_)))))))) + _%tl155506155550%_)) + (_%__match172051172052%_ + _%e155498155532%_ + _%hd155499155535%_ + _%tl155500155537%_ + _%e155501155540%_ + _%hd155502155543%_ + _%tl155503155545%_ + _%__splice172028172029%_ + _%target155504155548%_ + _%tl155506155550%_) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind154419%_) - (let* ((_%__stx171069171070%_ _%bind154419%_) - (_%g154422154439%_ + (lambda (_%bind155404%_) + (let* ((_%__stx172054172055%_ _%bind155404%_) + (_%g155407155424%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx171069171070%_))))) - (let ((_%__kont171071171072%_ - (lambda (_%L154475%_ _%L154476%_) + _%__stx172054172055%_))))) + (let ((_%__kont172056172057%_ + (lambda (_%L155460%_ _%L155461%_) (if (let () (declare (not safe)) - (gx#identifier? _%L154476%_)) - (let ((_%$e154492%_ - (gxc#case-lambda-expr? _%L154475%_))) - (if _%$e154492%_ - _%$e154492%_ - (let ((_%$e154495%_ - (gxc#opt-lambda-expr? _%L154475%_))) - (if _%$e154495%_ - _%$e154495%_ - (gxc#kw-lambda-expr? _%L154475%_))))) + (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))) - (_%__kont171073171074%_ (lambda () '#f))) + (_%__kont172058172059%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx171069171070%_)) - (let ((_%e154426154451%_ + (gx#stx-pair? _%__stx172054172055%_)) + (let ((_%e155411155436%_ (let () (declare (not safe)) - (gx#stx-e _%__stx171069171070%_)))) - (let ((_%tl154428154456%_ + (gx#stx-e _%__stx172054172055%_)))) + (let ((_%tl155413155441%_ (let () (declare (not safe)) - (##cdr _%e154426154451%_))) - (_%hd154427154454%_ + (##cdr _%e155411155436%_))) + (_%hd155412155439%_ (let () (declare (not safe)) - (##car _%e154426154451%_)))) + (##car _%e155411155436%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154427154454%_)) - (let ((_%e154429154459%_ + (gx#stx-pair? _%hd155412155439%_)) + (let ((_%e155414155444%_ (let () (declare (not safe)) - (gx#stx-e _%hd154427154454%_)))) - (let ((_%tl154431154464%_ + (gx#stx-e _%hd155412155439%_)))) + (let ((_%tl155416155449%_ (let () (declare (not safe)) - (##cdr _%e154429154459%_))) - (_%hd154430154462%_ + (##cdr _%e155414155444%_))) + (_%hd155415155447%_ (let () (declare (not safe)) - (##car _%e154429154459%_)))) + (##car _%e155414155444%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154431154464%_)) + (gx#stx-null? _%tl155416155449%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154428154456%_)) - (let ((_%e154432154467%_ + (gx#stx-pair? _%tl155413155441%_)) + (let ((_%e155417155452%_ (let () (declare (not safe)) - (gx#stx-e _%tl154428154456%_)))) - (let ((_%tl154434154472%_ + (gx#stx-e _%tl155413155441%_)))) + (let ((_%tl155419155457%_ (let () (declare (not safe)) - (##cdr _%e154432154467%_))) - (_%hd154433154470%_ + (##cdr _%e155417155452%_))) + (_%hd155418155455%_ (let () (declare (not safe)) - (##car _%e154432154467%_)))) + (##car _%e155417155452%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154434154472%_)) - (_%__kont171071171072%_ - _%hd154433154470%_ - _%hd154430154462%_) - (_%__kont171073171074%_)))) - (_%__kont171073171074%_)) - (_%__kont171073171074%_)))) - (_%__kont171073171074%_)))) - (_%__kont171073171074%_)))))))) + _%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 f287891f8..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]#_g171504_| + (define |gxc[1]#_g172489_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171506_| + (define |gxc[1]#_g172491_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171508_| + (define |gxc[1]#_g172493_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171510_| + (define |gxc[1]#_g172495_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171513_| + (define |gxc[1]#_g172498_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171515_| + (define |gxc[1]#_g172500_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171517_| + (define |gxc[1]#_g172502_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171519_| + (define |gxc[1]#_g172504_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171521_| + (define |gxc[1]#_g172506_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171523_| + (define |gxc[1]#_g172508_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171525_| + (define |gxc[1]#_g172510_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171528_| + (define |gxc[1]#_g172513_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171530_| + (define |gxc[1]#_g172515_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171532_| + (define |gxc[1]#_g172517_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171535_| + (define |gxc[1]#_g172520_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171537_| + (define |gxc[1]#_g172522_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171539_| + (define |gxc[1]#_g172524_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171542_| + (define |gxc[1]#_g172527_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171544_| + (define |gxc[1]#_g172529_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171546_| + (define |gxc[1]#_g172531_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171549_| + (define |gxc[1]#_g172534_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171551_| + (define |gxc[1]#_g172536_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171553_| + (define |gxc[1]#_g172538_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171555_| + (define |gxc[1]#_g172540_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171557_| + (define |gxc[1]#_g172542_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171559_| + (define |gxc[1]#_g172544_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171561_| + (define |gxc[1]#_g172546_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171563_| + (define |gxc[1]#_g172548_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171565_| + (define |gxc[1]#_g172550_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171567_| + (define |gxc[1]#_g172552_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171569_| + (define |gxc[1]#_g172554_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171572_| + (define |gxc[1]#_g172557_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171574_| + (define |gxc[1]#_g172559_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171576_| + (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 ((__obj171098 + (let ((__obj172083 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171098 + __obj172083 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171098 + __obj172083 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '6 '#f '#f)) - (let ((__tmp171503 (cons |gxc[1]#_g171504_| '()))) + (##unchecked-structure-set! __obj172083 '() '6 '#f '#f)) + (let ((__tmp172488 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171098 __tmp171503 '3 '#f '#f)) + (##unchecked-structure-set! __obj172083 __tmp172488 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172083 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172083 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172083 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '#f '11 '#f '#f)) - (let ((__tmp171505 |gxc[1]#_g171506_|)) + (##unchecked-structure-set! __obj172083 '#f '11 '#f '#f)) + (let ((__tmp172490 |gxc[1]#_g172491_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171098 __tmp171505 '12 '#f '#f)) - (let ((__tmp171507 |gxc[1]#_g171508_|)) + (##unchecked-structure-set! __obj172083 __tmp172490 '12 '#f '#f)) + (let ((__tmp172492 |gxc[1]#_g172493_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171098 __tmp171507 '13 '#f '#f)) - (let ((__tmp171509 |gxc[1]#_g171510_|)) + (##unchecked-structure-set! __obj172083 __tmp172492 '13 '#f '#f)) + (let ((__tmp172494 |gxc[1]#_g172495_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171098 __tmp171509 '14 '#f '#f)) + (##unchecked-structure-set! __obj172083 __tmp172494 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171098 '() '20 '#f '#f)) - __obj171098)) + (##unchecked-structure-set! __obj172083 '() '20 '#f '#f)) + __obj172083)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj171100 + (let ((__obj172085 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171100 + __obj172085 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171100 + __obj172085 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '6 '#f '#f)) - (let ((__tmp171511 (cons |gxc[1]#_g171504_| '()))) + (##unchecked-structure-set! __obj172085 '() '6 '#f '#f)) + (let ((__tmp172496 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171100 __tmp171511 '3 '#f '#f)) + (##unchecked-structure-set! __obj172085 __tmp172496 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172085 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172085 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172085 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '#f '11 '#f '#f)) - (let ((__tmp171512 |gxc[1]#_g171513_|)) + (##unchecked-structure-set! __obj172085 '#f '11 '#f '#f)) + (let ((__tmp172497 |gxc[1]#_g172498_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171100 __tmp171512 '12 '#f '#f)) - (let ((__tmp171514 |gxc[1]#_g171515_|)) + (##unchecked-structure-set! __obj172085 __tmp172497 '12 '#f '#f)) + (let ((__tmp172499 |gxc[1]#_g172500_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171100 __tmp171514 '13 '#f '#f)) - (let ((__tmp171516 |gxc[1]#_g171517_|)) + (##unchecked-structure-set! __obj172085 __tmp172499 '13 '#f '#f)) + (let ((__tmp172501 |gxc[1]#_g172502_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171100 __tmp171516 '14 '#f '#f)) + (##unchecked-structure-set! __obj172085 __tmp172501 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171100 '() '20 '#f '#f)) - __obj171100)) + (##unchecked-structure-set! __obj172085 '() '20 '#f '#f)) + __obj172085)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj171102 + (let ((__obj172087 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171102 + __obj172087 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171102 + __obj172087 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '6 '#f '#f)) - (let ((__tmp171518 (cons |gxc[1]#_g171519_| '()))) + (##unchecked-structure-set! __obj172087 '() '6 '#f '#f)) + (let ((__tmp172503 (cons |gxc[1]#_g172504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171102 __tmp171518 '3 '#f '#f)) + (##unchecked-structure-set! __obj172087 __tmp172503 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172087 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172087 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172087 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '#f '11 '#f '#f)) - (let ((__tmp171520 |gxc[1]#_g171521_|)) + (##unchecked-structure-set! __obj172087 '#f '11 '#f '#f)) + (let ((__tmp172505 |gxc[1]#_g172506_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171102 __tmp171520 '12 '#f '#f)) - (let ((__tmp171522 |gxc[1]#_g171523_|)) + (##unchecked-structure-set! __obj172087 __tmp172505 '12 '#f '#f)) + (let ((__tmp172507 |gxc[1]#_g172508_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171102 __tmp171522 '13 '#f '#f)) - (let ((__tmp171524 |gxc[1]#_g171525_|)) + (##unchecked-structure-set! __obj172087 __tmp172507 '13 '#f '#f)) + (let ((__tmp172509 |gxc[1]#_g172510_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171102 __tmp171524 '14 '#f '#f)) + (##unchecked-structure-set! __obj172087 __tmp172509 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171102 '() '20 '#f '#f)) - __obj171102)) + (##unchecked-structure-set! __obj172087 '() '20 '#f '#f)) + __obj172087)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj171104 + (let ((__obj172089 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171104 + __obj172089 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171104 + __obj172089 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '6 '#f '#f)) - (let ((__tmp171526 (cons |gxc[1]#_g171504_| '()))) + (##unchecked-structure-set! __obj172089 '() '6 '#f '#f)) + (let ((__tmp172511 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171104 __tmp171526 '3 '#f '#f)) + (##unchecked-structure-set! __obj172089 __tmp172511 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172089 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172089 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '#f '11 '#f '#f)) - (let ((__tmp171527 |gxc[1]#_g171528_|)) + (##unchecked-structure-set! __obj172089 '#f '11 '#f '#f)) + (let ((__tmp172512 |gxc[1]#_g172513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171104 __tmp171527 '12 '#f '#f)) - (let ((__tmp171529 |gxc[1]#_g171530_|)) + (##unchecked-structure-set! __obj172089 __tmp172512 '12 '#f '#f)) + (let ((__tmp172514 |gxc[1]#_g172515_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171104 __tmp171529 '13 '#f '#f)) - (let ((__tmp171531 |gxc[1]#_g171532_|)) + (##unchecked-structure-set! __obj172089 __tmp172514 '13 '#f '#f)) + (let ((__tmp172516 |gxc[1]#_g172517_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171104 __tmp171531 '14 '#f '#f)) + (##unchecked-structure-set! __obj172089 __tmp172516 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171104 '() '20 '#f '#f)) - __obj171104)) + (##unchecked-structure-set! __obj172089 '() '20 '#f '#f)) + __obj172089)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj171106 + (let ((__obj172091 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171106 + __obj172091 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171106 + __obj172091 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '6 '#f '#f)) - (let ((__tmp171533 (cons |gxc[1]#_g171504_| '()))) + (##unchecked-structure-set! __obj172091 '() '6 '#f '#f)) + (let ((__tmp172518 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171106 __tmp171533 '3 '#f '#f)) + (##unchecked-structure-set! __obj172091 __tmp172518 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172091 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172091 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '#f '11 '#f '#f)) - (let ((__tmp171534 |gxc[1]#_g171535_|)) + (##unchecked-structure-set! __obj172091 '#f '11 '#f '#f)) + (let ((__tmp172519 |gxc[1]#_g172520_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171106 __tmp171534 '12 '#f '#f)) - (let ((__tmp171536 |gxc[1]#_g171537_|)) + (##unchecked-structure-set! __obj172091 __tmp172519 '12 '#f '#f)) + (let ((__tmp172521 |gxc[1]#_g172522_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171106 __tmp171536 '13 '#f '#f)) - (let ((__tmp171538 |gxc[1]#_g171539_|)) + (##unchecked-structure-set! __obj172091 __tmp172521 '13 '#f '#f)) + (let ((__tmp172523 |gxc[1]#_g172524_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171106 __tmp171538 '14 '#f '#f)) + (##unchecked-structure-set! __obj172091 __tmp172523 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171106 '() '20 '#f '#f)) - __obj171106)) + (##unchecked-structure-set! __obj172091 '() '20 '#f '#f)) + __obj172091)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj171108 + (let ((__obj172093 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171108 + __obj172093 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171108 + __obj172093 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '6 '#f '#f)) - (let ((__tmp171540 (cons |gxc[1]#_g171504_| '()))) + (##unchecked-structure-set! __obj172093 '() '6 '#f '#f)) + (let ((__tmp172525 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171108 __tmp171540 '3 '#f '#f)) + (##unchecked-structure-set! __obj172093 __tmp172525 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172093 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172093 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172093 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '#f '11 '#f '#f)) - (let ((__tmp171541 |gxc[1]#_g171542_|)) + (##unchecked-structure-set! __obj172093 '#f '11 '#f '#f)) + (let ((__tmp172526 |gxc[1]#_g172527_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171108 __tmp171541 '12 '#f '#f)) - (let ((__tmp171543 |gxc[1]#_g171544_|)) + (##unchecked-structure-set! __obj172093 __tmp172526 '12 '#f '#f)) + (let ((__tmp172528 |gxc[1]#_g172529_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171108 __tmp171543 '13 '#f '#f)) - (let ((__tmp171545 |gxc[1]#_g171546_|)) + (##unchecked-structure-set! __obj172093 __tmp172528 '13 '#f '#f)) + (let ((__tmp172530 |gxc[1]#_g172531_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171108 __tmp171545 '14 '#f '#f)) + (##unchecked-structure-set! __obj172093 __tmp172530 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171108 '() '20 '#f '#f)) - __obj171108)) + (##unchecked-structure-set! __obj172093 '() '20 '#f '#f)) + __obj172093)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj171110 + (let ((__obj172095 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171110 + __obj172095 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171110 + __obj172095 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '6 '#f '#f)) - (let ((__tmp171547 (cons |gxc[1]#_g171519_| '()))) + (##unchecked-structure-set! __obj172095 '() '6 '#f '#f)) + (let ((__tmp172532 (cons |gxc[1]#_g172504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171110 __tmp171547 '3 '#f '#f)) + (##unchecked-structure-set! __obj172095 __tmp172532 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172095 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj172095 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172095 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '#f '11 '#f '#f)) - (let ((__tmp171548 |gxc[1]#_g171549_|)) + (##unchecked-structure-set! __obj172095 '#f '11 '#f '#f)) + (let ((__tmp172533 |gxc[1]#_g172534_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171110 __tmp171548 '12 '#f '#f)) - (let ((__tmp171550 |gxc[1]#_g171551_|)) + (##unchecked-structure-set! __obj172095 __tmp172533 '12 '#f '#f)) + (let ((__tmp172535 |gxc[1]#_g172536_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171110 __tmp171550 '13 '#f '#f)) - (let ((__tmp171552 |gxc[1]#_g171553_|)) + (##unchecked-structure-set! __obj172095 __tmp172535 '13 '#f '#f)) + (let ((__tmp172537 |gxc[1]#_g172538_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171110 __tmp171552 '14 '#f '#f)) + (##unchecked-structure-set! __obj172095 __tmp172537 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171110 '() '20 '#f '#f)) - __obj171110)) + (##unchecked-structure-set! __obj172095 '() '20 '#f '#f)) + __obj172095)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj171112 + (let ((__obj172097 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171112 + __obj172097 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171112 + __obj172097 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '6 '#f '#f)) - (let ((__tmp171554 - (cons |gxc[1]#_g171555_| (cons |gxc[1]#_g171519_| '())))) + (##unchecked-structure-set! __obj172097 '() '6 '#f '#f)) + (let ((__tmp172539 + (cons |gxc[1]#_g172540_| (cons |gxc[1]#_g172504_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj171112 __tmp171554 '3 '#f '#f)) + (##unchecked-structure-set! __obj172097 __tmp172539 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172097 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172097 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172097 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '#f '11 '#f '#f)) - (let ((__tmp171556 |gxc[1]#_g171557_|)) + (##unchecked-structure-set! __obj172097 '#f '11 '#f '#f)) + (let ((__tmp172541 |gxc[1]#_g172542_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171112 __tmp171556 '12 '#f '#f)) - (let ((__tmp171558 |gxc[1]#_g171559_|)) + (##unchecked-structure-set! __obj172097 __tmp172541 '12 '#f '#f)) + (let ((__tmp172543 |gxc[1]#_g172544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171112 __tmp171558 '13 '#f '#f)) - (let ((__tmp171560 |gxc[1]#_g171561_|)) + (##unchecked-structure-set! __obj172097 __tmp172543 '13 '#f '#f)) + (let ((__tmp172545 |gxc[1]#_g172546_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171112 __tmp171560 '14 '#f '#f)) + (##unchecked-structure-set! __obj172097 __tmp172545 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171112 '() '20 '#f '#f)) - __obj171112)) + (##unchecked-structure-set! __obj172097 '() '20 '#f '#f)) + __obj172097)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj171114 + (let ((__obj172099 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171114 + __obj172099 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171114 + __obj172099 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '6 '#f '#f)) - (let ((__tmp171562 (cons |gxc[1]#_g171563_| '()))) + (##unchecked-structure-set! __obj172099 '() '6 '#f '#f)) + (let ((__tmp172547 (cons |gxc[1]#_g172548_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171114 __tmp171562 '3 '#f '#f)) + (##unchecked-structure-set! __obj172099 __tmp172547 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172099 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172099 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172099 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '#f '11 '#f '#f)) - (let ((__tmp171564 |gxc[1]#_g171565_|)) + (##unchecked-structure-set! __obj172099 '#f '11 '#f '#f)) + (let ((__tmp172549 |gxc[1]#_g172550_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171114 __tmp171564 '12 '#f '#f)) - (let ((__tmp171566 |gxc[1]#_g171567_|)) + (##unchecked-structure-set! __obj172099 __tmp172549 '12 '#f '#f)) + (let ((__tmp172551 |gxc[1]#_g172552_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171114 __tmp171566 '13 '#f '#f)) - (let ((__tmp171568 |gxc[1]#_g171569_|)) + (##unchecked-structure-set! __obj172099 __tmp172551 '13 '#f '#f)) + (let ((__tmp172553 |gxc[1]#_g172554_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171114 __tmp171568 '14 '#f '#f)) + (##unchecked-structure-set! __obj172099 __tmp172553 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171114 '() '20 '#f '#f)) - __obj171114)) + (##unchecked-structure-set! __obj172099 '() '20 '#f '#f)) + __obj172099)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj171116 + (let ((__obj172101 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171116 + __obj172101 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171116 + __obj172101 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '6 '#f '#f)) - (let ((__tmp171570 (cons |gxc[1]#_g171519_| '()))) + (##unchecked-structure-set! __obj172101 '() '6 '#f '#f)) + (let ((__tmp172555 (cons |gxc[1]#_g172504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171116 __tmp171570 '3 '#f '#f)) + (##unchecked-structure-set! __obj172101 __tmp172555 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172101 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172101 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172101 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '#f '11 '#f '#f)) - (let ((__tmp171571 |gxc[1]#_g171572_|)) + (##unchecked-structure-set! __obj172101 '#f '11 '#f '#f)) + (let ((__tmp172556 |gxc[1]#_g172557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171116 __tmp171571 '12 '#f '#f)) - (let ((__tmp171573 |gxc[1]#_g171574_|)) + (##unchecked-structure-set! __obj172101 __tmp172556 '12 '#f '#f)) + (let ((__tmp172558 |gxc[1]#_g172559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171116 __tmp171573 '13 '#f '#f)) - (let ((__tmp171575 |gxc[1]#_g171576_|)) + (##unchecked-structure-set! __obj172101 __tmp172558 '13 '#f '#f)) + (let ((__tmp172560 |gxc[1]#_g172561_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171116 __tmp171575 '14 '#f '#f)) + (##unchecked-structure-set! __obj172101 __tmp172560 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171116 '() '20 '#f '#f)) - __obj171116)) + (##unchecked-structure-set! __obj172101 '() '20 '#f '#f)) + __obj172101)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx154136%_) - (let* ((_%g154140154169%_ - (lambda (_%g154141154165%_) + (lambda (_%$stx155121%_) + (let* ((_%g155125155154%_ + (lambda (_%g155126155150%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154141154165%_)))) - (_%g154139154270%_ - (lambda (_%g154141154173%_) + _%g155126155150%_)))) + (_%g155124155255%_ + (lambda (_%g155126155158%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g154141154173%_)) - (let ((_%e154144154176%_ + (gx#stx-pair? _%g155126155158%_)) + (let ((_%e155129155161%_ (let () (declare (not safe)) - (gx#syntax-e _%g154141154173%_)))) - (let ((_%hd154145154180%_ + (gx#syntax-e _%g155126155158%_)))) + (let ((_%hd155130155165%_ (let () (declare (not safe)) - (##car _%e154144154176%_))) - (_%tl154146154183%_ + (##car _%e155129155161%_))) + (_%tl155131155168%_ (let () (declare (not safe)) - (##cdr _%e154144154176%_)))) + (##cdr _%e155129155161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154146154183%_)) - (let ((_g171577_ + (gx#stx-pair/null? _%tl155131155168%_)) + (let ((_g172562_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl154146154183%_ + _%tl155131155168%_ '0)))) (begin - (let ((_g171578_ + (let ((_g172563_ (let () (declare (not safe)) - (if (##values? _g171577_) - (##values-length _g171577_) + (if (##values? _g172562_) + (##values-length _g172562_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171578_ 2))) + (##fx= _g172563_ 2))) (error "Context expects 2 values" - _g171578_))) - (let ((_%target154147154186%_ + _g172563_))) + (let ((_%target155132155171%_ (let () (declare (not safe)) - (##values-ref _g171577_ 0))) - (_%tl154149154189%_ + (##values-ref _g172562_ 0))) + (_%tl155134155174%_ (let () (declare (not safe)) - (##values-ref _g171577_ 1)))) + (##values-ref _g172562_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154149154189%_)) - (letrec ((_%loop154150154192%_ - (lambda (_%hd154148154196%_ - _%type-e154154154199%_ - _%id154155154201%_) + (gx#stx-null? _%tl155134155174%_)) + (letrec ((_%loop155135155177%_ + (lambda (_%hd155133155181%_ + _%type-e155139155184%_ + _%id155140155186%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154148154196%_)) - (let ((_%e154151154204%_ + _%hd155133155181%_)) + (let ((_%e155136155189%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd154148154196%_)))) - (let ((_%lp-hd154152154208%_ + (gx#syntax-e _%hd155133155181%_)))) + (let ((_%lp-hd155137155193%_ (let () (declare (not safe)) - (##car _%e154151154204%_))) - (_%lp-tl154153154211%_ + (##car _%e155136155189%_))) + (_%lp-tl155138155196%_ (let () (declare (not safe)) - (##cdr _%e154151154204%_)))) + (##cdr _%e155136155189%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154152154208%_)) - (let ((_%e154158154214%_ + (gx#stx-pair? _%lp-hd155137155193%_)) + (let ((_%e155143155199%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd154152154208%_)))) - (let ((_%hd154159154218%_ + (gx#syntax-e _%lp-hd155137155193%_)))) + (let ((_%hd155144155203%_ (let () (declare (not safe)) - (##car _%e154158154214%_))) - (_%tl154160154221%_ + (##car _%e155143155199%_))) + (_%tl155145155206%_ (let () (declare (not safe)) - (##cdr _%e154158154214%_)))) + (##cdr _%e155143155199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154160154221%_)) - (let ((_%e154161154224%_ + (gx#stx-pair? _%tl155145155206%_)) + (let ((_%e155146155209%_ (let () (declare (not safe)) - (gx#syntax-e _%tl154160154221%_)))) - (let ((_%hd154162154228%_ + (gx#syntax-e _%tl155145155206%_)))) + (let ((_%hd155147155213%_ (let () (declare (not safe)) - (##car _%e154161154224%_))) - (_%tl154163154231%_ + (##car _%e155146155209%_))) + (_%tl155148155216%_ (let () (declare (not safe)) - (##cdr _%e154161154224%_)))) + (##cdr _%e155146155209%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154163154231%_)) - (_%loop154150154192%_ - _%lp-tl154153154211%_ - (cons _%hd154162154228%_ - _%type-e154154154199%_) - (cons _%hd154159154218%_ - _%id154155154201%_)) - (_%g154140154169%_ - _%g154141154173%_)))) - (_%g154140154169%_ _%g154141154173%_)))) - (_%g154140154169%_ _%g154141154173%_)))) - (let ((_%type-e154156154234%_ (reverse _%type-e154154154199%_)) - (_%id154157154237%_ (reverse _%id154155154201%_))) - ((lambda (_%L154240%_ _%L154242%_) + (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 - _%L154240%_ - _%L154242%_)) - (let ((__tmp171579 - (lambda (_%g154258154262%_ - _%g154259154265%_ - _%g154260154267%_) + _%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 _%g154259154265%_ '())) - (cons _%g154258154262%_ '())))) + (cons _%g155244155250%_ '())) + (cons _%g155243155247%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154260154267%_)))) + _%g155245155252%_)))) (declare (not safe)) (__foldr2 - __tmp171579 + __tmp172564 '() - _%L154240%_ - _%L154242%_))))) - _%type-e154156154234%_ - _%id154157154237%_)))))) + _%L155225%_ + _%L155227%_))))) + _%type-e155141155219%_ + _%id155142155222%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154150154192%_ - _%target154147154186%_ + (_%loop155135155177%_ + _%target155132155171%_ '() '())) - (_%g154140154169%_ - _%g154141154173%_))))) - (_%g154140154169%_ _%g154141154173%_)))) - (_%g154140154169%_ _%g154141154173%_))))) - (_%g154139154270%_ _%$stx154136%_)))) + (_%g155125155154%_ + _%g155126155158%_))))) + (_%g155125155154%_ _%g155126155158%_)))) + (_%g155125155154%_ _%g155126155158%_))))) + (_%g155124155255%_ _%$stx155121%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx154275%_) - (let* ((_%g154279154308%_ - (lambda (_%g154280154304%_) + (lambda (_%$stx155260%_) + (let* ((_%g155264155293%_ + (lambda (_%g155265155289%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154280154304%_)))) - (_%g154278154408%_ - (lambda (_%g154280154312%_) + _%g155265155289%_)))) + (_%g155263155393%_ + (lambda (_%g155265155297%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g154280154312%_)) - (let ((_%e154283154315%_ + (gx#stx-pair? _%g155265155297%_)) + (let ((_%e155268155300%_ (let () (declare (not safe)) - (gx#syntax-e _%g154280154312%_)))) - (let ((_%hd154284154319%_ + (gx#syntax-e _%g155265155297%_)))) + (let ((_%hd155269155304%_ (let () (declare (not safe)) - (##car _%e154283154315%_))) - (_%tl154285154322%_ + (##car _%e155268155300%_))) + (_%tl155270155307%_ (let () (declare (not safe)) - (##cdr _%e154283154315%_)))) + (##cdr _%e155268155300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154285154322%_)) - (let ((_g171580_ + (gx#stx-pair/null? _%tl155270155307%_)) + (let ((_g172565_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl154285154322%_ + _%tl155270155307%_ '0)))) (begin - (let ((_g171581_ + (let ((_g172566_ (let () (declare (not safe)) - (if (##values? _g171580_) - (##values-length _g171580_) + (if (##values? _g172565_) + (##values-length _g172565_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171581_ 2))) + (##fx= _g172566_ 2))) (error "Context expects 2 values" - _g171581_))) - (let ((_%target154286154325%_ + _g172566_))) + (let ((_%target155271155310%_ (let () (declare (not safe)) - (##values-ref _g171580_ 0))) - (_%tl154288154328%_ + (##values-ref _g172565_ 0))) + (_%tl155273155313%_ (let () (declare (not safe)) - (##values-ref _g171580_ 1)))) + (##values-ref _g172565_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154288154328%_)) - (letrec ((_%loop154289154331%_ - (lambda (_%hd154287154335%_ - _%type-e154293154338%_ - _%id154294154340%_) + (gx#stx-null? _%tl155273155313%_)) + (letrec ((_%loop155274155316%_ + (lambda (_%hd155272155320%_ + _%type-e155278155323%_ + _%id155279155325%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154287154335%_)) - (let ((_%e154290154343%_ + _%hd155272155320%_)) + (let ((_%e155275155328%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd154287154335%_)))) - (let ((_%lp-hd154291154347%_ + (gx#syntax-e _%hd155272155320%_)))) + (let ((_%lp-hd155276155332%_ (let () (declare (not safe)) - (##car _%e154290154343%_))) - (_%lp-tl154292154350%_ + (##car _%e155275155328%_))) + (_%lp-tl155277155335%_ (let () (declare (not safe)) - (##cdr _%e154290154343%_)))) + (##cdr _%e155275155328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154291154347%_)) - (let ((_%e154297154353%_ + (gx#stx-pair? _%lp-hd155276155332%_)) + (let ((_%e155282155338%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd154291154347%_)))) - (let ((_%hd154298154357%_ + (gx#syntax-e _%lp-hd155276155332%_)))) + (let ((_%hd155283155342%_ (let () (declare (not safe)) - (##car _%e154297154353%_))) - (_%tl154299154360%_ + (##car _%e155282155338%_))) + (_%tl155284155345%_ (let () (declare (not safe)) - (##cdr _%e154297154353%_)))) + (##cdr _%e155282155338%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154299154360%_)) - (let ((_%e154300154363%_ + (gx#stx-pair? _%tl155284155345%_)) + (let ((_%e155285155348%_ (let () (declare (not safe)) - (gx#syntax-e _%tl154299154360%_)))) - (let ((_%hd154301154367%_ + (gx#syntax-e _%tl155284155345%_)))) + (let ((_%hd155286155352%_ (let () (declare (not safe)) - (##car _%e154300154363%_))) - (_%tl154302154370%_ + (##car _%e155285155348%_))) + (_%tl155287155355%_ (let () (declare (not safe)) - (##cdr _%e154300154363%_)))) + (##cdr _%e155285155348%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154302154370%_)) - (_%loop154289154331%_ - _%lp-tl154292154350%_ - (cons _%hd154301154367%_ - _%type-e154293154338%_) - (cons _%hd154298154357%_ - _%id154294154340%_)) - (_%g154279154308%_ - _%g154280154312%_)))) - (_%g154279154308%_ _%g154280154312%_)))) - (_%g154279154308%_ _%g154280154312%_)))) - (let ((_%type-e154295154373%_ (reverse _%type-e154293154338%_)) - (_%id154296154376%_ (reverse _%id154294154340%_))) - ((lambda (_%L154379%_ _%L154381%_) + (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 - _%L154379%_ - _%L154381%_)) - (let ((__tmp171582 - (lambda (_%g154396154400%_ - _%g154397154403%_ - _%g154398154405%_) + _%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 _%g154397154403%_ '())) - (cons _%g154396154400%_ '())))) + (cons _%g155382155388%_ '())) + (cons _%g155381155385%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154398154405%_)))) + _%g155383155390%_)))) (declare (not safe)) (__foldr2 - __tmp171582 + __tmp172567 '() - _%L154379%_ - _%L154381%_))))) - _%type-e154295154373%_ - _%id154296154376%_)))))) + _%L155364%_ + _%L155366%_))))) + _%type-e155280155358%_ + _%id155281155361%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154289154331%_ - _%target154286154325%_ + (_%loop155274155316%_ + _%target155271155310%_ '() '())) - (_%g154279154308%_ - _%g154280154312%_))))) - (_%g154279154308%_ _%g154280154312%_)))) - (_%g154279154308%_ _%g154280154312%_))))) - (_%g154278154408%_ _%$stx154275%_)))))) + (_%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 66fb0bfaf..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 1734131749) + (define gerbil/compiler/optimize-xform::timestamp 1734357964) (begin (define gxc#::collect-mutators::t - (let ((__tmp154001 (list gxc#::void::t)) - (__tmp154000 (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 - __tmp154001 + __tmp154986 '() - __tmp154000 + __tmp154985 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args153987%_ - (apply make-instance gxc#::collect-mutators::t _%$args153987%_))) + (lambda _%$args154972%_ + (apply make-instance gxc#::collect-mutators::t _%$args154972%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp154002 + (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 __tmp154002))) + (__make-promise __tmp154987))) (define gxc#apply-collect-mutators - (lambda (_%stx153979%_) + (lambda (_%stx154964%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self153982%_ - (let ((__obj153990 + (let* ((_%self154967%_ + (let ((__obj154975 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj153990)) - (__tmp154003 + __obj154975)) + (__tmp154988 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153982%_ _%stx153979%_))))) + (gxc#compile-e__1 _%self154967%_ _%stx154964%_))))) (declare (not safe)) (__call-with-parameters - __tmp154003 + __tmp154988 gxc#current-compile-method - _%self153982%_)))) + _%self154967%_)))) (define gxc#::expression-subst::t - (let ((__tmp154005 (list gxc#::basic-xform-expression::t)) - (__tmp154004 (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 - __tmp154005 + __tmp154990 '(id new-id) - __tmp154004 + __tmp154989 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args153976%_ - (apply make-instance gxc#::expression-subst::t _%$args153976%_))) + (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 ((__tmp154006 + (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 __tmp154006))) + (__make-promise __tmp154991))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords153946%_ - _%id153942153947%_ - _%new-id153943153949%_ - _%stx153951%_) - (let* ((_%id153954%_ - (if (eq? _%id153942153947%_ 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:)) - _%id153942153947%_)) - (_%new-id153956%_ - (if (eq? _%new-id153943153949%_ absent-value) + _%id154927154932%_)) + (_%new-id154941%_ + (if (eq? _%new-id154928154934%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id153943153949%_))) + _%new-id154928154934%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self153958%_ - (let ((__obj153992 + (let* ((_%self154943%_ + (let ((__obj154977 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153992 - _%id153954%_ + __obj154977 + _%id154939%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153992 - _%new-id153956%_ + __obj154977 + _%new-id154941%_ '2 '#f '#f)) - __obj153992)) - (__tmp154007 + __obj154977)) + (__tmp154992 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153958%_ _%stx153951%_))))) + (gxc#compile-e__1 _%self154943%_ _%stx154936%_))))) (declare (not safe)) (__call-with-parameters - __tmp154007 + __tmp154992 gxc#current-compile-method - _%self153958%_))))) + _%self154943%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords153965%_ . _%args153966%_) + (lambda (_%@@keywords154950%_ . _%args154951%_) (apply gxc#apply-expression-subst__% - _%@@keywords153965%_ + _%@@keywords154950%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153965%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords154950%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153965%_ + _%@@keywords154950%_ 'new-id: absent-value)) - _%args153966%_))) + _%args154951%_))) (define gxc#apply-expression-subst - (lambda _%args153944153972%_ + (lambda _%args154929154957%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args153944153972%_))) + _%args154929154957%_))) (define gxc#::expression-subst*::t - (let ((__tmp154009 (list gxc#::basic-xform-expression::t)) - (__tmp154008 (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* - __tmp154009 + __tmp154994 '(subst) - __tmp154008 + __tmp154993 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args153938%_ - (apply make-instance gxc#::expression-subst*::t _%$args153938%_))) + (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 ((__tmp154010 + (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 __tmp154010))) + (__make-promise __tmp154995))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords153912%_ _%subst153909153913%_ _%stx153915%_) - (let ((_%subst153918%_ - (if (eq? _%subst153909153913%_ absent-value) + (lambda (_%@@keywords154897%_ _%subst154894154898%_ _%stx154900%_) + (let ((_%subst154903%_ + (if (eq? _%subst154894154898%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst153909153913%_))) + _%subst154894154898%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self153920%_ - (let ((__obj153994 + (let* ((_%self154905%_ + (let ((__obj154979 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153994 - _%subst153918%_ + __obj154979 + _%subst154903%_ '1 '#f '#f)) - __obj153994)) - (__tmp154011 + __obj154979)) + (__tmp154996 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153920%_ _%stx153915%_))))) + (gxc#compile-e__1 _%self154905%_ _%stx154900%_))))) (declare (not safe)) (__call-with-parameters - __tmp154011 + __tmp154996 gxc#current-compile-method - _%self153920%_))))) + _%self154905%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords153927%_ . _%args153928%_) + (lambda (_%@@keywords154912%_ . _%args154913%_) (apply gxc#apply-expression-subst*__% - _%@@keywords153927%_ + _%@@keywords154912%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153927%_ + _%@@keywords154912%_ 'subst: absent-value)) - _%args153928%_))) + _%args154913%_))) (define gxc#apply-expression-subst* - (lambda _%args153910153934%_ + (lambda _%args154895154919%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args153910153934%_))) + _%args154895154919%_))) (define gxc#::find-expression::t - (let ((__tmp154012 (list gxc#::false-expression::t))) + (let ((__tmp154997 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp154012 + __tmp154997 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args153905%_ - (apply make-instance gxc#::find-expression::t _%$args153905%_))) + (lambda _%$args154890%_ + (apply make-instance gxc#::find-expression::t _%$args154890%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp154013 + (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 __tmp154013))) + (__make-promise __tmp154998))) (define gxc#::find-var-refs::t - (let ((__tmp154015 (list gxc#::find-expression::t)) - (__tmp154014 (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 - __tmp154015 + __tmp155000 '(ids) - __tmp154014 + __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 _%$args153901%_ - (apply make-instance gxc#::find-var-refs::t _%$args153901%_))) + (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 ((__tmp154016 + (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 __tmp154016))) + (__make-promise __tmp155001))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords153875%_ _%ids153872153876%_ _%stx153878%_) - (let ((_%ids153881%_ - (if (eq? _%ids153872153876%_ absent-value) + (lambda (_%@@keywords154860%_ _%ids154857154861%_ _%stx154863%_) + (let ((_%ids154866%_ + (if (eq? _%ids154857154861%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids153872153876%_))) + _%ids154857154861%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self153883%_ - (let ((__obj153997 + (let* ((_%self154868%_ + (let ((__obj154982 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153997 - _%ids153881%_ + __obj154982 + _%ids154866%_ '1 '#f '#f)) - __obj153997)) - (__tmp154017 + __obj154982)) + (__tmp155002 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153883%_ _%stx153878%_))))) + (gxc#compile-e__1 _%self154868%_ _%stx154863%_))))) (declare (not safe)) (__call-with-parameters - __tmp154017 + __tmp155002 gxc#current-compile-method - _%self153883%_))))) + _%self154868%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords153890%_ . _%args153891%_) + (lambda (_%@@keywords154875%_ . _%args154876%_) (apply gxc#apply-find-var-refs__% - _%@@keywords153890%_ + _%@@keywords154875%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153890%_ 'ids: absent-value)) - _%args153891%_))) + (symbolic-table-ref _%@@keywords154875%_ 'ids: absent-value)) + _%args154876%_))) (define gxc#apply-find-var-refs - (lambda _%args153873153897%_ + (lambda _%args154858154882%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args153873153897%_))) + _%args154858154882%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp154019 (list gxc#::collect-expression-refs::t)) - (__tmp154018 (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 - __tmp154019 + __tmp155004 '() - __tmp154018 + __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 _%$args153868%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args153868%_))) + (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 ((__tmp154020 + (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 __tmp154020))) + (__make-promise __tmp155005))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords153842%_ _%table153839153843%_ _%stx153845%_) - (let ((_%table153848%_ - (if (eq? _%table153839153843%_ absent-value) + (lambda (_%@@keywords154827%_ _%table154824154828%_ _%stx154830%_) + (let ((_%table154833%_ + (if (eq? _%table154824154828%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table153839153843%_))) + _%table154824154828%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self153850%_ - (let ((__obj153999 + (let* ((_%self154835%_ + (let ((__obj154984 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153999 - _%table153848%_ + __obj154984 + _%table154833%_ '1 '#f '#f)) - __obj153999)) - (__tmp154021 + __obj154984)) + (__tmp155006 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153850%_ _%stx153845%_))))) + (gxc#compile-e__1 _%self154835%_ _%stx154830%_))))) (declare (not safe)) (__call-with-parameters - __tmp154021 + __tmp155006 gxc#current-compile-method - _%self153850%_))))) + _%self154835%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords153857%_ . _%args153858%_) + (lambda (_%@@keywords154842%_ . _%args154843%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords153857%_ + _%@@keywords154842%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153857%_ + _%@@keywords154842%_ 'table: absent-value)) - _%args153858%_))) + _%args154843%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args153840153864%_ + (lambda _%args154825154849%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args153840153864%_))) + _%args154825154849%_))) (define gxc#collect-mutators-setq% - (lambda (_%self153768%_ _%stx153769%_) - (let* ((_%g153771153788%_ - (lambda (_%g153772153785%_) + (lambda (_%self154753%_ _%stx154754%_) + (let* ((_%g154756154773%_ + (lambda (_%g154757154770%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153772153785%_)))) - (_%g153770153835%_ - (lambda (_%g153772153791%_) + _%g154757154770%_)))) + (_%g154755154820%_ + (lambda (_%g154757154776%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153772153791%_)) - (let ((_%e153775153793%_ + (gx#stx-pair? _%g154757154776%_)) + (let ((_%e154760154778%_ (let () (declare (not safe)) - (gx#stx-e _%g153772153791%_)))) - (let ((_%hd153776153796%_ + (gx#stx-e _%g154757154776%_)))) + (let ((_%hd154761154781%_ (let () (declare (not safe)) - (##car _%e153775153793%_))) - (_%tl153777153798%_ + (##car _%e154760154778%_))) + (_%tl154762154783%_ (let () (declare (not safe)) - (##cdr _%e153775153793%_)))) + (##cdr _%e154760154778%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153777153798%_)) - (let ((_%e153778153801%_ + (gx#stx-pair? _%tl154762154783%_)) + (let ((_%e154763154786%_ (let () (declare (not safe)) - (gx#stx-e _%tl153777153798%_)))) - (let ((_%hd153779153804%_ + (gx#stx-e _%tl154762154783%_)))) + (let ((_%hd154764154789%_ (let () (declare (not safe)) - (##car _%e153778153801%_))) - (_%tl153780153806%_ + (##car _%e154763154786%_))) + (_%tl154765154791%_ (let () (declare (not safe)) - (##cdr _%e153778153801%_)))) + (##cdr _%e154763154786%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153780153806%_)) - (let ((_%e153781153809%_ + (gx#stx-pair? _%tl154765154791%_)) + (let ((_%e154766154794%_ (let () (declare (not safe)) - (gx#stx-e _%tl153780153806%_)))) - (let ((_%hd153782153812%_ + (gx#stx-e _%tl154765154791%_)))) + (let ((_%hd154767154797%_ (let () (declare (not safe)) - (##car _%e153781153809%_))) - (_%tl153783153814%_ + (##car _%e154766154794%_))) + (_%tl154768154799%_ (let () (declare (not safe)) - (##cdr _%e153781153809%_)))) + (##cdr _%e154766154794%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153783153814%_)) - ((lambda (_%L153817%_ - _%L153818%_) - (let ((_%sym153833%_ + _%tl154768154799%_)) + ((lambda (_%L154802%_ + _%L154803%_) + (let ((_%sym154818%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153818%_)))) + _%L154803%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym153833%_)) - (let ((__tmp154022 + _%sym154818%_)) + (let ((__tmp155007 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp154022 - _%sym153833%_ + __tmp155007 + _%sym154818%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153768%_ - _%L153817%_)))) - _%hd153782153812%_ - _%hd153779153804%_) - (_%g153771153788%_ - _%g153772153791%_)))) - (_%g153771153788%_ _%g153772153791%_)))) - (_%g153771153788%_ _%g153772153791%_)))) - (_%g153771153788%_ _%g153772153791%_))))) - (_%g153770153835%_ _%stx153769%_)))) + _%self154753%_ + _%L154802%_)))) + _%hd154767154797%_ + _%hd154764154789%_) + (_%g154756154773%_ + _%g154757154776%_)))) + (_%g154756154773%_ _%g154757154776%_)))) + (_%g154756154773%_ _%g154757154776%_)))) + (_%g154756154773%_ _%g154757154776%_))))) + (_%g154755154820%_ _%stx154754%_)))) (define gxc#expression-subst-ref% - (lambda (_%self153716%_ _%stx153717%_) - (let* ((_%g153719153732%_ - (lambda (_%g153720153729%_) + (lambda (_%self154701%_ _%stx154702%_) + (let* ((_%g154704154717%_ + (lambda (_%g154705154714%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153720153729%_)))) - (_%g153718153765%_ - (lambda (_%g153720153735%_) + _%g154705154714%_)))) + (_%g154703154750%_ + (lambda (_%g154705154720%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153720153735%_)) - (let ((_%e153722153737%_ + (gx#stx-pair? _%g154705154720%_)) + (let ((_%e154707154722%_ (let () (declare (not safe)) - (gx#stx-e _%g153720153735%_)))) - (let ((_%hd153723153740%_ + (gx#stx-e _%g154705154720%_)))) + (let ((_%hd154708154725%_ (let () (declare (not safe)) - (##car _%e153722153737%_))) - (_%tl153724153742%_ + (##car _%e154707154722%_))) + (_%tl154709154727%_ (let () (declare (not safe)) - (##cdr _%e153722153737%_)))) + (##cdr _%e154707154722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153724153742%_)) - (let ((_%e153725153745%_ + (gx#stx-pair? _%tl154709154727%_)) + (let ((_%e154710154730%_ (let () (declare (not safe)) - (gx#stx-e _%tl153724153742%_)))) - (let ((_%hd153726153748%_ + (gx#stx-e _%tl154709154727%_)))) + (let ((_%hd154711154733%_ (let () (declare (not safe)) - (##car _%e153725153745%_))) - (_%tl153727153750%_ + (##car _%e154710154730%_))) + (_%tl154712154735%_ (let () (declare (not safe)) - (##cdr _%e153725153745%_)))) + (##cdr _%e154710154730%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153727153750%_)) - ((lambda (_%L153753%_) - (if (let ((__tmp154023 + (gx#stx-null? _%tl154712154735%_)) + ((lambda (_%L154738%_) + (if (let ((__tmp155008 (let () (declare (not safe)) (slot-ref__0 - _%self153716%_ + _%self154701%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L153753%_ - __tmp154023)) - (let ((__tmp154024 + _%L154738%_ + __tmp155008)) + (let ((__tmp155009 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self153716%_ 'new-id)) + (slot-ref__0 _%self154701%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp154024 - _%stx153717%_)) - _%stx153717%_)) - _%hd153726153748%_) - (_%g153719153732%_ _%g153720153735%_)))) - (_%g153719153732%_ _%g153720153735%_)))) - (_%g153719153732%_ _%g153720153735%_))))) - (_%g153718153765%_ _%stx153717%_)))) + __tmp155009 + _%stx154702%_)) + _%stx154702%_)) + _%hd154711154733%_) + (_%g154704154717%_ _%g154705154720%_)))) + (_%g154704154717%_ _%g154705154720%_)))) + (_%g154704154717%_ _%g154705154720%_))))) + (_%g154703154750%_ _%stx154702%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self153656%_ _%stx153657%_) - (let* ((_%g153659153672%_ - (lambda (_%g153660153669%_) + (lambda (_%self154641%_ _%stx154642%_) + (let* ((_%g154644154657%_ + (lambda (_%g154645154654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153660153669%_)))) - (_%g153658153713%_ - (lambda (_%g153660153675%_) + _%g154645154654%_)))) + (_%g154643154698%_ + (lambda (_%g154645154660%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153660153675%_)) - (let ((_%e153662153677%_ + (gx#stx-pair? _%g154645154660%_)) + (let ((_%e154647154662%_ (let () (declare (not safe)) - (gx#stx-e _%g153660153675%_)))) - (let ((_%hd153663153680%_ + (gx#stx-e _%g154645154660%_)))) + (let ((_%hd154648154665%_ (let () (declare (not safe)) - (##car _%e153662153677%_))) - (_%tl153664153682%_ + (##car _%e154647154662%_))) + (_%tl154649154667%_ (let () (declare (not safe)) - (##cdr _%e153662153677%_)))) + (##cdr _%e154647154662%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153664153682%_)) - (let ((_%e153665153685%_ + (gx#stx-pair? _%tl154649154667%_)) + (let ((_%e154650154670%_ (let () (declare (not safe)) - (gx#stx-e _%tl153664153682%_)))) - (let ((_%hd153666153688%_ + (gx#stx-e _%tl154649154667%_)))) + (let ((_%hd154651154673%_ (let () (declare (not safe)) - (##car _%e153665153685%_))) - (_%tl153667153690%_ + (##car _%e154650154670%_))) + (_%tl154652154675%_ (let () (declare (not safe)) - (##cdr _%e153665153685%_)))) + (##cdr _%e154650154670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153667153690%_)) - ((lambda (_%L153693%_) - (let ((_%$e153707%_ - (let ((__tmp154026 - (lambda (_%sub153705%_) - (let ((__tmp154027 - (car _%sub153705%_))) + (gx#stx-null? _%tl154652154675%_)) + ((lambda (_%L154678%_) + (let ((_%$e154692%_ + (let ((__tmp155011 + (lambda (_%sub154690%_) + (let ((__tmp155012 + (car _%sub154690%_))) (declare (not safe)) (gx#free-identifier=? - _%L153693%_ - __tmp154027)))) - (__tmp154025 + _%L154678%_ + __tmp155012)))) + (__tmp155010 (let () (declare (not safe)) (slot-ref__0 - _%self153656%_ + _%self154641%_ 'subst)))) (declare (not safe)) - (__find __tmp154026 - __tmp154025)))) - (if _%$e153707%_ - ((lambda (_%sub153710%_) - (let ((__tmp154028 + (__find __tmp155011 + __tmp155010)))) + (if _%$e154692%_ + ((lambda (_%sub154695%_) + (let ((__tmp155013 (cons '%#ref - (cons (cdr _%sub153710%_) + (cons (cdr _%sub154695%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp154028 - _%stx153657%_))) - _%$e153707%_) - _%stx153657%_))) - _%hd153666153688%_) - (_%g153659153672%_ _%g153660153675%_)))) - (_%g153659153672%_ _%g153660153675%_)))) - (_%g153659153672%_ _%g153660153675%_))))) - (_%g153658153713%_ _%stx153657%_)))) + __tmp155013 + _%stx154642%_))) + _%$e154692%_) + _%stx154642%_))) + _%hd154651154673%_) + (_%g154644154657%_ _%g154645154660%_)))) + (_%g154644154657%_ _%g154645154660%_)))) + (_%g154644154657%_ _%g154645154660%_))))) + (_%g154643154698%_ _%stx154642%_)))) (define gxc#expression-subst-setq% - (lambda (_%self153585%_ _%stx153586%_) - (let* ((_%g153588153605%_ - (lambda (_%g153589153602%_) + (lambda (_%self154570%_ _%stx154571%_) + (let* ((_%g154573154590%_ + (lambda (_%g154574154587%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153589153602%_)))) - (_%g153587153653%_ - (lambda (_%g153589153608%_) + _%g154574154587%_)))) + (_%g154572154638%_ + (lambda (_%g154574154593%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153589153608%_)) - (let ((_%e153592153610%_ + (gx#stx-pair? _%g154574154593%_)) + (let ((_%e154577154595%_ (let () (declare (not safe)) - (gx#stx-e _%g153589153608%_)))) - (let ((_%hd153593153613%_ + (gx#stx-e _%g154574154593%_)))) + (let ((_%hd154578154598%_ (let () (declare (not safe)) - (##car _%e153592153610%_))) - (_%tl153594153615%_ + (##car _%e154577154595%_))) + (_%tl154579154600%_ (let () (declare (not safe)) - (##cdr _%e153592153610%_)))) + (##cdr _%e154577154595%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153594153615%_)) - (let ((_%e153595153618%_ + (gx#stx-pair? _%tl154579154600%_)) + (let ((_%e154580154603%_ (let () (declare (not safe)) - (gx#stx-e _%tl153594153615%_)))) - (let ((_%hd153596153621%_ + (gx#stx-e _%tl154579154600%_)))) + (let ((_%hd154581154606%_ (let () (declare (not safe)) - (##car _%e153595153618%_))) - (_%tl153597153623%_ + (##car _%e154580154603%_))) + (_%tl154582154608%_ (let () (declare (not safe)) - (##cdr _%e153595153618%_)))) + (##cdr _%e154580154603%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153597153623%_)) - (let ((_%e153598153626%_ + (gx#stx-pair? _%tl154582154608%_)) + (let ((_%e154583154611%_ (let () (declare (not safe)) - (gx#stx-e _%tl153597153623%_)))) - (let ((_%hd153599153629%_ + (gx#stx-e _%tl154582154608%_)))) + (let ((_%hd154584154614%_ (let () (declare (not safe)) - (##car _%e153598153626%_))) - (_%tl153600153631%_ + (##car _%e154583154611%_))) + (_%tl154585154616%_ (let () (declare (not safe)) - (##cdr _%e153598153626%_)))) + (##cdr _%e154583154611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153600153631%_)) - ((lambda (_%L153634%_ - _%L153635%_) - (let ((_%new-expr153650%_ + _%tl154585154616%_)) + ((lambda (_%L154619%_ + _%L154620%_) + (let ((_%new-expr154635%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153585%_ - _%L153634%_))) - (_%new-xid153651%_ - (if (let ((__tmp154029 + _%self154570%_ + _%L154619%_))) + (_%new-xid154636%_ + (if (let ((__tmp155014 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self153585%_ 'id)))) + (slot-ref__0 _%self154570%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L153635%_ __tmp154029)) + (gx#free-identifier=? _%L154620%_ __tmp155014)) (let () (declare (not safe)) - (slot-ref__0 _%self153585%_ 'new-id)) - _%L153635%_))) + (slot-ref__0 _%self154570%_ 'new-id)) + _%L154620%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp154030 + (let ((__tmp155015 (cons '%#set! - (cons _%new-xid153651%_ + (cons _%new-xid154636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153650%_ '()))))) + (cons _%new-expr154635%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp154030 - _%stx153586%_)))) - _%hd153599153629%_ - _%hd153596153621%_) - (_%g153588153605%_ - _%g153589153608%_)))) - (_%g153588153605%_ _%g153589153608%_)))) - (_%g153588153605%_ _%g153589153608%_)))) - (_%g153588153605%_ _%g153589153608%_))))) - (_%g153587153653%_ _%stx153586%_)))) + __tmp155015 + _%stx154571%_)))) + _%hd154584154614%_ + _%hd154581154606%_) + (_%g154573154590%_ + _%g154574154593%_)))) + (_%g154573154590%_ _%g154574154593%_)))) + (_%g154573154590%_ _%g154574154593%_)))) + (_%g154573154590%_ _%g154574154593%_))))) + (_%g154572154638%_ _%stx154571%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self153508%_ _%stx153509%_) - (let* ((_%g153511153528%_ - (lambda (_%g153512153525%_) + (lambda (_%self154493%_ _%stx154494%_) + (let* ((_%g154496154513%_ + (lambda (_%g154497154510%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153512153525%_)))) - (_%g153510153582%_ - (lambda (_%g153512153531%_) + _%g154497154510%_)))) + (_%g154495154567%_ + (lambda (_%g154497154516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153512153531%_)) - (let ((_%e153515153533%_ + (gx#stx-pair? _%g154497154516%_)) + (let ((_%e154500154518%_ (let () (declare (not safe)) - (gx#stx-e _%g153512153531%_)))) - (let ((_%hd153516153536%_ + (gx#stx-e _%g154497154516%_)))) + (let ((_%hd154501154521%_ (let () (declare (not safe)) - (##car _%e153515153533%_))) - (_%tl153517153538%_ + (##car _%e154500154518%_))) + (_%tl154502154523%_ (let () (declare (not safe)) - (##cdr _%e153515153533%_)))) + (##cdr _%e154500154518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153517153538%_)) - (let ((_%e153518153541%_ + (gx#stx-pair? _%tl154502154523%_)) + (let ((_%e154503154526%_ (let () (declare (not safe)) - (gx#stx-e _%tl153517153538%_)))) - (let ((_%hd153519153544%_ + (gx#stx-e _%tl154502154523%_)))) + (let ((_%hd154504154529%_ (let () (declare (not safe)) - (##car _%e153518153541%_))) - (_%tl153520153546%_ + (##car _%e154503154526%_))) + (_%tl154505154531%_ (let () (declare (not safe)) - (##cdr _%e153518153541%_)))) + (##cdr _%e154503154526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153520153546%_)) - (let ((_%e153521153549%_ + (gx#stx-pair? _%tl154505154531%_)) + (let ((_%e154506154534%_ (let () (declare (not safe)) - (gx#stx-e _%tl153520153546%_)))) - (let ((_%hd153522153552%_ + (gx#stx-e _%tl154505154531%_)))) + (let ((_%hd154507154537%_ (let () (declare (not safe)) - (##car _%e153521153549%_))) - (_%tl153523153554%_ + (##car _%e154506154534%_))) + (_%tl154508154539%_ (let () (declare (not safe)) - (##cdr _%e153521153549%_)))) + (##cdr _%e154506154534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153523153554%_)) - ((lambda (_%L153557%_ - _%L153558%_) - (let ((_%new-expr153579%_ + _%tl154508154539%_)) + ((lambda (_%L154542%_ + _%L154543%_) + (let ((_%new-expr154564%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153508%_ - _%L153557%_))) - (_%new-xid153580%_ - (let ((_%$e153575%_ - (let ((__tmp154032 + _%self154493%_ + _%L154542%_))) + (_%new-xid154565%_ + (let ((_%$e154560%_ + (let ((__tmp155017 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub153573%_) - (let ((__tmp154033 (car _%sub153573%_))) + (lambda (_%sub154558%_) + (let ((__tmp155018 (car _%sub154558%_))) (declare (not safe)) (gx#free-identifier=? - _%L153558%_ - __tmp154033)))) - (__tmp154031 + _%L154543%_ + __tmp155018)))) + (__tmp155016 (let () (declare (not safe)) - (slot-ref__0 _%self153508%_ 'subst)))) + (slot-ref__0 _%self154493%_ 'subst)))) (declare (not safe)) - (__find __tmp154032 __tmp154031)))) - (if _%$e153575%_ (cdr _%$e153575%_) _%L153558%_)))) + (__find __tmp155017 __tmp155016)))) + (if _%$e154560%_ (cdr _%$e154560%_) _%L154543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp154034 + (let ((__tmp155019 (cons '%#set! - (cons _%new-xid153580%_ + (cons _%new-xid154565%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153579%_ '()))))) + (cons _%new-expr154564%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp154034 - _%stx153509%_)))) - _%hd153522153552%_ - _%hd153519153544%_) - (_%g153511153528%_ - _%g153512153531%_)))) - (_%g153511153528%_ _%g153512153531%_)))) - (_%g153511153528%_ _%g153512153531%_)))) - (_%g153511153528%_ _%g153512153531%_))))) - (_%g153510153582%_ _%stx153509%_)))) + __tmp155019 + _%stx154494%_)))) + _%hd154507154537%_ + _%hd154504154529%_) + (_%g154496154513%_ + _%g154497154516%_)))) + (_%g154496154513%_ _%g154497154516%_)))) + (_%g154496154513%_ _%g154497154516%_)))) + (_%g154496154513%_ _%g154497154516%_))))) + (_%g154495154567%_ _%stx154494%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self153454%_ _%stx153455%_) - (let* ((_%g153457153470%_ - (lambda (_%g153458153467%_) + (lambda (_%self154439%_ _%stx154440%_) + (let* ((_%g154442154455%_ + (lambda (_%g154443154452%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153458153467%_)))) - (_%g153456153505%_ - (lambda (_%g153458153473%_) + _%g154443154452%_)))) + (_%g154441154490%_ + (lambda (_%g154443154458%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153458153473%_)) - (let ((_%e153460153475%_ + (gx#stx-pair? _%g154443154458%_)) + (let ((_%e154445154460%_ (let () (declare (not safe)) - (gx#stx-e _%g153458153473%_)))) - (let ((_%hd153461153478%_ + (gx#stx-e _%g154443154458%_)))) + (let ((_%hd154446154463%_ (let () (declare (not safe)) - (##car _%e153460153475%_))) - (_%tl153462153480%_ + (##car _%e154445154460%_))) + (_%tl154447154465%_ (let () (declare (not safe)) - (##cdr _%e153460153475%_)))) + (##cdr _%e154445154460%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153462153480%_)) - (let ((_%e153463153483%_ + (gx#stx-pair? _%tl154447154465%_)) + (let ((_%e154448154468%_ (let () (declare (not safe)) - (gx#stx-e _%tl153462153480%_)))) - (let ((_%hd153464153486%_ + (gx#stx-e _%tl154447154465%_)))) + (let ((_%hd154449154471%_ (let () (declare (not safe)) - (##car _%e153463153483%_))) - (_%tl153465153488%_ + (##car _%e154448154468%_))) + (_%tl154450154473%_ (let () (declare (not safe)) - (##cdr _%e153463153483%_)))) + (##cdr _%e154448154468%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153465153488%_)) - ((lambda (_%L153491%_) - (let* ((_%eid153503%_ + (gx#stx-null? _%tl154450154473%_)) + ((lambda (_%L154476%_) + (let* ((_%eid154488%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153491%_))) - (__tmp154035 + _%L154476%_))) + (__tmp155020 (let () (declare (not safe)) (slot-ref__0 - _%self153454%_ + _%self154439%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp154035 - _%eid153503%_ + __tmp155020 + _%eid154488%_ 1+ '0))) - _%hd153464153486%_) - (_%g153457153470%_ _%g153458153473%_)))) - (_%g153457153470%_ _%g153458153473%_)))) - (_%g153457153470%_ _%g153458153473%_))))) - (_%g153456153505%_ _%stx153455%_)))) + _%hd154449154471%_) + (_%g154442154455%_ _%g154443154458%_)))) + (_%g154442154455%_ _%g154443154458%_)))) + (_%g154442154455%_ _%g154443154458%_))))) + (_%g154441154490%_ _%stx154440%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self153384%_ _%stx153385%_) - (let* ((_%g153387153404%_ - (lambda (_%g153388153401%_) + (lambda (_%self154369%_ _%stx154370%_) + (let* ((_%g154372154389%_ + (lambda (_%g154373154386%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153388153401%_)))) - (_%g153386153451%_ - (lambda (_%g153388153407%_) + _%g154373154386%_)))) + (_%g154371154436%_ + (lambda (_%g154373154392%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153388153407%_)) - (let ((_%e153391153409%_ + (gx#stx-pair? _%g154373154392%_)) + (let ((_%e154376154394%_ (let () (declare (not safe)) - (gx#stx-e _%g153388153407%_)))) - (let ((_%hd153392153412%_ + (gx#stx-e _%g154373154392%_)))) + (let ((_%hd154377154397%_ (let () (declare (not safe)) - (##car _%e153391153409%_))) - (_%tl153393153414%_ + (##car _%e154376154394%_))) + (_%tl154378154399%_ (let () (declare (not safe)) - (##cdr _%e153391153409%_)))) + (##cdr _%e154376154394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153393153414%_)) - (let ((_%e153394153417%_ + (gx#stx-pair? _%tl154378154399%_)) + (let ((_%e154379154402%_ (let () (declare (not safe)) - (gx#stx-e _%tl153393153414%_)))) - (let ((_%hd153395153420%_ + (gx#stx-e _%tl154378154399%_)))) + (let ((_%hd154380154405%_ (let () (declare (not safe)) - (##car _%e153394153417%_))) - (_%tl153396153422%_ + (##car _%e154379154402%_))) + (_%tl154381154407%_ (let () (declare (not safe)) - (##cdr _%e153394153417%_)))) + (##cdr _%e154379154402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153396153422%_)) - (let ((_%e153397153425%_ + (gx#stx-pair? _%tl154381154407%_)) + (let ((_%e154382154410%_ (let () (declare (not safe)) - (gx#stx-e _%tl153396153422%_)))) - (let ((_%hd153398153428%_ + (gx#stx-e _%tl154381154407%_)))) + (let ((_%hd154383154413%_ (let () (declare (not safe)) - (##car _%e153397153425%_))) - (_%tl153399153430%_ + (##car _%e154382154410%_))) + (_%tl154384154415%_ (let () (declare (not safe)) - (##cdr _%e153397153425%_)))) + (##cdr _%e154382154410%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153399153430%_)) - ((lambda (_%L153433%_ - _%L153434%_) - (let ((_%eid153449%_ + _%tl154384154415%_)) + ((lambda (_%L154418%_ + _%L154419%_) + (let ((_%eid154434%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153434%_)))) - (let ((__tmp154036 + _%L154419%_)))) + (let ((__tmp155021 (let () (declare (not safe)) (slot-ref__0 - _%self153384%_ + _%self154369%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp154036 - _%eid153449%_ + __tmp155021 + _%eid154434%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153384%_ - _%L153433%_)))) - _%hd153398153428%_ - _%hd153395153420%_) - (_%g153387153404%_ - _%g153388153407%_)))) - (_%g153387153404%_ _%g153388153407%_)))) - (_%g153387153404%_ _%g153388153407%_)))) - (_%g153387153404%_ _%g153388153407%_))))) - (_%g153386153451%_ _%stx153385%_)))) + _%self154369%_ + _%L154418%_)))) + _%hd154383154413%_ + _%hd154380154405%_) + (_%g154372154389%_ + _%g154373154392%_)))) + (_%g154372154389%_ _%g154373154392%_)))) + (_%g154372154389%_ _%g154373154392%_)))) + (_%g154372154389%_ _%g154373154392%_))))) + (_%g154371154436%_ _%stx154370%_)))) (define gxc#find-body% - (lambda (_%self153297%_ _%stx153298%_) - (let* ((_%g153300153319%_ - (lambda (_%g153301153316%_) + (lambda (_%self154282%_ _%stx154283%_) + (let* ((_%g154285154304%_ + (lambda (_%g154286154301%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153301153316%_)))) - (_%g153299153381%_ - (lambda (_%g153301153322%_) + _%g154286154301%_)))) + (_%g154284154366%_ + (lambda (_%g154286154307%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153301153322%_)) - (let ((_%e153303153324%_ + (gx#stx-pair? _%g154286154307%_)) + (let ((_%e154288154309%_ (let () (declare (not safe)) - (gx#stx-e _%g153301153322%_)))) - (let ((_%hd153304153327%_ + (gx#stx-e _%g154286154307%_)))) + (let ((_%hd154289154312%_ (let () (declare (not safe)) - (##car _%e153303153324%_))) - (_%tl153305153329%_ + (##car _%e154288154309%_))) + (_%tl154290154314%_ (let () (declare (not safe)) - (##cdr _%e153303153324%_)))) + (##cdr _%e154288154309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153305153329%_)) - (let ((_g154037_ + (gx#stx-pair/null? _%tl154290154314%_)) + (let ((_g155022_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153305153329%_ + _%tl154290154314%_ '0)))) (begin - (let ((_g154038_ + (let ((_g155023_ (let () (declare (not safe)) - (if (##values? _g154037_) - (##values-length _g154037_) + (if (##values? _g155022_) + (##values-length _g155022_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g154038_ 2))) + (##fx= _g155023_ 2))) (error "Context expects 2 values" - _g154038_))) - (let ((_%target153306153332%_ + _g155023_))) + (let ((_%target154291154317%_ (let () (declare (not safe)) - (##values-ref _g154037_ 0))) - (_%tl153308153334%_ + (##values-ref _g155022_ 0))) + (_%tl154293154319%_ (let () (declare (not safe)) - (##values-ref _g154037_ 1)))) + (##values-ref _g155022_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153308153334%_)) - (letrec ((_%loop153309153337%_ - (lambda (_%hd153307153340%_ - _%expr153313153342%_) + (gx#stx-null? _%tl154293154319%_)) + (letrec ((_%loop154294154322%_ + (lambda (_%hd154292154325%_ + _%expr154298154327%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153307153340%_)) - (let ((_%e153310153345%_ + _%hd154292154325%_)) + (let ((_%e154295154330%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd153307153340%_)))) - (let ((_%lp-hd153311153348%_ + (gx#stx-e _%hd154292154325%_)))) + (let ((_%lp-hd154296154333%_ (let () (declare (not safe)) - (##car _%e153310153345%_))) - (_%lp-tl153312153350%_ + (##car _%e154295154330%_))) + (_%lp-tl154297154335%_ (let () (declare (not safe)) - (##cdr _%e153310153345%_)))) - (_%loop153309153337%_ - _%lp-tl153312153350%_ - (cons _%lp-hd153311153348%_ _%expr153313153342%_)))) - (let ((_%expr153314153353%_ (reverse _%expr153313153342%_))) - ((lambda (_%L153356%_) - (let ((__tmp154041 - (lambda (_%g153369153371%_) + (##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 - _%self153297%_ - _%g153369153371%_)))) - (__tmp154039 - (let ((__tmp154040 - (lambda (_%g153373153376%_ - _%g153374153378%_) - (cons _%g153373153376%_ - _%g153374153378%_)))) + _%self154282%_ + _%g154354154356%_)))) + (__tmp155024 + (let ((__tmp155025 + (lambda (_%g154358154361%_ + _%g154359154363%_) + (cons _%g154358154361%_ + _%g154359154363%_)))) (declare (not safe)) - (__foldr1 __tmp154040 '() _%L153356%_)))) + (__foldr1 __tmp155025 '() _%L154341%_)))) (declare (not safe)) - (__ormap1 __tmp154041 __tmp154039))) - _%expr153314153353%_)))))) + (__ormap1 __tmp155026 __tmp155024))) + _%expr154299154338%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153309153337%_ - _%target153306153332%_ + (_%loop154294154322%_ + _%target154291154317%_ '())) - (_%g153300153319%_ - _%g153301153322%_))))) - (_%g153300153319%_ _%g153301153322%_)))) - (_%g153300153319%_ _%g153301153322%_))))) - (_%g153299153381%_ _%stx153298%_)))) + (_%g154285154304%_ + _%g154286154307%_))))) + (_%g154285154304%_ _%g154286154307%_)))) + (_%g154285154304%_ _%g154286154307%_))))) + (_%g154284154366%_ _%stx154283%_)))) (define gxc#find-let-values% - (lambda (_%self153147%_ _%stx153148%_) - (let* ((_%g153150153185%_ - (lambda (_%g153151153182%_) + (lambda (_%self154132%_ _%stx154133%_) + (let* ((_%g154135154170%_ + (lambda (_%g154136154167%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153151153182%_)))) - (_%g153149153294%_ - (lambda (_%g153151153188%_) + _%g154136154167%_)))) + (_%g154134154279%_ + (lambda (_%g154136154173%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153151153188%_)) - (let ((_%e153155153190%_ + (gx#stx-pair? _%g154136154173%_)) + (let ((_%e154140154175%_ (let () (declare (not safe)) - (gx#stx-e _%g153151153188%_)))) - (let ((_%hd153156153193%_ + (gx#stx-e _%g154136154173%_)))) + (let ((_%hd154141154178%_ (let () (declare (not safe)) - (##car _%e153155153190%_))) - (_%tl153157153195%_ + (##car _%e154140154175%_))) + (_%tl154142154180%_ (let () (declare (not safe)) - (##cdr _%e153155153190%_)))) + (##cdr _%e154140154175%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153157153195%_)) - (let ((_%e153158153198%_ + (gx#stx-pair? _%tl154142154180%_)) + (let ((_%e154143154183%_ (let () (declare (not safe)) - (gx#stx-e _%tl153157153195%_)))) - (let ((_%hd153159153201%_ + (gx#stx-e _%tl154142154180%_)))) + (let ((_%hd154144154186%_ (let () (declare (not safe)) - (##car _%e153158153198%_))) - (_%tl153160153203%_ + (##car _%e154143154183%_))) + (_%tl154145154188%_ (let () (declare (not safe)) - (##cdr _%e153158153198%_)))) + (##cdr _%e154143154183%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd153159153201%_)) - (let ((_g154042_ + (gx#stx-pair/null? _%hd154144154186%_)) + (let ((_g155027_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd153159153201%_ + _%hd154144154186%_ '0)))) (begin - (let ((_g154043_ + (let ((_g155028_ (let () (declare (not safe)) - (if (##values? _g154042_) + (if (##values? _g155027_) (##values-length - _g154042_) + _g155027_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g154043_ 2))) + (##fx= _g155028_ 2))) (error "Context expects 2 values" - _g154043_))) - (let ((_%target153161153206%_ + _g155028_))) + (let ((_%target154146154191%_ (let () (declare (not safe)) - (##values-ref _g154042_ 0))) - (_%tl153163153208%_ + (##values-ref _g155027_ 0))) + (_%tl154148154193%_ (let () (declare (not safe)) (##values-ref - _g154042_ + _g155027_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153163153208%_)) - (letrec ((_%loop153164153211%_ - (lambda (_%hd153162153214%_ + _%tl154148154193%_)) + (letrec ((_%loop154149154196%_ + (lambda (_%hd154147154199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr153168153216%_ - _%bind153169153218%_) + _%expr154153154201%_ + _%bind154154154203%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153162153214%_)) - (let ((_%e153165153221%_ + (gx#stx-pair? _%hd154147154199%_)) + (let ((_%e154150154206%_ (let () (declare (not safe)) - (gx#stx-e _%hd153162153214%_)))) - (let ((_%lp-hd153166153224%_ + (gx#stx-e _%hd154147154199%_)))) + (let ((_%lp-hd154151154209%_ (let () (declare (not safe)) - (##car _%e153165153221%_))) - (_%lp-tl153167153226%_ + (##car _%e154150154206%_))) + (_%lp-tl154152154211%_ (let () (declare (not safe)) - (##cdr _%e153165153221%_)))) + (##cdr _%e154150154206%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153166153224%_)) - (let ((_%e153175153229%_ + (gx#stx-pair? _%lp-hd154151154209%_)) + (let ((_%e154160154214%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd153166153224%_)))) - (let ((_%hd153176153232%_ + (gx#stx-e _%lp-hd154151154209%_)))) + (let ((_%hd154161154217%_ (let () (declare (not safe)) - (##car _%e153175153229%_))) - (_%tl153177153234%_ + (##car _%e154160154214%_))) + (_%tl154162154219%_ (let () (declare (not safe)) - (##cdr _%e153175153229%_)))) + (##cdr _%e154160154214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153177153234%_)) - (let ((_%e153178153237%_ + (gx#stx-pair? _%tl154162154219%_)) + (let ((_%e154163154222%_ (let () (declare (not safe)) (gx#stx-e - _%tl153177153234%_)))) - (let ((_%hd153179153240%_ + _%tl154162154219%_)))) + (let ((_%hd154164154225%_ (let () (declare (not safe)) - (##car _%e153178153237%_))) - (_%tl153180153242%_ + (##car _%e154163154222%_))) + (_%tl154165154227%_ (let () (declare (not safe)) - (##cdr _%e153178153237%_)))) + (##cdr _%e154163154222%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153180153242%_)) - (_%loop153164153211%_ - _%lp-tl153167153226%_ - (cons _%hd153179153240%_ - _%expr153168153216%_) - (cons _%hd153176153232%_ - _%bind153169153218%_)) - (_%g153150153185%_ - _%g153151153188%_)))) - (_%g153150153185%_ - _%g153151153188%_)))) - (_%g153150153185%_ _%g153151153188%_)))) - (let ((_%expr153170153245%_ - (reverse _%expr153168153216%_)) - (_%bind153171153247%_ - (reverse _%bind153169153218%_))) + _%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? _%tl153160153203%_)) - (let ((_%e153172153250%_ + (gx#stx-pair? _%tl154145154188%_)) + (let ((_%e154157154235%_ (let () (declare (not safe)) - (gx#stx-e _%tl153160153203%_)))) - (let ((_%hd153173153253%_ + (gx#stx-e _%tl154145154188%_)))) + (let ((_%hd154158154238%_ (let () (declare (not safe)) - (##car _%e153172153250%_))) - (_%tl153174153255%_ + (##car _%e154157154235%_))) + (_%tl154159154240%_ (let () (declare (not safe)) - (##cdr _%e153172153250%_)))) + (##cdr _%e154157154235%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153174153255%_)) - ((lambda (_%L153258%_ - _%L153259%_ - _%L153260%_) - (let ((_%$e153291%_ - (let ((__tmp154046 - (lambda (_%g153279153281%_) + (gx#stx-null? _%tl154159154240%_)) + ((lambda (_%L154243%_ + _%L154244%_ + _%L154245%_) + (let ((_%$e154276%_ + (let ((__tmp155031 + (lambda (_%g154264154266%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153147%_ - _%g153279153281%_)))) - (__tmp154044 - (let ((__tmp154045 - (lambda (_%g153283153286%_ + _%self154132%_ + _%g154264154266%_)))) + (__tmp155029 + (let ((__tmp155030 + (lambda (_%g154268154271%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g153284153288%_) - (cons _%g153283153286%_ _%g153284153288%_)))) + _%g154269154273%_) + (cons _%g154268154271%_ _%g154269154273%_)))) (declare (not safe)) - (__foldr1 __tmp154045 '() _%L153259%_)))) + (__foldr1 __tmp155030 '() _%L154244%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp154046 - __tmp154044)))) - (if _%$e153291%_ - _%$e153291%_ + __tmp155031 + __tmp155029)))) + (if _%$e154276%_ + _%$e154276%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153147%_ - _%L153258%_))))) - _%hd153173153253%_ - _%expr153170153245%_ - _%bind153171153247%_) - (_%g153150153185%_ _%g153151153188%_)))) - (_%g153150153185%_ _%g153151153188%_))))))) + _%self154132%_ + _%L154243%_))))) + _%hd154158154238%_ + _%expr154155154230%_ + _%bind154156154232%_) + (_%g154135154170%_ _%g154136154173%_)))) + (_%g154135154170%_ _%g154136154173%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153164153211%_ - _%target153161153206%_ + (_%loop154149154196%_ + _%target154146154191%_ '() '())) - (_%g153150153185%_ - _%g153151153188%_))))) - (_%g153150153185%_ _%g153151153188%_)))) - (_%g153150153185%_ _%g153151153188%_)))) - (_%g153150153185%_ _%g153151153188%_))))) - (_%g153149153294%_ _%stx153148%_)))) + (_%g154135154170%_ + _%g154136154173%_))))) + (_%g154135154170%_ _%g154136154173%_)))) + (_%g154135154170%_ _%g154136154173%_)))) + (_%g154135154170%_ _%g154136154173%_))))) + (_%g154134154279%_ _%stx154133%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self153091%_ _%stx153092%_) - (let* ((_%g153094153107%_ - (lambda (_%g153095153104%_) + (lambda (_%self154076%_ _%stx154077%_) + (let* ((_%g154079154092%_ + (lambda (_%g154080154089%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153095153104%_)))) - (_%g153093153144%_ - (lambda (_%g153095153110%_) + _%g154080154089%_)))) + (_%g154078154129%_ + (lambda (_%g154080154095%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153095153110%_)) - (let ((_%e153097153112%_ + (gx#stx-pair? _%g154080154095%_)) + (let ((_%e154082154097%_ (let () (declare (not safe)) - (gx#stx-e _%g153095153110%_)))) - (let ((_%hd153098153115%_ + (gx#stx-e _%g154080154095%_)))) + (let ((_%hd154083154100%_ (let () (declare (not safe)) - (##car _%e153097153112%_))) - (_%tl153099153117%_ + (##car _%e154082154097%_))) + (_%tl154084154102%_ (let () (declare (not safe)) - (##cdr _%e153097153112%_)))) + (##cdr _%e154082154097%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153099153117%_)) - (let ((_%e153100153120%_ + (gx#stx-pair? _%tl154084154102%_)) + (let ((_%e154085154105%_ (let () (declare (not safe)) - (gx#stx-e _%tl153099153117%_)))) - (let ((_%hd153101153123%_ + (gx#stx-e _%tl154084154102%_)))) + (let ((_%hd154086154108%_ (let () (declare (not safe)) - (##car _%e153100153120%_))) - (_%tl153102153125%_ + (##car _%e154085154105%_))) + (_%tl154087154110%_ (let () (declare (not safe)) - (##cdr _%e153100153120%_)))) + (##cdr _%e154085154105%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153102153125%_)) - ((lambda (_%L153128%_) - (let ((__tmp154048 - (lambda (_%g153139153141%_) + (gx#stx-null? _%tl154087154110%_)) + ((lambda (_%L154113%_) + (let ((__tmp155033 + (lambda (_%g154124154126%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L153128%_ - _%g153139153141%_)))) - (__tmp154047 + _%L154113%_ + _%g154124154126%_)))) + (__tmp155032 (let () (declare (not safe)) (slot-ref__0 - _%self153091%_ + _%self154076%_ 'ids)))) (declare (not safe)) - (__find __tmp154048 __tmp154047))) - _%hd153101153123%_) - (_%g153094153107%_ _%g153095153110%_)))) - (_%g153094153107%_ _%g153095153110%_)))) - (_%g153094153107%_ _%g153095153110%_))))) - (_%g153093153144%_ _%stx153092%_)))) + (__find __tmp155033 __tmp155032))) + _%hd154086154108%_) + (_%g154079154092%_ _%g154080154095%_)))) + (_%g154079154092%_ _%g154080154095%_)))) + (_%g154079154092%_ _%g154080154095%_))))) + (_%g154078154129%_ _%stx154077%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self153016%_ _%stx153017%_) - (let* ((_%g153019153036%_ - (lambda (_%g153020153033%_) + (lambda (_%self154001%_ _%stx154002%_) + (let* ((_%g154004154021%_ + (lambda (_%g154005154018%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153020153033%_)))) - (_%g153018153088%_ - (lambda (_%g153020153039%_) + _%g154005154018%_)))) + (_%g154003154073%_ + (lambda (_%g154005154024%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153020153039%_)) - (let ((_%e153023153041%_ + (gx#stx-pair? _%g154005154024%_)) + (let ((_%e154008154026%_ (let () (declare (not safe)) - (gx#stx-e _%g153020153039%_)))) - (let ((_%hd153024153044%_ + (gx#stx-e _%g154005154024%_)))) + (let ((_%hd154009154029%_ (let () (declare (not safe)) - (##car _%e153023153041%_))) - (_%tl153025153046%_ + (##car _%e154008154026%_))) + (_%tl154010154031%_ (let () (declare (not safe)) - (##cdr _%e153023153041%_)))) + (##cdr _%e154008154026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153025153046%_)) - (let ((_%e153026153049%_ + (gx#stx-pair? _%tl154010154031%_)) + (let ((_%e154011154034%_ (let () (declare (not safe)) - (gx#stx-e _%tl153025153046%_)))) - (let ((_%hd153027153052%_ + (gx#stx-e _%tl154010154031%_)))) + (let ((_%hd154012154037%_ (let () (declare (not safe)) - (##car _%e153026153049%_))) - (_%tl153028153054%_ + (##car _%e154011154034%_))) + (_%tl154013154039%_ (let () (declare (not safe)) - (##cdr _%e153026153049%_)))) + (##cdr _%e154011154034%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153028153054%_)) - (let ((_%e153029153057%_ + (gx#stx-pair? _%tl154013154039%_)) + (let ((_%e154014154042%_ (let () (declare (not safe)) - (gx#stx-e _%tl153028153054%_)))) - (let ((_%hd153030153060%_ + (gx#stx-e _%tl154013154039%_)))) + (let ((_%hd154015154045%_ (let () (declare (not safe)) - (##car _%e153029153057%_))) - (_%tl153031153062%_ + (##car _%e154014154042%_))) + (_%tl154016154047%_ (let () (declare (not safe)) - (##cdr _%e153029153057%_)))) + (##cdr _%e154014154042%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153031153062%_)) - ((lambda (_%L153065%_ - _%L153066%_) - (let ((_%$e153085%_ - (let ((__tmp154050 - (lambda (_%g153080153082%_) + _%tl154016154047%_)) + ((lambda (_%L154050%_ + _%L154051%_) + (let ((_%$e154070%_ + (let ((__tmp155035 + (lambda (_%g154065154067%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L153066%_ - _%g153080153082%_)))) - (__tmp154049 + _%L154051%_ + _%g154065154067%_)))) + (__tmp155034 (let () (declare (not safe)) - (slot-ref__0 _%self153016%_ 'ids)))) + (slot-ref__0 _%self154001%_ 'ids)))) (declare (not safe)) - (__find __tmp154050 __tmp154049)))) + (__find __tmp155035 __tmp155034)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e153085%_ - _%$e153085%_ + (if _%$e154070%_ + _%$e154070%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153016%_ - _%L153065%_))))) - _%hd153030153060%_ - _%hd153027153052%_) - (_%g153019153036%_ - _%g153020153039%_)))) - (_%g153019153036%_ _%g153020153039%_)))) - (_%g153019153036%_ _%g153020153039%_)))) - (_%g153019153036%_ _%g153020153039%_))))) - (_%g153018153088%_ _%stx153017%_)))))) + _%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 92e45409f..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]#_g154052_| + (define |gxc[1]#_g155037_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154054_| + (define |gxc[1]#_g155039_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154056_| + (define |gxc[1]#_g155041_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154058_| + (define |gxc[1]#_g155043_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154060_| + (define |gxc[1]#_g155045_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154062_| + (define |gxc[1]#_g155047_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154064_| + (define |gxc[1]#_g155049_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154066_| + (define |gxc[1]#_g155051_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154068_| + (define |gxc[1]#_g155053_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154069_| + (define |gxc[1]#_g155054_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154071_| + (define |gxc[1]#_g155056_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154072_| + (define |gxc[1]#_g155057_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154074_| + (define |gxc[1]#_g155059_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154075_| + (define |gxc[1]#_g155060_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154077_| + (define |gxc[1]#_g155062_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154078_| + (define |gxc[1]#_g155063_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154081_| + (define |gxc[1]#_g155066_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154083_| + (define |gxc[1]#_g155068_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154085_| + (define |gxc[1]#_g155070_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154087_| + (define |gxc[1]#_g155072_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154089_| + (define |gxc[1]#_g155074_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154091_| + (define |gxc[1]#_g155076_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154093_| + (define |gxc[1]#_g155078_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154095_| + (define |gxc[1]#_g155080_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154097_| + (define |gxc[1]#_g155082_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154099_| + (define |gxc[1]#_g155084_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154101_| + (define |gxc[1]#_g155086_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154103_| + (define |gxc[1]#_g155088_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154105_| + (define |gxc[1]#_g155090_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154107_| + (define |gxc[1]#_g155092_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154109_| + (define |gxc[1]#_g155094_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154111_| + (define |gxc[1]#_g155096_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154113_| + (define |gxc[1]#_g155098_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154115_| + (define |gxc[1]#_g155100_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154117_| + (define |gxc[1]#_g155102_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154119_| + (define |gxc[1]#_g155104_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154121_| + (define |gxc[1]#_g155106_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154123_| + (define |gxc[1]#_g155108_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154125_| + (define |gxc[1]#_g155110_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154127_| + (define |gxc[1]#_g155112_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154129_| + (define |gxc[1]#_g155114_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154131_| + (define |gxc[1]#_g155116_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154133_| + (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 ((__obj153989 + (let ((__obj154974 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153989 + __obj154974 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153989 + __obj154974 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '6 '#f '#f)) - (let ((__tmp154051 (cons |gxc[1]#_g154052_| '()))) + (##unchecked-structure-set! __obj154974 '() '6 '#f '#f)) + (let ((__tmp155036 (cons |gxc[1]#_g155037_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153989 __tmp154051 '3 '#f '#f)) + (##unchecked-structure-set! __obj154974 __tmp155036 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154974 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154974 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154974 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '#f '11 '#f '#f)) - (let ((__tmp154053 |gxc[1]#_g154054_|)) + (##unchecked-structure-set! __obj154974 '#f '11 '#f '#f)) + (let ((__tmp155038 |gxc[1]#_g155039_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153989 __tmp154053 '12 '#f '#f)) - (let ((__tmp154055 |gxc[1]#_g154056_|)) + (##unchecked-structure-set! __obj154974 __tmp155038 '12 '#f '#f)) + (let ((__tmp155040 |gxc[1]#_g155041_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153989 __tmp154055 '13 '#f '#f)) - (let ((__tmp154057 |gxc[1]#_g154058_|)) + (##unchecked-structure-set! __obj154974 __tmp155040 '13 '#f '#f)) + (let ((__tmp155042 |gxc[1]#_g155043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153989 __tmp154057 '14 '#f '#f)) + (##unchecked-structure-set! __obj154974 __tmp155042 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153989 '() '20 '#f '#f)) - __obj153989)) + (##unchecked-structure-set! __obj154974 '() '20 '#f '#f)) + __obj154974)) (define |gxc[:0:]#::expression-subst| - (let ((__obj153991 + (let ((__obj154976 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153991 + __obj154976 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153991 + __obj154976 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj154976 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '(id new-id) '6 '#f '#f)) - (let ((__tmp154059 (cons |gxc[1]#_g154060_| '()))) + (##unchecked-structure-set! __obj154976 '(id new-id) '6 '#f '#f)) + (let ((__tmp155044 (cons |gxc[1]#_g155045_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153991 __tmp154059 '3 '#f '#f)) + (##unchecked-structure-set! __obj154976 __tmp155044 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154976 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154976 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154976 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '#f '11 '#f '#f)) - (let ((__tmp154061 |gxc[1]#_g154062_|)) + (##unchecked-structure-set! __obj154976 '#f '11 '#f '#f)) + (let ((__tmp155046 |gxc[1]#_g155047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153991 __tmp154061 '12 '#f '#f)) - (let ((__tmp154063 |gxc[1]#_g154064_|)) + (##unchecked-structure-set! __obj154976 __tmp155046 '12 '#f '#f)) + (let ((__tmp155048 |gxc[1]#_g155049_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153991 __tmp154063 '13 '#f '#f)) - (let ((__tmp154065 |gxc[1]#_g154066_|)) + (##unchecked-structure-set! __obj154976 __tmp155048 '13 '#f '#f)) + (let ((__tmp155050 |gxc[1]#_g155051_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153991 __tmp154065 '14 '#f '#f)) - (let ((__tmp154067 - (cons (cons 'id |gxc[1]#_g154068_|) - (cons (cons 'new-id |gxc[1]#_g154069_|) '())))) + (##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! __obj153991 __tmp154067 '15 '#f '#f)) - (let ((__tmp154070 - (cons (cons 'id |gxc[1]#_g154071_|) - (cons (cons 'new-id |gxc[1]#_g154072_|) '())))) + (##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! __obj153991 __tmp154070 '16 '#f '#f)) - (let ((__tmp154073 - (cons (cons 'id |gxc[1]#_g154074_|) - (cons (cons 'new-id |gxc[1]#_g154075_|) '())))) + (##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! __obj153991 __tmp154073 '17 '#f '#f)) - (let ((__tmp154076 - (cons (cons 'id |gxc[1]#_g154077_|) - (cons (cons 'new-id |gxc[1]#_g154078_|) '())))) + (##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! __obj153991 __tmp154076 '18 '#f '#f)) + (##unchecked-structure-set! __obj154976 __tmp155061 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154976 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154976 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153991 '() '20 '#f '#f)) - __obj153991)) + (##unchecked-structure-set! __obj154976 '() '20 '#f '#f)) + __obj154976)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj153993 + (let ((__obj154978 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153993 + __obj154978 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153993 + __obj154978 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj154978 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '(subst) '6 '#f '#f)) - (let ((__tmp154079 (cons |gxc[1]#_g154060_| '()))) + (##unchecked-structure-set! __obj154978 '(subst) '6 '#f '#f)) + (let ((__tmp155064 (cons |gxc[1]#_g155045_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154079 '3 '#f '#f)) + (##unchecked-structure-set! __obj154978 __tmp155064 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154978 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154978 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154978 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '#f '11 '#f '#f)) - (let ((__tmp154080 |gxc[1]#_g154081_|)) + (##unchecked-structure-set! __obj154978 '#f '11 '#f '#f)) + (let ((__tmp155065 |gxc[1]#_g155066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154080 '12 '#f '#f)) - (let ((__tmp154082 |gxc[1]#_g154083_|)) + (##unchecked-structure-set! __obj154978 __tmp155065 '12 '#f '#f)) + (let ((__tmp155067 |gxc[1]#_g155068_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154082 '13 '#f '#f)) - (let ((__tmp154084 |gxc[1]#_g154085_|)) + (##unchecked-structure-set! __obj154978 __tmp155067 '13 '#f '#f)) + (let ((__tmp155069 |gxc[1]#_g155070_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154084 '14 '#f '#f)) - (let ((__tmp154086 (cons (cons 'subst |gxc[1]#_g154087_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155069 '14 '#f '#f)) + (let ((__tmp155071 (cons (cons 'subst |gxc[1]#_g155072_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154086 '15 '#f '#f)) - (let ((__tmp154088 (cons (cons 'subst |gxc[1]#_g154089_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155071 '15 '#f '#f)) + (let ((__tmp155073 (cons (cons 'subst |gxc[1]#_g155074_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154088 '16 '#f '#f)) - (let ((__tmp154090 (cons (cons 'subst |gxc[1]#_g154091_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155073 '16 '#f '#f)) + (let ((__tmp155075 (cons (cons 'subst |gxc[1]#_g155076_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154090 '17 '#f '#f)) - (let ((__tmp154092 (cons (cons 'subst |gxc[1]#_g154093_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155075 '17 '#f '#f)) + (let ((__tmp155077 (cons (cons 'subst |gxc[1]#_g155078_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153993 __tmp154092 '18 '#f '#f)) + (##unchecked-structure-set! __obj154978 __tmp155077 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154978 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154978 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153993 '() '20 '#f '#f)) - __obj153993)) + (##unchecked-structure-set! __obj154978 '() '20 '#f '#f)) + __obj154978)) (define |gxc[:0:]#::find-expression| - (let ((__obj153995 + (let ((__obj154980 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153995 + __obj154980 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153995 + __obj154980 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '6 '#f '#f)) - (let ((__tmp154094 (cons |gxc[1]#_g154095_| '()))) + (##unchecked-structure-set! __obj154980 '() '6 '#f '#f)) + (let ((__tmp155079 (cons |gxc[1]#_g155080_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153995 __tmp154094 '3 '#f '#f)) + (##unchecked-structure-set! __obj154980 __tmp155079 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154980 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj154980 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154980 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '#f '11 '#f '#f)) - (let ((__tmp154096 |gxc[1]#_g154097_|)) + (##unchecked-structure-set! __obj154980 '#f '11 '#f '#f)) + (let ((__tmp155081 |gxc[1]#_g155082_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153995 __tmp154096 '12 '#f '#f)) - (let ((__tmp154098 |gxc[1]#_g154099_|)) + (##unchecked-structure-set! __obj154980 __tmp155081 '12 '#f '#f)) + (let ((__tmp155083 |gxc[1]#_g155084_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153995 __tmp154098 '13 '#f '#f)) - (let ((__tmp154100 |gxc[1]#_g154101_|)) + (##unchecked-structure-set! __obj154980 __tmp155083 '13 '#f '#f)) + (let ((__tmp155085 |gxc[1]#_g155086_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153995 __tmp154100 '14 '#f '#f)) + (##unchecked-structure-set! __obj154980 __tmp155085 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153995 '() '20 '#f '#f)) - __obj153995)) + (##unchecked-structure-set! __obj154980 '() '20 '#f '#f)) + __obj154980)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj153996 + (let ((__obj154981 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153996 + __obj154981 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj154981 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj154981 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '(ids) '6 '#f '#f)) - (let ((__tmp154102 (cons |gxc[1]#_g154103_| '()))) + (##unchecked-structure-set! __obj154981 '(ids) '6 '#f '#f)) + (let ((__tmp155087 (cons |gxc[1]#_g155088_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154102 '3 '#f '#f)) + (##unchecked-structure-set! __obj154981 __tmp155087 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154981 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154981 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154981 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '#f '11 '#f '#f)) - (let ((__tmp154104 |gxc[1]#_g154105_|)) + (##unchecked-structure-set! __obj154981 '#f '11 '#f '#f)) + (let ((__tmp155089 |gxc[1]#_g155090_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154104 '12 '#f '#f)) - (let ((__tmp154106 |gxc[1]#_g154107_|)) + (##unchecked-structure-set! __obj154981 __tmp155089 '12 '#f '#f)) + (let ((__tmp155091 |gxc[1]#_g155092_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154106 '13 '#f '#f)) - (let ((__tmp154108 |gxc[1]#_g154109_|)) + (##unchecked-structure-set! __obj154981 __tmp155091 '13 '#f '#f)) + (let ((__tmp155093 |gxc[1]#_g155094_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154108 '14 '#f '#f)) - (let ((__tmp154110 (cons (cons 'ids |gxc[1]#_g154111_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155093 '14 '#f '#f)) + (let ((__tmp155095 (cons (cons 'ids |gxc[1]#_g155096_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154110 '15 '#f '#f)) - (let ((__tmp154112 (cons (cons 'ids |gxc[1]#_g154113_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155095 '15 '#f '#f)) + (let ((__tmp155097 (cons (cons 'ids |gxc[1]#_g155098_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154112 '16 '#f '#f)) - (let ((__tmp154114 (cons (cons 'ids |gxc[1]#_g154115_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155097 '16 '#f '#f)) + (let ((__tmp155099 (cons (cons 'ids |gxc[1]#_g155100_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154114 '17 '#f '#f)) - (let ((__tmp154116 (cons (cons 'ids |gxc[1]#_g154117_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155099 '17 '#f '#f)) + (let ((__tmp155101 (cons (cons 'ids |gxc[1]#_g155102_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153996 __tmp154116 '18 '#f '#f)) + (##unchecked-structure-set! __obj154981 __tmp155101 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154981 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154981 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153996 '() '20 '#f '#f)) - __obj153996)) + (##unchecked-structure-set! __obj154981 '() '20 '#f '#f)) + __obj154981)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj153998 + (let ((__obj154983 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153998 + __obj154983 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153998 + __obj154983 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj154983 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '(table) '6 '#f '#f)) - (let ((__tmp154118 (cons |gxc[1]#_g154119_| '()))) + (##unchecked-structure-set! __obj154983 '(table) '6 '#f '#f)) + (let ((__tmp155103 (cons |gxc[1]#_g155104_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154118 '3 '#f '#f)) + (##unchecked-structure-set! __obj154983 __tmp155103 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154983 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154983 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154983 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '#f '11 '#f '#f)) - (let ((__tmp154120 |gxc[1]#_g154121_|)) + (##unchecked-structure-set! __obj154983 '#f '11 '#f '#f)) + (let ((__tmp155105 |gxc[1]#_g155106_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154120 '12 '#f '#f)) - (let ((__tmp154122 |gxc[1]#_g154123_|)) + (##unchecked-structure-set! __obj154983 __tmp155105 '12 '#f '#f)) + (let ((__tmp155107 |gxc[1]#_g155108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154122 '13 '#f '#f)) - (let ((__tmp154124 |gxc[1]#_g154125_|)) + (##unchecked-structure-set! __obj154983 __tmp155107 '13 '#f '#f)) + (let ((__tmp155109 |gxc[1]#_g155110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154124 '14 '#f '#f)) - (let ((__tmp154126 (cons (cons 'table |gxc[1]#_g154127_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155109 '14 '#f '#f)) + (let ((__tmp155111 (cons (cons 'table |gxc[1]#_g155112_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154126 '15 '#f '#f)) - (let ((__tmp154128 (cons (cons 'table |gxc[1]#_g154129_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155111 '15 '#f '#f)) + (let ((__tmp155113 (cons (cons 'table |gxc[1]#_g155114_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154128 '16 '#f '#f)) - (let ((__tmp154130 (cons (cons 'table |gxc[1]#_g154131_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155113 '16 '#f '#f)) + (let ((__tmp155115 (cons (cons 'table |gxc[1]#_g155116_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154130 '17 '#f '#f)) - (let ((__tmp154132 (cons (cons 'table |gxc[1]#_g154133_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155115 '17 '#f '#f)) + (let ((__tmp155117 (cons (cons 'table |gxc[1]#_g155118_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153998 __tmp154132 '18 '#f '#f)) + (##unchecked-structure-set! __obj154983 __tmp155117 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154983 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154983 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153998 '() '20 '#f '#f)) - __obj153998)))) + (##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 d33cd5616..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 1734131754) + (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 ((__tmp200854 - (let ((__obj200848 + (let ((__tmp201839 + (let ((__obj201833 (let () (declare (not safe)) (##structure @@ -18,17 +18,17 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj200848)) - __obj200848))) + (gxc#optimizer-info:::init! __obj201833)) + __obj201833))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp200854))))) + (gxc#current-compile-optimizer-info __tmp201839))))) (define gxc#optimize! - (lambda (_%ctx200457%_) - (let ((__tmp200857 + (lambda (_%ctx201442%_) + (let ((__tmp201842 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx200457%_) - (gxc#optimizer-load-ssxi-deps _%ctx200457%_) - (let ((__tmp200859 + (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)) - (__tmp200858 + (__tmp201843 (##structure-ref - _%ctx200457%_ + _%ctx201442%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp200859 __tmp200858 '#t)) - (let ((_%code200460%_ + (hash-put! __tmp201844 __tmp201843 '#t)) + (let ((_%code201445%_ (gxc#optimize-source (##structure-ref - _%ctx200457%_ + _%ctx201442%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx200457%_ - _%code200460%_ + _%ctx201442%_ + _%code201445%_ '11 gx#module-context::t '#f)))) - (__tmp200856 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp200855 (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 - __tmp200857 + __tmp201842 gxc#current-compile-mutators - __tmp200856 + __tmp201841 gxc#current-compile-local-type - __tmp200855)))) + __tmp201840)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx200443%_) - (letrec ((_%load-it!200445%_ - (lambda (_%id200455%_) - (if (let ((__tmp200860 + (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 __tmp200860 _%id200455%_)) + (hash-get __tmp201845 _%id201440%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id200455%_) - (let ((__tmp200861 + (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! __tmp200861 _%id200455%_ '#t))))))) - (let* ((_%modid200447%_ + (hash-put! __tmp201846 _%id201440%_ '#t))))))) + (let* ((_%modid201432%_ (##structure-ref - _%ctx200443%_ + _%ctx201428%_ '1 gx#expander-context::t '#f)) - (_%modid-str200449%_ (symbol->string _%modid200447%_))) + (_%modid-str201434%_ (symbol->string _%modid201432%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str200449%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str201434%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str200449%_))) + (##string-prefix? '"gerbil/core" _%modid-str201434%_))) (let () (declare (not safe)) (##for-each - _%load-it!200445%_ + _%load-it!201430%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!200445%_ + _%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 (_%ctx200380%_) - (letrec* ((_%deps200382%_ - (let* ((_%imports200433%_ + (lambda (_%ctx201365%_) + (letrec* ((_%deps201367%_ + (let* ((_%imports201418%_ (##structure-ref - _%ctx200380%_ + _%ctx201365%_ '8 gx#module-context::t '#f)) - (_%$e200435%_ + (_%$e201420%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx200380%_)))) - (if _%$e200435%_ - ((lambda (_%g200437200439%_) - (cons _%g200437200439%_ _%imports200433%_)) - _%$e200435%_) - _%imports200433%_)))) - (let _%lp200384%_ ((_%rest200386%_ _%deps200382%_)) - (let* ((_%rest200387200395%_ _%rest200386%_) - (_%else200389200403%_ (lambda () '#!void)) - (_%K200391200421%_ - (lambda (_%rest200406%_ _%hd200407%_) + (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? - _%hd200407%_ + _%hd201392%_ 'gx#module-context::t)) (let () - (if (let ((__tmp200863 + (if (let ((__tmp201848 (##structure-ref (let () (declare (not safe)) @@ -172,52 +172,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200862 + (__tmp201847 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200863 __tmp200862)) + (hash-get __tmp201848 __tmp201847)) '#!void (begin - (let ((_%$e200410%_ + (let ((_%$e201395%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd200407%_)))) - (if _%$e200410%_ - ((lambda (_%pre200413%_) - (_%lp200384%_ - (cons _%pre200413%_ + _%hd201392%_)))) + (if _%$e201395%_ + ((lambda (_%pre201398%_) + (_%lp201369%_ + (cons _%pre201398%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '8 '#f '#f))))) - _%$e200410%_) - (_%lp200384%_ + _%$e201395%_) + (_%lp201369%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd200407%_))) - (_%lp200384%_ _%rest200406%_)) + (gxc#optimizer-load-ssxi _%hd201392%_))) + (_%lp201369%_ _%rest201391%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200407%_ + _%hd201392%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp200865 + (if (let ((__tmp201850 (##structure-ref (let () (declare (not safe)) @@ -225,103 +225,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200864 + (__tmp201849 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200865 __tmp200864)) + (hash-get __tmp201850 __tmp201849)) '#!void (begin - (_%lp200384%_ + (_%lp201369%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd200407%_))) - (_%lp200384%_ _%rest200406%_)) + (gxc#optimizer-load-ssxi _%hd201392%_))) + (_%lp201369%_ _%rest201391%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200407%_ + _%hd201392%_ 'gx#module-import::t)) - (_%lp200384%_ + (_%lp201369%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '1 '#f '#f)) - _%rest200406%_)) + _%rest201391%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200407%_ + _%hd201392%_ 'gx#module-export::t)) - (_%lp200384%_ + (_%lp201369%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '1 '#f '#f)) - _%rest200406%_)) + _%rest201391%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200407%_ + _%hd201392%_ 'gx#import-set::t)) - (_%lp200384%_ + (_%lp201369%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200407%_ + _%hd201392%_ '1 '#f '#f)) - _%rest200406%_)) + _%rest201391%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd200407%_)))))))))) - (if (pair? _%rest200387200395%_) - (let ((_%hd200392200424%_ + _%hd201392%_)))))))))) + (if (pair? _%rest201372201380%_) + (let ((_%hd201377201409%_ (let () (declare (not safe)) - (##car _%rest200387200395%_))) - (_%tl200393200426%_ + (##car _%rest201372201380%_))) + (_%tl201378201411%_ (let () (declare (not safe)) - (##cdr _%rest200387200395%_)))) - (let* ((_%hd200429%_ _%hd200392200424%_) - (_%rest200431%_ _%tl200393200426%_)) - (_%K200391200421%_ _%rest200431%_ _%hd200429%_))) + (##cdr _%rest201372201380%_)))) + (let* ((_%hd201414%_ _%hd201377201409%_) + (_%rest201416%_ _%tl201378201411%_)) + (_%K201376201406%_ _%rest201416%_ _%hd201414%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx200360%_) + (lambda (_%ctx201345%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx200360%_ + _%ctx201345%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx200360%_ + _%ctx201345%_ '7 '#f '#f)))) '#!void - (let* ((_%ht200362%_ + (let* ((_%ht201347%_ (##structure-ref (let () (declare (not safe)) @@ -329,172 +329,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id200364%_ + (_%id201349%_ (##structure-ref - _%ctx200360%_ + _%ctx201345%_ '1 gx#expander-context::t '#f)) - (_%mod200366%_ + (_%mod201351%_ (let () (declare (not safe)) - (hash-get _%ht200362%_ _%id200364%_))) - (_%$e200369%_ _%mod200366%_)) - (if _%$e200369%_ - _%$e200369%_ - (let* ((_%mod200372%_ - (gxc#optimizer-import-ssxi _%ctx200360%_)) - (_%val200377%_ - (let ((_%$e200374%_ _%mod200372%_)) - (if _%$e200374%_ _%$e200374%_ '#!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! _%ht200362%_ _%id200364%_ _%val200377%_)) - _%val200377%_)))))) + (hash-put! _%ht201347%_ _%id201349%_ _%val201362%_)) + _%val201362%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx200358%_) - (if (##structure-ref _%ctx200358%_ '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 _%ctx200358%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx201343%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id200335%_) - (letrec ((_%catch-e200337%_ - (lambda (_%exn200356%_) + (lambda (_%id201320%_) + (letrec ((_%catch-e201322%_ + (lambda (_%exn201341%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn200356%_)) + (error-message _%exn201341%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn200356%_)) + (display-exception__0 _%exn201341%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id200335%_)))) + _%id201320%_)))) '#f)) - (_%import-e200338%_ + (_%import-e201323%_ (lambda () - (let* ((_%str-id200341%_ - (let ((__tmp200866 + (let* ((_%str-id201326%_ + (let ((__tmp201851 (let () (declare (not safe)) (gxc#module-id->path-string - _%id200335%_)))) + _%id201320%_)))) (declare (not safe)) - (##string-append __tmp200866 '".ssxi"))) - (_%artefact-path200349%_ - (let ((_%odir200342200344%_ + (##string-append __tmp201851 '".ssxi"))) + (_%artefact-path201334%_ + (let ((_%odir201327201329%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir200342200344%_ - (let ((_%odir200347%_ _%odir200342200344%_)) + (if _%odir201327201329%_ + (let ((_%odir201332%_ _%odir201327201329%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id200341%_ + _%str-id201326%_ '".ss")) - _%odir200347%_)) + _%odir201332%_)) '#f))) - (_%library-path200351%_ - (let ((__tmp200867 + (_%library-path201336%_ + (let ((__tmp201852 (let () (declare (not safe)) (##string-append '":" - _%str-id200341%_ + _%str-id201326%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp200867))) - (_%ssxi-path200353%_ - (if (and _%artefact-path200349%_ - (file-exists? _%artefact-path200349%_)) - _%artefact-path200349%_ - _%library-path200351%_))) + (##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-path200353%_)) + _%ssxi-path201338%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path200353%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path201338%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e200337%_ _%import-e200338%_))))) + (__with-catch _%catch-e201322%_ _%import-e201323%_))))) (define gxc#optimize-source - (lambda (_%stx200320%_) + (lambda (_%stx201305%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx200320%_)) + (gxc#apply-collect-mutators _%stx201305%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx200320%_)) - (let* ((_%stx200322%_ + (gxc#apply-collect-top-level-type-info _%stx201305%_)) + (let* ((_%stx201307%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx200320%_))) - (_%stx200324%_ + (gxc#apply-generate-method-specializers _%stx201305%_))) + (_%stx201309%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx200322%_)))) + (gxc#apply-lift-top-lambdas _%stx201307%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx200324%_)) + (gxc#apply-collect-type-info _%stx201309%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx200324%_)) - (let _%fixpoint200327%_ ((_%current200329%_ + (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 _%stx200324%_)) - (let ((_%refined200331%_ + (gxc#apply-refine-type-info _%stx201309%_)) + (let ((_%refined201316%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current200329%_ _%refined200331%_) + (if (equal? _%current201314%_ _%refined201316%_) '#!void - (_%fixpoint200327%_ _%refined200331%_)))) + (_%fixpoint201312%_ _%refined201316%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx200324%_)) + (gxc#apply-check-return-type _%stx201309%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx200324%_)) - (let ((_%stx200333%_ + (gxc#apply-collect-top-level-declarations _%stx201309%_)) + (let ((_%stx201318%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx200324%_)))) + (gxc#apply-optimize-annotated _%stx201309%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx200333%_))))) + (gxc#apply-optimize-call _%stx201318%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp200869 (list gxc#::generate-runtime-empty::t)) - (__tmp200868 (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 - __tmp200869 + __tmp201854 '() - __tmp200868 + __tmp201853 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args200317%_ - (apply make-instance gxc#::generate-ssxi::t _%$args200317%_))) + (lambda _%$args201302%_ + (apply make-instance gxc#::generate-ssxi::t _%$args201302%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp200870 + (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 __tmp200870))) + (__make-promise __tmp201855))) (define gxc#apply-generate-ssxi - (lambda (_%stx200309%_) + (lambda (_%stx201294%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self200312%_ - (let ((__obj200850 + (let* ((_%self201297%_ + (let ((__obj201835 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj200850)) - (__tmp200871 + __obj201835)) + (__tmp201856 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self200312%_ _%stx200309%_))))) + (gxc#compile-e__1 _%self201297%_ _%stx201294%_))))) (declare (not safe)) (__call-with-parameters - __tmp200871 + __tmp201856 gxc#current-compile-method - _%self200312%_)))) + _%self201297%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self200269%_ _%stx200270%_) - (let* ((_%g200272200282%_ - (lambda (_%g200273200279%_) + (lambda (_%self201254%_ _%stx201255%_) + (let* ((_%g201257201267%_ + (lambda (_%g201258201264%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200273200279%_)))) - (_%g200271200306%_ - (lambda (_%g200273200285%_) + _%g201258201264%_)))) + (_%g201256201291%_ + (lambda (_%g201258201270%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200273200285%_)) - (let ((_%e200275200287%_ + (gx#stx-pair? _%g201258201270%_)) + (let ((_%e201260201272%_ (let () (declare (not safe)) - (gx#stx-e _%g200273200285%_)))) - (let ((_%hd200276200290%_ + (gx#stx-e _%g201258201270%_)))) + (let ((_%hd201261201275%_ (let () (declare (not safe)) - (##car _%e200275200287%_))) - (_%tl200277200292%_ + (##car _%e201260201272%_))) + (_%tl201262201277%_ (let () (declare (not safe)) - (##cdr _%e200275200287%_)))) - ((lambda (_%L200295%_) - (let ((__tmp200874 + (##cdr _%e201260201272%_)))) + ((lambda (_%L201280%_) + (let ((__tmp201859 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self200269%_ - _%stx200270%_)))) - (__tmp200872 - (let ((__tmp200873 + _%self201254%_ + _%stx201255%_)))) + (__tmp201857 + (let ((__tmp201858 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp200873 '1)))) + (##fx+ __tmp201858 '1)))) (declare (not safe)) (__call-with-parameters - __tmp200874 + __tmp201859 gx#current-expander-phi - __tmp200872))) - _%tl200277200292%_))) - (_%g200272200282%_ _%g200273200285%_))))) - (_%g200271200306%_ _%stx200270%_)))) + __tmp201857))) + _%tl201262201277%_))) + (_%g201257201267%_ _%g201258201270%_))))) + (_%g201256201291%_ _%stx201255%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self200208%_ _%stx200209%_) - (let* ((_%g200211200225%_ - (lambda (_%g200212200222%_) + (lambda (_%self201193%_ _%stx201194%_) + (let* ((_%g201196201210%_ + (lambda (_%g201197201207%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200212200222%_)))) - (_%g200210200266%_ - (lambda (_%g200212200228%_) + _%g201197201207%_)))) + (_%g201195201251%_ + (lambda (_%g201197201213%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200212200228%_)) - (let ((_%e200215200230%_ + (gx#stx-pair? _%g201197201213%_)) + (let ((_%e201200201215%_ (let () (declare (not safe)) - (gx#stx-e _%g200212200228%_)))) - (let ((_%hd200216200233%_ + (gx#stx-e _%g201197201213%_)))) + (let ((_%hd201201201218%_ (let () (declare (not safe)) - (##car _%e200215200230%_))) - (_%tl200217200235%_ + (##car _%e201200201215%_))) + (_%tl201202201220%_ (let () (declare (not safe)) - (##cdr _%e200215200230%_)))) + (##cdr _%e201200201215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200217200235%_)) - (let ((_%e200218200238%_ + (gx#stx-pair? _%tl201202201220%_)) + (let ((_%e201203201223%_ (let () (declare (not safe)) - (gx#stx-e _%tl200217200235%_)))) - (let ((_%hd200219200241%_ + (gx#stx-e _%tl201202201220%_)))) + (let ((_%hd201204201226%_ (let () (declare (not safe)) - (##car _%e200218200238%_))) - (_%tl200220200243%_ + (##car _%e201203201223%_))) + (_%tl201205201228%_ (let () (declare (not safe)) - (##cdr _%e200218200238%_)))) - ((lambda (_%L200246%_ _%L200247%_) - (let* ((_%ctx200260%_ + (##cdr _%e201203201223%_)))) + ((lambda (_%L201231%_ _%L201232%_) + (let* ((_%ctx201245%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L200247%_))) - (_%code200262%_ + _%L201232%_))) + (_%code201247%_ (##structure-ref - _%ctx200260%_ + _%ctx201245%_ '11 gx#module-context::t '#f)) - (__tmp200875 + (__tmp201860 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self200208%_ - _%code200262%_))))) + _%self201193%_ + _%code201247%_))))) (declare (not safe)) (__call-with-parameters - __tmp200875 + __tmp201860 gx#current-expander-context - _%ctx200260%_))) - _%tl200220200243%_ - _%hd200219200241%_))) - (_%g200211200225%_ _%g200212200228%_)))) - (_%g200211200225%_ _%g200212200228%_))))) - (_%g200210200266%_ _%stx200209%_)))) + _%ctx201245%_))) + _%tl201205201228%_ + _%hd201204201226%_))) + (_%g201196201210%_ _%g201197201213%_)))) + (_%g201196201210%_ _%g201197201213%_))))) + (_%g201195201251%_ _%stx201194%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self200013%_ _%stx200014%_) - (letrec ((_%generate-e200016%_ - (lambda (_%id200193%_) - (let* ((_%sym200195%_ - (if (let ((__tmp200876 + (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? __tmp200876)) + (gx#identifier? __tmp201861)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id200193%_)) + (gxc#identifier-symbol _%id201178%_)) '#f)) - (_%$e200197%_ + (_%$e201182%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym200195%_)))) - (if _%$e200197%_ - ((lambda (_%klass200200%_) + (gxc#optimizer-lookup-class _%sym201180%_)))) + (if _%$e201182%_ + ((lambda (_%klass201185%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym200195%_)) + _%sym201180%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym200195%_ - (cons (let ((__method200851 + (cons _%sym201180%_ + (cons (let ((__method201836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass200200%_ 'typedecl)))) - (if __method200851 + (__method-ref _%klass201185%_ 'typedecl)))) + (if __method201836 (let () (declare (not safe)) - (__method200851 _%klass200200%_)) + (__method201836 _%klass201185%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass200200%_ + _%klass201185%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym200195%_ + (cons _%sym201180%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym200195%_ + (cons _%sym201180%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -739,1309 +739,1309 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e200197%_) - (let ((_%$e200202%_ + _%$e201182%_) + (let ((_%$e201187%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym200195%_)))) - (if _%$e200202%_ - ((lambda (_%type200205%_) + (gxc#optimizer-lookup-type _%sym201180%_)))) + (if _%$e201187%_ + ((lambda (_%type201190%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym200195%_ + _%sym201180%_ '" " - _%type200205%_)) + _%type201190%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type200205%_ + _%type201190%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym200195%_ + (cons _%sym201180%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym200195%_ '())) + (cons _%sym201180%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type200205%_)) + _%type201190%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym200195%_ - (cons (let ((__method200852 + (cons _%sym201180%_ + (cons (let ((__method201837 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type200205%_ 'typedecl)))) - (if __method200852 + (__method-ref _%type201190%_ 'typedecl)))) + (if __method201837 (let () (declare (not safe)) - (__method200852 _%type200205%_)) + (__method201837 _%type201190%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type200205%_ 'typedecl)) + (error '"Missing method" _%type201190%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e200202%_) + _%$e201187%_) '(begin)))))))) - (let* ((_%__stx200463200464%_ _%stx200014%_) - (_%g200019200057%_ + (let* ((_%__stx201448201449%_ _%stx200999%_) + (_%g201004201042%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200463200464%_))))) - (let ((_%__kont200465200466%_ - (lambda (_%L200175%_) (_%generate-e200016%_ _%L200175%_))) - (_%__kont200467200468%_ - (lambda (_%L200110%_) - (let ((_%types200136%_ - (map _%generate-e200016%_ - (let ((__tmp200877 - (lambda (_%g200128200131%_ - _%g200129200133%_) - (cons _%g200128200131%_ - _%g200129200133%_)))) + _%__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 __tmp200877 '() _%L200110%_))))) - (cons 'begin _%types200136%_))))) - (let ((_%__match200518200519%_ - (lambda (_%e200035200062%_ - _%hd200036200065%_ - _%tl200037200067%_ - _%e200038200070%_ - _%hd200039200073%_ - _%tl200040200075%_ - _%__splice200469200470%_ - _%target200041200078%_ - _%tl200043200080%_) - (letrec ((_%loop200044200083%_ - (lambda (_%hd200042200086%_ - _%id200048200088%_) + (__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? _%hd200042200086%_)) - (let ((_%e200045200091%_ + (gx#stx-pair? _%hd201027201071%_)) + (let ((_%e201030201076%_ (let () (declare (not safe)) (gx#stx-e - _%hd200042200086%_)))) - (let ((_%lp-tl200047200096%_ + _%hd201027201071%_)))) + (let ((_%lp-tl201032201081%_ (let () (declare (not safe)) - (##cdr _%e200045200091%_))) - (_%lp-hd200046200094%_ + (##cdr _%e201030201076%_))) + (_%lp-hd201031201079%_ (let () (declare (not safe)) - (##car _%e200045200091%_)))) - (_%loop200044200083%_ - _%lp-tl200047200096%_ - (cons _%lp-hd200046200094%_ - _%id200048200088%_)))) - (let ((_%id200049200099%_ - (reverse _%id200048200088%_))) + (##car _%e201030201076%_)))) + (_%loop201029201068%_ + _%lp-tl201032201081%_ + (cons _%lp-hd201031201079%_ + _%id201033201073%_)))) + (let ((_%id201034201084%_ + (reverse _%id201033201073%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl200040200075%_)) - (let ((_%e200050200102%_ + _%tl201025201060%_)) + (let ((_%e201035201087%_ (let () (declare (not safe)) (gx#stx-e - _%tl200040200075%_)))) - (let ((_%tl200052200107%_ + _%tl201025201060%_)))) + (let ((_%tl201037201092%_ (let () (declare (not safe)) - (##cdr _%e200050200102%_))) - (_%hd200051200105%_ + (##cdr _%e201035201087%_))) + (_%hd201036201090%_ (let () (declare (not safe)) - (##car _%e200050200102%_)))) + (##car _%e201035201087%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200052200107%_)) - (_%__kont200467200468%_ - _%id200049200099%_) + _%tl201037201092%_)) + (_%__kont201452201453%_ + _%id201034201084%_) (let () (declare (not safe)) - (_%g200019200057%_))))) + (_%g201004201042%_))))) (let () (declare (not safe)) - (_%g200019200057%_)))))))) - (_%loop200044200083%_ _%target200041200078%_ '()))))) + (_%g201004201042%_)))))))) + (_%loop201029201068%_ _%target201026201063%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200463200464%_)) - (let ((_%e200022200143%_ + (gx#stx-pair? _%__stx201448201449%_)) + (let ((_%e201007201128%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200463200464%_)))) - (let ((_%tl200024200148%_ + (gx#stx-e _%__stx201448201449%_)))) + (let ((_%tl201009201133%_ (let () (declare (not safe)) - (##cdr _%e200022200143%_))) - (_%hd200023200146%_ + (##cdr _%e201007201128%_))) + (_%hd201008201131%_ (let () (declare (not safe)) - (##car _%e200022200143%_)))) + (##car _%e201007201128%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200024200148%_)) - (let ((_%e200025200151%_ + (gx#stx-pair? _%tl201009201133%_)) + (let ((_%e201010201136%_ (let () (declare (not safe)) - (gx#stx-e _%tl200024200148%_)))) - (let ((_%tl200027200156%_ + (gx#stx-e _%tl201009201133%_)))) + (let ((_%tl201012201141%_ (let () (declare (not safe)) - (##cdr _%e200025200151%_))) - (_%hd200026200154%_ + (##cdr _%e201010201136%_))) + (_%hd201011201139%_ (let () (declare (not safe)) - (##car _%e200025200151%_)))) + (##car _%e201010201136%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd200026200154%_)) - (let ((_%e200028200159%_ + (gx#stx-pair? _%hd201011201139%_)) + (let ((_%e201013201144%_ (let () (declare (not safe)) - (gx#stx-e _%hd200026200154%_)))) - (let ((_%tl200030200164%_ + (gx#stx-e _%hd201011201139%_)))) + (let ((_%tl201015201149%_ (let () (declare (not safe)) - (##cdr _%e200028200159%_))) - (_%hd200029200162%_ + (##cdr _%e201013201144%_))) + (_%hd201014201147%_ (let () (declare (not safe)) - (##car _%e200028200159%_)))) + (##car _%e201013201144%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200030200164%_)) + _%tl201015201149%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl200027200156%_)) - (let ((_%e200031200167%_ + _%tl201012201141%_)) + (let ((_%e201016201152%_ (let () (declare (not safe)) (gx#stx-e - _%tl200027200156%_)))) - (let ((_%tl200033200172%_ + _%tl201012201141%_)))) + (let ((_%tl201018201157%_ (let () (declare (not safe)) - (##cdr _%e200031200167%_))) - (_%hd200032200170%_ + (##cdr _%e201016201152%_))) + (_%hd201017201155%_ (let () (declare (not safe)) - (##car _%e200031200167%_)))) + (##car _%e201016201152%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200033200172%_)) - (_%__kont200465200466%_ - _%hd200029200162%_) + _%tl201018201157%_)) + (_%__kont201450201451%_ + _%hd201014201147%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd200026200154%_)) - (let ((_%__splice200469200470%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd200026200154%_ '0)))) - (let ((_%tl200043200080%_ + (gx#syntax-split-splice _%hd201011201139%_ '0)))) + (let ((_%tl201028201065%_ (let () (declare (not safe)) - (##vector-ref _%__splice200469200470%_ '1))) - (_%target200041200078%_ + (##vector-ref _%__splice201454201455%_ '1))) + (_%target201026201063%_ (let () (declare (not safe)) - (##vector-ref _%__splice200469200470%_ '0)))) + (##vector-ref _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200043200080%_)) - (_%__match200518200519%_ - _%e200022200143%_ - _%hd200023200146%_ - _%tl200024200148%_ - _%e200025200151%_ - _%hd200026200154%_ - _%tl200027200156%_ - _%__splice200469200470%_ - _%target200041200078%_ - _%tl200043200080%_) + (gx#stx-null? _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) (let () (declare (not safe)) - (_%g200019200057%_))))) - (let () (declare (not safe)) (_%g200019200057%_)))))) + (_%g201004201042%_))))) + (let () (declare (not safe)) (_%g201004201042%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd200026200154%_)) - (let ((_%__splice200469200470%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd200026200154%_ + _%hd201011201139%_ '0)))) - (let ((_%tl200043200080%_ + (let ((_%tl201028201065%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice200469200470%_ '1))) - (_%target200041200078%_ + (##vector-ref _%__splice201454201455%_ '1))) + (_%target201026201063%_ (let () (declare (not safe)) - (##vector-ref _%__splice200469200470%_ '0)))) + (##vector-ref _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200043200080%_)) - (_%__match200518200519%_ - _%e200022200143%_ - _%hd200023200146%_ - _%tl200024200148%_ - _%e200025200151%_ - _%hd200026200154%_ - _%tl200027200156%_ - _%__splice200469200470%_ - _%target200041200078%_ - _%tl200043200080%_) - (let () (declare (not safe)) (_%g200019200057%_))))) + (gx#stx-null? _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) + (let () (declare (not safe)) (_%g201004201042%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g200019200057%_)))) + (_%g201004201042%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd200026200154%_)) - (let ((_%__splice200469200470%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd200026200154%_ + _%hd201011201139%_ '0)))) - (let ((_%tl200043200080%_ + (let ((_%tl201028201065%_ (let () (declare (not safe)) (##vector-ref - _%__splice200469200470%_ + _%__splice201454201455%_ '1))) - (_%target200041200078%_ + (_%target201026201063%_ (let () (declare (not safe)) (##vector-ref - _%__splice200469200470%_ + _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200043200080%_)) - (_%__match200518200519%_ - _%e200022200143%_ - _%hd200023200146%_ - _%tl200024200148%_ - _%e200025200151%_ - _%hd200026200154%_ - _%tl200027200156%_ - _%__splice200469200470%_ - _%target200041200078%_ - _%tl200043200080%_) + _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) (let () (declare (not safe)) - (_%g200019200057%_))))) + (_%g201004201042%_))))) (let () (declare (not safe)) - (_%g200019200057%_)))))) + (_%g201004201042%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd200026200154%_)) - (let ((_%__splice200469200470%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd200026200154%_ + _%hd201011201139%_ '0)))) - (let ((_%tl200043200080%_ + (let ((_%tl201028201065%_ (let () (declare (not safe)) (##vector-ref - _%__splice200469200470%_ + _%__splice201454201455%_ '1))) - (_%target200041200078%_ + (_%target201026201063%_ (let () (declare (not safe)) (##vector-ref - _%__splice200469200470%_ + _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl200043200080%_)) - (_%__match200518200519%_ - _%e200022200143%_ - _%hd200023200146%_ - _%tl200024200148%_ - _%e200025200151%_ - _%hd200026200154%_ - _%tl200027200156%_ - _%__splice200469200470%_ - _%target200041200078%_ - _%tl200043200080%_) + _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) (let () (declare (not safe)) - (_%g200019200057%_))))) + (_%g201004201042%_))))) (let () (declare (not safe)) - (_%g200019200057%_)))))) + (_%g201004201042%_)))))) (let () (declare (not safe)) - (_%g200019200057%_))))) - (let () (declare (not safe)) (_%g200019200057%_))))))))) + (_%g201004201042%_))))) + (let () (declare (not safe)) (_%g201004201042%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self199566%_ _%stx199567%_) - (let* ((_%__stx200521200522%_ _%stx199567%_) - (_%g199571199673%_ + (lambda (_%self200551%_ _%stx200552%_) + (let* ((_%__stx201506201507%_ _%stx200552%_) + (_%g200556200658%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200521200522%_))))) - (let ((_%__kont200523200524%_ - (lambda (_%L199963%_ - _%L199964%_ - _%L199965%_ - _%L199966%_ - _%L199967%_) + _%__stx201506201507%_))))) + (let ((_%__kont201508201509%_ + (lambda (_%L200948%_ + _%L200949%_ + _%L200950%_ + _%L200951%_ + _%L200952%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199966%_)) + (gxc#identifier-symbol _%L200951%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199965%_)) + (gx#stx-e _%L200950%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199964%_)) + _%L200949%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199963%_)) + (gx#stx-e _%L200948%_)) '()))))))) - (_%__kont200525200526%_ - (lambda (_%L199789%_ _%L199790%_ _%L199791%_ _%L199792%_) + (_%__kont201510201511%_ + (lambda (_%L200774%_ _%L200775%_ _%L200776%_ _%L200777%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199791%_)) + (gxc#identifier-symbol _%L200776%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199790%_)) + (gx#stx-e _%L200775%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199789%_)) + _%L200774%_)) (cons '#f '()))))))) - (_%__kont200527200528%_ (lambda () '(begin)))) - (let ((_%__match200656200657%_ - (lambda (_%e199578199835%_ - _%hd199579199838%_ - _%tl199580199840%_ - _%e199581199843%_ - _%hd199582199846%_ - _%tl199583199848%_ - _%e199584199851%_ - _%hd199585199854%_ - _%tl199586199856%_ - _%e199587199859%_ - _%hd199588199862%_ - _%tl199589199864%_ - _%e199590199867%_ - _%hd199591199870%_ - _%tl199592199872%_ - _%e199593199875%_ - _%hd199594199878%_ - _%tl199595199880%_ - _%e199596199883%_ - _%hd199597199886%_ - _%tl199598199888%_ - _%e199599199891%_ - _%hd199600199894%_ - _%tl199601199896%_ - _%e199602199899%_ - _%hd199603199902%_ - _%tl199604199904%_ - _%e199605199907%_ - _%hd199606199910%_ - _%tl199607199912%_ - _%e199608199915%_ - _%hd199609199918%_ - _%tl199610199920%_ - _%e199611199923%_ - _%hd199612199926%_ - _%tl199613199928%_ - _%e199614199931%_ - _%hd199615199934%_ - _%tl199616199936%_ - _%e199617199939%_ - _%hd199618199942%_ - _%tl199619199944%_ - _%e199620199947%_ - _%hd199621199950%_ - _%tl199622199952%_ - _%e199623199955%_ - _%hd199624199958%_ - _%tl199625199960%_) - (let ((_%L199963%_ _%hd199624199958%_) - (_%L199964%_ _%hd199615199934%_) - (_%L199965%_ _%hd199606199910%_) - (_%L199966%_ _%hd199597199886%_) - (_%L199967%_ _%hd199588199862%_)) + (_%__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=? - _%L199967%_ + _%L200952%_ 'bind-method!)) - (_%__kont200523200524%_ - _%L199963%_ - _%L199964%_ - _%L199965%_ - _%L199966%_ - _%L199967%_) - (_%__kont200527200528%_)))))) + (_%__kont201508201509%_ + _%L200948%_ + _%L200949%_ + _%L200950%_ + _%L200951%_ + _%L200952%_) + (_%__kont201512201513%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200521200522%_)) - (let ((_%e199578199835%_ + (gx#stx-pair? _%__stx201506201507%_)) + (let ((_%e200563200820%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200521200522%_)))) - (let ((_%tl199580199840%_ + (gx#stx-e _%__stx201506201507%_)))) + (let ((_%tl200565200825%_ (let () (declare (not safe)) - (##cdr _%e199578199835%_))) - (_%hd199579199838%_ + (##cdr _%e200563200820%_))) + (_%hd200564200823%_ (let () (declare (not safe)) - (##car _%e199578199835%_)))) + (##car _%e200563200820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199580199840%_)) - (let ((_%e199581199843%_ + (gx#stx-pair? _%tl200565200825%_)) + (let ((_%e200566200828%_ (let () (declare (not safe)) - (gx#stx-e _%tl199580199840%_)))) - (let ((_%tl199583199848%_ + (gx#stx-e _%tl200565200825%_)))) + (let ((_%tl200568200833%_ (let () (declare (not safe)) - (##cdr _%e199581199843%_))) - (_%hd199582199846%_ + (##cdr _%e200566200828%_))) + (_%hd200567200831%_ (let () (declare (not safe)) - (##car _%e199581199843%_)))) + (##car _%e200566200828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199582199846%_)) - (let ((_%e199584199851%_ + (gx#stx-pair? _%hd200567200831%_)) + (let ((_%e200569200836%_ (let () (declare (not safe)) - (gx#stx-e _%hd199582199846%_)))) - (let ((_%tl199586199856%_ + (gx#stx-e _%hd200567200831%_)))) + (let ((_%tl200571200841%_ (let () (declare (not safe)) - (##cdr _%e199584199851%_))) - (_%hd199585199854%_ + (##cdr _%e200569200836%_))) + (_%hd200570200839%_ (let () (declare (not safe)) - (##car _%e199584199851%_)))) + (##car _%e200569200836%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd199585199854%_)) + _%hd200570200839%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199585199854%_)) + _%hd200570200839%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199586199856%_)) - (let ((_%e199587199859%_ + _%tl200571200841%_)) + (let ((_%e200572200844%_ (let () (declare (not safe)) (gx#stx-e - _%tl199586199856%_)))) - (let ((_%tl199589199864%_ + _%tl200571200841%_)))) + (let ((_%tl200574200849%_ (let () (declare (not safe)) - (##cdr _%e199587199859%_))) - (_%hd199588199862%_ + (##cdr _%e200572200844%_))) + (_%hd200573200847%_ (let () (declare (not safe)) - (##car _%e199587199859%_)))) + (##car _%e200572200844%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199589199864%_)) + _%tl200574200849%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl199583199848%_)) - (let ((_%e199590199867%_ + (gx#stx-pair? _%tl200568200833%_)) + (let ((_%e200575200852%_ (let () (declare (not safe)) - (gx#stx-e _%tl199583199848%_)))) - (let ((_%tl199592199872%_ + (gx#stx-e _%tl200568200833%_)))) + (let ((_%tl200577200857%_ (let () (declare (not safe)) - (##cdr _%e199590199867%_))) - (_%hd199591199870%_ + (##cdr _%e200575200852%_))) + (_%hd200576200855%_ (let () (declare (not safe)) - (##car _%e199590199867%_)))) + (##car _%e200575200852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199591199870%_)) - (let ((_%e199593199875%_ + (gx#stx-pair? _%hd200576200855%_)) + (let ((_%e200578200860%_ (let () (declare (not safe)) - (gx#stx-e _%hd199591199870%_)))) - (let ((_%tl199595199880%_ + (gx#stx-e _%hd200576200855%_)))) + (let ((_%tl200580200865%_ (let () (declare (not safe)) - (##cdr _%e199593199875%_))) - (_%hd199594199878%_ + (##cdr _%e200578200860%_))) + (_%hd200579200863%_ (let () (declare (not safe)) - (##car _%e199593199875%_)))) + (##car _%e200578200860%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199594199878%_)) + (gx#identifier? _%hd200579200863%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199594199878%_)) + _%hd200579200863%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199595199880%_)) - (let ((_%e199596199883%_ + _%tl200580200865%_)) + (let ((_%e200581200868%_ (let () (declare (not safe)) (gx#stx-e - _%tl199595199880%_)))) - (let ((_%tl199598199888%_ + _%tl200580200865%_)))) + (let ((_%tl200583200873%_ (let () (declare (not safe)) - (##cdr _%e199596199883%_))) - (_%hd199597199886%_ + (##cdr _%e200581200868%_))) + (_%hd200582200871%_ (let () (declare (not safe)) - (##car _%e199596199883%_)))) + (##car _%e200581200868%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199598199888%_)) + _%tl200583200873%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199592199872%_)) - (let ((_%e199599199891%_ + _%tl200577200857%_)) + (let ((_%e200584200876%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199592199872%_)))) - (let ((_%tl199601199896%_ + (gx#stx-e _%tl200577200857%_)))) + (let ((_%tl200586200881%_ (let () (declare (not safe)) - (##cdr _%e199599199891%_))) - (_%hd199600199894%_ + (##cdr _%e200584200876%_))) + (_%hd200585200879%_ (let () (declare (not safe)) - (##car _%e199599199891%_)))) + (##car _%e200584200876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199600199894%_)) - (let ((_%e199602199899%_ + (gx#stx-pair? _%hd200585200879%_)) + (let ((_%e200587200884%_ (let () (declare (not safe)) - (gx#stx-e _%hd199600199894%_)))) - (let ((_%tl199604199904%_ + (gx#stx-e _%hd200585200879%_)))) + (let ((_%tl200589200889%_ (let () (declare (not safe)) - (##cdr _%e199602199899%_))) - (_%hd199603199902%_ + (##cdr _%e200587200884%_))) + (_%hd200588200887%_ (let () (declare (not safe)) - (##car _%e199602199899%_)))) + (##car _%e200587200884%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199603199902%_)) + (gx#identifier? _%hd200588200887%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199603199902%_)) + _%hd200588200887%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199604199904%_)) - (let ((_%e199605199907%_ + (gx#stx-pair? _%tl200589200889%_)) + (let ((_%e200590200892%_ (let () (declare (not safe)) (gx#stx-e - _%tl199604199904%_)))) - (let ((_%tl199607199912%_ + _%tl200589200889%_)))) + (let ((_%tl200592200897%_ (let () (declare (not safe)) - (##cdr _%e199605199907%_))) - (_%hd199606199910%_ + (##cdr _%e200590200892%_))) + (_%hd200591200895%_ (let () (declare (not safe)) - (##car _%e199605199907%_)))) + (##car _%e200590200892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199607199912%_)) + _%tl200592200897%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199601199896%_)) - (let ((_%e199608199915%_ + _%tl200586200881%_)) + (let ((_%e200593200900%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl199601199896%_)))) - (let ((_%tl199610199920%_ - (let () (declare (not safe)) (##cdr _%e199608199915%_))) - (_%hd199609199918%_ + (gx#stx-e _%tl200586200881%_)))) + (let ((_%tl200595200905%_ + (let () (declare (not safe)) (##cdr _%e200593200900%_))) + (_%hd200594200903%_ (let () (declare (not safe)) - (##car _%e199608199915%_)))) + (##car _%e200593200900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199609199918%_)) - (let ((_%e199611199923%_ + (gx#stx-pair? _%hd200594200903%_)) + (let ((_%e200596200908%_ (let () (declare (not safe)) - (gx#stx-e _%hd199609199918%_)))) - (let ((_%tl199613199928%_ + (gx#stx-e _%hd200594200903%_)))) + (let ((_%tl200598200913%_ (let () (declare (not safe)) - (##cdr _%e199611199923%_))) - (_%hd199612199926%_ + (##cdr _%e200596200908%_))) + (_%hd200597200911%_ (let () (declare (not safe)) - (##car _%e199611199923%_)))) + (##car _%e200596200908%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199612199926%_)) + (gx#identifier? _%hd200597200911%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd199612199926%_)) + (gx#stx-eq? '%#ref _%hd200597200911%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199613199928%_)) - (let ((_%e199614199931%_ + (gx#stx-pair? _%tl200598200913%_)) + (let ((_%e200599200916%_ (let () (declare (not safe)) - (gx#stx-e _%tl199613199928%_)))) - (let ((_%tl199616199936%_ + (gx#stx-e _%tl200598200913%_)))) + (let ((_%tl200601200921%_ (let () (declare (not safe)) - (##cdr _%e199614199931%_))) - (_%hd199615199934%_ + (##cdr _%e200599200916%_))) + (_%hd200600200919%_ (let () (declare (not safe)) - (##car _%e199614199931%_)))) + (##car _%e200599200916%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199616199936%_)) + _%tl200601200921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199610199920%_)) - (let ((_%e199617199939%_ + _%tl200595200905%_)) + (let ((_%e200602200924%_ (let () (declare (not safe)) (gx#stx-e - _%tl199610199920%_)))) - (let ((_%tl199619199944%_ + _%tl200595200905%_)))) + (let ((_%tl200604200929%_ (let () (declare (not safe)) - (##cdr _%e199617199939%_))) - (_%hd199618199942%_ + (##cdr _%e200602200924%_))) + (_%hd200603200927%_ (let () (declare (not safe)) - (##car _%e199617199939%_)))) + (##car _%e200602200924%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199618199942%_)) - (let ((_%e199620199947%_ + _%hd200603200927%_)) + (let ((_%e200605200932%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd199618199942%_)))) - (let ((_%tl199622199952%_ + (gx#stx-e _%hd200603200927%_)))) + (let ((_%tl200607200937%_ (let () (declare (not safe)) - (##cdr _%e199620199947%_))) - (_%hd199621199950%_ + (##cdr _%e200605200932%_))) + (_%hd200606200935%_ (let () (declare (not safe)) - (##car _%e199620199947%_)))) + (##car _%e200605200932%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199621199950%_)) + (gx#identifier? _%hd200606200935%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd199621199950%_)) + (gx#stx-eq? '%#quote _%hd200606200935%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199622199952%_)) - (let ((_%e199623199955%_ + (gx#stx-pair? _%tl200607200937%_)) + (let ((_%e200608200940%_ (let () (declare (not safe)) - (gx#stx-e _%tl199622199952%_)))) - (let ((_%tl199625199960%_ + (gx#stx-e _%tl200607200937%_)))) + (let ((_%tl200610200945%_ (let () (declare (not safe)) - (##cdr _%e199623199955%_))) - (_%hd199624199958%_ + (##cdr _%e200608200940%_))) + (_%hd200609200943%_ (let () (declare (not safe)) - (##car _%e199623199955%_)))) + (##car _%e200608200940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199625199960%_)) + (gx#stx-null? _%tl200610200945%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199619199944%_)) - (_%__match200656200657%_ - _%e199578199835%_ - _%hd199579199838%_ - _%tl199580199840%_ - _%e199581199843%_ - _%hd199582199846%_ - _%tl199583199848%_ - _%e199584199851%_ - _%hd199585199854%_ - _%tl199586199856%_ - _%e199587199859%_ - _%hd199588199862%_ - _%tl199589199864%_ - _%e199590199867%_ - _%hd199591199870%_ - _%tl199592199872%_ - _%e199593199875%_ - _%hd199594199878%_ - _%tl199595199880%_ - _%e199596199883%_ - _%hd199597199886%_ - _%tl199598199888%_ - _%e199599199891%_ - _%hd199600199894%_ - _%tl199601199896%_ - _%e199602199899%_ - _%hd199603199902%_ - _%tl199604199904%_ - _%e199605199907%_ - _%hd199606199910%_ - _%tl199607199912%_ - _%e199608199915%_ - _%hd199609199918%_ - _%tl199610199920%_ - _%e199611199923%_ - _%hd199612199926%_ - _%tl199613199928%_ - _%e199614199931%_ - _%hd199615199934%_ - _%tl199616199936%_ - _%e199617199939%_ - _%hd199618199942%_ - _%tl199619199944%_ - _%e199620199947%_ - _%hd199621199950%_ - _%tl199622199952%_ - _%e199623199955%_ - _%hd199624199958%_ - _%tl199625199960%_) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)))) + _%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? - _%tl199610199920%_)) - (if (let ((__tmp200878 + _%tl200595200905%_)) + (if (let ((__tmp201863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp200878 'bind-method!)) - (let ((_%L199789%_ _%hd199615199934%_) - (_%L199790%_ _%hd199606199910%_) - (_%L199791%_ _%hd199597199886%_) - (_%L199792%_ _%hd199588199862%_)) - (_%__kont200525200526%_ - _%L199789%_ - _%L199790%_ - _%L199791%_ - _%L199792%_)) - (_%__kont200527200528%_)) - (_%__kont200527200528%_))) + (gxc#runtime-identifier=? __tmp201863 'bind-method!)) + (let ((_%L200774%_ _%hd200600200919%_) + (_%L200775%_ _%hd200591200895%_) + (_%L200776%_ _%hd200582200871%_) + (_%L200777%_ _%hd200573200847%_)) + (_%__kont201510201511%_ + _%L200774%_ + _%L200775%_ + _%L200776%_ + _%L200777%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200527200528%_)) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200527200528%_)) - (_%__kont200527200528%_)) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_)))) - (_%__kont200527200528%_))))))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self199390%_ _%stx199391%_) - (let* ((_%__stx200765200766%_ _%stx199391%_) - (_%g199394199434%_ + (lambda (_%self200375%_ _%stx200376%_) + (let* ((_%__stx201750201751%_ _%stx200376%_) + (_%g200379200419%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200765200766%_))))) - (let ((_%__kont200767200768%_ - (lambda (_%L199540%_ _%L199541%_) + _%__stx201750201751%_))))) + (let ((_%__kont201752201753%_ + (lambda (_%L200525%_ _%L200526%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199541%_)) - (cons _%L199540%_ '()))))) - (_%__kont200769200770%_ - (lambda (_%L199463%_ _%L199464%_) '(begin)))) + (gxc#identifier-symbol _%L200526%_)) + (cons _%L200525%_ '()))))) + (_%__kont201754201755%_ + (lambda (_%L200448%_ _%L200449%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200765200766%_)) - (let ((_%e199398199484%_ + (gx#stx-pair? _%__stx201750201751%_)) + (let ((_%e200383200469%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200765200766%_)))) - (let ((_%tl199400199489%_ + (gx#stx-e _%__stx201750201751%_)))) + (let ((_%tl200385200474%_ (let () (declare (not safe)) - (##cdr _%e199398199484%_))) - (_%hd199399199487%_ + (##cdr _%e200383200469%_))) + (_%hd200384200472%_ (let () (declare (not safe)) - (##car _%e199398199484%_)))) + (##car _%e200383200469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199400199489%_)) - (let ((_%e199401199492%_ + (gx#stx-pair? _%tl200385200474%_)) + (let ((_%e200386200477%_ (let () (declare (not safe)) - (gx#stx-e _%tl199400199489%_)))) - (let ((_%tl199403199497%_ + (gx#stx-e _%tl200385200474%_)))) + (let ((_%tl200388200482%_ (let () (declare (not safe)) - (##cdr _%e199401199492%_))) - (_%hd199402199495%_ + (##cdr _%e200386200477%_))) + (_%hd200387200480%_ (let () (declare (not safe)) - (##car _%e199401199492%_)))) + (##car _%e200386200477%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199402199495%_)) - (let ((_%e199404199500%_ + (gx#stx-pair? _%hd200387200480%_)) + (let ((_%e200389200485%_ (let () (declare (not safe)) - (gx#stx-e _%hd199402199495%_)))) - (let ((_%tl199406199505%_ + (gx#stx-e _%hd200387200480%_)))) + (let ((_%tl200391200490%_ (let () (declare (not safe)) - (##cdr _%e199404199500%_))) - (_%hd199405199503%_ + (##cdr _%e200389200485%_))) + (_%hd200390200488%_ (let () (declare (not safe)) - (##car _%e199404199500%_)))) + (##car _%e200389200485%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199405199503%_)) + (gx#identifier? _%hd200390200488%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd199405199503%_)) + _%hd200390200488%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199406199505%_)) - (let ((_%e199407199508%_ + _%tl200391200490%_)) + (let ((_%e200392200493%_ (let () (declare (not safe)) (gx#stx-e - _%tl199406199505%_)))) - (let ((_%tl199409199513%_ + _%tl200391200490%_)))) + (let ((_%tl200394200498%_ (let () (declare (not safe)) - (##cdr _%e199407199508%_))) - (_%hd199408199511%_ + (##cdr _%e200392200493%_))) + (_%hd200393200496%_ (let () (declare (not safe)) - (##car _%e199407199508%_)))) + (##car _%e200392200493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199409199513%_)) + _%tl200394200498%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199403199497%_)) - (let ((_%e199410199516%_ + _%tl200388200482%_)) + (let ((_%e200395200501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199403199497%_)))) - (let ((_%tl199412199521%_ + (gx#stx-e _%tl200388200482%_)))) + (let ((_%tl200397200506%_ (let () (declare (not safe)) - (##cdr _%e199410199516%_))) - (_%hd199411199519%_ + (##cdr _%e200395200501%_))) + (_%hd200396200504%_ (let () (declare (not safe)) - (##car _%e199410199516%_)))) + (##car _%e200395200501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199411199519%_)) - (let ((_%e199413199524%_ + (gx#stx-pair? _%hd200396200504%_)) + (let ((_%e200398200509%_ (let () (declare (not safe)) - (gx#stx-e _%hd199411199519%_)))) - (let ((_%tl199415199529%_ + (gx#stx-e _%hd200396200504%_)))) + (let ((_%tl200400200514%_ (let () (declare (not safe)) - (##cdr _%e199413199524%_))) - (_%hd199414199527%_ + (##cdr _%e200398200509%_))) + (_%hd200399200512%_ (let () (declare (not safe)) - (##car _%e199413199524%_)))) + (##car _%e200398200509%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199414199527%_)) + (gx#identifier? _%hd200399200512%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199414199527%_)) + _%hd200399200512%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199415199529%_)) - (let ((_%e199416199532%_ + _%tl200400200514%_)) + (let ((_%e200401200517%_ (let () (declare (not safe)) (gx#stx-e - _%tl199415199529%_)))) - (let ((_%tl199418199537%_ + _%tl200400200514%_)))) + (let ((_%tl200403200522%_ (let () (declare (not safe)) - (##cdr _%e199416199532%_))) - (_%hd199417199535%_ + (##cdr _%e200401200517%_))) + (_%hd200402200520%_ (let () (declare (not safe)) - (##car _%e199416199532%_)))) + (##car _%e200401200517%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199418199537%_)) + _%tl200403200522%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199412199521%_)) - (_%__kont200767200768%_ - _%hd199417199535%_ - _%hd199408199511%_) + _%tl200397200506%_)) + (_%__kont201752201753%_ + _%hd200402200520%_ + _%hd200393200496%_) (let () (declare (not safe)) - (_%g199394199434%_))) + (_%g200379200419%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199412199521%_)) - (_%__kont200769200770%_ - _%hd199411199519%_ - _%hd199402199495%_) + _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_)))))) + (_%g200379200419%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199412199521%_)) - (_%__kont200769200770%_ - _%hd199411199519%_ - _%hd199402199495%_) + _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199412199521%_)) - (_%__kont200769200770%_ - _%hd199411199519%_ - _%hd199402199495%_) + _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199412199521%_)) - (_%__kont200769200770%_ - _%hd199411199519%_ - _%hd199402199495%_) + (gx#stx-null? _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_)))))) + (_%g200379200419%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199412199521%_)) - (_%__kont200769200770%_ - _%hd199411199519%_ - _%hd199402199495%_) + (gx#stx-null? _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_)))))) - (let () (declare (not safe)) (_%g199394199434%_))) + (_%g200379200419%_)))))) + (let () (declare (not safe)) (_%g200379200419%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199403199497%_)) - (let ((_%e199427199455%_ + (gx#stx-pair? _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) - (gx#stx-e _%tl199403199497%_)))) - (let ((_%tl199429199460%_ + (gx#stx-e _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199427199455%_))) - (_%hd199428199458%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199427199455%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199429199460%_)) - (_%__kont200769200770%_ - _%hd199428199458%_ - _%hd199402199495%_) + (gx#stx-null? _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_))))) - (let () (declare (not safe)) (_%g199394199434%_)))))) + (_%g200379200419%_))))) + (let () (declare (not safe)) (_%g200379200419%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199403199497%_)) - (let ((_%e199427199455%_ + _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) (gx#stx-e - _%tl199403199497%_)))) - (let ((_%tl199429199460%_ + _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e199427199455%_))) - (_%hd199428199458%_ - (let () (declare (not safe)) (##car _%e199427199455%_)))) + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ + (let () (declare (not safe)) (##car _%e200412200440%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199429199460%_)) - (_%__kont200769200770%_ - _%hd199428199458%_ - _%hd199402199495%_) - (let () (declare (not safe)) (_%g199394199434%_))))) + (gx#stx-null? _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) + (let () (declare (not safe)) (_%g200379200419%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199394199434%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199403199497%_)) - (let ((_%e199427199455%_ + _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) (gx#stx-e - _%tl199403199497%_)))) - (let ((_%tl199429199460%_ + _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199427199455%_))) - (_%hd199428199458%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199427199455%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199429199460%_)) - (_%__kont200769200770%_ - _%hd199428199458%_ - _%hd199402199495%_) + _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_))))) + (_%g200379200419%_))))) (let () (declare (not safe)) - (_%g199394199434%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199403199497%_)) - (let ((_%e199427199455%_ + _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) (gx#stx-e - _%tl199403199497%_)))) - (let ((_%tl199429199460%_ + _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199427199455%_))) - (_%hd199428199458%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199427199455%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199429199460%_)) - (_%__kont200769200770%_ - _%hd199428199458%_ - _%hd199402199495%_) + _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_))))) + (_%g200379200419%_))))) (let () (declare (not safe)) - (_%g199394199434%_)))))) + (_%g200379200419%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199403199497%_)) - (let ((_%e199427199455%_ + (gx#stx-pair? _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) - (gx#stx-e _%tl199403199497%_)))) - (let ((_%tl199429199460%_ + (gx#stx-e _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199427199455%_))) - (_%hd199428199458%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199427199455%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199429199460%_)) - (_%__kont200769200770%_ - _%hd199428199458%_ - _%hd199402199495%_) + _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199394199434%_))))) + (_%g200379200419%_))))) (let () (declare (not safe)) - (_%g199394199434%_)))))) - (let () (declare (not safe)) (_%g199394199434%_))))) - (let () (declare (not safe)) (_%g199394199434%_))))))) + (_%g200379200419%_)))))) + (let () (declare (not safe)) (_%g200379200419%_))))) + (let () (declare (not safe)) (_%g200379200419%_))))))) (define gxc#!alias::typedecl - (lambda (_%self197584199375%_) - (let* ((_%self199378%_ _%self197584199375%_) - (_%self199380%_ _%self199378%_)) + (lambda (_%self198569200360%_) + (let* ((_%self200363%_ _%self198569200360%_) + (_%self200365%_ _%self200363%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self199380%_ '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 (_%self197585199146%_) - (let* ((_%self199149%_ _%self197585199146%_) - (_%self199151%_ _%self199149%_) - (_%self199160199176%_ _%self199151%_) - (_%E199162199180%_ + (lambda (_%self198570200131%_) + (let* ((_%self200134%_ _%self198570200131%_) + (_%self200136%_ _%self200134%_) + (_%self200145200161%_ _%self200136%_) + (_%E200147200165%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self199160199176%_ + _%self200145200161%_ '((!class id super precendence-list @@ -2054,124 +2054,124 @@ metaclass methods)))) '#!void)) - (_%K199163199195%_ - (lambda (_%methods199183%_ - _%metaclass199184%_ - _%system?199185%_ - _%final?199186%_ - _%struct?199187%_ - _%constructor199188%_ - _%fields199189%_ - _%slots199190%_ - _%precendence-list199191%_ - _%super199192%_ - _%id199193%_) + (_%K200148200180%_ + (lambda (_%methods200168%_ + _%metaclass200169%_ + _%system?200170%_ + _%final?200171%_ + _%struct?200172%_ + _%constructor200173%_ + _%fields200174%_ + _%slots200175%_ + _%precendence-list200176%_ + _%super200177%_ + _%id200178%_) (cons '@class - (cons _%id199193%_ - (cons _%super199192%_ - (cons _%precendence-list199191%_ - (cons _%slots199190%_ - (cons _%fields199189%_ - (cons _%constructor199188%_ - (cons _%struct?199187%_ + (cons _%id200178%_ + (cons _%super200177%_ + (cons _%precendence-list200176%_ + (cons _%slots200175%_ + (cons _%fields200174%_ + (cons _%constructor200173%_ + (cons _%struct?200172%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?199186%_ - (cons _%system?199185%_ - (cons _%metaclass199184%_ - (cons (if _%methods199183%_ + (cons _%final?200171%_ + (cons _%system?200170%_ + (cons _%metaclass200169%_ + (cons (if _%methods200168%_ (let () (declare (not safe)) (hash->list - _%methods199183%_)) + _%methods200168%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e199164199198%_ + (_%e200149200183%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '1 '#f '#f))) - (_%id199201%_ _%e199164199198%_) - (_%e199165199203%_ + (##unchecked-structure-ref _%self200145200161%_ '1 '#f '#f))) + (_%id200186%_ _%e200149200183%_) + (_%e200150200188%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '2 '#f '#f))) - (_%super199206%_ _%e199165199203%_) - (_%e199166199208%_ + (##unchecked-structure-ref _%self200145200161%_ '2 '#f '#f))) + (_%super200191%_ _%e200150200188%_) + (_%e200151200193%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '3 '#f '#f))) - (_%precendence-list199211%_ _%e199166199208%_) - (_%e199167199213%_ + (##unchecked-structure-ref _%self200145200161%_ '3 '#f '#f))) + (_%precendence-list200196%_ _%e200151200193%_) + (_%e200152200198%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '4 '#f '#f))) - (_%slots199216%_ _%e199167199213%_) - (_%e199168199218%_ + (##unchecked-structure-ref _%self200145200161%_ '4 '#f '#f))) + (_%slots200201%_ _%e200152200198%_) + (_%e200153200203%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '5 '#f '#f))) - (_%fields199221%_ _%e199168199218%_) - (_%e199169199223%_ + (##unchecked-structure-ref _%self200145200161%_ '5 '#f '#f))) + (_%fields200206%_ _%e200153200203%_) + (_%e200154200208%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '6 '#f '#f))) - (_%constructor199226%_ _%e199169199223%_) - (_%e199170199228%_ + (##unchecked-structure-ref _%self200145200161%_ '6 '#f '#f))) + (_%constructor200211%_ _%e200154200208%_) + (_%e200155200213%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '7 '#f '#f))) - (_%struct?199231%_ _%e199170199228%_) - (_%e199171199233%_ + (##unchecked-structure-ref _%self200145200161%_ '7 '#f '#f))) + (_%struct?200216%_ _%e200155200213%_) + (_%e200156200218%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '8 '#f '#f))) - (_%final?199236%_ _%e199171199233%_) - (_%e199172199238%_ + (##unchecked-structure-ref _%self200145200161%_ '8 '#f '#f))) + (_%final?200221%_ _%e200156200218%_) + (_%e200157200223%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199160199176%_ '9 '#f '#f))) - (_%system?199241%_ _%e199172199238%_) - (_%e199173199243%_ + (##unchecked-structure-ref _%self200145200161%_ '9 '#f '#f))) + (_%system?200226%_ _%e200157200223%_) + (_%e200158200228%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self199160199176%_ + _%self200145200161%_ '10 '#f '#f))) - (_%metaclass199246%_ _%e199173199243%_) - (_%e199174199248%_ + (_%metaclass200231%_ _%e200158200228%_) + (_%e200159200233%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self199160199176%_ + _%self200145200161%_ '11 '#f '#f))) - (_%methods199251%_ _%e199174199248%_)) - (_%K199163199195%_ - _%methods199251%_ - _%metaclass199246%_ - _%system?199241%_ - _%final?199236%_ - _%struct?199231%_ - _%constructor199226%_ - _%fields199221%_ - _%slots199216%_ - _%precendence-list199211%_ - _%super199206%_ - _%id199201%_)))) + (_%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 (_%self197586199009%_) - (let* ((_%self199012%_ _%self197586199009%_) - (_%self199014%_ _%self199012%_)) + (lambda (_%self198571199994%_) + (let* ((_%self199997%_ _%self198571199994%_) + (_%self199999%_ _%self199997%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self199014%_ '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 (_%self197587198872%_) - (let* ((_%self198875%_ _%self197587198872%_) - (_%self198877%_ _%self198875%_)) + (lambda (_%self198572199857%_) + (let* ((_%self199860%_ _%self198572199857%_) + (_%self199862%_ _%self199860%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198877%_ '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 (_%self197588198735%_) - (let* ((_%self198738%_ _%self197588198735%_) - (_%self198740%_ _%self198738%_)) + (lambda (_%self198573199720%_) + (let* ((_%self199723%_ _%self198573199720%_) + (_%self199725%_ _%self199723%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198740%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199725%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198740%_ + _%self199725%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198740%_ + _%self199725%_ '4 '#f '#f)) @@ -2227,24 +2227,24 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self197589198598%_) - (let* ((_%self198601%_ _%self197589198598%_) - (_%self198603%_ _%self198601%_)) + (lambda (_%self198574199583%_) + (let* ((_%self199586%_ _%self198574199583%_) + (_%self199588%_ _%self199586%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198603%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199588%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198603%_ + _%self199588%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198603%_ + _%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 (_%self197590198461%_) - (let* ((_%self198464%_ _%self197590198461%_) - (_%self198466%_ _%self198464%_)) + (lambda (_%self198575199446%_) + (let* ((_%self199449%_ _%self198575199446%_) + (_%self199451%_ _%self199449%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198466%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199451%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198466%_ + _%self199451%_ '2 '#f '#f)) @@ -2276,34 +2276,34 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self197591198272%_) - (let* ((_%self198275%_ _%self197591198272%_) - (_%self198277%_ _%self198275%_) - (_%self198286198295%_ _%self198277%_) - (_%E198288198299%_ + (lambda (_%self198576199257%_) + (let* ((_%self199260%_ _%self198576199257%_) + (_%self199262%_ _%self199260%_) + (_%self199271199280%_ _%self199262%_) + (_%E199273199284%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self198286198295%_ + _%self199271199280%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K198289198318%_ - (lambda (_%dispatch198302%_ - _%arity198303%_ - _%signature198304%_) - (if _%signature198304%_ - (let ((_%signature198306%_ _%signature198304%_)) + (_%K199274199303%_ + (lambda (_%dispatch199287%_ + _%arity199288%_ + _%signature199289%_) + (if _%signature199289%_ + (let ((_%signature199291%_ _%signature199289%_)) (cons '@lambda - (cons _%arity198303%_ - (cons _%dispatch198302%_ + (cons _%arity199288%_ + (cons _%dispatch199287%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature198306%_ + _%signature199291%_ '1 '#f '#f)) @@ -2311,7 +2311,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198306%_ + _%signature199291%_ '2 '#f '#f)) @@ -2319,7 +2319,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198306%_ + _%signature199291%_ '3 '#f '#f)) @@ -2329,7 +2329,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature198306%_ + _%signature199291%_ '4 '#f '#f)) @@ -2337,7 +2337,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198306%_ + _%signature199291%_ '5 '#f '#f)) @@ -2346,63 +2346,63 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity198303%_ - (cons _%dispatch198302%_ '())))))) - (_%e198290198321%_ + (cons _%arity199288%_ + (cons _%dispatch199287%_ '())))))) + (_%e199275199306%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198286198295%_ '1 '#f '#f))) - (_%e198291198324%_ + (##unchecked-structure-ref _%self199271199280%_ '1 '#f '#f))) + (_%e199276199309%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198286198295%_ '2 '#f '#f))) - (_%signature198327%_ _%e198291198324%_) - (_%e198292198329%_ + (##unchecked-structure-ref _%self199271199280%_ '2 '#f '#f))) + (_%signature199312%_ _%e199276199309%_) + (_%e199277199314%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198286198295%_ '3 '#f '#f))) - (_%arity198332%_ _%e198292198329%_) - (_%e198293198334%_ + (##unchecked-structure-ref _%self199271199280%_ '3 '#f '#f))) + (_%arity199317%_ _%e199277199314%_) + (_%e199278199319%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198286198295%_ '4 '#f '#f))) - (_%dispatch198337%_ _%e198293198334%_)) - (_%K198289198318%_ - _%dispatch198337%_ - _%arity198332%_ - _%signature198327%_)))) + (##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 (_%self197592198131%_) - (let* ((_%self198134%_ _%self197592198131%_) - (_%self198136%_ _%self198134%_)) - (letrec ((_%clause-e198146%_ - (lambda (_%clause198148%_) - (cdr (let ((__method200853 + (lambda (_%self198577199116%_) + (let* ((_%self199119%_ _%self198577199116%_) + (_%self199121%_ _%self199119%_)) + (letrec ((_%clause-e199131%_ + (lambda (_%clause199133%_) + (cdr (let ((__method201838 (let () (declare (not safe)) (__method-ref - _%clause198148%_ + _%clause199133%_ 'typedecl)))) - (if __method200853 + (if __method201838 (let () (declare (not safe)) - (__method200853 _%clause198148%_)) + (__method201838 _%clause199133%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause198148%_ + _%clause199133%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e198146%_ + (map _%clause-e199131%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self198136%_ + _%self199121%_ '3 '#f '#f)))))))) @@ -2414,17 +2414,17 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self197593197994%_) - (let* ((_%self197997%_ _%self197593197994%_) - (_%self197999%_ _%self197997%_)) + (lambda (_%self198578198979%_) + (let* ((_%self198982%_ _%self198578198979%_) + (_%self198984%_ _%self198982%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197999%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self198984%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197999%_ + _%self198984%_ '4 '#f '#f)) @@ -2437,17 +2437,17 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self197594197857%_) - (let* ((_%self197860%_ _%self197594197857%_) - (_%self197862%_ _%self197860%_)) + (lambda (_%self198579198842%_) + (let* ((_%self198845%_ _%self198579198842%_) + (_%self198847%_ _%self198845%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197862%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self198847%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197862%_ + _%self198847%_ '4 '#f '#f)) @@ -2460,13 +2460,13 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self197595197720%_) - (let* ((_%self197723%_ _%self197595197720%_) - (_%self197725%_ _%self197723%_)) + (lambda (_%self198580198705%_) + (let* ((_%self198708%_ _%self198580198705%_) + (_%self198710%_ _%self198708%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197725%_ '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 aa7ed64c5..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]#_g200880_| + (define |gxc[1]#_g201865_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200882_| + (define |gxc[1]#_g201867_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200884_| + (define |gxc[1]#_g201869_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200886_| + (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 ((__obj200849 + (let ((__obj201834 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj200849 + __obj201834 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj201834 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '6 '#f '#f)) - (let ((__tmp200879 (cons |gxc[1]#_g200880_| '()))) + (##unchecked-structure-set! __obj201834 '() '6 '#f '#f)) + (let ((__tmp201864 (cons |gxc[1]#_g201865_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj200849 __tmp200879 '3 '#f '#f)) + (##unchecked-structure-set! __obj201834 __tmp201864 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj201834 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj201834 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj201834 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '#f '11 '#f '#f)) - (let ((__tmp200881 |gxc[1]#_g200882_|)) + (##unchecked-structure-set! __obj201834 '#f '11 '#f '#f)) + (let ((__tmp201866 |gxc[1]#_g201867_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200849 __tmp200881 '12 '#f '#f)) - (let ((__tmp200883 |gxc[1]#_g200884_|)) + (##unchecked-structure-set! __obj201834 __tmp201866 '12 '#f '#f)) + (let ((__tmp201868 |gxc[1]#_g201869_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200849 __tmp200883 '13 '#f '#f)) - (let ((__tmp200885 |gxc[1]#_g200886_|)) + (##unchecked-structure-set! __obj201834 __tmp201868 '13 '#f '#f)) + (let ((__tmp201870 |gxc[1]#_g201871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200849 __tmp200885 '14 '#f '#f)) + (##unchecked-structure-set! __obj201834 __tmp201870 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200849 '() '20 '#f '#f)) - __obj200849))) + (##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 913df228b..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]#_g209399_| + (define |gxc[1]#_g210384_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209406_| + (define |gxc[1]#_g210391_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209408_| + (define |gxc[1]#_g210393_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209410_| + (define |gxc[1]#_g210395_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209412_| + (define |gxc[1]#_g210397_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209414_| + (define |gxc[1]#_g210399_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209426_| + (define |gxc[1]#_g210411_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209428_| + (define |gxc[1]#_g210413_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209430_| + (define |gxc[1]#_g210415_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209432_| + (define |gxc[1]#_g210417_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209434_| + (define |gxc[1]#_g210419_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx202817%_) - (let* ((_%g202821202839%_ - (lambda (_%g202822202835%_) + (lambda (_%$stx203802%_) + (let* ((_%g203806203824%_ + (lambda (_%g203807203820%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202822202835%_)))) - (_%g202820202894%_ - (lambda (_%g202822202843%_) + _%g203807203820%_)))) + (_%g203805203879%_ + (lambda (_%g203807203828%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202822202843%_)) - (let ((_%e202825202846%_ + (gx#stx-pair? _%g203807203828%_)) + (let ((_%e203810203831%_ (let () (declare (not safe)) - (gx#syntax-e _%g202822202843%_)))) - (let ((_%hd202826202850%_ + (gx#syntax-e _%g203807203828%_)))) + (let ((_%hd203811203835%_ (let () (declare (not safe)) - (##car _%e202825202846%_))) - (_%tl202827202853%_ + (##car _%e203810203831%_))) + (_%tl203812203838%_ (let () (declare (not safe)) - (##cdr _%e202825202846%_)))) + (##cdr _%e203810203831%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202827202853%_)) - (let ((_%e202828202856%_ + (gx#stx-pair? _%tl203812203838%_)) + (let ((_%e203813203841%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202827202853%_)))) - (let ((_%hd202829202860%_ + (gx#syntax-e _%tl203812203838%_)))) + (let ((_%hd203814203845%_ (let () (declare (not safe)) - (##car _%e202828202856%_))) - (_%tl202830202863%_ + (##car _%e203813203841%_))) + (_%tl203815203848%_ (let () (declare (not safe)) - (##cdr _%e202828202856%_)))) + (##cdr _%e203813203841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202830202863%_)) - (let ((_%e202831202866%_ + (gx#stx-pair? _%tl203815203848%_)) + (let ((_%e203816203851%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202830202863%_)))) - (let ((_%hd202832202870%_ + _%tl203815203848%_)))) + (let ((_%hd203817203855%_ (let () (declare (not safe)) - (##car _%e202831202866%_))) - (_%tl202833202873%_ + (##car _%e203816203851%_))) + (_%tl203818203858%_ (let () (declare (not safe)) - (##cdr _%e202831202866%_)))) + (##cdr _%e203816203851%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202833202873%_)) - ((lambda (_%L202876%_ - _%L202878%_) + _%tl203818203858%_)) + ((lambda (_%L203861%_ + _%L203863%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202878%_)) + _%L203863%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202878%_ '())) - (cons _%L202876%_ '()))) + (cons _%L203863%_ '())) + (cons _%L203861%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202821202839%_ - _%g202822202843%_))) - _%hd202832202870%_ - _%hd202829202860%_) - (_%g202821202839%_ - _%g202822202843%_)))) - (_%g202821202839%_ _%g202822202843%_)))) - (_%g202821202839%_ _%g202822202843%_)))) - (_%g202821202839%_ _%g202822202843%_))))) - (_%g202820202894%_ _%$stx202817%_)))) + (_%g203806203824%_ + _%g203807203828%_))) + _%hd203817203855%_ + _%hd203814203845%_) + (_%g203806203824%_ + _%g203807203828%_)))) + (_%g203806203824%_ _%g203807203828%_)))) + (_%g203806203824%_ _%g203807203828%_)))) + (_%g203806203824%_ _%g203807203828%_))))) + (_%g203805203879%_ _%$stx203802%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx202898%_) - (let* ((_%g202902202920%_ - (lambda (_%g202903202916%_) + (lambda (_%$stx203883%_) + (let* ((_%g203887203905%_ + (lambda (_%g203888203901%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202903202916%_)))) - (_%g202901202975%_ - (lambda (_%g202903202924%_) + _%g203888203901%_)))) + (_%g203886203960%_ + (lambda (_%g203888203909%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202903202924%_)) - (let ((_%e202906202927%_ + (gx#stx-pair? _%g203888203909%_)) + (let ((_%e203891203912%_ (let () (declare (not safe)) - (gx#syntax-e _%g202903202924%_)))) - (let ((_%hd202907202931%_ + (gx#syntax-e _%g203888203909%_)))) + (let ((_%hd203892203916%_ (let () (declare (not safe)) - (##car _%e202906202927%_))) - (_%tl202908202934%_ + (##car _%e203891203912%_))) + (_%tl203893203919%_ (let () (declare (not safe)) - (##cdr _%e202906202927%_)))) + (##cdr _%e203891203912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202908202934%_)) - (let ((_%e202909202937%_ + (gx#stx-pair? _%tl203893203919%_)) + (let ((_%e203894203922%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202908202934%_)))) - (let ((_%hd202910202941%_ + (gx#syntax-e _%tl203893203919%_)))) + (let ((_%hd203895203926%_ (let () (declare (not safe)) - (##car _%e202909202937%_))) - (_%tl202911202944%_ + (##car _%e203894203922%_))) + (_%tl203896203929%_ (let () (declare (not safe)) - (##cdr _%e202909202937%_)))) + (##cdr _%e203894203922%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202911202944%_)) - (let ((_%e202912202947%_ + (gx#stx-pair? _%tl203896203929%_)) + (let ((_%e203897203932%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202911202944%_)))) - (let ((_%hd202913202951%_ + _%tl203896203929%_)))) + (let ((_%hd203898203936%_ (let () (declare (not safe)) - (##car _%e202912202947%_))) - (_%tl202914202954%_ + (##car _%e203897203932%_))) + (_%tl203899203939%_ (let () (declare (not safe)) - (##cdr _%e202912202947%_)))) + (##cdr _%e203897203932%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202914202954%_)) - ((lambda (_%L202957%_ - _%L202959%_) + _%tl203899203939%_)) + ((lambda (_%L203942%_ + _%L203944%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202959%_)) + _%L203944%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202959%_ '())) - (cons _%L202957%_ '()))) + (cons _%L203944%_ '())) + (cons _%L203942%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202902202920%_ - _%g202903202924%_))) - _%hd202913202951%_ - _%hd202910202941%_) - (_%g202902202920%_ - _%g202903202924%_)))) - (_%g202902202920%_ _%g202903202924%_)))) - (_%g202902202920%_ _%g202903202924%_)))) - (_%g202902202920%_ _%g202903202924%_))))) - (_%g202901202975%_ _%$stx202898%_)))) + (_%g203887203905%_ + _%g203888203909%_))) + _%hd203898203936%_ + _%hd203895203926%_) + (_%g203887203905%_ + _%g203888203909%_)))) + (_%g203887203905%_ _%g203888203909%_)))) + (_%g203887203905%_ _%g203888203909%_)))) + (_%g203887203905%_ _%g203888203909%_))))) + (_%g203886203960%_ _%$stx203883%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx202979%_) - (let* ((_%g202983203012%_ - (lambda (_%g202984203008%_) + (lambda (_%$stx203964%_) + (let* ((_%g203968203997%_ + (lambda (_%g203969203993%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202984203008%_)))) - (_%g202982203112%_ - (lambda (_%g202984203016%_) + _%g203969203993%_)))) + (_%g203967204097%_ + (lambda (_%g203969204001%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202984203016%_)) - (let ((_%e202987203019%_ + (gx#stx-pair? _%g203969204001%_)) + (let ((_%e203972204004%_ (let () (declare (not safe)) - (gx#syntax-e _%g202984203016%_)))) - (let ((_%hd202988203023%_ + (gx#syntax-e _%g203969204001%_)))) + (let ((_%hd203973204008%_ (let () (declare (not safe)) - (##car _%e202987203019%_))) - (_%tl202989203026%_ + (##car _%e203972204004%_))) + (_%tl203974204011%_ (let () (declare (not safe)) - (##cdr _%e202987203019%_)))) + (##cdr _%e203972204004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202989203026%_)) - (let ((_g209377_ + (gx#stx-pair/null? _%tl203974204011%_)) + (let ((_g210362_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202989203026%_ + _%tl203974204011%_ '0)))) (begin - (let ((_g209378_ + (let ((_g210363_ (let () (declare (not safe)) - (if (##values? _g209377_) - (##values-length _g209377_) + (if (##values? _g210362_) + (##values-length _g210362_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209378_ 2))) + (##fx= _g210363_ 2))) (error "Context expects 2 values" - _g209378_))) - (let ((_%target202990203029%_ + _g210363_))) + (let ((_%target203975204014%_ (let () (declare (not safe)) - (##values-ref _g209377_ 0))) - (_%tl202992203032%_ + (##values-ref _g210362_ 0))) + (_%tl203977204017%_ (let () (declare (not safe)) - (##values-ref _g209377_ 1)))) + (##values-ref _g210362_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202992203032%_)) - (letrec ((_%loop202993203035%_ - (lambda (_%hd202991203039%_ - _%type202997203042%_ - _%symbol202998203044%_) + (gx#stx-null? _%tl203977204017%_)) + (letrec ((_%loop203978204020%_ + (lambda (_%hd203976204024%_ + _%type203982204027%_ + _%symbol203983204029%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd202991203039%_)) - (let ((_%e202994203047%_ + _%hd203976204024%_)) + (let ((_%e203979204032%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd202991203039%_)))) - (let ((_%lp-hd202995203051%_ + (gx#syntax-e _%hd203976204024%_)))) + (let ((_%lp-hd203980204036%_ (let () (declare (not safe)) - (##car _%e202994203047%_))) - (_%lp-tl202996203054%_ + (##car _%e203979204032%_))) + (_%lp-tl203981204039%_ (let () (declare (not safe)) - (##cdr _%e202994203047%_)))) + (##cdr _%e203979204032%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd202995203051%_)) - (let ((_%e203001203057%_ + (gx#stx-pair? _%lp-hd203980204036%_)) + (let ((_%e203986204042%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd202995203051%_)))) - (let ((_%hd203002203061%_ + (gx#syntax-e _%lp-hd203980204036%_)))) + (let ((_%hd203987204046%_ (let () (declare (not safe)) - (##car _%e203001203057%_))) - (_%tl203003203064%_ + (##car _%e203986204042%_))) + (_%tl203988204049%_ (let () (declare (not safe)) - (##cdr _%e203001203057%_)))) + (##cdr _%e203986204042%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203003203064%_)) - (let ((_%e203004203067%_ + (gx#stx-pair? _%tl203988204049%_)) + (let ((_%e203989204052%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203003203064%_)))) - (let ((_%hd203005203071%_ + (gx#syntax-e _%tl203988204049%_)))) + (let ((_%hd203990204056%_ (let () (declare (not safe)) - (##car _%e203004203067%_))) - (_%tl203006203074%_ + (##car _%e203989204052%_))) + (_%tl203991204059%_ (let () (declare (not safe)) - (##cdr _%e203004203067%_)))) + (##cdr _%e203989204052%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203006203074%_)) - (_%loop202993203035%_ - _%lp-tl202996203054%_ - (cons _%hd203005203071%_ - _%type202997203042%_) - (cons _%hd203002203061%_ - _%symbol202998203044%_)) - (_%g202983203012%_ - _%g202984203016%_)))) - (_%g202983203012%_ _%g202984203016%_)))) - (_%g202983203012%_ _%g202984203016%_)))) - (let ((_%type202999203077%_ (reverse _%type202997203042%_)) - (_%symbol203000203080%_ - (reverse _%symbol202998203044%_))) - ((lambda (_%L203083%_ _%L203085%_) + (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 - _%L203083%_ - _%L203085%_)) - (let ((__tmp209379 - (lambda (_%g203100203104%_ - _%g203101203107%_ - _%g203102203109%_) + _%L204068%_ + _%L204070%_)) + (let ((__tmp210364 + (lambda (_%g204085204089%_ + _%g204086204092%_ + _%g204087204094%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g203101203107%_ - (cons _%g203100203104%_ + (cons _%g204086204092%_ + (cons _%g204085204089%_ '()))) - _%g203102203109%_)))) + _%g204087204094%_)))) (declare (not safe)) (__foldr2 - __tmp209379 + __tmp210364 '() - _%L203083%_ - _%L203085%_))))) - _%type202999203077%_ - _%symbol203000203080%_)))))) + _%L204068%_ + _%L204070%_))))) + _%type203984204062%_ + _%symbol203985204065%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop202993203035%_ - _%target202990203029%_ + (_%loop203978204020%_ + _%target203975204014%_ '() '())) - (_%g202983203012%_ - _%g202984203016%_))))) - (_%g202983203012%_ _%g202984203016%_)))) - (_%g202983203012%_ _%g202984203016%_))))) - (_%g202982203112%_ _%$stx202979%_)))) + (_%g203968203997%_ + _%g203969204001%_))))) + (_%g203968203997%_ _%g203969204001%_)))) + (_%g203968203997%_ _%g203969204001%_))))) + (_%g203967204097%_ _%$stx203964%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx203117%_) - (let* ((_%__stx208688208689%_ _%$stx203117%_) - (_%g203122203164%_ + (lambda (_%$stx204102%_) + (let* ((_%__stx209673209674%_ _%$stx204102%_) + (_%g204107204149%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208688208689%_))))) - (let ((_%__kont208691208692%_ - (lambda (_%L203292%_ _%L203294%_ _%L203295%_ _%L203296%_) + _%__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 _%L203296%_ '())) + (cons _%L204281%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203295%_ '())) + (cons _%L204280%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203294%_ '())) - (cons _%L203292%_ '()))))))) - (_%__kont208693208694%_ - (lambda (_%L203211%_ _%L203213%_ _%L203214%_ _%L203215%_) - (cons _%L203215%_ - (cons _%L203214%_ - (cons _%L203213%_ - (cons _%L203211%_ + (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 ((_%__match208727208728%_ - (lambda (_%e203128203242%_ - _%hd203129203246%_ - _%tl203130203249%_ - _%e203131203252%_ - _%hd203132203256%_ - _%tl203133203259%_ - _%e203134203262%_ - _%hd203135203266%_ - _%tl203136203269%_ - _%e203137203272%_ - _%hd203138203276%_ - _%tl203139203279%_ - _%e203140203282%_ - _%hd203141203286%_ - _%tl203142203289%_) - (let ((_%L203292%_ _%hd203141203286%_) - (_%L203294%_ _%hd203138203276%_) - (_%L203295%_ _%hd203135203266%_) - (_%L203296%_ _%hd203132203256%_)) + (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? _%L203296%_)) + (gx#identifier? _%L204281%_)) (let () (declare (not safe)) - (gx#identifier? _%L203295%_)) + (gx#identifier? _%L204280%_)) (let () (declare (not safe)) - (gx#identifier? _%L203294%_))) - (_%__kont208691208692%_ - _%L203292%_ - _%L203294%_ - _%L203295%_ - _%L203296%_) + (gx#identifier? _%L204279%_))) + (_%__kont209676209677%_ + _%L204277%_ + _%L204279%_ + _%L204280%_ + _%L204281%_) (let () (declare (not safe)) - (_%g203122203164%_))))))) + (_%g204107204149%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208688208689%_)) - (let ((_%e203128203242%_ + (gx#stx-pair? _%__stx209673209674%_)) + (let ((_%e204113204227%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208688208689%_)))) - (let ((_%tl203130203249%_ + (gx#syntax-e _%__stx209673209674%_)))) + (let ((_%tl204115204234%_ (let () (declare (not safe)) - (##cdr _%e203128203242%_))) - (_%hd203129203246%_ + (##cdr _%e204113204227%_))) + (_%hd204114204231%_ (let () (declare (not safe)) - (##car _%e203128203242%_)))) + (##car _%e204113204227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203130203249%_)) - (let ((_%e203131203252%_ + (gx#stx-pair? _%tl204115204234%_)) + (let ((_%e204116204237%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203130203249%_)))) - (let ((_%tl203133203259%_ + (gx#syntax-e _%tl204115204234%_)))) + (let ((_%tl204118204244%_ (let () (declare (not safe)) - (##cdr _%e203131203252%_))) - (_%hd203132203256%_ + (##cdr _%e204116204237%_))) + (_%hd204117204241%_ (let () (declare (not safe)) - (##car _%e203131203252%_)))) + (##car _%e204116204237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203133203259%_)) - (let ((_%e203134203262%_ + (gx#stx-pair? _%tl204118204244%_)) + (let ((_%e204119204247%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203133203259%_)))) - (let ((_%tl203136203269%_ + (gx#syntax-e _%tl204118204244%_)))) + (let ((_%tl204121204254%_ (let () (declare (not safe)) - (##cdr _%e203134203262%_))) - (_%hd203135203266%_ + (##cdr _%e204119204247%_))) + (_%hd204120204251%_ (let () (declare (not safe)) - (##car _%e203134203262%_)))) + (##car _%e204119204247%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203136203269%_)) - (let ((_%e203137203272%_ + (gx#stx-pair? _%tl204121204254%_)) + (let ((_%e204122204257%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203136203269%_)))) - (let ((_%tl203139203279%_ + _%tl204121204254%_)))) + (let ((_%tl204124204264%_ (let () (declare (not safe)) - (##cdr _%e203137203272%_))) - (_%hd203138203276%_ + (##cdr _%e204122204257%_))) + (_%hd204123204261%_ (let () (declare (not safe)) - (##car _%e203137203272%_)))) + (##car _%e204122204257%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203139203279%_)) - (let ((_%e203140203282%_ + _%tl204124204264%_)) + (let ((_%e204125204267%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203139203279%_)))) - (let ((_%tl203142203289%_ + _%tl204124204264%_)))) + (let ((_%tl204127204274%_ (let () (declare (not safe)) - (##cdr _%e203140203282%_))) - (_%hd203141203286%_ + (##cdr _%e204125204267%_))) + (_%hd204126204271%_ (let () (declare (not safe)) - (##car _%e203140203282%_)))) + (##car _%e204125204267%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203142203289%_)) - (_%__match208727208728%_ - _%e203128203242%_ - _%hd203129203246%_ - _%tl203130203249%_ - _%e203131203252%_ - _%hd203132203256%_ - _%tl203133203259%_ - _%e203134203262%_ - _%hd203135203266%_ - _%tl203136203269%_ - _%e203137203272%_ - _%hd203138203276%_ - _%tl203139203279%_ - _%e203140203282%_ - _%hd203141203286%_ - _%tl203142203289%_) + _%tl204127204274%_)) + (_%__match209712209713%_ + _%e204113204227%_ + _%hd204114204231%_ + _%tl204115204234%_ + _%e204116204237%_ + _%hd204117204241%_ + _%tl204118204244%_ + _%e204119204247%_ + _%hd204120204251%_ + _%tl204121204254%_ + _%e204122204257%_ + _%hd204123204261%_ + _%tl204124204264%_ + _%e204125204267%_ + _%hd204126204271%_ + _%tl204127204274%_) (let () (declare (not safe)) - (_%g203122203164%_))))) + (_%g204107204149%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203139203279%_)) - (_%__kont208693208694%_ - _%hd203138203276%_ - _%hd203135203266%_ - _%hd203132203256%_ - _%hd203129203246%_) + _%tl204124204264%_)) + (_%__kont209678209679%_ + _%hd204123204261%_ + _%hd204120204251%_ + _%hd204117204241%_ + _%hd204114204231%_) (let () (declare (not safe)) - (_%g203122203164%_)))))) + (_%g204107204149%_)))))) (let () (declare (not safe)) - (_%g203122203164%_))))) + (_%g204107204149%_))))) (let () (declare (not safe)) - (_%g203122203164%_))))) - (let () (declare (not safe)) (_%g203122203164%_))))) - (let () (declare (not safe)) (_%g203122203164%_)))))))) + (_%g204107204149%_))))) + (let () (declare (not safe)) (_%g204107204149%_))))) + (let () (declare (not safe)) (_%g204107204149%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx203321%_) - (let* ((_%g203325203360%_ - (lambda (_%g203326203356%_) + (lambda (_%$stx204306%_) + (let* ((_%g204310204345%_ + (lambda (_%g204311204341%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203326203356%_)))) - (_%g203324203479%_ - (lambda (_%g203326203364%_) + _%g204311204341%_)))) + (_%g204309204464%_ + (lambda (_%g204311204349%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203326203364%_)) - (let ((_%e203330203367%_ + (gx#stx-pair? _%g204311204349%_)) + (let ((_%e204315204352%_ (let () (declare (not safe)) - (gx#syntax-e _%g203326203364%_)))) - (let ((_%hd203331203371%_ + (gx#syntax-e _%g204311204349%_)))) + (let ((_%hd204316204356%_ (let () (declare (not safe)) - (##car _%e203330203367%_))) - (_%tl203332203374%_ + (##car _%e204315204352%_))) + (_%tl204317204359%_ (let () (declare (not safe)) - (##cdr _%e203330203367%_)))) + (##cdr _%e204315204352%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203332203374%_)) - (let ((_g209380_ + (gx#stx-pair/null? _%tl204317204359%_)) + (let ((_g210365_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203332203374%_ + _%tl204317204359%_ '0)))) (begin - (let ((_g209381_ + (let ((_g210366_ (let () (declare (not safe)) - (if (##values? _g209380_) - (##values-length _g209380_) + (if (##values? _g210365_) + (##values-length _g210365_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209381_ 2))) + (##fx= _g210366_ 2))) (error "Context expects 2 values" - _g209381_))) - (let ((_%target203333203377%_ + _g210366_))) + (let ((_%target204318204362%_ (let () (declare (not safe)) - (##values-ref _g209380_ 0))) - (_%tl203335203380%_ + (##values-ref _g210365_ 0))) + (_%tl204320204365%_ (let () (declare (not safe)) - (##values-ref _g209380_ 1)))) + (##values-ref _g210365_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203335203380%_)) - (letrec ((_%loop203336203383%_ - (lambda (_%hd203334203387%_ - _%symbol203340203390%_ - _%method203341203392%_ - _%type-t203342203394%_) + (gx#stx-null? _%tl204320204365%_)) + (letrec ((_%loop204321204368%_ + (lambda (_%hd204319204372%_ + _%symbol204325204375%_ + _%method204326204377%_ + _%type-t204327204379%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203334203387%_)) - (let ((_%e203337203397%_ + _%hd204319204372%_)) + (let ((_%e204322204382%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203334203387%_)))) - (let ((_%lp-hd203338203401%_ + (gx#syntax-e _%hd204319204372%_)))) + (let ((_%lp-hd204323204386%_ (let () (declare (not safe)) - (##car _%e203337203397%_))) - (_%lp-tl203339203404%_ + (##car _%e204322204382%_))) + (_%lp-tl204324204389%_ (let () (declare (not safe)) - (##cdr _%e203337203397%_)))) + (##cdr _%e204322204382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203338203401%_)) - (let ((_%e203346203407%_ + (gx#stx-pair? _%lp-hd204323204386%_)) + (let ((_%e204331204392%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203338203401%_)))) - (let ((_%hd203347203411%_ + (gx#syntax-e _%lp-hd204323204386%_)))) + (let ((_%hd204332204396%_ (let () (declare (not safe)) - (##car _%e203346203407%_))) - (_%tl203348203414%_ + (##car _%e204331204392%_))) + (_%tl204333204399%_ (let () (declare (not safe)) - (##cdr _%e203346203407%_)))) + (##cdr _%e204331204392%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203348203414%_)) - (let ((_%e203349203417%_ + (gx#stx-pair? _%tl204333204399%_)) + (let ((_%e204334204402%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203348203414%_)))) - (let ((_%hd203350203421%_ + (gx#syntax-e _%tl204333204399%_)))) + (let ((_%hd204335204406%_ (let () (declare (not safe)) - (##car _%e203349203417%_))) - (_%tl203351203424%_ + (##car _%e204334204402%_))) + (_%tl204336204409%_ (let () (declare (not safe)) - (##cdr _%e203349203417%_)))) + (##cdr _%e204334204402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203351203424%_)) - (let ((_%e203352203427%_ + (gx#stx-pair? _%tl204336204409%_)) + (let ((_%e204337204412%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203351203424%_)))) - (let ((_%hd203353203431%_ + _%tl204336204409%_)))) + (let ((_%hd204338204416%_ (let () (declare (not safe)) - (##car _%e203352203427%_))) - (_%tl203354203434%_ + (##car _%e204337204412%_))) + (_%tl204339204419%_ (let () (declare (not safe)) - (##cdr _%e203352203427%_)))) + (##cdr _%e204337204412%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203354203434%_)) - (_%loop203336203383%_ - _%lp-tl203339203404%_ - (cons _%hd203353203431%_ - _%symbol203340203390%_) - (cons _%hd203350203421%_ - _%method203341203392%_) - (cons _%hd203347203411%_ - _%type-t203342203394%_)) - (_%g203325203360%_ - _%g203326203364%_)))) - (_%g203325203360%_ - _%g203326203364%_)))) - (_%g203325203360%_ _%g203326203364%_)))) - (_%g203325203360%_ _%g203326203364%_)))) - (let ((_%symbol203343203437%_ (reverse _%symbol203340203390%_)) - (_%method203344203440%_ (reverse _%method203341203392%_)) - (_%type-t203345203442%_ - (reverse _%type-t203342203394%_))) - ((lambda (_%L203445%_ _%L203447%_ _%L203448%_) + _%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 - _%L203445%_ - _%L203447%_ - _%L203448%_)) - (let ((__tmp209382 - (lambda (_%g203464203469%_ - _%g203465203472%_ - _%g203466203474%_ - _%g203467203476%_) + _%L204430%_ + _%L204432%_ + _%L204433%_)) + (let ((__tmp210367 + (lambda (_%g204449204454%_ + _%g204450204457%_ + _%g204451204459%_ + _%g204452204461%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g203466203474%_ - (cons _%g203465203472%_ - (cons _%g203464203469%_ + (cons _%g204451204459%_ + (cons _%g204450204457%_ + (cons _%g204449204454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203467203476%_)))) + _%g204452204461%_)))) (declare (not safe)) (__foldr* - __tmp209382 + __tmp210367 '() - _%L203445%_ - _%L203447%_ - _%L203448%_))))) - _%symbol203343203437%_ - _%method203344203440%_ - _%type-t203345203442%_)))))) + _%L204430%_ + _%L204432%_ + _%L204433%_))))) + _%symbol204328204422%_ + _%method204329204425%_ + _%type-t204330204427%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203336203383%_ - _%target203333203377%_ + (_%loop204321204368%_ + _%target204318204362%_ '() '() '())) - (_%g203325203360%_ - _%g203326203364%_))))) - (_%g203325203360%_ _%g203326203364%_)))) - (_%g203325203360%_ _%g203326203364%_))))) - (_%g203324203479%_ _%$stx203321%_)))) + (_%g204310204345%_ + _%g204311204349%_))))) + (_%g204310204345%_ _%g204311204349%_)))) + (_%g204310204345%_ _%g204311204349%_))))) + (_%g204309204464%_ _%$stx204306%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx203484%_) - (let* ((_%g203488203521%_ - (lambda (_%g203489203517%_) + (lambda (_%$stx204469%_) + (let* ((_%g204473204506%_ + (lambda (_%g204474204502%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203489203517%_)))) - (_%g203487203635%_ - (lambda (_%g203489203525%_) + _%g204474204502%_)))) + (_%g204472204620%_ + (lambda (_%g204474204510%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203489203525%_)) - (let ((_%e203493203528%_ + (gx#stx-pair? _%g204474204510%_)) + (let ((_%e204478204513%_ (let () (declare (not safe)) - (gx#syntax-e _%g203489203525%_)))) - (let ((_%hd203494203532%_ + (gx#syntax-e _%g204474204510%_)))) + (let ((_%hd204479204517%_ (let () (declare (not safe)) - (##car _%e203493203528%_))) - (_%tl203495203535%_ + (##car _%e204478204513%_))) + (_%tl204480204520%_ (let () (declare (not safe)) - (##cdr _%e203493203528%_)))) + (##cdr _%e204478204513%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203495203535%_)) - (let ((_%e203496203538%_ + (gx#stx-pair? _%tl204480204520%_)) + (let ((_%e204481204523%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203495203535%_)))) - (let ((_%hd203497203542%_ + (gx#syntax-e _%tl204480204520%_)))) + (let ((_%hd204482204527%_ (let () (declare (not safe)) - (##car _%e203496203538%_))) - (_%tl203498203545%_ + (##car _%e204481204523%_))) + (_%tl204483204530%_ (let () (declare (not safe)) - (##cdr _%e203496203538%_)))) + (##cdr _%e204481204523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203498203545%_)) - (let ((_g209383_ + (gx#stx-pair/null? _%tl204483204530%_)) + (let ((_g210368_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203498203545%_ + _%tl204483204530%_ '0)))) (begin - (let ((_g209384_ + (let ((_g210369_ (let () (declare (not safe)) - (if (##values? _g209383_) + (if (##values? _g210368_) (##values-length - _g209383_) + _g210368_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209384_ 2))) + (##fx= _g210369_ 2))) (error "Context expects 2 values" - _g209384_))) - (let ((_%target203499203548%_ + _g210369_))) + (let ((_%target204484204533%_ (let () (declare (not safe)) - (##values-ref _g209383_ 0))) - (_%tl203501203551%_ + (##values-ref _g210368_ 0))) + (_%tl204486204536%_ (let () (declare (not safe)) (##values-ref - _g209383_ + _g210368_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203501203551%_)) - (letrec ((_%loop203502203554%_ - (lambda (_%hd203500203558%_ + _%tl204486204536%_)) + (letrec ((_%loop204487204539%_ + (lambda (_%hd204485204543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol203506203561%_ - _%method203507203563%_) + _%symbol204491204546%_ + _%method204492204548%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203500203558%_)) - (let ((_%e203503203566%_ + (gx#stx-pair? _%hd204485204543%_)) + (let ((_%e204488204551%_ (let () (declare (not safe)) - (gx#syntax-e _%hd203500203558%_)))) - (let ((_%lp-hd203504203570%_ + (gx#syntax-e _%hd204485204543%_)))) + (let ((_%lp-hd204489204555%_ (let () (declare (not safe)) - (##car _%e203503203566%_))) - (_%lp-tl203505203573%_ + (##car _%e204488204551%_))) + (_%lp-tl204490204558%_ (let () (declare (not safe)) - (##cdr _%e203503203566%_)))) + (##cdr _%e204488204551%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203504203570%_)) - (let ((_%e203510203576%_ + (gx#stx-pair? _%lp-hd204489204555%_)) + (let ((_%e204495204561%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203504203570%_)))) - (let ((_%hd203511203580%_ + (gx#syntax-e _%lp-hd204489204555%_)))) + (let ((_%hd204496204565%_ (let () (declare (not safe)) - (##car _%e203510203576%_))) - (_%tl203512203583%_ + (##car _%e204495204561%_))) + (_%tl204497204568%_ (let () (declare (not safe)) - (##cdr _%e203510203576%_)))) + (##cdr _%e204495204561%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203512203583%_)) - (let ((_%e203513203586%_ + (gx#stx-pair? _%tl204497204568%_)) + (let ((_%e204498204571%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203512203583%_)))) - (let ((_%hd203514203590%_ + _%tl204497204568%_)))) + (let ((_%hd204499204575%_ (let () (declare (not safe)) - (##car _%e203513203586%_))) - (_%tl203515203593%_ + (##car _%e204498204571%_))) + (_%tl204500204578%_ (let () (declare (not safe)) - (##cdr _%e203513203586%_)))) + (##cdr _%e204498204571%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203515203593%_)) - (_%loop203502203554%_ - _%lp-tl203505203573%_ - (cons _%hd203514203590%_ - _%symbol203506203561%_) - (cons _%hd203511203580%_ - _%method203507203563%_)) - (_%g203488203521%_ - _%g203489203525%_)))) - (_%g203488203521%_ - _%g203489203525%_)))) - (_%g203488203521%_ _%g203489203525%_)))) - (let ((_%symbol203508203596%_ - (reverse _%symbol203506203561%_)) - (_%method203509203599%_ - (reverse _%method203507203563%_))) - ((lambda (_%L203602%_ _%L203604%_ _%L203605%_) + _%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 - _%L203602%_ - _%L203604%_)) - (let ((__tmp209385 - (lambda (_%g203623203627%_ - _%g203624203630%_ - _%g203625203632%_) + _%L204587%_ + _%L204589%_)) + (let ((__tmp210370 + (lambda (_%g204608204612%_ + _%g204609204615%_ + _%g204610204617%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L203605%_ - (cons _%g203624203630%_ + (cons _%L204590%_ + (cons _%g204609204615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g203623203627%_ '())))) + (cons _%g204608204612%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203625203632%_)))) + _%g204610204617%_)))) (declare (not safe)) (__foldr2 - __tmp209385 + __tmp210370 '() - _%L203602%_ - _%L203604%_))))) - _%symbol203508203596%_ - _%method203509203599%_ - _%hd203497203542%_)))))) + _%L204587%_ + _%L204589%_))))) + _%symbol204493204581%_ + _%method204494204584%_ + _%hd204482204527%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203502203554%_ - _%target203499203548%_ + (_%loop204487204539%_ + _%target204484204533%_ '() '())) - (_%g203488203521%_ - _%g203489203525%_))))) - (_%g203488203521%_ _%g203489203525%_)))) - (_%g203488203521%_ _%g203489203525%_)))) - (_%g203488203521%_ _%g203489203525%_))))) - (_%g203487203635%_ _%$stx203484%_)))) + (_%g204473204506%_ + _%g204474204510%_))))) + (_%g204473204506%_ _%g204474204510%_)))) + (_%g204473204506%_ _%g204474204510%_)))) + (_%g204473204506%_ _%g204474204510%_))))) + (_%g204472204620%_ _%$stx204469%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx203640%_) - (let* ((_%g203644203658%_ - (lambda (_%g203645203654%_) + (lambda (_%$stx204625%_) + (let* ((_%g204629204643%_ + (lambda (_%g204630204639%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203645203654%_)))) - (_%g203643203699%_ - (lambda (_%g203645203662%_) + _%g204630204639%_)))) + (_%g204628204684%_ + (lambda (_%g204630204647%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203645203662%_)) - (let ((_%e203647203665%_ + (gx#stx-pair? _%g204630204647%_)) + (let ((_%e204632204650%_ (let () (declare (not safe)) - (gx#syntax-e _%g203645203662%_)))) - (let ((_%hd203648203669%_ + (gx#syntax-e _%g204630204647%_)))) + (let ((_%hd204633204654%_ (let () (declare (not safe)) - (##car _%e203647203665%_))) - (_%tl203649203672%_ + (##car _%e204632204650%_))) + (_%tl204634204657%_ (let () (declare (not safe)) - (##cdr _%e203647203665%_)))) + (##cdr _%e204632204650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203649203672%_)) - (let ((_%e203650203675%_ + (gx#stx-pair? _%tl204634204657%_)) + (let ((_%e204635204660%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203649203672%_)))) - (let ((_%hd203651203679%_ + (gx#syntax-e _%tl204634204657%_)))) + (let ((_%hd204636204664%_ (let () (declare (not safe)) - (##car _%e203650203675%_))) - (_%tl203652203682%_ + (##car _%e204635204660%_))) + (_%tl204637204667%_ (let () (declare (not safe)) - (##cdr _%e203650203675%_)))) + (##cdr _%e204635204660%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203652203682%_)) - ((lambda (_%L203685%_) + (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 _%L203685%_ + (cons _%L204670%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203651203679%_) - (_%g203644203658%_ _%g203645203662%_)))) - (_%g203644203658%_ _%g203645203662%_)))) - (_%g203644203658%_ _%g203645203662%_))))) - (_%g203643203699%_ _%$stx203640%_)))) + _%hd204636204664%_) + (_%g204629204643%_ _%g204630204647%_)))) + (_%g204629204643%_ _%g204630204647%_)))) + (_%g204629204643%_ _%g204630204647%_))))) + (_%g204628204684%_ _%$stx204625%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx203703%_) - (let* ((_%g203707203761%_ - (lambda (_%g203708203757%_) + (lambda (_%$stx204688%_) + (let* ((_%g204692204746%_ + (lambda (_%g204693204742%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203708203757%_)))) - (_%g203706203942%_ - (lambda (_%g203708203765%_) + _%g204693204742%_)))) + (_%g204691204927%_ + (lambda (_%g204693204750%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203708203765%_)) - (let ((_%e203720203768%_ + (gx#stx-pair? _%g204693204750%_)) + (let ((_%e204705204753%_ (let () (declare (not safe)) - (gx#syntax-e _%g203708203765%_)))) - (let ((_%hd203721203772%_ + (gx#syntax-e _%g204693204750%_)))) + (let ((_%hd204706204757%_ (let () (declare (not safe)) - (##car _%e203720203768%_))) - (_%tl203722203775%_ + (##car _%e204705204753%_))) + (_%tl204707204760%_ (let () (declare (not safe)) - (##cdr _%e203720203768%_)))) + (##cdr _%e204705204753%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203722203775%_)) - (let ((_%e203723203778%_ + (gx#stx-pair? _%tl204707204760%_)) + (let ((_%e204708204763%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203722203775%_)))) - (let ((_%hd203724203782%_ + (gx#syntax-e _%tl204707204760%_)))) + (let ((_%hd204709204767%_ (let () (declare (not safe)) - (##car _%e203723203778%_))) - (_%tl203725203785%_ + (##car _%e204708204763%_))) + (_%tl204710204770%_ (let () (declare (not safe)) - (##cdr _%e203723203778%_)))) + (##cdr _%e204708204763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203725203785%_)) - (let ((_%e203726203788%_ + (gx#stx-pair? _%tl204710204770%_)) + (let ((_%e204711204773%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203725203785%_)))) - (let ((_%hd203727203792%_ + _%tl204710204770%_)))) + (let ((_%hd204712204777%_ (let () (declare (not safe)) - (##car _%e203726203788%_))) - (_%tl203728203795%_ + (##car _%e204711204773%_))) + (_%tl204713204780%_ (let () (declare (not safe)) - (##cdr _%e203726203788%_)))) + (##cdr _%e204711204773%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203728203795%_)) - (let ((_%e203729203798%_ + _%tl204713204780%_)) + (let ((_%e204714204783%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203728203795%_)))) - (let ((_%hd203730203802%_ + _%tl204713204780%_)))) + (let ((_%hd204715204787%_ (let () (declare (not safe)) - (##car _%e203729203798%_))) - (_%tl203731203805%_ + (##car _%e204714204783%_))) + (_%tl204716204790%_ (let () (declare (not safe)) - (##cdr _%e203729203798%_)))) + (##cdr _%e204714204783%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203731203805%_)) - (let ((_%e203732203808%_ + _%tl204716204790%_)) + (let ((_%e204717204793%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203731203805%_)))) - (let ((_%hd203733203812%_ - (let () (declare (not safe)) (##car _%e203732203808%_))) - (_%tl203734203815%_ + (gx#syntax-e _%tl204716204790%_)))) + (let ((_%hd204718204797%_ + (let () (declare (not safe)) (##car _%e204717204793%_))) + (_%tl204719204800%_ (let () (declare (not safe)) - (##cdr _%e203732203808%_)))) + (##cdr _%e204717204793%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203734203815%_)) - (let ((_%e203735203818%_ + (gx#stx-pair? _%tl204719204800%_)) + (let ((_%e204720204803%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203734203815%_)))) - (let ((_%hd203736203822%_ + (gx#syntax-e _%tl204719204800%_)))) + (let ((_%hd204721204807%_ (let () (declare (not safe)) - (##car _%e203735203818%_))) - (_%tl203737203825%_ + (##car _%e204720204803%_))) + (_%tl204722204810%_ (let () (declare (not safe)) - (##cdr _%e203735203818%_)))) + (##cdr _%e204720204803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203737203825%_)) - (let ((_%e203738203828%_ + (gx#stx-pair? _%tl204722204810%_)) + (let ((_%e204723204813%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203737203825%_)))) - (let ((_%hd203739203832%_ + (gx#syntax-e _%tl204722204810%_)))) + (let ((_%hd204724204817%_ (let () (declare (not safe)) - (##car _%e203738203828%_))) - (_%tl203740203835%_ + (##car _%e204723204813%_))) + (_%tl204725204820%_ (let () (declare (not safe)) - (##cdr _%e203738203828%_)))) + (##cdr _%e204723204813%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203740203835%_)) - (let ((_%e203741203838%_ + (gx#stx-pair? _%tl204725204820%_)) + (let ((_%e204726204823%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203740203835%_)))) - (let ((_%hd203742203842%_ + _%tl204725204820%_)))) + (let ((_%hd204727204827%_ (let () (declare (not safe)) - (##car _%e203741203838%_))) - (_%tl203743203845%_ + (##car _%e204726204823%_))) + (_%tl204728204830%_ (let () (declare (not safe)) - (##cdr _%e203741203838%_)))) + (##cdr _%e204726204823%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203743203845%_)) - (let ((_%e203744203848%_ + _%tl204728204830%_)) + (let ((_%e204729204833%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203743203845%_)))) - (let ((_%hd203745203852%_ + _%tl204728204830%_)))) + (let ((_%hd204730204837%_ (let () (declare (not safe)) - (##car _%e203744203848%_))) - (_%tl203746203855%_ + (##car _%e204729204833%_))) + (_%tl204731204840%_ (let () (declare (not safe)) - (##cdr _%e203744203848%_)))) + (##cdr _%e204729204833%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203746203855%_)) - (let ((_%e203747203858%_ + _%tl204731204840%_)) + (let ((_%e204732204843%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203746203855%_)))) - (let ((_%hd203748203862%_ - (let () (declare (not safe)) (##car _%e203747203858%_))) - (_%tl203749203865%_ + (gx#syntax-e _%tl204731204840%_)))) + (let ((_%hd204733204847%_ + (let () (declare (not safe)) (##car _%e204732204843%_))) + (_%tl204734204850%_ (let () (declare (not safe)) - (##cdr _%e203747203858%_)))) + (##cdr _%e204732204843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203749203865%_)) - (let ((_%e203750203868%_ + (gx#stx-pair? _%tl204734204850%_)) + (let ((_%e204735204853%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203749203865%_)))) - (let ((_%hd203751203872%_ + (gx#syntax-e _%tl204734204850%_)))) + (let ((_%hd204736204857%_ (let () (declare (not safe)) - (##car _%e203750203868%_))) - (_%tl203752203875%_ + (##car _%e204735204853%_))) + (_%tl204737204860%_ (let () (declare (not safe)) - (##cdr _%e203750203868%_)))) + (##cdr _%e204735204853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203752203875%_)) - (let ((_%e203753203878%_ + (gx#stx-pair? _%tl204737204860%_)) + (let ((_%e204738204863%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203752203875%_)))) - (let ((_%hd203754203882%_ + (gx#syntax-e _%tl204737204860%_)))) + (let ((_%hd204739204867%_ (let () (declare (not safe)) - (##car _%e203753203878%_))) - (_%tl203755203885%_ + (##car _%e204738204863%_))) + (_%tl204740204870%_ (let () (declare (not safe)) - (##cdr _%e203753203878%_)))) + (##cdr _%e204738204863%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203755203885%_)) - ((lambda (_%L203888%_ - _%L203890%_ - _%L203891%_ - _%L203892%_ - _%L203893%_ - _%L203894%_ - _%L203895%_ - _%L203896%_ - _%L203897%_ - _%L203898%_ - _%L203899%_) + (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 _%L203899%_ + (cons _%L204884%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203898%_ '())) + (cons _%L204883%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203897%_ '())) + (cons _%L204882%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203896%_ '())) + (cons _%L204881%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203895%_ '())) + (cons _%L204880%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203894%_ '())) - (cons _%L203893%_ - (cons _%L203892%_ - (cons _%L203891%_ + (cons _%L204879%_ '())) + (cons _%L204878%_ + (cons _%L204877%_ + (cons _%L204876%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203890%_ '())) + (cons _%L204875%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203888%_ '())) + (cons _%L204873%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203754203882%_ - _%hd203751203872%_ - _%hd203748203862%_ - _%hd203745203852%_ - _%hd203742203842%_ - _%hd203739203832%_ - _%hd203736203822%_ - _%hd203733203812%_ - _%hd203730203802%_ - _%hd203727203792%_ - _%hd203724203782%_) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) + _%hd204739204867%_ + _%hd204736204857%_ + _%hd204733204847%_ + _%hd204730204837%_ + _%hd204727204827%_ + _%hd204724204817%_ + _%hd204721204807%_ + _%hd204718204797%_ + _%hd204715204787%_ + _%hd204712204777%_ + _%hd204709204767%_) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203707203761%_ - _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) + (_%g204692204746%_ + _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203707203761%_ - _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_)))) - (_%g203707203761%_ _%g203708203765%_))))) - (_%g203706203942%_ _%$stx203703%_)))) + (_%g204692204746%_ + _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_))))) + (_%g204691204927%_ _%$stx204688%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx203946%_) - (let* ((_%g203950203964%_ - (lambda (_%g203951203960%_) + (lambda (_%$stx204931%_) + (let* ((_%g204935204949%_ + (lambda (_%g204936204945%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203951203960%_)))) - (_%g203949204005%_ - (lambda (_%g203951203968%_) + _%g204936204945%_)))) + (_%g204934204990%_ + (lambda (_%g204936204953%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203951203968%_)) - (let ((_%e203953203971%_ + (gx#stx-pair? _%g204936204953%_)) + (let ((_%e204938204956%_ (let () (declare (not safe)) - (gx#syntax-e _%g203951203968%_)))) - (let ((_%hd203954203975%_ + (gx#syntax-e _%g204936204953%_)))) + (let ((_%hd204939204960%_ (let () (declare (not safe)) - (##car _%e203953203971%_))) - (_%tl203955203978%_ + (##car _%e204938204956%_))) + (_%tl204940204963%_ (let () (declare (not safe)) - (##cdr _%e203953203971%_)))) + (##cdr _%e204938204956%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203955203978%_)) - (let ((_%e203956203981%_ + (gx#stx-pair? _%tl204940204963%_)) + (let ((_%e204941204966%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203955203978%_)))) - (let ((_%hd203957203985%_ + (gx#syntax-e _%tl204940204963%_)))) + (let ((_%hd204942204970%_ (let () (declare (not safe)) - (##car _%e203956203981%_))) - (_%tl203958203988%_ + (##car _%e204941204966%_))) + (_%tl204943204973%_ (let () (declare (not safe)) - (##cdr _%e203956203981%_)))) + (##cdr _%e204941204966%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203958203988%_)) - ((lambda (_%L203991%_) + (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 _%L203991%_ + (cons _%L204976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203957203985%_) - (_%g203950203964%_ _%g203951203968%_)))) - (_%g203950203964%_ _%g203951203968%_)))) - (_%g203950203964%_ _%g203951203968%_))))) - (_%g203949204005%_ _%$stx203946%_)))) + _%hd204942204970%_) + (_%g204935204949%_ _%g204936204953%_)))) + (_%g204935204949%_ _%g204936204953%_)))) + (_%g204935204949%_ _%g204936204953%_))))) + (_%g204934204990%_ _%$stx204931%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx204009%_) - (let* ((_%g204013204027%_ - (lambda (_%g204014204023%_) + (lambda (_%$stx204994%_) + (let* ((_%g204998205012%_ + (lambda (_%g204999205008%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204014204023%_)))) - (_%g204012204068%_ - (lambda (_%g204014204031%_) + _%g204999205008%_)))) + (_%g204997205053%_ + (lambda (_%g204999205016%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204014204031%_)) - (let ((_%e204016204034%_ + (gx#stx-pair? _%g204999205016%_)) + (let ((_%e205001205019%_ (let () (declare (not safe)) - (gx#syntax-e _%g204014204031%_)))) - (let ((_%hd204017204038%_ + (gx#syntax-e _%g204999205016%_)))) + (let ((_%hd205002205023%_ (let () (declare (not safe)) - (##car _%e204016204034%_))) - (_%tl204018204041%_ + (##car _%e205001205019%_))) + (_%tl205003205026%_ (let () (declare (not safe)) - (##cdr _%e204016204034%_)))) + (##cdr _%e205001205019%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204018204041%_)) - (let ((_%e204019204044%_ + (gx#stx-pair? _%tl205003205026%_)) + (let ((_%e205004205029%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204018204041%_)))) - (let ((_%hd204020204048%_ + (gx#syntax-e _%tl205003205026%_)))) + (let ((_%hd205005205033%_ (let () (declare (not safe)) - (##car _%e204019204044%_))) - (_%tl204021204051%_ + (##car _%e205004205029%_))) + (_%tl205006205036%_ (let () (declare (not safe)) - (##cdr _%e204019204044%_)))) + (##cdr _%e205004205029%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204021204051%_)) - ((lambda (_%L204054%_) + (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 _%L204054%_ + (cons _%L205039%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd204020204048%_) - (_%g204013204027%_ _%g204014204031%_)))) - (_%g204013204027%_ _%g204014204031%_)))) - (_%g204013204027%_ _%g204014204031%_))))) - (_%g204012204068%_ _%$stx204009%_)))) + _%hd205005205033%_) + (_%g204998205012%_ _%g204999205016%_)))) + (_%g204998205012%_ _%g204999205016%_)))) + (_%g204998205012%_ _%g204999205016%_))))) + (_%g204997205053%_ _%$stx204994%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx204072%_) - (let* ((_%g204076204098%_ - (lambda (_%g204077204094%_) + (lambda (_%$stx205057%_) + (let* ((_%g205061205083%_ + (lambda (_%g205062205079%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204077204094%_)))) - (_%g204075204167%_ - (lambda (_%g204077204102%_) + _%g205062205079%_)))) + (_%g205060205152%_ + (lambda (_%g205062205087%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204077204102%_)) - (let ((_%e204081204105%_ + (gx#stx-pair? _%g205062205087%_)) + (let ((_%e205066205090%_ (let () (declare (not safe)) - (gx#syntax-e _%g204077204102%_)))) - (let ((_%hd204082204109%_ + (gx#syntax-e _%g205062205087%_)))) + (let ((_%hd205067205094%_ (let () (declare (not safe)) - (##car _%e204081204105%_))) - (_%tl204083204112%_ + (##car _%e205066205090%_))) + (_%tl205068205097%_ (let () (declare (not safe)) - (##cdr _%e204081204105%_)))) + (##cdr _%e205066205090%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204083204112%_)) - (let ((_%e204084204115%_ + (gx#stx-pair? _%tl205068205097%_)) + (let ((_%e205069205100%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204083204112%_)))) - (let ((_%hd204085204119%_ + (gx#syntax-e _%tl205068205097%_)))) + (let ((_%hd205070205104%_ (let () (declare (not safe)) - (##car _%e204084204115%_))) - (_%tl204086204122%_ + (##car _%e205069205100%_))) + (_%tl205071205107%_ (let () (declare (not safe)) - (##cdr _%e204084204115%_)))) + (##cdr _%e205069205100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204086204122%_)) - (let ((_%e204087204125%_ + (gx#stx-pair? _%tl205071205107%_)) + (let ((_%e205072205110%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204086204122%_)))) - (let ((_%hd204088204129%_ + _%tl205071205107%_)))) + (let ((_%hd205073205114%_ (let () (declare (not safe)) - (##car _%e204087204125%_))) - (_%tl204089204132%_ + (##car _%e205072205110%_))) + (_%tl205074205117%_ (let () (declare (not safe)) - (##cdr _%e204087204125%_)))) + (##cdr _%e205072205110%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204089204132%_)) - (let ((_%e204090204135%_ + _%tl205074205117%_)) + (let ((_%e205075205120%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204089204132%_)))) - (let ((_%hd204091204139%_ + _%tl205074205117%_)))) + (let ((_%hd205076205124%_ (let () (declare (not safe)) - (##car _%e204090204135%_))) - (_%tl204092204142%_ + (##car _%e205075205120%_))) + (_%tl205077205127%_ (let () (declare (not safe)) - (##cdr _%e204090204135%_)))) + (##cdr _%e205075205120%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204092204142%_)) - ((lambda (_%L204145%_ - _%L204147%_ - _%L204148%_) + _%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 _%L204148%_ '())) + (cons _%L205133%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204147%_ '())) - (cons _%L204145%_ '()))))) - _%hd204091204139%_ - _%hd204088204129%_ - _%hd204085204119%_) - (_%g204076204098%_ _%g204077204102%_)))) + (cons _%L205132%_ '())) + (cons _%L205130%_ '()))))) + _%hd205076205124%_ + _%hd205073205114%_ + _%hd205070205104%_) + (_%g205061205083%_ _%g205062205087%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204076204098%_ - _%g204077204102%_)))) - (_%g204076204098%_ _%g204077204102%_)))) - (_%g204076204098%_ _%g204077204102%_)))) - (_%g204076204098%_ _%g204077204102%_))))) - (_%g204075204167%_ _%$stx204072%_)))) + (_%g205061205083%_ + _%g205062205087%_)))) + (_%g205061205083%_ _%g205062205087%_)))) + (_%g205061205083%_ _%g205062205087%_)))) + (_%g205061205083%_ _%g205062205087%_))))) + (_%g205060205152%_ _%$stx205057%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx204171%_) - (let* ((_%g204175204197%_ - (lambda (_%g204176204193%_) + (lambda (_%$stx205156%_) + (let* ((_%g205160205182%_ + (lambda (_%g205161205178%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204176204193%_)))) - (_%g204174204266%_ - (lambda (_%g204176204201%_) + _%g205161205178%_)))) + (_%g205159205251%_ + (lambda (_%g205161205186%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204176204201%_)) - (let ((_%e204180204204%_ + (gx#stx-pair? _%g205161205186%_)) + (let ((_%e205165205189%_ (let () (declare (not safe)) - (gx#syntax-e _%g204176204201%_)))) - (let ((_%hd204181204208%_ + (gx#syntax-e _%g205161205186%_)))) + (let ((_%hd205166205193%_ (let () (declare (not safe)) - (##car _%e204180204204%_))) - (_%tl204182204211%_ + (##car _%e205165205189%_))) + (_%tl205167205196%_ (let () (declare (not safe)) - (##cdr _%e204180204204%_)))) + (##cdr _%e205165205189%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204182204211%_)) - (let ((_%e204183204214%_ + (gx#stx-pair? _%tl205167205196%_)) + (let ((_%e205168205199%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204182204211%_)))) - (let ((_%hd204184204218%_ + (gx#syntax-e _%tl205167205196%_)))) + (let ((_%hd205169205203%_ (let () (declare (not safe)) - (##car _%e204183204214%_))) - (_%tl204185204221%_ + (##car _%e205168205199%_))) + (_%tl205170205206%_ (let () (declare (not safe)) - (##cdr _%e204183204214%_)))) + (##cdr _%e205168205199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204185204221%_)) - (let ((_%e204186204224%_ + (gx#stx-pair? _%tl205170205206%_)) + (let ((_%e205171205209%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204185204221%_)))) - (let ((_%hd204187204228%_ + _%tl205170205206%_)))) + (let ((_%hd205172205213%_ (let () (declare (not safe)) - (##car _%e204186204224%_))) - (_%tl204188204231%_ + (##car _%e205171205209%_))) + (_%tl205173205216%_ (let () (declare (not safe)) - (##cdr _%e204186204224%_)))) + (##cdr _%e205171205209%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204188204231%_)) - (let ((_%e204189204234%_ + _%tl205173205216%_)) + (let ((_%e205174205219%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204188204231%_)))) - (let ((_%hd204190204238%_ + _%tl205173205216%_)))) + (let ((_%hd205175205223%_ (let () (declare (not safe)) - (##car _%e204189204234%_))) - (_%tl204191204241%_ + (##car _%e205174205219%_))) + (_%tl205176205226%_ (let () (declare (not safe)) - (##cdr _%e204189204234%_)))) + (##cdr _%e205174205219%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204191204241%_)) - ((lambda (_%L204244%_ - _%L204246%_ - _%L204247%_) + _%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 _%L204247%_ '())) + (cons _%L205232%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204246%_ '())) - (cons _%L204244%_ '()))))) - _%hd204190204238%_ - _%hd204187204228%_ - _%hd204184204218%_) - (_%g204175204197%_ _%g204176204201%_)))) + (cons _%L205231%_ '())) + (cons _%L205229%_ '()))))) + _%hd205175205223%_ + _%hd205172205213%_ + _%hd205169205203%_) + (_%g205160205182%_ _%g205161205186%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204175204197%_ - _%g204176204201%_)))) - (_%g204175204197%_ _%g204176204201%_)))) - (_%g204175204197%_ _%g204176204201%_)))) - (_%g204175204197%_ _%g204176204201%_))))) - (_%g204174204266%_ _%$stx204171%_)))) + (_%g205160205182%_ + _%g205161205186%_)))) + (_%g205160205182%_ _%g205161205186%_)))) + (_%g205160205182%_ _%g205161205186%_)))) + (_%g205160205182%_ _%g205161205186%_))))) + (_%g205159205251%_ _%$stx205156%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx204270%_) - (let* ((_%g204274204288%_ - (lambda (_%g204275204284%_) + (lambda (_%$stx205255%_) + (let* ((_%g205259205273%_ + (lambda (_%g205260205269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204275204284%_)))) - (_%g204273204329%_ - (lambda (_%g204275204292%_) + _%g205260205269%_)))) + (_%g205258205314%_ + (lambda (_%g205260205277%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204275204292%_)) - (let ((_%e204277204295%_ + (gx#stx-pair? _%g205260205277%_)) + (let ((_%e205262205280%_ (let () (declare (not safe)) - (gx#syntax-e _%g204275204292%_)))) - (let ((_%hd204278204299%_ + (gx#syntax-e _%g205260205277%_)))) + (let ((_%hd205263205284%_ (let () (declare (not safe)) - (##car _%e204277204295%_))) - (_%tl204279204302%_ + (##car _%e205262205280%_))) + (_%tl205264205287%_ (let () (declare (not safe)) - (##cdr _%e204277204295%_)))) + (##cdr _%e205262205280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204279204302%_)) - (let ((_%e204280204305%_ + (gx#stx-pair? _%tl205264205287%_)) + (let ((_%e205265205290%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204279204302%_)))) - (let ((_%hd204281204309%_ + (gx#syntax-e _%tl205264205287%_)))) + (let ((_%hd205266205294%_ (let () (declare (not safe)) - (##car _%e204280204305%_))) - (_%tl204282204312%_ + (##car _%e205265205290%_))) + (_%tl205267205297%_ (let () (declare (not safe)) - (##cdr _%e204280204305%_)))) + (##cdr _%e205265205290%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204282204312%_)) - ((lambda (_%L204315%_) + (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 _%L204315%_ + (cons _%L205300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd204281204309%_) - (_%g204274204288%_ _%g204275204292%_)))) - (_%g204274204288%_ _%g204275204292%_)))) - (_%g204274204288%_ _%g204275204292%_))))) - (_%g204273204329%_ _%$stx204270%_)))) + _%hd205266205294%_) + (_%g205259205273%_ _%g205260205277%_)))) + (_%g205259205273%_ _%g205260205277%_)))) + (_%g205259205273%_ _%g205260205277%_))))) + (_%g205258205314%_ _%$stx205255%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx204333%_) - (let* ((_%g204337204355%_ - (lambda (_%g204338204351%_) + (lambda (_%$stx205318%_) + (let* ((_%g205322205340%_ + (lambda (_%g205323205336%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204338204351%_)))) - (_%g204336204410%_ - (lambda (_%g204338204359%_) + _%g205323205336%_)))) + (_%g205321205395%_ + (lambda (_%g205323205344%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204338204359%_)) - (let ((_%e204341204362%_ + (gx#stx-pair? _%g205323205344%_)) + (let ((_%e205326205347%_ (let () (declare (not safe)) - (gx#syntax-e _%g204338204359%_)))) - (let ((_%hd204342204366%_ + (gx#syntax-e _%g205323205344%_)))) + (let ((_%hd205327205351%_ (let () (declare (not safe)) - (##car _%e204341204362%_))) - (_%tl204343204369%_ + (##car _%e205326205347%_))) + (_%tl205328205354%_ (let () (declare (not safe)) - (##cdr _%e204341204362%_)))) + (##cdr _%e205326205347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204343204369%_)) - (let ((_%e204344204372%_ + (gx#stx-pair? _%tl205328205354%_)) + (let ((_%e205329205357%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204343204369%_)))) - (let ((_%hd204345204376%_ + (gx#syntax-e _%tl205328205354%_)))) + (let ((_%hd205330205361%_ (let () (declare (not safe)) - (##car _%e204344204372%_))) - (_%tl204346204379%_ + (##car _%e205329205357%_))) + (_%tl205331205364%_ (let () (declare (not safe)) - (##cdr _%e204344204372%_)))) + (##cdr _%e205329205357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204346204379%_)) - (let ((_%e204347204382%_ + (gx#stx-pair? _%tl205331205364%_)) + (let ((_%e205332205367%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204346204379%_)))) - (let ((_%hd204348204386%_ + _%tl205331205364%_)))) + (let ((_%hd205333205371%_ (let () (declare (not safe)) - (##car _%e204347204382%_))) - (_%tl204349204389%_ + (##car _%e205332205367%_))) + (_%tl205334205374%_ (let () (declare (not safe)) - (##cdr _%e204347204382%_)))) + (##cdr _%e205332205367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204349204389%_)) - ((lambda (_%L204392%_ - _%L204394%_) + _%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 _%L204394%_ '())) + (cons _%L205379%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204392%_ '())) + (cons _%L205377%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204348204386%_ - _%hd204345204376%_) - (_%g204337204355%_ - _%g204338204359%_)))) - (_%g204337204355%_ _%g204338204359%_)))) - (_%g204337204355%_ _%g204338204359%_)))) - (_%g204337204355%_ _%g204338204359%_))))) - (_%g204336204410%_ _%$stx204333%_)))) + _%hd205333205371%_ + _%hd205330205361%_) + (_%g205322205340%_ + _%g205323205344%_)))) + (_%g205322205340%_ _%g205323205344%_)))) + (_%g205322205340%_ _%g205323205344%_)))) + (_%g205322205340%_ _%g205323205344%_))))) + (_%g205321205395%_ _%$stx205318%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx204414%_) - (let* ((_%__stx208756208757%_ _%$stx204414%_) - (_%g204421204482%_ + (lambda (_%$stx205399%_) + (let* ((_%__stx209741209742%_ _%$stx205399%_) + (_%g205406205467%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208756208757%_))))) - (let ((_%__kont208759208760%_ - (lambda (_%L204720%_ _%L204722%_) + _%__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 _%L204722%_ '())) + (cons _%L205707%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204720%_ '())) + (cons _%L205705%_ '())) '()))))) - (_%__kont208761208762%_ - (lambda (_%L204659%_ _%L204661%_ _%L204662%_) + (_%__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 _%L204662%_ '())) + (cons _%L205647%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204661%_ '())) + (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 _%L204659%_ '())) + (cons _%L205644%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont208763208764%_ - (lambda (_%L204583%_ _%L204585%_) - (cons _%L204585%_ (cons _%L204583%_ (cons '#f '()))))) - (_%__kont208765208766%_ - (lambda (_%L204533%_ _%L204535%_ _%L204536%_) - (cons _%L204536%_ - (cons _%L204535%_ + (_%__kont209748209749%_ + (lambda (_%L205568%_ _%L205570%_) + (cons _%L205570%_ (cons _%L205568%_ (cons '#f '()))))) + (_%__kont209750209751%_ + (lambda (_%L205518%_ _%L205520%_ _%L205521%_) + (cons _%L205521%_ + (cons _%L205520%_ (cons '#f (cons 'signature: - (cons _%L204533%_ '())))))))) + (cons _%L205518%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208756208757%_)) - (let ((_%e204425204690%_ + (gx#stx-pair? _%__stx209741209742%_)) + (let ((_%e205410205675%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208756208757%_)))) - (let ((_%tl204427204697%_ + (gx#syntax-e _%__stx209741209742%_)))) + (let ((_%tl205412205682%_ (let () (declare (not safe)) - (##cdr _%e204425204690%_))) - (_%hd204426204694%_ + (##cdr _%e205410205675%_))) + (_%hd205411205679%_ (let () (declare (not safe)) - (##car _%e204425204690%_)))) + (##car _%e205410205675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204427204697%_)) - (let ((_%e204428204700%_ + (gx#stx-pair? _%tl205412205682%_)) + (let ((_%e205413205685%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204427204697%_)))) - (let ((_%tl204430204707%_ + (gx#syntax-e _%tl205412205682%_)))) + (let ((_%tl205415205692%_ (let () (declare (not safe)) - (##cdr _%e204428204700%_))) - (_%hd204429204704%_ + (##cdr _%e205413205685%_))) + (_%hd205414205689%_ (let () (declare (not safe)) - (##car _%e204428204700%_)))) + (##car _%e205413205685%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204430204707%_)) - (let ((_%e204431204710%_ + (gx#stx-pair? _%tl205415205692%_)) + (let ((_%e205416205695%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204430204707%_)))) - (let ((_%tl204433204717%_ + (gx#syntax-e _%tl205415205692%_)))) + (let ((_%tl205418205702%_ (let () (declare (not safe)) - (##cdr _%e204431204710%_))) - (_%hd204432204714%_ + (##cdr _%e205416205695%_))) + (_%hd205417205699%_ (let () (declare (not safe)) - (##car _%e204431204710%_)))) + (##car _%e205416205695%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204433204717%_)) - (_%__kont208759208760%_ - _%hd204432204714%_ - _%hd204429204704%_) + (gx#stx-null? _%tl205418205702%_)) + (_%__kont209744209745%_ + _%hd205417205699%_ + _%hd205414205689%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204433204717%_)) - (let ((_%e204446204635%_ + _%tl205418205702%_)) + (let ((_%e205431205620%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204433204717%_)))) - (let ((_%tl204448204642%_ + _%tl205418205702%_)))) + (let ((_%tl205433205627%_ (let () (declare (not safe)) - (##cdr _%e204446204635%_))) - (_%hd204447204639%_ + (##cdr _%e205431205620%_))) + (_%hd205432205624%_ (let () (declare (not safe)) - (##car _%e204446204635%_)))) + (##car _%e205431205620%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204447204639%_)) - (let ((_%e204449204645%_ + _%hd205432205624%_)) + (let ((_%e205434205630%_ (let () (declare (not safe)) (gx#stx-e - _%hd204447204639%_)))) - (if (equal? _%e204449204645%_ + _%hd205432205624%_)))) + (if (equal? _%e205434205630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204448204642%_)) - (let ((_%e204450204649%_ + (gx#stx-pair? _%tl205433205627%_)) + (let ((_%e205435205634%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204448204642%_)))) - (let ((_%tl204452204656%_ + (gx#syntax-e _%tl205433205627%_)))) + (let ((_%tl205437205641%_ (let () (declare (not safe)) - (##cdr _%e204450204649%_))) - (_%hd204451204653%_ + (##cdr _%e205435205634%_))) + (_%hd205436205638%_ (let () (declare (not safe)) - (##car _%e204450204649%_)))) + (##car _%e205435205634%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204452204656%_)) - (_%__kont208761208762%_ - _%hd204451204653%_ - _%hd204432204714%_ - _%hd204429204704%_) + (gx#stx-null? _%tl205437205641%_)) + (_%__kont209746209747%_ + _%hd205436205638%_ + _%hd205417205699%_ + _%hd205414205689%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204432204714%_)) - (let ((_%e204473204519%_ + (gx#stx-datum? _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) - (gx#stx-e _%hd204432204714%_)))) + (gx#stx-e _%hd205417205699%_)))) (declare (not safe)) - (_%g204421204482%_)) + (_%g205406205467%_)) (let () (declare (not safe)) - (_%g204421204482%_)))))) + (_%g205406205467%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204432204714%_)) - (let ((_%e204473204519%_ + (gx#stx-datum? _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) - (gx#stx-e _%hd204432204714%_)))) - (if (equal? _%e204473204519%_ 'signature:) + (gx#stx-e _%hd205417205699%_)))) + (if (equal? _%e205458205504%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204448204642%_)) - (_%__kont208765208766%_ - _%hd204447204639%_ - _%hd204429204704%_ - _%hd204426204694%_) + (gx#stx-null? _%tl205433205627%_)) + (_%__kont209750209751%_ + _%hd205432205624%_ + _%hd205414205689%_ + _%hd205411205679%_) (let () (declare (not safe)) - (_%g204421204482%_))) + (_%g205406205467%_))) (let () (declare (not safe)) - (_%g204421204482%_)))) - (let () (declare (not safe)) (_%g204421204482%_)))) + (_%g205406205467%_)))) + (let () (declare (not safe)) (_%g205406205467%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204432204714%_)) - (let ((_%e204473204519%_ + (gx#stx-datum? _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) - (gx#stx-e _%hd204432204714%_)))) - (if (equal? _%e204473204519%_ 'signature:) + (gx#stx-e _%hd205417205699%_)))) + (if (equal? _%e205458205504%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204448204642%_)) - (_%__kont208765208766%_ - _%hd204447204639%_ - _%hd204429204704%_ - _%hd204426204694%_) + (gx#stx-null? _%tl205433205627%_)) + (_%__kont209750209751%_ + _%hd205432205624%_ + _%hd205414205689%_ + _%hd205411205679%_) (let () (declare (not safe)) - (_%g204421204482%_))) - (let () (declare (not safe)) (_%g204421204482%_)))) - (let () (declare (not safe)) (_%g204421204482%_))))) + (_%g205406205467%_))) + (let () (declare (not safe)) (_%g205406205467%_)))) + (let () (declare (not safe)) (_%g205406205467%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204432204714%_)) - (let ((_%e204473204519%_ + _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd204432204714%_)))) - (if (equal? _%e204473204519%_ 'signature:) + (gx#stx-e _%hd205417205699%_)))) + (if (equal? _%e205458205504%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204448204642%_)) - (_%__kont208765208766%_ - _%hd204447204639%_ - _%hd204429204704%_ - _%hd204426204694%_) - (let () (declare (not safe)) (_%g204421204482%_))) - (let () (declare (not safe)) (_%g204421204482%_)))) - (let () (declare (not safe)) (_%g204421204482%_)))))) + (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? - _%hd204432204714%_)) - (let ((_%e204473204519%_ + _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) (gx#stx-e - _%hd204432204714%_)))) + _%hd205417205699%_)))) (declare (not safe)) - (_%g204421204482%_)) + (_%g205406205467%_)) (let () (declare (not safe)) - (_%g204421204482%_))))))) + (_%g205406205467%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204430204707%_)) - (_%__kont208763208764%_ - _%hd204429204704%_ - _%hd204426204694%_) + (gx#stx-null? _%tl205415205692%_)) + (_%__kont209748209749%_ + _%hd205414205689%_ + _%hd205411205679%_) (let () (declare (not safe)) - (_%g204421204482%_)))))) - (let () (declare (not safe)) (_%g204421204482%_))))) - (let () (declare (not safe)) (_%g204421204482%_))))))) + (_%g205406205467%_)))))) + (let () (declare (not safe)) (_%g205406205467%_))))) + (let () (declare (not safe)) (_%g205406205467%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx204741%_) - (let* ((_%g204745204774%_ - (lambda (_%g204746204770%_) + (lambda (_%$stx205726%_) + (let* ((_%g205730205759%_ + (lambda (_%g205731205755%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204746204770%_)))) - (_%g204744204883%_ - (lambda (_%g204746204778%_) + _%g205731205755%_)))) + (_%g205729205868%_ + (lambda (_%g205731205763%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204746204778%_)) - (let ((_%e204748204781%_ + (gx#stx-pair? _%g205731205763%_)) + (let ((_%e205733205766%_ (let () (declare (not safe)) - (gx#syntax-e _%g204746204778%_)))) - (let ((_%hd204749204785%_ + (gx#syntax-e _%g205731205763%_)))) + (let ((_%hd205734205770%_ (let () (declare (not safe)) - (##car _%e204748204781%_))) - (_%tl204750204788%_ + (##car _%e205733205766%_))) + (_%tl205735205773%_ (let () (declare (not safe)) - (##cdr _%e204748204781%_)))) + (##cdr _%e205733205766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204750204788%_)) - (let ((_g209386_ + (gx#stx-pair/null? _%tl205735205773%_)) + (let ((_g210371_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204750204788%_ + _%tl205735205773%_ '0)))) (begin - (let ((_g209387_ + (let ((_g210372_ (let () (declare (not safe)) - (if (##values? _g209386_) - (##values-length _g209386_) + (if (##values? _g210371_) + (##values-length _g210371_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209387_ 2))) + (##fx= _g210372_ 2))) (error "Context expects 2 values" - _g209387_))) - (let ((_%target204751204791%_ + _g210372_))) + (let ((_%target205736205776%_ (let () (declare (not safe)) - (##values-ref _g209386_ 0))) - (_%tl204753204794%_ + (##values-ref _g210371_ 0))) + (_%tl205738205779%_ (let () (declare (not safe)) - (##values-ref _g209386_ 1)))) + (##values-ref _g210371_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204753204794%_)) - (letrec ((_%loop204754204797%_ - (lambda (_%hd204752204801%_ - _%clause204758204804%_) + (gx#stx-null? _%tl205738205779%_)) + (letrec ((_%loop205739205782%_ + (lambda (_%hd205737205786%_ + _%clause205743205789%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204752204801%_)) - (let ((_%e204755204807%_ + _%hd205737205786%_)) + (let ((_%e205740205792%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204752204801%_)))) - (let ((_%lp-hd204756204811%_ + (gx#syntax-e _%hd205737205786%_)))) + (let ((_%lp-hd205741205796%_ (let () (declare (not safe)) - (##car _%e204755204807%_))) - (_%lp-tl204757204814%_ + (##car _%e205740205792%_))) + (_%lp-tl205742205799%_ (let () (declare (not safe)) - (##cdr _%e204755204807%_)))) + (##cdr _%e205740205792%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd204756204811%_)) - (let ((_g209388_ + (gx#stx-pair/null? _%lp-hd205741205796%_)) + (let ((_g210373_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd204756204811%_ + _%lp-hd205741205796%_ '0)))) (begin - (let ((_g209389_ + (let ((_g210374_ (let () (declare (not safe)) - (if (##values? _g209388_) - (##values-length _g209388_) + (if (##values? _g210373_) + (##values-length _g210373_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209389_ 2))) + (##fx= _g210374_ 2))) (error "Context expects 2 values" - _g209389_))) - (let ((_%target204760204817%_ + _g210374_))) + (let ((_%target205745205802%_ (let () (declare (not safe)) - (##values-ref _g209388_ 0))) - (_%tl204762204820%_ + (##values-ref _g210373_ 0))) + (_%tl205747205805%_ (let () (declare (not safe)) - (##values-ref _g209388_ 1)))) + (##values-ref _g210373_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204762204820%_)) - (letrec ((_%loop204763204823%_ - (lambda (_%hd204761204827%_ - _%clause204767204830%_) + (gx#stx-null? _%tl205747205805%_)) + (letrec ((_%loop205748205808%_ + (lambda (_%hd205746205812%_ + _%clause205752205815%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204761204827%_)) - (let ((_%e204764204833%_ + _%hd205746205812%_)) + (let ((_%e205749205818%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204761204827%_)))) - (let ((_%lp-hd204765204837%_ + _%hd205746205812%_)))) + (let ((_%lp-hd205750205822%_ (let () (declare (not safe)) - (##car _%e204764204833%_))) - (_%lp-tl204766204840%_ + (##car _%e205749205818%_))) + (_%lp-tl205751205825%_ (let () (declare (not safe)) - (##cdr _%e204764204833%_)))) - (_%loop204763204823%_ - _%lp-tl204766204840%_ - (cons _%lp-hd204765204837%_ - _%clause204767204830%_)))) - (let ((_%clause204768204843%_ - (reverse _%clause204767204830%_))) - (_%loop204754204797%_ - _%lp-tl204757204814%_ - (cons _%clause204768204843%_ - _%clause204758204804%_))))))) - (_%loop204763204823%_ - _%target204760204817%_ + (##cdr _%e205749205818%_)))) + (_%loop205748205808%_ + _%lp-tl205751205825%_ + (cons _%lp-hd205750205822%_ + _%clause205752205815%_)))) + (let ((_%clause205753205828%_ + (reverse _%clause205752205815%_))) + (_%loop205739205782%_ + _%lp-tl205742205799%_ + (cons _%clause205753205828%_ + _%clause205743205789%_))))))) + (_%loop205748205808%_ + _%target205745205802%_ '())) - (_%g204745204774%_ _%g204746204778%_))))) - (_%g204745204774%_ _%g204746204778%_)))) - (let ((_%clause204759204847%_ - (reverse _%clause204758204804%_))) - ((lambda (_%L204851%_) + (_%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 ((__tmp209390 - (lambda (_%g204866204871%_ - _%g204867204874%_) + (let ((__tmp210375 + (lambda (_%g205851205856%_ + _%g205852205859%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp209391 + (let ((__tmp210376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g204868204877%_ _%g204869204880%_) - (cons _%g204868204877%_ _%g204869204880%_)))) + (lambda (_%g205853205862%_ _%g205854205865%_) + (cons _%g205853205862%_ _%g205854205865%_)))) (declare (not safe)) - (__foldr1 __tmp209391 '() _%g204866204871%_))) - _%g204867204874%_)))) + (__foldr1 __tmp210376 '() _%g205851205856%_))) + _%g205852205859%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp209390 + __tmp210375 '() - _%L204851%_))) + _%L205836%_))) '()))) - _%clause204759204847%_)))))) + _%clause205744205832%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204754204797%_ - _%target204751204791%_ + (_%loop205739205782%_ + _%target205736205776%_ '())) - (_%g204745204774%_ - _%g204746204778%_))))) - (_%g204745204774%_ _%g204746204778%_)))) - (_%g204745204774%_ _%g204746204778%_))))) - (_%g204744204883%_ _%$stx204741%_)))) + (_%g205730205759%_ + _%g205731205763%_))))) + (_%g205730205759%_ _%g205731205763%_)))) + (_%g205730205759%_ _%g205731205763%_))))) + (_%g205729205868%_ _%$stx205726%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx204889%_) - (let* ((_%g204893204911%_ - (lambda (_%g204894204907%_) + (lambda (_%$stx205874%_) + (let* ((_%g205878205896%_ + (lambda (_%g205879205892%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204894204907%_)))) - (_%g204892204966%_ - (lambda (_%g204894204915%_) + _%g205879205892%_)))) + (_%g205877205951%_ + (lambda (_%g205879205900%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204894204915%_)) - (let ((_%e204897204918%_ + (gx#stx-pair? _%g205879205900%_)) + (let ((_%e205882205903%_ (let () (declare (not safe)) - (gx#syntax-e _%g204894204915%_)))) - (let ((_%hd204898204922%_ + (gx#syntax-e _%g205879205900%_)))) + (let ((_%hd205883205907%_ (let () (declare (not safe)) - (##car _%e204897204918%_))) - (_%tl204899204925%_ + (##car _%e205882205903%_))) + (_%tl205884205910%_ (let () (declare (not safe)) - (##cdr _%e204897204918%_)))) + (##cdr _%e205882205903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204899204925%_)) - (let ((_%e204900204928%_ + (gx#stx-pair? _%tl205884205910%_)) + (let ((_%e205885205913%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204899204925%_)))) - (let ((_%hd204901204932%_ + (gx#syntax-e _%tl205884205910%_)))) + (let ((_%hd205886205917%_ (let () (declare (not safe)) - (##car _%e204900204928%_))) - (_%tl204902204935%_ + (##car _%e205885205913%_))) + (_%tl205887205920%_ (let () (declare (not safe)) - (##cdr _%e204900204928%_)))) + (##cdr _%e205885205913%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204902204935%_)) - (let ((_%e204903204938%_ + (gx#stx-pair? _%tl205887205920%_)) + (let ((_%e205888205923%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204902204935%_)))) - (let ((_%hd204904204942%_ + _%tl205887205920%_)))) + (let ((_%hd205889205927%_ (let () (declare (not safe)) - (##car _%e204903204938%_))) - (_%tl204905204945%_ + (##car _%e205888205923%_))) + (_%tl205890205930%_ (let () (declare (not safe)) - (##cdr _%e204903204938%_)))) + (##cdr _%e205888205923%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204905204945%_)) - ((lambda (_%L204948%_ - _%L204950%_) + _%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 _%L204950%_ '())) + (cons _%L205935%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204948%_ '())) + (cons _%L205933%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204904204942%_ - _%hd204901204932%_) - (_%g204893204911%_ - _%g204894204915%_)))) - (_%g204893204911%_ _%g204894204915%_)))) - (_%g204893204911%_ _%g204894204915%_)))) - (_%g204893204911%_ _%g204894204915%_))))) - (_%g204892204966%_ _%$stx204889%_)))) + _%hd205889205927%_ + _%hd205886205917%_) + (_%g205878205896%_ + _%g205879205900%_)))) + (_%g205878205896%_ _%g205879205900%_)))) + (_%g205878205896%_ _%g205879205900%_)))) + (_%g205878205896%_ _%g205879205900%_))))) + (_%g205877205951%_ _%$stx205874%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx204970%_) - (let* ((_%g204974204992%_ - (lambda (_%g204975204988%_) + (lambda (_%$stx205955%_) + (let* ((_%g205959205977%_ + (lambda (_%g205960205973%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204975204988%_)))) - (_%g204973205047%_ - (lambda (_%g204975204996%_) + _%g205960205973%_)))) + (_%g205958206032%_ + (lambda (_%g205960205981%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204975204996%_)) - (let ((_%e204978204999%_ + (gx#stx-pair? _%g205960205981%_)) + (let ((_%e205963205984%_ (let () (declare (not safe)) - (gx#syntax-e _%g204975204996%_)))) - (let ((_%hd204979205003%_ + (gx#syntax-e _%g205960205981%_)))) + (let ((_%hd205964205988%_ (let () (declare (not safe)) - (##car _%e204978204999%_))) - (_%tl204980205006%_ + (##car _%e205963205984%_))) + (_%tl205965205991%_ (let () (declare (not safe)) - (##cdr _%e204978204999%_)))) + (##cdr _%e205963205984%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204980205006%_)) - (let ((_%e204981205009%_ + (gx#stx-pair? _%tl205965205991%_)) + (let ((_%e205966205994%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204980205006%_)))) - (let ((_%hd204982205013%_ + (gx#syntax-e _%tl205965205991%_)))) + (let ((_%hd205967205998%_ (let () (declare (not safe)) - (##car _%e204981205009%_))) - (_%tl204983205016%_ + (##car _%e205966205994%_))) + (_%tl205968206001%_ (let () (declare (not safe)) - (##cdr _%e204981205009%_)))) + (##cdr _%e205966205994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204983205016%_)) - (let ((_%e204984205019%_ + (gx#stx-pair? _%tl205968206001%_)) + (let ((_%e205969206004%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204983205016%_)))) - (let ((_%hd204985205023%_ + _%tl205968206001%_)))) + (let ((_%hd205970206008%_ (let () (declare (not safe)) - (##car _%e204984205019%_))) - (_%tl204986205026%_ + (##car _%e205969206004%_))) + (_%tl205971206011%_ (let () (declare (not safe)) - (##cdr _%e204984205019%_)))) + (##cdr _%e205969206004%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204986205026%_)) - ((lambda (_%L205029%_ - _%L205031%_) + _%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 _%L205031%_ '())) + (cons _%L206016%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205029%_ '())) + (cons _%L206014%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204985205023%_ - _%hd204982205013%_) - (_%g204974204992%_ - _%g204975204996%_)))) - (_%g204974204992%_ _%g204975204996%_)))) - (_%g204974204992%_ _%g204975204996%_)))) - (_%g204974204992%_ _%g204975204996%_))))) - (_%g204973205047%_ _%$stx204970%_)))) + _%hd205970206008%_ + _%hd205967205998%_) + (_%g205959205977%_ + _%g205960205981%_)))) + (_%g205959205977%_ _%g205960205981%_)))) + (_%g205959205977%_ _%g205960205981%_)))) + (_%g205959205977%_ _%g205960205981%_))))) + (_%g205958206032%_ _%$stx205955%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx205051%_) - (let* ((_%g205055205084%_ - (lambda (_%g205056205080%_) + (lambda (_%$stx206036%_) + (let* ((_%g206040206069%_ + (lambda (_%g206041206065%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205056205080%_)))) - (_%g205054205184%_ - (lambda (_%g205056205088%_) + _%g206041206065%_)))) + (_%g206039206169%_ + (lambda (_%g206041206073%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205056205088%_)) - (let ((_%e205059205091%_ + (gx#stx-pair? _%g206041206073%_)) + (let ((_%e206044206076%_ (let () (declare (not safe)) - (gx#syntax-e _%g205056205088%_)))) - (let ((_%hd205060205095%_ + (gx#syntax-e _%g206041206073%_)))) + (let ((_%hd206045206080%_ (let () (declare (not safe)) - (##car _%e205059205091%_))) - (_%tl205061205098%_ + (##car _%e206044206076%_))) + (_%tl206046206083%_ (let () (declare (not safe)) - (##cdr _%e205059205091%_)))) + (##cdr _%e206044206076%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205061205098%_)) - (let ((_g209392_ + (gx#stx-pair/null? _%tl206046206083%_)) + (let ((_g210377_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205061205098%_ + _%tl206046206083%_ '0)))) (begin - (let ((_g209393_ + (let ((_g210378_ (let () (declare (not safe)) - (if (##values? _g209392_) - (##values-length _g209392_) + (if (##values? _g210377_) + (##values-length _g210377_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209393_ 2))) + (##fx= _g210378_ 2))) (error "Context expects 2 values" - _g209393_))) - (let ((_%target205062205101%_ + _g210378_))) + (let ((_%target206047206086%_ (let () (declare (not safe)) - (##values-ref _g209392_ 0))) - (_%tl205064205104%_ + (##values-ref _g210377_ 0))) + (_%tl206049206089%_ (let () (declare (not safe)) - (##values-ref _g209392_ 1)))) + (##values-ref _g210377_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205064205104%_)) - (letrec ((_%loop205065205107%_ - (lambda (_%hd205063205111%_ - _%rule205069205114%_ - _%proc205070205116%_) + (gx#stx-null? _%tl206049206089%_)) + (letrec ((_%loop206050206092%_ + (lambda (_%hd206048206096%_ + _%rule206054206099%_ + _%proc206055206101%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205063205111%_)) - (let ((_%e205066205119%_ + _%hd206048206096%_)) + (let ((_%e206051206104%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd205063205111%_)))) - (let ((_%lp-hd205067205123%_ + (gx#syntax-e _%hd206048206096%_)))) + (let ((_%lp-hd206052206108%_ (let () (declare (not safe)) - (##car _%e205066205119%_))) - (_%lp-tl205068205126%_ + (##car _%e206051206104%_))) + (_%lp-tl206053206111%_ (let () (declare (not safe)) - (##cdr _%e205066205119%_)))) + (##cdr _%e206051206104%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd205067205123%_)) - (let ((_%e205073205129%_ + (gx#stx-pair? _%lp-hd206052206108%_)) + (let ((_%e206058206114%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd205067205123%_)))) - (let ((_%hd205074205133%_ + (gx#syntax-e _%lp-hd206052206108%_)))) + (let ((_%hd206059206118%_ (let () (declare (not safe)) - (##car _%e205073205129%_))) - (_%tl205075205136%_ + (##car _%e206058206114%_))) + (_%tl206060206121%_ (let () (declare (not safe)) - (##cdr _%e205073205129%_)))) + (##cdr _%e206058206114%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205075205136%_)) - (let ((_%e205076205139%_ + (gx#stx-pair? _%tl206060206121%_)) + (let ((_%e206061206124%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205075205136%_)))) - (let ((_%hd205077205143%_ + (gx#syntax-e _%tl206060206121%_)))) + (let ((_%hd206062206128%_ (let () (declare (not safe)) - (##car _%e205076205139%_))) - (_%tl205078205146%_ + (##car _%e206061206124%_))) + (_%tl206063206131%_ (let () (declare (not safe)) - (##cdr _%e205076205139%_)))) + (##cdr _%e206061206124%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205078205146%_)) - (_%loop205065205107%_ - _%lp-tl205068205126%_ - (cons _%hd205077205143%_ - _%rule205069205114%_) - (cons _%hd205074205133%_ - _%proc205070205116%_)) - (_%g205055205084%_ - _%g205056205088%_)))) - (_%g205055205084%_ _%g205056205088%_)))) - (_%g205055205084%_ _%g205056205088%_)))) - (let ((_%rule205071205149%_ (reverse _%rule205069205114%_)) - (_%proc205072205152%_ (reverse _%proc205070205116%_))) - ((lambda (_%L205155%_ _%L205157%_) + (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 - _%L205155%_ - _%L205157%_)) - (let ((__tmp209394 - (lambda (_%g205172205176%_ - _%g205173205179%_ - _%g205174205181%_) + _%L206140%_ + _%L206142%_)) + (let ((__tmp210379 + (lambda (_%g206157206161%_ + _%g206158206164%_ + _%g206159206166%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g205173205179%_ - (cons _%g205172205176%_ + (cons _%g206158206164%_ + (cons _%g206157206161%_ '()))) - _%g205174205181%_)))) + _%g206159206166%_)))) (declare (not safe)) (__foldr2 - __tmp209394 + __tmp210379 '() - _%L205155%_ - _%L205157%_))))) - _%rule205071205149%_ - _%proc205072205152%_)))))) + _%L206140%_ + _%L206142%_))))) + _%rule206056206134%_ + _%proc206057206137%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop205065205107%_ - _%target205062205101%_ + (_%loop206050206092%_ + _%target206047206086%_ '() '())) - (_%g205055205084%_ - _%g205056205088%_))))) - (_%g205055205084%_ _%g205056205088%_)))) - (_%g205055205084%_ _%g205056205088%_))))) - (_%g205054205184%_ _%$stx205051%_)))) + (_%g206040206069%_ + _%g206041206073%_))))) + (_%g206040206069%_ _%g206041206073%_)))) + (_%g206040206069%_ _%g206041206073%_))))) + (_%g206039206169%_ _%$stx206036%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx205189%_) - (let* ((_%g205193205211%_ - (lambda (_%g205194205207%_) + (lambda (_%$stx206174%_) + (let* ((_%g206178206196%_ + (lambda (_%g206179206192%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205194205207%_)))) - (_%g205192205266%_ - (lambda (_%g205194205215%_) + _%g206179206192%_)))) + (_%g206177206251%_ + (lambda (_%g206179206200%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205194205215%_)) - (let ((_%e205197205218%_ + (gx#stx-pair? _%g206179206200%_)) + (let ((_%e206182206203%_ (let () (declare (not safe)) - (gx#syntax-e _%g205194205215%_)))) - (let ((_%hd205198205222%_ + (gx#syntax-e _%g206179206200%_)))) + (let ((_%hd206183206207%_ (let () (declare (not safe)) - (##car _%e205197205218%_))) - (_%tl205199205225%_ + (##car _%e206182206203%_))) + (_%tl206184206210%_ (let () (declare (not safe)) - (##cdr _%e205197205218%_)))) + (##cdr _%e206182206203%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205199205225%_)) - (let ((_%e205200205228%_ + (gx#stx-pair? _%tl206184206210%_)) + (let ((_%e206185206213%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205199205225%_)))) - (let ((_%hd205201205232%_ + (gx#syntax-e _%tl206184206210%_)))) + (let ((_%hd206186206217%_ (let () (declare (not safe)) - (##car _%e205200205228%_))) - (_%tl205202205235%_ + (##car _%e206185206213%_))) + (_%tl206187206220%_ (let () (declare (not safe)) - (##cdr _%e205200205228%_)))) + (##cdr _%e206185206213%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205202205235%_)) - (let ((_%e205203205238%_ + (gx#stx-pair? _%tl206187206220%_)) + (let ((_%e206188206223%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205202205235%_)))) - (let ((_%hd205204205242%_ + _%tl206187206220%_)))) + (let ((_%hd206189206227%_ (let () (declare (not safe)) - (##car _%e205203205238%_))) - (_%tl205205205245%_ + (##car _%e206188206223%_))) + (_%tl206190206230%_ (let () (declare (not safe)) - (##cdr _%e205203205238%_)))) + (##cdr _%e206188206223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205205205245%_)) - ((lambda (_%L205248%_ - _%L205250%_) + _%tl206190206230%_)) + ((lambda (_%L206233%_ + _%L206235%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205250%_ '())) + (cons _%L206235%_ '())) '())) '())) (cons (cons (let () @@ -2805,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L205248%_ '()))) + (cons _%L206233%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205250%_ '())) + (cons _%L206235%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd205204205242%_ - _%hd205201205232%_) - (_%g205193205211%_ - _%g205194205215%_)))) - (_%g205193205211%_ _%g205194205215%_)))) - (_%g205193205211%_ _%g205194205215%_)))) - (_%g205193205211%_ _%g205194205215%_))))) - (_%g205192205266%_ _%$stx205189%_)))) + _%hd206189206227%_ + _%hd206186206217%_) + (_%g206178206196%_ + _%g206179206200%_)))) + (_%g206178206196%_ _%g206179206200%_)))) + (_%g206178206196%_ _%g206179206200%_)))) + (_%g206178206196%_ _%g206179206200%_))))) + (_%g206177206251%_ _%$stx206174%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx205270%_) - (let* ((_%__stx208874208875%_ _%$stx205270%_) - (_%g205275205300%_ + (lambda (_%$stx206255%_) + (let* ((_%__stx209859209860%_ _%$stx206255%_) + (_%g206260206285%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208874208875%_))))) - (let ((_%__kont208877208878%_ + _%__stx209859209860%_))))) + (let ((_%__kont209862209863%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208879208880%_ - (lambda (_%L205347%_ _%L205349%_ _%L205350%_) + (_%__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 _%L205350%_ (cons _%L205349%_ '()))) + (cons _%L206335%_ (cons _%L206334%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L205347%_) + _%L206332%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208874208875%_)) - (let ((_%e205277205376%_ + (gx#stx-pair? _%__stx209859209860%_)) + (let ((_%e206262206361%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208874208875%_)))) - (let ((_%tl205279205383%_ + (gx#syntax-e _%__stx209859209860%_)))) + (let ((_%tl206264206368%_ (let () (declare (not safe)) - (##cdr _%e205277205376%_))) - (_%hd205278205380%_ + (##cdr _%e206262206361%_))) + (_%hd206263206365%_ (let () (declare (not safe)) - (##car _%e205277205376%_)))) + (##car _%e206262206361%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205279205383%_)) - (_%__kont208877208878%_) + (gx#stx-null? _%tl206264206368%_)) + (_%__kont209862209863%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205279205383%_)) - (let ((_%e205286205317%_ + (gx#stx-pair? _%tl206264206368%_)) + (let ((_%e206271206302%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205279205383%_)))) - (let ((_%tl205288205324%_ + (gx#syntax-e _%tl206264206368%_)))) + (let ((_%tl206273206309%_ (let () (declare (not safe)) - (##cdr _%e205286205317%_))) - (_%hd205287205321%_ + (##cdr _%e206271206302%_))) + (_%hd206272206306%_ (let () (declare (not safe)) - (##car _%e205286205317%_)))) + (##car _%e206271206302%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205287205321%_)) - (let ((_%e205289205327%_ + (gx#stx-pair? _%hd206272206306%_)) + (let ((_%e206274206312%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205287205321%_)))) - (let ((_%tl205291205334%_ + _%hd206272206306%_)))) + (let ((_%tl206276206319%_ (let () (declare (not safe)) - (##cdr _%e205289205327%_))) - (_%hd205290205331%_ + (##cdr _%e206274206312%_))) + (_%hd206275206316%_ (let () (declare (not safe)) - (##car _%e205289205327%_)))) + (##car _%e206274206312%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205291205334%_)) - (let ((_%e205292205337%_ + _%tl206276206319%_)) + (let ((_%e206277206322%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205291205334%_)))) - (let ((_%tl205294205344%_ + _%tl206276206319%_)))) + (let ((_%tl206279206329%_ (let () (declare (not safe)) - (##cdr _%e205292205337%_))) - (_%hd205293205341%_ + (##cdr _%e206277206322%_))) + (_%hd206278206326%_ (let () (declare (not safe)) - (##car _%e205292205337%_)))) + (##car _%e206277206322%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205294205344%_)) - (_%__kont208879208880%_ - _%tl205288205324%_ - _%hd205293205341%_ - _%hd205290205331%_) + _%tl206279206329%_)) + (_%__kont209864209865%_ + _%tl206273206309%_ + _%hd206278206326%_ + _%hd206275206316%_) (let () (declare (not safe)) - (_%g205275205300%_))))) + (_%g206260206285%_))))) (let () (declare (not safe)) - (_%g205275205300%_))))) + (_%g206260206285%_))))) (let () (declare (not safe)) - (_%g205275205300%_))))) + (_%g206260206285%_))))) (let () (declare (not safe)) - (_%g205275205300%_)))))) - (let () (declare (not safe)) (_%g205275205300%_))))))) + (_%g206260206285%_)))))) + (let () (declare (not safe)) (_%g206260206285%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx205394%_) - (let* ((_%__stx208918208919%_ _%$stx205394%_) - (_%g205399205430%_ + (lambda (_%$stx206379%_) + (let* ((_%__stx209903209904%_ _%$stx206379%_) + (_%g206384206415%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208918208919%_))))) - (let ((_%__kont208921208922%_ + _%__stx209903209904%_))))) + (let ((_%__kont209906209907%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208923208924%_ - (lambda (_%L205497%_ _%L205499%_ _%L205500%_) + (_%__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 _%L205500%_ - (let ((__tmp209395 - (lambda (_%g205520205523%_ - _%g205521205526%_) - (cons _%g205520205523%_ - _%g205521205526%_)))) + (cons _%L206485%_ + (let ((__tmp210380 + (lambda (_%g206505206508%_ + _%g206506206511%_) + (cons _%g206505206508%_ + _%g206506206511%_)))) (declare (not safe)) (__foldr1 - __tmp209395 + __tmp210380 '() - _%L205499%_)))) + _%L206484%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L205497%_) + _%L206482%_) '())))))) - (let ((_%__match208961208962%_ - (lambda (_%e205407205437%_ - _%hd205408205441%_ - _%tl205409205444%_ - _%e205410205447%_ - _%hd205411205451%_ - _%tl205412205454%_ - _%e205413205457%_ - _%hd205414205461%_ - _%tl205415205464%_ - _%__splice208925208926%_ - _%target205416205467%_ - _%tl205418205470%_) - (letrec ((_%loop205419205473%_ - (lambda (_%hd205417205477%_ _%sig205423205480%_) + (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? _%hd205417205477%_)) - (let ((_%e205420205483%_ + (gx#stx-pair? _%hd206402206462%_)) + (let ((_%e206405206468%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205417205477%_)))) - (let ((_%lp-tl205422205490%_ + _%hd206402206462%_)))) + (let ((_%lp-tl206407206475%_ (let () (declare (not safe)) - (##cdr _%e205420205483%_))) - (_%lp-hd205421205487%_ + (##cdr _%e206405206468%_))) + (_%lp-hd206406206472%_ (let () (declare (not safe)) - (##car _%e205420205483%_)))) - (_%loop205419205473%_ - _%lp-tl205422205490%_ - (cons _%lp-hd205421205487%_ - _%sig205423205480%_)))) - (let ((_%sig205424205493%_ - (reverse _%sig205423205480%_))) - (_%__kont208923208924%_ - _%tl205412205454%_ - _%sig205424205493%_ - _%hd205414205461%_)))))) - (_%loop205419205473%_ _%target205416205467%_ '()))))) + (##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? _%__stx208918208919%_)) - (let ((_%e205401205536%_ + (gx#stx-pair? _%__stx209903209904%_)) + (let ((_%e206386206521%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208918208919%_)))) - (let ((_%tl205403205543%_ + (gx#syntax-e _%__stx209903209904%_)))) + (let ((_%tl206388206528%_ (let () (declare (not safe)) - (##cdr _%e205401205536%_))) - (_%hd205402205540%_ + (##cdr _%e206386206521%_))) + (_%hd206387206525%_ (let () (declare (not safe)) - (##car _%e205401205536%_)))) + (##car _%e206386206521%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205403205543%_)) - (_%__kont208921208922%_) + (gx#stx-null? _%tl206388206528%_)) + (_%__kont209906209907%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205403205543%_)) - (let ((_%e205410205447%_ + (gx#stx-pair? _%tl206388206528%_)) + (let ((_%e206395206432%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205403205543%_)))) - (let ((_%tl205412205454%_ + (gx#syntax-e _%tl206388206528%_)))) + (let ((_%tl206397206439%_ (let () (declare (not safe)) - (##cdr _%e205410205447%_))) - (_%hd205411205451%_ + (##cdr _%e206395206432%_))) + (_%hd206396206436%_ (let () (declare (not safe)) - (##car _%e205410205447%_)))) + (##car _%e206395206432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205411205451%_)) - (let ((_%e205413205457%_ + (gx#stx-pair? _%hd206396206436%_)) + (let ((_%e206398206442%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205411205451%_)))) - (let ((_%tl205415205464%_ + _%hd206396206436%_)))) + (let ((_%tl206400206449%_ (let () (declare (not safe)) - (##cdr _%e205413205457%_))) - (_%hd205414205461%_ + (##cdr _%e206398206442%_))) + (_%hd206399206446%_ (let () (declare (not safe)) - (##car _%e205413205457%_)))) + (##car _%e206398206442%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205415205464%_)) - (let ((_%__splice208925208926%_ + _%tl206400206449%_)) + (let ((_%__splice209910209911%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205415205464%_ + _%tl206400206449%_ '0)))) - (let ((_%tl205418205470%_ + (let ((_%tl206403206455%_ (let () (declare (not safe)) (##vector-ref - _%__splice208925208926%_ + _%__splice209910209911%_ '1))) - (_%target205416205467%_ + (_%target206401206452%_ (let () (declare (not safe)) (##vector-ref - _%__splice208925208926%_ + _%__splice209910209911%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205418205470%_)) - (_%__match208961208962%_ - _%e205401205536%_ - _%hd205402205540%_ - _%tl205403205543%_ - _%e205410205447%_ - _%hd205411205451%_ - _%tl205412205454%_ - _%e205413205457%_ - _%hd205414205461%_ - _%tl205415205464%_ - _%__splice208925208926%_ - _%target205416205467%_ - _%tl205418205470%_) + _%tl206403206455%_)) + (_%__match209946209947%_ + _%e206386206521%_ + _%hd206387206525%_ + _%tl206388206528%_ + _%e206395206432%_ + _%hd206396206436%_ + _%tl206397206439%_ + _%e206398206442%_ + _%hd206399206446%_ + _%tl206400206449%_ + _%__splice209910209911%_ + _%target206401206452%_ + _%tl206403206455%_) (let () (declare (not safe)) - (_%g205399205430%_))))) + (_%g206384206415%_))))) (let () (declare (not safe)) - (_%g205399205430%_))))) + (_%g206384206415%_))))) (let () (declare (not safe)) - (_%g205399205430%_))))) + (_%g206384206415%_))))) (let () (declare (not safe)) - (_%g205399205430%_)))))) - (let () (declare (not safe)) (_%g205399205430%_)))))))) + (_%g206384206415%_)))))) + (let () (declare (not safe)) (_%g206384206415%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx205555%_) - (let* ((_%__stx208964208965%_ _%$stx205555%_) - (_%g205560205607%_ + (lambda (_%$stx206540%_) + (let* ((_%__stx209949209950%_ _%$stx206540%_) + (_%g206545206592%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208964208965%_))))) - (let ((_%__kont208967208968%_ - (lambda (_%L205769%_ _%L205771%_) + _%__stx209949209950%_))))) + (let ((_%__kont209952209953%_ + (lambda (_%L206754%_ _%L206756%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L205771%_ - (let ((__tmp209396 - (lambda (_%g205791205794%_ - _%g205792205797%_) - (cons _%g205791205794%_ - _%g205792205797%_)))) + (cons _%L206756%_ + (let ((__tmp210381 + (lambda (_%g206776206779%_ + _%g206777206782%_) + (cons _%g206776206779%_ + _%g206777206782%_)))) (declare (not safe)) - (__foldr1 __tmp209396 '() _%L205769%_)))))) - (_%__kont208971208972%_ - (lambda (_%L205664%_ _%L205666%_) + (__foldr1 __tmp210381 '() _%L206754%_)))))) + (_%__kont209956209957%_ + (lambda (_%L206649%_ _%L206651%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L205666%_ - (let ((__tmp209397 - (lambda (_%g205683205686%_ - _%g205684205689%_) - (cons _%g205683205686%_ - _%g205684205689%_)))) + (cons _%L206651%_ + (let ((__tmp210382 + (lambda (_%g206668206671%_ + _%g206669206674%_) + (cons _%g206668206671%_ + _%g206669206674%_)))) (declare (not safe)) - (__foldr1 __tmp209397 '() _%L205664%_))))))) - (let* ((_%__match209031209032%_ - (lambda (_%e205587205614%_ - _%hd205588205618%_ - _%tl205589205621%_ - _%e205590205624%_ - _%hd205591205628%_ - _%tl205592205631%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) - (letrec ((_%loop205596205640%_ - (lambda (_%hd205594205644%_ - _%sig205600205647%_) + (__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? _%hd205594205644%_)) - (let ((_%e205597205650%_ + (gx#stx-pair? _%hd206579206629%_)) + (let ((_%e206582206635%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205594205644%_)))) - (let ((_%lp-tl205599205657%_ + _%hd206579206629%_)))) + (let ((_%lp-tl206584206642%_ (let () (declare (not safe)) - (##cdr _%e205597205650%_))) - (_%lp-hd205598205654%_ + (##cdr _%e206582206635%_))) + (_%lp-hd206583206639%_ (let () (declare (not safe)) - (##car _%e205597205650%_)))) - (_%loop205596205640%_ - _%lp-tl205599205657%_ - (cons _%lp-hd205598205654%_ - _%sig205600205647%_)))) - (let ((_%sig205601205660%_ - (reverse _%sig205600205647%_))) - (_%__kont208971208972%_ - _%sig205601205660%_ - _%hd205591205628%_)))))) - (_%loop205596205640%_ _%target205593205634%_ '())))) - (_%__match209023209024%_ - (lambda (_%e205587205614%_ - _%hd205588205618%_ - _%tl205589205621%_ - _%e205590205624%_ - _%hd205591205628%_ - _%tl205592205631%_) + (##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? _%tl205592205631%_)) - (let ((_%__splice208973208974%_ + (gx#stx-pair/null? _%tl206577206616%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205592205631%_ + _%tl206577206616%_ '0)))) - (let ((_%tl205595205637%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '1))) - (_%target205593205634%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205595205637%_)) - (_%__match209031209032%_ - _%e205587205614%_ - _%hd205588205618%_ - _%tl205589205621%_ - _%e205590205624%_ - _%hd205591205628%_ - _%tl205592205631%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206572206599%_ + _%hd206573206603%_ + _%tl206574206606%_ + _%e206575206609%_ + _%hd206576206613%_ + _%tl206577206616%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205560205607%_))))) - (let () (declare (not safe)) (_%g205560205607%_))))) - (_%__match209011209012%_ - (lambda (_%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%e205570205719%_ - _%hd205571205723%_ - _%tl205572205726%_ - _%e205573205729%_ - _%hd205574205733%_ - _%tl205575205736%_ - _%__splice208969208970%_ - _%target205576205739%_ - _%tl205578205742%_) - (letrec ((_%loop205579205745%_ - (lambda (_%hd205577205749%_ - _%sig205583205752%_) + (_%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? _%hd205577205749%_)) - (let ((_%e205580205755%_ + (gx#stx-pair? _%hd206562206734%_)) + (let ((_%e206565206740%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205577205749%_)))) - (let ((_%lp-tl205582205762%_ + _%hd206562206734%_)))) + (let ((_%lp-tl206567206747%_ (let () (declare (not safe)) - (##cdr _%e205580205755%_))) - (_%lp-hd205581205759%_ + (##cdr _%e206565206740%_))) + (_%lp-hd206566206744%_ (let () (declare (not safe)) - (##car _%e205580205755%_)))) - (_%loop205579205745%_ - _%lp-tl205582205762%_ - (cons _%lp-hd205581205759%_ - _%sig205583205752%_)))) - (let ((_%sig205584205765%_ - (reverse _%sig205583205752%_))) + (##car _%e206565206740%_)))) + (_%loop206564206730%_ + _%lp-tl206567206747%_ + (cons _%lp-hd206566206744%_ + _%sig206568206737%_)))) + (let ((_%sig206569206750%_ + (reverse _%sig206568206737%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205572205726%_)) - (_%__kont208967208968%_ - _%sig205584205765%_ - _%hd205568205713%_) - (_%__match209023209024%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_))))))) - (_%loop205579205745%_ _%target205576205739%_ '()))))) + _%tl206557206711%_)) + (_%__kont209952209953%_ + _%sig206569206750%_ + _%hd206553206698%_) + (_%__match210008210009%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_))))))) + (_%loop206564206730%_ _%target206561206724%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208964208965%_)) - (let ((_%e205564205699%_ + (gx#stx-pair? _%__stx209949209950%_)) + (let ((_%e206549206684%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208964208965%_)))) - (let ((_%tl205566205706%_ + (gx#syntax-e _%__stx209949209950%_)))) + (let ((_%tl206551206691%_ (let () (declare (not safe)) - (##cdr _%e205564205699%_))) - (_%hd205565205703%_ + (##cdr _%e206549206684%_))) + (_%hd206550206688%_ (let () (declare (not safe)) - (##car _%e205564205699%_)))) + (##car _%e206549206684%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205566205706%_)) - (let ((_%e205567205709%_ + (gx#stx-pair? _%tl206551206691%_)) + (let ((_%e206552206694%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205566205706%_)))) - (let ((_%tl205569205716%_ + (gx#syntax-e _%tl206551206691%_)))) + (let ((_%tl206554206701%_ (let () (declare (not safe)) - (##cdr _%e205567205709%_))) - (_%hd205568205713%_ + (##cdr _%e206552206694%_))) + (_%hd206553206698%_ (let () (declare (not safe)) - (##car _%e205567205709%_)))) + (##car _%e206552206694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205569205716%_)) - (let ((_%e205570205719%_ + (gx#stx-pair? _%tl206554206701%_)) + (let ((_%e206555206704%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205569205716%_)))) - (let ((_%tl205572205726%_ + (gx#syntax-e _%tl206554206701%_)))) + (let ((_%tl206557206711%_ (let () (declare (not safe)) - (##cdr _%e205570205719%_))) - (_%hd205571205723%_ + (##cdr _%e206555206704%_))) + (_%hd206556206708%_ (let () (declare (not safe)) - (##car _%e205570205719%_)))) + (##car _%e206555206704%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205571205723%_)) - (let ((_%e205573205729%_ + (gx#stx-pair? _%hd206556206708%_)) + (let ((_%e206558206714%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205571205723%_)))) - (let ((_%tl205575205736%_ + _%hd206556206708%_)))) + (let ((_%tl206560206721%_ (let () (declare (not safe)) - (##cdr _%e205573205729%_))) - (_%hd205574205733%_ + (##cdr _%e206558206714%_))) + (_%hd206559206718%_ (let () (declare (not safe)) - (##car _%e205573205729%_)))) + (##car _%e206558206714%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205574205733%_)) - (if (let ((__tmp209398 - |gxc[1]#_g209399_|)) + _%hd206559206718%_)) + (if (let ((__tmp210383 + |gxc[1]#_g210384_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209398 - _%hd205574205733%_)) + __tmp210383 + _%hd206559206718%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205575205736%_)) - (let ((_%__splice208969208970%_ + _%tl206560206721%_)) + (let ((_%__splice209954209955%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205575205736%_ '0)))) - (let ((_%tl205578205742%_ + (gx#syntax-split-splice _%tl206560206721%_ '0)))) + (let ((_%tl206563206727%_ (let () (declare (not safe)) - (##vector-ref _%__splice208969208970%_ '1))) - (_%target205576205739%_ + (##vector-ref _%__splice209954209955%_ '1))) + (_%target206561206724%_ (let () (declare (not safe)) - (##vector-ref _%__splice208969208970%_ '0)))) + (##vector-ref _%__splice209954209955%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205578205742%_)) - (_%__match209011209012%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%e205570205719%_ - _%hd205571205723%_ - _%tl205572205726%_ - _%e205573205729%_ - _%hd205574205733%_ - _%tl205575205736%_ - _%__splice208969208970%_ - _%target205576205739%_ - _%tl205578205742%_) + (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? _%tl205569205716%_)) - (let ((_%__splice208973208974%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205569205716%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205595205637%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '1))) - (_%target205593205634%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205595205637%_)) - (_%__match209031209032%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205560205607%_))))) + (_%g206545206592%_))))) (let () (declare (not safe)) - (_%g205560205607%_)))))) + (_%g206545206592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205569205716%_)) - (let ((_%__splice208973208974%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205569205716%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205595205637%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) - (##vector-ref _%__splice208973208974%_ '1))) - (_%target205593205634%_ + (##vector-ref _%__splice209958209959%_ '1))) + (_%target206578206619%_ (let () (declare (not safe)) - (##vector-ref _%__splice208973208974%_ '0)))) + (##vector-ref _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205595205637%_)) - (_%__match209031209032%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205560205607%_))))) - (let () (declare (not safe)) (_%g205560205607%_)))) + (_%g206545206592%_))))) + (let () (declare (not safe)) (_%g206545206592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205569205716%_)) - (let ((_%__splice208973208974%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205569205716%_ '0)))) - (let ((_%tl205595205637%_ + (gx#syntax-split-splice _%tl206554206701%_ '0)))) + (let ((_%tl206580206622%_ (let () (declare (not safe)) - (##vector-ref _%__splice208973208974%_ '1))) - (_%target205593205634%_ + (##vector-ref _%__splice209958209959%_ '1))) + (_%target206578206619%_ (let () (declare (not safe)) - (##vector-ref _%__splice208973208974%_ '0)))) + (##vector-ref _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205595205637%_)) - (_%__match209031209032%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) - (let () (declare (not safe)) (_%g205560205607%_))))) - (let () (declare (not safe)) (_%g205560205607%_)))) + (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? - _%tl205569205716%_)) - (let ((_%__splice208973208974%_ + _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl205569205716%_ '0)))) - (let ((_%tl205595205637%_ + (gx#syntax-split-splice _%tl206554206701%_ '0)))) + (let ((_%tl206580206622%_ (let () (declare (not safe)) - (##vector-ref _%__splice208973208974%_ '1))) - (_%target205593205634%_ + (##vector-ref _%__splice209958209959%_ '1))) + (_%target206578206619%_ (let () (declare (not safe)) - (##vector-ref _%__splice208973208974%_ '0)))) + (##vector-ref _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205595205637%_)) - (_%__match209031209032%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) - (let () (declare (not safe)) (_%g205560205607%_))))) - (let () (declare (not safe)) (_%g205560205607%_)))))) + (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? - _%tl205569205716%_)) - (let ((_%__splice208973208974%_ + _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205569205716%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205595205637%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '1))) - (_%target205593205634%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205595205637%_)) - (_%__match209031209032%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) + _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205560205607%_))))) + (_%g206545206592%_))))) (let () (declare (not safe)) - (_%g205560205607%_)))))) + (_%g206545206592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205569205716%_)) - (let ((_%__splice208973208974%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205569205716%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205595205637%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '1))) - (_%target205593205634%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208973208974%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205595205637%_)) - (_%__match209031209032%_ - _%e205564205699%_ - _%hd205565205703%_ - _%tl205566205706%_ - _%e205567205709%_ - _%hd205568205713%_ - _%tl205569205716%_ - _%__splice208973208974%_ - _%target205593205634%_ - _%tl205595205637%_) + _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205560205607%_))))) + (_%g206545206592%_))))) (let () (declare (not safe)) - (_%g205560205607%_)))))) - (let () (declare (not safe)) (_%g205560205607%_))))) - (let () (declare (not safe)) (_%g205560205607%_)))))))) + (_%g206545206592%_)))))) + (let () (declare (not safe)) (_%g206545206592%_))))) + (let () (declare (not safe)) (_%g206545206592%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx206954%_ _%id206956%_) - (let ((_%proc206960%_ - (let ((__tmp209400 + (lambda (_%ctx207939%_ _%id207941%_) + (let ((_%proc207945%_ + (let ((__tmp210385 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206956%_))))) + (gx#eval-syntax__0 _%id207941%_))))) (declare (not safe)) - (__with-catch false __tmp209400)))) - (if (procedure? _%proc206960%_) + (__with-catch false __tmp210385)))) + (if (procedure? _%proc207945%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx206954%_ - _%id206956%_)))))) + _%ctx207939%_ + _%id207941%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx206945%_ _%id206947%_) - (let ((_%klass206951%_ - (let ((__tmp209401 + (lambda (_%ctx207930%_ _%id207932%_) + (let ((_%klass207936%_ + (let ((__tmp210386 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206947%_))))) + (gx#eval-syntax__0 _%id207932%_))))) (declare (not safe)) - (__with-catch false __tmp209401)))) + (__with-catch false __tmp210386)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass206951%_ 'class)) + (##structure-instance-of? _%klass207936%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx206945%_ - _%id206947%_)))))) + _%ctx207930%_ + _%id207932%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx206195%_ _%proc206197%_ _%sig206198%_) - (letrec ((_%signature-arity206200%_ - (lambda (_%args206877%_) - (let _%loop206880%_ ((_%rest206883%_ _%args206877%_) - (_%count206885%_ '0)) - (let* ((_%rest206886206897%_ _%rest206883%_) - (_%E206890206903%_ + (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" - _%rest206886206897%_ + _%rest207871207882%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K206893206934%_ - (lambda (_%rest206931%_) - (_%loop206880%_ - _%rest206931%_ + (let ((_%K207878207919%_ + (lambda (_%rest207916%_) + (_%loop207865%_ + _%rest207916%_ (let () (declare (not safe)) - (##fx+ _%count206885%_ '1))))) - (_%K206892206923%_ (lambda () _%count206885%_)) - (_%K206891206911%_ - (lambda () (cons _%count206885%_ '())))) - (let ((_%try-match206888206927%_ + (##fx+ _%count207870%_ '1))))) + (_%K207877207908%_ (lambda () _%count207870%_)) + (_%K207876207896%_ + (lambda () (cons _%count207870%_ '())))) + (let ((_%try-match207873207912%_ (lambda () - (if (null? _%rest206886206897%_) - (_%K206892206923%_) - (_%K206891206911%_))))) - (if (pair? _%rest206886206897%_) - (let* ((_%tl206895206938%_ + (if (null? _%rest207871207882%_) + (_%K207877207908%_) + (_%K207876207896%_))))) + (if (pair? _%rest207871207882%_) + (let* ((_%tl207880207923%_ (let () (declare (not safe)) - (##cdr _%rest206886206897%_))) - (_%rest206942%_ _%tl206895206938%_)) - (_%K206893206934%_ _%rest206942%_)) - (_%try-match206888206927%_)))))))) - (_%make-signature206202%_ - (lambda (_%args206759%_ - _%return206761%_ - _%effect206762%_ - _%unchecked206763%_) - (let ((__tmp209402 - (lambda (_%g206764206766%_) + (##cdr _%rest207871207882%_))) + (_%rest207927%_ _%tl207880207923%_)) + (_%K207878207919%_ _%rest207927%_)) + (_%try-match207873207912%_)))))))) + (_%make-signature207187%_ + (lambda (_%args207744%_ + _%return207746%_ + _%effect207747%_ + _%unchecked207748%_) + (let ((__tmp210387 + (lambda (_%g207749207751%_) (|gxc[1]#verify-class!| - _%ctx206195%_ - _%g206764206766%_)))) + _%ctx207180%_ + _%g207749207751%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp209402 _%args206759%_)) - (|gxc[1]#verify-class!| _%ctx206195%_ _%return206761%_) - (if _%unchecked206763%_ + (gx#stx-for-each1 __tmp210387 _%args207744%_)) + (|gxc[1]#verify-class!| _%ctx207180%_ _%return207746%_) + (if _%unchecked207748%_ (|gxc[1]#verify-procedure!| - _%ctx206195%_ - _%unchecked206763%_) + _%ctx207180%_ + _%unchecked207748%_) '#!void) - (let ((_%arity206770%_ - (_%signature-arity206200%_ + (let ((_%arity207755%_ + (_%signature-arity207185%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args206759%_))))) - (if _%effect206762%_ - (let ((_%effect206773%_ + (gx#stx-map1 gx#stx-e _%args207744%_))))) + (if _%effect207747%_ + (let ((_%effect207758%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect206762%_)))) - (if (and (list? _%effect206773%_) + (gx#syntax->datum _%effect207747%_)))) + (if (and (list? _%effect207758%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect206773%_))) + (__andmap1 symbol? _%effect207758%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx206195%_ - _%proc206197%_ - _%effect206773%_)))) + _%ctx207180%_ + _%proc207182%_ + _%effect207758%_)))) '#!void) - (cons _%arity206770%_ - (cons (let* ((_%g206776206799%_ - (lambda (_%g206777206795%_) + (cons _%arity207755%_ + (cons (let* ((_%g207761207784%_ + (lambda (_%g207762207780%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206777206795%_)))) - (_%g206775206873%_ - (lambda (_%g206777206803%_) + _%g207762207780%_)))) + (_%g207760207858%_ + (lambda (_%g207762207788%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206777206803%_)) - (let ((_%e206782206806%_ + _%g207762207788%_)) + (let ((_%e207767207791%_ (let () (declare (not safe)) (gx#syntax-e - _%g206777206803%_)))) - (let ((_%hd206783206810%_ + _%g207762207788%_)))) + (let ((_%hd207768207795%_ (let () (declare (not safe)) - (##car _%e206782206806%_))) - (_%tl206784206813%_ + (##car _%e207767207791%_))) + (_%tl207769207798%_ (let () (declare (not safe)) - (##cdr _%e206782206806%_)))) + (##cdr _%e207767207791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206784206813%_)) - (let ((_%e206785206816%_ + _%tl207769207798%_)) + (let ((_%e207770207801%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206784206813%_)))) - (let ((_%hd206786206820%_ + (gx#syntax-e _%tl207769207798%_)))) + (let ((_%hd207771207805%_ (let () (declare (not safe)) - (##car _%e206785206816%_))) - (_%tl206787206823%_ + (##car _%e207770207801%_))) + (_%tl207772207808%_ (let () (declare (not safe)) - (##cdr _%e206785206816%_)))) + (##cdr _%e207770207801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206787206823%_)) - (let ((_%e206788206826%_ + (gx#stx-pair? _%tl207772207808%_)) + (let ((_%e207773207811%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206787206823%_)))) - (let ((_%hd206789206830%_ + (gx#syntax-e _%tl207772207808%_)))) + (let ((_%hd207774207815%_ (let () (declare (not safe)) - (##car _%e206788206826%_))) - (_%tl206790206833%_ + (##car _%e207773207811%_))) + (_%tl207775207818%_ (let () (declare (not safe)) - (##cdr _%e206788206826%_)))) + (##cdr _%e207773207811%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206790206833%_)) - (let ((_%e206791206836%_ + (gx#stx-pair? _%tl207775207818%_)) + (let ((_%e207776207821%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206790206833%_)))) - (let ((_%hd206792206840%_ + (gx#syntax-e _%tl207775207818%_)))) + (let ((_%hd207777207825%_ (let () (declare (not safe)) - (##car _%e206791206836%_))) - (_%tl206793206843%_ + (##car _%e207776207821%_))) + (_%tl207778207828%_ (let () (declare (not safe)) - (##cdr _%e206791206836%_)))) + (##cdr _%e207776207821%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206793206843%_)) - ((lambda (_%L206846%_ - _%L206848%_ - _%L206849%_ - _%L206850%_) + (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 _%L206850%_ '())) + (cons _%L207835%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206849%_ '())) + (cons _%L207834%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206848%_ '())) + (cons _%L207833%_ '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206846%_ '())) + (cons _%L207831%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3898,779 +3898,779 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd206792206840%_ - _%hd206789206830%_ - _%hd206786206820%_ - _%hd206783206810%_) - (_%g206776206799%_ - _%g206777206803%_)))) - (_%g206776206799%_ _%g206777206803%_)))) - (_%g206776206799%_ _%g206777206803%_)))) - (_%g206776206799%_ _%g206777206803%_)))) + _%hd207777207825%_ + _%hd207774207815%_ + _%hd207771207805%_ + _%hd207768207795%_) + (_%g207761207784%_ + _%g207762207788%_)))) + (_%g207761207784%_ _%g207762207788%_)))) + (_%g207761207784%_ _%g207762207788%_)))) + (_%g207761207784%_ _%g207762207788%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206776206799%_ - _%g206777206803%_))))) - (_%g206775206873%_ - (list _%args206759%_ - _%return206761%_ - _%effect206762%_ - _%unchecked206763%_))) + (_%g207761207784%_ + _%g207762207788%_))))) + (_%g207760207858%_ + (list _%args207744%_ + _%return207746%_ + _%effect207747%_ + _%unchecked207748%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx206195%_ _%proc206197%_) - (let* ((_%__stx209042209043%_ _%sig206198%_) - (_%g206209206312%_ + (|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" - _%__stx209042209043%_))))) - (let ((_%__kont209045209046%_ - (lambda (_%L206740%_ _%L206742%_) - (_%make-signature206202%_ - _%L206742%_ - _%L206740%_ + _%__stx210027210028%_))))) + (let ((_%__kont210030210031%_ + (lambda (_%L207725%_ _%L207727%_) + (_%make-signature207187%_ + _%L207727%_ + _%L207725%_ '#f '#f))) - (_%__kont209047209048%_ - (lambda (_%L206691%_ _%L206693%_ _%L206694%_) - (_%make-signature206202%_ - _%L206694%_ - _%L206693%_ - _%L206691%_ + (_%__kont210032210033%_ + (lambda (_%L207676%_ _%L207678%_ _%L207679%_) + (_%make-signature207187%_ + _%L207679%_ + _%L207678%_ + _%L207676%_ '#f))) - (_%__kont209049209050%_ - (lambda (_%L206615%_ _%L206617%_ _%L206618%_) - (_%make-signature206202%_ - _%L206618%_ - _%L206617%_ - _%L206615%_ - (let ((__tmp209403 + (_%__kont210034210035%_ + (lambda (_%L207600%_ _%L207602%_ _%L207603%_) + (_%make-signature207187%_ + _%L207603%_ + _%L207602%_ + _%L207600%_ + (let ((__tmp210388 (let () (declare (not safe)) - (gx#stx-e _%proc206197%_)))) + (gx#stx-e _%proc207182%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209403))))) - (_%__kont209051209052%_ - (lambda (_%L206521%_ _%L206523%_ _%L206524%_ _%L206525%_) - (_%make-signature206202%_ - _%L206525%_ - _%L206524%_ + (make-symbol__1 '"##" __tmp210388))))) + (_%__kont210036210037%_ + (lambda (_%L207506%_ _%L207508%_ _%L207509%_ _%L207510%_) + (_%make-signature207187%_ + _%L207510%_ + _%L207509%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206521%_))))) - (_%__kont209053209054%_ - (lambda (_%L206428%_ _%L206430%_) - (_%make-signature206202%_ - _%L206430%_ - _%L206428%_ + (let () (declare (not safe)) (gx#stx-e _%L207506%_))))) + (_%__kont210038210039%_ + (lambda (_%L207413%_ _%L207415%_) + (_%make-signature207187%_ + _%L207415%_ + _%L207413%_ '#f - (let ((__tmp209404 + (let ((__tmp210389 (let () (declare (not safe)) - (gx#stx-e _%proc206197%_)))) + (gx#stx-e _%proc207182%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209404))))) - (_%__kont209055209056%_ - (lambda (_%L206363%_ _%L206365%_ _%L206366%_) - (_%make-signature206202%_ - _%L206366%_ - _%L206365%_ + (make-symbol__1 '"##" __tmp210389))))) + (_%__kont210040210041%_ + (lambda (_%L207348%_ _%L207350%_ _%L207351%_) + (_%make-signature207187%_ + _%L207351%_ + _%L207350%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206363%_)))))) + (let () (declare (not safe)) (gx#stx-e _%L207348%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx209042209043%_)) - (let ((_%e206213206720%_ + (gx#stx-pair? _%__stx210027210028%_)) + (let ((_%e207198207705%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx209042209043%_)))) - (let ((_%tl206215206727%_ + (gx#syntax-e _%__stx210027210028%_)))) + (let ((_%tl207200207712%_ (let () (declare (not safe)) - (##cdr _%e206213206720%_))) - (_%hd206214206724%_ + (##cdr _%e207198207705%_))) + (_%hd207199207709%_ (let () (declare (not safe)) - (##car _%e206213206720%_)))) + (##car _%e207198207705%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206215206727%_)) - (let ((_%e206216206730%_ + (gx#stx-pair? _%tl207200207712%_)) + (let ((_%e207201207715%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206215206727%_)))) - (let ((_%tl206218206737%_ + (gx#syntax-e _%tl207200207712%_)))) + (let ((_%tl207203207722%_ (let () (declare (not safe)) - (##cdr _%e206216206730%_))) - (_%hd206217206734%_ + (##cdr _%e207201207715%_))) + (_%hd207202207719%_ (let () (declare (not safe)) - (##car _%e206216206730%_)))) + (##car _%e207201207715%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206218206737%_)) - (_%__kont209045209046%_ - _%hd206217206734%_ - _%hd206214206724%_) + (gx#stx-null? _%tl207203207722%_)) + (_%__kont210030210031%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206218206737%_)) - (let ((_%e206228206667%_ + (gx#stx-pair? _%tl207203207722%_)) + (let ((_%e207213207652%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206218206737%_)))) - (let ((_%tl206230206674%_ + _%tl207203207722%_)))) + (let ((_%tl207215207659%_ (let () (declare (not safe)) - (##cdr _%e206228206667%_))) - (_%hd206229206671%_ + (##cdr _%e207213207652%_))) + (_%hd207214207656%_ (let () (declare (not safe)) - (##car _%e206228206667%_)))) + (##car _%e207213207652%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd206229206671%_)) - (let ((_%e206231206677%_ + _%hd207214207656%_)) + (let ((_%e207216207662%_ (let () (declare (not safe)) (gx#stx-e - _%hd206229206671%_)))) - (if (equal? _%e206231206677%_ + _%hd207214207656%_)))) + (if (equal? _%e207216207662%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206230206674%_)) - (let ((_%e206232206681%_ + _%tl207215207659%_)) + (let ((_%e207217207666%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206230206674%_)))) - (let ((_%tl206234206688%_ + (gx#syntax-e _%tl207215207659%_)))) + (let ((_%tl207219207673%_ (let () (declare (not safe)) - (##cdr _%e206232206681%_))) - (_%hd206233206685%_ + (##cdr _%e207217207666%_))) + (_%hd207218207670%_ (let () (declare (not safe)) - (##car _%e206232206681%_)))) + (##car _%e207217207666%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206234206688%_)) - (_%__kont209047209048%_ - _%hd206233206685%_ - _%hd206217206734%_ - _%hd206214206724%_) + (gx#stx-null? _%tl207219207673%_)) + (_%__kont210032210033%_ + _%hd207218207670%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206234206688%_)) - (let ((_%e206251206601%_ + (gx#stx-pair? _%tl207219207673%_)) + (let ((_%e207236207586%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206234206688%_)))) - (let ((_%tl206253206608%_ + (gx#syntax-e _%tl207219207673%_)))) + (let ((_%tl207238207593%_ (let () (declare (not safe)) - (##cdr _%e206251206601%_))) - (_%hd206252206605%_ + (##cdr _%e207236207586%_))) + (_%hd207237207590%_ (let () (declare (not safe)) - (##car _%e206251206601%_)))) + (##car _%e207236207586%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206252206605%_)) - (let ((_%e206254206611%_ + (gx#stx-datum? _%hd207237207590%_)) + (let ((_%e207239207596%_ (let () (declare (not safe)) - (gx#stx-e _%hd206252206605%_)))) - (if (equal? _%e206254206611%_ + (gx#stx-e _%hd207237207590%_)))) + (if (equal? _%e207239207596%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206253206608%_)) - (_%__kont209049209050%_ - _%hd206233206685%_ - _%hd206217206734%_ - _%hd206214206724%_) + _%tl207238207593%_)) + (_%__kont210034210035%_ + _%hd207218207670%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206253206608%_)) - (let ((_%e206276206511%_ + _%tl207238207593%_)) + (let ((_%e207261207496%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206253206608%_)))) - (let ((_%tl206278206518%_ + _%tl207238207593%_)))) + (let ((_%tl207263207503%_ (let () (declare (not safe)) - (##cdr _%e206276206511%_))) - (_%hd206277206515%_ + (##cdr _%e207261207496%_))) + (_%hd207262207500%_ (let () (declare (not safe)) - (##car _%e206276206511%_)))) + (##car _%e207261207496%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206278206518%_)) - (_%__kont209051209052%_ - _%hd206277206515%_ - _%hd206233206685%_ - _%hd206217206734%_ - _%hd206214206724%_) + _%tl207263207503%_)) + (_%__kont210036210037%_ + _%hd207262207500%_ + _%hd207218207670%_ + _%hd207202207719%_ + _%hd207199207709%_) (let () (declare (not safe)) - (_%g206209206312%_))))) + (_%g207194207297%_))))) (let () (declare (not safe)) - (_%g206209206312%_)))) + (_%g207194207297%_)))) (let () (declare (not safe)) - (_%g206209206312%_)))) + (_%g207194207297%_)))) (let () (declare (not safe)) - (_%g206209206312%_))))) + (_%g207194207297%_))))) (let () (declare (not safe)) - (_%g206209206312%_)))))) - (let () (declare (not safe)) (_%g206209206312%_))) + (_%g207194207297%_)))))) + (let () (declare (not safe)) (_%g207194207297%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e206231206677%_ + (if (equal? _%e207216207662%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206230206674%_)) - (_%__kont209053209054%_ - _%hd206217206734%_ - _%hd206214206724%_) + _%tl207215207659%_)) + (_%__kont210038210039%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl206230206674%_)) - (let ((_%e206304206353%_ + (gx#stx-pair? _%tl207215207659%_)) + (let ((_%e207289207338%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206230206674%_)))) - (let ((_%tl206306206360%_ + (gx#syntax-e _%tl207215207659%_)))) + (let ((_%tl207291207345%_ (let () (declare (not safe)) - (##cdr _%e206304206353%_))) - (_%hd206305206357%_ + (##cdr _%e207289207338%_))) + (_%hd207290207342%_ (let () (declare (not safe)) - (##car _%e206304206353%_)))) + (##car _%e207289207338%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206306206360%_)) - (_%__kont209055209056%_ - _%hd206305206357%_ - _%hd206217206734%_ - _%hd206214206724%_) + (gx#stx-null? _%tl207291207345%_)) + (_%__kont210040210041%_ + _%hd207290207342%_ + _%hd207202207719%_ + _%hd207199207709%_) (let () (declare (not safe)) - (_%g206209206312%_))))) - (let () (declare (not safe)) (_%g206209206312%_)))) - (let () (declare (not safe)) (_%g206209206312%_))))) + (_%g207194207297%_))))) + (let () (declare (not safe)) (_%g207194207297%_)))) + (let () (declare (not safe)) (_%g207194207297%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g206209206312%_))))) + (_%g207194207297%_))))) (let () (declare (not safe)) - (_%g206209206312%_)))))) - (let () (declare (not safe)) (_%g206209206312%_))))) - (let () (declare (not safe)) (_%g206209206312%_)))))))) + (_%g207194207297%_)))))) + (let () (declare (not safe)) (_%g207194207297%_))))) + (let () (declare (not safe)) (_%g207194207297%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig205806%_) - (let* ((_%g205809205889%_ - (lambda (_%g205810205885%_) + (lambda (_%sig206791%_) + (let* ((_%g206794206874%_ + (lambda (_%g206795206870%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205810205885%_)))) - (_%g205808206191%_ - (lambda (_%g205810205893%_) + _%g206795206870%_)))) + (_%g206793207176%_ + (lambda (_%g206795206878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205810205893%_)) - (let ((_%e205816205896%_ + (gx#stx-pair? _%g206795206878%_)) + (let ((_%e206801206881%_ (let () (declare (not safe)) - (gx#syntax-e _%g205810205893%_)))) - (let ((_%hd205817205900%_ + (gx#syntax-e _%g206795206878%_)))) + (let ((_%hd206802206885%_ (let () (declare (not safe)) - (##car _%e205816205896%_))) - (_%tl205818205903%_ + (##car _%e206801206881%_))) + (_%tl206803206888%_ (let () (declare (not safe)) - (##cdr _%e205816205896%_)))) + (##cdr _%e206801206881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205818205903%_)) - (let ((_%e205819205906%_ + (gx#stx-pair? _%tl206803206888%_)) + (let ((_%e206804206891%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205818205903%_)))) - (let ((_%hd205820205910%_ + (gx#syntax-e _%tl206803206888%_)))) + (let ((_%hd206805206895%_ (let () (declare (not safe)) - (##car _%e205819205906%_))) - (_%tl205821205913%_ + (##car _%e206804206891%_))) + (_%tl206806206898%_ (let () (declare (not safe)) - (##cdr _%e205819205906%_)))) + (##cdr _%e206804206891%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205820205910%_)) - (let ((_%e205822205916%_ + (gx#stx-datum? _%hd206805206895%_)) + (let ((_%e206807206901%_ (let () (declare (not safe)) - (gx#stx-e _%hd205820205910%_)))) - (if (equal? _%e205822205916%_ + (gx#stx-e _%hd206805206895%_)))) + (if (equal? _%e206807206901%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205821205913%_)) - (let ((_%e205823205920%_ + _%tl206806206898%_)) + (let ((_%e206808206905%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205821205913%_)))) - (let ((_%hd205824205924%_ + _%tl206806206898%_)))) + (let ((_%hd206809206909%_ (let () (declare (not safe)) - (##car _%e205823205920%_))) - (_%tl205825205927%_ + (##car _%e206808206905%_))) + (_%tl206810206912%_ (let () (declare (not safe)) - (##cdr _%e205823205920%_)))) + (##cdr _%e206808206905%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205824205924%_)) - (let ((_%e205826205930%_ + _%hd206809206909%_)) + (let ((_%e206811206915%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd205824205924%_)))) - (let ((_%hd205827205934%_ + (gx#syntax-e _%hd206809206909%_)))) + (let ((_%hd206812206919%_ (let () (declare (not safe)) - (##car _%e205826205930%_))) - (_%tl205828205937%_ + (##car _%e206811206915%_))) + (_%tl206813206922%_ (let () (declare (not safe)) - (##cdr _%e205826205930%_)))) + (##cdr _%e206811206915%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205827205934%_)) - (if (let ((__tmp209405 |gxc[1]#_g209406_|)) + (gx#identifier? _%hd206812206919%_)) + (if (let ((__tmp210390 |gxc[1]#_g210391_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209405 - _%hd205827205934%_)) + __tmp210390 + _%hd206812206919%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205828205937%_)) - (let ((_%e205829205940%_ + (gx#stx-pair? _%tl206813206922%_)) + (let ((_%e206814206925%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205828205937%_)))) - (let ((_%hd205830205944%_ + (gx#syntax-e _%tl206813206922%_)))) + (let ((_%hd206815206929%_ (let () (declare (not safe)) - (##car _%e205829205940%_))) - (_%tl205831205947%_ + (##car _%e206814206925%_))) + (_%tl206816206932%_ (let () (declare (not safe)) - (##cdr _%e205829205940%_)))) + (##cdr _%e206814206925%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205831205947%_)) + (gx#stx-null? _%tl206816206932%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205825205927%_)) - (let ((_%e205832205950%_ + _%tl206810206912%_)) + (let ((_%e206817206935%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205825205927%_)))) - (let ((_%hd205833205954%_ + _%tl206810206912%_)))) + (let ((_%hd206818206939%_ (let () (declare (not safe)) - (##car _%e205832205950%_))) - (_%tl205834205957%_ + (##car _%e206817206935%_))) + (_%tl206819206942%_ (let () (declare (not safe)) - (##cdr _%e205832205950%_)))) + (##cdr _%e206817206935%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205833205954%_)) - (let ((_%e205835205960%_ + _%hd206818206939%_)) + (let ((_%e206820206945%_ (let () (declare (not safe)) (gx#stx-e - _%hd205833205954%_)))) - (if (equal? _%e205835205960%_ + _%hd206818206939%_)))) + (if (equal? _%e206820206945%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205834205957%_)) - (let ((_%e205836205964%_ + (gx#stx-pair? _%tl206819206942%_)) + (let ((_%e206821206949%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205834205957%_)))) - (let ((_%hd205837205968%_ + (gx#syntax-e _%tl206819206942%_)))) + (let ((_%hd206822206953%_ (let () (declare (not safe)) - (##car _%e205836205964%_))) - (_%tl205838205971%_ + (##car _%e206821206949%_))) + (_%tl206823206956%_ (let () (declare (not safe)) - (##cdr _%e205836205964%_)))) + (##cdr _%e206821206949%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205837205968%_)) - (let ((_%e205839205974%_ + (gx#stx-pair? _%hd206822206953%_)) + (let ((_%e206824206959%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205837205968%_)))) - (let ((_%hd205840205978%_ + (gx#syntax-e _%hd206822206953%_)))) + (let ((_%hd206825206963%_ (let () (declare (not safe)) - (##car _%e205839205974%_))) - (_%tl205841205981%_ + (##car _%e206824206959%_))) + (_%tl206826206966%_ (let () (declare (not safe)) - (##cdr _%e205839205974%_)))) + (##cdr _%e206824206959%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205840205978%_)) - (if (let ((__tmp209407 - |gxc[1]#_g209408_|)) + (gx#identifier? _%hd206825206963%_)) + (if (let ((__tmp210392 + |gxc[1]#_g210393_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209407 - _%hd205840205978%_)) + __tmp210392 + _%hd206825206963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205841205981%_)) - (let ((_%e205842205984%_ + _%tl206826206966%_)) + (let ((_%e206827206969%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205841205981%_)))) - (let ((_%hd205843205988%_ + _%tl206826206966%_)))) + (let ((_%hd206828206973%_ (let () (declare (not safe)) - (##car _%e205842205984%_))) - (_%tl205844205991%_ + (##car _%e206827206969%_))) + (_%tl206829206976%_ (let () (declare (not safe)) - (##cdr _%e205842205984%_)))) + (##cdr _%e206827206969%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205844205991%_)) + _%tl206829206976%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205838205971%_)) - (let ((_%e205845205994%_ + _%tl206823206956%_)) + (let ((_%e206830206979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205838205971%_)))) - (let ((_%hd205846205998%_ + (gx#syntax-e _%tl206823206956%_)))) + (let ((_%hd206831206983%_ (let () (declare (not safe)) - (##car _%e205845205994%_))) - (_%tl205847206001%_ + (##car _%e206830206979%_))) + (_%tl206832206986%_ (let () (declare (not safe)) - (##cdr _%e205845205994%_)))) + (##cdr _%e206830206979%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205846205998%_)) - (let ((_%e205848206004%_ + (gx#stx-datum? _%hd206831206983%_)) + (let ((_%e206833206989%_ (let () (declare (not safe)) - (gx#stx-e _%hd205846205998%_)))) - (if (equal? _%e205848206004%_ 'effect:) + (gx#stx-e _%hd206831206983%_)))) + (if (equal? _%e206833206989%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205847206001%_)) - (let ((_%e205849206008%_ + (gx#stx-pair? _%tl206832206986%_)) + (let ((_%e206834206993%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205847206001%_)))) - (let ((_%hd205850206012%_ + _%tl206832206986%_)))) + (let ((_%hd206835206997%_ (let () (declare (not safe)) - (##car _%e205849206008%_))) - (_%tl205851206015%_ + (##car _%e206834206993%_))) + (_%tl206836207000%_ (let () (declare (not safe)) - (##cdr _%e205849206008%_)))) + (##cdr _%e206834206993%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205850206012%_)) - (let ((_%e205852206018%_ + _%hd206835206997%_)) + (let ((_%e206837207003%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205850206012%_)))) - (let ((_%hd205853206022%_ + _%hd206835206997%_)))) + (let ((_%hd206838207007%_ (let () (declare (not safe)) - (##car _%e205852206018%_))) - (_%tl205854206025%_ + (##car _%e206837207003%_))) + (_%tl206839207010%_ (let () (declare (not safe)) - (##cdr _%e205852206018%_)))) + (##cdr _%e206837207003%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205853206022%_)) - (if (let ((__tmp209409 - |gxc[1]#_g209410_|)) + _%hd206838207007%_)) + (if (let ((__tmp210394 + |gxc[1]#_g210395_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209409 - _%hd205853206022%_)) + __tmp210394 + _%hd206838207007%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205854206025%_)) - (let ((_%e205855206028%_ + _%tl206839207010%_)) + (let ((_%e206840207013%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205854206025%_)))) - (let ((_%hd205856206032%_ + (gx#syntax-e _%tl206839207010%_)))) + (let ((_%hd206841207017%_ (let () (declare (not safe)) - (##car _%e205855206028%_))) - (_%tl205857206035%_ + (##car _%e206840207013%_))) + (_%tl206842207020%_ (let () (declare (not safe)) - (##cdr _%e205855206028%_)))) + (##cdr _%e206840207013%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205857206035%_)) + (gx#stx-null? _%tl206842207020%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205851206015%_)) - (let ((_%e205858206038%_ + (gx#stx-pair? _%tl206836207000%_)) + (let ((_%e206843207023%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205851206015%_)))) - (let ((_%hd205859206042%_ + (gx#syntax-e _%tl206836207000%_)))) + (let ((_%hd206844207027%_ (let () (declare (not safe)) - (##car _%e205858206038%_))) - (_%tl205860206045%_ + (##car _%e206843207023%_))) + (_%tl206845207030%_ (let () (declare (not safe)) - (##cdr _%e205858206038%_)))) + (##cdr _%e206843207023%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205859206042%_)) - (let ((_%e205861206048%_ + (gx#stx-datum? _%hd206844207027%_)) + (let ((_%e206846207033%_ (let () (declare (not safe)) (gx#stx-e - _%hd205859206042%_)))) - (if (equal? _%e205861206048%_ + _%hd206844207027%_)))) + (if (equal? _%e206846207033%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205860206045%_)) - (let ((_%e205862206052%_ + _%tl206845207030%_)) + (let ((_%e206847207037%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205860206045%_)))) - (let ((_%hd205863206056%_ + _%tl206845207030%_)))) + (let ((_%hd206848207041%_ (let () (declare (not safe)) - (##car _%e205862206052%_))) - (_%tl205864206059%_ + (##car _%e206847207037%_))) + (_%tl206849207044%_ (let () (declare (not safe)) - (##cdr _%e205862206052%_)))) + (##cdr _%e206847207037%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205863206056%_)) - (let ((_%e205865206062%_ + _%hd206848207041%_)) + (let ((_%e206850207047%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd205863206056%_)))) - (let ((_%hd205866206066%_ + (gx#syntax-e _%hd206848207041%_)))) + (let ((_%hd206851207051%_ (let () (declare (not safe)) - (##car _%e205865206062%_))) - (_%tl205867206069%_ + (##car _%e206850207047%_))) + (_%tl206852207054%_ (let () (declare (not safe)) - (##cdr _%e205865206062%_)))) + (##cdr _%e206850207047%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205866206066%_)) - (if (let ((__tmp209411 |gxc[1]#_g209412_|)) + (gx#identifier? _%hd206851207051%_)) + (if (let ((__tmp210396 |gxc[1]#_g210397_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209411 - _%hd205866206066%_)) + __tmp210396 + _%hd206851207051%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205867206069%_)) - (let ((_%e205868206072%_ + (gx#stx-pair? _%tl206852207054%_)) + (let ((_%e206853207057%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205867206069%_)))) - (let ((_%hd205869206076%_ + (gx#syntax-e _%tl206852207054%_)))) + (let ((_%hd206854207061%_ (let () (declare (not safe)) - (##car _%e205868206072%_))) - (_%tl205870206079%_ + (##car _%e206853207057%_))) + (_%tl206855207064%_ (let () (declare (not safe)) - (##cdr _%e205868206072%_)))) + (##cdr _%e206853207057%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205870206079%_)) + (gx#stx-null? _%tl206855207064%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205864206059%_)) - (let ((_%e205871206082%_ + _%tl206849207044%_)) + (let ((_%e206856207067%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205864206059%_)))) - (let ((_%hd205872206086%_ + _%tl206849207044%_)))) + (let ((_%hd206857207071%_ (let () (declare (not safe)) - (##car _%e205871206082%_))) - (_%tl205873206089%_ + (##car _%e206856207067%_))) + (_%tl206858207074%_ (let () (declare (not safe)) - (##cdr _%e205871206082%_)))) + (##cdr _%e206856207067%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205872206086%_)) - (let ((_%e205874206092%_ + _%hd206857207071%_)) + (let ((_%e206859207077%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd205872206086%_)))) - (if (equal? _%e205874206092%_ 'origin:) + (gx#stx-e _%hd206857207071%_)))) + (if (equal? _%e206859207077%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205873206089%_)) - (let ((_%e205875206096%_ + (gx#stx-pair? _%tl206858207074%_)) + (let ((_%e206860207081%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205873206089%_)))) - (let ((_%hd205876206100%_ + (gx#syntax-e _%tl206858207074%_)))) + (let ((_%hd206861207085%_ (let () (declare (not safe)) - (##car _%e205875206096%_))) - (_%tl205877206103%_ + (##car _%e206860207081%_))) + (_%tl206862207088%_ (let () (declare (not safe)) - (##cdr _%e205875206096%_)))) + (##cdr _%e206860207081%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205876206100%_)) - (let ((_%e205878206106%_ + (gx#stx-pair? _%hd206861207085%_)) + (let ((_%e206863207091%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205876206100%_)))) - (let ((_%hd205879206110%_ + (gx#syntax-e _%hd206861207085%_)))) + (let ((_%hd206864207095%_ (let () (declare (not safe)) - (##car _%e205878206106%_))) - (_%tl205880206113%_ + (##car _%e206863207091%_))) + (_%tl206865207098%_ (let () (declare (not safe)) - (##cdr _%e205878206106%_)))) + (##cdr _%e206863207091%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205879206110%_)) - (if (let ((__tmp209413 - |gxc[1]#_g209414_|)) + (gx#identifier? _%hd206864207095%_)) + (if (let ((__tmp210398 + |gxc[1]#_g210399_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209413 - _%hd205879206110%_)) + __tmp210398 + _%hd206864207095%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205880206113%_)) - (let ((_%e205881206116%_ + _%tl206865207098%_)) + (let ((_%e206866207101%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205880206113%_)))) - (let ((_%hd205882206120%_ + _%tl206865207098%_)))) + (let ((_%hd206867207105%_ (let () (declare (not safe)) - (##car _%e205881206116%_))) - (_%tl205883206123%_ + (##car _%e206866207101%_))) + (_%tl206868207108%_ (let () (declare (not safe)) - (##cdr _%e205881206116%_)))) + (##cdr _%e206866207101%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205883206123%_)) + _%tl206868207108%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205877206103%_)) - ((lambda (_%L206126%_ + _%tl206862207088%_)) + ((lambda (_%L207111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L206128%_ - _%L206129%_ - _%L206130%_ - _%L206131%_) - (if (let () (declare (not safe)) (gx#stx-e _%L206128%_)) - (cons _%L206128%_ + _%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 _%L206130%_ '())) + (cons _%L207115%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206126%_ '())) + (cons _%L207111%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd205882206120%_ - _%hd205869206076%_ - _%hd205856206032%_ - _%hd205843205988%_ - _%hd205830205944%_) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)))) + _%hd206867207105%_ + _%hd206854207061%_ + _%hd206841207017%_ + _%hd206828206973%_ + _%hd206815206929%_) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ - _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_))) - (_%g205809205889%_ _%g205810205893%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_))) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ - _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ - _%g205810205893%_))) - (_%g205809205889%_ - _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205809205889%_ - _%g205810205893%_)))) - (_%g205809205889%_ - _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_))) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205809205889%_ - _%g205810205893%_)))) - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ - _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205809205889%_ - _%g205810205893%_)) - (_%g205809205889%_ - _%g205810205893%_))) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_)))) - (_%g205809205889%_ _%g205810205893%_))))) - (_%g205808206191%_ _%sig205806%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_))))) + (_%g206793207176%_ _%sig206791%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx206963%_) - (let* ((_%g206966206984%_ - (lambda (_%g206967206980%_) + (lambda (_%stx207948%_) + (let* ((_%g207951207969%_ + (lambda (_%g207952207965%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206967206980%_)))) - (_%g206965207039%_ - (lambda (_%g206967206988%_) + _%g207952207965%_)))) + (_%g207950208024%_ + (lambda (_%g207952207973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206967206988%_)) - (let ((_%e206970206991%_ + (gx#stx-pair? _%g207952207973%_)) + (let ((_%e207955207976%_ (let () (declare (not safe)) - (gx#syntax-e _%g206967206988%_)))) - (let ((_%hd206971206995%_ + (gx#syntax-e _%g207952207973%_)))) + (let ((_%hd207956207980%_ (let () (declare (not safe)) - (##car _%e206970206991%_))) - (_%tl206972206998%_ + (##car _%e207955207976%_))) + (_%tl207957207983%_ (let () (declare (not safe)) - (##cdr _%e206970206991%_)))) + (##cdr _%e207955207976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206972206998%_)) - (let ((_%e206973207001%_ + (gx#stx-pair? _%tl207957207983%_)) + (let ((_%e207958207986%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206972206998%_)))) - (let ((_%hd206974207005%_ + (gx#syntax-e _%tl207957207983%_)))) + (let ((_%hd207959207990%_ (let () (declare (not safe)) - (##car _%e206973207001%_))) - (_%tl206975207008%_ + (##car _%e207958207986%_))) + (_%tl207960207993%_ (let () (declare (not safe)) - (##cdr _%e206973207001%_)))) + (##cdr _%e207958207986%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206975207008%_)) - (let ((_%e206976207011%_ + (gx#stx-pair? _%tl207960207993%_)) + (let ((_%e207961207996%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206975207008%_)))) - (let ((_%hd206977207015%_ + _%tl207960207993%_)))) + (let ((_%hd207962208000%_ (let () (declare (not safe)) - (##car _%e206976207011%_))) - (_%tl206978207018%_ + (##car _%e207961207996%_))) + (_%tl207963208003%_ (let () (declare (not safe)) - (##cdr _%e206976207011%_)))) + (##cdr _%e207961207996%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206978207018%_)) - ((lambda (_%L207021%_ - _%L207023%_) + _%tl207963208003%_)) + ((lambda (_%L208006%_ + _%L208008%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L207023%_)) + _%L208008%_)) (let () (declare (not safe)) (gx#identifier? - _%L207021%_))) + _%L208006%_))) (begin (|gxc[1]#verify-procedure!| - _%stx206963%_ - _%L207023%_) + _%stx207948%_ + _%L208008%_) (|gxc[1]#verify-class!| - _%stx206963%_ - _%L207021%_) + _%stx207948%_ + _%L208006%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207023%_ + (cons _%L208008%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4865,268 +4865,268 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207021%_ '())) + (cons _%L208006%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206966206984%_ - _%g206967206988%_))) - _%hd206977207015%_ - _%hd206974207005%_) - (_%g206966206984%_ - _%g206967206988%_)))) - (_%g206966206984%_ _%g206967206988%_)))) - (_%g206966206984%_ _%g206967206988%_)))) - (_%g206966206984%_ _%g206967206988%_))))) - (_%g206965207039%_ _%stx206963%_)))) + (_%g207951207969%_ + _%g207952207973%_))) + _%hd207962208000%_ + _%hd207959207990%_) + (_%g207951207969%_ + _%g207952207973%_)))) + (_%g207951207969%_ _%g207952207973%_)))) + (_%g207951207969%_ _%g207952207973%_)))) + (_%g207951207969%_ _%g207952207973%_))))) + (_%g207950208024%_ _%stx207948%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx207043%_) - (let* ((_%g207046207070%_ - (lambda (_%g207047207066%_) + (lambda (_%stx208028%_) + (let* ((_%g208031208055%_ + (lambda (_%g208032208051%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207047207066%_)))) - (_%g207045207353%_ - (lambda (_%g207047207074%_) + _%g208032208051%_)))) + (_%g208030208338%_ + (lambda (_%g208032208059%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207047207074%_)) - (let ((_%e207050207077%_ + (gx#stx-pair? _%g208032208059%_)) + (let ((_%e208035208062%_ (let () (declare (not safe)) - (gx#syntax-e _%g207047207074%_)))) - (let ((_%hd207051207081%_ + (gx#syntax-e _%g208032208059%_)))) + (let ((_%hd208036208066%_ (let () (declare (not safe)) - (##car _%e207050207077%_))) - (_%tl207052207084%_ + (##car _%e208035208062%_))) + (_%tl208037208069%_ (let () (declare (not safe)) - (##cdr _%e207050207077%_)))) + (##cdr _%e208035208062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207052207084%_)) - (let ((_%e207053207087%_ + (gx#stx-pair? _%tl208037208069%_)) + (let ((_%e208038208072%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207052207084%_)))) - (let ((_%hd207054207091%_ + (gx#syntax-e _%tl208037208069%_)))) + (let ((_%hd208039208076%_ (let () (declare (not safe)) - (##car _%e207053207087%_))) - (_%tl207055207094%_ + (##car _%e208038208072%_))) + (_%tl208040208079%_ (let () (declare (not safe)) - (##cdr _%e207053207087%_)))) + (##cdr _%e208038208072%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl207055207094%_)) - (let ((_g209415_ + (gx#stx-pair/null? _%tl208040208079%_)) + (let ((_g210400_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl207055207094%_ + _%tl208040208079%_ '0)))) (begin - (let ((_g209416_ + (let ((_g210401_ (let () (declare (not safe)) - (if (##values? _g209415_) + (if (##values? _g210400_) (##values-length - _g209415_) + _g210400_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209416_ 2))) + (##fx= _g210401_ 2))) (error "Context expects 2 values" - _g209416_))) - (let ((_%target207056207097%_ + _g210401_))) + (let ((_%target208041208082%_ (let () (declare (not safe)) - (##values-ref _g209415_ 0))) - (_%tl207058207100%_ + (##values-ref _g210400_ 0))) + (_%tl208043208085%_ (let () (declare (not safe)) (##values-ref - _g209415_ + _g210400_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207058207100%_)) - (letrec ((_%loop207059207103%_ - (lambda (_%hd207057207107%_ + _%tl208043208085%_)) + (letrec ((_%loop208044208088%_ + (lambda (_%hd208042208092%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature207063207110%_) + _%signature208048208095%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207057207107%_)) - (let ((_%e207060207113%_ + (gx#stx-pair? _%hd208042208092%_)) + (let ((_%e208045208098%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207057207107%_)))) - (let ((_%lp-hd207061207117%_ + (gx#syntax-e _%hd208042208092%_)))) + (let ((_%lp-hd208046208102%_ (let () (declare (not safe)) - (##car _%e207060207113%_))) - (_%lp-tl207062207120%_ + (##car _%e208045208098%_))) + (_%lp-tl208047208105%_ (let () (declare (not safe)) - (##cdr _%e207060207113%_)))) - (_%loop207059207103%_ - _%lp-tl207062207120%_ - (cons _%lp-hd207061207117%_ - _%signature207063207110%_)))) - (let ((_%signature207064207123%_ - (reverse _%signature207063207110%_))) - ((lambda (_%L207127%_ _%L207129%_) + (##cdr _%e208045208098%_)))) + (_%loop208044208088%_ + _%lp-tl208047208105%_ + (cons _%lp-hd208046208102%_ + _%signature208048208095%_)))) + (let ((_%signature208049208108%_ + (reverse _%signature208048208095%_))) + ((lambda (_%L208112%_ _%L208114%_) (if (let () (declare (not safe)) - (gx#identifier? _%L207129%_)) - (let* ((_%g207147207162%_ - (lambda (_%g207148207158%_) + (gx#identifier? _%L208114%_)) + (let* ((_%g208132208147%_ + (lambda (_%g208133208143%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207148207158%_)))) - (_%g207146207341%_ - (lambda (_%g207148207166%_) + _%g208133208143%_)))) + (_%g208131208326%_ + (lambda (_%g208133208151%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207148207166%_)) - (let ((_%e207151207169%_ + _%g208133208151%_)) + (let ((_%e208136208154%_ (let () (declare (not safe)) (gx#syntax-e - _%g207148207166%_)))) - (let ((_%hd207152207173%_ + _%g208133208151%_)))) + (let ((_%hd208137208158%_ (let () (declare (not safe)) - (##car _%e207151207169%_))) - (_%tl207153207176%_ + (##car _%e208136208154%_))) + (_%tl208138208161%_ (let () (declare (not safe)) - (##cdr _%e207151207169%_)))) + (##cdr _%e208136208154%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207153207176%_)) - (let ((_%e207154207179%_ + _%tl208138208161%_)) + (let ((_%e208139208164%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207153207176%_)))) - (let ((_%hd207155207183%_ + (gx#syntax-e _%tl208138208161%_)))) + (let ((_%hd208140208168%_ (let () (declare (not safe)) - (##car _%e207154207179%_))) - (_%tl207156207186%_ + (##car _%e208139208164%_))) + (_%tl208141208171%_ (let () (declare (not safe)) - (##cdr _%e207154207179%_)))) + (##cdr _%e208139208164%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207156207186%_)) - ((lambda (_%L207189%_ _%L207191%_) - (let* ((_%g207207207215%_ - (lambda (_%g207208207211%_) + (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" - _%g207208207211%_)))) - (_%g207206207337%_ - (lambda (_%g207208207219%_) - ((lambda (_%L207222%_) - (let* ((_%unchecked207235%_ + _%g208193208196%_)))) + (_%g208191208322%_ + (lambda (_%g208193208204%_) + ((lambda (_%L208207%_) + (let* ((_%unchecked208220%_ (|gxc[1]#signature->unchecked-signature| - _%L207189%_)) - (_%g207238207246%_ - (lambda (_%g207239207242%_) + _%L208174%_)) + (_%g208223208231%_ + (lambda (_%g208224208227%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207239207242%_)))) - (_%g207237207269%_ - (lambda (_%g207239207250%_) - ((lambda (_%L207253%_) + _%g208224208227%_)))) + (_%g208222208254%_ + (lambda (_%g208224208235%_) + ((lambda (_%L208238%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207222%_ - (cons _%L207253%_ + (cons _%L208207%_ + (cons _%L208238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207239207250%_)))) - (_%g207237207269%_ - (if _%unchecked207235%_ - (let* ((_%g207273207288%_ - (lambda (_%g207274207284%_) + _%g208224208235%_)))) + (_%g208222208254%_ + (if _%unchecked208220%_ + (let* ((_%g208258208273%_ + (lambda (_%g208259208269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207274207284%_)))) - (_%g207272207333%_ - (lambda (_%g207274207292%_) + _%g208259208269%_)))) + (_%g208257208318%_ + (lambda (_%g208259208277%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207274207292%_)) - (let ((_%e207277207295%_ + _%g208259208277%_)) + (let ((_%e208262208280%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g207274207292%_)))) - (let ((_%hd207278207299%_ + (gx#syntax-e _%g208259208277%_)))) + (let ((_%hd208263208284%_ (let () (declare (not safe)) - (##car _%e207277207295%_))) - (_%tl207279207302%_ + (##car _%e208262208280%_))) + (_%tl208264208287%_ (let () (declare (not safe)) - (##cdr _%e207277207295%_)))) + (##cdr _%e208262208280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207279207302%_)) - (let ((_%e207280207305%_ + (gx#stx-pair? _%tl208264208287%_)) + (let ((_%e208265208290%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207279207302%_)))) - (let ((_%hd207281207309%_ + (gx#syntax-e _%tl208264208287%_)))) + (let ((_%hd208266208294%_ (let () (declare (not safe)) - (##car _%e207280207305%_))) - (_%tl207282207312%_ + (##car _%e208265208290%_))) + (_%tl208267208297%_ (let () (declare (not safe)) - (##cdr _%e207280207305%_)))) + (##cdr _%e208265208290%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207282207312%_)) - ((lambda (_%L207315%_ _%L207317%_) + (gx#stx-null? _%tl208267208297%_)) + ((lambda (_%L208300%_ _%L208302%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207317%_ + (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 _%L207191%_ '())) + (cons _%L208176%_ '())) (cons '#f - (cons 'signature: (cons _%L207315%_ '()))))) + (cons 'signature: (cons _%L208300%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd207281207309%_ - _%hd207278207299%_) - (_%g207273207288%_ _%g207274207292%_)))) - (_%g207273207288%_ _%g207274207292%_)))) - (_%g207273207288%_ _%g207274207292%_))))) + _%hd208266208294%_ + _%hd208263208284%_) + (_%g208258208273%_ _%g208259208277%_)))) + (_%g208258208273%_ _%g208259208277%_)))) + (_%g208258208273%_ _%g208259208277%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207272207333%_ - _%unchecked207235%_)) + (_%g208257208318%_ + _%unchecked208220%_)) '(begin))))) - _%g207208207219%_)))) - (_%g207206207337%_ + _%g208193208204%_)))) + (_%g208191208322%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207129%_ + (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 _%L207191%_ '())) - (cons '#f (cons 'signature: (cons _%L207189%_ '()))))) + (cons _%L208176%_ '())) + (cons '#f (cons 'signature: (cons _%L208174%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd207155207183%_ - _%hd207152207173%_) - (_%g207147207162%_ _%g207148207166%_)))) - (_%g207147207162%_ _%g207148207166%_)))) + _%hd208140208168%_ + _%hd208137208158%_) + (_%g208132208147%_ _%g208133208151%_)))) + (_%g208132208147%_ _%g208133208151%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207147207162%_ - _%g207148207166%_))))) - (_%g207146207341%_ + (_%g208132208147%_ + _%g208133208151%_))))) + (_%g208131208326%_ (|gxc[1]#parse-signature| - _%stx207043%_ - _%L207129%_ - (let ((__tmp209417 - (lambda (_%g207344207347%_ - _%g207345207350%_) - (cons _%g207344207347%_ - _%g207345207350%_)))) + _%stx208028%_ + _%L208114%_ + (let ((__tmp210402 + (lambda (_%g208329208332%_ + _%g208330208335%_) + (cons _%g208329208332%_ + _%g208330208335%_)))) (declare (not safe)) (__foldr1 - __tmp209417 + __tmp210402 '() - _%L207127%_))))) - (_%g207046207070%_ _%g207047207074%_))) - _%signature207064207123%_ - _%hd207054207091%_)))))) + _%L208112%_))))) + (_%g208031208055%_ _%g208032208059%_))) + _%signature208049208108%_ + _%hd208039208076%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop207059207103%_ - _%target207056207097%_ + (_%loop208044208088%_ + _%target208041208082%_ '())) - (_%g207046207070%_ - _%g207047207074%_))))) - (_%g207046207070%_ _%g207047207074%_)))) - (_%g207046207070%_ _%g207047207074%_)))) - (_%g207046207070%_ _%g207047207074%_))))) - (_%g207045207353%_ _%stx207043%_)))) + (_%g208031208055%_ + _%g208032208059%_))))) + (_%g208031208055%_ _%g208032208059%_)))) + (_%g208031208055%_ _%g208032208059%_)))) + (_%g208031208055%_ _%g208032208059%_))))) + (_%g208030208338%_ _%stx208028%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx207358%_) - (let* ((_%g207361207385%_ - (lambda (_%g207362207381%_) + (lambda (_%stx208343%_) + (let* ((_%g208346208370%_ + (lambda (_%g208347208366%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207362207381%_)))) - (_%g207360208268%_ - (lambda (_%g207362207389%_) + _%g208347208366%_)))) + (_%g208345209253%_ + (lambda (_%g208347208374%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207362207389%_)) - (let ((_%e207365207392%_ + (gx#stx-pair? _%g208347208374%_)) + (let ((_%e208350208377%_ (let () (declare (not safe)) - (gx#syntax-e _%g207362207389%_)))) - (let ((_%hd207366207396%_ + (gx#syntax-e _%g208347208374%_)))) + (let ((_%hd208351208381%_ (let () (declare (not safe)) - (##car _%e207365207392%_))) - (_%tl207367207399%_ + (##car _%e208350208377%_))) + (_%tl208352208384%_ (let () (declare (not safe)) - (##cdr _%e207365207392%_)))) + (##cdr _%e208350208377%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207367207399%_)) - (let ((_%e207368207402%_ + (gx#stx-pair? _%tl208352208384%_)) + (let ((_%e208353208387%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207367207399%_)))) - (let ((_%hd207369207406%_ + (gx#syntax-e _%tl208352208384%_)))) + (let ((_%hd208354208391%_ (let () (declare (not safe)) - (##car _%e207368207402%_))) - (_%tl207370207409%_ + (##car _%e208353208387%_))) + (_%tl208355208394%_ (let () (declare (not safe)) - (##cdr _%e207368207402%_)))) + (##cdr _%e208353208387%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl207370207409%_)) - (let ((_g209418_ + (gx#stx-pair/null? _%tl208355208394%_)) + (let ((_g210403_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl207370207409%_ + _%tl208355208394%_ '0)))) (begin - (let ((_g209419_ + (let ((_g210404_ (let () (declare (not safe)) - (if (##values? _g209418_) + (if (##values? _g210403_) (##values-length - _g209418_) + _g210403_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209419_ 2))) + (##fx= _g210404_ 2))) (error "Context expects 2 values" - _g209419_))) - (let ((_%target207371207412%_ + _g210404_))) + (let ((_%target208356208397%_ (let () (declare (not safe)) - (##values-ref _g209418_ 0))) - (_%tl207373207415%_ + (##values-ref _g210403_ 0))) + (_%tl208358208400%_ (let () (declare (not safe)) (##values-ref - _g209418_ + _g210403_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207373207415%_)) - (letrec ((_%loop207374207418%_ - (lambda (_%hd207372207422%_ + _%tl208358208400%_)) + (letrec ((_%loop208359208403%_ + (lambda (_%hd208357208407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature207378207425%_) + _%case-signature208363208410%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207372207422%_)) - (let ((_%e207375207428%_ + (gx#stx-pair? _%hd208357208407%_)) + (let ((_%e208360208413%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207372207422%_)))) - (let ((_%lp-hd207376207432%_ + (gx#syntax-e _%hd208357208407%_)))) + (let ((_%lp-hd208361208417%_ (let () (declare (not safe)) - (##car _%e207375207428%_))) - (_%lp-tl207377207435%_ + (##car _%e208360208413%_))) + (_%lp-tl208362208420%_ (let () (declare (not safe)) - (##cdr _%e207375207428%_)))) - (_%loop207374207418%_ - _%lp-tl207377207435%_ - (cons _%lp-hd207376207432%_ - _%case-signature207378207425%_)))) - (let ((_%case-signature207379207438%_ - (reverse _%case-signature207378207425%_))) - ((lambda (_%L207442%_ _%L207444%_) + (##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? _%L207444%_)) - (let* ((_%signatures207475%_ - (map (lambda (_%g207461207463%_) + (gx#identifier? _%L208429%_)) + (let* ((_%signatures208460%_ + (map (lambda (_%g208446208448%_) (|gxc[1]#parse-signature| - _%stx207358%_ - _%L207444%_ - _%g207461207463%_)) - (let ((__tmp209420 - (lambda (_%g207466207469%_ - _%g207467207472%_) - (cons _%g207466207469%_ - _%g207467207472%_)))) + _%stx208343%_ + _%L208429%_ + _%g208446208448%_)) + (let ((__tmp210405 + (lambda (_%g208451208454%_ + _%g208452208457%_) + (cons _%g208451208454%_ + _%g208452208457%_)))) (declare (not safe)) (__foldr1 - __tmp209420 + __tmp210405 '() - _%L207442%_)))) - (_%g207478207504%_ - (lambda (_%g207479207500%_) + _%L208427%_)))) + (_%g208463208489%_ + (lambda (_%g208464208485%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207479207500%_)))) - (_%g207477208264%_ - (lambda (_%g207479207508%_) + _%g208464208485%_)))) + (_%g208462209249%_ + (lambda (_%g208464208493%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g207479207508%_)) - (let ((_g209421_ + _%g208464208493%_)) + (let ((_g210406_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g207479207508%_ + _%g208464208493%_ '0)))) (begin - (let ((_g209422_ + (let ((_g210407_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g209421_) - (##values-length _g209421_) + _g210406_) + (##values-length _g210406_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g209422_ 2))) - (error "Context expects 2 values" _g209422_))) + (##fx= _g210407_ 2))) + (error "Context expects 2 values" _g210407_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target207482207511%_ + (let ((_%target208467208496%_ (let () (declare (not safe)) (##values-ref - _g209421_ + _g210406_ 0))) - (_%tl207484207514%_ + (_%tl208469208499%_ (let () (declare (not safe)) (##values-ref - _g209421_ + _g210406_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207484207514%_)) - (letrec ((_%loop207485207517%_ + _%tl208469208499%_)) + (letrec ((_%loop208470208502%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd207483207521%_ - _%sig207489207524%_ - _%arity207490207526%_) + (lambda (_%hd208468208506%_ + _%sig208474208509%_ + _%arity208475208511%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207483207521%_)) - (let ((_%e207486207529%_ + (gx#stx-pair? _%hd208468208506%_)) + (let ((_%e208471208514%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207483207521%_)))) - (let ((_%lp-hd207487207533%_ + (gx#syntax-e _%hd208468208506%_)))) + (let ((_%lp-hd208472208518%_ (let () (declare (not safe)) - (##car _%e207486207529%_))) - (_%lp-tl207488207536%_ + (##car _%e208471208514%_))) + (_%lp-tl208473208521%_ (let () (declare (not safe)) - (##cdr _%e207486207529%_)))) + (##cdr _%e208471208514%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd207487207533%_)) - (let ((_%e207493207539%_ + _%lp-hd208472208518%_)) + (let ((_%e208478208524%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd207487207533%_)))) - (let ((_%hd207494207543%_ + _%lp-hd208472208518%_)))) + (let ((_%hd208479208528%_ (let () (declare (not safe)) - (##car _%e207493207539%_))) - (_%tl207495207546%_ + (##car _%e208478208524%_))) + (_%tl208480208531%_ (let () (declare (not safe)) - (##cdr _%e207493207539%_)))) + (##cdr _%e208478208524%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207495207546%_)) - (let ((_%e207496207549%_ + _%tl208480208531%_)) + (let ((_%e208481208534%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207495207546%_)))) - (let ((_%hd207497207553%_ + _%tl208480208531%_)))) + (let ((_%hd208482208538%_ (let () (declare (not safe)) - (##car _%e207496207549%_))) - (_%tl207498207556%_ + (##car _%e208481208534%_))) + (_%tl208483208541%_ (let () (declare (not safe)) - (##cdr _%e207496207549%_)))) + (##cdr _%e208481208534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207498207556%_)) - (_%loop207485207517%_ - _%lp-tl207488207536%_ - (cons _%hd207497207553%_ - _%sig207489207524%_) - (cons _%hd207494207543%_ - _%arity207490207526%_)) - (_%g207478207504%_ - _%g207479207508%_)))) - (_%g207478207504%_ - _%g207479207508%_)))) - (_%g207478207504%_ - _%g207479207508%_)))) - (let ((_%sig207491207559%_ - (reverse _%sig207489207524%_)) - (_%arity207492207562%_ - (reverse _%arity207490207526%_))) - ((lambda (_%L207565%_ _%L207567%_) - (let* ((_%g207584207592%_ - (lambda (_%g207585207588%_) + _%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" - _%g207585207588%_)))) - (_%g207583208249%_ - (lambda (_%g207585207596%_) - ((lambda (_%L207599%_) - (let* ((_%g207612207620%_ - (lambda (_%g207613207616%_) + _%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" - _%g207613207616%_)))) - (_%g207611207642%_ - (lambda (_%g207613207624%_) - ((lambda (_%L207627%_) + _%g208598208601%_)))) + (_%g208596208627%_ + (lambda (_%g208598208609%_) + ((lambda (_%L208612%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207599%_ (cons _%L207627%_ '())))) - _%g207613207624%_)))) + (cons _%L208584%_ (cons _%L208612%_ '())))) + _%g208598208609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207611207642%_ - (let ((_g209423_ - (let _%loop207646%_ ((_%rest207649%_ + (_%g208596208627%_ + (let ((_g210408_ + (let _%loop208631%_ ((_%rest208634%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures207475%_) - (_%unchecked-proc207651%_ '#f) - (_%unchecked-clauses207652%_ '())) - (let* ((_%rest207653207661%_ _%rest207649%_) - (_%else207655207673%_ + _%signatures208460%_) + (_%unchecked-proc208636%_ '#f) + (_%unchecked-clauses208637%_ '())) + (let* ((_%rest208638208646%_ _%rest208634%_) + (_%else208640208658%_ (lambda () - (values _%unchecked-proc207651%_ + (values _%unchecked-proc208636%_ (reverse! - _%unchecked-clauses207652%_)))) - (_%K207657208114%_ - (lambda (_%rest207677%_ _%hd207679%_) - (let* ((_%g207681207768%_ - (lambda (_%g207682207764%_) + _%unchecked-clauses208637%_)))) + (_%K208642209099%_ + (lambda (_%rest208662%_ _%hd208664%_) + (let* ((_%g208666208753%_ + (lambda (_%g208667208749%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207682207764%_)))) - (_%g207680208110%_ - (lambda (_%g207682207772%_) + _%g208667208749%_)))) + (_%g208665209095%_ + (lambda (_%g208667208757%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207682207772%_)) - (let ((_%e207689207775%_ + _%g208667208757%_)) + (let ((_%e208674208760%_ (let () (declare (not safe)) (gx#syntax-e - _%g207682207772%_)))) - (let ((_%hd207690207779%_ + _%g208667208757%_)))) + (let ((_%hd208675208764%_ (let () (declare (not safe)) - (##car _%e207689207775%_))) - (_%tl207691207782%_ + (##car _%e208674208760%_))) + (_%tl208676208767%_ (let () (declare (not safe)) - (##cdr _%e207689207775%_)))) + (##cdr _%e208674208760%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207691207782%_)) - (let ((_%e207692207785%_ + _%tl208676208767%_)) + (let ((_%e208677208770%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207691207782%_)))) - (let ((_%hd207693207789%_ + (gx#syntax-e _%tl208676208767%_)))) + (let ((_%hd208678208774%_ (let () (declare (not safe)) - (##car _%e207692207785%_))) - (_%tl207694207792%_ + (##car _%e208677208770%_))) + (_%tl208679208777%_ (let () (declare (not safe)) - (##cdr _%e207692207785%_)))) + (##cdr _%e208677208770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207693207789%_)) - (let ((_%e207695207795%_ + (gx#stx-pair? _%hd208678208774%_)) + (let ((_%e208680208780%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207693207789%_)))) - (let ((_%hd207696207799%_ + (gx#syntax-e _%hd208678208774%_)))) + (let ((_%hd208681208784%_ (let () (declare (not safe)) - (##car _%e207695207795%_))) - (_%tl207697207802%_ + (##car _%e208680208780%_))) + (_%tl208682208787%_ (let () (declare (not safe)) - (##cdr _%e207695207795%_)))) + (##cdr _%e208680208780%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207697207802%_)) - (let ((_%e207698207805%_ + (gx#stx-pair? _%tl208682208787%_)) + (let ((_%e208683208790%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207697207802%_)))) - (let ((_%hd207699207809%_ + (gx#syntax-e _%tl208682208787%_)))) + (let ((_%hd208684208794%_ (let () (declare (not safe)) - (##car _%e207698207805%_))) - (_%tl207700207812%_ + (##car _%e208683208790%_))) + (_%tl208685208797%_ (let () (declare (not safe)) - (##cdr _%e207698207805%_)))) + (##cdr _%e208683208790%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207699207809%_)) - (let ((_%e207701207815%_ + (gx#stx-datum? _%hd208684208794%_)) + (let ((_%e208686208800%_ (let () (declare (not safe)) (gx#stx-e - _%hd207699207809%_)))) - (if (equal? _%e207701207815%_ + _%hd208684208794%_)))) + (if (equal? _%e208686208800%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207700207812%_)) - (let ((_%e207702207819%_ + _%tl208685208797%_)) + (let ((_%e208687208804%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207700207812%_)))) - (let ((_%hd207703207823%_ + _%tl208685208797%_)))) + (let ((_%hd208688208808%_ (let () (declare (not safe)) - (##car _%e207702207819%_))) - (_%tl207704207826%_ + (##car _%e208687208804%_))) + (_%tl208689208811%_ (let () (declare (not safe)) - (##cdr _%e207702207819%_)))) + (##cdr _%e208687208804%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207703207823%_)) - (let ((_%e207705207829%_ + _%hd208688208808%_)) + (let ((_%e208690208814%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd207703207823%_)))) - (let ((_%hd207706207833%_ + (gx#syntax-e _%hd208688208808%_)))) + (let ((_%hd208691208818%_ (let () (declare (not safe)) - (##car _%e207705207829%_))) - (_%tl207707207836%_ + (##car _%e208690208814%_))) + (_%tl208692208821%_ (let () (declare (not safe)) - (##cdr _%e207705207829%_)))) + (##cdr _%e208690208814%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207706207833%_)) - (if (let ((__tmp209425 |gxc[1]#_g209426_|)) + (gx#identifier? _%hd208691208818%_)) + (if (let ((__tmp210410 |gxc[1]#_g210411_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209425 - _%hd207706207833%_)) + __tmp210410 + _%hd208691208818%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207707207836%_)) - (let ((_%e207708207839%_ + (gx#stx-pair? _%tl208692208821%_)) + (let ((_%e208693208824%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207707207836%_)))) - (let ((_%hd207709207843%_ + (gx#syntax-e _%tl208692208821%_)))) + (let ((_%hd208694208828%_ (let () (declare (not safe)) - (##car _%e207708207839%_))) - (_%tl207710207846%_ + (##car _%e208693208824%_))) + (_%tl208695208831%_ (let () (declare (not safe)) - (##cdr _%e207708207839%_)))) + (##cdr _%e208693208824%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207710207846%_)) + (gx#stx-null? _%tl208695208831%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207704207826%_)) - (let ((_%e207711207849%_ + _%tl208689208811%_)) + (let ((_%e208696208834%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207704207826%_)))) - (let ((_%hd207712207853%_ + _%tl208689208811%_)))) + (let ((_%hd208697208838%_ (let () (declare (not safe)) - (##car _%e207711207849%_))) - (_%tl207713207856%_ + (##car _%e208696208834%_))) + (_%tl208698208841%_ (let () (declare (not safe)) - (##cdr _%e207711207849%_)))) + (##cdr _%e208696208834%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207712207853%_)) - (let ((_%e207714207859%_ + _%hd208697208838%_)) + (let ((_%e208699208844%_ (let () (declare (not safe)) (gx#stx-e - _%hd207712207853%_)))) - (if (equal? _%e207714207859%_ + _%hd208697208838%_)))) + (if (equal? _%e208699208844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207713207856%_)) - (let ((_%e207715207863%_ + (gx#stx-pair? _%tl208698208841%_)) + (let ((_%e208700208848%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207713207856%_)))) - (let ((_%hd207716207867%_ + (gx#syntax-e _%tl208698208841%_)))) + (let ((_%hd208701208852%_ (let () (declare (not safe)) - (##car _%e207715207863%_))) - (_%tl207717207870%_ + (##car _%e208700208848%_))) + (_%tl208702208855%_ (let () (declare (not safe)) - (##cdr _%e207715207863%_)))) + (##cdr _%e208700208848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207716207867%_)) - (let ((_%e207718207873%_ + (gx#stx-pair? _%hd208701208852%_)) + (let ((_%e208703208858%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207716207867%_)))) - (let ((_%hd207719207877%_ + (gx#syntax-e _%hd208701208852%_)))) + (let ((_%hd208704208862%_ (let () (declare (not safe)) - (##car _%e207718207873%_))) - (_%tl207720207880%_ + (##car _%e208703208858%_))) + (_%tl208705208865%_ (let () (declare (not safe)) - (##cdr _%e207718207873%_)))) + (##cdr _%e208703208858%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207719207877%_)) - (if (let ((__tmp209427 - |gxc[1]#_g209428_|)) + (gx#identifier? _%hd208704208862%_)) + (if (let ((__tmp210412 + |gxc[1]#_g210413_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209427 - _%hd207719207877%_)) + __tmp210412 + _%hd208704208862%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207720207880%_)) - (let ((_%e207721207883%_ + _%tl208705208865%_)) + (let ((_%e208706208868%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207720207880%_)))) - (let ((_%hd207722207887%_ + _%tl208705208865%_)))) + (let ((_%hd208707208872%_ (let () (declare (not safe)) - (##car _%e207721207883%_))) - (_%tl207723207890%_ + (##car _%e208706208868%_))) + (_%tl208708208875%_ (let () (declare (not safe)) - (##cdr _%e207721207883%_)))) + (##cdr _%e208706208868%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207723207890%_)) + _%tl208708208875%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207717207870%_)) - (let ((_%e207724207893%_ + _%tl208702208855%_)) + (let ((_%e208709208878%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl207717207870%_)))) - (let ((_%hd207725207897%_ + (gx#syntax-e _%tl208702208855%_)))) + (let ((_%hd208710208882%_ (let () (declare (not safe)) - (##car _%e207724207893%_))) - (_%tl207726207900%_ + (##car _%e208709208878%_))) + (_%tl208711208885%_ (let () (declare (not safe)) - (##cdr _%e207724207893%_)))) + (##cdr _%e208709208878%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207725207897%_)) - (let ((_%e207727207903%_ + (gx#stx-datum? _%hd208710208882%_)) + (let ((_%e208712208888%_ (let () (declare (not safe)) - (gx#stx-e _%hd207725207897%_)))) - (if (equal? _%e207727207903%_ 'effect:) + (gx#stx-e _%hd208710208882%_)))) + (if (equal? _%e208712208888%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207726207900%_)) - (let ((_%e207728207907%_ + (gx#stx-pair? _%tl208711208885%_)) + (let ((_%e208713208892%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207726207900%_)))) - (let ((_%hd207729207911%_ + _%tl208711208885%_)))) + (let ((_%hd208714208896%_ (let () (declare (not safe)) - (##car _%e207728207907%_))) - (_%tl207730207914%_ + (##car _%e208713208892%_))) + (_%tl208715208899%_ (let () (declare (not safe)) - (##cdr _%e207728207907%_)))) + (##cdr _%e208713208892%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207729207911%_)) - (let ((_%e207731207917%_ + _%hd208714208896%_)) + (let ((_%e208716208902%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207729207911%_)))) - (let ((_%hd207732207921%_ + _%hd208714208896%_)))) + (let ((_%hd208717208906%_ (let () (declare (not safe)) - (##car _%e207731207917%_))) - (_%tl207733207924%_ + (##car _%e208716208902%_))) + (_%tl208718208909%_ (let () (declare (not safe)) - (##cdr _%e207731207917%_)))) + (##cdr _%e208716208902%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd207732207921%_)) - (if (let ((__tmp209429 - |gxc[1]#_g209430_|)) + _%hd208717208906%_)) + (if (let ((__tmp210414 + |gxc[1]#_g210415_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209429 - _%hd207732207921%_)) + __tmp210414 + _%hd208717208906%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl207733207924%_)) - (let ((_%e207734207927%_ + (gx#stx-pair? _%tl208718208909%_)) + (let ((_%e208719208912%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207733207924%_)))) - (let ((_%hd207735207931%_ + (gx#syntax-e _%tl208718208909%_)))) + (let ((_%hd208720208916%_ (let () (declare (not safe)) - (##car _%e207734207927%_))) - (_%tl207736207934%_ + (##car _%e208719208912%_))) + (_%tl208721208919%_ (let () (declare (not safe)) - (##cdr _%e207734207927%_)))) + (##cdr _%e208719208912%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207736207934%_)) + (gx#stx-null? _%tl208721208919%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207730207914%_)) - (let ((_%e207737207937%_ + (gx#stx-pair? _%tl208715208899%_)) + (let ((_%e208722208922%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207730207914%_)))) - (let ((_%hd207738207941%_ + (gx#syntax-e _%tl208715208899%_)))) + (let ((_%hd208723208926%_ (let () (declare (not safe)) - (##car _%e207737207937%_))) - (_%tl207739207944%_ + (##car _%e208722208922%_))) + (_%tl208724208929%_ (let () (declare (not safe)) - (##cdr _%e207737207937%_)))) + (##cdr _%e208722208922%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207738207941%_)) - (let ((_%e207740207947%_ + (gx#stx-datum? _%hd208723208926%_)) + (let ((_%e208725208932%_ (let () (declare (not safe)) (gx#stx-e - _%hd207738207941%_)))) - (if (equal? _%e207740207947%_ + _%hd208723208926%_)))) + (if (equal? _%e208725208932%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207739207944%_)) - (let ((_%e207741207951%_ + _%tl208724208929%_)) + (let ((_%e208726208936%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207739207944%_)))) - (let ((_%hd207742207955%_ + _%tl208724208929%_)))) + (let ((_%hd208727208940%_ (let () (declare (not safe)) - (##car _%e207741207951%_))) - (_%tl207743207958%_ + (##car _%e208726208936%_))) + (_%tl208728208943%_ (let () (declare (not safe)) - (##cdr _%e207741207951%_)))) + (##cdr _%e208726208936%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207742207955%_)) - (let ((_%e207744207961%_ + _%hd208727208940%_)) + (let ((_%e208729208946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd207742207955%_)))) - (let ((_%hd207745207965%_ + (gx#syntax-e _%hd208727208940%_)))) + (let ((_%hd208730208950%_ (let () (declare (not safe)) - (##car _%e207744207961%_))) - (_%tl207746207968%_ + (##car _%e208729208946%_))) + (_%tl208731208953%_ (let () (declare (not safe)) - (##cdr _%e207744207961%_)))) + (##cdr _%e208729208946%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207745207965%_)) - (if (let ((__tmp209431 |gxc[1]#_g209432_|)) + (gx#identifier? _%hd208730208950%_)) + (if (let ((__tmp210416 |gxc[1]#_g210417_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209431 - _%hd207745207965%_)) + __tmp210416 + _%hd208730208950%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207746207968%_)) - (let ((_%e207747207971%_ + (gx#stx-pair? _%tl208731208953%_)) + (let ((_%e208732208956%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207746207968%_)))) - (let ((_%hd207748207975%_ + (gx#syntax-e _%tl208731208953%_)))) + (let ((_%hd208733208960%_ (let () (declare (not safe)) - (##car _%e207747207971%_))) - (_%tl207749207978%_ + (##car _%e208732208956%_))) + (_%tl208734208963%_ (let () (declare (not safe)) - (##cdr _%e207747207971%_)))) + (##cdr _%e208732208956%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207749207978%_)) + (gx#stx-null? _%tl208734208963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207743207958%_)) - (let ((_%e207750207981%_ + _%tl208728208943%_)) + (let ((_%e208735208966%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207743207958%_)))) - (let ((_%hd207751207985%_ + _%tl208728208943%_)))) + (let ((_%hd208736208970%_ (let () (declare (not safe)) - (##car _%e207750207981%_))) - (_%tl207752207988%_ + (##car _%e208735208966%_))) + (_%tl208737208973%_ (let () (declare (not safe)) - (##cdr _%e207750207981%_)))) + (##cdr _%e208735208966%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207751207985%_)) - (let ((_%e207753207991%_ + _%hd208736208970%_)) + (let ((_%e208738208976%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd207751207985%_)))) - (if (equal? _%e207753207991%_ 'origin:) + (gx#stx-e _%hd208736208970%_)))) + (if (equal? _%e208738208976%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207752207988%_)) - (let ((_%e207754207995%_ + (gx#stx-pair? _%tl208737208973%_)) + (let ((_%e208739208980%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207752207988%_)))) - (let ((_%hd207755207999%_ + (gx#syntax-e _%tl208737208973%_)))) + (let ((_%hd208740208984%_ (let () (declare (not safe)) - (##car _%e207754207995%_))) - (_%tl207756208002%_ + (##car _%e208739208980%_))) + (_%tl208741208987%_ (let () (declare (not safe)) - (##cdr _%e207754207995%_)))) + (##cdr _%e208739208980%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207755207999%_)) - (let ((_%e207757208005%_ + (gx#stx-pair? _%hd208740208984%_)) + (let ((_%e208742208990%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207755207999%_)))) - (let ((_%hd207758208009%_ + (gx#syntax-e _%hd208740208984%_)))) + (let ((_%hd208743208994%_ (let () (declare (not safe)) - (##car _%e207757208005%_))) - (_%tl207759208012%_ + (##car _%e208742208990%_))) + (_%tl208744208997%_ (let () (declare (not safe)) - (##cdr _%e207757208005%_)))) + (##cdr _%e208742208990%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207758208009%_)) - (if (let ((__tmp209433 - |gxc[1]#_g209434_|)) + (gx#identifier? _%hd208743208994%_)) + (if (let ((__tmp210418 + |gxc[1]#_g210419_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209433 - _%hd207758208009%_)) + __tmp210418 + _%hd208743208994%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207759208012%_)) - (let ((_%e207760208015%_ + _%tl208744208997%_)) + (let ((_%e208745209000%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207759208012%_)))) - (let ((_%hd207761208019%_ + _%tl208744208997%_)))) + (let ((_%hd208746209004%_ (let () (declare (not safe)) - (##car _%e207760208015%_))) - (_%tl207762208022%_ + (##car _%e208745209000%_))) + (_%tl208747209007%_ (let () (declare (not safe)) - (##cdr _%e207760208015%_)))) + (##cdr _%e208745209000%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207762208022%_)) + _%tl208747209007%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl207756208002%_)) + (gx#stx-null? _%tl208741208987%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207694207792%_)) - ((lambda (_%L208025%_ - _%L208027%_ - _%L208028%_ - _%L208029%_ - _%L208030%_ - _%L208031%_) - (let ((_%clause208102%_ + (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 _%L208031%_ '())) + (cons _%L209016%_ '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6045,256 +6045,256 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208029%_ '())) + (cons _%L209014%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208025%_ '())) + (cons _%L209010%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked208104%_ + (_%unchecked209089%_ (let () (declare (not safe)) - (gx#stx-e _%L208027%_)))) - (_%loop207646%_ - _%rest207677%_ - (let ((_%$e208106%_ _%unchecked208104%_)) - (if _%$e208106%_ - _%$e208106%_ - _%unchecked-proc207651%_)) - (cons _%clause208102%_ - _%unchecked-clauses207652%_)))) - _%hd207761208019%_ - _%hd207748207975%_ - _%hd207735207931%_ - _%hd207722207887%_ - _%hd207709207843%_ - _%hd207690207779%_) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)))) + (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%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ - _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_))) - (_%g207681207768%_ _%g207682207772%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ - _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ - _%g207682207772%_))) - (_%g207681207768%_ - _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_)))) - (_%g207681207768%_ - _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_))) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_)))) - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ - _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_)) - (_%g207681207768%_ - _%g207682207772%_))) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)))) - (_%g207681207768%_ _%g207682207772%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207681207768%_ - _%g207682207772%_))))) - (_%g207680208110%_ _%hd207679%_))))) - (if (pair? _%rest207653207661%_) - (let ((_%hd207658208118%_ + (_%g208666208753%_ + _%g208667208757%_))))) + (_%g208665209095%_ _%hd208664%_))))) + (if (pair? _%rest208638208646%_) + (let ((_%hd208643209103%_ (let () (declare (not safe)) - (##car _%rest207653207661%_))) - (_%tl207659208121%_ + (##car _%rest208638208646%_))) + (_%tl208644209106%_ (let () (declare (not safe)) - (##cdr _%rest207653207661%_)))) - (let* ((_%hd208124%_ _%hd207658208118%_) - (_%rest208127%_ _%tl207659208121%_)) - (_%K207657208114%_ - _%rest208127%_ - _%hd208124%_))) - (_%else207655207673%_)))))) + (##cdr _%rest208638208646%_)))) + (let* ((_%hd209109%_ _%hd208643209103%_) + (_%rest209112%_ _%tl208644209106%_)) + (_%K208642209099%_ + _%rest209112%_ + _%hd209109%_))) + (_%else208640208658%_)))))) (begin - (let ((_g209424_ + (let ((_g210409_ (let () (declare (not safe)) - (if (##values? _g209423_) - (##values-length _g209423_) + (if (##values? _g210408_) + (##values-length _g210408_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209424_ 2))) - (error "Context expects 2 values" _g209424_))) - (let ((_%unchecked-proc208130%_ + (if (not (let () (declare (not safe)) (##fx= _g210409_ 2))) + (error "Context expects 2 values" _g210409_))) + (let ((_%unchecked-proc209115%_ (let () (declare (not safe)) - (##values-ref _g209423_ 0))) - (_%unchecked-clauses208132%_ + (##values-ref _g210408_ 0))) + (_%unchecked-clauses209117%_ (let () (declare (not safe)) - (##values-ref _g209423_ 1)))) - (if _%unchecked-proc208130%_ - (let* ((_%g208134208158%_ - (lambda (_%g208135208154%_) + (##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" - _%g208135208154%_)))) - (_%g208133208245%_ - (lambda (_%g208135208162%_) + _%g209120209139%_)))) + (_%g209118209230%_ + (lambda (_%g209120209147%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208135208162%_)) - (let ((_%e208138208165%_ + (gx#stx-pair? _%g209120209147%_)) + (let ((_%e209123209150%_ (let () (declare (not safe)) (gx#syntax-e - _%g208135208162%_)))) - (let ((_%hd208139208169%_ + _%g209120209147%_)))) + (let ((_%hd209124209154%_ (let () (declare (not safe)) - (##car _%e208138208165%_))) - (_%tl208140208172%_ + (##car _%e209123209150%_))) + (_%tl209125209157%_ (let () (declare (not safe)) - (##cdr _%e208138208165%_)))) + (##cdr _%e209123209150%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208140208172%_)) - (let ((_%e208141208175%_ + _%tl209125209157%_)) + (let ((_%e209126209160%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208140208172%_)))) - (let ((_%hd208142208179%_ + _%tl209125209157%_)))) + (let ((_%hd209127209164%_ (let () (declare (not safe)) - (##car _%e208141208175%_))) - (_%tl208143208182%_ + (##car _%e209126209160%_))) + (_%tl209128209167%_ (let () (declare (not safe)) - (##cdr _%e208141208175%_)))) + (##cdr _%e209126209160%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd208142208179%_)) - (let ((_g209435_ + _%hd209127209164%_)) + (let ((_g210420_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd208142208179%_ '0)))) + (gx#syntax-split-splice _%hd209127209164%_ '0)))) (begin - (let ((_g209436_ + (let ((_g210421_ (let () (declare (not safe)) - (if (##values? _g209435_) - (##values-length _g209435_) + (if (##values? _g210420_) + (##values-length _g210420_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209436_ 2))) - (error "Context expects 2 values" _g209436_))) - (let ((_%target208144208185%_ + (if (not (let () (declare (not safe)) (##fx= _g210421_ 2))) + (error "Context expects 2 values" _g210421_))) + (let ((_%target209129209170%_ (let () (declare (not safe)) - (##values-ref _g209435_ 0))) - (_%tl208146208188%_ + (##values-ref _g210420_ 0))) + (_%tl209131209173%_ (let () (declare (not safe)) - (##values-ref _g209435_ 1)))) + (##values-ref _g210420_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208146208188%_)) - (letrec ((_%loop208147208191%_ - (lambda (_%hd208145208195%_ - _%clause208151208198%_) + (gx#stx-null? _%tl209131209173%_)) + (letrec ((_%loop209132209176%_ + (lambda (_%hd209130209180%_ + _%clause209136209183%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208145208195%_)) - (let ((_%e208148208201%_ + (gx#stx-pair? _%hd209130209180%_)) + (let ((_%e209133209186%_ (let () (declare (not safe)) (gx#syntax-e - _%hd208145208195%_)))) - (let ((_%lp-hd208149208205%_ + _%hd209130209180%_)))) + (let ((_%lp-hd209134209190%_ (let () (declare (not safe)) - (##car _%e208148208201%_))) - (_%lp-tl208150208208%_ + (##car _%e209133209186%_))) + (_%lp-tl209135209193%_ (let () (declare (not safe)) - (##cdr _%e208148208201%_)))) - (_%loop208147208191%_ - _%lp-tl208150208208%_ - (cons _%lp-hd208149208205%_ - _%clause208151208198%_)))) - (let ((_%clause208152208211%_ - (reverse _%clause208151208198%_))) + (##cdr _%e209133209186%_)))) + (_%loop209132209176%_ + _%lp-tl209135209193%_ + (cons _%lp-hd209134209190%_ + _%clause209136209183%_)))) + (let ((_%clause209137209196%_ + (reverse _%clause209136209183%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208143208182%_)) - ((lambda (_%L208215%_ - _%L208217%_) + _%tl209128209167%_)) + ((lambda (_%L209200%_ + _%L209202%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L208217%_ + (cons _%L209202%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6306,43 +6306,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp209437 - (lambda (_%g208236208239%_ - _%g208237208242%_) - (cons _%g208236208239%_ - _%g208237208242%_)))) + (let ((__tmp210422 + (lambda (_%g209221209224%_ + _%g209222209227%_) + (cons _%g209221209224%_ + _%g209222209227%_)))) (declare (not safe)) (__foldr1 - __tmp209437 + __tmp210422 '() - _%L208215%_))) + _%L209200%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause208152208211%_ - _%hd208139208169%_) - (_%g208134208158%_ - _%g208135208162%_))))))) - (_%loop208147208191%_ _%target208144208185%_ '())) - (_%g208134208158%_ _%g208135208162%_))))) - (_%g208134208158%_ _%g208135208162%_)))) + _%clause209137209196%_ + _%hd209124209154%_) + (_%g209119209143%_ + _%g209120209147%_))))))) + (_%loop209132209176%_ _%target209129209170%_ '())) + (_%g209119209143%_ _%g209120209147%_))))) + (_%g209119209143%_ _%g209120209147%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g208134208158%_ - _%g208135208162%_)))) - (_%g208134208158%_ _%g208135208162%_))))) - (_%g208133208245%_ - (list _%unchecked-proc208130%_ - _%unchecked-clauses208132%_))) + (_%g209119209143%_ + _%g209120209147%_)))) + (_%g209119209143%_ _%g209120209147%_))))) + (_%g209118209230%_ + (list _%unchecked-proc209115%_ + _%unchecked-clauses209117%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207585207596%_)))) - (_%g207583208249%_ + _%g208570208581%_)))) + (_%g208568209234%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207444%_ + (cons _%L208429%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6356,12 +6356,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L207565%_ - _%L207567%_)) - (let ((__tmp209438 - (lambda (_%g208252208256%_ - _%g208253208259%_ - _%g208254208261%_) + _%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 _%g208253208259%_ '())) + (cons _%g209238209244%_ '())) (cons '#f (cons 'signature: - (cons _%g208252208256%_ '()))))) - _%g208254208261%_)))) + (cons _%g209237209241%_ '()))))) + _%g209239209246%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp209438 + __tmp210423 '() - _%L207565%_ - _%L207567%_)))) + _%L208550%_ + _%L208552%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig207491207559%_ - _%arity207492207562%_)))))) - (_%loop207485207517%_ _%target207482207511%_ '() '())) - (_%g207478207504%_ _%g207479207508%_))))) + _%sig208476208544%_ + _%arity208477208547%_)))))) + (_%loop208470208502%_ _%target208467208496%_ '() '())) + (_%g208463208489%_ _%g208464208493%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207478207504%_ - _%g207479207508%_))))) - (_%g207477208264%_ _%signatures207475%_)) - (_%g207361207385%_ _%g207362207389%_))) - _%case-signature207379207438%_ - _%hd207369207406%_)))))) + (_%g208463208489%_ + _%g208464208493%_))))) + (_%g208462209249%_ _%signatures208460%_)) + (_%g208346208370%_ _%g208347208374%_))) + _%case-signature208364208423%_ + _%hd208354208391%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop207374207418%_ - _%target207371207412%_ + (_%loop208359208403%_ + _%target208356208397%_ '())) - (_%g207361207385%_ - _%g207362207389%_))))) - (_%g207361207385%_ _%g207362207389%_)))) - (_%g207361207385%_ _%g207362207389%_)))) - (_%g207361207385%_ _%g207362207389%_))))) - (_%g207360208268%_ _%stx207358%_)))) + (_%g208346208370%_ + _%g208347208374%_))))) + (_%g208346208370%_ _%g208347208374%_)))) + (_%g208346208370%_ _%g208347208374%_)))) + (_%g208346208370%_ _%g208347208374%_))))) + (_%g208345209253%_ _%stx208343%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx208276%_) - (let* ((_%__stx209258209259%_ _%$stx208276%_) - (_%g208282208342%_ + (lambda (_%$stx209261%_) + (let* ((_%__stx210243210244%_ _%$stx209261%_) + (_%g209267209327%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx209258209259%_))))) - (let ((_%__kont209261209262%_ - (lambda (_%L208564%_ _%L208566%_) + _%__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 _%L208566%_ '())) + (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 _%L208566%_ '())) + (cons _%L209551%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208564%_ '())) + (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 '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont209263209264%_ - (lambda (_%L208489%_ _%L208491%_ _%L208492%_) + (_%__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 _%L208492%_ '())) + (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 _%L208492%_ '())) + (cons _%L209477%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208491%_ '())) + (cons _%L209476%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208489%_ '())) + (cons _%L209474%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont209265209266%_ - (lambda (_%L208403%_ _%L208405%_ _%L208406%_) + (_%__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 _%L208406%_ '())) + (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 _%L208406%_ '())) + (cons _%L209391%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208405%_ '())) + (cons _%L209390%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208403%_ '())) + (cons _%L209388%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx209258209259%_)) - (let ((_%e208286208520%_ + (gx#stx-pair? _%__stx210243210244%_)) + (let ((_%e209271209505%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx209258209259%_)))) - (let ((_%tl208288208527%_ + (gx#syntax-e _%__stx210243210244%_)))) + (let ((_%tl209273209512%_ (let () (declare (not safe)) - (##cdr _%e208286208520%_))) - (_%hd208287208524%_ + (##cdr _%e209271209505%_))) + (_%hd209272209509%_ (let () (declare (not safe)) - (##car _%e208286208520%_)))) + (##car _%e209271209505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208288208527%_)) - (let ((_%e208289208530%_ + (gx#stx-pair? _%tl209273209512%_)) + (let ((_%e209274209515%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208288208527%_)))) - (let ((_%tl208291208537%_ + (gx#syntax-e _%tl209273209512%_)))) + (let ((_%tl209276209522%_ (let () (declare (not safe)) - (##cdr _%e208289208530%_))) - (_%hd208290208534%_ + (##cdr _%e209274209515%_))) + (_%hd209275209519%_ (let () (declare (not safe)) - (##car _%e208289208530%_)))) + (##car _%e209274209515%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd208290208534%_)) - (let ((_%e208292208540%_ + (gx#stx-datum? _%hd209275209519%_)) + (let ((_%e209277209525%_ (let () (declare (not safe)) - (gx#stx-e _%hd208290208534%_)))) - (if (equal? _%e208292208540%_ 'system:) + (gx#stx-e _%hd209275209519%_)))) + (if (equal? _%e209277209525%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208291208537%_)) - (let ((_%e208293208544%_ + (gx#stx-pair? _%tl209276209522%_)) + (let ((_%e209278209529%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208291208537%_)))) - (let ((_%tl208295208551%_ + _%tl209276209522%_)))) + (let ((_%tl209280209536%_ (let () (declare (not safe)) - (##cdr _%e208293208544%_))) - (_%hd208294208548%_ + (##cdr _%e209278209529%_))) + (_%hd209279209533%_ (let () (declare (not safe)) - (##car _%e208293208544%_)))) + (##car _%e209278209529%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208295208551%_)) - (let ((_%e208296208554%_ + _%tl209280209536%_)) + (let ((_%e209281209539%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208295208551%_)))) - (let ((_%tl208298208561%_ + _%tl209280209536%_)))) + (let ((_%tl209283209546%_ (let () (declare (not safe)) - (##cdr _%e208296208554%_))) - (_%hd208297208558%_ + (##cdr _%e209281209539%_))) + (_%hd209282209543%_ (let () (declare (not safe)) - (##car _%e208296208554%_)))) + (##car _%e209281209539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208298208561%_)) - (_%__kont209261209262%_ - _%hd208297208558%_ - _%hd208294208548%_) + _%tl209283209546%_)) + (_%__kont210246210247%_ + _%hd209282209543%_ + _%hd209279209533%_) (let () (declare (not safe)) - (_%g208282208342%_))))) + (_%g209267209327%_))))) (let () (declare (not safe)) - (_%g208282208342%_))))) + (_%g209267209327%_))))) (let () (declare (not safe)) - (_%g208282208342%_))) - (if (equal? _%e208292208540%_ 'struct:) + (_%g209267209327%_))) + (if (equal? _%e209277209525%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208291208537%_)) - (let ((_%e208309208459%_ + _%tl209276209522%_)) + (let ((_%e209294209444%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208291208537%_)))) - (let ((_%tl208311208466%_ + _%tl209276209522%_)))) + (let ((_%tl209296209451%_ (let () (declare (not safe)) - (##cdr _%e208309208459%_))) - (_%hd208310208463%_ + (##cdr _%e209294209444%_))) + (_%hd209295209448%_ (let () (declare (not safe)) - (##car _%e208309208459%_)))) + (##car _%e209294209444%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208311208466%_)) - (let ((_%e208312208469%_ + _%tl209296209451%_)) + (let ((_%e209297209454%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl208311208466%_)))) - (let ((_%tl208314208476%_ - (let () (declare (not safe)) (##cdr _%e208312208469%_))) - (_%hd208313208473%_ + (gx#syntax-e _%tl209296209451%_)))) + (let ((_%tl209299209461%_ + (let () (declare (not safe)) (##cdr _%e209297209454%_))) + (_%hd209298209458%_ (let () (declare (not safe)) - (##car _%e208312208469%_)))) + (##car _%e209297209454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208314208476%_)) - (let ((_%e208315208479%_ + (gx#stx-pair? _%tl209299209461%_)) + (let ((_%e209300209464%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208314208476%_)))) - (let ((_%tl208317208486%_ + (gx#syntax-e _%tl209299209461%_)))) + (let ((_%tl209302209471%_ (let () (declare (not safe)) - (##cdr _%e208315208479%_))) - (_%hd208316208483%_ + (##cdr _%e209300209464%_))) + (_%hd209301209468%_ (let () (declare (not safe)) - (##car _%e208315208479%_)))) + (##car _%e209300209464%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208317208486%_)) - (_%__kont209263209264%_ - _%hd208316208483%_ - _%hd208313208473%_ - _%hd208310208463%_) + (gx#stx-null? _%tl209302209471%_)) + (_%__kont210248210249%_ + _%hd209301209468%_ + _%hd209298209458%_ + _%hd209295209448%_) (let () (declare (not safe)) - (_%g208282208342%_))))) - (let () (declare (not safe)) (_%g208282208342%_))))) - (let () (declare (not safe)) (_%g208282208342%_))))) + (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g208282208342%_))) - (if (equal? _%e208292208540%_ + (_%g209267209327%_))) + (if (equal? _%e209277209525%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208291208537%_)) - (let ((_%e208328208373%_ + _%tl209276209522%_)) + (let ((_%e209313209358%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208291208537%_)))) - (let ((_%tl208330208380%_ + _%tl209276209522%_)))) + (let ((_%tl209315209365%_ (let () (declare (not safe)) - (##cdr _%e208328208373%_))) - (_%hd208329208377%_ + (##cdr _%e209313209358%_))) + (_%hd209314209362%_ (let () (declare (not safe)) - (##car _%e208328208373%_)))) + (##car _%e209313209358%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208330208380%_)) - (let ((_%e208331208383%_ + _%tl209315209365%_)) + (let ((_%e209316209368%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl208330208380%_)))) - (let ((_%tl208333208390%_ + (gx#syntax-e _%tl209315209365%_)))) + (let ((_%tl209318209375%_ (let () (declare (not safe)) - (##cdr _%e208331208383%_))) - (_%hd208332208387%_ + (##cdr _%e209316209368%_))) + (_%hd209317209372%_ (let () (declare (not safe)) - (##car _%e208331208383%_)))) + (##car _%e209316209368%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208333208390%_)) - (let ((_%e208334208393%_ + (gx#stx-pair? _%tl209318209375%_)) + (let ((_%e209319209378%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208333208390%_)))) - (let ((_%tl208336208400%_ + (gx#syntax-e _%tl209318209375%_)))) + (let ((_%tl209321209385%_ (let () (declare (not safe)) - (##cdr _%e208334208393%_))) - (_%hd208335208397%_ + (##cdr _%e209319209378%_))) + (_%hd209320209382%_ (let () (declare (not safe)) - (##car _%e208334208393%_)))) + (##car _%e209319209378%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208336208400%_)) - (_%__kont209265209266%_ - _%hd208335208397%_ - _%hd208332208387%_ - _%hd208329208377%_) + (gx#stx-null? _%tl209321209385%_)) + (_%__kont210250210251%_ + _%hd209320209382%_ + _%hd209317209372%_ + _%hd209314209362%_) (let () (declare (not safe)) - (_%g208282208342%_))))) - (let () (declare (not safe)) (_%g208282208342%_))))) - (let () (declare (not safe)) (_%g208282208342%_))))) + (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g208282208342%_))) + (_%g209267209327%_))) (let () (declare (not safe)) - (_%g208282208342%_)))))) + (_%g209267209327%_)))))) (let () (declare (not safe)) - (_%g208282208342%_))))) - (let () (declare (not safe)) (_%g208282208342%_))))) - (let () (declare (not safe)) (_%g208282208342%_))))))) + (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx208588%_) - (let* ((_%g208592208612%_ - (lambda (_%g208593208608%_) + (lambda (_%$stx209573%_) + (let* ((_%g209577209597%_ + (lambda (_%g209578209593%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g208593208608%_)))) - (_%g208591208683%_ - (lambda (_%g208593208616%_) + _%g209578209593%_)))) + (_%g209576209668%_ + (lambda (_%g209578209601%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208593208616%_)) - (let ((_%e208595208619%_ + (gx#stx-pair? _%g209578209601%_)) + (let ((_%e209580209604%_ (let () (declare (not safe)) - (gx#syntax-e _%g208593208616%_)))) - (let ((_%hd208596208623%_ + (gx#syntax-e _%g209578209601%_)))) + (let ((_%hd209581209608%_ (let () (declare (not safe)) - (##car _%e208595208619%_))) - (_%tl208597208626%_ + (##car _%e209580209604%_))) + (_%tl209582209611%_ (let () (declare (not safe)) - (##cdr _%e208595208619%_)))) + (##cdr _%e209580209604%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl208597208626%_)) - (let ((_g209439_ + (gx#stx-pair/null? _%tl209582209611%_)) + (let ((_g210424_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl208597208626%_ + _%tl209582209611%_ '0)))) (begin - (let ((_g209440_ + (let ((_g210425_ (let () (declare (not safe)) - (if (##values? _g209439_) - (##values-length _g209439_) + (if (##values? _g210424_) + (##values-length _g210424_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209440_ 2))) + (##fx= _g210425_ 2))) (error "Context expects 2 values" - _g209440_))) - (let ((_%target208598208629%_ + _g210425_))) + (let ((_%target209583209614%_ (let () (declare (not safe)) - (##values-ref _g209439_ 0))) - (_%tl208600208632%_ + (##values-ref _g210424_ 0))) + (_%tl209585209617%_ (let () (declare (not safe)) - (##values-ref _g209439_ 1)))) + (##values-ref _g210424_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208600208632%_)) - (letrec ((_%loop208601208635%_ - (lambda (_%hd208599208639%_ - _%decl208605208642%_) + (gx#stx-null? _%tl209585209617%_)) + (letrec ((_%loop209586209620%_ + (lambda (_%hd209584209624%_ + _%decl209590209627%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd208599208639%_)) - (let ((_%e208602208645%_ + _%hd209584209624%_)) + (let ((_%e209587209630%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd208599208639%_)))) - (let ((_%lp-hd208603208649%_ + (gx#syntax-e _%hd209584209624%_)))) + (let ((_%lp-hd209588209634%_ (let () (declare (not safe)) - (##car _%e208602208645%_))) - (_%lp-tl208604208652%_ + (##car _%e209587209630%_))) + (_%lp-tl209589209637%_ (let () (declare (not safe)) - (##cdr _%e208602208645%_)))) - (_%loop208601208635%_ - _%lp-tl208604208652%_ - (cons _%lp-hd208603208649%_ _%decl208605208642%_)))) - (let ((_%decl208606208655%_ (reverse _%decl208605208642%_))) - ((lambda (_%L208659%_) + (##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 ((__tmp209441 - (lambda (_%g208674208677%_ _%g208675208680%_) + (let ((__tmp210426 + (lambda (_%g209659209662%_ _%g209660209665%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g208674208677%_) - _%g208675208680%_)))) + _%g209659209662%_) + _%g209660209665%_)))) (declare (not safe)) - (__foldr1 __tmp209441 '() _%L208659%_)))) - _%decl208606208655%_)))))) + (__foldr1 __tmp210426 '() _%L209644%_)))) + _%decl209591209640%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop208601208635%_ - _%target208598208629%_ + (_%loop209586209620%_ + _%target209583209614%_ '())) - (_%g208592208612%_ - _%g208593208616%_))))) - (_%g208592208612%_ _%g208593208616%_)))) - (_%g208592208612%_ _%g208593208616%_))))) - (_%g208591208683%_ _%$stx208588%_)))))) + (_%g209577209597%_ + _%g209578209601%_))))) + (_%g209577209597%_ _%g209578209601%_)))) + (_%g209577209597%_ _%g209578209601%_))))) + (_%g209576209668%_ _%$stx209573%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index cb7d6cfb0..881d2b9d9 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -10,326 +10,326 @@ namespace: gerbil/core (:gerbil/core/mop) (0 MOP-3 0 MOP-3) (0 MOP-5 0 MOP-5) - (0 MOP-1 0 MOP-1) (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 defstruct 0 defstruct) + (0 defmethod 0 defmethod) (0 define-struct 0 define-struct) - (0 defclass 0 defclass) + (0 define-class 0 define-class) (0 @-set! 0 @-set!) (0 @ 0 @) - (0 defmethod 0 defmethod) - (0 define-class 0 define-class) - (0 :box 0 :box) - (0 :thread-group 0 :thread-group) - (0 :symbol 0 :symbol) - (0 :true 0 :true) - (0 :void 0 :void) - (0 :atom 0 :atom) - (0 :number 0 :number) - (0 :t 0 :t) + (0 defclass 0 defclass) + (0 defstruct 0 defstruct) + (0 :udp-port 0 :udp-port) (0 :eof 0 :eof) - (0 class 0 class) - (0 :f32vector 0 :f32vector) - (0 :ratnum 0 :ratnum) - (0 :pair 0 :pair) - (0 :u32vector 0 :u32vector) - (0 :list 0 :list) - (0 :hvector 0 :hvector) - (0 :null 0 :null) - (0 :u16vector 0 :u16vector) - (0 :string 0 :string) - (0 :s32vector 0 :s32vector) - (0 :frame 0 :frame) - (0 :port 0 :port) + (0 :class 0 :class) (0 :boolean 0 :boolean) - (0 :flonum 0 :flonum) - (0 :vector 0 :vector) - (0 :socket-info 0 :socket-info) + (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 :false 0 :false) + (0 :u64vector 0 :u64vector) + (0 :writeenv 0 :writeenv) (0 :mutex 0 :mutex) - (0 :vm 0 :vm) - (0 :thread 0 :thread) - (0 :continuation 0 :continuation) (0 :values 0 :values) - (0 :integer 0 :integer) + (0 :vector 0 :vector) + (0 :t 0 :t) + (0 :bignum 0 :bignum) + (0 :address-info 0 :address-info) + (0 :readenv 0 :readenv) + (0 :directory-port 0 :directory-port) + (0 :port 0 :port) (0 :weak 0 :weak) - (0 :u8vector 0 :u8vector) - (0 defsystem-class-info 0 defsystem-class-info) + (0 :s64vector 0 :s64vector) + (0 :raw-device-port 0 :raw-device-port) + (0 :object-port 0 :object-port) + (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 :f32vector 0 :f32vector) + (0 :flonum 0 :flonum) + (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 :s64vector 0 :s64vector) - (0 :s8vector 0 :s8vector) (0 :keyword 0 :keyword) - (0 :class 0 :class) - (0 :immediate 0 :immediate) - (0 :condvar 0 :condvar) - (0 :vector-port 0 :vector-port) - (0 :real 0 :real) + (0 :thread-group 0 :thread-group) + (0 :ratnum 0 :ratnum) + (0 :u32vector 0 :u32vector) + (0 :integer 0 :integer) + (0 :u8vector 0 :u8vector) + (0 :cpxnum 0 :cpxnum) + (0 :void 0 :void) (0 :char 0 :char) - (0 :object 0 :object) - (0 :udp-port 0 :udp-port) - (0 :address-info 0 :address-info) + (0 :hvector 0 :hvector) (0 :file-info 0 :file-info) - (0 :processor 0 :processor) (0 :tcp-server-port 0 :tcp-server-port) - (0 :raw-device-port 0 :raw-device-port) - (0 :promise 0 :promise) - (0 :writeenv 0 :writeenv) - (0 :device-port 0 :device-port) - (0 :cpxnum 0 :cpxnum) + (0 :s32vector 0 :s32vector) (0 :byte-port 0 :byte-port) - (0 :bignum 0 :bignum) - (0 :u64vector 0 :u64vector) - (0 :special 0 :special) - (0 :false 0 :false) - (0 :s16vector 0 :s16vector) - (0 :table 0 :table) - (0 :string-port 0 :string-port) + (0 :box 0 :box) + (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 :sequence 0 :sequence) - (0 :fixnum 0 :fixnum) (0 :readtable 0 :readtable) - (0 :readenv 0 :readenv) + (0 :thread 0 :thread) + (0 :true 0 :true) + (0 :s16vector 0 :s16vector) + (0 :number 0 :number) + (0 :symbol 0 :symbol) (0 :event-queue-port 0 :event-queue-port) - (0 :directory-port 0 :directory-port) - (0 :symbolic 0 :symbolic) (0 :u8vector-port 0 :u8vector-port) + (0 :real 0 :real) (0 :character-port 0 :character-port) - (0 :object-port 0 :object-port) - (0 :foreign 0 :foreign) + (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-accessors-set! 1 !class-type-accessors-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 !class-type-struct?-set! 1 !class-type-struct?-set!) - (1 !class-type-id-set! 1 !class-type-id-set!) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) - (1 !class-type-slots 1 !class-type-slots) - (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (1 !class-type-predicate 1 !class-type-predicate) - (1 !class-type-constructor-set! 1 !class-type-constructor-set!) + (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-precedence-list-set! + !class-type-unchecked-accessors 1 - &!class-type-precedence-list-set!) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (1 !class-type-system? 1 !class-type-system?) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (1 &!class-type-id-set! 1 &!class-type-id-set!) - (1 !class-type-super 1 !class-type-super) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 &!class-type-struct? 1 &!class-type-struct?) - (1 class-type-info::t 1 class-type-info::t) - (1 &!class-type-name 1 &!class-type-name) + !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-precedence-list 1 !class-type-precedence-list) - (1 - &!class-type-unchecked-accessors - 1 - &!class-type-unchecked-accessors) - (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 !class-type-struct? 1 !class-type-struct?) + (1 !class-type-id 1 !class-type-id) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (1 &!class-type-slot-contracts-set! 1 &!class-type-slot-contracts-set!) - (1 &!class-type-predicate 1 &!class-type-predicate) (1 - &!class-type-unchecked-mutators-set! + !class-type-unchecked-accessors-set! 1 - &!class-type-unchecked-mutators-set!) - (1 !class-type-system?-set! 1 !class-type-system?-set!) - (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + !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 + &!class-type-constructor-method-set! 1 - &!class-type-constructor-method) + &!class-type-constructor-method-set!) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 &!class-type-super 1 &!class-type-super) (1 - !class-type-constructor-method-set! + &!class-type-unchecked-mutators-set! 1 - !class-type-constructor-method-set!) - (1 &!class-type-id 1 &!class-type-id) - (1 !class-type-struct? 1 !class-type-struct?) - (1 !class-type-super-set! 1 !class-type-super-set!) + &!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-slot-types 1 &!class-type-slot-types) - (1 !class-type-descriptor 1 !class-type-descriptor) - (1 &!class-type-final? 1 &!class-type-final?) + (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-unchecked-mutators 1 &!class-type-unchecked-mutators) - (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (1 class-type-info? 1 class-type-info?) + (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-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-slots-set! 1 &!class-type-slots-set!) - (1 &!class-type-precedence-list 1 &!class-type-precedence-list) - (1 make-class-type-info 1 make-class-type-info) + (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-final? 1 !class-type-final?) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) (1 &!class-type-unchecked-accessors-set! 1 &!class-type-unchecked-accessors-set!) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (1 &!class-type-constructor 1 &!class-type-constructor) - (1 !class-type-metaclass 1 !class-type-metaclass) (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-name-set! 1 !class-type-name-set!) + &!class-type-ordered-slots-set!) (1 &!class-type-super-set! 1 &!class-type-super-set!) - (1 !class-type-slot-types 1 !class-type-slot-types) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) (1 - &!class-type-constructor-method-set! + &!class-type-unchecked-accessors 1 - &!class-type-constructor-method-set!) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + &!class-type-unchecked-accessors) + (1 &!class-type-descriptor 1 &!class-type-descriptor) (1 - class-type-info::apply-macro-expander + &!class-type-constructor-method 1 - class-type-info::apply-macro-expander) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 &!class-type-slots 1 &!class-type-slots) - (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (1 &!class-type-mutators 1 &!class-type-mutators) - (1 !class-type-mutators 1 !class-type-mutators) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) - (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (1 &!class-type-metaclass 1 &!class-type-metaclass) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 &!class-type-system? 1 &!class-type-system?) - (1 &!class-type-super 1 &!class-type-super) - (1 !class-type-final?-set! 1 !class-type-final?-set!) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + &!class-type-constructor-method) + (1 &!class-type-final? 1 &!class-type-final?) + (1 &!class-type-precedence-list 1 &!class-type-precedence-list) (1 - !class-type-unchecked-accessors + !class-type-slot-contracts-set! 1 - !class-type-unchecked-accessors) - (1 !class-type-accessors 1 !class-type-accessors) - (1 !class-type-name 1 !class-type-name) - (1 !class-type-id 1 !class-type-id) + !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-mutators-set! 1 !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-unchecked-accessors-set! - 1 - !class-type-unchecked-accessors-set!) - (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 !class-type-constructor 1 !class-type-constructor) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 - &!class-type-ordered-slots-set! + class-type-info::apply-macro-expander 1 - &!class-type-ordered-slots-set!) + class-type-info::apply-macro-expander) + (1 !class-type-super-set! 1 !class-type-super-set!) (1 class-type-info 1 class-type-info) - (1 defstruct 1 defstruct) + (1 defmethod 1 defmethod) (1 define-struct 1 define-struct) - (1 defclass 1 defclass) + (1 define-class 1 define-class) (1 @-set! 1 @-set!) (1 @ 1 @) - (1 defmethod 1 defmethod) - (1 define-class 1 define-class) - (1 :box 1 :box) - (1 :thread-group 1 :thread-group) - (1 :symbol 1 :symbol) - (1 :true 1 :true) - (1 :void 1 :void) - (1 :atom 1 :atom) - (1 :number 1 :number) - (1 :t 1 :t) + (1 defclass 1 defclass) + (1 defstruct 1 defstruct) + (1 :udp-port 1 :udp-port) (1 :eof 1 :eof) - (1 class 1 class) - (1 :f32vector 1 :f32vector) - (1 :ratnum 1 :ratnum) - (1 :pair 1 :pair) - (1 :u32vector 1 :u32vector) - (1 :list 1 :list) - (1 :hvector 1 :hvector) - (1 :null 1 :null) - (1 :u16vector 1 :u16vector) - (1 :string 1 :string) - (1 :s32vector 1 :s32vector) - (1 :frame 1 :frame) - (1 :port 1 :port) + (1 :class 1 :class) (1 :boolean 1 :boolean) - (1 :flonum 1 :flonum) - (1 :vector 1 :vector) - (1 :socket-info 1 :socket-info) + (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 :false 1 :false) + (1 :u64vector 1 :u64vector) + (1 :writeenv 1 :writeenv) (1 :mutex 1 :mutex) - (1 :vm 1 :vm) - (1 :thread 1 :thread) - (1 :continuation 1 :continuation) (1 :values 1 :values) - (1 :integer 1 :integer) + (1 :vector 1 :vector) + (1 :t 1 :t) + (1 :bignum 1 :bignum) + (1 :address-info 1 :address-info) + (1 :readenv 1 :readenv) + (1 :directory-port 1 :directory-port) + (1 :port 1 :port) (1 :weak 1 :weak) - (1 :u8vector 1 :u8vector) - (1 defsystem-class-info 1 defsystem-class-info) + (1 :s64vector 1 :s64vector) + (1 :raw-device-port 1 :raw-device-port) + (1 :object-port 1 :object-port) + (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 :f32vector 1 :f32vector) + (1 :flonum 1 :flonum) + (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 :s64vector 1 :s64vector) - (1 :s8vector 1 :s8vector) (1 :keyword 1 :keyword) - (1 :class 1 :class) - (1 :immediate 1 :immediate) - (1 :condvar 1 :condvar) - (1 :vector-port 1 :vector-port) - (1 :real 1 :real) + (1 :thread-group 1 :thread-group) + (1 :ratnum 1 :ratnum) + (1 :u32vector 1 :u32vector) + (1 :integer 1 :integer) + (1 :u8vector 1 :u8vector) + (1 :cpxnum 1 :cpxnum) + (1 :void 1 :void) (1 :char 1 :char) - (1 :object 1 :object) - (1 :udp-port 1 :udp-port) - (1 :address-info 1 :address-info) + (1 :hvector 1 :hvector) (1 :file-info 1 :file-info) - (1 :processor 1 :processor) (1 :tcp-server-port 1 :tcp-server-port) - (1 :raw-device-port 1 :raw-device-port) - (1 :promise 1 :promise) - (1 :writeenv 1 :writeenv) - (1 :device-port 1 :device-port) - (1 :cpxnum 1 :cpxnum) + (1 :s32vector 1 :s32vector) (1 :byte-port 1 :byte-port) - (1 :bignum 1 :bignum) - (1 :u64vector 1 :u64vector) - (1 :special 1 :special) - (1 :false 1 :false) - (1 :s16vector 1 :s16vector) - (1 :table 1 :table) - (1 :string-port 1 :string-port) + (1 :box 1 :box) + (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 :sequence 1 :sequence) - (1 :fixnum 1 :fixnum) (1 :readtable 1 :readtable) - (1 :readenv 1 :readenv) + (1 :thread 1 :thread) + (1 :true 1 :true) + (1 :s16vector 1 :s16vector) + (1 :number 1 :number) + (1 :symbol 1 :symbol) (1 :event-queue-port 1 :event-queue-port) - (1 :directory-port 1 :directory-port) - (1 :symbolic 1 :symbolic) (1 :u8vector-port 1 :u8vector-port) + (1 :real 1 :real) (1 :character-port 1 :character-port) - (1 :object-port 1 :object-port) - (1 :foreign 1 :foreign)) + (1 :string-port 1 :string-port) + (1 class 1 class)) :gerbil/core/match :gerbil/core/more-sugar :gerbil/core/contract @@ -339,326 +339,326 @@ namespace: gerbil/core (:gerbil/core/mop) (1 MOP-3 0 MOP-3) (1 MOP-5 0 MOP-5) - (1 MOP-1 0 MOP-1) (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 defstruct 0 defstruct) + (1 defmethod 0 defmethod) (1 define-struct 0 define-struct) - (1 defclass 0 defclass) + (1 define-class 0 define-class) (1 @-set! 0 @-set!) (1 @ 0 @) - (1 defmethod 0 defmethod) - (1 define-class 0 define-class) - (1 :box 0 :box) - (1 :thread-group 0 :thread-group) - (1 :symbol 0 :symbol) - (1 :true 0 :true) - (1 :void 0 :void) - (1 :atom 0 :atom) - (1 :number 0 :number) - (1 :t 0 :t) + (1 defclass 0 defclass) + (1 defstruct 0 defstruct) + (1 :udp-port 0 :udp-port) (1 :eof 0 :eof) - (1 class 0 class) - (1 :f32vector 0 :f32vector) - (1 :ratnum 0 :ratnum) - (1 :pair 0 :pair) - (1 :u32vector 0 :u32vector) - (1 :list 0 :list) - (1 :hvector 0 :hvector) - (1 :null 0 :null) - (1 :u16vector 0 :u16vector) - (1 :string 0 :string) - (1 :s32vector 0 :s32vector) - (1 :frame 0 :frame) - (1 :port 0 :port) + (1 :class 0 :class) (1 :boolean 0 :boolean) - (1 :flonum 0 :flonum) - (1 :vector 0 :vector) - (1 :socket-info 0 :socket-info) + (1 :immediate 0 :immediate) + (1 :fixnum 0 :fixnum) + (1 :atom 0 :atom) + (1 :frame 0 :frame) + (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 :thread 0 :thread) - (1 :continuation 0 :continuation) (1 :values 0 :values) - (1 :integer 0 :integer) + (1 :vector 0 :vector) + (1 :t 0 :t) + (1 :bignum 0 :bignum) + (1 :address-info 0 :address-info) + (1 :readenv 0 :readenv) + (1 :directory-port 0 :directory-port) + (1 :port 0 :port) (1 :weak 0 :weak) - (1 :u8vector 0 :u8vector) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :procedure 0 :procedure) - (1 :f64vector 0 :f64vector) (1 :s64vector 0 :s64vector) - (1 :s8vector 0 :s8vector) - (1 :keyword 0 :keyword) - (1 :class 0 :class) - (1 :immediate 0 :immediate) - (1 :condvar 0 :condvar) - (1 :vector-port 0 :vector-port) - (1 :real 0 :real) - (1 :char 0 :char) - (1 :object 0 :object) - (1 :udp-port 0 :udp-port) - (1 :address-info 0 :address-info) - (1 :file-info 0 :file-info) - (1 :processor 0 :processor) - (1 :tcp-server-port 0 :tcp-server-port) (1 :raw-device-port 0 :raw-device-port) + (1 :object-port 0 :object-port) (1 :promise 0 :promise) - (1 :writeenv 0 :writeenv) - (1 :device-port 0 :device-port) - (1 :cpxnum 0 :cpxnum) - (1 :byte-port 0 :byte-port) - (1 :bignum 0 :bignum) - (1 :u64vector 0 :u64vector) + (1 :foreign 0 :foreign) + (1 :null 0 :null) (1 :special 0 :special) - (1 :false 0 :false) - (1 :s16vector 0 :s16vector) + (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 :string-port 0 :string-port) + (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 :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 defsystem-class-info 0 defsystem-class-info) + (1 :symbolic 0 :symbolic) + (1 :s8vector 0 :s8vector) + (1 :pair 0 :pair) (1 :time 0 :time) - (1 :sequence 0 :sequence) - (1 :fixnum 0 :fixnum) (1 :readtable 0 :readtable) - (1 :readenv 0 :readenv) + (1 :thread 0 :thread) + (1 :true 0 :true) + (1 :s16vector 0 :s16vector) + (1 :number 0 :number) + (1 :symbol 0 :symbol) (1 :event-queue-port 0 :event-queue-port) - (1 :directory-port 0 :directory-port) - (1 :symbolic 0 :symbolic) (1 :u8vector-port 0 :u8vector-port) + (1 :real 0 :real) (1 :character-port 0 :character-port) - (1 :object-port 0 :object-port) - (1 :foreign 0 :foreign) + (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-accessors-set! 1 !class-type-accessors-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 !class-type-struct?-set! 1 !class-type-struct?-set!) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) - (2 !class-type-slots 1 !class-type-slots) - (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (2 !class-type-predicate 1 !class-type-predicate) - (2 !class-type-constructor-set! 1 !class-type-constructor-set!) + (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-precedence-list-set! + !class-type-unchecked-accessors 1 - &!class-type-precedence-list-set!) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (2 !class-type-system? 1 !class-type-system?) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 &!class-type-id-set! 1 &!class-type-id-set!) - (2 !class-type-super 1 !class-type-super) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 &!class-type-struct? 1 &!class-type-struct?) - (2 class-type-info::t 1 class-type-info::t) - (2 &!class-type-name 1 &!class-type-name) + !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-precedence-list 1 !class-type-precedence-list) - (2 - &!class-type-unchecked-accessors - 1 - &!class-type-unchecked-accessors) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 !class-type-struct? 1 !class-type-struct?) + (2 !class-type-id 1 !class-type-id) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (2 &!class-type-slot-contracts-set! 1 &!class-type-slot-contracts-set!) - (2 &!class-type-predicate 1 &!class-type-predicate) (2 - &!class-type-unchecked-mutators-set! + !class-type-unchecked-accessors-set! 1 - &!class-type-unchecked-mutators-set!) - (2 !class-type-system?-set! 1 !class-type-system?-set!) - (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + !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 + &!class-type-constructor-method-set! 1 - &!class-type-constructor-method) + &!class-type-constructor-method-set!) + (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 &!class-type-super 1 &!class-type-super) (2 - !class-type-constructor-method-set! + &!class-type-unchecked-mutators-set! 1 - !class-type-constructor-method-set!) - (2 &!class-type-id 1 &!class-type-id) - (2 !class-type-struct? 1 !class-type-struct?) - (2 !class-type-super-set! 1 !class-type-super-set!) + &!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-slot-types 1 &!class-type-slot-types) - (2 !class-type-descriptor 1 !class-type-descriptor) - (2 &!class-type-final? 1 &!class-type-final?) + (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-unchecked-mutators 1 &!class-type-unchecked-mutators) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (2 class-type-info? 1 class-type-info?) + (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-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-slots-set! 1 &!class-type-slots-set!) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) - (2 make-class-type-info 1 make-class-type-info) + (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-final? 1 !class-type-final?) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) (2 &!class-type-unchecked-accessors-set! 1 &!class-type-unchecked-accessors-set!) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 &!class-type-constructor 1 &!class-type-constructor) - (2 !class-type-metaclass 1 !class-type-metaclass) (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-name-set! 1 !class-type-name-set!) + &!class-type-ordered-slots-set!) (2 &!class-type-super-set! 1 &!class-type-super-set!) - (2 !class-type-slot-types 1 !class-type-slot-types) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) (2 - &!class-type-constructor-method-set! + &!class-type-unchecked-accessors 1 - &!class-type-constructor-method-set!) - (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + &!class-type-unchecked-accessors) + (2 &!class-type-descriptor 1 &!class-type-descriptor) (2 - class-type-info::apply-macro-expander + &!class-type-constructor-method 1 - class-type-info::apply-macro-expander) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 &!class-type-slots 1 &!class-type-slots) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (2 &!class-type-mutators 1 &!class-type-mutators) - (2 !class-type-mutators 1 !class-type-mutators) - (2 !class-type-mutators-set! 1 !class-type-mutators-set!) - (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (2 &!class-type-metaclass 1 &!class-type-metaclass) - (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 &!class-type-system? 1 &!class-type-system?) - (2 &!class-type-super 1 &!class-type-super) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + &!class-type-constructor-method) + (2 &!class-type-final? 1 &!class-type-final?) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) (2 - !class-type-unchecked-accessors + !class-type-slot-contracts-set! 1 - !class-type-unchecked-accessors) - (2 !class-type-accessors 1 !class-type-accessors) - (2 !class-type-name 1 !class-type-name) - (2 !class-type-id 1 !class-type-id) + !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-mutators-set! 1 !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-unchecked-accessors-set! - 1 - !class-type-unchecked-accessors-set!) - (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 !class-type-constructor 1 !class-type-constructor) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 - &!class-type-ordered-slots-set! + class-type-info::apply-macro-expander 1 - &!class-type-ordered-slots-set!) + class-type-info::apply-macro-expander) + (2 !class-type-super-set! 1 !class-type-super-set!) (2 class-type-info 1 class-type-info) - (2 defstruct 1 defstruct) + (2 defmethod 1 defmethod) (2 define-struct 1 define-struct) - (2 defclass 1 defclass) + (2 define-class 1 define-class) (2 @-set! 1 @-set!) (2 @ 1 @) - (2 defmethod 1 defmethod) - (2 define-class 1 define-class) - (2 :box 1 :box) - (2 :thread-group 1 :thread-group) - (2 :symbol 1 :symbol) - (2 :true 1 :true) - (2 :void 1 :void) - (2 :atom 1 :atom) - (2 :number 1 :number) - (2 :t 1 :t) + (2 defclass 1 defclass) + (2 defstruct 1 defstruct) + (2 :udp-port 1 :udp-port) (2 :eof 1 :eof) - (2 class 1 class) - (2 :f32vector 1 :f32vector) - (2 :ratnum 1 :ratnum) - (2 :pair 1 :pair) - (2 :u32vector 1 :u32vector) - (2 :list 1 :list) - (2 :hvector 1 :hvector) - (2 :null 1 :null) - (2 :u16vector 1 :u16vector) - (2 :string 1 :string) - (2 :s32vector 1 :s32vector) - (2 :frame 1 :frame) - (2 :port 1 :port) + (2 :class 1 :class) (2 :boolean 1 :boolean) - (2 :flonum 1 :flonum) - (2 :vector 1 :vector) - (2 :socket-info 1 :socket-info) + (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 :false 1 :false) + (2 :u64vector 1 :u64vector) + (2 :writeenv 1 :writeenv) (2 :mutex 1 :mutex) - (2 :vm 1 :vm) - (2 :thread 1 :thread) - (2 :continuation 1 :continuation) (2 :values 1 :values) - (2 :integer 1 :integer) + (2 :vector 1 :vector) + (2 :t 1 :t) + (2 :bignum 1 :bignum) + (2 :address-info 1 :address-info) + (2 :readenv 1 :readenv) + (2 :directory-port 1 :directory-port) + (2 :port 1 :port) (2 :weak 1 :weak) - (2 :u8vector 1 :u8vector) - (2 defsystem-class-info 1 defsystem-class-info) + (2 :s64vector 1 :s64vector) + (2 :raw-device-port 1 :raw-device-port) + (2 :object-port 1 :object-port) + (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 :f32vector 1 :f32vector) + (2 :flonum 1 :flonum) + (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 :s64vector 1 :s64vector) - (2 :s8vector 1 :s8vector) (2 :keyword 1 :keyword) - (2 :class 1 :class) - (2 :immediate 1 :immediate) - (2 :condvar 1 :condvar) - (2 :vector-port 1 :vector-port) - (2 :real 1 :real) + (2 :thread-group 1 :thread-group) + (2 :ratnum 1 :ratnum) + (2 :u32vector 1 :u32vector) + (2 :integer 1 :integer) + (2 :u8vector 1 :u8vector) + (2 :cpxnum 1 :cpxnum) + (2 :void 1 :void) (2 :char 1 :char) - (2 :object 1 :object) - (2 :udp-port 1 :udp-port) - (2 :address-info 1 :address-info) + (2 :hvector 1 :hvector) (2 :file-info 1 :file-info) - (2 :processor 1 :processor) (2 :tcp-server-port 1 :tcp-server-port) - (2 :raw-device-port 1 :raw-device-port) - (2 :promise 1 :promise) - (2 :writeenv 1 :writeenv) - (2 :device-port 1 :device-port) - (2 :cpxnum 1 :cpxnum) + (2 :s32vector 1 :s32vector) (2 :byte-port 1 :byte-port) - (2 :bignum 1 :bignum) - (2 :u64vector 1 :u64vector) - (2 :special 1 :special) - (2 :false 1 :false) - (2 :s16vector 1 :s16vector) - (2 :table 1 :table) - (2 :string-port 1 :string-port) + (2 :box 1 :box) + (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 :sequence 1 :sequence) - (2 :fixnum 1 :fixnum) (2 :readtable 1 :readtable) - (2 :readenv 1 :readenv) + (2 :thread 1 :thread) + (2 :true 1 :true) + (2 :s16vector 1 :s16vector) + (2 :number 1 :number) + (2 :symbol 1 :symbol) (2 :event-queue-port 1 :event-queue-port) - (2 :directory-port 1 :directory-port) - (2 :symbolic 1 :symbolic) (2 :u8vector-port 1 :u8vector-port) + (2 :real 1 :real) (2 :character-port 1 :character-port) - (2 :object-port 1 :object-port) - (2 :foreign 1 :foreign)) + (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) @@ -670,170 +670,204 @@ namespace: gerbil/core (%#export (spec: 1 !class-precedence-list !class-precedence-list) (spec: 1 type-env-var type-env-var) - (spec: 1 type-env type-env) - (spec: 1 type-env? type-env?) + (spec: 1 type-env-type-set! type-env-type-set!) + (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-type &type-env-type) - (spec: 1 type-env-lookup type-env-lookup) (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-var &type-env-var) - (spec: 1 &type-env-var-set! &type-env-var-set!) - (spec: 1 type-env-super-set! type-env-super-set!) - (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 1 make-type-env make-type-env) + (spec: 1 type-env-lookup type-env-lookup) (spec: 1 current-type-env current-type-env) - (spec: 1 type-env-type type-env-type) - (spec: 1 type-env::t type-env::t) - (spec: 1 &type-env-checked? &type-env-checked?) (spec: 1 &type-env-type-set! &type-env-type-set!) - (spec: 1 &type-env-super-set! &type-env-super-set!) - (spec: 1 &type-env-super &type-env-super) + (spec: 1 type-env type-env) (spec: 1 type-env-checked?-set! type-env-checked?-set!) - (spec: 1 type-env-type-set! type-env-type-set!) + (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-super &type-env-super) (spec: 1 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + interface-info-interface-methods + interface-info-interface-methods) (spec: 1 - &interface-info-interface-methods - &interface-info-interface-methods) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 1 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 1 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 1 interface-info interface-info) + &interface-info-interface-precedence-list-set! + &interface-info-interface-precedence-list-set!) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) - (spec: 1 interface-info::t interface-info::t) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 1 - interface-info-implementation-methods - interface-info-implementation-methods) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 1 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + interface-mixin->precedence-list + interface-mixin->precedence-list) (spec: 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 1 &interface-info-namespace &interface-info-namespace) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 1 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: 1 interface-info-namespace-set! interface-info-namespace-set!) (spec: 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) - (spec: 1 make-interface-info make-interface-info) - (spec: 1 interface-info? interface-info?) + &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-unchecked-implementation-methods interface-info-unchecked-implementation-methods) - (spec: 1 interface-info-name-set! interface-info-name-set!) (spec: 1 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-instance-predicate + interface-info-instance-predicate) + (spec: 1 interface-info-namespace interface-info-namespace) (spec: 1 - interface-info-instance-constructor - interface-info-instance-constructor) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) + (spec: 1 interface-info-name-set! interface-info-name-set!) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) + (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) - (spec: 1 interface-info-name interface-info-name) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 1 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) + (spec: 1 interface-info::t interface-info::t) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-interface-precedence-list + interface-info-interface-precedence-list) + (spec: 1 make-interface-info make-interface-info) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + 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::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-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) - (spec: 1 interface-info-instance-type interface-info-instance-type) + &interface-info-interface-precedence-list + &interface-info-interface-precedence-list) (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + interface-info-instance-type-set! + interface-info-instance-type-set!) + (spec: + 1 + &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 @@ -844,97 +878,94 @@ namespace: gerbil/core &interface-info-instance-constructor) (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-mixin - interface-info-interface-mixin) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + interface-identifier->precedence-list + interface-identifier->precedence-list) + (spec: 1 interface-info-name interface-info-name) (spec: 1 - &interface-info-instance-predicate - &interface-info-instance-predicate) + &interface-info-interface-mixin + &interface-info-interface-mixin) (spec: 1 is-signature? is-signature?) - (spec: 0 with-procedure-contract with-procedure-contract) - (spec: 0 defmutable* defmutable*) - (spec: 0 do-loop-result do-loop-result) - (spec: 0 do-while/c do-while/c) - (spec: 0 case-lambda/c case-lambda/c) - (spec: 0 let/c let/c) - (spec: 0 lambda/c lambda/c) - (spec: 0 defmethod/c defmethod/c) - (spec: 0 defstruct/c defstruct/c) (spec: 0 @method @method) - (spec: 0 do/c do/c) (spec: 0 do-loop-step do-loop-step) (spec: 0 defclass/c defclass/c) - (spec: 0 defmutable defmutable) - (spec: 0 with-receiver with-receiver) + (spec: 0 with-procedure-signature with-procedure-signature) (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 def/c def/c) - (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 1 check-valid-type! check-valid-type!) - (spec: 1 signature-keywords signature-keywords) - (spec: 1 signature-contract? signature-contract?) - (spec: 1 check-signature! check-signature!) + (spec: 0 case-lambda/c case-lambda/c) + (spec: 1 symbolidentifier resolve-type->identifier) - (spec: 1 type-reference? type-reference?) - (spec: 1 make-type-reference make-type-reference) + (spec: 1 type-reference-identifier type-reference-identifier) (spec: 1 - &type-reference-identifier-set! - &type-reference-identifier-set!) + type-reference-identifier-set! + type-reference-identifier-set!) + (spec: 1 type-reference type-reference) (spec: 1 type-identifier? type-identifier?) (spec: 1 resolve-type resolve-type) - (spec: 1 type-reference::t type-reference::t) - (spec: 1 type-reference-identifier type-reference-identifier) - (spec: 1 type-reference type-reference) + (spec: 1 resolve-type->identifier resolve-type->identifier) + (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) (spec: 1 - type-reference-identifier-set! - type-reference-identifier-set!) + &type-reference-identifier-set! + &type-reference-identifier-set!) (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-reference::t type-reference::t) (spec: 0 deftype deftype) - (spec: 0 InterfaceInfo InterfaceInfo) (spec: 0 TypeEnv TypeEnv) + (spec: 0 InterfaceInfo InterfaceInfo) (spec: 0 TypeReference TypeReference) (spec: 0 Using Using) - (spec: 0 TypeCast TypeCast) - (spec: 0 ClassMeta ClassMeta) (spec: 0 Interface Interface) - (spec: 0 ContractRules ContractRules) + (spec: 0 ClassMeta ClassMeta) (spec: 0 TypedDefinitions TypedDefinitions) - (spec: 0 require require) - (spec: 0 prefix-in prefix-in) - (spec: 0 only-in only-in) - (spec: 0 except-out except-out) - (spec: 0 group-in group-in) - (spec: 0 for-syntax for-syntax) - (spec: 0 prefix-out prefix-out) - (spec: 0 rename-in rename-in) - (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) - (spec: 0 rename-out rename-out) + (spec: 0 ContractRules ContractRules) + (spec: 0 TypeCast TypeCast) (spec: 0 struct-out struct-out) (spec: 0 for-template for-template) (spec: 0 except-in except-in) - (spec: 0 defsyntax-for-export defsyntax-for-export) + (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: 1 setq-macro-macro setq-macro-macro) - (spec: 1 setq-macro setq-macro) - (spec: 1 setf-macro? setf-macro?) - (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 1 setq-macro::t setq-macro::t) - (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) + (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 make-setf-macro make-setf-macro) - (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 1 &setq-macro-macro &setq-macro-macro) + (spec: 1 setq-macro setq-macro) (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 1 setf-macro setf-macro) + (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 expand-set! expand-set!) + (spec: 1 setq-macro::t setq-macro::t) + (spec: 1 setf-macro setf-macro) + (spec: 1 &setq-macro-macro &setq-macro-macro) + (spec: 1 make-setf-macro make-setf-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 setf-macro-macro) (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 make-setq-macro make-setq-macro) - (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 1 setf-macro-macro setf-macro-macro) + (spec: 1 setf-macro? setf-macro?) + (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 0 unwind-protect unwind-protect) + (spec: 0 eval-when-compile eval-when-compile) (spec: 0 parameterize parameterize) (spec: 0 values-set! values-set!) - (spec: 0 eval-when-compile eval-when-compile) - (spec: 0 @bytes @bytes) - (spec: 0 unwind-protect unwind-protect) (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?) (spec: 1 make-match-macro make-match-macro) (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) - (spec: 0 with* with*) - (spec: 0 with with) - (spec: 0 defrules-for-match defrules-for-match) - (spec: 0 ? ?) (spec: 0 match* match*) + (spec: 0 with* with*) (spec: 0 match match) (spec: 0 defsyntax-for-match defsyntax-for-match) - (spec: 0 :foreign :foreign) - (spec: 0 :object-port :object-port) + (spec: 0 with with) + (spec: 0 ? ?) + (spec: 0 defrules-for-match defrules-for-match) + (spec: 0 class class) + (spec: 0 :string-port :string-port) (spec: 0 :character-port :character-port) + (spec: 0 :real :real) (spec: 0 :u8vector-port :u8vector-port) - (spec: 0 :symbolic :symbolic) - (spec: 0 :directory-port :directory-port) (spec: 0 :event-queue-port :event-queue-port) - (spec: 0 :readenv :readenv) + (spec: 0 :symbol :symbol) + (spec: 0 :number :number) + (spec: 0 :s16vector :s16vector) + (spec: 0 :true :true) + (spec: 0 :thread :thread) (spec: 0 :readtable :readtable) - (spec: 0 :fixnum :fixnum) - (spec: 0 :sequence :sequence) (spec: 0 :time :time) - (spec: 0 :string-port :string-port) - (spec: 0 :table :table) - (spec: 0 :s16vector :s16vector) - (spec: 0 :false :false) - (spec: 0 :special :special) - (spec: 0 :u64vector :u64vector) - (spec: 0 :bignum :bignum) + (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 :byte-port :byte-port) - (spec: 0 :cpxnum :cpxnum) - (spec: 0 :device-port :device-port) - (spec: 0 :writeenv :writeenv) - (spec: 0 :promise :promise) - (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :s32vector :s32vector) (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :processor :processor) (spec: 0 :file-info :file-info) - (spec: 0 :address-info :address-info) - (spec: 0 :udp-port :udp-port) - (spec: 0 :object :object) + (spec: 0 :hvector :hvector) (spec: 0 :char :char) - (spec: 0 :real :real) - (spec: 0 :vector-port :vector-port) - (spec: 0 :condvar :condvar) - (spec: 0 :immediate :immediate) - (spec: 0 :class :class) - (spec: 0 :keyword :keyword) - (spec: 0 :s8vector :s8vector) - (spec: 0 :s64vector :s64vector) - (spec: 0 :f64vector :f64vector) - (spec: 0 :procedure :procedure) - (spec: 0 defsystem-class-info defsystem-class-info) + (spec: 0 :void :void) + (spec: 0 :cpxnum :cpxnum) (spec: 0 :u8vector :u8vector) - (spec: 0 :weak :weak) (spec: 0 :integer :integer) - (spec: 0 :values :values) - (spec: 0 :continuation :continuation) - (spec: 0 :thread :thread) + (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 :vector :vector) - (spec: 0 :flonum :flonum) - (spec: 0 :boolean :boolean) - (spec: 0 :port :port) - (spec: 0 :frame :frame) - (spec: 0 :s32vector :s32vector) + (spec: 0 :procedure :procedure) + (spec: 0 :sequence :sequence) (spec: 0 :string :string) - (spec: 0 :u16vector :u16vector) - (spec: 0 :null :null) - (spec: 0 :hvector :hvector) - (spec: 0 :list :list) - (spec: 0 :u32vector :u32vector) - (spec: 0 :pair :pair) - (spec: 0 :ratnum :ratnum) + (spec: 0 :flonum :flonum) (spec: 0 :f32vector :f32vector) - (spec: 0 class class) - (spec: 0 :eof :eof) + (spec: 0 :continuation :continuation) + (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 :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 :number :number) + (spec: 0 :vector :vector) + (spec: 0 :values :values) + (spec: 0 :mutex :mutex) + (spec: 0 :writeenv :writeenv) + (spec: 0 :u64vector :u64vector) + (spec: 0 :false :false) + (spec: 0 :processor :processor) + (spec: 0 :device-port :device-port) + (spec: 0 :frame :frame) (spec: 0 :atom :atom) - (spec: 0 :void :void) - (spec: 0 :true :true) - (spec: 0 :symbol :symbol) - (spec: 0 :thread-group :thread-group) - (spec: 0 :box :box) - (spec: 0 define-class define-class) + (spec: 0 :fixnum :fixnum) + (spec: 0 :immediate :immediate) + (spec: 0 :boolean :boolean) + (spec: 0 :class :class) + (spec: 0 :eof :eof) + (spec: 0 :udp-port :udp-port) (spec: 0 @ @) (spec: 0 @-set! @-set!) + (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-4 MOP-4) - (spec: 0 MOP-2 MOP-2) (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 definline definline) (spec: 0 defsyntax defsyntax) + (spec: 0 definline definline) (spec: 0 defconst defconst) - (spec: 0 begin0 begin0) - (spec: 0 @list @list) - (spec: 0 cut cut) (spec: 0 ~case-dispatch* ~case-dispatch*) - (spec: 0 alet alet) - (spec: 0 quasiquote quasiquote) - (spec: 0 ~case-dispatch ~case-dispatch) (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 0 rec rec) - (spec: 0 and-let* and-let*) - (spec: 0 <...> <...>) + (spec: 0 quasiquote quasiquote) (spec: 0 defvalues defvalues) - (spec: 0 case case) - (spec: 0 ~case ~case) (spec: 0 <> <>) - (spec: 0 ~case-test ~case-test) + (spec: 0 rec rec) (spec: 0 delay delay) + (spec: 0 <...> <...>) + (spec: 0 and-let* and-let*) + (spec: 0 ~case-test ~case-test) + (spec: 0 ~case-dispatch ~case-dispatch) + (spec: 0 begin0 begin0) (spec: 0 alet* alet*) - (spec: 0 define define) + (spec: 0 cut cut) + (spec: 0 alet alet) + (spec: 0 @list @list) + (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 letrec letrec) (spec: 0 defrules defrules) - (spec: 0 compilation-target? compilation-target?) - (spec: 0 letrec* letrec*) - (spec: 0 ~let ~let) (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 defsyntax% defsyntax%) - (spec: 0 or or) - (spec: 0 define-rules define-rules) - (spec: 0 defalias defalias) (spec: 0 unless unless) - (spec: 0 when when) - (spec: 0 let* let*) - (spec: 0 and and) - (spec: 0 let*-values let*-values) - (spec: 0 s16vector-ref-set! s16vector-ref-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 ~let ~let) + (spec: 0 letrec* letrec*) + (spec: 0 defsyntax% defsyntax%) + (spec: 0 compilation-target? compilation-target?) (spec: 0 f32vector-ref-set! f32vector-ref-set!) - (spec: 0 u64vector-ref-set! u64vector-ref-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) - (spec: 0 string-ref-set! string-ref-set!) + (spec: 0 box-set! box-set!) (spec: 0 u16vector-ref-set! u16vector-ref-set!) - (spec: 0 call/values call/values) + (spec: 0 random-bytes random-bytes) + (spec: 0 f64vector-ref-set! f64vector-ref-set!) (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 call/parameters call/parameters) - (spec: 0 car-set! car-set!) - (spec: 0 box-set! box-set!) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) (spec: 0 cdr-set! cdr-set!) + (spec: 0 car-set! car-set!) + (spec: 0 s16vector-ref-set! s16vector-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 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 random-source-make-bytes random-source-make-bytes) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) - (spec: 0 random-bytes random-bytes) - (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 replx replx) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 thread::t thread::t) - (spec: 0 hash-values hash-values) - (spec: 0 values-ref values-ref) - (spec: 0 u8vector::t u8vector::t) - (spec: 0 memf memf) - (spec: 0 next-method next-method) - (spec: 0 t::t t::t) - (spec: 0 error error) - (spec: 0 symbol::t symbol::t) - (spec: 0 exception? exception?) - (spec: 0 slot-set! slot-set!) - (spec: 0 hash-keys hash-keys) - (spec: 0 s32vector::t s32vector::t) - (spec: - 0 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 0 string-hash string-hash) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 make-object make-object) - (spec: 0 device-port? device-port?) - (spec: 0 gerbil-path gerbil-path) - (spec: 0 load-module load-module) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) - (spec: 0 keyword::t keyword::t) - (spec: 0 class-of class-of) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 call/values call/values) + (spec: 0 make-symbolic-table make-symbolic-table) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 make-keyword make-keyword) (spec: 0 fx<0? fx<0?) - (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 vector-port::t vector-port::t) - (spec: 0 character-port? character-port?) (spec: 0 cons* cons*) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 absent-value absent-value) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 make-symbol make-symbol) - (spec: 0 foldl foldl) - (spec: 0 hash-key? hash-key?) - (spec: 0 false::t false::t) - (spec: - 0 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 0 satisfies? satisfies?) - (spec: 0 string-empty? string-empty?) - (spec: 0 device-port::t device-port::t) - (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 0 character-port::t character-port::t) - (spec: 0 values->list values->list) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 condvar::t condvar::t) - (spec: 0 flonum::t flonum::t) - (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 object::t object::t) - (spec: 0 class-instance? class-instance?) - (spec: 0 displayln displayln) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 max-char-code max-char-code) - (spec: 0 f64vector::t f64vector::t) + (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 event-queue-port::t event-queue-port::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 interface-instance::t interface-instance::t) + (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 fx1- fx1-) - (spec: 0 class-type? class-type?) + (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 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 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 spawn/name spawn/name) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 char::t char::t) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 keyword-dispatch keyword-dispatch) (spec: 0 ratnum::t ratnum::t) - (spec: 0 class-type-final? class-type-final?) - (spec: 0 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 list-modules list-modules) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 HashTable::t HashTable::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 thread-local-set! thread-local-set!) - (spec: 0 values::t values::t) - (spec: 0 interface-instance-object interface-instance-object) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 udp-port::t udp-port::t) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 f32vector::t f32vector::t) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 error? error?) - (spec: 0 fx1+ fx1+) - (spec: 0 module-load-order module-load-order) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 remq remq) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 spawn/group spawn/group) - (spec: 0 class-type-id class-type-id) - (spec: 0 load-path load-path) - (spec: 0 with-lock with-lock) + (spec: 0 string->bytes string->bytes) + (spec: 0 bignum::t bignum::t) (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 HashTableLock::t HashTableLock::t) + (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 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 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 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 fxshift fxshift) - (spec: 0 hvector::t hvector::t) - (spec: 0 vector-port? vector-port?) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 c4-linearize c4-linearize) - (spec: 0 AST-e AST-e) - (spec: 0 method-ref method-ref) - (spec: 0 struct-instance-init! struct-instance-init!) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 filter-map filter-map) - (spec: 0 hash-merge! hash-merge!) - (spec: 0 readenv::t readenv::t) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 seal-class! seal-class!) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 directory-port? directory-port?) - (spec: 0 integer::t integer::t) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 immediate::t immediate::t) - (spec: 0 box::t box::t) + (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 bignum::t bignum::t) - (spec: 0 ormap ormap) - (spec: 0 gerbil-system gerbil-system) + (spec: 0 displayln displayln) + (spec: 0 string-join string-join) + (spec: 0 cast cast) + (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (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 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 unchecked-slot-ref unchecked-slot-ref) - (spec: 0 vm::t vm::t) - (spec: 0 error-object? error-object?) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 foldr foldr) - (spec: 0 struct-copy struct-copy) - (spec: 0 file-newer? file-newer?) + (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 hash-merge hash-merge) - (spec: 0 source-location-path source-location-path) - (spec: 0 continuation::t continuation::t) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: 0 string-index string-index) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 class-type-flags class-type-flags) - (spec: 0 keyword-rest keyword-rest) - (spec: 0 list::t list::t) - (spec: 0 readenv? readenv?) - (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 pgetq pgetq) - (spec: 0 fx>0? fx>0?) - (spec: 0 port::t port::t) - (spec: 0 udp-port? udp-port?) - (spec: 0 absent-obj absent-obj) - (spec: 0 struct->list struct->list) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 hash-map hash-map) - (spec: 0 agetq agetq) - (spec: 0 file-info::t file-info::t) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 special? special?) - (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 &class-type-properties &class-type-properties) - (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 pgetv pgetv) - (spec: 0 boolean::t boolean::t) + (spec: 0 bind-specializer! bind-specializer!) (spec: 0 fx=0? fx=0?) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 vector::t vector::t) - (spec: 0 bytes->string bytes->string) - (spec: 0 time::t time::t) - (spec: 0 special::t special::t) - (spec: 0 raise raise) - (spec: 0 string::t string::t) - (spec: 0 as-string as-string) - (spec: 0 table::t table::t) - (spec: 0 hash-length hash-length) - (spec: 0 agetv agetv) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 constructor-init! constructor-init!) - (spec: 0 dssl-object? dssl-object?) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 call-next-method call-next-method) + (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 read-syntax read-syntax) - (spec: 0 class-type-constructor class-type-constructor) + (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 move-file move-file) - (spec: 0 symbolic? symbolic?) - (spec: 0 hash-copy hash-copy) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 true::t true::t) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 vm? vm?) - (spec: 0 remv remv) - (spec: 0 make-keyword make-keyword) - (spec: 0 display-build-manifest display-build-manifest) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 writenv? writenv?) - (spec: 0 number::t number::t) - (spec: 0 foreign::t foreign::t) + (spec: 0 class-type-properties class-type-properties) (spec: 0 real::t real::t) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: 0 source-location-path? source-location-path?) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 sequence::t sequence::t) - (spec: 0 string-port? string-port?) - (spec: 0 call-method call-method) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 &class-type-super &class-type-super) - (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 return::t return::t) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 hash-clear! hash-clear!) + (spec: 0 struct-instance? struct-instance?) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 symbolic-table-delete! symbolic-table-delete!) + (spec: 0 class-type-fields class-type-fields) + (spec: 0 foldl foldl) + (spec: 0 hash-merge hash-merge) + (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 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 u32vector::t u32vector::t) - (spec: 0 true true) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 display-as-string display-as-string) - (spec: 0 make-syntax-error make-syntax-error) - (spec: 0 thread-group::t thread-group::t) + (spec: 0 type-of type-of) + (spec: 0 &class-type-slot-table &class-type-slot-table) + (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 object-port::t object-port::t) - (spec: 0 make-AST make-AST) - (spec: 0 string-port::t string-port::t) - (spec: 0 dump-stack-trace? dump-stack-trace?) + (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 class-type-metaclass? class-type-metaclass?) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 hash->plist hash->plist) + (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 raise raise) + (spec: 0 box::t box::t) + (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 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 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 u16vector::t u16vector::t) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 make-instance make-instance) - (spec: 0 AST-source AST-source) - (spec: 0 eof-object eof-object) - (spec: 0 hash-ref hash-ref) - (spec: 0 readtable::t readtable::t) + (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 datum-parsing-exception-filepos datum-parsing-exception-filepos) - (spec: 0 socket-info::t socket-info::t) - (spec: 0 string-join string-join) - (spec: 0 display* display*) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 &class-type-fields &class-type-fields) - (spec: 0 1- 1-) - (spec: 0 symbolic-table-set! symbolic-table-set!) - (spec: 0 hash->list hash->list) - (spec: 0 build-manifest build-manifest) - (spec: 0 hvector? hvector?) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 void::t void::t) - (spec: 0 subclass? subclass?) - (spec: 0 AST? AST?) - (spec: 0 struct-instance? struct-instance?) - (spec: 0 assget assget) - (spec: 0 tcp-server-port? tcp-server-port?) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 hash-put! hash-put!) - (spec: 0 source-location? source-location?) - (spec: 0 make-class-type make-class-type) - (spec: 0 sequence? sequence?) - (spec: 0 false false) - (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 cast cast) - (spec: 0 remove1 remove1) - (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: 0 read-u8vector read-u8vector) - (spec: 0 mutex::t mutex::t) - (spec: 0 try-cast try-cast) - (spec: 0 bind-method! bind-method!) - (spec: 0 hash-table? hash-table?) - (spec: 0 class->list class->list) - (spec: 0 weak::t weak::t) + (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 class-instance? class-instance?) + (spec: 0 weak? weak?) (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 string-split string-split) - (spec: 0 error-trace error-trace) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 fx/ fx/) - (spec: 0 type-of type-of) - (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 class-type-system? class-type-system?) + (spec: 0 with-exception-handler with-exception-handler) (spec: 0 object-port? object-port?) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 hash-fold hash-fold) - (spec: 0 reload-module! reload-module!) - (spec: 0 string->bytes string->bytes) - (spec: 0 eq-hash eq-hash) - (spec: 0 values-count values-count) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 pget pget) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 object? object?) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 promise::t promise::t) - (spec: 0 with-catch with-catch) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 aget aget) - (spec: 0 error-message error-message) - (spec: 0 new-instance new-instance) - (spec: 0 substruct? substruct?) - (spec: 0 class::t class::t) - (spec: 0 s16vector::t s16vector::t) - (spec: 0 create-directory* create-directory*) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) - (spec: 0 eof::t eof::t) + (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 processor::t processor::t) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (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 list->hash-table list->hash-table) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 andmap andmap) - (spec: 0 find-method find-method) - (spec: 0 u8vector-port? u8vector-port?) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 make-promise make-promise) - (spec: 0 void? void?) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 error-irritants error-irritants) - (spec: 0 object-fill! object-fill!) - (spec: 0 assgetq assgetq) + (spec: 0 foldr foldr) + (spec: 0 make-hash-table-immediate make-hash-table-immediate) (spec: 0 thread-local-ref thread-local-ref) - (spec: 0 class-type-super class-type-super) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) + (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 display-exception display-exception) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 class-type-name class-type-name) - (spec: 0 procedure::t procedure::t) - (spec: 0 read-syntax-from-file read-syntax-from-file) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 find find) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 pair::t pair::t) - (spec: 0 true? true?) - (spec: 0 checked-method-ref checked-method-ref) - (spec: 0 weak? weak?) - (spec: 0 byte-port? byte-port?) - (spec: - 0 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 frame::t frame::t) - (spec: 0 object-type object-type) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 remf remf) - (spec: 0 class-type=? class-type=?) - (spec: 0 atom::t atom::t) + (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 hash-find hash-find) - (spec: 0 slot-ref slot-ref) - (spec: 0 string-rindex string-rindex) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 file-mode file-mode) + (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 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 read-file-string read-file-string) - (spec: 0 file-info-group file-info-group) - (spec: 0 u8vector-swap! u8vector-swap!) - (spec: 0 flabs flabs) - (spec: 0 tanh tanh) - (spec: 0 readtable? readtable?) - (spec: 0 fixnum->flonum fixnum->flonum) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 string-concatenate string-concatenate) - (spec: 0 touch touch) - (spec: 0 host-info-name host-info-name) - (spec: 0 atanh atanh) - (spec: 0 concatenate concatenate) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 f64vector f64vector) - (spec: 0 group-info? group-info?) - (spec: 0 second second) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 u16vector-concatenate u16vector-concatenate) + 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 f32vector f32vector) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 mutex-lock! mutex-lock!) + (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 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 u8vector->object u8vector->object) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 user-info-name user-info-name) - (spec: 0 fxnand fxnand) - (spec: 0 char-set-size char-set-size) - (spec: 0 link-incremental link-incremental) + 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 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 fxandc1 fxandc1) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 s16vector? s16vector?) + 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 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 error error) - (spec: 0 gensym gensym) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 0 table->list table->list) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) (spec: 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 fl= fl=) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 open-input-vector open-input-vector) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 fltan fltan) + 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 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 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 0 object->u8vector object->u8vector) - (spec: 0 flnumerator flnumerator) - (spec: 0 fourth fourth) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 thread-specific thread-specific) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 0 file-last-modification-time file-last-modification-time) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 file-info-device file-info-device) - (spec: 0 random-source? random-source?) - (spec: 0 u8vector-shrink! u8vector-shrink!) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 fl>= fl>=) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 0 uninterned-symbol? uninterned-symbol?) - (spec: 0 null-list? null-list?) - (spec: 0 s64vector? s64vector?) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 subs16vector-fill! subs16vector-fill!) + 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 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 group-info-name group-info-name) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 cosh cosh) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 thread-priority thread-priority) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 cons* cons*) - (spec: 0 f64vector-append f64vector-append) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 split-at! split-at!) - (spec: 0 thread-join! thread-join!) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 string->char-set string->char-set) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 user-info-home user-info-home) - (spec: 0 fxand fxand) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 pretty-print pretty-print) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 0 flonum? flonum?) + (spec: 0 subvector subvector) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) + 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 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 open-output-process open-output-process) + 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 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 0 flfinite? flfinite?) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) + 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 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 foreign? foreign?) - (spec: 0 s16vector->list s16vector->list) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 thread-state thread-state) - (spec: 0 fltruncate fltruncate) - (spec: 0 subu16vector subu16vector) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 first-set-bit first-set-bit) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 input-port-line input-port-line) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 file-last-change-time file-last-change-time) - (spec: 0 u8vector-set! u8vector-set!) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 delete! delete!) - (spec: 0 flexpm1 flexpm1) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 0 thread-base-priority thread-base-priority) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 0 take-right take-right) - (spec: 0 uninterned-keyword? uninterned-keyword?) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 0 s64vector-ref s64vector-ref) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 compilation-target compilation-target) - (spec: 0 f32vector? f32vector?) - (spec: 0 make-will make-will) - (spec: 0 protocol-info-number protocol-info-number) - (spec: 0 subs16vector subs16vector) - (spec: 0 bit-field bit-field) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 make-root-thread make-root-thread) - (spec: 0 process-times process-times) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 script-file script-file) - (spec: 0 file-info-creation-time file-info-creation-time) + 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 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 0 string-swap! string-swap!) - (spec: 0 u16vector->list u16vector->list) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 split-at split-at) - (spec: 0 u32vector u32vector) - (spec: 0 char-set-map char-set-map) - (spec: 0 u8vector u8vector) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 time->seconds time->seconds) + 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 list->f32vector list->f32vector) - (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 fxmin fxmin) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 group-info-members group-info-members) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 vector-fold vector-fold) - (spec: 0 vector-unfold vector-unfold) - (spec: 0 with-output-to-process with-output-to-process) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 fl< fl<) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + 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 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 display-procedure-environment display-procedure-environment) - (spec: 0 write-file-string-list write-file-string-list) - (spec: 0 flsqrt flsqrt) + 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 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) + 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 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 flnan? flnan?) - (spec: 0 rename-file rename-file) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) (spec: 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 0 output-port-line output-port-line) - (spec: 0 fxabs fxabs) - (spec: 0 thread-send thread-send) + 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 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 subu32vector subu32vector) - (spec: 0 u64vector->list u64vector->list) + 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 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) - (spec: 0 first first) - (spec: 0 current-directory current-directory) - (spec: 0 u8vector-set u8vector-set) - (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 flexp flexp) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 trace trace) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 u32vector-concatenate u32vector-concatenate) + 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 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 circular-list? circular-list?) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 process-status process-status) - (spec: 0 seconds->time seconds->time) - (spec: 0 host-info host-info) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 copy-file copy-file) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 string-suffix? string-suffix?) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 conjugate conjugate) - (spec: 0 open-vector open-vector) - (spec: 0 thread-init! thread-init!) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 list-sort list-sort) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 timeout->time timeout->time) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 char-set-count char-set-count) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 u16vector-copy u16vector-copy) - (spec: 0 user-info user-info) - (spec: 0 fxmax fxmax) - (spec: 0 vector-swap! vector-swap!) - (spec: 0 write-file-string write-file-string) - (spec: 0 tty? tty?) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 with-output-to-port with-output-to-port) - (spec: 0 group-info-gid group-info-gid) + 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 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 0 fl> fl>) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) + 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 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 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 fltanh fltanh) + 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 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 remq remq) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 output-port-column output-port-column) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 fx>= fx>=) + 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 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 file-size file-size) - (spec: 0 network-info-name network-info-name) + 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 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 random-u8vector random-u8vector) + 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 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 mutex-state mutex-state) - (spec: 0 flasin flasin) - (spec: 0 call-with-input-process call-with-input-process) + 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 table-length table-length) - (spec: - 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 make-table make-table) - (spec: 0 u32vector-fill! u32vector-fill!) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 ->char-set ->char-set) - (spec: 0 file-device file-device) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 shell-command shell-command) - (spec: 0 bit-set? bit-set?) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 seventh seventh) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 subu64vector subu64vector) - (spec: 0 error-exception? error-exception?) - (spec: 0 char-set-union! char-set-union!) - (spec: 0 fxodd? fxodd?) + (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 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 user-name user-name) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 write-substring write-substring) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 poll-point poll-point) - (spec: 0 s32vector s32vector) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 every every) - (spec: 0 fxxor fxxor) - (spec: 0 s8vector? s8vector?) - (spec: 0 unbox unbox) - (spec: 0 flonum? flonum?) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 flfloor flfloor) - (spec: 0 iota iota) - (spec: 0 sixth sixth) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) + 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 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 char-set->list char-set->list) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 s16vector-append s16vector-append) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 read-all read-all) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 dead-end dead-end) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 range-exception-arg-id range-exception-arg-id) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) (spec: 0 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 0 box? box?) - (spec: 0 current-processor current-processor) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + 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 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 0 table-ref table-ref) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) + 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 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 u64vector? u64vector?) + (spec: 0 read-file-string read-file-string) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + input-port-characters-buffered + input-port-characters-buffered) (spec: 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 processor? processor?) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 will? will?) + 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 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 make-mutex make-mutex) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 u16vector-set u16vector-set) + 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 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 random-integer random-integer) - (spec: 0 subu8vector subu8vector) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 thread-name thread-name) - (spec: 0 xcons xcons) - (spec: 0 fxnot fxnot) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 char-set-union char-set-union) - (spec: 0 output-port-width output-port-width) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 user-info? user-info?) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 append-reverse append-reverse) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 keyword->string keyword->string) - (spec: 0 open-directory open-directory) - (spec: 0 flinfinite? flinfinite?) + 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 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 0 os-exception-arguments os-exception-arguments) + 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 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) + 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 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 char-set char-set) - (spec: 0 open-output-vector open-output-vector) - (spec: 0 fold-right fold-right) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 file-owner file-owner) - (spec: 0 network-info network-info) - (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 0 box box) - (spec: 0 mutex-specific mutex-specific) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 flacosh flacosh) + 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 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) (spec: 0 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) + 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 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 0 read-file-u8vector read-file-u8vector) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 f32vector-append f32vector-append) - (spec: 0 host-name host-name) - (spec: 0 processor-id processor-id) - (spec: 0 subs32vector-fill! subs32vector-fill!) - (spec: 0 u32vector-copy u32vector-copy) - (spec: 0 will-testator will-testator) - (spec: 0 executable-path executable-path) - (spec: 0 u16vector-copy! u16vector-copy!) + 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 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 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 bitwise-nand bitwise-nand) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 file-attributes file-attributes) + 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 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 user-info-uid user-info-uid) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 fxnor fxnor) - (spec: 0 s32vector? s32vector?) - (spec: 0 void void) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 list-sort! list-sort!) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 output-port-timeout-set! output-port-timeout-set!) + 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 char-set-every char-set-every) + (spec: 0 protocol-info-name protocol-info-name) (spec: 0 started-thread-exception? started-thread-exception?) - (spec: 0 any any) - (spec: 0 list->s64vector list->s64vector) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 acosh acosh) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 path-volume path-volume) - (spec: 0 table-for-each table-for-each) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 foreign-address foreign-address) + (spec: 0 readtable? readtable?) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 0 flodd? flodd?) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 call/cc call/cc) - (spec: 0 real-time real-time) - (spec: 0 flexpt flexpt) + 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 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) + 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 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 s16vector s16vector) - (spec: 0 thread-start! thread-start!) - (spec: 0 vector->bits vector->bits) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 fold fold) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 file-number-of-links file-number-of-links) + 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 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 mutex-name mutex-name) - (spec: 0 u8vector? u8vector?) - (spec: 0 flacos flacos) - (spec: 0 table-merge table-merge) + 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 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + 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 - readtable-max-write-length-set - readtable-max-write-length-set) + 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 + 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 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 read-substring read-substring) - (spec: 0 will-execute! will-execute!) - (spec: 0 host-info? host-info?) - (spec: 0 concatenate! concatenate!) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 make-thread make-thread) - (spec: 0 setenv setenv) - (spec: 0 string-contains string-contains) - (spec: 0 u32vector-length u32vector-length) - (spec: 0 subs32vector subs32vector) - (spec: 0 fifth fifth) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 raise raise) - (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 u8vector-append u8vector-append) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 console-port console-port) - (spec: 0 subs64vector subs64vector) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 list->table list->table) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 s64vector s64vector) - (spec: 0 char-set-delete! char-set-delete!) - (spec: 0 fxandc2 fxandc2) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 string->keyword string->keyword) - (spec: 0 thread-suspend! thread-suspend!) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 subs16vector-fill! subs16vector-fill!) + (spec: 0 u16vector-shrink! u16vector-shrink!) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 vector-inc! vector-inc!) - (spec: 0 type-exception-arguments type-exception-arguments) + 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 address-info-family address-info-family) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 unbreak unbreak) + (spec: 0 f64vector-set! f64vector-set!) + (spec: 0 help-browser help-browser) + (spec: 0 write-substring write-substring) (spec: 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 0 link-flat link-flat) - (spec: 0 table-copy table-copy) - (spec: 0 car+cdr car+cdr) - (spec: 0 directory-files directory-files) - (spec: 0 flhypot flhypot) + 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 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 0 thread-group->thread-list thread-group->thread-list) + 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 test-bit-field? test-bit-field?) - (spec: 0 length+ length+) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 bitwise-merge bitwise-merge) + (spec: 0 current-exception-handler current-exception-handler) (spec: 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 s16vector-concatenate s16vector-concatenate) - (spec: 0 flzero? flzero?) - (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 bits->vector bits->vector) - (spec: 0 current-readtable current-readtable) - (spec: 0 file-info-size file-info-size) - (spec: 0 range-exception-arguments range-exception-arguments) + 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 keyword-expected-exception? keyword-expected-exception?) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 0 table-search table-search) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 0 flceiling flceiling) + 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 invalid-hash-number-exception? invalid-hash-number-exception?) - (spec: 0 system-stamp system-stamp) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 service-info service-info) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 subf32vector subf32vector) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 type-exception? type-exception?) - (spec: - 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 help-browser help-browser) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 subu8vector-fill! subu8vector-fill!) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 random-real random-real) + (spec: 0 car+cdr car+cdr) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 bitwise-xor bitwise-xor) + 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 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 subs8vector subs8vector) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 path-directory path-directory) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 fxquotient fxquotient) - (spec: 0 s16vector-fill! s16vector-fill!) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 fxeven? fxeven?) - (spec: 0 char-set-filter! char-set-filter!) + 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 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 getenv getenv) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 fixnum? fixnum?) - (spec: 0 third third) - (spec: 0 open-dummy open-dummy) - (spec: 0 repl-result-history-ref repl-result-history-ref) + thread-group->thread-group-vector + thread-group->thread-group-vector) (spec: 0 keyword-hash keyword-hash) - (spec: 0 drop drop) - (spec: - 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 flinteger? flinteger?) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) + 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 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (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 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 fx- fx-) - (spec: 0 char-set-any char-set-any) - (spec: 0 open-tcp-client open-tcp-client) - (spec: 0 bits->list bits->list) - (spec: 0 continuation-return continuation-return) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 socket-info? socket-info?) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 input-port-char-position input-port-char-position) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 current-time current-time) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 uncaught-exception? uncaught-exception?) - (spec: 0 call-with-input-vector call-with-input-vector) + 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 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 0 flatanh flatanh) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 system-version system-version) + 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 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 proper-list? proper-list?) - (spec: 0 f32vector-set! f32vector-set!) - (spec: 0 identity identity) - (spec: 0 make-random-source make-random-source) - (spec: 0 string-set string-set) - (spec: 0 u16vector? u16vector?) - (spec: 0 help help) - (spec: 0 u64vector-set! u64vector-set!) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 create-fifo create-fifo) + 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 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) - (spec: 0 module-search-order-reset! module-search-order-reset!) - (spec: 0 random-source-make-integers random-source-make-integers) + 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 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 force-output force-output) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 list->bits list->bits) - (spec: 0 char-set-filter char-set-filter) + 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 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 fxeqv fxeqv) - (spec: 0 s8vector-copy! s8vector-copy!) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: + 0 + 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 vector-cas! vector-cas!) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 fl+* fl+*) - (spec: 0 dotted-list? dotted-list?) + (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 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 flscalbn flscalbn) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) + 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 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 fllog1p fllog1p) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 os-exception? os-exception?) - (spec: 0 fx+ fx+) - (spec: 0 reverse! reverse!) - (spec: 0 last-pair last-pair) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 bits bits) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 network-info? network-info?) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 mutex? mutex?) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 break break) - (spec: 0 table-merge! table-merge!) - (spec: 0 compile-file compile-file) - (spec: 0 flatan flatan) - (spec: 0 readtable-max-write-level readtable-max-write-level) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) (spec: 0 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) - (spec: 0 fl* fl*) - (spec: 0 read-subu8vector read-subu8vector) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 flfloor flfloor) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 address-info-protocol address-info-protocol) - (spec: 0 make-thread-group make-thread-group) - (spec: 0 f32vector-fill! f32vector-fill!) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 println println) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 arithmetic-shift arithmetic-shift) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 u64vector-set u64vector-set) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 cpu-time cpu-time) - (spec: 0 f64vector-ref f64vector-ref) + 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 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 fxorc2 fxorc2) + 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 s32vector-append s32vector-append) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 s16vector-copy s16vector-copy) - (spec: 0 char-set-every char-set-every) - (spec: 0 get-output-u8vector get-output-u8vector) + (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 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 s8vector s8vector) - (spec: 0 append! append!) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 list= list=) - (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) + 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 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 flilogb flilogb) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 fx* fx*) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 last last) - (spec: 0 open-string open-string) - (spec: 0 socket-info-family socket-info-family) + 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 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 0 bit-swap bit-swap) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 network-info-number network-info-number) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 file-type file-type) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 input-port-byte-position input-port-byte-position) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 file-info-mode file-info-mode) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: + 0 + 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-sharing-allowed?-set readtable-sharing-allowed?-set) - (spec: 0 table-set! table-set!) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 flasinh flasinh) - (spec: 0 call-with-input-string call-with-input-string) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) + (spec: 0 flexpt flexpt) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 system-type system-type) - (spec: 0 address-info? address-info?) - (spec: 0 fxzero? fxzero?) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 service-info-aliases service-info-aliases) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 print print) + 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 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 asinh asinh) - (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 bitwise-orc1 bitwise-orc1) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 subs8vector-fill! subs8vector-fill!) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 partition partition) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 fxorc1 fxorc1) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 thread? thread?) - (spec: 0 s16vector-length s16vector-length) - (spec: 0 vector-any vector-any) - (spec: 0 fxbit-count fxbit-count) - (spec: 0 char-set-difference! char-set-difference!) + 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 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 tty-history tty-history) - (spec: 0 s8vector-concatenate s8vector-concatenate) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 s64vector-copy s64vector-copy) - (spec: 0 flpositive? flpositive?) - (spec: 0 open-event-queue open-event-queue) - (spec: 0 repl-input-port repl-input-port) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) + 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 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) + 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 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 os-exception-message os-exception-message) + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 char-set->string char-set->string) - (spec: 0 open-process open-process) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (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 thread-group-parent thread-group-parent) + (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 substring-fill! substring-fill!) + (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 continuation? continuation?) - (spec: - 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 ninth ninth) - (spec: 0 u8vector-ref u8vector-ref) + (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 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) + 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 - uninitialized-thread-exception? - uninitialized-thread-exception?) + 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 - current-user-interrupt-handler - current-user-interrupt-handler) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 fleven? fleven?) - (spec: 0 take take) + 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 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 s64vector-length s64vector-length) + 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 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 random-source-make-reals random-source-make-reals) - (spec: 0 file-info file-info) - (spec: 0 subvector-move! subvector-move!) - (spec: 0 create-link create-link) - (spec: 0 u64vector u64vector) - (spec: 0 eighth eighth) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 open-udp open-udp) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 fxwrap+ fxwrap+) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 path-normalize path-normalize) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 vector-every vector-every) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 char-set-intersection char-set-intersection) - (spec: 0 fxlength fxlength) - (spec: 0 list->char-set list->char-set) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 group-info group-info) - (spec: 0 circular-list circular-list) - (spec: 0 s8vector-fill! s8vector-fill!) - (spec: 0 pp pp) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 fl- fl-) - (spec: 0 delete delete) + 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 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 0 flsin flsin) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 flmax flmax) + 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 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 0 remove! remove!) - (spec: 0 thread-receive thread-receive) - (spec: 0 fx> fx>) - (spec: 0 char-set-copy char-set-copy) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 f64vector? f64vector?) - (spec: 0 subu16vector-fill! subu16vector-fill!) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 udp-read-u8vector udp-read-u8vector) - (spec: 0 file-inode file-inode) - (spec: 0 delete-directory delete-directory) - (spec: 0 not-pair? not-pair?) - (spec: 0 fldenominator fldenominator) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) (spec: 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) + 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 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) - (spec: 0 defer-user-interrupts defer-user-interrupts) + 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 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 char-set? char-set?) - (spec: 0 protocol-info protocol-info) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 set-box! set-box!) - (spec: 0 subf64vector subf64vector) - (spec: 0 u16vector-append u16vector-append) + 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 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 0 process-pid process-pid) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 command-name command-name) - (spec: 0 copy-bit copy-bit) - (spec: 0 file-group file-group) - (spec: 0 random-source-randomize! random-source-randomize!) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 time? time?) - (spec: 0 path-extension path-extension) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 list-set list-set) - (spec: 0 step step) - (spec: 0 err-code->string err-code->string) - (spec: 0 fxior fxior) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 fl<= fl<=) - (spec: 0 integer-sqrt integer-sqrt) - (spec: 0 readtable-comment-handler readtable-comment-handler) - (spec: 0 system-version-string system-version-string) + 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 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 remove remove) - (spec: 0 flnegative? flnegative?) + 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 fleven? fleven?) + (spec: 0 list->s64vector list->s64vector) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 fxwrap+ fxwrap+) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 0 object->string object->string) - (spec: 0 display-exception-in-context display-exception-in-context) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 fx= fx=) - (spec: 0 tenth tenth) - (spec: 0 thread-sleep! thread-sleep!) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 thread-group? thread-group?) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 f64vector-swap! f64vector-swap!) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 filter! filter!) - (spec: 0 current-thread current-thread) - (spec: 0 file-info? file-info?) - (spec: 0 range-exception? range-exception?) + 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 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 table? table?) - (spec: 0 flcosh flcosh) - (spec: 0 readtable-start-syntax readtable-start-syntax) + 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 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 address-infos address-infos) - (spec: 0 char-set= char-set=) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 service-info-name service-info-name) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 condition-variable? condition-variable?) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 string-suffix-ci? string-suffix-ci?) + 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 + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 s64vector-append s64vector-append) + (spec: + 0 + 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 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 u64vector? u64vector?) + 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 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 create-directory create-directory) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 0 subvector subvector) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 foreign-address foreign-address) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 vector-set vector-set) - (spec: 0 path-expand path-expand) - (spec: 0 fxsquare fxsquare) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) + 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 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 eq?-hash eq?-hash) - (spec: 0 fxif fxif) - (spec: 0 s8vector-copy s8vector-copy) - (spec: 0 apropos apropos) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + 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 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 0 top top) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) + 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 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 0 fl+ fl+) - (spec: 0 integer-nth-root integer-nth-root) - (spec: 0 thread thread) - (spec: 0 drop-right! drop-right!) - (spec: 0 flround flround) - (spec: 0 open-file open-file) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) - (spec: 0 display-exception display-exception) - (spec: 0 fllog fllog) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) - (spec: 0 fx<= fx<=) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 bitwise-and bitwise-and) + 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 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 substring-move! substring-move!) - (spec: 0 filter filter) - (spec: 0 default-random-source default-random-source) - (spec: 0 input-port-column input-port-column) - (spec: 0 file-info-type file-info-type) - (spec: 0 flcos flcos) - (spec: 0 call-with-output-process call-with-output-process) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) (spec: 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) + unterminated-process-exception? + unterminated-process-exception?) (spec: 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 take! take!) - (spec: 0 char-set<= char-set<=) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 bitwise-not bitwise-not) + (spec: 0 u8vector-copy! u8vector-copy!) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 service-info? service-info?) - (spec: 0 bit-count bit-count) + 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: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 script-directory script-directory) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 command-args command-args) - (spec: 0 string-shrink! string-shrink!) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 u16vector u16vector) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 0 sinh sinh) - (spec: 0 u32vector? u32vector?) + 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 time time) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 fxremainder fxremainder) - (spec: 0 abort abort) - (spec: - 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 list->char-set! list->char-set!) + (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: 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 s8vector-length s8vector-length) - (spec: 0 with-input-from-string with-input-from-string) - (spec: 0 integer-length integer-length) - (spec: 0 system-type-string system-type-string) - (spec: 0 fl/ fl/) + 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: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 keyword? keyword?) - (spec: 0 drop-right drop-right) - (spec: 0 open-input-process open-input-process) - (spec: 0 flsinh flsinh) - (spec: 0 replace-bit-field replace-bit-field) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) (spec: 0 - display-continuation-environment - display-continuation-environment) - (spec: 0 tcp-service-register! tcp-service-register!) - (spec: 0 flmin flmin) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 fx< fx<) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 thread-group-suspend! thread-group-suspend!) + 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 emergency-exit emergency-exit) - (spec: 0 list-set! list-set!) - (spec: 0 call-with-port call-with-port) + (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 vector-for-each vector-for-each) + (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 round-remainder round-remainder) - (spec: 0 string-upcase string-upcase) + (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 boolean=? boolean=?) + (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 open-input-string open-input-string) - (spec: 0 nan? nan?) - (spec: 0 bytevector? bytevector?) - (spec: 0 digit-value digit-value) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 inexact inexact) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 exit exit) - (spec: 0 read-string read-string) - (spec: 0 round/ round/) - (spec: 0 get-output-bytevector get-output-bytevector) (spec: 0 string-copy! string-copy!) - (spec: 0 symbol=? symbol=?) - (spec: 0 vector->string vector->string) - (spec: 0 read-u8 read-u8) - (spec: 0 balanced/ balanced/) - (spec: 0 error-object? error-object?) - (spec: 0 truncate/ truncate/) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 textual-port? textual-port?) - (spec: 0 write-string write-string) - (spec: 0 current-error-port current-error-port) - (spec: 0 write-simple write-simple) - (spec: 0 round-quotient round-quotient) - (spec: 0 get-environment-variables get-environment-variables) + (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 balanced-quotient balanced-quotient) - (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 square square) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 open-binary-input-file open-binary-input-file) - (spec: 0 open-output-string open-output-string) - (spec: 0 bytevector-copy bytevector-copy) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 make-parameter make-parameter) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 string-for-each string-for-each) - (spec: 0 string->vector string->vector) + (spec: 0 utf8->string utf8->string) + (spec: 0 write-u8 write-u8) + (spec: 0 exact-integer? exact-integer?) (spec: 0 floor/ floor/) - (spec: 0 bytevector-append bytevector-append) - (spec: 0 write-shared write-shared) - (spec: 0 peek-u8 peek-u8) - (spec: 0 list-copy list-copy) - (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 string->utf8 string->utf8) - (spec: 0 bytevector bytevector) - (spec: 0 string-foldcase string-foldcase) + (spec: 0 get-output-string get-output-string) (spec: 0 balanced-remainder balanced-remainder) - (spec: 0 close-port close-port) + (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-quotient floor-quotient) - (spec: 0 read-bytevector! read-bytevector!) - (spec: 0 current-second current-second) - (spec: 0 promise? promise?) - (spec: 0 error-object-message error-object-message) - (spec: 0 file-error? file-error?) - (spec: 0 get-output-string get-output-string) + (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 open-binary-output-file open-binary-output-file) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 finite? finite?) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) - (spec: 0 binary-port? binary-port?) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 string-downcase string-downcase) + (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 input-port-open? input-port-open?) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 truncate-remainder truncate-remainder) - (spec: 0 u8-ready? u8-ready?) - (spec: 0 utf8->string utf8->string) - (spec: 0 make-bytevector make-bytevector) - (spec: 0 vector-append vector-append) - (spec: 0 vector-map vector-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 write-u8 write-u8) - (spec: 0 command-line command-line) + (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 make-promise make-promise) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 vector-copy! vector-copy!) - (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 exact-integer? exact-integer?) + (spec: 0 bytevector bytevector) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) (spec: 0 euclidean/ euclidean/) - (spec: 0 port? port?) - (spec: 0 vector-copy vector-copy) (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 negative? negative?) - (spec: 0 caddr caddr) - (spec: 0 null? null?) - (spec: 0 >= >=) + (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 string<=? string<=?) - (spec: 0 sqrt sqrt) - (spec: 0 vector? vector?) - (spec: 0 even? even?) - (spec: 0 angle angle) - (spec: 0 char-whitespace? char-whitespace?) + (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 char-lower-case? char-lower-case?) - (spec: 0 boolean? boolean?) - (spec: 0 cadddr cadddr) + (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 complex? complex?) - (spec: 0 make-string make-string) - (spec: 0 max max) - (spec: 0 string-ci>? string-ci>?) + (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 cddar cddar) - (spec: 0 caddar caddar) - (spec: 0 null-environment null-environment) - (spec: 0 string-ci>=? string-ci>=?) - (spec: 0 lcm lcm) - (spec: 0 list-ref list-ref) - (spec: 0 abs abs) - (spec: 0 string string) - (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 exact? exact?) - (spec: 0 cadaar cadaar) - (spec: 0 eval eval) (spec: 0 cdaddr cdaddr) - (spec: 0 cadar cadar) - (spec: 0 = =) - (spec: 0 gcd gcd) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 round round) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 char-upcase char-upcase) - (spec: 0 acos acos) - (spec: 0 cddaar cddaar) + (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 interaction-environment interaction-environment) - (spec: 0 current-input-port current-input-port) - (spec: 0 caaaar caaaar) - (spec: 0 string>=? string>=?) - (spec: 0 close-output-port close-output-port) - (spec: 0 imag-part imag-part) - (spec: 0 truncate truncate) - (spec: 0 list->string list->string) + (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 char>=? char>=?) - (spec: 0 list-tail list-tail) - (spec: 0 cdddar cdddar) - (spec: 0 car car) + (spec: 0 cdaar cdaar) + (spec: 0 caadr caadr) (spec: 0 odd? odd?) - (spec: 0 length length) - (spec: 0 char-ci<=? char-ci<=?) - (spec: 0 string->symbol string->symbol) - (spec: 0 not not) - (spec: 0 call-with-input-file call-with-input-file) - (spec: 0 - -) - (spec: 0 close-input-port close-input-port) - (spec: 0 char-alphabetic? char-alphabetic?) - (spec: 0 eof-object? eof-object?) - (spec: 0 vector-length vector-length) - (spec: 0 char=? char=?) - (spec: 0 exact->inexact exact->inexact) - (spec: 0 cddr cddr) (spec: 0 list? list?) - (spec: 0 real? real?) - (spec: 0 string->number string->number) - (spec: 0 string-copy string-copy) - (spec: - 0 - call-with-current-continuation - call-with-current-continuation) - (spec: 0 denominator denominator) - (spec: 0 transcript-off transcript-off) - (spec: 0 vector->list vector->list) - (spec: 0 + +) - (spec: 0 cos cos) - (spec: 0 cons cons) - (spec: 0 string=? string=?) - (spec: 0 string->list string->list) - (spec: 0 symbol->string symbol->string) - (spec: 0 char? 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 char-ready? char-ready?) - (spec: 0 char->integer char->integer) - (spec: 0 inexact->exact inexact->exact) - (spec: 0 cadr cadr) - (spec: 0 symbol? symbol?) - (spec: 0 * *) - (spec: 0 exp exp) - (spec: 0 stringnumber string->number) + (spec: 0 exact? exact?) + (spec: 0 assv assv) (spec: 0 magnitude magnitude) - (spec: 0 number->string number->string) - (spec: 0 real-part real-part) - (spec: 0 vector vector) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 string-set! string-set!) - (spec: 0 asin asin) - (spec: 0 sin sin) - (spec: 0 memv memv) (spec: 0 char-ci>? char-ci>?) - (spec: 0 load load) - (spec: 0 caaadr caaadr) + (spec: 0 real-part real-part) + (spec: 0 symbol->string symbol->string) (spec: 0 cdr cdr) - (spec: 0 integer->char integer->char) - (spec: 0 memq memq) - (spec: 0 write write) + (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 expt expt) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 substring substring) - (spec: 0 equal? equal?) - (spec: 0 zero? zero?) - (spec: 0 caaddr caaddr) - (spec: 0 number? number?) - (spec: 0 cdaadr cdaadr) - (spec: 0 read read) - (spec: 0 current-output-port current-output-port) - (spec: 0 string? string?) - (spec: 0 string-ref string-ref) + (spec: 0 make-string make-string) (spec: 0 char-ci=? char-ci=?) - (spec: 0 string-fill! string-fill!) - (spec: 0 char? char?) - (spec: 0 with-input-from-file with-input-from-file) (spec: 0 cdddr cdddr) - (spec: 0 force force) + (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 string>? string>?) - (spec: 0 make-polar make-polar) - (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 for-each for-each) - (spec: 0 char-ci? char>?) - (spec: 0 display display) - (spec: 0 peek-char peek-char) - (spec: 0 quotient quotient) - (spec: 0 dynamic-wind dynamic-wind) - (spec: 0 rational? rational?) - (spec: 0 string-ci=? string-ci=?) - (spec: 0 <= <=) - (spec: 0 assq assq) + (spec: 0 newline newline) + (spec: 0 >= >=) (spec: 0 pair? pair?) - (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 caadr caadr) - (spec: 0 integer? integer?) - (spec: 0 cdaar cdaar) - (spec: 0 numerator numerator) + (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 min min) - (spec: 0 newline newline) - (spec: 0 tan tan) - (spec: 0 < <) - (spec: 0 log log) - (spec: 0 atan atan) - (spec: 0 map map) - (spec: 0 string-ciinteger 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 char-downcase char-downcase) - (spec: 0 list->vector list->vector) + (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 vector-ref vector-ref) - (spec: 0 eqv? eqv?) - (spec: 0 caar caar) - (spec: 0 cdadar cdadar) + (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 GambitRuntime GambitRuntime) (spec: 0 GerbilRuntime GerbilRuntime) (spec: 0 %%app-dotted %%app) (spec: 0 %%ref-dotted %%ref) @@ -3348,350 +3378,384 @@ namespace: gerbil/core (spec: 0 defstruct/c defstruct) (spec: 0 do/c do) (spec: 0 do-while/c do-while) - (spec: 1 quasisyntax quasisyntax) (spec: 1 identifier-rules identifier-rules) + (spec: 1 quasisyntax quasisyntax) (spec: 1 make-macro-object make-macro-object) - (spec: 1 macro-object-macro-set! macro-object-macro-set!) + (spec: 1 macro-object::t macro-object::t) + (spec: 1 ¯o-object-macro ¯o-object-macro) (spec: 1 macro-object macro-object) - (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) + (spec: 1 macro-object? macro-object?) (spec: 1 macro-object-macro macro-object-macro) - (spec: 1 macro-object::t macro-object::t) (spec: 1 macro-object::apply-macro-expander macro-object::apply-macro-expander) - (spec: 1 macro-object? macro-object?) - (spec: 1 ¯o-object-macro ¯o-object-macro) + (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/loc syntax/loc) (spec: 1 syntax-rules syntax-rules) - (spec: 1 with-syntax with-syntax) - (spec: 1 syntax syntax) + (spec: 1 syntax/loc syntax/loc) (spec: 1 syntax-case syntax-case) - (spec: 1 binding? binding?) - (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 stx-source stx-source) - (spec: 1 eval-syntax eval-syntax) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 syntax-pattern-depth syntax-pattern-depth) - (spec: 1 eval-module eval-module) - (spec: - 1 - core-resolve-library-module-path - core-resolve-library-module-path) - (spec: 1 core-expand core-expand) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 binding-id binding-id) - (spec: 1 syntax-pattern? syntax-pattern?) - (spec: 1 stx-null? stx-null?) - (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 stx-foldr stx-foldr) + (spec: 1 syntax syntax) + (spec: 1 genident genident) (spec: 1 module-export-weak? module-export-weak?) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 stx-number? stx-number?) - (spec: 1 make-export-expander make-export-expander) - (spec: 1 module-export-key module-export-key) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 prelude-context? prelude-context?) - (spec: 1 module-import-phi module-import-phi) - (spec: 1 stx-foldl stx-foldl) - (spec: 1 syntax->datum syntax->datum) - (spec: 1 current-expander-marks current-expander-marks) - (spec: 1 import-set-source import-set-source) - (spec: 1 stx-length stx-length) - (spec: 1 make-module-import make-module-import) - (spec: 1 stx-equal? stx-equal?) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 make-local-context make-local-context) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 user-expander? user-expander?) - (spec: 1 underscore? underscore?) - (spec: 1 stx-vector? stx-vector?) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 module-import? module-import?) - (spec: 1 stx-reverse stx-reverse) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 core-resolve-identifier core-resolve-identifier) + (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 core-apply-expander core-apply-expander) - (spec: 1 expander-context-id expander-context-id) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 export-set-phi export-set-phi) - (spec: 1 syntax->list syntax->list) - (spec: 1 macro-expand-syntax macro-expand-syntax) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 make-user-expander make-user-expander) - (spec: 1 stx-last stx-last) - (spec: 1 stx-pair? stx-pair?) - (spec: 1 stx-fixnum? stx-fixnum?) + (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-plist? stx-plist?) - (spec: 1 current-expander-path current-expander-path) - (spec: 1 core-expand-head core-expand-head) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 ellipsis? ellipsis?) - (spec: 1 expander? expander?) - (spec: 1 core-expand-export-source core-expand-export-source) - (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 stx-false? stx-false?) + (spec: 1 stx-foldl stx-foldl) + (spec: 1 stx-andmap stx-andmap) (spec: 1 current-compilation-target current-compilation-target) - (spec: 1 alias-binding? alias-binding?) - (spec: 1 gentemps gentemps) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 stx-ormap stx-ormap) - (spec: 1 import-module import-module) - (spec: 1 current-module-reader-args current-module-reader-args) + (spec: 1 core-expand-expression+1 core-expand-expression+1) (spec: 1 core-context-top core-context-top) - (spec: 1 stx-box? stx-box?) - (spec: 1 syntax-local-pattern? syntax-local-pattern?) - (spec: 1 core-library-module-path? core-library-module-path?) + (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 module-context? module-context?) + (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 syntax-local-e syntax-local-e) - (spec: 1 identifier? identifier?) - (spec: 1 module-import-name module-import-name) - (spec: 1 stx-char? stx-char?) - (spec: 1 import-binding? import-binding?) - (spec: 1 current-module-reader-path current-module-reader-path) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 module-context-code module-context-code) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 module-import-source module-import-source) + (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 extern-binding? extern-binding?) - (spec: 1 current-expander-phi current-expander-phi) - (spec: 1 module-context-import module-context-import) + (spec: 1 core-quote-syntax core-quote-syntax) (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 top-context? top-context?) - (spec: 1 stx-boolean? stx-boolean?) + (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 feature-expander? feature-expander?) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 syntax-pattern-id syntax-pattern-id) - (spec: 1 core-quote-syntax core-quote-syntax) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 genident genident) - (spec: 1 stx-car stx-car) - (spec: 1 current-expander-context current-expander-context) + (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 stx-eq? stx-eq?) - (spec: 1 syntax-local-value syntax-local-value) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 user-expander-phi user-expander-phi) + (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 module-import-weak? module-import-weak?) - (spec: 1 module-export-context module-export-context) + (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 bound-identifier=? bound-identifier=?) - (spec: 1 export-expander? export-expander?) - (spec: 1 stx-e stx-e) - (spec: 1 export-set? export-set?) - (spec: 1 syntax-e syntax-e) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 import-binding-e import-binding-e) - (spec: 1 runtime-binding? runtime-binding?) + (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 + 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 syntax-check-splice-targets syntax-check-splice-targets) + (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 raise-syntax-error raise-syntax-error) - (spec: 1 stx-andmap stx-andmap) + (spec: 1 syntax-pattern-id syntax-pattern-id) (spec: 1 stx-datum? stx-datum?) - (spec: 1 make-import-export-expander make-import-export-expander) - (spec: 1 module-export-name module-export-name) - (spec: 1 stx-getq stx-getq) - (spec: 1 import-expander? import-expander?) - (spec: 1 stx-eqv? stx-eqv?) - (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 stx-list? stx-list?) - (spec: 1 import-set? import-set?) - (spec: 1 export-set-source export-set-source) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 stx-string? stx-string?) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 make-module-export make-module-export) + (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-export module-context-export) - (spec: 1 identifier-list? identifier-list?) + (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 ExpanderRuntime ExpanderRuntime) (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-env) - (spec: 2 type-env? type-env?) + (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-type &type-env-type) - (spec: 2 type-env-lookup type-env-lookup) (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-var-set! &type-env-var-set!) - (spec: 2 type-env-super-set! type-env-super-set!) - (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 2 make-type-env make-type-env) + (spec: 2 type-env-lookup type-env-lookup) (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-checked? &type-env-checked?) (spec: 2 &type-env-type-set! &type-env-type-set!) - (spec: 2 &type-env-super-set! &type-env-super-set!) - (spec: 2 &type-env-super &type-env-super) + (spec: 2 type-env type-env) (spec: 2 type-env-checked?-set! type-env-checked?-set!) - (spec: 2 type-env-type-set! type-env-type-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: 2 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + interface-info-interface-methods + interface-info-interface-methods) (spec: 2 - &interface-info-interface-methods - &interface-info-interface-methods) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 2 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 2 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 2 interface-info interface-info) + &interface-info-interface-precedence-list-set! + &interface-info-interface-precedence-list-set!) (spec: 2 - interface-info-instance-predicate - interface-info-instance-predicate) - (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) - (spec: 2 interface-info::t interface-info::t) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 2 - interface-info-implementation-methods - interface-info-implementation-methods) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 2 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + interface-mixin->precedence-list + interface-mixin->precedence-list) (spec: 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 2 &interface-info-namespace &interface-info-namespace) (spec: 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 2 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: 2 interface-info-namespace-set! interface-info-namespace-set!) (spec: 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) - (spec: 2 make-interface-info make-interface-info) - (spec: 2 interface-info? interface-info?) + &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-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) + (spec: 2 &interface-info-name &interface-info-name) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 2 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + &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-name interface-info-name) + (spec: 2 interface-info::t interface-info::t) (spec: 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-precedence-list + interface-info-interface-precedence-list) + (spec: 2 make-interface-info make-interface-info) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + 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-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + 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-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + &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-constructor-set! - interface-info-instance-constructor-set!) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + &interface-info-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-instance-type &interface-info-instance-type) (spec: 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &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: 2 &interface-info-interface-descriptor @@ -3702,97 +3766,94 @@ namespace: gerbil/core &interface-info-instance-constructor) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) - (spec: 2 &interface-info-name &interface-info-name) - (spec: - 2 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + interface-identifier->precedence-list + interface-identifier->precedence-list) + (spec: 2 interface-info-name interface-info-name) (spec: 2 - &interface-info-instance-predicate - &interface-info-instance-predicate) + &interface-info-interface-mixin + &interface-info-interface-mixin) (spec: 2 is-signature? is-signature?) - (spec: 1 with-procedure-contract with-procedure-contract) - (spec: 1 defmutable* defmutable*) - (spec: 1 do-loop-result do-loop-result) - (spec: 1 do-while/c do-while/c) - (spec: 1 case-lambda/c case-lambda/c) - (spec: 1 let/c let/c) - (spec: 1 lambda/c lambda/c) - (spec: 1 defmethod/c defmethod/c) - (spec: 1 defstruct/c defstruct/c) (spec: 1 @method @method) - (spec: 1 do/c do/c) (spec: 1 do-loop-step do-loop-step) (spec: 1 defclass/c defclass/c) - (spec: 1 defmutable defmutable) - (spec: 1 with-receiver with-receiver) + (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 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 1 def/c def/c) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 2 check-valid-type! check-valid-type!) - (spec: 2 signature-keywords signature-keywords) - (spec: 2 signature-contract? signature-contract?) - (spec: 2 check-signature! check-signature!) + (spec: 1 case-lambda/c case-lambda/c) + (spec: 2 symbolidentifier resolve-type->identifier) - (spec: 2 type-reference? type-reference?) - (spec: 2 make-type-reference make-type-reference) + (spec: 2 type-reference-identifier type-reference-identifier) (spec: 2 - &type-reference-identifier-set! - &type-reference-identifier-set!) + type-reference-identifier-set! + type-reference-identifier-set!) + (spec: 2 type-reference type-reference) (spec: 2 type-identifier? type-identifier?) (spec: 2 resolve-type resolve-type) - (spec: 2 type-reference::t type-reference::t) - (spec: 2 type-reference-identifier type-reference-identifier) - (spec: 2 type-reference type-reference) + (spec: 2 resolve-type->identifier resolve-type->identifier) + (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) (spec: 2 - type-reference-identifier-set! - type-reference-identifier-set!) + &type-reference-identifier-set! + &type-reference-identifier-set!) (spec: 2 &type-reference-identifier &type-reference-identifier) - (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) + (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 InterfaceInfo InterfaceInfo) (spec: 1 TypeEnv TypeEnv) + (spec: 1 InterfaceInfo InterfaceInfo) (spec: 1 TypeReference TypeReference) (spec: 1 Using Using) - (spec: 1 TypeCast TypeCast) - (spec: 1 ClassMeta ClassMeta) (spec: 1 Interface Interface) - (spec: 1 ContractRules ContractRules) + (spec: 1 ClassMeta ClassMeta) (spec: 1 TypedDefinitions TypedDefinitions) - (spec: 2 setq-macro-macro setq-macro-macro) - (spec: 2 setq-macro setq-macro) - (spec: 2 setf-macro? setf-macro?) - (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 2 setq-macro::t setq-macro::t) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 1 ContractRules ContractRules) + (spec: 1 TypeCast TypeCast) (spec: 2 &setf-macro-macro &setf-macro-macro) - (spec: 2 make-setf-macro make-setf-macro) - (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 2 &setq-macro-macro &setq-macro-macro) + (spec: 2 setq-macro setq-macro) (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 2 setf-macro setf-macro) + (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 setf-macro-macro) (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 2 setf-macro::t setf-macro::t) - (spec: 2 make-setq-macro make-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 eval-when-compile eval-when-compile) - (spec: 1 @bytes @bytes) - (spec: 1 unwind-protect unwind-protect) (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 with* with*) - (spec: 1 with with) - (spec: 1 defrules-for-match defrules-for-match) - (spec: 1 ? ?) (spec: 1 match* match*) + (spec: 1 with* with*) (spec: 1 match match) (spec: 1 defsyntax-for-match defsyntax-for-match) - (spec: 1 :foreign :foreign) - (spec: 1 :object-port :object-port) + (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 :symbolic :symbolic) - (spec: 1 :directory-port :directory-port) (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :readenv :readenv) + (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 :fixnum :fixnum) - (spec: 1 :sequence :sequence) (spec: 1 :time :time) - (spec: 1 :string-port :string-port) - (spec: 1 :table :table) - (spec: 1 :s16vector :s16vector) - (spec: 1 :false :false) - (spec: 1 :special :special) - (spec: 1 :u64vector :u64vector) - (spec: 1 :bignum :bignum) + (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 :cpxnum :cpxnum) - (spec: 1 :device-port :device-port) - (spec: 1 :writeenv :writeenv) - (spec: 1 :promise :promise) - (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :s32vector :s32vector) (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :processor :processor) (spec: 1 :file-info :file-info) - (spec: 1 :address-info :address-info) - (spec: 1 :udp-port :udp-port) - (spec: 1 :object :object) + (spec: 1 :hvector :hvector) (spec: 1 :char :char) - (spec: 1 :real :real) - (spec: 1 :vector-port :vector-port) - (spec: 1 :condvar :condvar) - (spec: 1 :immediate :immediate) - (spec: 1 :class :class) + (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 :s8vector :s8vector) + (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 :f64vector :f64vector) - (spec: 1 :procedure :procedure) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :u8vector :u8vector) (spec: 1 :weak :weak) - (spec: 1 :integer :integer) + (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 :continuation :continuation) - (spec: 1 :thread :thread) - (spec: 1 :vm :vm) (spec: 1 :mutex :mutex) - (spec: 1 :socket-info :socket-info) - (spec: 1 :vector :vector) - (spec: 1 :flonum :flonum) - (spec: 1 :boolean :boolean) - (spec: 1 :port :port) + (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 :s32vector :s32vector) - (spec: 1 :string :string) - (spec: 1 :u16vector :u16vector) - (spec: 1 :null :null) - (spec: 1 :hvector :hvector) - (spec: 1 :list :list) - (spec: 1 :u32vector :u32vector) - (spec: 1 :pair :pair) - (spec: 1 :ratnum :ratnum) - (spec: 1 :f32vector :f32vector) - (spec: 1 class class) - (spec: 1 :eof :eof) - (spec: 1 :t :t) - (spec: 1 :number :number) (spec: 1 :atom :atom) - (spec: 1 :void :void) - (spec: 1 :true :true) - (spec: 1 :symbol :symbol) - (spec: 1 :thread-group :thread-group) - (spec: 1 :box :box) - (spec: 1 define-class define-class) + (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 MOP-4 MOP-4) - (spec: 1 MOP-2 MOP-2) (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 :foreign :foreign) - (spec: 1 :object-port :object-port) + (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 :symbolic :symbolic) - (spec: 1 :directory-port :directory-port) (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :readenv :readenv) + (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 :fixnum :fixnum) - (spec: 1 :sequence :sequence) (spec: 1 :time :time) - (spec: 1 :string-port :string-port) - (spec: 1 :table :table) - (spec: 1 :s16vector :s16vector) - (spec: 1 :false :false) - (spec: 1 :special :special) - (spec: 1 :u64vector :u64vector) - (spec: 1 :bignum :bignum) + (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 :cpxnum :cpxnum) - (spec: 1 :device-port :device-port) - (spec: 1 :writeenv :writeenv) - (spec: 1 :promise :promise) - (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :s32vector :s32vector) (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :processor :processor) (spec: 1 :file-info :file-info) - (spec: 1 :address-info :address-info) - (spec: 1 :udp-port :udp-port) - (spec: 1 :object :object) + (spec: 1 :hvector :hvector) (spec: 1 :char :char) - (spec: 1 :real :real) - (spec: 1 :vector-port :vector-port) - (spec: 1 :condvar :condvar) - (spec: 1 :immediate :immediate) - (spec: 1 :class :class) - (spec: 1 :keyword :keyword) - (spec: 1 :s8vector :s8vector) - (spec: 1 :s64vector :s64vector) - (spec: 1 :f64vector :f64vector) - (spec: 1 :procedure :procedure) - (spec: 1 defsystem-class-info defsystem-class-info) + (spec: 1 :void :void) + (spec: 1 :cpxnum :cpxnum) (spec: 1 :u8vector :u8vector) - (spec: 1 :weak :weak) (spec: 1 :integer :integer) - (spec: 1 :values :values) - (spec: 1 :continuation :continuation) - (spec: 1 :thread :thread) + (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 :mutex :mutex) + (spec: 1 :u16vector :u16vector) (spec: 1 :socket-info :socket-info) - (spec: 1 :vector :vector) - (spec: 1 :flonum :flonum) - (spec: 1 :boolean :boolean) - (spec: 1 :port :port) - (spec: 1 :frame :frame) - (spec: 1 :s32vector :s32vector) + (spec: 1 :procedure :procedure) + (spec: 1 :sequence :sequence) (spec: 1 :string :string) - (spec: 1 :u16vector :u16vector) - (spec: 1 :null :null) - (spec: 1 :hvector :hvector) - (spec: 1 :list :list) - (spec: 1 :u32vector :u32vector) - (spec: 1 :pair :pair) - (spec: 1 :ratnum :ratnum) + (spec: 1 :flonum :flonum) (spec: 1 :f32vector :f32vector) - (spec: 1 class class) - (spec: 1 :eof :eof) + (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 :number :number) + (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 :void :void) - (spec: 1 :true :true) - (spec: 1 :symbol :symbol) - (spec: 1 :thread-group :thread-group) - (spec: 1 :box :box) - (spec: 1 define-class define-class) + (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 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 !class-type-slots-set! !class-type-slots-set!) - (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: - 1 - !class-type-unchecked-accessors-set! - !class-type-unchecked-accessors-set!) + 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-id !class-type-id) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 !class-type-accessors !class-type-accessors) - (spec: - 1 - !class-type-unchecked-accessors - !class-type-unchecked-accessors) + (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-unchecked-mutators - !class-type-unchecked-mutators) - (spec: 1 !class-type-final?-set! !class-type-final?-set!) - (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) - (spec: 1 &!class-type-metaclass &!class-type-metaclass) - (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) - (spec: 1 !class-type-mutators !class-type-mutators) - (spec: 1 &!class-type-mutators &!class-type-mutators) - (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) - (spec: 1 &!class-type-slots &!class-type-slots) - (spec: 1 &!class-type-accessors &!class-type-accessors) + !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-info::apply-macro-expander - class-type-info::apply-macro-expander) - (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) (spec: 1 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) - (spec: 1 !class-type-slot-types !class-type-slot-types) + &!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-name-set! !class-type-name-set!) (spec: 1 - !class-type-slot-contracts-set! - !class-type-slot-contracts-set!) + &!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-metaclass !class-type-metaclass) - (spec: 1 &!class-type-constructor &!class-type-constructor) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) (spec: 1 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) - (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) + &!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 + !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 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: 1 !class-type-final? !class-type-final?) - (spec: 1 &!class-type-name-set! &!class-type-name-set!) - (spec: 1 make-class-type-info make-class-type-info) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + !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 &!class-type-unchecked-mutators &!class-type-unchecked-mutators) - (spec: 1 &!class-type-final? &!class-type-final?) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 &!class-type-slot-types &!class-type-slot-types) + (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-super-set! !class-type-super-set!) - (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 &!class-type-id &!class-type-id) + (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-constructor-method-set! - !class-type-constructor-method-set!) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 1 &!class-type-super &!class-type-super) (spec: 1 - &!class-type-constructor-method - &!class-type-constructor-method) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 !class-type-system?-set! !class-type-system?-set!) + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) (spec: 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) - (spec: 1 &!class-type-predicate &!class-type-predicate) + &!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-slot-contracts-set! - &!class-type-slot-contracts-set!) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + !class-type-unchecked-accessors-set! + !class-type-unchecked-accessors-set!) (spec: 1 - &!class-type-unchecked-accessors - &!class-type-unchecked-accessors) - (spec: 1 !class-type-precedence-list !class-type-precedence-list) + &!class-type-slot-contracts-set! + &!class-type-slot-contracts-set!) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) + (spec: 1 !class-type-id !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-name &!class-type-name) - (spec: 1 class-type-info::t class-type-info::t) - (spec: 1 &!class-type-struct? &!class-type-struct?) - (spec: 1 &!class-type-descriptor &!class-type-descriptor) - (spec: 1 !class-type-super !class-type-super) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) - (spec: 1 !class-type-system? !class-type-system?) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) + (spec: 1 &!class-type-system? &!class-type-system?) (spec: 1 - &!class-type-precedence-list-set! - &!class-type-precedence-list-set!) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 !class-type-predicate !class-type-predicate) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) - (spec: 1 !class-type-id-set! !class-type-id-set!) - (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) + !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-ordered-slots-set! - !class-type-ordered-slots-set!) - (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) + !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 definline definline) (spec: 1 defsyntax defsyntax) + (spec: 1 definline definline) (spec: 1 defconst defconst) - (spec: 1 begin0 begin0) - (spec: 1 @list @list) - (spec: 1 cut cut) (spec: 1 ~case-dispatch* ~case-dispatch*) - (spec: 1 alet alet) - (spec: 1 quasiquote quasiquote) - (spec: 1 ~case-dispatch ~case-dispatch) (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 1 rec rec) - (spec: 1 and-let* and-let*) - (spec: 1 <...> <...>) + (spec: 1 quasiquote quasiquote) (spec: 1 defvalues defvalues) - (spec: 1 case case) - (spec: 1 ~case ~case) (spec: 1 <> <>) - (spec: 1 ~case-test ~case-test) + (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 define define) + (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 compilation-target? compilation-target?) - (spec: 1 letrec* letrec*) - (spec: 1 ~let ~let) (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 defsyntax% defsyntax%) - (spec: 1 or or) - (spec: 1 define-rules define-rules) - (spec: 1 defalias defalias) (spec: 1 unless unless) - (spec: 1 when when) - (spec: 1 let* let*) - (spec: 1 and and) - (spec: 1 let*-values let*-values) - (spec: 1 s16vector-ref-set! s16vector-ref-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) - (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 u64vector-ref-set! u64vector-ref-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) - (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 u16vector-ref-set! u16vector-ref-set!) - (spec: 1 call/values call/values) - (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 call/parameters call/parameters) - (spec: 1 car-set! car-set!) - (spec: 1 box-set! box-set!) - (spec: 1 cdr-set! cdr-set!) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) - (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 random-source-make-bytes random-source-make-bytes) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) - (spec: 1 random-bytes random-bytes) - (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 replx replx) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 HashTable::interface HashTable::interface) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 thread::t thread::t) - (spec: 1 hash-values hash-values) - (spec: 1 values-ref values-ref) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 memf memf) - (spec: 1 next-method next-method) - (spec: 1 t::t t::t) - (spec: 1 error error) - (spec: 1 symbol::t symbol::t) - (spec: 1 exception? exception?) - (spec: 1 slot-set! slot-set!) - (spec: 1 hash-keys hash-keys) - (spec: 1 s32vector::t s32vector::t) - (spec: - 1 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 1 string-hash string-hash) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 make-object make-object) - (spec: 1 device-port? device-port?) - (spec: 1 gerbil-path gerbil-path) - (spec: 1 load-module load-module) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 keyword::t keyword::t) - (spec: 1 class-of class-of) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 class-type-seal! class-type-seal!) - (spec: 1 fx<0? fx<0?) - (spec: 1 interface-instance::t interface-instance::t) - (spec: 1 vector-port::t vector-port::t) - (spec: 1 character-port? character-port?) - (spec: 1 cons* cons*) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 absent-value absent-value) - (spec: 1 event-queue-port? event-queue-port?) - (spec: 1 make-symbol make-symbol) - (spec: 1 foldl foldl) - (spec: 1 hash-key? hash-key?) - (spec: 1 false::t false::t) - (spec: - 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 satisfies? satisfies?) - (spec: 1 string-empty? string-empty?) - (spec: 1 device-port::t device-port::t) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 character-port::t character-port::t) - (spec: 1 values->list values->list) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 condvar::t condvar::t) - (spec: 1 flonum::t flonum::t) - (spec: 1 immediate-instance-of? immediate-instance-of?) + (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 object::t object::t) - (spec: 1 class-instance? class-instance?) - (spec: 1 displayln displayln) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 max-char-code max-char-code) - (spec: 1 f64vector::t f64vector::t) + (spec: 1 make-keyword make-keyword) + (spec: 1 fx<0? fx<0?) + (spec: 1 cons* cons*) + (spec: 1 class-type=? class-type=?) + (spec: 1 make-AST make-AST) + (spec: 1 error-irritants error-irritants) + (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 event-queue-port::t event-queue-port::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 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 fx1- fx1-) - (spec: 1 class-type? class-type?) + (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 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 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 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 spawn/name spawn/name) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 char::t char::t) - (spec: 1 class-type-properties class-type-properties) - (spec: 1 keyword-dispatch keyword-dispatch) (spec: 1 ratnum::t ratnum::t) - (spec: 1 class-type-final? class-type-final?) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 list-modules list-modules) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 HashTable::t HashTable::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 thread-local-set! thread-local-set!) - (spec: 1 values::t values::t) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 f32vector::t f32vector::t) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 error? error?) - (spec: 1 fx1+ fx1+) - (spec: 1 module-load-order module-load-order) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 remq remq) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 spawn/group spawn/group) - (spec: 1 class-type-id class-type-id) - (spec: 1 load-path load-path) - (spec: 1 with-lock with-lock) + (spec: 1 string->bytes string->bytes) + (spec: 1 bignum::t bignum::t) (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 HashTableLock::t HashTableLock::t) + (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 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 fxshift fxshift) - (spec: 1 hvector::t hvector::t) - (spec: 1 vector-port? vector-port?) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 AST-e AST-e) - (spec: 1 method-ref method-ref) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: 1 filter-map filter-map) - (spec: 1 hash-merge! hash-merge!) - (spec: 1 readenv::t readenv::t) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 seal-class! seal-class!) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 directory-port? directory-port?) - (spec: 1 integer::t integer::t) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 &class-type-constructor &class-type-constructor) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 immediate::t immediate::t) - (spec: 1 box::t box::t) + (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 class-of class-of) + (spec: 1 source-location? source-location?) (spec: 1 fx>=0? fx>=0?) - (spec: 1 bignum::t bignum::t) - (spec: 1 ormap ormap) - (spec: 1 gerbil-system gerbil-system) + (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 vm::t vm::t) - (spec: 1 error-object? error-object?) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 foldr foldr) - (spec: 1 struct-copy struct-copy) - (spec: 1 file-newer? file-newer?) - (spec: 1 null::t null::t) + (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 source-location-path source-location-path) - (spec: 1 continuation::t continuation::t) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: 1 string-index string-index) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 keyword-rest keyword-rest) - (spec: 1 list::t list::t) + (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 class-type-slot-table class-type-slot-table) - (spec: 1 pgetq pgetq) - (spec: 1 fx>0? fx>0?) - (spec: 1 port::t port::t) - (spec: 1 udp-port? udp-port?) - (spec: 1 absent-obj absent-obj) + (spec: 1 AST? AST?) (spec: 1 struct->list struct->list) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 hash-map hash-map) - (spec: 1 agetq agetq) - (spec: 1 file-info::t file-info::t) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 special? special?) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 pgetv pgetv) - (spec: 1 boolean::t boolean::t) - (spec: 1 fx=0? fx=0?) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) + (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 bytes->string bytes->string) + (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 special::t special::t) - (spec: 1 raise raise) - (spec: 1 string::t string::t) - (spec: 1 as-string as-string) - (spec: 1 table::t table::t) - (spec: 1 hash-length hash-length) - (spec: 1 agetv agetv) - (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 procedure-hash procedure-hash) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 call-next-method call-next-method) - (spec: 1 interface-cast-error? interface-cast-error?) - (spec: 1 read-syntax read-syntax) - (spec: 1 class-type-constructor class-type-constructor) - (spec: 1 1+ 1+) - (spec: 1 move-file move-file) - (spec: 1 symbolic? symbolic?) - (spec: 1 hash-copy hash-copy) - (spec: 1 u64vector::t u64vector::t) - (spec: 1 true::t true::t) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 vm? vm?) - (spec: 1 remv remv) - (spec: 1 make-keyword make-keyword) - (spec: 1 display-build-manifest display-build-manifest) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 writenv? writenv?) - (spec: 1 number::t number::t) - (spec: 1 foreign::t foreign::t) - (spec: 1 real::t real::t) - (spec: 1 thread-local-delete! thread-local-delete!) - (spec: 1 source-location-path? source-location-path?) - (spec: 1 make-hash-table make-hash-table) - (spec: 1 sequence::t sequence::t) - (spec: 1 string-port? string-port?) + (spec: 1 class-type-system? class-type-system?) + (spec: 1 make-symbol make-symbol) (spec: 1 call-method call-method) - (spec: 1 class-type-methods class-type-methods) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 return::t return::t) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 u32vector::t u32vector::t) - (spec: 1 true true) - (spec: 1 plist->hash-table plist->hash-table) - (spec: 1 display-as-string display-as-string) - (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 thread-group::t thread-group::t) - (spec: 1 assgetv assgetv) - (spec: 1 object-port::t object-port::t) - (spec: 1 make-AST make-AST) - (spec: 1 string-port::t string-port::t) - (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 unbound-key-error? unbound-key-error?) (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 hash->plist hash->plist) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 make-instance make-instance) - (spec: 1 AST-source AST-source) - (spec: 1 eof-object eof-object) - (spec: 1 hash-ref hash-ref) - (spec: 1 readtable::t readtable::t) + (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 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 string-join string-join) - (spec: 1 display* display*) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 &class-type-fields &class-type-fields) - (spec: 1 1- 1-) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 hash->list hash->list) - (spec: 1 build-manifest build-manifest) - (spec: 1 hvector? hvector?) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 void::t void::t) - (spec: 1 subclass? subclass?) - (spec: 1 AST? AST?) - (spec: 1 struct-instance? struct-instance?) - (spec: 1 assget assget) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 hash-put! hash-put!) - (spec: 1 source-location? source-location?) - (spec: 1 make-class-type make-class-type) - (spec: 1 sequence? sequence?) - (spec: 1 false false) - (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 cast cast) - (spec: 1 remove1 remove1) - (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 mutex::t mutex::t) - (spec: 1 try-cast try-cast) - (spec: 1 bind-method! bind-method!) + 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->list class->list) - (spec: 1 weak::t weak::t) - (spec: 1 is-hash-table? is-hash-table?) - (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 1 actor-thread? actor-thread?) + (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 error-trace error-trace) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 fx/ fx/) - (spec: 1 type-of type-of) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 class-type-system? class-type-system?) - (spec: 1 object-port? object-port?) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 hash-fold hash-fold) - (spec: 1 reload-module! reload-module!) - (spec: 1 string->bytes string->bytes) - (spec: 1 eq-hash eq-hash) - (spec: 1 values-count values-count) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 class-type-fields class-type-fields) - (spec: 1 writeenv::t writeenv::t) + (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 pget pget) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 object? object?) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 promise::t promise::t) - (spec: 1 with-catch with-catch) + (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 aget aget) - (spec: 1 error-message error-message) - (spec: 1 new-instance new-instance) - (spec: 1 substruct? substruct?) - (spec: 1 class::t class::t) - (spec: 1 s16vector::t s16vector::t) - (spec: 1 create-directory* create-directory*) - (spec: 1 make-hash-table-immediate make-hash-table-immediate) - (spec: 1 eof::t eof::t) (spec: 1 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 1 processor::t processor::t) - (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 write-u8vector write-u8vector) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 andmap andmap) - (spec: 1 find-method find-method) - (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 make-promise make-promise) - (spec: 1 void? void?) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 error-irritants error-irritants) - (spec: 1 object-fill! object-fill!) - (spec: 1 assgetq assgetq) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 class-type-super class-type-super) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) - (spec: 1 spawn spawn) - (spec: 1 display-exception display-exception) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 class-type-name class-type-name) - (spec: 1 procedure::t procedure::t) - (spec: 1 read-syntax-from-file read-syntax-from-file) - (spec: 1 &class-type-id &class-type-id) + 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 make-class-predicate make-class-predicate) - (spec: 1 find find) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 u8vector-port::t u8vector-port::t) - (spec: 1 pair::t pair::t) + (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 + 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 checked-method-ref checked-method-ref) - (spec: 1 weak? weak?) - (spec: 1 byte-port? byte-port?) + (spec: 1 file-info::t file-info::t) (spec: 1 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 add-load-path! add-load-path!) - (spec: 1 frame::t frame::t) - (spec: 1 object-type object-type) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 remf remf) - (spec: 1 class-type=? class-type=?) - (spec: 1 atom::t atom::t) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 hash-find hash-find) - (spec: 1 slot-ref slot-ref) - (spec: 1 string-rindex string-rindex) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 file-mode file-mode) - (spec: - 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 read-file-string read-file-string) - (spec: 1 file-info-group file-info-group) - (spec: 1 u8vector-swap! u8vector-swap!) - (spec: 1 flabs flabs) - (spec: 1 tanh tanh) - (spec: 1 readtable? readtable?) - (spec: 1 fixnum->flonum fixnum->flonum) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 string-concatenate string-concatenate) - (spec: 1 touch touch) - (spec: 1 host-info-name host-info-name) - (spec: 1 atanh atanh) - (spec: 1 concatenate concatenate) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 u32vector-append u32vector-append) - (spec: 1 f64vector f64vector) - (spec: 1 group-info? group-info?) - (spec: 1 second second) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 u16vector-concatenate u16vector-concatenate) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 f32vector f32vector) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 mutex-lock! mutex-lock!) - (spec: - 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 u8vector->object u8vector->object) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 user-info-name user-info-name) - (spec: 1 fxnand fxnand) - (spec: 1 char-set-size char-set-size) - (spec: 1 link-incremental link-incremental) - (spec: - 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 fxandc1 fxandc1) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 s16vector? s16vector?) - (spec: - 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 1 error error) - (spec: 1 gensym gensym) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 1 table->list table->list) - (spec: - 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 fl= fl=) - (spec: - 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 open-input-vector open-input-vector) - (spec: - 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 fltan fltan) - (spec: - 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 1 object->u8vector object->u8vector) - (spec: 1 flnumerator flnumerator) - (spec: 1 fourth fourth) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 thread-specific thread-specific) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 1 file-last-modification-time file-last-modification-time) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 file-info-device file-info-device) - (spec: 1 random-source? random-source?) - (spec: 1 u8vector-shrink! u8vector-shrink!) - (spec: - 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 fl>= fl>=) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 1 uninterned-symbol? uninterned-symbol?) - (spec: 1 null-list? null-list?) - (spec: 1 s64vector? s64vector?) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: - 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 group-info-name group-info-name) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 cosh cosh) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 thread-priority thread-priority) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 cons* cons*) - (spec: 1 f64vector-append f64vector-append) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 split-at! split-at!) - (spec: 1 thread-join! thread-join!) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 string->char-set string->char-set) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 user-info-home user-info-home) - (spec: 1 fxand fxand) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 pretty-print pretty-print) + (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 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) + 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 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 open-output-process open-output-process) + 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 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 1 flfinite? flfinite?) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) + 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 unterminated-process-exception-procedure unterminated-process-exception-procedure) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 foreign? foreign?) - (spec: 1 s16vector->list s16vector->list) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 thread-state thread-state) - (spec: 1 fltruncate fltruncate) - (spec: 1 subu16vector subu16vector) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 first-set-bit first-set-bit) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 input-port-line input-port-line) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 file-last-change-time file-last-change-time) - (spec: 1 u8vector-set! u8vector-set!) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 delete! delete!) - (spec: 1 flexpm1 flexpm1) - (spec: - 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 1 take-right take-right) - (spec: 1 uninterned-keyword? uninterned-keyword?) + (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 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 1 s64vector-ref s64vector-ref) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 compilation-target compilation-target) - (spec: 1 f32vector? f32vector?) - (spec: 1 make-will make-will) - (spec: 1 protocol-info-number protocol-info-number) - (spec: 1 subs16vector subs16vector) - (spec: 1 bit-field bit-field) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 process-times process-times) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 script-file script-file) - (spec: 1 file-info-creation-time file-info-creation-time) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 1 string-swap! string-swap!) - (spec: 1 u16vector->list u16vector->list) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 split-at split-at) - (spec: 1 u32vector u32vector) - (spec: 1 char-set-map char-set-map) - (spec: 1 u8vector u8vector) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 time->seconds time->seconds) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 fxmin fxmin) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 thread-state-running? thread-state-running?) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 group-info-members group-info-members) - (spec: 1 user-info-gid user-info-gid) - (spec: 1 vector-fold vector-fold) - (spec: 1 vector-unfold vector-unfold) - (spec: 1 with-output-to-process with-output-to-process) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 fl< fl<) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 1 display-procedure-environment display-procedure-environment) - (spec: 1 write-file-string-list write-file-string-list) - (spec: 1 flsqrt flsqrt) + 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 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 flnan? flnan?) - (spec: 1 rename-file rename-file) + 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 output-port-line output-port-line) - (spec: 1 fxabs fxabs) - (spec: 1 thread-send thread-send) - (spec: - 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 subu32vector subu32vector) - (spec: 1 u64vector->list u64vector->list) + (spec: 1 flonum? flonum?) + (spec: 1 subvector subvector) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) - (spec: 1 first first) - (spec: 1 current-directory current-directory) - (spec: 1 u8vector-set u8vector-set) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 flexp flexp) - (spec: 1 input-port-readtable-set! input-port-readtable-set!) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 trace trace) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 u32vector-concatenate u32vector-concatenate) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 random-f64vector random-f64vector) + (spec: 1 last-pair last-pair) + (spec: 1 flacos flacos) (spec: 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 circular-list? circular-list?) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 process-status process-status) - (spec: 1 seconds->time seconds->time) - (spec: 1 host-info host-info) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 copy-file copy-file) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 string-suffix? string-suffix?) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 conjugate conjugate) - (spec: 1 open-vector open-vector) - (spec: 1 thread-init! thread-init!) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 list-sort list-sort) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 timeout->time timeout->time) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 char-set-count char-set-count) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 u16vector-copy u16vector-copy) - (spec: 1 user-info user-info) - (spec: 1 fxmax fxmax) - (spec: 1 vector-swap! vector-swap!) - (spec: 1 write-file-string write-file-string) - (spec: 1 tty? tty?) - (spec: 1 s8vector-set! s8vector-set!) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 1 open-dummy open-dummy) + (spec: 1 u8vector-swap! u8vector-swap!) + (spec: 1 make-random-source make-random-source) + (spec: 1 initialized-thread-exception? initialized-thread-exception?) (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 group-info-gid group-info-gid) (spec: 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 1 fl> fl>) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 1 u64vector-copy u64vector-copy) + (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 unbound-serial-number-exception-arguments unbound-serial-number-exception-arguments) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 fltanh fltanh) - (spec: - 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 remq remq) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 output-port-column output-port-column) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 fx>= fx>=) + (spec: 1 thread-base-priority thread-base-priority) (spec: 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 file-size file-size) - (spec: 1 network-info-name network-info-name) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 random-u8vector random-u8vector) + 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-string open-string) + (spec: 1 clear-bit-field clear-bit-field) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 mutex-state mutex-state) - (spec: 1 flasin flasin) - (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 table-length table-length) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 println println) + (spec: 1 bitwise-fold bitwise-fold) + (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 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 make-table make-table) - (spec: 1 u32vector-fill! u32vector-fill!) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 ->char-set ->char-set) - (spec: 1 file-device file-device) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 shell-command shell-command) - (spec: 1 bit-set? bit-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 seventh seventh) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 subu64vector subu64vector) + (spec: 1 bit-field-replace-same bit-field-replace-same) + (spec: 1 subf32vector-fill! subf32vector-fill!) (spec: 1 error-exception? error-exception?) - (spec: 1 char-set-union! char-set-union!) - (spec: 1 fxodd? fxodd?) - (spec: - 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 user-name user-name) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 write-substring write-substring) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 poll-point poll-point) - (spec: 1 s32vector s32vector) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 every every) - (spec: 1 fxxor fxxor) - (spec: 1 s8vector? s8vector?) - (spec: 1 unbox unbox) - (spec: 1 flonum? flonum?) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 flfloor flfloor) - (spec: 1 iota iota) - (spec: 1 sixth sixth) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 1 thread-specific thread-specific) + (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 1 flhypot flhypot) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 char-set->list char-set->list) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 s16vector-append s16vector-append) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 read-all read-all) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 dead-end dead-end) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 range-exception-arg-id range-exception-arg-id) + 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 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 1 box? box?) - (spec: 1 current-processor current-processor) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + 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 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 1 table-ref table-ref) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + 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-procedure - fixnum-overflow-exception-procedure) + 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 s16vector-set! s16vector-set!) + (spec: 1 u32vector-append u32vector-append) + (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 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 processor? processor?) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 will? will?) + 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 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 make-mutex make-mutex) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 u16vector-set u16vector-set) + 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 module-not-found-exception-procedure module-not-found-exception-procedure) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 random-integer random-integer) - (spec: 1 subu8vector subu8vector) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 thread-name thread-name) - (spec: 1 xcons xcons) - (spec: 1 fxnot fxnot) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 char-set-union char-set-union) - (spec: 1 output-port-width output-port-width) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 user-info? user-info?) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 append-reverse append-reverse) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 keyword->string keyword->string) - (spec: 1 open-directory open-directory) - (spec: 1 flinfinite? flinfinite?) + (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 number-of-arguments-limit-exception-arguments number-of-arguments-limit-exception-arguments) - (spec: 1 os-exception-arguments os-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 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) + 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 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 char-set char-set) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 fold-right fold-right) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 file-owner file-owner) - (spec: 1 network-info network-info) - (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 1 box box) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 flacosh flacosh) + 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 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) + 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 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) + 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 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) + 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 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 host-name host-name) - (spec: 1 processor-id processor-id) - (spec: 1 subs32vector-fill! subs32vector-fill!) - (spec: 1 u32vector-copy u32vector-copy) - (spec: 1 will-testator will-testator) - (spec: 1 executable-path executable-path) - (spec: 1 u16vector-copy! u16vector-copy!) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 bitwise-nand bitwise-nand) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 file-attributes file-attributes) + 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 + 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 module-not-found-exception-arguments module-not-found-exception-arguments) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 user-info-uid user-info-uid) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 fxnor fxnor) - (spec: 1 s32vector? s32vector?) - (spec: 1 void void) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 list-sort! list-sort!) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 started-thread-exception? started-thread-exception?) - (spec: 1 any any) - (spec: 1 list->s64vector list->s64vector) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 acosh acosh) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 path-volume path-volume) - (spec: 1 table-for-each table-for-each) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 1 u64vector? u64vector?) + (spec: 1 read-file-string read-file-string) + (spec: + 1 + input-port-characters-buffered + input-port-characters-buffered) + (spec: + 1 + 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 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 1 flodd? flodd?) + 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 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 call/cc call/cc) - (spec: 1 real-time real-time) - (spec: 1 flexpt flexpt) + 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 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) + 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 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 s16vector s16vector) - (spec: 1 thread-start! thread-start!) - (spec: 1 vector->bits vector->bits) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 fold fold) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 file-number-of-links file-number-of-links) + 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 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 mutex-name mutex-name) - (spec: 1 u8vector? u8vector?) - (spec: 1 flacos flacos) - (spec: 1 table-merge table-merge) + 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 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 read-substring read-substring) - (spec: 1 will-execute! will-execute!) - (spec: 1 host-info? host-info?) - (spec: 1 concatenate! concatenate!) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 make-thread make-thread) - (spec: 1 setenv setenv) - (spec: 1 string-contains string-contains) - (spec: 1 u32vector-length u32vector-length) - (spec: 1 subs32vector subs32vector) - (spec: 1 fifth fifth) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 raise raise) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 u8vector-append u8vector-append) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 console-port console-port) - (spec: 1 subs64vector subs64vector) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 list->table list->table) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 s64vector s64vector) - (spec: 1 char-set-delete! char-set-delete!) - (spec: 1 fxandc2 fxandc2) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 string->keyword string->keyword) - (spec: 1 thread-suspend! thread-suspend!) + 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 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 vector-inc! vector-inc!) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 address-info-family address-info-family) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 unbreak unbreak) + 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 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 1 link-flat link-flat) - (spec: 1 table-copy table-copy) - (spec: 1 car+cdr car+cdr) - (spec: 1 directory-files directory-files) - (spec: 1 flhypot flhypot) + 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 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 1 thread-group->thread-list thread-group->thread-list) - (spec: 1 untrace untrace) - (spec: 1 test-bit-field? test-bit-field?) - (spec: 1 length+ length+) + 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-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 s16vector-concatenate s16vector-concatenate) - (spec: 1 flzero? flzero?) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 bits->vector bits->vector) - (spec: 1 current-readtable current-readtable) - (spec: 1 file-info-size file-info-size) - (spec: 1 range-exception-arguments range-exception-arguments) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 1 table-search table-search) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 1 flceiling flceiling) + 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 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 1 system-stamp system-stamp) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 service-info service-info) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 subf32vector subf32vector) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 type-exception? type-exception?) + 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 + 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 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 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 1 help-browser help-browser) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 subu8vector-fill! subu8vector-fill!) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 random-real random-real) + 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 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 bitwise-xor bitwise-xor) + 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 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 subs8vector subs8vector) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 path-directory path-directory) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 fxquotient fxquotient) - (spec: 1 s16vector-fill! s16vector-fill!) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 vector-concatenate vector-concatenate) + 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 + 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 char-set-filter! char-set-filter!) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 getenv getenv) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 fixnum? fixnum?) - (spec: 1 third third) - (spec: 1 open-dummy open-dummy) - (spec: 1 repl-result-history-ref repl-result-history-ref) - (spec: 1 keyword-hash keyword-hash) - (spec: 1 drop drop) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 1 subs16vector-fill! subs16vector-fill!) + (spec: 1 u16vector-shrink! u16vector-shrink!) (spec: 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 flinteger? flinteger?) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (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 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) + 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 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) + 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 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 fx- fx-) - (spec: 1 char-set-any char-set-any) - (spec: 1 open-tcp-client open-tcp-client) - (spec: 1 bits->list bits->list) - (spec: 1 continuation-return continuation-return) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 socket-info? socket-info?) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 input-port-char-position input-port-char-position) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 current-time current-time) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: 1 call-with-input-vector call-with-input-vector) + 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 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 1 flatanh flatanh) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 system-version system-version) + 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 bit-set? bit-set?) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 concatenate! concatenate!) (spec: 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 proper-list? proper-list?) - (spec: 1 f32vector-set! f32vector-set!) - (spec: 1 identity identity) - (spec: 1 make-random-source make-random-source) - (spec: 1 string-set string-set) - (spec: 1 u16vector? u16vector?) - (spec: 1 help help) - (spec: 1 u64vector-set! u64vector-set!) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 create-fifo create-fifo) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 1 car+cdr car+cdr) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) - (spec: 1 module-search-order-reset! module-search-order-reset!) - (spec: 1 random-source-make-integers random-source-make-integers) + 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 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 force-output force-output) + 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 s32vector-length s32vector-length) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 list->bits list->bits) - (spec: 1 char-set-filter char-set-filter) + (spec: 1 fold-right fold-right) (spec: 1 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 fxeqv fxeqv) - (spec: 1 s8vector-copy! s8vector-copy!) - (spec: 1 main main) - (spec: 1 vector-cas! vector-cas!) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 fl+* fl+*) - (spec: 1 dotted-list? dotted-list?) + 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 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 flscalbn flscalbn) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) + 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 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 fllog1p fllog1p) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 os-exception? os-exception?) - (spec: 1 fx+ fx+) - (spec: 1 reverse! reverse!) - (spec: 1 last-pair last-pair) - (spec: 1 socket-info-port-number socket-info-port-number) - (spec: 1 thread-group-specific thread-group-specific) - (spec: 1 bits bits) - (spec: 1 thread-quantum-set! thread-quantum-set!) - (spec: 1 network-info? network-info?) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 mutex? mutex?) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 break break) - (spec: 1 table-merge! table-merge!) - (spec: 1 compile-file compile-file) - (spec: 1 flatan flatan) - (spec: 1 readtable-max-write-level readtable-max-write-level) + 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 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) - (spec: 1 fl* fl*) - (spec: 1 read-subu8vector read-subu8vector) + 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 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 address-info-protocol address-info-protocol) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 f32vector-fill! f32vector-fill!) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 println println) - (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 arithmetic-shift arithmetic-shift) - (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 cpu-time cpu-time) - (spec: 1 f64vector-ref f64vector-ref) + 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 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 fxorc2 fxorc2) - (spec: 1 partition! partition!) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 s16vector-copy s16vector-copy) - (spec: 1 char-set-every char-set-every) - (spec: 1 get-output-u8vector get-output-u8vector) + 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 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 s8vector s8vector) - (spec: 1 append! append!) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 list= list=) - (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) + 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 keyword-expected-exception-procedure keyword-expected-exception-procedure) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 flilogb flilogb) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 fx* fx*) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 last last) - (spec: 1 open-string open-string) - (spec: 1 socket-info-family socket-info-family) (spec: 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 bit-swap bit-swap) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 network-info-number network-info-number) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 file-type file-type) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 input-port-byte-position input-port-byte-position) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 file-info-mode file-info-mode) + 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 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 table-set! table-set!) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 flasinh flasinh) - (spec: 1 call-with-input-string call-with-input-string) + 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-procedure + number-of-arguments-limit-exception-procedure) + (spec: + 1 + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 flfloor flfloor) + (spec: + 1 + 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 noncontinuable-exception-reason noncontinuable-exception-reason) - (spec: 1 system-type system-type) - (spec: 1 address-info? address-info?) - (spec: 1 fxzero? fxzero?) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 service-info-aliases service-info-aliases) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 print print) + (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 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 asinh asinh) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 bitwise-orc1 bitwise-orc1) + 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 fxand fxand) + (spec: 1 output-port-width output-port-width) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 subs8vector-fill! subs8vector-fill!) - (spec: 1 u32vector-set u32vector-set) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: + 1 + 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 partition partition) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 fxorc1 fxorc1) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 thread? thread?) - (spec: 1 s16vector-length s16vector-length) - (spec: 1 vector-any vector-any) - (spec: 1 fxbit-count fxbit-count) - (spec: 1 char-set-difference! char-set-difference!) + (spec: 1 touch touch) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 tty-history tty-history) - (spec: 1 s8vector-concatenate s8vector-concatenate) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 s64vector-copy s64vector-copy) - (spec: 1 flpositive? flpositive?) - (spec: 1 open-event-queue open-event-queue) - (spec: 1 repl-input-port repl-input-port) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) + (spec: 1 flexpt flexpt) (spec: 1 - keyword-expected-exception-arguments - keyword-expected-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 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 os-exception-message os-exception-message) + 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 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 char-set->string char-set->string) - (spec: 1 open-process open-process) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 bitwise-eqv bitwise-eqv) - (spec: 1 substring-fill! substring-fill!) - (spec: 1 udp-source-socket-info udp-source-socket-info) - (spec: 1 continuation? continuation?) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 ninth ninth) - (spec: 1 u8vector-ref u8vector-ref) + 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 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) + 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 uninitialized-thread-exception? uninitialized-thread-exception?) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (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 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 fleven? fleven?) - (spec: 1 take take) + 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 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 s64vector-length s64vector-length) + 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 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 file-info file-info) - (spec: 1 subvector-move! subvector-move!) - (spec: 1 create-link create-link) - (spec: 1 u64vector u64vector) - (spec: 1 eighth eighth) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 open-udp open-udp) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 fxwrap+ fxwrap+) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 path-normalize path-normalize) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 vector-every vector-every) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 char-set-intersection char-set-intersection) - (spec: 1 fxlength fxlength) - (spec: 1 list->char-set list->char-set) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 group-info group-info) - (spec: 1 circular-list circular-list) - (spec: 1 s8vector-fill! s8vector-fill!) - (spec: 1 pp pp) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 fl- fl-) - (spec: 1 delete delete) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 1 flsin flsin) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 flmax flmax) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 current-time current-time) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 continuation-return continuation-return) + (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 1 subu8vector subu8vector) (spec: 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 1 remove! remove!) - (spec: 1 thread-receive thread-receive) - (spec: 1 fx> fx>) - (spec: 1 char-set-copy char-set-copy) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 f64vector? f64vector?) - (spec: 1 subu16vector-fill! subu16vector-fill!) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 udp-read-u8vector udp-read-u8vector) - (spec: 1 file-inode file-inode) - (spec: 1 delete-directory delete-directory) - (spec: 1 not-pair? not-pair?) - (spec: 1 fldenominator fldenominator) + 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 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) + 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 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) - (spec: 1 defer-user-interrupts defer-user-interrupts) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 char-set? char-set?) - (spec: 1 protocol-info protocol-info) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 set-box! set-box!) - (spec: 1 subf64vector subf64vector) - (spec: 1 u16vector-append u16vector-append) + 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 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 1 process-pid process-pid) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 command-name command-name) - (spec: 1 copy-bit copy-bit) - (spec: 1 file-group file-group) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 foreign-release! foreign-release!) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 time? time?) - (spec: 1 path-extension path-extension) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 list-set list-set) - (spec: 1 step step) - (spec: 1 err-code->string err-code->string) + 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 list->f64vector list->f64vector) - (spec: 1 s16vector-swap! s16vector-swap!) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 fl<= fl<=) - (spec: 1 integer-sqrt integer-sqrt) - (spec: 1 readtable-comment-handler readtable-comment-handler) - (spec: 1 system-version-string system-version-string) - (spec: 1 flsquare flsquare) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 remove remove) - (spec: 1 flnegative? flnegative?) + 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 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 1 object->string object->string) - (spec: 1 display-exception-in-context display-exception-in-context) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 fx= fx=) - (spec: 1 tenth tenth) - (spec: 1 thread-sleep! thread-sleep!) - (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 thread-group? thread-group?) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 f64vector-swap! f64vector-swap!) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 filter! filter!) - (spec: 1 current-thread current-thread) - (spec: 1 file-info? file-info?) - (spec: 1 range-exception? range-exception?) + 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 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 table? table?) - (spec: 1 flcosh flcosh) - (spec: 1 readtable-start-syntax readtable-start-syntax) + 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 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 address-infos address-infos) - (spec: 1 char-set= char-set=) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 service-info-name service-info-name) - (spec: 1 subf32vector-move! subf32vector-move!) + 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 condition-variable? condition-variable?) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 string-suffix-ci? string-suffix-ci?) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 s16vector-copy! s16vector-copy!) + (spec: 1 address-infos address-infos) (spec: 1 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 u64vector? u64vector?) + 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 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 create-directory create-directory) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 1 subvector subvector) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 foreign-address foreign-address) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 vector-set vector-set) - (spec: 1 path-expand path-expand) + 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 + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 s64vector-append s64vector-append) + (spec: + 1 + 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 stack-overflow-exception? stack-overflow-exception?) + (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 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 fxif fxif) - (spec: 1 s8vector-copy s8vector-copy) - (spec: 1 apropos apropos) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + 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 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 1 top top) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) + 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 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 1 fl+ fl+) - (spec: 1 integer-nth-root integer-nth-root) - (spec: 1 thread thread) - (spec: 1 drop-right! drop-right!) - (spec: 1 flround flround) - (spec: 1 open-file open-file) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: 1 display-exception display-exception) - (spec: 1 fllog fllog) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 fx<= fx<=) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 bitwise-and bitwise-and) + 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 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 substring-move! substring-move!) - (spec: 1 filter filter) - (spec: 1 default-random-source default-random-source) - (spec: 1 input-port-column input-port-column) - (spec: 1 file-info-type file-info-type) - (spec: 1 flcos flcos) - (spec: 1 call-with-output-process call-with-output-process) + 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? - not-in-compilation-context-exception?) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 take! take!) - (spec: 1 char-set<= char-set<=) + unterminated-process-exception? + unterminated-process-exception?) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 service-info? service-info?) - (spec: 1 bit-count bit-count) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 u8vector-copy! u8vector-copy!) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 script-directory script-directory) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 command-args command-args) - (spec: 1 string-shrink! string-shrink!) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 u16vector u16vector) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 1 sinh sinh) - (spec: 1 u32vector? u32vector?) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 time time) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 fxremainder fxremainder) - (spec: 1 abort abort) + 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 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 list->char-set! list->char-set!) + 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 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 s8vector-length s8vector-length) - (spec: 1 with-input-from-string with-input-from-string) - (spec: 1 integer-length integer-length) - (spec: 1 system-type-string system-type-string) - (spec: 1 fl/ fl/) + 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 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 keyword? keyword?) - (spec: 1 drop-right drop-right) - (spec: 1 open-input-process open-input-process) - (spec: 1 flsinh flsinh) - (spec: 1 replace-bit-field replace-bit-field) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) (spec: 1 - display-continuation-environment - display-continuation-environment) - (spec: 1 tcp-service-register! tcp-service-register!) - (spec: 1 flmin flmin) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 fx< fx<) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 thread-group-suspend! thread-group-suspend!) + 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 read-bytevector read-bytevector) + (spec: 1 write-shared write-shared) + (spec: 1 write-simple write-simple) + (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 emergency-exit emergency-exit) - (spec: 1 list-set! list-set!) - (spec: 1 call-with-port call-with-port) + (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 vector-for-each vector-for-each) + (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 round-remainder round-remainder) - (spec: 1 string-upcase string-upcase) + (spec: 1 emergency-exit emergency-exit) + (spec: 1 ceiling-quotient ceiling-quotient) + (spec: 1 command-line command-line) + (spec: 1 binary-port? binary-port?) (spec: 1 features features) - (spec: 1 boolean=? boolean=?) + (spec: 1 current-second current-second) + (spec: 1 bytevector-append bytevector-append) (spec: 1 output-port-open? output-port-open?) + (spec: 1 string-downcase string-downcase) + (spec: 1 symbol=? symbol=?) (spec: 1 read-error? read-error?) - (spec: 1 open-input-string open-input-string) - (spec: 1 nan? nan?) - (spec: 1 bytevector? bytevector?) - (spec: 1 digit-value digit-value) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 inexact inexact) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 exit exit) - (spec: 1 read-string read-string) - (spec: 1 round/ round/) - (spec: 1 get-output-bytevector get-output-bytevector) (spec: 1 string-copy! string-copy!) - (spec: 1 symbol=? symbol=?) - (spec: 1 vector->string vector->string) - (spec: 1 read-u8 read-u8) - (spec: 1 balanced/ balanced/) - (spec: 1 error-object? error-object?) - (spec: 1 truncate/ truncate/) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 textual-port? textual-port?) - (spec: 1 write-string write-string) - (spec: 1 current-error-port current-error-port) - (spec: 1 write-simple write-simple) - (spec: 1 round-quotient round-quotient) - (spec: 1 get-environment-variables get-environment-variables) + (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 balanced-quotient balanced-quotient) - (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 square square) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 open-binary-input-file open-binary-input-file) - (spec: 1 open-output-string open-output-string) - (spec: 1 bytevector-copy bytevector-copy) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 make-parameter make-parameter) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 string-for-each string-for-each) - (spec: 1 string->vector string->vector) + (spec: 1 utf8->string utf8->string) + (spec: 1 write-u8 write-u8) + (spec: 1 exact-integer? exact-integer?) (spec: 1 floor/ floor/) - (spec: 1 bytevector-append bytevector-append) - (spec: 1 write-shared write-shared) - (spec: 1 peek-u8 peek-u8) - (spec: 1 list-copy list-copy) - (spec: 1 euclidean-quotient euclidean-quotient) - (spec: 1 open-input-bytevector open-input-bytevector) - (spec: 1 ceiling-remainder ceiling-remainder) - (spec: 1 string->utf8 string->utf8) - (spec: 1 bytevector bytevector) - (spec: 1 string-foldcase string-foldcase) + (spec: 1 get-output-string get-output-string) (spec: 1 balanced-remainder balanced-remainder) - (spec: 1 close-port close-port) + (spec: 1 file-error? file-error?) + (spec: 1 port? port?) + (spec: 1 round-remainder round-remainder) + (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-quotient floor-quotient) - (spec: 1 read-bytevector! read-bytevector!) - (spec: 1 current-second current-second) - (spec: 1 promise? promise?) - (spec: 1 error-object-message error-object-message) - (spec: 1 file-error? file-error?) - (spec: 1 get-output-string get-output-string) + (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 open-binary-output-file open-binary-output-file) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) - (spec: 1 finite? finite?) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) - (spec: 1 binary-port? binary-port?) - (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 string-downcase string-downcase) + (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 read-string read-string) + (spec: 1 open-binary-input-file open-binary-input-file) + (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 input-port-open? input-port-open?) - (spec: 1 bytevector-u8-ref bytevector-u8-ref) - (spec: 1 truncate-remainder truncate-remainder) - (spec: 1 u8-ready? u8-ready?) - (spec: 1 utf8->string utf8->string) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 vector-append vector-append) - (spec: 1 vector-map vector-map) (spec: 1 bytevector-length bytevector-length) + (spec: 1 u8-ready? u8-ready?) + (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 infinite? infinite?) - (spec: 1 write-u8 write-u8) - (spec: 1 command-line command-line) + (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 make-promise make-promise) - (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 vector-copy! vector-copy!) - (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 exact-integer? exact-integer?) + (spec: 1 bytevector bytevector) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) (spec: 1 euclidean/ euclidean/) - (spec: 1 port? port?) - (spec: 1 vector-copy vector-copy) (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 negative? negative?) - (spec: 1 caddr caddr) - (spec: 1 null? null?) - (spec: 1 >= >=) + (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 string<=? string<=?) - (spec: 1 sqrt sqrt) - (spec: 1 vector? vector?) - (spec: 1 even? even?) - (spec: 1 angle angle) - (spec: 1 char-whitespace? char-whitespace?) + (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 char-lower-case? char-lower-case?) - (spec: 1 boolean? boolean?) - (spec: 1 cadddr cadddr) + (spec: 1 cadar cadar) + (spec: 1 number? number?) + (spec: 1 remainder remainder) + (spec: 1 read read) + (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 complex? complex?) - (spec: 1 make-string make-string) - (spec: 1 max max) - (spec: 1 string-ci>? string-ci>?) + (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 cddar cddar) - (spec: 1 caddar caddar) - (spec: 1 null-environment null-environment) - (spec: 1 string-ci>=? string-ci>=?) - (spec: 1 lcm lcm) - (spec: 1 list-ref list-ref) - (spec: 1 abs abs) - (spec: 1 string string) - (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 exact? exact?) - (spec: 1 cadaar cadaar) - (spec: 1 eval eval) (spec: 1 cdaddr cdaddr) - (spec: 1 cadar cadar) - (spec: 1 = =) - (spec: 1 gcd gcd) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 round round) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 char-upcase char-upcase) - (spec: 1 acos acos) - (spec: 1 cddaar cddaar) + (spec: 1 cadaar cadaar) + (spec: 1 exp exp) + (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 interaction-environment interaction-environment) - (spec: 1 current-input-port current-input-port) - (spec: 1 caaaar caaaar) - (spec: 1 string>=? string>=?) - (spec: 1 close-output-port close-output-port) - (spec: 1 imag-part imag-part) - (spec: 1 truncate truncate) - (spec: 1 list->string list->string) + (spec: 1 acos acos) + (spec: 1 vector-set! vector-set!) + (spec: 1 values values) + (spec: 1 string-set! string-set!) (spec: 1 output-port? output-port?) - (spec: 1 char>=? char>=?) - (spec: 1 list-tail list-tail) - (spec: 1 cdddar cdddar) - (spec: 1 car car) + (spec: 1 cdaar cdaar) + (spec: 1 caadr caadr) (spec: 1 odd? odd?) - (spec: 1 length length) - (spec: 1 char-ci<=? char-ci<=?) - (spec: 1 string->symbol string->symbol) - (spec: 1 not not) - (spec: 1 call-with-input-file call-with-input-file) - (spec: 1 - -) - (spec: 1 close-input-port close-input-port) - (spec: 1 char-alphabetic? char-alphabetic?) - (spec: 1 eof-object? eof-object?) - (spec: 1 vector-length vector-length) - (spec: 1 char=? char=?) - (spec: 1 exact->inexact exact->inexact) - (spec: 1 cddr cddr) (spec: 1 list? list?) - (spec: 1 real? real?) - (spec: 1 string->number string->number) - (spec: 1 string-copy string-copy) - (spec: - 1 - call-with-current-continuation - call-with-current-continuation) - (spec: 1 denominator denominator) - (spec: 1 transcript-off transcript-off) - (spec: 1 vector->list vector->list) - (spec: 1 + +) - (spec: 1 cos cos) - (spec: 1 cons cons) - (spec: 1 string=? string=?) - (spec: 1 string->list string->list) - (spec: 1 symbol->string symbol->string) - (spec: 1 char? 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 char-ready? char-ready?) - (spec: 1 char->integer char->integer) - (spec: 1 inexact->exact inexact->exact) - (spec: 1 cadr cadr) - (spec: 1 symbol? symbol?) - (spec: 1 * *) - (spec: 1 exp exp) - (spec: 1 stringnumber string->number) + (spec: 1 exact? exact?) + (spec: 1 assv assv) (spec: 1 magnitude magnitude) - (spec: 1 number->string number->string) - (spec: 1 real-part real-part) - (spec: 1 vector vector) - (spec: 1 call-with-output-file call-with-output-file) - (spec: 1 string-set! string-set!) - (spec: 1 asin asin) - (spec: 1 sin sin) - (spec: 1 memv memv) (spec: 1 char-ci>? char-ci>?) - (spec: 1 load load) - (spec: 1 caaadr caaadr) + (spec: 1 real-part real-part) + (spec: 1 symbol->string symbol->string) (spec: 1 cdr cdr) - (spec: 1 integer->char integer->char) - (spec: 1 memq memq) - (spec: 1 write write) + (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 expt expt) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 substring substring) - (spec: 1 equal? equal?) - (spec: 1 zero? zero?) - (spec: 1 caaddr caaddr) - (spec: 1 number? number?) - (spec: 1 cdaadr cdaadr) - (spec: 1 read read) - (spec: 1 current-output-port current-output-port) - (spec: 1 string? string?) - (spec: 1 string-ref string-ref) + (spec: 1 make-string make-string) (spec: 1 char-ci=? char-ci=?) - (spec: 1 string-fill! string-fill!) - (spec: 1 char? char?) - (spec: 1 with-input-from-file with-input-from-file) (spec: 1 cdddr cdddr) - (spec: 1 force force) + (spec: 1 char=? char=?) + (spec: 1 integer? integer?) + (spec: 1 positive? positive?) + (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 close-output-port close-output-port) + (spec: 1 * *) (spec: 1 inexact? inexact?) - (spec: 1 string>? string>?) - (spec: 1 make-polar make-polar) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 for-each for-each) - (spec: 1 char-ci? char>?) - (spec: 1 display display) - (spec: 1 peek-char peek-char) - (spec: 1 quotient quotient) - (spec: 1 dynamic-wind dynamic-wind) - (spec: 1 rational? rational?) - (spec: 1 string-ci=? string-ci=?) - (spec: 1 <= <=) - (spec: 1 assq assq) + (spec: 1 newline newline) + (spec: 1 >= >=) (spec: 1 pair? pair?) - (spec: 1 with-output-to-file with-output-to-file) - (spec: 1 caadr caadr) - (spec: 1 integer? integer?) - (spec: 1 cdaar cdaar) - (spec: 1 numerator numerator) + (spec: 1 list-ref list-ref) + (spec: 1 rationalize rationalize) + (spec: 1 cos cos) + (spec: 1 cdddar cdddar) + (spec: 1 caaaar caaaar) + (spec: 1 char<=? char<=?) + (spec: 1 char-numeric? char-numeric?) (spec: 1 open-input-file open-input-file) - (spec: 1 min min) - (spec: 1 newline newline) - (spec: 1 tan tan) - (spec: 1 < <) - (spec: 1 log log) - (spec: 1 atan atan) - (spec: 1 map map) - (spec: 1 string-ciinteger char->integer) + (spec: 1 sqrt sqrt) + (spec: 1 string<=? string<=?) + (spec: 1 expt expt) + (spec: 1 log log) + (spec: 1 vector vector) (spec: 1 modulo modulo) - (spec: 1 char-downcase char-downcase) - (spec: 1 list->vector list->vector) + (spec: 1 > >) + (spec: 1 char=? 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 Runtime Runtime) - (spec: 1 GambitRuntime GambitRuntime) (spec: 1 GerbilRuntime GerbilRuntime) (spec: 1 %%app-dotted %%app) (spec: 1 %%ref-dotted %%ref) diff --git a/src/bootstrap/gerbil/core/contract.ssi b/src/bootstrap/gerbil/core/contract.ssi index 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 6fd069107..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]#_g84031_| + (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]#_g84033_| + (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]#_g84035_| + (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]#_g84037_| + (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]#_g84038_| + (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]#_g84039_| + (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]#_g84040_| + (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]#_g84041_| + (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]#_g84042_| + (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]#_g84043_| + (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]#_g84044_| + (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]#_g84045_| + (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]#_g84046_| + (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]#_g84047_| + (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]#_g84049_| + (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]#_g84050_| + (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]#_g84051_| + (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]#_g84052_| + (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]#_g84053_| + (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]#_g84054_| + (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]#_g84055_| + (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]#_g84056_| + (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]#_g84057_| + (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]#_g84058_| + (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]#_g84059_| + (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]#_g84061_| + (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]#_g84062_| + (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]#_g84063_| + (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]#_g84064_| + (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]#_g84065_| + (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]#_g84066_| + (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]#_g84067_| + (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]#_g84068_| + (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]#_g84069_| + (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]#_g84070_| + (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]#_g84071_| + (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]#_g84073_| + (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]#_g84074_| + (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]#_g84075_| + (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]#_g84076_| + (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]#_g84077_| + (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]#_g84078_| + (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]#_g84079_| + (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]#_g84080_| + (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]#_g84081_| + (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]#_g84082_| + (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]#_g84083_| + (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 ((__obj83946 + (let ((__obj84806 (let () (declare (not safe)) (##structure @@ -359,22 +415,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83946 + __obj84806 'gerbil/core/contract~InterfaceInfo#interface-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83946 'interface-info '2 '#f '#f)) + (##unchecked-structure-set! __obj84806 'interface-info '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83946 - '(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! __obj83946 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj84806 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83946 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj84806 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83946 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj84806 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83946 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj84806 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83946 '#f '11 '#f '#f)) - (let ((__tmp84030 |gerbil/core/contract~InterfaceInfo[1]#_g84031_|)) + (##unchecked-structure-set! __obj84806 '#f '11 '#f '#f)) + (let ((__tmp84898 |gerbil/core/contract~InterfaceInfo[1]#_g84899_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83946 __tmp84030 '12 '#f '#f)) - (let ((__tmp84032 |gerbil/core/contract~InterfaceInfo[1]#_g84033_|)) + (##unchecked-structure-set! __obj84806 __tmp84898 '12 '#f '#f)) + (let ((__tmp84900 |gerbil/core/contract~InterfaceInfo[1]#_g84901_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83946 __tmp84032 '13 '#f '#f)) - (let ((__tmp84034 |gerbil/core/contract~InterfaceInfo[1]#_g84035_|)) + (##unchecked-structure-set! __obj84806 __tmp84900 '13 '#f '#f)) + (let ((__tmp84902 |gerbil/core/contract~InterfaceInfo[1]#_g84903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83946 __tmp84034 '14 '#f '#f)) - (let ((__tmp84036 + (##unchecked-structure-set! __obj84806 __tmp84902 '14 '#f '#f)) + (let ((__tmp84904 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g84037_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g84038_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84039_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g84040_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g84041_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84042_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84043_|) - (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]#_g84044_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g84045_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84046_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84047_|) - '()))))))))))))) + |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! __obj83946 __tmp84036 '15 '#f '#f)) - (let ((__tmp84048 + (##unchecked-structure-set! __obj84806 __tmp84904 '15 '#f '#f)) + (let ((__tmp84918 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g84049_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g84050_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84051_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g84052_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g84053_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84054_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84055_|) - (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]#_g84056_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g84057_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84058_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84059_|) - '()))))))))))))) + |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! __obj83946 __tmp84048 '16 '#f '#f)) - (let ((__tmp84060 + (##unchecked-structure-set! __obj84806 __tmp84918 '16 '#f '#f)) + (let ((__tmp84932 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g84061_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g84062_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84063_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g84064_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g84065_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84066_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84067_|) - (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]#_g84068_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g84069_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84070_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84071_|) - '()))))))))))))) + |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! __obj83946 __tmp84060 '17 '#f '#f)) - (let ((__tmp84072 + (##unchecked-structure-set! __obj84806 __tmp84932 '17 '#f '#f)) + (let ((__tmp84946 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g84073_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g84074_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84075_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g84076_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g84077_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84078_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84079_|) - (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]#_g84080_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g84081_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84082_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84083_|) - '()))))))))))))) + |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! __obj83946 __tmp84072 '18 '#f '#f)) - __obj83946))) + (##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 2f2fa8312..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 _%$args45171%_ + (lambda _%$args45135%_ (apply make-instance |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%$args45171%_))) + _%$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 (_%id45152%_) - (if (gx#identifier? _%id45152%_) - (let ((_%t4515445156%_ (gx#syntax-local-value _%id45152%_ false))) - (if _%t4515445156%_ - (let* ((_%t45160%_ _%t4515445156%_) - (_%$e45163%_ + (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 - _%t45160%_)))) - (if _%$e45163%_ - _%$e45163%_ - (let ((_%$e45167%_ + _%t45124%_)))) + (if _%$e45127%_ + _%$e45127%_ + (let ((_%$e45131%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45160%_)))) - (if _%$e45167%_ - _%$e45167%_ + _%t45124%_)))) + (if _%$e45131%_ + _%$e45131%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45160%_)))))) + _%t45124%_)))))) '#f)) '#f))) (define |gerbil/core/contract~TypeReference[1]#resolve-type| - (lambda (_%stx45132%_ _%id45134%_) - (let _%loop45136%_ ((_%t45139%_ - (gx#syntax-local-value _%id45134%_ 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 - _%t45139%_)) - _%t45139%_ + _%t45103%_)) + _%t45103%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45139%_)) - _%t45139%_ + _%t45103%_)) + _%t45103%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45139%_)) - (_%loop45136%_ + _%t45103%_)) + (_%loop45100%_ (gx#syntax-local-value - (let ((__obj83954 _%t45139%_)) + (let ((__obj84813 _%t45103%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83954 + __obj84813 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83954 + __obj84813 '1 '#f '#f)) - (unchecked-slot-ref __obj83954 'identifier))) + (unchecked-slot-ref __obj84813 'identifier))) false)) - (if (not _%t45139%_) + (if (not _%t45103%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45132%_ - _%id45134%_) + _%stx45096%_ + _%id45098%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45132%_ - _%id45134%_ - _%t45139%_)))))))) + _%stx45096%_ + _%id45098%_ + _%t45103%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - (lambda (_%stx45108%_ _%id45110%_) - (let _%loop45112%_ ((_%id45115%_ _%id45110%_) - (_%t45117%_ - (gx#syntax-local-value _%id45110%_ 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 - _%t45117%_)) - _%id45115%_ + _%t45081%_)) + _%id45079%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45117%_)) - _%id45115%_ + _%t45081%_)) + _%id45079%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45117%_)) - (let ((_%id45125%_ - (let ((__obj83955 _%t45117%_)) + _%t45081%_)) + (let ((_%id45089%_ + (let ((__obj84814 _%t45081%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83955 + __obj84814 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83955 + __obj84814 '1 '#f '#f)) (unchecked-slot-ref - __obj83955 + __obj84814 'identifier))))) - (_%loop45112%_ - _%id45125%_ - (gx#syntax-local-value _%id45125%_ false))) - (if (not _%t45117%_) + (_%loop45076%_ + _%id45089%_ + (gx#syntax-local-value _%id45089%_ false))) + (if (not _%t45081%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45108%_ - _%id45115%_) + _%stx45072%_ + _%id45079%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45108%_ - _%id45115%_ - _%t45117%_)))))))) + _%stx45072%_ + _%id45079%_ + _%t45081%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - (lambda (_%stx45095%_ _%id45097%_) - (let ((_%t45099%_ + (lambda (_%stx45059%_ _%id45061%_) + (let ((_%t45063%_ (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45095%_ - _%id45097%_))) + _%stx45059%_ + _%id45061%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45099%_)) - (let ((__obj83957 _%t45099%_)) + _%t45063%_)) + (let ((__obj84816 _%t45063%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83957 + __obj84816 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83957 '12 '#f '#f)) - (unchecked-slot-ref __obj83957 '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 - _%t45099%_)) - (let ((__obj83956 _%t45099%_)) + _%t45063%_)) + (let ((__obj84815 _%t45063%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83956 + __obj84815 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83956 '4 '#f '#f)) - (unchecked-slot-ref __obj83956 '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" - _%stx45095%_ - _%id45097%_ - _%t45099%_)))))) + _%stx45059%_ + _%id45061%_ + _%t45063%_)))))) (define |gerbil/core/contract~TypeReference[:0:]#deftype| - (lambda (_%$stx45175%_) - (let* ((_%g4517945197%_ - (lambda (_%g4518045193%_) + (lambda (_%$stx45139%_) + (let* ((_%g4514345161%_ + (lambda (_%g4514445157%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4518045193%_))) - (_%g4517845252%_ - (lambda (_%g4518045201%_) - (if (gx#stx-pair? _%g4518045201%_) - (let ((_%e4518345204%_ (gx#syntax-e _%g4518045201%_))) - (let ((_%hd4518445208%_ + _%g4514445157%_))) + (_%g4514245216%_ + (lambda (_%g4514445165%_) + (if (gx#stx-pair? _%g4514445165%_) + (let ((_%e4514745168%_ (gx#syntax-e _%g4514445165%_))) + (let ((_%hd4514845172%_ (let () (declare (not safe)) - (##car _%e4518345204%_))) - (_%tl4518545211%_ + (##car _%e4514745168%_))) + (_%tl4514945175%_ (let () (declare (not safe)) - (##cdr _%e4518345204%_)))) - (if (gx#stx-pair? _%tl4518545211%_) - (let ((_%e4518645214%_ - (gx#syntax-e _%tl4518545211%_))) - (let ((_%hd4518745218%_ + (##cdr _%e4514745168%_)))) + (if (gx#stx-pair? _%tl4514945175%_) + (let ((_%e4515045178%_ + (gx#syntax-e _%tl4514945175%_))) + (let ((_%hd4515145182%_ (let () (declare (not safe)) - (##car _%e4518645214%_))) - (_%tl4518845221%_ + (##car _%e4515045178%_))) + (_%tl4515245185%_ (let () (declare (not safe)) - (##cdr _%e4518645214%_)))) - (if (gx#stx-pair? _%tl4518845221%_) - (let ((_%e4518945224%_ - (gx#syntax-e _%tl4518845221%_))) - (let ((_%hd4519045228%_ + (##cdr _%e4515045178%_)))) + (if (gx#stx-pair? _%tl4515245185%_) + (let ((_%e4515345188%_ + (gx#syntax-e _%tl4515245185%_))) + (let ((_%hd4515445192%_ (let () (declare (not safe)) - (##car _%e4518945224%_))) - (_%tl4519145231%_ + (##car _%e4515345188%_))) + (_%tl4515545195%_ (let () (declare (not safe)) - (##cdr _%e4518945224%_)))) - (if (gx#stx-null? _%tl4519145231%_) - ((lambda (_%L45234%_ _%L45236%_) + (##cdr _%e4515345188%_)))) + (if (gx#stx-null? _%tl4515545195%_) + ((lambda (_%L45198%_ _%L45200%_) (if (and (gx#identifier? - _%L45236%_) + _%L45200%_) (gx#identifier? - _%L45234%_)) + _%L45198%_)) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45236%_ + (cons _%L45200%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -267,17 +267,17 @@ (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L45234%_ '())) + (cons _%L45198%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4517945197%_ - _%g4518045201%_))) - _%hd4519045228%_ - _%hd4518745218%_) - (_%g4517945197%_ - _%g4518045201%_)))) - (_%g4517945197%_ _%g4518045201%_)))) - (_%g4517945197%_ _%g4518045201%_)))) - (_%g4517945197%_ _%g4518045201%_))))) - (_%g4517845252%_ _%$stx45175%_))))) + (_%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 1a87b695e..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]#_g84085_| + (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]#_g84087_| + (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]#_g84089_| + (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]#_g84091_| + (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]#_g84093_| + (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]#_g84095_| + (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]#_g84097_| + (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 ((__obj83953 + (let ((__obj84812 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83953 + __obj84812 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83953 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj84812 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83953 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj84812 '(identifier) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83953 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj84812 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83953 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj84812 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83953 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj84812 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83953 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj84812 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83953 '#f '11 '#f '#f)) - (let ((__tmp84084 |gerbil/core/contract~TypeReference[2]#_g84085_|)) + (##unchecked-structure-set! __obj84812 '#f '11 '#f '#f)) + (let ((__tmp84960 |gerbil/core/contract~TypeReference[2]#_g84961_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83953 __tmp84084 '12 '#f '#f)) - (let ((__tmp84086 |gerbil/core/contract~TypeReference[2]#_g84087_|)) + (##unchecked-structure-set! __obj84812 __tmp84960 '12 '#f '#f)) + (let ((__tmp84962 |gerbil/core/contract~TypeReference[2]#_g84963_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83953 __tmp84086 '13 '#f '#f)) - (let ((__tmp84088 |gerbil/core/contract~TypeReference[2]#_g84089_|)) + (##unchecked-structure-set! __obj84812 __tmp84962 '13 '#f '#f)) + (let ((__tmp84964 |gerbil/core/contract~TypeReference[2]#_g84965_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83953 __tmp84088 '14 '#f '#f)) - (let ((__tmp84090 + (##unchecked-structure-set! __obj84812 __tmp84964 '14 '#f '#f)) + (let ((__tmp84966 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84091_|) + |gerbil/core/contract~TypeReference[2]#_g84967_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83953 __tmp84090 '15 '#f '#f)) - (let ((__tmp84092 + (##unchecked-structure-set! __obj84812 __tmp84966 '15 '#f '#f)) + (let ((__tmp84968 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84093_|) + |gerbil/core/contract~TypeReference[2]#_g84969_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83953 __tmp84092 '16 '#f '#f)) - (let ((__tmp84094 + (##unchecked-structure-set! __obj84812 __tmp84968 '16 '#f '#f)) + (let ((__tmp84970 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84095_|) + |gerbil/core/contract~TypeReference[2]#_g84971_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83953 __tmp84094 '17 '#f '#f)) - (let ((__tmp84096 + (##unchecked-structure-set! __obj84812 __tmp84970 '17 '#f '#f)) + (let ((__tmp84972 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84097_|) + |gerbil/core/contract~TypeReference[2]#_g84973_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83953 __tmp84096 '18 '#f '#f)) - __obj83953))) + (##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 d6fe85862..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]#_g84100_| + (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 (_%stx45257%_) - (let* ((_%g4526045278%_ - (lambda (_%g4526145274%_) + (lambda (_%stx45221%_) + (let* ((_%g4522445242%_ + (lambda (_%g4522545238%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4526145274%_))) - (_%g4525945473%_ - (lambda (_%g4526145282%_) - (if (gx#stx-pair? _%g4526145282%_) - (let ((_%e4526445285%_ (gx#syntax-e _%g4526145282%_))) - (let ((_%hd4526545289%_ + _%g4522545238%_))) + (_%g4522345437%_ + (lambda (_%g4522545246%_) + (if (gx#stx-pair? _%g4522545246%_) + (let ((_%e4522845249%_ (gx#syntax-e _%g4522545246%_))) + (let ((_%hd4522945253%_ (let () (declare (not safe)) - (##car _%e4526445285%_))) - (_%tl4526645292%_ + (##car _%e4522845249%_))) + (_%tl4523045256%_ (let () (declare (not safe)) - (##cdr _%e4526445285%_)))) - (if (gx#stx-pair? _%tl4526645292%_) - (let ((_%e4526745295%_ - (gx#syntax-e _%tl4526645292%_))) - (let ((_%hd4526845299%_ + (##cdr _%e4522845249%_)))) + (if (gx#stx-pair? _%tl4523045256%_) + (let ((_%e4523145259%_ + (gx#syntax-e _%tl4523045256%_))) + (let ((_%hd4523245263%_ (let () (declare (not safe)) - (##car _%e4526745295%_))) - (_%tl4526945302%_ + (##car _%e4523145259%_))) + (_%tl4523345266%_ (let () (declare (not safe)) - (##cdr _%e4526745295%_)))) - (if (gx#stx-pair? _%tl4526945302%_) - (let ((_%e4527045305%_ - (gx#syntax-e _%tl4526945302%_))) - (let ((_%hd4527145309%_ + (##cdr _%e4523145259%_)))) + (if (gx#stx-pair? _%tl4523345266%_) + (let ((_%e4523445269%_ + (gx#syntax-e _%tl4523345266%_))) + (let ((_%hd4523545273%_ (let () (declare (not safe)) - (##car _%e4527045305%_))) - (_%tl4527245312%_ + (##car _%e4523445269%_))) + (_%tl4523645276%_ (let () (declare (not safe)) - (##cdr _%e4527045305%_)))) - (if (gx#stx-null? _%tl4527245312%_) - ((lambda (_%L45315%_ _%L45317%_) + (##cdr _%e4523445269%_)))) + (if (gx#stx-null? _%tl4523645276%_) + ((lambda (_%L45279%_ _%L45281%_) (if (gx#identifier? - _%L45315%_) - (let ((_%meta45334%_ + _%L45279%_) + (let ((_%meta45298%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45257%_ - _%L45315%_)))) + _%stx45221%_ + _%L45279%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45334%_)) - (let* ((_%g4533945354%_ + _%meta45298%_)) + (let* ((_%g4530345318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4534045350%_) + (lambda (_%g4530445314%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4534045350%_))) - (_%g4533845401%_ - (lambda (_%g4534045358%_) - (if (gx#stx-pair? _%g4534045358%_) - (let ((_%e4534345361%_ - (gx#syntax-e _%g4534045358%_))) - (let ((_%hd4534445365%_ + _%g4530445314%_))) + (_%g4530245365%_ + (lambda (_%g4530445322%_) + (if (gx#stx-pair? _%g4530445322%_) + (let ((_%e4530745325%_ + (gx#syntax-e _%g4530445322%_))) + (let ((_%hd4530845329%_ (let () (declare (not safe)) - (##car _%e4534345361%_))) - (_%tl4534545368%_ + (##car _%e4530745325%_))) + (_%tl4530945332%_ (let () (declare (not safe)) - (##cdr _%e4534345361%_)))) - (if (gx#stx-pair? _%tl4534545368%_) - (let ((_%e4534645371%_ + (##cdr _%e4530745325%_)))) + (if (gx#stx-pair? _%tl4530945332%_) + (let ((_%e4531045335%_ (gx#syntax-e - _%tl4534545368%_))) - (let ((_%hd4534745375%_ + _%tl4530945332%_))) + (let ((_%hd4531145339%_ (let () (declare (not safe)) - (##car _%e4534645371%_))) - (_%tl4534845378%_ + (##car _%e4531045335%_))) + (_%tl4531245342%_ (let () (declare (not safe)) - (##cdr _%e4534645371%_)))) + (##cdr _%e4531045335%_)))) (if (gx#stx-null? - _%tl4534845378%_) - ((lambda (_%L45381%_ - _%L45383%_) - (if (let ((__tmp84098 - (let ((__obj83959 + _%tl4531245342%_) + ((lambda (_%L45345%_ + _%L45347%_) + (if (let ((__tmp84974 + (let ((__obj84818 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45334%_)) + _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83959 + __obj84818 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83959 + __obj84818 '1 '#f '#f)) - (unchecked-slot-ref __obj83959 'id))))) + (unchecked-slot-ref __obj84818 'id))))) (declare (not safe)) - (##memq __tmp84098 '(t void))) + (##memq __tmp84974 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45383%_ '())) - (cons _%L45317%_ '()))) + (cons _%L45347%_ '())) + (cons _%L45281%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45383%_ '())) + (cons _%L45347%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45317%_ '())) + (cons _%L45281%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45381%_ + (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 _%L45383%_ + (cons _%L45347%_ (cons (gx#datum->syntax '#f 'val) @@ -146,85 +146,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4534745375%_ - _%hd4534445365%_) - (_%g4533945354%_ - _%g4534045358%_)))) - (_%g4533945354%_ _%g4534045358%_)))) - (_%g4533945354%_ _%g4534045358%_))))) - (_%g4533845401%_ - (list (let ((__obj83960 _%meta45334%_)) + _%hd4531145339%_ + _%hd4530845329%_) + (_%g4530345318%_ + _%g4530445322%_)))) + (_%g4530345318%_ _%g4530445322%_)))) + (_%g4530345318%_ _%g4530445322%_))))) + (_%g4530245365%_ + (list (let ((__obj84819 _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83960 + __obj84819 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83960 + __obj84819 '12 '#f '#f)) (unchecked-slot-ref - __obj83960 + __obj84819 'type-descriptor))) - (let ((__obj83961 _%meta45334%_)) + (let ((__obj84820 _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83961 + __obj84820 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83961 + __obj84820 '14 '#f '#f)) (unchecked-slot-ref - __obj83961 + __obj84820 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45334%_)) - (let* ((_%g4540745422%_ - (lambda (_%g4540845418%_) + _%meta45298%_)) + (let* ((_%g4537145386%_ + (lambda (_%g4537245382%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4540845418%_))) - (_%g4540645467%_ - (lambda (_%g4540845426%_) - (if (gx#stx-pair? _%g4540845426%_) - (let ((_%e4541145429%_ - (gx#syntax-e _%g4540845426%_))) - (let ((_%hd4541245433%_ + _%g4537245382%_))) + (_%g4537045431%_ + (lambda (_%g4537245390%_) + (if (gx#stx-pair? _%g4537245390%_) + (let ((_%e4537545393%_ + (gx#syntax-e _%g4537245390%_))) + (let ((_%hd4537645397%_ (let () (declare (not safe)) - (##car _%e4541145429%_))) - (_%tl4541345436%_ + (##car _%e4537545393%_))) + (_%tl4537745400%_ (let () (declare (not safe)) - (##cdr _%e4541145429%_)))) - (if (gx#stx-pair? _%tl4541345436%_) - (let ((_%e4541445439%_ + (##cdr _%e4537545393%_)))) + (if (gx#stx-pair? _%tl4537745400%_) + (let ((_%e4537845403%_ (gx#syntax-e - _%tl4541345436%_))) - (let ((_%hd4541545443%_ + _%tl4537745400%_))) + (let ((_%hd4537945407%_ (let () (declare (not safe)) - (##car _%e4541445439%_))) - (_%tl4541645446%_ + (##car _%e4537845403%_))) + (_%tl4538045410%_ (let () (declare (not safe)) - (##cdr _%e4541445439%_)))) + (##cdr _%e4537845403%_)))) (if (gx#stx-null? - _%tl4541645446%_) - ((lambda (_%L45449%_ - _%L45451%_) + _%tl4538045410%_) + ((lambda (_%L45413%_ + _%L45415%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -232,179 +232,179 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45451%_ '())) - (cons (cons _%L45449%_ (cons _%L45317%_ '())) + (cons _%L45415%_ '())) + (cons (cons _%L45413%_ (cons _%L45281%_ '())) '())))) - _%hd4541545443%_ - _%hd4541245433%_) + _%hd4537945407%_ + _%hd4537645397%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4540745422%_ - _%g4540845426%_)))) - (_%g4540745422%_ - _%g4540845426%_)))) - (_%g4540745422%_ _%g4540845426%_))))) - (_%g4540645467%_ - (list (let ((__obj83958 _%meta45334%_)) + (_%g4537145386%_ + _%g4537245390%_)))) + (_%g4537145386%_ + _%g4537245390%_)))) + (_%g4537145386%_ _%g4537245390%_))))) + (_%g4537045431%_ + (list (let ((__obj84817 _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83958 + __obj84817 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83958 - '4 + __obj84817 + '7 '#f '#f)) (unchecked-slot-ref - __obj83958 + __obj84817 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45257%_ - _%L45315%_))))) + _%stx45221%_ + _%L45279%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45257%_ - _%L45315%_)))) + _%stx45221%_ + _%L45279%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4526045278%_ - _%g4526145282%_))) - _%hd4527145309%_ - _%hd4526845299%_) - (_%g4526045278%_ - _%g4526145282%_)))) - (_%g4526045278%_ _%g4526145282%_)))) - (_%g4526045278%_ _%g4526145282%_)))) - (_%g4526045278%_ _%g4526145282%_))))) - (_%g4525945473%_ _%stx45257%_)))) + (_%g4522445242%_ + _%g4522545246%_))) + _%hd4523545273%_ + _%hd4523245263%_) + (_%g4522445242%_ + _%g4522545246%_)))) + (_%g4522445242%_ _%g4522545246%_)))) + (_%g4522445242%_ _%g4522545246%_)))) + (_%g4522445242%_ _%g4522545246%_))))) + (_%g4522345437%_ _%stx45221%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:?| - (lambda (_%stx45477%_) - (let* ((_%g4548045498%_ - (lambda (_%g4548145494%_) + (lambda (_%stx45441%_) + (let* ((_%g4544445462%_ + (lambda (_%g4544545458%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4548145494%_))) - (_%g4547945692%_ - (lambda (_%g4548145502%_) - (if (gx#stx-pair? _%g4548145502%_) - (let ((_%e4548445505%_ (gx#syntax-e _%g4548145502%_))) - (let ((_%hd4548545509%_ + _%g4544545458%_))) + (_%g4544345656%_ + (lambda (_%g4544545466%_) + (if (gx#stx-pair? _%g4544545466%_) + (let ((_%e4544845469%_ (gx#syntax-e _%g4544545466%_))) + (let ((_%hd4544945473%_ (let () (declare (not safe)) - (##car _%e4548445505%_))) - (_%tl4548645512%_ + (##car _%e4544845469%_))) + (_%tl4545045476%_ (let () (declare (not safe)) - (##cdr _%e4548445505%_)))) - (if (gx#stx-pair? _%tl4548645512%_) - (let ((_%e4548745515%_ - (gx#syntax-e _%tl4548645512%_))) - (let ((_%hd4548845519%_ + (##cdr _%e4544845469%_)))) + (if (gx#stx-pair? _%tl4545045476%_) + (let ((_%e4545145479%_ + (gx#syntax-e _%tl4545045476%_))) + (let ((_%hd4545245483%_ (let () (declare (not safe)) - (##car _%e4548745515%_))) - (_%tl4548945522%_ + (##car _%e4545145479%_))) + (_%tl4545345486%_ (let () (declare (not safe)) - (##cdr _%e4548745515%_)))) - (if (gx#stx-pair? _%tl4548945522%_) - (let ((_%e4549045525%_ - (gx#syntax-e _%tl4548945522%_))) - (let ((_%hd4549145529%_ + (##cdr _%e4545145479%_)))) + (if (gx#stx-pair? _%tl4545345486%_) + (let ((_%e4545445489%_ + (gx#syntax-e _%tl4545345486%_))) + (let ((_%hd4545545493%_ (let () (declare (not safe)) - (##car _%e4549045525%_))) - (_%tl4549245532%_ + (##car _%e4545445489%_))) + (_%tl4545645496%_ (let () (declare (not safe)) - (##cdr _%e4549045525%_)))) - (if (gx#stx-null? _%tl4549245532%_) - ((lambda (_%L45535%_ _%L45537%_) + (##cdr _%e4545445489%_)))) + (if (gx#stx-null? _%tl4545645496%_) + ((lambda (_%L45499%_ _%L45501%_) (if (gx#identifier? - _%L45535%_) - (let ((_%meta45553%_ + _%L45499%_) + (let ((_%meta45517%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45477%_ - _%L45535%_)))) + _%stx45441%_ + _%L45499%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45553%_)) - (let* ((_%g4555845573%_ + _%meta45517%_)) + (let* ((_%g4552245537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4555945569%_) + (lambda (_%g4552345533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4555945569%_))) - (_%g4555745620%_ - (lambda (_%g4555945577%_) - (if (gx#stx-pair? _%g4555945577%_) - (let ((_%e4556245580%_ - (gx#syntax-e _%g4555945577%_))) - (let ((_%hd4556345584%_ + _%g4552345533%_))) + (_%g4552145584%_ + (lambda (_%g4552345541%_) + (if (gx#stx-pair? _%g4552345541%_) + (let ((_%e4552645544%_ + (gx#syntax-e _%g4552345541%_))) + (let ((_%hd4552745548%_ (let () (declare (not safe)) - (##car _%e4556245580%_))) - (_%tl4556445587%_ + (##car _%e4552645544%_))) + (_%tl4552845551%_ (let () (declare (not safe)) - (##cdr _%e4556245580%_)))) - (if (gx#stx-pair? _%tl4556445587%_) - (let ((_%e4556545590%_ + (##cdr _%e4552645544%_)))) + (if (gx#stx-pair? _%tl4552845551%_) + (let ((_%e4552945554%_ (gx#syntax-e - _%tl4556445587%_))) - (let ((_%hd4556645594%_ + _%tl4552845551%_))) + (let ((_%hd4553045558%_ (let () (declare (not safe)) - (##car _%e4556545590%_))) - (_%tl4556745597%_ + (##car _%e4552945554%_))) + (_%tl4553145561%_ (let () (declare (not safe)) - (##cdr _%e4556545590%_)))) + (##cdr _%e4552945554%_)))) (if (gx#stx-null? - _%tl4556745597%_) - ((lambda (_%L45600%_ - _%L45602%_) - (if (let ((__tmp84099 - (let ((__obj83963 + _%tl4553145561%_) + ((lambda (_%L45564%_ + _%L45566%_) + (if (let ((__tmp84975 + (let ((__obj84822 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45553%_)) + _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83963 + __obj84822 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83963 + __obj84822 '1 '#f '#f)) - (unchecked-slot-ref __obj83963 'id))))) + (unchecked-slot-ref __obj84822 'id))))) (declare (not safe)) - (##memq __tmp84099 '(t void))) + (##memq __tmp84975 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45602%_ '())) - (cons _%L45537%_ '()))) + (cons _%L45566%_ '())) + (cons _%L45501%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45602%_ '())) + (cons _%L45566%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45537%_ '())) + (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 _%L45600%_ + (cons (cons _%L45564%_ (cons (gx#datum->syntax '#f 'val) @@ -426,8 +426,8 @@ '#f 'contract-violation!) (cons '"bad cast" - (cons _%L45537%_ - (cons _%L45600%_ + (cons _%L45501%_ + (cons _%L45564%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -439,85 +439,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4556645594%_ - _%hd4556345584%_) - (_%g4555845573%_ - _%g4555945577%_)))) - (_%g4555845573%_ _%g4555945577%_)))) - (_%g4555845573%_ _%g4555945577%_))))) - (_%g4555745620%_ - (list (let ((__obj83964 _%meta45553%_)) + _%hd4553045558%_ + _%hd4552745548%_) + (_%g4552245537%_ + _%g4552345541%_)))) + (_%g4552245537%_ _%g4552345541%_)))) + (_%g4552245537%_ _%g4552345541%_))))) + (_%g4552145584%_ + (list (let ((__obj84823 _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83964 + __obj84823 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83964 + __obj84823 '12 '#f '#f)) (unchecked-slot-ref - __obj83964 + __obj84823 'type-descriptor))) - (let ((__obj83965 _%meta45553%_)) + (let ((__obj84824 _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83965 + __obj84824 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83965 + __obj84824 '14 '#f '#f)) (unchecked-slot-ref - __obj83965 + __obj84824 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45553%_)) - (let* ((_%g4562645641%_ - (lambda (_%g4562745637%_) + _%meta45517%_)) + (let* ((_%g4559045605%_ + (lambda (_%g4559145601%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4562745637%_))) - (_%g4562545686%_ - (lambda (_%g4562745645%_) - (if (gx#stx-pair? _%g4562745645%_) - (let ((_%e4563045648%_ - (gx#syntax-e _%g4562745645%_))) - (let ((_%hd4563145652%_ + _%g4559145601%_))) + (_%g4558945650%_ + (lambda (_%g4559145609%_) + (if (gx#stx-pair? _%g4559145609%_) + (let ((_%e4559445612%_ + (gx#syntax-e _%g4559145609%_))) + (let ((_%hd4559545616%_ (let () (declare (not safe)) - (##car _%e4563045648%_))) - (_%tl4563245655%_ + (##car _%e4559445612%_))) + (_%tl4559645619%_ (let () (declare (not safe)) - (##cdr _%e4563045648%_)))) - (if (gx#stx-pair? _%tl4563245655%_) - (let ((_%e4563345658%_ + (##cdr _%e4559445612%_)))) + (if (gx#stx-pair? _%tl4559645619%_) + (let ((_%e4559745622%_ (gx#syntax-e - _%tl4563245655%_))) - (let ((_%hd4563445662%_ + _%tl4559645619%_))) + (let ((_%hd4559845626%_ (let () (declare (not safe)) - (##car _%e4563345658%_))) - (_%tl4563545665%_ + (##car _%e4559745622%_))) + (_%tl4559945629%_ (let () (declare (not safe)) - (##cdr _%e4563345658%_)))) + (##cdr _%e4559745622%_)))) (if (gx#stx-null? - _%tl4563545665%_) - ((lambda (_%L45668%_ - _%L45670%_) + _%tl4559945629%_) + ((lambda (_%L45632%_ + _%L45634%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -525,10 +525,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45670%_ '())) + (cons _%L45634%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45537%_ '())) + (cons _%L45501%_ '())) (cons (cons (gx#datum->syntax '#f 'and) @@ -536,152 +536,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons (cons _%L45668%_ + (cons (cons _%L45632%_ (cons (gx#datum->syntax '#f 'val) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) - _%hd4563445662%_ - _%hd4563145652%_) + _%hd4559845626%_ + _%hd4559545616%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4562645641%_ - _%g4562745645%_)))) - (_%g4562645641%_ - _%g4562745645%_)))) - (_%g4562645641%_ _%g4562745645%_))))) - (_%g4562545686%_ - (list (let ((__obj83962 _%meta45553%_)) + (_%g4559045605%_ + _%g4559145609%_)))) + (_%g4559045605%_ + _%g4559145609%_)))) + (_%g4559045605%_ _%g4559145609%_))))) + (_%g4558945650%_ + (list (let ((__obj84821 _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83962 + __obj84821 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83962 - '4 + __obj84821 + '7 '#f '#f)) (unchecked-slot-ref - __obj83962 + __obj84821 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45477%_ - _%L45535%_))))) + _%stx45441%_ + _%L45499%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45477%_ - _%L45535%_)))) + _%stx45441%_ + _%L45499%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4548045498%_ - _%g4548145502%_))) - _%hd4549145529%_ - _%hd4548845519%_) - (_%g4548045498%_ - _%g4548145502%_)))) - (_%g4548045498%_ _%g4548145502%_)))) - (_%g4548045498%_ _%g4548145502%_)))) - (_%g4548045498%_ _%g4548145502%_))))) - (_%g4547945692%_ _%stx45477%_)))) + (_%g4544445462%_ + _%g4544545466%_))) + _%hd4545545493%_ + _%hd4545245483%_) + (_%g4544445462%_ + _%g4544545466%_)))) + (_%g4544445462%_ _%g4544545466%_)))) + (_%g4544445462%_ _%g4544545466%_)))) + (_%g4544445462%_ _%g4544545466%_))))) + (_%g4544345656%_ _%stx45441%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:-| - (lambda (_%stx45696%_) - (let* ((_%g4569945717%_ - (lambda (_%g4570045713%_) + (lambda (_%stx45660%_) + (let* ((_%g4566345681%_ + (lambda (_%g4566445677%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4570045713%_))) - (_%g4569845803%_ - (lambda (_%g4570045721%_) - (if (gx#stx-pair? _%g4570045721%_) - (let ((_%e4570345724%_ (gx#syntax-e _%g4570045721%_))) - (let ((_%hd4570445728%_ + _%g4566445677%_))) + (_%g4566245767%_ + (lambda (_%g4566445685%_) + (if (gx#stx-pair? _%g4566445685%_) + (let ((_%e4566745688%_ (gx#syntax-e _%g4566445685%_))) + (let ((_%hd4566845692%_ (let () (declare (not safe)) - (##car _%e4570345724%_))) - (_%tl4570545731%_ + (##car _%e4566745688%_))) + (_%tl4566945695%_ (let () (declare (not safe)) - (##cdr _%e4570345724%_)))) - (if (gx#stx-pair? _%tl4570545731%_) - (let ((_%e4570645734%_ - (gx#syntax-e _%tl4570545731%_))) - (let ((_%hd4570745738%_ + (##cdr _%e4566745688%_)))) + (if (gx#stx-pair? _%tl4566945695%_) + (let ((_%e4567045698%_ + (gx#syntax-e _%tl4566945695%_))) + (let ((_%hd4567145702%_ (let () (declare (not safe)) - (##car _%e4570645734%_))) - (_%tl4570845741%_ + (##car _%e4567045698%_))) + (_%tl4567245705%_ (let () (declare (not safe)) - (##cdr _%e4570645734%_)))) - (if (gx#stx-pair? _%tl4570845741%_) - (let ((_%e4570945744%_ - (gx#syntax-e _%tl4570845741%_))) - (let ((_%hd4571045748%_ + (##cdr _%e4567045698%_)))) + (if (gx#stx-pair? _%tl4567245705%_) + (let ((_%e4567345708%_ + (gx#syntax-e _%tl4567245705%_))) + (let ((_%hd4567445712%_ (let () (declare (not safe)) - (##car _%e4570945744%_))) - (_%tl4571145751%_ + (##car _%e4567345708%_))) + (_%tl4567545715%_ (let () (declare (not safe)) - (##cdr _%e4570945744%_)))) - (if (gx#stx-null? _%tl4571145751%_) - ((lambda (_%L45754%_ _%L45756%_) + (##cdr _%e4567345708%_)))) + (if (gx#stx-null? _%tl4567545715%_) + ((lambda (_%L45718%_ _%L45720%_) (if (gx#identifier? - _%L45754%_) - (let* ((_%g4577245780%_ - (lambda (_%g4577345776%_) + _%L45718%_) + (let* ((_%g4573645744%_ + (lambda (_%g4573745740%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4577345776%_))) - (_%g4577145799%_ - (lambda (_%g4577345784%_) - ((lambda (_%L45787%_) + _%g4573745740%_))) + (_%g4573545763%_ + (lambda (_%g4573745748%_) + ((lambda (_%L45751%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45787%_ '())) - (cons _%L45756%_ '())))) - _%g4577345784%_)))) - (_%g4577145799%_ + (cons _%L45751%_ '())) + (cons _%L45720%_ '())))) + _%g4573745748%_)))) + (_%g4573545763%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx45696%_ - _%L45754%_)))) + _%stx45660%_ + _%L45718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4569945717%_ - _%g4570045721%_))) - _%hd4571045748%_ - _%hd4570745738%_) - (_%g4569945717%_ - _%g4570045721%_)))) - (_%g4569945717%_ _%g4570045721%_)))) - (_%g4569945717%_ _%g4570045721%_)))) - (_%g4569945717%_ _%g4570045721%_))))) - (_%g4569845803%_ _%stx45696%_)))) + (_%g4566345681%_ + _%g4566445685%_))) + _%hd4567445712%_ + _%hd4567145702%_) + (_%g4566345681%_ + _%g4566445685%_)))) + (_%g4566345681%_ _%g4566445685%_)))) + (_%g4566345681%_ _%g4566445685%_)))) + (_%g4566345681%_ _%g4566445685%_))))) + (_%g4566245767%_ _%stx45660%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:~| - (lambda (_%$stx45807%_) - (let* ((_%__stx7848778488%_ _%$stx45807%_) - (_%g4581245848%_ + (lambda (_%$stx45771%_) + (let* ((_%__stx7925379254%_ _%$stx45771%_) + (_%g4577645812%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7848778488%_)))) - (let ((_%__kont7849078491%_ - (lambda (_%L45966%_ _%L45968%_) + _%__stx7925379254%_)))) + (let ((_%__kont7925679257%_ + (lambda (_%L45930%_ _%L45932%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45968%_ '())) + (cons _%L45932%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45966%_ + (cons (cons _%L45930%_ (cons (gx#datum->syntax '#f 'val) @@ -693,237 +693,237 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'contract-violation!) - (cons _%L45968%_ - (cons _%L45966%_ + (cons _%L45932%_ + (cons _%L45930%_ (cons (gx#datum->syntax '#f 'val) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7849278493%_ - (lambda (_%L45905%_ _%L45907%_ _%L45908%_) + (_%__kont7925879259%_ + (lambda (_%L45869%_ _%L45871%_ _%L45872%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) - (cons _%L45908%_ (cons _%L45907%_ '()))) - (cons _%L45905%_ '())))))) - (if (gx#stx-pair? _%__stx7848778488%_) - (let ((_%e4581645936%_ (gx#syntax-e _%__stx7848778488%_))) - (let ((_%tl4581845943%_ - (let () (declare (not safe)) (##cdr _%e4581645936%_))) - (_%hd4581745940%_ + (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 _%e4581645936%_)))) - (if (gx#stx-pair? _%tl4581845943%_) - (let ((_%e4581945946%_ (gx#syntax-e _%tl4581845943%_))) - (let ((_%tl4582145953%_ + (##car _%e4578045900%_)))) + (if (gx#stx-pair? _%tl4578245907%_) + (let ((_%e4578345910%_ (gx#syntax-e _%tl4578245907%_))) + (let ((_%tl4578545917%_ (let () (declare (not safe)) - (##cdr _%e4581945946%_))) - (_%hd4582045950%_ + (##cdr _%e4578345910%_))) + (_%hd4578445914%_ (let () (declare (not safe)) - (##car _%e4581945946%_)))) - (if (gx#stx-pair? _%tl4582145953%_) - (let ((_%e4582245956%_ - (gx#syntax-e _%tl4582145953%_))) - (let ((_%tl4582445963%_ + (##car _%e4578345910%_)))) + (if (gx#stx-pair? _%tl4578545917%_) + (let ((_%e4578645920%_ + (gx#syntax-e _%tl4578545917%_))) + (let ((_%tl4578845927%_ (let () (declare (not safe)) - (##cdr _%e4582245956%_))) - (_%hd4582345960%_ + (##cdr _%e4578645920%_))) + (_%hd4578745924%_ (let () (declare (not safe)) - (##car _%e4582245956%_)))) - (if (gx#stx-null? _%tl4582445963%_) - (_%__kont7849078491%_ - _%hd4582345960%_ - _%hd4582045950%_) - (if (gx#stx-pair? _%tl4582445963%_) - (let ((_%e4583745885%_ + (##car _%e4578645920%_)))) + (if (gx#stx-null? _%tl4578845927%_) + (_%__kont7925679257%_ + _%hd4578745924%_ + _%hd4578445914%_) + (if (gx#stx-pair? _%tl4578845927%_) + (let ((_%e4580145849%_ (gx#syntax-e - _%tl4582445963%_))) - (let ((_%tl4583945892%_ + _%tl4578845927%_))) + (let ((_%tl4580345856%_ (let () (declare (not safe)) - (##cdr _%e4583745885%_))) - (_%hd4583845889%_ + (##cdr _%e4580145849%_))) + (_%hd4580245853%_ (let () (declare (not safe)) - (##car _%e4583745885%_)))) + (##car _%e4580145849%_)))) (if (gx#identifier? - _%hd4583845889%_) + _%hd4580245853%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g84100_| - _%hd4583845889%_) + |gerbil/core/contract~TypeCast[1]#_g84976_| + _%hd4580245853%_) (if (gx#stx-pair? - _%tl4583945892%_) - (let ((_%e4584045895%_ + _%tl4580345856%_) + (let ((_%e4580445859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4583945892%_))) - (let ((_%tl4584245902%_ + (gx#syntax-e _%tl4580345856%_))) + (let ((_%tl4580645866%_ (let () (declare (not safe)) - (##cdr _%e4584045895%_))) - (_%hd4584145899%_ + (##cdr _%e4580445859%_))) + (_%hd4580545863%_ (let () (declare (not safe)) - (##car _%e4584045895%_)))) - (if (gx#stx-null? _%tl4584245902%_) - (_%__kont7849278493%_ - _%hd4584145899%_ - _%hd4582345960%_ - _%hd4582045950%_) - (let () (declare (not safe)) (_%g4581245848%_))))) - (let () (declare (not safe)) (_%g4581245848%_))) - (let () (declare (not safe)) (_%g4581245848%_))) + (##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)) - (_%g4581245848%_))))) + (_%g4577645812%_))))) (let () (declare (not safe)) - (_%g4581245848%_)))))) + (_%g4577645812%_)))))) (let () (declare (not safe)) - (_%g4581245848%_))))) - (let () (declare (not safe)) (_%g4581245848%_))))) - (let () (declare (not safe)) (_%g4581245848%_))))))) + (_%g4577645812%_))))) + (let () (declare (not safe)) (_%g4577645812%_))))) + (let () (declare (not safe)) (_%g4577645812%_))))))) (define |gerbil/core/contract~TypeCast[:0:]#::-| - (lambda (_%$stx45987%_) - (let ((_%g4599045997%_ - (lambda (_%g4599145993%_) + (lambda (_%$stx45951%_) + (let ((_%g4595445961%_ + (lambda (_%g4595545957%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4599145993%_)))) - (_%g4599045997%_ _%$stx45987%_)))) + _%g4595545957%_)))) + (_%g4595445961%_ _%$stx45951%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:=| - (lambda (_%$stx46001%_) - (let ((_%g4600446011%_ - (lambda (_%g4600546007%_) + (lambda (_%$stx45965%_) + (let ((_%g4596845975%_ + (lambda (_%g4596945971%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4600546007%_)))) - (_%g4600446011%_ _%$stx46001%_)))) + _%g4596945971%_)))) + (_%g4596845975%_ _%$stx45965%_)))) (define |gerbil/core/contract~TypeCast[:0:]#check-nil!| - (lambda (_%$stx46015%_) - (let* ((_%g4601946033%_ - (lambda (_%g4602046029%_) + (lambda (_%$stx45979%_) + (let* ((_%g4598345997%_ + (lambda (_%g4598445993%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4602046029%_))) - (_%g4601846074%_ - (lambda (_%g4602046037%_) - (if (gx#stx-pair? _%g4602046037%_) - (let ((_%e4602246040%_ (gx#syntax-e _%g4602046037%_))) - (let ((_%hd4602346044%_ + _%g4598445993%_))) + (_%g4598246038%_ + (lambda (_%g4598446001%_) + (if (gx#stx-pair? _%g4598446001%_) + (let ((_%e4598646004%_ (gx#syntax-e _%g4598446001%_))) + (let ((_%hd4598746008%_ (let () (declare (not safe)) - (##car _%e4602246040%_))) - (_%tl4602446047%_ + (##car _%e4598646004%_))) + (_%tl4598846011%_ (let () (declare (not safe)) - (##cdr _%e4602246040%_)))) - (if (gx#stx-pair? _%tl4602446047%_) - (let ((_%e4602546050%_ - (gx#syntax-e _%tl4602446047%_))) - (let ((_%hd4602646054%_ + (##cdr _%e4598646004%_)))) + (if (gx#stx-pair? _%tl4598846011%_) + (let ((_%e4598946014%_ + (gx#syntax-e _%tl4598846011%_))) + (let ((_%hd4599046018%_ (let () (declare (not safe)) - (##car _%e4602546050%_))) - (_%tl4602746057%_ + (##car _%e4598946014%_))) + (_%tl4599146021%_ (let () (declare (not safe)) - (##cdr _%e4602546050%_)))) - (if (gx#stx-null? _%tl4602746057%_) - ((lambda (_%L46060%_) + (##cdr _%e4598946014%_)))) + (if (gx#stx-null? _%tl4599146021%_) + ((lambda (_%L46024%_) (cons (gx#datum->syntax '#f 'or) - (cons _%L46060%_ + (cons _%L46024%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'nil-dereference!) - (cons _%L46060%_ '())) + (cons _%L46024%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4602646054%_) - (_%g4601946033%_ _%g4602046037%_)))) - (_%g4601946033%_ _%g4602046037%_)))) - (_%g4601946033%_ _%g4602046037%_))))) - (_%g4601846074%_ _%$stx46015%_)))) + _%hd4599046018%_) + (_%g4598345997%_ _%g4598446001%_)))) + (_%g4598345997%_ _%g4598446001%_)))) + (_%g4598345997%_ _%g4598446001%_))))) + (_%g4598246038%_ _%$stx45979%_)))) (define |gerbil/core/contract~TypeCast[:0:]#contract-violation!| - (lambda (_%stx46078%_) - (let* ((_%g4608146104%_ - (lambda (_%g4608246100%_) + (lambda (_%stx46042%_) + (let* ((_%g4604546068%_ + (lambda (_%g4604646064%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4608246100%_))) - (_%g4608046228%_ - (lambda (_%g4608246108%_) - (if (gx#stx-pair? _%g4608246108%_) - (let ((_%e4608746111%_ (gx#syntax-e _%g4608246108%_))) - (let ((_%hd4608846115%_ + _%g4604646064%_))) + (_%g4604446192%_ + (lambda (_%g4604646072%_) + (if (gx#stx-pair? _%g4604646072%_) + (let ((_%e4605146075%_ (gx#syntax-e _%g4604646072%_))) + (let ((_%hd4605246079%_ (let () (declare (not safe)) - (##car _%e4608746111%_))) - (_%tl4608946118%_ + (##car _%e4605146075%_))) + (_%tl4605346082%_ (let () (declare (not safe)) - (##cdr _%e4608746111%_)))) - (if (gx#stx-pair? _%tl4608946118%_) - (let ((_%e4609046121%_ - (gx#syntax-e _%tl4608946118%_))) - (let ((_%hd4609146125%_ + (##cdr _%e4605146075%_)))) + (if (gx#stx-pair? _%tl4605346082%_) + (let ((_%e4605446085%_ + (gx#syntax-e _%tl4605346082%_))) + (let ((_%hd4605546089%_ (let () (declare (not safe)) - (##car _%e4609046121%_))) - (_%tl4609246128%_ + (##car _%e4605446085%_))) + (_%tl4605646092%_ (let () (declare (not safe)) - (##cdr _%e4609046121%_)))) - (if (gx#stx-pair? _%tl4609246128%_) - (let ((_%e4609346131%_ - (gx#syntax-e _%tl4609246128%_))) - (let ((_%hd4609446135%_ + (##cdr _%e4605446085%_)))) + (if (gx#stx-pair? _%tl4605646092%_) + (let ((_%e4605746095%_ + (gx#syntax-e _%tl4605646092%_))) + (let ((_%hd4605846099%_ (let () (declare (not safe)) - (##car _%e4609346131%_))) - (_%tl4609546138%_ + (##car _%e4605746095%_))) + (_%tl4605946102%_ (let () (declare (not safe)) - (##cdr _%e4609346131%_)))) - (if (gx#stx-pair? _%tl4609546138%_) - (let ((_%e4609646141%_ + (##cdr _%e4605746095%_)))) + (if (gx#stx-pair? _%tl4605946102%_) + (let ((_%e4606046105%_ (gx#syntax-e - _%tl4609546138%_))) - (let ((_%hd4609746145%_ + _%tl4605946102%_))) + (let ((_%hd4606146109%_ (let () (declare (not safe)) - (##car _%e4609646141%_))) - (_%tl4609846148%_ + (##car _%e4606046105%_))) + (_%tl4606246112%_ (let () (declare (not safe)) - (##cdr _%e4609646141%_)))) + (##cdr _%e4606046105%_)))) (if (gx#stx-null? - _%tl4609846148%_) - ((lambda (_%L46151%_ - _%L46153%_ - _%L46154%_ - _%L46155%_) - (let* ((_%g4617546183%_ + _%tl4606246112%_) + ((lambda (_%L46115%_ + _%L46117%_ + _%L46118%_ + _%L46119%_) + (let* ((_%g4613946147%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4617646179%_) + (lambda (_%g4614046143%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4617646179%_))) - (_%g4617446202%_ - (lambda (_%g4617646187%_) - ((lambda (_%L46190%_) + _%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 _%L46190%_ '())) + (cons _%L46154%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46153%_ '())) + (cons _%L46117%_ '())) (cons 'value: - (cons _%L46151%_ '())))))))) + (cons _%L46115%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g4617646187%_)))) - (_%g4617446202%_ - (let ((_%$e46214%_ - (let ((_%$e46206%_ (gx#stx-source _%L46154%_))) - (if _%$e46206%_ - _%$e46206%_ - (let ((_%$e46210%_ - (gx#stx-source _%stx46078%_))) - (if _%$e46210%_ - _%$e46210%_ - (gx#stx-source _%L46155%_))))))) - (if _%$e46214%_ - ((lambda (_%locat46218%_) + _%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 (_%g4622046222%_) + (lambda (_%g4618446186%_) (let () (declare (not safe)) (##display-locat - _%locat46218%_ + _%locat46182%_ '#t - _%g4622046222%_))))) - _%$e46214%_) + _%g4618446186%_))))) + _%$e46178%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4609746145%_ - _%hd4609446135%_ - _%hd4609146125%_ - _%hd4608846115%_) - (_%g4608146104%_ _%g4608246108%_)))) + _%hd4606146109%_ + _%hd4605846099%_ + _%hd4605546089%_ + _%hd4605246079%_) + (_%g4604546068%_ _%g4604646072%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4608146104%_ - _%g4608246108%_)))) - (_%g4608146104%_ _%g4608246108%_)))) - (_%g4608146104%_ _%g4608246108%_)))) - (_%g4608146104%_ _%g4608246108%_))))) - (_%g4608046228%_ _%stx46078%_)))) + (_%g4604546068%_ + _%g4604646072%_)))) + (_%g4604546068%_ _%g4604646072%_)))) + (_%g4604546068%_ _%g4604646072%_)))) + (_%g4604546068%_ _%g4604646072%_))))) + (_%g4604446192%_ _%stx46042%_)))) (define |gerbil/core/contract~TypeCast[:0:]#nil-dereference!| - (lambda (_%stx46232%_) - (let* ((_%g4623546250%_ - (lambda (_%g4623646246%_) + (lambda (_%stx46196%_) + (let* ((_%g4619946214%_ + (lambda (_%g4620046210%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4623646246%_))) - (_%g4623446346%_ - (lambda (_%g4623646254%_) - (if (gx#stx-pair? _%g4623646254%_) - (let ((_%e4623946257%_ (gx#syntax-e _%g4623646254%_))) - (let ((_%hd4624046261%_ + _%g4620046210%_))) + (_%g4619846310%_ + (lambda (_%g4620046218%_) + (if (gx#stx-pair? _%g4620046218%_) + (let ((_%e4620346221%_ (gx#syntax-e _%g4620046218%_))) + (let ((_%hd4620446225%_ (let () (declare (not safe)) - (##car _%e4623946257%_))) - (_%tl4624146264%_ + (##car _%e4620346221%_))) + (_%tl4620546228%_ (let () (declare (not safe)) - (##cdr _%e4623946257%_)))) - (if (gx#stx-pair? _%tl4624146264%_) - (let ((_%e4624246267%_ - (gx#syntax-e _%tl4624146264%_))) - (let ((_%hd4624346271%_ + (##cdr _%e4620346221%_)))) + (if (gx#stx-pair? _%tl4620546228%_) + (let ((_%e4620646231%_ + (gx#syntax-e _%tl4620546228%_))) + (let ((_%hd4620746235%_ (let () (declare (not safe)) - (##car _%e4624246267%_))) - (_%tl4624446274%_ + (##car _%e4620646231%_))) + (_%tl4620846238%_ (let () (declare (not safe)) - (##cdr _%e4624246267%_)))) - (if (gx#stx-null? _%tl4624446274%_) - ((lambda (_%L46277%_ _%L46279%_) - (let* ((_%g4629346301%_ - (lambda (_%g4629446297%_) + (##cdr _%e4620646231%_)))) + (if (gx#stx-null? _%tl4620846238%_) + ((lambda (_%L46241%_ _%L46243%_) + (let* ((_%g4625746265%_ + (lambda (_%g4625846261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4629446297%_))) - (_%g4629246320%_ - (lambda (_%g4629446305%_) - ((lambda (_%L46308%_) + _%g4625846261%_))) + (_%g4625646284%_ + (lambda (_%g4625846269%_) + ((lambda (_%L46272%_) (cons (gx#datum->syntax '#f 'abort!) @@ -1032,86 +1032,86 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46308%_ '())) + (cons _%L46272%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L46277%_ '())) + (cons _%L46241%_ '())) '())) (cons 'value: (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4629446305%_)))) - (_%g4629246320%_ - (let ((_%$e46332%_ - (let ((_%$e46324%_ + _%g4625846269%_)))) + (_%g4625646284%_ + (let ((_%$e46296%_ + (let ((_%$e46288%_ (gx#stx-source - _%L46277%_))) - (if _%$e46324%_ - _%$e46324%_ - (let ((_%$e46328%_ + _%L46241%_))) + (if _%$e46288%_ + _%$e46288%_ + (let ((_%$e46292%_ (gx#stx-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx46232%_))) - (if _%$e46328%_ _%$e46328%_ (gx#stx-source _%L46279%_))))))) + _%stx46196%_))) + (if _%$e46292%_ _%$e46292%_ (gx#stx-source _%L46243%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e46332%_ - ((lambda (_%locat46336%_) + (if _%$e46296%_ + ((lambda (_%locat46300%_) (call-with-output-string '"" - (lambda (_%g4633846340%_) + (lambda (_%g4630246304%_) (let () (declare (not safe)) (##display-locat - _%locat46336%_ + _%locat46300%_ '#t - _%g4633846340%_))))) - _%$e46332%_) + _%g4630246304%_))))) + _%$e46296%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4624346271%_ - _%hd4624046261%_) - (_%g4623546250%_ _%g4623646254%_)))) - (_%g4623546250%_ _%g4623646254%_)))) - (_%g4623546250%_ _%g4623646254%_))))) - (_%g4623446346%_ _%stx46232%_)))) + _%hd4620746235%_ + _%hd4620446225%_) + (_%g4619946214%_ _%g4620046218%_)))) + (_%g4619946214%_ _%g4620046218%_)))) + (_%g4619946214%_ _%g4620046218%_))))) + (_%g4619846310%_ _%stx46196%_)))) (define |gerbil/core/contract~TypeCast[:0:]#abort!| - (lambda (_%$stx46350%_) - (let* ((_%g4635446368%_ - (lambda (_%g4635546364%_) + (lambda (_%$stx46314%_) + (let* ((_%g4631846332%_ + (lambda (_%g4631946328%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4635546364%_))) - (_%g4635346409%_ - (lambda (_%g4635546372%_) - (if (gx#stx-pair? _%g4635546372%_) - (let ((_%e4635746375%_ (gx#syntax-e _%g4635546372%_))) - (let ((_%hd4635846379%_ + _%g4631946328%_))) + (_%g4631746373%_ + (lambda (_%g4631946336%_) + (if (gx#stx-pair? _%g4631946336%_) + (let ((_%e4632146339%_ (gx#syntax-e _%g4631946336%_))) + (let ((_%hd4632246343%_ (let () (declare (not safe)) - (##car _%e4635746375%_))) - (_%tl4635946382%_ + (##car _%e4632146339%_))) + (_%tl4632346346%_ (let () (declare (not safe)) - (##cdr _%e4635746375%_)))) - (if (gx#stx-pair? _%tl4635946382%_) - (let ((_%e4636046385%_ - (gx#syntax-e _%tl4635946382%_))) - (let ((_%hd4636146389%_ + (##cdr _%e4632146339%_)))) + (if (gx#stx-pair? _%tl4632346346%_) + (let ((_%e4632446349%_ + (gx#syntax-e _%tl4632346346%_))) + (let ((_%hd4632546353%_ (let () (declare (not safe)) - (##car _%e4636046385%_))) - (_%tl4636246392%_ + (##car _%e4632446349%_))) + (_%tl4632646356%_ (let () (declare (not safe)) - (##cdr _%e4636046385%_)))) - (if (gx#stx-null? _%tl4636246392%_) - ((lambda (_%L46395%_) + (##cdr _%e4632446349%_)))) + (if (gx#stx-null? _%tl4632646356%_) + ((lambda (_%L46359%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -1123,13 +1123,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L46395%_ + (cons _%L46359%_ (cons (cons (gx#datum->syntax '#f 'void) '()) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4636146389%_) - (_%g4635446368%_ _%g4635546372%_)))) - (_%g4635446368%_ _%g4635546372%_)))) - (_%g4635446368%_ _%g4635546372%_))))) - (_%g4635346409%_ _%$stx46350%_)))))) + _%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 94ee845b9..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]#_g84102_| + (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]#_g84104_| + (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]#_g84106_| + (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]#_g84108_| + (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]#_g84109_| + (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]#_g84110_| + (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]#_g84111_| + (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]#_g84113_| + (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]#_g84114_| + (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]#_g84115_| + (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]#_g84116_| + (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]#_g84118_| + (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]#_g84119_| + (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]#_g84120_| + (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]#_g84121_| + (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]#_g84123_| + (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]#_g84124_| + (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]#_g84125_| + (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]#_g84126_| + (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 ((__obj83966 + (let ((__obj84825 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83966 + __obj84825 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83966 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj84825 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83966 + __obj84825 '(var type checked? super) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83966 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj84825 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83966 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj84825 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83966 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj84825 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83966 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj84825 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83966 '#f '11 '#f '#f)) - (let ((__tmp84101 |gerbil/core/contract~TypeEnv[1]#_g84102_|)) + (##unchecked-structure-set! __obj84825 '#f '11 '#f '#f)) + (let ((__tmp84977 |gerbil/core/contract~TypeEnv[1]#_g84978_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83966 __tmp84101 '12 '#f '#f)) - (let ((__tmp84103 |gerbil/core/contract~TypeEnv[1]#_g84104_|)) + (##unchecked-structure-set! __obj84825 __tmp84977 '12 '#f '#f)) + (let ((__tmp84979 |gerbil/core/contract~TypeEnv[1]#_g84980_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83966 __tmp84103 '13 '#f '#f)) - (let ((__tmp84105 |gerbil/core/contract~TypeEnv[1]#_g84106_|)) + (##unchecked-structure-set! __obj84825 __tmp84979 '13 '#f '#f)) + (let ((__tmp84981 |gerbil/core/contract~TypeEnv[1]#_g84982_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83966 __tmp84105 '14 '#f '#f)) - (let ((__tmp84107 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84108_|) + (##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]#_g84109_|) + |gerbil/core/contract~TypeEnv[1]#_g84985_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84110_|) + |gerbil/core/contract~TypeEnv[1]#_g84986_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84111_|) + |gerbil/core/contract~TypeEnv[1]#_g84987_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83966 __tmp84107 '15 '#f '#f)) - (let ((__tmp84112 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84113_|) + (##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]#_g84114_|) + |gerbil/core/contract~TypeEnv[1]#_g84990_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84115_|) + |gerbil/core/contract~TypeEnv[1]#_g84991_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84116_|) + |gerbil/core/contract~TypeEnv[1]#_g84992_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83966 __tmp84112 '16 '#f '#f)) - (let ((__tmp84117 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84118_|) + (##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]#_g84119_|) + |gerbil/core/contract~TypeEnv[1]#_g84995_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84120_|) + |gerbil/core/contract~TypeEnv[1]#_g84996_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84121_|) + |gerbil/core/contract~TypeEnv[1]#_g84997_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83966 __tmp84117 '17 '#f '#f)) - (let ((__tmp84122 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84123_|) + (##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]#_g84124_|) + |gerbil/core/contract~TypeEnv[1]#_g85000_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84125_|) + |gerbil/core/contract~TypeEnv[1]#_g85001_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84126_|) + |gerbil/core/contract~TypeEnv[1]#_g85002_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83966 __tmp84122 '18 '#f '#f)) - __obj83966))) + (##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 1bd5949ad..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]#_g84127_| + (define |gerbil/core/contract~Using[1]#_g85003_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84128_| + (define |gerbil/core/contract~Using[1]#_g85004_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84129_| + (define |gerbil/core/contract~Using[1]#_g85005_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84132_| + (define |gerbil/core/contract~Using[1]#_g85008_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84133_| + (define |gerbil/core/contract~Using[1]#_g85009_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84136_| + (define |gerbil/core/contract~Using[1]#_g85012_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84137_| + (define |gerbil/core/contract~Using[1]#_g85013_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84138_| + (define |gerbil/core/contract~Using[1]#_g85014_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84139_| + (define |gerbil/core/contract~Using[1]#_g85015_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84143_| + (define |gerbil/core/contract~Using[1]#_g85019_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84144_| + (define |gerbil/core/contract~Using[1]#_g85020_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84145_| + (define |gerbil/core/contract~Using[1]#_g85021_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84146_| + (define |gerbil/core/contract~Using[1]#_g85022_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84150_| + (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 (_%stx46428%_) - (let* ((_%__stx7855378554%_ _%stx46428%_) - (_%g4643746646%_ + (lambda (_%stx46392%_) + (let* ((_%__stx7931979320%_ _%stx46392%_) + (_%g4640146610%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7855378554%_)))) - (let ((_%__kont7855678557%_ - (lambda (_%L47552%_ - _%L47554%_ - _%L47555%_ - _%L47556%_ - _%L47557%_) + _%__stx7931979320%_)))) + (let ((_%__kont7932279323%_ + (lambda (_%L47516%_ + _%L47518%_ + _%L47519%_ + _%L47520%_ + _%L47521%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47557%_ (cons _%L47556%_ '())) + (cons (cons _%L47521%_ (cons _%L47520%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47557%_ - (cons _%L47555%_ - (cons _%L47554%_ + (cons (cons _%L47521%_ + (cons _%L47519%_ + (cons _%L47518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4760047603%_ + (foldr (lambda (_%g4756447567%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4760147606%_) - (cons _%g4760047603%_ _%g4760147606%_)) + _%g4756547570%_) + (cons _%g4756447567%_ _%g4756547570%_)) '() - _%L47552%_))) + _%L47516%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7856078561%_ - (lambda (_%L47396%_ - _%L47398%_ - _%L47399%_ - _%L47400%_ - _%L47401%_ - _%L47402%_) + (_%__kont7932679327%_ + (lambda (_%L47360%_ + _%L47362%_ + _%L47363%_ + _%L47364%_ + _%L47365%_ + _%L47366%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47402%_ (cons _%L47401%_ '())) + (cons (cons _%L47366%_ (cons _%L47365%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47402%_ + (cons (cons _%L47366%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47400%_ + (cons _%L47364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47402%_ + (cons (cons _%L47366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47399%_ (cons _%L47398%_ '()))) - (foldr (lambda (_%g4744647449%_ _%g4744747452%_) - (cons _%g4744647449%_ _%g4744747452%_)) + (cons _%L47363%_ (cons _%L47362%_ '()))) + (foldr (lambda (_%g4741047413%_ _%g4741147416%_) + (cons _%g4741047413%_ _%g4741147416%_)) '() - _%L47396%_))) + _%L47360%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7856478565%_ - (lambda (_%L47213%_ _%L47215%_ _%L47216%_ _%L47217%_) - (let ((_%meta47254%_ + (_%__kont7933079331%_ + (lambda (_%L47177%_ _%L47179%_ _%L47180%_ _%L47181%_) + (let ((_%meta47218%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx46428%_ - _%L47215%_)))) + _%stx46392%_ + _%L47179%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta47254%_)) + _%meta47218%_)) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L47217%_ - (cons _%L47216%_ - (cons _%L47215%_ '()))) - (foldr (lambda (_%g4725847261%_ - _%g4725947264%_) - (cons _%g4725847261%_ - _%g4725947264%_)) + (cons (cons _%L47181%_ + (cons _%L47180%_ + (cons _%L47179%_ '()))) + (foldr (lambda (_%g4722247225%_ + _%g4722347228%_) + (cons _%g4722247225%_ + _%g4722347228%_)) '() - _%L47213%_))) + _%L47177%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta47254%_)) + _%meta47218%_)) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L47217%_ - (cons _%L47216%_ - (cons _%L47215%_ '()))) - (foldr (lambda (_%g4726847271%_ - _%g4726947274%_) - (cons _%g4726847271%_ - _%g4726947274%_)) + (cons (cons _%L47181%_ + (cons _%L47180%_ + (cons _%L47179%_ '()))) + (foldr (lambda (_%g4723247235%_ + _%g4723347238%_) + (cons _%g4723247235%_ + _%g4723347238%_)) '() - _%L47213%_))) + _%L47177%_))) (gx#raise-syntax-error '#f '"unexpected type; must be a class type or interface" - _%stx46428%_ - _%L47215%_ - _%meta47254%_)))))) - (_%__kont7856878569%_ - (lambda (_%L47091%_ _%L47093%_ _%L47094%_) + _%stx46392%_ + _%L47179%_ + _%meta47218%_)))))) + (_%__kont7933479335%_ + (lambda (_%L47055%_ _%L47057%_ _%L47058%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L47094%_ + (cons (cons _%L47058%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47093%_ '()))) - (foldr (lambda (_%g4711747120%_ _%g4711847123%_) - (cons _%g4711747120%_ _%g4711847123%_)) + (cons _%L47057%_ '()))) + (foldr (lambda (_%g4708147084%_ _%g4708247087%_) + (cons _%g4708147084%_ _%g4708247087%_)) '() - _%L47091%_))))) - (_%__kont7857278573%_ - (lambda (_%L46949%_ - _%L46951%_ - _%L46952%_ - _%L46953%_ - _%L46954%_) + _%L47055%_))))) + (_%__kont7933879339%_ + (lambda (_%L46913%_ + _%L46915%_ + _%L46916%_ + _%L46917%_ + _%L46918%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46954%_ + (cons (cons _%L46918%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L46953%_ '()))) + (cons _%L46917%_ '()))) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46954%_ - (cons _%L46952%_ - (cons _%L46951%_ + (cons (cons _%L46918%_ + (cons _%L46916%_ + (cons _%L46915%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4699546998%_ + (foldr (lambda (_%g4695946962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4699647001%_) - (cons _%g4699546998%_ _%g4699647001%_)) + _%g4696046965%_) + (cons _%g4695946962%_ _%g4696046965%_)) '() - _%L46949%_))) + _%L46913%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7857678577%_ - (lambda (_%L46807%_ _%L46809%_ _%L46810%_ _%L46811%_) + (_%__kont7934279343%_ + (lambda (_%L46771%_ _%L46773%_ _%L46774%_ _%L46775%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46811%_ _%L46810%_) + (cons (cons _%L46775%_ _%L46774%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L46809%_ - (foldr (lambda (_%g4683346836%_ + (cons _%L46773%_ + (foldr (lambda (_%g4679746800%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4683446839%_) - (cons _%g4683346836%_ _%g4683446839%_)) + _%g4679846803%_) + (cons _%g4679746800%_ _%g4679846803%_)) '() - _%L46807%_))) + _%L46771%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7858078581%_ - (lambda (_%L46703%_) + (_%__kont7934679347%_ + (lambda (_%L46667%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4672146724%_ _%g4672246727%_) - (cons _%g4672146724%_ _%g4672246727%_)) + (foldr (lambda (_%g4668546688%_ _%g4668646691%_) + (cons _%g4668546688%_ _%g4668646691%_)) '() - _%L46703%_)))))) - (let* ((_%__match7888678887%_ - (lambda (_%e4662646653%_ - _%hd4662746657%_ - _%tl4662846660%_ - _%e4662946663%_ - _%hd4663046667%_ - _%tl4663146670%_ - _%__splice7858278583%_ - _%target4663246673%_ - _%tl4663446676%_) - (letrec ((_%loop4663546679%_ - (lambda (_%hd4663346683%_ _%body4663946686%_) - (if (gx#stx-pair? _%hd4663346683%_) - (let ((_%e4663646689%_ - (gx#syntax-e _%hd4663346683%_))) - (let ((_%lp-tl4663846696%_ + _%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 _%e4663646689%_))) - (_%lp-hd4663746693%_ + (##cdr _%e4660046653%_))) + (_%lp-hd4660146657%_ (let () (declare (not safe)) - (##car _%e4663646689%_)))) - (_%loop4663546679%_ - _%lp-tl4663846696%_ - (cons _%lp-hd4663746693%_ - _%body4663946686%_)))) - (let ((_%body4664046699%_ - (reverse _%body4663946686%_))) - (_%__kont7858078581%_ - _%body4664046699%_)))))) - (_%loop4663546679%_ _%target4663246673%_ '())))) - (_%__match7886478865%_ - (lambda (_%e4660446737%_ - _%hd4660546741%_ - _%tl4660646744%_ - _%e4660746747%_ - _%hd4660846751%_ - _%tl4660946754%_ - _%e4661046757%_ - _%hd4661146761%_ - _%tl4661246764%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (letrec ((_%loop4661946783%_ - (lambda (_%hd4661746787%_ _%body4662346790%_) - (if (gx#stx-pair? _%hd4661746787%_) - (let ((_%e4662046793%_ - (gx#syntax-e _%hd4661746787%_))) - (let ((_%lp-tl4662246800%_ + (##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 _%e4662046793%_))) - (_%lp-hd4662146797%_ + (##cdr _%e4658446757%_))) + (_%lp-hd4658546761%_ (let () (declare (not safe)) - (##car _%e4662046793%_)))) - (_%loop4661946783%_ - _%lp-tl4662246800%_ - (cons _%lp-hd4662146797%_ - _%body4662346790%_)))) - (let ((_%body4662446803%_ - (reverse _%body4662346790%_))) - (let ((_%L46807%_ _%body4662446803%_) - (_%L46809%_ _%tl4661246764%_) - (_%L46810%_ _%tl4661546774%_) - (_%L46811%_ _%hd4661446771%_)) - (if (gx#identifier? _%L46811%_) - (_%__kont7857678577%_ - _%L46807%_ - _%L46809%_ - _%L46810%_ - _%L46811%_) + (##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)) - (_%g4643746646%_))))))))) - (_%loop4661946783%_ _%target4661646777%_ '())))) - (_%__match7885078851%_ - (lambda (_%e4660446737%_ - _%hd4660546741%_ - _%tl4660646744%_ - _%e4660746747%_ - _%hd4660846751%_ - _%tl4660946754%_ - _%e4661046757%_ - _%hd4661146761%_ - _%tl4661246764%_) - (if (gx#stx-pair? _%hd4661146761%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4661146761%_))) - (let ((_%tl4661546774%_ + (_%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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4660946754%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4657346718%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4660946754%_ + _%tl4657346718%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4660446737%_ - _%hd4660546741%_ - _%tl4660646744%_ - _%e4660746747%_ - _%hd4660846751%_ - _%tl4660946754%_ - _%e4661046757%_ - _%hd4661146761%_ - _%tl4661246764%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (_%__match7883278833%_ - (lambda (_%e4657046849%_ - _%hd4657146853%_ - _%tl4657246856%_ - _%e4657346859%_ - _%hd4657446863%_ - _%tl4657546866%_ - _%e4657646869%_ - _%hd4657746873%_ - _%tl4657846876%_ - _%e4657946879%_ - _%hd4658046883%_ - _%tl4658146886%_ - _%e4658246889%_ - _%hd4658346893%_ - _%tl4658446896%_ - _%e4658546899%_ - _%hd4658646903%_ - _%tl4658746906%_ - _%e4658846909%_ - _%hd4658946913%_ - _%tl4659046916%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (letrec ((_%loop4659446925%_ - (lambda (_%hd4659246929%_ _%body4659846932%_) - (if (gx#stx-pair? _%hd4659246929%_) - (let ((_%e4659546935%_ - (gx#syntax-e _%hd4659246929%_))) - (let ((_%lp-tl4659746942%_ + (_%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 _%e4659546935%_))) - (_%lp-hd4659646939%_ + (##cdr _%e4655946899%_))) + (_%lp-hd4656046903%_ (let () (declare (not safe)) - (##car _%e4659546935%_)))) - (_%loop4659446925%_ - _%lp-tl4659746942%_ - (cons _%lp-hd4659646939%_ - _%body4659846932%_)))) - (let ((_%body4659946945%_ - (reverse _%body4659846932%_))) - (let ((_%L46949%_ _%body4659946945%_) - (_%L46951%_ _%hd4658946913%_) - (_%L46952%_ _%hd4658646903%_) - (_%L46953%_ _%hd4658346893%_) - (_%L46954%_ _%hd4657746873%_)) - (if (and (gx#identifier? _%L46954%_) - (gx#identifier? _%L46951%_) - (gx#identifier? _%L46952%_) + (##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=? - _%L46952%_ + _%L46916%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L46952%_ + _%L46916%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L46952%_ + _%L46916%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L46952%_ + _%L46916%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7857278573%_ - _%L46949%_ - _%L46951%_ - _%L46952%_ - _%L46953%_ - _%L46954%_) - (_%__match7885078851%_ - _%e4657046849%_ - _%hd4657146853%_ - _%tl4657246856%_ - _%e4657346859%_ - _%hd4657446863%_ - _%tl4657546866%_ - _%e4657646869%_ - _%hd4657746873%_ - _%tl4657846876%_)))))))) - (_%loop4659446925%_ _%target4659146919%_ '())))) - (_%__match7877678777%_ - (lambda (_%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4655047041%_ - _%hd4655147045%_ - _%tl4655247048%_ - _%e4655347051%_ - _%hd4655447055%_ - _%tl4655547058%_ - _%__splice7857078571%_ - _%target4655647061%_ - _%tl4655847064%_) - (letrec ((_%loop4655947067%_ - (lambda (_%hd4655747071%_ _%body4656347074%_) - (if (gx#stx-pair? _%hd4655747071%_) - (let ((_%e4656047077%_ - (gx#syntax-e _%hd4655747071%_))) - (let ((_%lp-tl4656247084%_ + (_%__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 _%e4656047077%_))) - (_%lp-hd4656147081%_ + (##cdr _%e4652447041%_))) + (_%lp-hd4652547045%_ (let () (declare (not safe)) - (##car _%e4656047077%_)))) - (_%loop4655947067%_ - _%lp-tl4656247084%_ - (cons _%lp-hd4656147081%_ - _%body4656347074%_)))) - (let ((_%body4656447087%_ - (reverse _%body4656347074%_))) - (let ((_%L47091%_ _%body4656447087%_) - (_%L47093%_ _%hd4655447055%_) - (_%L47094%_ _%hd4654847035%_)) - (if (gx#identifier? _%L47094%_) - (_%__kont7856878569%_ - _%L47091%_ - _%L47093%_ - _%L47094%_) - (_%__match7885078851%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_)))))))) - (_%loop4655947067%_ _%target4655647061%_ '())))) - (_%__match7875678757%_ - (lambda (_%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4655047041%_ - _%hd4655147045%_ - _%tl4655247048%_) - (if (gx#identifier? _%hd4655147045%_) + (##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]#_g84127_| - _%hd4655147045%_) - (if (gx#stx-pair? _%tl4655247048%_) - (let ((_%e4655347051%_ - (gx#syntax-e _%tl4655247048%_))) - (let ((_%tl4655547058%_ + |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 _%e4655347051%_))) - (_%hd4655447055%_ + (##cdr _%e4651747015%_))) + (_%hd4651847019%_ (let () (declare (not safe)) - (##car _%e4655347051%_)))) - (if (gx#stx-null? _%tl4655547058%_) + (##car _%e4651747015%_)))) + (if (gx#stx-null? _%tl4651947022%_) (if (gx#stx-pair/null? - _%tl4654647028%_) - (let ((_%__splice7857078571%_ + _%tl4651046992%_) + (let ((_%__splice7933679337%_ (gx#syntax-split-splice - _%tl4654647028%_ + _%tl4651046992%_ '0))) - (let ((_%tl4655847064%_ + (let ((_%tl4652247028%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857078571%_ + _%__splice7933679337%_ '1))) - (_%target4655647061%_ + (_%target4652047025%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857078571%_ + _%__splice7933679337%_ '0)))) (if (gx#stx-null? - _%tl4655847064%_) - (_%__match7877678777%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4655047041%_ - _%hd4655147045%_ - _%tl4655247048%_ - _%e4655347051%_ - _%hd4655447055%_ - _%tl4655547058%_ - _%__splice7857078571%_ - _%target4655647061%_ - _%tl4655847064%_) + _%tl4652247028%_) + (_%__match7954279543%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4651447005%_ + _%hd4651547009%_ + _%tl4651647012%_ + _%e4651747015%_ + _%hd4651847019%_ + _%tl4651947022%_ + _%__splice7933679337%_ + _%target4652047025%_ + _%tl4652247028%_) (if (gx#stx-pair? - _%hd4654847035%_) - (let ((_%e4661346767%_ + _%hd4651246999%_) + (let ((_%e4657746731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4654847035%_) - (let ((_%e4661346767%_ + _%hd4651246999%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4654847035%_))) - (let ((_%tl4661546774%_ + _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%tl4655547058%_) - (let ((_%e4658546899%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%tl4651947022%_) + (let ((_%e4654946863%_ (gx#syntax-e - _%tl4655547058%_))) - (let ((_%tl4658746906%_ + _%tl4651947022%_))) + (let ((_%tl4655146870%_ (let () (declare (not safe)) - (##cdr _%e4658546899%_))) - (_%hd4658646903%_ + (##cdr _%e4654946863%_))) + (_%hd4655046867%_ (let () (declare (not safe)) - (##car _%e4658546899%_)))) + (##car _%e4654946863%_)))) (if (gx#stx-pair? - _%tl4658746906%_) - (let ((_%e4658846909%_ + _%tl4655146870%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4658746906%_))) - (let ((_%tl4659046916%_ + _%tl4655146870%_))) + (let ((_%tl4655446880%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4658846909%_))) - (_%hd4658946913%_ - (let () (declare (not safe)) (##car _%e4658846909%_)))) - (if (gx#stx-null? _%tl4659046916%_) - (if (gx#stx-pair/null? _%tl4654647028%_) - (let ((_%__splice7857478575%_ - (gx#syntax-split-splice _%tl4654647028%_ '0))) - (let ((_%tl4659346922%_ + (##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 _%__splice7857478575%_ '1))) - (_%target4659146919%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857478575%_ + _%__splice7934079341%_ '0)))) - (if (gx#stx-null? _%tl4659346922%_) - (_%__match7883278833%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4655047041%_ - _%hd4655147045%_ - _%tl4655247048%_ - _%e4655347051%_ - _%hd4655447055%_ - _%tl4655547058%_ - _%e4658546899%_ - _%hd4658646903%_ - _%tl4658746906%_ - _%e4658846909%_ - _%hd4658946913%_ - _%tl4659046916%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (if (gx#stx-pair? _%hd4654847035%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4654847035%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4654847035%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4654647028%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4654647028%_ + _%tl4651046992%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4654847035%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4654647028%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4654647028%_ '0))) - (let ((_%tl4661846780%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4651046992%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4654847035%_) - (let ((_%e4661346767%_ + _%hd4651246999%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4654847035%_))) - (let ((_%tl4661546774%_ + _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4654647028%_) - (let ((_%__splice7857878579%_ + _%tl4651046992%_) + (let ((_%__splice7934479345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4654647028%_ '0))) - (let ((_%tl4661846780%_ + (gx#syntax-split-splice _%tl4651046992%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_))))))) - (if (gx#stx-pair? _%hd4654847035%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_))))))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4654647028%_) - (let ((_%__splice7857878579%_ + _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4654647028%_ + _%tl4651046992%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4654847035%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4654647028%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4654647028%_ + _%tl4651046992%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4654847035%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4654847035%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4654647028%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4654647028%_ + _%tl4651046992%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4654147011%_ - _%hd4654247015%_ - _%tl4654347018%_ - _%e4654447021%_ - _%hd4654547025%_ - _%tl4654647028%_ - _%e4654747031%_ - _%hd4654847035%_ - _%tl4654947038%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (_%__match7873278733%_ - (lambda (_%e4651447133%_ - _%hd4651547137%_ - _%tl4651647140%_ - _%e4651747143%_ - _%hd4651847147%_ - _%tl4651947150%_ - _%e4652047153%_ - _%hd4652147157%_ - _%tl4652247160%_ - _%e4652347163%_ - _%hd4652447167%_ - _%tl4652547170%_ - _%e4652647173%_ - _%hd4652747177%_ - _%tl4652847180%_ - _%__splice7856678567%_ - _%target4652947183%_ - _%tl4653147186%_) - (letrec ((_%loop4653247189%_ - (lambda (_%hd4653047193%_ _%body4653647196%_) - (if (gx#stx-pair? _%hd4653047193%_) - (let ((_%e4653347199%_ - (gx#syntax-e _%hd4653047193%_))) - (let ((_%lp-tl4653547206%_ + (_%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 _%e4653347199%_))) - (_%lp-hd4653447203%_ + (##cdr _%e4649747163%_))) + (_%lp-hd4649847167%_ (let () (declare (not safe)) - (##car _%e4653347199%_)))) - (_%loop4653247189%_ - _%lp-tl4653547206%_ - (cons _%lp-hd4653447203%_ - _%body4653647196%_)))) - (let ((_%body4653747209%_ - (reverse _%body4653647196%_))) - (let ((_%L47213%_ _%body4653747209%_) - (_%L47215%_ _%hd4652747177%_) - (_%L47216%_ _%hd4652447167%_) - (_%L47217%_ _%hd4652147157%_)) - (if (and (gx#identifier? _%L47217%_) - (gx#identifier? _%L47215%_) - (gx#identifier? _%L47216%_) + (##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=? - _%L47216%_ + _%L47180%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47216%_ + _%L47180%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47216%_ + _%L47180%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47216%_ + _%L47180%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7856478565%_ - _%L47213%_ - _%L47215%_ - _%L47216%_ - _%L47217%_) - (_%__match7875678757%_ - _%e4651447133%_ - _%hd4651547137%_ - _%tl4651647140%_ - _%e4651747143%_ - _%hd4651847147%_ - _%tl4651947150%_ - _%e4652047153%_ - _%hd4652147157%_ - _%tl4652247160%_ - _%e4652347163%_ - _%hd4652447167%_ - _%tl4652547170%_)))))))) - (_%loop4653247189%_ _%target4652947183%_ '())))) - (_%__match7869278693%_ - (lambda (_%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%e4649247336%_ - _%hd4649347340%_ - _%tl4649447343%_ - _%e4649547346%_ - _%hd4649647350%_ - _%tl4649747353%_ - _%e4649847356%_ - _%hd4649947360%_ - _%tl4650047363%_ - _%__splice7856278563%_ - _%target4650147366%_ - _%tl4650347369%_) - (letrec ((_%loop4650447372%_ - (lambda (_%hd4650247376%_ _%body4650847379%_) - (if (gx#stx-pair? _%hd4650247376%_) - (let ((_%e4650547382%_ - (gx#syntax-e _%hd4650247376%_))) - (let ((_%lp-tl4650747389%_ + (_%__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 _%e4650547382%_))) - (_%lp-hd4650647386%_ + (##cdr _%e4646947346%_))) + (_%lp-hd4647047350%_ (let () (declare (not safe)) - (##car _%e4650547382%_)))) - (_%loop4650447372%_ - _%lp-tl4650747389%_ - (cons _%lp-hd4650647386%_ - _%body4650847379%_)))) - (let ((_%body4650947392%_ - (reverse _%body4650847379%_))) - (let ((_%L47396%_ _%body4650947392%_) - (_%L47398%_ _%hd4649947360%_) - (_%L47399%_ _%hd4649647350%_) - (_%L47400%_ _%hd4649347340%_) - (_%L47401%_ _%hd4648747320%_) - (_%L47402%_ _%hd4648447310%_)) - (if (and (gx#identifier? _%L47402%_) - (gx#identifier? _%L47398%_) - (gx#identifier? _%L47399%_) + (##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=? - _%L47399%_ + _%L47363%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47399%_ + _%L47363%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47399%_ + _%L47363%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47399%_ + _%L47363%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7856078561%_ - _%L47396%_ - _%L47398%_ - _%L47399%_ - _%L47400%_ - _%L47401%_ - _%L47402%_) - (_%__match7875678757%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_)))))))) - (_%loop4650447372%_ _%target4650147366%_ '())))) - (_%__match7866078661%_ - (lambda (_%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_) - (if (gx#identifier? _%hd4649047330%_) + (_%__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]#_g84128_| - _%hd4649047330%_) - (if (gx#stx-pair? _%tl4649147333%_) - (let ((_%e4649247336%_ - (gx#syntax-e _%tl4649147333%_))) - (let ((_%tl4649447343%_ + |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 _%e4649247336%_))) - (_%hd4649347340%_ + (##cdr _%e4645647300%_))) + (_%hd4645747304%_ (let () (declare (not safe)) - (##car _%e4649247336%_)))) - (if (gx#stx-pair? _%tl4649447343%_) - (let ((_%e4649547346%_ + (##car _%e4645647300%_)))) + (if (gx#stx-pair? _%tl4645847307%_) + (let ((_%e4645947310%_ (gx#syntax-e - _%tl4649447343%_))) - (let ((_%tl4649747353%_ + _%tl4645847307%_))) + (let ((_%tl4646147317%_ (let () (declare (not safe)) - (##cdr _%e4649547346%_))) - (_%hd4649647350%_ + (##cdr _%e4645947310%_))) + (_%hd4646047314%_ (let () (declare (not safe)) - (##car _%e4649547346%_)))) + (##car _%e4645947310%_)))) (if (gx#stx-pair? - _%tl4649747353%_) - (let ((_%e4649847356%_ + _%tl4646147317%_) + (let ((_%e4646247320%_ (gx#syntax-e - _%tl4649747353%_))) - (let ((_%tl4650047363%_ + _%tl4646147317%_))) + (let ((_%tl4646447327%_ (let () (declare (not safe)) - (##cdr _%e4649847356%_))) - (_%hd4649947360%_ + (##cdr _%e4646247320%_))) + (_%hd4646347324%_ (let () (declare (not safe)) - (##car _%e4649847356%_)))) + (##car _%e4646247320%_)))) (if (gx#stx-null? - _%tl4650047363%_) + _%tl4646447327%_) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7856278563%_ + _%tl4644647267%_) + (let ((_%__splice7932879329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4650347369%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4646747333%_ (let () (declare (not safe)) - (##vector-ref _%__splice7856278563%_ '1))) - (_%target4650147366%_ + (##vector-ref _%__splice7932879329%_ '1))) + (_%target4646547330%_ (let () (declare (not safe)) - (##vector-ref _%__splice7856278563%_ '0)))) - (if (gx#stx-null? _%tl4650347369%_) - (_%__match7869278693%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%e4649247336%_ - _%hd4649347340%_ - _%tl4649447343%_ - _%e4649547346%_ - _%hd4649647350%_ - _%tl4649747353%_ - _%e4649847356%_ - _%hd4649947360%_ - _%tl4650047363%_ - _%__splice7856278563%_ - _%target4650147366%_ - _%tl4650347369%_) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4648747320%_) + _%hd4645147284%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84127_| - _%hd4648747320%_) + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4645147284%_) (if (gx#stx-null? - _%tl4649747353%_) + _%tl4646147317%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4648247303%_) - (let ((_%__splice7857478575%_ - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4659346922%_ + _%tl4644647267%_) + (let ((_%__splice7934079341%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '1))) - (_%target4659146919%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857478575%_ + _%__splice7934079341%_ '0)))) - (if (gx#stx-null? _%tl4659346922%_) - (_%__match7883278833%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%e4649247336%_ - _%hd4649347340%_ - _%tl4649447343%_ - _%e4649547346%_ - _%hd4649647350%_ - _%tl4649747353%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4661846780%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))))) - (if (gx#stx-null? _%tl4649147333%_) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7856678567%_ + (_%g4640146610%_)))))) + (if (gx#stx-null? _%tl4645547297%_) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7933279333%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4653147186%_ + (let ((_%tl4649547150%_ (let () (declare (not safe)) (##vector-ref - _%__splice7856678567%_ + _%__splice7933279333%_ '1))) - (_%target4652947183%_ + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7856678567%_ + _%__splice7933279333%_ '0)))) (if (gx#stx-null? - _%tl4653147186%_) - (_%__match7873278733%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%__splice7856678567%_ - _%target4652947183%_ - _%tl4653147186%_) + _%tl4649547150%_) + (_%__match7949879499%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%__splice7933279333%_ + _%target4649347147%_ + _%tl4649547150%_) (if (gx#stx-pair? - _%hd4648447310%_) - (let ((_%e4661346767%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ - (let () (declare (not safe)) (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ + (let () (declare (not safe)) (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (if (gx#stx-null? _%tl4649147333%_) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7856678567%_ + (_%g4640146610%_))))) + (if (gx#stx-null? _%tl4645547297%_) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7933279333%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4653147186%_ + (let ((_%tl4649547150%_ (let () (declare (not safe)) (##vector-ref - _%__splice7856678567%_ + _%__splice7933279333%_ '1))) - (_%target4652947183%_ + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7856678567%_ + _%__splice7933279333%_ '0)))) - (if (gx#stx-null? _%tl4653147186%_) - (_%__match7873278733%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%__splice7856678567%_ - _%target4652947183%_ - _%tl4653147186%_) + (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? - _%hd4648447310%_) - (let ((_%e4661346767%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#identifier? _%hd4648747320%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4645147284%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84127_| - _%hd4648747320%_) - (if (gx#stx-pair? _%tl4649147333%_) - (let ((_%e4658546899%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4645147284%_) + (if (gx#stx-pair? _%tl4645547297%_) + (let ((_%e4654946863%_ (gx#syntax-e - _%tl4649147333%_))) - (let ((_%tl4658746906%_ + _%tl4645547297%_))) + (let ((_%tl4655146870%_ (let () (declare (not safe)) - (##cdr _%e4658546899%_))) - (_%hd4658646903%_ + (##cdr _%e4654946863%_))) + (_%hd4655046867%_ (let () (declare (not safe)) - (##car _%e4658546899%_)))) + (##car _%e4654946863%_)))) (if (gx#stx-pair? - _%tl4658746906%_) - (let ((_%e4658846909%_ + _%tl4655146870%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4658746906%_))) - (let ((_%tl4659046916%_ + _%tl4655146870%_))) + (let ((_%tl4655446880%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4658846909%_))) - (_%hd4658946913%_ - (let () (declare (not safe)) (##car _%e4658846909%_)))) - (if (gx#stx-null? _%tl4659046916%_) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857478575%_ - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4659346922%_ + (##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 _%__splice7857478575%_ '1))) - (_%target4659146919%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857478575%_ + _%__splice7934079341%_ '0)))) - (if (gx#stx-null? _%tl4659346922%_) - (_%__match7883278833%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%e4658546899%_ - _%hd4658646903%_ - _%tl4658746906%_ - _%e4658846909%_ - _%hd4658946913%_ - _%tl4659046916%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4661846780%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4648447310%_) - (let ((_%e4661346767%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4661846780%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-null? _%tl4649147333%_) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7856678567%_ + (_%g4640146610%_)))))) + (if (gx#stx-null? _%tl4645547297%_) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7933279333%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4653147186%_ + (let ((_%tl4649547150%_ (let () (declare (not safe)) (##vector-ref - _%__splice7856678567%_ + _%__splice7933279333%_ '1))) - (_%target4652947183%_ + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7856678567%_ + _%__splice7933279333%_ '0)))) - (if (gx#stx-null? _%tl4653147186%_) - (_%__match7873278733%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%__splice7856678567%_ - _%target4652947183%_ - _%tl4653147186%_) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (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 - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#identifier? _%hd4648747320%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4645147284%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84127_| - _%hd4648747320%_) - (if (gx#stx-pair? _%tl4649147333%_) - (let ((_%e4658546899%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4645147284%_) + (if (gx#stx-pair? _%tl4645547297%_) + (let ((_%e4654946863%_ (gx#syntax-e - _%tl4649147333%_))) - (let ((_%tl4658746906%_ + _%tl4645547297%_))) + (let ((_%tl4655146870%_ (let () (declare (not safe)) - (##cdr _%e4658546899%_))) - (_%hd4658646903%_ + (##cdr _%e4654946863%_))) + (_%hd4655046867%_ (let () (declare (not safe)) - (##car _%e4658546899%_)))) + (##car _%e4654946863%_)))) (if (gx#stx-pair? - _%tl4658746906%_) - (let ((_%e4658846909%_ + _%tl4655146870%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4658746906%_))) - (let ((_%tl4659046916%_ + _%tl4655146870%_))) + (let ((_%tl4655446880%_ (let () (declare (not safe)) - (##cdr _%e4658846909%_))) - (_%hd4658946913%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ (let () (declare (not safe)) - (##car _%e4658846909%_)))) + (##car _%e4655246873%_)))) (if (gx#stx-null? - _%tl4659046916%_) + _%tl4655446880%_) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857478575%_ + _%tl4644647267%_) + (let ((_%__splice7934079341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4659346922%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '1))) - (_%target4659146919%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '0)))) - (if (gx#stx-null? _%tl4659346922%_) - (_%__match7883278833%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4648647316%_ - _%hd4648747320%_ - _%tl4648847323%_ - _%e4648947326%_ - _%hd4649047330%_ - _%tl4649147333%_ - _%e4658546899%_ - _%hd4658646903%_ - _%tl4658746906%_ - _%e4658846909%_ - _%hd4658946913%_ - _%tl4659046916%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4648447310%_) - (let ((_%e4661346767%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ - (let () (declare (not safe)) (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4648247303%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4648247303%_ '0))) - (let ((_%tl4661846780%_ + (##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 _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (##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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4648447310%_))) - (let ((_%tl4661546774%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4648447310%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4648447310%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4648247303%_) - (let ((_%__splice7857878579%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4648247303%_ + _%tl4644647267%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4647747286%_ - _%hd4647847290%_ - _%tl4647947293%_ - _%e4648047296%_ - _%hd4648147300%_ - _%tl4648247303%_ - _%e4648347306%_ - _%hd4648447310%_ - _%tl4648547313%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))))))) - (_%__match7863078631%_ - (lambda (_%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_ - _%e4645947512%_ - _%hd4646047516%_ - _%tl4646147519%_ - _%__splice7855878559%_ - _%target4646247522%_ - _%tl4646447525%_) - (letrec ((_%loop4646547528%_ - (lambda (_%hd4646347532%_ _%body4646947535%_) - (if (gx#stx-pair? _%hd4646347532%_) - (let ((_%e4646647538%_ - (gx#syntax-e _%hd4646347532%_))) - (let ((_%lp-tl4646847545%_ + (_%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 _%e4646647538%_))) - (_%lp-hd4646747542%_ + (##cdr _%e4643047502%_))) + (_%lp-hd4643147506%_ (let () (declare (not safe)) - (##car _%e4646647538%_)))) - (_%loop4646547528%_ - _%lp-tl4646847545%_ - (cons _%lp-hd4646747542%_ - _%body4646947535%_)))) - (let ((_%body4647047548%_ - (reverse _%body4646947535%_))) - (let ((_%L47552%_ _%body4647047548%_) - (_%L47554%_ _%hd4646047516%_) - (_%L47555%_ _%hd4645747506%_) - (_%L47556%_ _%hd4645447496%_) - (_%L47557%_ _%hd4645147486%_)) - (if (and (gx#identifier? _%L47557%_) - (gx#identifier? _%L47555%_) + (##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=? - _%L47555%_ + _%L47519%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47555%_ + _%L47519%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47555%_ + _%L47519%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47555%_ + _%L47519%_ (gx#datum->syntax '#f ':~)) (gx#free-identifier=? - _%L47555%_ + _%L47519%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7855678557%_ - _%L47552%_ - _%L47554%_ - _%L47555%_ - _%L47556%_ - _%L47557%_) - (_%__match7866078661%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_)))))))) - (_%loop4646547528%_ _%target4646247522%_ '()))))) - (if (gx#stx-pair? _%__stx7855378554%_) - (let ((_%e4644447462%_ (gx#syntax-e _%__stx7855378554%_))) - (let ((_%tl4644647469%_ + (_%__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 _%e4644447462%_))) - (_%hd4644547466%_ + (##cdr _%e4640847426%_))) + (_%hd4640947430%_ (let () (declare (not safe)) - (##car _%e4644447462%_)))) - (if (gx#stx-pair? _%tl4644647469%_) - (let ((_%e4644747472%_ - (gx#syntax-e _%tl4644647469%_))) - (let ((_%tl4644947479%_ + (##car _%e4640847426%_)))) + (if (gx#stx-pair? _%tl4641047433%_) + (let ((_%e4641147436%_ + (gx#syntax-e _%tl4641047433%_))) + (let ((_%tl4641347443%_ (let () (declare (not safe)) - (##cdr _%e4644747472%_))) - (_%hd4644847476%_ + (##cdr _%e4641147436%_))) + (_%hd4641247440%_ (let () (declare (not safe)) - (##car _%e4644747472%_)))) - (if (gx#stx-pair? _%hd4644847476%_) - (let ((_%e4645047482%_ - (gx#syntax-e _%hd4644847476%_))) - (let ((_%tl4645247489%_ + (##car _%e4641147436%_)))) + (if (gx#stx-pair? _%hd4641247440%_) + (let ((_%e4641447446%_ + (gx#syntax-e _%hd4641247440%_))) + (let ((_%tl4641647453%_ (let () (declare (not safe)) - (##cdr _%e4645047482%_))) - (_%hd4645147486%_ + (##cdr _%e4641447446%_))) + (_%hd4641547450%_ (let () (declare (not safe)) - (##car _%e4645047482%_)))) - (if (gx#stx-pair? _%tl4645247489%_) - (let ((_%e4645347492%_ + (##car _%e4641447446%_)))) + (if (gx#stx-pair? _%tl4641647453%_) + (let ((_%e4641747456%_ (gx#syntax-e - _%tl4645247489%_))) - (let ((_%tl4645547499%_ + _%tl4641647453%_))) + (let ((_%tl4641947463%_ (let () (declare (not safe)) - (##cdr _%e4645347492%_))) - (_%hd4645447496%_ + (##cdr _%e4641747456%_))) + (_%hd4641847460%_ (let () (declare (not safe)) - (##car _%e4645347492%_)))) + (##car _%e4641747456%_)))) (if (gx#stx-pair? - _%tl4645547499%_) - (let ((_%e4645647502%_ + _%tl4641947463%_) + (let ((_%e4642047466%_ (gx#syntax-e - _%tl4645547499%_))) - (let ((_%tl4645847509%_ + _%tl4641947463%_))) + (let ((_%tl4642247473%_ (let () (declare (not safe)) - (##cdr _%e4645647502%_))) - (_%hd4645747506%_ + (##cdr _%e4642047466%_))) + (_%hd4642147470%_ (let () (declare (not safe)) - (##car _%e4645647502%_)))) + (##car _%e4642047466%_)))) (if (gx#stx-pair? - _%tl4645847509%_) - (let ((_%e4645947512%_ + _%tl4642247473%_) + (let ((_%e4642347476%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4645847509%_))) - (let ((_%tl4646147519%_ + (gx#syntax-e _%tl4642247473%_))) + (let ((_%tl4642547483%_ (let () (declare (not safe)) - (##cdr _%e4645947512%_))) - (_%hd4646047516%_ + (##cdr _%e4642347476%_))) + (_%hd4642447480%_ (let () (declare (not safe)) - (##car _%e4645947512%_)))) - (if (gx#stx-null? _%tl4646147519%_) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7855878559%_ + (##car _%e4642347476%_)))) + (if (gx#stx-null? _%tl4642547483%_) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7932479325%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4646447525%_ + (let ((_%tl4642847489%_ (let () (declare (not safe)) (##vector-ref - _%__splice7855878559%_ + _%__splice7932479325%_ '1))) - (_%target4646247522%_ + (_%target4642647486%_ (let () (declare (not safe)) (##vector-ref - _%__splice7855878559%_ + _%__splice7932479325%_ '0)))) - (if (gx#stx-null? _%tl4646447525%_) - (_%__match7863078631%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_ - _%e4645947512%_ - _%hd4646047516%_ - _%tl4646147519%_ - _%__splice7855878559%_ - _%target4646247522%_ - _%tl4646447525%_) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ + (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 - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#identifier? _%hd4645747506%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4642147470%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84128_| - _%hd4645747506%_) - (if (gx#stx-pair? _%tl4646147519%_) - (let ((_%e4649547346%_ - (gx#syntax-e _%tl4646147519%_))) - (let ((_%tl4649747353%_ + |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 _%e4649547346%_))) - (_%hd4649647350%_ + (##cdr _%e4645947310%_))) + (_%hd4646047314%_ (let () (declare (not safe)) - (##car _%e4649547346%_)))) - (if (gx#stx-pair? _%tl4649747353%_) - (let ((_%e4649847356%_ + (##car _%e4645947310%_)))) + (if (gx#stx-pair? _%tl4646147317%_) + (let ((_%e4646247320%_ (gx#syntax-e - _%tl4649747353%_))) - (let ((_%tl4650047363%_ + _%tl4646147317%_))) + (let ((_%tl4646447327%_ (let () (declare (not safe)) - (##cdr _%e4649847356%_))) - (_%hd4649947360%_ + (##cdr _%e4646247320%_))) + (_%hd4646347324%_ (let () (declare (not safe)) - (##car _%e4649847356%_)))) + (##car _%e4646247320%_)))) (if (gx#stx-null? - _%tl4650047363%_) + _%tl4646447327%_) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7856278563%_ + _%tl4641347443%_) + (let ((_%__splice7932879329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4650347369%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4646747333%_ (let () (declare (not safe)) - (##vector-ref _%__splice7856278563%_ '1))) - (_%target4650147366%_ + (##vector-ref _%__splice7932879329%_ '1))) + (_%target4646547330%_ (let () (declare (not safe)) - (##vector-ref _%__splice7856278563%_ '0)))) - (if (gx#stx-null? _%tl4650347369%_) - (_%__match7869278693%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_ - _%e4645947512%_ - _%hd4646047516%_ - _%tl4646147519%_ - _%e4649547346%_ - _%hd4649647350%_ - _%tl4649747353%_ - _%e4649847356%_ - _%hd4649947360%_ - _%tl4650047363%_ - _%__splice7856278563%_ - _%target4650147366%_ - _%tl4650347369%_) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4661846780%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4645447496%_) + _%hd4641847460%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84127_| - _%hd4645447496%_) + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4641847460%_) (if (gx#stx-null? - _%tl4649747353%_) + _%tl4646147317%_) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857478575%_ + _%tl4641347443%_) + (let ((_%__splice7934079341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4659346922%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '1))) - (_%target4659146919%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '0)))) - (if (gx#stx-null? _%tl4659346922%_) - (_%__match7883278833%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_ - _%e4645947512%_ - _%hd4646047516%_ - _%tl4646147519%_ - _%e4649547346%_ - _%hd4649647350%_ - _%tl4649747353%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4661846780%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4645147486%_) - (let ((_%e4661346767%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ - (let () (declare (not safe)) (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4661846780%_ + (##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 _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (##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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#identifier? _%hd4645447496%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4641847460%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84127_| - _%hd4645447496%_) - (if (gx#stx-pair? _%tl4646147519%_) - (let ((_%e4658846909%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4641847460%_) + (if (gx#stx-pair? _%tl4642547483%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4646147519%_))) - (let ((_%tl4659046916%_ + _%tl4642547483%_))) + (let ((_%tl4655446880%_ (let () (declare (not safe)) - (##cdr _%e4658846909%_))) - (_%hd4658946913%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ (let () (declare (not safe)) - (##car _%e4658846909%_)))) + (##car _%e4655246873%_)))) (if (gx#stx-null? - _%tl4659046916%_) + _%tl4655446880%_) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857478575%_ + _%tl4641347443%_) + (let ((_%__splice7934079341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4659346922%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '1))) - (_%target4659146919%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '0)))) - (if (gx#stx-null? _%tl4659346922%_) - (_%__match7883278833%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_ - _%e4645947512%_ - _%hd4646047516%_ - _%tl4646147519%_ - _%e4658846909%_ - _%hd4658946913%_ - _%tl4659046916%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4661846780%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4645147486%_) - (let ((_%e4661346767%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4661846780%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (if (gx#identifier? _%hd4645447496%_) + (_%g4640146610%_))))) + (if (gx#identifier? _%hd4641847460%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84127_| - _%hd4645447496%_) - (if (gx#stx-pair? _%tl4646147519%_) - (let ((_%e4658846909%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4641847460%_) + (if (gx#stx-pair? _%tl4642547483%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4646147519%_))) - (let ((_%tl4659046916%_ + _%tl4642547483%_))) + (let ((_%tl4655446880%_ (let () (declare (not safe)) - (##cdr _%e4658846909%_))) - (_%hd4658946913%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ (let () (declare (not safe)) - (##car _%e4658846909%_)))) + (##car _%e4655246873%_)))) (if (gx#stx-null? - _%tl4659046916%_) + _%tl4655446880%_) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857478575%_ + _%tl4641347443%_) + (let ((_%__splice7934079341%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4659346922%_ + (let ((_%tl4655746886%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '1))) - (_%target4659146919%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857478575%_ '0)))) - (if (gx#stx-null? _%tl4659346922%_) - (_%__match7883278833%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_ - _%e4645947512%_ - _%hd4646047516%_ - _%tl4646147519%_ - _%e4658846909%_ - _%hd4658946913%_ - _%tl4659046916%_ - _%__splice7857478575%_ - _%target4659146919%_ - _%tl4659346922%_) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (##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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4645147486%_) - (let ((_%e4661346767%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ - (let () (declare (not safe)) (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4661846780%_ + (##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 _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (##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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_)))))))) - (if (gx#stx-null? _%tl4645847509%_) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7856678567%_ - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4653147186%_ + (_%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 _%__splice7856678567%_ '1))) - (_%target4652947183%_ + (##vector-ref _%__splice7933279333%_ '1))) + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7856678567%_ + _%__splice7933279333%_ '0)))) - (if (gx#stx-null? _%tl4653147186%_) - (_%__match7873278733%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4645347492%_ - _%hd4645447496%_ - _%tl4645547499%_ - _%e4645647502%_ - _%hd4645747506%_ - _%tl4645847509%_ - _%__splice7856678567%_ - _%target4652947183%_ - _%tl4653147186%_) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (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 _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4643746646%_)))) - (let () (declare (not safe)) (_%g4643746646%_)))) - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ - (gx#syntax-e _%hd4645147486%_))) - (let ((_%tl4661546774%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '1))) - (_%target4661646777%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7857878579%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (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)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4645147486%_) - (let ((_%e4661346767%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ - (let () (declare (not safe)) (##car _%e4661346767%_)))) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7857878579%_ - (gx#syntax-split-splice _%tl4644947479%_ '0))) - (let ((_%tl4661846780%_ + (##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 _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) + (##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)) - (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4645147486%_) - (let ((_%e4661346767%_ + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4645147486%_))) - (let ((_%tl4661546774%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4661346767%_))) - (_%hd4661446771%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4661346767%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644947479%_) - (let ((_%__splice7857878579%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4661846780%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '1))) - (_%target4661646777%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4661846780%_) - (_%__match7886478865%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%e4645047482%_ - _%hd4645147486%_ - _%tl4645247489%_ - _%e4661346767%_ - _%hd4661446771%_ - _%tl4661546774%_ - _%__splice7857878579%_ - _%target4661646777%_ - _%tl4661846780%_) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_))))) + (##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)) - (_%g4643746646%_)))))) - (if (gx#stx-null? _%hd4644847476%_) - (if (gx#stx-pair/null? _%tl4644947479%_) - (let ((_%__splice7858278583%_ + (_%g4640146610%_)))))) + (if (gx#stx-null? _%hd4641247440%_) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934879349%_ (gx#syntax-split-splice - _%tl4644947479%_ + _%tl4641347443%_ '0))) - (let ((_%tl4663446676%_ + (let ((_%tl4659846640%_ (let () (declare (not safe)) (##vector-ref - _%__splice7858278583%_ + _%__splice7934879349%_ '1))) - (_%target4663246673%_ + (_%target4659646637%_ (let () (declare (not safe)) (##vector-ref - _%__splice7858278583%_ + _%__splice7934879349%_ '0)))) (if (gx#stx-null? - _%tl4663446676%_) - (_%__match7888678887%_ - _%e4644447462%_ - _%hd4644547466%_ - _%tl4644647469%_ - _%e4644747472%_ - _%hd4644847476%_ - _%tl4644947479%_ - _%__splice7858278583%_ - _%target4663246673%_ - _%tl4663446676%_) + _%tl4659846640%_) + (_%__match7965279653%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%__splice7934879349%_ + _%target4659646637%_ + _%tl4659846640%_) (let () (declare (not safe)) - (_%g4643746646%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4643746646%_))) + (_%g4640146610%_))) (let () (declare (not safe)) - (_%g4643746646%_)))))) - (let () (declare (not safe)) (_%g4643746646%_))))) - (let () (declare (not safe)) (_%g4643746646%_)))))))) + (_%g4640146610%_)))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))))) (define |gerbil/core/contract~Using[:0:]#with-contract| - (lambda (_%$stx47620%_) - (let* ((_%g4762447658%_ - (lambda (_%g4762547654%_) + (lambda (_%$stx47584%_) + (let* ((_%g4758847622%_ + (lambda (_%g4758947618%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4762547654%_))) - (_%g4762347781%_ - (lambda (_%g4762547662%_) - (if (gx#stx-pair? _%g4762547662%_) - (let ((_%e4762947665%_ (gx#syntax-e _%g4762547662%_))) - (let ((_%hd4763047669%_ + _%g4758947618%_))) + (_%g4758747745%_ + (lambda (_%g4758947626%_) + (if (gx#stx-pair? _%g4758947626%_) + (let ((_%e4759347629%_ (gx#syntax-e _%g4758947626%_))) + (let ((_%hd4759447633%_ (let () (declare (not safe)) - (##car _%e4762947665%_))) - (_%tl4763147672%_ + (##car _%e4759347629%_))) + (_%tl4759547636%_ (let () (declare (not safe)) - (##cdr _%e4762947665%_)))) - (if (gx#stx-pair? _%tl4763147672%_) - (let ((_%e4763247675%_ - (gx#syntax-e _%tl4763147672%_))) - (let ((_%hd4763347679%_ + (##cdr _%e4759347629%_)))) + (if (gx#stx-pair? _%tl4759547636%_) + (let ((_%e4759647639%_ + (gx#syntax-e _%tl4759547636%_))) + (let ((_%hd4759747643%_ (let () (declare (not safe)) - (##car _%e4763247675%_))) - (_%tl4763447682%_ + (##car _%e4759647639%_))) + (_%tl4759847646%_ (let () (declare (not safe)) - (##cdr _%e4763247675%_)))) - (if (gx#stx-pair? _%hd4763347679%_) - (let ((_%e4763547685%_ - (gx#syntax-e _%hd4763347679%_))) - (let ((_%hd4763647689%_ + (##cdr _%e4759647639%_)))) + (if (gx#stx-pair? _%hd4759747643%_) + (let ((_%e4759947649%_ + (gx#syntax-e _%hd4759747643%_))) + (let ((_%hd4760047653%_ (let () (declare (not safe)) - (##car _%e4763547685%_))) - (_%tl4763747692%_ + (##car _%e4759947649%_))) + (_%tl4760147656%_ (let () (declare (not safe)) - (##cdr _%e4763547685%_)))) - (if (gx#stx-pair? _%tl4763747692%_) - (let ((_%e4763847695%_ + (##cdr _%e4759947649%_)))) + (if (gx#stx-pair? _%tl4760147656%_) + (let ((_%e4760247659%_ (gx#syntax-e - _%tl4763747692%_))) - (let ((_%hd4763947699%_ + _%tl4760147656%_))) + (let ((_%hd4760347663%_ (let () (declare (not safe)) - (##car _%e4763847695%_))) - (_%tl4764047702%_ + (##car _%e4760247659%_))) + (_%tl4760447666%_ (let () (declare (not safe)) - (##cdr _%e4763847695%_)))) + (##cdr _%e4760247659%_)))) (if (gx#identifier? - _%hd4763947699%_) + _%hd4760347663%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84129_| - _%hd4763947699%_) + |gerbil/core/contract~Using[1]#_g85005_| + _%hd4760347663%_) (if (gx#stx-pair? - _%tl4764047702%_) - (let ((_%e4764147705%_ + _%tl4760447666%_) + (let ((_%e4760547669%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4764047702%_))) - (let ((_%hd4764247709%_ + (gx#syntax-e _%tl4760447666%_))) + (let ((_%hd4760647673%_ (let () (declare (not safe)) - (##car _%e4764147705%_))) - (_%tl4764347712%_ + (##car _%e4760547669%_))) + (_%tl4760747676%_ (let () (declare (not safe)) - (##cdr _%e4764147705%_)))) - (if (gx#stx-null? _%tl4764347712%_) - (if (gx#stx-pair/null? _%tl4763447682%_) - (let ((_g84130_ + (##cdr _%e4760547669%_)))) + (if (gx#stx-null? _%tl4760747676%_) + (if (gx#stx-pair/null? _%tl4759847646%_) + (let ((_g85006_ (gx#syntax-split-splice - _%tl4763447682%_ + _%tl4759847646%_ '0))) (begin - (let ((_g84131_ + (let ((_g85007_ (let () (declare (not safe)) - (if (##values? _g84130_) - (##values-length _g84130_) + (if (##values? _g85006_) + (##values-length _g85006_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84131_ 2))) + (##fx= _g85007_ 2))) (error "Context expects 2 values" - _g84131_))) - (let ((_%target4764447715%_ + _g85007_))) + (let ((_%target4760847679%_ (let () (declare (not safe)) - (##values-ref _g84130_ 0))) - (_%tl4764647718%_ + (##values-ref _g85006_ 0))) + (_%tl4761047682%_ (let () (declare (not safe)) - (##values-ref _g84130_ 1)))) - (if (gx#stx-null? _%tl4764647718%_) - (letrec ((_%loop4764747721%_ - (lambda (_%hd4764547725%_ - _%body4765147728%_) + (##values-ref _g85006_ 1)))) + (if (gx#stx-null? _%tl4761047682%_) + (letrec ((_%loop4761147685%_ + (lambda (_%hd4760947689%_ + _%body4761547692%_) (if (gx#stx-pair? - _%hd4764547725%_) - (let ((_%e4764847731%_ + _%hd4760947689%_) + (let ((_%e4761247695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4764547725%_))) - (let ((_%lp-hd4764947735%_ + (gx#syntax-e _%hd4760947689%_))) + (let ((_%lp-hd4761347699%_ (let () (declare (not safe)) - (##car _%e4764847731%_))) - (_%lp-tl4765047738%_ + (##car _%e4761247695%_))) + (_%lp-tl4761447702%_ (let () (declare (not safe)) - (##cdr _%e4764847731%_)))) - (_%loop4764747721%_ - _%lp-tl4765047738%_ - (cons _%lp-hd4764947735%_ _%body4765147728%_)))) - (let ((_%body4765247741%_ (reverse _%body4765147728%_))) - ((lambda (_%L47745%_ _%L47747%_ _%L47748%_) - (if (gx#identifier? _%L47748%_) + (##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 _%L47747%_ - (cons _%L47748%_ '())) + (cons (cons _%L47711%_ + (cons _%L47712%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4777247775%_ + (foldr (lambda (_%g4773647739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4777347778%_) - (cons _%g4777247775%_ _%g4777347778%_)) + _%g4773747742%_) + (cons _%g4773647739%_ _%g4773747742%_)) '() - _%L47745%_))) + _%L47709%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'contract-violation!) - (cons _%L47748%_ + (cons _%L47712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47747%_ (cons _%L47748%_ '())))) + (cons _%L47711%_ (cons _%L47712%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%g4762447658%_ _%g4762547662%_))) - _%body4765247741%_ - _%hd4764247709%_ - _%hd4763647689%_)))))) + (_%g4758847622%_ _%g4758947626%_))) + _%body4761647705%_ + _%hd4760647673%_ + _%hd4760047653%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4764747721%_ - _%target4764447715%_ + (_%loop4761147685%_ + _%target4760847679%_ '())) - (_%g4762447658%_ - _%g4762547662%_))))) - (_%g4762447658%_ _%g4762547662%_)) - (_%g4762447658%_ _%g4762547662%_)))) - (_%g4762447658%_ _%g4762547662%_)) - (_%g4762447658%_ _%g4762547662%_)) - (_%g4762447658%_ _%g4762547662%_)))) + (_%g4758847622%_ + _%g4758947626%_))))) + (_%g4758847622%_ _%g4758947626%_)) + (_%g4758847622%_ _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_)) + (_%g4758847622%_ _%g4758947626%_)) + (_%g4758847622%_ _%g4758947626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4762447658%_ - _%g4762547662%_)))) - (_%g4762447658%_ _%g4762547662%_)))) - (_%g4762447658%_ _%g4762547662%_)))) - (_%g4762447658%_ _%g4762547662%_))))) - (_%g4762347781%_ _%$stx47620%_)))) + (_%g4758847622%_ + _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_))))) + (_%g4758747745%_ _%$stx47584%_)))) (define |gerbil/core/contract~Using[1]#!class-slot-type| - (lambda (_%klass48348%_ _%slot48350%_) - (let ((_%$e48352%_ - (let ((__obj83967 _%klass48348%_)) + (lambda (_%klass48312%_ _%slot48314%_) + (let ((_%$e48316%_ + (let ((__obj84826 _%klass48312%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83967 + __obj84826 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83967 '19 '#f '#f)) + (##unchecked-structure-ref __obj84826 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83967 + __obj84826 'slot-types))))) - (if _%$e48352%_ - ((lambda (_%slot-types48356%_) - (agetq _%slot48350%_ _%slot-types48356%_)) - _%$e48352%_) + (if _%$e48316%_ + ((lambda (_%slot-types48320%_) + (agetq _%slot48314%_ _%slot-types48320%_)) + _%$e48316%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%klass48329%_ _%slot48331%_) - (let ((_%$e48333%_ - (let ((__obj83968 _%klass48329%_)) + (lambda (_%klass48293%_ _%slot48295%_) + (let ((_%$e48297%_ + (let ((__obj84827 _%klass48293%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83968 + __obj84827 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83968 '20 '#f '#f)) + (##unchecked-structure-ref __obj84827 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83968 + __obj84827 'slot-defaults))))) - (if _%$e48333%_ - ((lambda (_%slot-defaults48337%_) - (let ((_%$e48340%_ - (agetq _%slot48331%_ _%slot-defaults48337%_))) - (if _%$e48340%_ - (gx#syntax-local-introduce _%$e48340%_) + (if _%$e48297%_ + ((lambda (_%slot-defaults48301%_) + (let ((_%$e48304%_ + (agetq _%slot48295%_ _%slot-defaults48301%_))) + (if _%$e48304%_ + (gx#syntax-local-introduce _%$e48304%_) '#f))) - _%$e48333%_) + _%$e48297%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%klass48310%_ _%slot48312%_) - (let ((_%$e48314%_ - (let ((__obj83969 _%klass48310%_)) + (lambda (_%klass48274%_ _%slot48276%_) + (let ((_%$e48278%_ + (let ((__obj84828 _%klass48274%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83969 + __obj84828 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83969 '20 '#f '#f)) + (##unchecked-structure-ref __obj84828 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83969 + __obj84828 'slot-defaults))))) - (if _%$e48314%_ - ((lambda (_%slot-defaults48318%_) - (let ((_%$e48321%_ - (agetq _%slot48312%_ _%slot-defaults48318%_))) - (if _%$e48321%_ - (gx#syntax-local-introduce _%$e48321%_) + (if _%$e48278%_ + ((lambda (_%slot-defaults48282%_) + (let ((_%$e48285%_ + (agetq _%slot48276%_ _%slot-defaults48282%_))) + (if _%$e48285%_ + (gx#syntax-local-introduce _%$e48285%_) '#f))) - _%$e48314%_) + _%$e48278%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - (lambda (_%klass48078%_ _%slot48080%_) - (let ((_%contract4808148083%_ + (lambda (_%klass48042%_ _%slot48044%_) + (let ((_%contract4804548047%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass48078%_ - _%slot48080%_))) - (if _%contract4808148083%_ - (let* ((_%contract48087%_ _%contract4808148083%_) - (_%__stx7888978890%_ _%contract48087%_) - (_%g4809248129%_ + _%klass48042%_ + _%slot48044%_))) + (if _%contract4804548047%_ + (let* ((_%contract48051%_ _%contract4804548047%_) + (_%__stx7965579656%_ _%contract48051%_) + (_%g4805648093%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7888978890%_)))) - (let ((_%__kont7889278893%_ - (lambda (_%L48279%_ _%L48281%_) + _%__stx7965579656%_)))) + (let ((_%__kont7965879659%_ + (lambda (_%L48243%_ _%L48245%_) (not (gx#free-identifier=? - _%L48281%_ + _%L48245%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7889478895%_ - (lambda (_%L48219%_ _%L48221%_ _%L48222%_) + (_%__kont7966079661%_ + (lambda (_%L48183%_ _%L48185%_ _%L48186%_) (not (gx#free-identifier=? - _%L48221%_ + _%L48185%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7889678897%_ (lambda (_%L48156%_) '#f))) - (let* ((_%__match7894278943%_ - (lambda (_%e4810548179%_ - _%hd4810648183%_ - _%tl4810748186%_ - _%e4810848189%_ - _%hd4810948193%_ - _%tl4811048196%_ - _%e4811148199%_ - _%hd4811248203%_ - _%tl4811348206%_ - _%e4811448209%_ - _%hd4811548213%_ - _%tl4811648216%_) - (let ((_%L48219%_ _%hd4811548213%_) - (_%L48221%_ _%hd4811248203%_) - (_%L48222%_ _%hd4810948193%_)) - (if (and (gx#identifier? _%L48221%_) + (_%__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=? - _%L48221%_ + _%L48185%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48221%_ + _%L48185%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48221%_ + _%L48185%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48221%_ + _%L48185%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7889478895%_ - _%L48219%_ - _%L48221%_ - _%L48222%_) + (_%__kont7966079661%_ + _%L48183%_ + _%L48185%_ + _%L48186%_) (let () (declare (not safe)) - (_%g4809248129%_)))))) - (_%__match7891278913%_ - (lambda (_%e4809648259%_ - _%hd4809748263%_ - _%tl4809848266%_ - _%e4809948269%_ - _%hd4810048273%_ - _%tl4810148276%_) - (let ((_%L48279%_ _%hd4810048273%_) - (_%L48281%_ _%hd4809748263%_)) - (if (and (gx#identifier? _%L48281%_) + (_%g4805648093%_)))))) + (_%__match7967879679%_ + (lambda (_%e4806048223%_ + _%hd4806148227%_ + _%tl4806248230%_ + _%e4806348233%_ + _%hd4806448237%_ + _%tl4806548240%_) + (let ((_%L48243%_ _%hd4806448237%_) + (_%L48245%_ _%hd4806148227%_)) + (if (and (gx#identifier? _%L48245%_) (or (gx#free-identifier=? - _%L48281%_ + _%L48245%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48281%_ + _%L48245%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48281%_ + _%L48245%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48281%_ + _%L48245%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7889278893%_ _%L48279%_ _%L48281%_) - (if (gx#identifier? _%hd4809748263%_) + (_%__kont7965879659%_ _%L48243%_ _%L48245%_) + (if (gx#identifier? _%hd4806148227%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84132_| - _%hd4809748263%_) - (_%__kont7889678897%_ - _%hd4810048273%_) + |gerbil/core/contract~Using[1]#_g85008_| + _%hd4806148227%_) + (_%__kont7966279663%_ + _%hd4806448237%_) (let () (declare (not safe)) - (_%g4809248129%_))) + (_%g4805648093%_))) (let () (declare (not safe)) - (_%g4809248129%_)))))))) - (if (gx#stx-pair? _%__stx7888978890%_) - (let ((_%e4809648259%_ - (gx#syntax-e _%__stx7888978890%_))) - (let ((_%tl4809848266%_ + (_%g4805648093%_)))))))) + (if (gx#stx-pair? _%__stx7965579656%_) + (let ((_%e4806048223%_ + (gx#syntax-e _%__stx7965579656%_))) + (let ((_%tl4806248230%_ (let () (declare (not safe)) - (##cdr _%e4809648259%_))) - (_%hd4809748263%_ + (##cdr _%e4806048223%_))) + (_%hd4806148227%_ (let () (declare (not safe)) - (##car _%e4809648259%_)))) - (if (gx#stx-pair? _%tl4809848266%_) - (let ((_%e4809948269%_ - (gx#syntax-e _%tl4809848266%_))) - (let ((_%tl4810148276%_ + (##car _%e4806048223%_)))) + (if (gx#stx-pair? _%tl4806248230%_) + (let ((_%e4806348233%_ + (gx#syntax-e _%tl4806248230%_))) + (let ((_%tl4806548240%_ (let () (declare (not safe)) - (##cdr _%e4809948269%_))) - (_%hd4810048273%_ + (##cdr _%e4806348233%_))) + (_%hd4806448237%_ (let () (declare (not safe)) - (##car _%e4809948269%_)))) - (if (gx#stx-null? _%tl4810148276%_) - (_%__match7891278913%_ - _%e4809648259%_ - _%hd4809748263%_ - _%tl4809848266%_ - _%e4809948269%_ - _%hd4810048273%_ - _%tl4810148276%_) - (if (gx#identifier? _%hd4809748263%_) + (##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]#_g84132_| - _%hd4809748263%_) + |gerbil/core/contract~Using[1]#_g85008_| + _%hd4806148227%_) (if (gx#stx-pair? - _%tl4810148276%_) - (let ((_%e4811148199%_ + _%tl4806548240%_) + (let ((_%e4807548163%_ (gx#syntax-e - _%tl4810148276%_))) - (let ((_%tl4811348206%_ + _%tl4806548240%_))) + (let ((_%tl4807748170%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4811148199%_))) - (_%hd4811248203%_ - (let () (declare (not safe)) (##car _%e4811148199%_)))) - (if (gx#stx-pair? _%tl4811348206%_) - (let ((_%e4811448209%_ (gx#syntax-e _%tl4811348206%_))) - (let ((_%tl4811648216%_ + (##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 _%e4811448209%_))) - (_%hd4811548213%_ + (##cdr _%e4807848173%_))) + (_%hd4807948177%_ (let () (declare (not safe)) - (##car _%e4811448209%_)))) - (if (gx#stx-null? _%tl4811648216%_) - (_%__match7894278943%_ - _%e4809648259%_ - _%hd4809748263%_ - _%tl4809848266%_ - _%e4809948269%_ - _%hd4810048273%_ - _%tl4810148276%_ - _%e4811148199%_ - _%hd4811248203%_ - _%tl4811348206%_ - _%e4811448209%_ - _%hd4811548213%_ - _%tl4811648216%_) - (let () (declare (not safe)) (_%g4809248129%_))))) - (let () (declare (not safe)) (_%g4809248129%_))))) + (##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)) - (_%g4809248129%_))) + (_%g4805648093%_))) (let () (declare (not safe)) - (_%g4809248129%_))) + (_%g4805648093%_))) (let () (declare (not safe)) - (_%g4809248129%_)))))) + (_%g4805648093%_)))))) (let () (declare (not safe)) - (_%g4809248129%_))))) - (let () (declare (not safe)) (_%g4809248129%_)))))) + (_%g4805648093%_))))) + (let () (declare (not safe)) (_%g4805648093%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - (lambda (_%klass47846%_ _%slot47848%_) - (let ((_%contract4784947851%_ + (lambda (_%klass47810%_ _%slot47812%_) + (let ((_%contract4781347815%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass47846%_ - _%slot47848%_))) - (if _%contract4784947851%_ - (let* ((_%contract47855%_ _%contract4784947851%_) - (_%__stx7896378964%_ _%contract47855%_) - (_%g4786047897%_ + _%klass47810%_ + _%slot47812%_))) + (if _%contract4781347815%_ + (let* ((_%contract47819%_ _%contract4781347815%_) + (_%__stx7972979730%_ _%contract47819%_) + (_%g4782447861%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7896378964%_)))) - (let ((_%__kont7896678967%_ - (lambda (_%L48047%_ _%L48049%_) + _%__stx7972979730%_)))) + (let ((_%__kont7973279733%_ + (lambda (_%L48011%_ _%L48013%_) (not (gx#free-identifier=? - _%L48049%_ + _%L48013%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7896878969%_ - (lambda (_%L47987%_ _%L47989%_ _%L47990%_) '#t)) - (_%__kont7897078971%_ (lambda (_%L47924%_) '#t))) - (let* ((_%__match7901679017%_ - (lambda (_%e4787347947%_ - _%hd4787447951%_ - _%tl4787547954%_ - _%e4787647957%_ - _%hd4787747961%_ - _%tl4787847964%_ - _%e4787947967%_ - _%hd4788047971%_ - _%tl4788147974%_ - _%e4788247977%_ - _%hd4788347981%_ - _%tl4788447984%_) - (let ((_%L47987%_ _%hd4788347981%_) - (_%L47989%_ _%hd4788047971%_) - (_%L47990%_ _%hd4787747961%_)) - (if (and (gx#identifier? _%L47989%_) + (_%__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=? - _%L47989%_ + _%L47953%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47989%_ + _%L47953%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47989%_ + _%L47953%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47989%_ + _%L47953%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7896878969%_ - _%L47987%_ - _%L47989%_ - _%L47990%_) + (_%__kont7973479735%_ + _%L47951%_ + _%L47953%_ + _%L47954%_) (let () (declare (not safe)) - (_%g4786047897%_)))))) - (_%__match7898678987%_ - (lambda (_%e4786448027%_ - _%hd4786548031%_ - _%tl4786648034%_ - _%e4786748037%_ - _%hd4786848041%_ - _%tl4786948044%_) - (let ((_%L48047%_ _%hd4786848041%_) - (_%L48049%_ _%hd4786548031%_)) - (if (and (gx#identifier? _%L48049%_) + (_%g4782447861%_)))))) + (_%__match7975279753%_ + (lambda (_%e4782847991%_ + _%hd4782947995%_ + _%tl4783047998%_ + _%e4783148001%_ + _%hd4783248005%_ + _%tl4783348008%_) + (let ((_%L48011%_ _%hd4783248005%_) + (_%L48013%_ _%hd4782947995%_)) + (if (and (gx#identifier? _%L48013%_) (or (gx#free-identifier=? - _%L48049%_ + _%L48013%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48049%_ + _%L48013%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48049%_ + _%L48013%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48049%_ + _%L48013%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7896678967%_ _%L48047%_ _%L48049%_) - (if (gx#identifier? _%hd4786548031%_) + (_%__kont7973279733%_ _%L48011%_ _%L48013%_) + (if (gx#identifier? _%hd4782947995%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84133_| - _%hd4786548031%_) - (_%__kont7897078971%_ - _%hd4786848041%_) + |gerbil/core/contract~Using[1]#_g85009_| + _%hd4782947995%_) + (_%__kont7973679737%_ + _%hd4783248005%_) (let () (declare (not safe)) - (_%g4786047897%_))) + (_%g4782447861%_))) (let () (declare (not safe)) - (_%g4786047897%_)))))))) - (if (gx#stx-pair? _%__stx7896378964%_) - (let ((_%e4786448027%_ - (gx#syntax-e _%__stx7896378964%_))) - (let ((_%tl4786648034%_ + (_%g4782447861%_)))))))) + (if (gx#stx-pair? _%__stx7972979730%_) + (let ((_%e4782847991%_ + (gx#syntax-e _%__stx7972979730%_))) + (let ((_%tl4783047998%_ (let () (declare (not safe)) - (##cdr _%e4786448027%_))) - (_%hd4786548031%_ + (##cdr _%e4782847991%_))) + (_%hd4782947995%_ (let () (declare (not safe)) - (##car _%e4786448027%_)))) - (if (gx#stx-pair? _%tl4786648034%_) - (let ((_%e4786748037%_ - (gx#syntax-e _%tl4786648034%_))) - (let ((_%tl4786948044%_ + (##car _%e4782847991%_)))) + (if (gx#stx-pair? _%tl4783047998%_) + (let ((_%e4783148001%_ + (gx#syntax-e _%tl4783047998%_))) + (let ((_%tl4783348008%_ (let () (declare (not safe)) - (##cdr _%e4786748037%_))) - (_%hd4786848041%_ + (##cdr _%e4783148001%_))) + (_%hd4783248005%_ (let () (declare (not safe)) - (##car _%e4786748037%_)))) - (if (gx#stx-null? _%tl4786948044%_) - (_%__match7898678987%_ - _%e4786448027%_ - _%hd4786548031%_ - _%tl4786648034%_ - _%e4786748037%_ - _%hd4786848041%_ - _%tl4786948044%_) - (if (gx#identifier? _%hd4786548031%_) + (##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]#_g84133_| - _%hd4786548031%_) + |gerbil/core/contract~Using[1]#_g85009_| + _%hd4782947995%_) (if (gx#stx-pair? - _%tl4786948044%_) - (let ((_%e4787947967%_ + _%tl4783348008%_) + (let ((_%e4784347931%_ (gx#syntax-e - _%tl4786948044%_))) - (let ((_%tl4788147974%_ + _%tl4783348008%_))) + (let ((_%tl4784547938%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4787947967%_))) - (_%hd4788047971%_ - (let () (declare (not safe)) (##car _%e4787947967%_)))) - (if (gx#stx-pair? _%tl4788147974%_) - (let ((_%e4788247977%_ (gx#syntax-e _%tl4788147974%_))) - (let ((_%tl4788447984%_ + (##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 _%e4788247977%_))) - (_%hd4788347981%_ + (##cdr _%e4784647941%_))) + (_%hd4784747945%_ (let () (declare (not safe)) - (##car _%e4788247977%_)))) - (if (gx#stx-null? _%tl4788447984%_) - (_%__match7901679017%_ - _%e4786448027%_ - _%hd4786548031%_ - _%tl4786648034%_ - _%e4786748037%_ - _%hd4786848041%_ - _%tl4786948044%_ - _%e4787947967%_ - _%hd4788047971%_ - _%tl4788147974%_ - _%e4788247977%_ - _%hd4788347981%_ - _%tl4788447984%_) - (let () (declare (not safe)) (_%g4786047897%_))))) - (let () (declare (not safe)) (_%g4786047897%_))))) + (##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)) - (_%g4786047897%_))) + (_%g4782447861%_))) (let () (declare (not safe)) - (_%g4786047897%_))) + (_%g4782447861%_))) (let () (declare (not safe)) - (_%g4786047897%_)))))) + (_%g4782447861%_)))))) (let () (declare (not safe)) - (_%g4786047897%_))))) - (let () (declare (not safe)) (_%g4786047897%_)))))) + (_%g4782447861%_))))) + (let () (declare (not safe)) (_%g4782447861%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#dotted-identifier?| - (lambda (_%id47832%_) - (if (gx#identifier? _%id47832%_) - (let* ((_%str47835%_ (symbol->string (gx#stx-e _%id47832%_))) - (_%index4783747839%_ (string-index _%str47835%_ '#\.))) - (if _%index4783747839%_ - (let ((_%index47843%_ _%index4783747839%_)) - (if (let () (declare (not safe)) (##fx> _%index47843%_ '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 _%str47835%_ '#\.))) + (string-split _%str47799%_ '#\.))) '#f)) '#f)) '#f))) (define |gerbil/core/contract~Using[1]#split-dotted-identifier| - (lambda (_%stx47825%_ _%id47827%_) - (let ((_%parts47829%_ - (string-split (symbol->string (gx#stx-e _%id47827%_)) '#\.))) - (if (find string-empty? _%parts47829%_) + (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" - _%stx47825%_ - _%id47827%_) - (cons (gx#stx-identifier _%id47827%_ (car _%parts47829%_)) - (map string->symbol (cdr _%parts47829%_))))))) + _%stx47789%_ + _%id47791%_) + (cons (gx#stx-identifier _%id47791%_ (car _%parts47793%_)) + (map string->symbol (cdr _%parts47793%_))))))) (define |gerbil/core/contract~Using[1]#get-slot-accessor| - (lambda (_%stx47806%_ _%klass-or-id47808%_ _%slot47809%_) - (let* ((_%klass47811%_ - (if (gx#identifier? _%klass-or-id47808%_) + (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| - _%stx47806%_ - _%klass-or-id47808%_)) - _%klass-or-id47808%_)) - (_%accessors47814%_ - (let ((__obj83970 _%klass47811%_)) + _%stx47770%_ + _%klass-or-id47772%_)) + _%klass-or-id47772%_)) + (_%accessors47778%_ + (let ((__obj84829 _%klass47775%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83970 + __obj84829 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83970 '17 '#f '#f)) + (##unchecked-structure-ref __obj84829 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83970 + __obj84829 'unchecked-accessors)))) - (_%$e47819%_ (agetq _%slot47809%_ _%accessors47814%_))) - (if _%$e47819%_ - _%$e47819%_ + (_%$e47783%_ (agetq _%slot47773%_ _%accessors47778%_))) + (if _%$e47783%_ + _%$e47783%_ (gx#raise-syntax-error '#f '"no accessor for slot" - _%stx47806%_ - _%klass47811%_ - _%slot47809%_))))) + _%stx47770%_ + _%klass47775%_ + _%slot47773%_))))) (define |gerbil/core/contract~Using[1]#get-slot-mutator| - (lambda (_%stx47786%_ - _%klass-or-id47788%_ - _%slot47789%_ - _%checked?47790%_) - (let* ((_%klass47792%_ - (if (gx#identifier? _%klass-or-id47788%_) + (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| - _%stx47786%_ - _%klass-or-id47788%_)) - _%klass-or-id47788%_)) - (_%mutators47795%_ - (if _%checked?47790%_ - (let ((__obj83971 _%klass47792%_)) + _%stx47750%_ + _%klass-or-id47752%_)) + _%klass-or-id47752%_)) + (_%mutators47759%_ + (if _%checked?47754%_ + (let ((__obj84830 _%klass47756%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83971 + __obj84830 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83971 '16 '#f '#f)) + (##unchecked-structure-ref __obj84830 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83971 + __obj84830 'mutators))) - (let ((__obj83972 _%klass47792%_)) + (let ((__obj84831 _%klass47756%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83972 + __obj84831 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83972 '18 '#f '#f)) + (##unchecked-structure-ref __obj84831 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83972 + __obj84831 'unchecked-mutators))))) - (_%$e47800%_ (agetq _%slot47789%_ _%mutators47795%_))) - (if _%$e47800%_ - _%$e47800%_ + (_%$e47764%_ (agetq _%slot47753%_ _%mutators47759%_))) + (if _%$e47764%_ + _%$e47764%_ (gx#raise-syntax-error '#f '"no mutator for slot" - _%stx47786%_ - _%klass47792%_ - _%slot47789%_))))) + _%stx47750%_ + _%klass47756%_ + _%slot47753%_))))) (define |gerbil/core/contract~Using[:0:]#with-class| - (lambda (_%stx48361%_) - (letrec ((_%expand-body48364%_ - (lambda (_%klass49272%_ - _%var49274%_ - _%Type49275%_ - _%body49276%_ - _%checked?49277%_) - (let* ((_%g4927949323%_ - (lambda (_%g4928049319%_) + (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" - _%g4928049319%_))) - (_%g4927849480%_ - (lambda (_%g4928049327%_) - (if (gx#stx-pair? _%g4928049327%_) - (let ((_%e4928849330%_ - (gx#syntax-e _%g4928049327%_))) - (let ((_%hd4928949334%_ + _%g4924449283%_))) + (_%g4924249444%_ + (lambda (_%g4924449291%_) + (if (gx#stx-pair? _%g4924449291%_) + (let ((_%e4925249294%_ + (gx#syntax-e _%g4924449291%_))) + (let ((_%hd4925349298%_ (let () (declare (not safe)) - (##car _%e4928849330%_))) - (_%tl4929049337%_ + (##car _%e4925249294%_))) + (_%tl4925449301%_ (let () (declare (not safe)) - (##cdr _%e4928849330%_)))) - (if (gx#stx-pair? _%tl4929049337%_) - (let ((_%e4929149340%_ + (##cdr _%e4925249294%_)))) + (if (gx#stx-pair? _%tl4925449301%_) + (let ((_%e4925549304%_ (gx#syntax-e - _%tl4929049337%_))) - (let ((_%hd4929249344%_ + _%tl4925449301%_))) + (let ((_%hd4925649308%_ (let () (declare (not safe)) - (##car _%e4929149340%_))) - (_%tl4929349347%_ + (##car _%e4925549304%_))) + (_%tl4925749311%_ (let () (declare (not safe)) - (##cdr _%e4929149340%_)))) + (##cdr _%e4925549304%_)))) (if (gx#stx-pair? - _%tl4929349347%_) - (let ((_%e4929449350%_ + _%tl4925749311%_) + (let ((_%e4925849314%_ (gx#syntax-e - _%tl4929349347%_))) - (let ((_%hd4929549354%_ + _%tl4925749311%_))) + (let ((_%hd4925949318%_ (let () (declare (not safe)) - (##car _%e4929449350%_))) - (_%tl4929649357%_ + (##car _%e4925849314%_))) + (_%tl4926049321%_ (let () (declare (not safe)) - (##cdr _%e4929449350%_)))) + (##cdr _%e4925849314%_)))) (if (gx#stx-pair? - _%tl4929649357%_) - (let ((_%e4929749360%_ + _%tl4926049321%_) + (let ((_%e4926149324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4929649357%_))) - (let ((_%hd4929849364%_ + (gx#syntax-e _%tl4926049321%_))) + (let ((_%hd4926249328%_ (let () (declare (not safe)) - (##car _%e4929749360%_))) - (_%tl4929949367%_ + (##car _%e4926149324%_))) + (_%tl4926349331%_ (let () (declare (not safe)) - (##cdr _%e4929749360%_)))) - (if (gx#stx-pair? _%tl4929949367%_) - (let ((_%e4930049370%_ - (gx#syntax-e _%tl4929949367%_))) - (let ((_%hd4930149374%_ + (##cdr _%e4926149324%_)))) + (if (gx#stx-pair? _%tl4926349331%_) + (let ((_%e4926449334%_ + (gx#syntax-e _%tl4926349331%_))) + (let ((_%hd4926549338%_ (let () (declare (not safe)) - (##car _%e4930049370%_))) - (_%tl4930249377%_ + (##car _%e4926449334%_))) + (_%tl4926649341%_ (let () (declare (not safe)) - (##cdr _%e4930049370%_)))) - (if (gx#stx-pair? _%tl4930249377%_) - (let ((_%e4930349380%_ - (gx#syntax-e _%tl4930249377%_))) - (let ((_%hd4930449384%_ + (##cdr _%e4926449334%_)))) + (if (gx#stx-pair? _%tl4926649341%_) + (let ((_%e4926749344%_ + (gx#syntax-e _%tl4926649341%_))) + (let ((_%hd4926849348%_ (let () (declare (not safe)) - (##car _%e4930349380%_))) - (_%tl4930549387%_ + (##car _%e4926749344%_))) + (_%tl4926949351%_ (let () (declare (not safe)) - (##cdr _%e4930349380%_)))) - (if (gx#stx-pair? _%tl4930549387%_) - (let ((_%e4930649390%_ + (##cdr _%e4926749344%_)))) + (if (gx#stx-pair? _%tl4926949351%_) + (let ((_%e4927049354%_ (gx#syntax-e - _%tl4930549387%_))) - (let ((_%hd4930749394%_ + _%tl4926949351%_))) + (let ((_%hd4927149358%_ (let () (declare (not safe)) - (##car _%e4930649390%_))) - (_%tl4930849397%_ + (##car _%e4927049354%_))) + (_%tl4927249361%_ (let () (declare (not safe)) - (##cdr _%e4930649390%_)))) + (##cdr _%e4927049354%_)))) (if (gx#stx-pair/null? - _%hd4930749394%_) - (let ((_g84134_ + _%hd4927149358%_) + (let ((_g85010_ (gx#syntax-split-splice - _%hd4930749394%_ + _%hd4927149358%_ '0))) (begin - (let ((_g84135_ + (let ((_g85011_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84134_) - (##values-length _g84134_) + (if (##values? _g85010_) + (##values-length _g85010_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84135_ 2))) - (error "Context expects 2 values" _g84135_))) - (let ((_%target4930949400%_ - (let () (declare (not safe)) (##values-ref _g84134_ 0))) - (_%tl4931149403%_ - (let () (declare (not safe)) (##values-ref _g84134_ 1)))) - (if (gx#stx-null? _%tl4931149403%_) - (letrec ((_%loop4931249406%_ - (lambda (_%hd4931049410%_ _%body4931649413%_) - (if (gx#stx-pair? _%hd4931049410%_) - (let ((_%e4931349416%_ - (gx#syntax-e _%hd4931049410%_))) - (let ((_%lp-hd4931449420%_ + (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 _%e4931349416%_))) - (_%lp-tl4931549423%_ + (##car _%e4927749380%_))) + (_%lp-tl4927949387%_ (let () (declare (not safe)) - (##cdr _%e4931349416%_)))) - (_%loop4931249406%_ - _%lp-tl4931549423%_ - (cons _%lp-hd4931449420%_ - _%body4931649413%_)))) - (let ((_%body4931749426%_ - (reverse _%body4931649413%_))) - (if (gx#stx-null? _%tl4930849397%_) - ((lambda (_%L49430%_ - _%L49432%_ - _%L49433%_ - _%L49434%_ - _%L49435%_ - _%L49436%_ - _%L49437%_) + (##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 _%L49435%_ + (cons (cons _%L49399%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49436%_ '())) - (cons _%L49435%_ '()))) + (cons _%L49400%_ '())) + (cons _%L49399%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L49437%_ + (cons (cons (cons _%L49401%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -5048,1101 +5048,1101 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L49435%_ '())) + (cons _%L49399%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49434%_ '())) - (cons _%L49433%_ + (cons _%L49398%_ '())) + (cons _%L49397%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49432%_ '())) + (cons _%L49396%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4947149474%_ + (foldr (lambda (_%g4943549438%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4947249477%_) - (cons _%g4947149474%_ _%g4947249477%_)) + _%g4943649441%_) + (cons _%g4943549438%_ _%g4943649441%_)) '() - _%L49430%_))) + _%L49394%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body4931749426%_ - _%hd4930449384%_ - _%hd4930149374%_ - _%hd4929849364%_ - _%hd4929549354%_ - _%hd4929249344%_ - _%hd4928949334%_) - (_%g4927949323%_ - _%g4928049327%_))))))) - (_%loop4931249406%_ _%target4930949400%_ '())) - (_%g4927949323%_ _%g4928049327%_))))) + _%body4928149390%_ + _%hd4926849348%_ + _%hd4926549338%_ + _%hd4926249328%_ + _%hd4925949318%_ + _%hd4925649308%_ + _%hd4925349298%_) + (_%g4924349287%_ + _%g4924449291%_))))))) + (_%loop4927649370%_ _%target4927349364%_ '())) + (_%g4924349287%_ _%g4924449291%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4927949323%_ - _%g4928049327%_)))) - (_%g4927949323%_ _%g4928049327%_)))) - (_%g4927949323%_ _%g4928049327%_)))) - (_%g4927949323%_ _%g4928049327%_)))) - (_%g4927949323%_ _%g4928049327%_)))) + (_%g4924349287%_ + _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4927949323%_ - _%g4928049327%_)))) - (_%g4927949323%_ _%g4928049327%_)))) - (_%g4927949323%_ _%g4928049327%_))))) - (_%g4927849480%_ + (_%g4924349287%_ + _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_))))) + (_%g4924249444%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj83973 _%klass49272%_)) + (let ((__obj84832 _%klass49236%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83973 + __obj84832 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83973 + __obj84832 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83973 + __obj84832 'type-descriptor))) - _%var49274%_ - _%klass49272%_ - _%checked?49277%_ + _%var49238%_ + _%klass49236%_ + _%checked?49241%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body49276%_))))) - (_%expand48366%_ - (lambda (_%var49164%_ - _%Type49166%_ - _%body49167%_ - _%checked?49168%_ - _%checked-mutators?49169%_ - _%maybe?49170%_) - (let* ((_%klass49172%_ - (gx#syntax-local-value _%Type49166%_ false)) - (_%expr-body49179%_ - (_%expand-body48364%_ - _%klass49172%_ - _%var49164%_ - _%Type49166%_ - _%body49167%_ - (let ((_%$e49175%_ _%checked?49168%_)) - (if _%$e49175%_ - _%$e49175%_ - _%checked-mutators?49169%_))))) - (if _%checked?49168%_ - (let* ((_%g4918449203%_ - (lambda (_%g4918549199%_) + _%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" - _%g4918549199%_))) - (_%g4918349265%_ - (lambda (_%g4918549207%_) - (if (gx#stx-pair? _%g4918549207%_) - (let ((_%e4918949210%_ - (gx#syntax-e _%g4918549207%_))) - (let ((_%hd4919049214%_ + _%g4914949163%_))) + (_%g4914749229%_ + (lambda (_%g4914949171%_) + (if (gx#stx-pair? _%g4914949171%_) + (let ((_%e4915349174%_ + (gx#syntax-e _%g4914949171%_))) + (let ((_%hd4915449178%_ (let () (declare (not safe)) - (##car _%e4918949210%_))) - (_%tl4919149217%_ + (##car _%e4915349174%_))) + (_%tl4915549181%_ (let () (declare (not safe)) - (##cdr _%e4918949210%_)))) - (if (gx#stx-pair? _%tl4919149217%_) - (let ((_%e4919249220%_ + (##cdr _%e4915349174%_)))) + (if (gx#stx-pair? _%tl4915549181%_) + (let ((_%e4915649184%_ (gx#syntax-e - _%tl4919149217%_))) - (let ((_%hd4919349224%_ + _%tl4915549181%_))) + (let ((_%hd4915749188%_ (let () (declare (not safe)) - (##car _%e4919249220%_))) - (_%tl4919449227%_ + (##car _%e4915649184%_))) + (_%tl4915849191%_ (let () (declare (not safe)) - (##cdr _%e4919249220%_)))) + (##cdr _%e4915649184%_)))) (if (gx#stx-pair? - _%tl4919449227%_) - (let ((_%e4919549230%_ + _%tl4915849191%_) + (let ((_%e4915949194%_ (gx#syntax-e - _%tl4919449227%_))) - (let ((_%hd4919649234%_ + _%tl4915849191%_))) + (let ((_%hd4916049198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4919549230%_))) - (_%tl4919749237%_ + (let () (declare (not safe)) (##car _%e4915949194%_))) + (_%tl4916149201%_ (let () (declare (not safe)) - (##cdr _%e4919549230%_)))) - (if (gx#stx-null? _%tl4919749237%_) - ((lambda (_%L49240%_ _%L49242%_ _%L49243%_) + (##cdr _%e4915949194%_)))) + (if (gx#stx-null? _%tl4916149201%_) + ((lambda (_%L49204%_ _%L49206%_ _%L49207%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L49242%_ + (cons (cons _%L49206%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L49243%_ '()))) - (cons _%L49240%_ '())))) - _%hd4919649234%_ - _%hd4919349224%_ - _%hd4919049214%_) - (_%g4918449203%_ _%g4918549207%_)))) - (_%g4918449203%_ _%g4918549207%_)))) + (cons _%L49207%_ '()))) + (cons _%L49204%_ '())))) + _%hd4916049198%_ + _%hd4915749188%_ + _%hd4915449178%_) + (_%g4914849167%_ _%g4914949171%_)))) + (_%g4914849167%_ _%g4914949171%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4918449203%_ - _%g4918549207%_)))) - (_%g4918449203%_ _%g4918549207%_))))) - (_%g4918349265%_ - (list (let ((_%instance?49269%_ - (let ((__obj83974 _%klass49172%_)) + (_%g4914849167%_ + _%g4914949171%_)))) + (_%g4914849167%_ _%g4914949171%_))))) + (_%g4914749229%_ + (list (let ((_%instance?49233%_ + (let ((__obj84833 _%klass49136%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83974 + __obj84833 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83974 + __obj84833 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83974 + __obj84833 'predicate))))) - (if _%maybe?49170%_ + (if _%maybe?49134%_ (cons '? (cons (cons 'or (cons 'not ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%instance?49269%_ '()))) + (cons _%instance?49233%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - _%instance?49269%_)) - _%var49164%_ - _%expr-body49179%_))) - _%expr-body49179%_))))) - (let* ((_%__stx7903779038%_ _%stx48361%_) - (_%g4837248515%_ + _%instance?49233%_)) + _%var49128%_ + _%expr-body49143%_))) + _%expr-body49143%_))))) + (let* ((_%__stx7980379804%_ _%stx48325%_) + (_%g4833648479%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7903779038%_)))) - (let ((_%__kont7904079041%_ - (lambda (_%L49092%_ _%L49094%_ _%L49095%_ _%L49096%_) - (let* ((_%g4912149129%_ - (lambda (_%g4912249125%_) + _%__stx7980379804%_)))) + (let ((_%__kont7980679807%_ + (lambda (_%L49056%_ _%L49058%_ _%L49059%_ _%L49060%_) + (let* ((_%g4908549093%_ + (lambda (_%g4908649089%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4912249125%_))) - (_%g4912049156%_ - (lambda (_%g4912249133%_) - ((lambda (_%L49136%_) + _%g4908649089%_))) + (_%g4908449120%_ + (lambda (_%g4908649097%_) + ((lambda (_%L49100%_) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L49096%_ - (cons _%L49095%_ - (cons _%L49136%_ + (cons (cons _%L49060%_ + (cons _%L49059%_ + (cons _%L49100%_ '()))) - (foldr (lambda (_%g4914749150%_ - _%g4914849153%_) - (cons _%g4914749150%_ - _%g4914849153%_)) + (foldr (lambda (_%g4911149114%_ + _%g4911249117%_) + (cons _%g4911149114%_ + _%g4911249117%_)) '() - _%L49092%_)))) - _%g4912249133%_)))) - (_%g4912049156%_ - (let ((__obj83975 (gx#syntax-local-value _%L49094%_))) + _%L49056%_)))) + _%g4908649097%_)))) + (_%g4908449120%_ + (let ((__obj84834 (gx#syntax-local-value _%L49058%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83975 + __obj84834 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83975 + __obj84834 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83975 + __obj84834 'identifier))))))) - (_%__kont7904479045%_ - (lambda (_%L48970%_ _%L48972%_ _%L48973%_) - (_%expand48366%_ - _%L48973%_ - _%L48972%_ - (foldr (lambda (_%g4899648999%_ _%g4899749002%_) - (cons _%g4899648999%_ _%g4899749002%_)) + (_%__kont7981079811%_ + (lambda (_%L48934%_ _%L48936%_ _%L48937%_) + (_%expand48330%_ + _%L48937%_ + _%L48936%_ + (foldr (lambda (_%g4896048963%_ _%g4896148966%_) + (cons _%g4896048963%_ _%g4896148966%_)) '() - _%L48970%_) + _%L48934%_) '#t '#t '#f))) - (_%__kont7904879049%_ - (lambda (_%L48848%_ _%L48850%_ _%L48851%_) - (_%expand48366%_ - _%L48851%_ - _%L48850%_ - (foldr (lambda (_%g4887448877%_ _%g4887548880%_) - (cons _%g4887448877%_ _%g4887548880%_)) + (_%__kont7981479815%_ + (lambda (_%L48812%_ _%L48814%_ _%L48815%_) + (_%expand48330%_ + _%L48815%_ + _%L48814%_ + (foldr (lambda (_%g4883848841%_ _%g4883948844%_) + (cons _%g4883848841%_ _%g4883948844%_)) '() - _%L48848%_) + _%L48812%_) '#t '#t '#t))) - (_%__kont7905279053%_ - (lambda (_%L48726%_ _%L48728%_ _%L48729%_) - (_%expand48366%_ - _%L48729%_ - _%L48728%_ - (foldr (lambda (_%g4875248755%_ _%g4875348758%_) - (cons _%g4875248755%_ _%g4875348758%_)) + (_%__kont7981879819%_ + (lambda (_%L48690%_ _%L48692%_ _%L48693%_) + (_%expand48330%_ + _%L48693%_ + _%L48692%_ + (foldr (lambda (_%g4871648719%_ _%g4871748722%_) + (cons _%g4871648719%_ _%g4871748722%_)) '() - _%L48726%_) + _%L48690%_) '#f '#f '#f))) - (_%__kont7905679057%_ - (lambda (_%L48602%_ _%L48604%_ _%L48605%_) - (_%expand48366%_ - _%L48605%_ - _%L48604%_ - (foldr (lambda (_%g4863048633%_ _%g4863148636%_) - (cons _%g4863048633%_ _%g4863148636%_)) + (_%__kont7982279823%_ + (lambda (_%L48566%_ _%L48568%_ _%L48569%_) + (_%expand48330%_ + _%L48569%_ + _%L48568%_ + (foldr (lambda (_%g4859448597%_ _%g4859548600%_) + (cons _%g4859448597%_ _%g4859548600%_)) '() - _%L48602%_) + _%L48566%_) '#f '#t '#f)))) - (let* ((_%__match7927679277%_ - (lambda (_%e4848648522%_ - _%hd4848748526%_ - _%tl4848848529%_ - _%e4848948532%_ - _%hd4849048536%_ - _%tl4849148539%_ - _%e4849248542%_ - _%hd4849348546%_ - _%tl4849448549%_ - _%e4849548552%_ - _%hd4849648556%_ - _%tl4849748559%_ - _%e4849848562%_ - _%hd4849948566%_ - _%tl4850048569%_ - _%__splice7905879059%_ - _%target4850148572%_ - _%tl4850348575%_) - (letrec ((_%loop4850448578%_ - (lambda (_%hd4850248582%_ _%body4850848585%_) - (if (gx#stx-pair? _%hd4850248582%_) - (let ((_%e4850548588%_ - (gx#syntax-e _%hd4850248582%_))) - (let ((_%lp-tl4850748595%_ + (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 _%e4850548588%_))) - (_%lp-hd4850648592%_ + (##cdr _%e4846948552%_))) + (_%lp-hd4847048556%_ (let () (declare (not safe)) - (##car _%e4850548588%_)))) - (_%loop4850448578%_ - _%lp-tl4850748595%_ - (cons _%lp-hd4850648592%_ - _%body4850848585%_)))) - (let ((_%body4850948598%_ - (reverse _%body4850848585%_))) - (let ((_%L48602%_ _%body4850948598%_) - (_%L48604%_ _%hd4849948566%_) - (_%L48605%_ _%hd4849348546%_)) + (##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 - _%L48604%_)) - (_%__kont7905679057%_ - _%L48602%_ - _%L48604%_ - _%L48605%_) + _%L48568%_)) + (_%__kont7982279823%_ + _%L48566%_ + _%L48568%_ + _%L48569%_) (let () (declare (not safe)) - (_%g4837248515%_))))))))) - (_%loop4850448578%_ _%target4850148572%_ '())))) - (_%__match7923279233%_ - (lambda (_%e4845948646%_ - _%hd4846048650%_ - _%tl4846148653%_ - _%e4846248656%_ - _%hd4846348660%_ - _%tl4846448663%_ - _%e4846548666%_ - _%hd4846648670%_ - _%tl4846748673%_ - _%e4846848676%_ - _%hd4846948680%_ - _%tl4847048683%_ - _%e4847148686%_ - _%hd4847248690%_ - _%tl4847348693%_ - _%__splice7905479055%_ - _%target4847448696%_ - _%tl4847648699%_) - (letrec ((_%loop4847748702%_ - (lambda (_%hd4847548706%_ _%body4848148709%_) - (if (gx#stx-pair? _%hd4847548706%_) - (let ((_%e4847848712%_ - (gx#syntax-e _%hd4847548706%_))) - (let ((_%lp-tl4848048719%_ + (_%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 _%e4847848712%_))) - (_%lp-hd4847948716%_ + (##cdr _%e4844248676%_))) + (_%lp-hd4844348680%_ (let () (declare (not safe)) - (##car _%e4847848712%_)))) - (_%loop4847748702%_ - _%lp-tl4848048719%_ - (cons _%lp-hd4847948716%_ - _%body4848148709%_)))) - (let ((_%body4848248722%_ - (reverse _%body4848148709%_))) - (let ((_%L48726%_ _%body4848248722%_) - (_%L48728%_ _%hd4847248690%_) - (_%L48729%_ _%hd4846648670%_)) + (##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 - _%L48728%_)) - (_%__kont7905279053%_ - _%L48726%_ - _%L48728%_ - _%L48729%_) + _%L48692%_)) + (_%__kont7981879819%_ + _%L48690%_ + _%L48692%_ + _%L48693%_) (let () (declare (not safe)) - (_%g4837248515%_))))))))) - (_%loop4847748702%_ _%target4847448696%_ '())))) - (_%__match7918879189%_ - (lambda (_%e4843248768%_ - _%hd4843348772%_ - _%tl4843448775%_ - _%e4843548778%_ - _%hd4843648782%_ - _%tl4843748785%_ - _%e4843848788%_ - _%hd4843948792%_ - _%tl4844048795%_ - _%e4844148798%_ - _%hd4844248802%_ - _%tl4844348805%_ - _%e4844448808%_ - _%hd4844548812%_ - _%tl4844648815%_ - _%__splice7905079051%_ - _%target4844748818%_ - _%tl4844948821%_) - (letrec ((_%loop4845048824%_ - (lambda (_%hd4844848828%_ _%body4845448831%_) - (if (gx#stx-pair? _%hd4844848828%_) - (let ((_%e4845148834%_ - (gx#syntax-e _%hd4844848828%_))) - (let ((_%lp-tl4845348841%_ + (_%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 _%e4845148834%_))) - (_%lp-hd4845248838%_ + (##cdr _%e4841548798%_))) + (_%lp-hd4841648802%_ (let () (declare (not safe)) - (##car _%e4845148834%_)))) - (_%loop4845048824%_ - _%lp-tl4845348841%_ - (cons _%lp-hd4845248838%_ - _%body4845448831%_)))) - (let ((_%body4845548844%_ - (reverse _%body4845448831%_))) - (let ((_%L48848%_ _%body4845548844%_) - (_%L48850%_ _%hd4844548812%_) - (_%L48851%_ _%hd4843948792%_)) + (##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 - _%L48850%_)) - (_%__kont7904879049%_ - _%L48848%_ - _%L48850%_ - _%L48851%_) + _%L48814%_)) + (_%__kont7981479815%_ + _%L48812%_ + _%L48814%_ + _%L48815%_) (let () (declare (not safe)) - (_%g4837248515%_))))))))) - (_%loop4845048824%_ _%target4844748818%_ '())))) - (_%__match7914479145%_ - (lambda (_%e4840548890%_ - _%hd4840648894%_ - _%tl4840748897%_ - _%e4840848900%_ - _%hd4840948904%_ - _%tl4841048907%_ - _%e4841148910%_ - _%hd4841248914%_ - _%tl4841348917%_ - _%e4841448920%_ - _%hd4841548924%_ - _%tl4841648927%_ - _%e4841748930%_ - _%hd4841848934%_ - _%tl4841948937%_ - _%__splice7904679047%_ - _%target4842048940%_ - _%tl4842248943%_) - (letrec ((_%loop4842348946%_ - (lambda (_%hd4842148950%_ _%body4842748953%_) - (if (gx#stx-pair? _%hd4842148950%_) - (let ((_%e4842448956%_ - (gx#syntax-e _%hd4842148950%_))) - (let ((_%lp-tl4842648963%_ + (_%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 _%e4842448956%_))) - (_%lp-hd4842548960%_ + (##cdr _%e4838848920%_))) + (_%lp-hd4838948924%_ (let () (declare (not safe)) - (##car _%e4842448956%_)))) - (_%loop4842348946%_ - _%lp-tl4842648963%_ - (cons _%lp-hd4842548960%_ - _%body4842748953%_)))) - (let ((_%body4842848966%_ - (reverse _%body4842748953%_))) - (let ((_%L48970%_ _%body4842848966%_) - (_%L48972%_ _%hd4841848934%_) - (_%L48973%_ _%hd4841248914%_)) + (##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 - _%L48972%_)) - (_%__kont7904479045%_ - _%L48970%_ - _%L48972%_ - _%L48973%_) + _%L48936%_)) + (_%__kont7981079811%_ + _%L48934%_ + _%L48936%_ + _%L48937%_) (let () (declare (not safe)) - (_%g4837248515%_))))))))) - (_%loop4842348946%_ _%target4842048940%_ '())))) - (_%__match7912479125%_ - (lambda (_%e4840548890%_ - _%hd4840648894%_ - _%tl4840748897%_ - _%e4840848900%_ - _%hd4840948904%_ - _%tl4841048907%_ - _%e4841148910%_ - _%hd4841248914%_ - _%tl4841348917%_ - _%e4841448920%_ - _%hd4841548924%_ - _%tl4841648927%_) - (if (gx#identifier? _%hd4841548924%_) + (_%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]#_g84136_| - _%hd4841548924%_) - (if (gx#stx-pair? _%tl4841648927%_) - (let ((_%e4841748930%_ - (gx#syntax-e _%tl4841648927%_))) - (let ((_%tl4841948937%_ + |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 _%e4841748930%_))) - (_%hd4841848934%_ + (##cdr _%e4838148894%_))) + (_%hd4838248898%_ (let () (declare (not safe)) - (##car _%e4841748930%_)))) - (if (gx#stx-null? _%tl4841948937%_) + (##car _%e4838148894%_)))) + (if (gx#stx-null? _%tl4838348901%_) (if (gx#stx-pair/null? - _%tl4841048907%_) - (let ((_%__splice7904679047%_ + _%tl4837448871%_) + (let ((_%__splice7981279813%_ (gx#syntax-split-splice - _%tl4841048907%_ + _%tl4837448871%_ '0))) - (let ((_%tl4842248943%_ + (let ((_%tl4838648907%_ (let () (declare (not safe)) (##vector-ref - _%__splice7904679047%_ + _%__splice7981279813%_ '1))) - (_%target4842048940%_ + (_%target4838448904%_ (let () (declare (not safe)) (##vector-ref - _%__splice7904679047%_ + _%__splice7981279813%_ '0)))) (if (gx#stx-null? - _%tl4842248943%_) - (_%__match7914479145%_ - _%e4840548890%_ - _%hd4840648894%_ - _%tl4840748897%_ - _%e4840848900%_ - _%hd4840948904%_ - _%tl4841048907%_ - _%e4841148910%_ - _%hd4841248914%_ - _%tl4841348917%_ - _%e4841448920%_ - _%hd4841548924%_ - _%tl4841648927%_ - _%e4841748930%_ - _%hd4841848934%_ - _%tl4841948937%_ - _%__splice7904679047%_ - _%target4842048940%_ - _%tl4842248943%_) + _%tl4838648907%_) + (_%__match7991079911%_ + _%e4836948854%_ + _%hd4837048858%_ + _%tl4837148861%_ + _%e4837248864%_ + _%hd4837348868%_ + _%tl4837448871%_ + _%e4837548874%_ + _%hd4837648878%_ + _%tl4837748881%_ + _%e4837848884%_ + _%hd4837948888%_ + _%tl4838048891%_ + _%e4838148894%_ + _%hd4838248898%_ + _%tl4838348901%_ + _%__splice7981279813%_ + _%target4838448904%_ + _%tl4838648907%_) (let () (declare (not safe)) - (_%g4837248515%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4837248515%_))) + (_%g4833648479%_))) (let () (declare (not safe)) - (_%g4837248515%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4837248515%_))) + (_%g4833648479%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84137_| - _%hd4841548924%_) - (if (gx#stx-pair? _%tl4841648927%_) - (let ((_%e4844448808%_ - (gx#syntax-e _%tl4841648927%_))) - (let ((_%tl4844648815%_ + |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 _%e4844448808%_))) - (_%hd4844548812%_ + (##cdr _%e4840848772%_))) + (_%hd4840948776%_ (let () (declare (not safe)) - (##car _%e4844448808%_)))) - (if (gx#stx-null? _%tl4844648815%_) + (##car _%e4840848772%_)))) + (if (gx#stx-null? _%tl4841048779%_) (if (gx#stx-pair/null? - _%tl4841048907%_) - (let ((_%__splice7905079051%_ + _%tl4837448871%_) + (let ((_%__splice7981679817%_ (gx#syntax-split-splice - _%tl4841048907%_ + _%tl4837448871%_ '0))) - (let ((_%tl4844948821%_ + (let ((_%tl4841348785%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7905079051%_ '1))) - (_%target4844748818%_ + (##vector-ref _%__splice7981679817%_ '1))) + (_%target4841148782%_ (let () (declare (not safe)) - (##vector-ref _%__splice7905079051%_ '0)))) - (if (gx#stx-null? _%tl4844948821%_) - (_%__match7918879189%_ - _%e4840548890%_ - _%hd4840648894%_ - _%tl4840748897%_ - _%e4840848900%_ - _%hd4840948904%_ - _%tl4841048907%_ - _%e4841148910%_ - _%hd4841248914%_ - _%tl4841348917%_ - _%e4841448920%_ - _%hd4841548924%_ - _%tl4841648927%_ - _%e4844448808%_ - _%hd4844548812%_ - _%tl4844648815%_ - _%__splice7905079051%_ - _%target4844748818%_ - _%tl4844948821%_) - (let () (declare (not safe)) (_%g4837248515%_))))) + (##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)) - (_%g4837248515%_))) + (_%g4833648479%_))) (let () (declare (not safe)) - (_%g4837248515%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4837248515%_))) + (_%g4833648479%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84138_| - _%hd4841548924%_) - (if (gx#stx-pair? _%tl4841648927%_) - (let ((_%e4847148686%_ + |gerbil/core/contract~Using[1]#_g85014_| + _%hd4837948888%_) + (if (gx#stx-pair? _%tl4838048891%_) + (let ((_%e4843548650%_ (gx#syntax-e - _%tl4841648927%_))) - (let ((_%tl4847348693%_ + _%tl4838048891%_))) + (let ((_%tl4843748657%_ (let () (declare (not safe)) - (##cdr _%e4847148686%_))) - (_%hd4847248690%_ + (##cdr _%e4843548650%_))) + (_%hd4843648654%_ (let () (declare (not safe)) - (##car _%e4847148686%_)))) + (##car _%e4843548650%_)))) (if (gx#stx-null? - _%tl4847348693%_) + _%tl4843748657%_) (if (gx#stx-pair/null? - _%tl4841048907%_) - (let ((_%__splice7905479055%_ + _%tl4837448871%_) + (let ((_%__splice7982079821%_ (gx#syntax-split-splice - _%tl4841048907%_ + _%tl4837448871%_ '0))) - (let ((_%tl4847648699%_ + (let ((_%tl4844048663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7905479055%_ '1))) - (_%target4847448696%_ + (##vector-ref _%__splice7982079821%_ '1))) + (_%target4843848660%_ (let () (declare (not safe)) - (##vector-ref _%__splice7905479055%_ '0)))) - (if (gx#stx-null? _%tl4847648699%_) - (_%__match7923279233%_ - _%e4840548890%_ - _%hd4840648894%_ - _%tl4840748897%_ - _%e4840848900%_ - _%hd4840948904%_ - _%tl4841048907%_ - _%e4841148910%_ - _%hd4841248914%_ - _%tl4841348917%_ - _%e4841448920%_ - _%hd4841548924%_ - _%tl4841648927%_ - _%e4847148686%_ - _%hd4847248690%_ - _%tl4847348693%_ - _%__splice7905479055%_ - _%target4847448696%_ - _%tl4847648699%_) - (let () (declare (not safe)) (_%g4837248515%_))))) - (let () (declare (not safe)) (_%g4837248515%_))) + (##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)) - (_%g4837248515%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4837248515%_))) + (_%g4833648479%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84139_| - _%hd4841548924%_) - (if (gx#stx-pair? _%tl4841648927%_) - (let ((_%e4849848562%_ + |gerbil/core/contract~Using[1]#_g85015_| + _%hd4837948888%_) + (if (gx#stx-pair? _%tl4838048891%_) + (let ((_%e4846248526%_ (gx#syntax-e - _%tl4841648927%_))) - (let ((_%tl4850048569%_ + _%tl4838048891%_))) + (let ((_%tl4846448533%_ (let () (declare (not safe)) - (##cdr _%e4849848562%_))) - (_%hd4849948566%_ + (##cdr _%e4846248526%_))) + (_%hd4846348530%_ (let () (declare (not safe)) - (##car _%e4849848562%_)))) + (##car _%e4846248526%_)))) (if (gx#stx-null? - _%tl4850048569%_) + _%tl4846448533%_) (if (gx#stx-pair/null? - _%tl4841048907%_) - (let ((_%__splice7905879059%_ + _%tl4837448871%_) + (let ((_%__splice7982479825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4841048907%_ '0))) - (let ((_%tl4850348575%_ + (gx#syntax-split-splice _%tl4837448871%_ '0))) + (let ((_%tl4846748539%_ (let () (declare (not safe)) - (##vector-ref _%__splice7905879059%_ '1))) - (_%target4850148572%_ + (##vector-ref _%__splice7982479825%_ '1))) + (_%target4846548536%_ (let () (declare (not safe)) - (##vector-ref _%__splice7905879059%_ '0)))) - (if (gx#stx-null? _%tl4850348575%_) - (_%__match7927679277%_ - _%e4840548890%_ - _%hd4840648894%_ - _%tl4840748897%_ - _%e4840848900%_ - _%hd4840948904%_ - _%tl4841048907%_ - _%e4841148910%_ - _%hd4841248914%_ - _%tl4841348917%_ - _%e4841448920%_ - _%hd4841548924%_ - _%tl4841648927%_ - _%e4849848562%_ - _%hd4849948566%_ - _%tl4850048569%_ - _%__splice7905879059%_ - _%target4850148572%_ - _%tl4850348575%_) - (let () (declare (not safe)) (_%g4837248515%_))))) - (let () (declare (not safe)) (_%g4837248515%_))) - (let () (declare (not safe)) (_%g4837248515%_))))) + (##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)) - (_%g4837248515%_))) + (_%g4833648479%_))) (let () (declare (not safe)) - (_%g4837248515%_)))))) - (let () (declare (not safe)) (_%g4837248515%_))))) - (_%__match7910079101%_ - (lambda (_%e4837849012%_ - _%hd4837949016%_ - _%tl4838049019%_ - _%e4838149022%_ - _%hd4838249026%_ - _%tl4838349029%_ - _%e4838449032%_ - _%hd4838549036%_ - _%tl4838649039%_ - _%e4838749042%_ - _%hd4838849046%_ - _%tl4838949049%_ - _%e4839049052%_ - _%hd4839149056%_ - _%tl4839249059%_ - _%__splice7904279043%_ - _%target4839349062%_ - _%tl4839549065%_) - (letrec ((_%loop4839649068%_ - (lambda (_%hd4839449072%_ _%body4840049075%_) - (if (gx#stx-pair? _%hd4839449072%_) - (let ((_%e4839749078%_ - (gx#syntax-e _%hd4839449072%_))) - (let ((_%lp-tl4839949085%_ + (_%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 _%e4839749078%_))) - (_%lp-hd4839849082%_ + (##cdr _%e4836149042%_))) + (_%lp-hd4836249046%_ (let () (declare (not safe)) - (##car _%e4839749078%_)))) - (_%loop4839649068%_ - _%lp-tl4839949085%_ - (cons _%lp-hd4839849082%_ - _%body4840049075%_)))) - (let ((_%body4840149088%_ - (reverse _%body4840049075%_))) - (let ((_%L49092%_ _%body4840149088%_) - (_%L49094%_ _%hd4839149056%_) - (_%L49095%_ _%hd4838849046%_) - (_%L49096%_ _%hd4838549036%_)) - (if (let ((__tmp84140 + (##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 - _%L49094%_ + _%L49058%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84140)) - (_%__kont7904079041%_ - _%L49092%_ - _%L49094%_ - _%L49095%_ - _%L49096%_) - (_%__match7912479125%_ - _%e4837849012%_ - _%hd4837949016%_ - _%tl4838049019%_ - _%e4838149022%_ - _%hd4838249026%_ - _%tl4838349029%_ - _%e4838449032%_ - _%hd4838549036%_ - _%tl4838649039%_ - _%e4838749042%_ - _%hd4838849046%_ - _%tl4838949049%_)))))))) - (_%loop4839649068%_ _%target4839349062%_ '()))))) - (if (gx#stx-pair? _%__stx7903779038%_) - (let ((_%e4837849012%_ (gx#syntax-e _%__stx7903779038%_))) - (let ((_%tl4838049019%_ + __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 _%e4837849012%_))) - (_%hd4837949016%_ + (##cdr _%e4834248976%_))) + (_%hd4834348980%_ (let () (declare (not safe)) - (##car _%e4837849012%_)))) - (if (gx#stx-pair? _%tl4838049019%_) - (let ((_%e4838149022%_ - (gx#syntax-e _%tl4838049019%_))) - (let ((_%tl4838349029%_ + (##car _%e4834248976%_)))) + (if (gx#stx-pair? _%tl4834448983%_) + (let ((_%e4834548986%_ + (gx#syntax-e _%tl4834448983%_))) + (let ((_%tl4834748993%_ (let () (declare (not safe)) - (##cdr _%e4838149022%_))) - (_%hd4838249026%_ + (##cdr _%e4834548986%_))) + (_%hd4834648990%_ (let () (declare (not safe)) - (##car _%e4838149022%_)))) - (if (gx#stx-pair? _%hd4838249026%_) - (let ((_%e4838449032%_ - (gx#syntax-e _%hd4838249026%_))) - (let ((_%tl4838649039%_ + (##car _%e4834548986%_)))) + (if (gx#stx-pair? _%hd4834648990%_) + (let ((_%e4834848996%_ + (gx#syntax-e _%hd4834648990%_))) + (let ((_%tl4835049003%_ (let () (declare (not safe)) - (##cdr _%e4838449032%_))) - (_%hd4838549036%_ + (##cdr _%e4834848996%_))) + (_%hd4834949000%_ (let () (declare (not safe)) - (##car _%e4838449032%_)))) - (if (gx#stx-pair? _%tl4838649039%_) - (let ((_%e4838749042%_ + (##car _%e4834848996%_)))) + (if (gx#stx-pair? _%tl4835049003%_) + (let ((_%e4835149006%_ (gx#syntax-e - _%tl4838649039%_))) - (let ((_%tl4838949049%_ + _%tl4835049003%_))) + (let ((_%tl4835349013%_ (let () (declare (not safe)) - (##cdr _%e4838749042%_))) - (_%hd4838849046%_ + (##cdr _%e4835149006%_))) + (_%hd4835249010%_ (let () (declare (not safe)) - (##car _%e4838749042%_)))) + (##car _%e4835149006%_)))) (if (gx#stx-pair? - _%tl4838949049%_) - (let ((_%e4839049052%_ + _%tl4835349013%_) + (let ((_%e4835449016%_ (gx#syntax-e - _%tl4838949049%_))) - (let ((_%tl4839249059%_ + _%tl4835349013%_))) + (let ((_%tl4835649023%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4839049052%_))) - (_%hd4839149056%_ - (let () (declare (not safe)) (##car _%e4839049052%_)))) - (if (gx#stx-null? _%tl4839249059%_) - (if (gx#stx-pair/null? _%tl4838349029%_) - (let ((_%__splice7904279043%_ - (gx#syntax-split-splice _%tl4838349029%_ '0))) - (let ((_%tl4839549065%_ + (##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 _%__splice7904279043%_ '1))) - (_%target4839349062%_ + (##vector-ref _%__splice7980879809%_ '1))) + (_%target4835749026%_ (let () (declare (not safe)) - (##vector-ref _%__splice7904279043%_ '0)))) - (if (gx#stx-null? _%tl4839549065%_) - (_%__match7910079101%_ - _%e4837849012%_ - _%hd4837949016%_ - _%tl4838049019%_ - _%e4838149022%_ - _%hd4838249026%_ - _%tl4838349029%_ - _%e4838449032%_ - _%hd4838549036%_ - _%tl4838649039%_ - _%e4838749042%_ - _%hd4838849046%_ - _%tl4838949049%_ - _%e4839049052%_ - _%hd4839149056%_ - _%tl4839249059%_ - _%__splice7904279043%_ - _%target4839349062%_ - _%tl4839549065%_) + (##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)) - (_%g4837248515%_))))) - (let () (declare (not safe)) (_%g4837248515%_))) - (let () (declare (not safe)) (_%g4837248515%_))))) + (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))) + (let () (declare (not safe)) (_%g4833648479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4837248515%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4837248515%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4837248515%_))))) - (let () (declare (not safe)) (_%g4837248515%_))))) - (let () (declare (not safe)) (_%g4837248515%_))))))))) + (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))))))))) (define |gerbil/core/contract~Using[:0:]#with-interface| - (lambda (_%stx49490%_) - (letrec ((_%expand-body49493%_ - (lambda (_%var50494%_ - _%Interface50496%_ - _%body50497%_ - _%checked?50498%_) - (let* ((_%type50500%_ + (lambda (_%stx49454%_) + (letrec ((_%expand-body49457%_ + (lambda (_%var50458%_ + _%Interface50460%_ + _%body50461%_ + _%checked?50462%_) + (let* ((_%type50464%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx49490%_ - _%Interface50496%_))) - (_%g5050350547%_ - (lambda (_%g5050450543%_) + _%stx49454%_ + _%Interface50460%_))) + (_%g5046750511%_ + (lambda (_%g5046850507%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5050450543%_))) - (_%g5050250705%_ - (lambda (_%g5050450551%_) - (if (gx#stx-pair? _%g5050450551%_) - (let ((_%e5051250554%_ - (gx#syntax-e _%g5050450551%_))) - (let ((_%hd5051350558%_ + _%g5046850507%_))) + (_%g5046650669%_ + (lambda (_%g5046850515%_) + (if (gx#stx-pair? _%g5046850515%_) + (let ((_%e5047650518%_ + (gx#syntax-e _%g5046850515%_))) + (let ((_%hd5047750522%_ (let () (declare (not safe)) - (##car _%e5051250554%_))) - (_%tl5051450561%_ + (##car _%e5047650518%_))) + (_%tl5047850525%_ (let () (declare (not safe)) - (##cdr _%e5051250554%_)))) - (if (gx#stx-pair? _%tl5051450561%_) - (let ((_%e5051550564%_ + (##cdr _%e5047650518%_)))) + (if (gx#stx-pair? _%tl5047850525%_) + (let ((_%e5047950528%_ (gx#syntax-e - _%tl5051450561%_))) - (let ((_%hd5051650568%_ + _%tl5047850525%_))) + (let ((_%hd5048050532%_ (let () (declare (not safe)) - (##car _%e5051550564%_))) - (_%tl5051750571%_ + (##car _%e5047950528%_))) + (_%tl5048150535%_ (let () (declare (not safe)) - (##cdr _%e5051550564%_)))) + (##cdr _%e5047950528%_)))) (if (gx#stx-pair? - _%tl5051750571%_) - (let ((_%e5051850574%_ + _%tl5048150535%_) + (let ((_%e5048250538%_ (gx#syntax-e - _%tl5051750571%_))) - (let ((_%hd5051950578%_ + _%tl5048150535%_))) + (let ((_%hd5048350542%_ (let () (declare (not safe)) - (##car _%e5051850574%_))) - (_%tl5052050581%_ + (##car _%e5048250538%_))) + (_%tl5048450545%_ (let () (declare (not safe)) - (##cdr _%e5051850574%_)))) + (##cdr _%e5048250538%_)))) (if (gx#stx-pair? - _%tl5052050581%_) - (let ((_%e5052150584%_ + _%tl5048450545%_) + (let ((_%e5048550548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5052050581%_))) - (let ((_%hd5052250588%_ + (gx#syntax-e _%tl5048450545%_))) + (let ((_%hd5048650552%_ (let () (declare (not safe)) - (##car _%e5052150584%_))) - (_%tl5052350591%_ + (##car _%e5048550548%_))) + (_%tl5048750555%_ (let () (declare (not safe)) - (##cdr _%e5052150584%_)))) - (if (gx#stx-pair? _%tl5052350591%_) - (let ((_%e5052450594%_ - (gx#syntax-e _%tl5052350591%_))) - (let ((_%hd5052550598%_ + (##cdr _%e5048550548%_)))) + (if (gx#stx-pair? _%tl5048750555%_) + (let ((_%e5048850558%_ + (gx#syntax-e _%tl5048750555%_))) + (let ((_%hd5048950562%_ (let () (declare (not safe)) - (##car _%e5052450594%_))) - (_%tl5052650601%_ + (##car _%e5048850558%_))) + (_%tl5049050565%_ (let () (declare (not safe)) - (##cdr _%e5052450594%_)))) - (if (gx#stx-pair? _%tl5052650601%_) - (let ((_%e5052750604%_ - (gx#syntax-e _%tl5052650601%_))) - (let ((_%hd5052850608%_ + (##cdr _%e5048850558%_)))) + (if (gx#stx-pair? _%tl5049050565%_) + (let ((_%e5049150568%_ + (gx#syntax-e _%tl5049050565%_))) + (let ((_%hd5049250572%_ (let () (declare (not safe)) - (##car _%e5052750604%_))) - (_%tl5052950611%_ + (##car _%e5049150568%_))) + (_%tl5049350575%_ (let () (declare (not safe)) - (##cdr _%e5052750604%_)))) - (if (gx#stx-pair? _%tl5052950611%_) - (let ((_%e5053050614%_ + (##cdr _%e5049150568%_)))) + (if (gx#stx-pair? _%tl5049350575%_) + (let ((_%e5049450578%_ (gx#syntax-e - _%tl5052950611%_))) - (let ((_%hd5053150618%_ + _%tl5049350575%_))) + (let ((_%hd5049550582%_ (let () (declare (not safe)) - (##car _%e5053050614%_))) - (_%tl5053250621%_ + (##car _%e5049450578%_))) + (_%tl5049650585%_ (let () (declare (not safe)) - (##cdr _%e5053050614%_)))) + (##cdr _%e5049450578%_)))) (if (gx#stx-pair/null? - _%hd5053150618%_) - (let ((_g84141_ + _%hd5049550582%_) + (let ((_g85017_ (gx#syntax-split-splice - _%hd5053150618%_ + _%hd5049550582%_ '0))) (begin - (let ((_g84142_ + (let ((_g85018_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84141_) - (##values-length _g84141_) + (if (##values? _g85017_) + (##values-length _g85017_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84142_ 2))) - (error "Context expects 2 values" _g84142_))) - (let ((_%target5053350624%_ - (let () (declare (not safe)) (##values-ref _g84141_ 0))) - (_%tl5053550627%_ - (let () (declare (not safe)) (##values-ref _g84141_ 1)))) - (if (gx#stx-null? _%tl5053550627%_) - (letrec ((_%loop5053650630%_ - (lambda (_%hd5053450634%_ _%body5054050637%_) - (if (gx#stx-pair? _%hd5053450634%_) - (let ((_%e5053750640%_ - (gx#syntax-e _%hd5053450634%_))) - (let ((_%lp-hd5053850644%_ + (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 _%e5053750640%_))) - (_%lp-tl5053950647%_ + (##car _%e5050150604%_))) + (_%lp-tl5050350611%_ (let () (declare (not safe)) - (##cdr _%e5053750640%_)))) - (_%loop5053650630%_ - _%lp-tl5053950647%_ - (cons _%lp-hd5053850644%_ - _%body5054050637%_)))) - (let ((_%body5054150650%_ - (reverse _%body5054050637%_))) - (if (gx#stx-null? _%tl5053250621%_) - ((lambda (_%L50654%_ - _%L50656%_ - _%L50657%_ - _%L50658%_ - _%L50659%_ - _%L50660%_ - _%L50661%_) + (##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 _%L50658%_ + (cons (cons _%L50622%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L50659%_ '())) - (cons _%L50658%_ '()))) + (cons _%L50623%_ '())) + (cons _%L50622%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L50661%_ + (cons (cons (cons _%L50625%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -6150,131 +6150,131 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L50658%_ '())) + (cons _%L50622%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50660%_ '())) - (cons _%L50657%_ + (cons _%L50624%_ '())) + (cons _%L50621%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50656%_ '())) + (cons _%L50620%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5069650699%_ + (foldr (lambda (_%g5066050663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5069750702%_) - (cons _%g5069650699%_ _%g5069750702%_)) + _%g5066150666%_) + (cons _%g5066050663%_ _%g5066150666%_)) '() - _%L50654%_))) + _%L50618%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body5054150650%_ - _%hd5052850608%_ - _%hd5052550598%_ - _%hd5052250588%_ - _%hd5051950578%_ - _%hd5051650568%_ - _%hd5051350558%_) - (_%g5050350547%_ - _%g5050450551%_))))))) - (_%loop5053650630%_ _%target5053350624%_ '())) - (_%g5050350547%_ _%g5050450551%_))))) + _%body5050550614%_ + _%hd5049250572%_ + _%hd5048950562%_ + _%hd5048650552%_ + _%hd5048350542%_ + _%hd5048050532%_ + _%hd5047750522%_) + (_%g5046750511%_ + _%g5046850515%_))))))) + (_%loop5050050594%_ _%target5049750588%_ '())) + (_%g5046750511%_ _%g5046850515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5050350547%_ - _%g5050450551%_)))) - (_%g5050350547%_ _%g5050450551%_)))) - (_%g5050350547%_ _%g5050450551%_)))) - (_%g5050350547%_ _%g5050450551%_)))) - (_%g5050350547%_ _%g5050450551%_)))) + (_%g5046750511%_ + _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5050350547%_ - _%g5050450551%_)))) - (_%g5050350547%_ _%g5050450551%_)))) - (_%g5050350547%_ _%g5050450551%_))))) - (_%g5050250705%_ + (_%g5046750511%_ + _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_))))) + (_%g5046650669%_ (list (gx#syntax-local-introduce '@@type) - _%type50500%_ - (let ((__obj83976 _%type50500%_)) + _%type50464%_ + (let ((__obj84835 _%type50464%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83976 + __obj84835 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83976 - '4 + __obj84835 + '7 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83976 + __obj84835 'instance-type))) - _%var50494%_ - _%checked?50498%_ + _%var50458%_ + _%checked?50462%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body50497%_))))) - (_%expand49495%_ - (lambda (_%var50293%_ - _%Interface50295%_ - _%body50296%_ - _%checked?50297%_ - _%checked-methods?50298%_ - _%maybe?50299%_) - (let* ((_%g5030150309%_ - (lambda (_%g5030250305%_) + _%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" - _%g5030250305%_))) - (_%g5030050486%_ - (lambda (_%g5030250313%_) - ((lambda (_%L50316%_) - (if _%checked?50297%_ - (if _%maybe?50299%_ - (let* ((_%g5032850343%_ - (lambda (_%g5032950339%_) + _%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" - _%g5032950339%_))) - (_%g5032750389%_ - (lambda (_%g5032950347%_) + _%g5029350303%_))) + (_%g5029150353%_ + (lambda (_%g5029350311%_) (if (gx#stx-pair? - _%g5032950347%_) - (let ((_%e5033250350%_ + _%g5029350311%_) + (let ((_%e5029650314%_ (gx#syntax-e - _%g5032950347%_))) - (let ((_%hd5033350354%_ + _%g5029350311%_))) + (let ((_%hd5029750318%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5033250350%_))) - (_%tl5033450357%_ - (let () (declare (not safe)) (##cdr _%e5033250350%_)))) - (if (gx#stx-pair? _%tl5033450357%_) - (let ((_%e5033550360%_ (gx#syntax-e _%tl5033450357%_))) - (let ((_%hd5033650364%_ + (##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 _%e5033550360%_))) - (_%tl5033750367%_ + (##car _%e5029950324%_))) + (_%tl5030150331%_ (let () (declare (not safe)) - (##cdr _%e5033550360%_)))) - (if (gx#stx-null? _%tl5033750367%_) - ((lambda (_%L50370%_ _%L50372%_) + (##cdr _%e5029950324%_)))) + (if (gx#stx-null? _%tl5030150331%_) + ((lambda (_%L50334%_ _%L50336%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50372%_ - (cons (cons _%L50370%_ - (cons _%L50372%_ + (cons (cons _%L50336%_ + (cons (cons _%L50334%_ + (cons _%L50336%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -6282,2653 +6282,2653 @@ (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L50372%_ - (cons _%L50316%_ + (cons _%L50336%_ + (cons _%L50280%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50372%_ '())) + (cons _%L50336%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd5033650364%_ - _%hd5033350354%_) - (_%g5032850343%_ _%g5032950347%_)))) - (_%g5032850343%_ _%g5032950347%_)))) - (_%g5032850343%_ _%g5032950347%_))))) + _%hd5030050328%_ + _%hd5029750318%_) + (_%g5029250307%_ _%g5029350311%_)))) + (_%g5029250307%_ _%g5029350311%_)))) + (_%g5029250307%_ _%g5029350311%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5032750389%_ - (list _%var50293%_ - _%Interface50295%_))) - (let* ((_%g5039350408%_ - (lambda (_%g5039450404%_) + (_%g5029150353%_ + (list _%var50257%_ + _%Interface50259%_))) + (let* ((_%g5035750372%_ + (lambda (_%g5035850368%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5039450404%_))) - (_%g5039250452%_ - (lambda (_%g5039450412%_) + _%g5035850368%_))) + (_%g5035650416%_ + (lambda (_%g5035850376%_) (if (gx#stx-pair? - _%g5039450412%_) - (let ((_%e5039750415%_ + _%g5035850376%_) + (let ((_%e5036150379%_ (gx#syntax-e - _%g5039450412%_))) - (let ((_%hd5039850419%_ + _%g5035850376%_))) + (let ((_%hd5036250383%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5039750415%_))) - (_%tl5039950422%_ - (let () (declare (not safe)) (##cdr _%e5039750415%_)))) - (if (gx#stx-pair? _%tl5039950422%_) - (let ((_%e5040050425%_ (gx#syntax-e _%tl5039950422%_))) - (let ((_%hd5040150429%_ + (##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 _%e5040050425%_))) - (_%tl5040250432%_ + (##car _%e5036450389%_))) + (_%tl5036650396%_ (let () (declare (not safe)) - (##cdr _%e5040050425%_)))) - (if (gx#stx-null? _%tl5040250432%_) - ((lambda (_%L50435%_ _%L50437%_) + (##cdr _%e5036450389%_)))) + (if (gx#stx-null? _%tl5036650396%_) + ((lambda (_%L50399%_ _%L50401%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50437%_ - (cons (cons _%L50435%_ - (cons _%L50437%_ + (cons (cons _%L50401%_ + (cons (cons _%L50399%_ + (cons _%L50401%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L50316%_ '())))) - _%hd5040150429%_ - _%hd5039850419%_) - (_%g5039350408%_ _%g5039450412%_)))) - (_%g5039350408%_ _%g5039450412%_)))) - (_%g5039350408%_ _%g5039450412%_))))) + (cons _%L50280%_ '())))) + _%hd5036550393%_ + _%hd5036250383%_) + (_%g5035750372%_ _%g5035850376%_)))) + (_%g5035750372%_ _%g5035850376%_)))) + (_%g5035750372%_ _%g5035850376%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5039250452%_ - (list _%var50293%_ - _%Interface50295%_)))) - (if _%maybe?50299%_ - (let* ((_%g5045650464%_ - (lambda (_%g5045750460%_) + (_%g5035650416%_ + (list _%var50257%_ + _%Interface50259%_)))) + (if _%maybe?50263%_ + (let* ((_%g5042050428%_ + (lambda (_%g5042150424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5045750460%_))) - (_%g5045550482%_ - (lambda (_%g5045750468%_) - ((lambda (_%L50471%_) + _%g5042150424%_))) + (_%g5041950446%_ + (lambda (_%g5042150432%_) + ((lambda (_%L50435%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L50471%_ + (cons _%L50435%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50316%_ + (cons _%L50280%_ (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50471%_ '())) + (cons _%L50435%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5045750468%_)))) - (_%g5045550482%_ _%var50293%_)) - _%L50316%_))) - _%g5030250313%_)))) - (_%g5030050486%_ - (_%expand-body49493%_ - _%var50293%_ - _%Interface50295%_ - _%body50296%_ - (let ((_%$e50490%_ _%checked?50297%_)) - (if _%$e50490%_ - _%$e50490%_ - _%checked-methods?50298%_)))))))) - (let* ((_%__stx7927979280%_ _%stx49490%_) - (_%g4950149644%_ + _%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" - _%__stx7927979280%_)))) - (let ((_%__kont7928279283%_ - (lambda (_%L50221%_ _%L50223%_ _%L50224%_ _%L50225%_) - (let* ((_%g5025050258%_ - (lambda (_%g5025150254%_) + _%__stx8004580046%_)))) + (let ((_%__kont8004880049%_ + (lambda (_%L50185%_ _%L50187%_ _%L50188%_ _%L50189%_) + (let* ((_%g5021450222%_ + (lambda (_%g5021550218%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5025150254%_))) - (_%g5024950285%_ - (lambda (_%g5025150262%_) - ((lambda (_%L50265%_) + _%g5021550218%_))) + (_%g5021350249%_ + (lambda (_%g5021550226%_) + ((lambda (_%L50229%_) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L50225%_ - (cons _%L50224%_ - (cons _%L50265%_ + (cons (cons _%L50189%_ + (cons _%L50188%_ + (cons _%L50229%_ '()))) - (foldr (lambda (_%g5027650279%_ - _%g5027750282%_) - (cons _%g5027650279%_ - _%g5027750282%_)) + (foldr (lambda (_%g5024050243%_ + _%g5024150246%_) + (cons _%g5024050243%_ + _%g5024150246%_)) '() - _%L50221%_)))) - _%g5025150262%_)))) - (_%g5024950285%_ - (let ((__obj83977 (gx#syntax-local-value _%L50223%_))) + _%L50185%_)))) + _%g5021550226%_)))) + (_%g5021350249%_ + (let ((__obj84836 (gx#syntax-local-value _%L50187%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83977 + __obj84836 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83977 + __obj84836 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83977 + __obj84836 'identifier))))))) - (_%__kont7928679287%_ - (lambda (_%L50099%_ _%L50101%_ _%L50102%_) - (_%expand49495%_ - _%L50102%_ - _%L50101%_ - (foldr (lambda (_%g5012550128%_ _%g5012650131%_) - (cons _%g5012550128%_ _%g5012650131%_)) + (_%__kont8005280053%_ + (lambda (_%L50063%_ _%L50065%_ _%L50066%_) + (_%expand49459%_ + _%L50066%_ + _%L50065%_ + (foldr (lambda (_%g5008950092%_ _%g5009050095%_) + (cons _%g5008950092%_ _%g5009050095%_)) '() - _%L50099%_) + _%L50063%_) '#t '#t '#f))) - (_%__kont7929079291%_ - (lambda (_%L49977%_ _%L49979%_ _%L49980%_) - (_%expand49495%_ - _%L49980%_ - _%L49979%_ - (foldr (lambda (_%g5000350006%_ _%g5000450009%_) - (cons _%g5000350006%_ _%g5000450009%_)) + (_%__kont8005680057%_ + (lambda (_%L49941%_ _%L49943%_ _%L49944%_) + (_%expand49459%_ + _%L49944%_ + _%L49943%_ + (foldr (lambda (_%g4996749970%_ _%g4996849973%_) + (cons _%g4996749970%_ _%g4996849973%_)) '() - _%L49977%_) + _%L49941%_) '#t '#t '#t))) - (_%__kont7929479295%_ - (lambda (_%L49855%_ _%L49857%_ _%L49858%_) - (_%expand49495%_ - _%L49858%_ - _%L49857%_ - (foldr (lambda (_%g4988149884%_ _%g4988249887%_) - (cons _%g4988149884%_ _%g4988249887%_)) + (_%__kont8006080061%_ + (lambda (_%L49819%_ _%L49821%_ _%L49822%_) + (_%expand49459%_ + _%L49822%_ + _%L49821%_ + (foldr (lambda (_%g4984549848%_ _%g4984649851%_) + (cons _%g4984549848%_ _%g4984649851%_)) '() - _%L49855%_) + _%L49819%_) '#f '#f '#f))) - (_%__kont7929879299%_ - (lambda (_%L49731%_ _%L49733%_ _%L49734%_) - (_%expand49495%_ - _%L49734%_ - _%L49733%_ - (foldr (lambda (_%g4975949762%_ _%g4976049765%_) - (cons _%g4975949762%_ _%g4976049765%_)) + (_%__kont8006480065%_ + (lambda (_%L49695%_ _%L49697%_ _%L49698%_) + (_%expand49459%_ + _%L49698%_ + _%L49697%_ + (foldr (lambda (_%g4972349726%_ _%g4972449729%_) + (cons _%g4972349726%_ _%g4972449729%_)) '() - _%L49731%_) + _%L49695%_) '#f '#t '#f)))) - (let* ((_%__match7951879519%_ - (lambda (_%e4961549651%_ - _%hd4961649655%_ - _%tl4961749658%_ - _%e4961849661%_ - _%hd4961949665%_ - _%tl4962049668%_ - _%e4962149671%_ - _%hd4962249675%_ - _%tl4962349678%_ - _%e4962449681%_ - _%hd4962549685%_ - _%tl4962649688%_ - _%e4962749691%_ - _%hd4962849695%_ - _%tl4962949698%_ - _%__splice7930079301%_ - _%target4963049701%_ - _%tl4963249704%_) - (letrec ((_%loop4963349707%_ - (lambda (_%hd4963149711%_ _%body4963749714%_) - (if (gx#stx-pair? _%hd4963149711%_) - (let ((_%e4963449717%_ - (gx#syntax-e _%hd4963149711%_))) - (let ((_%lp-tl4963649724%_ + (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 _%e4963449717%_))) - (_%lp-hd4963549721%_ + (##cdr _%e4959849681%_))) + (_%lp-hd4959949685%_ (let () (declare (not safe)) - (##car _%e4963449717%_)))) - (_%loop4963349707%_ - _%lp-tl4963649724%_ - (cons _%lp-hd4963549721%_ - _%body4963749714%_)))) - (let ((_%body4963849727%_ - (reverse _%body4963749714%_))) - (let ((_%L49731%_ _%body4963849727%_) - (_%L49733%_ _%hd4962849695%_) - (_%L49734%_ _%hd4962249675%_)) + (##car _%e4959849681%_)))) + (_%loop4959749671%_ + _%lp-tl4960049688%_ + (cons _%lp-hd4959949685%_ + _%body4960149678%_)))) + (let ((_%body4960249691%_ + (reverse _%body4960149678%_))) + (let ((_%L49695%_ _%body4960249691%_) + (_%L49697%_ _%hd4959249659%_) + (_%L49698%_ _%hd4958649639%_)) (if (and (gx#identifier? - _%L49734%_) + _%L49698%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49733%_))) - (_%__kont7929879299%_ - _%L49731%_ - _%L49733%_ - _%L49734%_) + _%L49697%_))) + (_%__kont8006480065%_ + _%L49695%_ + _%L49697%_ + _%L49698%_) (let () (declare (not safe)) - (_%g4950149644%_))))))))) - (_%loop4963349707%_ _%target4963049701%_ '())))) - (_%__match7947479475%_ - (lambda (_%e4958849775%_ - _%hd4958949779%_ - _%tl4959049782%_ - _%e4959149785%_ - _%hd4959249789%_ - _%tl4959349792%_ - _%e4959449795%_ - _%hd4959549799%_ - _%tl4959649802%_ - _%e4959749805%_ - _%hd4959849809%_ - _%tl4959949812%_ - _%e4960049815%_ - _%hd4960149819%_ - _%tl4960249822%_ - _%__splice7929679297%_ - _%target4960349825%_ - _%tl4960549828%_) - (letrec ((_%loop4960649831%_ - (lambda (_%hd4960449835%_ _%body4961049838%_) - (if (gx#stx-pair? _%hd4960449835%_) - (let ((_%e4960749841%_ - (gx#syntax-e _%hd4960449835%_))) - (let ((_%lp-tl4960949848%_ + (_%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 _%e4960749841%_))) - (_%lp-hd4960849845%_ + (##cdr _%e4957149805%_))) + (_%lp-hd4957249809%_ (let () (declare (not safe)) - (##car _%e4960749841%_)))) - (_%loop4960649831%_ - _%lp-tl4960949848%_ - (cons _%lp-hd4960849845%_ - _%body4961049838%_)))) - (let ((_%body4961149851%_ - (reverse _%body4961049838%_))) - (let ((_%L49855%_ _%body4961149851%_) - (_%L49857%_ _%hd4960149819%_) - (_%L49858%_ _%hd4959549799%_)) + (##car _%e4957149805%_)))) + (_%loop4957049795%_ + _%lp-tl4957349812%_ + (cons _%lp-hd4957249809%_ + _%body4957449802%_)))) + (let ((_%body4957549815%_ + (reverse _%body4957449802%_))) + (let ((_%L49819%_ _%body4957549815%_) + (_%L49821%_ _%hd4956549783%_) + (_%L49822%_ _%hd4955949763%_)) (if (and (gx#identifier? - _%L49858%_) + _%L49822%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49857%_))) - (_%__kont7929479295%_ - _%L49855%_ - _%L49857%_ - _%L49858%_) + _%L49821%_))) + (_%__kont8006080061%_ + _%L49819%_ + _%L49821%_ + _%L49822%_) (let () (declare (not safe)) - (_%g4950149644%_))))))))) - (_%loop4960649831%_ _%target4960349825%_ '())))) - (_%__match7943079431%_ - (lambda (_%e4956149897%_ - _%hd4956249901%_ - _%tl4956349904%_ - _%e4956449907%_ - _%hd4956549911%_ - _%tl4956649914%_ - _%e4956749917%_ - _%hd4956849921%_ - _%tl4956949924%_ - _%e4957049927%_ - _%hd4957149931%_ - _%tl4957249934%_ - _%e4957349937%_ - _%hd4957449941%_ - _%tl4957549944%_ - _%__splice7929279293%_ - _%target4957649947%_ - _%tl4957849950%_) - (letrec ((_%loop4957949953%_ - (lambda (_%hd4957749957%_ _%body4958349960%_) - (if (gx#stx-pair? _%hd4957749957%_) - (let ((_%e4958049963%_ - (gx#syntax-e _%hd4957749957%_))) - (let ((_%lp-tl4958249970%_ + (_%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 _%e4958049963%_))) - (_%lp-hd4958149967%_ + (##cdr _%e4954449927%_))) + (_%lp-hd4954549931%_ (let () (declare (not safe)) - (##car _%e4958049963%_)))) - (_%loop4957949953%_ - _%lp-tl4958249970%_ - (cons _%lp-hd4958149967%_ - _%body4958349960%_)))) - (let ((_%body4958449973%_ - (reverse _%body4958349960%_))) - (let ((_%L49977%_ _%body4958449973%_) - (_%L49979%_ _%hd4957449941%_) - (_%L49980%_ _%hd4956849921%_)) + (##car _%e4954449927%_)))) + (_%loop4954349917%_ + _%lp-tl4954649934%_ + (cons _%lp-hd4954549931%_ + _%body4954749924%_)))) + (let ((_%body4954849937%_ + (reverse _%body4954749924%_))) + (let ((_%L49941%_ _%body4954849937%_) + (_%L49943%_ _%hd4953849905%_) + (_%L49944%_ _%hd4953249885%_)) (if (and (gx#identifier? - _%L49980%_) + _%L49944%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49979%_))) - (_%__kont7929079291%_ - _%L49977%_ - _%L49979%_ - _%L49980%_) + _%L49943%_))) + (_%__kont8005680057%_ + _%L49941%_ + _%L49943%_ + _%L49944%_) (let () (declare (not safe)) - (_%g4950149644%_))))))))) - (_%loop4957949953%_ _%target4957649947%_ '())))) - (_%__match7938679387%_ - (lambda (_%e4953450019%_ - _%hd4953550023%_ - _%tl4953650026%_ - _%e4953750029%_ - _%hd4953850033%_ - _%tl4953950036%_ - _%e4954050039%_ - _%hd4954150043%_ - _%tl4954250046%_ - _%e4954350049%_ - _%hd4954450053%_ - _%tl4954550056%_ - _%e4954650059%_ - _%hd4954750063%_ - _%tl4954850066%_ - _%__splice7928879289%_ - _%target4954950069%_ - _%tl4955150072%_) - (letrec ((_%loop4955250075%_ - (lambda (_%hd4955050079%_ _%body4955650082%_) - (if (gx#stx-pair? _%hd4955050079%_) - (let ((_%e4955350085%_ - (gx#syntax-e _%hd4955050079%_))) - (let ((_%lp-tl4955550092%_ + (_%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 _%e4955350085%_))) - (_%lp-hd4955450089%_ + (##cdr _%e4951750049%_))) + (_%lp-hd4951850053%_ (let () (declare (not safe)) - (##car _%e4955350085%_)))) - (_%loop4955250075%_ - _%lp-tl4955550092%_ - (cons _%lp-hd4955450089%_ - _%body4955650082%_)))) - (let ((_%body4955750095%_ - (reverse _%body4955650082%_))) - (let ((_%L50099%_ _%body4955750095%_) - (_%L50101%_ _%hd4954750063%_) - (_%L50102%_ _%hd4954150043%_)) + (##car _%e4951750049%_)))) + (_%loop4951650039%_ + _%lp-tl4951950056%_ + (cons _%lp-hd4951850053%_ + _%body4952050046%_)))) + (let ((_%body4952150059%_ + (reverse _%body4952050046%_))) + (let ((_%L50063%_ _%body4952150059%_) + (_%L50065%_ _%hd4951150027%_) + (_%L50066%_ _%hd4950550007%_)) (if (and (gx#identifier? - _%L50102%_) + _%L50066%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L50101%_))) - (_%__kont7928679287%_ - _%L50099%_ - _%L50101%_ - _%L50102%_) + _%L50065%_))) + (_%__kont8005280053%_ + _%L50063%_ + _%L50065%_ + _%L50066%_) (let () (declare (not safe)) - (_%g4950149644%_))))))))) - (_%loop4955250075%_ _%target4954950069%_ '())))) - (_%__match7936679367%_ - (lambda (_%e4953450019%_ - _%hd4953550023%_ - _%tl4953650026%_ - _%e4953750029%_ - _%hd4953850033%_ - _%tl4953950036%_ - _%e4954050039%_ - _%hd4954150043%_ - _%tl4954250046%_ - _%e4954350049%_ - _%hd4954450053%_ - _%tl4954550056%_) - (if (gx#identifier? _%hd4954450053%_) + (_%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]#_g84143_| - _%hd4954450053%_) - (if (gx#stx-pair? _%tl4954550056%_) - (let ((_%e4954650059%_ - (gx#syntax-e _%tl4954550056%_))) - (let ((_%tl4954850066%_ + |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 _%e4954650059%_))) - (_%hd4954750063%_ + (##cdr _%e4951050023%_))) + (_%hd4951150027%_ (let () (declare (not safe)) - (##car _%e4954650059%_)))) - (if (gx#stx-null? _%tl4954850066%_) + (##car _%e4951050023%_)))) + (if (gx#stx-null? _%tl4951250030%_) (if (gx#stx-pair/null? - _%tl4953950036%_) - (let ((_%__splice7928879289%_ + _%tl4950350000%_) + (let ((_%__splice8005480055%_ (gx#syntax-split-splice - _%tl4953950036%_ + _%tl4950350000%_ '0))) - (let ((_%tl4955150072%_ + (let ((_%tl4951550036%_ (let () (declare (not safe)) (##vector-ref - _%__splice7928879289%_ + _%__splice8005480055%_ '1))) - (_%target4954950069%_ + (_%target4951350033%_ (let () (declare (not safe)) (##vector-ref - _%__splice7928879289%_ + _%__splice8005480055%_ '0)))) (if (gx#stx-null? - _%tl4955150072%_) - (_%__match7938679387%_ - _%e4953450019%_ - _%hd4953550023%_ - _%tl4953650026%_ - _%e4953750029%_ - _%hd4953850033%_ - _%tl4953950036%_ - _%e4954050039%_ - _%hd4954150043%_ - _%tl4954250046%_ - _%e4954350049%_ - _%hd4954450053%_ - _%tl4954550056%_ - _%e4954650059%_ - _%hd4954750063%_ - _%tl4954850066%_ - _%__splice7928879289%_ - _%target4954950069%_ - _%tl4955150072%_) + _%tl4951550036%_) + (_%__match8015280153%_ + _%e4949849983%_ + _%hd4949949987%_ + _%tl4950049990%_ + _%e4950149993%_ + _%hd4950249997%_ + _%tl4950350000%_ + _%e4950450003%_ + _%hd4950550007%_ + _%tl4950650010%_ + _%e4950750013%_ + _%hd4950850017%_ + _%tl4950950020%_ + _%e4951050023%_ + _%hd4951150027%_ + _%tl4951250030%_ + _%__splice8005480055%_ + _%target4951350033%_ + _%tl4951550036%_) (let () (declare (not safe)) - (_%g4950149644%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4950149644%_))) + (_%g4946549608%_))) (let () (declare (not safe)) - (_%g4950149644%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4950149644%_))) + (_%g4946549608%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84144_| - _%hd4954450053%_) - (if (gx#stx-pair? _%tl4954550056%_) - (let ((_%e4957349937%_ - (gx#syntax-e _%tl4954550056%_))) - (let ((_%tl4957549944%_ + |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 _%e4957349937%_))) - (_%hd4957449941%_ + (##cdr _%e4953749901%_))) + (_%hd4953849905%_ (let () (declare (not safe)) - (##car _%e4957349937%_)))) - (if (gx#stx-null? _%tl4957549944%_) + (##car _%e4953749901%_)))) + (if (gx#stx-null? _%tl4953949908%_) (if (gx#stx-pair/null? - _%tl4953950036%_) - (let ((_%__splice7929279293%_ + _%tl4950350000%_) + (let ((_%__splice8005880059%_ (gx#syntax-split-splice - _%tl4953950036%_ + _%tl4950350000%_ '0))) - (let ((_%tl4957849950%_ + (let ((_%tl4954249914%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7929279293%_ '1))) - (_%target4957649947%_ + (##vector-ref _%__splice8005880059%_ '1))) + (_%target4954049911%_ (let () (declare (not safe)) - (##vector-ref _%__splice7929279293%_ '0)))) - (if (gx#stx-null? _%tl4957849950%_) - (_%__match7943079431%_ - _%e4953450019%_ - _%hd4953550023%_ - _%tl4953650026%_ - _%e4953750029%_ - _%hd4953850033%_ - _%tl4953950036%_ - _%e4954050039%_ - _%hd4954150043%_ - _%tl4954250046%_ - _%e4954350049%_ - _%hd4954450053%_ - _%tl4954550056%_ - _%e4957349937%_ - _%hd4957449941%_ - _%tl4957549944%_ - _%__splice7929279293%_ - _%target4957649947%_ - _%tl4957849950%_) - (let () (declare (not safe)) (_%g4950149644%_))))) + (##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)) - (_%g4950149644%_))) + (_%g4946549608%_))) (let () (declare (not safe)) - (_%g4950149644%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4950149644%_))) + (_%g4946549608%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84145_| - _%hd4954450053%_) - (if (gx#stx-pair? _%tl4954550056%_) - (let ((_%e4960049815%_ + |gerbil/core/contract~Using[1]#_g85021_| + _%hd4950850017%_) + (if (gx#stx-pair? _%tl4950950020%_) + (let ((_%e4956449779%_ (gx#syntax-e - _%tl4954550056%_))) - (let ((_%tl4960249822%_ + _%tl4950950020%_))) + (let ((_%tl4956649786%_ (let () (declare (not safe)) - (##cdr _%e4960049815%_))) - (_%hd4960149819%_ + (##cdr _%e4956449779%_))) + (_%hd4956549783%_ (let () (declare (not safe)) - (##car _%e4960049815%_)))) + (##car _%e4956449779%_)))) (if (gx#stx-null? - _%tl4960249822%_) + _%tl4956649786%_) (if (gx#stx-pair/null? - _%tl4953950036%_) - (let ((_%__splice7929679297%_ + _%tl4950350000%_) + (let ((_%__splice8006280063%_ (gx#syntax-split-splice - _%tl4953950036%_ + _%tl4950350000%_ '0))) - (let ((_%tl4960549828%_ + (let ((_%tl4956949792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7929679297%_ '1))) - (_%target4960349825%_ + (##vector-ref _%__splice8006280063%_ '1))) + (_%target4956749789%_ (let () (declare (not safe)) - (##vector-ref _%__splice7929679297%_ '0)))) - (if (gx#stx-null? _%tl4960549828%_) - (_%__match7947479475%_ - _%e4953450019%_ - _%hd4953550023%_ - _%tl4953650026%_ - _%e4953750029%_ - _%hd4953850033%_ - _%tl4953950036%_ - _%e4954050039%_ - _%hd4954150043%_ - _%tl4954250046%_ - _%e4954350049%_ - _%hd4954450053%_ - _%tl4954550056%_ - _%e4960049815%_ - _%hd4960149819%_ - _%tl4960249822%_ - _%__splice7929679297%_ - _%target4960349825%_ - _%tl4960549828%_) - (let () (declare (not safe)) (_%g4950149644%_))))) - (let () (declare (not safe)) (_%g4950149644%_))) + (##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)) - (_%g4950149644%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4950149644%_))) + (_%g4946549608%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84146_| - _%hd4954450053%_) - (if (gx#stx-pair? _%tl4954550056%_) - (let ((_%e4962749691%_ + |gerbil/core/contract~Using[1]#_g85022_| + _%hd4950850017%_) + (if (gx#stx-pair? _%tl4950950020%_) + (let ((_%e4959149655%_ (gx#syntax-e - _%tl4954550056%_))) - (let ((_%tl4962949698%_ + _%tl4950950020%_))) + (let ((_%tl4959349662%_ (let () (declare (not safe)) - (##cdr _%e4962749691%_))) - (_%hd4962849695%_ + (##cdr _%e4959149655%_))) + (_%hd4959249659%_ (let () (declare (not safe)) - (##car _%e4962749691%_)))) + (##car _%e4959149655%_)))) (if (gx#stx-null? - _%tl4962949698%_) + _%tl4959349662%_) (if (gx#stx-pair/null? - _%tl4953950036%_) - (let ((_%__splice7930079301%_ + _%tl4950350000%_) + (let ((_%__splice8006680067%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4953950036%_ '0))) - (let ((_%tl4963249704%_ + (gx#syntax-split-splice _%tl4950350000%_ '0))) + (let ((_%tl4959649668%_ (let () (declare (not safe)) - (##vector-ref _%__splice7930079301%_ '1))) - (_%target4963049701%_ + (##vector-ref _%__splice8006680067%_ '1))) + (_%target4959449665%_ (let () (declare (not safe)) - (##vector-ref _%__splice7930079301%_ '0)))) - (if (gx#stx-null? _%tl4963249704%_) - (_%__match7951879519%_ - _%e4953450019%_ - _%hd4953550023%_ - _%tl4953650026%_ - _%e4953750029%_ - _%hd4953850033%_ - _%tl4953950036%_ - _%e4954050039%_ - _%hd4954150043%_ - _%tl4954250046%_ - _%e4954350049%_ - _%hd4954450053%_ - _%tl4954550056%_ - _%e4962749691%_ - _%hd4962849695%_ - _%tl4962949698%_ - _%__splice7930079301%_ - _%target4963049701%_ - _%tl4963249704%_) - (let () (declare (not safe)) (_%g4950149644%_))))) - (let () (declare (not safe)) (_%g4950149644%_))) - (let () (declare (not safe)) (_%g4950149644%_))))) + (##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)) - (_%g4950149644%_))) + (_%g4946549608%_))) (let () (declare (not safe)) - (_%g4950149644%_)))))) - (let () (declare (not safe)) (_%g4950149644%_))))) - (_%__match7934279343%_ - (lambda (_%e4950750141%_ - _%hd4950850145%_ - _%tl4950950148%_ - _%e4951050151%_ - _%hd4951150155%_ - _%tl4951250158%_ - _%e4951350161%_ - _%hd4951450165%_ - _%tl4951550168%_ - _%e4951650171%_ - _%hd4951750175%_ - _%tl4951850178%_ - _%e4951950181%_ - _%hd4952050185%_ - _%tl4952150188%_ - _%__splice7928479285%_ - _%target4952250191%_ - _%tl4952450194%_) - (letrec ((_%loop4952550197%_ - (lambda (_%hd4952350201%_ _%body4952950204%_) - (if (gx#stx-pair? _%hd4952350201%_) - (let ((_%e4952650207%_ - (gx#syntax-e _%hd4952350201%_))) - (let ((_%lp-tl4952850214%_ + (_%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 _%e4952650207%_))) - (_%lp-hd4952750211%_ + (##cdr _%e4949050171%_))) + (_%lp-hd4949150175%_ (let () (declare (not safe)) - (##car _%e4952650207%_)))) - (_%loop4952550197%_ - _%lp-tl4952850214%_ - (cons _%lp-hd4952750211%_ - _%body4952950204%_)))) - (let ((_%body4953050217%_ - (reverse _%body4952950204%_))) - (let ((_%L50221%_ _%body4953050217%_) - (_%L50223%_ _%hd4952050185%_) - (_%L50224%_ _%hd4951750175%_) - (_%L50225%_ _%hd4951450165%_)) - (if (let ((__tmp84147 + (##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 - _%L50223%_ + _%L50187%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84147)) - (_%__kont7928279283%_ - _%L50221%_ - _%L50223%_ - _%L50224%_ - _%L50225%_) - (_%__match7936679367%_ - _%e4950750141%_ - _%hd4950850145%_ - _%tl4950950148%_ - _%e4951050151%_ - _%hd4951150155%_ - _%tl4951250158%_ - _%e4951350161%_ - _%hd4951450165%_ - _%tl4951550168%_ - _%e4951650171%_ - _%hd4951750175%_ - _%tl4951850178%_)))))))) - (_%loop4952550197%_ _%target4952250191%_ '()))))) - (if (gx#stx-pair? _%__stx7927979280%_) - (let ((_%e4950750141%_ (gx#syntax-e _%__stx7927979280%_))) - (let ((_%tl4950950148%_ + __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 _%e4950750141%_))) - (_%hd4950850145%_ + (##cdr _%e4947150105%_))) + (_%hd4947250109%_ (let () (declare (not safe)) - (##car _%e4950750141%_)))) - (if (gx#stx-pair? _%tl4950950148%_) - (let ((_%e4951050151%_ - (gx#syntax-e _%tl4950950148%_))) - (let ((_%tl4951250158%_ + (##car _%e4947150105%_)))) + (if (gx#stx-pair? _%tl4947350112%_) + (let ((_%e4947450115%_ + (gx#syntax-e _%tl4947350112%_))) + (let ((_%tl4947650122%_ (let () (declare (not safe)) - (##cdr _%e4951050151%_))) - (_%hd4951150155%_ + (##cdr _%e4947450115%_))) + (_%hd4947550119%_ (let () (declare (not safe)) - (##car _%e4951050151%_)))) - (if (gx#stx-pair? _%hd4951150155%_) - (let ((_%e4951350161%_ - (gx#syntax-e _%hd4951150155%_))) - (let ((_%tl4951550168%_ + (##car _%e4947450115%_)))) + (if (gx#stx-pair? _%hd4947550119%_) + (let ((_%e4947750125%_ + (gx#syntax-e _%hd4947550119%_))) + (let ((_%tl4947950132%_ (let () (declare (not safe)) - (##cdr _%e4951350161%_))) - (_%hd4951450165%_ + (##cdr _%e4947750125%_))) + (_%hd4947850129%_ (let () (declare (not safe)) - (##car _%e4951350161%_)))) - (if (gx#stx-pair? _%tl4951550168%_) - (let ((_%e4951650171%_ + (##car _%e4947750125%_)))) + (if (gx#stx-pair? _%tl4947950132%_) + (let ((_%e4948050135%_ (gx#syntax-e - _%tl4951550168%_))) - (let ((_%tl4951850178%_ + _%tl4947950132%_))) + (let ((_%tl4948250142%_ (let () (declare (not safe)) - (##cdr _%e4951650171%_))) - (_%hd4951750175%_ + (##cdr _%e4948050135%_))) + (_%hd4948150139%_ (let () (declare (not safe)) - (##car _%e4951650171%_)))) + (##car _%e4948050135%_)))) (if (gx#stx-pair? - _%tl4951850178%_) - (let ((_%e4951950181%_ + _%tl4948250142%_) + (let ((_%e4948350145%_ (gx#syntax-e - _%tl4951850178%_))) - (let ((_%tl4952150188%_ + _%tl4948250142%_))) + (let ((_%tl4948550152%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4951950181%_))) - (_%hd4952050185%_ - (let () (declare (not safe)) (##car _%e4951950181%_)))) - (if (gx#stx-null? _%tl4952150188%_) - (if (gx#stx-pair/null? _%tl4951250158%_) - (let ((_%__splice7928479285%_ - (gx#syntax-split-splice _%tl4951250158%_ '0))) - (let ((_%tl4952450194%_ + (##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 _%__splice7928479285%_ '1))) - (_%target4952250191%_ + (##vector-ref _%__splice8005080051%_ '1))) + (_%target4948650155%_ (let () (declare (not safe)) - (##vector-ref _%__splice7928479285%_ '0)))) - (if (gx#stx-null? _%tl4952450194%_) - (_%__match7934279343%_ - _%e4950750141%_ - _%hd4950850145%_ - _%tl4950950148%_ - _%e4951050151%_ - _%hd4951150155%_ - _%tl4951250158%_ - _%e4951350161%_ - _%hd4951450165%_ - _%tl4951550168%_ - _%e4951650171%_ - _%hd4951750175%_ - _%tl4951850178%_ - _%e4951950181%_ - _%hd4952050185%_ - _%tl4952150188%_ - _%__splice7928479285%_ - _%target4952250191%_ - _%tl4952450194%_) + (##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)) - (_%g4950149644%_))))) - (let () (declare (not safe)) (_%g4950149644%_))) - (let () (declare (not safe)) (_%g4950149644%_))))) + (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))) + (let () (declare (not safe)) (_%g4946549608%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4950149644%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4950149644%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4950149644%_))))) - (let () (declare (not safe)) (_%g4950149644%_))))) - (let () (declare (not safe)) (_%g4950149644%_))))))))) + (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| - (lambda (_%stx50715%_) - (let* ((_%__stx7952179522%_ _%stx50715%_) - (_%g5072050780%_ + (lambda (_%stx50679%_) + (let* ((_%__stx8028780288%_ _%stx50679%_) + (_%g5068450744%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7952179522%_)))) - (let ((_%__kont7952479525%_ - (lambda (_%L51342%_ _%L51344%_) + _%__stx8028780288%_)))) + (let ((_%__kont8029080291%_ + (lambda (_%L51306%_ _%L51308%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) - (cons _%L51344%_ '())) - (foldr (lambda (_%g5136051363%_ _%g5136151366%_) - (cons _%g5136051363%_ _%g5136151366%_)) + (cons _%L51308%_ '())) + (foldr (lambda (_%g5132451327%_ _%g5132551330%_) + (cons _%g5132451327%_ _%g5132551330%_)) '() - _%L51342%_))))) - (_%__kont7952879529%_ - (lambda (_%L50928%_ _%L50930%_) + _%L51306%_))))) + (_%__kont8029480295%_ + (lambda (_%L50892%_ _%L50894%_) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L50930%_) - (let* ((_%g5095050957%_ + _%L50894%_) + (let* ((_%g5091450921%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx50715%_ - _%L50930%_)) - (_%E5095250963%_ + _%stx50679%_ + _%L50894%_)) + (_%E5091650927%_ (lambda () (error '"No clause matching" - _%g5095050957%_ + _%g5091450921%_ '([var . parts])) (void))) - (_%K5095351261%_ - (lambda (_%parts50967%_ _%var50969%_) - (let ((_%$e50971%_ + (_%K5091751225%_ + (lambda (_%parts50931%_ _%var50933%_) + (let ((_%$e50935%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var50969%_)))) - (if _%$e50971%_ - ((lambda (_%te50975%_) - (let _%loop50978%_ ((_%parts50981%_ - _%parts50967%_) - (_%type50983%_ + _%var50933%_)))) + (if _%$e50935%_ + ((lambda (_%te50939%_) + (let _%loop50942%_ ((_%parts50945%_ + _%parts50931%_) + (_%type50947%_ (##direct-structure-ref - _%te50975%_ + _%te50939%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object50984%_ - _%var50969%_) - (_%checked-method?50985%_ + (_%object50948%_ + _%var50933%_) + (_%checked-method?50949%_ (##direct-structure-ref - _%te50975%_ + _%te50939%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?50986%_ + (_%nil-check?50950%_ '#f)) - (let* ((_%parts5098750995%_ - _%parts50981%_) - (_%else5098951056%_ + (let* ((_%parts5095150959%_ + _%parts50945%_) + (_%else5095351020%_ (lambda () - (let* ((_%g5100751015%_ - (lambda (_%g5100851011%_) + (let* ((_%g5097150979%_ + (lambda (_%g5097250975%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g5100851011%_))) - (_%g5100651052%_ - (lambda (_%g5100851019%_) - ((lambda (_%L51022%_) + _%g5097250975%_))) + (_%g5097051016%_ + (lambda (_%g5097250983%_) + ((lambda (_%L50986%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L51022%_ - (foldr (lambda (_%g5104351046%_ - _%g5104451049%_) - (cons _%g5104351046%_ - _%g5104451049%_)) + (cons _%L50986%_ + (foldr (lambda (_%g5100751010%_ + _%g5100851013%_) + (cons _%g5100751010%_ + _%g5100851013%_)) '() - _%L50928%_)))) - _%g5100851019%_)))) - (_%g5100651052%_ _%object50984%_)))) + _%L50892%_)))) + _%g5097250983%_)))) + (_%g5097051016%_ _%object50948%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5099151235%_ - (lambda (_%rest51060%_ - _%part51062%_) - (if (and (not _%nil-check?50986%_) - (let ((__tmp84148 + (_%K5095551199%_ + (lambda (_%rest51024%_ + _%part51026%_) + (if (and (not _%nil-check?50950%_) + (let ((__tmp85024 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51062%_))) + (symbol->string _%part51026%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84148))) - (let ((_%str51066%_ (symbol->string _%part51062%_))) - (_%loop50978%_ - (cons (let ((__tmp84149 + (##string-prefix? '"?" __tmp85024))) + (let ((_%str51030%_ (symbol->string _%part51026%_))) + (_%loop50942%_ + (cons (let ((__tmp85025 (substring - _%str51066%_ + _%str51030%_ '1 - (string-length _%str51066%_)))) + (string-length _%str51030%_)))) (declare (not safe)) - (##string->symbol __tmp84149)) - _%rest51060%_) - _%type50983%_ - _%object50984%_ - _%checked-method?50985%_ + (##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 - _%type50983%_)) - (let* ((_%g5107151086%_ - (lambda (_%g5107251082%_) + _%type50947%_)) + (let* ((_%g5103551050%_ + (lambda (_%g5103651046%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5107251082%_))) - (_%g5107051155%_ - (lambda (_%g5107251090%_) - (if (gx#stx-pair? _%g5107251090%_) - (let ((_%e5107551093%_ - (gx#syntax-e _%g5107251090%_))) - (let ((_%hd5107651097%_ + _%g5103651046%_))) + (_%g5103451119%_ + (lambda (_%g5103651054%_) + (if (gx#stx-pair? _%g5103651054%_) + (let ((_%e5103951057%_ + (gx#syntax-e _%g5103651054%_))) + (let ((_%hd5104051061%_ (let () (declare (not safe)) - (##car _%e5107551093%_))) - (_%tl5107751100%_ + (##car _%e5103951057%_))) + (_%tl5104151064%_ (let () (declare (not safe)) - (##cdr _%e5107551093%_)))) - (if (gx#stx-pair? _%tl5107751100%_) - (let ((_%e5107851103%_ + (##cdr _%e5103951057%_)))) + (if (gx#stx-pair? _%tl5104151064%_) + (let ((_%e5104251067%_ (gx#syntax-e - _%tl5107751100%_))) - (let ((_%hd5107951107%_ + _%tl5104151064%_))) + (let ((_%hd5104351071%_ (let () (declare (not safe)) - (##car _%e5107851103%_))) - (_%tl5108051110%_ + (##car _%e5104251067%_))) + (_%tl5104451074%_ (let () (declare (not safe)) - (##cdr _%e5107851103%_)))) + (##cdr _%e5104251067%_)))) (if (gx#stx-null? - _%tl5108051110%_) - ((lambda (_%L51113%_ - _%L51115%_) - (if (null? _%rest51060%_) + _%tl5104451074%_) + ((lambda (_%L51077%_ + _%L51079%_) + (if (null? _%rest51024%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%app) - (cons (cons _%L51113%_ (cons _%L51115%_ '())) - (foldr (lambda (_%g5113451137%_ _%g5113551140%_) - (cons _%g5113451137%_ _%g5113551140%_)) + (cons (cons _%L51077%_ (cons _%L51079%_ '())) + (foldr (lambda (_%g5109851101%_ _%g5109951104%_) + (cons _%g5109851101%_ _%g5109951104%_)) '() - _%L50928%_))) - (let ((_%$e51143%_ + _%L50892%_))) + (let ((_%$e51107%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type50983%_ - _%part51062%_))) - (if _%$e51143%_ - ((lambda (_%slot-type51147%_) - (let ((_%slot-type51150%_ + _%type50947%_ + _%part51026%_))) + (if _%$e51107%_ + ((lambda (_%slot-type51111%_) + (let ((_%slot-type51114%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx50715%_ - _%slot-type51147%_)))) - (_%loop50978%_ - _%rest51060%_ - _%slot-type51150%_ - (cons _%L51113%_ (cons _%L51115%_ '())) + _%stx50679%_ + _%slot-type51111%_)))) + (_%loop50942%_ + _%rest51024%_ + _%slot-type51114%_ + (cons _%L51077%_ (cons _%L51079%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - _%type50983%_ - _%part51062%_) + _%type50947%_ + _%part51026%_) '#f))) - _%$e51143%_) + _%$e51107%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx50715%_ - _%L50930%_ - _%part51062%_))))) + _%stx50679%_ + _%L50894%_ + _%part51026%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5107951107%_ - _%hd5107651097%_) - (_%g5107151086%_ - _%g5107251090%_)))) - (_%g5107151086%_ - _%g5107251090%_)))) - (_%g5107151086%_ _%g5107251090%_))))) - (_%g5107051155%_ - (list (if _%nil-check?50986%_ + _%hd5104351071%_ + _%hd5104051061%_) + (_%g5103551050%_ + _%g5103651054%_)))) + (_%g5103551050%_ + _%g5103651054%_)))) + (_%g5103551050%_ _%g5103651054%_))))) + (_%g5103451119%_ + (list (if _%nil-check?50950%_ (cons 'check-nil! - (cons _%object50984%_ '())) - _%object50984%_) + (cons _%object50948%_ '())) + _%object50948%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx50715%_ - _%type50983%_ - _%part51062%_)))) + _%stx50679%_ + _%type50947%_ + _%part51026%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type50983%_)) - (if (null? _%rest51060%_) - (let* ((_%g5116151176%_ - (lambda (_%g5116251172%_) + _%type50947%_)) + (if (null? _%rest51024%_) + (let* ((_%g5112551140%_ + (lambda (_%g5112651136%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5116251172%_))) - (_%g5116051229%_ - (lambda (_%g5116251180%_) - (if (gx#stx-pair? _%g5116251180%_) - (let ((_%e5116551183%_ + _%g5112651136%_))) + (_%g5112451193%_ + (lambda (_%g5112651144%_) + (if (gx#stx-pair? _%g5112651144%_) + (let ((_%e5112951147%_ (gx#syntax-e - _%g5116251180%_))) - (let ((_%hd5116651187%_ + _%g5112651144%_))) + (let ((_%hd5113051151%_ (let () (declare (not safe)) - (##car _%e5116551183%_))) - (_%tl5116751190%_ + (##car _%e5112951147%_))) + (_%tl5113151154%_ (let () (declare (not safe)) - (##cdr _%e5116551183%_)))) + (##cdr _%e5112951147%_)))) (if (gx#stx-pair? - _%tl5116751190%_) - (let ((_%e5116851193%_ + _%tl5113151154%_) + (let ((_%e5113251157%_ (gx#syntax-e - _%tl5116751190%_))) - (let ((_%hd5116951197%_ + _%tl5113151154%_))) + (let ((_%hd5113351161%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5116851193%_))) - (_%tl5117051200%_ - (let () (declare (not safe)) (##cdr _%e5116851193%_)))) - (if (gx#stx-null? _%tl5117051200%_) - ((lambda (_%L51203%_ _%L51205%_) - (cons _%L51203%_ - (cons _%L51205%_ - (foldr (lambda (_%g5122051223%_ - _%g5122151226%_) - (cons _%g5122051223%_ - _%g5122151226%_)) + (##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%_)) '() - _%L50928%_)))) - _%hd5116951197%_ - _%hd5116651187%_) - (_%g5116151176%_ _%g5116251180%_)))) + _%L50892%_)))) + _%hd5113351161%_ + _%hd5113051151%_) + (_%g5112551140%_ _%g5112651144%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5116151176%_ - _%g5116251180%_)))) - (_%g5116151176%_ - _%g5116251180%_))))) - (_%g5116051229%_ - (list (if _%nil-check?50986%_ + (_%g5112551140%_ + _%g5112651144%_)))) + (_%g5112551140%_ + _%g5112651144%_))))) + (_%g5112451193%_ + (list (if _%nil-check?50950%_ (cons 'check-nil! - (cons _%object50984%_ '())) - _%object50984%_) + (cons _%object50948%_ '())) + _%object50948%_) (gx#stx-identifier - _%L50930%_ - (if _%checked-method?50985%_ '"" '"&") - (let ((__obj83978 _%type50983%_)) + _%L50894%_ + (if _%checked-method?50949%_ '"" '"&") + (let ((__obj84837 _%type50947%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83978 + __obj84837 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83978 + __obj84837 '1 '#f '#f)) (unchecked-slot-ref - __obj83978 + __obj84837 'name))) '"-" - _%part51062%_)))) + _%part51026%_)))) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots" - _%stx50715%_ - _%L50930%_ - _%part51062%_)) + _%stx50679%_ + _%L50894%_ + _%part51026%_)) (gx#raise-syntax-error '#f '"unexpected type" - _%stx50715%_ - _%type50983%_))))))) + _%stx50679%_ + _%type50947%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5098750995%_) - (let ((_%hd5099251239%_ + (if (pair? _%parts5095150959%_) + (let ((_%hd5095651203%_ (let () (declare (not safe)) - (##car _%parts5098750995%_))) - (_%tl5099351242%_ + (##car _%parts5095150959%_))) + (_%tl5095751206%_ (let () (declare (not safe)) - (##cdr _%parts5098750995%_)))) - (let* ((_%part51245%_ - _%hd5099251239%_) - (_%rest51248%_ - _%tl5099351242%_)) - (_%K5099151235%_ - _%rest51248%_ - _%part51245%_))) - (_%else5098951056%_))))) - _%$e50971%_) + (##cdr _%parts5095150959%_)))) + (let* ((_%part51209%_ + _%hd5095651203%_) + (_%rest51212%_ + _%tl5095751206%_)) + (_%K5095551199%_ + _%rest51212%_ + _%part51209%_))) + (_%else5095351020%_))))) + _%$e50935%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50930%_ - (foldr (lambda (_%g5125251255%_ + (cons _%L50894%_ + (foldr (lambda (_%g5121651219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5125351258%_) - (cons _%g5125251255%_ _%g5125351258%_)) + _%g5121751222%_) + (cons _%g5121651219%_ _%g5121751222%_)) '() - _%L50928%_)))))))) + _%L50892%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g5095050957%_) - (let ((_%hd5095451265%_ + (if (pair? _%g5091450921%_) + (let ((_%hd5091851229%_ (let () (declare (not safe)) - (##car _%g5095050957%_))) - (_%tl5095551268%_ + (##car _%g5091450921%_))) + (_%tl5091951232%_ (let () (declare (not safe)) - (##cdr _%g5095050957%_)))) - (let* ((_%var51271%_ _%hd5095451265%_) - (_%parts51274%_ _%tl5095551268%_)) - (_%K5095351261%_ - _%parts51274%_ - _%var51271%_))) - (_%E5095250963%_))) + (##cdr _%g5091450921%_)))) + (let* ((_%var51235%_ _%hd5091851229%_) + (_%parts51238%_ _%tl5091951232%_)) + (_%K5091751225%_ + _%parts51238%_ + _%var51235%_))) + (_%E5091650927%_))) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50930%_ - (foldr (lambda (_%g5127651279%_ - _%g5127751282%_) - (cons _%g5127651279%_ - _%g5127751282%_)) + (cons _%L50894%_ + (foldr (lambda (_%g5124051243%_ + _%g5124151246%_) + (cons _%g5124051243%_ + _%g5124151246%_)) '() - _%L50928%_)))))) - (_%__kont7953279533%_ - (lambda (_%L50827%_) + _%L50892%_)))))) + (_%__kont8029880299%_ + (lambda (_%L50791%_) (cons (gx#datum->syntax '#f '%%app) - (foldr (lambda (_%g5084250845%_ _%g5084350848%_) - (cons _%g5084250845%_ _%g5084350848%_)) + (foldr (lambda (_%g5080650809%_ _%g5080750812%_) + (cons _%g5080650809%_ _%g5080750812%_)) '() - _%L50827%_))))) - (let* ((_%__match7960879609%_ - (lambda (_%e5076350787%_ - _%hd5076450791%_ - _%tl5076550794%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) - (letrec ((_%loop5076950803%_ - (lambda (_%hd5076750807%_ _%arg5077350810%_) - (if (gx#stx-pair? _%hd5076750807%_) - (let ((_%e5077050813%_ - (gx#syntax-e _%hd5076750807%_))) - (let ((_%lp-tl5077250820%_ + _%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 _%e5077050813%_))) - (_%lp-hd5077150817%_ + (##cdr _%e5073450777%_))) + (_%lp-hd5073550781%_ (let () (declare (not safe)) - (##car _%e5077050813%_)))) - (_%loop5076950803%_ - _%lp-tl5077250820%_ - (cons _%lp-hd5077150817%_ - _%arg5077350810%_)))) - (let ((_%arg5077450823%_ - (reverse _%arg5077350810%_))) - (_%__kont7953279533%_ - _%arg5077450823%_)))))) - (_%loop5076950803%_ _%target5076650797%_ '())))) - (_%__match7959479595%_ - (lambda (_%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%e5074450868%_ - _%hd5074550872%_ - _%tl5074650875%_ - _%e5074750878%_ - _%hd5074850882%_ - _%tl5074950885%_ - _%e5075050888%_ - _%hd5075150892%_ - _%tl5075250895%_ - _%__splice7953079531%_ - _%target5075350898%_ - _%tl5075550901%_) - (letrec ((_%loop5075650904%_ - (lambda (_%hd5075450908%_ _%rand5076050911%_) - (if (gx#stx-pair? _%hd5075450908%_) - (let ((_%e5075750914%_ - (gx#syntax-e _%hd5075450908%_))) - (let ((_%lp-tl5075950921%_ + (##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 _%e5075750914%_))) - (_%lp-hd5075850918%_ + (##cdr _%e5072150878%_))) + (_%lp-hd5072250882%_ (let () (declare (not safe)) - (##car _%e5075750914%_)))) - (_%loop5075650904%_ - _%lp-tl5075950921%_ - (cons _%lp-hd5075850918%_ - _%rand5076050911%_)))) - (let ((_%rand5076150924%_ - (reverse _%rand5076050911%_))) - (_%__kont7952879529%_ - _%rand5076150924%_ - _%hd5075150892%_)))))) - (_%loop5075650904%_ _%target5075350898%_ '())))) - (_%__match7956879569%_ - (lambda (_%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%e5074450868%_ - _%hd5074550872%_ - _%tl5074650875%_) - (if (gx#stx-pair? _%hd5074550872%_) - (let ((_%e5074750878%_ - (gx#syntax-e _%hd5074550872%_))) - (let ((_%tl5074950885%_ + (##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 _%e5074750878%_))) - (_%hd5074850882%_ + (##cdr _%e5071150842%_))) + (_%hd5071250846%_ (let () (declare (not safe)) - (##car _%e5074750878%_)))) - (if (gx#identifier? _%hd5074850882%_) + (##car _%e5071150842%_)))) + (if (gx#identifier? _%hd5071250846%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84150_| - _%hd5074850882%_) - (if (gx#stx-pair? _%tl5074950885%_) - (let ((_%e5075050888%_ + |gerbil/core/contract~Using[1]#_g85026_| + _%hd5071250846%_) + (if (gx#stx-pair? _%tl5071350849%_) + (let ((_%e5071450852%_ (gx#syntax-e - _%tl5074950885%_))) - (let ((_%tl5075250895%_ + _%tl5071350849%_))) + (let ((_%tl5071650859%_ (let () (declare (not safe)) - (##cdr _%e5075050888%_))) - (_%hd5075150892%_ + (##cdr _%e5071450852%_))) + (_%hd5071550856%_ (let () (declare (not safe)) - (##car _%e5075050888%_)))) + (##car _%e5071450852%_)))) (if (gx#stx-null? - _%tl5075250895%_) + _%tl5071650859%_) (if (gx#stx-pair/null? - _%tl5074650875%_) - (let ((_%__splice7953079531%_ + _%tl5071050839%_) + (let ((_%__splice8029680297%_ (gx#syntax-split-splice - _%tl5074650875%_ + _%tl5071050839%_ '0))) - (let ((_%tl5075550901%_ + (let ((_%tl5071950865%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7953079531%_ '1))) - (_%target5075350898%_ + (##vector-ref _%__splice8029680297%_ '1))) + (_%target5071750862%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953079531%_ '0)))) - (if (gx#stx-null? _%tl5075550901%_) - (_%__match7959479595%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%e5074450868%_ - _%hd5074550872%_ - _%tl5074650875%_ - _%e5074750878%_ - _%hd5074850882%_ - _%tl5074950885%_ - _%e5075050888%_ - _%hd5075150892%_ - _%tl5075250895%_ - _%__splice7953079531%_ - _%target5075350898%_ - _%tl5075550901%_) - (if (gx#stx-pair/null? _%tl5074350865%_) - (let ((_%__splice7953479535%_ - (gx#syntax-split-splice _%tl5074350865%_ '0))) - (let ((_%tl5076850800%_ + (##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 _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))))) - (if (gx#stx-pair/null? _%tl5074350865%_) - (let ((_%__splice7953479535%_ - (gx#syntax-split-splice _%tl5074350865%_ '0))) - (let ((_%tl5076850800%_ + (_%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 _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) - (let () (declare (not safe)) (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))) + (##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? - _%tl5074350865%_) - (let ((_%__splice7953479535%_ + _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5074350865%_ + _%tl5070750829%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) - (let () (declare (not safe)) (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))))) + (##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? - _%tl5074350865%_) - (let ((_%__splice7953479535%_ + _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5074350865%_ + _%tl5070750829%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5076850800%_) - (_%__match7960879609%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_)))) - (if (gx#stx-pair/null? _%tl5074350865%_) - (let ((_%__splice7953479535%_ + (_%g5068450744%_)))) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5074350865%_ + _%tl5070750829%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5076850800%_) - (_%__match7960879609%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_)))) - (if (gx#stx-pair/null? _%tl5074350865%_) - (let ((_%__splice7953479535%_ + (_%g5068450744%_)))) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5074350865%_ + _%tl5070750829%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_)))))) - (if (gx#stx-pair/null? _%tl5074350865%_) - (let ((_%__splice7953479535%_ + (_%g5068450744%_)))))) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5074350865%_ + _%tl5070750829%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5074150858%_ - _%hd5074250862%_ - _%tl5074350865%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_)))))) - (_%__match7955679557%_ - (lambda (_%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%e5072751302%_ - _%hd5072851306%_ - _%tl5072951309%_ - _%__splice7952679527%_ - _%target5073051312%_ - _%tl5073251315%_) - (letrec ((_%loop5073351318%_ - (lambda (_%hd5073151322%_ _%rand5073751325%_) - (if (gx#stx-pair? _%hd5073151322%_) - (let ((_%e5073451328%_ - (gx#syntax-e _%hd5073151322%_))) - (let ((_%lp-tl5073651335%_ + (_%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 _%e5073451328%_))) - (_%lp-hd5073551332%_ + (##cdr _%e5069851292%_))) + (_%lp-hd5069951296%_ (let () (declare (not safe)) - (##car _%e5073451328%_)))) - (_%loop5073351318%_ - _%lp-tl5073651335%_ - (cons _%lp-hd5073551332%_ - _%rand5073751325%_)))) - (let ((_%rand5073851338%_ - (reverse _%rand5073751325%_))) - (let ((_%L51342%_ _%rand5073851338%_) - (_%L51344%_ _%hd5072851306%_)) - (if (gx#identifier? _%L51344%_) - (_%__kont7952479525%_ - _%L51342%_ - _%L51344%_) - (_%__match7956879569%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%e5072751302%_ - _%hd5072851306%_ - _%tl5072951309%_)))))))) - (_%loop5073351318%_ _%target5073051312%_ '()))))) - (if (gx#stx-pair? _%__stx7952179522%_) - (let ((_%e5072451292%_ (gx#syntax-e _%__stx7952179522%_))) - (let ((_%tl5072651299%_ + (##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 _%e5072451292%_))) - (_%hd5072551296%_ + (##cdr _%e5068851256%_))) + (_%hd5068951260%_ (let () (declare (not safe)) - (##car _%e5072451292%_)))) - (if (gx#stx-pair? _%tl5072651299%_) - (let ((_%e5072751302%_ - (gx#syntax-e _%tl5072651299%_))) - (let ((_%tl5072951309%_ + (##car _%e5068851256%_)))) + (if (gx#stx-pair? _%tl5069051263%_) + (let ((_%e5069151266%_ + (gx#syntax-e _%tl5069051263%_))) + (let ((_%tl5069351273%_ (let () (declare (not safe)) - (##cdr _%e5072751302%_))) - (_%hd5072851306%_ + (##cdr _%e5069151266%_))) + (_%hd5069251270%_ (let () (declare (not safe)) - (##car _%e5072751302%_)))) - (if (gx#stx-pair/null? _%tl5072951309%_) - (let ((_%__splice7952679527%_ + (##car _%e5069151266%_)))) + (if (gx#stx-pair/null? _%tl5069351273%_) + (let ((_%__splice8029280293%_ (gx#syntax-split-splice - _%tl5072951309%_ + _%tl5069351273%_ '0))) - (let ((_%tl5073251315%_ + (let ((_%tl5069651279%_ (let () (declare (not safe)) (##vector-ref - _%__splice7952679527%_ + _%__splice8029280293%_ '1))) - (_%target5073051312%_ + (_%target5069451276%_ (let () (declare (not safe)) (##vector-ref - _%__splice7952679527%_ + _%__splice8029280293%_ '0)))) - (if (gx#stx-null? _%tl5073251315%_) - (_%__match7955679557%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%e5072751302%_ - _%hd5072851306%_ - _%tl5072951309%_ - _%__splice7952679527%_ - _%target5073051312%_ - _%tl5073251315%_) - (if (gx#stx-pair? _%hd5072851306%_) - (let ((_%e5074750878%_ + (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 - _%hd5072851306%_))) - (let ((_%tl5074950885%_ + _%hd5069251270%_))) + (let ((_%tl5071350849%_ (let () (declare (not safe)) - (##cdr _%e5074750878%_))) - (_%hd5074850882%_ + (##cdr _%e5071150842%_))) + (_%hd5071250846%_ (let () (declare (not safe)) - (##car _%e5074750878%_)))) + (##car _%e5071150842%_)))) (if (gx#identifier? - _%hd5074850882%_) + _%hd5071250846%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84150_| - _%hd5074850882%_) + |gerbil/core/contract~Using[1]#_g85026_| + _%hd5071250846%_) (if (gx#stx-pair? - _%tl5074950885%_) - (let ((_%e5075050888%_ + _%tl5071350849%_) + (let ((_%e5071450852%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5074950885%_))) - (let ((_%tl5075250895%_ + (gx#syntax-e _%tl5071350849%_))) + (let ((_%tl5071650859%_ (let () (declare (not safe)) - (##cdr _%e5075050888%_))) - (_%hd5075150892%_ + (##cdr _%e5071450852%_))) + (_%hd5071550856%_ (let () (declare (not safe)) - (##car _%e5075050888%_)))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ + (##car _%e5071450852%_)))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5072651299%_ + _%tl5069051263%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_))))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ - (gx#syntax-split-splice _%tl5072651299%_ '0))) - (let ((_%tl5076850800%_ + (_%g5068450744%_))))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5069051263%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ - (gx#syntax-split-splice _%tl5072651299%_ '0))) - (let ((_%tl5076850800%_ + (_%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 _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ - (gx#syntax-split-splice _%tl5072651299%_ '0))) - (let ((_%tl5076850800%_ + (_%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 _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) - (let () (declare (not safe)) (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))))) + (##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? - _%tl5072651299%_) - (let ((_%__splice7953479535%_ + _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5072651299%_ + _%tl5069051263%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_))))))) - (if (gx#stx-pair? _%hd5072851306%_) - (let ((_%e5074750878%_ - (gx#syntax-e _%hd5072851306%_))) - (let ((_%tl5074950885%_ + (_%g5068450744%_))))))) + (if (gx#stx-pair? _%hd5069251270%_) + (let ((_%e5071150842%_ + (gx#syntax-e _%hd5069251270%_))) + (let ((_%tl5071350849%_ (let () (declare (not safe)) - (##cdr _%e5074750878%_))) - (_%hd5074850882%_ + (##cdr _%e5071150842%_))) + (_%hd5071250846%_ (let () (declare (not safe)) - (##car _%e5074750878%_)))) - (if (gx#identifier? _%hd5074850882%_) + (##car _%e5071150842%_)))) + (if (gx#identifier? _%hd5071250846%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84150_| - _%hd5074850882%_) + |gerbil/core/contract~Using[1]#_g85026_| + _%hd5071250846%_) (if (gx#stx-pair? - _%tl5074950885%_) - (let ((_%e5075050888%_ + _%tl5071350849%_) + (let ((_%e5071450852%_ (gx#syntax-e - _%tl5074950885%_))) - (let ((_%tl5075250895%_ + _%tl5071350849%_))) + (let ((_%tl5071650859%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5075050888%_))) - (_%hd5075150892%_ - (let () (declare (not safe)) (##car _%e5075050888%_)))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ - (gx#syntax-split-splice _%tl5072651299%_ '0))) - (let ((_%tl5076850800%_ + (##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 _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_))))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ - (gx#syntax-split-splice _%tl5072651299%_ '0))) - (let ((_%tl5076850800%_ + (_%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 _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) - (let () (declare (not safe)) (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))) + (##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? - _%tl5072651299%_) - (let ((_%__splice7953479535%_ + _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5072651299%_ + _%tl5069051263%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '1))) - (_%target5076650797%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) - (let () (declare (not safe)) (_%g5072050780%_))))) - (let () (declare (not safe)) (_%g5072050780%_)))) + (##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? - _%tl5072651299%_) - (let ((_%__splice7953479535%_ + _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5072651299%_ + _%tl5069051263%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_)))))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ + (_%g5068450744%_)))))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5072651299%_ + _%tl5069051263%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_))))))) - (if (gx#stx-pair/null? _%tl5072651299%_) - (let ((_%__splice7953479535%_ + (_%g5068450744%_))))))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5072651299%_ + _%tl5069051263%_ '0))) - (let ((_%tl5076850800%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '1))) - (_%target5076650797%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7953479535%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5076850800%_) - (_%__match7960879609%_ - _%e5072451292%_ - _%hd5072551296%_ - _%tl5072651299%_ - _%__splice7953479535%_ - _%target5076650797%_ - _%tl5076850800%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5072050780%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5072050780%_)))))) - (let () (declare (not safe)) (_%g5072050780%_)))))))) + (_%g5068450744%_)))))) + (let () (declare (not safe)) (_%g5068450744%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| - (lambda (_%stx51376%_) - (let* ((_%__stx7961179612%_ _%stx51376%_) - (_%g5138051401%_ + (lambda (_%stx51340%_) + (let* ((_%__stx8037780378%_ _%stx51340%_) + (_%g5134451365%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7961179612%_)))) - (let ((_%__kont7961479615%_ - (lambda (_%L51469%_) - (let* ((_%g5148151488%_ + _%__stx8037780378%_)))) + (let ((_%__kont8038080381%_ + (lambda (_%L51433%_) + (let* ((_%g5144551452%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51376%_ - _%L51469%_)) - (_%E5148351494%_ + _%stx51340%_ + _%L51433%_)) + (_%E5144751458%_ (lambda () (error '"No clause matching" - _%g5148151488%_ + _%g5144551452%_ '([var . parts])) (void))) - (_%K5148451710%_ - (lambda (_%parts51498%_ _%var51500%_) - (let ((_%$e51502%_ + (_%K5144851674%_ + (lambda (_%parts51462%_ _%var51464%_) + (let ((_%$e51466%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51500%_)))) - (if _%$e51502%_ - ((lambda (_%te51506%_) - (let _%loop51509%_ ((_%parts51512%_ - _%parts51498%_) - (_%type51514%_ + _%var51464%_)))) + (if _%$e51466%_ + ((lambda (_%te51470%_) + (let _%loop51473%_ ((_%parts51476%_ + _%parts51462%_) + (_%type51478%_ (##direct-structure-ref - _%te51506%_ + _%te51470%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51515%_ - _%var51500%_) - (_%nil-check?51516%_ + (_%object51479%_ + _%var51464%_) + (_%nil-check?51480%_ '#f)) - (let* ((_%parts5151751525%_ - _%parts51512%_) - (_%else5151951537%_ - (lambda () _%object51515%_)) - (_%K5152151692%_ - (lambda (_%rest51541%_ - _%part51543%_) - (if (and (not _%nil-check?51516%_) - (let ((__tmp84151 + (let* ((_%parts5148151489%_ + _%parts51476%_) + (_%else5148351501%_ + (lambda () _%object51479%_)) + (_%K5148551656%_ + (lambda (_%rest51505%_ + _%part51507%_) + (if (and (not _%nil-check?51480%_) + (let ((__tmp85027 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51543%_))) + (symbol->string _%part51507%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84151))) - (let ((_%str51547%_ (symbol->string _%part51543%_))) - (_%loop51509%_ - (cons (let ((__tmp84152 + (##string-prefix? '"?" __tmp85027))) + (let ((_%str51511%_ (symbol->string _%part51507%_))) + (_%loop51473%_ + (cons (let ((__tmp85028 (substring - _%str51547%_ + _%str51511%_ '1 - (string-length _%str51547%_)))) + (string-length _%str51511%_)))) (declare (not safe)) - (##string->symbol __tmp84152)) - _%rest51541%_) - _%type51514%_ - _%object51515%_ + (##string->symbol __tmp85028)) + _%rest51505%_) + _%type51478%_ + _%object51479%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51514%_)) - (let* ((_%g5155251567%_ - (lambda (_%g5155351563%_) + _%type51478%_)) + (let* ((_%g5151651531%_ + (lambda (_%g5151751527%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5155351563%_))) - (_%g5155151684%_ - (lambda (_%g5155351571%_) - (if (gx#stx-pair? _%g5155351571%_) - (let ((_%e5155651574%_ - (gx#syntax-e _%g5155351571%_))) - (let ((_%hd5155751578%_ + _%g5151751527%_))) + (_%g5151551648%_ + (lambda (_%g5151751535%_) + (if (gx#stx-pair? _%g5151751535%_) + (let ((_%e5152051538%_ + (gx#syntax-e _%g5151751535%_))) + (let ((_%hd5152151542%_ (let () (declare (not safe)) - (##car _%e5155651574%_))) - (_%tl5155851581%_ + (##car _%e5152051538%_))) + (_%tl5152251545%_ (let () (declare (not safe)) - (##cdr _%e5155651574%_)))) - (if (gx#stx-pair? _%tl5155851581%_) - (let ((_%e5155951584%_ - (gx#syntax-e _%tl5155851581%_))) - (let ((_%hd5156051588%_ + (##cdr _%e5152051538%_)))) + (if (gx#stx-pair? _%tl5152251545%_) + (let ((_%e5152351548%_ + (gx#syntax-e _%tl5152251545%_))) + (let ((_%hd5152451552%_ (let () (declare (not safe)) - (##car _%e5155951584%_))) - (_%tl5156151591%_ + (##car _%e5152351548%_))) + (_%tl5152551555%_ (let () (declare (not safe)) - (##cdr _%e5155951584%_)))) - (if (gx#stx-null? _%tl5156151591%_) - ((lambda (_%L51594%_ - _%L51596%_) - (if (null? _%rest51541%_) - (let ((_%$e51626%_ + (##cdr _%e5152351548%_)))) + (if (gx#stx-null? _%tl5152551555%_) + ((lambda (_%L51558%_ + _%L51560%_) + (if (null? _%rest51505%_) + (let ((_%$e51590%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51514%_ - _%part51543%_))) - (if _%$e51626%_ - ((lambda (_%slot-type51630%_) - (let* ((_%g5163351641%_ + _%type51478%_ + _%part51507%_))) + (if _%$e51590%_ + ((lambda (_%slot-type51594%_) + (let* ((_%g5159751605%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g5163451637%_) + (lambda (_%g5159851601%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5163451637%_))) - (_%g5163251664%_ - (lambda (_%g5163451645%_) - ((lambda (_%L51648%_) + _%g5159851601%_))) + (_%g5159651628%_ + (lambda (_%g5159851609%_) + ((lambda (_%L51612%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L51648%_ '())) - (cons (cons _%L51594%_ - (cons _%L51596%_ + (cons _%L51612%_ '())) + (cons (cons _%L51558%_ + (cons _%L51560%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5163451645%_)))) - (_%g5163251664%_ + _%g5159851609%_)))) + (_%g5159651628%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx51376%_ - _%slot-type51630%_))))) - _%$e51626%_) - (if _%nil-check?51516%_ - (cons _%L51594%_ + _%stx51340%_ + _%slot-type51594%_))))) + _%$e51590%_) + (if _%nil-check?51480%_ + (cons _%L51558%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51596%_ '())) + (cons _%L51560%_ '())) '())) - (cons _%L51594%_ (cons _%L51596%_ '()))))) - (let ((_%$e51672%_ + (cons _%L51558%_ (cons _%L51560%_ '()))))) + (let ((_%$e51636%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51514%_ - _%part51543%_))) - (if _%$e51672%_ - ((lambda (_%type51676%_) - (let ((_%type51679%_ + _%type51478%_ + _%part51507%_))) + (if _%$e51636%_ + ((lambda (_%type51640%_) + (let ((_%type51643%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51376%_ - _%type51676%_)))) - (if _%nil-check?51516%_ - (_%loop51509%_ - _%rest51541%_ - _%type51679%_ - (cons _%L51594%_ + _%stx51340%_ + _%type51640%_)))) + (if _%nil-check?51480%_ + (_%loop51473%_ + _%rest51505%_ + _%type51643%_ + (cons _%L51558%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51596%_ '())) + (cons _%L51560%_ '())) '())) '#f) - (_%loop51509%_ - _%rest51541%_ - _%type51679%_ - (cons _%L51594%_ (cons _%L51596%_ '())) + (_%loop51473%_ + _%rest51505%_ + _%type51643%_ + (cons _%L51558%_ (cons _%L51560%_ '())) '#f)))) - _%$e51672%_) + _%$e51636%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51376%_ - _%L51469%_ - _%part51543%_))))) + _%stx51340%_ + _%L51433%_ + _%part51507%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5156051588%_ - _%hd5155751578%_) - (_%g5155251567%_ - _%g5155351571%_)))) - (_%g5155251567%_ _%g5155351571%_)))) - (_%g5155251567%_ _%g5155351571%_))))) - (_%g5155151684%_ - (list (if _%nil-check?51516%_ - (cons 'check-nil! (cons _%object51515%_ '())) - _%object51515%_) + _%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| - _%stx51376%_ - _%type51514%_ - _%part51543%_)))) + _%stx51340%_ + _%type51478%_ + _%part51507%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51514%_)) + _%type51478%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51376%_ - _%type51514%_))))))) + _%stx51340%_ + _%type51478%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5151751525%_) - (let ((_%hd5152251696%_ + (if (pair? _%parts5148151489%_) + (let ((_%hd5148651660%_ (let () (declare (not safe)) - (##car _%parts5151751525%_))) - (_%tl5152351699%_ + (##car _%parts5148151489%_))) + (_%tl5148751663%_ (let () (declare (not safe)) - (##cdr _%parts5151751525%_)))) - (let* ((_%part51702%_ - _%hd5152251696%_) - (_%rest51705%_ - _%tl5152351699%_)) - (_%K5152151692%_ - _%rest51705%_ - _%part51702%_))) - (_%else5151951537%_))))) - _%$e51502%_) + (##cdr _%parts5148151489%_)))) + (let* ((_%part51666%_ + _%hd5148651660%_) + (_%rest51669%_ + _%tl5148751663%_)) + (_%K5148551656%_ + _%rest51669%_ + _%part51666%_))) + (_%else5148351501%_))))) + _%$e51466%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51469%_ '()))))))) - (if (pair? _%g5148151488%_) - (let ((_%hd5148551714%_ + (cons _%L51433%_ '()))))))) + (if (pair? _%g5144551452%_) + (let ((_%hd5144951678%_ (let () (declare (not safe)) - (##car _%g5148151488%_))) - (_%tl5148651717%_ + (##car _%g5144551452%_))) + (_%tl5145051681%_ (let () (declare (not safe)) - (##cdr _%g5148151488%_)))) - (let* ((_%var51720%_ _%hd5148551714%_) - (_%parts51723%_ _%tl5148651717%_)) - (_%K5148451710%_ _%parts51723%_ _%var51720%_))) - (_%E5148351494%_))))) - (_%__kont7961679617%_ - (lambda (_%L51428%_) + (##cdr _%g5144551452%_)))) + (let* ((_%var51684%_ _%hd5144951678%_) + (_%parts51687%_ _%tl5145051681%_)) + (_%K5144851674%_ _%parts51687%_ _%var51684%_))) + (_%E5144751458%_))))) + (_%__kont8038280383%_ + (lambda (_%L51392%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51428%_ '()))))) - (let ((_%__match7963279633%_ - (lambda (_%e5138351449%_ - _%hd5138451453%_ - _%tl5138551456%_ - _%e5138651459%_ - _%hd5138751463%_ - _%tl5138851466%_) - (let ((_%L51469%_ _%hd5138751463%_)) + (cons _%L51392%_ '()))))) + (let ((_%__match8039880399%_ + (lambda (_%e5134751413%_ + _%hd5134851417%_ + _%tl5134951420%_ + _%e5135051423%_ + _%hd5135151427%_ + _%tl5135251430%_) + (let ((_%L51433%_ _%hd5135151427%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51469%_) - (_%__kont7961479615%_ _%L51469%_) - (_%__kont7961679617%_ _%hd5138751463%_)))))) - (if (gx#stx-pair? _%__stx7961179612%_) - (let ((_%e5138351449%_ (gx#syntax-e _%__stx7961179612%_))) - (let ((_%tl5138551456%_ + _%L51433%_) + (_%__kont8038080381%_ _%L51433%_) + (_%__kont8038280383%_ _%hd5135151427%_)))))) + (if (gx#stx-pair? _%__stx8037780378%_) + (let ((_%e5134751413%_ (gx#syntax-e _%__stx8037780378%_))) + (let ((_%tl5134951420%_ (let () (declare (not safe)) - (##cdr _%e5138351449%_))) - (_%hd5138451453%_ + (##cdr _%e5134751413%_))) + (_%hd5134851417%_ (let () (declare (not safe)) - (##car _%e5138351449%_)))) - (if (gx#stx-pair? _%tl5138551456%_) - (let ((_%e5138651459%_ - (gx#syntax-e _%tl5138551456%_))) - (let ((_%tl5138851466%_ + (##car _%e5134751413%_)))) + (if (gx#stx-pair? _%tl5134951420%_) + (let ((_%e5135051423%_ + (gx#syntax-e _%tl5134951420%_))) + (let ((_%tl5135251430%_ (let () (declare (not safe)) - (##cdr _%e5138651459%_))) - (_%hd5138751463%_ + (##cdr _%e5135051423%_))) + (_%hd5135151427%_ (let () (declare (not safe)) - (##car _%e5138651459%_)))) - (if (gx#stx-null? _%tl5138851466%_) - (_%__match7963279633%_ - _%e5138351449%_ - _%hd5138451453%_ - _%tl5138551456%_ - _%e5138651459%_ - _%hd5138751463%_ - _%tl5138851466%_) + (##car _%e5135051423%_)))) + (if (gx#stx-null? _%tl5135251430%_) + (_%__match8039880399%_ + _%e5134751413%_ + _%hd5134851417%_ + _%tl5134951420%_ + _%e5135051423%_ + _%hd5135151427%_ + _%tl5135251430%_) (let () (declare (not safe)) - (_%g5138051401%_))))) - (let () (declare (not safe)) (_%g5138051401%_))))) - (let () (declare (not safe)) (_%g5138051401%_)))))))) + (_%g5134451365%_))))) + (let () (declare (not safe)) (_%g5134451365%_))))) + (let () (declare (not safe)) (_%g5134451365%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| - (lambda (_%stx51730%_) - (let* ((_%__stx7964979650%_ _%stx51730%_) - (_%g5173451763%_ + (lambda (_%stx51694%_) + (let* ((_%__stx8041580416%_ _%stx51694%_) + (_%g5169851727%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7964979650%_)))) - (let ((_%__kont7965279653%_ - (lambda (_%L51855%_ _%L51857%_) - (let* ((_%g5187151878%_ + _%__stx8041580416%_)))) + (let ((_%__kont8041880419%_ + (lambda (_%L51819%_ _%L51821%_) + (let* ((_%g5183551842%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51730%_ - _%L51857%_)) - (_%E5187351884%_ + _%stx51694%_ + _%L51821%_)) + (_%E5183751848%_ (lambda () (error '"No clause matching" - _%g5187151878%_ + _%g5183551842%_ '([var . parts])) (void))) - (_%K5187452114%_ - (lambda (_%parts51888%_ _%var51890%_) - (let ((_%$e51892%_ + (_%K5183852078%_ + (lambda (_%parts51852%_ _%var51854%_) + (let ((_%$e51856%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51890%_)))) - (if _%$e51892%_ - ((lambda (_%te51896%_) - (let _%loop51899%_ ((_%parts51902%_ - _%parts51888%_) - (_%type51904%_ + _%var51854%_)))) + (if _%$e51856%_ + ((lambda (_%te51860%_) + (let _%loop51863%_ ((_%parts51866%_ + _%parts51852%_) + (_%type51868%_ (##direct-structure-ref - _%te51896%_ + _%te51860%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51905%_ - _%var51890%_) - (_%checked-mutator?51906%_ + (_%object51869%_ + _%var51854%_) + (_%checked-mutator?51870%_ (##direct-structure-ref - _%te51896%_ + _%te51860%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?51907%_ + (_%nil-check?51871%_ '#f)) - (let* ((_%parts5190851915%_ - _%parts51902%_) - (_%E5191051921%_ + (let* ((_%parts5187251879%_ + _%parts51866%_) + (_%E5187451885%_ (lambda () (error '"No clause matching" - _%parts5190851915%_ + _%parts5187251879%_ '([part . rest])) (void))) - (_%K5191152096%_ - (lambda (_%rest51925%_ - _%part51927%_) - (if (and (not _%nil-check?51907%_) - (let ((__tmp84153 + (_%K5187552060%_ + (lambda (_%rest51889%_ + _%part51891%_) + (if (and (not _%nil-check?51871%_) + (let ((__tmp85029 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51927%_))) + (symbol->string _%part51891%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84153))) - (let ((_%str51931%_ (symbol->string _%part51927%_))) - (_%loop51899%_ - (cons (let ((__tmp84154 + (##string-prefix? '"?" __tmp85029))) + (let ((_%str51895%_ (symbol->string _%part51891%_))) + (_%loop51863%_ + (cons (let ((__tmp85030 (substring - _%str51931%_ + _%str51895%_ '1 - (string-length _%str51931%_)))) + (string-length _%str51895%_)))) (declare (not safe)) - (##string->symbol __tmp84154)) - _%rest51925%_) - _%type51904%_ - _%object51905%_ - _%checked-mutator?51906%_ + (##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 - _%type51904%_)) - (if (null? _%rest51925%_) - (let* ((_%g5193851953%_ - (lambda (_%g5193951949%_) + _%type51868%_)) + (if (null? _%rest51889%_) + (let* ((_%g5190251917%_ + (lambda (_%g5190351913%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5193951949%_))) - (_%g5193752010%_ - (lambda (_%g5193951957%_) - (if (gx#stx-pair? _%g5193951957%_) - (let ((_%e5194251960%_ - (gx#syntax-e _%g5193951957%_))) - (let ((_%hd5194351964%_ + _%g5190351913%_))) + (_%g5190151974%_ + (lambda (_%g5190351921%_) + (if (gx#stx-pair? _%g5190351921%_) + (let ((_%e5190651924%_ + (gx#syntax-e _%g5190351921%_))) + (let ((_%hd5190751928%_ (let () (declare (not safe)) - (##car _%e5194251960%_))) - (_%tl5194451967%_ + (##car _%e5190651924%_))) + (_%tl5190851931%_ (let () (declare (not safe)) - (##cdr _%e5194251960%_)))) - (if (gx#stx-pair? _%tl5194451967%_) - (let ((_%e5194551970%_ + (##cdr _%e5190651924%_)))) + (if (gx#stx-pair? _%tl5190851931%_) + (let ((_%e5190951934%_ (gx#syntax-e - _%tl5194451967%_))) - (let ((_%hd5194651974%_ + _%tl5190851931%_))) + (let ((_%hd5191051938%_ (let () (declare (not safe)) - (##car _%e5194551970%_))) - (_%tl5194751977%_ + (##car _%e5190951934%_))) + (_%tl5191151941%_ (let () (declare (not safe)) - (##cdr _%e5194551970%_)))) + (##cdr _%e5190951934%_)))) (if (gx#stx-null? - _%tl5194751977%_) - ((lambda (_%L51980%_ - _%L51982%_) - (if _%nil-check?51907%_ - (cons _%L51980%_ + _%tl5191151941%_) + ((lambda (_%L51944%_ + _%L51946%_) + (if _%nil-check?51871%_ + (cons _%L51944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51982%_ '())) - (cons _%L51855%_ '()))) - (cons _%L51980%_ (cons _%L51982%_ (cons _%L51855%_ '()))))) + (cons _%L51946%_ '())) + (cons _%L51819%_ '()))) + (cons _%L51944%_ (cons _%L51946%_ (cons _%L51819%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5194651974%_ - _%hd5194351964%_) - (_%g5193851953%_ - _%g5193951957%_)))) - (_%g5193851953%_ - _%g5193951957%_)))) - (_%g5193851953%_ _%g5193951957%_))))) - (_%g5193752010%_ - (list _%object51905%_ + _%hd5191051938%_ + _%hd5190751928%_) + (_%g5190251917%_ + _%g5190351921%_)))) + (_%g5190251917%_ + _%g5190351921%_)))) + (_%g5190251917%_ _%g5190351921%_))))) + (_%g5190151974%_ + (list _%object51869%_ (|gerbil/core/contract~Using[1]#get-slot-mutator| - _%stx51730%_ - _%type51904%_ - _%part51927%_ - (if _%checked-mutator?51906%_ + _%stx51694%_ + _%type51868%_ + _%part51891%_ + (if _%checked-mutator?51870%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%type51904%_ - _%part51927%_) + _%type51868%_ + _%part51891%_) '#f))))) - (let ((_%$e52014%_ + (let ((_%$e51978%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51904%_ - _%part51927%_))) - (if _%$e52014%_ - ((lambda (_%type52018%_) - (let* ((_%type52021%_ + _%type51868%_ + _%part51891%_))) + (if _%$e51978%_ + ((lambda (_%type51982%_) + (let* ((_%type51985%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51730%_ - _%type52018%_))) - (_%g5202452039%_ - (lambda (_%g5202552035%_) + _%stx51694%_ + _%type51982%_))) + (_%g5198852003%_ + (lambda (_%g5198951999%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5202552035%_))) - (_%g5202352086%_ - (lambda (_%g5202552043%_) - (if (gx#stx-pair? _%g5202552043%_) - (let ((_%e5202852046%_ + _%g5198951999%_))) + (_%g5198752050%_ + (lambda (_%g5198952007%_) + (if (gx#stx-pair? _%g5198952007%_) + (let ((_%e5199252010%_ (gx#syntax-e - _%g5202552043%_))) - (let ((_%hd5202952050%_ + _%g5198952007%_))) + (let ((_%hd5199352014%_ (let () (declare (not safe)) - (##car _%e5202852046%_))) - (_%tl5203052053%_ + (##car _%e5199252010%_))) + (_%tl5199452017%_ (let () (declare (not safe)) - (##cdr _%e5202852046%_)))) + (##cdr _%e5199252010%_)))) (if (gx#stx-pair? - _%tl5203052053%_) - (let ((_%e5203152056%_ + _%tl5199452017%_) + (let ((_%e5199552020%_ (gx#syntax-e - _%tl5203052053%_))) - (let ((_%hd5203252060%_ + _%tl5199452017%_))) + (let ((_%hd5199652024%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5203152056%_))) - (_%tl5203352063%_ - (let () (declare (not safe)) (##cdr _%e5203152056%_)))) - (if (gx#stx-null? _%tl5203352063%_) - ((lambda (_%L52066%_ _%L52068%_) - (_%loop51899%_ - _%rest51925%_ - _%type52021%_ - (cons _%L52066%_ (cons _%L52068%_ '())) + (##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?| - _%type52021%_ - _%part51927%_) + _%type51985%_ + _%part51891%_) '#f)) - _%hd5203252060%_ - _%hd5202952050%_) - (_%g5202452039%_ _%g5202552043%_)))) + _%hd5199652024%_ + _%hd5199352014%_) + (_%g5198852003%_ _%g5198952007%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5202452039%_ - _%g5202552043%_)))) - (_%g5202452039%_ - _%g5202552043%_))))) - (_%g5202352086%_ - (list (if _%nil-check?51907%_ + (_%g5198852003%_ + _%g5198952007%_)))) + (_%g5198852003%_ + _%g5198952007%_))))) + (_%g5198752050%_ + (list (if _%nil-check?51871%_ (cons 'check-nil! - (cons _%object51905%_ '())) - _%object51905%_) + (cons _%object51869%_ '())) + _%object51869%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51730%_ - _%type52021%_ - _%part51927%_))))) - _%$e52014%_) + _%stx51694%_ + _%type51985%_ + _%part51891%_))))) + _%$e51978%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51730%_ - _%L51857%_ - _%part51927%_)))) + _%stx51694%_ + _%L51821%_ + _%part51891%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51904%_)) + _%type51868%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51730%_ - _%type51904%_))))))) + _%stx51694%_ + _%type51868%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5190851915%_) - (let ((_%hd5191252100%_ + (if (pair? _%parts5187251879%_) + (let ((_%hd5187652064%_ (let () (declare (not safe)) - (##car _%parts5190851915%_))) - (_%tl5191352103%_ + (##car _%parts5187251879%_))) + (_%tl5187752067%_ (let () (declare (not safe)) - (##cdr _%parts5190851915%_)))) - (let* ((_%part52106%_ - _%hd5191252100%_) - (_%rest52109%_ - _%tl5191352103%_)) - (_%K5191152096%_ - _%rest52109%_ - _%part52106%_))) - (_%E5191051921%_))))) - _%$e51892%_) + (##cdr _%parts5187251879%_)))) + (let* ((_%part52070%_ + _%hd5187652064%_) + (_%rest52073%_ + _%tl5187752067%_)) + (_%K5187552060%_ + _%rest52073%_ + _%part52070%_))) + (_%E5187451885%_))))) + _%$e51856%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| - _%stx51730%_))))))) - (if (pair? _%g5187151878%_) - (let ((_%hd5187552118%_ + _%stx51694%_))))))) + (if (pair? _%g5183551842%_) + (let ((_%hd5183952082%_ (let () (declare (not safe)) - (##car _%g5187151878%_))) - (_%tl5187652121%_ + (##car _%g5183551842%_))) + (_%tl5184052085%_ (let () (declare (not safe)) - (##cdr _%g5187151878%_)))) - (let* ((_%var52124%_ _%hd5187552118%_) - (_%parts52127%_ _%tl5187652121%_)) - (_%K5187452114%_ _%parts52127%_ _%var52124%_))) - (_%E5187351884%_))))) - (_%__kont7965479655%_ - (lambda (_%L51800%_ _%L51802%_) + (##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!| _%stx51730%_))))) - (let ((_%__match7967679677%_ - (lambda (_%e5173851825%_ - _%hd5173951829%_ - _%tl5174051832%_ - _%e5174151835%_ - _%hd5174251839%_ - _%tl5174351842%_ - _%e5174451845%_ - _%hd5174551849%_ - _%tl5174651852%_) - (let ((_%L51855%_ _%hd5174551849%_) - (_%L51857%_ _%hd5174251839%_)) + (|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?| - _%L51857%_) - (_%__kont7965279653%_ _%L51855%_ _%L51857%_) - (_%__kont7965479655%_ - _%hd5174551849%_ - _%hd5174251839%_)))))) - (if (gx#stx-pair? _%__stx7964979650%_) - (let ((_%e5173851825%_ (gx#syntax-e _%__stx7964979650%_))) - (let ((_%tl5174051832%_ + _%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 _%e5173851825%_))) - (_%hd5173951829%_ + (##cdr _%e5170251789%_))) + (_%hd5170351793%_ (let () (declare (not safe)) - (##car _%e5173851825%_)))) - (if (gx#stx-pair? _%tl5174051832%_) - (let ((_%e5174151835%_ - (gx#syntax-e _%tl5174051832%_))) - (let ((_%tl5174351842%_ + (##car _%e5170251789%_)))) + (if (gx#stx-pair? _%tl5170451796%_) + (let ((_%e5170551799%_ + (gx#syntax-e _%tl5170451796%_))) + (let ((_%tl5170751806%_ (let () (declare (not safe)) - (##cdr _%e5174151835%_))) - (_%hd5174251839%_ + (##cdr _%e5170551799%_))) + (_%hd5170651803%_ (let () (declare (not safe)) - (##car _%e5174151835%_)))) - (if (gx#stx-pair? _%tl5174351842%_) - (let ((_%e5174451845%_ - (gx#syntax-e _%tl5174351842%_))) - (let ((_%tl5174651852%_ + (##car _%e5170551799%_)))) + (if (gx#stx-pair? _%tl5170751806%_) + (let ((_%e5170851809%_ + (gx#syntax-e _%tl5170751806%_))) + (let ((_%tl5171051816%_ (let () (declare (not safe)) - (##cdr _%e5174451845%_))) - (_%hd5174551849%_ + (##cdr _%e5170851809%_))) + (_%hd5170951813%_ (let () (declare (not safe)) - (##car _%e5174451845%_)))) - (if (gx#stx-null? _%tl5174651852%_) - (_%__match7967679677%_ - _%e5173851825%_ - _%hd5173951829%_ - _%tl5174051832%_ - _%e5174151835%_ - _%hd5174251839%_ - _%tl5174351842%_ - _%e5174451845%_ - _%hd5174551849%_ - _%tl5174651852%_) + (##car _%e5170851809%_)))) + (if (gx#stx-null? _%tl5171051816%_) + (_%__match8044280443%_ + _%e5170251789%_ + _%hd5170351793%_ + _%tl5170451796%_ + _%e5170551799%_ + _%hd5170651803%_ + _%tl5170751806%_ + _%e5170851809%_ + _%hd5170951813%_ + _%tl5171051816%_) (let () (declare (not safe)) - (_%g5173451763%_))))) + (_%g5169851727%_))))) (let () (declare (not safe)) - (_%g5173451763%_))))) - (let () (declare (not safe)) (_%g5173451763%_))))) - (let () (declare (not safe)) (_%g5173451763%_)))))))))) + (_%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 fe566e736..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 (_%$stx52135%_) - (let* ((_%g5213952153%_ - (lambda (_%g5214052149%_) + (lambda (_%$stx52099%_) + (let* ((_%g5210352117%_ + (lambda (_%g5210452113%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5214052149%_))) - (_%g5213852195%_ - (lambda (_%g5214052157%_) - (if (gx#stx-pair? _%g5214052157%_) - (let ((_%e5214252160%_ (gx#syntax-e _%g5214052157%_))) - (let ((_%hd5214352164%_ + _%g5210452113%_))) + (_%g5210252159%_ + (lambda (_%g5210452121%_) + (if (gx#stx-pair? _%g5210452121%_) + (let ((_%e5210652124%_ (gx#syntax-e _%g5210452121%_))) + (let ((_%hd5210752128%_ (let () (declare (not safe)) - (##car _%e5214252160%_))) - (_%tl5214452167%_ + (##car _%e5210652124%_))) + (_%tl5210852131%_ (let () (declare (not safe)) - (##cdr _%e5214252160%_)))) - (if (gx#stx-pair? _%tl5214452167%_) - (let ((_%e5214552170%_ - (gx#syntax-e _%tl5214452167%_))) - (let ((_%hd5214652174%_ + (##cdr _%e5210652124%_)))) + (if (gx#stx-pair? _%tl5210852131%_) + (let ((_%e5210952134%_ + (gx#syntax-e _%tl5210852131%_))) + (let ((_%hd5211052138%_ (let () (declare (not safe)) - (##car _%e5214552170%_))) - (_%tl5214752177%_ + (##car _%e5210952134%_))) + (_%tl5211152141%_ (let () (declare (not safe)) - (##cdr _%e5214552170%_)))) - (if (gx#stx-null? _%tl5214752177%_) - ((lambda (_%L52180%_) + (##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 _%L52180%_ + (cons _%L52144%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd5214652174%_) - (_%g5213952153%_ _%g5214052157%_)))) - (_%g5213952153%_ _%g5214052157%_)))) - (_%g5213952153%_ _%g5214052157%_))))) - (_%g5213852195%_ _%$stx52135%_)))) + _%hd5211052138%_) + (_%g5210352117%_ _%g5210452121%_)))) + (_%g5210352117%_ _%g5210452121%_)))) + (_%g5210352117%_ _%g5210452121%_))))) + (_%g5210252159%_ _%$stx52099%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range?| - (lambda (_%$stx52199%_) - (let* ((_%g5220352221%_ - (lambda (_%g5220452217%_) + (lambda (_%$stx52163%_) + (let* ((_%g5216752185%_ + (lambda (_%g5216852181%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5220452217%_))) - (_%g5220252276%_ - (lambda (_%g5220452225%_) - (if (gx#stx-pair? _%g5220452225%_) - (let ((_%e5220752228%_ (gx#syntax-e _%g5220452225%_))) - (let ((_%hd5220852232%_ + _%g5216852181%_))) + (_%g5216652240%_ + (lambda (_%g5216852189%_) + (if (gx#stx-pair? _%g5216852189%_) + (let ((_%e5217152192%_ (gx#syntax-e _%g5216852189%_))) + (let ((_%hd5217252196%_ (let () (declare (not safe)) - (##car _%e5220752228%_))) - (_%tl5220952235%_ + (##car _%e5217152192%_))) + (_%tl5217352199%_ (let () (declare (not safe)) - (##cdr _%e5220752228%_)))) - (if (gx#stx-pair? _%tl5220952235%_) - (let ((_%e5221052238%_ - (gx#syntax-e _%tl5220952235%_))) - (let ((_%hd5221152242%_ + (##cdr _%e5217152192%_)))) + (if (gx#stx-pair? _%tl5217352199%_) + (let ((_%e5217452202%_ + (gx#syntax-e _%tl5217352199%_))) + (let ((_%hd5217552206%_ (let () (declare (not safe)) - (##car _%e5221052238%_))) - (_%tl5221252245%_ + (##car _%e5217452202%_))) + (_%tl5217652209%_ (let () (declare (not safe)) - (##cdr _%e5221052238%_)))) - (if (gx#stx-pair? _%tl5221252245%_) - (let ((_%e5221352248%_ - (gx#syntax-e _%tl5221252245%_))) - (let ((_%hd5221452252%_ + (##cdr _%e5217452202%_)))) + (if (gx#stx-pair? _%tl5217652209%_) + (let ((_%e5217752212%_ + (gx#syntax-e _%tl5217652209%_))) + (let ((_%hd5217852216%_ (let () (declare (not safe)) - (##car _%e5221352248%_))) - (_%tl5221552255%_ + (##car _%e5217752212%_))) + (_%tl5217952219%_ (let () (declare (not safe)) - (##cdr _%e5221352248%_)))) - (if (gx#stx-null? _%tl5221552255%_) - ((lambda (_%L52258%_ _%L52260%_) + (##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 _%L52260%_ '()))) + (cons _%L52224%_ '()))) (cons (cons (gx#datum->syntax '#f 'fx<) (cons (gx#datum->syntax '#f 'o) - (cons _%L52258%_ + (cons _%L52222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5221452252%_ - _%hd5221152242%_) - (_%g5220352221%_ - _%g5220452225%_)))) - (_%g5220352221%_ _%g5220452225%_)))) - (_%g5220352221%_ _%g5220452225%_)))) - (_%g5220352221%_ _%g5220452225%_))))) - (_%g5220252276%_ _%$stx52199%_)))) + _%hd5217852216%_ + _%hd5217552206%_) + (_%g5216752185%_ + _%g5216852189%_)))) + (_%g5216752185%_ _%g5216852189%_)))) + (_%g5216752185%_ _%g5216852189%_)))) + (_%g5216752185%_ _%g5216852189%_))))) + (_%g5216652240%_ _%$stx52163%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range-inclusive?| - (lambda (_%$stx52280%_) - (let* ((_%g5228452302%_ - (lambda (_%g5228552298%_) + (lambda (_%$stx52244%_) + (let* ((_%g5224852266%_ + (lambda (_%g5224952262%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5228552298%_))) - (_%g5228352357%_ - (lambda (_%g5228552306%_) - (if (gx#stx-pair? _%g5228552306%_) - (let ((_%e5228852309%_ (gx#syntax-e _%g5228552306%_))) - (let ((_%hd5228952313%_ + _%g5224952262%_))) + (_%g5224752321%_ + (lambda (_%g5224952270%_) + (if (gx#stx-pair? _%g5224952270%_) + (let ((_%e5225252273%_ (gx#syntax-e _%g5224952270%_))) + (let ((_%hd5225352277%_ (let () (declare (not safe)) - (##car _%e5228852309%_))) - (_%tl5229052316%_ + (##car _%e5225252273%_))) + (_%tl5225452280%_ (let () (declare (not safe)) - (##cdr _%e5228852309%_)))) - (if (gx#stx-pair? _%tl5229052316%_) - (let ((_%e5229152319%_ - (gx#syntax-e _%tl5229052316%_))) - (let ((_%hd5229252323%_ + (##cdr _%e5225252273%_)))) + (if (gx#stx-pair? _%tl5225452280%_) + (let ((_%e5225552283%_ + (gx#syntax-e _%tl5225452280%_))) + (let ((_%hd5225652287%_ (let () (declare (not safe)) - (##car _%e5229152319%_))) - (_%tl5229352326%_ + (##car _%e5225552283%_))) + (_%tl5225752290%_ (let () (declare (not safe)) - (##cdr _%e5229152319%_)))) - (if (gx#stx-pair? _%tl5229352326%_) - (let ((_%e5229452329%_ - (gx#syntax-e _%tl5229352326%_))) - (let ((_%hd5229552333%_ + (##cdr _%e5225552283%_)))) + (if (gx#stx-pair? _%tl5225752290%_) + (let ((_%e5225852293%_ + (gx#syntax-e _%tl5225752290%_))) + (let ((_%hd5225952297%_ (let () (declare (not safe)) - (##car _%e5229452329%_))) - (_%tl5229652336%_ + (##car _%e5225852293%_))) + (_%tl5226052300%_ (let () (declare (not safe)) - (##cdr _%e5229452329%_)))) - (if (gx#stx-null? _%tl5229652336%_) - ((lambda (_%L52339%_ _%L52341%_) + (##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 _%L52341%_ + (cons _%L52305%_ (cons (gx#datum->syntax '#f 'o) - (cons _%L52339%_ + (cons _%L52303%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5229552333%_ - _%hd5229252323%_) - (_%g5228452302%_ - _%g5228552306%_)))) - (_%g5228452302%_ _%g5228552306%_)))) - (_%g5228452302%_ _%g5228552306%_)))) - (_%g5228452302%_ _%g5228552306%_))))) - (_%g5228352357%_ _%$stx52280%_)))) + _%hd5225952297%_ + _%hd5225652287%_) + (_%g5224852266%_ + _%g5224952270%_)))) + (_%g5224852266%_ _%g5224952270%_)))) + (_%g5224852266%_ _%g5224952270%_)))) + (_%g5224852266%_ _%g5224952270%_))))) + (_%g5224752321%_ _%$stx52244%_)))) (define |gerbil/core/contract~ContractRules[:0:]#list-of?| - (lambda (_%$stx52361%_) - (let* ((_%g5236552379%_ - (lambda (_%g5236652375%_) + (lambda (_%$stx52325%_) + (let* ((_%g5232952343%_ + (lambda (_%g5233052339%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5236652375%_))) - (_%g5236452420%_ - (lambda (_%g5236652383%_) - (if (gx#stx-pair? _%g5236652383%_) - (let ((_%e5236852386%_ (gx#syntax-e _%g5236652383%_))) - (let ((_%hd5236952390%_ + _%g5233052339%_))) + (_%g5232852384%_ + (lambda (_%g5233052347%_) + (if (gx#stx-pair? _%g5233052347%_) + (let ((_%e5233252350%_ (gx#syntax-e _%g5233052347%_))) + (let ((_%hd5233352354%_ (let () (declare (not safe)) - (##car _%e5236852386%_))) - (_%tl5237052393%_ + (##car _%e5233252350%_))) + (_%tl5233452357%_ (let () (declare (not safe)) - (##cdr _%e5236852386%_)))) - (if (gx#stx-pair? _%tl5237052393%_) - (let ((_%e5237152396%_ - (gx#syntax-e _%tl5237052393%_))) - (let ((_%hd5237252400%_ + (##cdr _%e5233252350%_)))) + (if (gx#stx-pair? _%tl5233452357%_) + (let ((_%e5233552360%_ + (gx#syntax-e _%tl5233452357%_))) + (let ((_%hd5233652364%_ (let () (declare (not safe)) - (##car _%e5237152396%_))) - (_%tl5237352403%_ + (##car _%e5233552360%_))) + (_%tl5233752367%_ (let () (declare (not safe)) - (##cdr _%e5237152396%_)))) - (if (gx#stx-null? _%tl5237352403%_) - ((lambda (_%L52406%_) + (##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 _%L52406%_ + (cons _%L52370%_ (cons (gx#datum->syntax '#f 'o) '()))) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5237252400%_) - (_%g5236552379%_ _%g5236652383%_)))) - (_%g5236552379%_ _%g5236652383%_)))) - (_%g5236552379%_ _%g5236652383%_))))) - (_%g5236452420%_ _%$stx52361%_))))) + _%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 eb5a12552..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]#_g84156_| + (define |gerbil/core/contract~Interface[1]#_g85032_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84158_| + (define |gerbil/core/contract~Interface[1]#_g85034_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84159_| + (define |gerbil/core/contract~Interface[1]#_g85035_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84160_| + (define |gerbil/core/contract~Interface[1]#_g85036_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84161_| + (define |gerbil/core/contract~Interface[1]#_g85037_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84162_| + (define |gerbil/core/contract~Interface[1]#_g85038_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84164_| + (define |gerbil/core/contract~Interface[1]#_g85040_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84166_| + (define |gerbil/core/contract~Interface[1]#_g85042_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84167_| + (define |gerbil/core/contract~Interface[1]#_g85043_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84168_| + (define |gerbil/core/contract~Interface[1]#_g85044_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84169_| + (define |gerbil/core/contract~Interface[1]#_g85045_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84170_| + (define |gerbil/core/contract~Interface[1]#_g85046_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84171_| + (define |gerbil/core/contract~Interface[1]#_g85047_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84172_| + (define |gerbil/core/contract~Interface[1]#_g85048_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84178_| + (define |gerbil/core/contract~Interface[1]#_g85054_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84179_| + (define |gerbil/core/contract~Interface[1]#_g85055_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84180_| + (define |gerbil/core/contract~Interface[1]#_g85056_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84181_| + (define |gerbil/core/contract~Interface[1]#_g85057_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84182_| + (define |gerbil/core/contract~Interface[1]#_g85058_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84183_| + (define |gerbil/core/contract~Interface[1]#_g85059_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84184_| + (define |gerbil/core/contract~Interface[1]#_g85060_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84185_| + (define |gerbil/core/contract~Interface[1]#_g85061_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84186_| + (define |gerbil/core/contract~Interface[1]#_g85062_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84187_| + (define |gerbil/core/contract~Interface[1]#_g85063_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84188_| + (define |gerbil/core/contract~Interface[1]#_g85064_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84189_| + (define |gerbil/core/contract~Interface[1]#_g85065_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84190_| + (define |gerbil/core/contract~Interface[1]#_g85066_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84191_| + (define |gerbil/core/contract~Interface[1]#_g85067_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84192_| + (define |gerbil/core/contract~Interface[1]#_g85068_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84193_| + (define |gerbil/core/contract~Interface[1]#_g85069_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84194_| + (define |gerbil/core/contract~Interface[1]#_g85070_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84195_| + (define |gerbil/core/contract~Interface[1]#_g85071_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84197_| + (define |gerbil/core/contract~Interface[1]#_g85073_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84205_| + (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 (_%@@keywords60214%_ - _%optionals-allowed?6021060216%_ - _%keywords-allowed?6021160218%_ - _%stx60220%_ - _%args60221%_ - _%return60222%_) - (let* ((_%optionals-allowed?60224%_ - (if (eq? _%optionals-allowed?6021060216%_ 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?6021060216%_)) - (_%keywords-allowed?60227%_ - (if (eq? _%keywords-allowed?6021160218%_ absent-value) + _%optionals-allowed?6017460180%_)) + (_%keywords-allowed?60191%_ + (if (eq? _%keywords-allowed?6017560182%_ absent-value) '#t - _%keywords-allowed?6021160218%_))) - (if (gx#stx-e _%return60222%_) + _%keywords-allowed?6017560182%_))) + (if (gx#stx-e _%return60186%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx60220%_ - _%return60222%_) + _%stx60184%_ + _%return60186%_) '#!void) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f - _%optionals-allowed?60224%_ - _%keywords-allowed?60227%_ - _%stx60220%_ - _%args60221%_)))) + _%optionals-allowed?60188%_ + _%keywords-allowed?60191%_ + _%stx60184%_ + _%args60185%_)))) (define |gerbil/core/contract~Interface[1]#check-signature!__@| - (lambda (_%@@keywords60234%_ . _%args60236%_) + (lambda (_%@@keywords60198%_ . _%args60200%_) (apply |gerbil/core/contract~Interface[1]#check-signature!__%| - _%@@keywords60234%_ + _%@@keywords60198%_ (symbolic-table-ref - _%@@keywords60234%_ + _%@@keywords60198%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60234%_ 'keywords: absent-value) - _%args60236%_))) + (symbolic-table-ref _%@@keywords60198%_ 'keywords: absent-value) + _%args60200%_))) (define |gerbil/core/contract~Interface[1]#check-signature!| - (lambda _%args6021260243%_ + (lambda _%args6017660207%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature!__@| - _%args6021260243%_))) + _%args6017660207%_))) (define |gerbil/core/contract~Interface[1]#check-valid-type!| - (lambda (_%stx60186%_ _%id60188%_) - (let* ((_%info60190%_ (gx#syntax-local-value _%id60188%_ false)) - (_%$e60201%_ - (let ((_%$e60193%_ + (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 - _%info60190%_)))) - (if _%$e60193%_ - _%$e60193%_ - (let ((_%$e60197%_ + _%info60154%_)))) + (if _%$e60157%_ + _%$e60157%_ + (let ((_%$e60161%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info60190%_)))) - (if _%$e60197%_ - _%$e60197%_ + _%info60154%_)))) + (if _%$e60161%_ + _%$e60161%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%info60190%_)))))))) - (if _%$e60201%_ - _%$e60201%_ - (if (not _%info60190%_) + _%info60154%_)))))))) + (if _%$e60165%_ + _%$e60165%_ + (if (not _%info60154%_) (gx#raise-syntax-error '#f '"invalid signature; unknown type" - _%stx60186%_ - _%id60188%_) + _%stx60150%_ + _%id60152%_) (gx#raise-syntax-error '#f '"invalid signature; not a a class type or interface" - _%stx60186%_ - _%id60188%_ - _%info60190%_)))))) + _%stx60150%_ + _%id60152%_ + _%info60154%_)))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - (lambda (_%@@keywords59421%_ - _%optionals-allowed?5941759423%_ - _%keywords-allowed?5941859425%_ - _%stx59427%_ - _%signature59428%_) - (let* ((_%optionals-allowed?59430%_ - (if (eq? _%optionals-allowed?5941759423%_ 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?5941759423%_)) - (_%keywords-allowed?59433%_ - (if (eq? _%keywords-allowed?5941859425%_ absent-value) + _%optionals-allowed?5938159387%_)) + (_%keywords-allowed?59397%_ + (if (eq? _%keywords-allowed?5938259389%_ absent-value) '#t - _%keywords-allowed?5941859425%_))) - (let _%lp59436%_ ((_%rest59439%_ _%signature59428%_) - (_%have-optional?59441%_ '#f) - (_%ids59442%_ '()) - (_%kws59443%_ '())) - (let* ((_%__stx7977579776%_ _%rest59439%_) - (_%g5945359523%_ + _%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" - _%__stx7977579776%_)))) - (let ((_%__kont7977879779%_ - (lambda (_%L60139%_ _%L60141%_) - (if _%have-optional?59441%_ + _%__stx8054180542%_)))) + (let ((_%__kont8054480545%_ + (lambda (_%L60103%_ _%L60105%_) + (if _%have-optional?59405%_ (gx#raise-syntax-error '#f '"invalid signature; required argument after optionals" - _%stx59427%_ - _%signature59428%_ - _%L60141%_) - (if (null? _%kws59443%_) - (if (find (lambda (_%g6015560157%_) + _%stx59391%_ + _%signature59392%_ + _%L60105%_) + (if (null? _%kws59407%_) + (if (find (lambda (_%g6011960121%_) (gx#bound-identifier=? - _%g6015560157%_ - _%L60141%_)) - _%ids59442%_) + _%g6011960121%_ + _%L60105%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59427%_ - _%signature59428%_ - _%L60141%_) - (_%lp59436%_ - _%L60139%_ - _%have-optional?59441%_ - (cons _%L60141%_ _%ids59442%_) - _%kws59443%_)) + _%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"))))) - (_%__kont7978079781%_ - (lambda (_%L60092%_ _%L60094%_) - (if (not _%optionals-allowed?59430%_) + (_%__kont8054680547%_ + (lambda (_%L60056%_ _%L60058%_) + (if (not _%optionals-allowed?59394%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59427%_ - _%signature59428%_) - (if (null? _%kws59443%_) - (if (find (lambda (_%g6011260114%_) + _%stx59391%_ + _%signature59392%_) + (if (null? _%kws59407%_) + (if (find (lambda (_%g6007660078%_) (gx#bound-identifier=? - _%g6011260114%_ - _%L60094%_)) - _%ids59442%_) + _%g6007660078%_ + _%L60058%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59427%_ - _%signature59428%_ - _%L60094%_) - (_%lp59436%_ - _%L60092%_ + _%stx59391%_ + _%signature59392%_ + _%L60058%_) + (_%lp59400%_ + _%L60056%_ '#t - (cons _%L60094%_ _%ids59442%_) - _%kws59443%_)) + (cons _%L60058%_ _%ids59406%_) + _%kws59407%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7978279783%_ - (lambda (_%L59804%_ _%L59806%_ _%L59807%_) - (if (not _%optionals-allowed?59430%_) - (let* ((_%__stx7969979700%_ _%L59806%_) - (_%g5982459845%_ + (_%__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" - _%__stx7969979700%_)))) - (let ((_%__kont7970279703%_ - (lambda (_%L59909%_) + _%__stx8046580466%_)))) + (let ((_%__kont8046880469%_ + (lambda (_%L59873%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59427%_ - _%signature59428%_))) - (_%__kont7970679707%_ (lambda () (void)))) - (let ((_%__match7973479735%_ - (lambda (_%__splice7970479705%_ - _%target5982759863%_ - _%tl5982959866%_ - _%e5983459869%_ - _%hd5983559873%_ - _%tl5983659876%_ - _%e5983759879%_ - _%hd5983859883%_ - _%tl5983959886%_) - (letrec ((_%loop5983059889%_ - (lambda (_%hd5982859893%_) + _%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? - _%hd5982859893%_) - (let ((_%e5983159897%_ + _%hd5979259857%_) + (let ((_%e5979559861%_ (gx#syntax-e - _%hd5982859893%_))) - (let ((_%lp-tl5983359904%_ + _%hd5979259857%_))) + (let ((_%lp-tl5979759868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e5983159897%_))) - (_%lp-hd5983259901%_ + (let () (declare (not safe)) (##cdr _%e5979559861%_))) + (_%lp-hd5979659865%_ (let () (declare (not safe)) - (##car _%e5983159897%_)))) - (_%loop5983059889%_ _%lp-tl5983359904%_))) - (_%__kont7970279703%_ _%hd5983859883%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5983059889%_ - _%target5982759863%_))))) - (if (gx#stx-pair/null? _%__stx7969979700%_) - (if (let ((__tmp84155 + (##car _%e5979559861%_)))) + (_%loop5979459853%_ _%lp-tl5979759868%_))) + (_%__kont8046880469%_ _%hd5980259847%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop5979459853%_ + _%target5979159827%_))))) + (if (gx#stx-pair/null? _%__stx8046580466%_) + (if (let ((__tmp85031 (gx#stx-length - _%__stx7969979700%_))) + _%__stx8046580466%_))) (declare (not safe)) - (##fx>= __tmp84155 '2)) - (let ((_%__splice7970479705%_ + (##fx>= __tmp85031 '2)) + (let ((_%__splice8047080471%_ (gx#syntax-split-splice - _%__stx7969979700%_ + _%__stx8046580466%_ '2))) - (let ((_%tl5982959866%_ + (let ((_%tl5979359830%_ (let () (declare (not safe)) (##vector-ref - _%__splice7970479705%_ + _%__splice8047080471%_ '1))) - (_%target5982759863%_ + (_%target5979159827%_ (let () (declare (not safe)) (##vector-ref - _%__splice7970479705%_ + _%__splice8047080471%_ '0)))) (if (gx#stx-pair? - _%tl5982959866%_) - (let ((_%e5983459869%_ + _%tl5979359830%_) + (let ((_%e5979859833%_ (gx#syntax-e - _%tl5982959866%_))) - (let ((_%tl5983659876%_ + _%tl5979359830%_))) + (let ((_%tl5980059840%_ (let () (declare (not safe)) - (##cdr _%e5983459869%_))) - (_%hd5983559873%_ + (##cdr _%e5979859833%_))) + (_%hd5979959837%_ (let () (declare (not safe)) - (##car _%e5983459869%_)))) + (##car _%e5979859833%_)))) (if (gx#identifier? - _%hd5983559873%_) + _%hd5979959837%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84156_| - _%hd5983559873%_) + |gerbil/core/contract~Interface[1]#_g85032_| + _%hd5979959837%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5983659876%_) - (let ((_%e5983759879%_ - (gx#syntax-e _%tl5983659876%_))) - (let ((_%tl5983959886%_ + _%tl5980059840%_) + (let ((_%e5980159843%_ + (gx#syntax-e _%tl5980059840%_))) + (let ((_%tl5980359850%_ (let () (declare (not safe)) - (##cdr _%e5983759879%_))) - (_%hd5983859883%_ + (##cdr _%e5980159843%_))) + (_%hd5980259847%_ (let () (declare (not safe)) - (##car _%e5983759879%_)))) - (if (gx#stx-null? _%tl5983959886%_) - (_%__match7973479735%_ - _%__splice7970479705%_ - _%target5982759863%_ - _%tl5982959866%_ - _%e5983459869%_ - _%hd5983559873%_ - _%tl5983659876%_ - _%e5983759879%_ - _%hd5983859883%_ - _%tl5983959886%_) - (_%__kont7970679707%_)))) - (_%__kont7970679707%_)) - (_%__kont7970679707%_)) - (_%__kont7970679707%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7970679707%_)))) - (_%__kont7970679707%_)) - (_%__kont7970679707%_))))) - (if (null? _%kws59443%_) - (if _%have-optional?59441%_ - (let* ((_%__stx7973779738%_ _%L59806%_) - (_%g5993859959%_ + (##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" - _%__stx7973779738%_)))) - (let ((_%__kont7974079741%_ - (lambda (_%L60023%_) + _%__stx8050380504%_)))) + (let ((_%__kont8050680507%_ + (lambda (_%L59987%_) (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59427%_ - _%L59806%_) - (_%lp59436%_ - _%L59804%_ + _%stx59391%_ + _%L59770%_) + (_%lp59400%_ + _%L59768%_ '#t - (cons _%L59807%_ _%ids59442%_) - _%kws59443%_))) - (_%__kont7974479745%_ + (cons _%L59771%_ _%ids59406%_) + _%kws59407%_))) + (_%__kont8051080511%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature; expected optional argument" - _%stx59427%_ - _%signature59428%_ - _%L59806%_)))) - (let ((_%__match7977279773%_ - (lambda (_%__splice7974279743%_ - _%target5994159977%_ - _%tl5994359980%_ - _%e5994859983%_ - _%hd5994959987%_ - _%tl5995059990%_ - _%e5995159993%_ - _%hd5995259997%_ - _%tl5995360000%_) - (letrec ((_%loop5994460003%_ - (lambda (_%hd5994260007%_) + _%stx59391%_ + _%signature59392%_ + _%L59770%_)))) + (let ((_%__match8053880539%_ + (lambda (_%__splice8050880509%_ + _%target5990559941%_ + _%tl5990759944%_ + _%e5991259947%_ + _%hd5991359951%_ + _%tl5991459954%_ + _%e5991559957%_ + _%hd5991659961%_ + _%tl5991759964%_) + (letrec ((_%loop5990859967%_ + (lambda (_%hd5990659971%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd5994260007%_) - (let ((_%e5994560011%_ (gx#syntax-e _%hd5994260007%_))) - (let ((_%lp-tl5994760018%_ + _%hd5990659971%_) + (let ((_%e5990959975%_ (gx#syntax-e _%hd5990659971%_))) + (let ((_%lp-tl5991159982%_ (let () (declare (not safe)) - (##cdr _%e5994560011%_))) - (_%lp-hd5994660015%_ + (##cdr _%e5990959975%_))) + (_%lp-hd5991059979%_ (let () (declare (not safe)) - (##car _%e5994560011%_)))) - (_%loop5994460003%_ _%lp-tl5994760018%_))) - (_%__kont7974079741%_ _%hd5995259997%_))))) + (##car _%e5990959975%_)))) + (_%loop5990859967%_ _%lp-tl5991159982%_))) + (_%__kont8050680507%_ _%hd5991659961%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5994460003%_ - _%target5994159977%_))))) + (_%loop5990859967%_ + _%target5990559941%_))))) (if (gx#stx-pair/null? - _%__stx7973779738%_) - (if (let ((__tmp84157 + _%__stx8050380504%_) + (if (let ((__tmp85033 (gx#stx-length - _%__stx7973779738%_))) + _%__stx8050380504%_))) (declare (not safe)) - (##fx>= __tmp84157 '2)) - (let ((_%__splice7974279743%_ + (##fx>= __tmp85033 '2)) + (let ((_%__splice8050880509%_ (gx#syntax-split-splice - _%__stx7973779738%_ + _%__stx8050380504%_ '2))) - (let ((_%tl5994359980%_ + (let ((_%tl5990759944%_ (let () (declare (not safe)) (##vector-ref - _%__splice7974279743%_ + _%__splice8050880509%_ '1))) - (_%target5994159977%_ + (_%target5990559941%_ (let () (declare (not safe)) (##vector-ref - _%__splice7974279743%_ + _%__splice8050880509%_ '0)))) (if (gx#stx-pair? - _%tl5994359980%_) - (let ((_%e5994859983%_ + _%tl5990759944%_) + (let ((_%e5991259947%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5994359980%_))) - (let ((_%tl5995059990%_ + _%tl5990759944%_))) + (let ((_%tl5991459954%_ (let () (declare (not safe)) - (##cdr _%e5994859983%_))) - (_%hd5994959987%_ + (##cdr _%e5991259947%_))) + (_%hd5991359951%_ (let () (declare (not safe)) - (##car _%e5994859983%_)))) - (if (gx#identifier? _%hd5994959987%_) + (##car _%e5991259947%_)))) + (if (gx#identifier? _%hd5991359951%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84158_| - _%hd5994959987%_) - (if (gx#stx-pair? _%tl5995059990%_) - (let ((_%e5995159993%_ - (gx#syntax-e _%tl5995059990%_))) - (let ((_%tl5995360000%_ + |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 _%e5995159993%_))) - (_%hd5995259997%_ + (##cdr _%e5991559957%_))) + (_%hd5991659961%_ (let () (declare (not safe)) - (##car _%e5995159993%_)))) - (if (gx#stx-null? _%tl5995360000%_) - (_%__match7977279773%_ - _%__splice7974279743%_ - _%target5994159977%_ - _%tl5994359980%_ - _%e5994859983%_ - _%hd5994959987%_ - _%tl5995059990%_ - _%e5995159993%_ - _%hd5995259997%_ - _%tl5995360000%_) - (_%__kont7974479745%_)))) - (_%__kont7974479745%_)) - (_%__kont7974479745%_)) - (_%__kont7974479745%_)))) - (_%__kont7974479745%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7974479745%_)) - (_%__kont7974479745%_))))) - (if (find (lambda (_%g6004560047%_) + (##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=? - _%g6004560047%_ - _%L59807%_)) - _%ids59442%_) + _%g6000960011%_ + _%L59771%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59427%_ - _%signature59428%_ - _%L59807%_) + _%stx59391%_ + _%signature59392%_ + _%L59771%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59427%_ - _%L59806%_) - (_%lp59436%_ - _%L59804%_ - _%have-optional?59441%_ - (cons _%L59807%_ _%ids59442%_) - _%kws59443%_)))) + _%stx59391%_ + _%L59770%_) + (_%lp59400%_ + _%L59768%_ + _%have-optional?59405%_ + (cons _%L59771%_ _%ids59406%_) + _%kws59407%_)))) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7978479785%_ - (lambda (_%L59747%_ _%L59749%_ _%L59750%_) - (if (not _%keywords-allowed?59433%_) + (_%__kont8055080551%_ + (lambda (_%L59711%_ _%L59713%_ _%L59714%_) + (if (not _%keywords-allowed?59397%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59427%_ - _%signature59428%_) - (if (find (lambda (_%g5976559767%_) + _%stx59391%_ + _%signature59392%_) + (if (find (lambda (_%g5972959731%_) (gx#bound-identifier=? - _%g5976559767%_ - _%L59749%_)) - _%ids59442%_) + _%g5972959731%_ + _%L59713%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59427%_ - _%signature59428%_ - _%L59749%_) - (if (memq (gx#stx-e _%L59750%_) _%kws59443%_) + _%stx59391%_ + _%signature59392%_ + _%L59713%_) + (if (memq (gx#stx-e _%L59714%_) _%kws59407%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59427%_ - _%signature59428%_ - _%L59750%_) - (_%lp59436%_ - _%L59747%_ - _%have-optional?59441%_ - (cons _%L59749%_ _%ids59442%_) - (cons (gx#stx-e _%L59750%_) - _%kws59443%_))))))) - (_%__kont7978679787%_ - (lambda (_%L59686%_ _%L59688%_ _%L59689%_) - (if (not _%keywords-allowed?59433%_) + _%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" - _%stx59427%_ - _%signature59428%_) - (if (find (lambda (_%g5970859710%_) + _%stx59391%_ + _%signature59392%_) + (if (find (lambda (_%g5967259674%_) (gx#bound-identifier=? - _%g5970859710%_ - _%L59688%_)) - _%ids59442%_) + _%g5967259674%_ + _%L59652%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59427%_ - _%signature59428%_ - _%L59688%_) - (if (memq (gx#stx-e _%L59689%_) _%kws59443%_) + _%stx59391%_ + _%signature59392%_ + _%L59652%_) + (if (memq (gx#stx-e _%L59653%_) _%kws59407%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59427%_ - _%signature59428%_ - _%L59689%_) - (_%lp59436%_ - _%L59686%_ - _%have-optional?59441%_ - (cons _%L59688%_ _%ids59442%_) - (cons (gx#stx-e _%L59689%_) - _%kws59443%_))))))) - (_%__kont7978879789%_ - (lambda (_%L59605%_ _%L59607%_ _%L59608%_ _%L59609%_) - (if (not _%keywords-allowed?59433%_) + _%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" - _%stx59427%_ - _%signature59428%_) - (if (find (lambda (_%g5962759629%_) + _%stx59391%_ + _%signature59392%_) + (if (find (lambda (_%g5959159593%_) (gx#bound-identifier=? - _%g5962759629%_ - _%L59608%_)) - _%ids59442%_) + _%g5959159593%_ + _%L59572%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59427%_ - _%signature59428%_ - _%L59608%_) - (if (memq (gx#stx-e _%L59609%_) _%kws59443%_) + _%stx59391%_ + _%signature59392%_ + _%L59572%_) + (if (memq (gx#stx-e _%L59573%_) _%kws59407%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59427%_ - _%signature59428%_ - _%L59609%_) + _%stx59391%_ + _%signature59392%_ + _%L59573%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59427%_ - _%L59607%_) - (_%lp59436%_ - _%L59605%_ - _%have-optional?59441%_ - (cons _%L59608%_ _%ids59442%_) - (cons (gx#stx-e _%L59609%_) - _%kws59443%_)))))))) - (_%__kont7979079791%_ (lambda (_%L59552%_) '#t)) - (_%__kont7979279793%_ (lambda () '#t)) - (_%__kont7979479795%_ + _%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" - _%stx59427%_ - _%signature59428%_ - _%rest59439%_)))) - (let* ((_%g5945159545%_ + _%stx59391%_ + _%signature59392%_ + _%rest59403%_)))) + (let* ((_%g5941559509%_ (lambda () - (if (gx#stx-null? _%__stx7977579776%_) - (_%__kont7979279793%_) - (_%__kont7979479795%_)))) - (_%g5945059568%_ + (if (gx#stx-null? _%__stx8054180542%_) + (_%__kont8055880559%_) + (_%__kont8056080561%_)))) + (_%g5941459532%_ (lambda () - (let ((_%L59552%_ _%__stx7977579776%_)) - (if (gx#identifier? _%L59552%_) - (_%__kont7979079791%_ _%L59552%_) + (let ((_%L59516%_ _%__stx8054180542%_)) + (if (gx#identifier? _%L59516%_) + (_%__kont8055680557%_ _%L59516%_) (let () (declare (not safe)) - (_%g5945159545%_)))))) - (_%__match7989079891%_ - (lambda (_%e5950859575%_ - _%hd5950959579%_ - _%tl5951059582%_ - _%e5951159585%_ - _%hd5951259589%_ - _%tl5951359592%_ - _%e5951459595%_ - _%hd5951559599%_ - _%tl5951659602%_) - (let ((_%L59605%_ _%tl5951359592%_) - (_%L59607%_ _%tl5951659602%_) - (_%L59608%_ _%hd5951559599%_) - (_%L59609%_ _%hd5950959579%_)) - (if (and (gx#stx-keyword? _%L59609%_) - (gx#identifier? _%L59608%_) + (_%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?| - _%L59607%_)) - (_%__kont7978879789%_ - _%L59605%_ - _%L59607%_ - _%L59608%_ - _%L59609%_) + _%L59571%_)) + (_%__kont8055480555%_ + _%L59569%_ + _%L59571%_ + _%L59572%_ + _%L59573%_) (let () (declare (not safe)) - (_%g5945059568%_)))))) - (_%__match7987279873%_ - (lambda (_%e5949259646%_ - _%hd5949359650%_ - _%tl5949459653%_ - _%e5949559656%_ - _%hd5949659660%_ - _%tl5949759663%_ - _%e5949859666%_ - _%hd5949959670%_ - _%tl5950059673%_ - _%e5950159676%_ - _%hd5950259680%_ - _%tl5950359683%_) - (let ((_%L59686%_ _%tl5949759663%_) - (_%L59688%_ _%hd5949959670%_) - (_%L59689%_ _%hd5949359650%_)) - (if (and (gx#stx-keyword? _%L59689%_) - (gx#identifier? _%L59688%_)) - (_%__kont7978679787%_ - _%L59686%_ - _%L59688%_ - _%L59689%_) - (_%__match7989079891%_ - _%e5949259646%_ - _%hd5949359650%_ - _%tl5949459653%_ - _%e5949559656%_ - _%hd5949659660%_ - _%tl5949759663%_ - _%e5949859666%_ - _%hd5949959670%_ - _%tl5950059673%_))))) - (_%__match7984679847%_ - (lambda (_%e5948359727%_ - _%hd5948459731%_ - _%tl5948559734%_ - _%e5948659737%_ - _%hd5948759741%_ - _%tl5948859744%_) - (let ((_%L59747%_ _%tl5948859744%_) - (_%L59749%_ _%hd5948759741%_) - (_%L59750%_ _%hd5948459731%_)) - (if (and (gx#stx-keyword? _%L59750%_) - (gx#identifier? _%L59749%_)) - (_%__kont7978479785%_ - _%L59747%_ - _%L59749%_ - _%L59750%_) - (if (gx#stx-pair? _%hd5948759741%_) - (let ((_%e5949859666%_ - (gx#syntax-e _%hd5948759741%_))) - (let ((_%tl5950059673%_ + (_%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 _%e5949859666%_))) - (_%hd5949959670%_ + (##cdr _%e5946259630%_))) + (_%hd5946359634%_ (let () (declare (not safe)) - (##car _%e5949859666%_)))) - (if (gx#stx-pair? _%tl5950059673%_) - (let ((_%e5950159676%_ + (##car _%e5946259630%_)))) + (if (gx#stx-pair? _%tl5946459637%_) + (let ((_%e5946559640%_ (gx#syntax-e - _%tl5950059673%_))) - (let ((_%tl5950359683%_ + _%tl5946459637%_))) + (let ((_%tl5946759647%_ (let () (declare (not safe)) - (##cdr _%e5950159676%_))) - (_%hd5950259680%_ + (##cdr _%e5946559640%_))) + (_%hd5946659644%_ (let () (declare (not safe)) - (##car _%e5950159676%_)))) + (##car _%e5946559640%_)))) (if (gx#stx-null? - _%tl5950359683%_) - (_%__match7987279873%_ - _%e5948359727%_ - _%hd5948459731%_ - _%tl5948559734%_ - _%e5948659737%_ - _%hd5948759741%_ - _%tl5948859744%_ - _%e5949859666%_ - _%hd5949959670%_ - _%tl5950059673%_ - _%e5950159676%_ - _%hd5950259680%_ - _%tl5950359683%_) - (_%__match7989079891%_ - _%e5948359727%_ - _%hd5948459731%_ - _%tl5948559734%_ - _%e5948659737%_ - _%hd5948759741%_ - _%tl5948859744%_ - _%e5949859666%_ - _%hd5949959670%_ - _%tl5950059673%_)))) - (_%__match7989079891%_ - _%e5948359727%_ - _%hd5948459731%_ - _%tl5948559734%_ - _%e5948659737%_ - _%hd5948759741%_ - _%tl5948859744%_ - _%e5949859666%_ - _%hd5949959670%_ - _%tl5950059673%_)))) + _%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)) - (_%g5945059568%_))))))) - (_%__match7983479835%_ - (lambda (_%e5947459784%_ - _%hd5947559788%_ - _%tl5947659791%_ - _%e5947759794%_ - _%hd5947859798%_ - _%tl5947959801%_) - (let ((_%L59804%_ _%tl5947659791%_) - (_%L59806%_ _%tl5947959801%_) - (_%L59807%_ _%hd5947859798%_)) - (if (and (gx#identifier? _%L59807%_) + (_%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?| - _%L59806%_)) - (_%__kont7978279783%_ - _%L59804%_ - _%L59806%_ - _%L59807%_) - (if (gx#stx-pair? _%tl5947659791%_) - (let ((_%e5948659737%_ - (gx#syntax-e _%tl5947659791%_))) - (let ((_%tl5948859744%_ + _%L59770%_)) + (_%__kont8054880549%_ + _%L59768%_ + _%L59770%_ + _%L59771%_) + (if (gx#stx-pair? _%tl5944059755%_) + (let ((_%e5945059701%_ + (gx#syntax-e _%tl5944059755%_))) + (let ((_%tl5945259708%_ (let () (declare (not safe)) - (##cdr _%e5948659737%_))) - (_%hd5948759741%_ + (##cdr _%e5945059701%_))) + (_%hd5945159705%_ (let () (declare (not safe)) - (##car _%e5948659737%_)))) - (_%__match7984679847%_ - _%e5947459784%_ - _%hd5947559788%_ - _%tl5947659791%_ - _%e5948659737%_ - _%hd5948759741%_ - _%tl5948859744%_))) + (##car _%e5945059701%_)))) + (_%__match8061280613%_ + _%e5943859748%_ + _%hd5943959752%_ + _%tl5944059755%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_))) (let () (declare (not safe)) - (_%g5945059568%_))))))) - (_%__match7982279823%_ - (lambda (_%e5946260062%_ - _%hd5946360066%_ - _%tl5946460069%_ - _%e5946560072%_ - _%hd5946660076%_ - _%tl5946760079%_ - _%e5946860082%_ - _%hd5946960086%_ - _%tl5947060089%_) - (let ((_%L60092%_ _%tl5946460069%_) - (_%L60094%_ _%hd5946660076%_)) - (if (gx#identifier? _%L60094%_) - (_%__kont7978079781%_ _%L60092%_ _%L60094%_) - (_%__match7983479835%_ - _%e5946260062%_ - _%hd5946360066%_ - _%tl5946460069%_ - _%e5946560072%_ - _%hd5946660076%_ - _%tl5946760079%_))))) - (_%__match7980279803%_ - (lambda (_%e5945760129%_ - _%hd5945860133%_ - _%tl5945960136%_) - (let ((_%L60139%_ _%tl5945960136%_) - (_%L60141%_ _%hd5945860133%_)) - (if (gx#identifier? _%L60141%_) - (_%__kont7977879779%_ _%L60139%_ _%L60141%_) - (if (gx#stx-pair? _%hd5945860133%_) - (let ((_%e5946560072%_ - (gx#syntax-e _%hd5945860133%_))) - (let ((_%tl5946760079%_ + (_%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 _%e5946560072%_))) - (_%hd5946660076%_ + (##cdr _%e5942960036%_))) + (_%hd5943060040%_ (let () (declare (not safe)) - (##car _%e5946560072%_)))) - (if (gx#stx-pair? _%tl5946760079%_) - (let ((_%e5946860082%_ + (##car _%e5942960036%_)))) + (if (gx#stx-pair? _%tl5943160043%_) + (let ((_%e5943260046%_ (gx#syntax-e - _%tl5946760079%_))) - (let ((_%tl5947060089%_ + _%tl5943160043%_))) + (let ((_%tl5943460053%_ (let () (declare (not safe)) - (##cdr _%e5946860082%_))) - (_%hd5946960086%_ + (##cdr _%e5943260046%_))) + (_%hd5943360050%_ (let () (declare (not safe)) - (##car _%e5946860082%_)))) + (##car _%e5943260046%_)))) (if (gx#stx-null? - _%tl5947060089%_) - (_%__match7982279823%_ - _%e5945760129%_ - _%hd5945860133%_ - _%tl5945960136%_ - _%e5946560072%_ - _%hd5946660076%_ - _%tl5946760079%_ - _%e5946860082%_ - _%hd5946960086%_ - _%tl5947060089%_) - (_%__match7983479835%_ - _%e5945760129%_ - _%hd5945860133%_ - _%tl5945960136%_ - _%e5946560072%_ - _%hd5946660076%_ - _%tl5946760079%_)))) - (_%__match7983479835%_ - _%e5945760129%_ - _%hd5945860133%_ - _%tl5945960136%_ - _%e5946560072%_ - _%hd5946660076%_ - _%tl5946760079%_)))) - (if (gx#stx-pair? _%tl5945960136%_) - (let ((_%e5948659737%_ - (gx#syntax-e _%tl5945960136%_))) - (let ((_%tl5948859744%_ + _%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 _%e5948659737%_))) - (_%hd5948759741%_ + (##cdr _%e5945059701%_))) + (_%hd5945159705%_ (let () (declare (not safe)) - (##car _%e5948659737%_)))) - (_%__match7984679847%_ - _%e5945760129%_ - _%hd5945860133%_ - _%tl5945960136%_ - _%e5948659737%_ - _%hd5948759741%_ - _%tl5948859744%_))) + (##car _%e5945059701%_)))) + (_%__match8061280613%_ + _%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_))) (let () (declare (not safe)) - (_%g5945059568%_))))))))) - (if (gx#stx-pair? _%__stx7977579776%_) - (let ((_%e5945760129%_ - (gx#syntax-e _%__stx7977579776%_))) - (let ((_%tl5945960136%_ + (_%g5941459532%_))))))))) + (if (gx#stx-pair? _%__stx8054180542%_) + (let ((_%e5942160093%_ + (gx#syntax-e _%__stx8054180542%_))) + (let ((_%tl5942360100%_ (let () (declare (not safe)) - (##cdr _%e5945760129%_))) - (_%hd5945860133%_ + (##cdr _%e5942160093%_))) + (_%hd5942260097%_ (let () (declare (not safe)) - (##car _%e5945760129%_)))) - (_%__match7980279803%_ - _%e5945760129%_ - _%hd5945860133%_ - _%tl5945960136%_))) - (let () (declare (not safe)) (_%g5945059568%_)))))))))) + (##car _%e5942160093%_)))) + (_%__match8056880569%_ + _%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_))) + (let () (declare (not safe)) (_%g5941459532%_)))))))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - (lambda (_%@@keywords60173%_ . _%args60175%_) + (lambda (_%@@keywords60137%_ . _%args60139%_) (apply |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - _%@@keywords60173%_ + _%@@keywords60137%_ (symbolic-table-ref - _%@@keywords60173%_ + _%@@keywords60137%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60173%_ 'keywords: absent-value) - _%args60175%_))) + (symbolic-table-ref _%@@keywords60137%_ 'keywords: absent-value) + _%args60139%_))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!| - (lambda _%args5941960182%_ + (lambda _%args5938360146%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - _%args5941960182%_))) + _%args5938360146%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| - (lambda (_%contract58876%_) - (let* ((_%__stx7989579896%_ _%contract58876%_) - (_%g5888558973%_ + (lambda (_%contract58840%_) + (let* ((_%__stx8066180662%_ _%contract58840%_) + (_%g5884958937%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7989579896%_)))) - (let ((_%__kont7989879899%_ - (lambda (_%L59385%_ _%L59387%_) (gx#identifier? _%L59385%_))) - (_%__kont7990079901%_ - (lambda (_%L59325%_ _%L59327%_ _%L59328%_) - (gx#identifier? _%L59327%_))) - (_%__kont7990279903%_ (lambda (_%L59265%_) '#t)) - (_%__kont7990479905%_ (lambda (_%L59219%_ _%L59221%_) '#t)) - (_%__kont7990679907%_ - (lambda (_%L59139%_ _%L59141%_ _%L59142%_) - (gx#identifier? _%L59139%_))) - (_%__kont7990879909%_ - (lambda (_%L59051%_ _%L59053%_ _%L59054%_ _%L59055%_) - (gx#identifier? _%L59053%_))) - (_%__kont7991079911%_ (lambda () '#f))) - (let* ((_%__match8008480085%_ - (lambda (_%e5895058991%_ - _%hd5895158995%_ - _%tl5895258998%_ - _%e5895359001%_ - _%hd5895459005%_ - _%tl5895559008%_ - _%e5895659011%_ - _%hd5895759015%_ - _%tl5895859018%_ - _%e5895959021%_ - _%hd5896059025%_ - _%tl5896159028%_ - _%e5896259031%_ - _%hd5896359035%_ - _%tl5896459038%_ - _%e5896559041%_ - _%hd5896659045%_ - _%tl5896759048%_) - (let ((_%L59051%_ _%hd5896659045%_) - (_%L59053%_ _%hd5896059025%_) - (_%L59054%_ _%hd5895759015%_) - (_%L59055%_ _%hd5895459005%_)) - (if (and (gx#identifier? _%L59054%_) + _%__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=? - _%L59054%_ + _%L59018%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59054%_ + _%L59018%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59054%_ + _%L59018%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59054%_ + _%L59018%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7990879909%_ - _%L59051%_ - _%L59053%_ - _%L59054%_ - _%L59055%_) - (_%__kont7991079911%_))))) - (_%__match8003880039%_ - (lambda (_%e5893459099%_ - _%hd5893559103%_ - _%tl5893659106%_ - _%e5893759109%_ - _%hd5893859113%_ - _%tl5893959116%_ - _%e5894059119%_ - _%hd5894159123%_ - _%tl5894259126%_ - _%e5894359129%_ - _%hd5894459133%_ - _%tl5894559136%_) - (let ((_%L59139%_ _%hd5894459133%_) - (_%L59141%_ _%hd5894159123%_) - (_%L59142%_ _%hd5893859113%_)) - (if (and (gx#identifier? _%L59141%_) + (_%__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=? - _%L59141%_ + _%L59105%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59141%_ + _%L59105%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59141%_ + _%L59105%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59141%_ + _%L59105%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7990679907%_ - _%L59139%_ - _%L59141%_ - _%L59142%_) - (_%__kont7991079911%_))))) - (_%__match7995679957%_ - (lambda (_%e5889859285%_ - _%hd5889959289%_ - _%tl5890059292%_ - _%e5890159295%_ - _%hd5890259299%_ - _%tl5890359302%_ - _%e5890459305%_ - _%hd5890559309%_ - _%tl5890659312%_ - _%e5890759315%_ - _%hd5890859319%_ - _%tl5890959322%_) - (let ((_%L59325%_ _%hd5890859319%_) - (_%L59327%_ _%hd5890259299%_) - (_%L59328%_ _%hd5889959289%_)) - (if (and (gx#identifier? _%L59328%_) + (_%__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=? - _%L59328%_ + _%L59292%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59328%_ + _%L59292%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59328%_ + _%L59292%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59328%_ + _%L59292%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7990079901%_ - _%L59325%_ - _%L59327%_ - _%L59328%_) - (if (gx#identifier? _%hd5889959289%_) + (_%__kont8066680667%_ + _%L59289%_ + _%L59291%_ + _%L59292%_) + (if (gx#identifier? _%hd5886359253%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84159_| - _%hd5889959289%_) - (_%__kont7990479905%_ - _%hd5890859319%_ - _%hd5890259299%_) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)))))) - (_%__match7992679927%_ - (lambda (_%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_) - (let ((_%L59385%_ _%hd5889359379%_) - (_%L59387%_ _%hd5889059369%_)) - (if (and (gx#identifier? _%L59387%_) + |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=? - _%L59387%_ + _%L59351%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59387%_ + _%L59351%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59387%_ + _%L59351%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59387%_ + _%L59351%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7989879899%_ _%L59385%_ _%L59387%_) - (if (gx#identifier? _%hd5889059369%_) + (_%__kont8066480665%_ _%L59349%_ _%L59351%_) + (if (gx#identifier? _%hd5885459333%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84159_| - _%hd5889059369%_) - (_%__kont7990279903%_ _%hd5889359379%_) - (_%__kont7991079911%_)) - (_%__kont7991079911%_))))))) - (if (gx#stx-pair? _%__stx7989579896%_) - (let ((_%e5888959365%_ (gx#syntax-e _%__stx7989579896%_))) - (let ((_%tl5889159372%_ + |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 _%e5888959365%_))) - (_%hd5889059369%_ + (##cdr _%e5885359329%_))) + (_%hd5885459333%_ (let () (declare (not safe)) - (##car _%e5888959365%_)))) - (if (gx#stx-pair? _%tl5889159372%_) - (let ((_%e5889259375%_ - (gx#syntax-e _%tl5889159372%_))) - (let ((_%tl5889459382%_ + (##car _%e5885359329%_)))) + (if (gx#stx-pair? _%tl5885559336%_) + (let ((_%e5885659339%_ + (gx#syntax-e _%tl5885559336%_))) + (let ((_%tl5885859346%_ (let () (declare (not safe)) - (##cdr _%e5889259375%_))) - (_%hd5889359379%_ + (##cdr _%e5885659339%_))) + (_%hd5885759343%_ (let () (declare (not safe)) - (##car _%e5889259375%_)))) - (if (gx#stx-null? _%tl5889459382%_) - (_%__match7992679927%_ - _%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_) - (if (gx#stx-pair? _%tl5889459382%_) - (let ((_%e5890459305%_ - (gx#syntax-e _%tl5889459382%_))) - (let ((_%tl5890659312%_ + (##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 _%e5890459305%_))) - (_%hd5890559309%_ + (##cdr _%e5886859269%_))) + (_%hd5886959273%_ (let () (declare (not safe)) - (##car _%e5890459305%_)))) - (if (gx#identifier? _%hd5890559309%_) + (##car _%e5886859269%_)))) + (if (gx#identifier? _%hd5886959273%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84160_| - _%hd5890559309%_) + |gerbil/core/contract~Interface[1]#_g85036_| + _%hd5886959273%_) (if (gx#stx-pair? - _%tl5890659312%_) - (let ((_%e5890759315%_ + _%tl5887059276%_) + (let ((_%e5887159279%_ (gx#syntax-e - _%tl5890659312%_))) - (let ((_%tl5890959322%_ + _%tl5887059276%_))) + (let ((_%tl5887359286%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5890759315%_))) - (_%hd5890859319%_ - (let () (declare (not safe)) (##car _%e5890759315%_)))) - (if (gx#stx-null? _%tl5890959322%_) - (_%__match7995679957%_ - _%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_ - _%e5890459305%_ - _%hd5890559309%_ - _%tl5890659312%_ - _%e5890759315%_ - _%hd5890859319%_ - _%tl5890959322%_) - (if (gx#identifier? _%hd5889059369%_) + (##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]#_g84159_| - _%hd5889059369%_) - (if (gx#stx-pair? _%tl5890959322%_) - (let ((_%e5896259031%_ - (gx#syntax-e _%tl5890959322%_))) - (let ((_%tl5896459038%_ + |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 _%e5896259031%_))) - (_%hd5896359035%_ + (##cdr _%e5892658995%_))) + (_%hd5892758999%_ (let () (declare (not safe)) - (##car _%e5896259031%_)))) - (if (gx#identifier? _%hd5896359035%_) + (##car _%e5892658995%_)))) + (if (gx#identifier? _%hd5892758999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84161_| - _%hd5896359035%_) + |gerbil/core/contract~Interface[1]#_g85037_| + _%hd5892758999%_) (if (gx#stx-pair? - _%tl5896459038%_) - (let ((_%e5896559041%_ + _%tl5892859002%_) + (let ((_%e5892959005%_ (gx#syntax-e - _%tl5896459038%_))) - (let ((_%tl5896759048%_ + _%tl5892859002%_))) + (let ((_%tl5893159012%_ (let () (declare (not safe)) - (##cdr _%e5896559041%_))) - (_%hd5896659045%_ + (##cdr _%e5892959005%_))) + (_%hd5893059009%_ (let () (declare (not safe)) - (##car _%e5896559041%_)))) + (##car _%e5892959005%_)))) (if (gx#stx-null? - _%tl5896759048%_) - (_%__match8008480085%_ - _%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_ - _%e5890459305%_ - _%hd5890559309%_ - _%tl5890659312%_ - _%e5890759315%_ - _%hd5890859319%_ - _%tl5890959322%_ - _%e5896259031%_ - _%hd5896359035%_ - _%tl5896459038%_ - _%e5896559041%_ - _%hd5896659045%_ - _%tl5896759048%_) - (_%__kont7991079911%_)))) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)))) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)) - (_%__kont7991079911%_))))) - (_%__kont7991079911%_)) + _%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? - _%hd5889059369%_) + _%hd5885459333%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84159_| - _%hd5889059369%_) + |gerbil/core/contract~Interface[1]#_g85035_| + _%hd5885459333%_) (if (gx#stx-pair? - _%tl5890659312%_) - (let ((_%e5894359129%_ + _%tl5887059276%_) + (let ((_%e5890759093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5890659312%_))) - (let ((_%tl5894559136%_ + (gx#syntax-e _%tl5887059276%_))) + (let ((_%tl5890959100%_ (let () (declare (not safe)) - (##cdr _%e5894359129%_))) - (_%hd5894459133%_ + (##cdr _%e5890759093%_))) + (_%hd5890859097%_ (let () (declare (not safe)) - (##car _%e5894359129%_)))) - (if (gx#stx-null? _%tl5894559136%_) - (_%__match8003880039%_ - _%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_ - _%e5890459305%_ - _%hd5890559309%_ - _%tl5890659312%_ - _%e5894359129%_ - _%hd5894459133%_ - _%tl5894559136%_) - (if (gx#stx-pair? _%tl5894559136%_) - (let ((_%e5896259031%_ - (gx#syntax-e _%tl5894559136%_))) - (let ((_%tl5896459038%_ + (##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 _%e5896259031%_))) - (_%hd5896359035%_ + (##cdr _%e5892658995%_))) + (_%hd5892758999%_ (let () (declare (not safe)) - (##car _%e5896259031%_)))) - (if (gx#identifier? _%hd5896359035%_) + (##car _%e5892658995%_)))) + (if (gx#identifier? _%hd5892758999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84161_| - _%hd5896359035%_) + |gerbil/core/contract~Interface[1]#_g85037_| + _%hd5892758999%_) (if (gx#stx-pair? - _%tl5896459038%_) - (let ((_%e5896559041%_ + _%tl5892859002%_) + (let ((_%e5892959005%_ (gx#syntax-e - _%tl5896459038%_))) - (let ((_%tl5896759048%_ + _%tl5892859002%_))) + (let ((_%tl5893159012%_ (let () (declare (not safe)) - (##cdr _%e5896559041%_))) - (_%hd5896659045%_ + (##cdr _%e5892959005%_))) + (_%hd5893059009%_ (let () (declare (not safe)) - (##car _%e5896559041%_)))) + (##car _%e5892959005%_)))) (if (gx#stx-null? - _%tl5896759048%_) - (_%__match8008480085%_ - _%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_ - _%e5890459305%_ - _%hd5890559309%_ - _%tl5890659312%_ - _%e5894359129%_ - _%hd5894459133%_ - _%tl5894559136%_ - _%e5896259031%_ - _%hd5896359035%_ - _%tl5896459038%_ - _%e5896559041%_ - _%hd5896659045%_ - _%tl5896759048%_) - (_%__kont7991079911%_)))) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)))) - (_%__kont7991079911%_))))) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)) - (_%__kont7991079911%_))) + _%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? - _%hd5889059369%_) + _%hd5885459333%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84159_| - _%hd5889059369%_) + |gerbil/core/contract~Interface[1]#_g85035_| + _%hd5885459333%_) (if (gx#stx-pair? - _%tl5890659312%_) - (let ((_%e5894359129%_ + _%tl5887059276%_) + (let ((_%e5890759093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5890659312%_))) - (let ((_%tl5894559136%_ + (gx#syntax-e _%tl5887059276%_))) + (let ((_%tl5890959100%_ (let () (declare (not safe)) - (##cdr _%e5894359129%_))) - (_%hd5894459133%_ + (##cdr _%e5890759093%_))) + (_%hd5890859097%_ (let () (declare (not safe)) - (##car _%e5894359129%_)))) - (if (gx#stx-null? _%tl5894559136%_) - (_%__match8003880039%_ - _%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_ - _%e5890459305%_ - _%hd5890559309%_ - _%tl5890659312%_ - _%e5894359129%_ - _%hd5894459133%_ - _%tl5894559136%_) - (if (gx#stx-pair? _%tl5894559136%_) - (let ((_%e5896259031%_ - (gx#syntax-e _%tl5894559136%_))) - (let ((_%tl5896459038%_ + (##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 _%e5896259031%_))) - (_%hd5896359035%_ + (##cdr _%e5892658995%_))) + (_%hd5892758999%_ (let () (declare (not safe)) - (##car _%e5896259031%_)))) - (if (gx#identifier? _%hd5896359035%_) + (##car _%e5892658995%_)))) + (if (gx#identifier? _%hd5892758999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84161_| - _%hd5896359035%_) - (if (gx#stx-pair? _%tl5896459038%_) - (let ((_%e5896559041%_ + |gerbil/core/contract~Interface[1]#_g85037_| + _%hd5892758999%_) + (if (gx#stx-pair? _%tl5892859002%_) + (let ((_%e5892959005%_ (gx#syntax-e - _%tl5896459038%_))) - (let ((_%tl5896759048%_ + _%tl5892859002%_))) + (let ((_%tl5893159012%_ (let () (declare (not safe)) - (##cdr _%e5896559041%_))) - (_%hd5896659045%_ + (##cdr _%e5892959005%_))) + (_%hd5893059009%_ (let () (declare (not safe)) - (##car _%e5896559041%_)))) + (##car _%e5892959005%_)))) (if (gx#stx-null? - _%tl5896759048%_) - (_%__match8008480085%_ - _%e5888959365%_ - _%hd5889059369%_ - _%tl5889159372%_ - _%e5889259375%_ - _%hd5889359379%_ - _%tl5889459382%_ - _%e5890459305%_ - _%hd5890559309%_ - _%tl5890659312%_ - _%e5894359129%_ - _%hd5894459133%_ - _%tl5894559136%_ - _%e5896259031%_ - _%hd5896359035%_ - _%tl5896459038%_ - _%e5896559041%_ - _%hd5896659045%_ - _%tl5896759048%_) - (_%__kont7991079911%_)))) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)))) - (_%__kont7991079911%_))))) - (_%__kont7991079911%_)) - (_%__kont7991079911%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7991079911%_))))) - (_%__kont7991079911%_))))) - (_%__kont7991079911%_)))) - (_%__kont7991079911%_))))))) + _%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 (_%stx58683%_ _%contract58685%_) - (let* ((_%__stx8008780088%_ _%contract58685%_) - (_%g5868958721%_ + (lambda (_%stx58647%_ _%contract58649%_) + (let* ((_%__stx8085380854%_ _%contract58649%_) + (_%g5865358685%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8008780088%_)))) - (let ((_%__kont8009080091%_ - (lambda (_%L58843%_ _%L58845%_ _%L58846%_) + _%__stx8085380854%_)))) + (let ((_%__kont8085680857%_ + (lambda (_%L58807%_ _%L58809%_ _%L58810%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58683%_ - _%L58845%_))) - (_%__kont8009280093%_ - (lambda (_%L58779%_ _%L58781%_ _%L58782%_ _%L58783%_) + _%stx58647%_ + _%L58809%_))) + (_%__kont8085880859%_ + (lambda (_%L58743%_ _%L58745%_ _%L58746%_ _%L58747%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58683%_ - _%L58781%_))) - (_%__kont8009480095%_ (lambda () (void)))) - (let* ((_%__match8013680137%_ - (lambda (_%e5870458739%_ - _%hd5870558743%_ - _%tl5870658746%_ - _%e5870758749%_ - _%hd5870858753%_ - _%tl5870958756%_ - _%e5871058759%_ - _%hd5871158763%_ - _%tl5871258766%_ - _%e5871358769%_ - _%hd5871458773%_ - _%tl5871558776%_) - (let ((_%L58779%_ _%tl5871558776%_) - (_%L58781%_ _%hd5871458773%_) - (_%L58782%_ _%hd5871158763%_) - (_%L58783%_ _%hd5870858753%_)) - (if (and (gx#identifier? _%L58782%_) + _%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=? - _%L58782%_ + _%L58746%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58782%_ + _%L58746%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58782%_ + _%L58746%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58782%_ + _%L58746%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8009280093%_ - _%L58779%_ - _%L58781%_ - _%L58782%_ - _%L58783%_) - (_%__kont8009480095%_))))) - (_%__match8010880109%_ - (lambda (_%e5869458823%_ - _%hd5869558827%_ - _%tl5869658830%_ - _%e5869758833%_ - _%hd5869858837%_ - _%tl5869958840%_) - (let ((_%L58843%_ _%tl5869958840%_) - (_%L58845%_ _%hd5869858837%_) - (_%L58846%_ _%hd5869558827%_)) - (if (and (gx#identifier? _%L58846%_) + (_%__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=? - _%L58846%_ + _%L58810%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58846%_ + _%L58810%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58846%_ + _%L58810%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58846%_ + _%L58810%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8009080091%_ - _%L58843%_ - _%L58845%_ - _%L58846%_) - (if (gx#identifier? _%hd5869558827%_) + (_%__kont8085680857%_ + _%L58807%_ + _%L58809%_ + _%L58810%_) + (if (gx#identifier? _%hd5865958791%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84162_| - _%hd5869558827%_) - (if (gx#stx-pair? _%tl5869958840%_) - (let ((_%e5871058759%_ - (gx#syntax-e _%tl5869958840%_))) - (let ((_%tl5871258766%_ + |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 _%e5871058759%_))) - (_%hd5871158763%_ + (##cdr _%e5867458723%_))) + (_%hd5867558727%_ (let () (declare (not safe)) - (##car _%e5871058759%_)))) - (if (gx#stx-pair? _%tl5871258766%_) - (let ((_%e5871358769%_ + (##car _%e5867458723%_)))) + (if (gx#stx-pair? _%tl5867658730%_) + (let ((_%e5867758733%_ (gx#syntax-e - _%tl5871258766%_))) - (let ((_%tl5871558776%_ + _%tl5867658730%_))) + (let ((_%tl5867958740%_ (let () (declare (not safe)) - (##cdr _%e5871358769%_))) - (_%hd5871458773%_ + (##cdr _%e5867758733%_))) + (_%hd5867858737%_ (let () (declare (not safe)) - (##car _%e5871358769%_)))) - (_%__match8013680137%_ - _%e5869458823%_ - _%hd5869558827%_ - _%tl5869658830%_ - _%e5869758833%_ - _%hd5869858837%_ - _%tl5869958840%_ - _%e5871058759%_ - _%hd5871158763%_ - _%tl5871258766%_ - _%e5871358769%_ - _%hd5871458773%_ - _%tl5871558776%_))) - (_%__kont8009480095%_)))) - (_%__kont8009480095%_)) - (_%__kont8009480095%_)) - (_%__kont8009480095%_))))))) - (if (gx#stx-pair? _%__stx8008780088%_) - (let ((_%e5869458823%_ (gx#syntax-e _%__stx8008780088%_))) - (let ((_%tl5869658830%_ + (##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 _%e5869458823%_))) - (_%hd5869558827%_ + (##cdr _%e5865858787%_))) + (_%hd5865958791%_ (let () (declare (not safe)) - (##car _%e5869458823%_)))) - (if (gx#stx-pair? _%tl5869658830%_) - (let ((_%e5869758833%_ - (gx#syntax-e _%tl5869658830%_))) - (let ((_%tl5869958840%_ + (##car _%e5865858787%_)))) + (if (gx#stx-pair? _%tl5866058794%_) + (let ((_%e5866158797%_ + (gx#syntax-e _%tl5866058794%_))) + (let ((_%tl5866358804%_ (let () (declare (not safe)) - (##cdr _%e5869758833%_))) - (_%hd5869858837%_ + (##cdr _%e5866158797%_))) + (_%hd5866258801%_ (let () (declare (not safe)) - (##car _%e5869758833%_)))) - (_%__match8010880109%_ - _%e5869458823%_ - _%hd5869558827%_ - _%tl5869658830%_ - _%e5869758833%_ - _%hd5869858837%_ - _%tl5869958840%_))) - (_%__kont8009480095%_)))) - (_%__kont8009480095%_))))))) + (##car _%e5866158797%_)))) + (_%__match8087480875%_ + _%e5865858787%_ + _%hd5865958791%_ + _%tl5866058794%_ + _%e5866158797%_ + _%hd5866258801%_ + _%tl5866358804%_))) + (_%__kont8086080861%_)))) + (_%__kont8086080861%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| - (lambda (_%signature58039%_) - (let _%loop58042%_ ((_%rest58045%_ _%signature58039%_) - (_%result58047%_ '())) - (let* ((_%__stx8021580216%_ _%rest58045%_) - (_%g5805658128%_ + (lambda (_%signature58003%_) + (let _%loop58006%_ ((_%rest58009%_ _%signature58003%_) + (_%result58011%_ '())) + (let* ((_%__stx8098180982%_ _%rest58009%_) + (_%g5802058092%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8021580216%_)))) - (let ((_%__kont8021880219%_ - (lambda (_%L58666%_ _%L58668%_) - (_%loop58042%_ - _%L58666%_ - (cons _%L58668%_ _%result58047%_)))) - (_%__kont8022080221%_ - (lambda (_%L58630%_ _%L58632%_ _%L58633%_) - (_%loop58042%_ + _%__stx8098180982%_)))) + (let ((_%__kont8098480985%_ + (lambda (_%L58630%_ _%L58632%_) + (_%loop58006%_ _%L58630%_ - (cons (cons _%L58633%_ (cons _%L58632%_ '())) - _%result58047%_)))) - (_%__kont8022280223%_ - (lambda (_%L58467%_ _%L58469%_ _%L58470%_) - (let* ((_%__stx8017780178%_ _%L58469%_) - (_%g5848558506%_ + (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" - _%__stx8017780178%_)))) - (let ((_%__kont8018080181%_ - (lambda (_%L58570%_) - (_%loop58042%_ - _%L58467%_ - (cons (cons _%L58470%_ (cons _%L58570%_ '())) - _%result58047%_)))) - (_%__kont8018480185%_ + _%__stx8094380944%_)))) + (let ((_%__kont8094680947%_ + (lambda (_%L58534%_) + (_%loop58006%_ + _%L58431%_ + (cons (cons _%L58434%_ (cons _%L58534%_ '())) + _%result58011%_)))) + (_%__kont8095080951%_ (lambda () - (_%loop58042%_ - _%L58467%_ - (cons _%L58470%_ _%result58047%_))))) - (let ((_%__match8021280213%_ - (lambda (_%__splice8018280183%_ - _%target5848858524%_ - _%tl5849058527%_ - _%e5849558530%_ - _%hd5849658534%_ - _%tl5849758537%_ - _%e5849858540%_ - _%hd5849958544%_ - _%tl5850058547%_) - (letrec ((_%loop5849158550%_ - (lambda (_%hd5848958554%_) + (_%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? - _%hd5848958554%_) - (let ((_%e5849258558%_ + _%hd5845358518%_) + (let ((_%e5845658522%_ (gx#syntax-e - _%hd5848958554%_))) - (let ((_%lp-tl5849458565%_ + _%hd5845358518%_))) + (let ((_%lp-tl5845858529%_ (let () (declare (not safe)) - (##cdr _%e5849258558%_))) - (_%lp-hd5849358562%_ + (##cdr _%e5845658522%_))) + (_%lp-hd5845758526%_ (let () (declare (not safe)) - (##car _%e5849258558%_)))) - (_%loop5849158550%_ - _%lp-tl5849458565%_))) - (_%__kont8018080181%_ - _%hd5849958544%_))))) - (_%loop5849158550%_ - _%target5848858524%_))))) - (if (gx#stx-pair/null? _%__stx8017780178%_) - (if (let ((__tmp84163 - (gx#stx-length _%__stx8017780178%_))) + (##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>= __tmp84163 '2)) - (let ((_%__splice8018280183%_ + (##fx>= __tmp85039 '2)) + (let ((_%__splice8094880949%_ (gx#syntax-split-splice - _%__stx8017780178%_ + _%__stx8094380944%_ '2))) - (let ((_%tl5849058527%_ + (let ((_%tl5845458491%_ (let () (declare (not safe)) (##vector-ref - _%__splice8018280183%_ + _%__splice8094880949%_ '1))) - (_%target5848858524%_ + (_%target5845258488%_ (let () (declare (not safe)) (##vector-ref - _%__splice8018280183%_ + _%__splice8094880949%_ '0)))) - (if (gx#stx-pair? _%tl5849058527%_) - (let ((_%e5849558530%_ + (if (gx#stx-pair? _%tl5845458491%_) + (let ((_%e5845958494%_ (gx#syntax-e - _%tl5849058527%_))) - (let ((_%tl5849758537%_ + _%tl5845458491%_))) + (let ((_%tl5846158501%_ (let () (declare (not safe)) - (##cdr _%e5849558530%_))) - (_%hd5849658534%_ + (##cdr _%e5845958494%_))) + (_%hd5846058498%_ (let () (declare (not safe)) - (##car _%e5849558530%_)))) + (##car _%e5845958494%_)))) (if (gx#identifier? - _%hd5849658534%_) + _%hd5846058498%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84164_| - _%hd5849658534%_) + |gerbil/core/contract~Interface[1]#_g85040_| + _%hd5846058498%_) (if (gx#stx-pair? - _%tl5849758537%_) - (let ((_%e5849858540%_ + _%tl5846158501%_) + (let ((_%e5846258504%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5849758537%_))) - (let ((_%tl5850058547%_ + (gx#syntax-e _%tl5846158501%_))) + (let ((_%tl5846458511%_ (let () (declare (not safe)) - (##cdr _%e5849858540%_))) - (_%hd5849958544%_ + (##cdr _%e5846258504%_))) + (_%hd5846358508%_ (let () (declare (not safe)) - (##car _%e5849858540%_)))) - (if (gx#stx-null? _%tl5850058547%_) - (_%__match8021280213%_ - _%__splice8018280183%_ - _%target5848858524%_ - _%tl5849058527%_ - _%e5849558530%_ - _%hd5849658534%_ - _%tl5849758537%_ - _%e5849858540%_ - _%hd5849958544%_ - _%tl5850058547%_) - (_%__kont8018480185%_)))) - (_%__kont8018480185%_)) - (_%__kont8018480185%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8018480185%_)))) - (_%__kont8018480185%_)))) - (_%__kont8018480185%_)) - (_%__kont8018480185%_))))))) - (_%__kont8022480225%_ - (lambda (_%L58423%_ _%L58425%_ _%L58426%_) - (_%loop58042%_ - _%L58423%_ - (cons _%L58425%_ (cons _%L58426%_ _%result58047%_))))) - (_%__kont8022680227%_ - (lambda (_%L58373%_ _%L58375%_ _%L58376%_ _%L58377%_) - (_%loop58042%_ - _%L58373%_ - (cons (cons _%L58376%_ (cons _%L58375%_ '())) - (cons _%L58377%_ _%result58047%_))))) - (_%__kont8022880229%_ - (lambda (_%L58196%_ _%L58198%_ _%L58199%_ _%L58200%_) - (let* ((_%__stx8013980140%_ _%L58198%_) - (_%g5821858239%_ + (##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" - _%__stx8013980140%_)))) - (let ((_%__kont8014280143%_ - (lambda (_%L58303%_) - (_%loop58042%_ - _%L58196%_ - (cons (cons _%L58199%_ (cons _%L58303%_ '())) - (cons _%L58200%_ _%result58047%_))))) - (_%__kont8014680147%_ + _%__stx8090580906%_)))) + (let ((_%__kont8090880909%_ + (lambda (_%L58267%_) + (_%loop58006%_ + _%L58160%_ + (cons (cons _%L58163%_ (cons _%L58267%_ '())) + (cons _%L58164%_ _%result58011%_))))) + (_%__kont8091280913%_ (lambda () - (_%loop58042%_ - _%L58196%_ - (cons _%L58199%_ - (cons _%L58200%_ _%result58047%_)))))) - (let ((_%__match8017480175%_ - (lambda (_%__splice8014480145%_ - _%target5822158257%_ - _%tl5822358260%_ - _%e5822858263%_ - _%hd5822958267%_ - _%tl5823058270%_ - _%e5823158273%_ - _%hd5823258277%_ - _%tl5823358280%_) - (letrec ((_%loop5822458283%_ - (lambda (_%hd5822258287%_) + (_%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? - _%hd5822258287%_) - (let ((_%e5822558291%_ + _%hd5818658251%_) + (let ((_%e5818958255%_ (gx#syntax-e - _%hd5822258287%_))) - (let ((_%lp-tl5822758298%_ + _%hd5818658251%_))) + (let ((_%lp-tl5819158262%_ (let () (declare (not safe)) - (##cdr _%e5822558291%_))) - (_%lp-hd5822658295%_ + (##cdr _%e5818958255%_))) + (_%lp-hd5819058259%_ (let () (declare (not safe)) - (##car _%e5822558291%_)))) - (_%loop5822458283%_ - _%lp-tl5822758298%_))) - (_%__kont8014280143%_ - _%hd5823258277%_))))) - (_%loop5822458283%_ - _%target5822158257%_))))) - (if (gx#stx-pair/null? _%__stx8013980140%_) - (if (let ((__tmp84165 - (gx#stx-length _%__stx8013980140%_))) + (##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>= __tmp84165 '2)) - (let ((_%__splice8014480145%_ + (##fx>= __tmp85041 '2)) + (let ((_%__splice8091080911%_ (gx#syntax-split-splice - _%__stx8013980140%_ + _%__stx8090580906%_ '2))) - (let ((_%tl5822358260%_ + (let ((_%tl5818758224%_ (let () (declare (not safe)) (##vector-ref - _%__splice8014480145%_ + _%__splice8091080911%_ '1))) - (_%target5822158257%_ + (_%target5818558221%_ (let () (declare (not safe)) (##vector-ref - _%__splice8014480145%_ + _%__splice8091080911%_ '0)))) - (if (gx#stx-pair? _%tl5822358260%_) - (let ((_%e5822858263%_ + (if (gx#stx-pair? _%tl5818758224%_) + (let ((_%e5819258227%_ (gx#syntax-e - _%tl5822358260%_))) - (let ((_%tl5823058270%_ + _%tl5818758224%_))) + (let ((_%tl5819458234%_ (let () (declare (not safe)) - (##cdr _%e5822858263%_))) - (_%hd5822958267%_ + (##cdr _%e5819258227%_))) + (_%hd5819358231%_ (let () (declare (not safe)) - (##car _%e5822858263%_)))) + (##car _%e5819258227%_)))) (if (gx#identifier? - _%hd5822958267%_) + _%hd5819358231%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84166_| - _%hd5822958267%_) + |gerbil/core/contract~Interface[1]#_g85042_| + _%hd5819358231%_) (if (gx#stx-pair? - _%tl5823058270%_) - (let ((_%e5823158273%_ + _%tl5819458234%_) + (let ((_%e5819558237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5823058270%_))) - (let ((_%tl5823358280%_ + (gx#syntax-e _%tl5819458234%_))) + (let ((_%tl5819758244%_ (let () (declare (not safe)) - (##cdr _%e5823158273%_))) - (_%hd5823258277%_ + (##cdr _%e5819558237%_))) + (_%hd5819658241%_ (let () (declare (not safe)) - (##car _%e5823158273%_)))) - (if (gx#stx-null? _%tl5823358280%_) - (_%__match8017480175%_ - _%__splice8014480145%_ - _%target5822158257%_ - _%tl5822358260%_ - _%e5822858263%_ - _%hd5822958267%_ - _%tl5823058270%_ - _%e5823158273%_ - _%hd5823258277%_ - _%tl5823358280%_) - (_%__kont8014680147%_)))) - (_%__kont8014680147%_)) - (_%__kont8014680147%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8014680147%_)))) - (_%__kont8014680147%_)))) - (_%__kont8014680147%_)) - (_%__kont8014680147%_))))))) - (_%__kont8023080231%_ - (lambda (_%L58146%_) - (foldl cons _%L58146%_ _%result58047%_))) - (_%__kont8023280233%_ - (lambda () (reverse! _%result58047%_)))) - (let* ((_%g5805458159%_ + (##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 ((_%L58146%_ _%__stx8021580216%_)) - (if (gx#identifier? _%L58146%_) - (_%__kont8023080231%_ _%L58146%_) - (_%__kont8023280233%_))))) - (_%__match8032880329%_ - (lambda (_%e5811358166%_ - _%hd5811458170%_ - _%tl5811558173%_ - _%e5811658176%_ - _%hd5811758180%_ - _%tl5811858183%_ - _%e5811958186%_ - _%hd5812058190%_ - _%tl5812158193%_) - (let ((_%L58196%_ _%tl5811858183%_) - (_%L58198%_ _%tl5812158193%_) - (_%L58199%_ _%hd5812058190%_) - (_%L58200%_ _%hd5811458170%_)) - (if (and (gx#stx-keyword? _%L58200%_) - (gx#identifier? _%L58199%_) + (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?| - _%L58198%_)) - (_%__kont8022880229%_ - _%L58196%_ - _%L58198%_ - _%L58199%_ - _%L58200%_) + _%L58162%_)) + (_%__kont8099480995%_ + _%L58160%_ + _%L58162%_ + _%L58163%_ + _%L58164%_) (let () (declare (not safe)) - (_%g5805458159%_)))))) - (_%__match8031080311%_ - (lambda (_%e5809758333%_ - _%hd5809858337%_ - _%tl5809958340%_ - _%e5810058343%_ - _%hd5810158347%_ - _%tl5810258350%_ - _%e5810358353%_ - _%hd5810458357%_ - _%tl5810558360%_ - _%e5810658363%_ - _%hd5810758367%_ - _%tl5810858370%_) - (let ((_%L58373%_ _%tl5810258350%_) - (_%L58375%_ _%hd5810758367%_) - (_%L58376%_ _%hd5810458357%_) - (_%L58377%_ _%hd5809858337%_)) - (if (and (gx#stx-keyword? _%L58377%_) - (gx#identifier? _%L58376%_)) - (_%__kont8022680227%_ - _%L58373%_ - _%L58375%_ - _%L58376%_ - _%L58377%_) - (_%__match8032880329%_ - _%e5809758333%_ - _%hd5809858337%_ - _%tl5809958340%_ - _%e5810058343%_ - _%hd5810158347%_ - _%tl5810258350%_ - _%e5810358353%_ - _%hd5810458357%_ - _%tl5810558360%_))))) - (_%__match8028480285%_ - (lambda (_%e5808758403%_ - _%hd5808858407%_ - _%tl5808958410%_ - _%e5809058413%_ - _%hd5809158417%_ - _%tl5809258420%_) - (let ((_%L58423%_ _%tl5809258420%_) - (_%L58425%_ _%hd5809158417%_) - (_%L58426%_ _%hd5808858407%_)) - (if (and (gx#stx-keyword? _%L58426%_) - (gx#identifier? _%L58425%_)) - (_%__kont8022480225%_ - _%L58423%_ - _%L58425%_ - _%L58426%_) - (if (gx#stx-pair? _%hd5809158417%_) - (let ((_%e5810358353%_ - (gx#syntax-e _%hd5809158417%_))) - (let ((_%tl5810558360%_ + (_%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 _%e5810358353%_))) - (_%hd5810458357%_ + (##cdr _%e5806758317%_))) + (_%hd5806858321%_ (let () (declare (not safe)) - (##car _%e5810358353%_)))) - (if (gx#stx-pair? _%tl5810558360%_) - (let ((_%e5810658363%_ + (##car _%e5806758317%_)))) + (if (gx#stx-pair? _%tl5806958324%_) + (let ((_%e5807058327%_ (gx#syntax-e - _%tl5810558360%_))) - (let ((_%tl5810858370%_ + _%tl5806958324%_))) + (let ((_%tl5807258334%_ (let () (declare (not safe)) - (##cdr _%e5810658363%_))) - (_%hd5810758367%_ + (##cdr _%e5807058327%_))) + (_%hd5807158331%_ (let () (declare (not safe)) - (##car _%e5810658363%_)))) + (##car _%e5807058327%_)))) (if (gx#stx-null? - _%tl5810858370%_) - (_%__match8031080311%_ - _%e5808758403%_ - _%hd5808858407%_ - _%tl5808958410%_ - _%e5809058413%_ - _%hd5809158417%_ - _%tl5809258420%_ - _%e5810358353%_ - _%hd5810458357%_ - _%tl5810558360%_ - _%e5810658363%_ - _%hd5810758367%_ - _%tl5810858370%_) - (_%__match8032880329%_ - _%e5808758403%_ - _%hd5808858407%_ - _%tl5808958410%_ - _%e5809058413%_ - _%hd5809158417%_ - _%tl5809258420%_ - _%e5810358353%_ - _%hd5810458357%_ - _%tl5810558360%_)))) - (_%__match8032880329%_ - _%e5808758403%_ - _%hd5808858407%_ - _%tl5808958410%_ - _%e5809058413%_ - _%hd5809158417%_ - _%tl5809258420%_ - _%e5810358353%_ - _%hd5810458357%_ - _%tl5810558360%_)))) + _%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)) - (_%g5805458159%_))))))) - (_%__match8027280273%_ - (lambda (_%e5807858447%_ - _%hd5807958451%_ - _%tl5808058454%_ - _%e5808158457%_ - _%hd5808258461%_ - _%tl5808358464%_) - (let ((_%L58467%_ _%tl5808058454%_) - (_%L58469%_ _%tl5808358464%_) - (_%L58470%_ _%hd5808258461%_)) - (if (and (gx#identifier? _%L58470%_) + (_%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?| - _%L58469%_)) - (_%__kont8022280223%_ - _%L58467%_ - _%L58469%_ - _%L58470%_) - (if (gx#stx-pair? _%tl5808058454%_) - (let ((_%e5809058413%_ - (gx#syntax-e _%tl5808058454%_))) - (let ((_%tl5809258420%_ + _%L58433%_)) + (_%__kont8098880989%_ + _%L58431%_ + _%L58433%_ + _%L58434%_) + (if (gx#stx-pair? _%tl5804458418%_) + (let ((_%e5805458377%_ + (gx#syntax-e _%tl5804458418%_))) + (let ((_%tl5805658384%_ (let () (declare (not safe)) - (##cdr _%e5809058413%_))) - (_%hd5809158417%_ + (##cdr _%e5805458377%_))) + (_%hd5805558381%_ (let () (declare (not safe)) - (##car _%e5809058413%_)))) - (_%__match8028480285%_ - _%e5807858447%_ - _%hd5807958451%_ - _%tl5808058454%_ - _%e5809058413%_ - _%hd5809158417%_ - _%tl5809258420%_))) + (##car _%e5805458377%_)))) + (_%__match8105081051%_ + _%e5804258411%_ + _%hd5804358415%_ + _%tl5804458418%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_))) (let () (declare (not safe)) - (_%g5805458159%_))))))) - (_%__match8026080261%_ - (lambda (_%e5806658600%_ - _%hd5806758604%_ - _%tl5806858607%_ - _%e5806958610%_ - _%hd5807058614%_ - _%tl5807158617%_ - _%e5807258620%_ - _%hd5807358624%_ - _%tl5807458627%_) - (let ((_%L58630%_ _%tl5806858607%_) - (_%L58632%_ _%hd5807358624%_) - (_%L58633%_ _%hd5807058614%_)) - (if (gx#identifier? _%L58633%_) - (_%__kont8022080221%_ - _%L58630%_ - _%L58632%_ - _%L58633%_) - (_%__match8027280273%_ - _%e5806658600%_ - _%hd5806758604%_ - _%tl5806858607%_ - _%e5806958610%_ - _%hd5807058614%_ - _%tl5807158617%_))))) - (_%__match8024080241%_ - (lambda (_%e5806058656%_ - _%hd5806158660%_ - _%tl5806258663%_) - (let ((_%L58666%_ _%tl5806258663%_) - (_%L58668%_ _%hd5806158660%_)) - (if (gx#identifier? _%L58668%_) - (_%__kont8021880219%_ _%L58666%_ _%L58668%_) - (if (gx#stx-pair? _%hd5806158660%_) - (let ((_%e5806958610%_ - (gx#syntax-e _%hd5806158660%_))) - (let ((_%tl5807158617%_ + (_%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 _%e5806958610%_))) - (_%hd5807058614%_ + (##cdr _%e5803358574%_))) + (_%hd5803458578%_ (let () (declare (not safe)) - (##car _%e5806958610%_)))) - (if (gx#stx-pair? _%tl5807158617%_) - (let ((_%e5807258620%_ + (##car _%e5803358574%_)))) + (if (gx#stx-pair? _%tl5803558581%_) + (let ((_%e5803658584%_ (gx#syntax-e - _%tl5807158617%_))) - (let ((_%tl5807458627%_ + _%tl5803558581%_))) + (let ((_%tl5803858591%_ (let () (declare (not safe)) - (##cdr _%e5807258620%_))) - (_%hd5807358624%_ + (##cdr _%e5803658584%_))) + (_%hd5803758588%_ (let () (declare (not safe)) - (##car _%e5807258620%_)))) + (##car _%e5803658584%_)))) (if (gx#stx-null? - _%tl5807458627%_) - (_%__match8026080261%_ - _%e5806058656%_ - _%hd5806158660%_ - _%tl5806258663%_ - _%e5806958610%_ - _%hd5807058614%_ - _%tl5807158617%_ - _%e5807258620%_ - _%hd5807358624%_ - _%tl5807458627%_) - (_%__match8027280273%_ - _%e5806058656%_ - _%hd5806158660%_ - _%tl5806258663%_ - _%e5806958610%_ - _%hd5807058614%_ - _%tl5807158617%_)))) - (_%__match8027280273%_ - _%e5806058656%_ - _%hd5806158660%_ - _%tl5806258663%_ - _%e5806958610%_ - _%hd5807058614%_ - _%tl5807158617%_)))) - (if (gx#stx-pair? _%tl5806258663%_) - (let ((_%e5809058413%_ - (gx#syntax-e _%tl5806258663%_))) - (let ((_%tl5809258420%_ + _%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 _%e5809058413%_))) - (_%hd5809158417%_ + (##cdr _%e5805458377%_))) + (_%hd5805558381%_ (let () (declare (not safe)) - (##car _%e5809058413%_)))) - (_%__match8028480285%_ - _%e5806058656%_ - _%hd5806158660%_ - _%tl5806258663%_ - _%e5809058413%_ - _%hd5809158417%_ - _%tl5809258420%_))) + (##car _%e5805458377%_)))) + (_%__match8105081051%_ + _%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_))) (let () (declare (not safe)) - (_%g5805458159%_))))))))) - (if (gx#stx-pair? _%__stx8021580216%_) - (let ((_%e5806058656%_ (gx#syntax-e _%__stx8021580216%_))) - (let ((_%tl5806258663%_ + (_%g5801858123%_))))))))) + (if (gx#stx-pair? _%__stx8098180982%_) + (let ((_%e5802458620%_ (gx#syntax-e _%__stx8098180982%_))) + (let ((_%tl5802658627%_ (let () (declare (not safe)) - (##cdr _%e5806058656%_))) - (_%hd5806158660%_ + (##cdr _%e5802458620%_))) + (_%hd5802558624%_ (let () (declare (not safe)) - (##car _%e5806058656%_)))) - (_%__match8024080241%_ - _%e5806058656%_ - _%hd5806158660%_ - _%tl5806258663%_))) - (let () (declare (not safe)) (_%g5805458159%_))))))))) + (##car _%e5802458620%_)))) + (_%__match8100681007%_ + _%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_))) + (let () (declare (not safe)) (_%g5801858123%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-out| - (lambda (_%signature57616%_) - (let _%loop57619%_ ((_%rest57622%_ _%signature57616%_) - (_%result57624%_ '())) - (let* ((_%__stx8033180332%_ _%rest57622%_) - (_%g5763357704%_ + (lambda (_%signature57580%_) + (let _%loop57583%_ ((_%rest57586%_ _%signature57580%_) + (_%result57588%_ '())) + (let* ((_%__stx8109781098%_ _%rest57586%_) + (_%g5759757668%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8033180332%_)))) - (let ((_%__kont8033480335%_ - (lambda (_%L58022%_ _%L58024%_) - (_%loop57619%_ - _%L58022%_ - (cons _%L58024%_ _%result57624%_)))) - (_%__kont8033680337%_ - (lambda (_%L57988%_ _%L57990%_) - (_%loop57619%_ - _%L57988%_ - (cons _%L57990%_ _%result57624%_)))) - (_%__kont8033880339%_ - (lambda (_%L57934%_ _%L57936%_ _%L57937%_) - (_%loop57619%_ - _%L57934%_ - (cons _%L57937%_ _%result57624%_)))) - (_%__kont8034080341%_ - (lambda (_%L57890%_ _%L57892%_ _%L57893%_) - (_%loop57619%_ - _%L57890%_ - (cons _%L57892%_ (cons _%L57893%_ _%result57624%_))))) - (_%__kont8034280343%_ - (lambda (_%L57840%_ _%L57842%_ _%L57843%_ _%L57844%_) - (_%loop57619%_ - _%L57840%_ - (cons _%L57843%_ (cons _%L57844%_ _%result57624%_))))) - (_%__kont8034480345%_ - (lambda (_%L57772%_ _%L57774%_ _%L57775%_ _%L57776%_) - (_%loop57619%_ - _%L57772%_ - (cons _%L57775%_ (cons _%L57776%_ _%result57624%_))))) - (_%__kont8034680347%_ - (lambda (_%L57722%_) - (foldl cons (cons _%L57722%_ '()) _%result57624%_))) - (_%__kont8034880349%_ - (lambda () (reverse! _%result57624%_)))) - (let* ((_%g5763157735%_ + _%__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 ((_%L57722%_ _%__stx8033180332%_)) - (if (gx#identifier? _%L57722%_) - (_%__kont8034680347%_ _%L57722%_) - (_%__kont8034880349%_))))) - (_%__match8044480445%_ - (lambda (_%e5768957742%_ - _%hd5769057746%_ - _%tl5769157749%_ - _%e5769257752%_ - _%hd5769357756%_ - _%tl5769457759%_ - _%e5769557762%_ - _%hd5769657766%_ - _%tl5769757769%_) - (let ((_%L57772%_ _%tl5769457759%_) - (_%L57774%_ _%tl5769757769%_) - (_%L57775%_ _%hd5769657766%_) - (_%L57776%_ _%hd5769057746%_)) - (if (and (gx#stx-keyword? _%L57776%_) - (gx#identifier? _%L57775%_) + (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?| - _%L57774%_)) - (_%__kont8034480345%_ - _%L57772%_ - _%L57774%_ - _%L57775%_ - _%L57776%_) + _%L57738%_)) + (_%__kont8111081111%_ + _%L57736%_ + _%L57738%_ + _%L57739%_ + _%L57740%_) (let () (declare (not safe)) - (_%g5763157735%_)))))) - (_%__match8042680427%_ - (lambda (_%e5767357800%_ - _%hd5767457804%_ - _%tl5767557807%_ - _%e5767657810%_ - _%hd5767757814%_ - _%tl5767857817%_ - _%e5767957820%_ - _%hd5768057824%_ - _%tl5768157827%_ - _%e5768257830%_ - _%hd5768357834%_ - _%tl5768457837%_) - (let ((_%L57840%_ _%tl5767857817%_) - (_%L57842%_ _%hd5768357834%_) - (_%L57843%_ _%hd5768057824%_) - (_%L57844%_ _%hd5767457804%_)) - (if (and (gx#stx-keyword? _%L57844%_) - (gx#identifier? _%L57843%_)) - (_%__kont8034280343%_ - _%L57840%_ - _%L57842%_ - _%L57843%_ - _%L57844%_) - (_%__match8044480445%_ - _%e5767357800%_ - _%hd5767457804%_ - _%tl5767557807%_ - _%e5767657810%_ - _%hd5767757814%_ - _%tl5767857817%_ - _%e5767957820%_ - _%hd5768057824%_ - _%tl5768157827%_))))) - (_%__match8040080401%_ - (lambda (_%e5766357870%_ - _%hd5766457874%_ - _%tl5766557877%_ - _%e5766657880%_ - _%hd5766757884%_ - _%tl5766857887%_) - (let ((_%L57890%_ _%tl5766857887%_) - (_%L57892%_ _%hd5766757884%_) - (_%L57893%_ _%hd5766457874%_)) - (if (and (gx#stx-keyword? _%L57893%_) - (gx#identifier? _%L57892%_)) - (_%__kont8034080341%_ - _%L57890%_ - _%L57892%_ - _%L57893%_) - (if (gx#stx-pair? _%hd5766757884%_) - (let ((_%e5767957820%_ - (gx#syntax-e _%hd5766757884%_))) - (let ((_%tl5768157827%_ + (_%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 _%e5767957820%_))) - (_%hd5768057824%_ + (##cdr _%e5764357784%_))) + (_%hd5764457788%_ (let () (declare (not safe)) - (##car _%e5767957820%_)))) - (if (gx#stx-pair? _%tl5768157827%_) - (let ((_%e5768257830%_ + (##car _%e5764357784%_)))) + (if (gx#stx-pair? _%tl5764557791%_) + (let ((_%e5764657794%_ (gx#syntax-e - _%tl5768157827%_))) - (let ((_%tl5768457837%_ + _%tl5764557791%_))) + (let ((_%tl5764857801%_ (let () (declare (not safe)) - (##cdr _%e5768257830%_))) - (_%hd5768357834%_ + (##cdr _%e5764657794%_))) + (_%hd5764757798%_ (let () (declare (not safe)) - (##car _%e5768257830%_)))) + (##car _%e5764657794%_)))) (if (gx#stx-null? - _%tl5768457837%_) - (_%__match8042680427%_ - _%e5766357870%_ - _%hd5766457874%_ - _%tl5766557877%_ - _%e5766657880%_ - _%hd5766757884%_ - _%tl5766857887%_ - _%e5767957820%_ - _%hd5768057824%_ - _%tl5768157827%_ - _%e5768257830%_ - _%hd5768357834%_ - _%tl5768457837%_) - (_%__match8044480445%_ - _%e5766357870%_ - _%hd5766457874%_ - _%tl5766557877%_ - _%e5766657880%_ - _%hd5766757884%_ - _%tl5766857887%_ - _%e5767957820%_ - _%hd5768057824%_ - _%tl5768157827%_)))) - (_%__match8044480445%_ - _%e5766357870%_ - _%hd5766457874%_ - _%tl5766557877%_ - _%e5766657880%_ - _%hd5766757884%_ - _%tl5766857887%_ - _%e5767957820%_ - _%hd5768057824%_ - _%tl5768157827%_)))) + _%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)) - (_%g5763157735%_))))))) - (_%__match8038880389%_ - (lambda (_%e5765457914%_ - _%hd5765557918%_ - _%tl5765657921%_ - _%e5765757924%_ - _%hd5765857928%_ - _%tl5765957931%_) - (let ((_%L57934%_ _%tl5765657921%_) - (_%L57936%_ _%tl5765957931%_) - (_%L57937%_ _%hd5765857928%_)) - (if (and (gx#identifier? _%L57937%_) + (_%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?| - _%L57936%_)) - (_%__kont8033880339%_ - _%L57934%_ - _%L57936%_ - _%L57937%_) - (if (gx#stx-pair? _%tl5765657921%_) - (let ((_%e5766657880%_ - (gx#syntax-e _%tl5765657921%_))) - (let ((_%tl5766857887%_ + _%L57900%_)) + (_%__kont8110481105%_ + _%L57898%_ + _%L57900%_ + _%L57901%_) + (if (gx#stx-pair? _%tl5762057885%_) + (let ((_%e5763057844%_ + (gx#syntax-e _%tl5762057885%_))) + (let ((_%tl5763257851%_ (let () (declare (not safe)) - (##cdr _%e5766657880%_))) - (_%hd5766757884%_ + (##cdr _%e5763057844%_))) + (_%hd5763157848%_ (let () (declare (not safe)) - (##car _%e5766657880%_)))) - (_%__match8040080401%_ - _%e5765457914%_ - _%hd5765557918%_ - _%tl5765657921%_ - _%e5766657880%_ - _%hd5766757884%_ - _%tl5766857887%_))) + (##car _%e5763057844%_)))) + (_%__match8116681167%_ + _%e5761857878%_ + _%hd5761957882%_ + _%tl5762057885%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_))) (let () (declare (not safe)) - (_%g5763157735%_))))))) - (_%__match8037680377%_ - (lambda (_%e5764257958%_ - _%hd5764357962%_ - _%tl5764457965%_ - _%e5764557968%_ - _%hd5764657972%_ - _%tl5764757975%_ - _%e5764857978%_ - _%hd5764957982%_ - _%tl5765057985%_) - (let ((_%L57988%_ _%tl5764457965%_) - (_%L57990%_ _%hd5764657972%_)) - (if (gx#identifier? _%L57990%_) - (_%__kont8033680337%_ _%L57988%_ _%L57990%_) - (_%__match8038880389%_ - _%e5764257958%_ - _%hd5764357962%_ - _%tl5764457965%_ - _%e5764557968%_ - _%hd5764657972%_ - _%tl5764757975%_))))) - (_%__match8035680357%_ - (lambda (_%e5763758012%_ - _%hd5763858016%_ - _%tl5763958019%_) - (let ((_%L58022%_ _%tl5763958019%_) - (_%L58024%_ _%hd5763858016%_)) - (if (gx#identifier? _%L58024%_) - (_%__kont8033480335%_ _%L58022%_ _%L58024%_) - (if (gx#stx-pair? _%hd5763858016%_) - (let ((_%e5764557968%_ - (gx#syntax-e _%hd5763858016%_))) - (let ((_%tl5764757975%_ + (_%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 _%e5764557968%_))) - (_%hd5764657972%_ + (##cdr _%e5760957932%_))) + (_%hd5761057936%_ (let () (declare (not safe)) - (##car _%e5764557968%_)))) - (if (gx#stx-pair? _%tl5764757975%_) - (let ((_%e5764857978%_ + (##car _%e5760957932%_)))) + (if (gx#stx-pair? _%tl5761157939%_) + (let ((_%e5761257942%_ (gx#syntax-e - _%tl5764757975%_))) - (let ((_%tl5765057985%_ + _%tl5761157939%_))) + (let ((_%tl5761457949%_ (let () (declare (not safe)) - (##cdr _%e5764857978%_))) - (_%hd5764957982%_ + (##cdr _%e5761257942%_))) + (_%hd5761357946%_ (let () (declare (not safe)) - (##car _%e5764857978%_)))) + (##car _%e5761257942%_)))) (if (gx#stx-null? - _%tl5765057985%_) - (_%__match8037680377%_ - _%e5763758012%_ - _%hd5763858016%_ - _%tl5763958019%_ - _%e5764557968%_ - _%hd5764657972%_ - _%tl5764757975%_ - _%e5764857978%_ - _%hd5764957982%_ - _%tl5765057985%_) - (_%__match8038880389%_ - _%e5763758012%_ - _%hd5763858016%_ - _%tl5763958019%_ - _%e5764557968%_ - _%hd5764657972%_ - _%tl5764757975%_)))) - (_%__match8038880389%_ - _%e5763758012%_ - _%hd5763858016%_ - _%tl5763958019%_ - _%e5764557968%_ - _%hd5764657972%_ - _%tl5764757975%_)))) - (if (gx#stx-pair? _%tl5763958019%_) - (let ((_%e5766657880%_ - (gx#syntax-e _%tl5763958019%_))) - (let ((_%tl5766857887%_ + _%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 _%e5766657880%_))) - (_%hd5766757884%_ + (##cdr _%e5763057844%_))) + (_%hd5763157848%_ (let () (declare (not safe)) - (##car _%e5766657880%_)))) - (_%__match8040080401%_ - _%e5763758012%_ - _%hd5763858016%_ - _%tl5763958019%_ - _%e5766657880%_ - _%hd5766757884%_ - _%tl5766857887%_))) + (##car _%e5763057844%_)))) + (_%__match8116681167%_ + _%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_))) (let () (declare (not safe)) - (_%g5763157735%_))))))))) - (if (gx#stx-pair? _%__stx8033180332%_) - (let ((_%e5763758012%_ (gx#syntax-e _%__stx8033180332%_))) - (let ((_%tl5763958019%_ + (_%g5759557699%_))))))))) + (if (gx#stx-pair? _%__stx8109781098%_) + (let ((_%e5760157976%_ (gx#syntax-e _%__stx8109781098%_))) + (let ((_%tl5760357983%_ (let () (declare (not safe)) - (##cdr _%e5763758012%_))) - (_%hd5763858016%_ + (##cdr _%e5760157976%_))) + (_%hd5760257980%_ (let () (declare (not safe)) - (##car _%e5763758012%_)))) - (_%__match8035680357%_ - _%e5763758012%_ - _%hd5763858016%_ - _%tl5763958019%_))) - (let () (declare (not safe)) (_%g5763157735%_))))))))) + (##car _%e5760157976%_)))) + (_%__match8112281123%_ + _%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_))) + (let () (declare (not safe)) (_%g5759557699%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-has-keywords?| - (lambda (_%signature57209%_) - (let _%loop57212%_ ((_%rest57215%_ _%signature57209%_)) - (let* ((_%__stx8044780448%_ _%rest57215%_) - (_%g5722457295%_ + (lambda (_%signature57173%_) + (let _%loop57176%_ ((_%rest57179%_ _%signature57173%_)) + (let* ((_%__stx8121381214%_ _%rest57179%_) + (_%g5718857259%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8044780448%_)))) - (let ((_%__kont8045080451%_ - (lambda (_%L57599%_ _%L57601%_) (_%loop57212%_ _%L57599%_))) - (_%__kont8045280453%_ - (lambda (_%L57563%_ _%L57565%_ _%L57566%_) - (_%loop57212%_ _%L57563%_))) - (_%__kont8045480455%_ - (lambda (_%L57509%_ _%L57511%_ _%L57512%_) - (_%loop57212%_ _%L57509%_))) - (_%__kont8045680457%_ - (lambda (_%L57465%_ _%L57467%_ _%L57468%_) '#t)) - (_%__kont8045880459%_ - (lambda (_%L57415%_ _%L57417%_ _%L57418%_ _%L57419%_) '#t)) - (_%__kont8046080461%_ - (lambda (_%L57343%_ _%L57345%_ _%L57346%_ _%L57347%_) '#t)) - (_%__kont8046280463%_ (lambda () '#f))) - (let* ((_%__match8055880559%_ - (lambda (_%e5728157313%_ - _%hd5728257317%_ - _%tl5728357320%_ - _%e5728457323%_ - _%hd5728557327%_ - _%tl5728657330%_ - _%e5728757333%_ - _%hd5728857337%_ - _%tl5728957340%_) - (let ((_%L57343%_ _%tl5728657330%_) - (_%L57345%_ _%tl5728957340%_) - (_%L57346%_ _%hd5728857337%_) - (_%L57347%_ _%hd5728257317%_)) - (if (and (gx#stx-keyword? _%L57347%_) - (gx#identifier? _%L57346%_) + _%__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?| - _%L57345%_)) - (_%__kont8046080461%_ - _%L57343%_ - _%L57345%_ - _%L57346%_ - _%L57347%_) - (_%__kont8046280463%_))))) - (_%__match8054080541%_ - (lambda (_%e5726557375%_ - _%hd5726657379%_ - _%tl5726757382%_ - _%e5726857385%_ - _%hd5726957389%_ - _%tl5727057392%_ - _%e5727157395%_ - _%hd5727257399%_ - _%tl5727357402%_ - _%e5727457405%_ - _%hd5727557409%_ - _%tl5727657412%_) - (let ((_%L57415%_ _%tl5727057392%_) - (_%L57417%_ _%hd5727557409%_) - (_%L57418%_ _%hd5727257399%_) - (_%L57419%_ _%hd5726657379%_)) - (if (and (gx#stx-keyword? _%L57419%_) - (gx#identifier? _%L57418%_)) - (_%__kont8045880459%_ - _%L57415%_ - _%L57417%_ - _%L57418%_ - _%L57419%_) - (_%__match8055880559%_ - _%e5726557375%_ - _%hd5726657379%_ - _%tl5726757382%_ - _%e5726857385%_ - _%hd5726957389%_ - _%tl5727057392%_ - _%e5727157395%_ - _%hd5727257399%_ - _%tl5727357402%_))))) - (_%__match8051480515%_ - (lambda (_%e5725557445%_ - _%hd5725657449%_ - _%tl5725757452%_ - _%e5725857455%_ - _%hd5725957459%_ - _%tl5726057462%_) - (let ((_%L57465%_ _%tl5726057462%_) - (_%L57467%_ _%hd5725957459%_) - (_%L57468%_ _%hd5725657449%_)) - (if (and (gx#stx-keyword? _%L57468%_) - (gx#identifier? _%L57467%_)) - (_%__kont8045680457%_ - _%L57465%_ - _%L57467%_ - _%L57468%_) - (if (gx#stx-pair? _%hd5725957459%_) - (let ((_%e5727157395%_ - (gx#syntax-e _%hd5725957459%_))) - (let ((_%tl5727357402%_ + _%L57309%_)) + (_%__kont8122681227%_ + _%L57307%_ + _%L57309%_ + _%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 _%e5727157395%_))) - (_%hd5727257399%_ + (##cdr _%e5723557359%_))) + (_%hd5723657363%_ (let () (declare (not safe)) - (##car _%e5727157395%_)))) - (if (gx#stx-pair? _%tl5727357402%_) - (let ((_%e5727457405%_ + (##car _%e5723557359%_)))) + (if (gx#stx-pair? _%tl5723757366%_) + (let ((_%e5723857369%_ (gx#syntax-e - _%tl5727357402%_))) - (let ((_%tl5727657412%_ + _%tl5723757366%_))) + (let ((_%tl5724057376%_ (let () (declare (not safe)) - (##cdr _%e5727457405%_))) - (_%hd5727557409%_ + (##cdr _%e5723857369%_))) + (_%hd5723957373%_ (let () (declare (not safe)) - (##car _%e5727457405%_)))) + (##car _%e5723857369%_)))) (if (gx#stx-null? - _%tl5727657412%_) - (_%__match8054080541%_ - _%e5725557445%_ - _%hd5725657449%_ - _%tl5725757452%_ - _%e5725857455%_ - _%hd5725957459%_ - _%tl5726057462%_ - _%e5727157395%_ - _%hd5727257399%_ - _%tl5727357402%_ - _%e5727457405%_ - _%hd5727557409%_ - _%tl5727657412%_) - (_%__match8055880559%_ - _%e5725557445%_ - _%hd5725657449%_ - _%tl5725757452%_ - _%e5725857455%_ - _%hd5725957459%_ - _%tl5726057462%_ - _%e5727157395%_ - _%hd5727257399%_ - _%tl5727357402%_)))) - (_%__match8055880559%_ - _%e5725557445%_ - _%hd5725657449%_ - _%tl5725757452%_ - _%e5725857455%_ - _%hd5725957459%_ - _%tl5726057462%_ - _%e5727157395%_ - _%hd5727257399%_ - _%tl5727357402%_)))) - (_%__kont8046280463%_)))))) - (_%__match8050280503%_ - (lambda (_%e5724657489%_ - _%hd5724757493%_ - _%tl5724857496%_ - _%e5724957499%_ - _%hd5725057503%_ - _%tl5725157506%_) - (let ((_%L57509%_ _%tl5724857496%_) - (_%L57511%_ _%tl5725157506%_) - (_%L57512%_ _%hd5725057503%_)) - (if (and (gx#identifier? _%L57512%_) + _%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?| - _%L57511%_)) - (_%__kont8045480455%_ - _%L57509%_ - _%L57511%_ - _%L57512%_) - (if (gx#stx-pair? _%tl5724857496%_) - (let ((_%e5725857455%_ - (gx#syntax-e _%tl5724857496%_))) - (let ((_%tl5726057462%_ + _%L57475%_)) + (_%__kont8122081221%_ + _%L57473%_ + _%L57475%_ + _%L57476%_) + (if (gx#stx-pair? _%tl5721257460%_) + (let ((_%e5722257419%_ + (gx#syntax-e _%tl5721257460%_))) + (let ((_%tl5722457426%_ (let () (declare (not safe)) - (##cdr _%e5725857455%_))) - (_%hd5725957459%_ + (##cdr _%e5722257419%_))) + (_%hd5722357423%_ (let () (declare (not safe)) - (##car _%e5725857455%_)))) - (_%__match8051480515%_ - _%e5724657489%_ - _%hd5724757493%_ - _%tl5724857496%_ - _%e5725857455%_ - _%hd5725957459%_ - _%tl5726057462%_))) - (_%__kont8046280463%_)))))) - (_%__match8049080491%_ - (lambda (_%e5723457533%_ - _%hd5723557537%_ - _%tl5723657540%_ - _%e5723757543%_ - _%hd5723857547%_ - _%tl5723957550%_ - _%e5724057553%_ - _%hd5724157557%_ - _%tl5724257560%_) - (let ((_%L57563%_ _%tl5723657540%_) - (_%L57565%_ _%hd5724157557%_) - (_%L57566%_ _%hd5723857547%_)) - (if (gx#identifier? _%L57566%_) - (_%__kont8045280453%_ - _%L57563%_ - _%L57565%_ - _%L57566%_) - (_%__match8050280503%_ - _%e5723457533%_ - _%hd5723557537%_ - _%tl5723657540%_ - _%e5723757543%_ - _%hd5723857547%_ - _%tl5723957550%_))))) - (_%__match8047080471%_ - (lambda (_%e5722857589%_ - _%hd5722957593%_ - _%tl5723057596%_) - (let ((_%L57599%_ _%tl5723057596%_) - (_%L57601%_ _%hd5722957593%_)) - (if (gx#identifier? _%L57601%_) - (_%__kont8045080451%_ _%L57599%_ _%L57601%_) - (if (gx#stx-pair? _%hd5722957593%_) - (let ((_%e5723757543%_ - (gx#syntax-e _%hd5722957593%_))) - (let ((_%tl5723957550%_ + (##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 _%e5723757543%_))) - (_%hd5723857547%_ + (##cdr _%e5720157507%_))) + (_%hd5720257511%_ (let () (declare (not safe)) - (##car _%e5723757543%_)))) - (if (gx#stx-pair? _%tl5723957550%_) - (let ((_%e5724057553%_ + (##car _%e5720157507%_)))) + (if (gx#stx-pair? _%tl5720357514%_) + (let ((_%e5720457517%_ (gx#syntax-e - _%tl5723957550%_))) - (let ((_%tl5724257560%_ + _%tl5720357514%_))) + (let ((_%tl5720657524%_ (let () (declare (not safe)) - (##cdr _%e5724057553%_))) - (_%hd5724157557%_ + (##cdr _%e5720457517%_))) + (_%hd5720557521%_ (let () (declare (not safe)) - (##car _%e5724057553%_)))) + (##car _%e5720457517%_)))) (if (gx#stx-null? - _%tl5724257560%_) - (_%__match8049080491%_ - _%e5722857589%_ - _%hd5722957593%_ - _%tl5723057596%_ - _%e5723757543%_ - _%hd5723857547%_ - _%tl5723957550%_ - _%e5724057553%_ - _%hd5724157557%_ - _%tl5724257560%_) - (_%__match8050280503%_ - _%e5722857589%_ - _%hd5722957593%_ - _%tl5723057596%_ - _%e5723757543%_ - _%hd5723857547%_ - _%tl5723957550%_)))) - (_%__match8050280503%_ - _%e5722857589%_ - _%hd5722957593%_ - _%tl5723057596%_ - _%e5723757543%_ - _%hd5723857547%_ - _%tl5723957550%_)))) - (if (gx#stx-pair? _%tl5723057596%_) - (let ((_%e5725857455%_ - (gx#syntax-e _%tl5723057596%_))) - (let ((_%tl5726057462%_ + _%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 _%e5725857455%_))) - (_%hd5725957459%_ + (##cdr _%e5722257419%_))) + (_%hd5722357423%_ (let () (declare (not safe)) - (##car _%e5725857455%_)))) - (_%__match8051480515%_ - _%e5722857589%_ - _%hd5722957593%_ - _%tl5723057596%_ - _%e5725857455%_ - _%hd5725957459%_ - _%tl5726057462%_))) - (_%__kont8046280463%_)))))))) - (if (gx#stx-pair? _%__stx8044780448%_) - (let ((_%e5722857589%_ (gx#syntax-e _%__stx8044780448%_))) - (let ((_%tl5723057596%_ + (##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 _%e5722857589%_))) - (_%hd5722957593%_ + (##cdr _%e5719257553%_))) + (_%hd5719357557%_ (let () (declare (not safe)) - (##car _%e5722857589%_)))) - (_%__match8047080471%_ - _%e5722857589%_ - _%hd5722957593%_ - _%tl5723057596%_))) - (_%__kont8046280463%_)))))))) + (##car _%e5719257553%_)))) + (_%__match8123681237%_ + _%e5719257553%_ + _%hd5719357557%_ + _%tl5719457560%_))) + (_%__kont8122881229%_)))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - (lambda (_%stx57198%_ - _%self57200%_ - _%Interface57201%_ - _%signature57202%_ - _%return57203%_ - _%unchecked-proc57204%_) - (if (gx#stx-e _%unchecked-proc57204%_) + (lambda (_%stx57162%_ + _%self57164%_ + _%Interface57165%_ + _%signature57166%_ + _%return57167%_ + _%unchecked-proc57168%_) + (if (gx#stx-e _%unchecked-proc57168%_) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx57198%_ - (cons (cons _%self57200%_ (cons ': (cons _%Interface57201%_ '()))) - _%signature57202%_) - _%return57203%_ - _%unchecked-proc57204%_) - (let ((_%return-type57206%_ + _%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| - _%stx57198%_ - _%return57203%_)))) - (cons 'return: (cons _%return-type57206%_ '())))))) + _%stx57162%_ + _%return57167%_)))) + (cons 'return: (cons _%return-type57170%_ '())))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-contract| - (lambda (_%stx57191%_ - _%self57193%_ - _%Interface57194%_ - _%signature57195%_ - _%checked?57196%_) + (lambda (_%stx57155%_ + _%self57157%_ + _%Interface57158%_ + _%signature57159%_ + _%checked?57160%_) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx57191%_ - (cons (cons _%self57193%_ - (cons (if _%checked?57196%_ ': '::-) - (cons _%Interface57194%_ '()))) - _%signature57195%_) - _%checked?57196%_))) + _%stx57155%_ + (cons (cons _%self57157%_ + (cons (if _%checked?57160%_ ': '::-) + (cons _%Interface57158%_ '()))) + _%signature57159%_) + _%checked?57160%_))) (define |gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - (lambda (_%stx56430%_ - _%signature56432%_ - _%return56433%_ - _%unchecked56434%_) - (letrec ((_%type-e56436%_ - (lambda (_%contract56880%_) - (let* ((_%__stx8056180562%_ _%contract56880%_) - (_%g5688756942%_ + (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" - _%__stx8056180562%_)))) - (let ((_%__kont8056480565%_ - (lambda (_%L57172%_ _%L57174%_) + _%__stx8132781328%_)))) + (let ((_%__kont8133081331%_ + (lambda (_%L57136%_ _%L57138%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56430%_ - _%L57174%_)))) - (_%__kont8056680567%_ - (lambda (_%L57124%_ _%L57126%_ _%L57127%_) + _%stx56394%_ + _%L57138%_)))) + (_%__kont8133281333%_ + (lambda (_%L57088%_ _%L57090%_ _%L57091%_) (gx#core-quote-syntax 't::t))) - (_%__kont8056880569%_ - (lambda (_%L57076%_ _%L57078%_ _%L57079%_) + (_%__kont8133481335%_ + (lambda (_%L57040%_ _%L57042%_ _%L57043%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56430%_ - _%L57078%_)))) - (_%__kont8057080571%_ - (lambda (_%L57000%_ - _%L57002%_ - _%L57003%_ - _%L57004%_) + _%stx56394%_ + _%L57042%_)))) + (_%__kont8133681337%_ + (lambda (_%L56964%_ + _%L56966%_ + _%L56967%_ + _%L56968%_) (gx#core-quote-syntax 't::t))) - (_%__kont8057280573%_ (lambda () '#f))) - (let* ((_%__match8066280663%_ - (lambda (_%e5692556960%_ - _%hd5692656964%_ - _%tl5692756967%_ - _%e5692856970%_ - _%hd5692956974%_ - _%tl5693056977%_ - _%e5693156980%_ - _%hd5693256984%_ - _%tl5693356987%_ - _%e5693456990%_ - _%hd5693556994%_ - _%tl5693656997%_) - (let ((_%L57000%_ _%tl5693656997%_) - (_%L57002%_ _%hd5693556994%_) - (_%L57003%_ _%hd5693256984%_) - (_%L57004%_ _%hd5692956974%_)) - (if (and (gx#identifier? _%L57003%_) + (_%__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=? - _%L57003%_ + _%L56967%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L57003%_ + _%L56967%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8057080571%_ - _%L57000%_ - _%L57002%_ - _%L57003%_ - _%L57004%_) - (_%__kont8057280573%_))))) - (_%__match8060280603%_ - (lambda (_%e5690057104%_ - _%hd5690157108%_ - _%tl5690257111%_ - _%e5690357114%_ - _%hd5690457118%_ - _%tl5690557121%_) - (let ((_%L57124%_ _%tl5690557121%_) - (_%L57126%_ _%hd5690457118%_) - (_%L57127%_ _%hd5690157108%_)) - (if (and (gx#identifier? _%L57127%_) + (_%__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=? - _%L57127%_ + _%L57091%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L57127%_ + _%L57091%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8056680567%_ - _%L57124%_ - _%L57126%_ - _%L57127%_) - (if (gx#identifier? _%hd5690157108%_) + (_%__kont8133281333%_ + _%L57088%_ + _%L57090%_ + _%L57091%_) + (if (gx#identifier? _%hd5686557072%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84167_| - _%hd5690157108%_) + |gerbil/core/contract~Interface[1]#_g85043_| + _%hd5686557072%_) (if (gx#stx-pair? - _%tl5690557121%_) - (let ((_%e5691557056%_ + _%tl5686957085%_) + (let ((_%e5687957020%_ (gx#syntax-e - _%tl5690557121%_))) - (let ((_%tl5691757063%_ + _%tl5686957085%_))) + (let ((_%tl5688157027%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5691557056%_))) - (_%hd5691657060%_ - (let () (declare (not safe)) (##car _%e5691557056%_)))) - (if (gx#identifier? _%hd5691657060%_) + (##cdr _%e5687957020%_))) + (_%hd5688057024%_ + (let () (declare (not safe)) (##car _%e5687957020%_)))) + (if (gx#identifier? _%hd5688057024%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84168_| - _%hd5691657060%_) - (if (gx#stx-pair? _%tl5691757063%_) - (let ((_%e5691857066%_ - (gx#syntax-e _%tl5691757063%_))) - (let ((_%tl5692057073%_ + |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 _%e5691857066%_))) - (_%hd5691957070%_ + (##cdr _%e5688257030%_))) + (_%hd5688357034%_ (let () (declare (not safe)) - (##car _%e5691857066%_)))) - (_%__kont8056880569%_ - _%tl5692057073%_ - _%hd5691957070%_ - _%hd5690457118%_))) - (_%__kont8057280573%_)) - (if (gx#stx-pair? _%tl5691757063%_) - (let ((_%e5693456990%_ - (gx#syntax-e _%tl5691757063%_))) - (let ((_%tl5693656997%_ + (##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 _%e5693456990%_))) - (_%hd5693556994%_ + (##cdr _%e5689856954%_))) + (_%hd5689956958%_ (let () (declare (not safe)) - (##car _%e5693456990%_)))) - (_%__match8066280663%_ - _%e5690057104%_ - _%hd5690157108%_ - _%tl5690257111%_ - _%e5690357114%_ - _%hd5690457118%_ - _%tl5690557121%_ - _%e5691557056%_ - _%hd5691657060%_ - _%tl5691757063%_ - _%e5693456990%_ - _%hd5693556994%_ - _%tl5693656997%_))) - (_%__kont8057280573%_))) - (if (gx#stx-pair? _%tl5691757063%_) - (let ((_%e5693456990%_ (gx#syntax-e _%tl5691757063%_))) - (let ((_%tl5693656997%_ + (##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 _%e5693456990%_))) - (_%hd5693556994%_ + (##cdr _%e5689856954%_))) + (_%hd5689956958%_ (let () (declare (not safe)) - (##car _%e5693456990%_)))) - (_%__match8066280663%_ - _%e5690057104%_ - _%hd5690157108%_ - _%tl5690257111%_ - _%e5690357114%_ - _%hd5690457118%_ - _%tl5690557121%_ - _%e5691557056%_ - _%hd5691657060%_ - _%tl5691757063%_ - _%e5693456990%_ - _%hd5693556994%_ - _%tl5693656997%_))) - (_%__kont8057280573%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8057280573%_)) - (_%__kont8057280573%_)) - (_%__kont8057280573%_))))))) - (if (gx#stx-pair? _%__stx8056180562%_) - (let ((_%e5689157152%_ - (gx#syntax-e _%__stx8056180562%_))) - (let ((_%tl5689357159%_ + (##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 _%e5689157152%_))) - (_%hd5689257156%_ + (##cdr _%e5685557116%_))) + (_%hd5685657120%_ (let () (declare (not safe)) - (##car _%e5689157152%_)))) - (if (gx#identifier? _%hd5689257156%_) + (##car _%e5685557116%_)))) + (if (gx#identifier? _%hd5685657120%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84169_| - _%hd5689257156%_) - (if (gx#stx-pair? _%tl5689357159%_) - (let ((_%e5689457162%_ + |gerbil/core/contract~Interface[1]#_g85045_| + _%hd5685657120%_) + (if (gx#stx-pair? _%tl5685757123%_) + (let ((_%e5685857126%_ (gx#syntax-e - _%tl5689357159%_))) - (let ((_%tl5689657169%_ + _%tl5685757123%_))) + (let ((_%tl5686057133%_ (let () (declare (not safe)) - (##cdr _%e5689457162%_))) - (_%hd5689557166%_ + (##cdr _%e5685857126%_))) + (_%hd5685957130%_ (let () (declare (not safe)) - (##car _%e5689457162%_)))) - (_%__kont8056480565%_ - _%tl5689657169%_ - _%hd5689557166%_))) - (_%__kont8057280573%_)) - (if (gx#stx-pair? _%tl5689357159%_) - (let ((_%e5690357114%_ + (##car _%e5685857126%_)))) + (_%__kont8133081331%_ + _%tl5686057133%_ + _%hd5685957130%_))) + (_%__kont8133881339%_)) + (if (gx#stx-pair? _%tl5685757123%_) + (let ((_%e5686757078%_ (gx#syntax-e - _%tl5689357159%_))) - (let ((_%tl5690557121%_ + _%tl5685757123%_))) + (let ((_%tl5686957085%_ (let () (declare (not safe)) - (##cdr _%e5690357114%_))) - (_%hd5690457118%_ + (##cdr _%e5686757078%_))) + (_%hd5686857082%_ (let () (declare (not safe)) - (##car _%e5690357114%_)))) - (_%__match8060280603%_ - _%e5689157152%_ - _%hd5689257156%_ - _%tl5689357159%_ - _%e5690357114%_ - _%hd5690457118%_ - _%tl5690557121%_))) - (_%__kont8057280573%_))) - (if (gx#stx-pair? _%tl5689357159%_) - (let ((_%e5690357114%_ + (##car _%e5686757078%_)))) + (_%__match8136881369%_ + _%e5685557116%_ + _%hd5685657120%_ + _%tl5685757123%_ + _%e5686757078%_ + _%hd5686857082%_ + _%tl5686957085%_))) + (_%__kont8133881339%_))) + (if (gx#stx-pair? _%tl5685757123%_) + (let ((_%e5686757078%_ (gx#syntax-e - _%tl5689357159%_))) - (let ((_%tl5690557121%_ + _%tl5685757123%_))) + (let ((_%tl5686957085%_ (let () (declare (not safe)) - (##cdr _%e5690357114%_))) - (_%hd5690457118%_ + (##cdr _%e5686757078%_))) + (_%hd5686857082%_ (let () (declare (not safe)) - (##car _%e5690357114%_)))) - (_%__match8060280603%_ - _%e5689157152%_ - _%hd5689257156%_ - _%tl5689357159%_ - _%e5690357114%_ - _%hd5690457118%_ - _%tl5690557121%_))) - (_%__kont8057280573%_))))) - (_%__kont8057280573%_)))))))) - (let _%loop56439%_ ((_%rest56442%_ _%signature56432%_) - (_%has-keywords?56444%_ '#f) - (_%result56445%_ '())) - (let* ((_%__stx8066580666%_ _%rest56442%_) - (_%g5645456524%_ + (##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" - _%__stx8066580666%_)))) - (let ((_%__kont8066880669%_ - (lambda (_%L56863%_ _%L56865%_) - (_%loop56439%_ - _%L56863%_ + _%__stx8143181432%_)))) + (let ((_%__kont8143481435%_ + (lambda (_%L56827%_ _%L56829%_) + (_%loop56403%_ + _%L56827%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) - (_%__kont8067080671%_ - (lambda (_%L56829%_ _%L56831%_) - (_%loop56439%_ - _%L56829%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8143681437%_ + (lambda (_%L56793%_ _%L56795%_) + (_%loop56403%_ + _%L56793%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) - (_%__kont8067280673%_ - (lambda (_%L56775%_ _%L56777%_ _%L56778%_) - (_%loop56439%_ - _%L56775%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8143881439%_ + (lambda (_%L56739%_ _%L56741%_ _%L56742%_) + (_%loop56403%_ + _%L56739%_ '#f - (cons (_%type-e56436%_ _%L56777%_) _%result56445%_)))) - (_%__kont8067480675%_ - (lambda (_%L56731%_ _%L56733%_ _%L56734%_) - (_%loop56439%_ - _%L56731%_ + (cons (_%type-e56400%_ _%L56741%_) _%result56409%_)))) + (_%__kont8144081441%_ + (lambda (_%L56695%_ _%L56697%_ _%L56698%_) + (_%loop56403%_ + _%L56695%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) - (_%__kont8067680677%_ - (lambda (_%L56683%_ _%L56685%_ _%L56686%_) - (_%loop56439%_ - _%L56683%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8144281443%_ + (lambda (_%L56647%_ _%L56649%_ _%L56650%_) + (_%loop56403%_ + _%L56647%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) - (_%__kont8067880679%_ - (lambda (_%L56615%_ _%L56617%_ _%L56618%_ _%L56619%_) - (_%loop56439%_ - _%L56615%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8144481445%_ + (lambda (_%L56579%_ _%L56581%_ _%L56582%_ _%L56583%_) + (_%loop56403%_ + _%L56579%_ '#t - (cons (_%type-e56436%_ _%L56617%_) _%result56445%_)))) - (_%__kont8068080681%_ - (lambda (_%L56553%_) - (let* ((_%arguments56567%_ - (if _%has-keywords?56444%_ + (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) - _%result56445%_))) - (_%return-type56570%_ + _%result56409%_))) + (_%return-type56534%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56430%_ - _%return56433%_))) - (_%unchecked56573%_ - (if (not _%has-keywords?56444%_) - (if (gx#stx-e _%unchecked56434%_) + _%stx56394%_ + _%return56397%_))) + (_%unchecked56537%_ + (if (not _%has-keywords?56408%_) + (if (gx#stx-e _%unchecked56398%_) (gx#core-quote-syntax - _%unchecked56434%_) + _%unchecked56398%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56567%_ + (cons _%arguments56531%_ (cons 'return: - (cons _%return-type56570%_ + (cons _%return-type56534%_ (cons 'unchecked: - (cons _%unchecked56573%_ + (cons _%unchecked56537%_ '()))))))))) - (_%__kont8068280683%_ + (_%__kont8144881449%_ (lambda () - (let* ((_%arguments56535%_ - (if _%has-keywords?56444%_ + (let* ((_%arguments56499%_ + (if _%has-keywords?56408%_ (gx#core-quote-syntax 't::t) - (reverse! _%result56445%_))) - (_%return-type56538%_ + (reverse! _%result56409%_))) + (_%return-type56502%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56430%_ - _%return56433%_))) - (_%unchecked56541%_ - (if (not _%has-keywords?56444%_) - (if (gx#stx-e _%unchecked56434%_) + _%stx56394%_ + _%return56397%_))) + (_%unchecked56505%_ + (if (not _%has-keywords?56408%_) + (if (gx#stx-e _%unchecked56398%_) (gx#core-quote-syntax - _%unchecked56434%_) + _%unchecked56398%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56535%_ + (cons _%arguments56499%_ (cons 'return: - (cons _%return-type56538%_ + (cons _%return-type56502%_ (cons 'unchecked: - (cons _%unchecked56541%_ + (cons _%unchecked56505%_ '())))))))))) - (let* ((_%g5645356546%_ + (let* ((_%g5641756510%_ (lambda () - (if (gx#stx-null? _%__stx8066580666%_) - (_%__kont8068280683%_) + (if (gx#stx-null? _%__stx8143181432%_) + (_%__kont8144881449%_) (let () (declare (not safe)) - (_%g5645456524%_))))) - (_%g5645256578%_ + (_%g5641856488%_))))) + (_%g5641656542%_ (lambda () - (let ((_%L56553%_ _%__stx8066580666%_)) - (if (gx#identifier? _%L56553%_) - (_%__kont8068080681%_ _%L56553%_) + (let ((_%L56517%_ _%__stx8143181432%_)) + (if (gx#identifier? _%L56517%_) + (_%__kont8144681447%_ _%L56517%_) (let () (declare (not safe)) - (_%g5645356546%_)))))) - (_%__match8077880779%_ - (lambda (_%e5650956585%_ - _%hd5651056589%_ - _%tl5651156592%_ - _%e5651256595%_ - _%hd5651356599%_ - _%tl5651456602%_ - _%e5651556605%_ - _%hd5651656609%_ - _%tl5651756612%_) - (let ((_%L56615%_ _%tl5651456602%_) - (_%L56617%_ _%tl5651756612%_) - (_%L56618%_ _%hd5651656609%_) - (_%L56619%_ _%hd5651056589%_)) - (if (and (gx#stx-keyword? _%L56619%_) - (gx#identifier? _%L56618%_) + (_%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?| - _%L56617%_)) - (_%__kont8067880679%_ - _%L56615%_ - _%L56617%_ - _%L56618%_ - _%L56619%_) + _%L56581%_)) + (_%__kont8144481445%_ + _%L56579%_ + _%L56581%_ + _%L56582%_ + _%L56583%_) (let () (declare (not safe)) - (_%g5645256578%_)))))) - (_%__match8076080761%_ - (lambda (_%e5649356643%_ - _%hd5649456647%_ - _%tl5649556650%_ - _%e5649656653%_ - _%hd5649756657%_ - _%tl5649856660%_ - _%e5649956663%_ - _%hd5650056667%_ - _%tl5650156670%_ - _%e5650256673%_ - _%hd5650356677%_ - _%tl5650456680%_) - (let ((_%L56683%_ _%tl5649856660%_) - (_%L56685%_ _%hd5650056667%_) - (_%L56686%_ _%hd5649456647%_)) - (if (and (gx#stx-keyword? _%L56686%_) - (gx#identifier? _%L56685%_)) - (_%__kont8067680677%_ - _%L56683%_ - _%L56685%_ - _%L56686%_) - (_%__match8077880779%_ - _%e5649356643%_ - _%hd5649456647%_ - _%tl5649556650%_ - _%e5649656653%_ - _%hd5649756657%_ - _%tl5649856660%_ - _%e5649956663%_ - _%hd5650056667%_ - _%tl5650156670%_))))) - (_%__match8073480735%_ - (lambda (_%e5648456711%_ - _%hd5648556715%_ - _%tl5648656718%_ - _%e5648756721%_ - _%hd5648856725%_ - _%tl5648956728%_) - (let ((_%L56731%_ _%tl5648956728%_) - (_%L56733%_ _%hd5648856725%_) - (_%L56734%_ _%hd5648556715%_)) - (if (and (gx#stx-keyword? _%L56734%_) - (gx#identifier? _%L56733%_)) - (_%__kont8067480675%_ - _%L56731%_ - _%L56733%_ - _%L56734%_) - (if (gx#stx-pair? _%hd5648856725%_) - (let ((_%e5649956663%_ - (gx#syntax-e _%hd5648856725%_))) - (let ((_%tl5650156670%_ + (_%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 _%e5649956663%_))) - (_%hd5650056667%_ + (##cdr _%e5646356627%_))) + (_%hd5646456631%_ (let () (declare (not safe)) - (##car _%e5649956663%_)))) - (if (gx#stx-pair? _%tl5650156670%_) - (let ((_%e5650256673%_ + (##car _%e5646356627%_)))) + (if (gx#stx-pair? _%tl5646556634%_) + (let ((_%e5646656637%_ (gx#syntax-e - _%tl5650156670%_))) - (let ((_%tl5650456680%_ + _%tl5646556634%_))) + (let ((_%tl5646856644%_ (let () (declare (not safe)) - (##cdr _%e5650256673%_))) - (_%hd5650356677%_ + (##cdr _%e5646656637%_))) + (_%hd5646756641%_ (let () (declare (not safe)) - (##car _%e5650256673%_)))) + (##car _%e5646656637%_)))) (if (gx#stx-null? - _%tl5650456680%_) - (_%__match8076080761%_ - _%e5648456711%_ - _%hd5648556715%_ - _%tl5648656718%_ - _%e5648756721%_ - _%hd5648856725%_ - _%tl5648956728%_ - _%e5649956663%_ - _%hd5650056667%_ - _%tl5650156670%_ - _%e5650256673%_ - _%hd5650356677%_ - _%tl5650456680%_) - (_%__match8077880779%_ - _%e5648456711%_ - _%hd5648556715%_ - _%tl5648656718%_ - _%e5648756721%_ - _%hd5648856725%_ - _%tl5648956728%_ - _%e5649956663%_ - _%hd5650056667%_ - _%tl5650156670%_)))) - (_%__match8077880779%_ - _%e5648456711%_ - _%hd5648556715%_ - _%tl5648656718%_ - _%e5648756721%_ - _%hd5648856725%_ - _%tl5648956728%_ - _%e5649956663%_ - _%hd5650056667%_ - _%tl5650156670%_)))) + _%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)) - (_%g5645256578%_))))))) - (_%__match8072280723%_ - (lambda (_%e5647556755%_ - _%hd5647656759%_ - _%tl5647756762%_ - _%e5647856765%_ - _%hd5647956769%_ - _%tl5648056772%_) - (let ((_%L56775%_ _%tl5647756762%_) - (_%L56777%_ _%tl5648056772%_) - (_%L56778%_ _%hd5647956769%_)) - (if (and (gx#identifier? _%L56778%_) + (_%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?| - _%L56777%_)) - (_%__kont8067280673%_ - _%L56775%_ - _%L56777%_ - _%L56778%_) - (if (gx#stx-pair? _%tl5647756762%_) - (let ((_%e5648756721%_ - (gx#syntax-e _%tl5647756762%_))) - (let ((_%tl5648956728%_ + _%L56741%_)) + (_%__kont8143881439%_ + _%L56739%_ + _%L56741%_ + _%L56742%_) + (if (gx#stx-pair? _%tl5644156726%_) + (let ((_%e5645156685%_ + (gx#syntax-e _%tl5644156726%_))) + (let ((_%tl5645356692%_ (let () (declare (not safe)) - (##cdr _%e5648756721%_))) - (_%hd5648856725%_ + (##cdr _%e5645156685%_))) + (_%hd5645256689%_ (let () (declare (not safe)) - (##car _%e5648756721%_)))) - (_%__match8073480735%_ - _%e5647556755%_ - _%hd5647656759%_ - _%tl5647756762%_ - _%e5648756721%_ - _%hd5648856725%_ - _%tl5648956728%_))) + (##car _%e5645156685%_)))) + (_%__match8150081501%_ + _%e5643956719%_ + _%hd5644056723%_ + _%tl5644156726%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_))) (let () (declare (not safe)) - (_%g5645256578%_))))))) - (_%__match8071080711%_ - (lambda (_%e5646356799%_ - _%hd5646456803%_ - _%tl5646556806%_ - _%e5646656809%_ - _%hd5646756813%_ - _%tl5646856816%_ - _%e5646956819%_ - _%hd5647056823%_ - _%tl5647156826%_) - (let ((_%L56829%_ _%tl5646556806%_) - (_%L56831%_ _%hd5646756813%_)) - (if (gx#identifier? _%L56831%_) - (_%__kont8067080671%_ _%L56829%_ _%L56831%_) - (_%__match8072280723%_ - _%e5646356799%_ - _%hd5646456803%_ - _%tl5646556806%_ - _%e5646656809%_ - _%hd5646756813%_ - _%tl5646856816%_))))) - (_%__match8069080691%_ - (lambda (_%e5645856853%_ - _%hd5645956857%_ - _%tl5646056860%_) - (let ((_%L56863%_ _%tl5646056860%_) - (_%L56865%_ _%hd5645956857%_)) - (if (gx#identifier? _%L56865%_) - (_%__kont8066880669%_ _%L56863%_ _%L56865%_) - (if (gx#stx-pair? _%hd5645956857%_) - (let ((_%e5646656809%_ - (gx#syntax-e _%hd5645956857%_))) - (let ((_%tl5646856816%_ + (_%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 _%e5646656809%_))) - (_%hd5646756813%_ + (##cdr _%e5643056773%_))) + (_%hd5643156777%_ (let () (declare (not safe)) - (##car _%e5646656809%_)))) - (if (gx#stx-pair? _%tl5646856816%_) - (let ((_%e5646956819%_ + (##car _%e5643056773%_)))) + (if (gx#stx-pair? _%tl5643256780%_) + (let ((_%e5643356783%_ (gx#syntax-e - _%tl5646856816%_))) - (let ((_%tl5647156826%_ + _%tl5643256780%_))) + (let ((_%tl5643556790%_ (let () (declare (not safe)) - (##cdr _%e5646956819%_))) - (_%hd5647056823%_ + (##cdr _%e5643356783%_))) + (_%hd5643456787%_ (let () (declare (not safe)) - (##car _%e5646956819%_)))) + (##car _%e5643356783%_)))) (if (gx#stx-null? - _%tl5647156826%_) - (_%__match8071080711%_ - _%e5645856853%_ - _%hd5645956857%_ - _%tl5646056860%_ - _%e5646656809%_ - _%hd5646756813%_ - _%tl5646856816%_ - _%e5646956819%_ - _%hd5647056823%_ - _%tl5647156826%_) - (_%__match8072280723%_ - _%e5645856853%_ - _%hd5645956857%_ - _%tl5646056860%_ - _%e5646656809%_ - _%hd5646756813%_ - _%tl5646856816%_)))) - (_%__match8072280723%_ - _%e5645856853%_ - _%hd5645956857%_ - _%tl5646056860%_ - _%e5646656809%_ - _%hd5646756813%_ - _%tl5646856816%_)))) - (if (gx#stx-pair? _%tl5646056860%_) - (let ((_%e5648756721%_ - (gx#syntax-e _%tl5646056860%_))) - (let ((_%tl5648956728%_ + _%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 _%e5648756721%_))) - (_%hd5648856725%_ + (##cdr _%e5645156685%_))) + (_%hd5645256689%_ (let () (declare (not safe)) - (##car _%e5648756721%_)))) - (_%__match8073480735%_ - _%e5645856853%_ - _%hd5645956857%_ - _%tl5646056860%_ - _%e5648756721%_ - _%hd5648856725%_ - _%tl5648956728%_))) + (##car _%e5645156685%_)))) + (_%__match8150081501%_ + _%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_))) (let () (declare (not safe)) - (_%g5645256578%_))))))))) - (if (gx#stx-pair? _%__stx8066580666%_) - (let ((_%e5645856853%_ - (gx#syntax-e _%__stx8066580666%_))) - (let ((_%tl5646056860%_ + (_%g5641656542%_))))))))) + (if (gx#stx-pair? _%__stx8143181432%_) + (let ((_%e5642256817%_ + (gx#syntax-e _%__stx8143181432%_))) + (let ((_%tl5642456824%_ (let () (declare (not safe)) - (##cdr _%e5645856853%_))) - (_%hd5645956857%_ + (##cdr _%e5642256817%_))) + (_%hd5642356821%_ (let () (declare (not safe)) - (##car _%e5645856853%_)))) - (_%__match8069080691%_ - _%e5645856853%_ - _%hd5645956857%_ - _%tl5646056860%_))) - (let () (declare (not safe)) (_%g5645256578%_)))))))))) + (##car _%e5642256817%_)))) + (_%__match8145681457%_ + _%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_))) + (let () (declare (not safe)) (_%g5641656542%_)))))))))) (define |gerbil/core/contract~Interface[1]#make-procedure-contract| - (lambda (_%stx55537%_ _%signature55539%_ _%checked?55540%_) - (letrec ((_%contract-e55542%_ - (lambda (_%id55945%_ _%contract55947%_) - (let* ((_%g5594955957%_ - (lambda (_%g5595055953%_) + (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" - _%g5595055953%_))) - (_%g5594856426%_ - (lambda (_%g5595055961%_) - ((lambda (_%L55964%_) - (let* ((_%__stx8078380784%_ _%contract55947%_) - (_%g5598156060%_ + _%g5591455917%_))) + (_%g5591256390%_ + (lambda (_%g5591455925%_) + ((lambda (_%L55928%_) + (let* ((_%__stx8154981550%_ _%contract55911%_) + (_%g5594556024%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8078380784%_)))) - (let ((_%__kont8078680787%_ - (lambda (_%L56397%_ - _%L56399%_ - _%L56400%_) - (if _%checked?55540%_ - (cons _%L55964%_ - (cons _%L56400%_ - (cons _%L56399%_ + _%__stx8154981550%_)))) + (let ((_%__kont8155281553%_ + (lambda (_%L56361%_ + _%L56363%_ + _%L56364%_) + (if _%checked?55504%_ + (cons _%L55928%_ + (cons _%L56364%_ + (cons _%L56363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55964%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56399%_ + (cons _%L56363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8078880789%_ - (lambda (_%L56355%_ _%L56357%_) - (cons _%L55964%_ + (_%__kont8155481555%_ + (lambda (_%L56319%_ _%L56321%_) + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56357%_ + (cons _%L56321%_ '()))))) - (_%__kont8079080791%_ - (lambda (_%L56297%_ - _%L56299%_ - _%L56300%_ - _%L56301%_) - (if _%checked?55540%_ - (cons _%L55964%_ + (_%__kont8155681557%_ + (lambda (_%L56261%_ + _%L56263%_ + _%L56264%_ + _%L56265%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56301%_ + (cons _%L56265%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56300%_ (cons _%L56299%_ '()))))) + (cons _%L56264%_ (cons _%L56263%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55964%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56299%_ + (cons _%L56263%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8079280793%_ - (lambda (_%L56219%_ - _%L56221%_ - _%L56222%_ - _%L56223%_) - (if _%checked?55540%_ - (cons _%L55964%_ + (_%__kont8155881559%_ + (lambda (_%L56183%_ + _%L56185%_ + _%L56186%_ + _%L56187%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56223%_ + (cons _%L56187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56222%_ (cons _%L56221%_ '()))))) + (cons _%L56186%_ (cons _%L56185%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55964%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56221%_ + (cons _%L56185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8079480795%_ - (lambda (_%L56151%_ - _%L56153%_ - _%L56154%_) - (if _%checked?55540%_ - (cons _%L55964%_ + (_%__kont8156081561%_ + (lambda (_%L56115%_ + _%L56117%_ + _%L56118%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56154%_ + (cons _%L56118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':-) - (cons _%L56153%_ '()))))) + (cons _%L56117%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55964%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56153%_ + (cons _%L56117%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8079680797%_ - (lambda (_%L56087%_ _%L56089%_) - (if _%checked?55540%_ - (cons _%L55964%_ + (_%__kont8156281563%_ + (lambda (_%L56051%_ _%L56053%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56089%_ + (cons _%L56053%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55964%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':-) @@ -3639,1958 +3639,1958 @@ ':t) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match8088280883%_ - (lambda (_%e5602056179%_ - _%hd5602156183%_ - _%tl5602256186%_ - _%e5602356189%_ - _%hd5602456193%_ - _%tl5602556196%_ - _%e5602656199%_ - _%hd5602756203%_ - _%tl5602856206%_ - _%e5602956209%_ - _%hd5603056213%_ - _%tl5603156216%_) - (let ((_%L56219%_ - _%tl5603156216%_) - (_%L56221%_ - _%hd5603056213%_) - (_%L56222%_ - _%hd5602756203%_) - (_%L56223%_ - _%hd5602456193%_)) + (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=? - _%L56222%_ + _%L56186%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56222%_ + _%L56186%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56222%_ + _%L56186%_ (gx#datum->syntax '#f ':?))) - (_%__kont8079280793%_ - _%L56219%_ - _%L56221%_ - _%L56222%_ - _%L56223%_) + (_%__kont8155881559%_ + _%L56183%_ + _%L56185%_ + _%L56186%_ + _%L56187%_) (if (gx#identifier? - _%hd5602756203%_) + _%hd5599156167%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84170_| - _%hd5602756203%_) - (_%__kont8079480795%_ - _%tl5603156216%_ - _%hd5603056213%_ - _%hd5602456193%_) - (_%__kont8079680797%_ - _%tl5602556196%_ - _%hd5602456193%_)) - (_%__kont8079680797%_ - _%tl5602556196%_ - _%hd5602456193%_)))))) - (_%__match8085480855%_ - (lambda (_%e5600456257%_ - _%hd5600556261%_ - _%tl5600656264%_ - _%e5600756267%_ - _%hd5600856271%_ - _%tl5600956274%_ - _%e5601056277%_ - _%hd5601156281%_ - _%tl5601256284%_ - _%e5601356287%_ - _%hd5601456291%_ - _%tl5601556294%_) - (let ((_%L56297%_ - _%tl5601556294%_) - (_%L56299%_ - _%hd5601456291%_) - (_%L56300%_ - _%hd5601156281%_) - (_%L56301%_ - _%hd5600856271%_)) + |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=? - _%L56300%_ + _%L56264%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56300%_ + _%L56264%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56300%_ + _%L56264%_ (gx#datum->syntax '#f ':?))) - (_%__kont8079080791%_ - _%L56297%_ - _%L56299%_ - _%L56300%_ - _%L56301%_) - (_%__match8088280883%_ - _%e5600456257%_ - _%hd5600556261%_ - _%tl5600656264%_ - _%e5600756267%_ - _%hd5600856271%_ - _%tl5600956274%_ - _%e5601056277%_ - _%hd5601156281%_ - _%tl5601256284%_ - _%e5601356287%_ - _%hd5601456291%_ - _%tl5601556294%_))))) - (_%__match8081080811%_ - (lambda (_%e5598656377%_ - _%hd5598756381%_ - _%tl5598856384%_ - _%e5598956387%_ - _%hd5599056391%_ - _%tl5599156394%_) - (let ((_%L56397%_ - _%tl5599156394%_) - (_%L56399%_ - _%hd5599056391%_) - (_%L56400%_ - _%hd5598756381%_)) + (_%__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=? - _%L56400%_ + _%L56364%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56400%_ + _%L56364%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56400%_ + _%L56364%_ (gx#datum->syntax '#f ':?))) - (_%__kont8078680787%_ - _%L56397%_ - _%L56399%_ - _%L56400%_) + (_%__kont8155281553%_ + _%L56361%_ + _%L56363%_ + _%L56364%_) (if (gx#identifier? - _%hd5598756381%_) + _%hd5595156345%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84171_| - _%hd5598756381%_) - (_%__kont8078880789%_ - _%tl5599156394%_ - _%hd5599056391%_) + |gerbil/core/contract~Interface[1]#_g85047_| + _%hd5595156345%_) + (_%__kont8155481555%_ + _%tl5595556358%_ + _%hd5595456355%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g84172_| - _%hd5598756381%_) - (if (gx#stx-pair? _%tl5599156394%_) - (let ((_%e5601056277%_ - (gx#syntax-e _%tl5599156394%_))) - (let ((_%tl5601256284%_ + |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 _%e5601056277%_))) - (_%hd5601156281%_ + (##cdr _%e5597456241%_))) + (_%hd5597556245%_ (let () (declare (not safe)) - (##car _%e5601056277%_)))) - (if (gx#stx-pair? _%tl5601256284%_) - (let ((_%e5601356287%_ - (gx#syntax-e _%tl5601256284%_))) - (let ((_%tl5601556294%_ + (##car _%e5597456241%_)))) + (if (gx#stx-pair? _%tl5597656248%_) + (let ((_%e5597756251%_ + (gx#syntax-e _%tl5597656248%_))) + (let ((_%tl5597956258%_ (let () (declare (not safe)) - (##cdr _%e5601356287%_))) - (_%hd5601456291%_ + (##cdr _%e5597756251%_))) + (_%hd5597856255%_ (let () (declare (not safe)) - (##car _%e5601356287%_)))) - (_%__match8085480855%_ - _%e5598656377%_ - _%hd5598756381%_ - _%tl5598856384%_ - _%e5598956387%_ - _%hd5599056391%_ - _%tl5599156394%_ - _%e5601056277%_ - _%hd5601156281%_ - _%tl5601256284%_ - _%e5601356287%_ - _%hd5601456291%_ - _%tl5601556294%_))) - (_%__kont8079680797%_ - _%tl5599156394%_ - _%hd5599056391%_)))) - (_%__kont8079680797%_ - _%tl5599156394%_ - _%hd5599056391%_)) - (let () (declare (not safe)) (_%g5598156060%_)))) - (let () (declare (not safe)) (_%g5598156060%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8078380784%_) - (let ((_%e5598656377%_ + (##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 - _%__stx8078380784%_))) - (let ((_%tl5598856384%_ + _%__stx8154981550%_))) + (let ((_%tl5595256348%_ (let () (declare (not safe)) - (##cdr _%e5598656377%_))) - (_%hd5598756381%_ + (##cdr _%e5595056341%_))) + (_%hd5595156345%_ (let () (declare (not safe)) - (##car _%e5598656377%_)))) + (##car _%e5595056341%_)))) (if (gx#stx-pair? - _%tl5598856384%_) - (let ((_%e5598956387%_ + _%tl5595256348%_) + (let ((_%e5595356351%_ (gx#syntax-e - _%tl5598856384%_))) - (let ((_%tl5599156394%_ + _%tl5595256348%_))) + (let ((_%tl5595556358%_ (let () (declare (not safe)) - (##cdr _%e5598956387%_))) - (_%hd5599056391%_ + (##cdr _%e5595356351%_))) + (_%hd5595456355%_ (let () (declare (not safe)) - (##car _%e5598956387%_)))) - (_%__match8081080811%_ - _%e5598656377%_ - _%hd5598756381%_ - _%tl5598856384%_ - _%e5598956387%_ - _%hd5599056391%_ - _%tl5599156394%_))) + (##car _%e5595356351%_)))) + (_%__match8157681577%_ + _%e5595056341%_ + _%hd5595156345%_ + _%tl5595256348%_ + _%e5595356351%_ + _%hd5595456355%_ + _%tl5595556358%_))) (let () (declare (not safe)) - (_%g5598156060%_))))) + (_%g5594556024%_))))) (let () (declare (not safe)) - (_%g5598156060%_))))))) - _%g5595055961%_)))) - (_%g5594856426%_ _%id55945%_))))) - (let _%loop55545%_ ((_%rest55548%_ _%signature55539%_) - (_%result55550%_ '())) - (let* ((_%__stx8093380934%_ _%rest55548%_) - (_%g5555855627%_ + (_%g5594556024%_))))))) + _%g5591455925%_)))) + (_%g5591256390%_ _%id55909%_))))) + (let _%loop55509%_ ((_%rest55512%_ _%signature55503%_) + (_%result55514%_ '())) + (let* ((_%__stx8169981700%_ _%rest55512%_) + (_%g5552255591%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8093380934%_)))) - (let ((_%__kont8093680937%_ - (lambda (_%L55928%_ _%L55930%_) - (_%loop55545%_ _%L55928%_ _%result55550%_))) - (_%__kont8093880939%_ - (lambda (_%L55894%_ _%L55896%_) - (_%loop55545%_ _%L55894%_ _%result55550%_))) - (_%__kont8094080941%_ - (lambda (_%L55840%_ _%L55842%_ _%L55843%_) - (_%loop55545%_ - _%L55840%_ - (cons (_%contract-e55542%_ _%L55843%_ _%L55842%_) - _%result55550%_)))) - (_%__kont8094280943%_ - (lambda (_%L55796%_ _%L55798%_ _%L55799%_) - (_%loop55545%_ _%L55796%_ _%result55550%_))) - (_%__kont8094480945%_ - (lambda (_%L55748%_ _%L55750%_ _%L55751%_) - (_%loop55545%_ _%L55748%_ _%result55550%_))) - (_%__kont8094680947%_ - (lambda (_%L55675%_ _%L55677%_ _%L55678%_ _%L55679%_) - (_%loop55545%_ - _%L55675%_ - (cons (_%contract-e55542%_ _%L55678%_ _%L55677%_) - _%result55550%_)))) - (_%__kont8094880949%_ - (lambda () (reverse! (filter identity _%result55550%_))))) - (let* ((_%__match8104481045%_ - (lambda (_%e5561355645%_ - _%hd5561455649%_ - _%tl5561555652%_ - _%e5561655655%_ - _%hd5561755659%_ - _%tl5561855662%_ - _%e5561955665%_ - _%hd5562055669%_ - _%tl5562155672%_) - (let ((_%L55675%_ _%tl5561855662%_) - (_%L55677%_ _%tl5562155672%_) - (_%L55678%_ _%hd5562055669%_) - (_%L55679%_ _%hd5561455649%_)) - (if (and (gx#stx-keyword? _%L55679%_) - (gx#identifier? _%L55678%_) + _%__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?| - _%L55677%_)) - (_%__kont8094680947%_ - _%L55675%_ - _%L55677%_ - _%L55678%_ - _%L55679%_) - (_%__kont8094880949%_))))) - (_%__match8102681027%_ - (lambda (_%e5559755708%_ - _%hd5559855712%_ - _%tl5559955715%_ - _%e5560055718%_ - _%hd5560155722%_ - _%tl5560255725%_ - _%e5560355728%_ - _%hd5560455732%_ - _%tl5560555735%_ - _%e5560655738%_ - _%hd5560755742%_ - _%tl5560855745%_) - (let ((_%L55748%_ _%tl5560255725%_) - (_%L55750%_ _%hd5560455732%_) - (_%L55751%_ _%hd5559855712%_)) - (if (and (gx#stx-keyword? _%L55751%_) - (gx#identifier? _%L55750%_)) - (_%__kont8094480945%_ - _%L55748%_ - _%L55750%_ - _%L55751%_) - (_%__match8104481045%_ - _%e5559755708%_ - _%hd5559855712%_ - _%tl5559955715%_ - _%e5560055718%_ - _%hd5560155722%_ - _%tl5560255725%_ - _%e5560355728%_ - _%hd5560455732%_ - _%tl5560555735%_))))) - (_%__match8100081001%_ - (lambda (_%e5558855776%_ - _%hd5558955780%_ - _%tl5559055783%_ - _%e5559155786%_ - _%hd5559255790%_ - _%tl5559355793%_) - (let ((_%L55796%_ _%tl5559355793%_) - (_%L55798%_ _%hd5559255790%_) - (_%L55799%_ _%hd5558955780%_)) - (if (and (gx#stx-keyword? _%L55799%_) - (gx#identifier? _%L55798%_)) - (_%__kont8094280943%_ - _%L55796%_ - _%L55798%_ - _%L55799%_) - (if (gx#stx-pair? _%hd5559255790%_) - (let ((_%e5560355728%_ - (gx#syntax-e _%hd5559255790%_))) - (let ((_%tl5560555735%_ + _%L55641%_)) + (_%__kont8171281713%_ + _%L55639%_ + _%L55641%_ + _%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 _%e5560355728%_))) - (_%hd5560455732%_ + (##cdr _%e5556755692%_))) + (_%hd5556855696%_ (let () (declare (not safe)) - (##car _%e5560355728%_)))) - (if (gx#stx-pair? _%tl5560555735%_) - (let ((_%e5560655738%_ + (##car _%e5556755692%_)))) + (if (gx#stx-pair? _%tl5556955699%_) + (let ((_%e5557055702%_ (gx#syntax-e - _%tl5560555735%_))) - (let ((_%tl5560855745%_ + _%tl5556955699%_))) + (let ((_%tl5557255709%_ (let () (declare (not safe)) - (##cdr _%e5560655738%_))) - (_%hd5560755742%_ + (##cdr _%e5557055702%_))) + (_%hd5557155706%_ (let () (declare (not safe)) - (##car _%e5560655738%_)))) + (##car _%e5557055702%_)))) (if (gx#stx-null? - _%tl5560855745%_) - (_%__match8102681027%_ - _%e5558855776%_ - _%hd5558955780%_ - _%tl5559055783%_ - _%e5559155786%_ - _%hd5559255790%_ - _%tl5559355793%_ - _%e5560355728%_ - _%hd5560455732%_ - _%tl5560555735%_ - _%e5560655738%_ - _%hd5560755742%_ - _%tl5560855745%_) - (_%__match8104481045%_ - _%e5558855776%_ - _%hd5558955780%_ - _%tl5559055783%_ - _%e5559155786%_ - _%hd5559255790%_ - _%tl5559355793%_ - _%e5560355728%_ - _%hd5560455732%_ - _%tl5560555735%_)))) - (_%__match8104481045%_ - _%e5558855776%_ - _%hd5558955780%_ - _%tl5559055783%_ - _%e5559155786%_ - _%hd5559255790%_ - _%tl5559355793%_ - _%e5560355728%_ - _%hd5560455732%_ - _%tl5560555735%_)))) - (_%__kont8094880949%_)))))) - (_%__match8098880989%_ - (lambda (_%e5557955820%_ - _%hd5558055824%_ - _%tl5558155827%_ - _%e5558255830%_ - _%hd5558355834%_ - _%tl5558455837%_) - (let ((_%L55840%_ _%tl5558155827%_) - (_%L55842%_ _%tl5558455837%_) - (_%L55843%_ _%hd5558355834%_)) - (if (and (gx#identifier? _%L55843%_) + _%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?| - _%L55842%_)) - (_%__kont8094080941%_ - _%L55840%_ - _%L55842%_ - _%L55843%_) - (if (gx#stx-pair? _%tl5558155827%_) - (let ((_%e5559155786%_ - (gx#syntax-e _%tl5558155827%_))) - (let ((_%tl5559355793%_ + _%L55806%_)) + (_%__kont8170681707%_ + _%L55804%_ + _%L55806%_ + _%L55807%_) + (if (gx#stx-pair? _%tl5554555791%_) + (let ((_%e5555555750%_ + (gx#syntax-e _%tl5554555791%_))) + (let ((_%tl5555755757%_ (let () (declare (not safe)) - (##cdr _%e5559155786%_))) - (_%hd5559255790%_ + (##cdr _%e5555555750%_))) + (_%hd5555655754%_ (let () (declare (not safe)) - (##car _%e5559155786%_)))) - (_%__match8100081001%_ - _%e5557955820%_ - _%hd5558055824%_ - _%tl5558155827%_ - _%e5559155786%_ - _%hd5559255790%_ - _%tl5559355793%_))) - (_%__kont8094880949%_)))))) - (_%__match8097680977%_ - (lambda (_%e5556755864%_ - _%hd5556855868%_ - _%tl5556955871%_ - _%e5557055874%_ - _%hd5557155878%_ - _%tl5557255881%_ - _%e5557355884%_ - _%hd5557455888%_ - _%tl5557555891%_) - (let ((_%L55894%_ _%tl5556955871%_) - (_%L55896%_ _%hd5557155878%_)) - (if (gx#identifier? _%L55896%_) - (_%__kont8093880939%_ _%L55894%_ _%L55896%_) - (_%__match8098880989%_ - _%e5556755864%_ - _%hd5556855868%_ - _%tl5556955871%_ - _%e5557055874%_ - _%hd5557155878%_ - _%tl5557255881%_))))) - (_%__match8095680957%_ - (lambda (_%e5556255918%_ - _%hd5556355922%_ - _%tl5556455925%_) - (let ((_%L55928%_ _%tl5556455925%_) - (_%L55930%_ _%hd5556355922%_)) - (if (gx#identifier? _%L55930%_) - (_%__kont8093680937%_ _%L55928%_ _%L55930%_) - (if (gx#stx-pair? _%hd5556355922%_) - (let ((_%e5557055874%_ - (gx#syntax-e _%hd5556355922%_))) - (let ((_%tl5557255881%_ + (##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 _%e5557055874%_))) - (_%hd5557155878%_ + (##cdr _%e5553455838%_))) + (_%hd5553555842%_ (let () (declare (not safe)) - (##car _%e5557055874%_)))) - (if (gx#stx-pair? _%tl5557255881%_) - (let ((_%e5557355884%_ + (##car _%e5553455838%_)))) + (if (gx#stx-pair? _%tl5553655845%_) + (let ((_%e5553755848%_ (gx#syntax-e - _%tl5557255881%_))) - (let ((_%tl5557555891%_ + _%tl5553655845%_))) + (let ((_%tl5553955855%_ (let () (declare (not safe)) - (##cdr _%e5557355884%_))) - (_%hd5557455888%_ + (##cdr _%e5553755848%_))) + (_%hd5553855852%_ (let () (declare (not safe)) - (##car _%e5557355884%_)))) + (##car _%e5553755848%_)))) (if (gx#stx-null? - _%tl5557555891%_) - (_%__match8097680977%_ - _%e5556255918%_ - _%hd5556355922%_ - _%tl5556455925%_ - _%e5557055874%_ - _%hd5557155878%_ - _%tl5557255881%_ - _%e5557355884%_ - _%hd5557455888%_ - _%tl5557555891%_) - (_%__match8098880989%_ - _%e5556255918%_ - _%hd5556355922%_ - _%tl5556455925%_ - _%e5557055874%_ - _%hd5557155878%_ - _%tl5557255881%_)))) - (_%__match8098880989%_ - _%e5556255918%_ - _%hd5556355922%_ - _%tl5556455925%_ - _%e5557055874%_ - _%hd5557155878%_ - _%tl5557255881%_)))) - (if (gx#stx-pair? _%tl5556455925%_) - (let ((_%e5559155786%_ - (gx#syntax-e _%tl5556455925%_))) - (let ((_%tl5559355793%_ + _%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 _%e5559155786%_))) - (_%hd5559255790%_ + (##cdr _%e5555555750%_))) + (_%hd5555655754%_ (let () (declare (not safe)) - (##car _%e5559155786%_)))) - (_%__match8100081001%_ - _%e5556255918%_ - _%hd5556355922%_ - _%tl5556455925%_ - _%e5559155786%_ - _%hd5559255790%_ - _%tl5559355793%_))) - (_%__kont8094880949%_)))))))) - (if (gx#stx-pair? _%__stx8093380934%_) - (let ((_%e5556255918%_ - (gx#syntax-e _%__stx8093380934%_))) - (let ((_%tl5556455925%_ + (##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 _%e5556255918%_))) - (_%hd5556355922%_ + (##cdr _%e5552655882%_))) + (_%hd5552755886%_ (let () (declare (not safe)) - (##car _%e5556255918%_)))) - (_%__match8095680957%_ - _%e5556255918%_ - _%hd5556355922%_ - _%tl5556455925%_))) - (_%__kont8094880949%_))))))))) + (##car _%e5552655882%_)))) + (_%__match8172281723%_ + _%e5552655882%_ + _%hd5552755886%_ + _%tl5552855889%_))) + (_%__kont8171481715%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| - (lambda (_%left55494%_ _%right55496%_) - (let ((_%left55498%_ (gx#syntax->list _%left55494%_)) - (_%right55500%_ (gx#syntax->list _%right55496%_))) - (let ((_%left-args55502%_ (cadr _%left55498%_)) - (_%left-return55504%_ (caddr _%left55498%_)) - (_%right-args55505%_ (cadr _%right55500%_)) - (_%right-return55506%_ (caddr _%right55500%_))) - (let ((__tmp84173 - (lambda (_%return55508%_) - (let ((_%left-arity55511%_ + (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-args55502%_)) - (_%right-arity55513%_ + _%left-args55466%_)) + (_%right-arity55477%_ (|gerbil/core/contract~Interface[1]#signature-arity| - _%right-args55505%_))) - (if (equal? _%left-arity55511%_ _%right-arity55513%_) + _%right-args55469%_))) + (if (equal? _%left-arity55475%_ _%right-arity55477%_) '#!void - (_%return55508%_ '#f))) - (let ((_%left-kws55515%_ + (_%return55472%_ '#f))) + (let ((_%left-kws55479%_ (|gerbil/core/contract~Interface[1]#signature-keywords| - _%left-args55502%_)) - (_%right-kws55517%_ + _%left-args55466%_)) + (_%right-kws55481%_ (|gerbil/core/contract~Interface[1]#signature-keywords| - _%right-args55505%_))) - (if (equal? _%left-kws55515%_ _%right-kws55517%_) + _%right-args55469%_))) + (if (equal? _%left-kws55479%_ _%right-kws55481%_) '#!void - (_%return55508%_ '#f))) - (let ((_g84174_ + (_%return55472%_ '#f))) + (let ((_g85050_ (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%left-args55502%_)) - (_g84176_ + _%left-args55466%_)) + (_g85052_ (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%right-args55505%_))) + _%right-args55469%_))) (begin - (let ((_g84175_ + (let ((_g85051_ (let () (declare (not safe)) - (if (##values? _g84174_) - (##values-length _g84174_) + (if (##values? _g85050_) + (##values-length _g85050_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84175_ 2))) - (error "Context expects 2 values" _g84175_))) - (let ((_g84177_ + (##fx= _g85051_ 2))) + (error "Context expects 2 values" _g85051_))) + (let ((_g85053_ (let () (declare (not safe)) - (if (##values? _g84176_) - (##values-length _g84176_) + (if (##values? _g85052_) + (##values-length _g85052_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84177_ 2))) - (error "Context expects 2 values" _g84177_))) - (let ((_%left-positional-contract55519%_ + (##fx= _g85053_ 2))) + (error "Context expects 2 values" _g85053_))) + (let ((_%left-positional-contract55483%_ (let () (declare (not safe)) - (##values-ref _g84174_ 0))) - (_%left-kw-contract55521%_ + (##values-ref _g85050_ 0))) + (_%left-kw-contract55485%_ (let () (declare (not safe)) - (##values-ref _g84174_ 1)))) - (let ((_%right-positional-contract55522%_ + (##values-ref _g85050_ 1)))) + (let ((_%right-positional-contract55486%_ (let () (declare (not safe)) - (##values-ref _g84176_ 0))) - (_%right-kw-contract55523%_ + (##values-ref _g85052_ 0))) + (_%right-kw-contract55487%_ (let () (declare (not safe)) - (##values-ref _g84176_ 1)))) - (let ((_%left-contract55533%_ - (append _%left-positional-contract55519%_ - (foldr (lambda (_%kwc55525%_ - _%r55527%_) - (cons (cdr _%kwc55525%_) - _%r55527%_)) + (##values-ref _g85052_ 1)))) + (let ((_%left-contract55497%_ + (append _%left-positional-contract55483%_ + (foldr (lambda (_%kwc55489%_ + _%r55491%_) + (cons (cdr _%kwc55489%_) + _%r55491%_)) '() - _%left-kw-contract55521%_))) - (_%right-contract55535%_ - (append _%right-positional-contract55522%_ - (foldr (lambda (_%kwc55529%_ - _%r55531%_) - (cons (cdr _%kwc55529%_) - _%r55531%_)) + _%left-kw-contract55485%_))) + (_%right-contract55499%_ + (append _%right-positional-contract55486%_ + (foldr (lambda (_%kwc55493%_ + _%r55495%_) + (cons (cdr _%kwc55493%_) + _%r55495%_)) '() - _%right-kw-contract55523%_)))) + _%right-kw-contract55487%_)))) (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - _%left-contract55533%_ - _%right-contract55535%_) + _%left-contract55497%_ + _%right-contract55499%_) '#!void - (_%return55508%_ '#f))))))) + (_%return55472%_ '#f))))))) (if (gx#free-identifier=? (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%left55498%_ - _%left-return55504%_)) + _%left55462%_ + _%left-return55468%_)) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%right55500%_ - _%right-return55506%_))) + _%right55464%_ + _%right-return55470%_))) '#!void - (_%return55508%_ '#f)) + (_%return55472%_ '#f)) '#t))) (declare (not safe)) - (##call-with-current-continuation __tmp84173)))))) + (##call-with-current-continuation __tmp85049)))))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - (lambda (_%left55397%_ _%right55399%_) - (let _%loop55401%_ ((_%left-rest55404%_ _%left55397%_) - (_%right-rest55406%_ _%right55399%_)) - (let* ((_%left-rest5540755415%_ _%left-rest55404%_) - (_%else5540955427%_ (lambda () (null? _%right-rest55406%_))) - (_%K5541155478%_ - (lambda (_%left-rest55431%_ _%left55433%_) - (let* ((_%right-rest5543455442%_ _%right-rest55406%_) - (_%else5543655454%_ (lambda () '#f)) - (_%K5543855462%_ - (lambda (_%right-rest55458%_ _%right55460%_) + (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?| - _%left55433%_ - _%right55460%_) - (_%loop55401%_ - _%left-rest55431%_ - _%right-rest55458%_) + _%left55397%_ + _%right55424%_) + (_%loop55365%_ + _%left-rest55395%_ + _%right-rest55422%_) '#f)))) - (if (pair? _%right-rest5543455442%_) - (let ((_%hd5543955466%_ + (if (pair? _%right-rest5539855406%_) + (let ((_%hd5540355430%_ (let () (declare (not safe)) - (##car _%right-rest5543455442%_))) - (_%tl5544055469%_ + (##car _%right-rest5539855406%_))) + (_%tl5540455433%_ (let () (declare (not safe)) - (##cdr _%right-rest5543455442%_)))) - (let* ((_%right55472%_ _%hd5543955466%_) - (_%right-rest55475%_ _%tl5544055469%_)) - (_%K5543855462%_ - _%right-rest55475%_ - _%right55472%_))) - (_%else5543655454%_)))))) - (if (pair? _%left-rest5540755415%_) - (let ((_%hd5541255482%_ + (##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-rest5540755415%_))) - (_%tl5541355485%_ + (##car _%left-rest5537155379%_))) + (_%tl5537755449%_ (let () (declare (not safe)) - (##cdr _%left-rest5540755415%_)))) - (let* ((_%left55488%_ _%hd5541255482%_) - (_%left-rest55491%_ _%tl5541355485%_)) - (_%K5541155478%_ _%left-rest55491%_ _%left55488%_))) - (_%else5540955427%_)))))) + (##cdr _%left-rest5537155379%_)))) + (let* ((_%left55452%_ _%hd5537655446%_) + (_%left-rest55455%_ _%tl5537755449%_)) + (_%K5537555442%_ _%left-rest55455%_ _%left55452%_))) + (_%else5537355391%_)))))) (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| - (lambda (_%left53526%_ _%right53528%_) - (andmap (lambda (_%a53530%_ _%b53532%_) - (let* ((_%__stx8153981540%_ _%a53530%_) - (_%g5354053618%_ + (lambda (_%left53490%_ _%right53492%_) + (andmap (lambda (_%a53494%_ _%b53496%_) + (let* ((_%__stx8230582306%_ _%a53494%_) + (_%g5350453582%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8153981540%_)))) - (let ((_%__kont8154281543%_ - (lambda (_%L55131%_ _%L55133%_) - (let* ((_%__stx8145781458%_ _%b53532%_) - (_%g5515255196%_ + _%__stx8230582306%_)))) + (let ((_%__kont8230882309%_ + (lambda (_%L55095%_ _%L55097%_) + (let* ((_%__stx8222382224%_ _%b53496%_) + (_%g5511655160%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8145781458%_)))) - (let ((_%__kont8146081461%_ - (lambda (_%L55366%_ _%L55368%_) + _%__stx8222382224%_)))) + (let ((_%__kont8222682227%_ + (lambda (_%L55330%_ _%L55332%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55131%_ - _%L55366%_))) - (_%__kont8146281463%_ - (lambda (_%L55310%_ - _%L55312%_ - _%L55313%_) + _%L55095%_ + _%L55330%_))) + (_%__kont8222882229%_ + (lambda (_%L55274%_ + _%L55276%_ + _%L55277%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55131%_ - _%L55310%_))) - (_%__kont8146481465%_ - (lambda (_%L55243%_ _%L55245%_) '#t))) - (let* ((_%__match8150681507%_ - (lambda (_%e5516555270%_ - _%hd5516655274%_ - _%tl5516755277%_ - _%e5516855280%_ - _%hd5516955284%_ - _%tl5517055287%_ - _%e5517155290%_ - _%hd5517255294%_ - _%tl5517355297%_ - _%e5517455300%_ - _%hd5517555304%_ - _%tl5517655307%_) - (let ((_%L55310%_ _%hd5517555304%_) - (_%L55312%_ _%hd5517255294%_) - (_%L55313%_ _%hd5516955284%_)) + _%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=? - _%L55312%_ + _%L55276%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55312%_ + _%L55276%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55312%_ + _%L55276%_ (gx#datum->syntax '#f ':-))) - (_%__kont8146281463%_ - _%L55310%_ - _%L55312%_ - _%L55313%_) + (_%__kont8222882229%_ + _%L55274%_ + _%L55276%_ + _%L55277%_) (if (gx#stx-null? - _%tl5517655307%_) - (_%__kont8146481465%_ - _%hd5517255294%_ - _%hd5516955284%_) + _%tl5514055271%_) + (_%__kont8223082231%_ + _%hd5513655258%_ + _%hd5513355248%_) (let () (declare (not safe)) - (_%g5515255196%_))))))) - (_%__match8147881479%_ - (lambda (_%e5515655346%_ - _%hd5515755350%_ - _%tl5515855353%_ - _%e5515955356%_ - _%hd5516055360%_ - _%tl5516155363%_) - (let ((_%L55366%_ _%hd5516055360%_) - (_%L55368%_ _%hd5515755350%_)) + (_%g5511655160%_))))))) + (_%__match8224482245%_ + (lambda (_%e5512055310%_ + _%hd5512155314%_ + _%tl5512255317%_ + _%e5512355320%_ + _%hd5512455324%_ + _%tl5512555327%_) + (let ((_%L55330%_ _%hd5512455324%_) + (_%L55332%_ _%hd5512155314%_)) (if (or (gx#free-identifier=? - _%L55368%_ + _%L55332%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55368%_ + _%L55332%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55368%_ + _%L55332%_ (gx#datum->syntax '#f ':-))) - (_%__kont8146081461%_ - _%L55366%_ - _%L55368%_) + (_%__kont8222682227%_ + _%L55330%_ + _%L55332%_) (if (gx#identifier? - _%hd5515755350%_) + _%hd5512155314%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84178_| - _%hd5515755350%_) + |gerbil/core/contract~Interface[1]#_g85054_| + _%hd5512155314%_) (if (gx#stx-pair? - _%tl5516155363%_) - (let ((_%e5517155290%_ + _%tl5512555327%_) + (let ((_%e5513555254%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5516155363%_))) - (let ((_%tl5517355297%_ + (gx#syntax-e _%tl5512555327%_))) + (let ((_%tl5513755261%_ (let () (declare (not safe)) - (##cdr _%e5517155290%_))) - (_%hd5517255294%_ + (##cdr _%e5513555254%_))) + (_%hd5513655258%_ (let () (declare (not safe)) - (##car _%e5517155290%_)))) - (if (gx#stx-pair? _%tl5517355297%_) - (let ((_%e5517455300%_ - (gx#syntax-e _%tl5517355297%_))) - (let ((_%tl5517655307%_ + (##car _%e5513555254%_)))) + (if (gx#stx-pair? _%tl5513755261%_) + (let ((_%e5513855264%_ + (gx#syntax-e _%tl5513755261%_))) + (let ((_%tl5514055271%_ (let () (declare (not safe)) - (##cdr _%e5517455300%_))) - (_%hd5517555304%_ + (##cdr _%e5513855264%_))) + (_%hd5513955268%_ (let () (declare (not safe)) - (##car _%e5517455300%_)))) - (_%__match8150681507%_ - _%e5515655346%_ - _%hd5515755350%_ - _%tl5515855353%_ - _%e5515955356%_ - _%hd5516055360%_ - _%tl5516155363%_ - _%e5517155290%_ - _%hd5517255294%_ - _%tl5517355297%_ - _%e5517455300%_ - _%hd5517555304%_ - _%tl5517655307%_))) - (let () (declare (not safe)) (_%g5515255196%_))))) - (let () (declare (not safe)) (_%g5515255196%_))) - (let () (declare (not safe)) (_%g5515255196%_))) + (##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)) - (_%g5515255196%_)))))))) - (if (gx#stx-pair? _%__stx8145781458%_) - (let ((_%e5515655346%_ + (_%g5511655160%_)))))))) + (if (gx#stx-pair? _%__stx8222382224%_) + (let ((_%e5512055310%_ (gx#syntax-e - _%__stx8145781458%_))) - (let ((_%tl5515855353%_ + _%__stx8222382224%_))) + (let ((_%tl5512255317%_ (let () (declare (not safe)) - (##cdr _%e5515655346%_))) - (_%hd5515755350%_ + (##cdr _%e5512055310%_))) + (_%hd5512155314%_ (let () (declare (not safe)) - (##car _%e5515655346%_)))) - (if (gx#stx-pair? _%tl5515855353%_) - (let ((_%e5515955356%_ + (##car _%e5512055310%_)))) + (if (gx#stx-pair? _%tl5512255317%_) + (let ((_%e5512355320%_ (gx#syntax-e - _%tl5515855353%_))) - (let ((_%tl5516155363%_ + _%tl5512255317%_))) + (let ((_%tl5512555327%_ (let () (declare (not safe)) - (##cdr _%e5515955356%_))) - (_%hd5516055360%_ + (##cdr _%e5512355320%_))) + (_%hd5512455324%_ (let () (declare (not safe)) - (##car _%e5515955356%_)))) - (_%__match8147881479%_ - _%e5515655346%_ - _%hd5515755350%_ - _%tl5515855353%_ - _%e5515955356%_ - _%hd5516055360%_ - _%tl5516155363%_))) + (##car _%e5512355320%_)))) + (_%__match8224482245%_ + _%e5512055310%_ + _%hd5512155314%_ + _%tl5512255317%_ + _%e5512355320%_ + _%hd5512455324%_ + _%tl5512555327%_))) (let () (declare (not safe)) - (_%g5515255196%_))))) + (_%g5511655160%_))))) (let () (declare (not safe)) - (_%g5515255196%_)))))))) - (_%__kont8154481545%_ - (lambda (_%L54938%_) - (let* ((_%__stx8139781398%_ _%b53532%_) - (_%g5495354981%_ + (_%g5511655160%_)))))))) + (_%__kont8231082311%_ + (lambda (_%L54902%_) + (let* ((_%__stx8216382164%_ _%b53496%_) + (_%g5491754945%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8139781398%_)))) - (let ((_%__kont8140081401%_ - (lambda (_%L55087%_) + _%__stx8216382164%_)))) + (let ((_%__kont8216682167%_ + (lambda (_%L55051%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54938%_ - _%L55087%_))) - (_%__kont8140281403%_ - (lambda (_%L55039%_ _%L55041%_) + _%L54902%_ + _%L55051%_))) + (_%__kont8216882169%_ + (lambda (_%L55003%_ _%L55005%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54938%_ - _%L55039%_))) - (_%__kont8140481405%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8139781398%_) - (let ((_%e5495655067%_ - (gx#syntax-e _%__stx8139781398%_))) - (let ((_%tl5495855074%_ + _%L54902%_ + _%L55003%_))) + (_%__kont8217082171%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8216382164%_) + (let ((_%e5492055031%_ + (gx#syntax-e _%__stx8216382164%_))) + (let ((_%tl5492255038%_ (let () (declare (not safe)) - (##cdr _%e5495655067%_))) - (_%hd5495755071%_ + (##cdr _%e5492055031%_))) + (_%hd5492155035%_ (let () (declare (not safe)) - (##car _%e5495655067%_)))) - (if (gx#identifier? _%hd5495755071%_) + (##car _%e5492055031%_)))) + (if (gx#identifier? _%hd5492155035%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84179_| - _%hd5495755071%_) + |gerbil/core/contract~Interface[1]#_g85055_| + _%hd5492155035%_) (if (gx#stx-pair? - _%tl5495855074%_) - (let ((_%e5495955077%_ + _%tl5492255038%_) + (let ((_%e5492355041%_ (gx#syntax-e - _%tl5495855074%_))) - (let ((_%tl5496155084%_ + _%tl5492255038%_))) + (let ((_%tl5492555048%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5495955077%_))) - (_%hd5496055081%_ - (let () (declare (not safe)) (##car _%e5495955077%_)))) - (_%__kont8140081401%_ _%hd5496055081%_))) + (##cdr _%e5492355041%_))) + (_%hd5492455045%_ + (let () (declare (not safe)) (##car _%e5492355041%_)))) + (_%__kont8216682167%_ _%hd5492455045%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8140481405%_)) + (_%__kont8217082171%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84180_| - _%hd5495755071%_) + |gerbil/core/contract~Interface[1]#_g85056_| + _%hd5492155035%_) (if (gx#stx-pair? - _%tl5495855074%_) - (let ((_%e5496755009%_ + _%tl5492255038%_) + (let ((_%e5493154973%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5495855074%_))) - (let ((_%tl5496955016%_ + _%tl5492255038%_))) + (let ((_%tl5493354980%_ (let () (declare (not safe)) - (##cdr _%e5496755009%_))) - (_%hd5496855013%_ + (##cdr _%e5493154973%_))) + (_%hd5493254977%_ (let () (declare (not safe)) - (##car _%e5496755009%_)))) - (if (gx#stx-pair? _%tl5496955016%_) - (let ((_%e5497055019%_ - (gx#syntax-e _%tl5496955016%_))) - (let ((_%tl5497255026%_ + (##car _%e5493154973%_)))) + (if (gx#stx-pair? _%tl5493354980%_) + (let ((_%e5493454983%_ + (gx#syntax-e _%tl5493354980%_))) + (let ((_%tl5493654990%_ (let () (declare (not safe)) - (##cdr _%e5497055019%_))) - (_%hd5497155023%_ + (##cdr _%e5493454983%_))) + (_%hd5493554987%_ (let () (declare (not safe)) - (##car _%e5497055019%_)))) - (if (gx#identifier? _%hd5497155023%_) + (##car _%e5493454983%_)))) + (if (gx#identifier? _%hd5493554987%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84181_| - _%hd5497155023%_) - (if (gx#stx-pair? _%tl5497255026%_) - (let ((_%e5497355029%_ + |gerbil/core/contract~Interface[1]#_g85057_| + _%hd5493554987%_) + (if (gx#stx-pair? _%tl5493654990%_) + (let ((_%e5493754993%_ (gx#syntax-e - _%tl5497255026%_))) - (let ((_%tl5497555036%_ + _%tl5493654990%_))) + (let ((_%tl5493955000%_ (let () (declare (not safe)) - (##cdr _%e5497355029%_))) - (_%hd5497455033%_ + (##cdr _%e5493754993%_))) + (_%hd5493854997%_ (let () (declare (not safe)) - (##car _%e5497355029%_)))) - (_%__kont8140281403%_ - _%hd5497455033%_ - _%hd5496855013%_))) - (_%__kont8140481405%_)) - (_%__kont8140481405%_)) - (_%__kont8140481405%_)))) - (_%__kont8140481405%_)))) - (_%__kont8140481405%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8140481405%_))) - (_%__kont8140481405%_)))) - (_%__kont8140481405%_)))))) - (_%__kont8154681547%_ - (lambda (_%L54655%_) - (let* ((_%__stx8131181312%_ _%b53532%_) - (_%g5467054714%_ + (##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" - _%__stx8131181312%_)))) - (let ((_%__kont8131481315%_ - (lambda (_%L54884%_ _%L54886%_) + _%__stx8207782078%_)))) + (let ((_%__kont8208082081%_ + (lambda (_%L54848%_ _%L54850%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54655%_ - _%L54884%_))) - (_%__kont8131681317%_ - (lambda (_%L54826%_ - _%L54828%_ - _%L54829%_ - _%L54830%_) + _%L54619%_ + _%L54848%_))) + (_%__kont8208282083%_ + (lambda (_%L54790%_ + _%L54792%_ + _%L54793%_ + _%L54794%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54655%_ - _%L54828%_))) - (_%__kont8131881319%_ - (lambda (_%L54761%_) '#t))) - (let* ((_%__match8136081361%_ - (lambda (_%e5468454786%_ - _%hd5468554790%_ - _%tl5468654793%_ - _%e5468754796%_ - _%hd5468854800%_ - _%tl5468954803%_ - _%e5469054806%_ - _%hd5469154810%_ - _%tl5469254813%_ - _%e5469354816%_ - _%hd5469454820%_ - _%tl5469554823%_) - (let ((_%L54826%_ _%tl5469554823%_) - (_%L54828%_ _%hd5469454820%_) - (_%L54829%_ _%hd5469154810%_) - (_%L54830%_ _%hd5468854800%_)) + _%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=? - _%L54829%_ + _%L54793%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54829%_ + _%L54793%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54829%_ + _%L54793%_ (gx#datum->syntax '#f ':-))) - (_%__kont8131681317%_ - _%L54826%_ - _%L54828%_ - _%L54829%_ - _%L54830%_) + (_%__kont8208282083%_ + _%L54790%_ + _%L54792%_ + _%L54793%_ + _%L54794%_) (if (gx#identifier? - _%hd5469154810%_) + _%hd5465554774%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84182_| - _%hd5469154810%_) + |gerbil/core/contract~Interface[1]#_g85058_| + _%hd5465554774%_) (if (gx#stx-null? - _%tl5469554823%_) - (_%__kont8131881319%_ - _%hd5468854800%_) + _%tl5465954787%_) + (_%__kont8208482085%_ + _%hd5465254764%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_%g5467054714%_))) - (let () (declare (not safe)) (_%g5467054714%_))) + (_%g5463454678%_))) + (let () (declare (not safe)) (_%g5463454678%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5467054714%_))))))) - (_%__match8133281333%_ - (lambda (_%e5467454864%_ - _%hd5467554868%_ - _%tl5467654871%_ - _%e5467754874%_ - _%hd5467854878%_ - _%tl5467954881%_) - (let ((_%L54884%_ _%hd5467854878%_) - (_%L54886%_ _%hd5467554868%_)) + (_%g5463454678%_))))))) + (_%__match8209882099%_ + (lambda (_%e5463854828%_ + _%hd5463954832%_ + _%tl5464054835%_ + _%e5464154838%_ + _%hd5464254842%_ + _%tl5464354845%_) + (let ((_%L54848%_ _%hd5464254842%_) + (_%L54850%_ _%hd5463954832%_)) (if (or (gx#free-identifier=? - _%L54886%_ + _%L54850%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54886%_ + _%L54850%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54886%_ + _%L54850%_ (gx#datum->syntax '#f ':-))) - (_%__kont8131481315%_ - _%L54884%_ - _%L54886%_) + (_%__kont8208082081%_ + _%L54848%_ + _%L54850%_) (if (gx#identifier? - _%hd5467554868%_) + _%hd5463954832%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84183_| - _%hd5467554868%_) + |gerbil/core/contract~Interface[1]#_g85059_| + _%hd5463954832%_) (if (gx#stx-pair? - _%tl5467954881%_) - (let ((_%e5469054806%_ + _%tl5464354845%_) + (let ((_%e5465454770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5467954881%_))) - (let ((_%tl5469254813%_ + (gx#syntax-e _%tl5464354845%_))) + (let ((_%tl5465654777%_ (let () (declare (not safe)) - (##cdr _%e5469054806%_))) - (_%hd5469154810%_ + (##cdr _%e5465454770%_))) + (_%hd5465554774%_ (let () (declare (not safe)) - (##car _%e5469054806%_)))) - (if (gx#stx-pair? _%tl5469254813%_) - (let ((_%e5469354816%_ - (gx#syntax-e _%tl5469254813%_))) - (let ((_%tl5469554823%_ + (##car _%e5465454770%_)))) + (if (gx#stx-pair? _%tl5465654777%_) + (let ((_%e5465754780%_ + (gx#syntax-e _%tl5465654777%_))) + (let ((_%tl5465954787%_ (let () (declare (not safe)) - (##cdr _%e5469354816%_))) - (_%hd5469454820%_ + (##cdr _%e5465754780%_))) + (_%hd5465854784%_ (let () (declare (not safe)) - (##car _%e5469354816%_)))) - (_%__match8136081361%_ - _%e5467454864%_ - _%hd5467554868%_ - _%tl5467654871%_ - _%e5467754874%_ - _%hd5467854878%_ - _%tl5467954881%_ - _%e5469054806%_ - _%hd5469154810%_ - _%tl5469254813%_ - _%e5469354816%_ - _%hd5469454820%_ - _%tl5469554823%_))) - (let () (declare (not safe)) (_%g5467054714%_))))) - (let () (declare (not safe)) (_%g5467054714%_))) - (let () (declare (not safe)) (_%g5467054714%_))) + (##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)) - (_%g5467054714%_)))))))) - (if (gx#stx-pair? _%__stx8131181312%_) - (let ((_%e5467454864%_ + (_%g5463454678%_)))))))) + (if (gx#stx-pair? _%__stx8207782078%_) + (let ((_%e5463854828%_ (gx#syntax-e - _%__stx8131181312%_))) - (let ((_%tl5467654871%_ + _%__stx8207782078%_))) + (let ((_%tl5464054835%_ (let () (declare (not safe)) - (##cdr _%e5467454864%_))) - (_%hd5467554868%_ + (##cdr _%e5463854828%_))) + (_%hd5463954832%_ (let () (declare (not safe)) - (##car _%e5467454864%_)))) - (if (gx#stx-pair? _%tl5467654871%_) - (let ((_%e5467754874%_ + (##car _%e5463854828%_)))) + (if (gx#stx-pair? _%tl5464054835%_) + (let ((_%e5464154838%_ (gx#syntax-e - _%tl5467654871%_))) - (let ((_%tl5467954881%_ + _%tl5464054835%_))) + (let ((_%tl5464354845%_ (let () (declare (not safe)) - (##cdr _%e5467754874%_))) - (_%hd5467854878%_ + (##cdr _%e5464154838%_))) + (_%hd5464254842%_ (let () (declare (not safe)) - (##car _%e5467754874%_)))) - (_%__match8133281333%_ - _%e5467454864%_ - _%hd5467554868%_ - _%tl5467654871%_ - _%e5467754874%_ - _%hd5467854878%_ - _%tl5467954881%_))) + (##car _%e5464154838%_)))) + (_%__match8209882099%_ + _%e5463854828%_ + _%hd5463954832%_ + _%tl5464054835%_ + _%e5464154838%_ + _%hd5464254842%_ + _%tl5464354845%_))) (let () (declare (not safe)) - (_%g5467054714%_))))) + (_%g5463454678%_))))) (let () (declare (not safe)) - (_%g5467054714%_)))))))) - (_%__kont8154881549%_ - (lambda (_%L54374%_ _%L54376%_) - (let* ((_%__stx8122981230%_ _%b53532%_) - (_%g5439554439%_ + (_%g5463454678%_)))))))) + (_%__kont8231482315%_ + (lambda (_%L54338%_ _%L54340%_) + (let* ((_%__stx8199581996%_ _%b53496%_) + (_%g5435954403%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8122981230%_)))) - (let ((_%__kont8123281233%_ - (lambda (_%L54601%_ _%L54603%_) + _%__stx8199581996%_)))) + (let ((_%__kont8199881999%_ + (lambda (_%L54565%_ _%L54567%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54374%_ - _%L54601%_))) - (_%__kont8123481235%_ - (lambda (_%L54553%_ - _%L54555%_ - _%L54556%_) + _%L54338%_ + _%L54565%_))) + (_%__kont8200082001%_ + (lambda (_%L54517%_ + _%L54519%_ + _%L54520%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54374%_ - _%L54553%_))) - (_%__kont8123681237%_ - (lambda (_%L54486%_ _%L54488%_) '#t))) - (let ((_%__match8125081251%_ - (lambda (_%e5439954581%_ - _%hd5440054585%_ - _%tl5440154588%_ - _%e5440254591%_ - _%hd5440354595%_ - _%tl5440454598%_) - (let ((_%L54601%_ _%hd5440354595%_) - (_%L54603%_ _%hd5440054585%_)) + _%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=? - _%L54603%_ + _%L54567%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54603%_ + _%L54567%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54603%_ + _%L54567%_ (gx#datum->syntax '#f ':-))) - (_%__kont8123281233%_ - _%L54601%_ - _%L54603%_) + (_%__kont8199881999%_ + _%L54565%_ + _%L54567%_) (if (gx#identifier? - _%hd5440054585%_) + _%hd5436454549%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84184_| - _%hd5440054585%_) + |gerbil/core/contract~Interface[1]#_g85060_| + _%hd5436454549%_) (if (gx#stx-pair? - _%tl5440454598%_) - (let ((_%e5441454533%_ + _%tl5436854562%_) + (let ((_%e5437854497%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5440454598%_))) - (let ((_%tl5441654540%_ + (gx#syntax-e _%tl5436854562%_))) + (let ((_%tl5438054504%_ (let () (declare (not safe)) - (##cdr _%e5441454533%_))) - (_%hd5441554537%_ + (##cdr _%e5437854497%_))) + (_%hd5437954501%_ (let () (declare (not safe)) - (##car _%e5441454533%_)))) - (if (gx#stx-pair? _%tl5441654540%_) - (let ((_%e5441754543%_ - (gx#syntax-e _%tl5441654540%_))) - (let ((_%tl5441954550%_ + (##car _%e5437854497%_)))) + (if (gx#stx-pair? _%tl5438054504%_) + (let ((_%e5438154507%_ + (gx#syntax-e _%tl5438054504%_))) + (let ((_%tl5438354514%_ (let () (declare (not safe)) - (##cdr _%e5441754543%_))) - (_%hd5441854547%_ + (##cdr _%e5438154507%_))) + (_%hd5438254511%_ (let () (declare (not safe)) - (##car _%e5441754543%_)))) - (_%__kont8123481235%_ - _%hd5441854547%_ - _%hd5441554537%_ - _%hd5440354595%_))) - (let () (declare (not safe)) (_%g5439554439%_))))) - (let () (declare (not safe)) (_%g5439554439%_))) - (let () (declare (not safe)) (_%g5439554439%_))) + (##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)) - (_%g5439554439%_)))))))) - (if (gx#stx-pair? _%__stx8122981230%_) - (let ((_%e5439954581%_ + (_%g5435954403%_)))))))) + (if (gx#stx-pair? _%__stx8199581996%_) + (let ((_%e5436354545%_ (gx#syntax-e - _%__stx8122981230%_))) - (let ((_%tl5440154588%_ + _%__stx8199581996%_))) + (let ((_%tl5436554552%_ (let () (declare (not safe)) - (##cdr _%e5439954581%_))) - (_%hd5440054585%_ + (##cdr _%e5436354545%_))) + (_%hd5436454549%_ (let () (declare (not safe)) - (##car _%e5439954581%_)))) - (if (gx#stx-pair? _%tl5440154588%_) - (let ((_%e5440254591%_ + (##car _%e5436354545%_)))) + (if (gx#stx-pair? _%tl5436554552%_) + (let ((_%e5436654555%_ (gx#syntax-e - _%tl5440154588%_))) - (let ((_%tl5440454598%_ + _%tl5436554552%_))) + (let ((_%tl5436854562%_ (let () (declare (not safe)) - (##cdr _%e5440254591%_))) - (_%hd5440354595%_ + (##cdr _%e5436654555%_))) + (_%hd5436754559%_ (let () (declare (not safe)) - (##car _%e5440254591%_)))) - (_%__match8125081251%_ - _%e5439954581%_ - _%hd5440054585%_ - _%tl5440154588%_ - _%e5440254591%_ - _%hd5440354595%_ - _%tl5440454598%_))) + (##car _%e5436654555%_)))) + (_%__match8201682017%_ + _%e5436354545%_ + _%hd5436454549%_ + _%tl5436554552%_ + _%e5436654555%_ + _%hd5436754559%_ + _%tl5436854562%_))) (let () (declare (not safe)) - (_%g5439554439%_))))) + (_%g5435954403%_))))) (let () (declare (not safe)) - (_%g5439554439%_)))))))) - (_%__kont8155081551%_ - (lambda (_%L54155%_ _%L54157%_) - (let* ((_%__stx8116981170%_ _%b53532%_) - (_%g5417654204%_ + (_%g5435954403%_)))))))) + (_%__kont8231682317%_ + (lambda (_%L54119%_ _%L54121%_) + (let* ((_%__stx8193581936%_ _%b53496%_) + (_%g5414054168%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8116981170%_)))) - (let ((_%__kont8117281173%_ - (lambda (_%L54310%_) + _%__stx8193581936%_)))) + (let ((_%__kont8193881939%_ + (lambda (_%L54274%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54155%_ - _%L54310%_))) - (_%__kont8117481175%_ - (lambda (_%L54262%_ _%L54264%_) + _%L54119%_ + _%L54274%_))) + (_%__kont8194081941%_ + (lambda (_%L54226%_ _%L54228%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54155%_ - _%L54262%_))) - (_%__kont8117681177%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8116981170%_) - (let ((_%e5417954290%_ - (gx#syntax-e _%__stx8116981170%_))) - (let ((_%tl5418154297%_ + _%L54119%_ + _%L54226%_))) + (_%__kont8194281943%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8193581936%_) + (let ((_%e5414354254%_ + (gx#syntax-e _%__stx8193581936%_))) + (let ((_%tl5414554261%_ (let () (declare (not safe)) - (##cdr _%e5417954290%_))) - (_%hd5418054294%_ + (##cdr _%e5414354254%_))) + (_%hd5414454258%_ (let () (declare (not safe)) - (##car _%e5417954290%_)))) - (if (gx#identifier? _%hd5418054294%_) + (##car _%e5414354254%_)))) + (if (gx#identifier? _%hd5414454258%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84185_| - _%hd5418054294%_) + |gerbil/core/contract~Interface[1]#_g85061_| + _%hd5414454258%_) (if (gx#stx-pair? - _%tl5418154297%_) - (let ((_%e5418254300%_ + _%tl5414554261%_) + (let ((_%e5414654264%_ (gx#syntax-e - _%tl5418154297%_))) - (let ((_%tl5418454307%_ + _%tl5414554261%_))) + (let ((_%tl5414854271%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5418254300%_))) - (_%hd5418354304%_ - (let () (declare (not safe)) (##car _%e5418254300%_)))) - (_%__kont8117281173%_ _%hd5418354304%_))) + (##cdr _%e5414654264%_))) + (_%hd5414754268%_ + (let () (declare (not safe)) (##car _%e5414654264%_)))) + (_%__kont8193881939%_ _%hd5414754268%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8117681177%_)) + (_%__kont8194281943%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84186_| - _%hd5418054294%_) + |gerbil/core/contract~Interface[1]#_g85062_| + _%hd5414454258%_) (if (gx#stx-pair? - _%tl5418154297%_) - (let ((_%e5419054232%_ + _%tl5414554261%_) + (let ((_%e5415454196%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5418154297%_))) - (let ((_%tl5419254239%_ + _%tl5414554261%_))) + (let ((_%tl5415654203%_ (let () (declare (not safe)) - (##cdr _%e5419054232%_))) - (_%hd5419154236%_ + (##cdr _%e5415454196%_))) + (_%hd5415554200%_ (let () (declare (not safe)) - (##car _%e5419054232%_)))) - (if (gx#stx-pair? _%tl5419254239%_) - (let ((_%e5419354242%_ - (gx#syntax-e _%tl5419254239%_))) - (let ((_%tl5419554249%_ + (##car _%e5415454196%_)))) + (if (gx#stx-pair? _%tl5415654203%_) + (let ((_%e5415754206%_ + (gx#syntax-e _%tl5415654203%_))) + (let ((_%tl5415954213%_ (let () (declare (not safe)) - (##cdr _%e5419354242%_))) - (_%hd5419454246%_ + (##cdr _%e5415754206%_))) + (_%hd5415854210%_ (let () (declare (not safe)) - (##car _%e5419354242%_)))) - (if (gx#identifier? _%hd5419454246%_) + (##car _%e5415754206%_)))) + (if (gx#identifier? _%hd5415854210%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84187_| - _%hd5419454246%_) - (if (gx#stx-pair? _%tl5419554249%_) - (let ((_%e5419654252%_ + |gerbil/core/contract~Interface[1]#_g85063_| + _%hd5415854210%_) + (if (gx#stx-pair? _%tl5415954213%_) + (let ((_%e5416054216%_ (gx#syntax-e - _%tl5419554249%_))) - (let ((_%tl5419854259%_ + _%tl5415954213%_))) + (let ((_%tl5416254223%_ (let () (declare (not safe)) - (##cdr _%e5419654252%_))) - (_%hd5419754256%_ + (##cdr _%e5416054216%_))) + (_%hd5416154220%_ (let () (declare (not safe)) - (##car _%e5419654252%_)))) - (_%__kont8117481175%_ - _%hd5419754256%_ - _%hd5419154236%_))) - (_%__kont8117681177%_)) - (_%__kont8117681177%_)) - (_%__kont8117681177%_)))) - (_%__kont8117681177%_)))) - (_%__kont8117681177%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8117681177%_))) - (_%__kont8117681177%_)))) - (_%__kont8117681177%_)))))) - (_%__kont8155281553%_ - (lambda (_%L53846%_ _%L53848%_) - (let* ((_%__stx8108781088%_ _%b53532%_) - (_%g5386753911%_ + (##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" - _%__stx8108781088%_)))) - (let ((_%__kont8109081091%_ - (lambda (_%L54081%_ _%L54083%_) + _%__stx8185381854%_)))) + (let ((_%__kont8185681857%_ + (lambda (_%L54045%_ _%L54047%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53846%_ - _%L54081%_))) - (_%__kont8109281093%_ - (lambda (_%L54025%_ - _%L54027%_ - _%L54028%_) + _%L53810%_ + _%L54045%_))) + (_%__kont8185881859%_ + (lambda (_%L53989%_ + _%L53991%_ + _%L53992%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53846%_ - _%L54025%_))) - (_%__kont8109481095%_ - (lambda (_%L53958%_ _%L53960%_) '#t))) - (let* ((_%__match8113681137%_ - (lambda (_%e5388053985%_ - _%hd5388153989%_ - _%tl5388253992%_ - _%e5388353995%_ - _%hd5388453999%_ - _%tl5388554002%_ - _%e5388654005%_ - _%hd5388754009%_ - _%tl5388854012%_ - _%e5388954015%_ - _%hd5389054019%_ - _%tl5389154022%_) - (let ((_%L54025%_ _%hd5389054019%_) - (_%L54027%_ _%hd5388754009%_) - (_%L54028%_ _%hd5388453999%_)) + _%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=? - _%L54027%_ + _%L53991%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54027%_ + _%L53991%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54027%_ + _%L53991%_ (gx#datum->syntax '#f ':-))) - (_%__kont8109281093%_ - _%L54025%_ - _%L54027%_ - _%L54028%_) + (_%__kont8185881859%_ + _%L53989%_ + _%L53991%_ + _%L53992%_) (if (gx#stx-null? - _%tl5389154022%_) - (_%__kont8109481095%_ - _%hd5388754009%_ - _%hd5388453999%_) + _%tl5385553986%_) + (_%__kont8186081861%_ + _%hd5385153973%_ + _%hd5384853963%_) (let () (declare (not safe)) - (_%g5386753911%_))))))) - (_%__match8110881109%_ - (lambda (_%e5387154061%_ - _%hd5387254065%_ - _%tl5387354068%_ - _%e5387454071%_ - _%hd5387554075%_ - _%tl5387654078%_) - (let ((_%L54081%_ _%hd5387554075%_) - (_%L54083%_ _%hd5387254065%_)) + (_%g5383153875%_))))))) + (_%__match8187481875%_ + (lambda (_%e5383554025%_ + _%hd5383654029%_ + _%tl5383754032%_ + _%e5383854035%_ + _%hd5383954039%_ + _%tl5384054042%_) + (let ((_%L54045%_ _%hd5383954039%_) + (_%L54047%_ _%hd5383654029%_)) (if (or (gx#free-identifier=? - _%L54083%_ + _%L54047%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54083%_ + _%L54047%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54083%_ + _%L54047%_ (gx#datum->syntax '#f ':-))) - (_%__kont8109081091%_ - _%L54081%_ - _%L54083%_) + (_%__kont8185681857%_ + _%L54045%_ + _%L54047%_) (if (gx#identifier? - _%hd5387254065%_) + _%hd5383654029%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84188_| - _%hd5387254065%_) + |gerbil/core/contract~Interface[1]#_g85064_| + _%hd5383654029%_) (if (gx#stx-pair? - _%tl5387654078%_) - (let ((_%e5388654005%_ + _%tl5384054042%_) + (let ((_%e5385053969%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5387654078%_))) - (let ((_%tl5388854012%_ + (gx#syntax-e _%tl5384054042%_))) + (let ((_%tl5385253976%_ (let () (declare (not safe)) - (##cdr _%e5388654005%_))) - (_%hd5388754009%_ + (##cdr _%e5385053969%_))) + (_%hd5385153973%_ (let () (declare (not safe)) - (##car _%e5388654005%_)))) - (if (gx#stx-pair? _%tl5388854012%_) - (let ((_%e5388954015%_ - (gx#syntax-e _%tl5388854012%_))) - (let ((_%tl5389154022%_ + (##car _%e5385053969%_)))) + (if (gx#stx-pair? _%tl5385253976%_) + (let ((_%e5385353979%_ + (gx#syntax-e _%tl5385253976%_))) + (let ((_%tl5385553986%_ (let () (declare (not safe)) - (##cdr _%e5388954015%_))) - (_%hd5389054019%_ + (##cdr _%e5385353979%_))) + (_%hd5385453983%_ (let () (declare (not safe)) - (##car _%e5388954015%_)))) - (_%__match8113681137%_ - _%e5387154061%_ - _%hd5387254065%_ - _%tl5387354068%_ - _%e5387454071%_ - _%hd5387554075%_ - _%tl5387654078%_ - _%e5388654005%_ - _%hd5388754009%_ - _%tl5388854012%_ - _%e5388954015%_ - _%hd5389054019%_ - _%tl5389154022%_))) - (let () (declare (not safe)) (_%g5386753911%_))))) - (let () (declare (not safe)) (_%g5386753911%_))) - (let () (declare (not safe)) (_%g5386753911%_))) + (##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)) - (_%g5386753911%_)))))))) - (if (gx#stx-pair? _%__stx8108781088%_) - (let ((_%e5387154061%_ + (_%g5383153875%_)))))))) + (if (gx#stx-pair? _%__stx8185381854%_) + (let ((_%e5383554025%_ (gx#syntax-e - _%__stx8108781088%_))) - (let ((_%tl5387354068%_ + _%__stx8185381854%_))) + (let ((_%tl5383754032%_ (let () (declare (not safe)) - (##cdr _%e5387154061%_))) - (_%hd5387254065%_ + (##cdr _%e5383554025%_))) + (_%hd5383654029%_ (let () (declare (not safe)) - (##car _%e5387154061%_)))) - (if (gx#stx-pair? _%tl5387354068%_) - (let ((_%e5387454071%_ + (##car _%e5383554025%_)))) + (if (gx#stx-pair? _%tl5383754032%_) + (let ((_%e5383854035%_ (gx#syntax-e - _%tl5387354068%_))) - (let ((_%tl5387654078%_ + _%tl5383754032%_))) + (let ((_%tl5384054042%_ (let () (declare (not safe)) - (##cdr _%e5387454071%_))) - (_%hd5387554075%_ + (##cdr _%e5383854035%_))) + (_%hd5383954039%_ (let () (declare (not safe)) - (##car _%e5387454071%_)))) - (_%__match8110881109%_ - _%e5387154061%_ - _%hd5387254065%_ - _%tl5387354068%_ - _%e5387454071%_ - _%hd5387554075%_ - _%tl5387654078%_))) + (##car _%e5383854035%_)))) + (_%__match8187481875%_ + _%e5383554025%_ + _%hd5383654029%_ + _%tl5383754032%_ + _%e5383854035%_ + _%hd5383954039%_ + _%tl5384054042%_))) (let () (declare (not safe)) - (_%g5386753911%_))))) + (_%g5383153875%_))))) (let () (declare (not safe)) - (_%g5386753911%_)))))))) - (_%__kont8155481555%_ - (lambda (_%L53645%_) - (let* ((_%__stx8104781048%_ _%b53532%_) - (_%g5366253684%_ + (_%g5383153875%_)))))))) + (_%__kont8232082321%_ + (lambda (_%L53609%_) + (let* ((_%__stx8181381814%_ _%b53496%_) + (_%g5362653648%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8104781048%_)))) - (let ((_%__kont8105081051%_ - (lambda (_%L53776%_) '#f)) - (_%__kont8105281053%_ - (lambda (_%L53732%_ _%L53734%_) '#f)) - (_%__kont8105481055%_ (lambda () '#t))) - (let* ((_%__match8108481085%_ - (lambda (_%e5367053702%_ - _%hd5367153706%_ - _%tl5367253709%_ - _%e5367353712%_ - _%hd5367453716%_ - _%tl5367553719%_ - _%e5367653722%_ - _%hd5367753726%_ - _%tl5367853729%_) - (let ((_%L53732%_ _%hd5367753726%_) - (_%L53734%_ _%hd5367453716%_)) + _%__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=? - _%L53732%_ + _%L53696%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53732%_ + _%L53696%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53732%_ + _%L53696%_ (gx#datum->syntax '#f ':-))) - (_%__kont8105281053%_ - _%L53732%_ - _%L53734%_) - (_%__kont8105481055%_))))) - (_%__match8106281063%_ - (lambda (_%e5366553766%_ - _%hd5366653770%_ - _%tl5366753773%_) - (let ((_%L53776%_ _%hd5366653770%_)) + (_%__kont8181881819%_ + _%L53696%_ + _%L53698%_) + (_%__kont8182081821%_))))) + (_%__match8182881829%_ + (lambda (_%e5362953730%_ + _%hd5363053734%_ + _%tl5363153737%_) + (let ((_%L53740%_ _%hd5363053734%_)) (if (or (gx#free-identifier=? - _%L53776%_ + _%L53740%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53776%_ + _%L53740%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53776%_ + _%L53740%_ (gx#datum->syntax '#f ':-))) - (_%__kont8105081051%_ - _%L53776%_) + (_%__kont8181681817%_ + _%L53740%_) (if (gx#identifier? - _%hd5366653770%_) + _%hd5363053734%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84189_| - _%hd5366653770%_) + |gerbil/core/contract~Interface[1]#_g85065_| + _%hd5363053734%_) (if (gx#stx-pair? - _%tl5366753773%_) - (let ((_%e5367353712%_ + _%tl5363153737%_) + (let ((_%e5363753676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5366753773%_))) - (let ((_%tl5367553719%_ + (gx#syntax-e _%tl5363153737%_))) + (let ((_%tl5363953683%_ (let () (declare (not safe)) - (##cdr _%e5367353712%_))) - (_%hd5367453716%_ + (##cdr _%e5363753676%_))) + (_%hd5363853680%_ (let () (declare (not safe)) - (##car _%e5367353712%_)))) - (if (gx#stx-pair? _%tl5367553719%_) - (let ((_%e5367653722%_ - (gx#syntax-e _%tl5367553719%_))) - (let ((_%tl5367853729%_ + (##car _%e5363753676%_)))) + (if (gx#stx-pair? _%tl5363953683%_) + (let ((_%e5364053686%_ + (gx#syntax-e _%tl5363953683%_))) + (let ((_%tl5364253693%_ (let () (declare (not safe)) - (##cdr _%e5367653722%_))) - (_%hd5367753726%_ + (##cdr _%e5364053686%_))) + (_%hd5364153690%_ (let () (declare (not safe)) - (##car _%e5367653722%_)))) - (_%__match8108481085%_ - _%e5366553766%_ - _%hd5366653770%_ - _%tl5366753773%_ - _%e5367353712%_ - _%hd5367453716%_ - _%tl5367553719%_ - _%e5367653722%_ - _%hd5367753726%_ - _%tl5367853729%_))) - (_%__kont8105481055%_)))) - (_%__kont8105481055%_)) - (_%__kont8105481055%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8105481055%_))))))) - (if (gx#stx-pair? _%__stx8104781048%_) - (let ((_%e5366553766%_ + (##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 - _%__stx8104781048%_))) - (let ((_%tl5366753773%_ + _%__stx8181381814%_))) + (let ((_%tl5363153737%_ (let () (declare (not safe)) - (##cdr _%e5366553766%_))) - (_%hd5366653770%_ + (##cdr _%e5362953730%_))) + (_%hd5363053734%_ (let () (declare (not safe)) - (##car _%e5366553766%_)))) - (_%__match8106281063%_ - _%e5366553766%_ - _%hd5366653770%_ - _%tl5366753773%_))) - (_%__kont8105481055%_)))))))) - (let ((_%__match8156881569%_ - (lambda (_%e5354455111%_ - _%hd5354555115%_ - _%tl5354655118%_ - _%e5354755121%_ - _%hd5354855125%_ - _%tl5354955128%_) - (let ((_%L55131%_ _%hd5354855125%_) - (_%L55133%_ _%hd5354555115%_)) + (##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=? - _%L55133%_ + _%L55097%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55133%_ + _%L55097%_ (gx#datum->syntax '#f ':-))) - (_%__kont8154281543%_ - _%L55131%_ - _%L55133%_) - (if (gx#identifier? _%hd5354555115%_) + (_%__kont8230882309%_ + _%L55095%_ + _%L55097%_) + (if (gx#identifier? _%hd5350955079%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84190_| - _%hd5354555115%_) - (_%__kont8154481545%_ - _%hd5354855125%_) + |gerbil/core/contract~Interface[1]#_g85066_| + _%hd5350955079%_) + (_%__kont8231082311%_ + _%hd5351255089%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84191_| - _%hd5354555115%_) - (_%__kont8154681547%_ - _%hd5354855125%_) + |gerbil/core/contract~Interface[1]#_g85067_| + _%hd5350955079%_) + (_%__kont8231282313%_ + _%hd5351255089%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84192_| - _%hd5354555115%_) + |gerbil/core/contract~Interface[1]#_g85068_| + _%hd5350955079%_) (if (gx#stx-pair? - _%tl5354955128%_) - (let ((_%e5357254354%_ + _%tl5351355092%_) + (let ((_%e5353654318%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5354955128%_))) - (let ((_%tl5357454361%_ + _%tl5351355092%_))) + (let ((_%tl5353854325%_ (let () (declare (not safe)) - (##cdr _%e5357254354%_))) - (_%hd5357354358%_ + (##cdr _%e5353654318%_))) + (_%hd5353754322%_ (let () (declare (not safe)) - (##car _%e5357254354%_)))) - (if (gx#identifier? _%hd5357354358%_) + (##car _%e5353654318%_)))) + (if (gx#identifier? _%hd5353754322%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84193_| - _%hd5357354358%_) - (if (gx#stx-pair? _%tl5357454361%_) - (let ((_%e5357554364%_ - (gx#syntax-e _%tl5357454361%_))) - (let ((_%tl5357754371%_ + |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 _%e5357554364%_))) - (_%hd5357654368%_ + (##cdr _%e5353954328%_))) + (_%hd5354054332%_ (let () (declare (not safe)) - (##car _%e5357554364%_)))) - (_%__kont8154881549%_ - _%hd5357654368%_ - _%hd5354855125%_))) - (_%__kont8155481555%_ _%hd5354855125%_)) + (##car _%e5353954328%_)))) + (_%__kont8231482315%_ + _%hd5354054332%_ + _%hd5351255089%_))) + (_%__kont8232082321%_ _%hd5351255089%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84194_| - _%hd5357354358%_) - (if (gx#stx-pair? _%tl5357454361%_) - (let ((_%e5358954145%_ - (gx#syntax-e _%tl5357454361%_))) - (let ((_%tl5359154152%_ + |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 _%e5358954145%_))) - (_%hd5359054149%_ + (##cdr _%e5355354109%_))) + (_%hd5355454113%_ (let () (declare (not safe)) - (##car _%e5358954145%_)))) - (_%__kont8155081551%_ - _%hd5359054149%_ - _%hd5354855125%_))) - (_%__kont8155481555%_ _%hd5354855125%_)) + (##car _%e5355354109%_)))) + (_%__kont8231682317%_ + _%hd5355454113%_ + _%hd5351255089%_))) + (_%__kont8232082321%_ _%hd5351255089%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84195_| - _%hd5357354358%_) - (if (gx#stx-pair? _%tl5357454361%_) - (let ((_%e5360353836%_ + |gerbil/core/contract~Interface[1]#_g85071_| + _%hd5353754322%_) + (if (gx#stx-pair? _%tl5353854325%_) + (let ((_%e5356753800%_ (gx#syntax-e - _%tl5357454361%_))) - (let ((_%tl5360553843%_ + _%tl5353854325%_))) + (let ((_%tl5356953807%_ (let () (declare (not safe)) - (##cdr _%e5360353836%_))) - (_%hd5360453840%_ + (##cdr _%e5356753800%_))) + (_%hd5356853804%_ (let () (declare (not safe)) - (##car _%e5360353836%_)))) - (_%__kont8155281553%_ - _%hd5360453840%_ - _%hd5354855125%_))) - (_%__kont8155481555%_ - _%hd5354855125%_)) - (_%__kont8155481555%_ _%hd5354855125%_)))) - (_%__kont8155481555%_ _%hd5354855125%_)))) - (_%__kont8155481555%_ _%hd5354855125%_)) + (##car _%e5356753800%_)))) + (_%__kont8231882319%_ + _%hd5356853804%_ + _%hd5351255089%_))) + (_%__kont8232082321%_ + _%hd5351255089%_)) + (_%__kont8232082321%_ _%hd5351255089%_)))) + (_%__kont8232082321%_ _%hd5351255089%_)))) + (_%__kont8232082321%_ _%hd5351255089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5354053618%_))))) + (_%g5350453582%_))))) (let () (declare (not safe)) - (_%g5354053618%_)))))))) - (if (gx#stx-pair? _%__stx8153981540%_) - (let ((_%e5354455111%_ - (gx#syntax-e _%__stx8153981540%_))) - (let ((_%tl5354655118%_ + (_%g5350453582%_)))))))) + (if (gx#stx-pair? _%__stx8230582306%_) + (let ((_%e5350855075%_ + (gx#syntax-e _%__stx8230582306%_))) + (let ((_%tl5351055082%_ (let () (declare (not safe)) - (##cdr _%e5354455111%_))) - (_%hd5354555115%_ + (##cdr _%e5350855075%_))) + (_%hd5350955079%_ (let () (declare (not safe)) - (##car _%e5354455111%_)))) - (if (gx#stx-pair? _%tl5354655118%_) - (let ((_%e5354755121%_ - (gx#syntax-e _%tl5354655118%_))) - (let ((_%tl5354955128%_ + (##car _%e5350855075%_)))) + (if (gx#stx-pair? _%tl5351055082%_) + (let ((_%e5351155085%_ + (gx#syntax-e _%tl5351055082%_))) + (let ((_%tl5351355092%_ (let () (declare (not safe)) - (##cdr _%e5354755121%_))) - (_%hd5354855125%_ + (##cdr _%e5351155085%_))) + (_%hd5351255089%_ (let () (declare (not safe)) - (##car _%e5354755121%_)))) - (_%__match8156881569%_ - _%e5354455111%_ - _%hd5354555115%_ - _%tl5354655118%_ - _%e5354755121%_ - _%hd5354855125%_ - _%tl5354955128%_))) + (##car _%e5351155085%_)))) + (_%__match8233482335%_ + _%e5350855075%_ + _%hd5350955079%_ + _%tl5351055082%_ + _%e5351155085%_ + _%hd5351255089%_ + _%tl5351355092%_))) (let () (declare (not safe)) - (_%g5354053618%_))))) + (_%g5350453582%_))))) (let () (declare (not safe)) - (_%g5354053618%_))))))) - _%left53526%_ - _%right53528%_))) + (_%g5350453582%_))))))) + _%left53490%_ + _%right53492%_))) (define |gerbil/core/contract~Interface[1]#contract-type-subtype?| - (lambda (_%type-a53429%_ _%type-b53431%_) - (if (not _%type-a53429%_) - (not _%type-b53431%_) - (if (not _%type-b53431%_) + (lambda (_%type-a53393%_ _%type-b53395%_) + (if (not _%type-a53393%_) + (not _%type-b53395%_) + (if (not _%type-b53395%_) '#f - (if (gx#free-identifier=? _%type-a53429%_ _%type-b53431%_) + (if (gx#free-identifier=? _%type-a53393%_ _%type-b53395%_) '#t - (let _%again53441%_ ((_%klass-a53444%_ + (let _%again53405%_ ((_%klass-a53408%_ (gx#syntax-local-value - _%type-a53429%_)) - (_%klass-b53446%_ + _%type-a53393%_)) + (_%klass-b53410%_ (gx#syntax-local-value - _%type-b53431%_))) - (if (eq? _%klass-a53444%_ _%klass-b53446%_) + _%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-a53444%_)) + _%klass-a53408%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b53446%_)) - (if (eq? (let ((__obj83994 _%klass-a53444%_)) + _%klass-b53410%_)) + (if (eq? (let ((__obj84854 _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83994 + __obj84854 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83994 + __obj84854 '1 '#f '#f)) (unchecked-slot-ref - __obj83994 + __obj84854 'id))) - (let ((__obj83995 _%klass-b53446%_)) + (let ((__obj84855 _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83995 + __obj84855 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83995 + __obj84855 '1 '#f '#f)) (unchecked-slot-ref - __obj83995 + __obj84855 'id)))) '#t - (if (member _%type-b53431%_ + (if (member _%type-b53395%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a53444%_)) + _%klass-a53408%_)) gx#free-identifier=?) '#t '#f)) @@ -5598,51 +5598,51 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53446%_)) - (let ((_%$e53462%_ + _%klass-b53410%_)) + (let ((_%$e53426%_ (gx#syntax-local-value - (let ((__obj83992 - _%klass-b53446%_)) + (let ((__obj84852 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83992 + __obj84852 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83992 + __obj84852 '1 '#f '#f)) (unchecked-slot-ref - __obj83992 + __obj84852 'identifier))) false))) - (if _%$e53462%_ - ((lambda (_%klass-b53466%_) - (_%again53441%_ - _%klass-a53444%_ - _%klass-b53466%_)) - _%$e53462%_) + (if _%$e53426%_ + ((lambda (_%klass-b53430%_) + (_%again53405%_ + _%klass-a53408%_ + _%klass-b53430%_)) + _%$e53426%_) (if (gx#free-identifier=? - _%type-a53429%_ - (let ((__obj83993 - _%klass-b53446%_)) + _%type-a53393%_ + (let ((__obj84853 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83993 + __obj84853 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83993 + __obj84853 '1 '#f '#f)) (unchecked-slot-ref - __obj83993 + __obj84853 'identifier)))) '#t '#f))) @@ -5651,70 +5651,84 @@ (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a53444%_)) + _%klass-a53408%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b53446%_)) - (if (member _%type-b53431%_ - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a53444%_))) + _%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-b53446%_)) - (let ((_%$e53485%_ + _%klass-b53410%_)) + (let ((_%$e53449%_ (gx#syntax-local-value - (let ((__obj83990 - _%klass-b53446%_)) + (let ((__obj84849 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83990 + __obj84849 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83990 + __obj84849 '1 '#f '#f)) (unchecked-slot-ref - __obj83990 + __obj84849 'identifier))) false))) - (if _%$e53485%_ - ((lambda (_%klass-b53489%_) - (_%again53441%_ - _%klass-a53444%_ - _%klass-b53489%_)) - _%$e53485%_) + (if _%$e53449%_ + ((lambda (_%klass-b53453%_) + (_%again53405%_ + _%klass-a53408%_ + _%klass-b53453%_)) + _%$e53449%_) (if (gx#free-identifier=? - _%type-a53429%_ - (let ((__obj83991 - _%klass-b53446%_)) + _%type-a53393%_ + (let ((__obj84850 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83991 + __obj84850 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83991 + __obj84850 '1 '#f '#f)) (unchecked-slot-ref - __obj83991 + __obj84850 'identifier)))) '#t '#f))) @@ -5723,1780 +5737,1780 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a53444%_)) - (let ((_%$e53500%_ + _%klass-a53408%_)) + (let ((_%$e53464%_ (gx#syntax-local-value - (let ((__obj83985 - _%klass-a53444%_)) + (let ((__obj84844 + _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83985 + __obj84844 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83985 + __obj84844 '1 '#f '#f)) (unchecked-slot-ref - __obj83985 + __obj84844 'identifier))) false))) - (if _%$e53500%_ - ((lambda (_%klass-a53504%_) - (_%again53441%_ - _%klass-a53504%_ - _%klass-b53446%_)) - _%$e53500%_) + (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-b53446%_)) - (let ((_%$e53509%_ + _%klass-b53410%_)) + (let ((_%$e53473%_ (gx#syntax-local-value - (let ((__obj83987 - _%klass-b53446%_)) + (let ((__obj84846 + _%klass-b53410%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83987 + __obj84846 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83987 '1 '#f '#f)) - (unchecked-slot-ref __obj83987 'identifier))) + (##unchecked-structure-ref __obj84846 '1 '#f '#f)) + (unchecked-slot-ref __obj84846 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e53509%_ - ((lambda (_%klass-b53513%_) - (_%again53441%_ - _%klass-a53444%_ - _%klass-b53513%_)) - _%$e53509%_) + (if _%$e53473%_ + ((lambda (_%klass-b53477%_) + (_%again53405%_ + _%klass-a53408%_ + _%klass-b53477%_)) + _%$e53473%_) (if (gx#free-identifier=? - (let ((__obj83988 + (let ((__obj84847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a53444%_)) + _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83988 + __obj84847 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83988 '1 '#f '#f)) - (unchecked-slot-ref __obj83988 'identifier))) - (let ((__obj83989 _%klass-b53446%_)) + (##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? - __obj83989 + __obj84848 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83989 '1 '#f '#f)) - (unchecked-slot-ref __obj83989 'identifier)))) + (##unchecked-structure-ref __obj84848 '1 '#f '#f)) + (unchecked-slot-ref __obj84848 'identifier)))) '#t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - _%type-b53431%_ - (let ((__obj83986 - _%klass-a53444%_)) + _%type-b53395%_ + (let ((__obj84845 + _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83986 + __obj84845 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83986 + __obj84845 '1 '#f '#f)) (unchecked-slot-ref - __obj83986 + __obj84845 'identifier)))) '#t '#f)))) '#f)))))))))) (define |gerbil/core/contract~Interface[1]#signature-type-contract| - (lambda (_%signature53034%_) - (let _%loop53037%_ ((_%rest53040%_ _%signature53034%_) - (_%positionals53042%_ '()) - (_%keywords53043%_ '())) - (let* ((_%__stx8171581716%_ (gx#datum->syntax '#f 'rest)) - (_%g5305153118%_ + (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" - _%__stx8171581716%_)))) - (let ((_%__kont8171881719%_ - (lambda (_%L53412%_ _%L53414%_) - (_%loop53037%_ - _%L53412%_ + _%__stx8248182482%_)))) + (let ((_%__kont8248482485%_ + (lambda (_%L53376%_ _%L53378%_) + (_%loop53001%_ + _%L53376%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals53042%_) - _%keywords53043%_))) - (_%__kont8172081721%_ - (lambda (_%L53376%_ _%L53378%_ _%L53379%_) - (_%loop53037%_ - _%L53376%_ + _%positionals53006%_) + _%keywords53007%_))) + (_%__kont8248682487%_ + (lambda (_%L53340%_ _%L53342%_ _%L53343%_) + (_%loop53001%_ + _%L53340%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals53042%_) - _%keywords53043%_))) - (_%__kont8172281723%_ - (lambda (_%L53326%_ _%L53328%_) - (_%loop53037%_ + _%positionals53006%_) + _%keywords53007%_))) + (_%__kont8248882489%_ + (lambda (_%L53290%_ _%L53292%_) + (_%loop53001%_ (gx#datum->syntax '#f 'rest) - (cons _%L53326%_ _%positionals53042%_) - _%keywords53043%_))) - (_%__kont8172481725%_ - (lambda (_%L53292%_ _%L53294%_ _%L53295%_) - (_%loop53037%_ - _%L53292%_ - _%positionals53042%_ - (cons (cons (gx#stx-e _%L53295%_) - (cons _%L53294%_ + (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) '())))) - _%keywords53043%_)))) - (_%__kont8172681727%_ - (lambda (_%L53242%_ _%L53244%_ _%L53245%_ _%L53246%_) - (_%loop53037%_ - _%L53242%_ - _%positionals53042%_ - (cons (cons (gx#stx-e _%L53246%_) - (cons _%L53245%_ + _%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) '())))) - _%keywords53043%_)))) - (_%__kont8172881729%_ - (lambda (_%L53170%_ _%L53172%_ _%L53173%_ _%L53174%_) - (_%loop53037%_ - _%L53170%_ - _%positionals53042%_ - (cons (cons (gx#stx-e _%L53174%_) - (cons _%L53173%_ _%L53172%_)) - _%keywords53043%_)))) - (_%__kont8173081731%_ + _%keywords53007%_)))) + (_%__kont8249482495%_ + (lambda (_%L53134%_ _%L53136%_ _%L53137%_ _%L53138%_) + (_%loop53001%_ + _%L53134%_ + _%positionals53006%_ + (cons (cons (gx#stx-e _%L53138%_) + (cons _%L53137%_ _%L53136%_)) + _%keywords53007%_)))) + (_%__kont8249682497%_ (lambda () - (values (reverse! _%positionals53042%_) + (values (reverse! _%positionals53006%_) (list-sort - (lambda (_%a53129%_ _%b53131%_) + (lambda (_%a53093%_ _%b53095%_) (|gerbil/core/contract~Interface[1]#keyword= __tmp84196 '2)) - (let ((_%__splice8183281833%_ + (##fx>= __tmp85072 '2)) + (let ((_%__splice8259882599%_ (gx#syntax-split-splice - _%hd5269752955%_ + _%hd5266152919%_ '2))) - (let ((_%tl5271252880%_ + (let ((_%tl5267652844%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183281833%_ + _%__splice8259882599%_ '1))) - (_%target5271052877%_ + (_%target5267452841%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183281833%_ + _%__splice8259882599%_ '0)))) - (if (gx#stx-pair? _%tl5271252880%_) - (let ((_%e5271752883%_ + (if (gx#stx-pair? _%tl5267652844%_) + (let ((_%e5268152847%_ (gx#syntax-e - _%tl5271252880%_))) - (let ((_%tl5271952890%_ + _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5271752883%_))) - (_%hd5271852887%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5271752883%_)))) + (##car _%e5268152847%_)))) (if (gx#identifier? - _%hd5271852887%_) + _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84197_| - _%hd5271852887%_) + |gerbil/core/contract~Interface[1]#_g85073_| + _%hd5268252851%_) (if (gx#stx-pair? - _%tl5271952890%_) - (let ((_%e5272052893%_ + _%tl5268352854%_) + (let ((_%e5268452857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5271952890%_))) - (let ((_%tl5272252900%_ + (gx#syntax-e _%tl5268352854%_))) + (let ((_%tl5268652864%_ (let () (declare (not safe)) - (##cdr _%e5272052893%_))) - (_%hd5272152897%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5272052893%_)))) - (if (gx#stx-null? _%tl5272252900%_) - (_%__match8190081901%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%__splice8183281833%_ - _%target5271052877%_ - _%tl5271252880%_ - _%e5271752883%_ - _%hd5271852887%_ - _%tl5271952890%_ - _%e5272052893%_ - _%hd5272152897%_ - _%tl5272252900%_) - (_%__match8191281913%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) - (_%__match8191281913%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8191281913%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) - (_%__match8191281913%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269652951%_ - _%hd5269752955%_ - _%tl5269852958%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))))) - (_%__match8184881849%_ - (lambda (_%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_) - (let ((_%L53017%_ _%tl5269253014%_) - (_%L53019%_ _%hd5269153011%_)) - (if (gx#identifier? _%L53019%_) - (_%__kont8182681827%_ _%L53017%_ _%L53019%_) - (if (gx#stx-pair? _%hd5269153011%_) - (let ((_%e5269952961%_ - (gx#syntax-e _%hd5269153011%_))) - (let ((_%tl5270152968%_ + (##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 _%e5269952961%_))) - (_%hd5270052965%_ + (##cdr _%e5266352925%_))) + (_%hd5266452929%_ (let () (declare (not safe)) - (##car _%e5269952961%_)))) - (if (gx#stx-pair? _%tl5270152968%_) - (let ((_%e5270252971%_ + (##car _%e5266352925%_)))) + (if (gx#stx-pair? _%tl5266552932%_) + (let ((_%e5266652935%_ (gx#syntax-e - _%tl5270152968%_))) - (let ((_%tl5270452978%_ + _%tl5266552932%_))) + (let ((_%tl5266852942%_ (let () (declare (not safe)) - (##cdr _%e5270252971%_))) - (_%hd5270352975%_ + (##cdr _%e5266652935%_))) + (_%hd5266752939%_ (let () (declare (not safe)) - (##car _%e5270252971%_)))) + (##car _%e5266652935%_)))) (if (gx#stx-null? - _%tl5270452978%_) - (_%__match8186881869%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_ - _%e5270252971%_ - _%hd5270352975%_ - _%tl5270452978%_) + _%tl5266852942%_) + (_%__match8263482635%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_ + _%e5266652935%_ + _%hd5266752939%_ + _%tl5266852942%_) (if (gx#stx-pair/null? - _%hd5269153011%_) - (if (let ((__tmp84198 + _%hd5265552975%_) + (if (let ((__tmp85074 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%hd5269153011%_))) + (gx#stx-length _%hd5265552975%_))) (declare (not safe)) - (##fx>= __tmp84198 '2)) - (let ((_%__splice8183281833%_ - (gx#syntax-split-splice _%hd5269153011%_ '2))) - (let ((_%tl5271252880%_ + (##fx>= __tmp85074 '2)) + (let ((_%__splice8259882599%_ + (gx#syntax-split-splice _%hd5265552975%_ '2))) + (let ((_%tl5267652844%_ (let () (declare (not safe)) - (##vector-ref _%__splice8183281833%_ '1))) - (_%target5271052877%_ + (##vector-ref _%__splice8259882599%_ '1))) + (_%target5267452841%_ (let () (declare (not safe)) - (##vector-ref _%__splice8183281833%_ '0)))) - (if (gx#stx-pair? _%tl5271252880%_) - (let ((_%e5271752883%_ - (gx#syntax-e _%tl5271252880%_))) - (let ((_%tl5271952890%_ + (##vector-ref _%__splice8259882599%_ '0)))) + (if (gx#stx-pair? _%tl5267652844%_) + (let ((_%e5268152847%_ + (gx#syntax-e _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5271752883%_))) - (_%hd5271852887%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5271752883%_)))) - (if (gx#identifier? _%hd5271852887%_) + (##car _%e5268152847%_)))) + (if (gx#identifier? _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84197_| - _%hd5271852887%_) - (if (gx#stx-pair? _%tl5271952890%_) - (let ((_%e5272052893%_ + |gerbil/core/contract~Interface[1]#_g85073_| + _%hd5268252851%_) + (if (gx#stx-pair? _%tl5268352854%_) + (let ((_%e5268452857%_ (gx#syntax-e - _%tl5271952890%_))) - (let ((_%tl5272252900%_ + _%tl5268352854%_))) + (let ((_%tl5268652864%_ (let () (declare (not safe)) - (##cdr _%e5272052893%_))) - (_%hd5272152897%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5272052893%_)))) + (##car _%e5268452857%_)))) (if (gx#stx-null? - _%tl5272252900%_) - (_%__match8190081901%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%__splice8183281833%_ - _%target5271052877%_ - _%tl5271252880%_ - _%e5271752883%_ - _%hd5271852887%_ - _%tl5271952890%_ - _%e5272052893%_ - _%hd5272152897%_ - _%tl5272252900%_) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_))))) + _%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? - _%hd5269153011%_) - (if (let ((__tmp84199 + _%hd5265552975%_) + (if (let ((__tmp85075 (gx#stx-length - _%hd5269153011%_))) + _%hd5265552975%_))) (declare (not safe)) - (##fx>= __tmp84199 '2)) - (let ((_%__splice8183281833%_ + (##fx>= __tmp85075 '2)) + (let ((_%__splice8259882599%_ (gx#syntax-split-splice - _%hd5269153011%_ + _%hd5265552975%_ '2))) - (let ((_%tl5271252880%_ + (let ((_%tl5267652844%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183281833%_ + _%__splice8259882599%_ '1))) - (_%target5271052877%_ + (_%target5267452841%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183281833%_ + _%__splice8259882599%_ '0)))) (if (gx#stx-pair? - _%tl5271252880%_) - (let ((_%e5271752883%_ + _%tl5267652844%_) + (let ((_%e5268152847%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5271252880%_))) - (let ((_%tl5271952890%_ + (gx#syntax-e _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5271752883%_))) - (_%hd5271852887%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5271752883%_)))) - (if (gx#identifier? _%hd5271852887%_) + (##car _%e5268152847%_)))) + (if (gx#identifier? _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84197_| - _%hd5271852887%_) - (if (gx#stx-pair? _%tl5271952890%_) - (let ((_%e5272052893%_ - (gx#syntax-e _%tl5271952890%_))) - (let ((_%tl5272252900%_ + |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 _%e5272052893%_))) - (_%hd5272152897%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5272052893%_)))) - (if (gx#stx-null? _%tl5272252900%_) - (_%__match8190081901%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%__splice8183281833%_ - _%target5271052877%_ - _%tl5271252880%_ - _%e5271752883%_ - _%hd5271852887%_ - _%tl5271952890%_ - _%e5272052893%_ - _%hd5272152897%_ - _%tl5272252900%_) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_)) - (_%__match8191281913%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5269952961%_ - _%hd5270052965%_ - _%tl5270152968%_))))) - (if (gx#stx-pair/null? _%hd5269153011%_) - (if (let ((__tmp84200 + (##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 - _%hd5269153011%_))) + _%hd5265552975%_))) (declare (not safe)) - (##fx>= __tmp84200 '2)) - (let ((_%__splice8183281833%_ + (##fx>= __tmp85076 '2)) + (let ((_%__splice8259882599%_ (gx#syntax-split-splice - _%hd5269153011%_ + _%hd5265552975%_ '2))) - (let ((_%tl5271252880%_ + (let ((_%tl5267652844%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183281833%_ + _%__splice8259882599%_ '1))) - (_%target5271052877%_ + (_%target5267452841%_ (let () (declare (not safe)) (##vector-ref - _%__splice8183281833%_ + _%__splice8259882599%_ '0)))) (if (gx#stx-pair? - _%tl5271252880%_) - (let ((_%e5271752883%_ + _%tl5267652844%_) + (let ((_%e5268152847%_ (gx#syntax-e - _%tl5271252880%_))) - (let ((_%tl5271952890%_ + _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5271752883%_))) - (_%hd5271852887%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5271752883%_)))) + (##car _%e5268152847%_)))) (if (gx#identifier? - _%hd5271852887%_) + _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84197_| - _%hd5271852887%_) + |gerbil/core/contract~Interface[1]#_g85073_| + _%hd5268252851%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5271952890%_) - (let ((_%e5272052893%_ - (gx#syntax-e _%tl5271952890%_))) - (let ((_%tl5272252900%_ + _%tl5268352854%_) + (let ((_%e5268452857%_ + (gx#syntax-e _%tl5268352854%_))) + (let ((_%tl5268652864%_ (let () (declare (not safe)) - (##cdr _%e5272052893%_))) - (_%hd5272152897%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5272052893%_)))) - (if (gx#stx-null? _%tl5272252900%_) - (_%__match8190081901%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%__splice8183281833%_ - _%target5271052877%_ - _%tl5271252880%_ - _%e5271752883%_ - _%hd5271852887%_ - _%tl5271952890%_ - _%e5272052893%_ - _%hd5272152897%_ - _%tl5272252900%_) - (if (gx#stx-pair? _%tl5269253014%_) - (let ((_%e5273652793%_ - (gx#syntax-e _%tl5269253014%_))) - (let ((_%tl5273852800%_ + (##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 _%e5273652793%_))) - (_%hd5273752797%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5273652793%_)))) - (_%__match8192481925%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5273652793%_ - _%hd5273752797%_ - _%tl5273852800%_))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) (let () (declare (not safe)) - (_%g5268452776%_)))))) - (if (gx#stx-pair? _%tl5269253014%_) - (let ((_%e5273652793%_ - (gx#syntax-e _%tl5269253014%_))) - (let ((_%tl5273852800%_ + (_%g5264852740%_)))))) + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ + (gx#syntax-e _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5273652793%_))) - (_%hd5273752797%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5273652793%_)))) - (_%__match8192481925%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5273652793%_ - _%hd5273752797%_ - _%tl5273852800%_))) - (let () (declare (not safe)) (_%g5268452776%_)))) - (if (gx#stx-pair? _%tl5269253014%_) - (let ((_%e5273652793%_ - (gx#syntax-e _%tl5269253014%_))) - (let ((_%tl5273852800%_ + (##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 _%e5273652793%_))) - (_%hd5273752797%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5273652793%_)))) - (_%__match8192481925%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5273652793%_ - _%hd5273752797%_ - _%tl5273852800%_))) - (let () (declare (not safe)) (_%g5268452776%_)))) - (if (gx#stx-pair? _%tl5269253014%_) - (let ((_%e5273652793%_ (gx#syntax-e _%tl5269253014%_))) - (let ((_%tl5273852800%_ + (##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 _%e5273652793%_))) - (_%hd5273752797%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5273652793%_)))) - (_%__match8192481925%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5273652793%_ - _%hd5273752797%_ - _%tl5273852800%_))) - (let () (declare (not safe)) (_%g5268452776%_)))))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) + (let () (declare (not safe)) (_%g5264852740%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl5269253014%_) - (let ((_%e5273652793%_ + _%tl5265652978%_) + (let ((_%e5270052757%_ (gx#syntax-e - _%tl5269253014%_))) - (let ((_%tl5273852800%_ + _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5273652793%_))) - (_%hd5273752797%_ - (let () (declare (not safe)) (##car _%e5273652793%_)))) - (_%__match8192481925%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5273652793%_ - _%hd5273752797%_ - _%tl5273852800%_))) - (let () (declare (not safe)) (_%g5268452776%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl5269253014%_) - (let ((_%e5273652793%_ + (##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 - _%tl5269253014%_))) - (let ((_%tl5273852800%_ + _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5273652793%_))) - (_%hd5273752797%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5273652793%_)))) - (_%__match8192481925%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5273652793%_ - _%hd5273752797%_ - _%tl5273852800%_))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) (let () (declare (not safe)) - (_%g5268452776%_)))) - (if (gx#stx-pair? _%tl5269253014%_) - (let ((_%e5273652793%_ + (_%g5264852740%_)))) + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ (gx#syntax-e - _%tl5269253014%_))) - (let ((_%tl5273852800%_ + _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5273652793%_))) - (_%hd5273752797%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5273652793%_)))) - (_%__match8192481925%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_ - _%e5273652793%_ - _%hd5273752797%_ - _%tl5273852800%_))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) (let () (declare (not safe)) - (_%g5268452776%_)))))))))) - (if (gx#stx-pair? _%__stx8182381824%_) - (let ((_%e5269053007%_ (gx#syntax-e _%__stx8182381824%_))) - (let ((_%tl5269253014%_ + (_%g5264852740%_)))))))))) + (if (gx#stx-pair? _%__stx8258982590%_) + (let ((_%e5265452971%_ (gx#syntax-e _%__stx8258982590%_))) + (let ((_%tl5265652978%_ (let () (declare (not safe)) - (##cdr _%e5269053007%_))) - (_%hd5269153011%_ + (##cdr _%e5265452971%_))) + (_%hd5265552975%_ (let () (declare (not safe)) - (##car _%e5269053007%_)))) - (_%__match8184881849%_ - _%e5269053007%_ - _%hd5269153011%_ - _%tl5269253014%_))) - (let () (declare (not safe)) (_%g5268452776%_))))))))) + (##car _%e5265452971%_)))) + (_%__match8261482615%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_))) + (let () (declare (not safe)) (_%g5264852740%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-keywords| - (lambda (_%spec52494%_) - (let _%lp52497%_ ((_%rest52500%_ _%spec52494%_) - (_%keywords52502%_ '())) - (let* ((_%__stx8192981930%_ _%rest52500%_) - (_%g5250752535%_ + (lambda (_%spec52458%_) + (let _%lp52461%_ ((_%rest52464%_ _%spec52458%_) + (_%keywords52466%_ '())) + (let* ((_%__stx8269582696%_ _%rest52464%_) + (_%g5247152499%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8192981930%_)))) - (let ((_%__kont8193281933%_ - (lambda (_%L52652%_ _%L52654%_) - (_%lp52497%_ _%L52652%_ _%keywords52502%_))) - (_%__kont8193481935%_ - (lambda (_%L52620%_ _%L52622%_) - (_%lp52497%_ _%L52620%_ _%keywords52502%_))) - (_%__kont8193681937%_ - (lambda (_%L52573%_ _%L52575%_) - (_%lp52497%_ - _%L52573%_ - (cons (gx#stx-e _%L52575%_) _%keywords52502%_)))) - (_%__kont8193881939%_ + _%__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 _%x52490%_))) - (__tmp84201 (symbol->string (gx#stx-e _%y52492%_)))) + (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 _%x52486%_))) - (__tmp84203 (keyword->string (gx#stx-e _%y52488%_)))) + (lambda (_%x52450%_ _%y52452%_) + (let ((__tmp85080 (keyword->string (gx#stx-e _%x52450%_))) + (__tmp85079 (keyword->string (gx#stx-e _%y52452%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8202482025%_ - _%e6177961888%_ - _%hd6178061892%_ - _%tl6178161895%_ - _%e6178261898%_ - _%hd6178361902%_ - _%tl6178461905%_)))) - (_%__kont8198281983%_ - _%__stx8197381974%_)))) + (##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)) - (_%g6177161836%_))))))))) - (_%make-method-defs60261%_ - (lambda (_%Interface61553%_) - (lambda (_%method61556%_ _%offset61558%_) - (let* ((_%signature61560%_ - (gx#stx-car (gx#stx-cdr _%method61556%_))) - (_%g6156361603%_ - (lambda (_%g6156461599%_) + (_%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" - _%g6156461599%_))) - (_%g6156261756%_ - (lambda (_%g6156461607%_) - (if (gx#stx-pair? _%g6156461607%_) - (let ((_%e6157161610%_ - (gx#syntax-e _%g6156461607%_))) - (let ((_%hd6157261614%_ + _%g6182361858%_))) + (_%g6182162015%_ + (lambda (_%g6182361866%_) + (if (gx#stx-pair? _%g6182361866%_) + (let ((_%e6183061869%_ + (gx#syntax-e _%g6182361866%_))) + (let ((_%hd6183161873%_ (let () (declare (not safe)) - (##car _%e6157161610%_))) - (_%tl6157361617%_ + (##car _%e6183061869%_))) + (_%tl6183261876%_ (let () (declare (not safe)) - (##cdr _%e6157161610%_)))) - (if (gx#stx-pair? _%tl6157361617%_) - (let ((_%e6157461620%_ + (##cdr _%e6183061869%_)))) + (if (gx#stx-pair? _%tl6183261876%_) + (let ((_%e6183361879%_ (gx#syntax-e - _%tl6157361617%_))) - (let ((_%hd6157561624%_ + _%tl6183261876%_))) + (let ((_%hd6183461883%_ (let () (declare (not safe)) - (##car _%e6157461620%_))) - (_%tl6157661627%_ + (##car _%e6183361879%_))) + (_%tl6183561886%_ (let () (declare (not safe)) - (##cdr _%e6157461620%_)))) + (##cdr _%e6183361879%_)))) (if (gx#stx-pair? - _%tl6157661627%_) - (let ((_%e6157761630%_ + _%tl6183561886%_) + (let ((_%e6183661889%_ (gx#syntax-e - _%tl6157661627%_))) - (let ((_%hd6157861634%_ + _%tl6183561886%_))) + (let ((_%hd6183761893%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6157761630%_))) - (_%tl6157961637%_ - (let () (declare (not safe)) (##cdr _%e6157761630%_)))) - (if (gx#stx-pair? _%tl6157961637%_) - (let ((_%e6158061640%_ (gx#syntax-e _%tl6157961637%_))) - (let ((_%hd6158161644%_ + (##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 _%e6158061640%_))) - (_%tl6158261647%_ + (##car _%e6183961899%_))) + (_%tl6184161906%_ (let () (declare (not safe)) - (##cdr _%e6158061640%_)))) - (if (gx#stx-pair? _%tl6158261647%_) - (let ((_%e6158361650%_ - (gx#syntax-e _%tl6158261647%_))) - (let ((_%hd6158461654%_ + (##cdr _%e6183961899%_)))) + (if (gx#stx-pair? _%tl6184161906%_) + (let ((_%e6184261909%_ + (gx#syntax-e _%tl6184161906%_))) + (let ((_%hd6184361913%_ (let () (declare (not safe)) - (##car _%e6158361650%_))) - (_%tl6158561657%_ + (##car _%e6184261909%_))) + (_%tl6184461916%_ (let () (declare (not safe)) - (##cdr _%e6158361650%_)))) - (if (gx#stx-pair? _%tl6158561657%_) - (let ((_%e6158661660%_ - (gx#syntax-e _%tl6158561657%_))) - (let ((_%hd6158761664%_ + (##cdr _%e6184261909%_)))) + (if (gx#stx-pair? _%tl6184461916%_) + (let ((_%e6184561919%_ + (gx#syntax-e _%tl6184461916%_))) + (let ((_%hd6184661923%_ (let () (declare (not safe)) - (##car _%e6158661660%_))) - (_%tl6158861667%_ + (##car _%e6184561919%_))) + (_%tl6184761926%_ (let () (declare (not safe)) - (##cdr _%e6158661660%_)))) + (##cdr _%e6184561919%_)))) (if (gx#stx-pair/null? - _%hd6158761664%_) - (let ((_g84206_ + _%hd6184661923%_) + (let ((_g85082_ (gx#syntax-split-splice - _%hd6158761664%_ + _%hd6184661923%_ '0))) (begin - (let ((_g84207_ + (let ((_g85083_ (let () (declare (not safe)) (if (##values? - _g84206_) + _g85082_) (##values-length - _g84206_) + _g85082_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84207_ + (##fx= _g85083_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84207_))) + (error "Context expects 2 values" _g85083_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6158961670%_ + (let ((_%target6184861929%_ (let () (declare (not safe)) (##values-ref - _g84206_ + _g85082_ 0))) - (_%tl6159161673%_ + (_%tl6185061932%_ (let () (declare (not safe)) (##values-ref - _g84206_ + _g85082_ 1)))) (if (gx#stx-null? - _%tl6159161673%_) - (letrec ((_%loop6159261676%_ - (lambda (_%hd6159061680%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6159661683%_) - (if (gx#stx-pair? _%hd6159061680%_) - (let ((_%e6159361686%_ - (gx#syntax-e _%hd6159061680%_))) - (let ((_%lp-hd6159461690%_ + _%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 _%e6159361686%_))) - (_%lp-tl6159561693%_ + (##car _%e6185261945%_))) + (_%lp-tl6185461952%_ (let () (declare (not safe)) - (##cdr _%e6159361686%_)))) - (_%loop6159261676%_ - _%lp-tl6159561693%_ - (cons _%lp-hd6159461690%_ - _%out6159661683%_)))) - (let ((_%out6159761696%_ - (reverse _%out6159661683%_))) - (if (gx#stx-null? _%tl6158861667%_) - ((lambda (_%L61700%_ - _%L61702%_ - _%L61703%_ - _%L61704%_ - _%L61705%_ - _%L61706%_) - (if (gx#stx-list? _%signature61560%_) + (##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 _%L61706%_ - (cons _%L61705%_ + (cons _%L61965%_ + (cons _%L61964%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7515,13 +7529,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61703%_ + (cons _%L61962%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61704%_ + (cons _%L61963%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7535,14 +7549,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61703%_ - (cons _%L61702%_ + (cons _%L61962%_ + (cons _%L61961%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61704%_ '())) + (cons _%L61963%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7555,21 +7569,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) - (foldr (lambda (_%g6173961742%_ _%g6174061745%_) - (cons _%g6173961742%_ _%g6174061745%_)) + (foldr (lambda (_%g6199862001%_ _%g6199962004%_) + (cons _%g6199862001%_ _%g6199962004%_)) '() - _%L61700%_))) + _%L61959%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60254%_)) + (gx#stx-source _%stx60218%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L61706%_ - (cons _%L61705%_ + (cons _%L61965%_ + (cons _%L61964%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7588,13 +7602,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61703%_ + (cons _%L61962%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61704%_ + (cons _%L61963%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7608,14 +7622,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61703%_ - (cons _%L61702%_ + (cons _%L61962%_ + (cons _%L61961%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61704%_ '())) + (cons _%L61963%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7629,1933 +7643,2242 @@ '#f 'f) (cons (gx#datum->syntax '#f 'obj) - (foldr (lambda (_%g6174761750%_ _%g6174861753%_) - (cons _%g6174761750%_ _%g6174861753%_)) + (foldr (lambda (_%g6200662009%_ _%g6200762012%_) + (cons _%g6200662009%_ _%g6200762012%_)) '() - _%L61700%_)))) + _%L61959%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60254%_)))) - _%out6159761696%_ - _%hd6158461654%_ - _%hd6158161644%_ - _%hd6157861634%_ - _%hd6157561624%_ - _%hd6157261614%_) - (_%g6156361603%_ _%g6156461607%_))))))) - (_%loop6159261676%_ _%target6158961670%_ '())) - (_%g6156361603%_ _%g6156461607%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6156361603%_ - _%g6156461607%_)))) - (_%g6156361603%_ _%g6156461607%_)))) - (_%g6156361603%_ _%g6156461607%_)))) - (_%g6156361603%_ _%g6156461607%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6156361603%_ - _%g6156461607%_)))) - (_%g6156361603%_ - _%g6156461607%_)))) - (_%g6156361603%_ _%g6156461607%_))))) - (_%g6156261756%_ - (list _%Interface61553%_ - _%method61556%_ - (gx#stx-car _%method61556%_) + (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) - _%offset61558%_ + _%offset61817%_ (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature61560%_)))))))) - (let* ((_%g6026360287%_ - (lambda (_%g6026460283%_) + _%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" - _%g6026460283%_))) - (_%g6026261549%_ - (lambda (_%g6026460291%_) - (if (gx#stx-pair? _%g6026460291%_) - (let ((_%e6026760294%_ (gx#syntax-e _%g6026460291%_))) - (let ((_%hd6026860298%_ + _%g6023060249%_))) + (_%g6022861738%_ + (lambda (_%g6023060257%_) + (if (gx#stx-pair? _%g6023060257%_) + (let ((_%e6023360260%_ (gx#syntax-e _%g6023060257%_))) + (let ((_%hd6023460264%_ (let () (declare (not safe)) - (##car _%e6026760294%_))) - (_%tl6026960301%_ + (##car _%e6023360260%_))) + (_%tl6023560267%_ (let () (declare (not safe)) - (##cdr _%e6026760294%_)))) - (if (gx#stx-pair? _%tl6026960301%_) - (let ((_%e6027060304%_ - (gx#syntax-e _%tl6026960301%_))) - (let ((_%hd6027160308%_ + (##cdr _%e6023360260%_)))) + (if (gx#stx-pair? _%tl6023560267%_) + (let ((_%e6023660270%_ + (gx#syntax-e _%tl6023560267%_))) + (let ((_%hd6023760274%_ (let () (declare (not safe)) - (##car _%e6027060304%_))) - (_%tl6027260311%_ + (##car _%e6023660270%_))) + (_%tl6023860277%_ (let () (declare (not safe)) - (##cdr _%e6027060304%_)))) - (if (gx#stx-pair/null? _%tl6027260311%_) - (let ((_g84208_ + (##cdr _%e6023660270%_)))) + (if (gx#stx-pair/null? _%tl6023860277%_) + (let ((_g85084_ (gx#syntax-split-splice - _%tl6027260311%_ + _%tl6023860277%_ '0))) (begin - (let ((_g84209_ + (let ((_g85085_ (let () (declare (not safe)) - (if (##values? _g84208_) + (if (##values? _g85084_) (##values-length - _g84208_) + _g85084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84209_ 2))) + (##fx= _g85085_ 2))) (error "Context expects 2 values" - _g84209_))) - (let ((_%target6027360314%_ + _g85085_))) + (let ((_%target6023960280%_ (let () (declare (not safe)) (##values-ref - _g84208_ + _g85084_ 0))) - (_%tl6027560317%_ + (_%tl6024160283%_ (let () (declare (not safe)) (##values-ref - _g84208_ + _g85084_ 1)))) (if (gx#stx-null? - _%tl6027560317%_) - (letrec ((_%loop6027660320%_ - (lambda (_%hd6027460324%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%spec6028060327%_) - (if (gx#stx-pair? _%hd6027460324%_) - (let ((_%e6027760330%_ - (gx#syntax-e _%hd6027460324%_))) - (let ((_%lp-hd6027860334%_ + _%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 _%e6027760330%_))) - (_%lp-tl6027960337%_ + (##car _%e6024360296%_))) + (_%lp-tl6024560303%_ (let () (declare (not safe)) - (##cdr _%e6027760330%_)))) - (_%loop6027660320%_ - _%lp-tl6027960337%_ - (cons _%lp-hd6027860334%_ _%spec6028060327%_)))) - (let ((_%spec6028160340%_ - (reverse _%spec6028060327%_))) - ((lambda (_%L60344%_ _%L60346%_) - (if (or (gx#identifier? _%L60346%_) - (gx#identifier-list? _%L60346%_)) - (let* ((_%g6036960377%_ - (lambda (_%g6037060373%_) + (##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" - _%g6037060373%_))) - (_%g6036861545%_ - (lambda (_%g6037060381%_) - ((lambda (_%L60384%_) - (let* ((_%g6039660404%_ - (lambda (_%g6039760400%_) + _%g6033660339%_))) + (_%g6033461734%_ + (lambda (_%g6033660347%_) + ((lambda (_%L60350%_) + (let* ((_%g6036260370%_ + (lambda (_%g6036360366%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6039760400%_))) - (_%g6039561541%_ - (lambda (_%g6039760408%_) - ((lambda (_%L60411%_) - (let* ((_%g6042460432%_ + _%g6036360366%_))) + (_%g6036161730%_ + (lambda (_%g6036360374%_) + ((lambda (_%L60377%_) + (let* ((_%g6039060398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6042560428%_) + (lambda (_%g6039160394%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6042560428%_))) - (_%g6042361537%_ - (lambda (_%g6042560436%_) - ((lambda (_%L60439%_) - (let* ((_%g6045260460%_ - (lambda (_%g6045360456%_) + _%g6039160394%_))) + (_%g6038961726%_ + (lambda (_%g6039160402%_) + ((lambda (_%L60405%_) + (let* ((_%g6041860426%_ + (lambda (_%g6041960422%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6045360456%_))) - (_%g6045161533%_ - (lambda (_%g6045360464%_) - ((lambda (_%L60467%_) - (let* ((_%g6048060488%_ - (lambda (_%g6048160484%_) + _%g6041960422%_))) + (_%g6041761722%_ + (lambda (_%g6041960430%_) + ((lambda (_%L60433%_) + (let* ((_%g6044660454%_ + (lambda (_%g6044760450%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6048160484%_))) - (_%g6047961529%_ - (lambda (_%g6048160492%_) - ((lambda (_%L60495%_) - (let* ((_%g6050860516%_ + _%g6044760450%_))) + (_%g6044561718%_ + (lambda (_%g6044760458%_) + ((lambda (_%L60461%_) + (let* ((_%g6047460482%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6050960512%_) + (lambda (_%g6047560478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6050960512%_))) - (_%g6050761525%_ - (lambda (_%g6050960520%_) - ((lambda (_%L60523%_) - (let* ((_%g6053660544%_ - (lambda (_%g6053760540%_) + _%g6047560478%_))) + (_%g6047361714%_ + (lambda (_%g6047560486%_) + ((lambda (_%L60489%_) + (let* ((_%g6050260510%_ + (lambda (_%g6050360506%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6053760540%_))) - (_%g6053561521%_ - (lambda (_%g6053760548%_) - ((lambda (_%L60551%_) - (let* ((_%g6056460572%_ - (lambda (_%g6056560568%_) + _%g6050360506%_))) + (_%g6050161710%_ + (lambda (_%g6050360514%_) + ((lambda (_%L60517%_) + (let* ((_%g6053060538%_ + (lambda (_%g6053160534%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6056560568%_))) - (_%g6056361517%_ - (lambda (_%g6056560576%_) - ((lambda (_%L60579%_) - (let* ((_%g6059260600%_ + _%g6053160534%_))) + (_%g6052961706%_ + (lambda (_%g6053160542%_) + ((lambda (_%L60545%_) + (let* ((_%g6055860566%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6059360596%_) + (lambda (_%g6055960562%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6059360596%_))) - (_%g6059161513%_ - (lambda (_%g6059360604%_) - ((lambda (_%L60607%_) - (let* ((_%g6062060637%_ - (lambda (_%g6062160633%_) + _%g6055960562%_))) + (_%g6055761702%_ + (lambda (_%g6055960570%_) + ((lambda (_%L60573%_) + (let* ((_%g6058660594%_ + (lambda (_%g6058760590%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6062160633%_))) - (_%g6061961509%_ - (lambda (_%g6062160641%_) - (if (gx#stx-pair/null? - _%g6062160641%_) - (let ((_g84210_ - (gx#syntax-split-splice - _%g6062160641%_ - '0))) - (begin - (let ((_g84211_ - (let () - (declare (not safe)) - (if (##values? - _g84210_) - (##values-length - _g84210_) - 1)))) - (if (not (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##fx= _g84211_ 2))) - (error "Context expects 2 values" _g84211_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6062360644%_ - (let () - (declare (not safe)) - (##values-ref - _g84210_ - 0))) - (_%tl6062560647%_ - (let () - (declare (not safe)) - (##values-ref - _g84210_ - 1)))) - (if (gx#stx-null? - _%tl6062560647%_) - (letrec ((_%loop6062660650%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6062460654%_ _%mixin6063060657%_) - (if (gx#stx-pair? _%hd6062460654%_) - (let ((_%e6062760660%_ - (gx#syntax-e _%hd6062460654%_))) - (let ((_%lp-hd6062860664%_ - (let () - (declare (not safe)) - (##car _%e6062760660%_))) - (_%lp-tl6062960667%_ - (let () - (declare (not safe)) - (##cdr _%e6062760660%_)))) - (_%loop6062660650%_ - _%lp-tl6062960667%_ - (cons _%lp-hd6062860664%_ - _%mixin6063060657%_)))) - (let ((_%mixin6063160670%_ - (reverse _%mixin6063060657%_))) - ((lambda (_%L60674%_) - (let* ((_%g6069160708%_ - (lambda (_%g6069260704%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6069260704%_))) - (_%g6069061489%_ - (lambda (_%g6069260712%_) - (if (gx#stx-pair/null? - _%g6069260712%_) - (let ((_g84212_ - (gx#syntax-split-splice - _%g6069260712%_ - '0))) - (begin - (let ((_g84213_ - (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)) - (if (##values? _g84212_) - (##values-length _g84212_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84213_ 2))) - (error "Context expects 2 values" _g84213_))) - (let ((_%target6069460715%_ - (let () (declare (not safe)) (##values-ref _g84212_ 0))) - (_%tl6069660718%_ - (let () (declare (not safe)) (##values-ref _g84212_ 1)))) - (if (gx#stx-null? _%tl6069660718%_) - (letrec ((_%loop6069760721%_ - (lambda (_%hd6069560725%_ _%method6070160728%_) - (if (gx#stx-pair? _%hd6069560725%_) - (let ((_%e6069860731%_ - (gx#syntax-e _%hd6069560725%_))) - (let ((_%lp-hd6069960735%_ - (let () - (declare (not safe)) - (##car _%e6069860731%_))) - (_%lp-tl6070060738%_ - (let () - (declare (not safe)) - (##cdr _%e6069860731%_)))) - (_%loop6069760721%_ - _%lp-tl6070060738%_ - (cons _%lp-hd6069960735%_ - _%method6070160728%_)))) - (let ((_%method6070260741%_ - (reverse _%method6070160728%_))) - ((lambda (_%L60745%_) - (let* ((_%g6076260779%_ - (lambda (_%g6076360775%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6076360775%_))) - (_%g6076161477%_ - (lambda (_%g6076360783%_) - (if (gx#stx-pair/null? - _%g6076360783%_) - (let ((_g84214_ - (gx#syntax-split-splice - _%g6076360783%_ - '0))) - (begin - (let ((_g84215_ + (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%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g84214_) - (##values-length _g84214_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84215_ 2))) - (error "Context expects 2 values" _g84215_))) - (let ((_%target6076560786%_ - (let () - (declare (not safe)) - (##values-ref _g84214_ 0))) - (_%tl6076760789%_ - (let () - (declare (not safe)) - (##values-ref _g84214_ 1)))) - (if (gx#stx-null? _%tl6076760789%_) - (letrec ((_%loop6076860792%_ - (lambda (_%hd6076660796%_ - _%method-name6077260799%_) - (if (gx#stx-pair? _%hd6076660796%_) - (let ((_%e6076960802%_ - (gx#syntax-e - _%hd6076660796%_))) - (let ((_%lp-hd6077060806%_ - (let () - (declare (not safe)) - (##car _%e6076960802%_))) - (_%lp-tl6077160809%_ - (let () - (declare (not safe)) - (##cdr _%e6076960802%_)))) - (_%loop6076860792%_ - _%lp-tl6077160809%_ - (cons _%lp-hd6077060806%_ - _%method-name6077260799%_)))) - (let ((_%method-name6077360812%_ - (reverse _%method-name6077260799%_))) - ((lambda (_%L60816%_) - (let* ((_%g6083360850%_ - (lambda (_%g6083460846%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6083460846%_))) - (_%g6083261465%_ - (lambda (_%g6083460854%_) - (if (gx#stx-pair/null? - _%g6083460854%_) - (let ((_g84216_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6083460854%_ '0))) - (begin - (let ((_g84217_ - (let () - (declare (not safe)) - (if (##values? _g84216_) - (##values-length _g84216_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84217_ 2))) - (error "Context expects 2 values" _g84217_))) - (let ((_%target6083660857%_ - (let () - (declare (not safe)) - (##values-ref _g84216_ 0))) - (_%tl6083860860%_ - (let () - (declare (not safe)) - (##values-ref _g84216_ 1)))) - (if (gx#stx-null? _%tl6083860860%_) - (letrec ((_%loop6083960863%_ - (lambda (_%hd6083760867%_ - _%method-signature6084360870%_) - (if (gx#stx-pair? _%hd6083760867%_) - (let ((_%e6084060873%_ - (gx#syntax-e - _%hd6083760867%_))) - (let ((_%lp-hd6084160877%_ - (let () - (declare (not safe)) - (##car _%e6084060873%_))) - (_%lp-tl6084260880%_ - (let () - (declare (not safe)) - (##cdr _%e6084060873%_)))) - (_%loop6083960863%_ - _%lp-tl6084260880%_ - (cons _%lp-hd6084160877%_ - _%method-signature6084360870%_)))) - (let ((_%method-signature6084460883%_ - (reverse _%method-signature6084360870%_))) - ((lambda (_%L60887%_) - (let* ((_%g6090460921%_ - (lambda (_%g6090560917%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6090560917%_))) - (_%g6090361450%_ - (lambda (_%g6090560925%_) - (if (gx#stx-pair/null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6090560925%_) - (let ((_g84218_ - (gx#syntax-split-splice _%g6090560925%_ '0))) - (begin - (let ((_g84219_ - (let () - (declare (not safe)) - (if (##values? _g84218_) - (##values-length _g84218_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84219_ 2))) - (error "Context expects 2 values" - _g84219_))) - (let ((_%target6090760928%_ - (let () - (declare (not safe)) - (##values-ref _g84218_ 0))) - (_%tl6090960931%_ - (let () - (declare (not safe)) - (##values-ref _g84218_ 1)))) - (if (gx#stx-null? _%tl6090960931%_) - (letrec ((_%loop6091060934%_ - (lambda (_%hd6090860938%_ - _%method-impl-name6091460941%_) - (if (gx#stx-pair? - _%hd6090860938%_) - (let ((_%e6091160944%_ - (gx#syntax-e - _%hd6090860938%_))) - (let ((_%lp-hd6091260948%_ - (let () - (declare + (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" + _%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_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e6091160944%_))) - (_%lp-tl6091360951%_ - (let () (declare (not safe)) (##cdr _%e6091160944%_)))) - (_%loop6091060934%_ - _%lp-tl6091360951%_ - (cons _%lp-hd6091260948%_ _%method-impl-name6091460941%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%method-impl-name6091560954%_ - (reverse _%method-impl-name6091460941%_))) - ((lambda (_%L60958%_) - (let* ((_%g6097560992%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6097660988%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6097660988%_))) - (_%g6097461435%_ - (lambda (_%g6097660996%_) - (if (gx#stx-pair/null? _%g6097660996%_) - (let ((_g84220_ - (gx#syntax-split-splice - _%g6097660996%_ - '0))) - (begin - (let ((_g84221_ - (let () - (declare (not safe)) - (if (##values? _g84220_) - (##values-length _g84220_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84221_ 2))) - (error "Context expects 2 values" - _g84221_))) - (let ((_%target6097860999%_ - (let () - (declare (not safe)) - (##values-ref _g84220_ 0))) - (_%tl6098061002%_ - (let () - (declare (not safe)) - (##values-ref _g84220_ 1)))) - (if (gx#stx-null? _%tl6098061002%_) - (letrec ((_%loop6098161005%_ - (lambda (_%hd6097961009%_ - _%unchecked-method-impl-name6098561012%_) - (if (gx#stx-pair? - _%hd6097961009%_) - (let ((_%e6098261015%_ - (gx#syntax-e + 2))) + (error "Context expects 2 values" _g85097_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (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? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd6097961009%_))) - (let ((_%lp-hd6098361019%_ - (let () - (declare (not safe)) - (##car _%e6098261015%_))) - (_%lp-tl6098461022%_ - (let () - (declare (not safe)) - (##cdr _%e6098261015%_)))) - (_%loop6098161005%_ - _%lp-tl6098461022%_ - (cons _%lp-hd6098361019%_ - _%unchecked-method-impl-name6098561012%_)))) - (let ((_%unchecked-method-impl-name6098661025%_ - (reverse _%unchecked-method-impl-name6098561012%_))) - ((lambda (_%L61029%_) - (let* ((_%g6104661063%_ - (lambda (_%g6104761059%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6104761059%_))) - (_%g6104561415%_ - (lambda (_%g6104761067%_) - (if (gx#stx-pair/null? _%g6104761067%_) - (let ((_g84222_ - (gx#syntax-split-splice - _%g6104761067%_ - '0))) - (begin - (let ((_g84223_ - (let () - (declare (not safe)) - (if (##values? _g84222_) - (##values-length _g84222_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84223_ 2))) - (error "Context expects 2 values" - _g84223_))) - (let ((_%target6104961070%_ - (let () - (declare (not safe)) - (##values-ref _g84222_ 0))) - (_%tl6105161073%_ - (let () - (declare (not safe)) - (##values-ref _g84222_ 1)))) - (if (gx#stx-null? _%tl6105161073%_) - (letrec ((_%loop6105261076%_ - (lambda (_%hd6105061080%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defmethod-impl6105661083%_) - (if (gx#stx-pair? _%hd6105061080%_) - (let ((_%e6105361086%_ (gx#syntax-e _%hd6105061080%_))) - (let ((_%lp-hd6105461090%_ - (let () - (declare (not safe)) - (##car _%e6105361086%_))) - (_%lp-tl6105561093%_ - (let () - (declare (not safe)) - (##cdr _%e6105361086%_)))) - (_%loop6105261076%_ - _%lp-tl6105561093%_ - (cons _%lp-hd6105461090%_ - _%defmethod-impl6105661083%_)))) - (let ((_%defmethod-impl6105761096%_ - (reverse _%defmethod-impl6105661083%_))) - ((lambda (_%L61100%_) - (let* ((_%g6111761125%_ - (lambda (_%g6111861121%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6111861121%_))) - (_%g6111661395%_ - (lambda (_%g6111861129%_) - ((lambda (_%L61132%_) - (let* ((_%g6114561153%_ - (lambda (_%g6114661149%_) + _g85098_) + (##values-length _g85098_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g85099_ 2))) + (error "Context expects 2 values" _g85099_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (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 '"Bad syntax; invalid match target" - _%g6114661149%_))) - (_%g6114461375%_ - (lambda (_%g6114661157%_) - ((lambda (_%L61160%_) - (let* ((_%g6117361181%_ - (lambda (_%g6117461177%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6117461177%_))) - (_%g6117261371%_ - (lambda (_%g6117461185%_) - ((lambda (_%L61188%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6120161209%_ - (lambda (_%g6120261205%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6120261205%_))) - (_%g6120061367%_ - (lambda (_%g6120261213%_) - ((lambda (_%L61216%_) - (let* ((_%g6122961237%_ - (lambda (_%g6123061233%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6123061233%_))) - (_%g6122861363%_ - (lambda (_%g6123061241%_) - ((lambda (_%L61244%_) - (let* ((_%g6125761265%_ - (lambda (_%g6125861261%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6125861261%_))) - (_%g6125661359%_ - (lambda (_%g6125861269%_) - ((lambda (_%L61272%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6128561293%_ - (lambda (_%g6128661289%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6128661289%_))) - (_%g6128461323%_ - (lambda (_%g6128661297%_) - ((lambda (_%L61300%_) - (cons (gx#datum->syntax '#f 'begin) - (cons _%L61132%_ - (cons _%L61160%_ - (cons _%L61188%_ - (cons _%L61216%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L61244%_ - (cons _%L61272%_ - (cons _%L61300%_ - (foldr (lambda (_%g6131461317%_ - _%g6131561320%_) - (cons _%g6131461317%_ - _%g6131561320%_)) - '() - _%L61100%_)))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6128661297%_)))) - (_%g6128461323%_ - (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L60384%_ - (cons (cons (gx#datum->syntax - '#f - 'make-interface-info) - (cons 'name: - (cons (cons (gx#datum->syntax + _%g6112461136%_))) + (_%g6112261591%_ + (lambda (_%g6112461144%_) + (if (gx#stx-pair/null? + _%g6112461144%_) + (let ((_g85100_ + (gx#syntax-split-splice + _%g6112461144%_ + '0))) + (begin + (let ((_g85101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L60384%_ '())) - (cons 'interface-mixin: - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6133261335%_ - _%g6133361338%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g6133261335%_ + (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 + '"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 + '"Bad syntax; invalid match target" + _%g6143461437%_))) + (_%g6143261471%_ + (lambda (_%g6143461445%_) + ((lambda (_%L61448%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%g6133361338%_)) + '#f + 'begin) + (cons _%L61280%_ + (cons _%L61308%_ + (cons _%L61336%_ + (cons _%L61364%_ + (cons _%L61392%_ + (cons _%L61420%_ + (cons _%L61448%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g6146261465%_ _%g6146361468%_) + (cons _%g6146261465%_ _%g6146361468%_)) + '() + _%L61248%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _%L60674%_)) - (cons 'interface-methods: - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_%g6133061341%_ + _%g6143461445%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6143261471%_ + (cons (gx#datum->syntax + '#f + 'defsyntax) + (cons _%L60350%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'make-interface-info) + (cons 'name: + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons _%L60350%_ '())) + (cons 'namespace: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6133161344%_) - (cons _%g6133061341%_ _%g6133161344%_)) - '() - _%L60745%_) - '())) + '#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 'instance-type: - (cons (cons (gx#datum->syntax + (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 + 'quote-syntax) + (cons _%L60517%_ '())) + (cons 'instance-try-constructor: + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _%L60411%_ '())) - (cons 'interface-descriptor: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60495%_ '())) - (cons 'instance-constructor: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L60523%_ '())) - (cons 'instance-try-constructor: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L60551%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons 'instance-predicate: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60579%_ '())) - (cons 'instance-satisfies-predicate: + '#f + '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 + 'quote-syntax) + (cons _%L60601%_ '())) + (cons 'implementation-methods: + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@list) + (foldr (lambda (_%g6147661503%_ _%g6147761506%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60607%_ '())) - (cons 'implementation-methods: + (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 - '@list) - (foldr (lambda (_%g6132861347%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6132961350%_) - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6132861347%_ '())) - _%g6132961350%_)) - '() - _%L60958%_)) + 'quote-syntax) + (cons _%g6147461509%_ + '())) + _%g6147561512%_)) + '() + _%L61177%_)) + '()))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons 'unchecked-implementation-methods: - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (foldr (lambda (_%g6132661353%_ _%g6132761356%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g6132661353%_ '())) - _%g6132761356%_)) - '() - _%L61029%_)) - '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - _%g6125861269%_)))) - (_%g6125661359%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60607%_ - (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: + _%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 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'pure) '()) - (cons 'arguments: - (cons (cons (gx#datum->syntax - '#f - 't::t) - '()) - '()))))))) + '#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 + (cons (cons (gx#datum->syntax '#f 'and) + (cons (cons (gx#datum->syntax + '#f + '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 - 'and) - (cons (cons (gx#datum->syntax + '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: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'satisfies?) - (cons _%L60495%_ - (cons (gx#datum->syntax '#f 'obj) '()))) - (cons '#t '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6123061241%_)))) - (_%g6122861363%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L60579%_ - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax '#f 'cast) '()) + (cons 'arguments: + (cons (cons (gx#datum->syntax '#f 't::t) + '()) + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'try-cast) + (cons _%L60489%_ + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L60439%_ '())) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons (gx#datum->syntax - '#f - 'obj) - '()) - (cons (cons (gx#datum->syntax - '#f - 'direct-instance?) - (cons _%L60411%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'obj) '()))) - '()))) + 'obj) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) + '()))) + '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6120261213%_)))) - (_%g6120061367%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60551%_ + _%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 + '@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) - '())) - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + '()))) + '()))) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%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%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#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 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@mop.class) + (cons _%L60461%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 't::t) + 'interface-instance::t) '()) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'try-cast) - (cons _%L60495%_ - (cons (gx#datum->syntax '#f 'obj) '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - _%g6117461185%_)))) - (_%g6117261371%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60523%_ - (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 _%L60439%_ - (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 _%L60495%_ - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'obj) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) + (cons (foldr (lambda (_%g6155661559%_ _%g6155761562%_) + (cons _%g6155661559%_ _%g6155761562%_)) + '() + _%L60810%_) + (cons '#f (cons '#t (cons '#t (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6114661157%_)))) - (_%g6114461375%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L60495%_ + (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 _%L60439%_ - (cons (foldr (lambda (_%g6138061383%_ + '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%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6138161386%_) - (cons _%g6138061383%_ _%g6138161386%_)) + _%g6155561568%_) + (cons _%g6155461565%_ _%g6155561568%_)) '() - _%L60816%_) + _%L60810%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax - '#f - 'make-interface-descriptor) - (cons _%L60411%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_%g6137861389%_ + '())) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons (cons (cons 'final: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6137961392%_) - (cons _%g6137861389%_ _%g6137961392%_)) - '() - _%L60816%_) - '())) - '()))) + '#t) + (cons (cons 'struct: '#t) '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) + (cons '#f '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6111861129%_)))) - (_%g6111661395%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L60411%_ - (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 _%L60467%_ - (cons (cons (gx#datum->syntax - '#f - 'interface-instance::t) - '()) - (cons (foldr (lambda (_%g6140061403%_ - _%g6140161406%_) - (cons _%g6140061403%_ - _%g6140161406%_)) - '() - _%L60816%_) - (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 _%L60467%_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L60384%_ '())) - (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 (_%g6139861409%_ + _%g6157561580%_) + (cons _%g6157461577%_ _%g6157561580%_)) + '() + _%L60739%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp85104 + (length (foldr (lambda (_%g6158261585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6139961412%_) - (cons _%g6139861409%_ _%g6139961412%_)) + _%g6158361588%_) + (cons _%g6158261585%_ _%g6158361588%_)) '() - _%L60816%_) - '())) - (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-impl6105761096%_)))))) + (_%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%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6105261076%_ - _%target6104961070%_ - '())) - (_%g6104661063%_ - _%g6104761067%_))))) - (_%g6104661063%_ _%g6104761067%_))))) - (_%g6104561415%_ - (map (_%make-method-defs60261%_ _%L60384%_) - (foldr (lambda (_%g6141861421%_ _%g6141961424%_) - (cons _%g6141861421%_ _%g6141961424%_)) + (_%loop6083360857%_ + _%target6083060851%_ + '())) + (_%g6082760844%_ + _%g6082860848%_))))) + (_%g6082760844%_ _%g6082860848%_))))) + (_%g6082661650%_ + (let ((__tmp85107 + (foldr (lambda (_%g6165361656%_ _%g6165461659%_) + (cons _%g6165361656%_ _%g6165461659%_)) '() - _%L60745%_) - (let ((__tmp84224 - (length (foldr (lambda (_%g6142661429%_ - _%g6142761432%_) - (cons _%g6142661429%_ - _%g6142761432%_)) + _%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%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%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%_) '() - _%L60816%_)))) - (declare (not safe)) - (##iota __tmp84224 '2)))))) - _%unchecked-method-impl-name6098661025%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6098161005%_ - _%target6097860999%_ - '())) - (_%g6097560992%_ _%g6097660996%_))))) - (_%g6097560992%_ _%g6097660996%_))))) - (_%g6097461435%_ - (map (lambda (_%method-name61439%_) - (gx#stx-identifier - _%L60384%_ - '"&" - _%L60384%_ - '"-" - _%method-name61439%_)) - (foldr (lambda (_%g6144161444%_ _%g6144261447%_) - (cons _%g6144161444%_ _%g6144261447%_)) - '() - _%L60816%_))))) - _%method-impl-name6091560954%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6091060934%_ - _%target6090760928%_ - '())) - (_%g6090460921%_ _%g6090560925%_))))) - (_%g6090460921%_ _%g6090560925%_))))) - (_%g6090361450%_ - (map (lambda (_%method-name61454%_) - (gx#stx-identifier - _%L60384%_ - _%L60384%_ - '"-" - _%method-name61454%_)) - (foldr (lambda (_%g6145661459%_ _%g6145761462%_) - (cons _%g6145661459%_ _%g6145761462%_)) - '() - _%L60816%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-signature6084460883%_)))))) - (_%loop6083960863%_ _%target6083660857%_ '())) - (_%g6083360850%_ _%g6083460854%_))))) - (_%g6083360850%_ _%g6083460854%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6083261465%_ - (map gx#stx-cdr - (foldr (lambda (_%g6146861471%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6146961474%_) - (cons _%g6146861471%_ _%g6146961474%_)) - '() - _%L60745%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-name6077360812%_)))))) - (_%loop6076860792%_ _%target6076560786%_ '())) - (_%g6076260779%_ _%g6076360783%_))))) - (_%g6076260779%_ _%g6076360783%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6076161477%_ - (map gx#stx-car - (foldr (lambda (_%g6148061483%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6148161486%_) - (cons _%g6148061483%_ _%g6148161486%_)) - '() - _%L60745%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method6070260741%_)))))) - (_%loop6069760721%_ _%target6069460715%_ '())) - (_%g6069160708%_ _%g6069260712%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6069160708%_ - _%g6069260712%_))))) - (_%g6069061489%_ - (_%fold-methods60257%_ - (foldr (lambda (_%g6149261495%_ - _%g6149361498%_) - (cons _%g6149261495%_ - _%g6149361498%_)) - '() - _%L60674%_) - (foldr (lambda (_%g6150061503%_ - _%g6150161506%_) - (cons _%g6150061503%_ - _%g6150161506%_)) - '() - _%L60344%_))))) - _%mixin6063160670%_)))))) - (_%loop6062660650%_ _%target6062360644%_ '())) - (_%g6062060637%_ _%g6062160641%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6062060637%_ - _%g6062160641%_))))) - (_%g6061961509%_ - (if (gx#identifier? _%L60346%_) - '() - (gx#syntax->list - (gx#stx-cdr _%L60346%_)))))) - _%g6059360604%_)))) - (_%g6059161513%_ - (gx#stx-identifier _%L60384%_ '"is-" _%L60384%_ '"?")))) - _%g6056560576%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6056361517%_ + (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 - _%L60384%_ - _%L60384%_ - '"?")))) - _%g6053760548%_)))) - (_%g6053561521%_ + _%L60350%_ + '"try-" + _%L60350%_)))) + _%g6050360514%_)))) + (_%g6050161710%_ (gx#stx-identifier - _%L60384%_ - '"try-" - _%L60384%_)))) - _%g6050960520%_)))) - (_%g6050761525%_ - (gx#stx-identifier _%L60384%_ '"make-" _%L60384%_)))) - _%g6048160492%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6047961529%_ - (gx#stx-identifier - _%L60384%_ - _%L60384%_ - '"::interface")))) - _%g6045360464%_)))) - (_%g6045161533%_ - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L60384%_))))) - _%g6042560436%_)))) - (_%g6042361537%_ (gx#core-quote-syntax _%L60411%_)))) - _%g6039760408%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6039561541%_ - (gx#stx-identifier - _%L60384%_ - _%L60384%_ - '"::t")))) - _%g6037060381%_)))) - (_%g6036861545%_ - (if (gx#identifier? _%L60346%_) - _%L60346%_ - (gx#stx-car _%L60346%_)))) - (_%g6026360287%_ _%g6026460291%_))) - _%spec6028160340%_ - _%hd6027160308%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6027660320%_ - _%target6027360314%_ + _%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%_ '())) - (_%g6026360287%_ - _%g6026460291%_))))) - (_%g6026360287%_ _%g6026460291%_)))) - (_%g6026360287%_ _%g6026460291%_)))) - (_%g6026360287%_ _%g6026460291%_))))) - (_%g6026261549%_ _%stx60254%_))))) + (_%g6022960253%_ + _%g6023060257%_))))) + (_%g6022960253%_ _%g6023060257%_)))) + (_%g6022960253%_ _%g6023060257%_)))) + (_%g6022960253%_ _%g6023060257%_))))) + (_%g6022861738%_ _%stx60218%_))))) (define |gerbil/core/contract~Interface[:0:]#definterface-method| - (lambda (_%stx62059%_) - (letrec ((_%emit-raw-method?62062%_ - (lambda (_%return63045%_) - (let ((_%return-type63048%_ - (gx#syntax-local-value _%return63045%_))) + (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-type63048%_)) - (let ((__tmp84225 - (let ((__obj83997 _%return-type63048%_)) + _%return-type63309%_)) + (let ((__tmp85108 + (let ((__obj84859 _%return-type63309%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83997 + __obj84859 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83997 + __obj84859 '1 '#f '#f)) (unchecked-slot-ref - __obj83997 + __obj84859 'id))))) (declare (not safe)) - (##memq __tmp84225 '(t void)))) + (##memq __tmp85108 '(t void)))) '#f '#t)))) - (_%make-checked-method-def62064%_ - (lambda (_%Interface62806%_ - _%method-name62808%_ - _%raw-method-name62809%_ - _%unchecked-method-name62810%_ - _%signature62811%_ - _%return62812%_) - (let* ((_%g6281462862%_ - (lambda (_%g6281562858%_) + (_%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" - _%g6281562858%_))) - (_%g6281363041%_ - (lambda (_%g6281562866%_) - (if (gx#stx-pair? _%g6281562866%_) - (let ((_%e6282462869%_ - (gx#syntax-e _%g6281562866%_))) - (let ((_%hd6282562873%_ + _%g6307663119%_))) + (_%g6307463302%_ + (lambda (_%g6307663127%_) + (if (gx#stx-pair? _%g6307663127%_) + (let ((_%e6308563130%_ + (gx#syntax-e _%g6307663127%_))) + (let ((_%hd6308663134%_ (let () (declare (not safe)) - (##car _%e6282462869%_))) - (_%tl6282662876%_ + (##car _%e6308563130%_))) + (_%tl6308763137%_ (let () (declare (not safe)) - (##cdr _%e6282462869%_)))) - (if (gx#stx-pair? _%tl6282662876%_) - (let ((_%e6282762879%_ + (##cdr _%e6308563130%_)))) + (if (gx#stx-pair? _%tl6308763137%_) + (let ((_%e6308863140%_ (gx#syntax-e - _%tl6282662876%_))) - (let ((_%hd6282862883%_ + _%tl6308763137%_))) + (let ((_%hd6308963144%_ (let () (declare (not safe)) - (##car _%e6282762879%_))) - (_%tl6282962886%_ + (##car _%e6308863140%_))) + (_%tl6309063147%_ (let () (declare (not safe)) - (##cdr _%e6282762879%_)))) + (##cdr _%e6308863140%_)))) (if (gx#stx-pair? - _%tl6282962886%_) - (let ((_%e6283062889%_ + _%tl6309063147%_) + (let ((_%e6309163150%_ (gx#syntax-e - _%tl6282962886%_))) - (let ((_%hd6283162893%_ + _%tl6309063147%_))) + (let ((_%hd6309263154%_ (let () (declare (not safe)) - (##car _%e6283062889%_))) - (_%tl6283262896%_ + (##car _%e6309163150%_))) + (_%tl6309363157%_ (let () (declare (not safe)) - (##cdr _%e6283062889%_)))) + (##cdr _%e6309163150%_)))) (if (gx#stx-pair? - _%tl6283262896%_) - (let ((_%e6283362899%_ + _%tl6309363157%_) + (let ((_%e6309463160%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6283262896%_))) - (let ((_%hd6283462903%_ + (gx#syntax-e _%tl6309363157%_))) + (let ((_%hd6309563164%_ (let () (declare (not safe)) - (##car _%e6283362899%_))) - (_%tl6283562906%_ + (##car _%e6309463160%_))) + (_%tl6309663167%_ (let () (declare (not safe)) - (##cdr _%e6283362899%_)))) - (if (gx#stx-pair? _%tl6283562906%_) - (let ((_%e6283662909%_ - (gx#syntax-e _%tl6283562906%_))) - (let ((_%hd6283762913%_ + (##cdr _%e6309463160%_)))) + (if (gx#stx-pair? _%tl6309663167%_) + (let ((_%e6309763170%_ + (gx#syntax-e _%tl6309663167%_))) + (let ((_%hd6309863174%_ (let () (declare (not safe)) - (##car _%e6283662909%_))) - (_%tl6283862916%_ + (##car _%e6309763170%_))) + (_%tl6309963177%_ (let () (declare (not safe)) - (##cdr _%e6283662909%_)))) - (if (gx#stx-pair? _%tl6283862916%_) - (let ((_%e6283962919%_ - (gx#syntax-e _%tl6283862916%_))) - (let ((_%hd6284062923%_ + (##cdr _%e6309763170%_)))) + (if (gx#stx-pair? _%tl6309963177%_) + (let ((_%e6310063180%_ + (gx#syntax-e _%tl6309963177%_))) + (let ((_%hd6310163184%_ (let () (declare (not safe)) - (##car _%e6283962919%_))) - (_%tl6284162926%_ + (##car _%e6310063180%_))) + (_%tl6310263187%_ (let () (declare (not safe)) - (##cdr _%e6283962919%_)))) - (if (gx#stx-pair/null? _%hd6284062923%_) - (let ((_g84226_ + (##cdr _%e6310063180%_)))) + (if (gx#stx-pair/null? _%hd6310163184%_) + (let ((_g85109_ (gx#syntax-split-splice - _%hd6284062923%_ + _%hd6310163184%_ '0))) (begin - (let ((_g84227_ + (let ((_g85110_ (let () (declare (not safe)) - (if (##values? _g84226_) + (if (##values? _g85109_) (##values-length - _g84226_) + _g85109_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84227_ 2))) + (##fx= _g85110_ 2))) (error "Context expects 2 values" - _g84227_))) - (let ((_%target6284262929%_ + _g85110_))) + (let ((_%target6310363190%_ (let () (declare (not safe)) (##values-ref - _g84226_ + _g85109_ 0))) - (_%tl6284462932%_ + (_%tl6310563193%_ (let () (declare (not safe)) (##values-ref - _g84226_ + _g85109_ 1)))) (if (gx#stx-null? - _%tl6284462932%_) - (letrec ((_%loop6284562935%_ - (lambda (_%hd6284362939%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6284962942%_) - (if (gx#stx-pair? _%hd6284362939%_) - (let ((_%e6284662945%_ - (gx#syntax-e _%hd6284362939%_))) - (let ((_%lp-hd6284762949%_ + _%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 _%e6284662945%_))) - (_%lp-tl6284862952%_ + (##car _%e6310763206%_))) + (_%lp-tl6310963213%_ (let () (declare (not safe)) - (##cdr _%e6284662945%_)))) - (_%loop6284562935%_ - _%lp-tl6284862952%_ - (cons _%lp-hd6284762949%_ - _%out6284962942%_)))) - (let ((_%out6285062955%_ - (reverse _%out6284962942%_))) - (if (gx#stx-pair? _%tl6284162926%_) - (let ((_%e6285162959%_ - (gx#syntax-e _%tl6284162926%_))) - (let ((_%hd6285262963%_ + (##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 _%e6285162959%_))) - (_%tl6285362966%_ + (##car _%e6311263220%_))) + (_%tl6311463227%_ (let () (declare (not safe)) - (##cdr _%e6285162959%_)))) - (if (gx#stx-pair? _%tl6285362966%_) - (let ((_%e6285462969%_ + (##cdr _%e6311263220%_)))) + (if (gx#stx-pair? _%tl6311463227%_) + (let ((_%e6311563230%_ (gx#syntax-e - _%tl6285362966%_))) - (let ((_%hd6285562973%_ + _%tl6311463227%_))) + (let ((_%hd6311663234%_ (let () (declare (not safe)) - (##car _%e6285462969%_))) - (_%tl6285662976%_ + (##car _%e6311563230%_))) + (_%tl6311763237%_ (let () (declare (not safe)) - (##cdr _%e6285462969%_)))) + (##cdr _%e6311563230%_)))) (if (gx#stx-null? - _%tl6285662976%_) - ((lambda (_%L62979%_ - _%L62981%_ - _%L62982%_ - _%L62983%_ - _%L62984%_ - _%L62985%_ - _%L62986%_ - _%L62987%_) + _%tl6311763237%_) + ((lambda (_%L63240%_ + _%L63242%_ + _%L63243%_ + _%L63244%_ + _%L63245%_ + _%L63246%_ + _%L63247%_ + _%L63248%_) (if (gx#stx-list? - _%L62981%_) + _%L63242%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62986%_ (cons _%L62984%_ _%L62983%_)) + (cons (cons _%L63247%_ (cons _%L63245%_ _%L63244%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62984%_ - (cons (cons _%L62987%_ - (cons _%L62981%_ + (cons _%L63245%_ + (cons (cons _%L63248%_ + (cons _%L63242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62979%_ (cons _%L62985%_ '())))) + (cons _%L63240%_ (cons _%L63246%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) - (cons (cons _%L62985%_ - (cons _%L62984%_ - (foldr (lambda (_%g6302463027%_ - _%g6302563030%_) - (cons _%g6302463027%_ - _%g6302563030%_)) + (cons (cons _%L63246%_ + (cons _%L63245%_ + (foldr (lambda (_%g6328563288%_ + _%g6328663291%_) + (cons _%g6328563288%_ + _%g6328663291%_)) '() - _%L62982%_))) - (cons _%L62979%_ '()))) + _%L63243%_))) + (cons _%L63240%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx62059%_)) + (gx#stx-source _%stx62320%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62986%_ (cons _%L62984%_ _%L62983%_)) + (cons (cons _%L63247%_ (cons _%L63245%_ _%L63244%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62984%_ - (cons (cons _%L62987%_ - (cons _%L62981%_ + (cons _%L63245%_ + (cons (cons _%L63248%_ + (cons _%L63242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62979%_ (cons _%L62985%_ '())))) + (cons _%L63240%_ (cons _%L63246%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62985%_ - (cons _%L62984%_ - (foldr (lambda (_%g6303263035%_ + (cons _%L63246%_ + (cons _%L63245%_ + (foldr (lambda (_%g6329363296%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6303363038%_) - (cons _%g6303263035%_ _%g6303363038%_)) + _%g6329463299%_) + (cons _%g6329363296%_ _%g6329463299%_)) '() - _%L62982%_)))) + _%L63243%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62979%_ '()))) + (cons _%L63240%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx62059%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6285562973%_ - _%hd6285262963%_ - _%out6285062955%_ - _%hd6283762913%_ - _%hd6283462903%_ - _%hd6283162893%_ - _%hd6282862883%_ - _%hd6282562873%_) - (_%g6281462862%_ - _%g6281562866%_)))) - (_%g6281462862%_ _%g6281562866%_)))) - (_%g6281462862%_ _%g6281562866%_))))))) - (_%loop6284562935%_ _%target6284262929%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6281462862%_ - _%g6281562866%_))))) - (_%g6281462862%_ _%g6281562866%_)))) - (_%g6281462862%_ _%g6281562866%_)))) - (_%g6281462862%_ _%g6281562866%_)))) - (_%g6281462862%_ _%g6281562866%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6281462862%_ - _%g6281562866%_)))) - (_%g6281462862%_ _%g6281562866%_)))) - (_%g6281462862%_ _%g6281562866%_))))) - (_%g6281363041%_ - (list _%Interface62806%_ - _%method-name62808%_ - (if (_%emit-raw-method?62062%_ _%return62812%_) - _%raw-method-name62809%_ - _%unchecked-method-name62810%_) + (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| - _%signature62811%_) + _%signature63072%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62811%_) - _%signature62811%_ - _%return62812%_))))) - (_%make-raw-method-def62065%_ - (lambda (_%Interface62568%_ - _%raw-method-name62570%_ - _%unchecked-method-name62571%_ - _%signature62572%_ - _%return62573%_) - (if (_%emit-raw-method?62062%_ _%return62573%_) - (let* ((_%g6257562623%_ - (lambda (_%g6257662619%_) + _%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" - _%g6257662619%_))) - (_%g6257462802%_ - (lambda (_%g6257662627%_) - (if (gx#stx-pair? _%g6257662627%_) - (let ((_%e6258562630%_ - (gx#syntax-e _%g6257662627%_))) - (let ((_%hd6258662634%_ + _%g6283762880%_))) + (_%g6283563063%_ + (lambda (_%g6283762888%_) + (if (gx#stx-pair? _%g6283762888%_) + (let ((_%e6284662891%_ + (gx#syntax-e _%g6283762888%_))) + (let ((_%hd6284762895%_ (let () (declare (not safe)) - (##car _%e6258562630%_))) - (_%tl6258762637%_ + (##car _%e6284662891%_))) + (_%tl6284862898%_ (let () (declare (not safe)) - (##cdr _%e6258562630%_)))) - (if (gx#stx-pair? _%tl6258762637%_) - (let ((_%e6258862640%_ + (##cdr _%e6284662891%_)))) + (if (gx#stx-pair? _%tl6284862898%_) + (let ((_%e6284962901%_ (gx#syntax-e - _%tl6258762637%_))) - (let ((_%hd6258962644%_ + _%tl6284862898%_))) + (let ((_%hd6285062905%_ (let () (declare (not safe)) - (##car _%e6258862640%_))) - (_%tl6259062647%_ + (##car _%e6284962901%_))) + (_%tl6285162908%_ (let () (declare (not safe)) - (##cdr _%e6258862640%_)))) + (##cdr _%e6284962901%_)))) (if (gx#stx-pair? - _%tl6259062647%_) - (let ((_%e6259162650%_ + _%tl6285162908%_) + (let ((_%e6285262911%_ (gx#syntax-e - _%tl6259062647%_))) - (let ((_%hd6259262654%_ + _%tl6285162908%_))) + (let ((_%hd6285362915%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6259162650%_))) - (_%tl6259362657%_ - (let () (declare (not safe)) (##cdr _%e6259162650%_)))) - (if (gx#stx-pair? _%tl6259362657%_) - (let ((_%e6259462660%_ (gx#syntax-e _%tl6259362657%_))) - (let ((_%hd6259562664%_ + (##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 _%e6259462660%_))) - (_%tl6259662667%_ + (##car _%e6285562921%_))) + (_%tl6285762928%_ (let () (declare (not safe)) - (##cdr _%e6259462660%_)))) - (if (gx#stx-pair? _%tl6259662667%_) - (let ((_%e6259762670%_ - (gx#syntax-e _%tl6259662667%_))) - (let ((_%hd6259862674%_ + (##cdr _%e6285562921%_)))) + (if (gx#stx-pair? _%tl6285762928%_) + (let ((_%e6285862931%_ + (gx#syntax-e _%tl6285762928%_))) + (let ((_%hd6285962935%_ (let () (declare (not safe)) - (##car _%e6259762670%_))) - (_%tl6259962677%_ + (##car _%e6285862931%_))) + (_%tl6286062938%_ (let () (declare (not safe)) - (##cdr _%e6259762670%_)))) - (if (gx#stx-pair? _%tl6259962677%_) - (let ((_%e6260062680%_ - (gx#syntax-e _%tl6259962677%_))) - (let ((_%hd6260162684%_ + (##cdr _%e6285862931%_)))) + (if (gx#stx-pair? _%tl6286062938%_) + (let ((_%e6286162941%_ + (gx#syntax-e _%tl6286062938%_))) + (let ((_%hd6286262945%_ (let () (declare (not safe)) - (##car _%e6260062680%_))) - (_%tl6260262687%_ + (##car _%e6286162941%_))) + (_%tl6286362948%_ (let () (declare (not safe)) - (##cdr _%e6260062680%_)))) + (##cdr _%e6286162941%_)))) (if (gx#stx-pair/null? - _%hd6260162684%_) - (let ((_g84228_ + _%hd6286262945%_) + (let ((_g85111_ (gx#syntax-split-splice - _%hd6260162684%_ + _%hd6286262945%_ '0))) (begin - (let ((_g84229_ + (let ((_g85112_ (let () (declare (not safe)) (if (##values? - _g84228_) + _g85111_) (##values-length - _g84228_) + _g85111_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84229_ 2))) - (error "Context expects 2 values" _g84229_))) + (##fx= _g85112_ 2))) + (error "Context expects 2 values" _g85112_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6260362690%_ + (let ((_%target6286462951%_ (let () (declare (not safe)) (##values-ref - _g84228_ + _g85111_ 0))) - (_%tl6260562693%_ + (_%tl6286662954%_ (let () (declare (not safe)) (##values-ref - _g84228_ + _g85111_ 1)))) (if (gx#stx-null? - _%tl6260562693%_) - (letrec ((_%loop6260662696%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6260462700%_ _%out6261062703%_) - (if (gx#stx-pair? _%hd6260462700%_) - (let ((_%e6260762706%_ - (gx#syntax-e _%hd6260462700%_))) - (let ((_%lp-hd6260862710%_ + _%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 _%e6260762706%_))) - (_%lp-tl6260962713%_ + (##car _%e6286862967%_))) + (_%lp-tl6287062974%_ (let () (declare (not safe)) - (##cdr _%e6260762706%_)))) - (_%loop6260662696%_ - _%lp-tl6260962713%_ - (cons _%lp-hd6260862710%_ - _%out6261062703%_)))) - (let ((_%out6261162716%_ - (reverse _%out6261062703%_))) - (if (gx#stx-pair? _%tl6260262687%_) - (let ((_%e6261262720%_ - (gx#syntax-e _%tl6260262687%_))) - (let ((_%hd6261362724%_ + (##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 _%e6261262720%_))) - (_%tl6261462727%_ + (##car _%e6287362981%_))) + (_%tl6287562988%_ (let () (declare (not safe)) - (##cdr _%e6261262720%_)))) - (if (gx#stx-pair? _%tl6261462727%_) - (let ((_%e6261562730%_ + (##cdr _%e6287362981%_)))) + (if (gx#stx-pair? _%tl6287562988%_) + (let ((_%e6287662991%_ (gx#syntax-e - _%tl6261462727%_))) - (let ((_%hd6261662734%_ + _%tl6287562988%_))) + (let ((_%hd6287762995%_ (let () (declare (not safe)) - (##car _%e6261562730%_))) - (_%tl6261762737%_ + (##car _%e6287662991%_))) + (_%tl6287862998%_ (let () (declare (not safe)) - (##cdr _%e6261562730%_)))) + (##cdr _%e6287662991%_)))) (if (gx#stx-null? - _%tl6261762737%_) - ((lambda (_%L62740%_ - _%L62742%_ - _%L62743%_ - _%L62744%_ - _%L62745%_ - _%L62746%_ - _%L62747%_ - _%L62748%_) + _%tl6287862998%_) + ((lambda (_%L63001%_ + _%L63003%_ + _%L63004%_ + _%L63005%_ + _%L63006%_ + _%L63007%_ + _%L63008%_ + _%L63009%_) (if (gx#stx-list? - _%L62742%_) + _%L63003%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62747%_ - (cons _%L62745%_ _%L62744%_)) + (cons (cons _%L63008%_ + (cons _%L63006%_ _%L63005%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62745%_ - (cons (cons _%L62748%_ - (cons _%L62742%_ + (cons _%L63006%_ + (cons (cons _%L63009%_ + (cons _%L63003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62740%_ '()))) + (cons _%L63001%_ '()))) (cons (cons (gx#datum->syntax '#f ':) - (cons (cons _%L62746%_ - (cons _%L62745%_ - (foldr (lambda (_%g6278562788%_ - _%g6278662791%_) - (cons _%g6278562788%_ - _%g6278662791%_)) + (cons (cons _%L63007%_ + (cons _%L63006%_ + (foldr (lambda (_%g6304663049%_ + _%g6304763052%_) + (cons _%g6304663049%_ + _%g6304763052%_)) '() - _%L62743%_))) - (cons _%L62740%_ '()))) + _%L63004%_))) + (cons _%L63001%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx62059%_)) + (gx#stx-source _%stx62320%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62747%_ - (cons _%L62745%_ _%L62744%_)) + (cons (cons _%L63008%_ + (cons _%L63006%_ _%L63005%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62745%_ - (cons (cons _%L62748%_ - (cons _%L62742%_ + (cons _%L63006%_ + (cons (cons _%L63009%_ + (cons _%L63003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62740%_ '()))) + (cons _%L63001%_ '()))) (cons (cons (gx#datum->syntax '#f ':) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62746%_ - (cons _%L62745%_ - (foldr (lambda (_%g6279362796%_ + (cons _%L63007%_ + (cons _%L63006%_ + (foldr (lambda (_%g6305463057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6279462799%_) - (cons _%g6279362796%_ _%g6279462799%_)) + _%g6305563060%_) + (cons _%g6305463057%_ _%g6305563060%_)) '() - _%L62743%_)))) + _%L63004%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62740%_ '()))) + (cons _%L63001%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx62059%_)))) - _%hd6261662734%_ - _%hd6261362724%_ - _%out6261162716%_ - _%hd6259862674%_ - _%hd6259562664%_ - _%hd6259262654%_ - _%hd6258962644%_ - _%hd6258662634%_) - (_%g6257562623%_ _%g6257662627%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6257562623%_ - _%g6257662627%_)))) - (_%g6257562623%_ _%g6257662627%_))))))) - (_%loop6260662696%_ _%target6260362690%_ '())) - (_%g6257562623%_ _%g6257662627%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6257562623%_ - _%g6257662627%_)))) - (_%g6257562623%_ _%g6257662627%_)))) - (_%g6257562623%_ _%g6257662627%_)))) - (_%g6257562623%_ _%g6257662627%_)))) - (_%g6257562623%_ _%g6257662627%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6257562623%_ - _%g6257662627%_)))) - (_%g6257562623%_ _%g6257662627%_))))) - (_%g6257462802%_ - (list _%Interface62568%_ - _%raw-method-name62570%_ - _%unchecked-method-name62571%_ + (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| - _%signature62572%_) + _%signature62833%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62572%_) - _%signature62572%_ - _%return62573%_))) + _%signature62833%_) + _%signature62833%_ + _%return62834%_))) '(begin)))) - (_%make-unchecked-method-def62066%_ - (lambda (_%Interface62356%_ - _%unchecked-method-name62358%_ - _%signature62359%_ - _%return62360%_ - _%body62361%_) - (let* ((_%g6236362407%_ - (lambda (_%g6236462403%_) + (_%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" - _%g6236462403%_))) - (_%g6236262564%_ - (lambda (_%g6236462411%_) - (if (gx#stx-pair? _%g6236462411%_) - (let ((_%e6237262414%_ - (gx#syntax-e _%g6236462411%_))) - (let ((_%hd6237362418%_ + _%g6262562664%_))) + (_%g6262362825%_ + (lambda (_%g6262562672%_) + (if (gx#stx-pair? _%g6262562672%_) + (let ((_%e6263362675%_ + (gx#syntax-e _%g6262562672%_))) + (let ((_%hd6263462679%_ (let () (declare (not safe)) - (##car _%e6237262414%_))) - (_%tl6237462421%_ + (##car _%e6263362675%_))) + (_%tl6263562682%_ (let () (declare (not safe)) - (##cdr _%e6237262414%_)))) - (if (gx#stx-pair? _%tl6237462421%_) - (let ((_%e6237562424%_ + (##cdr _%e6263362675%_)))) + (if (gx#stx-pair? _%tl6263562682%_) + (let ((_%e6263662685%_ (gx#syntax-e - _%tl6237462421%_))) - (let ((_%hd6237662428%_ + _%tl6263562682%_))) + (let ((_%hd6263762689%_ (let () (declare (not safe)) - (##car _%e6237562424%_))) - (_%tl6237762431%_ + (##car _%e6263662685%_))) + (_%tl6263862692%_ (let () (declare (not safe)) - (##cdr _%e6237562424%_)))) + (##cdr _%e6263662685%_)))) (if (gx#stx-pair? - _%tl6237762431%_) - (let ((_%e6237862434%_ + _%tl6263862692%_) + (let ((_%e6263962695%_ (gx#syntax-e - _%tl6237762431%_))) - (let ((_%hd6237962438%_ + _%tl6263862692%_))) + (let ((_%hd6264062699%_ (let () (declare (not safe)) - (##car _%e6237862434%_))) - (_%tl6238062441%_ + (##car _%e6263962695%_))) + (_%tl6264162702%_ (let () (declare (not safe)) - (##cdr _%e6237862434%_)))) + (##cdr _%e6263962695%_)))) (if (gx#stx-pair? - _%tl6238062441%_) - (let ((_%e6238162444%_ + _%tl6264162702%_) + (let ((_%e6264262705%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6238062441%_))) - (let ((_%hd6238262448%_ + (gx#syntax-e _%tl6264162702%_))) + (let ((_%hd6264362709%_ (let () (declare (not safe)) - (##car _%e6238162444%_))) - (_%tl6238362451%_ + (##car _%e6264262705%_))) + (_%tl6264462712%_ (let () (declare (not safe)) - (##cdr _%e6238162444%_)))) - (if (gx#stx-pair? _%tl6238362451%_) - (let ((_%e6238462454%_ - (gx#syntax-e _%tl6238362451%_))) - (let ((_%hd6238562458%_ + (##cdr _%e6264262705%_)))) + (if (gx#stx-pair? _%tl6264462712%_) + (let ((_%e6264562715%_ + (gx#syntax-e _%tl6264462712%_))) + (let ((_%hd6264662719%_ (let () (declare (not safe)) - (##car _%e6238462454%_))) - (_%tl6238662461%_ + (##car _%e6264562715%_))) + (_%tl6264762722%_ (let () (declare (not safe)) - (##cdr _%e6238462454%_)))) - (if (gx#stx-pair? _%tl6238662461%_) - (let ((_%e6238762464%_ - (gx#syntax-e _%tl6238662461%_))) - (let ((_%hd6238862468%_ + (##cdr _%e6264562715%_)))) + (if (gx#stx-pair? _%tl6264762722%_) + (let ((_%e6264862725%_ + (gx#syntax-e _%tl6264762722%_))) + (let ((_%hd6264962729%_ (let () (declare (not safe)) - (##car _%e6238762464%_))) - (_%tl6238962471%_ + (##car _%e6264862725%_))) + (_%tl6265062732%_ (let () (declare (not safe)) - (##cdr _%e6238762464%_)))) - (if (gx#stx-pair? _%tl6238962471%_) - (let ((_%e6239062474%_ + (##cdr _%e6264862725%_)))) + (if (gx#stx-pair? _%tl6265062732%_) + (let ((_%e6265162735%_ (gx#syntax-e - _%tl6238962471%_))) - (let ((_%hd6239162478%_ + _%tl6265062732%_))) + (let ((_%hd6265262739%_ (let () (declare (not safe)) - (##car _%e6239062474%_))) - (_%tl6239262481%_ + (##car _%e6265162735%_))) + (_%tl6265362742%_ (let () (declare (not safe)) - (##cdr _%e6239062474%_)))) + (##cdr _%e6265162735%_)))) (if (gx#stx-pair/null? - _%hd6239162478%_) - (let ((_g84230_ + _%hd6265262739%_) + (let ((_g85113_ (gx#syntax-split-splice - _%hd6239162478%_ + _%hd6265262739%_ '0))) (begin - (let ((_g84231_ + (let ((_g85114_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84230_) - (##values-length _g84230_) + (if (##values? _g85113_) + (##values-length _g85113_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84231_ 2))) - (error "Context expects 2 values" _g84231_))) - (let ((_%target6239362484%_ - (let () (declare (not safe)) (##values-ref _g84230_ 0))) - (_%tl6239562487%_ - (let () (declare (not safe)) (##values-ref _g84230_ 1)))) - (if (gx#stx-null? _%tl6239562487%_) - (letrec ((_%loop6239662490%_ - (lambda (_%hd6239462494%_ _%body6240062497%_) - (if (gx#stx-pair? _%hd6239462494%_) - (let ((_%e6239762500%_ - (gx#syntax-e _%hd6239462494%_))) - (let ((_%lp-hd6239862504%_ + (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 _%e6239762500%_))) - (_%lp-tl6239962507%_ + (##car _%e6265862761%_))) + (_%lp-tl6266062768%_ (let () (declare (not safe)) - (##cdr _%e6239762500%_)))) - (_%loop6239662490%_ - _%lp-tl6239962507%_ - (cons _%lp-hd6239862504%_ - _%body6240062497%_)))) - (let ((_%body6240162510%_ - (reverse _%body6240062497%_))) - (if (gx#stx-null? _%tl6239262481%_) - ((lambda (_%L62514%_ - _%L62516%_ - _%L62517%_ - _%L62518%_ - _%L62519%_ - _%L62520%_ - _%L62521%_) + (##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 _%L62520%_ - (cons _%L62519%_ + (cons (cons _%L62781%_ + (cons _%L62780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L62518%_)) + _%L62779%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62519%_ - (cons (cons _%L62521%_ - (cons _%L62517%_ - (cons _%L62516%_ '()))) + (cons _%L62780%_ + (cons (cons _%L62782%_ + (cons _%L62778%_ + (cons _%L62777%_ '()))) (cons (cons (gx#datum->syntax '#f ':-) @@ -9564,1020 +9887,1020 @@ '#f 'let) (cons '() - (foldr (lambda (_%g6255562558%_ - _%g6255662561%_) - (cons _%g6255562558%_ - _%g6255662561%_)) + (foldr (lambda (_%g6281662819%_ + _%g6281762822%_) + (cons _%g6281662819%_ + _%g6281762822%_)) '() - _%L62514%_))) - (cons _%L62516%_ '()))) + _%L62775%_))) + (cons _%L62777%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx62059%_))) - _%body6240162510%_ - _%hd6238862468%_ - _%hd6238562458%_ - _%hd6238262448%_ - _%hd6237962438%_ - _%hd6237662428%_ - _%hd6237362418%_) - (_%g6236362407%_ - _%g6236462411%_))))))) - (_%loop6239662490%_ _%target6239362484%_ '())) - (_%g6236362407%_ _%g6236462411%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6236362407%_ - _%g6236462411%_)))) - (_%g6236362407%_ _%g6236462411%_)))) - (_%g6236362407%_ _%g6236462411%_)))) - (_%g6236362407%_ _%g6236462411%_)))) - (_%g6236362407%_ _%g6236462411%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6236362407%_ - _%g6236462411%_)))) - (_%g6236362407%_ _%g6236462411%_)))) - (_%g6236362407%_ _%g6236462411%_))))) - (_%g6236262564%_ - (list _%Interface62356%_ - _%unchecked-method-name62358%_ + (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| - _%signature62359%_) - _%signature62359%_ - _%return62360%_ - _%body62361%_)))))) - (let* ((_%g6206862107%_ - (lambda (_%g6206962103%_) + _%signature62620%_) + _%signature62620%_ + _%return62621%_ + _%body62622%_)))))) + (let* ((_%g6232962368%_ + (lambda (_%g6233062364%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6206962103%_))) - (_%g6206762352%_ - (lambda (_%g6206962111%_) - (if (gx#stx-pair? _%g6206962111%_) - (let ((_%e6207562114%_ (gx#syntax-e _%g6206962111%_))) - (let ((_%hd6207662118%_ + _%g6233062364%_))) + (_%g6232862613%_ + (lambda (_%g6233062372%_) + (if (gx#stx-pair? _%g6233062372%_) + (let ((_%e6233662375%_ (gx#syntax-e _%g6233062372%_))) + (let ((_%hd6233762379%_ (let () (declare (not safe)) - (##car _%e6207562114%_))) - (_%tl6207762121%_ + (##car _%e6233662375%_))) + (_%tl6233862382%_ (let () (declare (not safe)) - (##cdr _%e6207562114%_)))) - (if (gx#stx-pair? _%tl6207762121%_) - (let ((_%e6207862124%_ - (gx#syntax-e _%tl6207762121%_))) - (let ((_%hd6207962128%_ + (##cdr _%e6233662375%_)))) + (if (gx#stx-pair? _%tl6233862382%_) + (let ((_%e6233962385%_ + (gx#syntax-e _%tl6233862382%_))) + (let ((_%hd6234062389%_ (let () (declare (not safe)) - (##car _%e6207862124%_))) - (_%tl6208062131%_ + (##car _%e6233962385%_))) + (_%tl6234162392%_ (let () (declare (not safe)) - (##cdr _%e6207862124%_)))) - (if (gx#stx-pair? _%tl6208062131%_) - (let ((_%e6208162134%_ - (gx#syntax-e _%tl6208062131%_))) - (let ((_%hd6208262138%_ + (##cdr _%e6233962385%_)))) + (if (gx#stx-pair? _%tl6234162392%_) + (let ((_%e6234262395%_ + (gx#syntax-e _%tl6234162392%_))) + (let ((_%hd6234362399%_ (let () (declare (not safe)) - (##car _%e6208162134%_))) - (_%tl6208362141%_ + (##car _%e6234262395%_))) + (_%tl6234462402%_ (let () (declare (not safe)) - (##cdr _%e6208162134%_)))) - (if (gx#stx-pair? _%hd6208262138%_) - (let ((_%e6208462144%_ + (##cdr _%e6234262395%_)))) + (if (gx#stx-pair? _%hd6234362399%_) + (let ((_%e6234562405%_ (gx#syntax-e - _%hd6208262138%_))) - (let ((_%hd6208562148%_ + _%hd6234362399%_))) + (let ((_%hd6234662409%_ (let () (declare (not safe)) - (##car _%e6208462144%_))) - (_%tl6208662151%_ + (##car _%e6234562405%_))) + (_%tl6234762412%_ (let () (declare (not safe)) - (##cdr _%e6208462144%_)))) + (##cdr _%e6234562405%_)))) (if (gx#stx-pair? - _%tl6208662151%_) - (let ((_%e6208762154%_ + _%tl6234762412%_) + (let ((_%e6234862415%_ (gx#syntax-e - _%tl6208662151%_))) - (let ((_%hd6208862158%_ + _%tl6234762412%_))) + (let ((_%hd6234962419%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e6208762154%_))) - (_%tl6208962161%_ + (let () (declare (not safe)) (##car _%e6234862415%_))) + (_%tl6235062422%_ (let () (declare (not safe)) - (##cdr _%e6208762154%_)))) - (if (gx#stx-pair? _%tl6208962161%_) - (let ((_%e6209062164%_ (gx#syntax-e _%tl6208962161%_))) - (let ((_%hd6209162168%_ + (##cdr _%e6234862415%_)))) + (if (gx#stx-pair? _%tl6235062422%_) + (let ((_%e6235162425%_ (gx#syntax-e _%tl6235062422%_))) + (let ((_%hd6235262429%_ (let () (declare (not safe)) - (##car _%e6209062164%_))) - (_%tl6209262171%_ + (##car _%e6235162425%_))) + (_%tl6235362432%_ (let () (declare (not safe)) - (##cdr _%e6209062164%_)))) - (if (gx#stx-null? _%tl6209262171%_) - (if (gx#stx-pair/null? _%tl6208362141%_) - (let ((_g84232_ + (##cdr _%e6235162425%_)))) + (if (gx#stx-null? _%tl6235362432%_) + (if (gx#stx-pair/null? _%tl6234462402%_) + (let ((_g85115_ (gx#syntax-split-splice - _%tl6208362141%_ + _%tl6234462402%_ '0))) (begin - (let ((_g84233_ + (let ((_g85116_ (let () (declare (not safe)) - (if (##values? _g84232_) - (##values-length _g84232_) + (if (##values? _g85115_) + (##values-length _g85115_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84233_ 2))) + (##fx= _g85116_ 2))) (error "Context expects 2 values" - _g84233_))) - (let ((_%target6209362174%_ + _g85116_))) + (let ((_%target6235462435%_ (let () (declare (not safe)) - (##values-ref _g84232_ 0))) - (_%tl6209562177%_ + (##values-ref _g85115_ 0))) + (_%tl6235662438%_ (let () (declare (not safe)) - (##values-ref _g84232_ 1)))) - (if (gx#stx-null? _%tl6209562177%_) - (letrec ((_%loop6209662180%_ - (lambda (_%hd6209462184%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6210062187%_) - (if (gx#stx-pair? _%hd6209462184%_) - (let ((_%e6209762190%_ (gx#syntax-e _%hd6209462184%_))) - (let ((_%lp-hd6209862194%_ + (##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 _%e6209762190%_))) - (_%lp-tl6209962197%_ + (##car _%e6235862451%_))) + (_%lp-tl6236062458%_ (let () (declare (not safe)) - (##cdr _%e6209762190%_)))) - (_%loop6209662180%_ - _%lp-tl6209962197%_ - (cons _%lp-hd6209862194%_ _%body6210062187%_)))) - (let ((_%body6210162200%_ (reverse _%body6210062187%_))) - ((lambda (_%L62204%_ - _%L62206%_ - _%L62207%_ - _%L62208%_ - _%L62209%_) + (##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 - _%L62209%_)) - (gx#identifier? _%L62208%_)) - (let* ((_%info62239%_ - (gx#syntax-local-value _%L62209%_)) - (_%interface-name62242%_ - (let ((__obj83998 _%info62239%_)) + _%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? - __obj83998 + __obj84860 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83998 + __obj84860 '1 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83998 + __obj84860 'name)))) - (_%method-name62245%_ + (_%method-name62506%_ (gx#stx-identifier - _%L62209%_ - _%interface-name62242%_ + _%L62470%_ + _%interface-name62503%_ '"-" - _%L62208%_)) - (_%raw-method-name62248%_ + _%L62469%_)) + (_%raw-method-name62509%_ (gx#stx-identifier - _%L62209%_ + _%L62470%_ '"__" - _%method-name62245%_)) - (_%unchecked-method-name62251%_ + _%method-name62506%_)) + (_%unchecked-method-name62512%_ (gx#stx-identifier - _%L62209%_ + _%L62470%_ '"&" - _%method-name62245%_))) + _%method-name62506%_))) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx62059%_ - _%L62207%_ - _%L62206%_) - (let* ((_%g6225662275%_ - (lambda (_%g6225762271%_) + _%stx62320%_ + _%L62468%_ + _%L62467%_) + (let* ((_%g6251762536%_ + (lambda (_%g6251862532%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6225762271%_))) - (_%g6225562340%_ - (lambda (_%g6225762279%_) - (if (gx#stx-pair? _%g6225762279%_) - (let ((_%e6226162282%_ + _%g6251862532%_))) + (_%g6251662601%_ + (lambda (_%g6251862540%_) + (if (gx#stx-pair? _%g6251862540%_) + (let ((_%e6252262543%_ (gx#syntax-e - _%g6225762279%_))) - (let ((_%hd6226262286%_ + _%g6251862540%_))) + (let ((_%hd6252362547%_ (let () (declare (not safe)) - (##car _%e6226162282%_))) - (_%tl6226362289%_ + (##car _%e6252262543%_))) + (_%tl6252462550%_ (let () (declare (not safe)) - (##cdr _%e6226162282%_)))) + (##cdr _%e6252262543%_)))) (if (gx#stx-pair? - _%tl6226362289%_) - (let ((_%e6226462292%_ + _%tl6252462550%_) + (let ((_%e6252562553%_ (gx#syntax-e - _%tl6226362289%_))) - (let ((_%hd6226562296%_ + _%tl6252462550%_))) + (let ((_%hd6252662557%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6226462292%_))) - (_%tl6226662299%_ - (let () (declare (not safe)) (##cdr _%e6226462292%_)))) - (if (gx#stx-pair? _%tl6226662299%_) - (let ((_%e6226762302%_ (gx#syntax-e _%tl6226662299%_))) - (let ((_%hd6226862306%_ + (##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 _%e6226762302%_))) - (_%tl6226962309%_ + (##car _%e6252862563%_))) + (_%tl6253062570%_ (let () (declare (not safe)) - (##cdr _%e6226762302%_)))) - (if (gx#stx-null? _%tl6226962309%_) - ((lambda (_%L62312%_ _%L62314%_ _%L62315%_) + (##cdr _%e6252862563%_)))) + (if (gx#stx-null? _%tl6253062570%_) + ((lambda (_%L62573%_ _%L62575%_ _%L62576%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L62315%_ - (cons _%L62314%_ - (cons _%L62312%_ '()))))) - _%hd6226862306%_ - _%hd6226562296%_ - _%hd6226262286%_) - (_%g6225662275%_ _%g6225762279%_)))) - (_%g6225662275%_ _%g6225762279%_)))) - (_%g6225662275%_ _%g6225762279%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6225662275%_ - _%g6225762279%_))))) - (_%g6225562340%_ - (list (_%make-checked-method-def62064%_ - _%L62209%_ - _%method-name62245%_ - _%raw-method-name62248%_ - _%unchecked-method-name62251%_ - _%L62207%_ - _%L62206%_) - (_%make-raw-method-def62065%_ - _%L62209%_ - _%raw-method-name62248%_ - _%unchecked-method-name62251%_ - _%L62207%_ - _%L62206%_) - (_%make-unchecked-method-def62066%_ - _%L62209%_ - _%unchecked-method-name62251%_ - _%L62207%_ - _%L62206%_ - (foldr (lambda (_%g6234362346%_ - _%g6234462349%_) - (cons _%g6234362346%_ - _%g6234462349%_)) + (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%_)) '() - _%L62204%_)))))) - (_%g6206862107%_ _%g6206962111%_))) - _%body6210162200%_ - _%hd6209162168%_ - _%hd6208862158%_ - _%hd6208562148%_ - _%hd6207962128%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6209662180%_ - _%target6209362174%_ + _%L62465%_)))))) + (_%g6232962368%_ _%g6233062372%_))) + _%body6236262461%_ + _%hd6235262429%_ + _%hd6234962419%_ + _%hd6234662409%_ + _%hd6234062389%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6235762441%_ + _%target6235462435%_ '())) - (_%g6206862107%_ - _%g6206962111%_))))) - (_%g6206862107%_ _%g6206962111%_)) - (_%g6206862107%_ _%g6206962111%_)))) - (_%g6206862107%_ _%g6206962111%_)))) - (_%g6206862107%_ _%g6206962111%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6206862107%_ - _%g6206962111%_)))) - (_%g6206862107%_ _%g6206962111%_)))) - (_%g6206862107%_ _%g6206962111%_)))) - (_%g6206862107%_ _%g6206962111%_))))) - (_%g6206762352%_ _%stx62059%_))))) + (_%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 (_%stx63055%_) - (let* ((_%g6305863101%_ - (lambda (_%g6305963097%_) + (lambda (_%stx63316%_) + (let* ((_%g6331963362%_ + (lambda (_%g6332063358%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6305963097%_))) - (_%g6305763322%_ - (lambda (_%g6305963105%_) - (if (gx#stx-pair? _%g6305963105%_) - (let ((_%e6306663108%_ (gx#syntax-e _%g6305963105%_))) - (let ((_%hd6306763112%_ + _%g6332063358%_))) + (_%g6331863583%_ + (lambda (_%g6332063366%_) + (if (gx#stx-pair? _%g6332063366%_) + (let ((_%e6332763369%_ (gx#syntax-e _%g6332063366%_))) + (let ((_%hd6332863373%_ (let () (declare (not safe)) - (##car _%e6306663108%_))) - (_%tl6306863115%_ + (##car _%e6332763369%_))) + (_%tl6332963376%_ (let () (declare (not safe)) - (##cdr _%e6306663108%_)))) - (if (gx#stx-pair? _%tl6306863115%_) - (let ((_%e6306963118%_ - (gx#syntax-e _%tl6306863115%_))) - (let ((_%hd6307063122%_ + (##cdr _%e6332763369%_)))) + (if (gx#stx-pair? _%tl6332963376%_) + (let ((_%e6333063379%_ + (gx#syntax-e _%tl6332963376%_))) + (let ((_%hd6333163383%_ (let () (declare (not safe)) - (##car _%e6306963118%_))) - (_%tl6307163125%_ + (##car _%e6333063379%_))) + (_%tl6333263386%_ (let () (declare (not safe)) - (##cdr _%e6306963118%_)))) - (if (gx#stx-pair? _%tl6307163125%_) - (let ((_%e6307263128%_ - (gx#syntax-e _%tl6307163125%_))) - (let ((_%hd6307363132%_ + (##cdr _%e6333063379%_)))) + (if (gx#stx-pair? _%tl6333263386%_) + (let ((_%e6333363389%_ + (gx#syntax-e _%tl6333263386%_))) + (let ((_%hd6333463393%_ (let () (declare (not safe)) - (##car _%e6307263128%_))) - (_%tl6307463135%_ + (##car _%e6333363389%_))) + (_%tl6333563396%_ (let () (declare (not safe)) - (##cdr _%e6307263128%_)))) - (if (gx#stx-pair? _%hd6307363132%_) - (let ((_%e6307563138%_ + (##cdr _%e6333363389%_)))) + (if (gx#stx-pair? _%hd6333463393%_) + (let ((_%e6333663399%_ (gx#syntax-e - _%hd6307363132%_))) - (let ((_%hd6307663142%_ + _%hd6333463393%_))) + (let ((_%hd6333763403%_ (let () (declare (not safe)) - (##car _%e6307563138%_))) - (_%tl6307763145%_ + (##car _%e6333663399%_))) + (_%tl6333863406%_ (let () (declare (not safe)) - (##cdr _%e6307563138%_)))) + (##cdr _%e6333663399%_)))) (if (gx#stx-pair? - _%tl6307763145%_) - (let ((_%e6307863148%_ + _%tl6333863406%_) + (let ((_%e6333963409%_ (gx#syntax-e - _%tl6307763145%_))) - (let ((_%hd6307963152%_ + _%tl6333863406%_))) + (let ((_%hd6334063413%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6307863148%_))) - (_%tl6308063155%_ - (let () (declare (not safe)) (##cdr _%e6307863148%_)))) - (if (gx#stx-pair? _%tl6308063155%_) - (let ((_%e6308163158%_ (gx#syntax-e _%tl6308063155%_))) - (let ((_%hd6308263162%_ + (##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 _%e6308163158%_))) - (_%tl6308363165%_ + (##car _%e6334263419%_))) + (_%tl6334463426%_ (let () (declare (not safe)) - (##cdr _%e6308163158%_)))) - (if (gx#stx-pair? _%tl6308363165%_) - (let ((_%e6308463168%_ - (gx#syntax-e _%tl6308363165%_))) - (let ((_%hd6308563172%_ + (##cdr _%e6334263419%_)))) + (if (gx#stx-pair? _%tl6334463426%_) + (let ((_%e6334563429%_ + (gx#syntax-e _%tl6334463426%_))) + (let ((_%hd6334663433%_ (let () (declare (not safe)) - (##car _%e6308463168%_))) - (_%tl6308663175%_ + (##car _%e6334563429%_))) + (_%tl6334763436%_ (let () (declare (not safe)) - (##cdr _%e6308463168%_)))) - (if (gx#stx-null? _%tl6308663175%_) - (if (gx#stx-pair/null? _%tl6307463135%_) - (let ((_g84234_ + (##cdr _%e6334563429%_)))) + (if (gx#stx-null? _%tl6334763436%_) + (if (gx#stx-pair/null? _%tl6333563396%_) + (let ((_g85117_ (gx#syntax-split-splice - _%tl6307463135%_ + _%tl6333563396%_ '0))) (begin - (let ((_g84235_ + (let ((_g85118_ (let () (declare (not safe)) - (if (##values? _g84234_) + (if (##values? _g85117_) (##values-length - _g84234_) + _g85117_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84235_ 2))) + (##fx= _g85118_ 2))) (error "Context expects 2 values" - _g84235_))) - (let ((_%target6308763178%_ + _g85118_))) + (let ((_%target6334863439%_ (let () (declare (not safe)) (##values-ref - _g84234_ + _g85117_ 0))) - (_%tl6308963181%_ + (_%tl6335063442%_ (let () (declare (not safe)) (##values-ref - _g84234_ + _g85117_ 1)))) (if (gx#stx-null? - _%tl6308963181%_) - (letrec ((_%loop6309063184%_ - (lambda (_%hd6308863188%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6309463191%_) - (if (gx#stx-pair? _%hd6308863188%_) - (let ((_%e6309163194%_ - (gx#syntax-e _%hd6308863188%_))) - (let ((_%lp-hd6309263198%_ + _%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 _%e6309163194%_))) - (_%lp-tl6309363201%_ + (##car _%e6335263455%_))) + (_%lp-tl6335463462%_ (let () (declare (not safe)) - (##cdr _%e6309163194%_)))) - (_%loop6309063184%_ - _%lp-tl6309363201%_ - (cons _%lp-hd6309263198%_ - _%body6309463191%_)))) - (let ((_%body6309563204%_ - (reverse _%body6309463191%_))) - ((lambda (_%L63208%_ - _%L63210%_ - _%L63211%_ - _%L63212%_ - _%L63213%_ - _%L63214%_) - (let* ((_%checked?63246%_ - (if (gx#stx-e _%L63210%_) '#t '#f)) - (_%g6324963264%_ - (lambda (_%g6325063260%_) + (##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" - _%g6325063260%_))) - (_%g6324863318%_ - (lambda (_%g6325063268%_) - (if (gx#stx-pair? _%g6325063268%_) - (let ((_%e6325363271%_ + _%g6351163521%_))) + (_%g6350963579%_ + (lambda (_%g6351163529%_) + (if (gx#stx-pair? _%g6351163529%_) + (let ((_%e6351463532%_ (gx#syntax-e - _%g6325063268%_))) - (let ((_%hd6325463275%_ + _%g6351163529%_))) + (let ((_%hd6351563536%_ (let () (declare (not safe)) - (##car _%e6325363271%_))) - (_%tl6325563278%_ + (##car _%e6351463532%_))) + (_%tl6351663539%_ (let () (declare (not safe)) - (##cdr _%e6325363271%_)))) + (##cdr _%e6351463532%_)))) (if (gx#stx-pair? - _%tl6325563278%_) - (let ((_%e6325663281%_ + _%tl6351663539%_) + (let ((_%e6351763542%_ (gx#syntax-e - _%tl6325563278%_))) - (let ((_%hd6325763285%_ + _%tl6351663539%_))) + (let ((_%hd6351863546%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6325663281%_))) - (_%tl6325863288%_ - (let () (declare (not safe)) (##cdr _%e6325663281%_)))) - (if (gx#stx-null? _%tl6325863288%_) - ((lambda (_%L63291%_ _%L63293%_) + (##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) - _%L63293%_) + _%L63554%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L63291%_ - (foldr (lambda (_%g6330963312%_ + (cons _%L63552%_ + (foldr (lambda (_%g6357063573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6331063315%_) - (cons _%g6330963312%_ _%g6331063315%_)) + _%g6357163576%_) + (cons _%g6357063573%_ _%g6357163576%_)) '() - _%L63208%_))) + _%L63469%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd6325763285%_ - _%hd6325463275%_) - (_%g6324963264%_ _%g6325063268%_)))) - (_%g6324963264%_ _%g6325063268%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6324963264%_ - _%g6325063268%_))))) - (_%g6324863318%_ + _%hd6351863546%_ + _%hd6351563536%_) + (_%g6351063525%_ _%g6351163529%_)))) + (_%g6351063525%_ _%g6351163529%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6351063525%_ + _%g6351163529%_))))) + (_%g6350963579%_ (list (|gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - _%stx63055%_ - _%L63214%_ - _%L63213%_ - _%L63212%_ - _%L63211%_ - _%L63210%_) + _%stx63316%_ + _%L63475%_ + _%L63474%_ + _%L63473%_ + _%L63472%_ + _%L63471%_) (|gerbil/core/contract~Interface[1]#make-interface-method-contract| - _%stx63055%_ - _%L63214%_ - _%L63213%_ - _%L63212%_ - _%checked?63246%_))))) - _%body6309563204%_ - _%hd6308563172%_ - _%hd6308263162%_ - _%hd6307963152%_ - _%hd6307663142%_ - _%hd6307063122%_)))))) - (_%loop6309063184%_ _%target6308763178%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6305863101%_ - _%g6305963105%_))))) - (_%g6305863101%_ _%g6305963105%_)) - (_%g6305863101%_ _%g6305963105%_)))) - (_%g6305863101%_ _%g6305963105%_)))) - (_%g6305863101%_ _%g6305963105%_)))) - (_%g6305863101%_ _%g6305963105%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6305863101%_ - _%g6305963105%_)))) - (_%g6305863101%_ _%g6305963105%_)))) - (_%g6305863101%_ _%g6305963105%_)))) - (_%g6305863101%_ _%g6305963105%_))))) - (_%g6305763322%_ _%stx63055%_)))) + _%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 (_%$stx63327%_) - (let* ((_%g6333163374%_ - (lambda (_%g6333263370%_) + (lambda (_%$stx63588%_) + (let* ((_%g6359263635%_ + (lambda (_%g6359363631%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6333263370%_))) - (_%g6333063527%_ - (lambda (_%g6333263378%_) - (if (gx#stx-pair? _%g6333263378%_) - (let ((_%e6333963381%_ (gx#syntax-e _%g6333263378%_))) - (let ((_%hd6334063385%_ + _%g6359363631%_))) + (_%g6359163788%_ + (lambda (_%g6359363639%_) + (if (gx#stx-pair? _%g6359363639%_) + (let ((_%e6360063642%_ (gx#syntax-e _%g6359363639%_))) + (let ((_%hd6360163646%_ (let () (declare (not safe)) - (##car _%e6333963381%_))) - (_%tl6334163388%_ + (##car _%e6360063642%_))) + (_%tl6360263649%_ (let () (declare (not safe)) - (##cdr _%e6333963381%_)))) - (if (gx#stx-pair? _%tl6334163388%_) - (let ((_%e6334263391%_ - (gx#syntax-e _%tl6334163388%_))) - (let ((_%hd6334363395%_ + (##cdr _%e6360063642%_)))) + (if (gx#stx-pair? _%tl6360263649%_) + (let ((_%e6360363652%_ + (gx#syntax-e _%tl6360263649%_))) + (let ((_%hd6360463656%_ (let () (declare (not safe)) - (##car _%e6334263391%_))) - (_%tl6334463398%_ + (##car _%e6360363652%_))) + (_%tl6360563659%_ (let () (declare (not safe)) - (##cdr _%e6334263391%_)))) - (if (gx#stx-pair? _%tl6334463398%_) - (let ((_%e6334563401%_ - (gx#syntax-e _%tl6334463398%_))) - (let ((_%hd6334663405%_ + (##cdr _%e6360363652%_)))) + (if (gx#stx-pair? _%tl6360563659%_) + (let ((_%e6360663662%_ + (gx#syntax-e _%tl6360563659%_))) + (let ((_%hd6360763666%_ (let () (declare (not safe)) - (##car _%e6334563401%_))) - (_%tl6334763408%_ + (##car _%e6360663662%_))) + (_%tl6360863669%_ (let () (declare (not safe)) - (##cdr _%e6334563401%_)))) - (if (gx#stx-pair? _%hd6334663405%_) - (let ((_%e6334863411%_ + (##cdr _%e6360663662%_)))) + (if (gx#stx-pair? _%hd6360763666%_) + (let ((_%e6360963672%_ (gx#syntax-e - _%hd6334663405%_))) - (let ((_%hd6334963415%_ + _%hd6360763666%_))) + (let ((_%hd6361063676%_ (let () (declare (not safe)) - (##car _%e6334863411%_))) - (_%tl6335063418%_ + (##car _%e6360963672%_))) + (_%tl6361163679%_ (let () (declare (not safe)) - (##cdr _%e6334863411%_)))) + (##cdr _%e6360963672%_)))) (if (gx#stx-pair? - _%tl6335063418%_) - (let ((_%e6335163421%_ + _%tl6361163679%_) + (let ((_%e6361263682%_ (gx#syntax-e - _%tl6335063418%_))) - (let ((_%hd6335263425%_ + _%tl6361163679%_))) + (let ((_%hd6361363686%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6335163421%_))) - (_%tl6335363428%_ - (let () (declare (not safe)) (##cdr _%e6335163421%_)))) - (if (gx#stx-pair? _%tl6335363428%_) - (let ((_%e6335463431%_ (gx#syntax-e _%tl6335363428%_))) - (let ((_%hd6335563435%_ + (##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 _%e6335463431%_))) - (_%tl6335663438%_ + (##car _%e6361563692%_))) + (_%tl6361763699%_ (let () (declare (not safe)) - (##cdr _%e6335463431%_)))) - (if (gx#stx-pair? _%tl6335663438%_) - (let ((_%e6335763441%_ - (gx#syntax-e _%tl6335663438%_))) - (let ((_%hd6335863445%_ + (##cdr _%e6361563692%_)))) + (if (gx#stx-pair? _%tl6361763699%_) + (let ((_%e6361863702%_ + (gx#syntax-e _%tl6361763699%_))) + (let ((_%hd6361963706%_ (let () (declare (not safe)) - (##car _%e6335763441%_))) - (_%tl6335963448%_ + (##car _%e6361863702%_))) + (_%tl6362063709%_ (let () (declare (not safe)) - (##cdr _%e6335763441%_)))) - (if (gx#stx-null? _%tl6335963448%_) - (if (gx#stx-pair/null? _%tl6334763408%_) - (let ((_g84236_ + (##cdr _%e6361863702%_)))) + (if (gx#stx-null? _%tl6362063709%_) + (if (gx#stx-pair/null? _%tl6360863669%_) + (let ((_g85119_ (gx#syntax-split-splice - _%tl6334763408%_ + _%tl6360863669%_ '0))) (begin - (let ((_g84237_ + (let ((_g85120_ (let () (declare (not safe)) - (if (##values? _g84236_) + (if (##values? _g85119_) (##values-length - _g84236_) + _g85119_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84237_ 2))) + (##fx= _g85120_ 2))) (error "Context expects 2 values" - _g84237_))) - (let ((_%target6336063451%_ + _g85120_))) + (let ((_%target6362163712%_ (let () (declare (not safe)) (##values-ref - _g84236_ + _g85119_ 0))) - (_%tl6336263454%_ + (_%tl6362363715%_ (let () (declare (not safe)) (##values-ref - _g84236_ + _g85119_ 1)))) (if (gx#stx-null? - _%tl6336263454%_) - (letrec ((_%loop6336363457%_ - (lambda (_%hd6336163461%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6336763464%_) - (if (gx#stx-pair? _%hd6336163461%_) - (let ((_%e6336463467%_ - (gx#syntax-e _%hd6336163461%_))) - (let ((_%lp-hd6336563471%_ + _%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 _%e6336463467%_))) - (_%lp-tl6336663474%_ + (##car _%e6362563728%_))) + (_%lp-tl6362763735%_ (let () (declare (not safe)) - (##cdr _%e6336463467%_)))) - (_%loop6336363457%_ - _%lp-tl6336663474%_ - (cons _%lp-hd6336563471%_ - _%body6336763464%_)))) - (let ((_%body6336863477%_ - (reverse _%body6336763464%_))) - ((lambda (_%L63481%_ - _%L63483%_ - _%L63484%_ - _%L63485%_ - _%L63486%_ - _%L63487%_) + (##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 _%L63487%_ - (cons (cons _%L63486%_ - (cons _%L63485%_ - (cons _%L63484%_ + (cons _%L63748%_ + (cons (cons _%L63747%_ + (cons _%L63746%_ + (cons _%L63745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L63483%_ '())))) + (cons _%L63744%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g6351863521%_ + (foldr (lambda (_%g6377963782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6351963524%_) - (cons _%g6351863521%_ _%g6351963524%_)) + _%g6378063785%_) + (cons _%g6377963782%_ _%g6378063785%_)) '() - _%L63481%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body6336863477%_ - _%hd6335863445%_ - _%hd6335563435%_ - _%hd6335263425%_ - _%hd6334963415%_ - _%hd6334363395%_)))))) - (_%loop6336363457%_ _%target6336063451%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6333163374%_ - _%g6333263378%_))))) - (_%g6333163374%_ _%g6333263378%_)) - (_%g6333163374%_ _%g6333263378%_)))) - (_%g6333163374%_ _%g6333263378%_)))) - (_%g6333163374%_ _%g6333263378%_)))) - (_%g6333163374%_ _%g6333263378%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6333163374%_ - _%g6333263378%_)))) - (_%g6333163374%_ _%g6333263378%_)))) - (_%g6333163374%_ _%g6333263378%_)))) - (_%g6333163374%_ _%g6333263378%_))))) - (_%g6333063527%_ _%$stx63327%_)))) + _%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 (_%$stx63532%_) - (let* ((_%g6353663575%_ - (lambda (_%g6353763571%_) + (lambda (_%$stx63793%_) + (let* ((_%g6379763836%_ + (lambda (_%g6379863832%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6353763571%_))) - (_%g6353563714%_ - (lambda (_%g6353763579%_) - (if (gx#stx-pair? _%g6353763579%_) - (let ((_%e6354363582%_ (gx#syntax-e _%g6353763579%_))) - (let ((_%hd6354463586%_ + _%g6379863832%_))) + (_%g6379663975%_ + (lambda (_%g6379863840%_) + (if (gx#stx-pair? _%g6379863840%_) + (let ((_%e6380463843%_ (gx#syntax-e _%g6379863840%_))) + (let ((_%hd6380563847%_ (let () (declare (not safe)) - (##car _%e6354363582%_))) - (_%tl6354563589%_ + (##car _%e6380463843%_))) + (_%tl6380663850%_ (let () (declare (not safe)) - (##cdr _%e6354363582%_)))) - (if (gx#stx-pair? _%tl6354563589%_) - (let ((_%e6354663592%_ - (gx#syntax-e _%tl6354563589%_))) - (let ((_%hd6354763596%_ + (##cdr _%e6380463843%_)))) + (if (gx#stx-pair? _%tl6380663850%_) + (let ((_%e6380763853%_ + (gx#syntax-e _%tl6380663850%_))) + (let ((_%hd6380863857%_ (let () (declare (not safe)) - (##car _%e6354663592%_))) - (_%tl6354863599%_ + (##car _%e6380763853%_))) + (_%tl6380963860%_ (let () (declare (not safe)) - (##cdr _%e6354663592%_)))) - (if (gx#stx-pair? _%tl6354863599%_) - (let ((_%e6354963602%_ - (gx#syntax-e _%tl6354863599%_))) - (let ((_%hd6355063606%_ + (##cdr _%e6380763853%_)))) + (if (gx#stx-pair? _%tl6380963860%_) + (let ((_%e6381063863%_ + (gx#syntax-e _%tl6380963860%_))) + (let ((_%hd6381163867%_ (let () (declare (not safe)) - (##car _%e6354963602%_))) - (_%tl6355163609%_ + (##car _%e6381063863%_))) + (_%tl6381263870%_ (let () (declare (not safe)) - (##cdr _%e6354963602%_)))) - (if (gx#stx-pair? _%hd6355063606%_) - (let ((_%e6355263612%_ + (##cdr _%e6381063863%_)))) + (if (gx#stx-pair? _%hd6381163867%_) + (let ((_%e6381363873%_ (gx#syntax-e - _%hd6355063606%_))) - (let ((_%hd6355363616%_ + _%hd6381163867%_))) + (let ((_%hd6381463877%_ (let () (declare (not safe)) - (##car _%e6355263612%_))) - (_%tl6355463619%_ + (##car _%e6381363873%_))) + (_%tl6381563880%_ (let () (declare (not safe)) - (##cdr _%e6355263612%_)))) + (##cdr _%e6381363873%_)))) (if (gx#stx-pair? - _%tl6355463619%_) - (let ((_%e6355563622%_ + _%tl6381563880%_) + (let ((_%e6381663883%_ (gx#syntax-e - _%tl6355463619%_))) - (let ((_%hd6355663626%_ + _%tl6381563880%_))) + (let ((_%hd6381763887%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6355563622%_))) - (_%tl6355763629%_ - (let () (declare (not safe)) (##cdr _%e6355563622%_)))) - (if (gx#stx-pair? _%tl6355763629%_) - (let ((_%e6355863632%_ (gx#syntax-e _%tl6355763629%_))) - (let ((_%hd6355963636%_ + (##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 _%e6355863632%_))) - (_%tl6356063639%_ + (##car _%e6381963893%_))) + (_%tl6382163900%_ (let () (declare (not safe)) - (##cdr _%e6355863632%_)))) - (if (gx#stx-null? _%tl6356063639%_) - (if (gx#stx-pair/null? _%tl6355163609%_) - (let ((_g84238_ + (##cdr _%e6381963893%_)))) + (if (gx#stx-null? _%tl6382163900%_) + (if (gx#stx-pair/null? _%tl6381263870%_) + (let ((_g85121_ (gx#syntax-split-splice - _%tl6355163609%_ + _%tl6381263870%_ '0))) (begin - (let ((_g84239_ + (let ((_g85122_ (let () (declare (not safe)) - (if (##values? _g84238_) - (##values-length _g84238_) + (if (##values? _g85121_) + (##values-length _g85121_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84239_ 2))) + (##fx= _g85122_ 2))) (error "Context expects 2 values" - _g84239_))) - (let ((_%target6356163642%_ + _g85122_))) + (let ((_%target6382263903%_ (let () (declare (not safe)) - (##values-ref _g84238_ 0))) - (_%tl6356363645%_ + (##values-ref _g85121_ 0))) + (_%tl6382463906%_ (let () (declare (not safe)) - (##values-ref _g84238_ 1)))) - (if (gx#stx-null? _%tl6356363645%_) - (letrec ((_%loop6356463648%_ - (lambda (_%hd6356263652%_ - _%body6356863655%_) + (##values-ref _g85121_ 1)))) + (if (gx#stx-null? _%tl6382463906%_) + (letrec ((_%loop6382563909%_ + (lambda (_%hd6382363913%_ + _%body6382963916%_) (if (gx#stx-pair? - _%hd6356263652%_) - (let ((_%e6356563658%_ + _%hd6382363913%_) + (let ((_%e6382663919%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6356263652%_))) - (let ((_%lp-hd6356663662%_ + (gx#syntax-e _%hd6382363913%_))) + (let ((_%lp-hd6382763923%_ (let () (declare (not safe)) - (##car _%e6356563658%_))) - (_%lp-tl6356763665%_ + (##car _%e6382663919%_))) + (_%lp-tl6382863926%_ (let () (declare (not safe)) - (##cdr _%e6356563658%_)))) - (_%loop6356463648%_ - _%lp-tl6356763665%_ - (cons _%lp-hd6356663662%_ _%body6356863655%_)))) - (let ((_%body6356963668%_ (reverse _%body6356863655%_))) - ((lambda (_%L63672%_ - _%L63674%_ - _%L63675%_ - _%L63676%_ - _%L63677%_) + (##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 _%L63677%_ - (cons (cons _%L63676%_ - (cons _%L63675%_ - (cons _%L63674%_ + (cons _%L63938%_ + (cons (cons _%L63937%_ + (cons _%L63936%_ + (cons _%L63935%_ (cons '#f '())))) - (foldr (lambda (_%g6370563708%_ - _%g6370663711%_) - (cons _%g6370563708%_ - _%g6370663711%_)) + (foldr (lambda (_%g6396663969%_ + _%g6396763972%_) + (cons _%g6396663969%_ + _%g6396763972%_)) '() - _%L63672%_))))) - _%body6356963668%_ - _%hd6355963636%_ - _%hd6355663626%_ - _%hd6355363616%_ - _%hd6354763596%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6356463648%_ - _%target6356163642%_ + _%L63933%_))))) + _%body6383063929%_ + _%hd6382063897%_ + _%hd6381763887%_ + _%hd6381463877%_ + _%hd6380863857%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6382563909%_ + _%target6382263903%_ '())) - (_%g6353663575%_ - _%g6353763579%_))))) - (_%g6353663575%_ _%g6353763579%_)) - (_%g6353663575%_ _%g6353763579%_)))) - (_%g6353663575%_ _%g6353763579%_)))) - (_%g6353663575%_ _%g6353763579%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6353663575%_ - _%g6353763579%_)))) - (_%g6353663575%_ _%g6353763579%_)))) - (_%g6353663575%_ _%g6353763579%_)))) - (_%g6353663575%_ _%g6353763579%_))))) - (_%g6353563714%_ _%$stx63532%_)))) + (_%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 (_%stx63719%_) - (letrec ((_%expand63722%_ - (lambda (_%body63944%_ _%unchecked?63946%_) - (let* ((_%g6394863965%_ - (lambda (_%g6394963961%_) + (lambda (_%stx63980%_) + (letrec ((_%expand63983%_ + (lambda (_%body64205%_ _%unchecked?64207%_) + (let* ((_%g6420964226%_ + (lambda (_%g6421064222%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6394963961%_))) - (_%g6394764196%_ - (lambda (_%g6394963969%_) - (if (gx#stx-pair/null? _%g6394963969%_) - (let ((_g84240_ + _%g6421064222%_))) + (_%g6420864457%_ + (lambda (_%g6421064230%_) + (if (gx#stx-pair/null? _%g6421064230%_) + (let ((_g85123_ (gx#syntax-split-splice - _%g6394963969%_ + _%g6421064230%_ '0))) (begin - (let ((_g84241_ + (let ((_g85124_ (let () (declare (not safe)) - (if (##values? _g84240_) - (##values-length _g84240_) + (if (##values? _g85123_) + (##values-length _g85123_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84241_ 2))) + (##fx= _g85124_ 2))) (error "Context expects 2 values" - _g84241_))) - (let ((_%target6395163972%_ + _g85124_))) + (let ((_%target6421264233%_ (let () (declare (not safe)) - (##values-ref _g84240_ 0))) - (_%tl6395363975%_ + (##values-ref _g85123_ 0))) + (_%tl6421464236%_ (let () (declare (not safe)) - (##values-ref _g84240_ 1)))) - (if (gx#stx-null? _%tl6395363975%_) - (letrec ((_%loop6395463978%_ - (lambda (_%hd6395263982%_ - _%id6395863985%_) + (##values-ref _g85123_ 1)))) + (if (gx#stx-null? _%tl6421464236%_) + (letrec ((_%loop6421564239%_ + (lambda (_%hd6421364243%_ + _%id6421964246%_) (if (gx#stx-pair? - _%hd6395263982%_) - (let ((_%e6395563988%_ + _%hd6421364243%_) + (let ((_%e6421664249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6395263982%_))) - (let ((_%lp-hd6395663992%_ + (gx#syntax-e _%hd6421364243%_))) + (let ((_%lp-hd6421764253%_ (let () (declare (not safe)) - (##car _%e6395563988%_))) - (_%lp-tl6395763995%_ + (##car _%e6421664249%_))) + (_%lp-tl6421864256%_ (let () (declare (not safe)) - (##cdr _%e6395563988%_)))) - (_%loop6395463978%_ - _%lp-tl6395763995%_ - (cons _%lp-hd6395663992%_ _%id6395863985%_)))) - (let ((_%id6395963998%_ (reverse _%id6395863985%_))) - ((lambda (_%L64002%_) + (##cdr _%e6421664249%_)))) + (_%loop6421564239%_ + _%lp-tl6421864256%_ + (cons _%lp-hd6421764253%_ _%id6421964246%_)))) + (let ((_%id6422064259%_ (reverse _%id6421964246%_))) + ((lambda (_%L64263%_) (if (gx#identifier-list? - (foldr (lambda (_%g6401564018%_ _%g6401664021%_) - (cons _%g6401564018%_ _%g6401664021%_)) + (foldr (lambda (_%g6427664279%_ _%g6427764282%_) + (cons _%g6427664279%_ _%g6427764282%_)) '() - _%L64002%_)) - (let _%lp64024%_ ((_%rest64027%_ - (foldr (lambda (_%g6418764190%_ + _%L64263%_)) + (let _%lp64285%_ ((_%rest64288%_ + (foldr (lambda (_%g6444864451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6418864193%_) - (cons _%g6418764190%_ _%g6418864193%_)) + _%g6444964454%_) + (cons _%g6444864451%_ _%g6444964454%_)) '() - _%L64002%_)) + _%L64263%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%ids64029%_ '())) - (let* ((_%__stx8202982030%_ _%rest64027%_) - (_%g6403264044%_ + (_%ids64290%_ '())) + (let* ((_%__stx8279582796%_ _%rest64288%_) + (_%g6429364305%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8202982030%_)))) - (let ((_%__kont8203282033%_ - (lambda (_%L64072%_ _%L64074%_) - (let ((_%info64089%_ + _%__stx8279582796%_)))) + (let ((_%__kont8279882799%_ + (lambda (_%L64333%_ _%L64335%_) + (let ((_%info64350%_ (gx#syntax-local-value - _%L64074%_ + _%L64335%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info64089%_)) + _%info64350%_)) '#!void (gx#raise-syntax-error '#f '"not an interface type" - _%stx63719%_ - _%L64074%_)) - (let* ((_%info6409164104%_ - _%info64089%_) - (_%E6409364110%_ + _%stx63980%_ + _%L64335%_)) + (let* ((_%info6435264365%_ + _%info64350%_) + (_%E6435464371%_ (lambda () (error '"No clause matching" - _%info6409164104%_ + _%info6435264365%_ '((interface-info ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< instance-type: @@ -10598,492 +10921,492 @@ unchecked-impl))) (void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K6409464124%_ - (lambda (_%unchecked-impl64114%_ - _%method-impl64116%_ - _%satisfies-predicate64117%_ - _%predicate64118%_ - _%try-constructor64119%_ - _%constructor64120%_ - _%descriptor64121%_ - _%type64122%_) - (_%lp64024%_ - _%L64072%_ - (cons _%L64074%_ - (cons _%type64122%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%descriptor64121%_ - (cons _%constructor64120%_ - (cons _%try-constructor64119%_ - (cons _%predicate64118%_ - (cons _%satisfies-predicate64117%_ + (_%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 - _%ids64029%_ - (if _%unchecked?63946%_ - _%unchecked-impl64114%_ + _%ids64290%_ + (if _%unchecked?64207%_ + _%unchecked-impl64375%_ '())) - _%method-impl64116%_)))))))))))) + _%method-impl64377%_)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info6409164104%_)) - (let* ((_%e6409564128%_ + _%info6435264365%_)) + (let* ((_%e6435664389%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'instance-type))) - (_%type64132%_ - _%e6409564128%_) - (_%e6409664135%_ + (_%type64393%_ + _%e6435664389%_) + (_%e6435764396%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'interface-descriptor))) - (_%descriptor64139%_ - _%e6409664135%_) - (_%e6409764142%_ + (_%descriptor64400%_ + _%e6435764396%_) + (_%e6435864403%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'instance-constructor))) - (_%constructor64146%_ - _%e6409764142%_) - (_%e6409864149%_ + (_%constructor64407%_ + _%e6435864403%_) + (_%e6435964410%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'instance-try-constructor))) - (_%try-constructor64153%_ - _%e6409864149%_) - (_%e6409964156%_ + (_%try-constructor64414%_ + _%e6435964410%_) + (_%e6436064417%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'instance-predicate))) - (_%predicate64160%_ - _%e6409964156%_) - (_%e6410064163%_ + (_%predicate64421%_ + _%e6436064417%_) + (_%e6436164424%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'instance-satisfies-predicate))) - (_%satisfies-predicate64167%_ - _%e6410064163%_) - (_%e6410164170%_ + (_%satisfies-predicate64428%_ + _%e6436164424%_) + (_%e6436264431%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'implementation-methods))) - (_%method-impl64174%_ - _%e6410164170%_) - (_%e6410264177%_ + (_%method-impl64435%_ + _%e6436264431%_) + (_%e6436364438%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6409164104%_ + _%info6435264365%_ 'unchecked-implementation-methods))) - (_%unchecked-impl64181%_ - _%e6410264177%_)) - (_%K6409464124%_ - _%unchecked-impl64181%_ - _%method-impl64174%_ - _%satisfies-predicate64167%_ - _%predicate64160%_ - _%try-constructor64153%_ - _%constructor64146%_ - _%descriptor64139%_ - _%type64132%_)) - (_%E6409364110%_)))))) - (_%__kont8203482035%_ + (_%unchecked-impl64442%_ + _%e6436364438%_)) + (_%K6435564385%_ + _%unchecked-impl64442%_ + _%method-impl64435%_ + _%satisfies-predicate64428%_ + _%predicate64421%_ + _%try-constructor64414%_ + _%constructor64407%_ + _%descriptor64400%_ + _%type64393%_)) + (_%E6435464371%_)))))) + (_%__kont8280082801%_ (lambda () - (cons 'begin: _%ids64029%_)))) - (if (gx#stx-pair? _%__stx8202982030%_) - (let ((_%e6403664062%_ + (cons 'begin: _%ids64290%_)))) + (if (gx#stx-pair? _%__stx8279582796%_) + (let ((_%e6429764323%_ (gx#syntax-e - _%__stx8202982030%_))) - (let ((_%tl6403864069%_ + _%__stx8279582796%_))) + (let ((_%tl6429964330%_ (let () (declare (not safe)) - (##cdr _%e6403664062%_))) - (_%hd6403764066%_ + (##cdr _%e6429764323%_))) + (_%hd6429864327%_ (let () (declare (not safe)) - (##car _%e6403664062%_)))) - (_%__kont8203282033%_ - _%tl6403864069%_ - _%hd6403764066%_))) - (_%__kont8203482035%_))))) - (_%g6394863965%_ _%g6394963969%_))) - _%id6395963998%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6395463978%_ - _%target6395163972%_ + (##car _%e6429764323%_)))) + (_%__kont8279882799%_ + _%tl6429964330%_ + _%hd6429864327%_))) + (_%__kont8280082801%_))))) + (_%g6420964226%_ _%g6421064230%_))) + _%id6422064259%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6421564239%_ + _%target6421264233%_ '())) - (_%g6394863965%_ - _%g6394963969%_))))) - (_%g6394863965%_ _%g6394963969%_))))) - (_%g6394764196%_ _%body63944%_))))) - (let* ((_%__stx8204582046%_ _%stx63719%_) - (_%g6372663767%_ + (_%g6420964226%_ + _%g6421064230%_))))) + (_%g6420964226%_ _%g6421064230%_))))) + (_%g6420864457%_ _%body64205%_))))) + (let* ((_%__stx8281182812%_ _%stx63980%_) + (_%g6398764028%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8204582046%_)))) - (let ((_%__kont8204882049%_ - (lambda (_%L63910%_ _%L63912%_) - (_%expand63722%_ - (foldr (lambda (_%g6393163934%_ _%g6393263937%_) - (cons _%g6393163934%_ _%g6393263937%_)) + _%__stx8281182812%_)))) + (let ((_%__kont8281482815%_ + (lambda (_%L64171%_ _%L64173%_) + (_%expand63983%_ + (foldr (lambda (_%g6419264195%_ _%g6419364198%_) + (cons _%g6419264195%_ _%g6419364198%_)) '() - _%L63910%_) - (gx#stx-e _%L63912%_)))) - (_%__kont8205282053%_ - (lambda (_%L63814%_) - (_%expand63722%_ - (foldr (lambda (_%g6383063833%_ _%g6383163836%_) - (cons _%g6383063833%_ _%g6383163836%_)) + _%L64171%_) + (gx#stx-e _%L64173%_)))) + (_%__kont8281882819%_ + (lambda (_%L64075%_) + (_%expand63983%_ + (foldr (lambda (_%g6409164094%_ _%g6409264097%_) + (cons _%g6409164094%_ _%g6409264097%_)) '() - _%L63814%_) + _%L64075%_) '#t)))) - (let* ((_%__match8210282103%_ - (lambda (_%e6375063774%_ - _%hd6375163778%_ - _%tl6375263781%_ - _%__splice8205482055%_ - _%target6375363784%_ - _%tl6375563787%_) - (letrec ((_%loop6375663790%_ - (lambda (_%hd6375463794%_ - _%body6376063797%_) - (if (gx#stx-pair? _%hd6375463794%_) - (let ((_%e6375763800%_ + (let* ((_%__match8286882869%_ + (lambda (_%e6401164035%_ + _%hd6401264039%_ + _%tl6401364042%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) + (letrec ((_%loop6401764051%_ + (lambda (_%hd6401564055%_ + _%body6402164058%_) + (if (gx#stx-pair? _%hd6401564055%_) + (let ((_%e6401864061%_ (gx#syntax-e - _%hd6375463794%_))) - (let ((_%lp-tl6375963807%_ + _%hd6401564055%_))) + (let ((_%lp-tl6402064068%_ (let () (declare (not safe)) - (##cdr _%e6375763800%_))) - (_%lp-hd6375863804%_ + (##cdr _%e6401864061%_))) + (_%lp-hd6401964065%_ (let () (declare (not safe)) - (##car _%e6375763800%_)))) - (_%loop6375663790%_ - _%lp-tl6375963807%_ - (cons _%lp-hd6375863804%_ - _%body6376063797%_)))) - (let ((_%body6376163810%_ - (reverse _%body6376063797%_))) - (_%__kont8205282053%_ - _%body6376163810%_)))))) - (_%loop6375663790%_ _%target6375363784%_ '())))) - (_%__match8208882089%_ - (lambda (_%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%e6373363856%_ - _%hd6373463860%_ - _%tl6373563863%_ - _%e6373663866%_ - _%e6373763870%_ - _%hd6373863874%_ - _%tl6373963877%_ - _%__splice8205082051%_ - _%target6374063880%_ - _%tl6374263883%_) - (letrec ((_%loop6374363886%_ - (lambda (_%hd6374163890%_ - _%body6374763893%_) - (if (gx#stx-pair? _%hd6374163890%_) - (let ((_%e6374463896%_ + (##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 - _%hd6374163890%_))) - (let ((_%lp-tl6374663903%_ + _%hd6400264151%_))) + (let ((_%lp-tl6400764164%_ (let () (declare (not safe)) - (##cdr _%e6374463896%_))) - (_%lp-hd6374563900%_ + (##cdr _%e6400564157%_))) + (_%lp-hd6400664161%_ (let () (declare (not safe)) - (##car _%e6374463896%_)))) - (_%loop6374363886%_ - _%lp-tl6374663903%_ - (cons _%lp-hd6374563900%_ - _%body6374763893%_)))) - (let ((_%body6374863906%_ - (reverse _%body6374763893%_))) - (_%__kont8204882049%_ - _%body6374863906%_ - _%hd6373863874%_)))))) - (_%loop6374363886%_ _%target6374063880%_ '()))))) - (if (gx#stx-pair? _%__stx8204582046%_) - (let ((_%e6373063846%_ (gx#syntax-e _%__stx8204582046%_))) - (let ((_%tl6373263853%_ + (##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 _%e6373063846%_))) - (_%hd6373163850%_ + (##cdr _%e6399164107%_))) + (_%hd6399264111%_ (let () (declare (not safe)) - (##car _%e6373063846%_)))) - (if (gx#stx-pair? _%tl6373263853%_) - (let ((_%e6373363856%_ - (gx#syntax-e _%tl6373263853%_))) - (let ((_%tl6373563863%_ + (##car _%e6399164107%_)))) + (if (gx#stx-pair? _%tl6399364114%_) + (let ((_%e6399464117%_ + (gx#syntax-e _%tl6399364114%_))) + (let ((_%tl6399664124%_ (let () (declare (not safe)) - (##cdr _%e6373363856%_))) - (_%hd6373463860%_ + (##cdr _%e6399464117%_))) + (_%hd6399564121%_ (let () (declare (not safe)) - (##car _%e6373363856%_)))) - (if (gx#stx-datum? _%hd6373463860%_) - (let ((_%e6373663866%_ - (gx#stx-e _%hd6373463860%_))) - (if (equal? _%e6373663866%_ 'unchecked:) - (if (gx#stx-pair? _%tl6373563863%_) - (let ((_%e6373763870%_ + (##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 - _%tl6373563863%_))) - (let ((_%tl6373963877%_ + _%tl6399664124%_))) + (let ((_%tl6400064138%_ (let () (declare (not safe)) - (##cdr _%e6373763870%_))) - (_%hd6373863874%_ + (##cdr _%e6399864131%_))) + (_%hd6399964135%_ (let () (declare (not safe)) - (##car _%e6373763870%_)))) + (##car _%e6399864131%_)))) (if (gx#stx-pair/null? - _%tl6373963877%_) - (let ((_%__splice8205082051%_ + _%tl6400064138%_) + (let ((_%__splice8281682817%_ (gx#syntax-split-splice - _%tl6373963877%_ + _%tl6400064138%_ '0))) - (let ((_%tl6374263883%_ + (let ((_%tl6400364144%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8205082051%_ '1))) - (_%target6374063880%_ + (##vector-ref _%__splice8281682817%_ '1))) + (_%target6400164141%_ (let () (declare (not safe)) - (##vector-ref _%__splice8205082051%_ '0)))) - (if (gx#stx-null? _%tl6374263883%_) - (_%__match8208882089%_ - _%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%e6373363856%_ - _%hd6373463860%_ - _%tl6373563863%_ - _%e6373663866%_ - _%e6373763870%_ - _%hd6373863874%_ - _%tl6373963877%_ - _%__splice8205082051%_ - _%target6374063880%_ - _%tl6374263883%_) - (if (gx#stx-pair/null? _%tl6373263853%_) - (let ((_%__splice8205482055%_ + (##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 - _%tl6373263853%_ + _%tl6399364114%_ '0))) - (let ((_%tl6375563787%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '1))) - (_%target6375363784%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '0)))) - (if (gx#stx-null? _%tl6375563787%_) - (_%__match8210282103%_ - _%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%__splice8205482055%_ - _%target6375363784%_ - _%tl6375563787%_) + (if (gx#stx-null? _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6372663767%_))))) - (let () (declare (not safe)) (_%g6372663767%_)))))) - (if (gx#stx-pair/null? _%tl6373263853%_) - (let ((_%__splice8205482055%_ - (gx#syntax-split-splice _%tl6373263853%_ '0))) - (let ((_%tl6375563787%_ + (_%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 _%__splice8205482055%_ '1))) - (_%target6375363784%_ + (##vector-ref _%__splice8282082821%_ '1))) + (_%target6401464045%_ (let () (declare (not safe)) - (##vector-ref _%__splice8205482055%_ '0)))) - (if (gx#stx-null? _%tl6375563787%_) - (_%__match8210282103%_ - _%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%__splice8205482055%_ - _%target6375363784%_ - _%tl6375563787%_) - (let () (declare (not safe)) (_%g6372663767%_))))) - (let () (declare (not safe)) (_%g6372663767%_)))))) + (##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? - _%tl6373263853%_) - (let ((_%__splice8205482055%_ + _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6373263853%_ + _%tl6399364114%_ '0))) - (let ((_%tl6375563787%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '1))) - (_%target6375363784%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '0)))) (if (gx#stx-null? - _%tl6375563787%_) - (_%__match8210282103%_ - _%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%__splice8205482055%_ - _%target6375363784%_ - _%tl6375563787%_) + _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6372663767%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6372663767%_)))) + (_%g6398764028%_)))) (if (gx#stx-pair/null? - _%tl6373263853%_) - (let ((_%__splice8205482055%_ + _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6373263853%_ + _%tl6399364114%_ '0))) - (let ((_%tl6375563787%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '1))) - (_%target6375363784%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '0)))) (if (gx#stx-null? - _%tl6375563787%_) - (_%__match8210282103%_ - _%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%__splice8205482055%_ - _%target6375363784%_ - _%tl6375563787%_) + _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6372663767%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6372663767%_))))) - (if (gx#stx-pair/null? _%tl6373263853%_) - (let ((_%__splice8205482055%_ + (_%g6398764028%_))))) + (if (gx#stx-pair/null? _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6373263853%_ + _%tl6399364114%_ '0))) - (let ((_%tl6375563787%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '1))) - (_%target6375363784%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '0)))) (if (gx#stx-null? - _%tl6375563787%_) - (_%__match8210282103%_ - _%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%__splice8205482055%_ - _%target6375363784%_ - _%tl6375563787%_) + _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6372663767%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6372663767%_)))))) - (if (gx#stx-pair/null? _%tl6373263853%_) - (let ((_%__splice8205482055%_ + (_%g6398764028%_)))))) + (if (gx#stx-pair/null? _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6373263853%_ + _%tl6399364114%_ '0))) - (let ((_%tl6375563787%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '1))) - (_%target6375363784%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8205482055%_ + _%__splice8282082821%_ '0)))) - (if (gx#stx-null? _%tl6375563787%_) - (_%__match8210282103%_ - _%e6373063846%_ - _%hd6373163850%_ - _%tl6373263853%_ - _%__splice8205482055%_ - _%target6375363784%_ - _%tl6375563787%_) + (if (gx#stx-null? _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6372663767%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6372663767%_)))))) - (let () (declare (not safe)) (_%g6372663767%_)))))))))))) + (_%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 4744fe9b0..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]#_g84248_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85131_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84255_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85138_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84258_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85141_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84259_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85142_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84267_| + (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]#_g84268_| + (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]#_g84269_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85152_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84271_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85154_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84272_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85155_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84273_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85156_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84275_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85158_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84276_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85159_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84277_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85160_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84279_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85162_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84280_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85163_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84281_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85164_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84282_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85165_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84283_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85166_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84284_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85167_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84285_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85168_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84286_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85169_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84287_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85170_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84288_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85171_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84289_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85172_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84290_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85173_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84291_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85174_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84292_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85175_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84293_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85176_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84294_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85177_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84295_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85178_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84296_| + (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 (_%formals64204%_) - (let _%lp64207%_ ((_%rest64210%_ _%formals64204%_)) - (let* ((_%__stx8210582106%_ _%rest64210%_) - (_%g6421964288%_ + (lambda (_%formals64465%_) + (let _%lp64468%_ ((_%rest64471%_ _%formals64465%_)) + (let* ((_%__stx8287182872%_ _%rest64471%_) + (_%g6448064549%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8210582106%_)))) - (let ((_%__kont8210882109%_ - (lambda (_%L64589%_ _%L64591%_) (_%lp64207%_ _%L64589%_))) - (_%__kont8211082111%_ - (lambda (_%L64555%_ _%L64557%_) (_%lp64207%_ _%L64555%_))) - (_%__kont8211282113%_ - (lambda (_%L64501%_ _%L64503%_ _%L64504%_) '#t)) - (_%__kont8211482115%_ - (lambda (_%L64457%_ _%L64459%_ _%L64460%_) - (_%lp64207%_ _%L64457%_))) - (_%__kont8211682117%_ - (lambda (_%L64409%_ _%L64411%_ _%L64412%_) - (_%lp64207%_ _%L64409%_))) - (_%__kont8211882119%_ - (lambda (_%L64336%_ _%L64338%_ _%L64339%_ _%L64340%_) '#t)) - (_%__kont8212082121%_ (lambda () '#f))) - (let* ((_%__match8221682217%_ - (lambda (_%e6427464306%_ - _%hd6427564310%_ - _%tl6427664313%_ - _%e6427764316%_ - _%hd6427864320%_ - _%tl6427964323%_ - _%e6428064326%_ - _%hd6428164330%_ - _%tl6428264333%_) - (let ((_%L64336%_ _%tl6427964323%_) - (_%L64338%_ _%tl6428264333%_) - (_%L64339%_ _%hd6428164330%_) - (_%L64340%_ _%hd6427564310%_)) - (if (and (gx#stx-keyword? _%L64340%_) - (gx#identifier? _%L64339%_) + _%__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?| - _%L64338%_))) - (_%__kont8211882119%_ - _%L64336%_ - _%L64338%_ - _%L64339%_ - _%L64340%_) - (_%__kont8212082121%_))))) - (_%__match8219882199%_ - (lambda (_%e6425864369%_ - _%hd6425964373%_ - _%tl6426064376%_ - _%e6426164379%_ - _%hd6426264383%_ - _%tl6426364386%_ - _%e6426464389%_ - _%hd6426564393%_ - _%tl6426664396%_ - _%e6426764399%_ - _%hd6426864403%_ - _%tl6426964406%_) - (let ((_%L64409%_ _%tl6426364386%_) - (_%L64411%_ _%hd6426564393%_) - (_%L64412%_ _%hd6425964373%_)) - (if (and (gx#stx-keyword? _%L64412%_) - (gx#identifier? _%L64411%_)) - (_%__kont8211682117%_ - _%L64409%_ - _%L64411%_ - _%L64412%_) - (_%__match8221682217%_ - _%e6425864369%_ - _%hd6425964373%_ - _%tl6426064376%_ - _%e6426164379%_ - _%hd6426264383%_ - _%tl6426364386%_ - _%e6426464389%_ - _%hd6426564393%_ - _%tl6426664396%_))))) - (_%__match8217282173%_ - (lambda (_%e6424964437%_ - _%hd6425064441%_ - _%tl6425164444%_ - _%e6425264447%_ - _%hd6425364451%_ - _%tl6425464454%_) - (let ((_%L64457%_ _%tl6425464454%_) - (_%L64459%_ _%hd6425364451%_) - (_%L64460%_ _%hd6425064441%_)) - (if (and (gx#stx-keyword? _%L64460%_) - (gx#identifier? _%L64459%_)) - (_%__kont8211482115%_ - _%L64457%_ - _%L64459%_ - _%L64460%_) - (if (gx#stx-pair? _%hd6425364451%_) - (let ((_%e6426464389%_ - (gx#syntax-e _%hd6425364451%_))) - (let ((_%tl6426664396%_ + _%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 _%e6426464389%_))) - (_%hd6426564393%_ + (##cdr _%e6452564650%_))) + (_%hd6452664654%_ (let () (declare (not safe)) - (##car _%e6426464389%_)))) - (if (gx#stx-pair? _%tl6426664396%_) - (let ((_%e6426764399%_ + (##car _%e6452564650%_)))) + (if (gx#stx-pair? _%tl6452764657%_) + (let ((_%e6452864660%_ (gx#syntax-e - _%tl6426664396%_))) - (let ((_%tl6426964406%_ + _%tl6452764657%_))) + (let ((_%tl6453064667%_ (let () (declare (not safe)) - (##cdr _%e6426764399%_))) - (_%hd6426864403%_ + (##cdr _%e6452864660%_))) + (_%hd6452964664%_ (let () (declare (not safe)) - (##car _%e6426764399%_)))) + (##car _%e6452864660%_)))) (if (gx#stx-null? - _%tl6426964406%_) - (_%__match8219882199%_ - _%e6424964437%_ - _%hd6425064441%_ - _%tl6425164444%_ - _%e6425264447%_ - _%hd6425364451%_ - _%tl6425464454%_ - _%e6426464389%_ - _%hd6426564393%_ - _%tl6426664396%_ - _%e6426764399%_ - _%hd6426864403%_ - _%tl6426964406%_) - (_%__match8221682217%_ - _%e6424964437%_ - _%hd6425064441%_ - _%tl6425164444%_ - _%e6425264447%_ - _%hd6425364451%_ - _%tl6425464454%_ - _%e6426464389%_ - _%hd6426564393%_ - _%tl6426664396%_)))) - (_%__match8221682217%_ - _%e6424964437%_ - _%hd6425064441%_ - _%tl6425164444%_ - _%e6425264447%_ - _%hd6425364451%_ - _%tl6425464454%_ - _%e6426464389%_ - _%hd6426564393%_ - _%tl6426664396%_)))) - (_%__kont8212082121%_)))))) - (_%__match8216082161%_ - (lambda (_%e6424064481%_ - _%hd6424164485%_ - _%tl6424264488%_ - _%e6424364491%_ - _%hd6424464495%_ - _%tl6424564498%_) - (let ((_%L64501%_ _%tl6424264488%_) - (_%L64503%_ _%tl6424564498%_) - (_%L64504%_ _%hd6424464495%_)) - (if (and (gx#identifier? _%L64504%_) + _%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?| - _%L64503%_))) - (_%__kont8211282113%_ - _%L64501%_ - _%L64503%_ - _%L64504%_) - (if (gx#stx-pair? _%tl6424264488%_) - (let ((_%e6425264447%_ - (gx#syntax-e _%tl6424264488%_))) - (let ((_%tl6425464454%_ + _%L64764%_))) + (_%__kont8287882879%_ + _%L64762%_ + _%L64764%_ + _%L64765%_) + (if (gx#stx-pair? _%tl6450364749%_) + (let ((_%e6451364708%_ + (gx#syntax-e _%tl6450364749%_))) + (let ((_%tl6451564715%_ (let () (declare (not safe)) - (##cdr _%e6425264447%_))) - (_%hd6425364451%_ + (##cdr _%e6451364708%_))) + (_%hd6451464712%_ (let () (declare (not safe)) - (##car _%e6425264447%_)))) - (_%__match8217282173%_ - _%e6424064481%_ - _%hd6424164485%_ - _%tl6424264488%_ - _%e6425264447%_ - _%hd6425364451%_ - _%tl6425464454%_))) - (_%__kont8212082121%_)))))) - (_%__match8212882129%_ - (lambda (_%e6422364579%_ - _%hd6422464583%_ - _%tl6422564586%_) - (let ((_%L64589%_ _%tl6422564586%_) - (_%L64591%_ _%hd6422464583%_)) - (if (gx#identifier? _%L64591%_) - (_%__kont8210882109%_ _%L64589%_ _%L64591%_) - (if (gx#stx-pair? _%hd6422464583%_) - (let ((_%e6423164535%_ - (gx#syntax-e _%hd6422464583%_))) - (let ((_%tl6423364542%_ + (##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 _%e6423164535%_))) - (_%hd6423264539%_ + (##cdr _%e6449264796%_))) + (_%hd6449364800%_ (let () (declare (not safe)) - (##car _%e6423164535%_)))) - (if (gx#stx-pair? _%tl6423364542%_) - (let ((_%e6423464545%_ + (##car _%e6449264796%_)))) + (if (gx#stx-pair? _%tl6449464803%_) + (let ((_%e6449564806%_ (gx#syntax-e - _%tl6423364542%_))) - (let ((_%tl6423664552%_ + _%tl6449464803%_))) + (let ((_%tl6449764813%_ (let () (declare (not safe)) - (##cdr _%e6423464545%_))) - (_%hd6423564549%_ + (##cdr _%e6449564806%_))) + (_%hd6449664810%_ (let () (declare (not safe)) - (##car _%e6423464545%_)))) + (##car _%e6449564806%_)))) (if (gx#stx-null? - _%tl6423664552%_) - (_%__kont8211082111%_ - _%tl6422564586%_ - _%hd6423264539%_) - (_%__match8216082161%_ - _%e6422364579%_ - _%hd6422464583%_ - _%tl6422564586%_ - _%e6423164535%_ - _%hd6423264539%_ - _%tl6423364542%_)))) - (_%__match8216082161%_ - _%e6422364579%_ - _%hd6422464583%_ - _%tl6422564586%_ - _%e6423164535%_ - _%hd6423264539%_ - _%tl6423364542%_)))) - (if (gx#stx-pair? _%tl6422564586%_) - (let ((_%e6425264447%_ - (gx#syntax-e _%tl6422564586%_))) - (let ((_%tl6425464454%_ + _%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 _%e6425264447%_))) - (_%hd6425364451%_ + (##cdr _%e6451364708%_))) + (_%hd6451464712%_ (let () (declare (not safe)) - (##car _%e6425264447%_)))) - (_%__match8217282173%_ - _%e6422364579%_ - _%hd6422464583%_ - _%tl6422564586%_ - _%e6425264447%_ - _%hd6425364451%_ - _%tl6425464454%_))) - (_%__kont8212082121%_)))))))) - (if (gx#stx-pair? _%__stx8210582106%_) - (let ((_%e6422364579%_ (gx#syntax-e _%__stx8210582106%_))) - (let ((_%tl6422564586%_ + (##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 _%e6422364579%_))) - (_%hd6422464583%_ + (##cdr _%e6448464840%_))) + (_%hd6448564844%_ (let () (declare (not safe)) - (##car _%e6422364579%_)))) - (_%__match8212882129%_ - _%e6422364579%_ - _%hd6422464583%_ - _%tl6422564586%_))) - (_%__kont8212082121%_)))))))) + (##car _%e6448464840%_)))) + (_%__match8289482895%_ + _%e6448464840%_ + _%hd6448564844%_ + _%tl6448664847%_))) + (_%__kont8288682887%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| - (lambda (_%stx64606%_) - (letrec ((_%make-definition64609%_ - (lambda (_%id65707%_ - _%args65709%_ - _%return65710%_ - _%body65711%_) + (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 - _%stx64606%_ - _%args65709%_ - _%return65710%_)) + _%stx64867%_ + _%args65970%_ + _%return65971%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-has-keywords?| - _%args65709%_)) - (_%make-keyword-def64611%_ - _%id65707%_ - _%args65709%_ - _%return65710%_ - _%body65711%_) - (let* ((_%unchecked-id65713%_ + _%args65970%_)) + (_%make-keyword-def64872%_ + _%id65968%_ + _%args65970%_ + _%return65971%_ + _%body65972%_) + (let* ((_%unchecked-id65974%_ (gx#stx-identifier - _%id65707%_ + _%id65968%_ '"__" - _%id65707%_)) - (_%g6571665731%_ - (lambda (_%g6571765727%_) + _%id65968%_)) + (_%g6597765992%_ + (lambda (_%g6597865988%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6571765727%_))) - (_%g6571565777%_ - (lambda (_%g6571765735%_) - (if (gx#stx-pair? _%g6571765735%_) - (let ((_%e6572065738%_ - (gx#syntax-e _%g6571765735%_))) - (let ((_%hd6572165742%_ + _%g6597865988%_))) + (_%g6597666038%_ + (lambda (_%g6597865996%_) + (if (gx#stx-pair? _%g6597865996%_) + (let ((_%e6598165999%_ + (gx#syntax-e _%g6597865996%_))) + (let ((_%hd6598266003%_ (let () (declare (not safe)) - (##car _%e6572065738%_))) - (_%tl6572265745%_ + (##car _%e6598165999%_))) + (_%tl6598366006%_ (let () (declare (not safe)) - (##cdr _%e6572065738%_)))) - (if (gx#stx-pair? _%tl6572265745%_) - (let ((_%e6572365748%_ + (##cdr _%e6598165999%_)))) + (if (gx#stx-pair? _%tl6598366006%_) + (let ((_%e6598466009%_ (gx#syntax-e - _%tl6572265745%_))) - (let ((_%hd6572465752%_ + _%tl6598366006%_))) + (let ((_%hd6598566013%_ (let () (declare (not safe)) - (##car _%e6572365748%_))) - (_%tl6572565755%_ + (##car _%e6598466009%_))) + (_%tl6598666016%_ (let () (declare (not safe)) - (##cdr _%e6572365748%_)))) + (##cdr _%e6598466009%_)))) (if (gx#stx-null? - _%tl6572565755%_) - ((lambda (_%L65758%_ - _%L65760%_) + _%tl6598666016%_) + ((lambda (_%L66019%_ + _%L66021%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L65760%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65758%_ '())))) - _%hd6572465752%_ - _%hd6572165742%_) - (_%g6571665731%_ _%g6571765735%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6571665731%_ - _%g6571765735%_)))) - (_%g6571665731%_ _%g6571765735%_))))) - (_%g6571565777%_ - (list (_%make-checked-def64612%_ - _%id65707%_ - _%unchecked-id65713%_ - _%args65709%_ - _%return65710%_) - (_%make-unchecked-def64613%_ - _%unchecked-id65713%_ - _%args65709%_ - _%return65710%_ - _%body65711%_))))))) - (_%make-keyword-def64611%_ - (lambda (_%id65514%_ - _%signature65516%_ - _%return65517%_ - _%body65518%_) - (let* ((_%g6552065560%_ - (lambda (_%g6552165556%_) + (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" - _%g6552165556%_))) - (_%g6551965703%_ - (lambda (_%g6552165564%_) - (if (gx#stx-pair? _%g6552165564%_) - (let ((_%e6552865567%_ - (gx#syntax-e _%g6552165564%_))) - (let ((_%hd6552965571%_ + _%g6578265817%_))) + (_%g6578065964%_ + (lambda (_%g6578265825%_) + (if (gx#stx-pair? _%g6578265825%_) + (let ((_%e6578965828%_ + (gx#syntax-e _%g6578265825%_))) + (let ((_%hd6579065832%_ (let () (declare (not safe)) - (##car _%e6552865567%_))) - (_%tl6553065574%_ + (##car _%e6578965828%_))) + (_%tl6579165835%_ (let () (declare (not safe)) - (##cdr _%e6552865567%_)))) - (if (gx#stx-pair? _%tl6553065574%_) - (let ((_%e6553165577%_ + (##cdr _%e6578965828%_)))) + (if (gx#stx-pair? _%tl6579165835%_) + (let ((_%e6579265838%_ (gx#syntax-e - _%tl6553065574%_))) - (let ((_%hd6553265581%_ + _%tl6579165835%_))) + (let ((_%hd6579365842%_ (let () (declare (not safe)) - (##car _%e6553165577%_))) - (_%tl6553365584%_ + (##car _%e6579265838%_))) + (_%tl6579465845%_ (let () (declare (not safe)) - (##cdr _%e6553165577%_)))) + (##cdr _%e6579265838%_)))) (if (gx#stx-pair? - _%tl6553365584%_) - (let ((_%e6553465587%_ + _%tl6579465845%_) + (let ((_%e6579565848%_ (gx#syntax-e - _%tl6553365584%_))) - (let ((_%hd6553565591%_ + _%tl6579465845%_))) + (let ((_%hd6579665852%_ (let () (declare (not safe)) - (##car _%e6553465587%_))) - (_%tl6553665594%_ + (##car _%e6579565848%_))) + (_%tl6579765855%_ (let () (declare (not safe)) - (##cdr _%e6553465587%_)))) + (##cdr _%e6579565848%_)))) (if (gx#stx-pair? - _%tl6553665594%_) - (let ((_%e6553765597%_ + _%tl6579765855%_) + (let ((_%e6579865858%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6553665594%_))) - (let ((_%hd6553865601%_ + (gx#syntax-e _%tl6579765855%_))) + (let ((_%hd6579965862%_ (let () (declare (not safe)) - (##car _%e6553765597%_))) - (_%tl6553965604%_ + (##car _%e6579865858%_))) + (_%tl6580065865%_ (let () (declare (not safe)) - (##cdr _%e6553765597%_)))) - (if (gx#stx-pair? _%tl6553965604%_) - (let ((_%e6554065607%_ - (gx#syntax-e _%tl6553965604%_))) - (let ((_%hd6554165611%_ + (##cdr _%e6579865858%_)))) + (if (gx#stx-pair? _%tl6580065865%_) + (let ((_%e6580165868%_ + (gx#syntax-e _%tl6580065865%_))) + (let ((_%hd6580265872%_ (let () (declare (not safe)) - (##car _%e6554065607%_))) - (_%tl6554265614%_ + (##car _%e6580165868%_))) + (_%tl6580365875%_ (let () (declare (not safe)) - (##cdr _%e6554065607%_)))) - (if (gx#stx-pair? _%tl6554265614%_) - (let ((_%e6554365617%_ - (gx#syntax-e _%tl6554265614%_))) - (let ((_%hd6554465621%_ + (##cdr _%e6580165868%_)))) + (if (gx#stx-pair? _%tl6580365875%_) + (let ((_%e6580465878%_ + (gx#syntax-e _%tl6580365875%_))) + (let ((_%hd6580565882%_ (let () (declare (not safe)) - (##car _%e6554365617%_))) - (_%tl6554565624%_ + (##car _%e6580465878%_))) + (_%tl6580665885%_ (let () (declare (not safe)) - (##cdr _%e6554365617%_)))) - (if (gx#stx-pair/null? _%hd6554465621%_) - (let ((_g84242_ + (##cdr _%e6580465878%_)))) + (if (gx#stx-pair/null? _%hd6580565882%_) + (let ((_g85125_ (gx#syntax-split-splice - _%hd6554465621%_ + _%hd6580565882%_ '0))) (begin - (let ((_g84243_ + (let ((_g85126_ (let () (declare (not safe)) - (if (##values? _g84242_) + (if (##values? _g85125_) (##values-length - _g84242_) + _g85125_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84243_ 2))) + (##fx= _g85126_ 2))) (error "Context expects 2 values" - _g84243_))) - (let ((_%target6554665627%_ + _g85126_))) + (let ((_%target6580765888%_ (let () (declare (not safe)) (##values-ref - _g84242_ + _g85125_ 0))) - (_%tl6554865630%_ + (_%tl6580965891%_ (let () (declare (not safe)) (##values-ref - _g84242_ + _g85125_ 1)))) (if (gx#stx-null? - _%tl6554865630%_) - (letrec ((_%loop6554965633%_ - (lambda (_%hd6554765637%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6555365640%_) - (if (gx#stx-pair? _%hd6554765637%_) - (let ((_%e6555065643%_ - (gx#syntax-e _%hd6554765637%_))) - (let ((_%lp-hd6555165647%_ + _%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 _%e6555065643%_))) - (_%lp-tl6555265650%_ + (##car _%e6581165904%_))) + (_%lp-tl6581365911%_ (let () (declare (not safe)) - (##cdr _%e6555065643%_)))) - (_%loop6554965633%_ - _%lp-tl6555265650%_ - (cons _%lp-hd6555165647%_ - _%body6555365640%_)))) - (let ((_%body6555465653%_ - (reverse _%body6555365640%_))) - (if (gx#stx-null? _%tl6554565624%_) - ((lambda (_%L65657%_ - _%L65659%_ - _%L65660%_ - _%L65661%_ - _%L65662%_ - _%L65663%_) + (##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 _%L65663%_ _%L65662%_) + (cons (cons _%L65924%_ _%L65923%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65661%_ + (cons (cons _%L65922%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65660%_ (cons '#f '()))) + (cons _%L65921%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L65659%_ '())) + (cons _%L65920%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65661%_ - (foldr (lambda (_%g6569465697%_ + (cons _%L65922%_ + (foldr (lambda (_%g6595565958%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6569565700%_) - (cons _%g6569465697%_ _%g6569565700%_)) + _%g6595665961%_) + (cons _%g6595565958%_ _%g6595665961%_)) '() - _%L65657%_))) + _%L65918%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64606%_))) - _%body6555465653%_ - _%hd6554165611%_ - _%hd6553865601%_ - _%hd6553565591%_ - _%hd6553265581%_ - _%hd6552965571%_) - (_%g6552065560%_ _%g6552165564%_))))))) - (_%loop6554965633%_ _%target6554665627%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6552065560%_ - _%g6552165564%_))))) - (_%g6552065560%_ _%g6552165564%_)))) - (_%g6552065560%_ _%g6552165564%_)))) - (_%g6552065560%_ _%g6552165564%_)))) - (_%g6552065560%_ _%g6552165564%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6552065560%_ - _%g6552165564%_)))) - (_%g6552065560%_ _%g6552165564%_)))) - (_%g6552065560%_ _%g6552165564%_))))) - (_%g6551965703%_ - (list _%id65514%_ + (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| - _%signature65516%_)) - _%signature65516%_ - _%return65517%_ + _%signature65777%_)) + _%signature65777%_ + _%return65778%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64606%_ - _%return65517%_)) - _%body65518%_))))) - (_%make-checked-def64612%_ - (lambda (_%id65295%_ - _%unchecked-id65297%_ - _%signature65298%_ - _%return65299%_) - (let* ((_%g6530165345%_ - (lambda (_%g6530265341%_) + _%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" - _%g6530265341%_))) - (_%g6530065510%_ - (lambda (_%g6530265349%_) - (if (gx#stx-pair? _%g6530265349%_) - (let ((_%e6531065352%_ - (gx#syntax-e _%g6530265349%_))) - (let ((_%hd6531165356%_ + _%g6556365602%_))) + (_%g6556165771%_ + (lambda (_%g6556365610%_) + (if (gx#stx-pair? _%g6556365610%_) + (let ((_%e6557165613%_ + (gx#syntax-e _%g6556365610%_))) + (let ((_%hd6557265617%_ (let () (declare (not safe)) - (##car _%e6531065352%_))) - (_%tl6531265359%_ + (##car _%e6557165613%_))) + (_%tl6557365620%_ (let () (declare (not safe)) - (##cdr _%e6531065352%_)))) - (if (gx#stx-pair? _%tl6531265359%_) - (let ((_%e6531365362%_ + (##cdr _%e6557165613%_)))) + (if (gx#stx-pair? _%tl6557365620%_) + (let ((_%e6557465623%_ (gx#syntax-e - _%tl6531265359%_))) - (let ((_%hd6531465366%_ + _%tl6557365620%_))) + (let ((_%hd6557565627%_ (let () (declare (not safe)) - (##car _%e6531365362%_))) - (_%tl6531565369%_ + (##car _%e6557465623%_))) + (_%tl6557665630%_ (let () (declare (not safe)) - (##cdr _%e6531365362%_)))) + (##cdr _%e6557465623%_)))) (if (gx#stx-pair? - _%tl6531565369%_) - (let ((_%e6531665372%_ + _%tl6557665630%_) + (let ((_%e6557765633%_ (gx#syntax-e - _%tl6531565369%_))) - (let ((_%hd6531765376%_ + _%tl6557665630%_))) + (let ((_%hd6557865637%_ (let () (declare (not safe)) - (##car _%e6531665372%_))) - (_%tl6531865379%_ + (##car _%e6557765633%_))) + (_%tl6557965640%_ (let () (declare (not safe)) - (##cdr _%e6531665372%_)))) + (##cdr _%e6557765633%_)))) (if (gx#stx-pair? - _%tl6531865379%_) - (let ((_%e6531965382%_ + _%tl6557965640%_) + (let ((_%e6558065643%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6531865379%_))) - (let ((_%hd6532065386%_ + (gx#syntax-e _%tl6557965640%_))) + (let ((_%hd6558165647%_ (let () (declare (not safe)) - (##car _%e6531965382%_))) - (_%tl6532165389%_ + (##car _%e6558065643%_))) + (_%tl6558265650%_ (let () (declare (not safe)) - (##cdr _%e6531965382%_)))) - (if (gx#stx-pair/null? _%hd6532065386%_) - (let ((_g84244_ - (gx#syntax-split-splice _%hd6532065386%_ '0))) + (##cdr _%e6558065643%_)))) + (if (gx#stx-pair/null? _%hd6558165647%_) + (let ((_g85127_ + (gx#syntax-split-splice _%hd6558165647%_ '0))) (begin - (let ((_g84245_ + (let ((_g85128_ (let () (declare (not safe)) - (if (##values? _g84244_) - (##values-length _g84244_) + (if (##values? _g85127_) + (##values-length _g85127_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84245_ 2))) + (##fx= _g85128_ 2))) (error "Context expects 2 values" - _g84245_))) - (let ((_%target6532265392%_ + _g85128_))) + (let ((_%target6558365653%_ (let () (declare (not safe)) - (##values-ref _g84244_ 0))) - (_%tl6532465395%_ + (##values-ref _g85127_ 0))) + (_%tl6558565656%_ (let () (declare (not safe)) - (##values-ref _g84244_ 1)))) - (if (gx#stx-null? _%tl6532465395%_) - (letrec ((_%loop6532565398%_ - (lambda (_%hd6532365402%_ - _%out6532965405%_) + (##values-ref _g85127_ 1)))) + (if (gx#stx-null? _%tl6558565656%_) + (letrec ((_%loop6558665659%_ + (lambda (_%hd6558465663%_ + _%out6559065666%_) (if (gx#stx-pair? - _%hd6532365402%_) - (let ((_%e6532665408%_ + _%hd6558465663%_) + (let ((_%e6558765669%_ (gx#syntax-e - _%hd6532365402%_))) - (let ((_%lp-hd6532765412%_ + _%hd6558465663%_))) + (let ((_%lp-hd6558865673%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6532665408%_))) - (_%lp-tl6532865415%_ - (let () (declare (not safe)) (##cdr _%e6532665408%_)))) - (_%loop6532565398%_ - _%lp-tl6532865415%_ - (cons _%lp-hd6532765412%_ _%out6532965405%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%out6533065418%_ - (reverse _%out6532965405%_))) + (##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? - _%tl6532165389%_) - (let ((_%e6533165422%_ + _%tl6558265650%_) + (let ((_%e6559265683%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6532165389%_))) - (let ((_%hd6533265426%_ + (gx#syntax-e _%tl6558265650%_))) + (let ((_%hd6559365687%_ (let () (declare (not safe)) - (##car _%e6533165422%_))) - (_%tl6533365429%_ + (##car _%e6559265683%_))) + (_%tl6559465690%_ (let () (declare (not safe)) - (##cdr _%e6533165422%_)))) - (if (gx#stx-pair? _%tl6533365429%_) - (let ((_%e6533465432%_ - (gx#syntax-e _%tl6533365429%_))) - (let ((_%hd6533565436%_ + (##cdr _%e6559265683%_)))) + (if (gx#stx-pair? _%tl6559465690%_) + (let ((_%e6559565693%_ + (gx#syntax-e _%tl6559465690%_))) + (let ((_%hd6559665697%_ (let () (declare (not safe)) - (##car _%e6533465432%_))) - (_%tl6533665439%_ + (##car _%e6559565693%_))) + (_%tl6559765700%_ (let () (declare (not safe)) - (##cdr _%e6533465432%_)))) - (if (gx#stx-pair? _%tl6533665439%_) - (let ((_%e6533765442%_ - (gx#syntax-e _%tl6533665439%_))) - (let ((_%hd6533865446%_ + (##cdr _%e6559565693%_)))) + (if (gx#stx-pair? _%tl6559765700%_) + (let ((_%e6559865703%_ + (gx#syntax-e _%tl6559765700%_))) + (let ((_%hd6559965707%_ (let () (declare (not safe)) - (##car _%e6533765442%_))) - (_%tl6533965449%_ + (##car _%e6559865703%_))) + (_%tl6560065710%_ (let () (declare (not safe)) - (##cdr _%e6533765442%_)))) - (if (gx#stx-null? _%tl6533965449%_) - ((lambda (_%L65452%_ - _%L65454%_ - _%L65455%_ - _%L65456%_ - _%L65457%_ - _%L65458%_ - _%L65459%_) - (if (gx#stx-list? _%L65455%_) + (##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 _%L65459%_ + (cons (cons _%L65720%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65457%_) + _%L65718%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65455%_ - (cons _%L65454%_ - (cons _%L65458%_ '()))) + (cons (cons _%L65716%_ + (cons _%L65715%_ + (cons _%L65719%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -828,36 +828,36 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65452%_ '())) + (cons _%L65713%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65455%_ - (cons (cons _%L65458%_ - (foldr (lambda (_%g6549365496%_ - _%g6549465499%_) - (cons _%g6549365496%_ - _%g6549465499%_)) + (cons _%L65716%_ + (cons (cons _%L65719%_ + (foldr (lambda (_%g6575465757%_ + _%g6575565760%_) + (cons _%g6575465757%_ + _%g6575565760%_)) '() - _%L65456%_)) + _%L65717%_)) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64606%_)) + (gx#stx-source _%stx64867%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65459%_ + (cons (cons _%L65720%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65457%_) + _%L65718%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65455%_ - (cons _%L65454%_ - (cons _%L65458%_ '()))) + (cons (cons _%L65716%_ + (cons _%L65715%_ + (cons _%L65719%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -865,17 +865,17 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65452%_ '())) + (cons _%L65713%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65455%_ + (cons _%L65716%_ (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L65458%_ - (foldr (lambda (_%g6550165504%_ + (cons _%L65719%_ + (foldr (lambda (_%g6576265765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6550265507%_) - (cons _%g6550165504%_ _%g6550265507%_)) + _%g6576365768%_) + (cons _%g6576265765%_ _%g6576365768%_)) '() - _%L65456%_))) + _%L65717%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) @@ -884,2311 +884,2311 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx64606%_)))) - _%hd6533865446%_ - _%hd6533565436%_ - _%hd6533265426%_ - _%out6533065418%_ - _%hd6531765376%_ - _%hd6531465366%_ - _%hd6531165356%_) - (_%g6530165345%_ _%g6530265349%_)))) - (_%g6530165345%_ _%g6530265349%_)))) - (_%g6530165345%_ _%g6530265349%_)))) - (_%g6530165345%_ _%g6530265349%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6532565398%_ - _%target6532265392%_ + _%stx64867%_)))) + _%hd6559965707%_ + _%hd6559665697%_ + _%hd6559365687%_ + _%out6559165679%_ + _%hd6557865637%_ + _%hd6557565627%_ + _%hd6557265617%_) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6558665659%_ + _%target6558365653%_ '())) - (_%g6530165345%_ _%g6530265349%_))))) - (_%g6530165345%_ _%g6530265349%_)))) - (_%g6530165345%_ _%g6530265349%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6530165345%_ - _%g6530265349%_)))) - (_%g6530165345%_ _%g6530265349%_)))) - (_%g6530165345%_ _%g6530265349%_))))) - (_%g6530065510%_ - (list _%id65295%_ - _%unchecked-id65297%_ + (_%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| - _%signature65298%_)) + _%signature65559%_)) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature65298%_)) - _%signature65298%_ - _%return65299%_ + _%signature65559%_)) + _%signature65559%_ + _%return65560%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64606%_ - _%return65299%_))))))) - (_%make-unchecked-def64613%_ - (lambda (_%unchecked-id65120%_ - _%signature65122%_ - _%return65123%_ - _%body65124%_) - (let* ((_%g6512665162%_ - (lambda (_%g6512765158%_) + _%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" - _%g6512765158%_))) - (_%g6512565291%_ - (lambda (_%g6512765166%_) - (if (gx#stx-pair? _%g6512765166%_) - (let ((_%e6513365169%_ - (gx#syntax-e _%g6512765166%_))) - (let ((_%hd6513465173%_ + _%g6538865419%_))) + (_%g6538665552%_ + (lambda (_%g6538865427%_) + (if (gx#stx-pair? _%g6538865427%_) + (let ((_%e6539465430%_ + (gx#syntax-e _%g6538865427%_))) + (let ((_%hd6539565434%_ (let () (declare (not safe)) - (##car _%e6513365169%_))) - (_%tl6513565176%_ + (##car _%e6539465430%_))) + (_%tl6539665437%_ (let () (declare (not safe)) - (##cdr _%e6513365169%_)))) - (if (gx#stx-pair? _%tl6513565176%_) - (let ((_%e6513665179%_ + (##cdr _%e6539465430%_)))) + (if (gx#stx-pair? _%tl6539665437%_) + (let ((_%e6539765440%_ (gx#syntax-e - _%tl6513565176%_))) - (let ((_%hd6513765183%_ + _%tl6539665437%_))) + (let ((_%hd6539865444%_ (let () (declare (not safe)) - (##car _%e6513665179%_))) - (_%tl6513865186%_ + (##car _%e6539765440%_))) + (_%tl6539965447%_ (let () (declare (not safe)) - (##cdr _%e6513665179%_)))) + (##cdr _%e6539765440%_)))) (if (gx#stx-pair? - _%tl6513865186%_) - (let ((_%e6513965189%_ + _%tl6539965447%_) + (let ((_%e6540065450%_ (gx#syntax-e - _%tl6513865186%_))) - (let ((_%hd6514065193%_ + _%tl6539965447%_))) + (let ((_%hd6540165454%_ (let () (declare (not safe)) - (##car _%e6513965189%_))) - (_%tl6514165196%_ + (##car _%e6540065450%_))) + (_%tl6540265457%_ (let () (declare (not safe)) - (##cdr _%e6513965189%_)))) + (##cdr _%e6540065450%_)))) (if (gx#stx-pair? - _%tl6514165196%_) - (let ((_%e6514265199%_ + _%tl6540265457%_) + (let ((_%e6540365460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6514165196%_))) - (let ((_%hd6514365203%_ + (gx#syntax-e _%tl6540265457%_))) + (let ((_%hd6540465464%_ (let () (declare (not safe)) - (##car _%e6514265199%_))) - (_%tl6514465206%_ + (##car _%e6540365460%_))) + (_%tl6540565467%_ (let () (declare (not safe)) - (##cdr _%e6514265199%_)))) - (if (gx#stx-pair? _%tl6514465206%_) - (let ((_%e6514565209%_ - (gx#syntax-e _%tl6514465206%_))) - (let ((_%hd6514665213%_ + (##cdr _%e6540365460%_)))) + (if (gx#stx-pair? _%tl6540565467%_) + (let ((_%e6540665470%_ + (gx#syntax-e _%tl6540565467%_))) + (let ((_%hd6540765474%_ (let () (declare (not safe)) - (##car _%e6514565209%_))) - (_%tl6514765216%_ + (##car _%e6540665470%_))) + (_%tl6540865477%_ (let () (declare (not safe)) - (##cdr _%e6514565209%_)))) - (if (gx#stx-pair/null? _%hd6514665213%_) - (let ((_g84246_ + (##cdr _%e6540665470%_)))) + (if (gx#stx-pair/null? _%hd6540765474%_) + (let ((_g85129_ (gx#syntax-split-splice - _%hd6514665213%_ + _%hd6540765474%_ '0))) (begin - (let ((_g84247_ + (let ((_g85130_ (let () (declare (not safe)) - (if (##values? _g84246_) - (##values-length _g84246_) + (if (##values? _g85129_) + (##values-length _g85129_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84247_ 2))) + (##fx= _g85130_ 2))) (error "Context expects 2 values" - _g84247_))) - (let ((_%target6514865219%_ + _g85130_))) + (let ((_%target6540965480%_ (let () (declare (not safe)) - (##values-ref _g84246_ 0))) - (_%tl6515065222%_ + (##values-ref _g85129_ 0))) + (_%tl6541165483%_ (let () (declare (not safe)) - (##values-ref _g84246_ 1)))) - (if (gx#stx-null? _%tl6515065222%_) - (letrec ((_%loop6515165225%_ - (lambda (_%hd6514965229%_ - _%body6515565232%_) + (##values-ref _g85129_ 1)))) + (if (gx#stx-null? _%tl6541165483%_) + (letrec ((_%loop6541265486%_ + (lambda (_%hd6541065490%_ + _%body6541665493%_) (if (gx#stx-pair? - _%hd6514965229%_) - (let ((_%e6515265235%_ + _%hd6541065490%_) + (let ((_%e6541365496%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6514965229%_))) - (let ((_%lp-hd6515365239%_ + (gx#syntax-e _%hd6541065490%_))) + (let ((_%lp-hd6541465500%_ (let () (declare (not safe)) - (##car _%e6515265235%_))) - (_%lp-tl6515465242%_ + (##car _%e6541365496%_))) + (_%lp-tl6541565503%_ (let () (declare (not safe)) - (##cdr _%e6515265235%_)))) - (_%loop6515165225%_ - _%lp-tl6515465242%_ - (cons _%lp-hd6515365239%_ _%body6515565232%_)))) - (let ((_%body6515665245%_ (reverse _%body6515565232%_))) - (if (gx#stx-null? _%tl6514765216%_) - ((lambda (_%L65249%_ - _%L65251%_ - _%L65252%_ - _%L65253%_ - _%L65254%_) + (##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 _%L65254%_ _%L65253%_) + (cons (cons _%L65515%_ _%L65514%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65251%_ (cons '#f '()))) + (cons _%L65512%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-unchecked-contract) - (cons _%L65252%_ - (foldr (lambda (_%g6528265285%_ - _%g6528365288%_) - (cons _%g6528265285%_ - _%g6528365288%_)) + (cons _%L65513%_ + (foldr (lambda (_%g6554365546%_ + _%g6554465549%_) + (cons _%g6554365546%_ + _%g6554465549%_)) '() - _%L65249%_))) + _%L65510%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx64606%_))) - _%body6515665245%_ - _%hd6514365203%_ - _%hd6514065193%_ - _%hd6513765183%_ - _%hd6513465173%_) - (_%g6512665162%_ _%g6512765166%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6515165225%_ - _%target6514865219%_ + (gx#stx-source _%stx64867%_))) + _%body6541765506%_ + _%hd6540465464%_ + _%hd6540165454%_ + _%hd6539865444%_ + _%hd6539565434%_) + (_%g6538765423%_ _%g6538865427%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6541265486%_ + _%target6540965480%_ '())) - (_%g6512665162%_ - _%g6512765166%_))))) - (_%g6512665162%_ _%g6512765166%_)))) - (_%g6512665162%_ _%g6512765166%_)))) - (_%g6512665162%_ _%g6512765166%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6512665162%_ - _%g6512765166%_)))) - (_%g6512665162%_ _%g6512765166%_)))) - (_%g6512665162%_ _%g6512765166%_))))) - (_%g6512565291%_ - (list _%unchecked-id65120%_ + (_%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| - _%signature65122%_)) - _%signature65122%_ - _%return65123%_ - _%body65124%_)))))) - (let* ((_%__stx8221982220%_ _%stx64606%_) - (_%g6461864710%_ + _%signature65383%_)) + _%signature65383%_ + _%return65384%_ + _%body65385%_)))))) + (let* ((_%__stx8298582986%_ _%stx64867%_) + (_%g6487964971%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8221982220%_)))) - (let ((_%__kont8222282223%_ - (lambda (_%L65071%_ _%L65073%_ _%L65074%_ _%L65075%_) + _%__stx8298582986%_)))) + (let ((_%__kont8298882989%_ + (lambda (_%L65332%_ _%L65334%_ _%L65335%_ _%L65336%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L65074%_) - (_%make-definition64609%_ - _%L65075%_ - _%L65074%_ - _%L65073%_ - (foldr (lambda (_%g6509965102%_ _%g6510065105%_) - (cons _%g6509965102%_ _%g6510065105%_)) + _%L65335%_) + (_%make-definition64870%_ + _%L65336%_ + _%L65335%_ + _%L65334%_ + (foldr (lambda (_%g6536065363%_ _%g6536165366%_) + (cons _%g6536065363%_ _%g6536165366%_)) '() - _%L65071%_)) + _%L65332%_)) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65075%_ _%L65074%_) + (cons (cons _%L65336%_ _%L65335%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L65073%_ + (cons _%L65334%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6510765110%_ _%g6510865113%_) - (cons _%g6510765110%_ _%g6510865113%_)) + (foldr (lambda (_%g6536865371%_ _%g6536965374%_) + (cons _%g6536865371%_ _%g6536965374%_)) '() - _%L65071%_))) + _%L65332%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8222682227%_ - (lambda (_%L64945%_ _%L64947%_ _%L64948%_) + (_%__kont8299282993%_ + (lambda (_%L65206%_ _%L65208%_ _%L65209%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64947%_) + _%L65208%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64948%_ _%L64947%_) + (cons (cons _%L65209%_ _%L65208%_) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6496764970%_ + (foldr (lambda (_%g6522865231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6496864973%_) - (cons _%g6496764970%_ _%g6496864973%_)) + _%g6522965234%_) + (cons _%g6522865231%_ _%g6522965234%_)) '() - _%L64945%_))))) + _%L65206%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64948%_ _%L64947%_) - (foldr (lambda (_%g6497564978%_ - _%g6497664981%_) - (cons _%g6497564978%_ - _%g6497664981%_)) + (cons (cons _%L65209%_ _%L65208%_) + (foldr (lambda (_%g6523665239%_ + _%g6523765242%_) + (cons _%g6523665239%_ + _%g6523765242%_)) '() - _%L64945%_)))))) - (_%__kont8223082231%_ - (lambda (_%L64843%_ _%L64845%_ _%L64846%_ _%L64847%_) + _%L65206%_)))))) + (_%__kont8299682997%_ + (lambda (_%L65104%_ _%L65106%_ _%L65107%_ _%L65108%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64847%_ _%L64846%_) + (cons (cons _%L65108%_ _%L65107%_) (cons (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L64845%_ - (foldr (lambda (_%g6486964872%_ + (cons _%L65106%_ + (foldr (lambda (_%g6513065133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6487064875%_) - (cons _%g6486964872%_ _%g6487064875%_)) + _%g6513165136%_) + (cons _%g6513065133%_ _%g6513165136%_)) '() - _%L64843%_))) + _%L65104%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8223482235%_ - (lambda (_%L64747%_ _%L64749%_) + (_%__kont8300083001%_ + (lambda (_%L65008%_ _%L65010%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L64749%_ (cons _%L64747%_ '())))))) - (let* ((_%__match8235682357%_ - (lambda (_%e6469664717%_ - _%hd6469764721%_ - _%tl6469864724%_ - _%e6469964727%_ - _%hd6470064731%_ - _%tl6470164734%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) - (let ((_%L64747%_ _%hd6470364741%_) - (_%L64749%_ _%hd6470064731%_)) - (if (gx#identifier? _%L64749%_) - (_%__kont8223482235%_ _%L64747%_ _%L64749%_) + (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)) - (_%g6461864710%_)))))) - (_%__match8233682337%_ - (lambda (_%e6467364773%_ - _%hd6467464777%_ - _%tl6467564780%_ - _%e6467664783%_ - _%hd6467764787%_ - _%tl6467864790%_ - _%e6467964793%_ - _%hd6468064797%_ - _%tl6468164800%_ - _%e6468264803%_ - _%hd6468364807%_ - _%tl6468464810%_ - _%__splice8223282233%_ - _%target6468564813%_ - _%tl6468764816%_) - (letrec ((_%loop6468864819%_ - (lambda (_%hd6468664823%_ _%body6469264826%_) - (if (gx#stx-pair? _%hd6468664823%_) - (let ((_%e6468964829%_ - (gx#syntax-e _%hd6468664823%_))) - (let ((_%lp-tl6469164836%_ + (_%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 _%e6468964829%_))) - (_%lp-hd6469064833%_ + (##cdr _%e6495065090%_))) + (_%lp-hd6495165094%_ (let () (declare (not safe)) - (##car _%e6468964829%_)))) - (_%loop6468864819%_ - _%lp-tl6469164836%_ - (cons _%lp-hd6469064833%_ - _%body6469264826%_)))) - (let ((_%body6469364839%_ - (reverse _%body6469264826%_))) - (_%__kont8223082231%_ - _%body6469364839%_ - _%tl6468164800%_ - _%tl6468464810%_ - _%hd6468364807%_)))))) - (_%loop6468864819%_ _%target6468564813%_ '())))) - (_%__match8232282323%_ - (lambda (_%e6467364773%_ - _%hd6467464777%_ - _%tl6467564780%_ - _%e6467664783%_ - _%hd6467764787%_ - _%tl6467864790%_ - _%e6467964793%_ - _%hd6468064797%_ - _%tl6468164800%_) - (if (gx#stx-pair? _%hd6468064797%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6468064797%_))) - (let ((_%tl6468464810%_ + (##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 _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-pair/null? _%tl6467864790%_) - (let ((_%__splice8223282233%_ + (##car _%e6494365064%_)))) + (if (gx#stx-pair/null? _%tl6493965051%_) + (let ((_%__splice8299882999%_ (gx#syntax-split-splice - _%tl6467864790%_ + _%tl6493965051%_ '0))) - (let ((_%tl6468764816%_ + (let ((_%tl6494865077%_ (let () (declare (not safe)) (##vector-ref - _%__splice8223282233%_ + _%__splice8299882999%_ '1))) - (_%target6468564813%_ + (_%target6494665074%_ (let () (declare (not safe)) (##vector-ref - _%__splice8223282233%_ + _%__splice8299882999%_ '0)))) - (if (gx#stx-null? _%tl6468764816%_) - (_%__match8233682337%_ - _%e6467364773%_ - _%hd6467464777%_ - _%tl6467564780%_ - _%e6467664783%_ - _%hd6467764787%_ - _%tl6467864790%_ - _%e6467964793%_ - _%hd6468064797%_ - _%tl6468164800%_ - _%e6468264803%_ - _%hd6468364807%_ - _%tl6468464810%_ - _%__splice8223282233%_ - _%target6468564813%_ - _%tl6468764816%_) - (if (gx#stx-pair? _%tl6467864790%_) - (let ((_%e6470264737%_ + (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 - _%tl6467864790%_))) - (let ((_%tl6470464744%_ + _%tl6493965051%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) + (##car _%e6496364998%_)))) (if (gx#stx-null? - _%tl6470464744%_) - (_%__match8235682357%_ - _%e6467364773%_ - _%hd6467464777%_ - _%tl6467564780%_ - _%e6467664783%_ - _%hd6467764787%_ - _%tl6467864790%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + _%tl6496565005%_) + (_%__match8312283123%_ + _%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_)))))) - (if (gx#stx-pair? _%tl6467864790%_) - (let ((_%e6470264737%_ - (gx#syntax-e _%tl6467864790%_))) - (let ((_%tl6470464744%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%tl6493965051%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6493965051%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) - (if (gx#stx-null? _%tl6470464744%_) - (_%__match8235682357%_ - _%e6467364773%_ - _%hd6467464777%_ - _%tl6467564780%_ - _%e6467664783%_ - _%hd6467764787%_ - _%tl6467864790%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_)))))) - (if (gx#stx-pair? _%tl6467864790%_) - (let ((_%e6470264737%_ - (gx#syntax-e _%tl6467864790%_))) - (let ((_%tl6470464744%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%tl6493965051%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6493965051%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) - (if (gx#stx-null? _%tl6470464744%_) - (_%__match8235682357%_ - _%e6467364773%_ - _%hd6467464777%_ - _%tl6467564780%_ - _%e6467664783%_ - _%hd6467764787%_ - _%tl6467864790%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_)))))) - (_%__match8230482305%_ - (lambda (_%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6465764905%_ - _%hd6465864909%_ - _%tl6465964912%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) - (letrec ((_%loop6466364921%_ - (lambda (_%hd6466164925%_ _%body6466764928%_) - (if (gx#stx-pair? _%hd6466164925%_) - (let ((_%e6466464931%_ - (gx#syntax-e _%hd6466164925%_))) - (let ((_%lp-tl6466664938%_ + (_%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 _%e6466464931%_))) - (_%lp-hd6466564935%_ + (##cdr _%e6492565192%_))) + (_%lp-hd6492665196%_ (let () (declare (not safe)) - (##car _%e6466464931%_)))) - (_%loop6466364921%_ - _%lp-tl6466664938%_ - (cons _%lp-hd6466564935%_ - _%body6466764928%_)))) - (let ((_%body6466864941%_ - (reverse _%body6466764928%_))) - (let ((_%L64945%_ _%body6466864941%_) - (_%L64947%_ _%tl6465964912%_) - (_%L64948%_ _%hd6465864909%_)) - (if (gx#identifier? _%L64948%_) - (_%__kont8222682227%_ - _%L64945%_ - _%L64947%_ - _%L64948%_) - (_%__match8232282323%_ - _%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6465764905%_ - _%hd6465864909%_ - _%tl6465964912%_)))))))) - (_%loop6466364921%_ _%target6466064915%_ '())))) - (_%__match8229682297%_ - (lambda (_%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6465764905%_ - _%hd6465864909%_ - _%tl6465964912%_) - (if (gx#stx-pair/null? _%tl6465664902%_) - (let ((_%__splice8222882229%_ + (##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 - _%tl6465664902%_ + _%tl6491765163%_ '0))) - (let ((_%tl6466264918%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '1))) - (_%target6466064915%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '0)))) - (if (gx#stx-null? _%tl6466264918%_) - (_%__match8230482305%_ - _%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6465764905%_ - _%hd6465864909%_ - _%tl6465964912%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) - (if (gx#stx-pair? _%hd6465864909%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6465864909%_))) - (let ((_%tl6468464810%_ + (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 _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-pair? _%tl6465664902%_) - (let ((_%e6470264737%_ + (##car _%e6494365064%_)))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ (gx#syntax-e - _%tl6465664902%_))) - (let ((_%tl6470464744%_ + _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) + (##car _%e6496364998%_)))) (if (gx#stx-null? - _%tl6470464744%_) - (_%__match8235682357%_ - _%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_))))) - (if (gx#stx-pair? _%tl6465664902%_) - (let ((_%e6470264737%_ + (_%g6487964971%_))))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ (gx#syntax-e - _%tl6465664902%_))) - (let ((_%tl6470464744%_ + _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) + (##car _%e6496364998%_)))) (if (gx#stx-null? - _%tl6470464744%_) - (_%__match8235682357%_ - _%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_))))))) - (if (gx#stx-pair? _%hd6465864909%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6465864909%_))) - (let ((_%tl6468464810%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6491965170%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6491965170%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-pair? _%tl6465664902%_) - (let ((_%e6470264737%_ - (gx#syntax-e _%tl6465664902%_))) - (let ((_%tl6470464744%_ + (##car _%e6494365064%_)))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) - (if (gx#stx-null? _%tl6470464744%_) - (_%__match8235682357%_ - _%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_))))) - (if (gx#stx-pair? _%tl6465664902%_) - (let ((_%e6470264737%_ - (gx#syntax-e _%tl6465664902%_))) - (let ((_%tl6470464744%_ + (_%g6487964971%_))))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) - (if (gx#stx-null? _%tl6470464744%_) - (_%__match8235682357%_ - _%e6465164885%_ - _%hd6465264889%_ - _%tl6465364892%_ - _%e6465464895%_ - _%hd6465564899%_ - _%tl6465664902%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_))))))) - (_%__match8227882279%_ - (lambda (_%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_ - _%e6463665031%_ - _%hd6463765035%_ - _%tl6463865038%_ - _%__splice8222482225%_ - _%target6463965041%_ - _%tl6464165044%_) - (letrec ((_%loop6464265047%_ - (lambda (_%hd6464065051%_ _%body6464665054%_) - (if (gx#stx-pair? _%hd6464065051%_) - (let ((_%e6464365057%_ - (gx#syntax-e _%hd6464065051%_))) - (let ((_%lp-tl6464565064%_ + (_%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 _%e6464365057%_))) - (_%lp-hd6464465061%_ + (##cdr _%e6490465318%_))) + (_%lp-hd6490565322%_ (let () (declare (not safe)) - (##car _%e6464365057%_)))) - (_%loop6464265047%_ - _%lp-tl6464565064%_ - (cons _%lp-hd6464465061%_ - _%body6464665054%_)))) - (let ((_%body6464765067%_ - (reverse _%body6464665054%_))) - (let ((_%L65071%_ _%body6464765067%_) - (_%L65073%_ _%hd6463765035%_) - (_%L65074%_ _%tl6463265018%_) - (_%L65075%_ _%hd6463165015%_)) - (if (gx#identifier? _%L65075%_) - (_%__kont8222282223%_ - _%L65071%_ - _%L65073%_ - _%L65074%_ - _%L65075%_) - (_%__match8229682297%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_)))))))) - (_%loop6464265047%_ _%target6463965041%_ '()))))) - (if (gx#stx-pair? _%__stx8221982220%_) - (let ((_%e6462464991%_ (gx#syntax-e _%__stx8221982220%_))) - (let ((_%tl6462664998%_ + (##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 _%e6462464991%_))) - (_%hd6462564995%_ + (##cdr _%e6488565252%_))) + (_%hd6488665256%_ (let () (declare (not safe)) - (##car _%e6462464991%_)))) - (if (gx#stx-pair? _%tl6462664998%_) - (let ((_%e6462765001%_ - (gx#syntax-e _%tl6462664998%_))) - (let ((_%tl6462965008%_ + (##car _%e6488565252%_)))) + (if (gx#stx-pair? _%tl6488765259%_) + (let ((_%e6488865262%_ + (gx#syntax-e _%tl6488765259%_))) + (let ((_%tl6489065269%_ (let () (declare (not safe)) - (##cdr _%e6462765001%_))) - (_%hd6462865005%_ + (##cdr _%e6488865262%_))) + (_%hd6488965266%_ (let () (declare (not safe)) - (##car _%e6462765001%_)))) - (if (gx#stx-pair? _%hd6462865005%_) - (let ((_%e6463065011%_ - (gx#syntax-e _%hd6462865005%_))) - (let ((_%tl6463265018%_ + (##car _%e6488865262%_)))) + (if (gx#stx-pair? _%hd6488965266%_) + (let ((_%e6489165272%_ + (gx#syntax-e _%hd6488965266%_))) + (let ((_%tl6489365279%_ (let () (declare (not safe)) - (##cdr _%e6463065011%_))) - (_%hd6463165015%_ + (##cdr _%e6489165272%_))) + (_%hd6489265276%_ (let () (declare (not safe)) - (##car _%e6463065011%_)))) - (if (gx#stx-pair? _%tl6462965008%_) - (let ((_%e6463365021%_ + (##car _%e6489165272%_)))) + (if (gx#stx-pair? _%tl6489065269%_) + (let ((_%e6489465282%_ (gx#syntax-e - _%tl6462965008%_))) - (let ((_%tl6463565028%_ + _%tl6489065269%_))) + (let ((_%tl6489665289%_ (let () (declare (not safe)) - (##cdr _%e6463365021%_))) - (_%hd6463465025%_ + (##cdr _%e6489465282%_))) + (_%hd6489565286%_ (let () (declare (not safe)) - (##car _%e6463365021%_)))) + (##car _%e6489465282%_)))) (if (gx#identifier? - _%hd6463465025%_) + _%hd6489565286%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84248_| - _%hd6463465025%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85131_| + _%hd6489565286%_) (if (gx#stx-pair? - _%tl6463565028%_) - (let ((_%e6463665031%_ + _%tl6489665289%_) + (let ((_%e6489765292%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6463565028%_))) - (let ((_%tl6463865038%_ + (gx#syntax-e _%tl6489665289%_))) + (let ((_%tl6489965299%_ (let () (declare (not safe)) - (##cdr _%e6463665031%_))) - (_%hd6463765035%_ + (##cdr _%e6489765292%_))) + (_%hd6489865296%_ (let () (declare (not safe)) - (##car _%e6463665031%_)))) - (if (gx#stx-pair/null? _%tl6463865038%_) - (let ((_%__splice8222482225%_ + (##car _%e6489765292%_)))) + (if (gx#stx-pair/null? _%tl6489965299%_) + (let ((_%__splice8299082991%_ (gx#syntax-split-splice - _%tl6463865038%_ + _%tl6489965299%_ '0))) - (let ((_%tl6464165044%_ + (let ((_%tl6490265305%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222482225%_ + _%__splice8299082991%_ '1))) - (_%target6463965041%_ + (_%target6490065302%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222482225%_ + _%__splice8299082991%_ '0)))) - (if (gx#stx-null? _%tl6464165044%_) - (_%__match8227882279%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_ - _%e6463665031%_ - _%hd6463765035%_ - _%tl6463865038%_ - _%__splice8222482225%_ - _%target6463965041%_ - _%tl6464165044%_) - (if (gx#stx-pair/null? _%tl6462965008%_) - (let ((_%__splice8222882229%_ + (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 - _%tl6462965008%_ + _%tl6489065269%_ '0))) - (let ((_%tl6466264918%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '1))) - (_%target6466064915%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '0)))) - (if (gx#stx-null? _%tl6466264918%_) - (_%__match8230482305%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) + (if (gx#stx-null? _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) (if (gx#stx-pair? - _%hd6463165015%_) - (let ((_%e6468264803%_ + _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e - _%hd6463165015%_))) - (let ((_%tl6468464810%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ - (let () (declare (not safe)) (##car _%e6468264803%_)))) - (let () (declare (not safe)) (_%g6461864710%_)))) + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ + (let () (declare (not safe)) (##car _%e6494365064%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6461864710%_)))))) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e - _%hd6463165015%_))) - (let ((_%tl6468464810%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) + (##car _%e6494365064%_)))) (let () (declare (not safe)) - (_%g6461864710%_)))) + (_%g6487964971%_)))) (let () (declare (not safe)) - (_%g6461864710%_))))))) - (if (gx#stx-pair/null? _%tl6462965008%_) - (let ((_%__splice8222882229%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair/null? _%tl6489065269%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6462965008%_ + _%tl6489065269%_ '0))) - (let ((_%tl6466264918%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '1))) - (_%target6466064915%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '0)))) - (if (gx#stx-null? _%tl6466264918%_) - (_%__match8230482305%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ + (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 - _%hd6463165015%_))) - (let ((_%tl6468464810%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) + (##car _%e6494365064%_)))) (let () (declare (not safe)) - (_%g6461864710%_)))) + (_%g6487964971%_)))) (let () (declare (not safe)) - (_%g6461864710%_)))))) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) + (##car _%e6494365064%_)))) (let () (declare (not safe)) - (_%g6461864710%_)))) + (_%g6487964971%_)))) (let () (declare (not safe)) - (_%g6461864710%_))))))) - (if (gx#stx-pair/null? _%tl6462965008%_) - (let ((_%__splice8222882229%_ - (gx#syntax-split-splice _%tl6462965008%_ '0))) - (let ((_%tl6466264918%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair/null? _%tl6489065269%_) + (let ((_%__splice8299482995%_ + (gx#syntax-split-splice _%tl6489065269%_ '0))) + (let ((_%tl6492365179%_ (let () (declare (not safe)) - (##vector-ref _%__splice8222882229%_ '1))) - (_%target6466064915%_ + (##vector-ref _%__splice8299482995%_ '1))) + (_%target6492165176%_ (let () (declare (not safe)) - (##vector-ref _%__splice8222882229%_ '0)))) - (if (gx#stx-null? _%tl6466264918%_) - (_%__match8230482305%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (##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 _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))))) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_)))))) - (if (gx#stx-pair/null? _%tl6462965008%_) - (let ((_%__splice8222882229%_ - (gx#syntax-split-splice _%tl6462965008%_ '0))) - (let ((_%tl6466264918%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair/null? _%tl6489065269%_) + (let ((_%__splice8299482995%_ + (gx#syntax-split-splice _%tl6489065269%_ '0))) + (let ((_%tl6492365179%_ (let () (declare (not safe)) - (##vector-ref _%__splice8222882229%_ '1))) - (_%target6466064915%_ + (##vector-ref _%__splice8299482995%_ '1))) + (_%target6492165176%_ (let () (declare (not safe)) - (##vector-ref _%__splice8222882229%_ '0)))) - (if (gx#stx-null? _%tl6466264918%_) - (_%__match8230482305%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (##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 _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))))) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) - (let () (declare (not safe)) (_%g6461864710%_)))))) + (_%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? - _%tl6462965008%_) - (let ((_%__splice8222882229%_ + _%tl6489065269%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6462965008%_ + _%tl6489065269%_ '0))) - (let ((_%tl6466264918%_ + (let ((_%tl6492365179%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8222882229%_ '1))) - (_%target6466064915%_ + (##vector-ref _%__splice8299482995%_ '1))) + (_%target6492165176%_ (let () (declare (not safe)) - (##vector-ref _%__splice8222882229%_ '0)))) - (if (gx#stx-null? _%tl6466264918%_) - (_%__match8230482305%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ - (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (##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 _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6461864710%_))))))) - (if (gx#stx-pair? _%hd6463165015%_) - (let ((_%e6468264803%_ (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) - (let () (declare (not safe)) (_%g6461864710%_))))) - (if (gx#stx-null? _%tl6463565028%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463365021%_ - _%hd6463465025%_ - _%tl6463565028%_) - (let () (declare (not safe)) (_%g6461864710%_)))))))) + (##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? - _%tl6462965008%_) - (let ((_%__splice8222882229%_ + _%tl6489065269%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6462965008%_ + _%tl6489065269%_ '0))) - (let ((_%tl6466264918%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '1))) - (_%target6466064915%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8222882229%_ + _%__splice8299482995%_ '0)))) (if (gx#stx-null? - _%tl6466264918%_) - (_%__match8230482305%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6463065011%_ - _%hd6463165015%_ - _%tl6463265018%_ - _%__splice8222882229%_ - _%target6466064915%_ - _%tl6466264918%_) + _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) (if (gx#stx-pair? - _%hd6463165015%_) - (let ((_%e6468264803%_ + _%hd6489265276%_) + (let ((_%e6494365064%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6463165015%_))) - (let ((_%tl6468464810%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6468264803%_)))) - (let () (declare (not safe)) (_%g6461864710%_)))) - (let () (declare (not safe)) (_%g6461864710%_)))))) + (##car _%e6494365064%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd6463165015%_) - (let ((_%e6468264803%_ + _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e - _%hd6463165015%_))) - (let ((_%tl6468464810%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6468264803%_))) - (_%hd6468364807%_ - (let () (declare (not safe)) (##car _%e6468264803%_)))) - (let () (declare (not safe)) (_%g6461864710%_)))) + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ + (let () (declare (not safe)) (##car _%e6494365064%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6461864710%_))))))) - (if (gx#stx-pair? _%tl6462965008%_) - (let ((_%e6470264737%_ - (gx#syntax-e _%tl6462965008%_))) - (let ((_%tl6470464744%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%tl6489065269%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6489065269%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6470264737%_))) - (_%hd6470364741%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6470264737%_)))) - (if (gx#stx-null? _%tl6470464744%_) - (_%__match8235682357%_ - _%e6462464991%_ - _%hd6462564995%_ - _%tl6462664998%_ - _%e6462765001%_ - _%hd6462865005%_ - _%tl6462965008%_ - _%e6470264737%_ - _%hd6470364741%_ - _%tl6470464744%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6461864710%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6461864710%_)))))) - (let () (declare (not safe)) (_%g6461864710%_))))) - (let () (declare (not safe)) (_%g6461864710%_))))))))) + (_%g6487964971%_)))))) + (let () (declare (not safe)) (_%g6487964971%_))))) + (let () (declare (not safe)) (_%g6487964971%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| - (lambda (_%stx65787%_) - (let* ((_%__stx8235982360%_ _%stx65787%_) - (_%g6579165854%_ + (lambda (_%stx66048%_) + (let* ((_%__stx8312583126%_ _%stx66048%_) + (_%g6605266115%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8235982360%_)))) - (let ((_%__kont8236282363%_ - (lambda (_%L66105%_ _%L66107%_) - (let* ((_%g6613266140%_ - (lambda (_%g6613366136%_) + _%__stx8312583126%_)))) + (let ((_%__kont8312883129%_ + (lambda (_%L66366%_ _%L66368%_) + (let* ((_%g6639366401%_ + (lambda (_%g6639466397%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6613366136%_))) - (_%g6613166167%_ - (lambda (_%g6613366144%_) - ((lambda (_%L66147%_) + _%g6639466397%_))) + (_%g6639266428%_ + (lambda (_%g6639466405%_) + ((lambda (_%L66408%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) (cons 'return: - (cons _%L66147%_ '()))) + (cons _%L66408%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6615866161%_ + (foldr (lambda (_%g6641966422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6615966164%_) - (cons _%g6615866161%_ _%g6615966164%_)) + _%g6642066425%_) + (cons _%g6641966422%_ _%g6642066425%_)) '() - _%L66105%_))) + _%L66366%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6613366144%_)))) - (_%g6613166167%_ + _%g6639466405%_)))) + (_%g6639266428%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx65787%_ - _%L66107%_)))))) - (_%__kont8236682367%_ - (lambda (_%L65941%_ _%L65943%_ _%L65944%_ _%L65945%_) - (let* ((_%g6597165979%_ - (lambda (_%g6597265975%_) + _%stx66048%_ + _%L66368%_)))))) + (_%__kont8313283133%_ + (lambda (_%L66202%_ _%L66204%_ _%L66205%_ _%L66206%_) + (let* ((_%g6623266240%_ + (lambda (_%g6623366236%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6597265975%_))) - (_%g6597066006%_ - (lambda (_%g6597265983%_) - ((lambda (_%L65986%_) + _%g6623366236%_))) + (_%g6623166267%_ + (lambda (_%g6623366244%_) + ((lambda (_%L66247%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L65986%_) + _%L66247%_) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6599766000%_ + (foldr (lambda (_%g6625866261%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6599866003%_) - (cons _%g6599766000%_ _%g6599866003%_)) + _%g6625966264%_) + (cons _%g6625866261%_ _%g6625966264%_)) '() - _%L65941%_))) + _%L66202%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6597265983%_)))) - (_%g6597066006%_ + _%g6623366244%_)))) + (_%g6623166267%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx65787%_ - _%L65945%_ - _%L65944%_ - _%L65943%_))))))) - (let* ((_%__match8246282463%_ - (lambda (_%e6582565861%_ - _%hd6582665865%_ - _%tl6582765868%_ - _%e6582865871%_ - _%hd6582965875%_ - _%tl6583065878%_ - _%e6583165881%_ - _%hd6583265885%_ - _%tl6583365888%_ - _%e6583465891%_ - _%hd6583565895%_ - _%tl6583665898%_ - _%e6583765901%_ - _%hd6583865905%_ - _%tl6583965908%_ - _%__splice8236882369%_ - _%target6584065911%_ - _%tl6584265914%_) - (letrec ((_%loop6584365917%_ - (lambda (_%hd6584165921%_ _%body6584765924%_) - (if (gx#stx-pair? _%hd6584165921%_) - (let ((_%e6584465927%_ - (gx#syntax-e _%hd6584165921%_))) - (let ((_%lp-tl6584665934%_ + _%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 _%e6584465927%_))) - (_%lp-hd6584565931%_ + (##cdr _%e6610566188%_))) + (_%lp-hd6610666192%_ (let () (declare (not safe)) - (##car _%e6584465927%_)))) - (_%loop6584365917%_ - _%lp-tl6584665934%_ - (cons _%lp-hd6584565931%_ - _%body6584765924%_)))) - (let ((_%body6584865937%_ - (reverse _%body6584765924%_))) - (_%__kont8236682367%_ - _%body6584865937%_ - _%hd6583865905%_ - _%hd6583565895%_ - _%hd6583265885%_)))))) - (_%loop6584365917%_ _%target6584065911%_ '())))) - (_%__match8242282423%_ - (lambda (_%e6579566017%_ - _%hd6579666021%_ - _%tl6579766024%_ - _%e6579866027%_ - _%hd6579966031%_ - _%tl6580066034%_ - _%e6580166037%_ - _%hd6580266041%_ - _%tl6580366044%_ - _%e6580466047%_ - _%e6580566051%_ - _%hd6580666055%_ - _%tl6580766058%_ - _%e6580866061%_ - _%hd6580966065%_ - _%tl6581066068%_ - _%e6581166071%_ - _%__splice8236482365%_ - _%target6581266075%_ - _%tl6581466078%_) - (letrec ((_%loop6581566081%_ - (lambda (_%hd6581366085%_ _%body6581966088%_) - (if (gx#stx-pair? _%hd6581366085%_) - (let ((_%e6581666091%_ - (gx#syntax-e _%hd6581366085%_))) - (let ((_%lp-tl6581866098%_ + (##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 _%e6581666091%_))) - (_%lp-hd6581766095%_ + (##cdr _%e6607766352%_))) + (_%lp-hd6607866356%_ (let () (declare (not safe)) - (##car _%e6581666091%_)))) - (_%loop6581566081%_ - _%lp-tl6581866098%_ - (cons _%lp-hd6581766095%_ - _%body6581966088%_)))) - (let ((_%body6582066101%_ - (reverse _%body6581966088%_))) - (_%__kont8236282363%_ - _%body6582066101%_ - _%hd6580666055%_)))))) - (_%loop6581566081%_ _%target6581266075%_ '()))))) - (if (gx#stx-pair? _%__stx8235982360%_) - (let ((_%e6579566017%_ (gx#syntax-e _%__stx8235982360%_))) - (let ((_%tl6579766024%_ + (##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 _%e6579566017%_))) - (_%hd6579666021%_ + (##cdr _%e6605666278%_))) + (_%hd6605766282%_ (let () (declare (not safe)) - (##car _%e6579566017%_)))) - (if (gx#stx-pair? _%tl6579766024%_) - (let ((_%e6579866027%_ - (gx#syntax-e _%tl6579766024%_))) - (let ((_%tl6580066034%_ + (##car _%e6605666278%_)))) + (if (gx#stx-pair? _%tl6605866285%_) + (let ((_%e6605966288%_ + (gx#syntax-e _%tl6605866285%_))) + (let ((_%tl6606166295%_ (let () (declare (not safe)) - (##cdr _%e6579866027%_))) - (_%hd6579966031%_ + (##cdr _%e6605966288%_))) + (_%hd6606066292%_ (let () (declare (not safe)) - (##car _%e6579866027%_)))) - (if (gx#stx-pair? _%hd6579966031%_) - (let ((_%e6580166037%_ - (gx#syntax-e _%hd6579966031%_))) - (let ((_%tl6580366044%_ + (##car _%e6605966288%_)))) + (if (gx#stx-pair? _%hd6606066292%_) + (let ((_%e6606266298%_ + (gx#syntax-e _%hd6606066292%_))) + (let ((_%tl6606466305%_ (let () (declare (not safe)) - (##cdr _%e6580166037%_))) - (_%hd6580266041%_ + (##cdr _%e6606266298%_))) + (_%hd6606366302%_ (let () (declare (not safe)) - (##car _%e6580166037%_)))) - (if (gx#stx-datum? _%hd6580266041%_) - (let ((_%e6580466047%_ - (gx#stx-e _%hd6580266041%_))) - (if (equal? _%e6580466047%_ '#f) + (##car _%e6606266298%_)))) + (if (gx#stx-datum? _%hd6606366302%_) + (let ((_%e6606566308%_ + (gx#stx-e _%hd6606366302%_))) + (if (equal? _%e6606566308%_ '#f) (if (gx#stx-pair? - _%tl6580366044%_) - (let ((_%e6580566051%_ + _%tl6606466305%_) + (let ((_%e6606666312%_ (gx#syntax-e - _%tl6580366044%_))) - (let ((_%tl6580766058%_ + _%tl6606466305%_))) + (let ((_%tl6606866319%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6580566051%_))) - (_%hd6580666055%_ - (let () (declare (not safe)) (##car _%e6580566051%_)))) - (if (gx#stx-pair? _%tl6580766058%_) - (let ((_%e6580866061%_ (gx#syntax-e _%tl6580766058%_))) - (let ((_%tl6581066068%_ + (##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 _%e6580866061%_))) - (_%hd6580966065%_ + (##cdr _%e6606966322%_))) + (_%hd6607066326%_ (let () (declare (not safe)) - (##car _%e6580866061%_)))) - (if (gx#stx-datum? _%hd6580966065%_) - (let ((_%e6581166071%_ - (gx#stx-e _%hd6580966065%_))) - (if (equal? _%e6581166071%_ '#f) - (if (gx#stx-null? _%tl6581066068%_) - (if (gx#stx-pair/null? _%tl6580066034%_) - (let ((_%__splice8236482365%_ + (##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 - _%tl6580066034%_ + _%tl6606166295%_ '0))) - (let ((_%tl6581466078%_ + (let ((_%tl6607566339%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236482365%_ + _%__splice8313083131%_ '1))) - (_%target6581266075%_ + (_%target6607366336%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236482365%_ + _%__splice8313083131%_ '0)))) (if (gx#stx-null? - _%tl6581466078%_) - (_%__match8242282423%_ - _%e6579566017%_ - _%hd6579666021%_ - _%tl6579766024%_ - _%e6579866027%_ - _%hd6579966031%_ - _%tl6580066034%_ - _%e6580166037%_ - _%hd6580266041%_ - _%tl6580366044%_ - _%e6580466047%_ - _%e6580566051%_ - _%hd6580666055%_ - _%tl6580766058%_ - _%e6580866061%_ - _%hd6580966065%_ - _%tl6581066068%_ - _%e6581166071%_ - _%__splice8236482365%_ - _%target6581266075%_ - _%tl6581466078%_) + _%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)) - (_%g6579165854%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6579165854%_))) + (_%g6605266115%_))) (let () (declare (not safe)) - (_%g6579165854%_))) - (if (gx#stx-null? _%tl6581066068%_) - (if (gx#stx-pair/null? _%tl6580066034%_) - (let ((_%__splice8236882369%_ + (_%g6605266115%_))) + (if (gx#stx-null? _%tl6607166329%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313483135%_ (gx#syntax-split-splice - _%tl6580066034%_ + _%tl6606166295%_ '0))) - (let ((_%tl6584265914%_ + (let ((_%tl6610366175%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236882369%_ + _%__splice8313483135%_ '1))) - (_%target6584065911%_ + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236882369%_ + _%__splice8313483135%_ '0)))) (if (gx#stx-null? - _%tl6584265914%_) - (_%__match8246282463%_ - _%e6579566017%_ - _%hd6579666021%_ - _%tl6579766024%_ - _%e6579866027%_ - _%hd6579966031%_ - _%tl6580066034%_ - _%e6580166037%_ - _%hd6580266041%_ - _%tl6580366044%_ - _%e6580566051%_ - _%hd6580666055%_ - _%tl6580766058%_ - _%e6580866061%_ - _%hd6580966065%_ - _%tl6581066068%_ - _%__splice8236882369%_ - _%target6584065911%_ - _%tl6584265914%_) + _%tl6610366175%_) + (_%__match8322883229%_ + _%e6605666278%_ + _%hd6605766282%_ + _%tl6605866285%_ + _%e6605966288%_ + _%hd6606066292%_ + _%tl6606166295%_ + _%e6606266298%_ + _%hd6606366302%_ + _%tl6606466305%_ + _%e6606666312%_ + _%hd6606766316%_ + _%tl6606866319%_ + _%e6606966322%_ + _%hd6607066326%_ + _%tl6607166329%_ + _%__splice8313483135%_ + _%target6610166172%_ + _%tl6610366175%_) (let () (declare (not safe)) - (_%g6579165854%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6579165854%_))) + (_%g6605266115%_))) (let () (declare (not safe)) - (_%g6579165854%_))))) - (if (gx#stx-null? _%tl6581066068%_) - (if (gx#stx-pair/null? _%tl6580066034%_) - (let ((_%__splice8236882369%_ + (_%g6605266115%_))))) + (if (gx#stx-null? _%tl6607166329%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313483135%_ (gx#syntax-split-splice - _%tl6580066034%_ + _%tl6606166295%_ '0))) - (let ((_%tl6584265914%_ + (let ((_%tl6610366175%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236882369%_ + _%__splice8313483135%_ '1))) - (_%target6584065911%_ + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236882369%_ + _%__splice8313483135%_ '0)))) - (if (gx#stx-null? _%tl6584265914%_) - (_%__match8246282463%_ - _%e6579566017%_ - _%hd6579666021%_ - _%tl6579766024%_ - _%e6579866027%_ - _%hd6579966031%_ - _%tl6580066034%_ - _%e6580166037%_ - _%hd6580266041%_ - _%tl6580366044%_ - _%e6580566051%_ - _%hd6580666055%_ - _%tl6580766058%_ - _%e6580866061%_ - _%hd6580966065%_ - _%tl6581066068%_ - _%__splice8236882369%_ - _%target6584065911%_ - _%tl6584265914%_) + (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)) - (_%g6579165854%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6579165854%_))) + (_%g6605266115%_))) (let () (declare (not safe)) - (_%g6579165854%_)))))) - (let () (declare (not safe)) (_%g6579165854%_))))) + (_%g6605266115%_)))))) + (let () (declare (not safe)) (_%g6605266115%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6579165854%_))) + (_%g6605266115%_))) (if (gx#stx-pair? - _%tl6580366044%_) - (let ((_%e6583465891%_ + _%tl6606466305%_) + (let ((_%e6609566152%_ (gx#syntax-e - _%tl6580366044%_))) - (let ((_%tl6583665898%_ + _%tl6606466305%_))) + (let ((_%tl6609766159%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6583465891%_))) - (_%hd6583565895%_ - (let () (declare (not safe)) (##car _%e6583465891%_)))) - (if (gx#stx-pair? _%tl6583665898%_) - (let ((_%e6583765901%_ (gx#syntax-e _%tl6583665898%_))) - (let ((_%tl6583965908%_ + (##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 _%e6583765901%_))) - (_%hd6583865905%_ + (##cdr _%e6609866162%_))) + (_%hd6609966166%_ (let () (declare (not safe)) - (##car _%e6583765901%_)))) - (if (gx#stx-null? _%tl6583965908%_) - (if (gx#stx-pair/null? _%tl6580066034%_) - (let ((_%__splice8236882369%_ + (##car _%e6609866162%_)))) + (if (gx#stx-null? _%tl6610066169%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313483135%_ (gx#syntax-split-splice - _%tl6580066034%_ + _%tl6606166295%_ '0))) - (let ((_%tl6584265914%_ + (let ((_%tl6610366175%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236882369%_ + _%__splice8313483135%_ '1))) - (_%target6584065911%_ + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236882369%_ + _%__splice8313483135%_ '0)))) - (if (gx#stx-null? _%tl6584265914%_) - (_%__match8246282463%_ - _%e6579566017%_ - _%hd6579666021%_ - _%tl6579766024%_ - _%e6579866027%_ - _%hd6579966031%_ - _%tl6580066034%_ - _%e6580166037%_ - _%hd6580266041%_ - _%tl6580366044%_ - _%e6583465891%_ - _%hd6583565895%_ - _%tl6583665898%_ - _%e6583765901%_ - _%hd6583865905%_ - _%tl6583965908%_ - _%__splice8236882369%_ - _%target6584065911%_ - _%tl6584265914%_) + (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)) - (_%g6579165854%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6579165854%_))) - (let () (declare (not safe)) (_%g6579165854%_))))) - (let () (declare (not safe)) (_%g6579165854%_))))) + (_%g6605266115%_))) + (let () (declare (not safe)) (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6579165854%_))))) - (if (gx#stx-pair? _%tl6580366044%_) - (let ((_%e6583465891%_ + (_%g6605266115%_))))) + (if (gx#stx-pair? _%tl6606466305%_) + (let ((_%e6609566152%_ (gx#syntax-e - _%tl6580366044%_))) - (let ((_%tl6583665898%_ + _%tl6606466305%_))) + (let ((_%tl6609766159%_ (let () (declare (not safe)) - (##cdr _%e6583465891%_))) - (_%hd6583565895%_ + (##cdr _%e6609566152%_))) + (_%hd6609666156%_ (let () (declare (not safe)) - (##car _%e6583465891%_)))) + (##car _%e6609566152%_)))) (if (gx#stx-pair? - _%tl6583665898%_) - (let ((_%e6583765901%_ + _%tl6609766159%_) + (let ((_%e6609866162%_ (gx#syntax-e - _%tl6583665898%_))) - (let ((_%tl6583965908%_ + _%tl6609766159%_))) + (let ((_%tl6610066169%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6583765901%_))) - (_%hd6583865905%_ - (let () (declare (not safe)) (##car _%e6583765901%_)))) - (if (gx#stx-null? _%tl6583965908%_) - (if (gx#stx-pair/null? _%tl6580066034%_) - (let ((_%__splice8236882369%_ - (gx#syntax-split-splice _%tl6580066034%_ '0))) - (let ((_%tl6584265914%_ + (##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 _%__splice8236882369%_ '1))) - (_%target6584065911%_ + (##vector-ref _%__splice8313483135%_ '1))) + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236882369%_ + _%__splice8313483135%_ '0)))) - (if (gx#stx-null? _%tl6584265914%_) - (_%__match8246282463%_ - _%e6579566017%_ - _%hd6579666021%_ - _%tl6579766024%_ - _%e6579866027%_ - _%hd6579966031%_ - _%tl6580066034%_ - _%e6580166037%_ - _%hd6580266041%_ - _%tl6580366044%_ - _%e6583465891%_ - _%hd6583565895%_ - _%tl6583665898%_ - _%e6583765901%_ - _%hd6583865905%_ - _%tl6583965908%_ - _%__splice8236882369%_ - _%target6584065911%_ - _%tl6584265914%_) + (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)) - (_%g6579165854%_))))) - (let () (declare (not safe)) (_%g6579165854%_))) - (let () (declare (not safe)) (_%g6579165854%_))))) - (let () (declare (not safe)) (_%g6579165854%_))))) + (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))) + (let () (declare (not safe)) (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6579165854%_)))))) + (_%g6605266115%_)))))) (let () (declare (not safe)) - (_%g6579165854%_))))) - (let () (declare (not safe)) (_%g6579165854%_))))) - (let () (declare (not safe)) (_%g6579165854%_)))))))) + (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-contract| - (lambda (_%stx66177%_) - (let* ((_%g6618066204%_ - (lambda (_%g6618166200%_) + (lambda (_%stx66438%_) + (let* ((_%g6644166465%_ + (lambda (_%g6644266461%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6618166200%_))) - (_%g6617966320%_ - (lambda (_%g6618166208%_) - (if (gx#stx-pair? _%g6618166208%_) - (let ((_%e6618466211%_ (gx#syntax-e _%g6618166208%_))) - (let ((_%hd6618566215%_ + _%g6644266461%_))) + (_%g6644066581%_ + (lambda (_%g6644266469%_) + (if (gx#stx-pair? _%g6644266469%_) + (let ((_%e6644566472%_ (gx#syntax-e _%g6644266469%_))) + (let ((_%hd6644666476%_ (let () (declare (not safe)) - (##car _%e6618466211%_))) - (_%tl6618666218%_ + (##car _%e6644566472%_))) + (_%tl6644766479%_ (let () (declare (not safe)) - (##cdr _%e6618466211%_)))) - (if (gx#stx-pair? _%tl6618666218%_) - (let ((_%e6618766221%_ - (gx#syntax-e _%tl6618666218%_))) - (let ((_%hd6618866225%_ + (##cdr _%e6644566472%_)))) + (if (gx#stx-pair? _%tl6644766479%_) + (let ((_%e6644866482%_ + (gx#syntax-e _%tl6644766479%_))) + (let ((_%hd6644966486%_ (let () (declare (not safe)) - (##car _%e6618766221%_))) - (_%tl6618966228%_ + (##car _%e6644866482%_))) + (_%tl6645066489%_ (let () (declare (not safe)) - (##cdr _%e6618766221%_)))) - (if (gx#stx-pair/null? _%tl6618966228%_) - (let ((_g84249_ + (##cdr _%e6644866482%_)))) + (if (gx#stx-pair/null? _%tl6645066489%_) + (let ((_g85132_ (gx#syntax-split-splice - _%tl6618966228%_ + _%tl6645066489%_ '0))) (begin - (let ((_g84250_ + (let ((_g85133_ (let () (declare (not safe)) - (if (##values? _g84249_) + (if (##values? _g85132_) (##values-length - _g84249_) + _g85132_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84250_ 2))) + (##fx= _g85133_ 2))) (error "Context expects 2 values" - _g84250_))) - (let ((_%target6619066231%_ + _g85133_))) + (let ((_%target6645166492%_ (let () (declare (not safe)) - (##values-ref _g84249_ 0))) - (_%tl6619266234%_ + (##values-ref _g85132_ 0))) + (_%tl6645366495%_ (let () (declare (not safe)) - (##values-ref _g84249_ 1)))) - (if (gx#stx-null? _%tl6619266234%_) - (letrec ((_%loop6619366237%_ - (lambda (_%hd6619166241%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6619766244%_) - (if (gx#stx-pair? _%hd6619166241%_) - (let ((_%e6619466247%_ (gx#syntax-e _%hd6619166241%_))) - (let ((_%lp-hd6619566251%_ + (##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 _%e6619466247%_))) - (_%lp-tl6619666254%_ + (##car _%e6645566508%_))) + (_%lp-tl6645766515%_ (let () (declare (not safe)) - (##cdr _%e6619466247%_)))) - (_%loop6619366237%_ - _%lp-tl6619666254%_ - (cons _%lp-hd6619566251%_ _%body6619766244%_)))) - (let ((_%body6619866257%_ - (reverse _%body6619766244%_))) - ((lambda (_%L66261%_ _%L66263%_) - (let* ((_%g6628166289%_ - (lambda (_%g6628266285%_) + (##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" - _%g6628266285%_))) - (_%g6628066316%_ - (lambda (_%g6628266293%_) - ((lambda (_%L66296%_) + _%g6654366546%_))) + (_%g6654166577%_ + (lambda (_%g6654366554%_) + ((lambda (_%L66557%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66296%_ - (foldr (lambda (_%g6630766310%_ + (cons _%L66557%_ + (foldr (lambda (_%g6656866571%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6630866313%_) - (cons _%g6630766310%_ _%g6630866313%_)) + _%g6656966574%_) + (cons _%g6656866571%_ _%g6656966574%_)) '() - _%L66261%_)))) + _%L66522%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6628266293%_)))) - (_%g6628066316%_ + _%g6654366554%_)))) + (_%g6654166577%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66177%_ - _%L66263%_ + _%stx66438%_ + _%L66524%_ '#t))))) - _%body6619866257%_ - _%hd6618866225%_)))))) + _%body6645966518%_ + _%hd6644966486%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6619366237%_ - _%target6619066231%_ + (_%loop6645466498%_ + _%target6645166492%_ '())) - (_%g6618066204%_ - _%g6618166208%_))))) - (_%g6618066204%_ _%g6618166208%_)))) - (_%g6618066204%_ _%g6618166208%_)))) - (_%g6618066204%_ _%g6618166208%_))))) - (_%g6617966320%_ _%stx66177%_)))) + (_%g6644166465%_ + _%g6644266469%_))))) + (_%g6644166465%_ _%g6644266469%_)))) + (_%g6644166465%_ _%g6644266469%_)))) + (_%g6644166465%_ _%g6644266469%_))))) + (_%g6644066581%_ _%stx66438%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-unchecked-contract| - (lambda (_%stx66325%_) - (let* ((_%g6632866352%_ - (lambda (_%g6632966348%_) + (lambda (_%stx66586%_) + (let* ((_%g6658966613%_ + (lambda (_%g6659066609%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6632966348%_))) - (_%g6632766468%_ - (lambda (_%g6632966356%_) - (if (gx#stx-pair? _%g6632966356%_) - (let ((_%e6633266359%_ (gx#syntax-e _%g6632966356%_))) - (let ((_%hd6633366363%_ + _%g6659066609%_))) + (_%g6658866729%_ + (lambda (_%g6659066617%_) + (if (gx#stx-pair? _%g6659066617%_) + (let ((_%e6659366620%_ (gx#syntax-e _%g6659066617%_))) + (let ((_%hd6659466624%_ (let () (declare (not safe)) - (##car _%e6633266359%_))) - (_%tl6633466366%_ + (##car _%e6659366620%_))) + (_%tl6659566627%_ (let () (declare (not safe)) - (##cdr _%e6633266359%_)))) - (if (gx#stx-pair? _%tl6633466366%_) - (let ((_%e6633566369%_ - (gx#syntax-e _%tl6633466366%_))) - (let ((_%hd6633666373%_ + (##cdr _%e6659366620%_)))) + (if (gx#stx-pair? _%tl6659566627%_) + (let ((_%e6659666630%_ + (gx#syntax-e _%tl6659566627%_))) + (let ((_%hd6659766634%_ (let () (declare (not safe)) - (##car _%e6633566369%_))) - (_%tl6633766376%_ + (##car _%e6659666630%_))) + (_%tl6659866637%_ (let () (declare (not safe)) - (##cdr _%e6633566369%_)))) - (if (gx#stx-pair/null? _%tl6633766376%_) - (let ((_g84251_ + (##cdr _%e6659666630%_)))) + (if (gx#stx-pair/null? _%tl6659866637%_) + (let ((_g85134_ (gx#syntax-split-splice - _%tl6633766376%_ + _%tl6659866637%_ '0))) (begin - (let ((_g84252_ + (let ((_g85135_ (let () (declare (not safe)) - (if (##values? _g84251_) + (if (##values? _g85134_) (##values-length - _g84251_) + _g85134_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84252_ 2))) + (##fx= _g85135_ 2))) (error "Context expects 2 values" - _g84252_))) - (let ((_%target6633866379%_ + _g85135_))) + (let ((_%target6659966640%_ (let () (declare (not safe)) - (##values-ref _g84251_ 0))) - (_%tl6634066382%_ + (##values-ref _g85134_ 0))) + (_%tl6660166643%_ (let () (declare (not safe)) - (##values-ref _g84251_ 1)))) - (if (gx#stx-null? _%tl6634066382%_) - (letrec ((_%loop6634166385%_ - (lambda (_%hd6633966389%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6634566392%_) - (if (gx#stx-pair? _%hd6633966389%_) - (let ((_%e6634266395%_ (gx#syntax-e _%hd6633966389%_))) - (let ((_%lp-hd6634366399%_ + (##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 _%e6634266395%_))) - (_%lp-tl6634466402%_ + (##car _%e6660366656%_))) + (_%lp-tl6660566663%_ (let () (declare (not safe)) - (##cdr _%e6634266395%_)))) - (_%loop6634166385%_ - _%lp-tl6634466402%_ - (cons _%lp-hd6634366399%_ _%body6634566392%_)))) - (let ((_%body6634666405%_ - (reverse _%body6634566392%_))) - ((lambda (_%L66409%_ _%L66411%_) - (let* ((_%g6642966437%_ - (lambda (_%g6643066433%_) + (##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" - _%g6643066433%_))) - (_%g6642866464%_ - (lambda (_%g6643066441%_) - ((lambda (_%L66444%_) + _%g6669166694%_))) + (_%g6668966725%_ + (lambda (_%g6669166702%_) + ((lambda (_%L66705%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66444%_ - (foldr (lambda (_%g6645566458%_ + (cons _%L66705%_ + (foldr (lambda (_%g6671666719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6645666461%_) - (cons _%g6645566458%_ _%g6645666461%_)) + _%g6671766722%_) + (cons _%g6671666719%_ _%g6671766722%_)) '() - _%L66409%_)))) + _%L66670%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6643066441%_)))) - (_%g6642866464%_ + _%g6669166702%_)))) + (_%g6668966725%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66325%_ - _%L66411%_ + _%stx66586%_ + _%L66672%_ '#f))))) - _%body6634666405%_ - _%hd6633666373%_)))))) + _%body6660766666%_ + _%hd6659766634%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6634166385%_ - _%target6633866379%_ + (_%loop6660266646%_ + _%target6659966640%_ '())) - (_%g6632866352%_ - _%g6632966356%_))))) - (_%g6632866352%_ _%g6632966356%_)))) - (_%g6632866352%_ _%g6632966356%_)))) - (_%g6632866352%_ _%g6632966356%_))))) - (_%g6632766468%_ _%stx66325%_)))) + (_%g6658966613%_ + _%g6659066617%_))))) + (_%g6658966613%_ _%g6659066617%_)))) + (_%g6658966613%_ _%g6659066617%_)))) + (_%g6658966613%_ _%g6659066617%_))))) + (_%g6658866729%_ _%stx66586%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#lambda/c| - (lambda (_%stx66473%_) - (letrec ((_%make-lambda66476%_ - (lambda (_%signature66744%_ _%return66746%_ _%body66747%_) - (let* ((_%g6674966781%_ - (lambda (_%g6675066777%_) + (lambda (_%stx66734%_) + (letrec ((_%make-lambda66737%_ + (lambda (_%signature67005%_ _%return67007%_ _%body67008%_) + (let* ((_%g6701067042%_ + (lambda (_%g6701167038%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6675066777%_))) - (_%g6674866896%_ - (lambda (_%g6675066785%_) - (if (gx#stx-pair? _%g6675066785%_) - (let ((_%e6675566788%_ - (gx#syntax-e _%g6675066785%_))) - (let ((_%hd6675666792%_ + _%g6701167038%_))) + (_%g6700967157%_ + (lambda (_%g6701167046%_) + (if (gx#stx-pair? _%g6701167046%_) + (let ((_%e6701667049%_ + (gx#syntax-e _%g6701167046%_))) + (let ((_%hd6701767053%_ (let () (declare (not safe)) - (##car _%e6675566788%_))) - (_%tl6675766795%_ + (##car _%e6701667049%_))) + (_%tl6701867056%_ (let () (declare (not safe)) - (##cdr _%e6675566788%_)))) - (if (gx#stx-pair? _%tl6675766795%_) - (let ((_%e6675866798%_ + (##cdr _%e6701667049%_)))) + (if (gx#stx-pair? _%tl6701867056%_) + (let ((_%e6701967059%_ (gx#syntax-e - _%tl6675766795%_))) - (let ((_%hd6675966802%_ + _%tl6701867056%_))) + (let ((_%hd6702067063%_ (let () (declare (not safe)) - (##car _%e6675866798%_))) - (_%tl6676066805%_ + (##car _%e6701967059%_))) + (_%tl6702167066%_ (let () (declare (not safe)) - (##cdr _%e6675866798%_)))) + (##cdr _%e6701967059%_)))) (if (gx#stx-pair? - _%tl6676066805%_) - (let ((_%e6676166808%_ + _%tl6702167066%_) + (let ((_%e6702267069%_ (gx#syntax-e - _%tl6676066805%_))) - (let ((_%hd6676266812%_ + _%tl6702167066%_))) + (let ((_%hd6702367073%_ (let () (declare (not safe)) - (##car _%e6676166808%_))) - (_%tl6676366815%_ + (##car _%e6702267069%_))) + (_%tl6702467076%_ (let () (declare (not safe)) - (##cdr _%e6676166808%_)))) + (##cdr _%e6702267069%_)))) (if (gx#stx-pair? - _%tl6676366815%_) - (let ((_%e6676466818%_ + _%tl6702467076%_) + (let ((_%e6702567079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6676366815%_))) - (let ((_%hd6676566822%_ + (gx#syntax-e _%tl6702467076%_))) + (let ((_%hd6702667083%_ (let () (declare (not safe)) - (##car _%e6676466818%_))) - (_%tl6676666825%_ + (##car _%e6702567079%_))) + (_%tl6702767086%_ (let () (declare (not safe)) - (##cdr _%e6676466818%_)))) - (if (gx#stx-pair/null? _%hd6676566822%_) - (let ((_g84253_ - (gx#syntax-split-splice _%hd6676566822%_ '0))) + (##cdr _%e6702567079%_)))) + (if (gx#stx-pair/null? _%hd6702667083%_) + (let ((_g85136_ + (gx#syntax-split-splice _%hd6702667083%_ '0))) (begin - (let ((_g84254_ + (let ((_g85137_ (let () (declare (not safe)) - (if (##values? _g84253_) - (##values-length _g84253_) + (if (##values? _g85136_) + (##values-length _g85136_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84254_ 2))) + (##fx= _g85137_ 2))) (error "Context expects 2 values" - _g84254_))) - (let ((_%target6676766828%_ + _g85137_))) + (let ((_%target6702867089%_ (let () (declare (not safe)) - (##values-ref _g84253_ 0))) - (_%tl6676966831%_ + (##values-ref _g85136_ 0))) + (_%tl6703067092%_ (let () (declare (not safe)) - (##values-ref _g84253_ 1)))) - (if (gx#stx-null? _%tl6676966831%_) - (letrec ((_%loop6677066834%_ - (lambda (_%hd6676866838%_ - _%body6677466841%_) + (##values-ref _g85136_ 1)))) + (if (gx#stx-null? _%tl6703067092%_) + (letrec ((_%loop6703167095%_ + (lambda (_%hd6702967099%_ + _%body6703567102%_) (if (gx#stx-pair? - _%hd6676866838%_) - (let ((_%e6677166844%_ + _%hd6702967099%_) + (let ((_%e6703267105%_ (gx#syntax-e - _%hd6676866838%_))) - (let ((_%lp-hd6677266848%_ + _%hd6702967099%_))) + (let ((_%lp-hd6703367109%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6677166844%_))) - (_%lp-tl6677366851%_ - (let () (declare (not safe)) (##cdr _%e6677166844%_)))) - (_%loop6677066834%_ - _%lp-tl6677366851%_ - (cons _%lp-hd6677266848%_ _%body6677466841%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6677566854%_ - (reverse _%body6677466841%_))) + (##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? - _%tl6676666825%_) - ((lambda (_%L66858%_ + _%tl6702767086%_) + ((lambda (_%L67119%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L66860%_ - _%L66861%_ - _%L66862%_) + _%L67121%_ + _%L67122%_ + _%L67123%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66862%_ + (cons _%L67123%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L66861%_ - (cons _%L66860%_ + (cons (cons _%L67122%_ + (cons _%L67121%_ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) @@ -3197,892 +3197,892 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-contract) - (cons _%L66861%_ - (foldr (lambda (_%g6688766890%_ _%g6688866893%_) - (cons _%g6688766890%_ _%g6688866893%_)) + (cons _%L67122%_ + (foldr (lambda (_%g6714867151%_ _%g6714967154%_) + (cons _%g6714867151%_ _%g6714967154%_)) '() - _%L66858%_))) + _%L67119%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx66473%_))) - _%body6677566854%_ - _%hd6676266812%_ - _%hd6675966802%_ - _%hd6675666792%_) - (_%g6674966781%_ _%g6675066785%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6677066834%_ - _%target6676766828%_ + (gx#stx-source _%stx66734%_))) + _%body6703667115%_ + _%hd6702367073%_ + _%hd6702067063%_ + _%hd6701767053%_) + (_%g6701067042%_ _%g6701167046%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6703167095%_ + _%target6702867089%_ '())) - (_%g6674966781%_ _%g6675066785%_))))) - (_%g6674966781%_ _%g6675066785%_)))) - (_%g6674966781%_ _%g6675066785%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6674966781%_ - _%g6675066785%_)))) - (_%g6674966781%_ _%g6675066785%_)))) - (_%g6674966781%_ _%g6675066785%_))))) - (_%g6674866896%_ + (_%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| - _%signature66744%_)) - _%signature66744%_ - _%return66746%_ - _%body66747%_)))))) - (let* ((_%__stx8246582466%_ _%stx66473%_) - (_%g6648066528%_ + _%signature67005%_)) + _%signature67005%_ + _%return67007%_ + _%body67008%_)))))) + (let* ((_%__stx8323183232%_ _%stx66734%_) + (_%g6674166789%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8246582466%_)))) - (let ((_%__kont8246882469%_ - (lambda (_%L66699%_ _%L66701%_ _%L66702%_) + _%__stx8323183232%_)))) + (let ((_%__kont8323483235%_ + (lambda (_%L66960%_ _%L66962%_ _%L66963%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66702%_) - (_%make-lambda66476%_ - _%L66702%_ - _%L66701%_ - (foldr (lambda (_%g6672366726%_ _%g6672466729%_) - (cons _%g6672366726%_ _%g6672466729%_)) + _%L66963%_) + (_%make-lambda66737%_ + _%L66963%_ + _%L66962%_ + (foldr (lambda (_%g6698466987%_ _%g6698566990%_) + (cons _%g6698466987%_ _%g6698566990%_)) '() - _%L66699%_)) + _%L66960%_)) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66702%_ + (cons _%L66963%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L66701%_ + (cons _%L66962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6673166734%_ _%g6673266737%_) - (cons _%g6673166734%_ _%g6673266737%_)) + (foldr (lambda (_%g6699266995%_ _%g6699366998%_) + (cons _%g6699266995%_ _%g6699366998%_)) '() - _%L66699%_))) + _%L66960%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8247282473%_ - (lambda (_%L66585%_ _%L66587%_) + (_%__kont8323883239%_ + (lambda (_%L66846%_ _%L66848%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66587%_) + _%L66848%_) (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L66587%_ + (cons _%L66848%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6660566608%_ + (foldr (lambda (_%g6686666869%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6660666611%_) - (cons _%g6660566608%_ _%g6660666611%_)) + _%g6686766872%_) + (cons _%g6686666869%_ _%g6686766872%_)) '() - _%L66585%_))))) + _%L66846%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66587%_ - (foldr (lambda (_%g6661366616%_ - _%g6661466619%_) - (cons _%g6661366616%_ - _%g6661466619%_)) + (cons _%L66848%_ + (foldr (lambda (_%g6687466877%_ + _%g6687566880%_) + (cons _%g6687466877%_ + _%g6687566880%_)) '() - _%L66585%_))))))) - (let* ((_%__match8253282533%_ - (lambda (_%e6650866535%_ - _%hd6650966539%_ - _%tl6651066542%_ - _%e6651166545%_ - _%hd6651266549%_ - _%tl6651366552%_ - _%__splice8247482475%_ - _%target6651466555%_ - _%tl6651666558%_) - (letrec ((_%loop6651766561%_ - (lambda (_%hd6651566565%_ _%body6652166568%_) - (if (gx#stx-pair? _%hd6651566565%_) - (let ((_%e6651866571%_ - (gx#syntax-e _%hd6651566565%_))) - (let ((_%lp-tl6652066578%_ + _%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 _%e6651866571%_))) - (_%lp-hd6651966575%_ + (##cdr _%e6677966832%_))) + (_%lp-hd6678066836%_ (let () (declare (not safe)) - (##car _%e6651866571%_)))) - (_%loop6651766561%_ - _%lp-tl6652066578%_ - (cons _%lp-hd6651966575%_ - _%body6652166568%_)))) - (let ((_%body6652266581%_ - (reverse _%body6652166568%_))) - (_%__kont8247282473%_ - _%body6652266581%_ - _%hd6651266549%_)))))) - (_%loop6651766561%_ _%target6651466555%_ '())))) - (_%__match8251282513%_ - (lambda (_%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%e6649166649%_ - _%hd6649266653%_ - _%tl6649366656%_ - _%e6649466659%_ - _%hd6649566663%_ - _%tl6649666666%_ - _%__splice8247082471%_ - _%target6649766669%_ - _%tl6649966672%_) - (letrec ((_%loop6650066675%_ - (lambda (_%hd6649866679%_ _%body6650466682%_) - (if (gx#stx-pair? _%hd6649866679%_) - (let ((_%e6650166685%_ - (gx#syntax-e _%hd6649866679%_))) - (let ((_%lp-tl6650366692%_ + (##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 _%e6650166685%_))) - (_%lp-hd6650266689%_ + (##cdr _%e6676266946%_))) + (_%lp-hd6676366950%_ (let () (declare (not safe)) - (##car _%e6650166685%_)))) - (_%loop6650066675%_ - _%lp-tl6650366692%_ - (cons _%lp-hd6650266689%_ - _%body6650466682%_)))) - (let ((_%body6650566695%_ - (reverse _%body6650466682%_))) - (_%__kont8246882469%_ - _%body6650566695%_ - _%hd6649566663%_ - _%hd6648966643%_)))))) - (_%loop6650066675%_ _%target6649766669%_ '()))))) - (if (gx#stx-pair? _%__stx8246582466%_) - (let ((_%e6648566629%_ (gx#syntax-e _%__stx8246582466%_))) - (let ((_%tl6648766636%_ + (##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 _%e6648566629%_))) - (_%hd6648666633%_ + (##cdr _%e6674666890%_))) + (_%hd6674766894%_ (let () (declare (not safe)) - (##car _%e6648566629%_)))) - (if (gx#stx-pair? _%tl6648766636%_) - (let ((_%e6648866639%_ - (gx#syntax-e _%tl6648766636%_))) - (let ((_%tl6649066646%_ + (##car _%e6674666890%_)))) + (if (gx#stx-pair? _%tl6674866897%_) + (let ((_%e6674966900%_ + (gx#syntax-e _%tl6674866897%_))) + (let ((_%tl6675166907%_ (let () (declare (not safe)) - (##cdr _%e6648866639%_))) - (_%hd6648966643%_ + (##cdr _%e6674966900%_))) + (_%hd6675066904%_ (let () (declare (not safe)) - (##car _%e6648866639%_)))) - (if (gx#stx-pair? _%tl6649066646%_) - (let ((_%e6649166649%_ - (gx#syntax-e _%tl6649066646%_))) - (let ((_%tl6649366656%_ + (##car _%e6674966900%_)))) + (if (gx#stx-pair? _%tl6675166907%_) + (let ((_%e6675266910%_ + (gx#syntax-e _%tl6675166907%_))) + (let ((_%tl6675466917%_ (let () (declare (not safe)) - (##cdr _%e6649166649%_))) - (_%hd6649266653%_ + (##cdr _%e6675266910%_))) + (_%hd6675366914%_ (let () (declare (not safe)) - (##car _%e6649166649%_)))) - (if (gx#identifier? _%hd6649266653%_) + (##car _%e6675266910%_)))) + (if (gx#identifier? _%hd6675366914%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84255_| - _%hd6649266653%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85138_| + _%hd6675366914%_) (if (gx#stx-pair? - _%tl6649366656%_) - (let ((_%e6649466659%_ + _%tl6675466917%_) + (let ((_%e6675566920%_ (gx#syntax-e - _%tl6649366656%_))) - (let ((_%tl6649666666%_ + _%tl6675466917%_))) + (let ((_%tl6675766927%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6649466659%_))) - (_%hd6649566663%_ - (let () (declare (not safe)) (##car _%e6649466659%_)))) - (if (gx#stx-pair/null? _%tl6649666666%_) - (let ((_%__splice8247082471%_ - (gx#syntax-split-splice _%tl6649666666%_ '0))) - (let ((_%tl6649966672%_ + (##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 _%__splice8247082471%_ '1))) - (_%target6649766669%_ + (##vector-ref _%__splice8323683237%_ '1))) + (_%target6675866930%_ (let () (declare (not safe)) - (##vector-ref _%__splice8247082471%_ '0)))) - (if (gx#stx-null? _%tl6649966672%_) - (_%__match8251282513%_ - _%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%e6649166649%_ - _%hd6649266653%_ - _%tl6649366656%_ - _%e6649466659%_ - _%hd6649566663%_ - _%tl6649666666%_ - _%__splice8247082471%_ - _%target6649766669%_ - _%tl6649966672%_) - (if (gx#stx-pair/null? _%tl6649066646%_) - (let ((_%__splice8247482475%_ + (##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 - _%tl6649066646%_ + _%tl6675166907%_ '0))) - (let ((_%tl6651666558%_ + (let ((_%tl6677766819%_ (let () (declare (not safe)) (##vector-ref - _%__splice8247482475%_ + _%__splice8324083241%_ '1))) - (_%target6651466555%_ + (_%target6677566816%_ (let () (declare (not safe)) (##vector-ref - _%__splice8247482475%_ + _%__splice8324083241%_ '0)))) - (if (gx#stx-null? _%tl6651666558%_) - (_%__match8253282533%_ - _%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%__splice8247482475%_ - _%target6651466555%_ - _%tl6651666558%_) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6648066528%_))))) + (_%g6674166789%_))))) (let () (declare (not safe)) - (_%g6648066528%_)))))) - (if (gx#stx-pair/null? _%tl6649066646%_) - (let ((_%__splice8247482475%_ - (gx#syntax-split-splice _%tl6649066646%_ '0))) - (let ((_%tl6651666558%_ + (_%g6674166789%_)))))) + (if (gx#stx-pair/null? _%tl6675166907%_) + (let ((_%__splice8324083241%_ + (gx#syntax-split-splice _%tl6675166907%_ '0))) + (let ((_%tl6677766819%_ (let () (declare (not safe)) - (##vector-ref _%__splice8247482475%_ '1))) - (_%target6651466555%_ + (##vector-ref _%__splice8324083241%_ '1))) + (_%target6677566816%_ (let () (declare (not safe)) - (##vector-ref _%__splice8247482475%_ '0)))) - (if (gx#stx-null? _%tl6651666558%_) - (_%__match8253282533%_ - _%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%__splice8247482475%_ - _%target6651466555%_ - _%tl6651666558%_) + (##vector-ref _%__splice8324083241%_ '0)))) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6648066528%_))))) - (let () (declare (not safe)) (_%g6648066528%_)))))) + (_%g6674166789%_))))) + (let () (declare (not safe)) (_%g6674166789%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6649066646%_) - (let ((_%__splice8247482475%_ + _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6649066646%_ + _%tl6675166907%_ '0))) - (let ((_%tl6651666558%_ + (let ((_%tl6677766819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8247482475%_ '1))) - (_%target6651466555%_ + (##vector-ref _%__splice8324083241%_ '1))) + (_%target6677566816%_ (let () (declare (not safe)) - (##vector-ref _%__splice8247482475%_ '0)))) - (if (gx#stx-null? _%tl6651666558%_) - (_%__match8253282533%_ - _%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%__splice8247482475%_ - _%target6651466555%_ - _%tl6651666558%_) - (let () (declare (not safe)) (_%g6648066528%_))))) - (let () (declare (not safe)) (_%g6648066528%_)))) + (##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? - _%tl6649066646%_) - (let ((_%__splice8247482475%_ + _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6649066646%_ + _%tl6675166907%_ '0))) - (let ((_%tl6651666558%_ + (let ((_%tl6677766819%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8247482475%_ '1))) - (_%target6651466555%_ + (##vector-ref _%__splice8324083241%_ '1))) + (_%target6677566816%_ (let () (declare (not safe)) - (##vector-ref _%__splice8247482475%_ '0)))) - (if (gx#stx-null? _%tl6651666558%_) - (_%__match8253282533%_ - _%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%__splice8247482475%_ - _%target6651466555%_ - _%tl6651666558%_) - (let () (declare (not safe)) (_%g6648066528%_))))) + (##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)) - (_%g6648066528%_)))) + (_%g6674166789%_)))) (if (gx#stx-pair/null? - _%tl6649066646%_) - (let ((_%__splice8247482475%_ + _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6649066646%_ + _%tl6675166907%_ '0))) - (let ((_%tl6651666558%_ + (let ((_%tl6677766819%_ (let () (declare (not safe)) (##vector-ref - _%__splice8247482475%_ + _%__splice8324083241%_ '1))) - (_%target6651466555%_ + (_%target6677566816%_ (let () (declare (not safe)) (##vector-ref - _%__splice8247482475%_ + _%__splice8324083241%_ '0)))) (if (gx#stx-null? - _%tl6651666558%_) - (_%__match8253282533%_ - _%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%__splice8247482475%_ - _%target6651466555%_ - _%tl6651666558%_) + _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6648066528%_))))) + (_%g6674166789%_))))) (let () (declare (not safe)) - (_%g6648066528%_)))))) - (if (gx#stx-pair/null? _%tl6649066646%_) - (let ((_%__splice8247482475%_ + (_%g6674166789%_)))))) + (if (gx#stx-pair/null? _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6649066646%_ + _%tl6675166907%_ '0))) - (let ((_%tl6651666558%_ + (let ((_%tl6677766819%_ (let () (declare (not safe)) (##vector-ref - _%__splice8247482475%_ + _%__splice8324083241%_ '1))) - (_%target6651466555%_ + (_%target6677566816%_ (let () (declare (not safe)) (##vector-ref - _%__splice8247482475%_ + _%__splice8324083241%_ '0)))) - (if (gx#stx-null? _%tl6651666558%_) - (_%__match8253282533%_ - _%e6648566629%_ - _%hd6648666633%_ - _%tl6648766636%_ - _%e6648866639%_ - _%hd6648966643%_ - _%tl6649066646%_ - _%__splice8247482475%_ - _%target6651466555%_ - _%tl6651666558%_) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6648066528%_))))) + (_%g6674166789%_))))) (let () (declare (not safe)) - (_%g6648066528%_)))))) - (let () (declare (not safe)) (_%g6648066528%_))))) - (let () (declare (not safe)) (_%g6648066528%_))))))))) + (_%g6674166789%_)))))) + (let () (declare (not safe)) (_%g6674166789%_))))) + (let () (declare (not safe)) (_%g6674166789%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def*/c| - (lambda (_%$stx66903%_) - (let* ((_%g6690766931%_ - (lambda (_%g6690866927%_) + (lambda (_%$stx67164%_) + (let* ((_%g6716867192%_ + (lambda (_%g6716967188%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6690866927%_))) - (_%g6690667016%_ - (lambda (_%g6690866935%_) - (if (gx#stx-pair? _%g6690866935%_) - (let ((_%e6691166938%_ (gx#syntax-e _%g6690866935%_))) - (let ((_%hd6691266942%_ + _%g6716967188%_))) + (_%g6716767277%_ + (lambda (_%g6716967196%_) + (if (gx#stx-pair? _%g6716967196%_) + (let ((_%e6717267199%_ (gx#syntax-e _%g6716967196%_))) + (let ((_%hd6717367203%_ (let () (declare (not safe)) - (##car _%e6691166938%_))) - (_%tl6691366945%_ + (##car _%e6717267199%_))) + (_%tl6717467206%_ (let () (declare (not safe)) - (##cdr _%e6691166938%_)))) - (if (gx#stx-pair? _%tl6691366945%_) - (let ((_%e6691466948%_ - (gx#syntax-e _%tl6691366945%_))) - (let ((_%hd6691566952%_ + (##cdr _%e6717267199%_)))) + (if (gx#stx-pair? _%tl6717467206%_) + (let ((_%e6717567209%_ + (gx#syntax-e _%tl6717467206%_))) + (let ((_%hd6717667213%_ (let () (declare (not safe)) - (##car _%e6691466948%_))) - (_%tl6691666955%_ + (##car _%e6717567209%_))) + (_%tl6717767216%_ (let () (declare (not safe)) - (##cdr _%e6691466948%_)))) - (if (gx#stx-pair/null? _%tl6691666955%_) - (let ((_g84256_ + (##cdr _%e6717567209%_)))) + (if (gx#stx-pair/null? _%tl6717767216%_) + (let ((_g85139_ (gx#syntax-split-splice - _%tl6691666955%_ + _%tl6717767216%_ '0))) (begin - (let ((_g84257_ + (let ((_g85140_ (let () (declare (not safe)) - (if (##values? _g84256_) + (if (##values? _g85139_) (##values-length - _g84256_) + _g85139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84257_ 2))) + (##fx= _g85140_ 2))) (error "Context expects 2 values" - _g84257_))) - (let ((_%target6691766958%_ + _g85140_))) + (let ((_%target6717867219%_ (let () (declare (not safe)) - (##values-ref _g84256_ 0))) - (_%tl6691966961%_ + (##values-ref _g85139_ 0))) + (_%tl6718067222%_ (let () (declare (not safe)) - (##values-ref _g84256_ 1)))) - (if (gx#stx-null? _%tl6691966961%_) - (letrec ((_%loop6692066964%_ - (lambda (_%hd6691866968%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause6692466971%_) - (if (gx#stx-pair? _%hd6691866968%_) - (let ((_%e6692166974%_ (gx#syntax-e _%hd6691866968%_))) - (let ((_%lp-hd6692266978%_ + (##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 _%e6692166974%_))) - (_%lp-tl6692366981%_ + (##car _%e6718267235%_))) + (_%lp-tl6718467242%_ (let () (declare (not safe)) - (##cdr _%e6692166974%_)))) - (_%loop6692066964%_ - _%lp-tl6692366981%_ - (cons _%lp-hd6692266978%_ _%clause6692466971%_)))) - (let ((_%clause6692566984%_ - (reverse _%clause6692466971%_))) - ((lambda (_%L66988%_ _%L66990%_) + (##cdr _%e6718267235%_)))) + (_%loop6718167225%_ + _%lp-tl6718467242%_ + (cons _%lp-hd6718367239%_ _%clause6718567232%_)))) + (let ((_%clause6718667245%_ + (reverse _%clause6718567232%_))) + ((lambda (_%L67249%_ _%L67251%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L66990%_ + (cons _%L67251%_ (cons (cons (gx#datum->syntax '#f 'case-lambda/c) - (foldr (lambda (_%g6700767010%_ + (foldr (lambda (_%g6726867271%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6700867013%_) - (cons _%g6700767010%_ _%g6700867013%_)) + _%g6726967274%_) + (cons _%g6726867271%_ _%g6726967274%_)) '() - _%L66988%_)) + _%L67249%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause6692566984%_ - _%hd6691566952%_)))))) + _%clause6718667245%_ + _%hd6717667213%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6692066964%_ - _%target6691766958%_ + (_%loop6718167225%_ + _%target6717867219%_ '())) - (_%g6690766931%_ - _%g6690866935%_))))) - (_%g6690766931%_ _%g6690866935%_)))) - (_%g6690766931%_ _%g6690866935%_)))) - (_%g6690766931%_ _%g6690866935%_))))) - (_%g6690667016%_ _%$stx66903%_)))) + (_%g6716867192%_ + _%g6716967196%_))))) + (_%g6716867192%_ _%g6716967196%_)))) + (_%g6716867192%_ _%g6716967196%_)))) + (_%g6716867192%_ _%g6716967196%_))))) + (_%g6716767277%_ _%$stx67164%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#case-lambda/c| - (lambda (_%stx67021%_) - (letrec ((_%is-clause-signature?67024%_ - (lambda (_%clause67558%_) - (let* ((_%__stx8253582536%_ _%clause67558%_) - (_%g6756267604%_ + (lambda (_%stx67282%_) + (letrec ((_%is-clause-signature?67285%_ + (lambda (_%clause67819%_) + (let* ((_%__stx8330183302%_ _%clause67819%_) + (_%g6782367865%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8253582536%_)))) - (let ((_%__kont8253882539%_ - (lambda (_%L67736%_ _%L67738%_ _%L67739%_) '#t)) - (_%__kont8254282543%_ - (lambda (_%L67651%_ _%L67653%_) + _%__stx8330183302%_)))) + (let ((_%__kont8330483305%_ + (lambda (_%L67997%_ _%L67999%_ _%L68000%_) '#t)) + (_%__kont8330883309%_ + (lambda (_%L67912%_ _%L67914%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67653%_)))) - (let* ((_%__match8259082591%_ - (lambda (_%e6758767611%_ - _%hd6758867615%_ - _%tl6758967618%_ - _%__splice8254482545%_ - _%target6759067621%_ - _%tl6759267624%_) - (letrec ((_%loop6759367627%_ - (lambda (_%hd6759167631%_ - _%body6759767634%_) + _%L67914%_)))) + (let* ((_%__match8335683357%_ + (lambda (_%e6784867872%_ + _%hd6784967876%_ + _%tl6785067879%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) + (letrec ((_%loop6785467888%_ + (lambda (_%hd6785267892%_ + _%body6785867895%_) (if (gx#stx-pair? - _%hd6759167631%_) - (let ((_%e6759467637%_ + _%hd6785267892%_) + (let ((_%e6785567898%_ (gx#syntax-e - _%hd6759167631%_))) - (let ((_%lp-tl6759667644%_ + _%hd6785267892%_))) + (let ((_%lp-tl6785767905%_ (let () (declare (not safe)) - (##cdr _%e6759467637%_))) - (_%lp-hd6759567641%_ + (##cdr _%e6785567898%_))) + (_%lp-hd6785667902%_ (let () (declare (not safe)) - (##car _%e6759467637%_)))) - (_%loop6759367627%_ - _%lp-tl6759667644%_ - (cons _%lp-hd6759567641%_ - _%body6759767634%_)))) - (let ((_%body6759867647%_ - (reverse _%body6759767634%_))) - (_%__kont8254282543%_ - _%body6759867647%_ - _%hd6758867615%_)))))) - (_%loop6759367627%_ - _%target6759067621%_ + (##car _%e6785567898%_)))) + (_%loop6785467888%_ + _%lp-tl6785767905%_ + (cons _%lp-hd6785667902%_ + _%body6785867895%_)))) + (let ((_%body6785967908%_ + (reverse _%body6785867895%_))) + (_%__kont8330883309%_ + _%body6785967908%_ + _%hd6784967876%_)))))) + (_%loop6785467888%_ + _%target6785167882%_ '())))) - (_%__match8257682577%_ - (lambda (_%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%e6757067686%_ - _%hd6757167690%_ - _%tl6757267693%_ - _%e6757367696%_ - _%hd6757467700%_ - _%tl6757567703%_ - _%__splice8254082541%_ - _%target6757667706%_ - _%tl6757867709%_) - (letrec ((_%loop6757967712%_ - (lambda (_%hd6757767716%_ - _%body6758367719%_) + (_%__match8334283343%_ + (lambda (_%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%e6783167947%_ + _%hd6783267951%_ + _%tl6783367954%_ + _%e6783467957%_ + _%hd6783567961%_ + _%tl6783667964%_ + _%__splice8330683307%_ + _%target6783767967%_ + _%tl6783967970%_) + (letrec ((_%loop6784067973%_ + (lambda (_%hd6783867977%_ + _%body6784467980%_) (if (gx#stx-pair? - _%hd6757767716%_) - (let ((_%e6758067722%_ + _%hd6783867977%_) + (let ((_%e6784167983%_ (gx#syntax-e - _%hd6757767716%_))) - (let ((_%lp-tl6758267729%_ + _%hd6783867977%_))) + (let ((_%lp-tl6784367990%_ (let () (declare (not safe)) - (##cdr _%e6758067722%_))) - (_%lp-hd6758167726%_ + (##cdr _%e6784167983%_))) + (_%lp-hd6784267987%_ (let () (declare (not safe)) - (##car _%e6758067722%_)))) - (_%loop6757967712%_ - _%lp-tl6758267729%_ - (cons _%lp-hd6758167726%_ - _%body6758367719%_)))) - (let ((_%body6758467732%_ - (reverse _%body6758367719%_))) - (_%__kont8253882539%_ - _%body6758467732%_ - _%hd6757467700%_ - _%hd6756867680%_)))))) - (_%loop6757967712%_ - _%target6757667706%_ + (##car _%e6784167983%_)))) + (_%loop6784067973%_ + _%lp-tl6784367990%_ + (cons _%lp-hd6784267987%_ + _%body6784467980%_)))) + (let ((_%body6784567993%_ + (reverse _%body6784467980%_))) + (_%__kont8330483305%_ + _%body6784567993%_ + _%hd6783567961%_ + _%hd6782967941%_)))))) + (_%loop6784067973%_ + _%target6783767967%_ '()))))) - (if (gx#stx-pair? _%__stx8253582536%_) - (let ((_%e6756767676%_ - (gx#syntax-e _%__stx8253582536%_))) - (let ((_%tl6756967683%_ + (if (gx#stx-pair? _%__stx8330183302%_) + (let ((_%e6782867937%_ + (gx#syntax-e _%__stx8330183302%_))) + (let ((_%tl6783067944%_ (let () (declare (not safe)) - (##cdr _%e6756767676%_))) - (_%hd6756867680%_ + (##cdr _%e6782867937%_))) + (_%hd6782967941%_ (let () (declare (not safe)) - (##car _%e6756767676%_)))) - (if (gx#stx-pair? _%tl6756967683%_) - (let ((_%e6757067686%_ - (gx#syntax-e _%tl6756967683%_))) - (let ((_%tl6757267693%_ + (##car _%e6782867937%_)))) + (if (gx#stx-pair? _%tl6783067944%_) + (let ((_%e6783167947%_ + (gx#syntax-e _%tl6783067944%_))) + (let ((_%tl6783367954%_ (let () (declare (not safe)) - (##cdr _%e6757067686%_))) - (_%hd6757167690%_ + (##cdr _%e6783167947%_))) + (_%hd6783267951%_ (let () (declare (not safe)) - (##car _%e6757067686%_)))) - (if (gx#identifier? _%hd6757167690%_) + (##car _%e6783167947%_)))) + (if (gx#identifier? _%hd6783267951%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84258_| - _%hd6757167690%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85141_| + _%hd6783267951%_) (if (gx#stx-pair? - _%tl6757267693%_) - (let ((_%e6757367696%_ + _%tl6783367954%_) + (let ((_%e6783467957%_ (gx#syntax-e - _%tl6757267693%_))) - (let ((_%tl6757567703%_ + _%tl6783367954%_))) + (let ((_%tl6783667964%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6757367696%_))) - (_%hd6757467700%_ - (let () (declare (not safe)) (##car _%e6757367696%_)))) - (if (gx#stx-pair/null? _%tl6757567703%_) - (let ((_%__splice8254082541%_ - (gx#syntax-split-splice _%tl6757567703%_ '0))) - (let ((_%tl6757867709%_ + (##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 _%__splice8254082541%_ '1))) - (_%target6757667706%_ + (##vector-ref _%__splice8330683307%_ '1))) + (_%target6783767967%_ (let () (declare (not safe)) - (##vector-ref _%__splice8254082541%_ '0)))) - (if (gx#stx-null? _%tl6757867709%_) - (_%__match8257682577%_ - _%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%e6757067686%_ - _%hd6757167690%_ - _%tl6757267693%_ - _%e6757367696%_ - _%hd6757467700%_ - _%tl6757567703%_ - _%__splice8254082541%_ - _%target6757667706%_ - _%tl6757867709%_) - (if (gx#stx-pair/null? _%tl6756967683%_) - (let ((_%__splice8254482545%_ + (##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 - _%tl6756967683%_ + _%tl6783067944%_ '0))) - (let ((_%tl6759267624%_ + (let ((_%tl6785367885%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254482545%_ + _%__splice8331083311%_ '1))) - (_%target6759067621%_ + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254482545%_ + _%__splice8331083311%_ '0)))) - (if (gx#stx-null? _%tl6759267624%_) - (_%__match8259082591%_ - _%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%__splice8254482545%_ - _%target6759067621%_ - _%tl6759267624%_) + (if (gx#stx-null? _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6756267604%_))))) + (_%g6782367865%_))))) (let () (declare (not safe)) - (_%g6756267604%_)))))) - (if (gx#stx-pair/null? _%tl6756967683%_) - (let ((_%__splice8254482545%_ - (gx#syntax-split-splice _%tl6756967683%_ '0))) - (let ((_%tl6759267624%_ + (_%g6782367865%_)))))) + (if (gx#stx-pair/null? _%tl6783067944%_) + (let ((_%__splice8331083311%_ + (gx#syntax-split-splice _%tl6783067944%_ '0))) + (let ((_%tl6785367885%_ (let () (declare (not safe)) - (##vector-ref _%__splice8254482545%_ '1))) - (_%target6759067621%_ + (##vector-ref _%__splice8331083311%_ '1))) + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254482545%_ + _%__splice8331083311%_ '0)))) - (if (gx#stx-null? _%tl6759267624%_) - (_%__match8259082591%_ - _%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%__splice8254482545%_ - _%target6759067621%_ - _%tl6759267624%_) + (if (gx#stx-null? _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6756267604%_))))) - (let () (declare (not safe)) (_%g6756267604%_)))))) - (if (gx#stx-pair/null? _%tl6756967683%_) - (let ((_%__splice8254482545%_ - (gx#syntax-split-splice _%tl6756967683%_ '0))) - (let ((_%tl6759267624%_ + (_%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 _%__splice8254482545%_ '1))) - (_%target6759067621%_ + (##vector-ref _%__splice8331083311%_ '1))) + (_%target6785167882%_ (let () (declare (not safe)) - (##vector-ref _%__splice8254482545%_ '0)))) - (if (gx#stx-null? _%tl6759267624%_) - (_%__match8259082591%_ - _%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%__splice8254482545%_ - _%target6759067621%_ - _%tl6759267624%_) - (let () (declare (not safe)) (_%g6756267604%_))))) - (let () (declare (not safe)) (_%g6756267604%_)))) + (##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? - _%tl6756967683%_) - (let ((_%__splice8254482545%_ + _%tl6783067944%_) + (let ((_%__splice8331083311%_ (gx#syntax-split-splice - _%tl6756967683%_ + _%tl6783067944%_ '0))) - (let ((_%tl6759267624%_ + (let ((_%tl6785367885%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8254482545%_ '1))) - (_%target6759067621%_ + (##vector-ref _%__splice8331083311%_ '1))) + (_%target6785167882%_ (let () (declare (not safe)) - (##vector-ref _%__splice8254482545%_ '0)))) - (if (gx#stx-null? _%tl6759267624%_) - (_%__match8259082591%_ - _%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%__splice8254482545%_ - _%target6759067621%_ - _%tl6759267624%_) - (let () (declare (not safe)) (_%g6756267604%_))))) - (let () (declare (not safe)) (_%g6756267604%_)))) + (##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? - _%tl6756967683%_) - (let ((_%__splice8254482545%_ + _%tl6783067944%_) + (let ((_%__splice8331083311%_ (gx#syntax-split-splice - _%tl6756967683%_ + _%tl6783067944%_ '0))) - (let ((_%tl6759267624%_ + (let ((_%tl6785367885%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254482545%_ + _%__splice8331083311%_ '1))) - (_%target6759067621%_ + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254482545%_ + _%__splice8331083311%_ '0)))) (if (gx#stx-null? - _%tl6759267624%_) - (_%__match8259082591%_ - _%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%__splice8254482545%_ - _%target6759067621%_ - _%tl6759267624%_) + _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6756267604%_))))) + (_%g6782367865%_))))) (let () (declare (not safe)) - (_%g6756267604%_)))))) - (if (gx#stx-pair/null? _%tl6756967683%_) - (let ((_%__splice8254482545%_ + (_%g6782367865%_)))))) + (if (gx#stx-pair/null? _%tl6783067944%_) + (let ((_%__splice8331083311%_ (gx#syntax-split-splice - _%tl6756967683%_ + _%tl6783067944%_ '0))) - (let ((_%tl6759267624%_ + (let ((_%tl6785367885%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254482545%_ + _%__splice8331083311%_ '1))) - (_%target6759067621%_ + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254482545%_ + _%__splice8331083311%_ '0)))) (if (gx#stx-null? - _%tl6759267624%_) - (_%__match8259082591%_ - _%e6756767676%_ - _%hd6756867680%_ - _%tl6756967683%_ - _%__splice8254482545%_ - _%target6759067621%_ - _%tl6759267624%_) + _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6756267604%_))))) + (_%g6782367865%_))))) (let () (declare (not safe)) - (_%g6756267604%_)))))) + (_%g6782367865%_)))))) (let () (declare (not safe)) - (_%g6756267604%_)))))))) - (_%clause-e67026%_ - (lambda (_%clause67298%_) - (let* ((_%__stx8259382594%_ _%clause67298%_) - (_%g6730267344%_ + (_%g6782367865%_)))))))) + (_%clause-e67287%_ + (lambda (_%clause67559%_) + (let* ((_%__stx8335983360%_ _%clause67559%_) + (_%g6756367605%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8259382594%_)))) - (let ((_%__kont8259682597%_ - (lambda (_%L67484%_ _%L67486%_ _%L67487%_) + _%__stx8335983360%_)))) + (let ((_%__kont8336283363%_ + (lambda (_%L67745%_ _%L67747%_ _%L67748%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67487%_) + _%L67748%_) (begin (let () (declare (not safe)) @@ -4090,652 +4090,652 @@ '#f '#f '#f - _%stx67021%_ - _%L67487%_ - _%L67486%_)) - (let* ((_%g6750767515%_ - (lambda (_%g6750867511%_) + _%stx67282%_ + _%L67748%_ + _%L67747%_)) + (let* ((_%g6776867776%_ + (lambda (_%g6776967772%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6750867511%_))) - (_%g6750667542%_ - (lambda (_%g6750867519%_) - ((lambda (_%L67522%_) - (cons _%L67522%_ + _%g6776967772%_))) + (_%g6776767803%_ + (lambda (_%g6776967780%_) + ((lambda (_%L67783%_) + (cons _%L67783%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-signature) - (cons (cons _%L67487%_ - (cons _%L67486%_ (cons '#f '()))) + (cons (cons _%L67748%_ + (cons _%L67747%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L67487%_ - (foldr (lambda (_%g6753367536%_ + (cons _%L67748%_ + (foldr (lambda (_%g6779467797%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6753467539%_) - (cons _%g6753367536%_ _%g6753467539%_)) + _%g6779567800%_) + (cons _%g6779467797%_ _%g6779567800%_)) '() - _%L67484%_))) + _%L67745%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6750867519%_)))) - (_%g6750667542%_ + _%g6776967780%_)))) + (_%g6776767803%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%L67487%_))))) - (cons _%L67487%_ + _%L67748%_))))) + (cons _%L67748%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L67486%_ (cons '#f '()))) - (foldr (lambda (_%g6754567548%_ _%g6754667551%_) - (cons _%g6754567548%_ _%g6754667551%_)) + (cons _%L67747%_ (cons '#f '()))) + (foldr (lambda (_%g6780667809%_ _%g6780767812%_) + (cons _%g6780667809%_ _%g6780767812%_)) '() - _%L67484%_))) + _%L67745%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8260082601%_ - (lambda (_%L67391%_ _%L67393%_) + (_%__kont8336683367%_ + (lambda (_%L67652%_ _%L67654%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67393%_) - (_%clause-e67026%_ - (cons _%L67393%_ + _%L67654%_) + (_%clause-e67287%_ + (cons _%L67654%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6740867411%_ + (foldr (lambda (_%g6766967672%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6740967414%_) - (cons _%g6740867411%_ _%g6740967414%_)) + _%g6767067675%_) + (cons _%g6766967672%_ _%g6767067675%_)) '() - _%L67391%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause67298%_)))) - (let* ((_%__match8264882649%_ - (lambda (_%e6732767351%_ - _%hd6732867355%_ - _%tl6732967358%_ - _%__splice8260282603%_ - _%target6733067361%_ - _%tl6733267364%_) - (letrec ((_%loop6733367367%_ - (lambda (_%hd6733167371%_ - _%body6733767374%_) + _%L67652%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%clause67559%_)))) + (let* ((_%__match8341483415%_ + (lambda (_%e6758867612%_ + _%hd6758967616%_ + _%tl6759067619%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) + (letrec ((_%loop6759467628%_ + (lambda (_%hd6759267632%_ + _%body6759867635%_) (if (gx#stx-pair? - _%hd6733167371%_) - (let ((_%e6733467377%_ + _%hd6759267632%_) + (let ((_%e6759567638%_ (gx#syntax-e - _%hd6733167371%_))) - (let ((_%lp-tl6733667384%_ + _%hd6759267632%_))) + (let ((_%lp-tl6759767645%_ (let () (declare (not safe)) - (##cdr _%e6733467377%_))) - (_%lp-hd6733567381%_ + (##cdr _%e6759567638%_))) + (_%lp-hd6759667642%_ (let () (declare (not safe)) - (##car _%e6733467377%_)))) - (_%loop6733367367%_ - _%lp-tl6733667384%_ - (cons _%lp-hd6733567381%_ - _%body6733767374%_)))) - (let ((_%body6733867387%_ - (reverse _%body6733767374%_))) - (_%__kont8260082601%_ - _%body6733867387%_ - _%hd6732867355%_)))))) - (_%loop6733367367%_ - _%target6733067361%_ + (##car _%e6759567638%_)))) + (_%loop6759467628%_ + _%lp-tl6759767645%_ + (cons _%lp-hd6759667642%_ + _%body6759867635%_)))) + (let ((_%body6759967648%_ + (reverse _%body6759867635%_))) + (_%__kont8336683367%_ + _%body6759967648%_ + _%hd6758967616%_)))))) + (_%loop6759467628%_ + _%target6759167622%_ '())))) - (_%__match8263482635%_ - (lambda (_%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%e6731067434%_ - _%hd6731167438%_ - _%tl6731267441%_ - _%e6731367444%_ - _%hd6731467448%_ - _%tl6731567451%_ - _%__splice8259882599%_ - _%target6731667454%_ - _%tl6731867457%_) - (letrec ((_%loop6731967460%_ - (lambda (_%hd6731767464%_ - _%body6732367467%_) + (_%__match8340083401%_ + (lambda (_%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%e6757167695%_ + _%hd6757267699%_ + _%tl6757367702%_ + _%e6757467705%_ + _%hd6757567709%_ + _%tl6757667712%_ + _%__splice8336483365%_ + _%target6757767715%_ + _%tl6757967718%_) + (letrec ((_%loop6758067721%_ + (lambda (_%hd6757867725%_ + _%body6758467728%_) (if (gx#stx-pair? - _%hd6731767464%_) - (let ((_%e6732067470%_ + _%hd6757867725%_) + (let ((_%e6758167731%_ (gx#syntax-e - _%hd6731767464%_))) - (let ((_%lp-tl6732267477%_ + _%hd6757867725%_))) + (let ((_%lp-tl6758367738%_ (let () (declare (not safe)) - (##cdr _%e6732067470%_))) - (_%lp-hd6732167474%_ + (##cdr _%e6758167731%_))) + (_%lp-hd6758267735%_ (let () (declare (not safe)) - (##car _%e6732067470%_)))) - (_%loop6731967460%_ - _%lp-tl6732267477%_ - (cons _%lp-hd6732167474%_ - _%body6732367467%_)))) - (let ((_%body6732467480%_ - (reverse _%body6732367467%_))) - (_%__kont8259682597%_ - _%body6732467480%_ - _%hd6731467448%_ - _%hd6730867428%_)))))) - (_%loop6731967460%_ - _%target6731667454%_ + (##car _%e6758167731%_)))) + (_%loop6758067721%_ + _%lp-tl6758367738%_ + (cons _%lp-hd6758267735%_ + _%body6758467728%_)))) + (let ((_%body6758567741%_ + (reverse _%body6758467728%_))) + (_%__kont8336283363%_ + _%body6758567741%_ + _%hd6757567709%_ + _%hd6756967689%_)))))) + (_%loop6758067721%_ + _%target6757767715%_ '()))))) - (if (gx#stx-pair? _%__stx8259382594%_) - (let ((_%e6730767424%_ - (gx#syntax-e _%__stx8259382594%_))) - (let ((_%tl6730967431%_ + (if (gx#stx-pair? _%__stx8335983360%_) + (let ((_%e6756867685%_ + (gx#syntax-e _%__stx8335983360%_))) + (let ((_%tl6757067692%_ (let () (declare (not safe)) - (##cdr _%e6730767424%_))) - (_%hd6730867428%_ + (##cdr _%e6756867685%_))) + (_%hd6756967689%_ (let () (declare (not safe)) - (##car _%e6730767424%_)))) - (if (gx#stx-pair? _%tl6730967431%_) - (let ((_%e6731067434%_ - (gx#syntax-e _%tl6730967431%_))) - (let ((_%tl6731267441%_ + (##car _%e6756867685%_)))) + (if (gx#stx-pair? _%tl6757067692%_) + (let ((_%e6757167695%_ + (gx#syntax-e _%tl6757067692%_))) + (let ((_%tl6757367702%_ (let () (declare (not safe)) - (##cdr _%e6731067434%_))) - (_%hd6731167438%_ + (##cdr _%e6757167695%_))) + (_%hd6757267699%_ (let () (declare (not safe)) - (##car _%e6731067434%_)))) - (if (gx#identifier? _%hd6731167438%_) + (##car _%e6757167695%_)))) + (if (gx#identifier? _%hd6757267699%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84259_| - _%hd6731167438%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85142_| + _%hd6757267699%_) (if (gx#stx-pair? - _%tl6731267441%_) - (let ((_%e6731367444%_ + _%tl6757367702%_) + (let ((_%e6757467705%_ (gx#syntax-e - _%tl6731267441%_))) - (let ((_%tl6731567451%_ + _%tl6757367702%_))) + (let ((_%tl6757667712%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6731367444%_))) - (_%hd6731467448%_ - (let () (declare (not safe)) (##car _%e6731367444%_)))) - (if (gx#stx-pair/null? _%tl6731567451%_) - (let ((_%__splice8259882599%_ - (gx#syntax-split-splice _%tl6731567451%_ '0))) - (let ((_%tl6731867457%_ + (##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 _%__splice8259882599%_ '1))) - (_%target6731667454%_ + (##vector-ref _%__splice8336483365%_ '1))) + (_%target6757767715%_ (let () (declare (not safe)) - (##vector-ref _%__splice8259882599%_ '0)))) - (if (gx#stx-null? _%tl6731867457%_) - (_%__match8263482635%_ - _%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%e6731067434%_ - _%hd6731167438%_ - _%tl6731267441%_ - _%e6731367444%_ - _%hd6731467448%_ - _%tl6731567451%_ - _%__splice8259882599%_ - _%target6731667454%_ - _%tl6731867457%_) - (if (gx#stx-pair/null? _%tl6730967431%_) - (let ((_%__splice8260282603%_ + (##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 - _%tl6730967431%_ + _%tl6757067692%_ '0))) - (let ((_%tl6733267364%_ + (let ((_%tl6759367625%_ (let () (declare (not safe)) (##vector-ref - _%__splice8260282603%_ + _%__splice8336883369%_ '1))) - (_%target6733067361%_ + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8260282603%_ + _%__splice8336883369%_ '0)))) - (if (gx#stx-null? _%tl6733267364%_) - (_%__match8264882649%_ - _%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%__splice8260282603%_ - _%target6733067361%_ - _%tl6733267364%_) + (if (gx#stx-null? _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6730267344%_))))) + (_%g6756367605%_))))) (let () (declare (not safe)) - (_%g6730267344%_)))))) - (if (gx#stx-pair/null? _%tl6730967431%_) - (let ((_%__splice8260282603%_ - (gx#syntax-split-splice _%tl6730967431%_ '0))) - (let ((_%tl6733267364%_ + (_%g6756367605%_)))))) + (if (gx#stx-pair/null? _%tl6757067692%_) + (let ((_%__splice8336883369%_ + (gx#syntax-split-splice _%tl6757067692%_ '0))) + (let ((_%tl6759367625%_ (let () (declare (not safe)) - (##vector-ref _%__splice8260282603%_ '1))) - (_%target6733067361%_ + (##vector-ref _%__splice8336883369%_ '1))) + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8260282603%_ + _%__splice8336883369%_ '0)))) - (if (gx#stx-null? _%tl6733267364%_) - (_%__match8264882649%_ - _%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%__splice8260282603%_ - _%target6733067361%_ - _%tl6733267364%_) + (if (gx#stx-null? _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6730267344%_))))) - (let () (declare (not safe)) (_%g6730267344%_)))))) - (if (gx#stx-pair/null? _%tl6730967431%_) - (let ((_%__splice8260282603%_ - (gx#syntax-split-splice _%tl6730967431%_ '0))) - (let ((_%tl6733267364%_ + (_%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 _%__splice8260282603%_ '1))) - (_%target6733067361%_ + (##vector-ref _%__splice8336883369%_ '1))) + (_%target6759167622%_ (let () (declare (not safe)) - (##vector-ref _%__splice8260282603%_ '0)))) - (if (gx#stx-null? _%tl6733267364%_) - (_%__match8264882649%_ - _%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%__splice8260282603%_ - _%target6733067361%_ - _%tl6733267364%_) - (let () (declare (not safe)) (_%g6730267344%_))))) - (let () (declare (not safe)) (_%g6730267344%_)))) + (##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? - _%tl6730967431%_) - (let ((_%__splice8260282603%_ + _%tl6757067692%_) + (let ((_%__splice8336883369%_ (gx#syntax-split-splice - _%tl6730967431%_ + _%tl6757067692%_ '0))) - (let ((_%tl6733267364%_ + (let ((_%tl6759367625%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8260282603%_ '1))) - (_%target6733067361%_ + (##vector-ref _%__splice8336883369%_ '1))) + (_%target6759167622%_ (let () (declare (not safe)) - (##vector-ref _%__splice8260282603%_ '0)))) - (if (gx#stx-null? _%tl6733267364%_) - (_%__match8264882649%_ - _%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%__splice8260282603%_ - _%target6733067361%_ - _%tl6733267364%_) - (let () (declare (not safe)) (_%g6730267344%_))))) - (let () (declare (not safe)) (_%g6730267344%_)))) + (##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? - _%tl6730967431%_) - (let ((_%__splice8260282603%_ + _%tl6757067692%_) + (let ((_%__splice8336883369%_ (gx#syntax-split-splice - _%tl6730967431%_ + _%tl6757067692%_ '0))) - (let ((_%tl6733267364%_ + (let ((_%tl6759367625%_ (let () (declare (not safe)) (##vector-ref - _%__splice8260282603%_ + _%__splice8336883369%_ '1))) - (_%target6733067361%_ + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8260282603%_ + _%__splice8336883369%_ '0)))) (if (gx#stx-null? - _%tl6733267364%_) - (_%__match8264882649%_ - _%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%__splice8260282603%_ - _%target6733067361%_ - _%tl6733267364%_) + _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6730267344%_))))) + (_%g6756367605%_))))) (let () (declare (not safe)) - (_%g6730267344%_)))))) - (if (gx#stx-pair/null? _%tl6730967431%_) - (let ((_%__splice8260282603%_ + (_%g6756367605%_)))))) + (if (gx#stx-pair/null? _%tl6757067692%_) + (let ((_%__splice8336883369%_ (gx#syntax-split-splice - _%tl6730967431%_ + _%tl6757067692%_ '0))) - (let ((_%tl6733267364%_ + (let ((_%tl6759367625%_ (let () (declare (not safe)) (##vector-ref - _%__splice8260282603%_ + _%__splice8336883369%_ '1))) - (_%target6733067361%_ + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8260282603%_ + _%__splice8336883369%_ '0)))) (if (gx#stx-null? - _%tl6733267364%_) - (_%__match8264882649%_ - _%e6730767424%_ - _%hd6730867428%_ - _%tl6730967431%_ - _%__splice8260282603%_ - _%target6733067361%_ - _%tl6733267364%_) + _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6730267344%_))))) + (_%g6756367605%_))))) (let () (declare (not safe)) - (_%g6730267344%_)))))) + (_%g6756367605%_)))))) (let () (declare (not safe)) - (_%g6730267344%_))))))))) - (let* ((_%__stx8265182652%_ _%stx67021%_) - (_%g6702967062%_ + (_%g6756367605%_))))))))) + (let* ((_%__stx8341783418%_ _%stx67282%_) + (_%g6729067323%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8265182652%_)))) - (let ((_%__kont8265482655%_ - (lambda (_%L67181%_) - (let* ((_%g6720467221%_ - (lambda (_%g6720567217%_) + _%__stx8341783418%_)))) + (let ((_%__kont8342083421%_ + (lambda (_%L67442%_) + (let* ((_%g6746567482%_ + (lambda (_%g6746667478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6720567217%_))) - (_%g6720367282%_ - (lambda (_%g6720567225%_) - (if (gx#stx-pair/null? _%g6720567225%_) - (let ((_g84260_ + _%g6746667478%_))) + (_%g6746467543%_ + (lambda (_%g6746667486%_) + (if (gx#stx-pair/null? _%g6746667486%_) + (let ((_g85143_ (gx#syntax-split-splice - _%g6720567225%_ + _%g6746667486%_ '0))) (begin - (let ((_g84261_ + (let ((_g85144_ (let () (declare (not safe)) - (if (##values? _g84260_) - (##values-length _g84260_) + (if (##values? _g85143_) + (##values-length _g85143_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84261_ 2))) + (##fx= _g85144_ 2))) (error "Context expects 2 values" - _g84261_))) - (let ((_%target6720767228%_ + _g85144_))) + (let ((_%target6746867489%_ (let () (declare (not safe)) - (##values-ref _g84260_ 0))) - (_%tl6720967231%_ + (##values-ref _g85143_ 0))) + (_%tl6747067492%_ (let () (declare (not safe)) - (##values-ref _g84260_ 1)))) - (if (gx#stx-null? _%tl6720967231%_) - (letrec ((_%loop6721067234%_ - (lambda (_%hd6720867238%_ - _%clause6721467241%_) + (##values-ref _g85143_ 1)))) + (if (gx#stx-null? _%tl6747067492%_) + (letrec ((_%loop6747167495%_ + (lambda (_%hd6746967499%_ + _%clause6747567502%_) (if (gx#stx-pair? - _%hd6720867238%_) - (let ((_%e6721167244%_ + _%hd6746967499%_) + (let ((_%e6747267505%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6720867238%_))) - (let ((_%lp-hd6721267248%_ + (gx#syntax-e _%hd6746967499%_))) + (let ((_%lp-hd6747367509%_ (let () (declare (not safe)) - (##car _%e6721167244%_))) - (_%lp-tl6721367251%_ + (##car _%e6747267505%_))) + (_%lp-tl6747467512%_ (let () (declare (not safe)) - (##cdr _%e6721167244%_)))) - (_%loop6721067234%_ - _%lp-tl6721367251%_ - (cons _%lp-hd6721267248%_ _%clause6721467241%_)))) - (let ((_%clause6721567254%_ - (reverse _%clause6721467241%_))) - ((lambda (_%L67258%_) + (##cdr _%e6747267505%_)))) + (_%loop6747167495%_ + _%lp-tl6747467512%_ + (cons _%lp-hd6747367509%_ _%clause6747567502%_)))) + (let ((_%clause6747667515%_ + (reverse _%clause6747567502%_))) + ((lambda (_%L67519%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6727367276%_ - _%g6727467279%_) - (cons _%g6727367276%_ - _%g6727467279%_)) + (foldr (lambda (_%g6753467537%_ + _%g6753567540%_) + (cons _%g6753467537%_ + _%g6753567540%_)) '() - _%L67258%_))) - _%clause6721567254%_)))))) + _%L67519%_))) + _%clause6747667515%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6721067234%_ - _%target6720767228%_ + (_%loop6747167495%_ + _%target6746867489%_ '())) - (_%g6720467221%_ - _%g6720567225%_))))) - (_%g6720467221%_ _%g6720567225%_))))) - (_%g6720367282%_ - (map _%clause-e67026%_ - (foldr (lambda (_%g6728567288%_ _%g6728667291%_) - (cons _%g6728567288%_ _%g6728667291%_)) + (_%g6746567482%_ + _%g6746667486%_))))) + (_%g6746567482%_ _%g6746667486%_))))) + (_%g6746467543%_ + (map _%clause-e67287%_ + (foldr (lambda (_%g6754667549%_ _%g6754767552%_) + (cons _%g6754667549%_ _%g6754767552%_)) '() - _%L67181%_)))))) - (_%__kont8265882659%_ - (lambda (_%L67109%_) + _%L67442%_)))))) + (_%__kont8342483425%_ + (lambda (_%L67370%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6712567128%_ _%g6712667131%_) - (cons _%g6712567128%_ _%g6712667131%_)) + (foldr (lambda (_%g6738667389%_ _%g6738767392%_) + (cons _%g6738667389%_ _%g6738767392%_)) '() - _%L67109%_))))) - (let* ((_%__match8269082691%_ - (lambda (_%e6704567069%_ - _%hd6704667073%_ - _%tl6704767076%_ - _%__splice8266082661%_ - _%target6704867079%_ - _%tl6705067082%_) - (letrec ((_%loop6705167085%_ - (lambda (_%hd6704967089%_ - _%clause6705567092%_) - (if (gx#stx-pair? _%hd6704967089%_) - (let ((_%e6705267095%_ - (gx#syntax-e _%hd6704967089%_))) - (let ((_%lp-tl6705467102%_ + _%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 _%e6705267095%_))) - (_%lp-hd6705367099%_ + (##cdr _%e6731367356%_))) + (_%lp-hd6731467360%_ (let () (declare (not safe)) - (##car _%e6705267095%_)))) - (_%loop6705167085%_ - _%lp-tl6705467102%_ - (cons _%lp-hd6705367099%_ - _%clause6705567092%_)))) - (let ((_%clause6705667105%_ - (reverse _%clause6705567092%_))) - (_%__kont8265882659%_ - _%clause6705667105%_)))))) - (_%loop6705167085%_ _%target6704867079%_ '())))) - (_%__match8267682677%_ - (lambda (_%e6703267141%_ - _%hd6703367145%_ - _%tl6703467148%_ - _%__splice8265682657%_ - _%target6703567151%_ - _%tl6703767154%_) - (letrec ((_%loop6703867157%_ - (lambda (_%hd6703667161%_ - _%clause6704267164%_) - (if (gx#stx-pair? _%hd6703667161%_) - (let ((_%e6703967167%_ - (gx#syntax-e _%hd6703667161%_))) - (let ((_%lp-tl6704167174%_ + (##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 _%e6703967167%_))) - (_%lp-hd6704067171%_ + (##cdr _%e6730067428%_))) + (_%lp-hd6730167432%_ (let () (declare (not safe)) - (##car _%e6703967167%_)))) - (_%loop6703867157%_ - _%lp-tl6704167174%_ - (cons _%lp-hd6704067171%_ - _%clause6704267164%_)))) - (let* ((_%clause6704367177%_ - (reverse _%clause6704267164%_)) - (_%L67181%_ - _%clause6704367177%_)) - (if (ormap _%is-clause-signature?67024%_ - (foldr (lambda (_%g6719567198%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6719667201%_) - (cons _%g6719567198%_ _%g6719667201%_)) + (##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%_)) '() - _%L67181%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8265482655%_ _%L67181%_) - (_%__match8269082691%_ - _%e6703267141%_ - _%hd6703367145%_ - _%tl6703467148%_ - _%__splice8265682657%_ - _%target6703567151%_ - _%tl6703767154%_))))))) - (_%loop6703867157%_ _%target6703567151%_ '()))))) - (if (gx#stx-pair? _%__stx8265182652%_) - (let ((_%e6703267141%_ (gx#syntax-e _%__stx8265182652%_))) - (let ((_%tl6703467148%_ + _%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 _%e6703267141%_))) - (_%hd6703367145%_ + (##cdr _%e6729367402%_))) + (_%hd6729467406%_ (let () (declare (not safe)) - (##car _%e6703267141%_)))) - (if (gx#stx-pair/null? _%tl6703467148%_) - (let ((_%__splice8265682657%_ + (##car _%e6729367402%_)))) + (if (gx#stx-pair/null? _%tl6729567409%_) + (let ((_%__splice8342283423%_ (gx#syntax-split-splice - _%tl6703467148%_ + _%tl6729567409%_ '0))) - (let ((_%tl6703767154%_ + (let ((_%tl6729867415%_ (let () (declare (not safe)) (##vector-ref - _%__splice8265682657%_ + _%__splice8342283423%_ '1))) - (_%target6703567151%_ + (_%target6729667412%_ (let () (declare (not safe)) (##vector-ref - _%__splice8265682657%_ + _%__splice8342283423%_ '0)))) - (if (gx#stx-null? _%tl6703767154%_) - (_%__match8267682677%_ - _%e6703267141%_ - _%hd6703367145%_ - _%tl6703467148%_ - _%__splice8265682657%_ - _%target6703567151%_ - _%tl6703767154%_) + (if (gx#stx-null? _%tl6729867415%_) + (_%__match8344283443%_ + _%e6729367402%_ + _%hd6729467406%_ + _%tl6729567409%_ + _%__splice8342283423%_ + _%target6729667412%_ + _%tl6729867415%_) (let () (declare (not safe)) - (_%g6702967062%_))))) - (let () (declare (not safe)) (_%g6702967062%_))))) - (let () (declare (not safe)) (_%g6702967062%_))))))))) + (_%g6729067323%_))))) + (let () (declare (not safe)) (_%g6729067323%_))))) + (let () (declare (not safe)) (_%g6729067323%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#@method| - (lambda (_%stx67770%_) - (let* ((_%__stx8269382694%_ _%stx67770%_) - (_%g6777467819%_ + (lambda (_%stx68031%_) + (let* ((_%__stx8345983460%_ _%stx68031%_) + (_%g6803568080%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8269382694%_)))) - (let ((_%__kont8269682697%_ - (lambda (_%L67975%_ _%L67977%_) - (let* ((_%str67994%_ (symbol->string (gx#stx-e _%L67977%_))) - (_%ix67997%_ (string-rindex _%str67994%_ '#\.)) - (_%g6800268017%_ - (lambda (_%g6800368013%_) + _%__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" - _%g6800368013%_))) - (_%g6800168073%_ - (lambda (_%g6800368021%_) - (if (gx#stx-pair? _%g6800368021%_) - (let ((_%e6800668024%_ - (gx#syntax-e _%g6800368021%_))) - (let ((_%hd6800768028%_ + _%g6826468274%_))) + (_%g6826268334%_ + (lambda (_%g6826468282%_) + (if (gx#stx-pair? _%g6826468282%_) + (let ((_%e6826768285%_ + (gx#syntax-e _%g6826468282%_))) + (let ((_%hd6826868289%_ (let () (declare (not safe)) - (##car _%e6800668024%_))) - (_%tl6800868031%_ + (##car _%e6826768285%_))) + (_%tl6826968292%_ (let () (declare (not safe)) - (##cdr _%e6800668024%_)))) - (if (gx#stx-pair? _%tl6800868031%_) - (let ((_%e6800968034%_ + (##cdr _%e6826768285%_)))) + (if (gx#stx-pair? _%tl6826968292%_) + (let ((_%e6827068295%_ (gx#syntax-e - _%tl6800868031%_))) - (let ((_%hd6801068038%_ + _%tl6826968292%_))) + (let ((_%hd6827168299%_ (let () (declare (not safe)) - (##car _%e6800968034%_))) - (_%tl6801168041%_ + (##car _%e6827068295%_))) + (_%tl6827268302%_ (let () (declare (not safe)) - (##cdr _%e6800968034%_)))) + (##cdr _%e6827068295%_)))) (if (gx#stx-null? - _%tl6801168041%_) - ((lambda (_%L68044%_ - _%L68046%_) + _%tl6827268302%_) + ((lambda (_%L68305%_ + _%L68307%_) (cons (gx#datum->syntax '#f 'call-method) @@ -4743,1970 +4743,2407 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%ref-dotted) - (cons _%L68046%_ '())) + (cons _%L68307%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L68044%_ '())) - (foldr (lambda (_%g6806468067%_ _%g6806568070%_) - (cons _%g6806468067%_ _%g6806568070%_)) + (cons _%L68305%_ '())) + (foldr (lambda (_%g6832568328%_ _%g6832668331%_) + (cons _%g6832568328%_ _%g6832668331%_)) '() - _%L67975%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6801068038%_ - _%hd6800768028%_) - (_%g6800268017%_ - _%g6800368021%_)))) - (_%g6800268017%_ _%g6800368021%_)))) - (_%g6800268017%_ _%g6800368021%_))))) - (_%g6800168073%_ + _%L68236%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6827168299%_ + _%hd6826868289%_) + (_%g6826368278%_ + _%g6826468282%_)))) + (_%g6826368278%_ _%g6826468282%_)))) + (_%g6826368278%_ _%g6826468282%_))))) + (_%g6826268334%_ (list (gx#stx-identifier - _%L67977%_ - (substring _%str67994%_ '0 _%ix67997%_)) - (let ((__tmp84262 + _%L68238%_ + (substring _%str68255%_ '0 _%ix68258%_)) + (let ((__tmp85145 (substring - _%str67994%_ - (fx1+ _%ix67997%_) - (string-length _%str67994%_)))) + _%str68255%_ + (fx1+ _%ix68258%_) + (string-length _%str68255%_)))) (declare (not safe)) - (##string->symbol __tmp84262))))))) - (_%__kont8270082701%_ - (lambda (_%L67886%_ _%L67888%_ _%L67889%_) + (##string->symbol __tmp85145))))))) + (_%__kont8346683467%_ + (lambda (_%L68147%_ _%L68149%_ _%L68150%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L67888%_ + (cons _%L68149%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L67889%_ '())) - (foldr (lambda (_%g6790967912%_ - _%g6791067915%_) - (cons _%g6790967912%_ - _%g6791067915%_)) + (cons _%L68150%_ '())) + (foldr (lambda (_%g6817068173%_ + _%g6817168176%_) + (cons _%g6817068173%_ + _%g6817168176%_)) '() - _%L67886%_))))))) - (let* ((_%__match8275082751%_ - (lambda (_%e6779667826%_ - _%hd6779767830%_ - _%tl6779867833%_ - _%e6779967836%_ - _%hd6780067840%_ - _%tl6780167843%_ - _%e6780267846%_ - _%hd6780367850%_ - _%tl6780467853%_ - _%__splice8270282703%_ - _%target6780567856%_ - _%tl6780767859%_) - (letrec ((_%loop6780867862%_ - (lambda (_%hd6780667866%_ _%arg6781267869%_) - (if (gx#stx-pair? _%hd6780667866%_) - (let ((_%e6780967872%_ - (gx#syntax-e _%hd6780667866%_))) - (let ((_%lp-tl6781167879%_ + _%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 _%e6780967872%_))) - (_%lp-hd6781067876%_ + (##cdr _%e6807068133%_))) + (_%lp-hd6807168137%_ (let () (declare (not safe)) - (##car _%e6780967872%_)))) - (_%loop6780867862%_ - _%lp-tl6781167879%_ - (cons _%lp-hd6781067876%_ - _%arg6781267869%_)))) - (let ((_%arg6781367882%_ - (reverse _%arg6781267869%_))) - (_%__kont8270082701%_ - _%arg6781367882%_ - _%hd6780367850%_ - _%hd6780067840%_)))))) - (_%loop6780867862%_ _%target6780567856%_ '())))) - (_%__match8273682737%_ - (lambda (_%e6779667826%_ - _%hd6779767830%_ - _%tl6779867833%_ - _%e6779967836%_ - _%hd6780067840%_ - _%tl6780167843%_) - (if (gx#stx-pair? _%tl6780167843%_) - (let ((_%e6780267846%_ - (gx#syntax-e _%tl6780167843%_))) - (let ((_%tl6780467853%_ + (##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 _%e6780267846%_))) - (_%hd6780367850%_ + (##cdr _%e6806368107%_))) + (_%hd6806468111%_ (let () (declare (not safe)) - (##car _%e6780267846%_)))) - (if (gx#stx-pair/null? _%tl6780467853%_) - (let ((_%__splice8270282703%_ + (##car _%e6806368107%_)))) + (if (gx#stx-pair/null? _%tl6806568114%_) + (let ((_%__splice8346883469%_ (gx#syntax-split-splice - _%tl6780467853%_ + _%tl6806568114%_ '0))) - (let ((_%tl6780767859%_ + (let ((_%tl6806868120%_ (let () (declare (not safe)) (##vector-ref - _%__splice8270282703%_ + _%__splice8346883469%_ '1))) - (_%target6780567856%_ + (_%target6806668117%_ (let () (declare (not safe)) (##vector-ref - _%__splice8270282703%_ + _%__splice8346883469%_ '0)))) - (if (gx#stx-null? _%tl6780767859%_) - (_%__match8275082751%_ - _%e6779667826%_ - _%hd6779767830%_ - _%tl6779867833%_ - _%e6779967836%_ - _%hd6780067840%_ - _%tl6780167843%_ - _%e6780267846%_ - _%hd6780367850%_ - _%tl6780467853%_ - _%__splice8270282703%_ - _%target6780567856%_ - _%tl6780767859%_) + (if (gx#stx-null? _%tl6806868120%_) + (_%__match8351683517%_ + _%e6805768087%_ + _%hd6805868091%_ + _%tl6805968094%_ + _%e6806068097%_ + _%hd6806168101%_ + _%tl6806268104%_ + _%e6806368107%_ + _%hd6806468111%_ + _%tl6806568114%_ + _%__splice8346883469%_ + _%target6806668117%_ + _%tl6806868120%_) (let () (declare (not safe)) - (_%g6777467819%_))))) + (_%g6803568080%_))))) (let () (declare (not safe)) - (_%g6777467819%_))))) - (let () (declare (not safe)) (_%g6777467819%_))))) - (_%__match8272482725%_ - (lambda (_%e6777867925%_ - _%hd6777967929%_ - _%tl6778067932%_ - _%e6778167935%_ - _%hd6778267939%_ - _%tl6778367942%_ - _%__splice8269882699%_ - _%target6778467945%_ - _%tl6778667948%_) - (letrec ((_%loop6778767951%_ - (lambda (_%hd6778567955%_ _%arg6779167958%_) - (if (gx#stx-pair? _%hd6778567955%_) - (let ((_%e6778867961%_ - (gx#syntax-e _%hd6778567955%_))) - (let ((_%lp-tl6779067968%_ + (_%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 _%e6778867961%_))) - (_%lp-hd6778967965%_ + (##cdr _%e6804968222%_))) + (_%lp-hd6805068226%_ (let () (declare (not safe)) - (##car _%e6778867961%_)))) - (_%loop6778767951%_ - _%lp-tl6779067968%_ - (cons _%lp-hd6778967965%_ - _%arg6779167958%_)))) - (let ((_%arg6779267971%_ - (reverse _%arg6779167958%_))) - (let ((_%L67975%_ _%arg6779267971%_) - (_%L67977%_ _%hd6778267939%_)) + (##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?| - _%L67977%_)) - (_%__kont8269682697%_ - _%L67975%_ - _%L67977%_) - (_%__match8273682737%_ - _%e6777867925%_ - _%hd6777967929%_ - _%tl6778067932%_ - _%e6778167935%_ - _%hd6778267939%_ - _%tl6778367942%_)))))))) - (_%loop6778767951%_ _%target6778467945%_ '()))))) - (if (gx#stx-pair? _%__stx8269382694%_) - (let ((_%e6777867925%_ (gx#syntax-e _%__stx8269382694%_))) - (let ((_%tl6778067932%_ + _%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 _%e6777867925%_))) - (_%hd6777967929%_ + (##cdr _%e6803968186%_))) + (_%hd6804068190%_ (let () (declare (not safe)) - (##car _%e6777867925%_)))) - (if (gx#stx-pair? _%tl6778067932%_) - (let ((_%e6778167935%_ - (gx#syntax-e _%tl6778067932%_))) - (let ((_%tl6778367942%_ + (##car _%e6803968186%_)))) + (if (gx#stx-pair? _%tl6804168193%_) + (let ((_%e6804268196%_ + (gx#syntax-e _%tl6804168193%_))) + (let ((_%tl6804468203%_ (let () (declare (not safe)) - (##cdr _%e6778167935%_))) - (_%hd6778267939%_ + (##cdr _%e6804268196%_))) + (_%hd6804368200%_ (let () (declare (not safe)) - (##car _%e6778167935%_)))) - (if (gx#stx-pair/null? _%tl6778367942%_) - (let ((_%__splice8269882699%_ + (##car _%e6804268196%_)))) + (if (gx#stx-pair/null? _%tl6804468203%_) + (let ((_%__splice8346483465%_ (gx#syntax-split-splice - _%tl6778367942%_ + _%tl6804468203%_ '0))) - (let ((_%tl6778667948%_ + (let ((_%tl6804768209%_ (let () (declare (not safe)) (##vector-ref - _%__splice8269882699%_ + _%__splice8346483465%_ '1))) - (_%target6778467945%_ + (_%target6804568206%_ (let () (declare (not safe)) (##vector-ref - _%__splice8269882699%_ + _%__splice8346483465%_ '0)))) - (if (gx#stx-null? _%tl6778667948%_) - (_%__match8272482725%_ - _%e6777867925%_ - _%hd6777967929%_ - _%tl6778067932%_ - _%e6778167935%_ - _%hd6778267939%_ - _%tl6778367942%_ - _%__splice8269882699%_ - _%target6778467945%_ - _%tl6778667948%_) - (if (gx#stx-pair? _%tl6778367942%_) - (let ((_%e6780267846%_ + (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 - _%tl6778367942%_))) - (let ((_%tl6780467853%_ + _%tl6804468203%_))) + (let ((_%tl6806568114%_ (let () (declare (not safe)) - (##cdr _%e6780267846%_))) - (_%hd6780367850%_ + (##cdr _%e6806368107%_))) + (_%hd6806468111%_ (let () (declare (not safe)) - (##car _%e6780267846%_)))) + (##car _%e6806368107%_)))) (if (gx#stx-pair/null? - _%tl6780467853%_) - (let ((_%__splice8270282703%_ + _%tl6806568114%_) + (let ((_%__splice8346883469%_ (gx#syntax-split-splice - _%tl6780467853%_ + _%tl6806568114%_ '0))) - (let ((_%tl6780767859%_ + (let ((_%tl6806868120%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8270282703%_ '1))) - (_%target6780567856%_ + (##vector-ref _%__splice8346883469%_ '1))) + (_%target6806668117%_ (let () (declare (not safe)) - (##vector-ref _%__splice8270282703%_ '0)))) - (if (gx#stx-null? _%tl6780767859%_) - (_%__match8275082751%_ - _%e6777867925%_ - _%hd6777967929%_ - _%tl6778067932%_ - _%e6778167935%_ - _%hd6778267939%_ - _%tl6778367942%_ - _%e6780267846%_ - _%hd6780367850%_ - _%tl6780467853%_ - _%__splice8270282703%_ - _%target6780567856%_ - _%tl6780767859%_) - (let () (declare (not safe)) (_%g6777467819%_))))) - (let () (declare (not safe)) (_%g6777467819%_))))) + (##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)) - (_%g6777467819%_)))))) - (if (gx#stx-pair? _%tl6778367942%_) - (let ((_%e6780267846%_ - (gx#syntax-e _%tl6778367942%_))) - (let ((_%tl6780467853%_ + (_%g6803568080%_)))))) + (if (gx#stx-pair? _%tl6804468203%_) + (let ((_%e6806368107%_ + (gx#syntax-e _%tl6804468203%_))) + (let ((_%tl6806568114%_ (let () (declare (not safe)) - (##cdr _%e6780267846%_))) - (_%hd6780367850%_ + (##cdr _%e6806368107%_))) + (_%hd6806468111%_ (let () (declare (not safe)) - (##car _%e6780267846%_)))) + (##car _%e6806368107%_)))) (if (gx#stx-pair/null? - _%tl6780467853%_) - (let ((_%__splice8270282703%_ + _%tl6806568114%_) + (let ((_%__splice8346883469%_ (gx#syntax-split-splice - _%tl6780467853%_ + _%tl6806568114%_ '0))) - (let ((_%tl6780767859%_ + (let ((_%tl6806868120%_ (let () (declare (not safe)) (##vector-ref - _%__splice8270282703%_ + _%__splice8346883469%_ '1))) - (_%target6780567856%_ + (_%target6806668117%_ (let () (declare (not safe)) (##vector-ref - _%__splice8270282703%_ + _%__splice8346883469%_ '0)))) (if (gx#stx-null? - _%tl6780767859%_) - (_%__match8275082751%_ - _%e6777867925%_ - _%hd6777967929%_ - _%tl6778067932%_ - _%e6778167935%_ - _%hd6778267939%_ - _%tl6778367942%_ - _%e6780267846%_ - _%hd6780367850%_ - _%tl6780467853%_ - _%__splice8270282703%_ - _%target6780567856%_ - _%tl6780767859%_) + _%tl6806868120%_) + (_%__match8351683517%_ + _%e6803968186%_ + _%hd6804068190%_ + _%tl6804168193%_ + _%e6804268196%_ + _%hd6804368200%_ + _%tl6804468203%_ + _%e6806368107%_ + _%hd6806468111%_ + _%tl6806568114%_ + _%__splice8346883469%_ + _%target6806668117%_ + _%tl6806868120%_) (let () (declare (not safe)) - (_%g6777467819%_))))) + (_%g6803568080%_))))) (let () (declare (not safe)) - (_%g6777467819%_))))) + (_%g6803568080%_))))) (let () (declare (not safe)) - (_%g6777467819%_)))))) - (let () (declare (not safe)) (_%g6777467819%_))))) - (let () (declare (not safe)) (_%g6777467819%_)))))))) + (_%g6803568080%_)))))) + (let () (declare (not safe)) (_%g6803568080%_))))) + (let () (declare (not safe)) (_%g6803568080%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| - (lambda (_%stx68083%_) - (let* ((_%__stx8275382754%_ _%stx68083%_) - (_%g6808868213%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx8275382754%_)))) - (let ((_%__kont8275682757%_ - (lambda (_%L68782%_ - _%L68784%_ - _%L68785%_ - _%L68786%_ - _%L68787%_ - _%L68788%_ - _%L68789%_) - (let* ((_%g6882568833%_ - (lambda (_%g6882668829%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6882668829%_))) - (_%g6882468894%_ - (lambda (_%g6882668837%_) - ((lambda (_%L68840%_) - (let* ((_%g6885268860%_ - (lambda (_%g6885368856%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6885368856%_))) - (_%g6885168882%_ - (lambda (_%g6885368864%_) - ((lambda (_%L68867%_) - (cons (gx#datum->syntax - '#f - 'defmethod) - (cons (cons (gx#datum->syntax - '#f - '@method~) - (cons _%L68788%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68787%_ '()))) - (cons _%L68867%_ _%L68782%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6885368864%_)))) - (_%g6885168882%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda/c) - (cons (cons _%L68840%_ _%L68785%_) - (cons (cons (gx#datum->syntax - '#f - 'using) - (cons (cons _%L68786%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68840%_ - (cons (gx#datum->syntax '#f '::-) - (cons _%L68787%_ '())))) - (cons (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%L68786%_ - (cons (cons (gx#datum->syntax - '#f - 'let) - (cons '() - (foldr (lambda (_%g6888568888%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6888668891%_) - (cons _%g6888568888%_ _%g6888668891%_)) - '() - _%L68784%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx68083%_))))) - _%g6882668837%_)))) - (_%g6882468894%_ (gx#genident _%L68786%_))))) - (_%__kont8276082761%_ - (lambda (_%L68461%_ - _%L68463%_ - _%L68464%_ - _%L68465%_ - _%L68466%_ - _%L68467%_ - _%L68468%_) - (let* ((_%g6850868525%_ - (lambda (_%g6850968521%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6850968521%_))) - (_%g6850768643%_ - (lambda (_%g6850968529%_) - (if (gx#stx-pair/null? _%g6850968529%_) - (let ((_g84263_ - (gx#syntax-split-splice - _%g6850968529%_ - '0))) - (begin - (let ((_g84264_ - (let () - (declare (not safe)) - (if (##values? _g84263_) - (##values-length _g84263_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84264_ 2))) - (error "Context expects 2 values" - _g84264_))) - (let ((_%target6851168532%_ + (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)) - (##values-ref _g84263_ 0))) - (_%tl6851368535%_ + (_%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)) - (##values-ref _g84263_ 1)))) - (if (gx#stx-null? _%tl6851368535%_) - (letrec ((_%loop6851468538%_ - (lambda (_%hd6851268542%_ - _%receiver6851868545%_) - (if (gx#stx-pair? - _%hd6851268542%_) - (let ((_%e6851568548%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6851268542%_))) - (let ((_%lp-hd6851668552%_ - (let () - (declare (not safe)) - (##car _%e6851568548%_))) - (_%lp-tl6851768555%_ - (let () - (declare (not safe)) - (##cdr _%e6851568548%_)))) - (_%loop6851468538%_ - _%lp-tl6851768555%_ - (cons _%lp-hd6851668552%_ _%receiver6851868545%_)))) - (let ((_%receiver6851968558%_ - (reverse _%receiver6851868545%_))) - ((lambda (_%L68562%_) - (let* ((_%g6857868586%_ - (lambda (_%g6857968582%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6857968582%_))) - (_%g6857768608%_ - (lambda (_%g6857968590%_) - ((lambda (_%L68593%_) - (cons (gx#datum->syntax '#f 'defmethod) - (cons (cons (gx#datum->syntax - '#f - '@method~) - (cons _%L68467%_ - (cons _%L68466%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L68593%_ - _%L68461%_)))) - _%g6857968590%_)))) - (_%g6857768608%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'case-lambda/c) - (begin - (gx#syntax-check-splice-targets - _%L68463%_ - _%L68465%_ - _%L68562%_ - _%L68465%_ - _%L68464%_ - _%L68562%_) - (foldr (lambda (_%g6861168621%_ - _%g6861268624%_ - _%g6861368626%_ - _%g6861468628%_ - _%g6861568630%_ - _%g6861668632%_ - _%g6861768634%_) - (cons (cons (cons _%g6861368626%_ - _%g6861568630%_) - (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 _%g6861268624%_ - (cons _%g6861368626%_ - (cons (gx#datum->syntax - '#f - '::-) - (cons _%L68466%_ '())))) - (cons (cons (gx#datum->syntax - '#f - 'with-receiver) - (cons _%g6861268624%_ - (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 (_%g6861868637%_ _%g6861968640%_) - (cons _%g6861868637%_ _%g6861968640%_)) - '() - _%g6861168621%_))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())) + _%g6936269367%_) + (cons _%g6936169364%_ _%g6936269367%_)) + '() + _%L69196%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6861768634%_)) - '() - _%L68463%_ - _%L68465%_ - _%L68562%_ - _%L68465%_ - _%L68464%_ - _%L68562%_))) - (gx#stx-source _%stx68083%_))))) - _%receiver6851968558%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6851468538%_ - _%target6851168532%_ - '())) - (_%g6850868525%_ - _%g6850968529%_))))) - (_%g6850868525%_ _%g6850968529%_))))) - (_%g6850768643%_ - (map gx#genident - (foldr (lambda (_%g6864668649%_ _%g6864768652%_) - (cons _%g6864668649%_ _%g6864768652%_)) - '() - _%L68465%_)))))) - (_%__kont8276482765%_ - (lambda (_%L68270%_ _%L68272%_ _%L68273%_ _%L68274%_) - (cons (gx#datum->syntax '#f 'defmethod) - (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68273%_ (cons _%L68272%_ '()))) - _%L68270%_))))) - (let* ((_%g6808768296%_ - (lambda () - (let ((_%e6819368220%_ - (gx#syntax-e _%__stx8275382754%_))) - (let ((_%tl6819568227%_ - (let () - (declare (not safe)) - (##cdr _%e6819368220%_))) - (_%hd6819468224%_ - (let () - (declare (not safe)) - (##car _%e6819368220%_)))) - (if (gx#stx-pair? _%tl6819568227%_) - (let ((_%e6819668230%_ - (gx#syntax-e _%tl6819568227%_))) - (let ((_%tl6819868237%_ - (let () - (declare (not safe)) - (##cdr _%e6819668230%_))) - (_%hd6819768234%_ - (let () - (declare (not safe)) - (##car _%e6819668230%_)))) - (if (gx#stx-pair? _%hd6819768234%_) - (let ((_%e6819968240%_ - (gx#syntax-e _%hd6819768234%_))) - (let ((_%tl6820168247%_ - (let () - (declare (not safe)) - (##cdr _%e6819968240%_))) - (_%hd6820068244%_ - (let () - (declare (not safe)) - (##car _%e6819968240%_)))) - (if (gx#stx-pair? _%tl6820168247%_) - (let ((_%e6820268250%_ - (gx#syntax-e - _%tl6820168247%_))) - (let ((_%tl6820468257%_ - (let () - (declare (not safe)) - (##cdr _%e6820268250%_))) - (_%hd6820368254%_ - (let () - (declare (not safe)) - (##car _%e6820268250%_)))) - (if (gx#stx-pair? - _%tl6820468257%_) - (let ((_%e6820568260%_ - (gx#syntax-e - _%tl6820468257%_))) - (let ((_%tl6820768267%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e6820568260%_))) - (_%hd6820668264%_ - (let () (declare (not safe)) (##car _%e6820568260%_)))) - (if (gx#stx-null? _%tl6820768267%_) - (_%__kont8276482765%_ - _%tl6819868237%_ - _%hd6820668264%_ - _%hd6820368254%_ - _%hd6820068244%_) - (let () (declare (not safe)) (_%g6808868213%_))))) - (let () (declare (not safe)) (_%g6808868213%_))))) + '()))) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (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)) - (_%g6808868213%_))))) - (let () - (declare (not safe)) - (_%g6808868213%_))))) + (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)) - (_%g6808868213%_))))))) - (_%__match8289082891%_ - (lambda (_%e6814068303%_ - _%hd6814168307%_ - _%tl6814268310%_ - _%e6814368313%_ - _%hd6814468317%_ - _%tl6814568320%_ - _%e6814668323%_ - _%hd6814768327%_ - _%tl6814868330%_ - _%e6814968333%_ - _%hd6815068337%_ - _%tl6815168340%_ - _%e6815268343%_ - _%hd6815368347%_ - _%tl6815468350%_ - _%e6815568353%_ - _%hd6815668357%_ - _%tl6815768360%_ - _%e6815868363%_ - _%hd6815968367%_ - _%tl6816068370%_ - _%__splice8276282763%_ - _%target6816168373%_ - _%tl6816368376%_) - (letrec ((_%loop6816468379%_ - (lambda (_%hd6816268383%_ - _%body6816868386%_ - _%args6816968388%_ - _%self6817068390%_) - (if (gx#stx-pair? _%hd6816268383%_) - (let ((_%e6816568393%_ - (gx#syntax-e _%hd6816268383%_))) - (let ((_%lp-tl6816768400%_ - (let () - (declare (not safe)) - (##cdr _%e6816568393%_))) - (_%lp-hd6816668397%_ - (let () - (declare (not safe)) - (##car _%e6816568393%_)))) - (if (gx#stx-pair? - _%lp-hd6816668397%_) - (let ((_%e6817468403%_ - (gx#syntax-e - _%lp-hd6816668397%_))) - (let ((_%tl6817668410%_ - (let () - (declare (not safe)) - (##cdr _%e6817468403%_))) - (_%hd6817568407%_ - (let () - (declare (not safe)) - (##car _%e6817468403%_)))) - (if (gx#stx-pair? - _%hd6817568407%_) - (let ((_%e6817768413%_ - (gx#syntax-e - _%hd6817568407%_))) - (let ((_%tl6817968420%_ - (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 _%e6817768413%_))) - (_%hd6817868417%_ - (let () (declare (not safe)) (##car _%e6817768413%_)))) - (if (gx#stx-pair/null? _%tl6817668410%_) - (let ((_g84265_ - (gx#syntax-split-splice _%tl6817668410%_ '0))) - (begin - (let ((_g84266_ - (let () - (declare (not safe)) - (if (##values? _g84265_) - (##values-length _g84265_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84266_ 2))) - (error "Context expects 2 values" _g84266_))) - (let ((_%target6818068423%_ + '#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)) - (##values-ref _g84265_ 0))) - (_%tl6818268426%_ + (##cdr _%e6845968489%_))) + (_%hd6846068493%_ (let () (declare (not safe)) - (##values-ref _g84265_ 1)))) - (if (gx#stx-null? _%tl6818268426%_) - (letrec ((_%loop6818368429%_ - (lambda (_%hd6818168433%_ - _%body6818768436%_) - (if (gx#stx-pair? _%hd6818168433%_) - (let ((_%e6818468439%_ + (##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 - _%hd6818168433%_))) - (let ((_%lp-hd6818568443%_ + _%tl6846768516%_))) + (let ((_%tl6847068526%_ (let () (declare (not safe)) - (##car _%e6818468439%_))) - (_%lp-tl6818668446%_ + (##cdr _%e6846868519%_))) + (_%hd6846968523%_ (let () (declare (not safe)) - (##cdr _%e6818468439%_)))) - (_%loop6818368429%_ - _%lp-tl6818668446%_ - (cons _%lp-hd6818568443%_ - _%body6818768436%_)))) - (let ((_%body6818868449%_ - (reverse _%body6818768436%_))) - (_%loop6816468379%_ - _%lp-tl6816768400%_ - (cons _%body6818868449%_ - _%body6816868386%_) - (cons _%tl6817968420%_ - _%args6816968388%_) - (cons _%hd6817868417%_ - _%self6817068390%_))))))) - (_%loop6818368429%_ - _%target6818068423%_ - '())) + (##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)) - (_%g6808768296%_)))))) - (_%__kont8276482765%_ - _%tl6814568320%_ - _%hd6815368347%_ - _%hd6815068337%_ - _%hd6814768327%_)))) - (_%__kont8276482765%_ - _%tl6814568320%_ - _%hd6815368347%_ - _%hd6815068337%_ - _%hd6814768327%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8276482765%_ - _%tl6814568320%_ - _%hd6815368347%_ - _%hd6815068337%_ - _%hd6814768327%_)))) - (let ((_%self6817368458%_ - (reverse _%self6817068390%_)) - (_%args6817268456%_ - (reverse _%args6816968388%_)) - (_%body6817168453%_ - (reverse _%body6816868386%_))) - (let ((_%L68461%_ _%tl6815768360%_) - (_%L68463%_ _%body6817168453%_) - (_%L68464%_ _%args6817268456%_) - (_%L68465%_ _%self6817368458%_) - (_%L68466%_ _%hd6815368347%_) - (_%L68467%_ _%hd6815068337%_) - (_%L68468%_ _%hd6814768327%_)) - (if (and (gx#identifier-list? - (foldr (lambda (_%g6849968502%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6850068505%_) - (cons _%g6849968502%_ _%g6850068505%_)) - '() - _%L68465%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#identifier? _%L68467%_)) - (_%__kont8276082761%_ - _%L68461%_ - _%L68463%_ - _%L68464%_ - _%L68465%_ - _%L68466%_ - _%L68467%_ - _%L68468%_) - (_%__kont8276482765%_ - _%tl6814568320%_ - _%hd6815368347%_ - _%hd6815068337%_ - _%hd6814768327%_)))))))) - (_%loop6816468379%_ - _%target6816168373%_ - '() - '() - '())))) - (_%__match8283482835%_ - (lambda (_%e6809768662%_ - _%hd6809868666%_ - _%tl6809968669%_ - _%e6810068672%_ - _%hd6810168676%_ - _%tl6810268679%_ - _%e6810368682%_ - _%hd6810468686%_ - _%tl6810568689%_ - _%e6810668692%_ - _%hd6810768696%_ - _%tl6810868699%_ - _%e6810968702%_ - _%hd6811068706%_ - _%tl6811168709%_ - _%e6811268712%_ - _%hd6811368716%_ - _%tl6811468719%_ - _%e6811568722%_ - _%hd6811668726%_ - _%tl6811768729%_ - _%e6811868732%_ - _%hd6811968736%_ - _%tl6812068739%_ - _%e6812168742%_ - _%hd6812268746%_ - _%tl6812368749%_ - _%__splice8275882759%_ - _%target6812468752%_ - _%tl6812668755%_) - (letrec ((_%loop6812768758%_ - (lambda (_%hd6812568762%_ _%body6813168765%_) - (if (gx#stx-pair? _%hd6812568762%_) - (let ((_%e6812868768%_ - (gx#syntax-e _%hd6812568762%_))) - (let ((_%lp-tl6813068775%_ - (let () - (declare (not safe)) - (##cdr _%e6812868768%_))) - (_%lp-hd6812968772%_ - (let () - (declare (not safe)) - (##car _%e6812868768%_)))) - (_%loop6812768758%_ - _%lp-tl6813068775%_ - (cons _%lp-hd6812968772%_ - _%body6813168765%_)))) - (let ((_%body6813268778%_ - (reverse _%body6813168765%_))) - (let ((_%L68782%_ _%tl6811468719%_) - (_%L68784%_ _%body6813268778%_) - (_%L68785%_ _%tl6812368749%_) - (_%L68786%_ _%hd6812268746%_) - (_%L68787%_ _%hd6811068706%_) - (_%L68788%_ _%hd6810768696%_) - (_%L68789%_ _%hd6810468686%_)) - (if (and (gx#identifier? _%L68786%_) - (gx#identifier? _%L68788%_)) - (_%__kont8275682757%_ - _%L68782%_ - _%L68784%_ - _%L68785%_ - _%L68786%_ - _%L68787%_ - _%L68788%_ - _%L68789%_) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)))))))) - (_%loop6812768758%_ _%target6812468752%_ '()))))) - (if (gx#stx-pair? _%__stx8275382754%_) - (let ((_%e6809768662%_ (gx#syntax-e _%__stx8275382754%_))) - (let ((_%tl6809968669%_ - (let () - (declare (not safe)) - (##cdr _%e6809768662%_))) - (_%hd6809868666%_ - (let () - (declare (not safe)) - (##car _%e6809768662%_)))) - (if (gx#stx-pair? _%tl6809968669%_) - (let ((_%e6810068672%_ - (gx#syntax-e _%tl6809968669%_))) - (let ((_%tl6810268679%_ + (_%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 _%e6810068672%_))) - (_%hd6810168676%_ + (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 _%e6810068672%_)))) - (if (gx#stx-pair? _%hd6810168676%_) - (let ((_%e6810368682%_ - (gx#syntax-e _%hd6810168676%_))) - (let ((_%tl6810568689%_ - (let () - (declare (not safe)) - (##cdr _%e6810368682%_))) - (_%hd6810468686%_ - (let () - (declare (not safe)) - (##car _%e6810368682%_)))) - (if (gx#stx-pair? _%tl6810568689%_) - (let ((_%e6810668692%_ - (gx#syntax-e - _%tl6810568689%_))) - (let ((_%tl6810868699%_ - (let () - (declare (not safe)) - (##cdr _%e6810668692%_))) - (_%hd6810768696%_ - (let () - (declare (not safe)) - (##car _%e6810668692%_)))) + (##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? - _%tl6810868699%_) - (let ((_%e6810968702%_ + _%hd6844668781%_) + (let ((_%e6844968787%_ (gx#syntax-e - _%tl6810868699%_))) - (let ((_%tl6811168709%_ + _%hd6844668781%_))) + (let ((_%lp-hd6845068791%_ (let () (declare (not safe)) - (##cdr _%e6810968702%_))) - (_%hd6811068706%_ + (##car _%e6844968787%_))) + (_%lp-tl6845168794%_ (let () (declare (not safe)) - (##car _%e6810968702%_)))) - (if (gx#stx-null? - _%tl6811168709%_) - (if (gx#stx-pair? - _%tl6810268679%_) - (let ((_%e6811268712%_ + (##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 _%tl6810268679%_))) - (let ((_%tl6811468719%_ - (let () - (declare (not safe)) - (##cdr _%e6811268712%_))) - (_%hd6811368716%_ - (let () - (declare (not safe)) - (##car _%e6811268712%_)))) - (if (gx#stx-pair? _%hd6811368716%_) - (let ((_%e6811568722%_ - (gx#syntax-e _%hd6811368716%_))) - (let ((_%tl6811768729%_ - (let () - (declare (not safe)) - (##cdr _%e6811568722%_))) - (_%hd6811668726%_ - (let () - (declare (not safe)) - (##car _%e6811568722%_)))) - (if (gx#identifier? _%hd6811668726%_) - (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84267_| - _%hd6811668726%_) - (if (gx#stx-pair? _%tl6811768729%_) - (let ((_%e6811868732%_ - (gx#syntax-e - _%tl6811768729%_))) - (let ((_%tl6812068739%_ - (let () - (declare (not safe)) - (##cdr _%e6811868732%_))) - (_%hd6811968736%_ - (let () - (declare (not safe)) - (##car _%e6811868732%_)))) - (if (gx#stx-pair? - _%hd6811968736%_) - (let ((_%e6812168742%_ - (gx#syntax-e - _%hd6811968736%_))) - (let ((_%tl6812368749%_ - (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 _%e6812168742%_))) - (_%hd6812268746%_ - (let () (declare (not safe)) (##car _%e6812168742%_)))) - (if (gx#stx-pair/null? _%tl6812068739%_) - (let ((_%__splice8275882759%_ - (gx#syntax-split-splice _%tl6812068739%_ '0))) - (let ((_%tl6812668755%_ - (let () - (declare (not safe)) - (##vector-ref _%__splice8275882759%_ '1))) - (_%target6812468752%_ - (let () - (declare (not safe)) - (##vector-ref _%__splice8275882759%_ '0)))) - (if (gx#stx-null? _%tl6812668755%_) - (_%__match8283482835%_ - _%e6809768662%_ - _%hd6809868666%_ - _%tl6809968669%_ - _%e6810068672%_ - _%hd6810168676%_ - _%tl6810268679%_ - _%e6810368682%_ - _%hd6810468686%_ - _%tl6810568689%_ - _%e6810668692%_ - _%hd6810768696%_ - _%tl6810868699%_ - _%e6810968702%_ - _%hd6811068706%_ - _%tl6811168709%_ - _%e6811268712%_ - _%hd6811368716%_ - _%tl6811468719%_ - _%e6811568722%_ - _%hd6811668726%_ - _%tl6811768729%_ - _%e6811868732%_ - _%hd6811968736%_ - _%tl6812068739%_ - _%e6812168742%_ - _%hd6812268746%_ - _%tl6812368749%_ - _%__splice8275882759%_ - _%target6812468752%_ - _%tl6812668755%_) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)))) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)))) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)) - (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84268_| - _%hd6811668726%_) - (if (gx#stx-pair/null? - _%tl6811768729%_) - (let ((_%__splice8276282763%_ - (gx#syntax-split-splice - _%tl6811768729%_ - '0))) - (let ((_%tl6816368376%_ - (let () - (declare - (not safe)) - (##vector-ref - _%__splice8276282763%_ - '1))) - (_%target6816168373%_ - (let () - (declare - (not safe)) - (##vector-ref - _%__splice8276282763%_ - '0)))) - (if (gx#stx-null? - _%tl6816368376%_) - (_%__match8289082891%_ - _%e6809768662%_ - _%hd6809868666%_ - _%tl6809968669%_ - _%e6810068672%_ - _%hd6810168676%_ - _%tl6810268679%_ - _%e6810368682%_ - _%hd6810468686%_ - _%tl6810568689%_ - _%e6810668692%_ - _%hd6810768696%_ - _%tl6810868699%_ - _%e6810968702%_ - _%hd6811068706%_ - _%tl6811168709%_ - _%e6811268712%_ - _%hd6811368716%_ - _%tl6811468719%_ - _%e6811568722%_ - _%hd6811668726%_ - _%tl6811768729%_ - _%__splice8276282763%_ - _%target6816168373%_ - _%tl6816368376%_) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)))) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_))) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)))) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)))) - (_%__kont8276482765%_ - _%tl6810268679%_ - _%hd6811068706%_ - _%hd6810768696%_ - _%hd6810468686%_)) - (let () (declare (not safe)) (_%g6808868213%_))))) + (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)) - (_%g6808868213%_))))) - (let () - (declare (not safe)) - (_%g6808868213%_))))) - (let () - (declare (not safe)) - (_%g6808868213%_))))) - (let () (declare (not safe)) (_%g6808868213%_))))) - (let () (declare (not safe)) (_%g6808868213%_)))))))) + (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 (_%stx68906%_) - (let* ((_%g6890968927%_ - (lambda (_%g6891068923%_) + (lambda (_%stx69672%_) + (let* ((_%g6967569693%_ + (lambda (_%g6967669689%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6891068923%_))) - (_%g6890869013%_ - (lambda (_%g6891068931%_) - (if (gx#stx-pair? _%g6891068931%_) - (let ((_%e6891368934%_ (gx#syntax-e _%g6891068931%_))) - (let ((_%hd6891468938%_ + _%g6967669689%_))) + (_%g6967469779%_ + (lambda (_%g6967669697%_) + (if (gx#stx-pair? _%g6967669697%_) + (let ((_%e6967969700%_ (gx#syntax-e _%g6967669697%_))) + (let ((_%hd6968069704%_ (let () (declare (not safe)) - (##car _%e6891368934%_))) - (_%tl6891568941%_ + (##car _%e6967969700%_))) + (_%tl6968169707%_ (let () (declare (not safe)) - (##cdr _%e6891368934%_)))) - (if (gx#stx-pair? _%tl6891568941%_) - (let ((_%e6891668944%_ - (gx#syntax-e _%tl6891568941%_))) - (let ((_%hd6891768948%_ + (##cdr _%e6967969700%_)))) + (if (gx#stx-pair? _%tl6968169707%_) + (let ((_%e6968269710%_ + (gx#syntax-e _%tl6968169707%_))) + (let ((_%hd6968369714%_ (let () (declare (not safe)) - (##car _%e6891668944%_))) - (_%tl6891868951%_ + (##car _%e6968269710%_))) + (_%tl6968469717%_ (let () (declare (not safe)) - (##cdr _%e6891668944%_)))) - (if (gx#stx-pair? _%tl6891868951%_) - (let ((_%e6891968954%_ - (gx#syntax-e _%tl6891868951%_))) - (let ((_%hd6892068958%_ + (##cdr _%e6968269710%_)))) + (if (gx#stx-pair? _%tl6968469717%_) + (let ((_%e6968569720%_ + (gx#syntax-e _%tl6968469717%_))) + (let ((_%hd6968669724%_ (let () (declare (not safe)) - (##car _%e6891968954%_))) - (_%tl6892168961%_ + (##car _%e6968569720%_))) + (_%tl6968769727%_ (let () (declare (not safe)) - (##cdr _%e6891968954%_)))) - (if (gx#stx-null? _%tl6892168961%_) - ((lambda (_%L68964%_ _%L68966%_) - (let* ((_%g6898268990%_ - (lambda (_%g6898368986%_) + (##cdr _%e6968569720%_)))) + (if (gx#stx-null? _%tl6968769727%_) + ((lambda (_%L69730%_ _%L69732%_) + (let* ((_%g6974869756%_ + (lambda (_%g6974969752%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6898368986%_))) - (_%g6898169009%_ - (lambda (_%g6898368994%_) - ((lambda (_%L68997%_) + _%g6974969752%_))) + (_%g6974769775%_ + (lambda (_%g6974969760%_) + ((lambda (_%L69763%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@receiver) - (cons _%L68997%_ '())) - (cons _%L68964%_ '())))) - _%g6898368994%_)))) + (cons _%L69763%_ '())) + (cons _%L69730%_ '())))) + _%g6974969760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6898169009%_ + (_%g6974769775%_ (gx#core-quote-syntax - _%L68966%_)))) - _%hd6892068958%_ - _%hd6891768948%_) - (_%g6890968927%_ - _%g6891068931%_)))) - (_%g6890968927%_ _%g6891068931%_)))) - (_%g6890968927%_ _%g6891068931%_)))) - (_%g6890968927%_ _%g6891068931%_))))) - (_%g6890869013%_ _%stx68906%_)))) + _%L69732%_)))) + _%hd6968669724%_ + _%hd6968369714%_) + (_%g6967569693%_ + _%g6967669697%_)))) + (_%g6967569693%_ _%g6967669697%_)))) + (_%g6967569693%_ _%g6967669697%_)))) + (_%g6967569693%_ _%g6967669697%_))))) + (_%g6967469779%_ _%stx69672%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| - (lambda (_%stx69017%_) - (let* ((_%__stx8293382934%_ _%stx69017%_) - (_%g6902269118%_ + (lambda (_%stx69783%_) + (let* ((_%__stx8379383794%_ _%stx69783%_) + (_%g6978869884%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8293382934%_)))) - (let ((_%__kont8293682937%_ - (lambda (_%L69465%_ - _%L69467%_ - _%L69468%_ - _%L69469%_ - _%L69470%_) - (let* ((_%g6950069508%_ - (lambda (_%g6950169504%_) + _%__stx8379383794%_)))) + (let ((_%__kont8379683797%_ + (lambda (_%L70231%_ + _%L70233%_ + _%L70234%_ + _%L70235%_ + _%L70236%_) + (let* ((_%g7026670274%_ + (lambda (_%g7026770270%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6950169504%_))) - (_%g6949969535%_ - (lambda (_%g6950169512%_) - ((lambda (_%L69515%_) + _%g7026770270%_))) + (_%g7026570301%_ + (lambda (_%g7026770278%_) + ((lambda (_%L70281%_) (cons (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L69470%_ - (cons _%L69515%_ + (cons (cons (cons _%L70236%_ + (cons _%L70281%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L69470%_ '()))) - (foldr (lambda (_%g6952669529%_ - _%g6952769532%_) - (cons _%g6952669529%_ - _%g6952769532%_)) + (cons _%L70236%_ '()))) + (foldr (lambda (_%g7029270295%_ + _%g7029370298%_) + (cons _%g7029270295%_ + _%g7029370298%_)) '() - _%L69468%_))) - _%g6950169512%_)))) - (_%g6949969535%_ + _%L70234%_))) + _%g7026770278%_)))) + (_%g7026570301%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (foldr (lambda (_%g6954069543%_ - _%g6954169546%_) - (cons _%g6954069543%_ - _%g6954169546%_)) + (cons (foldr (lambda (_%g7030670309%_ + _%g7030770312%_) + (cons _%g7030670309%_ + _%g7030770312%_)) '() - _%L69469%_) + _%L70235%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69467%_ - (foldr (lambda (_%g6953869549%_ - _%g6953969552%_) - (cons _%g6953869549%_ - _%g6953969552%_)) + (cons _%L70233%_ + (foldr (lambda (_%g7030470315%_ + _%g7030570318%_) + (cons _%g7030470315%_ + _%g7030570318%_)) '() - _%L69465%_))))) - (gx#stx-source _%stx69017%_)))))) - (_%__kont8294282943%_ - (lambda (_%L69268%_ _%L69270%_ _%L69271%_ _%L69272%_) + _%L70231%_))))) + (gx#stx-source _%stx69783%_)))))) + (_%__kont8380283803%_ + (lambda (_%L70034%_ _%L70036%_ _%L70037%_ _%L70038%_) (cons (gx#datum->syntax '#f 'let/c) - (cons _%L69272%_ + (cons _%L70038%_ (cons (begin (gx#syntax-check-splice-targets - _%L69270%_ - _%L69271%_) - (foldr (lambda (_%g6930669310%_ - _%g6930769313%_ - _%g6930869315%_) - (cons (cons _%g6930769313%_ - (cons _%g6930669310%_ + _%L70036%_ + _%L70037%_) + (foldr (lambda (_%g7007270076%_ + _%g7007370079%_ + _%g7007470081%_) + (cons (cons _%g7007370079%_ + (cons _%g7007270076%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g6930869315%_)) + _%g7007470081%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L69270%_ - _%L69271%_)) + _%L70036%_ + _%L70037%_)) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6930469318%_ + (foldr (lambda (_%g7007070084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6930569321%_) - (cons _%g6930469318%_ _%g6930569321%_)) + _%g7007170087%_) + (cons _%g7007070084%_ _%g7007170087%_)) '() - _%L69268%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8294882949%_ - (lambda (_%L69135%_) - (cons (gx#datum->syntax '#f 'let) _%L69135%_)))) - (let* ((_%__match8300283003%_ - (lambda (_%e6907469154%_ - _%hd6907569158%_ - _%tl6907669161%_ - _%e6907769164%_ - _%hd6907869168%_ - _%tl6907969171%_ - _%e6908069174%_ - _%hd6908169178%_ - _%tl6908269181%_ - _%__splice8294482945%_ - _%target6908369184%_ - _%tl6908569187%_) - (letrec ((_%loop6908669190%_ - (lambda (_%hd6908469194%_ - _%init6909069197%_ - _%var6909169199%_) - (if (gx#stx-pair? _%hd6908469194%_) - (let ((_%e6908769202%_ - (gx#syntax-e _%hd6908469194%_))) - (let ((_%lp-tl6908969209%_ + _%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 _%e6908769202%_))) - (_%lp-hd6908869206%_ + (##cdr _%e6985369968%_))) + (_%lp-hd6985469972%_ (let () (declare (not safe)) - (##car _%e6908769202%_)))) + (##car _%e6985369968%_)))) (if (gx#stx-pair? - _%lp-hd6908869206%_) - (let ((_%e6910369212%_ + _%lp-hd6985469972%_) + (let ((_%e6986969978%_ (gx#syntax-e - _%lp-hd6908869206%_))) - (let ((_%tl6910569219%_ + _%lp-hd6985469972%_))) + (let ((_%tl6987169985%_ (let () (declare (not safe)) - (##cdr _%e6910369212%_))) - (_%hd6910469216%_ + (##cdr _%e6986969978%_))) + (_%hd6987069982%_ (let () (declare (not safe)) - (##car _%e6910369212%_)))) + (##car _%e6986969978%_)))) (if (gx#stx-pair? - _%tl6910569219%_) - (let ((_%e6910669222%_ + _%tl6987169985%_) + (let ((_%e6987269988%_ (gx#syntax-e - _%tl6910569219%_))) - (let ((_%tl6910869229%_ + _%tl6987169985%_))) + (let ((_%tl6987469995%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6910669222%_))) - (_%hd6910769226%_ - (let () (declare (not safe)) (##car _%e6910669222%_)))) - (if (gx#stx-null? _%tl6910869229%_) - (_%loop6908669190%_ - _%lp-tl6908969209%_ - (cons _%hd6910769226%_ _%init6909069197%_) - (cons _%hd6910469216%_ _%var6909169199%_)) - (_%__kont8294882949%_ _%tl6907669161%_)))) - (_%__kont8294882949%_ _%tl6907669161%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8294882949%_ - _%tl6907669161%_)))) - (let ((_%var6909369235%_ - (reverse _%var6909169199%_)) - (_%init6909269232%_ - (reverse _%init6909069197%_))) + (##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? - _%tl6908269181%_) - (let ((_%__splice8294682947%_ + _%tl6984869947%_) + (let ((_%__splice8380683807%_ (gx#syntax-split-splice - _%tl6908269181%_ + _%tl6984869947%_ '0))) - (let ((_%tl6909669241%_ + (let ((_%tl6986270007%_ (let () (declare (not safe)) (##vector-ref - _%__splice8294682947%_ + _%__splice8380683807%_ '1))) - (_%target6909469238%_ + (_%target6986070004%_ (let () (declare (not safe)) (##vector-ref - _%__splice8294682947%_ + _%__splice8380683807%_ '0)))) (if (gx#stx-null? - _%tl6909669241%_) - (letrec ((_%loop6909769244%_ - (lambda (_%hd6909569248%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6910169251%_) - (if (gx#stx-pair? _%hd6909569248%_) - (let ((_%e6909869254%_ - (gx#syntax-e _%hd6909569248%_))) - (let ((_%lp-tl6910069261%_ + _%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 _%e6909869254%_))) - (_%lp-hd6909969258%_ + (##cdr _%e6986470020%_))) + (_%lp-hd6986570024%_ (let () (declare (not safe)) - (##car _%e6909869254%_)))) - (_%loop6909769244%_ - _%lp-tl6910069261%_ - (cons _%lp-hd6909969258%_ - _%body6910169251%_)))) - (let ((_%body6910269264%_ - (reverse _%body6910169251%_))) - (let ((_%L69268%_ _%body6910269264%_) - (_%L69270%_ _%init6909269232%_) - (_%L69271%_ _%var6909369235%_) - (_%L69272%_ _%hd6907869168%_)) - (if (and (gx#identifier? _%L69272%_) + (##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 (_%g6929669299%_ - _%g6929769302%_) - (cons _%g6929669299%_ - _%g6929769302%_)) + (foldr (lambda (_%g7006270065%_ + _%g7006370068%_) + (cons _%g7006270065%_ + _%g7006370068%_)) '() - _%L69271%_))) - (_%__kont8294282943%_ - _%L69268%_ - _%L69270%_ - _%L69271%_ - _%L69272%_) - (_%__kont8294882949%_ - _%tl6907669161%_)))))))) - (_%loop6909769244%_ _%target6909469238%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8294882949%_ - _%tl6907669161%_)))) - (_%__kont8294882949%_ - _%tl6907669161%_))))))) - (_%loop6908669190%_ _%target6908369184%_ '() '())))) - (_%__match8297682977%_ - (lambda (_%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_) - (letrec ((_%loop6904169367%_ - (lambda (_%hd6903969371%_ - _%init6904569374%_ - _%var6904669376%_) - (if (gx#stx-pair? _%hd6903969371%_) - (let ((_%e6904269379%_ - (gx#syntax-e _%hd6903969371%_))) - (let ((_%lp-tl6904469386%_ + _%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 _%e6904269379%_))) - (_%lp-hd6904369383%_ + (##cdr _%e6980870145%_))) + (_%lp-hd6980970149%_ (let () (declare (not safe)) - (##car _%e6904269379%_)))) + (##car _%e6980870145%_)))) (if (gx#stx-pair? - _%lp-hd6904369383%_) - (let ((_%e6906469389%_ + _%lp-hd6980970149%_) + (let ((_%e6983070155%_ (gx#syntax-e - _%lp-hd6904369383%_))) - (let ((_%tl6906669396%_ + _%lp-hd6980970149%_))) + (let ((_%tl6983270162%_ (let () (declare (not safe)) - (##cdr _%e6906469389%_))) - (_%hd6906569393%_ + (##cdr _%e6983070155%_))) + (_%hd6983170159%_ (let () (declare (not safe)) - (##car _%e6906469389%_)))) + (##car _%e6983070155%_)))) (if (gx#stx-pair? - _%tl6906669396%_) - (let ((_%e6906769399%_ + _%tl6983270162%_) + (let ((_%e6983370165%_ (gx#syntax-e - _%tl6906669396%_))) - (let ((_%tl6906969406%_ + _%tl6983270162%_))) + (let ((_%tl6983570172%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6906769399%_))) - (_%hd6906869403%_ - (let () (declare (not safe)) (##car _%e6906769399%_)))) - (if (gx#stx-null? _%tl6906969406%_) - (_%loop6904169367%_ - _%lp-tl6904469386%_ - (cons _%hd6906869403%_ _%init6904569374%_) - (cons _%hd6906569393%_ _%var6904669376%_)) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)))) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)))) - (let ((_%var6904869412%_ - (reverse _%var6904669376%_)) - (_%init6904769409%_ - (reverse _%init6904569374%_))) - (if (gx#stx-pair? _%tl6903769358%_) - (let ((_%e6904969415%_ + (##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 - _%tl6903769358%_))) - (let ((_%tl6905169422%_ + _%tl6980370124%_))) + (let ((_%tl6981770188%_ (let () (declare (not safe)) - (##cdr _%e6904969415%_))) - (_%hd6905069419%_ + (##cdr _%e6981570181%_))) + (_%hd6981670185%_ (let () (declare (not safe)) - (##car _%e6904969415%_)))) + (##car _%e6981570181%_)))) (if (gx#identifier? - _%hd6905069419%_) + _%hd6981670185%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84269_| - _%hd6905069419%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85152_| + _%hd6981670185%_) (if (gx#stx-pair? - _%tl6905169422%_) - (let ((_%e6905269425%_ + _%tl6981770188%_) + (let ((_%e6981870191%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6905169422%_))) - (let ((_%tl6905469432%_ + (gx#syntax-e _%tl6981770188%_))) + (let ((_%tl6982070198%_ (let () (declare (not safe)) - (##cdr _%e6905269425%_))) - (_%hd6905369429%_ + (##cdr _%e6981870191%_))) + (_%hd6981970195%_ (let () (declare (not safe)) - (##car _%e6905269425%_)))) - (if (gx#stx-pair/null? _%tl6905469432%_) - (let ((_%__splice8294082941%_ + (##car _%e6981870191%_)))) + (if (gx#stx-pair/null? _%tl6982070198%_) + (let ((_%__splice8380083801%_ (gx#syntax-split-splice - _%tl6905469432%_ + _%tl6982070198%_ '0))) - (let ((_%tl6905769438%_ + (let ((_%tl6982370204%_ (let () (declare (not safe)) (##vector-ref - _%__splice8294082941%_ + _%__splice8380083801%_ '1))) - (_%target6905569435%_ + (_%target6982170201%_ (let () (declare (not safe)) (##vector-ref - _%__splice8294082941%_ + _%__splice8380083801%_ '0)))) - (if (gx#stx-null? _%tl6905769438%_) - (letrec ((_%loop6905869441%_ - (lambda (_%hd6905669445%_ - _%body6906269448%_) + (if (gx#stx-null? _%tl6982370204%_) + (letrec ((_%loop6982470207%_ + (lambda (_%hd6982270211%_ + _%body6982870214%_) (if (gx#stx-pair? - _%hd6905669445%_) - (let ((_%e6905969451%_ + _%hd6982270211%_) + (let ((_%e6982570217%_ (gx#syntax-e - _%hd6905669445%_))) - (let ((_%lp-tl6906169458%_ + _%hd6982270211%_))) + (let ((_%lp-tl6982770224%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6905969451%_))) - (_%lp-hd6906069455%_ - (let () (declare (not safe)) (##car _%e6905969451%_)))) - (_%loop6905869441%_ - _%lp-tl6906169458%_ - (cons _%lp-hd6906069455%_ _%body6906269448%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6906369461%_ - (reverse _%body6906269448%_))) - (let ((_%L69465%_ - _%body6906369461%_) - (_%L69467%_ - _%hd6905369429%_) - (_%L69468%_ - _%init6904769409%_) - (_%L69469%_ - _%var6904869412%_) - (_%L69470%_ - _%hd6903369345%_)) + (##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? - _%L69470%_) - (_%__kont8293682937%_ - _%L69465%_ - _%L69467%_ - _%L69468%_ - _%L69469%_ - _%L69470%_) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)))))))) - (_%loop6905869441%_ - _%target6905569435%_ + _%L70236%_) + (_%__kont8379683797%_ + _%L70231%_ + _%L70233%_ + _%L70234%_ + _%L70235%_ + _%L70236%_) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))))))) + (_%loop6982470207%_ + _%target6982170201%_ '())) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)))) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)))) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_)))) - (_%__match8300283003%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_))))))) - (_%loop6904169367%_ _%target6903869361%_ '() '()))))) - (if (gx#stx-pair? _%__stx8293382934%_) - (let ((_%e6902969331%_ (gx#syntax-e _%__stx8293382934%_))) - (let ((_%tl6903169338%_ + (_%__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 _%e6902969331%_))) - (_%hd6903069335%_ + (##cdr _%e6979570097%_))) + (_%hd6979670101%_ (let () (declare (not safe)) - (##car _%e6902969331%_)))) - (if (gx#stx-pair? _%tl6903169338%_) - (let ((_%e6903269341%_ - (gx#syntax-e _%tl6903169338%_))) - (let ((_%tl6903469348%_ + (##car _%e6979570097%_)))) + (if (gx#stx-pair? _%tl6979770104%_) + (let ((_%e6979870107%_ + (gx#syntax-e _%tl6979770104%_))) + (let ((_%tl6980070114%_ (let () (declare (not safe)) - (##cdr _%e6903269341%_))) - (_%hd6903369345%_ + (##cdr _%e6979870107%_))) + (_%hd6979970111%_ (let () (declare (not safe)) - (##car _%e6903269341%_)))) - (if (gx#stx-pair? _%tl6903469348%_) - (let ((_%e6903569351%_ - (gx#syntax-e _%tl6903469348%_))) - (let ((_%tl6903769358%_ + (##car _%e6979870107%_)))) + (if (gx#stx-pair? _%tl6980070114%_) + (let ((_%e6980170117%_ + (gx#syntax-e _%tl6980070114%_))) + (let ((_%tl6980370124%_ (let () (declare (not safe)) - (##cdr _%e6903569351%_))) - (_%hd6903669355%_ + (##cdr _%e6980170117%_))) + (_%hd6980270121%_ (let () (declare (not safe)) - (##car _%e6903569351%_)))) - (if (gx#stx-pair/null? _%hd6903669355%_) - (let ((_%__splice8293882939%_ + (##car _%e6980170117%_)))) + (if (gx#stx-pair/null? _%hd6980270121%_) + (let ((_%__splice8379883799%_ (gx#syntax-split-splice - _%hd6903669355%_ + _%hd6980270121%_ '0))) - (let ((_%tl6904069364%_ + (let ((_%tl6980670130%_ (let () (declare (not safe)) (##vector-ref - _%__splice8293882939%_ + _%__splice8379883799%_ '1))) - (_%target6903869361%_ + (_%target6980470127%_ (let () (declare (not safe)) (##vector-ref - _%__splice8293882939%_ + _%__splice8379883799%_ '0)))) (if (gx#stx-null? - _%tl6904069364%_) - (_%__match8297682977%_ - _%e6902969331%_ - _%hd6903069335%_ - _%tl6903169338%_ - _%e6903269341%_ - _%hd6903369345%_ - _%tl6903469348%_ - _%e6903569351%_ - _%hd6903669355%_ - _%tl6903769358%_ - _%__splice8293882939%_ - _%target6903869361%_ - _%tl6904069364%_) - (_%__kont8294882949%_ - _%tl6903169338%_)))) - (_%__kont8294882949%_ - _%tl6903169338%_)))) - (_%__kont8294882949%_ _%tl6903169338%_)))) - (_%__kont8294882949%_ _%tl6903169338%_)))) - (let () (declare (not safe)) (_%g6902269118%_)))))))) + _%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 (_%stx69563%_) - (letrec ((_%generate69566%_ - (lambda (_%hd76737%_ _%slots76739%_ _%body76740%_) - (let* ((_%__stx8301183012%_ _%hd76737%_) - (_%g7674476766%_ + (lambda (_%stx70329%_) + (letrec ((_%generate70332%_ + (lambda (_%hd77503%_ _%slots77505%_ _%body77506%_) + (let* ((_%__stx8387183872%_ _%hd77503%_) + (_%g7751077532%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8301183012%_)))) - (let ((_%__kont8301483015%_ - (lambda (_%L76842%_ _%L76844%_) - (_%generate-defclass69587%_ - _%L76844%_ - (foldr (lambda (_%g7686676869%_ - _%g7686776872%_) - (cons _%g7686676869%_ - _%g7686776872%_)) + _%__stx8387183872%_)))) + (let ((_%__kont8387483875%_ + (lambda (_%L77608%_ _%L77610%_) + (_%generate-defclass70353%_ + _%L77610%_ + (foldr (lambda (_%g7763277635%_ + _%g7763377638%_) + (cons _%g7763277635%_ + _%g7763377638%_)) '() - _%L76842%_) - _%slots76739%_ - _%body76740%_))) - (_%__kont8301883019%_ - (lambda (_%L76784%_) - (_%generate-defclass69587%_ - _%L76784%_ + _%L77608%_) + _%slots77505%_ + _%body77506%_))) + (_%__kont8387883879%_ + (lambda (_%L77550%_) + (_%generate-defclass70353%_ + _%L77550%_ '() - _%slots76739%_ - _%body76740%_))) - (_%__kont8302083021%_ + _%slots77505%_ + _%body77506%_))) + (_%__kont8388083881%_ (lambda () (gx#raise-syntax-error '#f '"bad class head" - _%stx69563%_ - _%hd76737%_)))) - (let* ((_%g7674276795%_ + _%stx70329%_ + _%hd77503%_)))) + (let* ((_%g7750877561%_ (lambda () - (let ((_%L76784%_ _%__stx8301183012%_)) - (if (gx#identifier? _%L76784%_) - (_%__kont8301883019%_ _%L76784%_) - (_%__kont8302083021%_))))) - (_%__match8303683037%_ - (lambda (_%e7674876802%_ - _%hd7674976806%_ - _%tl7675076809%_ - _%__splice8301683017%_ - _%target7675176812%_ - _%tl7675376815%_) - (letrec ((_%loop7675476818%_ - (lambda (_%hd7675276822%_ - _%super7675876825%_) + (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? - _%hd7675276822%_) - (let ((_%e7675576828%_ + _%hd7751877588%_) + (let ((_%e7752177594%_ (gx#syntax-e - _%hd7675276822%_))) - (let ((_%lp-tl7675776835%_ + _%hd7751877588%_))) + (let ((_%lp-tl7752377601%_ (let () (declare (not safe)) - (##cdr _%e7675576828%_))) - (_%lp-hd7675676832%_ + (##cdr _%e7752177594%_))) + (_%lp-hd7752277598%_ (let () (declare (not safe)) - (##car _%e7675576828%_)))) - (_%loop7675476818%_ - _%lp-tl7675776835%_ - (cons _%lp-hd7675676832%_ - _%super7675876825%_)))) - (let ((_%super7675976838%_ - (reverse _%super7675876825%_))) - (let ((_%L76842%_ - _%super7675976838%_) - (_%L76844%_ - _%hd7674976806%_)) + (##car _%e7752177594%_)))) + (_%loop7752077584%_ + _%lp-tl7752377601%_ + (cons _%lp-hd7752277598%_ + _%super7752477591%_)))) + (let ((_%super7752577604%_ + (reverse _%super7752477591%_))) + (let ((_%L77608%_ + _%super7752577604%_) + (_%L77610%_ + _%hd7751577572%_)) (if (and (gx#identifier? - _%L76844%_) + _%L77610%_) (andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g7685876861%_ _%g7685976864%_) - (cons _%g7685876861%_ _%g7685976864%_)) + (foldr (lambda (_%g7762477627%_ _%g7762577630%_) + (cons _%g7762477627%_ _%g7762577630%_)) '() - _%L76842%_))) - (_%__kont8301483015%_ _%L76842%_ _%L76844%_) - (let () (declare (not safe)) (_%g7674276795%_))))))))) + _%L77608%_))) + (_%__kont8387483875%_ _%L77608%_ _%L77610%_) + (let () (declare (not safe)) (_%g7750877561%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7675476818%_ - _%target7675176812%_ + (_%loop7752077584%_ + _%target7751777578%_ '()))))) - (if (gx#stx-pair? _%__stx8301183012%_) - (let ((_%e7674876802%_ - (gx#syntax-e _%__stx8301183012%_))) - (let ((_%tl7675076809%_ + (if (gx#stx-pair? _%__stx8387183872%_) + (let ((_%e7751477568%_ + (gx#syntax-e _%__stx8387183872%_))) + (let ((_%tl7751677575%_ (let () (declare (not safe)) - (##cdr _%e7674876802%_))) - (_%hd7674976806%_ + (##cdr _%e7751477568%_))) + (_%hd7751577572%_ (let () (declare (not safe)) - (##car _%e7674876802%_)))) - (if (gx#stx-pair/null? _%tl7675076809%_) - (let ((_%__splice8301683017%_ + (##car _%e7751477568%_)))) + (if (gx#stx-pair/null? _%tl7751677575%_) + (let ((_%__splice8387683877%_ (gx#syntax-split-splice - _%tl7675076809%_ + _%tl7751677575%_ '0))) - (let ((_%tl7675376815%_ + (let ((_%tl7751977581%_ (let () (declare (not safe)) (##vector-ref - _%__splice8301683017%_ + _%__splice8387683877%_ '1))) - (_%target7675176812%_ + (_%target7751777578%_ (let () (declare (not safe)) (##vector-ref - _%__splice8301683017%_ + _%__splice8387683877%_ '0)))) - (if (gx#stx-null? _%tl7675376815%_) - (_%__match8303683037%_ - _%e7674876802%_ - _%hd7674976806%_ - _%tl7675076809%_ - _%__splice8301683017%_ - _%target7675176812%_ - _%tl7675376815%_) + (if (gx#stx-null? _%tl7751977581%_) + (_%__match8389683897%_ + _%e7751477568%_ + _%hd7751577572%_ + _%tl7751677575%_ + _%__splice8387683877%_ + _%target7751777578%_ + _%tl7751977581%_) (let () (declare (not safe)) - (_%g7674276795%_))))) + (_%g7750877561%_))))) (let () (declare (not safe)) - (_%g7674276795%_))))) + (_%g7750877561%_))))) (let () (declare (not safe)) - (_%g7674276795%_)))))))) - (_%check-typedef-body!69568%_ - (lambda (_%body76728%_) - (letrec ((_%body-opt?76731%_ - (lambda (_%key76734%_) - (let ((__tmp84270 (gx#stx-e _%key76734%_))) + (_%g7750877561%_)))))))) + (_%check-typedef-body!70334%_ + (lambda (_%body77494%_) + (letrec ((_%body-opt?77497%_ + (lambda (_%key77500%_) + (let ((__tmp85153 (gx#stx-e _%key77500%_))) (declare (not safe)) - (##memq __tmp84270 + (##memq __tmp85153 '(id: struct: name: @@ -6716,107 +7153,107 @@ print: equal: metaclass:)))))) - (if (gx#stx-plist? _%body76728%_ _%body-opt?76731%_) + (if (gx#stx-plist? _%body77494%_ _%body-opt?77497%_) '#!void (gx#raise-syntax-error '#f '"invalid defclass body" - _%stx69563%_ - _%body76728%_))))) - (_%slot-name69569%_ - (lambda (_%slot-spec76725%_) + _%stx70329%_ + _%body77494%_))))) + (_%slot-name70335%_ + (lambda (_%slot-spec77491%_) (gx#stx-e - (if (gx#identifier? _%slot-spec76725%_) - _%slot-spec76725%_ - (gx#stx-car _%slot-spec76725%_))))) - (_%slot-contract69570%_ - (lambda (_%slot-spec76606%_) - (let* ((_%__stx8303983040%_ _%slot-spec76606%_) - (_%g7661176632%_ + (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" - _%__stx8303983040%_)))) - (let ((_%__kont8304283043%_ (lambda (_%L76712%_) '#f)) - (_%__kont8304483045%_ - (lambda (_%L76690%_ _%L76692%_) '#f)) - (_%__kont8304683047%_ - (lambda (_%L76649%_ _%L76651%_) _%L76649%_))) - (let* ((_%g7660976705%_ + _%__stx8389983900%_)))) + (let ((_%__kont8390283903%_ (lambda (_%L77478%_) '#f)) + (_%__kont8390483905%_ + (lambda (_%L77456%_ _%L77458%_) '#f)) + (_%__kont8390683907%_ + (lambda (_%L77415%_ _%L77417%_) _%L77415%_))) + (let* ((_%g7737577471%_ (lambda () - (if (gx#stx-pair? _%__stx8303983040%_) - (let ((_%e7661676670%_ + (if (gx#stx-pair? _%__stx8389983900%_) + (let ((_%e7738277436%_ (gx#syntax-e - _%__stx8303983040%_))) - (let ((_%tl7661876677%_ + _%__stx8389983900%_))) + (let ((_%tl7738477443%_ (let () (declare (not safe)) - (##cdr _%e7661676670%_))) - (_%hd7661776674%_ + (##cdr _%e7738277436%_))) + (_%hd7738377440%_ (let () (declare (not safe)) - (##car _%e7661676670%_)))) - (if (gx#stx-pair? _%tl7661876677%_) - (let ((_%e7661976680%_ + (##car _%e7738277436%_)))) + (if (gx#stx-pair? _%tl7738477443%_) + (let ((_%e7738577446%_ (gx#syntax-e - _%tl7661876677%_))) - (let ((_%tl7662176687%_ + _%tl7738477443%_))) + (let ((_%tl7738777453%_ (let () (declare (not safe)) - (##cdr _%e7661976680%_))) - (_%hd7662076684%_ + (##cdr _%e7738577446%_))) + (_%hd7738677450%_ (let () (declare (not safe)) - (##car _%e7661976680%_)))) + (##car _%e7738577446%_)))) (if (gx#stx-null? - _%tl7662176687%_) - (_%__kont8304483045%_ - _%hd7662076684%_ - _%hd7661776674%_) - (_%__kont8304683047%_ - _%tl7661876677%_ - _%hd7661776674%_)))) - (_%__kont8304683047%_ - _%tl7661876677%_ - _%hd7661776674%_)))) + _%tl7738777453%_) + (_%__kont8390483905%_ + _%hd7738677450%_ + _%hd7738377440%_) + (_%__kont8390683907%_ + _%tl7738477443%_ + _%hd7738377440%_)))) + (_%__kont8390683907%_ + _%tl7738477443%_ + _%hd7738377440%_)))) (let () (declare (not safe)) - (_%g7661176632%_))))) - (_%L76712%_ _%__stx8303983040%_)) - (if (gx#identifier? _%L76712%_) - (_%__kont8304283043%_ _%L76712%_) + (_%g7737777398%_))))) + (_%L77478%_ _%__stx8389983900%_)) + (if (gx#identifier? _%L77478%_) + (_%__kont8390283903%_ _%L77478%_) (let () (declare (not safe)) - (_%g7660976705%_)))))))) - (_%slot-contract-normalize69571%_ - (lambda (_%slot-spec76595%_) - (let ((_%contract7659776599%_ - (_%slot-contract69570%_ _%slot-spec76595%_))) - (if _%contract7659776599%_ - (let ((_%contract76603%_ _%contract7659776599%_)) - (_%contract-normalize69572%_ _%contract76603%_)) + (_%g7737577471%_)))))))) + (_%slot-contract-normalize70337%_ + (lambda (_%slot-spec77361%_) + (let ((_%contract7736377365%_ + (_%slot-contract70336%_ _%slot-spec77361%_))) + (if _%contract7736377365%_ + (let ((_%contract77369%_ _%contract7736377365%_)) + (_%contract-normalize70338%_ _%contract77369%_)) '#f)))) - (_%contract-normalize69572%_ - (lambda (_%contract76340%_) - (let* ((_%__stx8307183072%_ _%contract76340%_) - (_%g7634676390%_ + (_%contract-normalize70338%_ + (lambda (_%contract77106%_) + (let* ((_%__stx8393183932%_ _%contract77106%_) + (_%g7711277156%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8307183072%_)))) - (let ((_%__kont8307483075%_ - (lambda (_%L76566%_) - (_%contract-normalize69572%_ - (foldr (lambda (_%g7658276585%_ - _%g7658376588%_) - (cons _%g7658276585%_ - _%g7658376588%_)) + _%__stx8393183932%_)))) + (let ((_%__kont8393483935%_ + (lambda (_%L77332%_) + (_%contract-normalize70338%_ + (foldr (lambda (_%g7734877351%_ + _%g7734977354%_) + (cons _%g7734877351%_ + _%g7734977354%_)) '() - _%L76566%_)))) - (_%__kont8307883079%_ - (lambda (_%L76490%_ _%L76492%_) + _%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 _%L76492%_ '()))) + (cons _%L77258%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) - (cons _%L76490%_ '())))))) - (_%__kont8308083081%_ (lambda (_%L76428%_) '#f)) - (_%__kont8308283083%_ - (lambda () _%contract76340%_))) - (let* ((_%g7634376509%_ + (cons _%L77256%_ '())))))) + (_%__kont8394083941%_ (lambda (_%L77194%_) '#f)) + (_%__kont8394283943%_ + (lambda () _%contract77106%_))) + (let* ((_%g7710977275%_ (lambda () - (if (gx#stx-pair? _%__stx8307183072%_) - (let ((_%e7636676450%_ + (if (gx#stx-pair? _%__stx8393183932%_) + (let ((_%e7713277216%_ (gx#syntax-e - _%__stx8307183072%_))) - (let ((_%tl7636876457%_ + _%__stx8393183932%_))) + (let ((_%tl7713477223%_ (let () (declare (not safe)) - (##cdr _%e7636676450%_))) - (_%hd7636776454%_ + (##cdr _%e7713277216%_))) + (_%hd7713377220%_ (let () (declare (not safe)) - (##car _%e7636676450%_)))) - (if (gx#identifier? _%hd7636776454%_) + (##car _%e7713277216%_)))) + (if (gx#identifier? _%hd7713377220%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84271_| - _%hd7636776454%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85154_| + _%hd7713377220%_) (if (gx#stx-pair? - _%tl7636876457%_) - (let ((_%e7636976460%_ + _%tl7713477223%_) + (let ((_%e7713577226%_ (gx#syntax-e - _%tl7636876457%_))) - (let ((_%tl7637176467%_ + _%tl7713477223%_))) + (let ((_%tl7713777233%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7636976460%_))) - (_%hd7637076464%_ - (let () (declare (not safe)) (##car _%e7636976460%_)))) - (if (gx#stx-pair? _%tl7637176467%_) - (let ((_%e7637276470%_ (gx#syntax-e _%tl7637176467%_))) - (let ((_%tl7637476477%_ + (##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 _%e7637276470%_))) - (_%hd7637376474%_ + (##cdr _%e7713877236%_))) + (_%hd7713977240%_ (let () (declare (not safe)) - (##car _%e7637276470%_)))) - (if (gx#identifier? _%hd7637376474%_) + (##car _%e7713877236%_)))) + (if (gx#identifier? _%hd7713977240%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84272_| - _%hd7637376474%_) - (if (gx#stx-pair? _%tl7637476477%_) - (let ((_%e7637576480%_ - (gx#syntax-e _%tl7637476477%_))) - (let ((_%tl7637776487%_ + |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 _%e7637576480%_))) - (_%hd7637676484%_ + (##cdr _%e7714177246%_))) + (_%hd7714277250%_ (let () (declare (not safe)) - (##car _%e7637576480%_)))) - (if (gx#stx-null? _%tl7637776487%_) - (_%__kont8307883079%_ - _%hd7637676484%_ - _%hd7637076464%_) - (_%__kont8308283083%_)))) - (_%__kont8308283083%_)) - (_%__kont8308283083%_)) - (_%__kont8308283083%_)))) - (_%__kont8308283083%_)))) - (_%__kont8308283083%_)) + (##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]#_g84273_| - _%hd7636776454%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85156_| + _%hd7713377220%_) (if (gx#stx-pair? - _%tl7636876457%_) - (let ((_%e7638276418%_ + _%tl7713477223%_) + (let ((_%e7714877184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7636876457%_))) - (let ((_%tl7638476425%_ + (gx#syntax-e _%tl7713477223%_))) + (let ((_%tl7715077191%_ (let () (declare (not safe)) - (##cdr _%e7638276418%_))) - (_%hd7638376422%_ + (##cdr _%e7714877184%_))) + (_%hd7714977188%_ (let () (declare (not safe)) - (##car _%e7638276418%_)))) - (if (gx#stx-null? _%tl7638476425%_) - (_%__kont8308083081%_ _%hd7638376422%_) - (_%__kont8308283083%_)))) - (_%__kont8308283083%_)) - (_%__kont8308283083%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8308283083%_)))) - (_%__kont8308283083%_)))) - (_%__match8311083111%_ - (lambda (_%__splice8307683077%_ - _%target7634976516%_ - _%tl7635176519%_ - _%e7635876522%_ - _%hd7635976526%_ - _%tl7636076529%_ - _%e7636176532%_ - _%hd7636276536%_ - _%tl7636376539%_) - (letrec ((_%loop7635276542%_ - (lambda (_%hd7635076546%_ - _%pre7635676549%_) + (##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? - _%hd7635076546%_) - (let ((_%e7635376552%_ + _%hd7711677312%_) + (let ((_%e7711977318%_ (gx#syntax-e - _%hd7635076546%_))) - (let ((_%lp-tl7635576559%_ + _%hd7711677312%_))) + (let ((_%lp-tl7712177325%_ (let () (declare (not safe)) - (##cdr _%e7635376552%_))) - (_%lp-hd7635476556%_ + (##cdr _%e7711977318%_))) + (_%lp-hd7712077322%_ (let () (declare (not safe)) - (##car _%e7635376552%_)))) - (_%loop7635276542%_ - _%lp-tl7635576559%_ - (cons _%lp-hd7635476556%_ - _%pre7635676549%_)))) - (let ((_%pre7635776562%_ - (reverse _%pre7635676549%_))) - (_%__kont8307483075%_ - _%pre7635776562%_)))))) - (_%loop7635276542%_ - _%target7634976516%_ + (##car _%e7711977318%_)))) + (_%loop7711877308%_ + _%lp-tl7712177325%_ + (cons _%lp-hd7712077322%_ + _%pre7712277315%_)))) + (let ((_%pre7712377328%_ + (reverse _%pre7712277315%_))) + (_%__kont8393483935%_ + _%pre7712377328%_)))))) + (_%loop7711877308%_ + _%target7711577282%_ '()))))) - (if (gx#stx-pair/null? _%__stx8307183072%_) - (if (let ((__tmp84274 - (gx#stx-length _%__stx8307183072%_))) + (if (gx#stx-pair/null? _%__stx8393183932%_) + (if (let ((__tmp85157 + (gx#stx-length _%__stx8393183932%_))) (declare (not safe)) - (##fx>= __tmp84274 '2)) - (let ((_%__splice8307683077%_ + (##fx>= __tmp85157 '2)) + (let ((_%__splice8393683937%_ (gx#syntax-split-splice - _%__stx8307183072%_ + _%__stx8393183932%_ '2))) - (let ((_%tl7635176519%_ + (let ((_%tl7711777285%_ (let () (declare (not safe)) (##vector-ref - _%__splice8307683077%_ + _%__splice8393683937%_ '1))) - (_%target7634976516%_ + (_%target7711577282%_ (let () (declare (not safe)) (##vector-ref - _%__splice8307683077%_ + _%__splice8393683937%_ '0)))) - (if (gx#stx-pair? _%tl7635176519%_) - (let ((_%e7635876522%_ + (if (gx#stx-pair? _%tl7711777285%_) + (let ((_%e7712477288%_ (gx#syntax-e - _%tl7635176519%_))) - (let ((_%tl7636076529%_ + _%tl7711777285%_))) + (let ((_%tl7712677295%_ (let () (declare (not safe)) - (##cdr _%e7635876522%_))) - (_%hd7635976526%_ + (##cdr _%e7712477288%_))) + (_%hd7712577292%_ (let () (declare (not safe)) - (##car _%e7635876522%_)))) + (##car _%e7712477288%_)))) (if (gx#identifier? - _%hd7635976526%_) + _%hd7712577292%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84275_| - _%hd7635976526%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85158_| + _%hd7712577292%_) (if (gx#stx-pair? - _%tl7636076529%_) - (let ((_%e7636176532%_ + _%tl7712677295%_) + (let ((_%e7712777298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7636076529%_))) - (let ((_%tl7636376539%_ + (gx#syntax-e _%tl7712677295%_))) + (let ((_%tl7712977305%_ (let () (declare (not safe)) - (##cdr _%e7636176532%_))) - (_%hd7636276536%_ + (##cdr _%e7712777298%_))) + (_%hd7712877302%_ (let () (declare (not safe)) - (##car _%e7636176532%_)))) - (if (gx#stx-null? _%tl7636376539%_) - (_%__match8311083111%_ - _%__splice8307683077%_ - _%target7634976516%_ - _%tl7635176519%_ - _%e7635876522%_ - _%hd7635976526%_ - _%tl7636076529%_ - _%e7636176532%_ - _%hd7636276536%_ - _%tl7636376539%_) - (let () (declare (not safe)) (_%g7634376509%_))))) - (let () (declare (not safe)) (_%g7634376509%_))) - (let () (declare (not safe)) (_%g7634376509%_))) + (##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)) - (_%g7634376509%_))))) + (_%g7710977275%_))))) (let () (declare (not safe)) - (_%g7634376509%_))))) + (_%g7710977275%_))))) (let () (declare (not safe)) - (_%g7634376509%_))) + (_%g7710977275%_))) (let () (declare (not safe)) - (_%g7634376509%_)))))))) - (_%slot-contract-type69573%_ - (lambda (_%slot-spec76329%_) - (let ((_%contract7633176333%_ - (_%slot-contract69570%_ _%slot-spec76329%_))) - (if _%contract7633176333%_ - (let ((_%contract76337%_ _%contract7633176333%_)) - (_%contract-type69574%_ _%contract76337%_)) + (_%g7710977275%_)))))))) + (_%slot-contract-type70339%_ + (lambda (_%slot-spec77095%_) + (let ((_%contract7709777099%_ + (_%slot-contract70336%_ _%slot-spec77095%_))) + (if _%contract7709777099%_ + (let ((_%contract77103%_ _%contract7709777099%_)) + (_%contract-type70340%_ _%contract77103%_)) '#f)))) - (_%contract-type69574%_ - (lambda (_%contract76137%_) - (let* ((_%__stx8316583166%_ _%contract76137%_) - (_%g7614276174%_ + (_%contract-type70340%_ + (lambda (_%contract76903%_) + (let* ((_%__stx8402584026%_ _%contract76903%_) + (_%g7690876940%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8316583166%_)))) - (let ((_%__kont8316883169%_ - (lambda (_%L76296%_ _%L76298%_ _%L76299%_) - _%L76298%_)) - (_%__kont8317083171%_ - (lambda (_%L76232%_ - _%L76234%_ - _%L76235%_ - _%L76236%_) - _%L76234%_)) - (_%__kont8317283173%_ (lambda () '#f))) - (let* ((_%__match8321483215%_ - (lambda (_%e7615776192%_ - _%hd7615876196%_ - _%tl7615976199%_ - _%e7616076202%_ - _%hd7616176206%_ - _%tl7616276209%_ - _%e7616376212%_ - _%hd7616476216%_ - _%tl7616576219%_ - _%e7616676222%_ - _%hd7616776226%_ - _%tl7616876229%_) - (let ((_%L76232%_ _%tl7616876229%_) - (_%L76234%_ _%hd7616776226%_) - (_%L76235%_ _%hd7616476216%_) - (_%L76236%_ _%hd7616176206%_)) - (if (and (gx#identifier? _%L76235%_) + _%__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=? - _%L76235%_ + _%L77001%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76235%_ + _%L77001%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76235%_ + _%L77001%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76235%_ + _%L77001%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8317083171%_ - _%L76232%_ - _%L76234%_ - _%L76235%_ - _%L76236%_) - (_%__kont8317283173%_))))) - (_%__match8318683187%_ - (lambda (_%e7614776276%_ - _%hd7614876280%_ - _%tl7614976283%_ - _%e7615076286%_ - _%hd7615176290%_ - _%tl7615276293%_) - (let ((_%L76296%_ _%tl7615276293%_) - (_%L76298%_ _%hd7615176290%_) - (_%L76299%_ _%hd7614876280%_)) - (if (and (gx#identifier? _%L76299%_) + (_%__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=? - _%L76299%_ + _%L77065%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76299%_ + _%L77065%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76299%_ + _%L77065%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76299%_ + _%L77065%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8316883169%_ - _%L76296%_ - _%L76298%_ - _%L76299%_) - (if (gx#identifier? _%hd7614876280%_) + (_%__kont8402884029%_ + _%L77062%_ + _%L77064%_ + _%L77065%_) + (if (gx#identifier? _%hd7691477046%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84276_| - _%hd7614876280%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85159_| + _%hd7691477046%_) (if (gx#stx-pair? - _%tl7615276293%_) - (let ((_%e7616376212%_ + _%tl7691877059%_) + (let ((_%e7692976978%_ (gx#syntax-e - _%tl7615276293%_))) - (let ((_%tl7616576219%_ + _%tl7691877059%_))) + (let ((_%tl7693176985%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e7616376212%_))) - (_%hd7616476216%_ - (let () (declare (not safe)) (##car _%e7616376212%_)))) - (if (gx#stx-pair? _%tl7616576219%_) - (let ((_%e7616676222%_ (gx#syntax-e _%tl7616576219%_))) - (let ((_%tl7616876229%_ + (##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 _%e7616676222%_))) - (_%hd7616776226%_ + (##cdr _%e7693276988%_))) + (_%hd7693376992%_ (let () (declare (not safe)) - (##car _%e7616676222%_)))) - (_%__match8321483215%_ - _%e7614776276%_ - _%hd7614876280%_ - _%tl7614976283%_ - _%e7615076286%_ - _%hd7615176290%_ - _%tl7615276293%_ - _%e7616376212%_ - _%hd7616476216%_ - _%tl7616576219%_ - _%e7616676222%_ - _%hd7616776226%_ - _%tl7616876229%_))) - (_%__kont8317283173%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8317283173%_)) - (_%__kont8317283173%_)) - (_%__kont8317283173%_))))))) - (if (gx#stx-pair? _%__stx8316583166%_) - (let ((_%e7614776276%_ - (gx#syntax-e _%__stx8316583166%_))) - (let ((_%tl7614976283%_ + (##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 _%e7614776276%_))) - (_%hd7614876280%_ + (##cdr _%e7691377042%_))) + (_%hd7691477046%_ (let () (declare (not safe)) - (##car _%e7614776276%_)))) - (if (gx#stx-pair? _%tl7614976283%_) - (let ((_%e7615076286%_ - (gx#syntax-e _%tl7614976283%_))) - (let ((_%tl7615276293%_ + (##car _%e7691377042%_)))) + (if (gx#stx-pair? _%tl7691577049%_) + (let ((_%e7691677052%_ + (gx#syntax-e _%tl7691577049%_))) + (let ((_%tl7691877059%_ (let () (declare (not safe)) - (##cdr _%e7615076286%_))) - (_%hd7615176290%_ + (##cdr _%e7691677052%_))) + (_%hd7691777056%_ (let () (declare (not safe)) - (##car _%e7615076286%_)))) - (_%__match8318683187%_ - _%e7614776276%_ - _%hd7614876280%_ - _%tl7614976283%_ - _%e7615076286%_ - _%hd7615176290%_ - _%tl7615276293%_))) - (_%__kont8317283173%_)))) - (_%__kont8317283173%_))))))) - (_%slot-contract-predicate69575%_ - (lambda (_%slot-spec76126%_) - (let ((_%contract7612876130%_ - (_%slot-contract69570%_ _%slot-spec76126%_))) - (if _%contract7612876130%_ - (let ((_%contract76134%_ _%contract7612876130%_)) - (_%contract-predicate69576%_ _%contract76134%_)) + (##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-predicate69576%_ - (lambda (_%contract76048%_) - (let* ((_%__stx8321783218%_ _%contract76048%_) - (_%g7605276067%_ + (_%contract-predicate70342%_ + (lambda (_%contract76814%_) + (let* ((_%__stx8407784078%_ _%contract76814%_) + (_%g7681876833%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8321783218%_)))) - (let ((_%__kont8322083221%_ - (lambda (_%L76105%_ _%L76107%_) _%L76107%_)) - (_%__kont8322283223%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8321783218%_) - (let ((_%e7605676085%_ - (gx#syntax-e _%__stx8321783218%_))) - (let ((_%tl7605876092%_ + _%__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 _%e7605676085%_))) - (_%hd7605776089%_ + (##cdr _%e7682276851%_))) + (_%hd7682376855%_ (let () (declare (not safe)) - (##car _%e7605676085%_)))) - (if (gx#identifier? _%hd7605776089%_) + (##car _%e7682276851%_)))) + (if (gx#identifier? _%hd7682376855%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84277_| - _%hd7605776089%_) - (if (gx#stx-pair? _%tl7605876092%_) - (let ((_%e7605976095%_ + |gerbil/core/contract~TypedDefinitions[1]#_g85160_| + _%hd7682376855%_) + (if (gx#stx-pair? _%tl7682476858%_) + (let ((_%e7682576861%_ (gx#syntax-e - _%tl7605876092%_))) - (let ((_%tl7606176102%_ + _%tl7682476858%_))) + (let ((_%tl7682776868%_ (let () (declare (not safe)) - (##cdr _%e7605976095%_))) - (_%hd7606076099%_ + (##cdr _%e7682576861%_))) + (_%hd7682676865%_ (let () (declare (not safe)) - (##car _%e7605976095%_)))) - (_%__kont8322083221%_ - _%tl7606176102%_ - _%hd7606076099%_))) - (_%__kont8322283223%_)) - (_%__kont8322283223%_)) - (_%__kont8322283223%_)))) - (_%__kont8322283223%_)))))) - (_%slot-default69577%_ - (lambda (_%slot-spec75876%_) - (let* ((_%__stx8324383244%_ _%slot-spec75876%_) - (_%g7588175913%_ + (##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" - _%__stx8324383244%_)))) - (let ((_%__kont8324683247%_ - (lambda (_%L76029%_ _%L76031%_) _%L76029%_)) - (_%__kont8324883249%_ - (lambda (_%L75981%_ _%L75983%_) _%L75981%_)) - (_%__kont8325283253%_ (lambda () '#f))) - (let* ((_%__match8329483295%_ - (lambda (_%__splice8325083251%_ - _%target7589375931%_ - _%tl7589575934%_ - _%e7590275937%_ - _%hd7590375941%_ - _%tl7590475944%_ - _%e7590575947%_ - _%hd7590675951%_ - _%tl7590775954%_) - (letrec ((_%loop7589675957%_ - (lambda (_%hd7589475961%_ - _%id7590075964%_) + _%__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? - _%hd7589475961%_) - (let ((_%e7589775967%_ + _%hd7666076727%_) + (let ((_%e7666376733%_ (gx#syntax-e - _%hd7589475961%_))) - (let ((_%lp-tl7589975974%_ + _%hd7666076727%_))) + (let ((_%lp-tl7666576740%_ (let () (declare (not safe)) - (##cdr _%e7589775967%_))) - (_%lp-hd7589875971%_ + (##cdr _%e7666376733%_))) + (_%lp-hd7666476737%_ (let () (declare (not safe)) - (##car _%e7589775967%_)))) - (_%loop7589675957%_ - _%lp-tl7589975974%_ - (cons _%lp-hd7589875971%_ - _%id7590075964%_)))) - (let ((_%id7590175977%_ - (reverse _%id7590075964%_))) - (_%__kont8324883249%_ - _%hd7590675951%_ - _%id7590175977%_)))))) - (_%loop7589675957%_ - _%target7589375931%_ + (##car _%e7666376733%_)))) + (_%loop7666276723%_ + _%lp-tl7666576740%_ + (cons _%lp-hd7666476737%_ + _%id7666676730%_)))) + (let ((_%id7666776743%_ + (reverse _%id7666676730%_))) + (_%__kont8410884109%_ + _%hd7667276717%_ + _%id7666776743%_)))))) + (_%loop7666276723%_ + _%target7665976697%_ '())))) - (_%g7587976002%_ + (_%g7664576768%_ (lambda () - (if (gx#stx-pair/null? _%__stx8324383244%_) - (if (let ((__tmp84278 + (if (gx#stx-pair/null? _%__stx8410384104%_) + (if (let ((__tmp85161 (gx#stx-length - _%__stx8324383244%_))) + _%__stx8410384104%_))) (declare (not safe)) - (##fx>= __tmp84278 '2)) - (let ((_%__splice8325083251%_ + (##fx>= __tmp85161 '2)) + (let ((_%__splice8411084111%_ (gx#syntax-split-splice - _%__stx8324383244%_ + _%__stx8410384104%_ '2))) - (let ((_%tl7589575934%_ + (let ((_%tl7666176700%_ (let () (declare (not safe)) (##vector-ref - _%__splice8325083251%_ + _%__splice8411084111%_ '1))) - (_%target7589375931%_ + (_%target7665976697%_ (let () (declare (not safe)) (##vector-ref - _%__splice8325083251%_ + _%__splice8411084111%_ '0)))) (if (gx#stx-pair? - _%tl7589575934%_) - (let ((_%e7590275937%_ + _%tl7666176700%_) + (let ((_%e7666876703%_ (gx#syntax-e - _%tl7589575934%_))) - (let ((_%tl7590475944%_ + _%tl7666176700%_))) + (let ((_%tl7667076710%_ (let () (declare (not safe)) - (##cdr _%e7590275937%_))) - (_%hd7590375941%_ + (##cdr _%e7666876703%_))) + (_%hd7666976707%_ (let () (declare (not safe)) - (##car _%e7590275937%_)))) + (##car _%e7666876703%_)))) (if (gx#identifier? - _%hd7590375941%_) + _%hd7666976707%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84279_| - _%hd7590375941%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85162_| + _%hd7666976707%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7590475944%_) - (let ((_%e7590575947%_ - (gx#syntax-e _%tl7590475944%_))) - (let ((_%tl7590775954%_ + _%tl7667076710%_) + (let ((_%e7667176713%_ + (gx#syntax-e _%tl7667076710%_))) + (let ((_%tl7667376720%_ (let () (declare (not safe)) - (##cdr _%e7590575947%_))) - (_%hd7590675951%_ + (##cdr _%e7667176713%_))) + (_%hd7667276717%_ (let () (declare (not safe)) - (##car _%e7590575947%_)))) - (if (gx#stx-null? _%tl7590775954%_) - (_%__match8329483295%_ - _%__splice8325083251%_ - _%target7589375931%_ - _%tl7589575934%_ - _%e7590275937%_ - _%hd7590375941%_ - _%tl7590475944%_ - _%e7590575947%_ - _%hd7590675951%_ - _%tl7590775954%_) - (_%__kont8325283253%_)))) - (_%__kont8325283253%_)) - (_%__kont8325283253%_)) - (_%__kont8325283253%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8325283253%_)))) - (_%__kont8325283253%_)) - (_%__kont8325283253%_))))) - (if (gx#stx-pair? _%__stx8324383244%_) - (let ((_%e7588576009%_ - (gx#syntax-e _%__stx8324383244%_))) - (let ((_%tl7588776016%_ + (##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 _%e7588576009%_))) - (_%hd7588676013%_ + (##cdr _%e7665176775%_))) + (_%hd7665276779%_ (let () (declare (not safe)) - (##car _%e7588576009%_)))) - (if (gx#stx-pair? _%tl7588776016%_) - (let ((_%e7588876019%_ - (gx#syntax-e _%tl7588776016%_))) - (let ((_%tl7589076026%_ + (##car _%e7665176775%_)))) + (if (gx#stx-pair? _%tl7665376782%_) + (let ((_%e7665476785%_ + (gx#syntax-e _%tl7665376782%_))) + (let ((_%tl7665676792%_ (let () (declare (not safe)) - (##cdr _%e7588876019%_))) - (_%hd7588976023%_ + (##cdr _%e7665476785%_))) + (_%hd7665576789%_ (let () (declare (not safe)) - (##car _%e7588876019%_)))) - (if (gx#stx-null? _%tl7589076026%_) - (_%__kont8324683247%_ - _%hd7588976023%_ - _%hd7588676013%_) + (##car _%e7665476785%_)))) + (if (gx#stx-null? _%tl7665676792%_) + (_%__kont8410684107%_ + _%hd7665576789%_ + _%hd7665276779%_) (let () (declare (not safe)) - (_%g7587976002%_))))) + (_%g7664576768%_))))) (let () (declare (not safe)) - (_%g7587976002%_))))) + (_%g7664576768%_))))) (let () (declare (not safe)) - (_%g7587976002%_)))))))) - (_%infer-slot-type69578%_ - (lambda (_%slot75774%_ _%type-a75776%_ _%type-b75777%_) - (if (not _%type-a75776%_) - _%type-b75777%_ - (if (not _%type-b75777%_) - _%type-a75776%_ + (_%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-a75776%_ - _%type-b75777%_) - _%type-a75776%_ - (let _%again75787%_ ((_%klass-a75790%_ + _%type-a76542%_ + _%type-b76543%_) + _%type-a76542%_ + (let _%again76553%_ ((_%klass-a76556%_ (gx#syntax-local-value - _%type-a75776%_)) - (_%klass-b75792%_ + _%type-a76542%_)) + (_%klass-b76558%_ (gx#syntax-local-value - _%type-b75777%_))) - (if (eq? _%klass-a75790%_ _%klass-b75792%_) - _%type-a75776%_ + _%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-a75790%_)) + _%klass-a76556%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b75792%_)) - (if (eq? (let ((__obj84008 - _%klass-a75790%_)) + _%klass-b76558%_)) + (if (eq? (let ((__obj84874 + _%klass-a76556%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj84008 + __obj84874 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj84008 '1 '#f '#f)) - (unchecked-slot-ref __obj84008 'id))) - (let ((__obj84009 _%klass-b75792%_)) + (##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? - __obj84009 + __obj84875 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj84009 '1 '#f '#f)) - (unchecked-slot-ref __obj84009 'id)))) + (##unchecked-structure-ref __obj84875 '1 '#f '#f)) + (unchecked-slot-ref __obj84875 'id)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-a75776%_ - (if (member _%type-a75776%_ + _%type-a76542%_ + (if (member _%type-a76542%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-b75792%_)) + _%klass-b76558%_)) gx#free-identifier=?) - _%type-b75777%_ - (if (member _%type-b75777%_ + _%type-b76543%_ + (if (member _%type-b76543%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a75790%_)) + _%klass-a76556%_)) gx#free-identifier=?) - _%type-a75776%_ + _%type-a76542%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75792%_)) - (let ((_%$e75810%_ + _%klass-b76558%_)) + (let ((_%$e76576%_ (gx#syntax-local-value - (let ((__obj84006 + (let ((__obj84872 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75792%_)) + _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84006 + __obj84872 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj84006 '1 '#f '#f)) - (unchecked-slot-ref __obj84006 'identifier))) + (##unchecked-structure-ref __obj84872 '1 '#f '#f)) + (unchecked-slot-ref __obj84872 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75810%_ - ((lambda (_%klass-b75814%_) - (_%again75787%_ - _%klass-a75790%_ - _%klass-b75814%_)) - _%$e75810%_) + (if _%$e76576%_ + ((lambda (_%klass-b76580%_) + (_%again76553%_ + _%klass-a76556%_ + _%klass-b76580%_)) + _%$e76576%_) (if (gx#free-identifier=? - _%type-a75776%_ - (let ((__obj84007 + _%type-a76542%_ + (let ((__obj84873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75792%_)) + _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84007 + __obj84873 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj84007 '1 '#f '#f)) - (unchecked-slot-ref __obj84007 'identifier)))) - _%type-a75776%_ + (##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" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a75790%_)) + _%klass-a76556%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b75792%_)) - (if (member _%type-a75776%_ - (let () - (declare + _%klass-b76558%_)) + (if (member _%type-a76542%_ + (let ((__obj84870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-b75792%_))) - _%type-b75777%_ - (if (member _%type-b75777%_ - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a75790%_))) - _%type-a75776%_ + _%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" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75792%_)) - (let ((_%$e75835%_ + _%klass-b76558%_)) + (let ((_%$e76601%_ (gx#syntax-local-value - (let ((__obj84004 + (let ((__obj84868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75792%_)) + _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84004 + __obj84868 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84004 + __obj84868 '1 '#f '#f)) - (unchecked-slot-ref __obj84004 'identifier))) + (unchecked-slot-ref __obj84868 'identifier))) false))) - (if _%$e75835%_ - ((lambda (_%klass-b75839%_) - (_%again75787%_ _%klass-a75790%_ _%klass-b75839%_)) - _%$e75835%_) + (if _%$e76601%_ + ((lambda (_%klass-b76605%_) + (_%again76553%_ _%klass-a76556%_ _%klass-b76605%_)) + _%$e76601%_) (if (gx#free-identifier=? - _%type-a75776%_ - (let ((__obj84005 _%klass-b75792%_)) + _%type-a76542%_ + (let ((__obj84869 _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84005 + __obj84869 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84005 + __obj84869 '1 '#f '#f)) - (unchecked-slot-ref __obj84005 'identifier)))) - _%type-a75776%_ + (unchecked-slot-ref __obj84869 'identifier)))) + _%type-a76542%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a75790%_)) - (let ((_%$e75850%_ + _%klass-a76556%_)) + (let ((_%$e76616%_ (gx#syntax-local-value - (let ((__obj83999 + (let ((__obj84863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a75790%_)) + _%klass-a76556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83999 + __obj84863 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83999 '1 '#f '#f)) - (unchecked-slot-ref __obj83999 'identifier))) + (##unchecked-structure-ref __obj84863 '1 '#f '#f)) + (unchecked-slot-ref __obj84863 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75850%_ - ((lambda (_%klass-a75854%_) - (_%again75787%_ - _%klass-a75854%_ - _%klass-b75792%_)) - _%$e75850%_) + (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-b75792%_)) - (let ((_%$e75859%_ + _%klass-b76558%_)) + (let ((_%$e76625%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-local-value - (let ((__obj84001 _%klass-b75792%_)) + (let ((__obj84865 _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84001 + __obj84865 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84001 + __obj84865 '1 '#f '#f)) - (unchecked-slot-ref __obj84001 'identifier))) + (unchecked-slot-ref __obj84865 'identifier))) false))) - (if _%$e75859%_ - ((lambda (_%klass-b75863%_) - (_%again75787%_ - _%klass-a75790%_ - _%klass-b75863%_)) - _%$e75859%_) + (if _%$e76625%_ + ((lambda (_%klass-b76629%_) + (_%again76553%_ + _%klass-a76556%_ + _%klass-b76629%_)) + _%$e76625%_) (if (gx#free-identifier=? - (let ((__obj84002 _%klass-a75790%_)) + (let ((__obj84866 _%klass-a76556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84002 + __obj84866 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84002 + __obj84866 '1 '#f '#f)) (unchecked-slot-ref - __obj84002 + __obj84866 'identifier))) - (let ((__obj84003 _%klass-b75792%_)) + (let ((__obj84867 _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84003 + __obj84867 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84003 + __obj84867 '1 '#f '#f)) (unchecked-slot-ref - __obj84003 + __obj84867 'identifier)))) - _%type-a75776%_ + _%type-a76542%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) (if (gx#free-identifier=? - _%type-b75777%_ - (let ((__obj84000 _%klass-a75790%_)) + _%type-b76543%_ + (let ((__obj84864 _%klass-a76556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84000 + __obj84864 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84000 + __obj84864 '1 '#f '#f)) - (unchecked-slot-ref __obj84000 'identifier)))) - _%type-b75777%_ + (unchecked-slot-ref __obj84864 'identifier)))) + _%type-b76543%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%type-b75777%_))))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"unexpected slot type" - _%stx69563%_ - _%slot75774%_ - _%type-a75776%_ - _%klass-a75790%_))))))))))) - (_%get-mixin-slots69579%_ - (lambda (_%super75645%_) - (letrec* ((_%tab75648%_ (make-hash-table-eq))) - (let _%loop75651%_ ((_%rest75654%_ _%super75645%_) - (_%result75656%_ '())) - (let* ((_%rest7565775665%_ _%rest75654%_) - (_%else7565975677%_ + _%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! _%result75656%_) - _%tab75648%_))) - (_%K7566175758%_ - (lambda (_%rest75681%_ _%type-id75683%_) - (let* ((_%klass75685%_ + (values (reverse! _%result76422%_) + _%tab76414%_))) + (_%K7642776524%_ + (lambda (_%rest76447%_ _%type-id76449%_) + (let* ((_%klass76451%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx69563%_ - _%type-id75683%_))) - (_%slots75688%_ - (let ((__obj84010 _%klass75685%_)) + _%stx70329%_ + _%type-id76449%_))) + (_%slots76454%_ + (let ((__obj84876 _%klass76451%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84010 + __obj84876 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84010 + __obj84876 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84010 + __obj84876 'slots))))) - (let _%loop-inner75693%_ ((_%rest-slots75696%_ - _%slots75688%_) - (_%result75698%_ - _%result75656%_)) - (let* ((_%rest-slots7569975707%_ - _%rest-slots75696%_) - (_%else7570175719%_ + (let _%loop-inner76459%_ ((_%rest-slots76462%_ + _%slots76454%_) + (_%result76464%_ + _%result76422%_)) + (let* ((_%rest-slots7646576473%_ + _%rest-slots76462%_) + (_%else7646776485%_ (lambda () - (_%loop75651%_ + (_%loop76417%_ (foldr cons - _%rest75681%_ - (let ((__obj84011 - _%klass75685%_)) + _%rest76447%_ + (let ((__obj84877 + _%klass76451%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj84011 + __obj84877 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj84011 '3 '#f '#f)) + (##unchecked-structure-ref __obj84877 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84011 + __obj84877 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%result75698%_))) - (_%K7570375742%_ - (lambda (_%rest-slots75723%_ - _%slot75725%_) - (let ((_%slot-type75727%_ + _%result76464%_))) + (_%K7646976508%_ + (lambda (_%rest-slots76489%_ + _%slot76491%_) + (let ((_%slot-type76493%_ (hash-ref - _%tab75648%_ - _%slot75725%_ + _%tab76414%_ + _%slot76491%_ absent-value))) - (if (eq? _%slot-type75727%_ + (if (eq? _%slot-type76493%_ absent-value) (let () (hash-put! - _%tab75648%_ - _%slot75725%_ + _%tab76414%_ + _%slot76491%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75685%_ - _%slot75725%_))) - (_%loop-inner75693%_ - _%rest-slots75723%_ - (cons _%slot75725%_ - _%result75698%_))) - (if (not _%slot-type75727%_) + _%klass76451%_ + _%slot76491%_))) + (_%loop-inner76459%_ + _%rest-slots76489%_ + (cons _%slot76491%_ + _%result76464%_))) + (if (not _%slot-type76493%_) (let () (hash-put! - _%tab75648%_ - _%slot75725%_ + _%tab76414%_ + _%slot76491%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75685%_ - _%slot75725%_))) - (_%loop-inner75693%_ _%rest-slots75723%_ _%result75698%_)) - (let* ((_%other-slot-type75736%_ + _%klass76451%_ + _%slot76491%_))) + (_%loop-inner76459%_ _%rest-slots76489%_ _%result76464%_)) + (let* ((_%other-slot-type76502%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75685%_ - _%slot75725%_))) - (_%slot-type75739%_ - (_%infer-slot-type69578%_ - _%slot75725%_ - _%other-slot-type75736%_ - _%slot-type75727%_))) - (hash-put! _%tab75648%_ _%slot75725%_ _%slot-type75739%_) - (_%loop-inner75693%_ - _%rest-slots75723%_ - _%result75698%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest-slots7569975707%_) - (let ((_%hd7570475746%_ + _%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-slots7569975707%_))) - (_%tl7570575749%_ + (##car _%rest-slots7646576473%_))) + (_%tl7647176515%_ (let () (declare (not safe)) - (##cdr _%rest-slots7569975707%_)))) - (let* ((_%slot75752%_ - _%hd7570475746%_) - (_%rest-slots75755%_ - _%tl7570575749%_)) - (_%K7570375742%_ - _%rest-slots75755%_ - _%slot75752%_))) - (_%else7570175719%_)))))))) - (if (pair? _%rest7565775665%_) - (let ((_%hd7566275762%_ + (##cdr _%rest-slots7646576473%_)))) + (let* ((_%slot76518%_ + _%hd7647076512%_) + (_%rest-slots76521%_ + _%tl7647176515%_)) + (_%K7646976508%_ + _%rest-slots76521%_ + _%slot76518%_))) + (_%else7646776485%_)))))))) + (if (pair? _%rest7642376431%_) + (let ((_%hd7642876528%_ (let () (declare (not safe)) - (##car _%rest7565775665%_))) - (_%tl7566375765%_ + (##car _%rest7642376431%_))) + (_%tl7642976531%_ (let () (declare (not safe)) - (##cdr _%rest7565775665%_)))) - (let* ((_%type-id75768%_ _%hd7566275762%_) - (_%rest75771%_ _%tl7566375765%_)) - (_%K7566175758%_ - _%rest75771%_ - _%type-id75768%_))) - (_%else7565975677%_))))))) - (_%get-slot-table69580%_ - (lambda (_%slots75588%_ - _%mixin-slots75590%_ - _%super75591%_ - _%contract-e75592%_ - _%getf75593%_ - _%mixf75594%_) - (letrec* ((_%tab75596%_ (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 (_%slot75599%_) + (lambda (_%slot76365%_) (for-each - (lambda (_%super-type75602%_) - (let* ((_%klass75605%_ + (lambda (_%super-type76368%_) + (let* ((_%klass76371%_ (gx#syntax-local-value - _%super-type75602%_)) - (_%$e75608%_ - (hash-get _%tab75596%_ _%slot75599%_))) - (if _%$e75608%_ - ((lambda (_%a75612%_) - (let ((_%$e75615%_ - (_%getf75593%_ - _%klass75605%_ - _%slot75599%_))) - (if _%$e75615%_ - ((lambda (_%b75619%_) + _%super-type76368%_)) + (_%$e76374%_ + (hash-get _%tab76362%_ _%slot76365%_))) + (if _%$e76374%_ + ((lambda (_%a76378%_) + (let ((_%$e76381%_ + (_%getf76359%_ + _%klass76371%_ + _%slot76365%_))) + (if _%$e76381%_ + ((lambda (_%b76385%_) (hash-put! - _%tab75596%_ - _%slot75599%_ - (_%mixf75594%_ - _%slot75599%_ - _%a75612%_ - _%b75619%_))) - _%$e75615%_) + _%tab76362%_ + _%slot76365%_ + (_%mixf76360%_ + _%slot76365%_ + _%a76378%_ + _%b76385%_))) + _%$e76381%_) '#!void))) - _%$e75608%_) - (let ((_%$e75622%_ - (_%getf75593%_ - _%klass75605%_ - _%slot75599%_))) - (if _%$e75622%_ - ((lambda (_%a75626%_) + _%$e76374%_) + (let ((_%$e76388%_ + (_%getf76359%_ + _%klass76371%_ + _%slot76365%_))) + (if _%$e76388%_ + ((lambda (_%a76392%_) (hash-put! - _%tab75596%_ - _%slot75599%_ - _%a75626%_)) - _%$e75622%_) + _%tab76362%_ + _%slot76365%_ + _%a76392%_)) + _%$e76388%_) '#!void))))) - _%super75591%_)) - _%mixin-slots75590%_) + _%super76357%_)) + _%mixin-slots76356%_) (for-each - (lambda (_%slot-spec75629%_) - (let ((_%slot75632%_ - (_%slot-name69569%_ _%slot-spec75629%_)) - (_%a75634%_ - (_%contract-e75592%_ _%slot-spec75629%_))) - (if _%a75634%_ - (let ((_%$e75636%_ - (hash-get _%tab75596%_ _%slot75632%_))) - (if _%$e75636%_ - ((lambda (_%b75640%_) + (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! - _%tab75596%_ - _%slot75632%_ - (_%mixf75594%_ - _%slot75632%_ - _%a75634%_ - _%b75640%_))) - _%$e75636%_) + _%tab76362%_ + _%slot76398%_ + (_%mixf76360%_ + _%slot76398%_ + _%a76400%_ + _%b76406%_))) + _%$e76402%_) (hash-put! - _%tab75596%_ - _%slot75632%_ - _%a75634%_))) + _%tab76362%_ + _%slot76398%_ + _%a76400%_))) '#!void))) - _%slots75588%_) - _%tab75596%_))) - (_%get-slot-contracts69581%_ - (lambda (_%slots74024%_ - _%mixin-slots74026%_ - _%super74027%_ - _%slot-type-table74028%_) - (_%get-slot-table69580%_ - _%slots74024%_ - _%mixin-slots74026%_ - _%super74027%_ - _%slot-contract-normalize69571%_ + _%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 (_%slot74030%_ _%a74032%_ _%b74033%_) - (let* ((_%__stx8356583566%_ _%a74032%_) - (_%g7409574148%_ + (lambda (_%slot74796%_ _%a74798%_ _%b74799%_) + (let* ((_%__stx8442584426%_ _%a74798%_) + (_%g7486174914%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8356583566%_)))) - (let ((_%__kont8356883569%_ + _%__stx8442584426%_)))) + (let ((_%__kont8442884429%_ (lambda () - (let* ((_%__stx8353383534%_ _%b74033%_) - (_%g7541875436%_ + (let* ((_%__stx8439384394%_ _%b74799%_) + (_%g7618476202%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8353383534%_)))) - (let ((_%__kont8353683537%_ - (lambda (_%L75530%_) - (let* ((_%g7554975557%_ - (lambda (_%g7555075553%_) + _%__stx8439384394%_)))) + (let ((_%__kont8439684397%_ + (lambda (_%L76296%_) + (let* ((_%g7631576323%_ + (lambda (_%g7631676319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7555075553%_))) - (_%g7554875576%_ - (lambda (_%g7555075561%_) - ((lambda (_%L75564%_) + _%g7631676319%_))) + (_%g7631476342%_ + (lambda (_%g7631676327%_) + ((lambda (_%L76330%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':) - (cons _%L75564%_ '()))) - _%g7555075561%_)))) + (cons _%L76330%_ '()))) + _%g7631676327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7554875576%_ + (_%g7631476342%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8353883539%_ - (lambda (_%L75463%_) - (let* ((_%g7548275490%_ - (lambda (_%g7548375486%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8439884399%_ + (lambda (_%L76229%_) + (let* ((_%g7624876256%_ + (lambda (_%g7624976252%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7548375486%_))) - (_%g7548175509%_ - (lambda (_%g7548375494%_) - ((lambda (_%L75497%_) + _%g7624976252%_))) + (_%g7624776275%_ + (lambda (_%g7624976260%_) + ((lambda (_%L76263%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75463%_ + (cons _%L76229%_ (cons (gx#datum->syntax '#f ':) - (cons _%L75497%_ '()))))) - _%g7548375494%_)))) + (cons _%L76263%_ '()))))) + _%g7624976260%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7548175509%_ + (_%g7624776275%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_)))))) - (let ((_%__match8354683547%_ - (lambda (_%e7542175520%_ - _%hd7542275524%_ - _%tl7542375527%_) - (let ((_%L75530%_ - _%hd7542275524%_)) + _%slot-type-table74794%_ + _%slot74796%_)))))) + (let ((_%__match8440684407%_ + (lambda (_%e7618776286%_ + _%hd7618876290%_ + _%tl7618976293%_) + (let ((_%L76296%_ + _%hd7618876290%_)) (if (or (gx#free-identifier=? - _%L75530%_ + _%L76296%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75530%_ + _%L76296%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75530%_ + _%L76296%_ (gx#datum->syntax '#f ':-))) - (_%__kont8353683537%_ - _%L75530%_) + (_%__kont8439684397%_ + _%L76296%_) (if (gx#identifier? - _%hd7542275524%_) + _%hd7618876290%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84280_| - _%hd7542275524%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85163_| + _%hd7618876290%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7542375527%_) - (let ((_%e7542875453%_ - (gx#syntax-e _%tl7542375527%_))) - (let ((_%tl7543075460%_ + _%tl7618976293%_) + (let ((_%e7619476219%_ + (gx#syntax-e _%tl7618976293%_))) + (let ((_%tl7619676226%_ (let () (declare (not safe)) - (##cdr _%e7542875453%_))) - (_%hd7542975457%_ + (##cdr _%e7619476219%_))) + (_%hd7619576223%_ (let () (declare (not safe)) - (##car _%e7542875453%_)))) - (_%__kont8353883539%_ _%hd7542975457%_))) - (let () (declare (not safe)) (_%g7541875436%_))) - (let () (declare (not safe)) (_%g7541875436%_))) - (let () (declare (not safe)) (_%g7541875436%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8353383534%_) - (let ((_%e7542175520%_ + (##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 - _%__stx8353383534%_))) - (let ((_%tl7542375527%_ + _%__stx8439384394%_))) + (let ((_%tl7618976293%_ (let () (declare (not safe)) - (##cdr _%e7542175520%_))) - (_%hd7542275524%_ + (##cdr _%e7618776286%_))) + (_%hd7618876290%_ (let () (declare (not safe)) - (##car _%e7542175520%_)))) - (_%__match8354683547%_ - _%e7542175520%_ - _%hd7542275524%_ - _%tl7542375527%_))) + (##car _%e7618776286%_)))) + (_%__match8440684407%_ + _%e7618776286%_ + _%hd7618876290%_ + _%tl7618976293%_))) (let () (declare (not safe)) - (_%g7541875436%_)))))))) - (_%__kont8357083571%_ + (_%g7618476202%_)))))))) + (_%__kont8443084431%_ (lambda () - (let* ((_%__stx8348583486%_ _%b74033%_) - (_%g7521475234%_ + (let* ((_%__stx8434584346%_ _%b74799%_) + (_%g7598076000%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8348583486%_)))) - (let ((_%__kont8348883489%_ + _%__stx8434584346%_)))) + (let ((_%__kont8434884349%_ (lambda () - (let* ((_%g7535675364%_ - (lambda (_%g7535775360%_) + (let* ((_%g7612276130%_ + (lambda (_%g7612376126%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7535775360%_))) - (_%g7535575388%_ - (lambda (_%g7535775368%_) - ((lambda (_%L75371%_) + _%g7612376126%_))) + (_%g7612176154%_ + (lambda (_%g7612376134%_) + ((lambda (_%L76137%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':?) - (cons _%L75371%_ '()))) - _%g7535775368%_)))) + (cons _%L76137%_ '()))) + _%g7612376134%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7535575388%_ + (_%g7612176154%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8349083491%_ - (lambda (_%L75282%_) - (let* ((_%g7530475312%_ - (lambda (_%g7530575308%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8435084351%_ + (lambda (_%L76048%_) + (let* ((_%g7607076078%_ + (lambda (_%g7607176074%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7530575308%_))) - (_%g7530375331%_ - (lambda (_%g7530575316%_) - ((lambda (_%L75319%_) + _%g7607176074%_))) + (_%g7606976097%_ + (lambda (_%g7607176082%_) + ((lambda (_%L76085%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75282%_ + (cons _%L76048%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L75319%_ '()))))) - _%g7530575316%_)))) + (cons _%L76085%_ '()))))) + _%g7607176082%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7530375331%_ + (_%g7606976097%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8349283493%_ + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8435284353%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69563%_ - _%slot74030%_ - _%a74032%_ - _%b74033%_)))) - (if (gx#stx-pair? _%__stx8348583486%_) - (let ((_%e7521675342%_ + _%stx70329%_ + _%slot74796%_ + _%a74798%_ + _%b74799%_)))) + (if (gx#stx-pair? _%__stx8434584346%_) + (let ((_%e7598276108%_ (gx#syntax-e - _%__stx8348583486%_))) - (let ((_%tl7521875349%_ + _%__stx8434584346%_))) + (let ((_%tl7598476115%_ (let () (declare (not safe)) - (##cdr _%e7521675342%_))) - (_%hd7521775346%_ + (##cdr _%e7598276108%_))) + (_%hd7598376112%_ (let () (declare (not safe)) - (##car _%e7521675342%_)))) + (##car _%e7598276108%_)))) (if (gx#identifier? - _%hd7521775346%_) + _%hd7598376112%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84281_| - _%hd7521775346%_) - (_%__kont8348883489%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85164_| + _%hd7598376112%_) + (_%__kont8434884349%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84282_| - _%hd7521775346%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85165_| + _%hd7598376112%_) (if (gx#stx-pair? - _%tl7521875349%_) - (let ((_%e7522375262%_ + _%tl7598476115%_) + (let ((_%e7598976028%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7521875349%_))) - (let ((_%tl7522575269%_ + (gx#syntax-e _%tl7598476115%_))) + (let ((_%tl7599176035%_ (let () (declare (not safe)) - (##cdr _%e7522375262%_))) - (_%hd7522475266%_ + (##cdr _%e7598976028%_))) + (_%hd7599076032%_ (let () (declare (not safe)) - (##car _%e7522375262%_)))) - (if (gx#stx-pair? _%tl7522575269%_) - (let ((_%e7522675272%_ - (gx#syntax-e _%tl7522575269%_))) - (let ((_%tl7522875279%_ + (##car _%e7598976028%_)))) + (if (gx#stx-pair? _%tl7599176035%_) + (let ((_%e7599276038%_ + (gx#syntax-e _%tl7599176035%_))) + (let ((_%tl7599476045%_ (let () (declare (not safe)) - (##cdr _%e7522675272%_))) - (_%hd7522775276%_ + (##cdr _%e7599276038%_))) + (_%hd7599376042%_ (let () (declare (not safe)) - (##car _%e7522675272%_)))) - (if (gx#identifier? _%hd7522775276%_) + (##car _%e7599276038%_)))) + (if (gx#identifier? _%hd7599376042%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84283_| - _%hd7522775276%_) - (_%__kont8349083491%_ - _%hd7522475266%_) - (_%__kont8349283493%_)) - (_%__kont8349283493%_)))) - (_%__kont8349283493%_)))) - (_%__kont8349283493%_)) - (_%__kont8349283493%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8349283493%_)))) - (_%__kont8349283493%_)))))) - (_%__kont8357283573%_ + |gerbil/core/contract~TypedDefinitions[1]#_g85166_| + _%hd7599376042%_) + (_%__kont8435084351%_ + _%hd7599076032%_) + (_%__kont8435284353%_)) + (_%__kont8435284353%_)))) + (_%__kont8435284353%_)))) + (_%__kont8435284353%_)) + (_%__kont8435284353%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8435284353%_)))) + (_%__kont8435284353%_)))))) + (_%__kont8443284433%_ (lambda () - (let* ((_%__stx8345383454%_ _%b74033%_) - (_%g7502275041%_ + (let* ((_%__stx8431384314%_ _%b74799%_) + (_%g7578875807%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8345383454%_)))) - (let ((_%__kont8345683457%_ - (lambda (_%L75137%_) - (let* ((_%g7515675164%_ - (lambda (_%g7515775160%_) + _%__stx8431384314%_)))) + (let ((_%__kont8431684317%_ + (lambda (_%L75903%_) + (let* ((_%g7592275930%_ + (lambda (_%g7592375926%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7515775160%_))) - (_%g7515575183%_ - (lambda (_%g7515775168%_) - ((lambda (_%L75171%_) + _%g7592375926%_))) + (_%g7592175949%_ + (lambda (_%g7592375934%_) + ((lambda (_%L75937%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':-) - (cons _%L75171%_ '()))) - _%g7515775168%_)))) + (cons _%L75937%_ '()))) + _%g7592375934%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7515575183%_ + (_%g7592175949%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8345883459%_ - (lambda (_%L75068%_ _%L75070%_) - (let* ((_%g7508975097%_ - (lambda (_%g7509075093%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8431884319%_ + (lambda (_%L75834%_ _%L75836%_) + (let* ((_%g7585575863%_ + (lambda (_%g7585675859%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7509075093%_))) - (_%g7508875116%_ - (lambda (_%g7509075101%_) - ((lambda (_%L75104%_) + _%g7585675859%_))) + (_%g7585475882%_ + (lambda (_%g7585675867%_) + ((lambda (_%L75870%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75070%_ + (cons _%L75836%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L75104%_ '()))))) - _%g7509075101%_)))) + (cons _%L75870%_ '()))))) + _%g7585675867%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7508875116%_ + (_%g7585475882%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_)))))) - (let ((_%__match8346683467%_ - (lambda (_%e7502575127%_ - _%hd7502675131%_ - _%tl7502775134%_) - (let ((_%L75137%_ - _%hd7502675131%_)) + _%slot-type-table74794%_ + _%slot74796%_)))))) + (let ((_%__match8432684327%_ + (lambda (_%e7579175893%_ + _%hd7579275897%_ + _%tl7579375900%_) + (let ((_%L75903%_ + _%hd7579275897%_)) (if (or (gx#free-identifier=? - _%L75137%_ + _%L75903%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75137%_ + _%L75903%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75137%_ + _%L75903%_ (gx#datum->syntax '#f ':-))) - (_%__kont8345683457%_ - _%L75137%_) + (_%__kont8431684317%_ + _%L75903%_) (if (gx#identifier? - _%hd7502675131%_) + _%hd7579275897%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84284_| - _%hd7502675131%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85167_| + _%hd7579275897%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7502775134%_) - (let ((_%e7503375058%_ - (gx#syntax-e _%tl7502775134%_))) - (let ((_%tl7503575065%_ + _%tl7579375900%_) + (let ((_%e7579975824%_ + (gx#syntax-e _%tl7579375900%_))) + (let ((_%tl7580175831%_ (let () (declare (not safe)) - (##cdr _%e7503375058%_))) - (_%hd7503475062%_ + (##cdr _%e7579975824%_))) + (_%hd7580075828%_ (let () (declare (not safe)) - (##car _%e7503375058%_)))) - (_%__kont8345883459%_ - _%tl7503575065%_ - _%hd7503475062%_))) - (let () (declare (not safe)) (_%g7502275041%_))) - (let () (declare (not safe)) (_%g7502275041%_))) - (let () (declare (not safe)) (_%g7502275041%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8345383454%_) - (let ((_%e7502575127%_ + (##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 - _%__stx8345383454%_))) - (let ((_%tl7502775134%_ + _%__stx8431384314%_))) + (let ((_%tl7579375900%_ (let () (declare (not safe)) - (##cdr _%e7502575127%_))) - (_%hd7502675131%_ + (##cdr _%e7579175893%_))) + (_%hd7579275897%_ (let () (declare (not safe)) - (##car _%e7502575127%_)))) - (_%__match8346683467%_ - _%e7502575127%_ - _%hd7502675131%_ - _%tl7502775134%_))) + (##car _%e7579175893%_)))) + (_%__match8432684327%_ + _%e7579175893%_ + _%hd7579275897%_ + _%tl7579375900%_))) (let () (declare (not safe)) - (_%g7502275041%_)))))))) - (_%__kont8357483575%_ - (lambda (_%L74849%_) - (let* ((_%__stx8342783428%_ _%b74033%_) - (_%g7486574879%_ + (_%g7578875807%_)))))))) + (_%__kont8443484435%_ + (lambda (_%L75615%_) + (let* ((_%__stx8428784288%_ _%b74799%_) + (_%g7563175645%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8342783428%_)))) - (let ((_%__kont8343083431%_ - (lambda (_%L74952%_) - (let* ((_%g7496574973%_ - (lambda (_%g7496674969%_) + _%__stx8428784288%_)))) + (let ((_%__kont8429084291%_ + (lambda (_%L75718%_) + (let* ((_%g7573175739%_ + (lambda (_%g7573275735%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7496674969%_))) - (_%g7496474992%_ - (lambda (_%g7496674977%_) - ((lambda (_%L74980%_) + _%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 _%L74849%_ - (cons _%L74952%_ '()))) + (cons _%L75615%_ + (cons _%L75718%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74980%_ '()))))) - _%g7496674977%_)))) + (cons _%L75746%_ '()))))) + _%g7573275743%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7496474992%_ + (_%g7573075758%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8343283433%_ + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8429284293%_ (lambda () - (let* ((_%g7489074898%_ - (lambda (_%g7489174894%_) + (let* ((_%g7565675664%_ + (lambda (_%g7565775660%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7489174894%_))) - (_%g7488974921%_ - (lambda (_%g7489174902%_) - ((lambda (_%L74905%_) + _%g7565775660%_))) + (_%g7565575687%_ + (lambda (_%g7565775668%_) + ((lambda (_%L75671%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74849%_ + (cons _%L75615%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74905%_ '()))))) - _%g7489174902%_)))) + (cons _%L75671%_ '()))))) + _%g7565775668%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7488974921%_ + (_%g7565575687%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_)))))) - (if (gx#stx-pair? _%__stx8342783428%_) - (let ((_%e7486874932%_ + _%slot-type-table74794%_ + _%slot74796%_)))))) + (if (gx#stx-pair? _%__stx8428784288%_) + (let ((_%e7563475698%_ (gx#syntax-e - _%__stx8342783428%_))) - (let ((_%tl7487074939%_ + _%__stx8428784288%_))) + (let ((_%tl7563675705%_ (let () (declare (not safe)) - (##cdr _%e7486874932%_))) - (_%hd7486974936%_ + (##cdr _%e7563475698%_))) + (_%hd7563575702%_ (let () (declare (not safe)) - (##car _%e7486874932%_)))) + (##car _%e7563475698%_)))) (if (gx#identifier? - _%hd7486974936%_) + _%hd7563575702%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84285_| - _%hd7486974936%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85168_| + _%hd7563575702%_) (if (gx#stx-pair? - _%tl7487074939%_) - (let ((_%e7487174942%_ + _%tl7563675705%_) + (let ((_%e7563775708%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7487074939%_))) - (let ((_%tl7487374949%_ + (gx#syntax-e _%tl7563675705%_))) + (let ((_%tl7563975715%_ (let () (declare (not safe)) - (##cdr _%e7487174942%_))) - (_%hd7487274946%_ + (##cdr _%e7563775708%_))) + (_%hd7563875712%_ (let () (declare (not safe)) - (##car _%e7487174942%_)))) - (_%__kont8343083431%_ _%hd7487274946%_))) - (_%__kont8343283433%_)) - (_%__kont8343283433%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8343283433%_)))) - (_%__kont8343283433%_)))))) - (_%__kont8357683577%_ - (lambda (_%L74570%_) - (let* ((_%__stx8336183362%_ _%b74033%_) - (_%g7458874615%_ + (##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" - _%__stx8336183362%_)))) - (let ((_%__kont8336483365%_ + _%__stx8422184222%_)))) + (let ((_%__kont8422484225%_ (lambda () - (let* ((_%g7477274780%_ - (lambda (_%g7477374776%_) + (let* ((_%g7553875546%_ + (lambda (_%g7553975542%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7477374776%_))) - (_%g7477174804%_ - (lambda (_%g7477374784%_) - ((lambda (_%L74787%_) + _%g7553975542%_))) + (_%g7553775570%_ + (lambda (_%g7553975550%_) + ((lambda (_%L75553%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74570%_ + (cons _%L75336%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L74787%_ '()))))) - _%g7477374784%_)))) + (cons _%L75553%_ '()))))) + _%g7553975550%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7477174804%_ + (_%g7553775570%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8336683367%_ - (lambda (_%L74705%_) - (let* ((_%g7472074728%_ - (lambda (_%g7472174724%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8422684227%_ + (lambda (_%L75471%_) + (let* ((_%g7548675494%_ + (lambda (_%g7548775490%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7472174724%_))) - (_%g7471974747%_ - (lambda (_%g7472174732%_) - ((lambda (_%L74735%_) + _%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 _%L74570%_ - (cons _%L74705%_ '()))) + (cons _%L75336%_ + (cons _%L75471%_ '()))) '())) (cons (gx#datum->syntax '#f ':?) - (cons _%L74735%_ '()))))) - _%g7472174732%_)))) + (cons _%L75501%_ '()))))) + _%g7548775498%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7471974747%_ + (_%g7548575513%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8336883369%_ - (lambda (_%L74653%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8422884229%_ + (lambda (_%L75419%_) (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69563%_ - _%slot74030%_ - _%a74032%_ - _%b74033%_))) - (_%__kont8337083371%_ + _%stx70329%_ + _%slot74796%_ + _%a74798%_ + _%b74799%_))) + (_%__kont8423084231%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69563%_ - _%slot74030%_ - _%a74032%_ - _%b74033%_)))) - (if (gx#stx-pair? _%__stx8336183362%_) - (let ((_%e7459074758%_ + _%stx70329%_ + _%slot74796%_ + _%a74798%_ + _%b74799%_)))) + (if (gx#stx-pair? _%__stx8422184222%_) + (let ((_%e7535675524%_ (gx#syntax-e - _%__stx8336183362%_))) - (let ((_%tl7459274765%_ + _%__stx8422184222%_))) + (let ((_%tl7535875531%_ (let () (declare (not safe)) - (##cdr _%e7459074758%_))) - (_%hd7459174762%_ + (##cdr _%e7535675524%_))) + (_%hd7535775528%_ (let () (declare (not safe)) - (##car _%e7459074758%_)))) + (##car _%e7535675524%_)))) (if (gx#identifier? - _%hd7459174762%_) + _%hd7535775528%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84286_| - _%hd7459174762%_) - (_%__kont8336483365%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85169_| + _%hd7535775528%_) + (_%__kont8422484225%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84287_| - _%hd7459174762%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85170_| + _%hd7535775528%_) (if (gx#stx-pair? - _%tl7459274765%_) - (let ((_%e7459774685%_ + _%tl7535875531%_) + (let ((_%e7536375451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7459274765%_))) - (let ((_%tl7459974692%_ + (gx#syntax-e _%tl7535875531%_))) + (let ((_%tl7536575458%_ (let () (declare (not safe)) - (##cdr _%e7459774685%_))) - (_%hd7459874689%_ + (##cdr _%e7536375451%_))) + (_%hd7536475455%_ (let () (declare (not safe)) - (##car _%e7459774685%_)))) - (if (gx#stx-pair? _%tl7459974692%_) - (let ((_%e7460074695%_ - (gx#syntax-e _%tl7459974692%_))) - (let ((_%tl7460274702%_ + (##car _%e7536375451%_)))) + (if (gx#stx-pair? _%tl7536575458%_) + (let ((_%e7536675461%_ + (gx#syntax-e _%tl7536575458%_))) + (let ((_%tl7536875468%_ (let () (declare (not safe)) - (##cdr _%e7460074695%_))) - (_%hd7460174699%_ + (##cdr _%e7536675461%_))) + (_%hd7536775465%_ (let () (declare (not safe)) - (##car _%e7460074695%_)))) - (if (gx#identifier? _%hd7460174699%_) + (##car _%e7536675461%_)))) + (if (gx#identifier? _%hd7536775465%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84288_| - _%hd7460174699%_) - (_%__kont8336683367%_ - _%hd7459874689%_) - (_%__kont8336883369%_ - _%hd7459874689%_)) - (_%__kont8336883369%_ - _%hd7459874689%_)))) - (_%__kont8336883369%_ _%hd7459874689%_)))) - (_%__kont8337083371%_)) - (_%__kont8337083371%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8337083371%_)))) - (_%__kont8337083371%_)))))) - (_%__kont8357883579%_ - (lambda (_%L74387%_) - (let* ((_%__stx8332983330%_ _%b74033%_) - (_%g7440374421%_ + |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" - _%__stx8332983330%_)))) - (let ((_%__kont8333283333%_ - (lambda (_%L74510%_) - (let ((_%$e74521%_ + _%__stx8418984190%_)))) + (let ((_%__kont8419284193%_ + (lambda (_%L75276%_) + (let ((_%$e75287%_ (gx#free-identifier=? - _%L74510%_ + _%L75276%_ (gx#datum->syntax '#f ':)))) - (if _%$e74521%_ - _%$e74521%_ - (let ((_%$e74525%_ + (if _%$e75287%_ + _%$e75287%_ + (let ((_%$e75291%_ (gx#free-identifier=? - _%L74510%_ + _%L75276%_ (gx#datum->syntax '#f ':?)))) - (if _%$e74525%_ - _%$e74525%_ + (if _%$e75291%_ + _%$e75291%_ (gx#free-identifier=? - _%L74510%_ + _%L75276%_ (gx#datum->syntax '#f ':-)))))))) - (_%__kont8333483335%_ - (lambda (_%L74448%_) - (let* ((_%g7446274470%_ - (lambda (_%g7446374466%_) + (_%__kont8419484195%_ + (lambda (_%L75214%_) + (let* ((_%g7522875236%_ + (lambda (_%g7522975232%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7446374466%_))) - (_%g7446174489%_ - (lambda (_%g7446374474%_) - ((lambda (_%L74477%_) + _%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 _%L74387%_ - (cons _%L74448%_ '()))) + (cons _%L75153%_ + (cons _%L75214%_ '()))) '())) (cons (gx#datum->syntax '#f ':-) - (cons _%L74477%_ '()))))) - _%g7446374474%_)))) + (cons _%L75243%_ '()))))) + _%g7522975240%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7446174489%_ + (_%g7522775255%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_)))))) - (if (gx#stx-pair? _%__stx8332983330%_) - (let ((_%e7440674500%_ + _%slot-type-table74794%_ + _%slot74796%_)))))) + (if (gx#stx-pair? _%__stx8418984190%_) + (let ((_%e7517275266%_ (gx#syntax-e - _%__stx8332983330%_))) - (let ((_%tl7440874507%_ + _%__stx8418984190%_))) + (let ((_%tl7517475273%_ (let () (declare (not safe)) - (##cdr _%e7440674500%_))) - (_%hd7440774504%_ + (##cdr _%e7517275266%_))) + (_%hd7517375270%_ (let () (declare (not safe)) - (##car _%e7440674500%_)))) - (_%__kont8333283333%_ - _%hd7440774504%_))) + (##car _%e7517275266%_)))) + (_%__kont8419284193%_ + _%hd7517375270%_))) (let () (declare (not safe)) - (_%g7440374421%_))))))) - (_%__kont8358083581%_ - (lambda (_%L74175%_) - (let* ((_%__stx8329783298%_ _%b74033%_) - (_%g7418974207%_ + (_%g7516975187%_))))))) + (_%__kont8444084441%_ + (lambda (_%L74941%_) + (let* ((_%__stx8415784158%_ _%b74799%_) + (_%g7495574973%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8329783298%_)))) - (let ((_%__kont8330083301%_ - (lambda (_%L74290%_ _%L74292%_) - (let* ((_%g7431574323%_ - (lambda (_%g7431674319%_) + _%__stx8415784158%_)))) + (let ((_%__kont8416084161%_ + (lambda (_%L75056%_ _%L75058%_) + (let* ((_%g7508175089%_ + (lambda (_%g7508275085%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7431674319%_))) - (_%g7431474342%_ - (lambda (_%g7431674327%_) - ((lambda (_%L74330%_) + _%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 _%L74175%_ - (cons _%L74292%_ '()))) + (cons _%L74941%_ + (cons _%L75058%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74330%_ '()))))) - _%g7431674327%_)))) + (cons _%L75096%_ '()))))) + _%g7508275093%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7431474342%_ + (_%g7508075108%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_))))) - (_%__kont8330283303%_ + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8416284163%_ (lambda () - (let* ((_%g7421874226%_ - (lambda (_%g7421974222%_) + (let* ((_%g7498474992%_ + (lambda (_%g7498574988%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7421974222%_))) - (_%g7421774249%_ - (lambda (_%g7421974230%_) - ((lambda (_%L74233%_) + _%g7498574988%_))) + (_%g7498375015%_ + (lambda (_%g7498574996%_) + ((lambda (_%L74999%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74175%_ + (cons _%L74941%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74233%_ '()))))) - _%g7421974230%_)))) + (cons _%L74999%_ '()))))) + _%g7498574996%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7421774249%_ + (_%g7498375015%_ (hash-ref - _%slot-type-table74028%_ - _%slot74030%_)))))) - (let ((_%__match8332683327%_ - (lambda (_%e7419374260%_ - _%hd7419474264%_ - _%tl7419574267%_ - _%e7419674270%_ - _%hd7419774274%_ - _%tl7419874277%_ - _%e7419974280%_ - _%hd7420074284%_ - _%tl7420174287%_) - (let ((_%L74290%_ - _%hd7420074284%_) - (_%L74292%_ - _%hd7419774274%_)) + _%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=? - _%L74290%_ + _%L75056%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74290%_ + _%L75056%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L74290%_ + _%L75056%_ (gx#datum->syntax '#f ':-))) - (_%__kont8330083301%_ - _%L74290%_ - _%L74292%_) - (_%__kont8330283303%_)))))) - (if (gx#stx-pair? _%__stx8329783298%_) - (let ((_%e7419374260%_ + (_%__kont8416084161%_ + _%L75056%_ + _%L75058%_) + (_%__kont8416284163%_)))))) + (if (gx#stx-pair? _%__stx8415784158%_) + (let ((_%e7495975026%_ (gx#syntax-e - _%__stx8329783298%_))) - (let ((_%tl7419574267%_ + _%__stx8415784158%_))) + (let ((_%tl7496175033%_ (let () (declare (not safe)) - (##cdr _%e7419374260%_))) - (_%hd7419474264%_ + (##cdr _%e7495975026%_))) + (_%hd7496075030%_ (let () (declare (not safe)) - (##car _%e7419374260%_)))) + (##car _%e7495975026%_)))) (if (gx#identifier? - _%hd7419474264%_) + _%hd7496075030%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84289_| - _%hd7419474264%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85172_| + _%hd7496075030%_) (if (gx#stx-pair? - _%tl7419574267%_) - (let ((_%e7419674270%_ + _%tl7496175033%_) + (let ((_%e7496275036%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7419574267%_))) - (let ((_%tl7419874277%_ + (gx#syntax-e _%tl7496175033%_))) + (let ((_%tl7496475043%_ (let () (declare (not safe)) - (##cdr _%e7419674270%_))) - (_%hd7419774274%_ + (##cdr _%e7496275036%_))) + (_%hd7496375040%_ (let () (declare (not safe)) - (##car _%e7419674270%_)))) - (if (gx#stx-pair? _%tl7419874277%_) - (let ((_%e7419974280%_ - (gx#syntax-e _%tl7419874277%_))) - (let ((_%tl7420174287%_ + (##car _%e7496275036%_)))) + (if (gx#stx-pair? _%tl7496475043%_) + (let ((_%e7496575046%_ + (gx#syntax-e _%tl7496475043%_))) + (let ((_%tl7496775053%_ (let () (declare (not safe)) - (##cdr _%e7419974280%_))) - (_%hd7420074284%_ + (##cdr _%e7496575046%_))) + (_%hd7496675050%_ (let () (declare (not safe)) - (##car _%e7419974280%_)))) - (_%__match8332683327%_ - _%e7419374260%_ - _%hd7419474264%_ - _%tl7419574267%_ - _%e7419674270%_ - _%hd7419774274%_ - _%tl7419874277%_ - _%e7419974280%_ - _%hd7420074284%_ - _%tl7420174287%_))) - (_%__kont8330283303%_)))) - (_%__kont8330283303%_)) - (_%__kont8330283303%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8330283303%_)))) - (_%__kont8330283303%_)))))))) - (if (gx#stx-pair? _%__stx8356583566%_) - (let ((_%e7409775403%_ - (gx#syntax-e _%__stx8356583566%_))) - (let ((_%tl7409975410%_ + (##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 _%e7409775403%_))) - (_%hd7409875407%_ + (##cdr _%e7486376169%_))) + (_%hd7486476173%_ (let () (declare (not safe)) - (##car _%e7409775403%_)))) - (if (gx#identifier? _%hd7409875407%_) + (##car _%e7486376169%_)))) + (if (gx#identifier? _%hd7486476173%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84290_| - _%hd7409875407%_) - (_%__kont8356883569%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85173_| + _%hd7486476173%_) + (_%__kont8442884429%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84291_| - _%hd7409875407%_) - (_%__kont8357083571%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85174_| + _%hd7486476173%_) + (_%__kont8443084431%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84292_| - _%hd7409875407%_) - (_%__kont8357283573%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85175_| + _%hd7486476173%_) + (_%__kont8443284433%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84293_| - _%hd7409875407%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85176_| + _%hd7486476173%_) (if (gx#stx-pair? - _%tl7409975410%_) - (let ((_%e7411074829%_ + _%tl7486576176%_) + (let ((_%e7487675595%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7409975410%_))) - (let ((_%tl7411274836%_ + (gx#syntax-e _%tl7486576176%_))) + (let ((_%tl7487875602%_ (let () (declare (not safe)) - (##cdr _%e7411074829%_))) - (_%hd7411174833%_ + (##cdr _%e7487675595%_))) + (_%hd7487775599%_ (let () (declare (not safe)) - (##car _%e7411074829%_)))) - (if (gx#stx-pair? _%tl7411274836%_) - (let ((_%e7411374839%_ - (gx#syntax-e _%tl7411274836%_))) - (let ((_%tl7411574846%_ + (##car _%e7487675595%_)))) + (if (gx#stx-pair? _%tl7487875602%_) + (let ((_%e7487975605%_ + (gx#syntax-e _%tl7487875602%_))) + (let ((_%tl7488175612%_ (let () (declare (not safe)) - (##cdr _%e7411374839%_))) - (_%hd7411474843%_ + (##cdr _%e7487975605%_))) + (_%hd7488075609%_ (let () (declare (not safe)) - (##car _%e7411374839%_)))) - (if (gx#identifier? _%hd7411474843%_) + (##car _%e7487975605%_)))) + (if (gx#identifier? _%hd7488075609%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84294_| - _%hd7411474843%_) - (_%__kont8357483575%_ _%hd7411174833%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85177_| + _%hd7488075609%_) + (_%__kont8443484435%_ _%hd7487775599%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84295_| - _%hd7411474843%_) - (_%__kont8357683577%_ - _%hd7411174833%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85178_| + _%hd7488075609%_) + (_%__kont8443684437%_ + _%hd7487775599%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84296_| - _%hd7411474843%_) - (_%__kont8357883579%_ - _%hd7411174833%_) - (_%__kont8358083581%_ - _%hd7411174833%_)))) - (_%__kont8358083581%_ _%hd7411174833%_)))) - (_%__kont8358083581%_ _%hd7411174833%_)))) - (let () (declare (not safe)) (_%g7409574148%_))) - (let () (declare (not safe)) (_%g7409574148%_)))))) + |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)) - (_%g7409574148%_))))) + (_%g7486174914%_))))) (let () (declare (not safe)) - (_%g7409574148%_))))))))) - (_%get-slot-defaults69582%_ - (lambda (_%slots74014%_ _%mixin-slots74016%_ _%super74017%_) - (_%get-slot-table69580%_ - _%slots74014%_ - _%mixin-slots74016%_ - _%super74017%_ - _%slot-default69577%_ + (_%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 (_%slot74019%_ _%a74021%_ _%b74022%_) - _%a74021%_)))) - (_%update-slot-types!69583%_ - (lambda (_%slots73984%_ _%slot-type-table73986%_) + (lambda (_%slot74785%_ _%a74787%_ _%b74788%_) + _%a74787%_)))) + (_%update-slot-types!70349%_ + (lambda (_%slots74750%_ _%slot-type-table74752%_) (for-each - (lambda (_%slot-spec73988%_) - (let* ((_%slot73991%_ - (_%slot-name69569%_ _%slot-spec73988%_)) - (_%slot-type7399373995%_ - (_%slot-contract-type69573%_ - _%slot-spec73988%_))) - (if _%slot-type7399373995%_ - (let* ((_%slot-type73999%_ - _%slot-type7399373995%_) - (_%$e74002%_ + (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-table73986%_ - _%slot73991%_))) - (if _%$e74002%_ - ((lambda (_%other-slot-type74006%_) - (let ((_%slot-type74009%_ - (_%infer-slot-type69578%_ - _%slot73991%_ - _%other-slot-type74006%_ - _%slot-type73999%_))) + _%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-table73986%_ - _%slot73991%_ - _%slot-type74009%_))) - _%$e74002%_) + _%slot-type-table74752%_ + _%slot74757%_ + _%slot-type74775%_))) + _%$e74768%_) (hash-put! - _%slot-type-table73986%_ - _%slot73991%_ - _%slot-type73999%_))) + _%slot-type-table74752%_ + _%slot74757%_ + _%slot-type74765%_))) '#f))) - _%slots73984%_))) - (_%syntax-local-value/context69584%_ - (lambda (_%id73978%_) + _%slots74750%_))) + (_%syntax-local-value/context70350%_ + (lambda (_%id74744%_) (gx#syntax-local-value - _%id73978%_ - (lambda (_%id73981%_) + _%id74744%_ + (lambda (_%id74747%_) (gx#raise-syntax-error '#f '"not a class meta type binding" - _%stx69563%_ - _%id73981%_))))) - (_%order-slots69585%_ - (lambda (_%slots73909%_ _%super73911%_) - (let ((_g84297_ + _%stx70329%_ + _%id74747%_))))) + (_%order-slots70351%_ + (lambda (_%slots74675%_ _%super74677%_) + (let ((_g85180_ (c4-linearize '() - _%super73911%_ + _%super74677%_ 'get-precedence-list: - (lambda (_%klass-id73913%_) - (cons _%klass-id73913%_ - (let ((__tmp84299 - (_%syntax-local-value/context69584%_ - _%klass-id73913%_))) + (lambda (_%klass-id74679%_) + (cons _%klass-id74679%_ + (let ((__tmp85182 + (_%syntax-local-value/context70350%_ + _%klass-id74679%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp84299)))) + __tmp85182)))) 'struct: - (lambda (_%klass-id73916%_) - (let ((__obj84012 - (_%syntax-local-value/context69584%_ - _%klass-id73916%_))) + (lambda (_%klass-id74682%_) + (let ((__obj84878 + (_%syntax-local-value/context70350%_ + _%klass-id74682%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84012 + __obj84878 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84012 + __obj84878 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84012 + __obj84878 'struct?)))) 'eq: - gx#free-identifier=? - 'get-name: - gx#stx-e))) + gx#free-identifier=?))) (begin - (let ((_g84298_ + (let ((_g85181_ (let () (declare (not safe)) - (if (##values? _g84297_) - (##values-length _g84297_) + (if (##values? _g85180_) + (##values-length _g85180_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84298_ 2))) - (error "Context expects 2 values" _g84298_))) - (let ((_%precedence-list73919%_ + (##fx= _g85181_ 2))) + (error "Context expects 2 values" _g85181_))) + (let ((_%precedence-list74685%_ (let () (declare (not safe)) - (##values-ref _g84297_ 0))) - (_%base-struct73921%_ + (##values-ref _g85180_ 0))) + (_%base-struct74687%_ (let () (declare (not safe)) - (##values-ref _g84297_ 1)))) - (let* ((_%base-fields73935%_ - (if _%base-struct73921%_ - (let* ((_%klass73923%_ + (##values-ref _g85180_ 1)))) + (let* ((_%base-fields74701%_ + (if _%base-struct74687%_ + (let* ((_%klass74689%_ (gx#syntax-local-value - _%base-struct73921%_)) - (_%$e73926%_ - (let ((__obj84013 - _%klass73923%_)) + _%base-struct74687%_)) + (_%$e74692%_ + (let ((__obj84879 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84013 + __obj84879 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84013 + __obj84879 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84013 + __obj84879 'ordered-slots))))) - (if _%$e73926%_ - _%$e73926%_ - (let ((_%ordered73932%_ - (_%order-slots69585%_ - (let ((__obj84014 - _%klass73923%_)) + (if _%$e74692%_ + _%$e74692%_ + (let ((_%ordered74698%_ + (_%order-slots70351%_ + (let ((__obj84880 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84014 + __obj84880 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84014 + __obj84880 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84014 + __obj84880 'slots))) - (let ((__obj84015 - _%klass73923%_)) + (let ((__obj84881 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84015 + __obj84881 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84015 + __obj84881 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84015 + __obj84881 'super)))))) - (let ((__obj84016 - _%klass73923%_)) + (let ((__obj84882 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84016 + __obj84882 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84016 - _%ordered73932%_ + __obj84882 + _%ordered74698%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj84016 + __obj84882 'ordered-slots - _%ordered73932%_))) - _%ordered73932%_))) + _%ordered74698%_))) + _%ordered74698%_))) '())) - (_%r-fields73938%_ - (reverse _%base-fields73935%_)) - (_%seen-slots73949%_ - (let ((_%tab73941%_ (make-hash-table-eq))) + (_%r-fields74704%_ + (reverse _%base-fields74701%_)) + (_%seen-slots74715%_ + (let ((_%tab74707%_ (make-hash-table-eq))) (for-each - (lambda (_%g7394373945%_) + (lambda (_%g7470974711%_) (hash-put! - _%tab73941%_ - _%g7394373945%_ + _%tab74707%_ + _%g7470974711%_ '#t)) - _%base-fields73935%_) - _%tab73941%_)) - (_%process-slot73955%_ - (lambda (_%slot73952%_) + _%base-fields74701%_) + _%tab74707%_)) + (_%process-slot74721%_ + (lambda (_%slot74718%_) (if (hash-get - _%seen-slots73949%_ - _%slot73952%_) + _%seen-slots74715%_ + _%slot74718%_) '#!void (begin (hash-put! - _%seen-slots73949%_ - _%slot73952%_ + _%seen-slots74715%_ + _%slot74718%_ '#t) - (set! _%r-fields73938%_ - (cons _%slot73952%_ - _%r-fields73938%_))))))) + (set! _%r-fields74704%_ + (cons _%slot74718%_ + _%r-fields74704%_))))))) (for-each - (lambda (_%mixin73960%_) - (let ((_%klass73963%_ - (gx#syntax-local-value _%mixin73960%_))) - (if (let ((__obj84017 _%klass73963%_)) + (lambda (_%mixin74726%_) + (let ((_%klass74729%_ + (gx#syntax-local-value _%mixin74726%_))) + (if (let ((__obj84883 _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84017 + __obj84883 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84017 + __obj84883 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84017 + __obj84883 'struct?))) '#!void - (let ((_%$e73966%_ - (let ((__obj84018 _%klass73963%_)) + (let ((_%$e74732%_ + (let ((__obj84884 _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84018 + __obj84884 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84018 + __obj84884 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84018 + __obj84884 'ordered-slots))))) - (if _%$e73966%_ - ((lambda (_%ordered73970%_) + (if _%$e74732%_ + ((lambda (_%ordered74736%_) (for-each - _%process-slot73955%_ - _%ordered73970%_)) - _%$e73966%_) - (let ((_%ordered73975%_ - (_%order-slots69585%_ - (let ((__obj84019 - _%klass73963%_)) + _%process-slot74721%_ + _%ordered74736%_)) + _%$e74732%_) + (let ((_%ordered74741%_ + (_%order-slots70351%_ + (let ((__obj84885 + _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84019 + __obj84885 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84019 + __obj84885 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84019 + __obj84885 'slots))) - (let ((__obj84020 - _%klass73963%_)) + (let ((__obj84886 + _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84020 + __obj84886 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj84020 + __obj84886 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj84020 + __obj84886 'super)))))) - (let ((__obj84021 _%klass73963%_)) + (let ((__obj84887 _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj84021 + __obj84887 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84021 - _%ordered73975%_ + __obj84887 + _%ordered74741%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj84021 + __obj84887 'ordered-slots - _%ordered73975%_))) + _%ordered74741%_))) (for-each - _%process-slot73955%_ - _%ordered73975%_))))))) - _%precedence-list73919%_) - (for-each _%process-slot73955%_ _%slots73909%_) - (reverse _%r-fields73938%_))))))) - (_%wrap69586%_ - (lambda (_%e-stx73906%_) + _%process-slot74721%_ + _%ordered74741%_))))))) + _%precedence-list74685%_) + (for-each _%process-slot74721%_ _%slots74675%_) + (reverse _%r-fields74704%_))))))) + (_%wrap70352%_ + (lambda (_%e-stx74672%_) (gx#stx-wrap-source - _%e-stx73906%_ - (gx#stx-source _%stx69563%_)))) - (_%generate-defclass69587%_ - (lambda (_%id69721%_ - _%super-ref69723%_ - _%slots69724%_ - _%body69725%_) - (letrec ((_%make-id69727%_ - (lambda _%args73903%_ + _%e-stx74672%_ + (gx#stx-source _%stx70329%_)))) + (_%generate-defclass70353%_ + (lambda (_%id70487%_ + _%super-ref70489%_ + _%slots70490%_ + _%body70491%_) + (letrec ((_%make-id70493%_ + (lambda _%args74669%_ (apply gx#stx-identifier - _%id69721%_ - _%args73903%_)))) + _%id70487%_ + _%args74669%_)))) (gx#check-duplicate-identifiers - (map _%slot-name69569%_ _%slots69724%_) - _%stx69563%_) + (map _%slot-name70335%_ _%slots70490%_) + _%stx70329%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f absent-value '#f - _%stx69563%_ - _%slots69724%_)) - (_%check-typedef-body!69568%_ _%body69725%_) - (let ((_g84300_ - (_%get-mixin-slots69579%_ _%super-ref69723%_))) + _%stx70329%_ + _%slots70490%_)) + (_%check-typedef-body!70334%_ _%body70491%_) + (let ((_g85183_ + (_%get-mixin-slots70345%_ _%super-ref70489%_))) (begin - (let ((_g84301_ + (let ((_g85184_ (let () (declare (not safe)) - (if (##values? _g84300_) - (##values-length _g84300_) + (if (##values? _g85183_) + (##values-length _g85183_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84301_ 2))) - (error "Context expects 2 values" _g84301_))) - (let ((_%mixin-slots69730%_ + (##fx= _g85184_ 2))) + (error "Context expects 2 values" _g85184_))) + (let ((_%mixin-slots70496%_ (let () (declare (not safe)) - (##values-ref _g84300_ 0))) - (_%slot-type-table69732%_ + (##values-ref _g85183_ 0))) + (_%slot-type-table70498%_ (let () (declare (not safe)) - (##values-ref _g84300_ 1)))) - (let* ((_%slot-contract-table69734%_ - (_%get-slot-contracts69581%_ - _%slots69724%_ - _%mixin-slots69730%_ - _%super-ref69723%_ - _%slot-type-table69732%_)) - (_%slot-default-table69737%_ - (_%get-slot-defaults69582%_ - _%slots69724%_ - _%mixin-slots69730%_ - _%super-ref69723%_)) - (_%ordered-slots69740%_ - (_%order-slots69585%_ - (map _%slot-name69569%_ _%slots69724%_) - _%super-ref69723%_))) - (_%update-slot-types!69583%_ - _%slots69724%_ - _%slot-type-table69732%_) - (let* ((_%slots69745%_ - (map _%slot-name69569%_ _%slots69724%_)) - (_%mixin-slots69751%_ - (filter (lambda (_%slot69748%_) - (not (memq _%slot69748%_ - _%slots69745%_))) - _%mixin-slots69730%_)) - (_%name69754%_ - (symbol->string (gx#stx-e _%id69721%_))) - (_%super69757%_ + (##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-ref69723%_)) - (_%struct?69760%_ - (gx#stx-getq 'struct: _%body69725%_)) - (_%g6976369771%_ - (lambda (_%g6976469767%_) + _%super-ref70489%_)) + (_%struct?70526%_ + (gx#stx-getq 'struct: _%body70491%_)) + (_%g7052970537%_ + (lambda (_%g7053070533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6976469767%_))) - (_%g6976273899%_ - (lambda (_%g6976469775%_) - ((lambda (_%L69778%_) - (let* ((_%g6980169809%_ - (lambda (_%g6980269805%_) + _%g7053070533%_))) + (_%g7052874665%_ + (lambda (_%g7053070541%_) + ((lambda (_%L70544%_) + (let* ((_%g7056770575%_ + (lambda (_%g7056870571%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6980269805%_))) - (_%g6980073895%_ - (lambda (_%g6980269813%_) - ((lambda (_%L69816%_) - (let* ((_%g6982969837%_ - (lambda (_%g6983069833%_) + _%g7056870571%_))) + (_%g7056674661%_ + (lambda (_%g7056870579%_) + ((lambda (_%L70582%_) + (let* ((_%g7059570603%_ + (lambda (_%g7059670599%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6983069833%_))) - (_%g6982873891%_ - (lambda (_%g6983069841%_) - ((lambda (_%L69844%_) - (let* ((_%g6985769865%_ - (lambda (_%g6985869861%_) + _%g7059670599%_))) + (_%g7059474657%_ + (lambda (_%g7059670607%_) + ((lambda (_%L70610%_) + (let* ((_%g7062370631%_ + (lambda (_%g7062470627%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6985869861%_))) - (_%g6985673887%_ - (lambda (_%g6985869869%_) - ((lambda (_%L69872%_) - (let* ((_%g6988569893%_ - (lambda (_%g6988669889%_) + _%g7062470627%_))) + (_%g7062274653%_ + (lambda (_%g7062470635%_) + ((lambda (_%L70638%_) + (let* ((_%g7065170659%_ + (lambda (_%g7065270655%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6988669889%_))) - (_%g6988473883%_ - (lambda (_%g6988669897%_) - ((lambda (_%L69900%_) - (let* ((_%g6991369930%_ - (lambda (_%g6991469926%_) + _%g7065270655%_))) + (_%g7065074649%_ + (lambda (_%g7065270663%_) + ((lambda (_%L70666%_) + (let* ((_%g7067970696%_ + (lambda (_%g7068070692%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6991469926%_))) - (_%g6991273879%_ - (lambda (_%g6991469934%_) - (if (gx#stx-pair/null? _%g6991469934%_) - (let ((_g84302_ + _%g7068070692%_))) + (_%g7067874645%_ + (lambda (_%g7068070700%_) + (if (gx#stx-pair/null? _%g7068070700%_) + (let ((_g85185_ (gx#syntax-split-splice - _%g6991469934%_ + _%g7068070700%_ '0))) (begin - (let ((_g84303_ + (let ((_g85186_ (let () (declare (not safe)) - (if (##values? _g84302_) - (##values-length _g84302_) + (if (##values? _g85185_) + (##values-length _g85185_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84303_ 2))) + (##fx= _g85186_ 2))) (error "Context expects 2 values" - _g84303_))) - (let ((_%target6991669937%_ + _g85186_))) + (let ((_%target7068270703%_ (let () (declare (not safe)) - (##values-ref _g84302_ 0))) - (_%tl6991869940%_ + (##values-ref _g85185_ 0))) + (_%tl7068470706%_ (let () (declare (not safe)) - (##values-ref _g84302_ 1)))) - (if (gx#stx-null? _%tl6991869940%_) - (letrec ((_%loop6991969943%_ - (lambda (_%hd6991769947%_ - _%slot6992369950%_) + (##values-ref _g85185_ 1)))) + (if (gx#stx-null? _%tl7068470706%_) + (letrec ((_%loop7068570709%_ + (lambda (_%hd7068370713%_ + _%slot7068970716%_) (if (gx#stx-pair? - _%hd6991769947%_) - (let ((_%e6992069953%_ + _%hd7068370713%_) + (let ((_%e7068670719%_ (gx#syntax-e - _%hd6991769947%_))) - (let ((_%lp-hd6992169957%_ + _%hd7068370713%_))) + (let ((_%lp-hd7068770723%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6992069953%_))) - (_%lp-tl6992269960%_ - (let () (declare (not safe)) (##cdr _%e6992069953%_)))) - (_%loop6991969943%_ - _%lp-tl6992269960%_ - (cons _%lp-hd6992169957%_ _%slot6992369950%_)))) - (let ((_%slot6992469963%_ (reverse _%slot6992369950%_))) - ((lambda (_%L69967%_) - (let* ((_%g6998470001%_ - (lambda (_%g6998569997%_) + (##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" - _%g6998569997%_))) - (_%g6998373875%_ - (lambda (_%g6998570005%_) - (if (gx#stx-pair/null? _%g6998570005%_) - (let ((_g84304_ + _%g7075170763%_))) + (_%g7074974641%_ + (lambda (_%g7075170771%_) + (if (gx#stx-pair/null? _%g7075170771%_) + (let ((_g85187_ (gx#syntax-split-splice - _%g6998570005%_ + _%g7075170771%_ '0))) (begin - (let ((_g84305_ + (let ((_g85188_ (let () (declare (not safe)) - (if (##values? _g84304_) - (##values-length _g84304_) + (if (##values? _g85187_) + (##values-length _g85187_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84305_ 2))) + (##fx= _g85188_ 2))) (error "Context expects 2 values" - _g84305_))) - (let ((_%target6998770008%_ + _g85188_))) + (let ((_%target7075370774%_ (let () (declare (not safe)) - (##values-ref _g84304_ 0))) - (_%tl6998970011%_ + (##values-ref _g85187_ 0))) + (_%tl7075570777%_ (let () (declare (not safe)) - (##values-ref _g84304_ 1)))) - (if (gx#stx-null? _%tl6998970011%_) - (letrec ((_%loop6999070014%_ - (lambda (_%hd6998870018%_ - _%ordered-slot6999470021%_) + (##values-ref _g85187_ 1)))) + (if (gx#stx-null? _%tl7075570777%_) + (letrec ((_%loop7075670780%_ + (lambda (_%hd7075470784%_ + _%ordered-slot7076070787%_) (if (gx#stx-pair? - _%hd6998870018%_) - (let ((_%e6999170024%_ + _%hd7075470784%_) + (let ((_%e7075770790%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6998870018%_))) - (let ((_%lp-hd6999270028%_ + (gx#syntax-e _%hd7075470784%_))) + (let ((_%lp-hd7075870794%_ (let () (declare (not safe)) - (##car _%e6999170024%_))) - (_%lp-tl6999370031%_ + (##car _%e7075770790%_))) + (_%lp-tl7075970797%_ (let () (declare (not safe)) - (##cdr _%e6999170024%_)))) - (_%loop6999070014%_ - _%lp-tl6999370031%_ - (cons _%lp-hd6999270028%_ - _%ordered-slot6999470021%_)))) - (let ((_%ordered-slot6999570034%_ - (reverse _%ordered-slot6999470021%_))) - ((lambda (_%L70038%_) - (let* ((_%g7005570072%_ - (lambda (_%g7005670068%_) + (##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" - _%g7005670068%_))) - (_%g7005473866%_ - (lambda (_%g7005670076%_) - (if (gx#stx-pair/null? _%g7005670076%_) - (let ((_g84306_ + _%g7082270834%_))) + (_%g7082074632%_ + (lambda (_%g7082270842%_) + (if (gx#stx-pair/null? _%g7082270842%_) + (let ((_g85189_ (gx#syntax-split-splice - _%g7005670076%_ + _%g7082270842%_ '0))) (begin - (let ((_g84307_ + (let ((_g85190_ (let () (declare (not safe)) - (if (##values? _g84306_) + (if (##values? _g85189_) (##values-length - _g84306_) + _g85189_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84307_ 2))) + (##fx= _g85190_ 2))) (error "Context expects 2 values" - _g84307_))) - (let ((_%target7005870079%_ + _g85190_))) + (let ((_%target7082470845%_ (let () (declare (not safe)) - (##values-ref _g84306_ 0))) - (_%tl7006070082%_ + (##values-ref _g85189_ 0))) + (_%tl7082670848%_ (let () (declare (not safe)) (##values-ref - _g84306_ + _g85189_ 1)))) (if (gx#stx-null? - _%tl7006070082%_) - (letrec ((_%loop7006170085%_ - (lambda (_%hd7005970089%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf7006570092%_) - (if (gx#stx-pair? _%hd7005970089%_) - (let ((_%e7006270095%_ - (gx#syntax-e _%hd7005970089%_))) - (let ((_%lp-hd7006370099%_ + _%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 _%e7006270095%_))) - (_%lp-tl7006470102%_ + (##car _%e7082870861%_))) + (_%lp-tl7083070868%_ (let () (declare (not safe)) - (##cdr _%e7006270095%_)))) - (_%loop7006170085%_ - _%lp-tl7006470102%_ - (cons _%lp-hd7006370099%_ _%getf7006570092%_)))) - (let ((_%getf7006670105%_ - (reverse _%getf7006570092%_))) - ((lambda (_%L70109%_) - (let* ((_%g7012670143%_ - (lambda (_%g7012770139%_) + (##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" - _%g7012770139%_))) - (_%g7012573857%_ - (lambda (_%g7012770147%_) - (if (gx#stx-pair/null? _%g7012770147%_) - (let ((_g84308_ + _%g7089370905%_))) + (_%g7089174623%_ + (lambda (_%g7089370913%_) + (if (gx#stx-pair/null? _%g7089370913%_) + (let ((_g85191_ (gx#syntax-split-splice - _%g7012770147%_ + _%g7089370913%_ '0))) (begin - (let ((_g84309_ + (let ((_g85192_ (let () (declare (not safe)) (if (##values? - _g84308_) + _g85191_) (##values-length - _g84308_) + _g85191_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84309_ + (##fx= _g85192_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84309_))) + (error "Context expects 2 values" _g85192_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7012970150%_ + (let ((_%target7089570916%_ (let () (declare (not safe)) (##values-ref - _g84308_ + _g85191_ 0))) - (_%tl7013170153%_ + (_%tl7089770919%_ (let () (declare (not safe)) (##values-ref - _g84308_ + _g85191_ 1)))) (if (gx#stx-null? - _%tl7013170153%_) - (letrec ((_%loop7013270156%_ - (lambda (_%hd7013070160%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%setf7013670163%_) - (if (gx#stx-pair? _%hd7013070160%_) - (let ((_%e7013370166%_ - (gx#syntax-e _%hd7013070160%_))) - (let ((_%lp-hd7013470170%_ + _%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 _%e7013370166%_))) - (_%lp-tl7013570173%_ + (##car _%e7089970932%_))) + (_%lp-tl7090170939%_ (let () (declare (not safe)) - (##cdr _%e7013370166%_)))) - (_%loop7013270156%_ - _%lp-tl7013570173%_ - (cons _%lp-hd7013470170%_ - _%setf7013670163%_)))) - (let ((_%setf7013770176%_ - (reverse _%setf7013670163%_))) - ((lambda (_%L70180%_) - (let* ((_%g7019770214%_ - (lambda (_%g7019870210%_) + (##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" - _%g7019870210%_))) - (_%g7019673848%_ - (lambda (_%g7019870218%_) + _%g7096470976%_))) + (_%g7096274614%_ + (lambda (_%g7096470984%_) (if (gx#stx-pair/null? - _%g7019870218%_) - (let ((_g84310_ + _%g7096470984%_) + (let ((_g85193_ (gx#syntax-split-splice - _%g7019870218%_ + _%g7096470984%_ '0))) (begin - (let ((_g84311_ + (let ((_g85194_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84310_) - (##values-length _g84310_) + _g85193_) + (##values-length _g85193_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84311_ 2))) - (error "Context expects 2 values" _g84311_))) + (if (not (let () (declare (not safe)) (##fx= _g85194_ 2))) + (error "Context expects 2 values" _g85194_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7020070221%_ + (let ((_%target7096670987%_ (let () (declare (not safe)) (##values-ref - _g84310_ + _g85193_ 0))) - (_%tl7020270224%_ + (_%tl7096870990%_ (let () (declare (not safe)) (##values-ref - _g84310_ + _g85193_ 1)))) (if (gx#stx-null? - _%tl7020270224%_) - (letrec ((_%loop7020370227%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7020170231%_ _%rawsetf7020770234%_) - (if (gx#stx-pair? _%hd7020170231%_) - (let ((_%e7020470237%_ - (gx#syntax-e _%hd7020170231%_))) - (let ((_%lp-hd7020570241%_ + _%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 _%e7020470237%_))) - (_%lp-tl7020670244%_ + (##car _%e7097071003%_))) + (_%lp-tl7097271010%_ (let () (declare (not safe)) - (##cdr _%e7020470237%_)))) - (_%loop7020370227%_ - _%lp-tl7020670244%_ - (cons _%lp-hd7020570241%_ - _%rawsetf7020770234%_)))) - (let ((_%rawsetf7020870247%_ - (reverse _%rawsetf7020770234%_))) - ((lambda (_%L70251%_) - (let* ((_%g7026870285%_ - (lambda (_%g7026970281%_) + (##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" - _%g7026970281%_))) - (_%g7026773844%_ - (lambda (_%g7026970289%_) + _%g7103571047%_))) + (_%g7103374610%_ + (lambda (_%g7103571055%_) (if (gx#stx-pair/null? - _%g7026970289%_) - (let ((_g84312_ + _%g7103571055%_) + (let ((_g85195_ (gx#syntax-split-splice - _%g7026970289%_ + _%g7103571055%_ '0))) (begin - (let ((_g84313_ + (let ((_g85196_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84312_) - (##values-length _g84312_) + (if (##values? _g85195_) + (##values-length _g85195_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84313_ 2))) - (error "Context expects 2 values" _g84313_))) - (let ((_%target7027170292%_ + (if (not (let () (declare (not safe)) (##fx= _g85196_ 2))) + (error "Context expects 2 values" _g85196_))) + (let ((_%target7103771058%_ (let () (declare (not safe)) - (##values-ref _g84312_ 0))) - (_%tl7027370295%_ + (##values-ref _g85195_ 0))) + (_%tl7103971061%_ (let () (declare (not safe)) - (##values-ref _g84312_ 1)))) - (if (gx#stx-null? _%tl7027370295%_) - (letrec ((_%loop7027470298%_ - (lambda (_%hd7027270302%_ - _%mixin-slot7027870305%_) - (if (gx#stx-pair? _%hd7027270302%_) - (let ((_%e7027570308%_ - (gx#syntax-e _%hd7027270302%_))) - (let ((_%lp-hd7027670312%_ + (##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 _%e7027570308%_))) - (_%lp-tl7027770315%_ + (##car _%e7104171074%_))) + (_%lp-tl7104371081%_ (let () (declare (not safe)) - (##cdr _%e7027570308%_)))) - (_%loop7027470298%_ - _%lp-tl7027770315%_ - (cons _%lp-hd7027670312%_ - _%mixin-slot7027870305%_)))) - (let ((_%mixin-slot7027970318%_ - (reverse _%mixin-slot7027870305%_))) - ((lambda (_%L70322%_) - (let* ((_%g7033970356%_ - (lambda (_%g7034070352%_) + (##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" - _%g7034070352%_))) - (_%g7033873835%_ - (lambda (_%g7034070360%_) + _%g7110671118%_))) + (_%g7110474601%_ + (lambda (_%g7110671126%_) (if (gx#stx-pair/null? - _%g7034070360%_) - (let ((_g84314_ + _%g7110671126%_) + (let ((_g85197_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7034070360%_ '0))) + (gx#syntax-split-splice _%g7110671126%_ '0))) (begin - (let ((_g84315_ + (let ((_g85198_ (let () (declare (not safe)) - (if (##values? _g84314_) - (##values-length _g84314_) + (if (##values? _g85197_) + (##values-length _g85197_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84315_ 2))) - (error "Context expects 2 values" _g84315_))) - (let ((_%target7034270363%_ + (##fx= _g85198_ 2))) + (error "Context expects 2 values" _g85198_))) + (let ((_%target7110871129%_ (let () (declare (not safe)) - (##values-ref _g84314_ 0))) - (_%tl7034470366%_ + (##values-ref _g85197_ 0))) + (_%tl7111071132%_ (let () (declare (not safe)) - (##values-ref _g84314_ 1)))) - (if (gx#stx-null? _%tl7034470366%_) - (letrec ((_%loop7034570369%_ - (lambda (_%hd7034370373%_ - _%mixin-getf7034970376%_) - (if (gx#stx-pair? _%hd7034370373%_) - (let ((_%e7034670379%_ + (##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 - _%hd7034370373%_))) - (let ((_%lp-hd7034770383%_ + _%hd7110971139%_))) + (let ((_%lp-hd7111371149%_ (let () (declare (not safe)) - (##car _%e7034670379%_))) - (_%lp-tl7034870386%_ + (##car _%e7111271145%_))) + (_%lp-tl7111471152%_ (let () (declare (not safe)) - (##cdr _%e7034670379%_)))) - (_%loop7034570369%_ - _%lp-tl7034870386%_ - (cons _%lp-hd7034770383%_ - _%mixin-getf7034970376%_)))) - (let ((_%mixin-getf7035070389%_ - (reverse _%mixin-getf7034970376%_))) - ((lambda (_%L70393%_) - (let* ((_%g7041070427%_ - (lambda (_%g7041170423%_) + (##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" - _%g7041170423%_))) - (_%g7040973826%_ - (lambda (_%g7041170431%_) + _%g7117771189%_))) + (_%g7117574592%_ + (lambda (_%g7117771197%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7041170431%_) - (let ((_g84316_ - (gx#syntax-split-splice _%g7041170431%_ '0))) + _%g7117771197%_) + (let ((_g85199_ + (gx#syntax-split-splice _%g7117771197%_ '0))) (begin - (let ((_g84317_ + (let ((_g85200_ (let () (declare (not safe)) - (if (##values? _g84316_) - (##values-length _g84316_) + (if (##values? _g85199_) + (##values-length _g85199_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84317_ 2))) - (error "Context expects 2 values" _g84317_))) - (let ((_%target7041370434%_ + (##fx= _g85200_ 2))) + (error "Context expects 2 values" _g85200_))) + (let ((_%target7117971200%_ (let () (declare (not safe)) - (##values-ref _g84316_ 0))) - (_%tl7041570437%_ + (##values-ref _g85199_ 0))) + (_%tl7118171203%_ (let () (declare (not safe)) - (##values-ref _g84316_ 1)))) - (if (gx#stx-null? _%tl7041570437%_) - (letrec ((_%loop7041670440%_ - (lambda (_%hd7041470444%_ - _%mixin-setf7042070447%_) + (##values-ref _g85199_ 1)))) + (if (gx#stx-null? _%tl7118171203%_) + (letrec ((_%loop7118271206%_ + (lambda (_%hd7118071210%_ + _%mixin-setf7118671213%_) (if (gx#stx-pair? - _%hd7041470444%_) - (let ((_%e7041770450%_ + _%hd7118071210%_) + (let ((_%e7118371216%_ (gx#syntax-e - _%hd7041470444%_))) - (let ((_%lp-hd7041870454%_ + _%hd7118071210%_))) + (let ((_%lp-hd7118471220%_ (let () (declare (not safe)) - (##car _%e7041770450%_))) - (_%lp-tl7041970457%_ + (##car _%e7118371216%_))) + (_%lp-tl7118571223%_ (let () (declare (not safe)) - (##cdr _%e7041770450%_)))) - (_%loop7041670440%_ - _%lp-tl7041970457%_ - (cons _%lp-hd7041870454%_ - _%mixin-setf7042070447%_)))) - (let ((_%mixin-setf7042170460%_ - (reverse _%mixin-setf7042070447%_))) - ((lambda (_%L70464%_) - (let* ((_%g7048170498%_ - (lambda (_%g7048270494%_) + (##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" - _%g7048270494%_))) - (_%g7048073817%_ - (lambda (_%g7048270502%_) - (if (gx#stx-pair/null? _%g7048270502%_) - (let ((_g84318_ + _%g7124871260%_))) + (_%g7124674583%_ + (lambda (_%g7124871268%_) + (if (gx#stx-pair/null? _%g7124871268%_) + (let ((_g85201_ (gx#syntax-split-splice - _%g7048270502%_ + _%g7124871268%_ '0))) (begin - (let ((_g84319_ + (let ((_g85202_ (let () (declare (not safe)) - (if (##values? _g84318_) - (##values-length _g84318_) + (if (##values? _g85201_) + (##values-length _g85201_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84319_ 2))) + (##fx= _g85202_ 2))) (error "Context expects 2 values" - _g84319_))) - (let ((_%target7048470505%_ + _g85202_))) + (let ((_%target7125071271%_ (let () (declare (not safe)) - (##values-ref _g84318_ 0))) - (_%tl7048670508%_ + (##values-ref _g85201_ 0))) + (_%tl7125271274%_ (let () (declare (not safe)) - (##values-ref _g84318_ 1)))) - (if (gx#stx-null? _%tl7048670508%_) - (letrec ((_%loop7048770511%_ - (lambda (_%hd7048570515%_ - _%mixin-rawsetf7049170518%_) + (##values-ref _g85201_ 1)))) + (if (gx#stx-null? _%tl7125271274%_) + (letrec ((_%loop7125371277%_ + (lambda (_%hd7125171281%_ + _%mixin-rawsetf7125771284%_) (if (gx#stx-pair? - _%hd7048570515%_) - (let ((_%e7048870521%_ + _%hd7125171281%_) + (let ((_%e7125471287%_ (gx#syntax-e - _%hd7048570515%_))) - (let ((_%lp-hd7048970525%_ + _%hd7125171281%_))) + (let ((_%lp-hd7125571291%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e7048870521%_))) - (_%lp-tl7049070528%_ - (let () (declare (not safe)) (##cdr _%e7048870521%_)))) - (_%loop7048770511%_ - _%lp-tl7049070528%_ - (cons _%lp-hd7048970525%_ _%mixin-rawsetf7049170518%_)))) - (let ((_%mixin-rawsetf7049270531%_ - (reverse _%mixin-rawsetf7049170518%_))) - ((lambda (_%L70535%_) - (let* ((_%g7055270569%_ - (lambda (_%g7055370565%_) + (##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" - _%g7055370565%_))) - (_%g7055173800%_ - (lambda (_%g7055370573%_) - (if (gx#stx-pair/null? _%g7055370573%_) - (let ((_g84320_ + _%g7131971331%_))) + (_%g7131774566%_ + (lambda (_%g7131971339%_) + (if (gx#stx-pair/null? _%g7131971339%_) + (let ((_g85203_ (gx#syntax-split-splice - _%g7055370573%_ + _%g7131971339%_ '0))) (begin - (let ((_g84321_ + (let ((_g85204_ (let () (declare (not safe)) - (if (##values? _g84320_) - (##values-length _g84320_) + (if (##values? _g85203_) + (##values-length _g85203_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84321_ 2))) + (##fx= _g85204_ 2))) (error "Context expects 2 values" - _g84321_))) - (let ((_%target7055570576%_ + _g85204_))) + (let ((_%target7132171342%_ (let () (declare (not safe)) - (##values-ref _g84320_ 0))) - (_%tl7055770579%_ + (##values-ref _g85203_ 0))) + (_%tl7132371345%_ (let () (declare (not safe)) - (##values-ref _g84320_ 1)))) - (if (gx#stx-null? _%tl7055770579%_) - (letrec ((_%loop7055870582%_ - (lambda (_%hd7055670586%_ - _%ugetf7056270589%_) + (##values-ref _g85203_ 1)))) + (if (gx#stx-null? _%tl7132371345%_) + (letrec ((_%loop7132471348%_ + (lambda (_%hd7132271352%_ + _%ugetf7132871355%_) (if (gx#stx-pair? - _%hd7055670586%_) - (let ((_%e7055970592%_ + _%hd7132271352%_) + (let ((_%e7132571358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7055670586%_))) - (let ((_%lp-hd7056070596%_ + (gx#syntax-e _%hd7132271352%_))) + (let ((_%lp-hd7132671362%_ (let () (declare (not safe)) - (##car _%e7055970592%_))) - (_%lp-tl7056170599%_ + (##car _%e7132571358%_))) + (_%lp-tl7132771365%_ (let () (declare (not safe)) - (##cdr _%e7055970592%_)))) - (_%loop7055870582%_ - _%lp-tl7056170599%_ - (cons _%lp-hd7056070596%_ _%ugetf7056270589%_)))) - (let ((_%ugetf7056370602%_ (reverse _%ugetf7056270589%_))) - ((lambda (_%L70606%_) - (let* ((_%g7062370640%_ - (lambda (_%g7062470636%_) + (##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" - _%g7062470636%_))) - (_%g7062273783%_ - (lambda (_%g7062470644%_) - (if (gx#stx-pair/null? _%g7062470644%_) - (let ((_g84322_ + _%g7139071402%_))) + (_%g7138874549%_ + (lambda (_%g7139071410%_) + (if (gx#stx-pair/null? _%g7139071410%_) + (let ((_g85205_ (gx#syntax-split-splice - _%g7062470644%_ + _%g7139071410%_ '0))) (begin - (let ((_g84323_ + (let ((_g85206_ (let () (declare (not safe)) - (if (##values? _g84322_) + (if (##values? _g85205_) (##values-length - _g84322_) + _g85205_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84323_ 2))) + (##fx= _g85206_ 2))) (error "Context expects 2 values" - _g84323_))) - (let ((_%target7062670647%_ + _g85206_))) + (let ((_%target7139271413%_ (let () (declare (not safe)) - (##values-ref _g84322_ 0))) - (_%tl7062870650%_ + (##values-ref _g85205_ 0))) + (_%tl7139471416%_ (let () (declare (not safe)) (##values-ref - _g84322_ + _g85205_ 1)))) (if (gx#stx-null? - _%tl7062870650%_) - (letrec ((_%loop7062970653%_ - (lambda (_%hd7062770657%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf7063370660%_) - (if (gx#stx-pair? _%hd7062770657%_) - (let ((_%e7063070663%_ - (gx#syntax-e _%hd7062770657%_))) - (let ((_%lp-hd7063170667%_ + _%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 _%e7063070663%_))) - (_%lp-tl7063270670%_ + (##car _%e7139671429%_))) + (_%lp-tl7139871436%_ (let () (declare (not safe)) - (##cdr _%e7063070663%_)))) - (_%loop7062970653%_ - _%lp-tl7063270670%_ - (cons _%lp-hd7063170667%_ _%usetf7063370660%_)))) - (let ((_%usetf7063470673%_ - (reverse _%usetf7063370660%_))) - ((lambda (_%L70677%_) - (let* ((_%g7069470711%_ - (lambda (_%g7069570707%_) + (##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" - _%g7069570707%_))) - (_%g7069373766%_ - (lambda (_%g7069570715%_) - (if (gx#stx-pair/null? _%g7069570715%_) - (let ((_g84324_ + _%g7146171473%_))) + (_%g7145974532%_ + (lambda (_%g7146171481%_) + (if (gx#stx-pair/null? _%g7146171481%_) + (let ((_g85207_ (gx#syntax-split-splice - _%g7069570715%_ + _%g7146171481%_ '0))) (begin - (let ((_g84325_ + (let ((_g85208_ (let () (declare (not safe)) (if (##values? - _g84324_) + _g85207_) (##values-length - _g84324_) + _g85207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84325_ + (##fx= _g85208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84325_))) + (error "Context expects 2 values" _g85208_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7069770718%_ + (let ((_%target7146371484%_ (let () (declare (not safe)) (##values-ref - _g84324_ + _g85207_ 0))) - (_%tl7069970721%_ + (_%tl7146571487%_ (let () (declare (not safe)) (##values-ref - _g84324_ + _g85207_ 1)))) (if (gx#stx-null? - _%tl7069970721%_) - (letrec ((_%loop7070070724%_ - (lambda (_%hd7069870728%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-ugetf7070470731%_) - (if (gx#stx-pair? _%hd7069870728%_) - (let ((_%e7070170734%_ - (gx#syntax-e _%hd7069870728%_))) - (let ((_%lp-hd7070270738%_ + _%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 _%e7070170734%_))) - (_%lp-tl7070370741%_ + (##car _%e7146771500%_))) + (_%lp-tl7146971507%_ (let () (declare (not safe)) - (##cdr _%e7070170734%_)))) - (_%loop7070070724%_ - _%lp-tl7070370741%_ - (cons _%lp-hd7070270738%_ - _%mixin-ugetf7070470731%_)))) - (let ((_%mixin-ugetf7070570744%_ - (reverse _%mixin-ugetf7070470731%_))) - ((lambda (_%L70748%_) - (let* ((_%g7076570782%_ - (lambda (_%g7076670778%_) + (##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" - _%g7076670778%_))) - (_%g7076473749%_ - (lambda (_%g7076670786%_) + _%g7153271544%_))) + (_%g7153074515%_ + (lambda (_%g7153271552%_) (if (gx#stx-pair/null? - _%g7076670786%_) - (let ((_g84326_ + _%g7153271552%_) + (let ((_g85209_ (gx#syntax-split-splice - _%g7076670786%_ + _%g7153271552%_ '0))) (begin - (let ((_g84327_ + (let ((_g85210_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84326_) - (##values-length _g84326_) + _g85209_) + (##values-length _g85209_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84327_ 2))) - (error "Context expects 2 values" _g84327_))) + (if (not (let () (declare (not safe)) (##fx= _g85210_ 2))) + (error "Context expects 2 values" _g85210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7076870789%_ + (let ((_%target7153471555%_ (let () (declare (not safe)) (##values-ref - _g84326_ + _g85209_ 0))) - (_%tl7077070792%_ + (_%tl7153671558%_ (let () (declare (not safe)) (##values-ref - _g84326_ + _g85209_ 1)))) (if (gx#stx-null? - _%tl7077070792%_) - (letrec ((_%loop7077170795%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7076970799%_ - _%mixin-usetf7077570802%_) - (if (gx#stx-pair? _%hd7076970799%_) - (let ((_%e7077270805%_ - (gx#syntax-e _%hd7076970799%_))) - (let ((_%lp-hd7077370809%_ + _%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 _%e7077270805%_))) - (_%lp-tl7077470812%_ + (##car _%e7153871571%_))) + (_%lp-tl7154071578%_ (let () (declare (not safe)) - (##cdr _%e7077270805%_)))) - (_%loop7077170795%_ - _%lp-tl7077470812%_ - (cons _%lp-hd7077370809%_ - _%mixin-usetf7077570802%_)))) - (let ((_%mixin-usetf7077670815%_ - (reverse _%mixin-usetf7077570802%_))) - ((lambda (_%L70819%_) - (let* ((_%type-slots70981%_ + (##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? - _%slots69745%_) + _%slots70511%_) '() (cons 'slots: - (cons (map (lambda (_%slot70840%_ + (cons (map (lambda (_%slot71606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70842%_ - _%setf70843%_ - _%rawsetf70844%_) - (let* ((_%g7084670869%_ - (lambda (_%g7084770865%_) + _%getf71608%_ + _%setf71609%_ + _%rawsetf71610%_) + (let* ((_%g7161271635%_ + (lambda (_%g7161371631%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7084770865%_))) - (_%g7084570945%_ - (lambda (_%g7084770873%_) - (if (gx#stx-pair? _%g7084770873%_) - (let ((_%e7085270876%_ + _%g7161371631%_))) + (_%g7161171711%_ + (lambda (_%g7161371639%_) + (if (gx#stx-pair? _%g7161371639%_) + (let ((_%e7161871642%_ (gx#syntax-e - _%g7084770873%_))) - (let ((_%hd7085370880%_ + _%g7161371639%_))) + (let ((_%hd7161971646%_ (let () (declare (not safe)) - (##car _%e7085270876%_))) - (_%tl7085470883%_ + (##car _%e7161871642%_))) + (_%tl7162071649%_ (let () (declare (not safe)) - (##cdr _%e7085270876%_)))) + (##cdr _%e7161871642%_)))) (if (gx#stx-pair? - _%tl7085470883%_) - (let ((_%e7085570886%_ + _%tl7162071649%_) + (let ((_%e7162171652%_ (gx#syntax-e - _%tl7085470883%_))) - (let ((_%hd7085670890%_ + _%tl7162071649%_))) + (let ((_%hd7162271656%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7085570886%_))) - (_%tl7085770893%_ - (let () (declare (not safe)) (##cdr _%e7085570886%_)))) - (if (gx#stx-pair? _%tl7085770893%_) - (let ((_%e7085870896%_ (gx#syntax-e _%tl7085770893%_))) - (let ((_%hd7085970900%_ + (##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 _%e7085870896%_))) - (_%tl7086070903%_ + (##car _%e7162471662%_))) + (_%tl7162671669%_ (let () (declare (not safe)) - (##cdr _%e7085870896%_)))) - (if (gx#stx-pair? _%tl7086070903%_) - (let ((_%e7086170906%_ - (gx#syntax-e _%tl7086070903%_))) - (let ((_%hd7086270910%_ + (##cdr _%e7162471662%_)))) + (if (gx#stx-pair? _%tl7162671669%_) + (let ((_%e7162771672%_ + (gx#syntax-e _%tl7162671669%_))) + (let ((_%hd7162871676%_ (let () (declare (not safe)) - (##car _%e7086170906%_))) - (_%tl7086370913%_ + (##car _%e7162771672%_))) + (_%tl7162971679%_ (let () (declare (not safe)) - (##cdr _%e7086170906%_)))) - (if (gx#stx-null? _%tl7086370913%_) - ((lambda (_%L70916%_ - _%L70918%_ - _%L70919%_ - _%L70920%_) + (##cdr _%e7162771672%_)))) + (if (gx#stx-null? _%tl7162971679%_) + ((lambda (_%L71682%_ + _%L71684%_ + _%L71685%_ + _%L71686%_) (if (hash-get - _%slot-contract-table69734%_ - (gx#stx-e _%L70920%_)) - (cons _%L70920%_ - (cons _%L70919%_ - (cons _%L70916%_ '()))) - (cons _%L70920%_ - (cons _%L70919%_ - (cons _%L70918%_ + _%slot-contract-table70500%_ + (gx#stx-e _%L71686%_)) + (cons _%L71686%_ + (cons _%L71685%_ + (cons _%L71682%_ '()))) + (cons _%L71686%_ + (cons _%L71685%_ + (cons _%L71684%_ '()))))) - _%hd7086270910%_ - _%hd7085970900%_ - _%hd7085670890%_ - _%hd7085370880%_) - (_%g7084670869%_ _%g7084770873%_)))) - (_%g7084670869%_ _%g7084770873%_)))) - (_%g7084670869%_ _%g7084770873%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7084670869%_ - _%g7084770873%_)))) - (_%g7084670869%_ - _%g7084770873%_))))) - (_%g7084570945%_ - (list _%slot70840%_ - _%getf70842%_ - _%setf70843%_ - _%rawsetf70844%_)))) - (foldr (lambda (_%g7094870951%_ _%g7094970954%_) - (cons _%g7094870951%_ _%g7094970954%_)) + _%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%_)) '() - _%L69967%_) - (foldr (lambda (_%g7095670959%_ _%g7095770962%_) - (cons _%g7095670959%_ _%g7095770962%_)) + _%L70733%_) + (foldr (lambda (_%g7172271725%_ _%g7172371728%_) + (cons _%g7172271725%_ _%g7172371728%_)) '() - _%L70109%_) - (foldr (lambda (_%g7096470967%_ _%g7096570970%_) - (cons _%g7096470967%_ _%g7096570970%_)) + _%L70875%_) + (foldr (lambda (_%g7173071733%_ _%g7173171736%_) + (cons _%g7173071733%_ _%g7173171736%_)) '() - _%L70180%_) - (foldr (lambda (_%g7097270975%_ _%g7097370978%_) - (cons _%g7097270975%_ _%g7097370978%_)) + _%L70946%_) + (foldr (lambda (_%g7173871741%_ _%g7173971744%_) + (cons _%g7173871741%_ _%g7173971744%_)) '() - _%L70251%_)) + _%L71017%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots71128%_ + (_%type-mixin-slots71894%_ (if (gx#stx-null? - _%mixin-slots69751%_) + _%mixin-slots70517%_) '() (cons 'mixin: - (cons (map (lambda (_%slot70988%_ + (cons (map (lambda (_%slot71754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70990%_ - _%setf70991%_ - _%rawsetf70992%_) - (let* ((_%g7099471017%_ - (lambda (_%g7099571013%_) + _%getf71756%_ + _%setf71757%_ + _%rawsetf71758%_) + (let* ((_%g7176071783%_ + (lambda (_%g7176171779%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7099571013%_))) - (_%g7099371092%_ - (lambda (_%g7099571021%_) - (if (gx#stx-pair? _%g7099571021%_) - (let ((_%e7100071024%_ + _%g7176171779%_))) + (_%g7175971858%_ + (lambda (_%g7176171787%_) + (if (gx#stx-pair? _%g7176171787%_) + (let ((_%e7176671790%_ (gx#syntax-e - _%g7099571021%_))) - (let ((_%hd7100171028%_ + _%g7176171787%_))) + (let ((_%hd7176771794%_ (let () (declare (not safe)) - (##car _%e7100071024%_))) - (_%tl7100271031%_ + (##car _%e7176671790%_))) + (_%tl7176871797%_ (let () (declare (not safe)) - (##cdr _%e7100071024%_)))) + (##cdr _%e7176671790%_)))) (if (gx#stx-pair? - _%tl7100271031%_) - (let ((_%e7100371034%_ + _%tl7176871797%_) + (let ((_%e7176971800%_ (gx#syntax-e - _%tl7100271031%_))) - (let ((_%hd7100471038%_ + _%tl7176871797%_))) + (let ((_%hd7177071804%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7100371034%_))) - (_%tl7100571041%_ - (let () (declare (not safe)) (##cdr _%e7100371034%_)))) - (if (gx#stx-pair? _%tl7100571041%_) - (let ((_%e7100671044%_ (gx#syntax-e _%tl7100571041%_))) - (let ((_%hd7100771048%_ + (##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 _%e7100671044%_))) - (_%tl7100871051%_ + (##car _%e7177271810%_))) + (_%tl7177471817%_ (let () (declare (not safe)) - (##cdr _%e7100671044%_)))) - (if (gx#stx-pair? _%tl7100871051%_) - (let ((_%e7100971054%_ - (gx#syntax-e _%tl7100871051%_))) - (let ((_%hd7101071058%_ + (##cdr _%e7177271810%_)))) + (if (gx#stx-pair? _%tl7177471817%_) + (let ((_%e7177571820%_ + (gx#syntax-e _%tl7177471817%_))) + (let ((_%hd7177671824%_ (let () (declare (not safe)) - (##car _%e7100971054%_))) - (_%tl7101171061%_ + (##car _%e7177571820%_))) + (_%tl7177771827%_ (let () (declare (not safe)) - (##cdr _%e7100971054%_)))) - (if (gx#stx-null? _%tl7101171061%_) - ((lambda (_%L71064%_ - _%L71066%_ - _%L71067%_ - _%L71068%_) + (##cdr _%e7177571820%_)))) + (if (gx#stx-null? _%tl7177771827%_) + ((lambda (_%L71830%_ + _%L71832%_ + _%L71833%_ + _%L71834%_) (if (hash-get - _%slot-contract-table69734%_ - (gx#stx-e _%L71068%_)) - (cons _%L71068%_ - (cons _%L71067%_ - (cons _%L71064%_ '()))) - (cons _%L71068%_ - (cons _%L71067%_ - (cons _%L71066%_ + _%slot-contract-table70500%_ + (gx#stx-e _%L71834%_)) + (cons _%L71834%_ + (cons _%L71833%_ + (cons _%L71830%_ '()))) + (cons _%L71834%_ + (cons _%L71833%_ + (cons _%L71832%_ '()))))) - _%hd7101071058%_ - _%hd7100771048%_ - _%hd7100471038%_ - _%hd7100171028%_) - (_%g7099471017%_ _%g7099571021%_)))) - (_%g7099471017%_ _%g7099571021%_)))) - (_%g7099471017%_ _%g7099571021%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7099471017%_ - _%g7099571021%_)))) - (_%g7099471017%_ - _%g7099571021%_))))) - (_%g7099371092%_ - (list _%slot70988%_ - _%getf70990%_ - _%setf70991%_ - _%rawsetf70992%_)))) - (foldr (lambda (_%g7109571098%_ _%g7109671101%_) - (cons _%g7109571098%_ _%g7109671101%_)) + _%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%_)) '() - _%L70322%_) - (foldr (lambda (_%g7110371106%_ _%g7110471109%_) - (cons _%g7110371106%_ _%g7110471109%_)) + _%L71088%_) + (foldr (lambda (_%g7186971872%_ _%g7187071875%_) + (cons _%g7186971872%_ _%g7187071875%_)) '() - _%L70393%_) - (foldr (lambda (_%g7111171114%_ _%g7111271117%_) - (cons _%g7111171114%_ _%g7111271117%_)) + _%L71159%_) + (foldr (lambda (_%g7187771880%_ _%g7187871883%_) + (cons _%g7187771880%_ _%g7187871883%_)) '() - _%L70464%_) - (foldr (lambda (_%g7111971122%_ _%g7112071125%_) - (cons _%g7111971122%_ _%g7112071125%_)) + _%L71230%_) + (foldr (lambda (_%g7188571888%_ _%g7188671891%_) + (cons _%g7188571888%_ _%g7188671891%_)) '() - _%L70535%_)) + _%L71301%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name71135%_ + (_%type-name71901%_ (cons 'name: - (cons (let ((_%$e71131%_ + (cons (let ((_%$e71897%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body69725%_))) - (if _%$e71131%_ _%$e71131%_ _%id69721%_)) + (gx#stx-getq 'name: _%body70491%_))) + (if _%$e71897%_ _%$e71897%_ _%id70487%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id71142%_ + (_%type-id71908%_ (cons 'id: - (cons (let ((_%$e71138%_ + (cons (let ((_%$e71904%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body69725%_))) - (if _%$e71138%_ - _%$e71138%_ + (gx#stx-getq 'id: _%body70491%_))) + (if _%$e71904%_ + _%$e71904%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L69778%_)))) + _%L70544%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor71157%_ - (let ((_%$e71153%_ - (let ((_%e7114471146%_ + (_%type-constructor71923%_ + (let ((_%$e71919%_ + (let ((_%e7191071912%_ (gx#stx-getq 'constructor: - _%body69725%_))) - (if _%e7114471146%_ - (let ((_%e71150%_ + _%body70491%_))) + (if _%e7191071912%_ + (let ((_%e71916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e7114471146%_)) - (cons 'constructor: (cons _%e71150%_ '()))) + _%e7191071912%_)) + (cons 'constructor: (cons _%e71916%_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e71153%_ - _%$e71153%_ + (if _%$e71919%_ + _%$e71919%_ '()))) - (_%properties71211%_ - (let* ((_%properties71160%_ + (_%properties71977%_ + (let* ((_%properties71926%_ (if (gx#stx-e (gx#stx-getq 'transparent: - _%body69725%_)) + _%body70491%_)) (cons (cons 'transparent: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#t) '()) '())) - (_%properties71183%_ - (let ((_%$e71163%_ - (gx#stx-e (gx#stx-getq 'print: _%body69725%_)))) - (if _%$e71163%_ - ((lambda (_%print71167%_) - (let ((_%print71178%_ - (if (eq? _%print71167%_ '#t) - (foldr (lambda (_%g7116971172%_ - _%g7117071175%_) - (cons _%g7116971172%_ - _%g7117071175%_)) + (_%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%_)) '() - _%L69967%_) - _%print71167%_))) - (cons (cons 'print: _%print71178%_) - _%properties71160%_))) - _%$e71163%_) - _%properties71160%_))) - (_%properties71206%_ - (let ((_%$e71186%_ - (gx#stx-e (gx#stx-getq 'equal: _%body69725%_)))) - (if _%$e71186%_ - ((lambda (_%equal71190%_) - (let ((_%equal71201%_ - (if (eq? _%equal71190%_ '#t) - (foldr (lambda (_%g7119271195%_ - _%g7119371198%_) - (cons _%g7119271195%_ - _%g7119371198%_)) + _%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%_)) '() - _%L69967%_) - _%equal71190%_))) - (cons (cons 'equal: _%equal71201%_) - _%properties71183%_))) - _%$e71186%_) - _%properties71183%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%properties71206%_)) - (_%type-properties71249%_ - (if (null? _%properties71211%_) + _%L70733%_) + _%equal71956%_))) + (cons (cons 'equal: _%equal71967%_) + _%properties71949%_))) + _%$e71952%_) + _%properties71949%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%properties71972%_)) + (_%type-properties72015%_ + (if (null? _%properties71977%_) '() - (let* ((_%g7121471222%_ - (lambda (_%g7121571218%_) + (let* ((_%g7198071988%_ + (lambda (_%g7198171984%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7121571218%_))) - (_%g7121371245%_ - (lambda (_%g7121571226%_) - ((lambda (_%L71229%_) + _%g7198171984%_))) + (_%g7197972011%_ + (lambda (_%g7198171992%_) + ((lambda (_%L71995%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L71229%_ '())) + (cons _%L71995%_ '())) '()))) - _%g7121571226%_)))) - (_%g7121371245%_ _%properties71211%_)))) + _%g7198171992%_)))) + (_%g7197972011%_ _%properties71977%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass71261%_ - (let ((_%$e71252%_ + (_%metaclass72027%_ + (let ((_%$e72018%_ (gx#stx-getq 'metaclass: - _%body69725%_))) - (if _%$e71252%_ - ((lambda (_%metaclass71256%_) + _%body70491%_))) + (if _%$e72018%_ + ((lambda (_%metaclass72022%_) (if (gx#identifier? - _%metaclass71256%_) - _%metaclass71256%_ + _%metaclass72022%_) + _%metaclass72022%_ '#f)) - _%$e71252%_) + _%$e72018%_) '#f))) - (_%final?71264%_ + (_%final?72030%_ (gx#stx-e (gx#stx-getq 'final: - _%body69725%_))) - (_%type-struct71267%_ + _%body70491%_))) + (_%type-struct72033%_ (cons 'struct: - (cons _%struct?69760%_ + (cons _%struct?70526%_ '()))) - (_%type-final71270%_ + (_%type-final72036%_ (cons 'final: - (cons _%final?71264%_ + (cons _%final?72030%_ '()))) - (_%type-metaclass71273%_ - (if _%metaclass71261%_ + (_%type-metaclass72039%_ + (if _%metaclass72027%_ (cons 'metaclass: - (cons _%metaclass71261%_ + (cons _%metaclass72027%_ '())) '())) - (_%g7127671293%_ - (lambda (_%g7127771289%_) + (_%g7204272059%_ + (lambda (_%g7204372055%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7127771289%_))) - (_%g7127573745%_ - (lambda (_%g7127771297%_) + _%g7204372055%_))) + (_%g7204174511%_ + (lambda (_%g7204372063%_) (if (gx#stx-pair/null? - _%g7127771297%_) - (let ((_g84328_ + _%g7204372063%_) + (let ((_g85211_ (gx#syntax-split-splice - _%g7127771297%_ + _%g7204372063%_ '0))) (begin - (let ((_g84329_ + (let ((_g85212_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84328_) - (##values-length _g84328_) + (if (##values? _g85211_) + (##values-length _g85211_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84329_ 2))) - (error "Context expects 2 values" _g84329_))) - (let ((_%target7127971300%_ + (if (not (let () (declare (not safe)) (##fx= _g85212_ 2))) + (error "Context expects 2 values" _g85212_))) + (let ((_%target7204572066%_ (let () (declare (not safe)) - (##values-ref _g84328_ 0))) - (_%tl7128171303%_ + (##values-ref _g85211_ 0))) + (_%tl7204772069%_ (let () (declare (not safe)) - (##values-ref _g84328_ 1)))) - (if (gx#stx-null? _%tl7128171303%_) - (letrec ((_%loop7128271306%_ - (lambda (_%hd7128071310%_ - _%type-body7128671313%_) - (if (gx#stx-pair? _%hd7128071310%_) - (let ((_%e7128371316%_ - (gx#syntax-e _%hd7128071310%_))) - (let ((_%lp-hd7128471320%_ + (##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 _%e7128371316%_))) - (_%lp-tl7128571323%_ + (##car _%e7204972082%_))) + (_%lp-tl7205172089%_ (let () (declare (not safe)) - (##cdr _%e7128371316%_)))) - (_%loop7128271306%_ - _%lp-tl7128571323%_ - (cons _%lp-hd7128471320%_ - _%type-body7128671313%_)))) - (let ((_%type-body7128771326%_ - (reverse _%type-body7128671313%_))) - ((lambda (_%L71330%_) - (let* ((_%g7135171359%_ - (lambda (_%g7135271355%_) + (##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" - _%g7135271355%_))) - (_%g7135073733%_ - (lambda (_%g7135271363%_) - ((lambda (_%L71366%_) - (let* ((_%g7137971387%_ + _%g7211872121%_))) + (_%g7211674499%_ + (lambda (_%g7211872129%_) + ((lambda (_%L72132%_) + (let* ((_%g7214572153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7138071383%_) + (lambda (_%g7214672149%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7138071383%_))) - (_%g7137873721%_ - (lambda (_%g7138071391%_) - ((lambda (_%L71394%_) - (let* ((_%g7140771415%_ - (lambda (_%g7140871411%_) + _%g7214672149%_))) + (_%g7214474487%_ + (lambda (_%g7214672157%_) + ((lambda (_%L72160%_) + (let* ((_%g7217372181%_ + (lambda (_%g7217472177%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7140871411%_))) - (_%g7140673650%_ - (lambda (_%g7140871419%_) - ((lambda (_%L71422%_) - (let* ((_%g7143571443%_ - (lambda (_%g7143671439%_) + _%g7217472177%_))) + (_%g7217274416%_ + (lambda (_%g7217472185%_) + ((lambda (_%L72188%_) + (let* ((_%g7220172209%_ + (lambda (_%g7220272205%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7143671439%_))) - (_%g7143473615%_ - (lambda (_%g7143671447%_) - ((lambda (_%L71450%_) - (let* ((_%g7146371471%_ + _%g7220272205%_))) + (_%g7220074381%_ + (lambda (_%g7220272213%_) + ((lambda (_%L72216%_) + (let* ((_%g7222972237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7146471467%_) + (lambda (_%g7223072233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7146471467%_))) - (_%g7146273529%_ - (lambda (_%g7146471475%_) - ((lambda (_%L71478%_) - (let* ((_%g7149171499%_ - (lambda (_%g7149271495%_) + _%g7223072233%_))) + (_%g7222874295%_ + (lambda (_%g7223072241%_) + ((lambda (_%L72244%_) + (let* ((_%g7225772265%_ + (lambda (_%g7225872261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7149271495%_))) - (_%g7149073517%_ - (lambda (_%g7149271503%_) - ((lambda (_%L71506%_) - (let* ((_%g7151971527%_ - (lambda (_%g7152071523%_) + _%g7225872261%_))) + (_%g7225674283%_ + (lambda (_%g7225872269%_) + ((lambda (_%L72272%_) + (let* ((_%g7228572293%_ + (lambda (_%g7228672289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7152071523%_))) - (_%g7151873505%_ - (lambda (_%g7152071531%_) - ((lambda (_%L71534%_) - (let* ((_%g7154771555%_ - (lambda (_%g7154871551%_) + _%g7228672289%_))) + (_%g7228474271%_ + (lambda (_%g7228672297%_) + ((lambda (_%L72300%_) + (let* ((_%g7231372321%_ + (lambda (_%g7231472317%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7154871551%_))) - (_%g7154673391%_ - (lambda (_%g7154871559%_) - ((lambda (_%L71562%_) - (let* ((_%g7157571583%_ - (lambda (_%g7157671579%_) + _%g7231472317%_))) + (_%g7231274157%_ + (lambda (_%g7231472325%_) + ((lambda (_%L72328%_) + (let* ((_%g7234172349%_ + (lambda (_%g7234272345%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7157671579%_))) - (_%g7157473280%_ - (lambda (_%g7157671587%_) - ((lambda (_%L71590%_) - (let* ((_%g7160371611%_ - (lambda (_%g7160471607%_) + _%g7234272345%_))) + (_%g7234074046%_ + (lambda (_%g7234272353%_) + ((lambda (_%L72356%_) + (let* ((_%g7236972377%_ + (lambda (_%g7237072373%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7160471607%_))) - (_%g7160273169%_ - (lambda (_%g7160471615%_) - ((lambda (_%L71618%_) - (let* ((_%g7163171639%_ - (lambda (_%g7163271635%_) + _%g7237072373%_))) + (_%g7236873935%_ + (lambda (_%g7237072381%_) + ((lambda (_%L72384%_) + (let* ((_%g7239772405%_ + (lambda (_%g7239872401%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7163271635%_))) - (_%g7163073165%_ - (lambda (_%g7163271643%_) - ((lambda (_%L71646%_) - (let* ((_%g7165971667%_ - (lambda (_%g7166071663%_) + _%g7239872401%_))) + (_%g7239673931%_ + (lambda (_%g7239872409%_) + ((lambda (_%L72412%_) + (let* ((_%g7242572433%_ + (lambda (_%g7242672429%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7166071663%_))) - (_%g7165873161%_ - (lambda (_%g7166071671%_) - ((lambda (_%L71674%_) - (let* ((_%g7168771695%_ - (lambda (_%g7168871691%_) + _%g7242672429%_))) + (_%g7242473927%_ + (lambda (_%g7242672437%_) + ((lambda (_%L72440%_) + (let* ((_%g7245372461%_ + (lambda (_%g7245472457%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7168871691%_))) - (_%g7168673126%_ - (lambda (_%g7168871699%_) - ((lambda (_%L71702%_) - (let* ((_%g7171571723%_ - (lambda (_%g7171671719%_) + _%g7245472457%_))) + (_%g7245273892%_ + (lambda (_%g7245472465%_) + ((lambda (_%L72468%_) + (let* ((_%g7248172489%_ + (lambda (_%g7248272485%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g7171671719%_))) - (_%g7171473055%_ - (lambda (_%g7171671727%_) - ((lambda (_%L71730%_) - (let* ((_%g7174371751%_ - (lambda (_%g7174471747%_) + _%g7248272485%_))) + (_%g7248073821%_ + (lambda (_%g7248272493%_) + ((lambda (_%L72496%_) + (let* ((_%g7250972517%_ + (lambda (_%g7251072513%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7174471747%_))) - (_%g7174273051%_ - (lambda (_%g7174471755%_) - ((lambda (_%L71758%_) - (let* ((_%g7177171779%_ - (lambda (_%g7177271775%_) + _%g7251072513%_))) + (_%g7250873817%_ + (lambda (_%g7251072521%_) + ((lambda (_%L72524%_) + (let* ((_%g7253772545%_ + (lambda (_%g7253872541%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7177271775%_))) - (_%g7177073047%_ - (lambda (_%g7177271783%_) - ((lambda (_%L71786%_) - (let* ((_%g7179971807%_ - (lambda (_%g7180071803%_) + _%g7253872541%_))) + (_%g7253673813%_ + (lambda (_%g7253872549%_) + ((lambda (_%L72552%_) + (let* ((_%g7256572573%_ + (lambda (_%g7256672569%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7180071803%_))) - (_%g7179873043%_ - (lambda (_%g7180071811%_) - ((lambda (_%L71814%_) + _%g7256672569%_))) + (_%g7256473809%_ + (lambda (_%g7256672577%_) + ((lambda (_%L72580%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g7182771835%_ - (lambda (_%g7182871831%_) + (let* ((_%g7259372601%_ + (lambda (_%g7259472597%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7182871831%_))) - (_%g7182673017%_ - (lambda (_%g7182871839%_) - ((lambda (_%L71842%_) - (let* ((_%g7185571863%_ - (lambda (_%g7185671859%_) + _%g7259472597%_))) + (_%g7259273783%_ + (lambda (_%g7259472605%_) + ((lambda (_%L72608%_) + (let* ((_%g7262172629%_ + (lambda (_%g7262272625%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7185671859%_))) - (_%g7185472991%_ - (lambda (_%g7185671867%_) - ((lambda (_%L71870%_) - (let* ((_%g7188371891%_ - (lambda (_%g7188471887%_) + _%g7262272625%_))) + (_%g7262073757%_ + (lambda (_%g7262272633%_) + ((lambda (_%L72636%_) + (let* ((_%g7264972657%_ + (lambda (_%g7265072653%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7188471887%_))) - (_%g7188272965%_ - (lambda (_%g7188471895%_) - ((lambda (_%L71898%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%map-slot-usetf71916%_ - (lambda (_%slot71911%_ - _%setf71913%_ - _%rawsetf71914%_) + _%g7265072653%_))) + (_%g7264873731%_ + (lambda (_%g7265072661%_) + ((lambda (_%L72664%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%map-slot-usetf72682%_ + (lambda (_%slot72677%_ + _%setf72679%_ + _%rawsetf72680%_) (cons 'cons (cons (cons 'quote - (cons _%slot71911%_ '())) + (cons _%slot72677%_ '())) (cons (if (hash-get - _%slot-contract-table69734%_ + _%slot-contract-table70500%_ (gx#stx-e - _%slot71911%_)) + _%slot72677%_)) (cons 'quote-syntax (cons (gx#stx-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rawsetf71914%_ + _%rawsetf72680%_ '"&" - _%rawsetf71914%_) + _%rawsetf72680%_) '())) - (cons 'quote-syntax (cons _%setf71913%_ '()))) + (cons 'quote-syntax (cons _%setf72679%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%g7191971927%_ - (lambda (_%g7192071923%_) + (_%g7268572693%_ + (lambda (_%g7268672689%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7192071923%_))) - (_%g7191872747%_ - (lambda (_%g7192071931%_) - ((lambda (_%L71934%_) - (let* ((_%g7194871956%_ - (lambda (_%g7194971952%_) + _%g7268672689%_))) + (_%g7268473513%_ + (lambda (_%g7268672697%_) + ((lambda (_%L72700%_) + (let* ((_%g7271472722%_ + (lambda (_%g7271572718%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7194971952%_))) - (_%g7194772743%_ - (lambda (_%g7194971960%_) - ((lambda (_%L71963%_) - (let* ((_%g7197671984%_ - (lambda (_%g7197771980%_) + _%g7271572718%_))) + (_%g7271373509%_ + (lambda (_%g7271572726%_) + ((lambda (_%L72729%_) + (let* ((_%g7274272750%_ + (lambda (_%g7274372746%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7197771980%_))) - (_%g7197572229%_ - (lambda (_%g7197771988%_) - ((lambda (_%L71991%_) - (let* ((_%g7200472021%_ + _%g7274372746%_))) + (_%g7274172995%_ + (lambda (_%g7274372754%_) + ((lambda (_%L72757%_) + (let* ((_%g7277072787%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7200572017%_) + (lambda (_%g7277172783%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7200572017%_))) - (_%g7200372085%_ - (lambda (_%g7200572025%_) - (if (gx#stx-pair/null? _%g7200572025%_) - (let ((_g84330_ + _%g7277172783%_))) + (_%g7276972851%_ + (lambda (_%g7277172791%_) + (if (gx#stx-pair/null? _%g7277172791%_) + (let ((_g85213_ (gx#syntax-split-splice - _%g7200572025%_ + _%g7277172791%_ '0))) (begin - (let ((_g84331_ + (let ((_g85214_ (let () (declare (not safe)) - (if (##values? _g84330_) + (if (##values? _g85213_) (##values-length - _g84330_) + _g85213_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84331_ 2))) + (##fx= _g85214_ 2))) (error "Context expects 2 values" - _g84331_))) - (let ((_%target7200772028%_ + _g85214_))) + (let ((_%target7277372794%_ (let () (declare (not safe)) - (##values-ref _g84330_ 0))) - (_%tl7200972031%_ + (##values-ref _g85213_ 0))) + (_%tl7277572797%_ (let () (declare (not safe)) - (##values-ref _g84330_ 1)))) - (if (gx#stx-null? _%tl7200972031%_) - (letrec ((_%loop7201072034%_ - (lambda (_%hd7200872038%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defsetf7201472041%_) - (if (gx#stx-pair? _%hd7200872038%_) - (let ((_%e7201172044%_ (gx#syntax-e _%hd7200872038%_))) - (let ((_%lp-hd7201272048%_ + (##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 _%e7201172044%_))) - (_%lp-tl7201372051%_ + (##car _%e7277772810%_))) + (_%lp-tl7277972817%_ (let () (declare (not safe)) - (##cdr _%e7201172044%_)))) - (_%loop7201072034%_ - _%lp-tl7201372051%_ - (cons _%lp-hd7201272048%_ - _%defsetf7201472041%_)))) - (let ((_%defsetf7201572054%_ - (reverse _%defsetf7201472041%_))) - ((lambda (_%L72058%_) + (##cdr _%e7277772810%_)))) + (_%loop7277672800%_ + _%lp-tl7277972817%_ + (cons _%lp-hd7277872814%_ + _%defsetf7278072807%_)))) + (let ((_%defsetf7278172820%_ + (reverse _%defsetf7278072807%_))) + ((lambda (_%L72824%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L71394%_ - (cons _%L71963%_ - (cons _%L71991%_ - (foldr (lambda (_%g7207672079%_ + (cons _%L72160%_ + (cons _%L72729%_ + (cons _%L72757%_ + (foldr (lambda (_%g7284272845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7207772082%_) - (cons _%g7207672079%_ _%g7207772082%_)) + _%g7284372848%_) + (cons _%g7284272845%_ _%g7284372848%_)) '() - _%L72058%_)))))) + _%L72824%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%defsetf7201572054%_)))))) + _%defsetf7278172820%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7201072034%_ - _%target7200772028%_ + (_%loop7277672800%_ + _%target7277372794%_ '())) - (_%g7200472021%_ - _%g7200572025%_))))) - (_%g7200472021%_ _%g7200572025%_))))) - (_%g7200372085%_ - (let ((__tmp84332 - (map (lambda (_%slot72089%_ - _%setf72091%_ - _%rawsetf72092%_) - (let ((_%contract7209372095%_ + (_%g7277072787%_ + _%g7277172791%_))))) + (_%g7277072787%_ _%g7277172791%_))))) + (_%g7276972851%_ + (let ((__tmp85215 + (map (lambda (_%slot72855%_ + _%setf72857%_ + _%rawsetf72858%_) + (let ((_%contract7285972861%_ (hash-get - _%slot-contract-table69734%_ - (gx#stx-e _%slot72089%_)))) - (if _%contract7209372095%_ - (let* ((_%contract72099%_ - _%contract7209372095%_) - (_%g7210272125%_ - (lambda (_%g7210372121%_) + _%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" - _%g7210372121%_))) - (_%g7210172201%_ - (lambda (_%g7210372129%_) + _%g7286972887%_))) + (_%g7286772967%_ + (lambda (_%g7286972895%_) (if (gx#stx-pair? - _%g7210372129%_) - (let ((_%e7210872132%_ + _%g7286972895%_) + (let ((_%e7287472898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7210372129%_))) - (let ((_%hd7210972136%_ + (gx#syntax-e _%g7286972895%_))) + (let ((_%hd7287572902%_ (let () (declare (not safe)) - (##car _%e7210872132%_))) - (_%tl7211072139%_ + (##car _%e7287472898%_))) + (_%tl7287672905%_ (let () (declare (not safe)) - (##cdr _%e7210872132%_)))) - (if (gx#stx-pair? _%tl7211072139%_) - (let ((_%e7211172142%_ - (gx#syntax-e _%tl7211072139%_))) - (let ((_%hd7211272146%_ + (##cdr _%e7287472898%_)))) + (if (gx#stx-pair? _%tl7287672905%_) + (let ((_%e7287772908%_ + (gx#syntax-e _%tl7287672905%_))) + (let ((_%hd7287872912%_ (let () (declare (not safe)) - (##car _%e7211172142%_))) - (_%tl7211372149%_ + (##car _%e7287772908%_))) + (_%tl7287972915%_ (let () (declare (not safe)) - (##cdr _%e7211172142%_)))) - (if (gx#stx-pair? _%tl7211372149%_) - (let ((_%e7211472152%_ - (gx#syntax-e _%tl7211372149%_))) - (let ((_%hd7211572156%_ + (##cdr _%e7287772908%_)))) + (if (gx#stx-pair? _%tl7287972915%_) + (let ((_%e7288072918%_ + (gx#syntax-e _%tl7287972915%_))) + (let ((_%hd7288172922%_ (let () (declare (not safe)) - (##car _%e7211472152%_))) - (_%tl7211672159%_ + (##car _%e7288072918%_))) + (_%tl7288272925%_ (let () (declare (not safe)) - (##cdr _%e7211472152%_)))) - (if (gx#stx-pair? _%tl7211672159%_) - (let ((_%e7211772162%_ + (##cdr _%e7288072918%_)))) + (if (gx#stx-pair? _%tl7288272925%_) + (let ((_%e7288372928%_ (gx#syntax-e - _%tl7211672159%_))) - (let ((_%hd7211872166%_ + _%tl7288272925%_))) + (let ((_%hd7288472932%_ (let () (declare (not safe)) - (##car _%e7211772162%_))) - (_%tl7211972169%_ + (##car _%e7288372928%_))) + (_%tl7288572935%_ (let () (declare (not safe)) - (##cdr _%e7211772162%_)))) + (##cdr _%e7288372928%_)))) (if (gx#stx-null? - _%tl7211972169%_) - ((lambda (_%L72172%_ - _%L72174%_ - _%L72175%_ - _%L72176%_) - (_%wrap69586%_ + _%tl7288572935%_) + ((lambda (_%L72938%_ + _%L72940%_ + _%L72941%_ + _%L72942%_) + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L72174%_ + (cons (cons _%L72940%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '$obj) (cons (gx#datum->syntax '#f ':) - (cons _%L69778%_ '()))) - (cons _%L72176%_ '()))) + (cons _%L70544%_ '()))) + (cons _%L72942%_ '()))) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':void) - (cons (cons _%L72172%_ + (cons (cons _%L72938%_ (cons (gx#datum->syntax '#f '$obj) - (cons _%L72175%_ + (cons _%L72941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%hd7211872166%_ - _%hd7211572156%_ - _%hd7211272146%_ - _%hd7210972136%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7210272125%_ - _%g7210372129%_)))) - (_%g7210272125%_ - _%g7210372129%_)))) - (_%g7210272125%_ _%g7210372129%_)))) - (_%g7210272125%_ _%g7210372129%_)))) - (_%g7210272125%_ _%g7210372129%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7210172201%_ - (list (cons _%slot72089%_ - _%contract72099%_) - _%slot72089%_ - _%setf72091%_ + _%hd7288472932%_ + _%hd7288172922%_ + _%hd7287872912%_ + _%hd7287572902%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7286872891%_ + _%g7286972895%_)))) + (_%g7286872891%_ + _%g7286972895%_)))) + (_%g7286872891%_ _%g7286972895%_)))) + (_%g7286872891%_ _%g7286972895%_)))) + (_%g7286872891%_ _%g7286972895%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7286772967%_ + (list (cons _%slot72855%_ + _%contract72865%_) + _%slot72855%_ + _%setf72857%_ (gx#stx-identifier - _%rawsetf72092%_ + _%rawsetf72858%_ '"&" - _%rawsetf72092%_)))) + _%rawsetf72858%_)))) '#f))) - (foldr (lambda (_%g7220472207%_ - _%g7220572210%_) - (cons _%g7220472207%_ - _%g7220572210%_)) + (foldr (lambda (_%g7297072973%_ + _%g7297172976%_) + (cons _%g7297072973%_ + _%g7297172976%_)) '() - _%L69967%_) - (foldr (lambda (_%g7221272215%_ - _%g7221372218%_) - (cons _%g7221272215%_ - _%g7221372218%_)) + _%L70733%_) + (foldr (lambda (_%g7297872981%_ + _%g7297972984%_) + (cons _%g7297872981%_ + _%g7297972984%_)) '() - _%L70180%_) - (foldr (lambda (_%g7222072223%_ - _%g7222172226%_) - (cons _%g7222072223%_ - _%g7222172226%_)) + _%L70946%_) + (foldr (lambda (_%g7298672989%_ + _%g7298772992%_) + (cons _%g7298672989%_ + _%g7298772992%_)) '() - _%L70251%_)))) + _%L71017%_)))) (declare (not safe)) - (##filter identity __tmp84332))))) - _%g7197771988%_)))) + (##filter identity __tmp85215))))) + _%g7274372754%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7197572229%_ - (if (or (not (null? _%type-constructor71157%_)) + (_%g7274172995%_ + (if (or (not (null? _%type-constructor71923%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69734%_)) - (zero? (hash-length _%slot-default-table69737%_))) - _%metaclass71261%_) + _%slot-contract-table70500%_)) + (zero? (hash-length _%slot-default-table70503%_))) + _%metaclass72027%_) (cons (gx#datum->syntax '#f 'begin) '()) - (if (and _%struct?69760%_ - (zero? (hash-length _%slot-default-table69737%_))) - (let* ((_%g7224572260%_ - (lambda (_%g7224672256%_) + (if (and _%struct?70526%_ + (zero? (hash-length _%slot-default-table70503%_))) + (let* ((_%g7301173026%_ + (lambda (_%g7301273022%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7224672256%_))) - (_%g7224472314%_ - (lambda (_%g7224672264%_) - (if (gx#stx-pair? _%g7224672264%_) - (let ((_%e7224972267%_ - (gx#syntax-e _%g7224672264%_))) - (let ((_%hd7225072271%_ + _%g7301273022%_))) + (_%g7301073080%_ + (lambda (_%g7301273030%_) + (if (gx#stx-pair? _%g7301273030%_) + (let ((_%e7301573033%_ + (gx#syntax-e _%g7301273030%_))) + (let ((_%hd7301673037%_ (let () (declare (not safe)) - (##car _%e7224972267%_))) - (_%tl7225172274%_ + (##car _%e7301573033%_))) + (_%tl7301773040%_ (let () (declare (not safe)) - (##cdr _%e7224972267%_)))) - (if (gx#stx-pair? _%tl7225172274%_) - (let ((_%e7225272277%_ + (##cdr _%e7301573033%_)))) + (if (gx#stx-pair? _%tl7301773040%_) + (let ((_%e7301873043%_ (gx#syntax-e - _%tl7225172274%_))) - (let ((_%hd7225372281%_ + _%tl7301773040%_))) + (let ((_%hd7301973047%_ (let () (declare (not safe)) - (##car _%e7225272277%_))) - (_%tl7225472284%_ + (##car _%e7301873043%_))) + (_%tl7302073050%_ (let () (declare (not safe)) - (##cdr _%e7225272277%_)))) + (##cdr _%e7301873043%_)))) (if (gx#stx-null? - _%tl7225472284%_) - ((lambda (_%L72287%_ - _%L72289%_) - (_%wrap69586%_ + _%tl7302073050%_) + ((lambda (_%L73053%_ + _%L73055%_) + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69844%_ + (cons (cons _%L70610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72289%_) + _%L73055%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69778%_ + (cons _%L70544%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11102,198 +11563,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72287%_ '())) + (cons _%L73053%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72287%_ - (foldr (lambda (_%g7230572308%_ - _%g7230672311%_) - (cons _%g7230572308%_ - _%g7230672311%_)) + (cons _%L73053%_ + (foldr (lambda (_%g7307173074%_ + _%g7307273077%_) + (cons _%g7307173074%_ + _%g7307273077%_)) '() - _%L70038%_))) + _%L70804%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7225372281%_ - _%hd7225072271%_) - (_%g7224572260%_ - _%g7224672264%_)))) - (_%g7224572260%_ - _%g7224672264%_)))) - (_%g7224572260%_ _%g7224672264%_))))) - (_%g7224472314%_ - (list (foldr (lambda (_%slot72318%_ _%r72320%_) - (let ((_%$e72322%_ + _%hd7301973047%_ + _%hd7301673037%_) + (_%g7301173026%_ + _%g7301273030%_)))) + (_%g7301173026%_ + _%g7301273030%_)))) + (_%g7301173026%_ _%g7301273030%_))))) + (_%g7301073080%_ + (list (foldr (lambda (_%slot73084%_ _%r73086%_) + (let ((_%$e73088%_ (hash-get - _%slot-contract-table69734%_ - (gx#stx-e _%slot72318%_)))) - (if _%$e72322%_ - ((lambda (_%contract72326%_) - (let* ((_%g7232972353%_ - (lambda (_%g7233072349%_) + _%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" - _%g7233072349%_))) - (_%g7232872443%_ - (lambda (_%g7233072357%_) + _%g7309673115%_))) + (_%g7309473209%_ + (lambda (_%g7309673123%_) (if (gx#stx-pair? - _%g7233072357%_) - (let ((_%e7233372360%_ + _%g7309673123%_) + (let ((_%e7309973126%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7233072357%_))) - (let ((_%hd7233472364%_ + (gx#syntax-e _%g7309673123%_))) + (let ((_%hd7310073130%_ (let () (declare (not safe)) - (##car _%e7233372360%_))) - (_%tl7233572367%_ + (##car _%e7309973126%_))) + (_%tl7310173133%_ (let () (declare (not safe)) - (##cdr _%e7233372360%_)))) - (if (gx#stx-pair? _%tl7233572367%_) - (let ((_%e7233672370%_ - (gx#syntax-e _%tl7233572367%_))) - (let ((_%hd7233772374%_ + (##cdr _%e7309973126%_)))) + (if (gx#stx-pair? _%tl7310173133%_) + (let ((_%e7310273136%_ + (gx#syntax-e _%tl7310173133%_))) + (let ((_%hd7310373140%_ (let () (declare (not safe)) - (##car _%e7233672370%_))) - (_%tl7233872377%_ + (##car _%e7310273136%_))) + (_%tl7310473143%_ (let () (declare (not safe)) - (##cdr _%e7233672370%_)))) - (if (gx#stx-pair/null? _%hd7233772374%_) - (let ((_g84333_ + (##cdr _%e7310273136%_)))) + (if (gx#stx-pair/null? _%hd7310373140%_) + (let ((_g85216_ (gx#syntax-split-splice - _%hd7233772374%_ + _%hd7310373140%_ '0))) (begin - (let ((_g84334_ + (let ((_g85217_ (let () (declare (not safe)) - (if (##values? _g84333_) + (if (##values? _g85216_) (##values-length - _g84333_) + _g85216_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84334_ 2))) + (##fx= _g85217_ 2))) (error "Context expects 2 values" - _g84334_))) - (let ((_%target7233972380%_ + _g85217_))) + (let ((_%target7310573146%_ (let () (declare (not safe)) - (##values-ref _g84333_ 0))) - (_%tl7234172383%_ + (##values-ref _g85216_ 0))) + (_%tl7310773149%_ (let () (declare (not safe)) (##values-ref - _g84333_ + _g85216_ 1)))) (if (gx#stx-null? - _%tl7234172383%_) - (letrec ((_%loop7234272386%_ - (lambda (_%hd7234072390%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7234672393%_) - (if (gx#stx-pair? _%hd7234072390%_) - (let ((_%e7234372396%_ - (gx#syntax-e _%hd7234072390%_))) - (let ((_%lp-hd7234472400%_ + _%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 _%e7234372396%_))) - (_%lp-tl7234572403%_ + (##car _%e7310973162%_))) + (_%lp-tl7311173169%_ (let () (declare (not safe)) - (##cdr _%e7234372396%_)))) - (_%loop7234272386%_ - _%lp-tl7234572403%_ - (cons _%lp-hd7234472400%_ - _%contract7234672393%_)))) - (let ((_%contract7234772406%_ - (reverse _%contract7234672393%_))) - (if (gx#stx-null? _%tl7233872377%_) - ((lambda (_%L72410%_ _%L72412%_) - (cons (cons _%L72412%_ - (foldr (lambda (_%g7243472437%_ - _%g7243572440%_) - (cons _%g7243472437%_ - _%g7243572440%_)) + (##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%_)) '() - _%L72410%_)) - _%r72320%_)) - _%contract7234772406%_ - _%hd7233472364%_) - (_%g7232972353%_ _%g7233072357%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7234272386%_ - _%target7233972380%_ + _%L73176%_)) + _%r73086%_)) + _%contract7311373172%_ + _%hd7310073130%_) + (_%g7309573119%_ _%g7309673123%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7310873152%_ + _%target7310573146%_ '())) - (_%g7232972353%_ - _%g7233072357%_))))) - (_%g7232972353%_ _%g7233072357%_)))) - (_%g7232972353%_ _%g7233072357%_)))) - (_%g7232972353%_ _%g7233072357%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7232872443%_ - (list _%slot72318%_ - _%contract72326%_)))) - _%$e72322%_) - (cons _%slot72318%_ - _%r72320%_)))) + (_%g7309573119%_ + _%g7309673123%_))))) + (_%g7309573119%_ _%g7309673123%_)))) + (_%g7309573119%_ _%g7309673123%_)))) + (_%g7309573119%_ _%g7309673123%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7309473209%_ + (list _%slot73084%_ + _%contract73092%_)))) + _%$e73088%_) + (cons _%slot73084%_ + _%r73086%_)))) '() - (foldr (lambda (_%g7244872451%_ - _%g7244972454%_) - (cons _%g7244872451%_ - _%g7244972454%_)) + (foldr (lambda (_%g7321473217%_ + _%g7321573220%_) + (cons _%g7321473217%_ + _%g7321573220%_)) '() - _%L70038%_)) - (gx#core-quote-syntax _%L69816%_)))) - (let* ((_%g7245972474%_ - (lambda (_%g7246072470%_) + _%L70804%_)) + (gx#core-quote-syntax _%L70582%_)))) + (let* ((_%g7322573240%_ + (lambda (_%g7322673236%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7246072470%_))) - (_%g7245872527%_ - (lambda (_%g7246072478%_) - (if (gx#stx-pair? _%g7246072478%_) - (let ((_%e7246372481%_ - (gx#syntax-e _%g7246072478%_))) - (let ((_%hd7246472485%_ + _%g7322673236%_))) + (_%g7322473293%_ + (lambda (_%g7322673244%_) + (if (gx#stx-pair? _%g7322673244%_) + (let ((_%e7322973247%_ + (gx#syntax-e _%g7322673244%_))) + (let ((_%hd7323073251%_ (let () (declare (not safe)) - (##car _%e7246372481%_))) - (_%tl7246572488%_ + (##car _%e7322973247%_))) + (_%tl7323173254%_ (let () (declare (not safe)) - (##cdr _%e7246372481%_)))) - (if (gx#stx-pair? _%tl7246572488%_) - (let ((_%e7246672491%_ + (##cdr _%e7322973247%_)))) + (if (gx#stx-pair? _%tl7323173254%_) + (let ((_%e7323273257%_ (gx#syntax-e - _%tl7246572488%_))) - (let ((_%hd7246772495%_ + _%tl7323173254%_))) + (let ((_%hd7323373261%_ (let () (declare (not safe)) - (##car _%e7246672491%_))) - (_%tl7246872498%_ + (##car _%e7323273257%_))) + (_%tl7323473264%_ (let () (declare (not safe)) - (##cdr _%e7246672491%_)))) + (##cdr _%e7323273257%_)))) (if (gx#stx-null? - _%tl7246872498%_) - ((lambda (_%L72501%_ - _%L72503%_) - (_%wrap69586%_ + _%tl7323473264%_) + ((lambda (_%L73267%_ + _%L73269%_) + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69844%_ + (cons (cons _%L70610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72503%_) + _%L73269%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69778%_ + (cons _%L70544%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11301,301 +11762,301 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72501%_ '())) + (cons _%L73267%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72501%_ - (foldr (lambda (_%g7251872521%_ - _%g7251972524%_) - (cons _%g7251872521%_ - _%g7251972524%_)) + (cons _%L73267%_ + (foldr (lambda (_%g7328473287%_ + _%g7328573290%_) + (cons _%g7328473287%_ + _%g7328573290%_)) '() - _%L70038%_))) + _%L70804%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7246772495%_ - _%hd7246472485%_) - (_%g7245972474%_ - _%g7246072478%_)))) - (_%g7245972474%_ - _%g7246072478%_)))) - (_%g7245972474%_ _%g7246072478%_))))) - (_%g7245872527%_ - (list (foldr (lambda (_%slot72531%_ _%r72533%_) - (let* ((_%default72535%_ + _%hd7323373261%_ + _%hd7323073251%_) + (_%g7322573240%_ + _%g7322673244%_)))) + (_%g7322573240%_ + _%g7322673244%_)))) + (_%g7322573240%_ _%g7322673244%_))))) + (_%g7322473293%_ + (list (foldr (lambda (_%slot73297%_ _%r73299%_) + (let* ((_%default73301%_ (hash-get - _%slot-default-table69737%_ - (gx#stx-e _%slot72531%_))) - (_%$e72538%_ + _%slot-default-table70503%_ + (gx#stx-e _%slot73297%_))) + (_%$e73304%_ (hash-get - _%slot-contract-table69734%_ - (gx#stx-e _%slot72531%_)))) - (if _%$e72538%_ - ((lambda (_%contract72542%_) - (let* ((_%g7254572582%_ - (lambda (_%g7254672578%_) + _%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" - _%g7254672578%_))) - (_%g7254472729%_ - (lambda (_%g7254672586%_) + _%g7331273344%_))) + (_%g7331073495%_ + (lambda (_%g7331273352%_) (if (gx#stx-pair? - _%g7254672586%_) - (let ((_%e7255072589%_ + _%g7331273352%_) + (let ((_%e7331673355%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7254672586%_))) - (let ((_%hd7255172593%_ + (gx#syntax-e _%g7331273352%_))) + (let ((_%hd7331773359%_ (let () (declare (not safe)) - (##car _%e7255072589%_))) - (_%tl7255272596%_ + (##car _%e7331673355%_))) + (_%tl7331873362%_ (let () (declare (not safe)) - (##cdr _%e7255072589%_)))) - (if (gx#stx-pair? _%tl7255272596%_) - (let ((_%e7255372599%_ - (gx#syntax-e _%tl7255272596%_))) - (let ((_%hd7255472603%_ + (##cdr _%e7331673355%_)))) + (if (gx#stx-pair? _%tl7331873362%_) + (let ((_%e7331973365%_ + (gx#syntax-e _%tl7331873362%_))) + (let ((_%hd7332073369%_ (let () (declare (not safe)) - (##car _%e7255372599%_))) - (_%tl7255572606%_ + (##car _%e7331973365%_))) + (_%tl7332173372%_ (let () (declare (not safe)) - (##cdr _%e7255372599%_)))) - (if (gx#stx-pair/null? _%hd7255472603%_) - (let ((_g84335_ + (##cdr _%e7331973365%_)))) + (if (gx#stx-pair/null? _%hd7332073369%_) + (let ((_g85218_ (gx#syntax-split-splice - _%hd7255472603%_ + _%hd7332073369%_ '0))) (begin - (let ((_g84336_ + (let ((_g85219_ (let () (declare (not safe)) - (if (##values? _g84335_) + (if (##values? _g85218_) (##values-length - _g84335_) + _g85218_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84336_ 2))) + (##fx= _g85219_ 2))) (error "Context expects 2 values" - _g84336_))) - (let ((_%target7255672609%_ + _g85219_))) + (let ((_%target7332273375%_ (let () (declare (not safe)) - (##values-ref _g84335_ 0))) - (_%tl7255872612%_ + (##values-ref _g85218_ 0))) + (_%tl7332473378%_ (let () (declare (not safe)) (##values-ref - _g84335_ + _g85218_ 1)))) (if (gx#stx-null? - _%tl7255872612%_) - (letrec ((_%loop7255972615%_ - (lambda (_%hd7255772619%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7256372622%_) - (if (gx#stx-pair? _%hd7255772619%_) - (let ((_%e7256072625%_ - (gx#syntax-e _%hd7255772619%_))) - (let ((_%lp-hd7256172629%_ + _%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 _%e7256072625%_))) - (_%lp-tl7256272632%_ + (##car _%e7332673391%_))) + (_%lp-tl7332873398%_ (let () (declare (not safe)) - (##cdr _%e7256072625%_)))) - (_%loop7255972615%_ - _%lp-tl7256272632%_ - (cons _%lp-hd7256172629%_ - _%contract7256372622%_)))) - (let ((_%contract7256472635%_ - (reverse _%contract7256372622%_))) - (if (gx#stx-pair? _%tl7255572606%_) - (let ((_%e7256572639%_ - (gx#syntax-e _%tl7255572606%_))) - (let ((_%hd7256672643%_ + (##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 _%e7256572639%_))) - (_%tl7256772646%_ + (##car _%e7333173405%_))) + (_%tl7333373412%_ (let () (declare (not safe)) - (##cdr _%e7256572639%_)))) - (if (gx#stx-pair/null? _%hd7256672643%_) - (let ((_g84337_ + (##cdr _%e7333173405%_)))) + (if (gx#stx-pair/null? _%hd7333273409%_) + (let ((_g85220_ (gx#syntax-split-splice - _%hd7256672643%_ + _%hd7333273409%_ '0))) (begin - (let ((_g84338_ + (let ((_g85221_ (let () (declare (not safe)) - (if (##values? _g84337_) + (if (##values? _g85220_) (##values-length - _g84337_) + _g85220_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84338_ 2))) + (##fx= _g85221_ 2))) (error "Context expects 2 values" - _g84338_))) - (let ((_%target7256872649%_ + _g85221_))) + (let ((_%target7333473415%_ (let () (declare (not safe)) - (##values-ref _g84337_ 0))) - (_%tl7257072652%_ + (##values-ref _g85220_ 0))) + (_%tl7333673418%_ (let () (declare (not safe)) (##values-ref - _g84337_ + _g85220_ 1)))) (if (gx#stx-null? - _%tl7257072652%_) - (letrec ((_%loop7257172655%_ - (lambda (_%hd7256972659%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%default7257572662%_) - (if (gx#stx-pair? _%hd7256972659%_) - (let ((_%e7257272665%_ - (gx#syntax-e _%hd7256972659%_))) - (let ((_%lp-hd7257372669%_ + _%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 _%e7257272665%_))) - (_%lp-tl7257472672%_ + (##car _%e7333873431%_))) + (_%lp-tl7334073438%_ (let () (declare (not safe)) - (##cdr _%e7257272665%_)))) - (_%loop7257172655%_ - _%lp-tl7257472672%_ - (cons _%lp-hd7257372669%_ - _%default7257572662%_)))) - (let ((_%default7257672675%_ - (reverse _%default7257572662%_))) - (if (gx#stx-null? _%tl7256772646%_) - ((lambda (_%L72679%_ _%L72681%_ _%L72682%_) - (cons (symbol->keyword (gx#stx-e _%L72682%_)) - (cons (cons _%L72682%_ - (foldr (lambda (_%g7271272717%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7271372720%_) - (cons _%g7271272717%_ _%g7271372720%_)) - (foldr (lambda (_%g7271472723%_ _%g7271572726%_) - (cons _%g7271472723%_ _%g7271572726%_)) + (##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%_)) '() - _%L72679%_) - _%L72681%_)) + _%L73445%_) + _%L73447%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r72533%_))) - _%default7257672675%_ - _%contract7256472635%_ - _%hd7255172593%_) - (_%g7254572582%_ _%g7254672586%_))))))) + _%r73299%_))) + _%default7334273441%_ + _%contract7333073401%_ + _%hd7331773359%_) + (_%g7331173348%_ _%g7331273352%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7257172655%_ - _%target7256872649%_ + (_%loop7333773421%_ + _%target7333473415%_ '())) - (_%g7254572582%_ - _%g7254672586%_))))) - (_%g7254572582%_ _%g7254672586%_)))) - (_%g7254572582%_ _%g7254672586%_))))))) + (_%g7331173348%_ + _%g7331273352%_))))) + (_%g7331173348%_ _%g7331273352%_)))) + (_%g7331173348%_ _%g7331273352%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7255972615%_ - _%target7255672609%_ + (_%loop7332573381%_ + _%target7332273375%_ '())) - (_%g7254572582%_ - _%g7254672586%_))))) - (_%g7254572582%_ _%g7254672586%_)))) - (_%g7254572582%_ _%g7254672586%_)))) - (_%g7254572582%_ _%g7254672586%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7254472729%_ - (list _%slot72531%_ - _%contract72542%_ - (if _%default72535%_ + (_%g7331173348%_ + _%g7331273352%_))))) + (_%g7331173348%_ _%g7331273352%_)))) + (_%g7331173348%_ _%g7331273352%_)))) + (_%g7331173348%_ _%g7331273352%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7331073495%_ + (list _%slot73297%_ + _%contract73308%_ + (if _%default73301%_ (cons ':= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%default72535%_ '())) + (cons _%default73301%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e72538%_) + _%$e73304%_) (cons (symbol->keyword - (gx#stx-e _%slot72531%_)) - (cons (cons _%slot72531%_ - (cons _%default72535%_ + (gx#stx-e _%slot73297%_)) + (cons (cons _%slot73297%_ + (cons _%default73301%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%r72533%_))))) + _%r73299%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - (foldr (lambda (_%g7273472737%_ - _%g7273572740%_) - (cons _%g7273472737%_ - _%g7273572740%_)) + (foldr (lambda (_%g7350073503%_ + _%g7350173506%_) + (cons _%g7350073503%_ + _%g7350173506%_)) '() - _%L70038%_)) - (gx#core-quote-syntax _%L69816%_))))))))) + _%L70804%_)) + (gx#core-quote-syntax _%L70582%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7194971960%_)))) - (_%g7194772743%_ - (_%wrap69586%_ + _%g7271572726%_)))) + (_%g7271373509%_ + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L69778%_ + (cons _%L70544%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-type-info) (cons 'id: - (cons _%L71422%_ + (cons _%L72188%_ (cons 'name: - (cons _%L71450%_ + (cons _%L72216%_ (cons 'slots: - (cons _%L71506%_ + (cons _%L72272%_ (cons 'ordered-slots: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71534%_ + (cons _%L72300%_ (cons 'super: - (cons _%L71478%_ + (cons _%L72244%_ (cons 'struct?: - (cons _%L71646%_ + (cons _%L72412%_ (cons 'final?: - (cons _%L71674%_ + (cons _%L72440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'metaclass: - (cons _%L71702%_ + (cons _%L72468%_ (cons 'constructor-method: - (cons _%L71730%_ + (cons _%L72496%_ (cons 'type-descriptor: - (cons _%L71758%_ + (cons _%L72524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'constructor: - (cons _%L71786%_ + (cons _%L72552%_ (cons 'predicate: - (cons _%L71814%_ + (cons _%L72580%_ (cons 'accessors: - (cons _%L71842%_ + (cons _%L72608%_ (cons 'mutators: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71898%_ + (cons _%L72664%_ (cons 'unchecked-accessors: - (cons _%L71870%_ + (cons _%L72636%_ (cons 'unchecked-mutators: - (cons _%L71934%_ + (cons _%L72700%_ (cons 'slot-types: - (cons _%L71562%_ + (cons _%L72328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slot-contracts: - (cons _%L71590%_ + (cons _%L72356%_ (cons 'slot-defaults: - (cons _%L71618%_ + (cons _%L72384%_ '()))))))))))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11604,225 +12065,225 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7192071931%_)))) - (_%g7191872747%_ - (let* ((_%g7275172784%_ - (lambda (_%g7275272780%_) + _%g7268672697%_)))) + (_%g7268473513%_ + (let* ((_%g7351773550%_ + (lambda (_%g7351873546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7275272780%_))) - (_%g7275072913%_ - (lambda (_%g7275272788%_) - (if (gx#stx-pair? _%g7275272788%_) - (let ((_%e7275572791%_ + _%g7351873546%_))) + (_%g7351673679%_ + (lambda (_%g7351873554%_) + (if (gx#stx-pair? _%g7351873554%_) + (let ((_%e7352173557%_ (gx#syntax-e - _%g7275272788%_))) - (let ((_%hd7275672795%_ + _%g7351873554%_))) + (let ((_%hd7352273561%_ (let () (declare (not safe)) - (##car _%e7275572791%_))) - (_%tl7275772798%_ + (##car _%e7352173557%_))) + (_%tl7352373564%_ (let () (declare (not safe)) - (##cdr _%e7275572791%_)))) + (##cdr _%e7352173557%_)))) (if (gx#stx-pair/null? - _%hd7275672795%_) - (let ((_g84339_ + _%hd7352273561%_) + (let ((_g85222_ (gx#syntax-split-splice - _%hd7275672795%_ + _%hd7352273561%_ '0))) (begin - (let ((_g84340_ + (let ((_g85223_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84339_) - (##values-length _g84339_) + (if (##values? _g85222_) + (##values-length _g85222_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84340_ 2))) - (error "Context expects 2 values" _g84340_))) - (let ((_%target7275872801%_ - (let () (declare (not safe)) (##values-ref _g84339_ 0))) - (_%tl7276072804%_ - (let () (declare (not safe)) (##values-ref _g84339_ 1)))) - (if (gx#stx-null? _%tl7276072804%_) - (letrec ((_%loop7276172807%_ - (lambda (_%hd7275972811%_ - _%slot-usetf7276572814%_) - (if (gx#stx-pair? _%hd7275972811%_) - (let ((_%e7276272817%_ - (gx#syntax-e _%hd7275972811%_))) - (let ((_%lp-hd7276372821%_ + (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 _%e7276272817%_))) - (_%lp-tl7276472824%_ + (##car _%e7352873583%_))) + (_%lp-tl7353073590%_ (let () (declare (not safe)) - (##cdr _%e7276272817%_)))) - (_%loop7276172807%_ - _%lp-tl7276472824%_ - (cons _%lp-hd7276372821%_ - _%slot-usetf7276572814%_)))) - (let ((_%slot-usetf7276672827%_ - (reverse _%slot-usetf7276572814%_))) - (if (gx#stx-pair? _%tl7275772798%_) - (let ((_%e7276772831%_ + (##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 - _%tl7275772798%_))) - (let ((_%hd7276872835%_ + _%tl7352373564%_))) + (let ((_%hd7353473601%_ (let () (declare (not safe)) - (##car _%e7276772831%_))) - (_%tl7276972838%_ + (##car _%e7353373597%_))) + (_%tl7353573604%_ (let () (declare (not safe)) - (##cdr _%e7276772831%_)))) + (##cdr _%e7353373597%_)))) (if (gx#stx-pair/null? - _%hd7276872835%_) - (let ((_g84341_ + _%hd7353473601%_) + (let ((_g85224_ (gx#syntax-split-splice - _%hd7276872835%_ + _%hd7353473601%_ '0))) (begin - (let ((_g84342_ + (let ((_g85225_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84341_) - (##values-length _g84341_) + (if (##values? _g85224_) + (##values-length _g85224_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84342_ 2))) - (error "Context expects 2 values" _g84342_))) - (let ((_%target7277072841%_ - (let () (declare (not safe)) (##values-ref _g84341_ 0))) - (_%tl7277272844%_ - (let () (declare (not safe)) (##values-ref _g84341_ 1)))) - (if (gx#stx-null? _%tl7277272844%_) - (letrec ((_%loop7277372847%_ - (lambda (_%hd7277172851%_ - _%mixin-slot-usetf7277772854%_) - (if (gx#stx-pair? _%hd7277172851%_) - (let ((_%e7277472857%_ - (gx#syntax-e _%hd7277172851%_))) - (let ((_%lp-hd7277572861%_ + (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 _%e7277472857%_))) - (_%lp-tl7277672864%_ + (##car _%e7354073623%_))) + (_%lp-tl7354273630%_ (let () (declare (not safe)) - (##cdr _%e7277472857%_)))) - (_%loop7277372847%_ - _%lp-tl7277672864%_ - (cons _%lp-hd7277572861%_ - _%mixin-slot-usetf7277772854%_)))) - (let ((_%mixin-slot-usetf7277872867%_ - (reverse _%mixin-slot-usetf7277772854%_))) - (if (gx#stx-null? _%tl7276972838%_) - ((lambda (_%L72871%_ _%L72873%_) + (##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 (_%g7289672901%_ + (foldr (lambda (_%g7366273667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7289772904%_) - (cons _%g7289672901%_ _%g7289772904%_)) - (foldr (lambda (_%g7289872907%_ _%g7289972910%_) - (cons _%g7289872907%_ _%g7289972910%_)) + _%g7366373670%_) + (cons _%g7366273667%_ _%g7366373670%_)) + (foldr (lambda (_%g7366473673%_ _%g7366573676%_) + (cons _%g7366473673%_ _%g7366573676%_)) '() - _%L72871%_) - _%L72873%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot-usetf7277872867%_ - _%slot-usetf7276672827%_) - (_%g7275172784%_ - _%g7275272788%_))))))) - (_%loop7277372847%_ _%target7277072841%_ '())) - (_%g7275172784%_ _%g7275272788%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7275172784%_ - _%g7275272788%_)))) - (_%g7275172784%_ - _%g7275272788%_))))))) - (_%loop7276172807%_ _%target7275872801%_ '())) - (_%g7275172784%_ _%g7275272788%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7275172784%_ - _%g7275272788%_)))) - (_%g7275172784%_ _%g7275272788%_))))) - (_%g7275072913%_ - (list (map _%map-slot-usetf71916%_ - (foldr (lambda (_%g7291672919%_ - _%g7291772922%_) - (cons _%g7291672919%_ - _%g7291772922%_)) + _%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%_)) '() - _%L69967%_) - (foldr (lambda (_%g7292472927%_ - _%g7292572930%_) - (cons _%g7292472927%_ - _%g7292572930%_)) + _%L70733%_) + (foldr (lambda (_%g7369073693%_ + _%g7369173696%_) + (cons _%g7369073693%_ + _%g7369173696%_)) '() - _%L70677%_) - (foldr (lambda (_%g7293272935%_ - _%g7293372938%_) - (cons _%g7293272935%_ - _%g7293372938%_)) + _%L71443%_) + (foldr (lambda (_%g7369873701%_ + _%g7369973704%_) + (cons _%g7369873701%_ + _%g7369973704%_)) '() - _%L70251%_)) - (map _%map-slot-usetf71916%_ - (foldr (lambda (_%g7294072943%_ - _%g7294172946%_) - (cons _%g7294072943%_ - _%g7294172946%_)) + _%L71017%_)) + (map _%map-slot-usetf72682%_ + (foldr (lambda (_%g7370673709%_ + _%g7370773712%_) + (cons _%g7370673709%_ + _%g7370773712%_)) '() - _%L70322%_) - (foldr (lambda (_%g7294872951%_ - _%g7294972954%_) - (cons _%g7294872951%_ - _%g7294972954%_)) + _%L71088%_) + (foldr (lambda (_%g7371473717%_ + _%g7371573720%_) + (cons _%g7371473717%_ + _%g7371573720%_)) '() - _%L70819%_) - (foldr (lambda (_%g7295672959%_ - _%g7295772962%_) - (cons _%g7295672959%_ - _%g7295772962%_)) + _%L71585%_) + (foldr (lambda (_%g7372273725%_ + _%g7372373728%_) + (cons _%g7372273725%_ + _%g7372373728%_)) '() - _%L70535%_)))))))) - _%g7188471895%_)))) - (_%g7188272965%_ + _%L71301%_)))))))) + _%g7265072661%_)))) + (_%g7264873731%_ (cons (gx#datum->syntax '#f '@list) (begin - (gx#syntax-check-splice-targets _%L70180%_ _%L69967%_) - (foldr (lambda (_%g7296872975%_ - _%g7296972978%_ - _%g7297072980%_) + (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 _%g7296972978%_ + (cons _%g7373573744%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7296872975%_ '())) + (cons _%g7373473741%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7297072980%_)) + _%g7373673746%_)) (begin (gx#syntax-check-splice-targets - _%L70464%_ - _%L70322%_) - (foldr (lambda (_%g7297172983%_ - _%g7297272986%_ - _%g7297372988%_) + _%L71230%_ + _%L71088%_) + (foldr (lambda (_%g7373773749%_ + _%g7373873752%_ + _%g7373973754%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11830,76 +12291,76 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7297272986%_ '())) + (cons _%g7373873752%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7297172983%_ '())) + (cons _%g7373773749%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7297372988%_)) + _%g7373973754%_)) '() - _%L70464%_ - _%L70322%_)) - _%L70180%_ - _%L69967%_)))))) + _%L71230%_ + _%L71088%_)) + _%L70946%_ + _%L70733%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7185671867%_)))) - (_%g7185472991%_ + _%g7262272633%_)))) + (_%g7262073757%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70606%_ - _%L69967%_) - (foldr (lambda (_%g7299473001%_ + _%L71372%_ + _%L70733%_) + (foldr (lambda (_%g7376073767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7299573004%_ - _%g7299673006%_) + _%g7376173770%_ + _%g7376273772%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7299573004%_ '())) + (cons _%g7376173770%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7299473001%_ + (cons _%g7376073767%_ '())) '())))) - _%g7299673006%_)) + _%g7376273772%_)) (begin - (gx#syntax-check-splice-targets _%L70748%_ _%L70322%_) - (foldr (lambda (_%g7299773009%_ - _%g7299873012%_ - _%g7299973014%_) + (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 _%g7299873012%_ '())) + (cons _%g7376473778%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7299773009%_ '())) + (cons _%g7376373775%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7299973014%_)) + _%g7376573780%_)) '() - _%L70748%_ - _%L70322%_)) - _%L70606%_ - _%L69967%_)))))) + _%L71514%_ + _%L71088%_)) + _%L71372%_ + _%L70733%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7182871839%_)))) - (_%g7182673017%_ + _%g7259472605%_)))) + (_%g7259273783%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70109%_ - _%L69967%_) - (foldr (lambda (_%g7302073027%_ - _%g7302173030%_ - _%g7302273032%_) + _%L70875%_ + _%L70733%_) + (foldr (lambda (_%g7378673793%_ + _%g7378773796%_ + _%g7378873798%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11907,454 +12368,454 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7302173030%_ '())) + (cons _%g7378773796%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7302073027%_ '())) + (cons _%g7378673793%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7302273032%_)) + _%g7378873798%_)) (begin (gx#syntax-check-splice-targets - _%L70393%_ - _%L70322%_) - (foldr (lambda (_%g7302373035%_ - _%g7302473038%_ - _%g7302573040%_) + _%L71159%_ + _%L71088%_) + (foldr (lambda (_%g7378973801%_ + _%g7379073804%_ + _%g7379173806%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7302473038%_ '())) + (cons _%g7379073804%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7302373035%_ '())) + (cons _%g7378973801%_ '())) '())))) - _%g7302573040%_)) + _%g7379173806%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L70393%_ - _%L70322%_)) - _%L70109%_ - _%L69967%_)))))) - _%g7180071811%_)))) - (_%g7179873043%_ + _%L71159%_ + _%L71088%_)) + _%L70875%_ + _%L70733%_)))))) + _%g7256672577%_)))) + (_%g7256473809%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69872%_ '()))))) + (cons _%L70638%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7177271783%_)))) - (_%g7177073047%_ + _%g7253872549%_)))) + (_%g7253673813%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69844%_ '()))))) - _%g7174471755%_)))) - (_%g7174273051%_ + (cons _%L70610%_ '()))))) + _%g7251072521%_)))) + (_%g7250873817%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69816%_ '()))))) - _%g7171671727%_)))) - (_%g7171473055%_ - (if (null? _%type-constructor71157%_) + (cons _%L70582%_ '()))))) + _%g7248272493%_)))) + (_%g7248073821%_ + (if (null? _%type-constructor71923%_) '#f - (let* ((_%g7305973074%_ - (lambda (_%g7306073070%_) + (let* ((_%g7382573840%_ + (lambda (_%g7382673836%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7306073070%_))) - (_%g7305873122%_ - (lambda (_%g7306073078%_) - (if (gx#stx-pair? _%g7306073078%_) - (let ((_%e7306273081%_ - (gx#syntax-e _%g7306073078%_))) - (let ((_%hd7306373085%_ + _%g7382673836%_))) + (_%g7382473888%_ + (lambda (_%g7382673844%_) + (if (gx#stx-pair? _%g7382673844%_) + (let ((_%e7382873847%_ + (gx#syntax-e _%g7382673844%_))) + (let ((_%hd7382973851%_ (let () (declare (not safe)) - (##car _%e7306273081%_))) - (_%tl7306473088%_ + (##car _%e7382873847%_))) + (_%tl7383073854%_ (let () (declare (not safe)) - (##cdr _%e7306273081%_)))) - (if (gx#stx-datum? _%hd7306373085%_) - (let ((_%e7306573091%_ - (gx#stx-e _%hd7306373085%_))) - (if (equal? _%e7306573091%_ + (##cdr _%e7382873847%_)))) + (if (gx#stx-datum? _%hd7382973851%_) + (let ((_%e7383173857%_ + (gx#stx-e _%hd7382973851%_))) + (if (equal? _%e7383173857%_ 'constructor:) (if (gx#stx-pair? - _%tl7306473088%_) - (let ((_%e7306673095%_ + _%tl7383073854%_) + (let ((_%e7383273861%_ (gx#syntax-e - _%tl7306473088%_))) - (let ((_%hd7306773099%_ + _%tl7383073854%_))) + (let ((_%hd7383373865%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7306673095%_))) - (_%tl7306873102%_ - (let () (declare (not safe)) (##cdr _%e7306673095%_)))) - (if (gx#stx-null? _%tl7306873102%_) - ((lambda (_%L73105%_) + (##car _%e7383273861%_))) + (_%tl7383473868%_ + (let () (declare (not safe)) (##cdr _%e7383273861%_)))) + (if (gx#stx-null? _%tl7383473868%_) + ((lambda (_%L73871%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L73105%_ '()))) - _%hd7306773099%_) - (_%g7305973074%_ _%g7306073078%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7305973074%_ - _%g7306073078%_)) - (_%g7305973074%_ - _%g7306073078%_))) - (_%g7305973074%_ _%g7306073078%_)))) - (_%g7305973074%_ _%g7306073078%_))))) - (_%g7305873122%_ _%type-constructor71157%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7168871699%_)))) - (_%g7168673126%_ - (if _%metaclass71261%_ - (let* ((_%g7313073138%_ - (lambda (_%g7313173134%_) + (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" - _%g7313173134%_))) - (_%g7312973157%_ - (lambda (_%g7313173142%_) - ((lambda (_%L73145%_) + _%g7389773900%_))) + (_%g7389573923%_ + (lambda (_%g7389773908%_) + ((lambda (_%L73911%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L73145%_ '()))) - _%g7313173142%_)))) + (cons _%L73911%_ '()))) + _%g7389773908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7312973157%_ - _%metaclass71261%_)) + (_%g7389573923%_ + _%metaclass72027%_)) '#f)))) - _%g7166071671%_)))) - (_%g7165873161%_ _%final?71264%_))) - _%g7163271643%_)))) - (_%g7163073165%_ _%struct?69760%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7160471615%_)))) - (_%g7160273169%_ - (let* ((_%g7317373196%_ - (lambda (_%g7317473192%_) + _%g7242672437%_)))) + (_%g7242473927%_ _%final?72030%_))) + _%g7239872409%_)))) + (_%g7239673931%_ _%struct?70526%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7237072381%_)))) + (_%g7236873935%_ + (let* ((_%g7393973962%_ + (lambda (_%g7394073958%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7317473192%_))) - (_%g7317273276%_ - (lambda (_%g7317473200%_) + _%g7394073958%_))) + (_%g7393874042%_ + (lambda (_%g7394073966%_) (if (gx#stx-pair/null? - _%g7317473200%_) - (let ((_g84343_ + _%g7394073966%_) + (let ((_g85226_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7317473200%_ '0))) + (gx#syntax-split-splice _%g7394073966%_ '0))) (begin - (let ((_g84344_ + (let ((_g85227_ (let () (declare (not safe)) - (if (##values? _g84343_) - (##values-length _g84343_) + (if (##values? _g85226_) + (##values-length _g85226_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84344_ 2))) - (error "Context expects 2 values" _g84344_))) - (let ((_%target7317773203%_ + (##fx= _g85227_ 2))) + (error "Context expects 2 values" _g85227_))) + (let ((_%target7394373969%_ (let () (declare (not safe)) - (##values-ref _g84343_ 0))) - (_%tl7317973206%_ + (##values-ref _g85226_ 0))) + (_%tl7394573972%_ (let () (declare (not safe)) - (##values-ref _g84343_ 1)))) - (if (gx#stx-null? _%tl7317973206%_) - (letrec ((_%loop7318073209%_ - (lambda (_%hd7317873213%_ - _%default7318473216%_ - _%slot7318573218%_) - (if (gx#stx-pair? _%hd7317873213%_) - (let ((_%e7318173221%_ + (##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 - _%hd7317873213%_))) - (let ((_%lp-hd7318273225%_ + _%hd7394473979%_))) + (let ((_%lp-hd7394873991%_ (let () (declare (not safe)) - (##car _%e7318173221%_))) - (_%lp-tl7318373228%_ + (##car _%e7394773987%_))) + (_%lp-tl7394973994%_ (let () (declare (not safe)) - (##cdr _%e7318173221%_)))) + (##cdr _%e7394773987%_)))) (if (gx#stx-pair? - _%lp-hd7318273225%_) - (let ((_%e7318873231%_ + _%lp-hd7394873991%_) + (let ((_%e7395473997%_ (gx#syntax-e - _%lp-hd7318273225%_))) - (let ((_%hd7318973235%_ + _%lp-hd7394873991%_))) + (let ((_%hd7395574001%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7318873231%_))) - (_%tl7319073238%_ - (let () (declare (not safe)) (##cdr _%e7318873231%_)))) - (_%loop7318073209%_ - _%lp-tl7318373228%_ - (cons _%tl7319073238%_ _%default7318473216%_) - (cons _%hd7318973235%_ _%slot7318573218%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7317373196%_ - _%g7317473200%_)))) - (let ((_%default7318673241%_ - (reverse _%default7318473216%_)) - (_%slot7318773244%_ - (reverse _%slot7318573218%_))) - ((lambda (_%L73247%_ _%L73249%_) + (##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 - _%L73247%_ - _%L73249%_) - (foldr (lambda (_%g7326473268%_ + _%L74013%_ + _%L74015%_) + (foldr (lambda (_%g7403074034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7326573271%_ - _%g7326673273%_) + _%g7403174037%_ + _%g7403274039%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7326573271%_ '())) + (cons _%g7403174037%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7326473268%_ + (cons _%g7403074034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7326673273%_)) + _%g7403274039%_)) '() - _%L73247%_ - _%L73249%_)))) + _%L74013%_ + _%L74015%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default7318673241%_ - _%slot7318773244%_)))))) - (_%loop7318073209%_ - _%target7317773203%_ + _%default7395274007%_ + _%slot7395374010%_)))))) + (_%loop7394673975%_ + _%target7394373969%_ '() '())) - (_%g7317373196%_ _%g7317473200%_))))) - (_%g7317373196%_ _%g7317473200%_))))) + (_%g7393973962%_ _%g7394073966%_))))) + (_%g7393973962%_ _%g7394073966%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7317273276%_ + (_%g7393874042%_ (hash->list - _%slot-default-table69737%_)))))) - _%g7157671587%_)))) - (_%g7157473280%_ - (let* ((_%g7328473307%_ - (lambda (_%g7328573303%_) + _%slot-default-table70503%_)))))) + _%g7234272353%_)))) + (_%g7234074046%_ + (let* ((_%g7405074073%_ + (lambda (_%g7405174069%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7328573303%_))) - (_%g7328373387%_ - (lambda (_%g7328573311%_) + _%g7405174069%_))) + (_%g7404974153%_ + (lambda (_%g7405174077%_) (if (gx#stx-pair/null? - _%g7328573311%_) - (let ((_g84345_ + _%g7405174077%_) + (let ((_g85228_ (gx#syntax-split-splice - _%g7328573311%_ + _%g7405174077%_ '0))) (begin - (let ((_g84346_ + (let ((_g85229_ (let () (declare (not safe)) (if (##values? - _g84345_) + _g85228_) (##values-length - _g84345_) + _g85228_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84346_ 2))) - (error "Context expects 2 values" _g84346_))) + (##fx= _g85229_ 2))) + (error "Context expects 2 values" _g85229_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7328873314%_ + (let ((_%target7405474080%_ (let () (declare (not safe)) (##values-ref - _g84345_ + _g85228_ 0))) - (_%tl7329073317%_ + (_%tl7405674083%_ (let () (declare (not safe)) (##values-ref - _g84345_ + _g85228_ 1)))) (if (gx#stx-null? - _%tl7329073317%_) - (letrec ((_%loop7329173320%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7328973324%_ - _%contract7329573327%_ - _%slot7329673329%_) - (if (gx#stx-pair? _%hd7328973324%_) - (let ((_%e7329273332%_ - (gx#syntax-e _%hd7328973324%_))) - (let ((_%lp-hd7329373336%_ + _%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 _%e7329273332%_))) - (_%lp-tl7329473339%_ + (##car _%e7405874098%_))) + (_%lp-tl7406074105%_ (let () (declare (not safe)) - (##cdr _%e7329273332%_)))) - (if (gx#stx-pair? _%lp-hd7329373336%_) - (let ((_%e7329973342%_ + (##cdr _%e7405874098%_)))) + (if (gx#stx-pair? _%lp-hd7405974102%_) + (let ((_%e7406574108%_ (gx#syntax-e - _%lp-hd7329373336%_))) - (let ((_%hd7330073346%_ + _%lp-hd7405974102%_))) + (let ((_%hd7406674112%_ (let () (declare (not safe)) - (##car _%e7329973342%_))) - (_%tl7330173349%_ + (##car _%e7406574108%_))) + (_%tl7406774115%_ (let () (declare (not safe)) - (##cdr _%e7329973342%_)))) - (_%loop7329173320%_ - _%lp-tl7329473339%_ - (cons _%tl7330173349%_ - _%contract7329573327%_) - (cons _%hd7330073346%_ - _%slot7329673329%_)))) - (_%g7328473307%_ _%g7328573311%_)))) - (let ((_%contract7329773352%_ - (reverse _%contract7329573327%_)) - (_%slot7329873355%_ - (reverse _%slot7329673329%_))) - ((lambda (_%L73358%_ _%L73360%_) + (##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 - _%L73358%_ - _%L73360%_) - (foldr (lambda (_%g7337573379%_ - _%g7337673382%_ - _%g7337773384%_) + _%L74124%_ + _%L74126%_) + (foldr (lambda (_%g7414174145%_ + _%g7414274148%_ + _%g7414374150%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7337673382%_ '())) + (cons _%g7414274148%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7337573379%_ '())) + (cons _%g7414174145%_ '())) '())))) - _%g7337773384%_)) + _%g7414374150%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L73358%_ - _%L73360%_)))) - _%contract7329773352%_ - _%slot7329873355%_)))))) - (_%loop7329173320%_ _%target7328873314%_ '() '())) - (_%g7328473307%_ _%g7328573311%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7328473307%_ - _%g7328573311%_))))) - (_%g7328373387%_ + _%L74124%_ + _%L74126%_)))) + _%contract7406374118%_ + _%slot7406474121%_)))))) + (_%loop7405774086%_ _%target7405474080%_ '() '())) + (_%g7405074073%_ _%g7405174077%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7405074073%_ + _%g7405174077%_))))) + (_%g7404974153%_ (hash->list - _%slot-contract-table69734%_)))))) - _%g7154871559%_)))) - (_%g7154673391%_ - (let* ((_%g7339573418%_ - (lambda (_%g7339673414%_) + _%slot-contract-table70500%_)))))) + _%g7231472325%_)))) + (_%g7231274157%_ + (let* ((_%g7416174184%_ + (lambda (_%g7416274180%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7339673414%_))) - (_%g7339473498%_ - (lambda (_%g7339673422%_) - (if (gx#stx-pair/null? _%g7339673422%_) - (let ((_g84347_ + _%g7416274180%_))) + (_%g7416074264%_ + (lambda (_%g7416274188%_) + (if (gx#stx-pair/null? _%g7416274188%_) + (let ((_g85230_ (gx#syntax-split-splice - _%g7339673422%_ + _%g7416274188%_ '0))) (begin - (let ((_g84348_ + (let ((_g85231_ (let () (declare (not safe)) - (if (##values? _g84347_) - (##values-length _g84347_) + (if (##values? _g85230_) + (##values-length _g85230_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84348_ 2))) + (##fx= _g85231_ 2))) (error "Context expects 2 values" - _g84348_))) - (let ((_%target7339973425%_ + _g85231_))) + (let ((_%target7416574191%_ (let () (declare (not safe)) - (##values-ref _g84347_ 0))) - (_%tl7340173428%_ + (##values-ref _g85230_ 0))) + (_%tl7416774194%_ (let () (declare (not safe)) - (##values-ref _g84347_ 1)))) - (if (gx#stx-null? _%tl7340173428%_) - (letrec ((_%loop7340273431%_ - (lambda (_%hd7340073435%_ - _%type7340673438%_ - _%slot7340773440%_) + (##values-ref _g85230_ 1)))) + (if (gx#stx-null? _%tl7416774194%_) + (letrec ((_%loop7416874197%_ + (lambda (_%hd7416674201%_ + _%type7417274204%_ + _%slot7417374206%_) (if (gx#stx-pair? - _%hd7340073435%_) - (let ((_%e7340373443%_ + _%hd7416674201%_) + (let ((_%e7416974209%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7340073435%_))) - (let ((_%lp-hd7340473447%_ + (gx#syntax-e _%hd7416674201%_))) + (let ((_%lp-hd7417074213%_ (let () (declare (not safe)) - (##car _%e7340373443%_))) - (_%lp-tl7340573450%_ + (##car _%e7416974209%_))) + (_%lp-tl7417174216%_ (let () (declare (not safe)) - (##cdr _%e7340373443%_)))) - (if (gx#stx-pair? _%lp-hd7340473447%_) - (let ((_%e7341073453%_ - (gx#syntax-e _%lp-hd7340473447%_))) - (let ((_%hd7341173457%_ + (##cdr _%e7416974209%_)))) + (if (gx#stx-pair? _%lp-hd7417074213%_) + (let ((_%e7417674219%_ + (gx#syntax-e _%lp-hd7417074213%_))) + (let ((_%hd7417774223%_ (let () (declare (not safe)) - (##car _%e7341073453%_))) - (_%tl7341273460%_ + (##car _%e7417674219%_))) + (_%tl7417874226%_ (let () (declare (not safe)) - (##cdr _%e7341073453%_)))) - (_%loop7340273431%_ - _%lp-tl7340573450%_ - (cons _%tl7341273460%_ _%type7340673438%_) - (cons _%hd7341173457%_ _%slot7340773440%_)))) - (_%g7339573418%_ _%g7339673422%_)))) - (let ((_%type7340873463%_ (reverse _%type7340673438%_)) - (_%slot7340973466%_ (reverse _%slot7340773440%_))) - ((lambda (_%L73469%_ _%L73471%_) + (##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 - _%L73469%_ - _%L73471%_) - (foldr (lambda (_%g7348673490%_ - _%g7348773493%_ - _%g7348873495%_) + _%L74235%_ + _%L74237%_) + (foldr (lambda (_%g7425274256%_ + _%g7425374259%_ + _%g7425474261%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -12362,239 +12823,239 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7348773493%_ '())) + (cons _%g7425374259%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7348673490%_ '())) + (cons _%g7425274256%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7348873495%_)) + _%g7425474261%_)) '() - _%L73469%_ - _%L73471%_)))) - _%type7340873463%_ - _%slot7340973466%_)))))) + _%L74235%_ + _%L74237%_)))) + _%type7417474229%_ + _%slot7417574232%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7340273431%_ - _%target7339973425%_ + (_%loop7416874197%_ + _%target7416574191%_ '() '())) - (_%g7339573418%_ - _%g7339673422%_))))) - (_%g7339573418%_ _%g7339673422%_))))) - (_%g7339473498%_ - (filter (lambda (_%st73502%_) (cdr _%st73502%_)) - (hash->list _%slot-type-table69732%_))))))) - _%g7152071531%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7151873505%_ + (_%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 (_%g7350873511%_ + (cons (foldr (lambda (_%g7427474277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7350973514%_) - (cons _%g7350873511%_ _%g7350973514%_)) + _%g7427574280%_) + (cons _%g7427474277%_ _%g7427574280%_)) '() - _%L70038%_) + _%L70804%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7149271503%_)))) - (_%g7149073517%_ + _%g7225872269%_)))) + (_%g7225674283%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7352073523%_ - _%g7352173526%_) - (cons _%g7352073523%_ - _%g7352173526%_)) + (cons (foldr (lambda (_%g7428674289%_ + _%g7428774292%_) + (cons _%g7428674289%_ + _%g7428774292%_)) '() - _%L69967%_) + _%L70733%_) '()))))) - _%g7146471475%_)))) - (_%g7146273529%_ - (let* ((_%g7353373550%_ - (lambda (_%g7353473546%_) + _%g7223072241%_)))) + (_%g7222874295%_ + (let* ((_%g7429974316%_ + (lambda (_%g7430074312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7353473546%_))) - (_%g7353273611%_ - (lambda (_%g7353473554%_) - (if (gx#stx-pair/null? _%g7353473554%_) - (let ((_g84349_ + _%g7430074312%_))) + (_%g7429874377%_ + (lambda (_%g7430074320%_) + (if (gx#stx-pair/null? _%g7430074320%_) + (let ((_g85232_ (gx#syntax-split-splice - _%g7353473554%_ + _%g7430074320%_ '0))) (begin - (let ((_g84350_ + (let ((_g85233_ (let () (declare (not safe)) - (if (##values? _g84349_) - (##values-length _g84349_) + (if (##values? _g85232_) + (##values-length _g85232_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84350_ 2))) + (##fx= _g85233_ 2))) (error "Context expects 2 values" - _g84350_))) - (let ((_%target7353673557%_ + _g85233_))) + (let ((_%target7430274323%_ (let () (declare (not safe)) - (##values-ref _g84349_ 0))) - (_%tl7353873560%_ + (##values-ref _g85232_ 0))) + (_%tl7430474326%_ (let () (declare (not safe)) - (##values-ref _g84349_ 1)))) - (if (gx#stx-null? _%tl7353873560%_) - (letrec ((_%loop7353973563%_ - (lambda (_%hd7353773567%_ - _%super-id7354373570%_) + (##values-ref _g85232_ 1)))) + (if (gx#stx-null? _%tl7430474326%_) + (letrec ((_%loop7430574329%_ + (lambda (_%hd7430374333%_ + _%super-id7430974336%_) (if (gx#stx-pair? - _%hd7353773567%_) - (let ((_%e7354073573%_ + _%hd7430374333%_) + (let ((_%e7430674339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7353773567%_))) - (let ((_%lp-hd7354173577%_ + (gx#syntax-e _%hd7430374333%_))) + (let ((_%lp-hd7430774343%_ (let () (declare (not safe)) - (##car _%e7354073573%_))) - (_%lp-tl7354273580%_ + (##car _%e7430674339%_))) + (_%lp-tl7430874346%_ (let () (declare (not safe)) - (##cdr _%e7354073573%_)))) - (_%loop7353973563%_ - _%lp-tl7354273580%_ - (cons _%lp-hd7354173577%_ _%super-id7354373570%_)))) - (let ((_%super-id7354473583%_ - (reverse _%super-id7354373570%_))) - ((lambda (_%L73587%_) + (##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 (_%g7360273605%_ _%g7360373608%_) + (foldr (lambda (_%g7436874371%_ _%g7436974374%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7360273605%_ '())) - _%g7360373608%_)) + (cons _%g7436874371%_ '())) + _%g7436974374%_)) '() - _%L73587%_))) - _%super-id7354473583%_)))))) + _%L74353%_))) + _%super-id7431074349%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7353973563%_ - _%target7353673557%_ + (_%loop7430574329%_ + _%target7430274323%_ '())) - (_%g7353373550%_ - _%g7353473554%_))))) - (_%g7353373550%_ _%g7353473554%_))))) - (_%g7353273611%_ _%super-ref69723%_))))) - _%g7143671447%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7143473615%_ - (let* ((_%g7361973627%_ - (lambda (_%g7362073623%_) + (_%g7429974316%_ + _%g7430074320%_))))) + (_%g7429974316%_ _%g7430074320%_))))) + (_%g7429874377%_ _%super-ref70489%_))))) + _%g7220272213%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7220074381%_ + (let* ((_%g7438574393%_ + (lambda (_%g7438674389%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7362073623%_))) - (_%g7361873646%_ - (lambda (_%g7362073631%_) - ((lambda (_%L73634%_) + _%g7438674389%_))) + (_%g7438474412%_ + (lambda (_%g7438674397%_) + ((lambda (_%L74400%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L73634%_ '()))) - _%g7362073631%_)))) + (cons _%L74400%_ '()))) + _%g7438674397%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7361873646%_ + (_%g7438474412%_ (gx#stx-car (gx#stx-cdr - _%type-name71135%_))))))) - _%g7140871419%_)))) - (_%g7140673650%_ - (let* ((_%g7365473669%_ - (lambda (_%g7365573665%_) + _%type-name71901%_))))))) + _%g7217472185%_)))) + (_%g7217274416%_ + (let* ((_%g7442074435%_ + (lambda (_%g7442174431%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7365573665%_))) - (_%g7365373717%_ - (lambda (_%g7365573673%_) - (if (gx#stx-pair? _%g7365573673%_) - (let ((_%e7365773676%_ + _%g7442174431%_))) + (_%g7441974483%_ + (lambda (_%g7442174439%_) + (if (gx#stx-pair? _%g7442174439%_) + (let ((_%e7442374442%_ (gx#syntax-e - _%g7365573673%_))) - (let ((_%hd7365873680%_ + _%g7442174439%_))) + (let ((_%hd7442474446%_ (let () (declare (not safe)) - (##car _%e7365773676%_))) - (_%tl7365973683%_ + (##car _%e7442374442%_))) + (_%tl7442574449%_ (let () (declare (not safe)) - (##cdr _%e7365773676%_)))) + (##cdr _%e7442374442%_)))) (if (gx#stx-datum? - _%hd7365873680%_) - (let ((_%e7366073686%_ + _%hd7442474446%_) + (let ((_%e7442674452%_ (gx#stx-e - _%hd7365873680%_))) - (if (equal? _%e7366073686%_ + _%hd7442474446%_))) + (if (equal? _%e7442674452%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'id:) - (if (gx#stx-pair? _%tl7365973683%_) - (let ((_%e7366173690%_ - (gx#syntax-e _%tl7365973683%_))) - (let ((_%hd7366273694%_ + (if (gx#stx-pair? _%tl7442574449%_) + (let ((_%e7442774456%_ + (gx#syntax-e _%tl7442574449%_))) + (let ((_%hd7442874460%_ (let () (declare (not safe)) - (##car _%e7366173690%_))) - (_%tl7366373697%_ + (##car _%e7442774456%_))) + (_%tl7442974463%_ (let () (declare (not safe)) - (##cdr _%e7366173690%_)))) - (if (gx#stx-null? _%tl7366373697%_) - ((lambda (_%L73700%_) + (##cdr _%e7442774456%_)))) + (if (gx#stx-null? _%tl7442974463%_) + ((lambda (_%L74466%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L73700%_ '()))) - _%hd7366273694%_) - (_%g7365473669%_ _%g7365573673%_)))) - (_%g7365473669%_ _%g7365573673%_)) - (_%g7365473669%_ _%g7365573673%_))) - (_%g7365473669%_ _%g7365573673%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7365473669%_ - _%g7365573673%_))))) - (_%g7365373717%_ _%type-id71142%_))))) - _%g7138071391%_)))) - (_%g7137873721%_ - (_%wrap69586%_ + (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 _%L69816%_ - (cons _%L69900%_ - (cons _%L71366%_ - (cons _%L69872%_ - (foldr (lambda (_%g7372473727%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7372573730%_) - (cons _%g7372473727%_ _%g7372573730%_)) + (cons _%L70582%_ + (cons _%L70666%_ + (cons _%L72132%_ + (cons _%L70638%_ + (foldr (lambda (_%g7449074493%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7449174496%_) + (cons _%g7449074493%_ _%g7449174496%_)) '() - _%L71330%_)))))))))) + _%L72096%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7135271363%_)))) + _%g7211872129%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7135073733%_ - (if (or (not (null? _%type-constructor71157%_)) + (_%g7211674499%_ + (if (or (not (null? _%type-constructor71923%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69734%_)) - (zero? (hash-length _%slot-default-table69737%_))) - _%metaclass71261%_) + _%slot-contract-table70500%_)) + (zero? (hash-length _%slot-default-table70503%_))) + _%metaclass72027%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L69844%_ + _%L70610%_ '#f)))) - _%type-body7128771326%_)))))) - (_%loop7128271306%_ _%target7127971300%_ '())) - (_%g7127671293%_ _%g7127771297%_))))) - (_%g7127671293%_ _%g7127771297%_))))) + _%type-body7205372092%_)))))) + (_%loop7204872072%_ _%target7204572066%_ '())) + (_%g7204272059%_ _%g7204372063%_))))) + (_%g7204272059%_ _%g7204372063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7127573745%_ + (_%g7204174511%_ (foldr cons (foldr cons (foldr cons @@ -12604,1257 +13065,1257 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots71128%_ - _%type-slots70981%_) - _%type-properties71249%_) - _%type-metaclass71273%_) - _%type-final71270%_) - _%type-struct71267%_) - _%type-constructor71157%_) - _%type-name71135%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-id71142%_)))) - _%mixin-usetf7077670815%_)))))) - (_%loop7077170795%_ _%target7076870789%_ '())) - (_%g7076570782%_ _%g7076670786%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7076570782%_ - _%g7076670786%_))))) - (_%g7076473749%_ + _%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 (_%g7375273754%_) - (_%make-id69727%_ + (lambda (_%g7451874520%_) + (_%make-id70493%_ '"&" - _%g7375273754%_)) - (foldr (lambda (_%g7375773760%_ - _%g7375873763%_) - (cons _%g7375773760%_ - _%g7375873763%_)) + _%g7451874520%_)) + (foldr (lambda (_%g7452374526%_ + _%g7452474529%_) + (cons _%g7452374526%_ + _%g7452474529%_)) '() - _%L70464%_))))) - _%mixin-ugetf7070570744%_)))))) - (_%loop7070070724%_ _%target7069770718%_ '())) - (_%g7069470711%_ _%g7069570715%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7069470711%_ - _%g7069570715%_))))) - (_%g7069373766%_ + _%L71230%_))))) + _%mixin-ugetf7147171510%_)))))) + (_%loop7146671490%_ _%target7146371484%_ '())) + (_%g7146071477%_ _%g7146171481%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7146071477%_ + _%g7146171481%_))))) + (_%g7145974532%_ (gx#stx-map - (lambda (_%g7376973771%_) - (_%make-id69727%_ '"&" _%g7376973771%_)) - (foldr (lambda (_%g7377473777%_ - _%g7377573780%_) - (cons _%g7377473777%_ - _%g7377573780%_)) + (lambda (_%g7453574537%_) + (_%make-id70493%_ '"&" _%g7453574537%_)) + (foldr (lambda (_%g7454074543%_ + _%g7454174546%_) + (cons _%g7454074543%_ + _%g7454174546%_)) '() - _%L70393%_))))) - _%usetf7063470673%_)))))) + _%L71159%_))))) + _%usetf7140071439%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7062970653%_ - _%target7062670647%_ + (_%loop7139571419%_ + _%target7139271413%_ '())) - (_%g7062370640%_ - _%g7062470644%_))))) - (_%g7062370640%_ _%g7062470644%_))))) - (_%g7062273783%_ + (_%g7138971406%_ + _%g7139071410%_))))) + (_%g7138971406%_ _%g7139071410%_))))) + (_%g7138874549%_ (gx#stx-map - (lambda (_%g7378673788%_) - (_%make-id69727%_ '"&" _%g7378673788%_)) - (foldr (lambda (_%g7379173794%_ _%g7379273797%_) - (cons _%g7379173794%_ _%g7379273797%_)) + (lambda (_%g7455274554%_) + (_%make-id70493%_ '"&" _%g7455274554%_)) + (foldr (lambda (_%g7455774560%_ _%g7455874563%_) + (cons _%g7455774560%_ _%g7455874563%_)) '() - _%L70180%_))))) - _%ugetf7056370602%_)))))) + _%L70946%_))))) + _%ugetf7132971368%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7055870582%_ - _%target7055570576%_ + (_%loop7132471348%_ + _%target7132171342%_ '())) - (_%g7055270569%_ - _%g7055370573%_))))) - (_%g7055270569%_ _%g7055370573%_))))) - (_%g7055173800%_ + (_%g7131871335%_ + _%g7131971339%_))))) + (_%g7131871335%_ _%g7131971339%_))))) + (_%g7131774566%_ (gx#stx-map - (lambda (_%g7380373805%_) - (_%make-id69727%_ '"&" _%g7380373805%_)) - (foldr (lambda (_%g7380873811%_ _%g7380973814%_) - (cons _%g7380873811%_ _%g7380973814%_)) + (lambda (_%g7456974571%_) + (_%make-id70493%_ '"&" _%g7456974571%_)) + (foldr (lambda (_%g7457474577%_ _%g7457574580%_) + (cons _%g7457474577%_ _%g7457574580%_)) '() - _%L70109%_))))) - _%mixin-rawsetf7049270531%_)))))) + _%L70875%_))))) + _%mixin-rawsetf7125871297%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7048770511%_ - _%target7048470505%_ + (_%loop7125371277%_ + _%target7125071271%_ '())) - (_%g7048170498%_ _%g7048270502%_))))) - (_%g7048170498%_ _%g7048270502%_))))) - (_%g7048073817%_ + (_%g7124771264%_ _%g7124871268%_))))) + (_%g7124771264%_ _%g7124871268%_))))) + (_%g7124674583%_ (gx#stx-map - (lambda (_%g7382073822%_) - (_%make-id69727%_ - _%name69754%_ + (lambda (_%g7458674588%_) + (_%make-id70493%_ + _%name70520%_ '"-unchecked-" - _%g7382073822%_ + _%g7458674588%_ '"-set!")) - _%mixin-slots69751%_)))) + _%mixin-slots70517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-setf7042170460%_)))))) - (_%loop7041670440%_ - _%target7041370434%_ + _%mixin-setf7118771226%_)))))) + (_%loop7118271206%_ + _%target7117971200%_ '())) - (_%g7041070427%_ _%g7041170431%_))))) - (_%g7041070427%_ _%g7041170431%_))))) + (_%g7117671193%_ _%g7117771197%_))))) + (_%g7117671193%_ _%g7117771197%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7040973826%_ + (_%g7117574592%_ (gx#stx-map - (lambda (_%g7382973831%_) - (_%make-id69727%_ - _%name69754%_ + (lambda (_%g7459574597%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7382973831%_ + _%g7459574597%_ '"-set!")) - _%mixin-slots69751%_)))) - _%mixin-getf7035070389%_)))))) - (_%loop7034570369%_ _%target7034270363%_ '())) - (_%g7033970356%_ _%g7034070360%_))))) - (_%g7033970356%_ _%g7034070360%_))))) + _%mixin-slots70517%_)))) + _%mixin-getf7111671155%_)))))) + (_%loop7111171135%_ _%target7110871129%_ '())) + (_%g7110571122%_ _%g7110671126%_))))) + (_%g7110571122%_ _%g7110671126%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7033873835%_ + (_%g7110474601%_ (gx#stx-map - (lambda (_%g7383873840%_) - (_%make-id69727%_ - _%name69754%_ + (lambda (_%g7460474606%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7383873840%_)) - _%mixin-slots69751%_)))) - _%mixin-slot7027970318%_)))))) - (_%loop7027470298%_ _%target7027170292%_ '())) - (_%g7026870285%_ _%g7026970289%_))))) - (_%g7026870285%_ _%g7026970289%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7026773844%_ - _%mixin-slots69751%_))) - _%rawsetf7020870247%_)))))) - (_%loop7020370227%_ _%target7020070221%_ '())) - (_%g7019770214%_ _%g7019870218%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7019770214%_ - _%g7019870218%_))))) - (_%g7019673848%_ + _%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 (_%g7385173853%_) - (_%make-id69727%_ - _%name69754%_ + (lambda (_%g7461774619%_) + (_%make-id70493%_ + _%name70520%_ '"-unchecked-" - _%g7385173853%_ + _%g7461774619%_ '"-set!")) - _%slots69745%_)))) - _%setf7013770176%_)))))) - (_%loop7013270156%_ _%target7012970150%_ '())) - (_%g7012670143%_ _%g7012770147%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7012670143%_ - _%g7012770147%_))))) - (_%g7012573857%_ + _%slots70511%_)))) + _%setf7090370942%_)))))) + (_%loop7089870922%_ _%target7089570916%_ '())) + (_%g7089270909%_ _%g7089370913%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7089270909%_ + _%g7089370913%_))))) + (_%g7089174623%_ (gx#stx-map - (lambda (_%g7386073862%_) - (_%make-id69727%_ - _%name69754%_ + (lambda (_%g7462674628%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7386073862%_ + _%g7462674628%_ '"-set!")) - _%slots69745%_)))) - _%getf7006670105%_)))))) + _%slots70511%_)))) + _%getf7083270871%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7006170085%_ - _%target7005870079%_ + (_%loop7082770851%_ + _%target7082470845%_ '())) - (_%g7005570072%_ - _%g7005670076%_))))) - (_%g7005570072%_ _%g7005670076%_))))) - (_%g7005473866%_ + (_%g7082170838%_ + _%g7082270842%_))))) + (_%g7082170838%_ _%g7082270842%_))))) + (_%g7082074632%_ (gx#stx-map - (lambda (_%g7386973871%_) - (_%make-id69727%_ - _%name69754%_ + (lambda (_%g7463574637%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7386973871%_)) - _%slots69745%_)))) - _%ordered-slot6999570034%_)))))) + _%g7463574637%_)) + _%slots70511%_)))) + _%ordered-slot7076170800%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6999070014%_ - _%target6998770008%_ + (_%loop7075670780%_ + _%target7075370774%_ '())) - (_%g6998470001%_ - _%g6998570005%_))))) - (_%g6998470001%_ _%g6998570005%_))))) - (_%g6998373875%_ _%ordered-slots69740%_))) - _%slot6992469963%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6991969943%_ - _%target6991669937%_ + (_%g7075070767%_ + _%g7075170771%_))))) + (_%g7075070767%_ _%g7075170771%_))))) + (_%g7074974641%_ _%ordered-slots70506%_))) + _%slot7069070729%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7068570709%_ + _%target7068270703%_ '())) - (_%g6991369930%_ _%g6991469934%_))))) - (_%g6991369930%_ _%g6991469934%_))))) - (_%g6991273879%_ _%slots69745%_))) + (_%g7067970696%_ _%g7068070700%_))))) + (_%g7067970696%_ _%g7068070700%_))))) + (_%g7067874645%_ _%slots70511%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6988669897%_)))) - (_%g6988473883%_ + _%g7065270663%_)))) + (_%g7065074649%_ (map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super69757%_)))) - _%g6985869869%_)))) - (_%g6985673887%_ - (_%make-id69727%_ _%name69754%_ '"?")))) - _%g6983069841%_)))) - (_%g6982873891%_ (_%make-id69727%_ '"make-" _%name69754%_)))) - _%g6980269813%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6980073895%_ - (_%make-id69727%_ - _%name69754%_ + _%super70523%_)))) + _%g7062470635%_)))) + (_%g7062274653%_ + (_%make-id70493%_ _%name70520%_ '"?")))) + _%g7059670607%_)))) + (_%g7059474657%_ (_%make-id70493%_ '"make-" _%name70520%_)))) + _%g7056870579%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7056674661%_ + (_%make-id70493%_ + _%name70520%_ '"::t")))) - _%g6976469775%_)))) - (_%g6976273899%_ _%id69721%_)))))))))) - (let* ((_%g6958969617%_ - (lambda (_%g6959069613%_) + _%g7053070541%_)))) + (_%g7052874665%_ _%id70487%_)))))))))) + (let* ((_%g7035570383%_ + (lambda (_%g7035670379%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6959069613%_))) - (_%g6958869717%_ - (lambda (_%g6959069621%_) - (if (gx#stx-pair? _%g6959069621%_) - (let ((_%e6959469624%_ (gx#syntax-e _%g6959069621%_))) - (let ((_%hd6959569628%_ + _%g7035670379%_))) + (_%g7035470483%_ + (lambda (_%g7035670387%_) + (if (gx#stx-pair? _%g7035670387%_) + (let ((_%e7036070390%_ (gx#syntax-e _%g7035670387%_))) + (let ((_%hd7036170394%_ (let () (declare (not safe)) - (##car _%e6959469624%_))) - (_%tl6959669631%_ + (##car _%e7036070390%_))) + (_%tl7036270397%_ (let () (declare (not safe)) - (##cdr _%e6959469624%_)))) - (if (gx#stx-pair? _%tl6959669631%_) - (let ((_%e6959769634%_ - (gx#syntax-e _%tl6959669631%_))) - (let ((_%hd6959869638%_ + (##cdr _%e7036070390%_)))) + (if (gx#stx-pair? _%tl7036270397%_) + (let ((_%e7036370400%_ + (gx#syntax-e _%tl7036270397%_))) + (let ((_%hd7036470404%_ (let () (declare (not safe)) - (##car _%e6959769634%_))) - (_%tl6959969641%_ + (##car _%e7036370400%_))) + (_%tl7036570407%_ (let () (declare (not safe)) - (##cdr _%e6959769634%_)))) - (if (gx#stx-pair? _%tl6959969641%_) - (let ((_%e6960069644%_ - (gx#syntax-e _%tl6959969641%_))) - (let ((_%hd6960169648%_ + (##cdr _%e7036370400%_)))) + (if (gx#stx-pair? _%tl7036570407%_) + (let ((_%e7036670410%_ + (gx#syntax-e _%tl7036570407%_))) + (let ((_%hd7036770414%_ (let () (declare (not safe)) - (##car _%e6960069644%_))) - (_%tl6960269651%_ + (##car _%e7036670410%_))) + (_%tl7036870417%_ (let () (declare (not safe)) - (##cdr _%e6960069644%_)))) + (##cdr _%e7036670410%_)))) (if (gx#stx-pair/null? - _%hd6960169648%_) - (let ((_g84351_ + _%hd7036770414%_) + (let ((_g85234_ (gx#syntax-split-splice - _%hd6960169648%_ + _%hd7036770414%_ '0))) (begin - (let ((_g84352_ + (let ((_g85235_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84351_) - (##values-length _g84351_) + _g85234_) + (##values-length _g85234_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84352_ 2))) - (error "Context expects 2 values" _g84352_))) + (if (not (let () (declare (not safe)) (##fx= _g85235_ 2))) + (error "Context expects 2 values" _g85235_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6960369654%_ + (let ((_%target7036970420%_ (let () (declare (not safe)) (##values-ref - _g84351_ + _g85234_ 0))) - (_%tl6960569657%_ + (_%tl7037170423%_ (let () (declare (not safe)) (##values-ref - _g84351_ + _g85234_ 1)))) (if (gx#stx-null? - _%tl6960569657%_) - (letrec ((_%loop6960669660%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6960469664%_ _%slot6961069667%_) - (if (gx#stx-pair? _%hd6960469664%_) - (let ((_%e6960769670%_ - (gx#syntax-e _%hd6960469664%_))) - (let ((_%lp-hd6960869674%_ + _%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 _%e6960769670%_))) - (_%lp-tl6960969677%_ + (##car _%e7037370436%_))) + (_%lp-tl7037570443%_ (let () (declare (not safe)) - (##cdr _%e6960769670%_)))) - (_%loop6960669660%_ - _%lp-tl6960969677%_ - (cons _%lp-hd6960869674%_ - _%slot6961069667%_)))) - (let ((_%slot6961169680%_ - (reverse _%slot6961069667%_))) - ((lambda (_%L69684%_ _%L69686%_ _%L69687%_) - (_%generate69566%_ - _%L69687%_ - (foldr (lambda (_%g6970869711%_ - _%g6970969714%_) - (cons _%g6970869711%_ - _%g6970969714%_)) + (##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%_)) '() - _%L69686%_) - _%L69684%_)) - _%tl6960269651%_ - _%slot6961169680%_ - _%hd6959869638%_)))))) - (_%loop6960669660%_ _%target6960369654%_ '())) - (_%g6958969617%_ _%g6959069621%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6958969617%_ - _%g6959069621%_)))) - (_%g6958969617%_ _%g6959069621%_)))) - (_%g6958969617%_ _%g6959069621%_)))) - (_%g6958969617%_ _%g6959069621%_))))) - (_%g6958869717%_ _%stx69563%_))))) + _%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 (_%$stx76909%_) - (let* ((_%g7691376932%_ - (lambda (_%g7691476928%_) + (lambda (_%$stx77675%_) + (let* ((_%g7767977698%_ + (lambda (_%g7768077694%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7691476928%_))) - (_%g7691276989%_ - (lambda (_%g7691476936%_) - (if (gx#stx-pair? _%g7691476936%_) - (let ((_%e7691876939%_ (gx#syntax-e _%g7691476936%_))) - (let ((_%hd7691976943%_ + _%g7768077694%_))) + (_%g7767877755%_ + (lambda (_%g7768077702%_) + (if (gx#stx-pair? _%g7768077702%_) + (let ((_%e7768477705%_ (gx#syntax-e _%g7768077702%_))) + (let ((_%hd7768577709%_ (let () (declare (not safe)) - (##car _%e7691876939%_))) - (_%tl7692076946%_ + (##car _%e7768477705%_))) + (_%tl7768677712%_ (let () (declare (not safe)) - (##cdr _%e7691876939%_)))) - (if (gx#stx-pair? _%tl7692076946%_) - (let ((_%e7692176949%_ - (gx#syntax-e _%tl7692076946%_))) - (let ((_%hd7692276953%_ + (##cdr _%e7768477705%_)))) + (if (gx#stx-pair? _%tl7768677712%_) + (let ((_%e7768777715%_ + (gx#syntax-e _%tl7768677712%_))) + (let ((_%hd7768877719%_ (let () (declare (not safe)) - (##car _%e7692176949%_))) - (_%tl7692376956%_ + (##car _%e7768777715%_))) + (_%tl7768977722%_ (let () (declare (not safe)) - (##cdr _%e7692176949%_)))) - (if (gx#stx-pair? _%tl7692376956%_) - (let ((_%e7692476959%_ - (gx#syntax-e _%tl7692376956%_))) - (let ((_%hd7692576963%_ + (##cdr _%e7768777715%_)))) + (if (gx#stx-pair? _%tl7768977722%_) + (let ((_%e7769077725%_ + (gx#syntax-e _%tl7768977722%_))) + (let ((_%hd7769177729%_ (let () (declare (not safe)) - (##car _%e7692476959%_))) - (_%tl7692676966%_ + (##car _%e7769077725%_))) + (_%tl7769277732%_ (let () (declare (not safe)) - (##cdr _%e7692476959%_)))) - ((lambda (_%L76969%_ - _%L76971%_ - _%L76972%_) + (##cdr _%e7769077725%_)))) + ((lambda (_%L77735%_ + _%L77737%_ + _%L77738%_) (cons (gx#datum->syntax '#f 'defclass/c) - (cons _%L76972%_ - (cons _%L76971%_ + (cons _%L77738%_ + (cons _%L77737%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L76969%_)))))) + (cons '#t _%L77735%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7692676966%_ - _%hd7692576963%_ - _%hd7692276953%_))) - (_%g7691376932%_ _%g7691476936%_)))) - (_%g7691376932%_ _%g7691476936%_)))) - (_%g7691376932%_ _%g7691476936%_))))) - (_%g7691276989%_ _%$stx76909%_)))) + _%tl7769277732%_ + _%hd7769177729%_ + _%hd7768877719%_))) + (_%g7767977698%_ _%g7768077702%_)))) + (_%g7767977698%_ _%g7768077702%_)))) + (_%g7767977698%_ _%g7768077702%_))))) + (_%g7767877755%_ _%$stx77675%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do/c| - (lambda (_%stx76993%_) - (let* ((_%g7699677067%_ - (lambda (_%g7699777063%_) + (lambda (_%stx77759%_) + (let* ((_%g7776277833%_ + (lambda (_%g7776377829%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7699777063%_))) - (_%g7699577433%_ - (lambda (_%g7699777071%_) - (if (gx#stx-pair? _%g7699777071%_) - (let ((_%e7700477074%_ (gx#syntax-e _%g7699777071%_))) - (let ((_%hd7700577078%_ + _%g7776377829%_))) + (_%g7776178199%_ + (lambda (_%g7776377837%_) + (if (gx#stx-pair? _%g7776377837%_) + (let ((_%e7777077840%_ (gx#syntax-e _%g7776377837%_))) + (let ((_%hd7777177844%_ (let () (declare (not safe)) - (##car _%e7700477074%_))) - (_%tl7700677081%_ + (##car _%e7777077840%_))) + (_%tl7777277847%_ (let () (declare (not safe)) - (##cdr _%e7700477074%_)))) - (if (gx#stx-pair? _%tl7700677081%_) - (let ((_%e7700777084%_ - (gx#syntax-e _%tl7700677081%_))) - (let ((_%hd7700877088%_ + (##cdr _%e7777077840%_)))) + (if (gx#stx-pair? _%tl7777277847%_) + (let ((_%e7777377850%_ + (gx#syntax-e _%tl7777277847%_))) + (let ((_%hd7777477854%_ (let () (declare (not safe)) - (##car _%e7700777084%_))) - (_%tl7700977091%_ + (##car _%e7777377850%_))) + (_%tl7777577857%_ (let () (declare (not safe)) - (##cdr _%e7700777084%_)))) - (if (gx#stx-pair/null? _%hd7700877088%_) - (let ((_g84353_ + (##cdr _%e7777377850%_)))) + (if (gx#stx-pair/null? _%hd7777477854%_) + (let ((_g85236_ (gx#syntax-split-splice - _%hd7700877088%_ + _%hd7777477854%_ '0))) (begin - (let ((_g84354_ + (let ((_g85237_ (let () (declare (not safe)) - (if (##values? _g84353_) + (if (##values? _g85236_) (##values-length - _g84353_) + _g85236_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84354_ 2))) + (##fx= _g85237_ 2))) (error "Context expects 2 values" - _g84354_))) - (let ((_%target7701077094%_ + _g85237_))) + (let ((_%target7777677860%_ (let () (declare (not safe)) - (##values-ref _g84353_ 0))) - (_%tl7701277097%_ + (##values-ref _g85236_ 0))) + (_%tl7777877863%_ (let () (declare (not safe)) - (##values-ref _g84353_ 1)))) - (if (gx#stx-null? _%tl7701277097%_) - (letrec ((_%loop7701377100%_ - (lambda (_%hd7701177104%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step7701777107%_ - _%init7701877109%_ - _%var/c7701977111%_) - (if (gx#stx-pair? _%hd7701177104%_) - (let ((_%e7701477114%_ (gx#syntax-e _%hd7701177104%_))) - (let ((_%lp-hd7701577118%_ + (##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 _%e7701477114%_))) - (_%lp-tl7701677121%_ + (##car _%e7778077880%_))) + (_%lp-tl7778277887%_ (let () (declare (not safe)) - (##cdr _%e7701477114%_)))) - (if (gx#stx-pair? _%lp-hd7701577118%_) - (let ((_%e7704777124%_ - (gx#syntax-e _%lp-hd7701577118%_))) - (let ((_%hd7704877128%_ + (##cdr _%e7778077880%_)))) + (if (gx#stx-pair? _%lp-hd7778177884%_) + (let ((_%e7781377890%_ + (gx#syntax-e _%lp-hd7778177884%_))) + (let ((_%hd7781477894%_ (let () (declare (not safe)) - (##car _%e7704777124%_))) - (_%tl7704977131%_ + (##car _%e7781377890%_))) + (_%tl7781577897%_ (let () (declare (not safe)) - (##cdr _%e7704777124%_)))) - (if (gx#stx-pair? _%tl7704977131%_) - (let ((_%e7705077134%_ - (gx#syntax-e _%tl7704977131%_))) - (let ((_%hd7705177138%_ + (##cdr _%e7781377890%_)))) + (if (gx#stx-pair? _%tl7781577897%_) + (let ((_%e7781677900%_ + (gx#syntax-e _%tl7781577897%_))) + (let ((_%hd7781777904%_ (let () (declare (not safe)) - (##car _%e7705077134%_))) - (_%tl7705277141%_ + (##car _%e7781677900%_))) + (_%tl7781877907%_ (let () (declare (not safe)) - (##cdr _%e7705077134%_)))) + (##cdr _%e7781677900%_)))) (if (gx#stx-pair/null? - _%tl7705277141%_) - (let ((_g84355_ + _%tl7781877907%_) + (let ((_g85238_ (gx#syntax-split-splice - _%tl7705277141%_ + _%tl7781877907%_ '0))) (begin - (let ((_g84356_ + (let ((_g85239_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84355_) - (##values-length _g84355_) + _g85238_) + (##values-length _g85238_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84356_ 2))) - (error "Context expects 2 values" _g84356_))) + (if (not (let () (declare (not safe)) (##fx= _g85239_ 2))) + (error "Context expects 2 values" _g85239_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7705377144%_ + (let ((_%target7781977910%_ (let () (declare (not safe)) (##values-ref - _g84355_ + _g85238_ 0))) - (_%tl7705577147%_ + (_%tl7782177913%_ (let () (declare (not safe)) (##values-ref - _g84355_ + _g85238_ 1)))) (if (gx#stx-null? - _%tl7705577147%_) - (letrec ((_%loop7705677150%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7705477154%_ _%step7706077157%_) - (if (gx#stx-pair? _%hd7705477154%_) - (let ((_%e7705777160%_ - (gx#syntax-e _%hd7705477154%_))) - (let ((_%lp-hd7705877164%_ + _%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 _%e7705777160%_))) - (_%lp-tl7705977167%_ + (##car _%e7782377926%_))) + (_%lp-tl7782577933%_ (let () (declare (not safe)) - (##cdr _%e7705777160%_)))) - (_%loop7705677150%_ - _%lp-tl7705977167%_ - (cons _%lp-hd7705877164%_ - _%step7706077157%_)))) - (let ((_%step7706177170%_ - (reverse _%step7706077157%_))) - (_%loop7701377100%_ - _%lp-tl7701677121%_ - (cons _%step7706177170%_ - _%step7701777107%_) - (cons _%hd7705177138%_ _%init7701877109%_) - (cons _%hd7704877128%_ - _%var/c7701977111%_))))))) - (_%loop7705677150%_ _%target7705377144%_ '())) - (_%g7699677067%_ _%g7699777071%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7699677067%_ - _%g7699777071%_)))) - (_%g7699677067%_ _%g7699777071%_)))) - (_%g7699677067%_ _%g7699777071%_)))) - (let ((_%step7702077174%_ (reverse _%step7701777107%_)) - (_%init7702177177%_ (reverse _%init7701877109%_)) - (_%var/c7702277179%_ - (reverse _%var/c7701977111%_))) - (if (gx#stx-pair? _%tl7700977091%_) - (let ((_%e7702377182%_ - (gx#syntax-e _%tl7700977091%_))) - (let ((_%hd7702477186%_ + (##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 _%e7702377182%_))) - (_%tl7702577189%_ + (##car _%e7778977948%_))) + (_%tl7779177955%_ (let () (declare (not safe)) - (##cdr _%e7702377182%_)))) - (if (gx#stx-pair? _%hd7702477186%_) - (let ((_%e7702677192%_ - (gx#syntax-e _%hd7702477186%_))) - (let ((_%hd7702777196%_ + (##cdr _%e7778977948%_)))) + (if (gx#stx-pair? _%hd7779077952%_) + (let ((_%e7779277958%_ + (gx#syntax-e _%hd7779077952%_))) + (let ((_%hd7779377962%_ (let () (declare (not safe)) - (##car _%e7702677192%_))) - (_%tl7702877199%_ + (##car _%e7779277958%_))) + (_%tl7779477965%_ (let () (declare (not safe)) - (##cdr _%e7702677192%_)))) + (##cdr _%e7779277958%_)))) (if (gx#stx-pair/null? - _%tl7702877199%_) - (let ((_g84357_ + _%tl7779477965%_) + (let ((_g85240_ (gx#syntax-split-splice - _%tl7702877199%_ + _%tl7779477965%_ '0))) (begin - (let ((_g84358_ + (let ((_g85241_ (let () (declare (not safe)) (if (##values? - _g84357_) + _g85240_) (##values-length - _g84357_) + _g85240_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84358_ 2))) - (error "Context expects 2 values" _g84358_))) + (##fx= _g85241_ 2))) + (error "Context expects 2 values" _g85241_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7702977202%_ + (let ((_%target7779577968%_ (let () (declare (not safe)) (##values-ref - _g84357_ + _g85240_ 0))) - (_%tl7703177205%_ + (_%tl7779777971%_ (let () (declare (not safe)) (##values-ref - _g84357_ + _g85240_ 1)))) (if (gx#stx-null? - _%tl7703177205%_) - (letrec ((_%loop7703277208%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7703077212%_ _%fini7703677215%_) - (if (gx#stx-pair? _%hd7703077212%_) - (let ((_%e7703377218%_ - (gx#syntax-e _%hd7703077212%_))) - (let ((_%lp-hd7703477222%_ + _%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 _%e7703377218%_))) - (_%lp-tl7703577225%_ + (##car _%e7779977984%_))) + (_%lp-tl7780177991%_ (let () (declare (not safe)) - (##cdr _%e7703377218%_)))) - (_%loop7703277208%_ - _%lp-tl7703577225%_ - (cons _%lp-hd7703477222%_ - _%fini7703677215%_)))) - (let ((_%fini7703777228%_ - (reverse _%fini7703677215%_))) - (if (gx#stx-pair/null? _%tl7702577189%_) - (let ((_g84359_ + (##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 - _%tl7702577189%_ + _%tl7779177955%_ '0))) (begin - (let ((_g84360_ + (let ((_g85243_ (let () (declare (not safe)) - (if (##values? _g84359_) + (if (##values? _g85242_) (##values-length - _g84359_) + _g85242_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84360_ 2))) + (##fx= _g85243_ 2))) (error "Context expects 2 values" - _g84360_))) - (let ((_%target7703877232%_ + _g85243_))) + (let ((_%target7780477998%_ (let () (declare (not safe)) - (##values-ref _g84359_ 0))) - (_%tl7704077235%_ + (##values-ref _g85242_ 0))) + (_%tl7780678001%_ (let () (declare (not safe)) - (##values-ref _g84359_ 1)))) - (if (gx#stx-null? _%tl7704077235%_) - (letrec ((_%loop7704177238%_ - (lambda (_%hd7703977242%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7704577245%_) - (if (gx#stx-pair? _%hd7703977242%_) - (let ((_%e7704277248%_ (gx#syntax-e _%hd7703977242%_))) - (let ((_%lp-hd7704377252%_ + (##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 _%e7704277248%_))) - (_%lp-tl7704477255%_ + (##car _%e7780878014%_))) + (_%lp-tl7781078021%_ (let () (declare (not safe)) - (##cdr _%e7704277248%_)))) - (_%loop7704177238%_ - _%lp-tl7704477255%_ - (cons _%lp-hd7704377252%_ _%body7704577245%_)))) - (let ((_%body7704677258%_ - (reverse _%body7704577245%_))) - ((lambda (_%L77262%_ - _%L77264%_ - _%L77265%_ - _%L77266%_ - _%L77267%_ - _%L77268%_) - (let* ((_%g7730277319%_ - (lambda (_%g7730377315%_) + (##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" - _%g7730377315%_))) - (_%g7730177418%_ - (lambda (_%g7730377323%_) - (if (gx#stx-pair/null? _%g7730377323%_) - (let ((_g84361_ + _%g7806978081%_))) + (_%g7806778184%_ + (lambda (_%g7806978089%_) + (if (gx#stx-pair/null? _%g7806978089%_) + (let ((_g85244_ (gx#syntax-split-splice - _%g7730377323%_ + _%g7806978089%_ '0))) (begin - (let ((_g84362_ + (let ((_g85245_ (let () (declare (not safe)) (if (##values? - _g84361_) + _g85244_) (##values-length - _g84361_) + _g85244_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84362_ + (##fx= _g85245_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g84362_))) - (let ((_%target7730577326%_ + _g85245_))) + (let ((_%target7807178092%_ (let () (declare (not safe)) (##values-ref - _g84361_ + _g85244_ 0))) - (_%tl7730777329%_ + (_%tl7807378095%_ (let () (declare (not safe)) (##values-ref - _g84361_ + _g85244_ 1)))) (if (gx#stx-null? - _%tl7730777329%_) - (letrec ((_%loop7730877332%_ - (lambda (_%hd7730677336%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var7731277339%_) - (if (gx#stx-pair? _%hd7730677336%_) - (let ((_%e7730977342%_ - (gx#syntax-e _%hd7730677336%_))) - (let ((_%lp-hd7731077346%_ + _%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 _%e7730977342%_))) - (_%lp-tl7731177349%_ + (##car _%e7807578108%_))) + (_%lp-tl7807778115%_ (let () (declare (not safe)) - (##cdr _%e7730977342%_)))) - (_%loop7730877332%_ - _%lp-tl7731177349%_ - (cons _%lp-hd7731077346%_ - _%var7731277339%_)))) - (let ((_%var7731377352%_ - (reverse _%var7731277339%_))) - ((lambda (_%L77356%_) + (##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 - _%L77267%_ - _%L77268%_) - (foldr (lambda (_%g7738077384%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7738177387%_ - _%g7738277389%_) - (cons (cons _%g7738177387%_ (cons _%g7738077384%_ '())) - _%g7738277389%_)) + _%L78033%_ + _%L78034%_) + (foldr (lambda (_%g7814678150%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7814778153%_ + _%g7814878155%_) + (cons (cons _%g7814778153%_ (cons _%g7814678150%_ '())) + _%g7814878155%_)) '() - _%L77267%_ - _%L77268%_)) + _%L78033%_ + _%L78034%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if) - (cons _%L77265%_ + (cons _%L78031%_ (cons (cons (gx#datum->syntax '#f 'do-loop-result) - (foldr (lambda (_%g7737877392%_ - _%g7737977395%_) - (cons _%g7737877392%_ - _%g7737977395%_)) + (foldr (lambda (_%g7814478158%_ + _%g7814578161%_) + (cons _%g7814478158%_ + _%g7814578161%_)) '() - _%L77264%_)) + _%L78030%_)) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g7737177398%_ + (foldr (lambda (_%g7813778164%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7737277401%_) - (cons _%g7737177398%_ _%g7737277401%_)) + _%g7813878167%_) + (cons _%g7813778164%_ _%g7813878167%_)) (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L77266%_ - _%L77356%_) - (foldr (lambda (_%g7737377404%_ - _%g7737477407%_ - _%g7737577409%_) + _%L78032%_ + _%L78122%_) + (foldr (lambda (_%g7813978170%_ + _%g7814078173%_ + _%g7814178175%_) (cons (cons (gx#datum->syntax '#f 'do-loop-step) - (cons _%g7737477407%_ - (foldr (lambda (_%g7737677412%_ + (cons _%g7814078173%_ + (foldr (lambda (_%g7814278178%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7737777415%_) - (cons _%g7737677412%_ _%g7737777415%_)) + _%g7814378181%_) + (cons _%g7814278178%_ _%g7814378181%_)) '() - _%g7737377404%_))) + _%g7813978170%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7737577409%_)) + _%g7814178175%_)) '() - _%L77266%_ - _%L77356%_))) + _%L78032%_ + _%L78122%_))) '()) - _%L77262%_))) + _%L78028%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var7731377352%_)))))) - (_%loop7730877332%_ _%target7730577326%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7730277319%_ - _%g7730377323%_))))) - (_%g7730277319%_ - _%g7730377323%_))))) - (_%g7730177418%_ - (map (lambda (_%b77422%_) - (if (gx#identifier? _%b77422%_) - _%b77422%_ - (gx#stx-car _%b77422%_))) - (foldr (lambda (_%g7742477427%_ - _%g7742577430%_) - (cons _%g7742477427%_ - _%g7742577430%_)) + _%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%_)) '() - _%L77268%_))))) - _%body7704677258%_ - _%fini7703777228%_ - _%hd7702777196%_ - _%step7702077174%_ - _%init7702177177%_ - _%var/c7702277179%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7704177238%_ - _%target7703877232%_ + _%L78034%_))))) + _%body7781278024%_ + _%fini7780377994%_ + _%hd7779377962%_ + _%step7778677940%_ + _%init7778777943%_ + _%var/c7778877945%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7780778004%_ + _%target7780477998%_ '())) - (_%g7699677067%_ - _%g7699777071%_))))) - (_%g7699677067%_ _%g7699777071%_))))))) - (_%loop7703277208%_ _%target7702977202%_ '())) - (_%g7699677067%_ _%g7699777071%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7699677067%_ - _%g7699777071%_)))) - (_%g7699677067%_ _%g7699777071%_)))) - (_%g7699677067%_ _%g7699777071%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7701377100%_ - _%target7701077094%_ + (_%g7776277833%_ + _%g7776377837%_))))) + (_%g7776277833%_ _%g7776377837%_))))))) + (_%loop7779877974%_ _%target7779577968%_ '())) + (_%g7776277833%_ _%g7776377837%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7776277833%_ + _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7777977866%_ + _%target7777677860%_ '() '() '())) - (_%g7699677067%_ - _%g7699777071%_))))) - (_%g7699677067%_ _%g7699777071%_)))) - (_%g7699677067%_ _%g7699777071%_)))) - (_%g7699677067%_ _%g7699777071%_))))) - (_%g7699577433%_ _%stx76993%_)))) + (_%g7776277833%_ + _%g7776377837%_))))) + (_%g7776277833%_ _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_))))) + (_%g7776178199%_ _%stx77759%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-result| - (lambda (_%$stx77442%_) - (let* ((_%__stx8370983710%_ _%$stx77442%_) - (_%g7744877482%_ + (lambda (_%$stx78208%_) + (let* ((_%__stx8456984570%_ _%$stx78208%_) + (_%g7821478248%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8370983710%_)))) - (let ((_%__kont8371283713%_ (lambda () '#!void)) - (_%__kont8371483715%_ (lambda (_%L77594%_) _%L77594%_)) - (_%__kont8371683717%_ - (lambda (_%L77539%_ _%L77541%_) + _%__stx8456984570%_)))) + (let ((_%__kont8457284573%_ (lambda () '#!void)) + (_%__kont8457484575%_ (lambda (_%L78360%_) _%L78360%_)) + (_%__kont8457684577%_ + (lambda (_%L78305%_ _%L78307%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77541%_ - (foldr (lambda (_%g7755877561%_ _%g7755977564%_) - (cons _%g7755877561%_ _%g7755977564%_)) + (cons _%L78307%_ + (foldr (lambda (_%g7832478327%_ _%g7832578330%_) + (cons _%g7832478327%_ _%g7832578330%_)) '() - _%L77539%_)))))) - (let ((_%__match8376283763%_ - (lambda (_%e7746277489%_ - _%hd7746377493%_ - _%tl7746477496%_ - _%e7746577499%_ - _%hd7746677503%_ - _%tl7746777506%_ - _%__splice8371883719%_ - _%target7746877509%_ - _%tl7747077512%_) - (letrec ((_%loop7747177515%_ - (lambda (_%hd7746977519%_ _%rest7747577522%_) - (if (gx#stx-pair? _%hd7746977519%_) - (let ((_%e7747277525%_ - (gx#syntax-e _%hd7746977519%_))) - (let ((_%lp-tl7747477532%_ + _%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 _%e7747277525%_))) - (_%lp-hd7747377529%_ + (##cdr _%e7823878291%_))) + (_%lp-hd7823978295%_ (let () (declare (not safe)) - (##car _%e7747277525%_)))) - (_%loop7747177515%_ - _%lp-tl7747477532%_ - (cons _%lp-hd7747377529%_ - _%rest7747577522%_)))) - (let ((_%rest7747677535%_ - (reverse _%rest7747577522%_))) - (_%__kont8371683717%_ - _%rest7747677535%_ - _%hd7746677503%_)))))) - (_%loop7747177515%_ _%target7746877509%_ '()))))) - (if (gx#stx-pair? _%__stx8370983710%_) - (let ((_%e7745077614%_ (gx#syntax-e _%__stx8370983710%_))) - (let ((_%tl7745277621%_ + (##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 _%e7745077614%_))) - (_%hd7745177618%_ + (##cdr _%e7821678380%_))) + (_%hd7821778384%_ (let () (declare (not safe)) - (##car _%e7745077614%_)))) - (if (gx#stx-null? _%tl7745277621%_) - (_%__kont8371283713%_) - (if (gx#stx-pair? _%tl7745277621%_) - (let ((_%e7745777584%_ - (gx#syntax-e _%tl7745277621%_))) - (let ((_%tl7745977591%_ + (##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 _%e7745777584%_))) - (_%hd7745877588%_ + (##cdr _%e7822378350%_))) + (_%hd7822478354%_ (let () (declare (not safe)) - (##car _%e7745777584%_)))) - (if (gx#stx-null? _%tl7745977591%_) - (_%__kont8371483715%_ _%hd7745877588%_) - (if (gx#stx-pair/null? _%tl7745977591%_) - (let ((_%__splice8371883719%_ + (##car _%e7822378350%_)))) + (if (gx#stx-null? _%tl7822578357%_) + (_%__kont8457484575%_ _%hd7822478354%_) + (if (gx#stx-pair/null? _%tl7822578357%_) + (let ((_%__splice8457884579%_ (gx#syntax-split-splice - _%tl7745977591%_ + _%tl7822578357%_ '0))) - (let ((_%tl7747077512%_ + (let ((_%tl7823678278%_ (let () (declare (not safe)) (##vector-ref - _%__splice8371883719%_ + _%__splice8457884579%_ '1))) - (_%target7746877509%_ + (_%target7823478275%_ (let () (declare (not safe)) (##vector-ref - _%__splice8371883719%_ + _%__splice8457884579%_ '0)))) (if (gx#stx-null? - _%tl7747077512%_) - (_%__match8376283763%_ - _%e7745077614%_ - _%hd7745177618%_ - _%tl7745277621%_ - _%e7745777584%_ - _%hd7745877588%_ - _%tl7745977591%_ - _%__splice8371883719%_ - _%target7746877509%_ - _%tl7747077512%_) + _%tl7823678278%_) + (_%__match8462284623%_ + _%e7821678380%_ + _%hd7821778384%_ + _%tl7821878387%_ + _%e7822378350%_ + _%hd7822478354%_ + _%tl7822578357%_ + _%__splice8457884579%_ + _%target7823478275%_ + _%tl7823678278%_) (let () (declare (not safe)) - (_%g7744877482%_))))) + (_%g7821478248%_))))) (let () (declare (not safe)) - (_%g7744877482%_)))))) + (_%g7821478248%_)))))) (let () (declare (not safe)) - (_%g7744877482%_)))))) - (let () (declare (not safe)) (_%g7744877482%_)))))))) + (_%g7821478248%_)))))) + (let () (declare (not safe)) (_%g7821478248%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-step| - (lambda (_%$stx77633%_) - (let* ((_%__stx8376583766%_ _%$stx77633%_) - (_%g7763977685%_ + (lambda (_%$stx78399%_) + (let* ((_%__stx8462584626%_ _%$stx78399%_) + (_%g7840578451%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8376583766%_)))) - (let ((_%__kont8376883769%_ (lambda (_%L77865%_) _%L77865%_)) - (_%__kont8377083771%_ - (lambda (_%L77821%_ _%L77823%_) _%L77821%_)) - (_%__kont8377283773%_ - (lambda (_%L77752%_ _%L77754%_ _%L77755%_) + _%__stx8462584626%_)))) + (let ((_%__kont8462884629%_ (lambda (_%L78631%_) _%L78631%_)) + (_%__kont8463084631%_ + (lambda (_%L78587%_ _%L78589%_) _%L78587%_)) + (_%__kont8463284633%_ + (lambda (_%L78518%_ _%L78520%_ _%L78521%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77754%_ - (foldr (lambda (_%g7777577778%_ _%g7777677781%_) - (cons _%g7777577778%_ _%g7777677781%_)) + (cons _%L78520%_ + (foldr (lambda (_%g7854178544%_ _%g7854278547%_) + (cons _%g7854178544%_ _%g7854278547%_)) '() - _%L77752%_)))))) - (let ((_%__match8383683837%_ - (lambda (_%e7766277692%_ - _%hd7766377696%_ - _%tl7766477699%_ - _%e7766577702%_ - _%hd7766677706%_ - _%tl7766777709%_ - _%e7766877712%_ - _%hd7766977716%_ - _%tl7767077719%_ - _%__splice8377483775%_ - _%target7767177722%_ - _%tl7767377725%_) - (letrec ((_%loop7767477728%_ - (lambda (_%hd7767277732%_ _%rest7767877735%_) - (if (gx#stx-pair? _%hd7767277732%_) - (let ((_%e7767577738%_ - (gx#syntax-e _%hd7767277732%_))) - (let ((_%lp-tl7767777745%_ + _%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 _%e7767577738%_))) - (_%lp-hd7767677742%_ + (##cdr _%e7844178504%_))) + (_%lp-hd7844278508%_ (let () (declare (not safe)) - (##car _%e7767577738%_)))) - (_%loop7767477728%_ - _%lp-tl7767777745%_ - (cons _%lp-hd7767677742%_ - _%rest7767877735%_)))) - (let ((_%rest7767977748%_ - (reverse _%rest7767877735%_))) - (_%__kont8377283773%_ - _%rest7767977748%_ - _%hd7766977716%_ - _%hd7766677706%_)))))) - (_%loop7767477728%_ _%target7767177722%_ '()))))) - (if (gx#stx-pair? _%__stx8376583766%_) - (let ((_%e7764277845%_ (gx#syntax-e _%__stx8376583766%_))) - (let ((_%tl7764477852%_ + (##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 _%e7764277845%_))) - (_%hd7764377849%_ + (##cdr _%e7840878611%_))) + (_%hd7840978615%_ (let () (declare (not safe)) - (##car _%e7764277845%_)))) - (if (gx#stx-pair? _%tl7764477852%_) - (let ((_%e7764577855%_ - (gx#syntax-e _%tl7764477852%_))) - (let ((_%tl7764777862%_ + (##car _%e7840878611%_)))) + (if (gx#stx-pair? _%tl7841078618%_) + (let ((_%e7841178621%_ + (gx#syntax-e _%tl7841078618%_))) + (let ((_%tl7841378628%_ (let () (declare (not safe)) - (##cdr _%e7764577855%_))) - (_%hd7764677859%_ + (##cdr _%e7841178621%_))) + (_%hd7841278625%_ (let () (declare (not safe)) - (##car _%e7764577855%_)))) - (if (gx#stx-null? _%tl7764777862%_) - (_%__kont8376883769%_ _%hd7764677859%_) - (if (gx#stx-pair? _%tl7764777862%_) - (let ((_%e7765677811%_ - (gx#syntax-e _%tl7764777862%_))) - (let ((_%tl7765877818%_ + (##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 _%e7765677811%_))) - (_%hd7765777815%_ + (##cdr _%e7842278577%_))) + (_%hd7842378581%_ (let () (declare (not safe)) - (##car _%e7765677811%_)))) - (if (gx#stx-null? _%tl7765877818%_) - (_%__kont8377083771%_ - _%hd7765777815%_ - _%hd7764677859%_) + (##car _%e7842278577%_)))) + (if (gx#stx-null? _%tl7842478584%_) + (_%__kont8463084631%_ + _%hd7842378581%_ + _%hd7841278625%_) (if (gx#stx-pair/null? - _%tl7765877818%_) - (let ((_%__splice8377483775%_ + _%tl7842478584%_) + (let ((_%__splice8463484635%_ (gx#syntax-split-splice - _%tl7765877818%_ + _%tl7842478584%_ '0))) - (let ((_%tl7767377725%_ + (let ((_%tl7843978491%_ (let () (declare (not safe)) (##vector-ref - _%__splice8377483775%_ + _%__splice8463484635%_ '1))) - (_%target7767177722%_ + (_%target7843778488%_ (let () (declare (not safe)) (##vector-ref - _%__splice8377483775%_ + _%__splice8463484635%_ '0)))) (if (gx#stx-null? - _%tl7767377725%_) - (_%__match8383683837%_ - _%e7764277845%_ - _%hd7764377849%_ - _%tl7764477852%_ - _%e7764577855%_ - _%hd7764677859%_ - _%tl7764777862%_ - _%e7765677811%_ - _%hd7765777815%_ - _%tl7765877818%_ - _%__splice8377483775%_ - _%target7767177722%_ - _%tl7767377725%_) + _%tl7843978491%_) + (_%__match8469684697%_ + _%e7840878611%_ + _%hd7840978615%_ + _%tl7841078618%_ + _%e7841178621%_ + _%hd7841278625%_ + _%tl7841378628%_ + _%e7842278577%_ + _%hd7842378581%_ + _%tl7842478584%_ + _%__splice8463484635%_ + _%target7843778488%_ + _%tl7843978491%_) (let () (declare (not safe)) - (_%g7763977685%_))))) + (_%g7840578451%_))))) (let () (declare (not safe)) - (_%g7763977685%_)))))) + (_%g7840578451%_)))))) (let () (declare (not safe)) - (_%g7763977685%_)))))) - (let () (declare (not safe)) (_%g7763977685%_))))) - (let () (declare (not safe)) (_%g7763977685%_)))))))) + (_%g7840578451%_)))))) + (let () (declare (not safe)) (_%g7840578451%_))))) + (let () (declare (not safe)) (_%g7840578451%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-while/c| - (lambda (_%$stx77883%_) - (let* ((_%g7788777910%_ - (lambda (_%g7788877906%_) + (lambda (_%$stx78649%_) + (let* ((_%g7865378676%_ + (lambda (_%g7865478672%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7788877906%_))) - (_%g7788677981%_ - (lambda (_%g7788877914%_) - (if (gx#stx-pair? _%g7788877914%_) - (let ((_%e7789377917%_ (gx#syntax-e _%g7788877914%_))) - (let ((_%hd7789477921%_ + _%g7865478672%_))) + (_%g7865278747%_ + (lambda (_%g7865478680%_) + (if (gx#stx-pair? _%g7865478680%_) + (let ((_%e7865978683%_ (gx#syntax-e _%g7865478680%_))) + (let ((_%hd7866078687%_ (let () (declare (not safe)) - (##car _%e7789377917%_))) - (_%tl7789577924%_ + (##car _%e7865978683%_))) + (_%tl7866178690%_ (let () (declare (not safe)) - (##cdr _%e7789377917%_)))) - (if (gx#stx-pair? _%tl7789577924%_) - (let ((_%e7789677927%_ - (gx#syntax-e _%tl7789577924%_))) - (let ((_%hd7789777931%_ + (##cdr _%e7865978683%_)))) + (if (gx#stx-pair? _%tl7866178690%_) + (let ((_%e7866278693%_ + (gx#syntax-e _%tl7866178690%_))) + (let ((_%hd7866378697%_ (let () (declare (not safe)) - (##car _%e7789677927%_))) - (_%tl7789877934%_ + (##car _%e7866278693%_))) + (_%tl7866478700%_ (let () (declare (not safe)) - (##cdr _%e7789677927%_)))) - (if (gx#stx-pair? _%tl7789877934%_) - (let ((_%e7789977937%_ - (gx#syntax-e _%tl7789877934%_))) - (let ((_%hd7790077941%_ + (##cdr _%e7866278693%_)))) + (if (gx#stx-pair? _%tl7866478700%_) + (let ((_%e7866578703%_ + (gx#syntax-e _%tl7866478700%_))) + (let ((_%hd7866678707%_ (let () (declare (not safe)) - (##car _%e7789977937%_))) - (_%tl7790177944%_ + (##car _%e7866578703%_))) + (_%tl7866778710%_ (let () (declare (not safe)) - (##cdr _%e7789977937%_)))) - (if (gx#stx-pair? _%hd7790077941%_) - (let ((_%e7790277947%_ + (##cdr _%e7866578703%_)))) + (if (gx#stx-pair? _%hd7866678707%_) + (let ((_%e7866878713%_ (gx#syntax-e - _%hd7790077941%_))) - (let ((_%hd7790377951%_ + _%hd7866678707%_))) + (let ((_%hd7866978717%_ (let () (declare (not safe)) - (##car _%e7790277947%_))) - (_%tl7790477954%_ + (##car _%e7866878713%_))) + (_%tl7867078720%_ (let () (declare (not safe)) - (##cdr _%e7790277947%_)))) - ((lambda (_%L77957%_ - _%L77959%_ - _%L77960%_ - _%L77961%_) + (##cdr _%e7866878713%_)))) + ((lambda (_%L78723%_ + _%L78725%_ + _%L78726%_ + _%L78727%_) (cons (gx#datum->syntax '#f 'do/c) - (cons _%L77961%_ + (cons _%L78727%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _%L77960%_ '())) - _%L77959%_) - _%L77957%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7790177944%_ - _%tl7790477954%_ - _%hd7790377951%_ - _%hd7789777931%_))) - (_%g7788777910%_ - _%g7788877914%_)))) - (_%g7788777910%_ _%g7788877914%_)))) - (_%g7788777910%_ _%g7788877914%_)))) - (_%g7788777910%_ _%g7788877914%_))))) - (_%g7788677981%_ _%$stx77883%_)))) + (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 (_%stx77985%_) - (let* ((_%__stx8383983840%_ _%stx77985%_) - (_%g7798978023%_ + (lambda (_%stx78751%_) + (let* ((_%__stx8469984700%_ _%stx78751%_) + (_%g7875578789%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8383983840%_)))) - (let ((_%__kont8384283843%_ - (lambda (_%L78125%_ _%L78127%_ _%L78128%_ _%L78129%_) - (let* ((_%g7815678171%_ - (lambda (_%g7815778167%_) + _%__stx8469984700%_)))) + (let ((_%__kont8470284703%_ + (lambda (_%L78891%_ _%L78893%_ _%L78894%_ _%L78895%_) + (let* ((_%g7892278937%_ + (lambda (_%g7892378933%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7815778167%_))) - (_%g7815578216%_ - (lambda (_%g7815778175%_) - (if (gx#stx-pair? _%g7815778175%_) - (let ((_%e7816078178%_ - (gx#syntax-e _%g7815778175%_))) - (let ((_%hd7816178182%_ + _%g7892378933%_))) + (_%g7892178982%_ + (lambda (_%g7892378941%_) + (if (gx#stx-pair? _%g7892378941%_) + (let ((_%e7892678944%_ + (gx#syntax-e _%g7892378941%_))) + (let ((_%hd7892778948%_ (let () (declare (not safe)) - (##car _%e7816078178%_))) - (_%tl7816278185%_ + (##car _%e7892678944%_))) + (_%tl7892878951%_ (let () (declare (not safe)) - (##cdr _%e7816078178%_)))) - (if (gx#stx-pair? _%tl7816278185%_) - (let ((_%e7816378188%_ + (##cdr _%e7892678944%_)))) + (if (gx#stx-pair? _%tl7892878951%_) + (let ((_%e7892978954%_ (gx#syntax-e - _%tl7816278185%_))) - (let ((_%hd7816478192%_ + _%tl7892878951%_))) + (let ((_%hd7893078958%_ (let () (declare (not safe)) - (##car _%e7816378188%_))) - (_%tl7816578195%_ + (##car _%e7892978954%_))) + (_%tl7893178961%_ (let () (declare (not safe)) - (##cdr _%e7816378188%_)))) + (##cdr _%e7892978954%_)))) (if (gx#stx-null? - _%tl7816578195%_) - ((lambda (_%L78198%_ - _%L78200%_) + _%tl7893178961%_) + ((lambda (_%L78964%_ + _%L78966%_) (cons (gx#datum->syntax '#f 'begin) @@ -13862,198 +14323,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78200%_ (cons _%L78128%_ '()))) + (cons _%L78966%_ (cons _%L78894%_ '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L78129%_ '()) - (cons _%L78200%_ '()))) + (cons (cons _%L78895%_ '()) + (cons _%L78966%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78198%_ + (cons (cons _%L78964%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'new-value) - (cons _%L78127%_ _%L78125%_)) + (cons _%L78893%_ _%L78891%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78200%_ + (cons _%L78966%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'new-value) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7816478192%_ - _%hd7816178182%_) - (_%g7815678171%_ - _%g7815778175%_)))) - (_%g7815678171%_ _%g7815778175%_)))) - (_%g7815678171%_ _%g7815778175%_))))) - (_%g7815578216%_ - (list (gx#stx-identifier _%L78129%_ '"__" _%L78129%_) + _%hd7893078958%_ + _%hd7892778948%_) + (_%g7892278937%_ + _%g7892378941%_)))) + (_%g7892278937%_ _%g7892378941%_)))) + (_%g7892278937%_ _%g7892378941%_))))) + (_%g7892178982%_ + (list (gx#stx-identifier _%L78895%_ '"__" _%L78895%_) (gx#stx-identifier - _%L78129%_ - _%L78129%_ + _%L78895%_ + _%L78895%_ '"-set!")))))) - (_%__kont8384483845%_ - (lambda (_%L78060%_ _%L78062%_) + (_%__kont8470484705%_ + (lambda (_%L78826%_ _%L78828%_) (cons (gx#datum->syntax '#f 'defmutable*) - (cons _%L78062%_ - (cons _%L78060%_ + (cons _%L78828%_ + (cons _%L78826%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8387083871%_ - (lambda (_%e7799578085%_ - _%hd7799678089%_ - _%tl7799778092%_ - _%e7799878095%_ - _%hd7799978099%_ - _%tl7800078102%_ - _%e7800178105%_ - _%hd7800278109%_ - _%tl7800378112%_ - _%e7800478115%_ - _%hd7800578119%_ - _%tl7800678122%_) - (let ((_%L78125%_ _%tl7800678122%_) - (_%L78127%_ _%hd7800578119%_) - (_%L78128%_ _%hd7800278109%_) - (_%L78129%_ _%hd7799978099%_)) - (if (and (gx#identifier? _%L78129%_) - (gx#identifier? _%L78127%_) + (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=? - _%L78127%_ + _%L78893%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78127%_ + _%L78893%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78127%_ + _%L78893%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8384283843%_ - _%L78125%_ - _%L78127%_ - _%L78128%_ - _%L78129%_) - (let () (declare (not safe)) (_%g7798978023%_))))))) - (if (gx#stx-pair? _%__stx8383983840%_) - (let ((_%e7799578085%_ (gx#syntax-e _%__stx8383983840%_))) - (let ((_%tl7799778092%_ + (_%__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 _%e7799578085%_))) - (_%hd7799678089%_ + (##cdr _%e7876178851%_))) + (_%hd7876278855%_ (let () (declare (not safe)) - (##car _%e7799578085%_)))) - (if (gx#stx-pair? _%tl7799778092%_) - (let ((_%e7799878095%_ - (gx#syntax-e _%tl7799778092%_))) - (let ((_%tl7800078102%_ + (##car _%e7876178851%_)))) + (if (gx#stx-pair? _%tl7876378858%_) + (let ((_%e7876478861%_ + (gx#syntax-e _%tl7876378858%_))) + (let ((_%tl7876678868%_ (let () (declare (not safe)) - (##cdr _%e7799878095%_))) - (_%hd7799978099%_ + (##cdr _%e7876478861%_))) + (_%hd7876578865%_ (let () (declare (not safe)) - (##car _%e7799878095%_)))) - (if (gx#stx-pair? _%tl7800078102%_) - (let ((_%e7800178105%_ - (gx#syntax-e _%tl7800078102%_))) - (let ((_%tl7800378112%_ + (##car _%e7876478861%_)))) + (if (gx#stx-pair? _%tl7876678868%_) + (let ((_%e7876778871%_ + (gx#syntax-e _%tl7876678868%_))) + (let ((_%tl7876978878%_ (let () (declare (not safe)) - (##cdr _%e7800178105%_))) - (_%hd7800278109%_ + (##cdr _%e7876778871%_))) + (_%hd7876878875%_ (let () (declare (not safe)) - (##car _%e7800178105%_)))) - (if (gx#stx-pair? _%tl7800378112%_) - (let ((_%e7800478115%_ + (##car _%e7876778871%_)))) + (if (gx#stx-pair? _%tl7876978878%_) + (let ((_%e7877078881%_ (gx#syntax-e - _%tl7800378112%_))) - (let ((_%tl7800678122%_ + _%tl7876978878%_))) + (let ((_%tl7877278888%_ (let () (declare (not safe)) - (##cdr _%e7800478115%_))) - (_%hd7800578119%_ + (##cdr _%e7877078881%_))) + (_%hd7877178885%_ (let () (declare (not safe)) - (##car _%e7800478115%_)))) - (_%__match8387083871%_ - _%e7799578085%_ - _%hd7799678089%_ - _%tl7799778092%_ - _%e7799878095%_ - _%hd7799978099%_ - _%tl7800078102%_ - _%e7800178105%_ - _%hd7800278109%_ - _%tl7800378112%_ - _%e7800478115%_ - _%hd7800578119%_ - _%tl7800678122%_))) - (if (gx#stx-null? _%tl7800378112%_) - (_%__kont8384483845%_ - _%hd7800278109%_ - _%hd7799978099%_) + (##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)) - (_%g7798978023%_)))))) + (_%g7875578789%_)))))) (let () (declare (not safe)) - (_%g7798978023%_))))) - (let () (declare (not safe)) (_%g7798978023%_))))) - (let () (declare (not safe)) (_%g7798978023%_)))))))) + (_%g7875578789%_))))) + (let () (declare (not safe)) (_%g7875578789%_))))) + (let () (declare (not safe)) (_%g7875578789%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| - (lambda (_%stx78224%_) - (let* ((_%__stx8389383894%_ _%stx78224%_) - (_%g7822878262%_ + (lambda (_%stx78990%_) + (let* ((_%__stx8475384754%_ _%stx78990%_) + (_%g7899479028%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8389383894%_)))) - (let ((_%__kont8389683897%_ - (lambda (_%L78364%_ _%L78366%_ _%L78367%_ _%L78368%_) - (let* ((_%g7839578410%_ - (lambda (_%g7839678406%_) + _%__stx8475384754%_)))) + (let ((_%__kont8475684757%_ + (lambda (_%L79130%_ _%L79132%_ _%L79133%_ _%L79134%_) + (let* ((_%g7916179176%_ + (lambda (_%g7916279172%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7839678406%_))) - (_%g7839478455%_ - (lambda (_%g7839678414%_) - (if (gx#stx-pair? _%g7839678414%_) - (let ((_%e7839978417%_ - (gx#syntax-e _%g7839678414%_))) - (let ((_%hd7840078421%_ + _%g7916279172%_))) + (_%g7916079221%_ + (lambda (_%g7916279180%_) + (if (gx#stx-pair? _%g7916279180%_) + (let ((_%e7916579183%_ + (gx#syntax-e _%g7916279180%_))) + (let ((_%hd7916679187%_ (let () (declare (not safe)) - (##car _%e7839978417%_))) - (_%tl7840178424%_ + (##car _%e7916579183%_))) + (_%tl7916779190%_ (let () (declare (not safe)) - (##cdr _%e7839978417%_)))) - (if (gx#stx-pair? _%tl7840178424%_) - (let ((_%e7840278427%_ + (##cdr _%e7916579183%_)))) + (if (gx#stx-pair? _%tl7916779190%_) + (let ((_%e7916879193%_ (gx#syntax-e - _%tl7840178424%_))) - (let ((_%hd7840378431%_ + _%tl7916779190%_))) + (let ((_%hd7916979197%_ (let () (declare (not safe)) - (##car _%e7840278427%_))) - (_%tl7840478434%_ + (##car _%e7916879193%_))) + (_%tl7917079200%_ (let () (declare (not safe)) - (##cdr _%e7840278427%_)))) + (##cdr _%e7916879193%_)))) (if (gx#stx-null? - _%tl7840478434%_) - ((lambda (_%L78437%_ - _%L78439%_) + _%tl7917079200%_) + ((lambda (_%L79203%_ + _%L79205%_) (cons (gx#datum->syntax '#f 'begin) @@ -14061,21 +14522,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78439%_ (cons _%L78367%_ '()))) + (cons _%L79205%_ (cons _%L79133%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78437%_ + (cons (cons _%L79203%_ (cons (cons (gx#datum->syntax '#f 'new-value) - (cons _%L78366%_ + (cons _%L79132%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L78364%_)) + _%L79130%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78439%_ + (cons _%L79205%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -14084,7 +14545,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L78368%_ + (cons _%L79134%_ (cons (cons (gx#datum->syntax '#f 'identifier-rules) @@ -14102,7 +14563,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78437%_ + (cons (cons _%L79203%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14118,7 +14579,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78437%_ + (cons (cons _%L79203%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14136,7 +14597,7 @@ 'syntax) (cons (gx#datum->syntax '#f 'the-var) '())) '())) - (cons _%L78439%_ '()))) + (cons _%L79205%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f @@ -14146,7 +14607,7 @@ '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) - (cons (cons _%L78439%_ + (cons (cons _%L79205%_ (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) '())) @@ -14156,126 +14617,126 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7840378431%_ - _%hd7840078421%_) - (_%g7839578410%_ - _%g7839678414%_)))) - (_%g7839578410%_ _%g7839678414%_)))) - (_%g7839578410%_ _%g7839678414%_))))) - (_%g7839478455%_ - (list (gx#stx-identifier _%L78368%_ '"__" _%L78368%_) + _%hd7916979197%_ + _%hd7916679187%_) + (_%g7916179176%_ + _%g7916279180%_)))) + (_%g7916179176%_ _%g7916279180%_)))) + (_%g7916179176%_ _%g7916279180%_))))) + (_%g7916079221%_ + (list (gx#stx-identifier _%L79134%_ '"__" _%L79134%_) (gx#stx-identifier - _%L78368%_ - _%L78368%_ + _%L79134%_ + _%L79134%_ '"-set!")))))) - (_%__kont8389883899%_ - (lambda (_%L78299%_ _%L78301%_) + (_%__kont8475884759%_ + (lambda (_%L79065%_ _%L79067%_) (cons (gx#datum->syntax '#f 'defmutable) - (cons _%L78301%_ - (cons _%L78299%_ + (cons _%L79067%_ + (cons _%L79065%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8392483925%_ - (lambda (_%e7823478324%_ - _%hd7823578328%_ - _%tl7823678331%_ - _%e7823778334%_ - _%hd7823878338%_ - _%tl7823978341%_ - _%e7824078344%_ - _%hd7824178348%_ - _%tl7824278351%_ - _%e7824378354%_ - _%hd7824478358%_ - _%tl7824578361%_) - (let ((_%L78364%_ _%tl7824578361%_) - (_%L78366%_ _%hd7824478358%_) - (_%L78367%_ _%hd7824178348%_) - (_%L78368%_ _%hd7823878338%_)) - (if (and (gx#identifier? _%L78368%_) - (gx#identifier? _%L78366%_) + (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=? - _%L78366%_ + _%L79132%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78366%_ + _%L79132%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78366%_ + _%L79132%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8389683897%_ - _%L78364%_ - _%L78366%_ - _%L78367%_ - _%L78368%_) - (let () (declare (not safe)) (_%g7822878262%_))))))) - (if (gx#stx-pair? _%__stx8389383894%_) - (let ((_%e7823478324%_ (gx#syntax-e _%__stx8389383894%_))) - (let ((_%tl7823678331%_ + (_%__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 _%e7823478324%_))) - (_%hd7823578328%_ + (##cdr _%e7900079090%_))) + (_%hd7900179094%_ (let () (declare (not safe)) - (##car _%e7823478324%_)))) - (if (gx#stx-pair? _%tl7823678331%_) - (let ((_%e7823778334%_ - (gx#syntax-e _%tl7823678331%_))) - (let ((_%tl7823978341%_ + (##car _%e7900079090%_)))) + (if (gx#stx-pair? _%tl7900279097%_) + (let ((_%e7900379100%_ + (gx#syntax-e _%tl7900279097%_))) + (let ((_%tl7900579107%_ (let () (declare (not safe)) - (##cdr _%e7823778334%_))) - (_%hd7823878338%_ + (##cdr _%e7900379100%_))) + (_%hd7900479104%_ (let () (declare (not safe)) - (##car _%e7823778334%_)))) - (if (gx#stx-pair? _%tl7823978341%_) - (let ((_%e7824078344%_ - (gx#syntax-e _%tl7823978341%_))) - (let ((_%tl7824278351%_ + (##car _%e7900379100%_)))) + (if (gx#stx-pair? _%tl7900579107%_) + (let ((_%e7900679110%_ + (gx#syntax-e _%tl7900579107%_))) + (let ((_%tl7900879117%_ (let () (declare (not safe)) - (##cdr _%e7824078344%_))) - (_%hd7824178348%_ + (##cdr _%e7900679110%_))) + (_%hd7900779114%_ (let () (declare (not safe)) - (##car _%e7824078344%_)))) - (if (gx#stx-pair? _%tl7824278351%_) - (let ((_%e7824378354%_ + (##car _%e7900679110%_)))) + (if (gx#stx-pair? _%tl7900879117%_) + (let ((_%e7900979120%_ (gx#syntax-e - _%tl7824278351%_))) - (let ((_%tl7824578361%_ + _%tl7900879117%_))) + (let ((_%tl7901179127%_ (let () (declare (not safe)) - (##cdr _%e7824378354%_))) - (_%hd7824478358%_ + (##cdr _%e7900979120%_))) + (_%hd7901079124%_ (let () (declare (not safe)) - (##car _%e7824378354%_)))) - (_%__match8392483925%_ - _%e7823478324%_ - _%hd7823578328%_ - _%tl7823678331%_ - _%e7823778334%_ - _%hd7823878338%_ - _%tl7823978341%_ - _%e7824078344%_ - _%hd7824178348%_ - _%tl7824278351%_ - _%e7824378354%_ - _%hd7824478358%_ - _%tl7824578361%_))) - (if (gx#stx-null? _%tl7824278351%_) - (_%__kont8389883899%_ - _%hd7824178348%_ - _%hd7823878338%_) + (##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)) - (_%g7822878262%_)))))) + (_%g7899479028%_)))))) (let () (declare (not safe)) - (_%g7822878262%_))))) - (let () (declare (not safe)) (_%g7822878262%_))))) - (let () (declare (not safe)) (_%g7822878262%_)))))))))) + (_%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 cbb97ec2e..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 1734131742) + (define gerbil/core/contract~ClassMeta::timestamp 1734357957) (define gerbil/core/contract~ClassMeta#!class-precedence-list - (lambda (_%klass52426%_) - (let ((_%$e52428%_ - (let ((__obj83979 _%klass52426%_)) + (lambda (_%klass52390%_) + (let ((_%$e52392%_ + (let ((__obj84838 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83979 + __obj84838 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83979 '5 '#f '#f)) + (##unchecked-structure-ref __obj84838 '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83979 + __obj84838 'precedence-list))))) - (if _%$e52428%_ - _%$e52428%_ - (let ((_g84026_ + (if _%$e52392%_ + _%$e52392%_ + (let ((_g84894_ (c4-linearize '() - (let ((__obj83980 _%klass52426%_)) + (let ((__obj84839 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83980 + __obj84839 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83980 '3 '#f '#f)) + (##unchecked-structure-ref __obj84839 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83980 + __obj84839 'super))) 'get-precedence-list: - (lambda (_%klass-id52432%_) - (cons _%klass-id52432%_ + (lambda (_%klass-id52396%_) + (cons _%klass-id52396%_ (gerbil/core/contract~ClassMeta#!class-precedence-list - (gx#syntax-local-value _%klass-id52432%_)))) + (gx#syntax-local-value _%klass-id52396%_)))) 'struct: - (lambda (_%klass-id52434%_) - (let ((__obj83981 - (gx#syntax-local-value _%klass-id52434%_))) + (lambda (_%klass-id52398%_) + (let ((__obj84840 + (gx#syntax-local-value _%klass-id52398%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83981 + __obj84840 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83981 + __obj84840 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83981 + __obj84840 'struct?)))) 'eq: - gx#free-identifier=? - 'get-name: - gx#stx-e))) + gx#free-identifier=?))) (begin - (let ((_g84027_ + (let ((_g84895_ (let () (declare (not safe)) - (if (##values? _g84026_) - (##values-length _g84026_) + (if (##values? _g84894_) + (##values-length _g84894_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84027_ 2))) - (error "Context expects 2 values" _g84027_))) - (let ((_%precedence-list52436%_ - (let () (declare (not safe)) (##values-ref _g84026_ 0))) - (_%base-struct52437%_ + (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)) - (##values-ref _g84026_ 1)))) - (let ((_%precedence-list52481%_ - (if (let ((__tmp84028 - (let ((__obj83982 _%klass52426%_)) + (##values-ref _g84894_ 1)))) + (let ((_%precedence-list52445%_ + (if (let ((__tmp84896 + (let ((__obj84841 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83982 + __obj84841 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83982 + __obj84841 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83982 + __obj84841 'id))))) (declare (not safe)) - (##memq __tmp84028 '(t object class))) - _%precedence-list52436%_ + (##memq __tmp84896 '(t object class))) + _%precedence-list52400%_ (if (member ':object - _%precedence-list52436%_ + _%precedence-list52400%_ gx#free-identifier=?) - _%precedence-list52436%_ - (if (let ((__obj83983 _%klass52426%_)) + _%precedence-list52400%_ + (if (let ((__obj84842 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83983 + __obj84842 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83983 + __obj84842 '9 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83983 + __obj84842 'system?))) (if (member ':t - _%precedence-list52436%_ + _%precedence-list52400%_ gx#free-identifier=?) - _%precedence-list52436%_ - (let ((__tmp84029 + _%precedence-list52400%_ + (let ((__tmp84897 (cons (gx#core-quote-syntax ':t) '()))) (declare (not safe)) (##append - _%precedence-list52436%_ - __tmp84029))) - (let _%loop52443%_ ((_%tail52445%_ - _%precedence-list52436%_) - (_%head52446%_ '())) - (let* ((_%tail5244752455%_ - _%tail52445%_) - (_%else5244952463%_ + _%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) '())) - _%head52446%_))) + _%head52410%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5245152469%_ - (lambda (_%rest52466%_ - _%hd52467%_) + (_%K5241552433%_ + (lambda (_%rest52430%_ + _%hd52431%_) (if (gx#free-identifier=? - _%hd52467%_ + _%hd52431%_ ':t) (foldl cons (cons (gx#core-quote-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':object) - _%tail52445%_) - _%head52446%_) + _%tail52409%_) + _%head52410%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop52443%_ - _%rest52466%_ - (cons _%hd52467%_ - _%head52446%_)))))) - (if (pair? _%tail5244752455%_) - (let ((_%hd5245252472%_ + (_%loop52407%_ + _%rest52430%_ + (cons _%hd52431%_ + _%head52410%_)))))) + (if (pair? _%tail5241152419%_) + (let ((_%hd5241652436%_ (let () (declare (not safe)) - (##car _%tail5244752455%_))) - (_%tl5245352474%_ + (##car _%tail5241152419%_))) + (_%tl5241752438%_ (let () (declare (not safe)) - (##cdr _%tail5244752455%_)))) - (let* ((_%hd52477%_ - _%hd5245252472%_) - (_%rest52479%_ - _%tl5245352474%_)) - (_%K5245152469%_ - _%rest52479%_ - _%hd52477%_))) - (_%else5244952463%_))))))))) - (let ((__obj83984 _%klass52426%_)) + (##cdr _%tail5241152419%_)))) + (let* ((_%hd52441%_ + _%hd5241652436%_) + (_%rest52443%_ + _%tl5241752438%_)) + (_%K5241552433%_ + _%rest52443%_ + _%hd52441%_))) + (_%else5241352427%_))))))))) + (let ((__obj84843 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83984 + __obj84843 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83984 - _%precedence-list52481%_ + __obj84843 + _%precedence-list52445%_ '5 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83984 + __obj84843 'precedence-list - _%precedence-list52481%_))) - _%precedence-list52481%_))))))))) + _%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 f5f5e1e99..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 1734131742) + (define gerbil/core/contract~InterfaceInfo::timestamp 1734357957) (begin - (define gerbil/core/contract~InterfaceInfo#_g84022_ + (define gerbil/core/contract~InterfaceInfo#_g84888_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g84023_ + (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 _%$args45088%_ + (lambda _%$args45051%_ (apply make-instance gerbil/core/contract~InterfaceInfo#interface-info::t - _%$args45088%_))) + _%$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* ((_%g4487744891%_ - (lambda (_%g4487844888%_) + (let* ((_%g4484044854%_ + (lambda (_%g4484144851%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4487844888%_))) - (_%g4487645085%_ - (lambda (_%g4487844894%_) - (if (gx#stx-pair? _%g4487844894%_) - (let ((_%e4488144896%_ (gx#syntax-e _%g4487844894%_))) - (let ((_%hd4488244899%_ + _%g4484144851%_))) + (_%g4483945048%_ + (lambda (_%g4484144857%_) + (if (gx#stx-pair? _%g4484144857%_) + (let ((_%e4484444859%_ (gx#syntax-e _%g4484144857%_))) + (let ((_%hd4484544862%_ (let () (declare (not safe)) - (##car _%e4488144896%_))) - (_%tl4488344901%_ + (##car _%e4484444859%_))) + (_%tl4484644864%_ (let () (declare (not safe)) - (##cdr _%e4488144896%_)))) - (if (gx#stx-pair? _%tl4488344901%_) - (let ((_%e4488444904%_ - (gx#syntax-e _%tl4488344901%_))) - (let ((_%hd4488544907%_ + (##cdr _%e4484444859%_)))) + (if (gx#stx-pair? _%tl4484644864%_) + (let ((_%e4484744867%_ + (gx#syntax-e _%tl4484644864%_))) + (let ((_%hd4484844870%_ (let () (declare (not safe)) - (##car _%e4488444904%_))) - (_%tl4488644909%_ + (##car _%e4484744867%_))) + (_%tl4484944872%_ (let () (declare (not safe)) - (##cdr _%e4488444904%_)))) - (if (gx#stx-null? _%tl4488644909%_) - ((lambda (_%L44912%_ _%L44913%_) - (lambda (_%self44927%_ _%stx44928%_) - (let* ((_%__stx7846378464%_ - _%stx44928%_) - (_%g4493144944%_ + (##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" - _%__stx7846378464%_)))) - (let ((_%__kont7846578466%_ - (lambda (_%L45002%_) - (let* ((_%g4501345031%_ - (lambda (_%g4501445028%_) + _%__stx7922979230%_)))) + (let ((_%__kont7923179232%_ + (lambda (_%L44965%_) + (let* ((_%g4497644994%_ + (lambda (_%g4497744991%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4501445028%_))) - (_%g4501245079%_ - (lambda (_%g4501445034%_) - (if (gx#stx-pair? _%g4501445034%_) - (let ((_%e4501845036%_ - (gx#syntax-e _%g4501445034%_))) - (let ((_%hd4501945039%_ + _%g4497744991%_))) + (_%g4497545042%_ + (lambda (_%g4497744997%_) + (if (gx#stx-pair? _%g4497744997%_) + (let ((_%e4498144999%_ + (gx#syntax-e _%g4497744997%_))) + (let ((_%hd4498245002%_ (let () (declare (not safe)) - (##car _%e4501845036%_))) - (_%tl4502045041%_ + (##car _%e4498144999%_))) + (_%tl4498345004%_ (let () (declare (not safe)) - (##cdr _%e4501845036%_)))) - (if (gx#stx-pair? _%tl4502045041%_) - (let ((_%e4502145044%_ - (gx#syntax-e _%tl4502045041%_))) - (let ((_%hd4502245047%_ + (##cdr _%e4498144999%_)))) + (if (gx#stx-pair? _%tl4498345004%_) + (let ((_%e4498445007%_ + (gx#syntax-e _%tl4498345004%_))) + (let ((_%hd4498545010%_ (let () (declare (not safe)) - (##car _%e4502145044%_))) - (_%tl4502345049%_ + (##car _%e4498445007%_))) + (_%tl4498645012%_ (let () (declare (not safe)) - (##cdr _%e4502145044%_)))) - (if (gx#stx-pair? _%tl4502345049%_) - (let ((_%e4502445052%_ + (##cdr _%e4498445007%_)))) + (if (gx#stx-pair? _%tl4498645012%_) + (let ((_%e4498745015%_ (gx#syntax-e - _%tl4502345049%_))) - (let ((_%hd4502545055%_ + _%tl4498645012%_))) + (let ((_%hd4498845018%_ (let () (declare (not safe)) - (##car _%e4502445052%_))) - (_%tl4502645057%_ + (##car _%e4498745015%_))) + (_%tl4498945020%_ (let () (declare (not safe)) - (##cdr _%e4502445052%_)))) + (##cdr _%e4498745015%_)))) (if (gx#stx-null? - _%tl4502645057%_) - ((lambda (_%L45060%_ - _%L45061%_ - _%L45062%_) + _%tl4498945020%_) + ((lambda (_%L45023%_ + _%L45024%_ + _%L45025%_) (cons (gx#datum->syntax '#f 'let) @@ -316,22 +350,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) - (cons _%L45002%_ '())) + (cons _%L44965%_ '())) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45060%_ '())) + (cons _%L45023%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L44912%_ + (cons (cons _%L44875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L45062%_ + (cons _%L45025%_ (cons (gx#datum->syntax '#f '$obj) '()))) (cons (gx#datum->syntax '#f '$obj) - (cons (cons _%L44913%_ - (cons _%L45061%_ + (cons (cons _%L44876%_ + (cons _%L45024%_ (cons (gx#datum->syntax '#f '$obj) @@ -341,214 +375,190 @@ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4502545055%_ - _%hd4502245047%_ - _%hd4501945039%_) - (_%g4501345031%_ - _%g4501445034%_)))) - (_%g4501345031%_ - _%g4501445034%_)))) - (_%g4501345031%_ _%g4501445034%_)))) - (_%g4501345031%_ _%g4501445034%_))))) - (_%g4501245079%_ - (list (let ((__obj83947 _%self44927%_)) + _%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? - __obj83947 + __obj84807 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83947 - '4 + __obj84807 + '7 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83947 + __obj84807 'instance-type))) - (let ((__obj83948 _%self44927%_)) + (let ((__obj84808 _%self44890%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83948 + __obj84808 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83948 - '5 + __obj84808 + '6 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83948 + __obj84808 'interface-descriptor))) - (let ((__obj83949 _%self44927%_)) + (let ((__obj84809 _%self44890%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83949 + __obj84809 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83949 - '4 + __obj84809 + '7 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83949 + __obj84809 'instance-type)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7846778468%_ + (_%__kont7923379234%_ (lambda () - (let* ((_%g4495144958%_ - (lambda (_%g4495244955%_) + (let* ((_%g4491444921%_ + (lambda (_%g4491544918%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4495244955%_))) - (_%g4495044978%_ - (lambda (_%g4495244961%_) - ((lambda (_%L44963%_) _%L44963%_) _%g4495244961%_)))) - (_%g4495044978%_ - (let ((__obj83950 _%self44927%_)) + _%g4491544918%_))) + (_%g4491344941%_ + (lambda (_%g4491544924%_) + ((lambda (_%L44926%_) _%L44926%_) _%g4491544924%_)))) + (_%g4491344941%_ + (let ((__obj84810 _%self44890%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83950 + __obj84810 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83950 '5 '#f '#f)) + (##unchecked-structure-ref __obj84810 '6 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83950 + __obj84810 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g4493044981%_ + (let ((_%g4489344944%_ (lambda () (if (gx#identifier? - _%stx44928%_) - (_%__kont7846778468%_) + _%stx44891%_) + (_%__kont7923379234%_) (let () (declare (not safe)) - (_%g4493144944%_)))))) + (_%g4489444907%_)))))) (if (gx#stx-pair? - _%__stx7846378464%_) - (let ((_%e4493444986%_ + _%__stx7922979230%_) + (let ((_%e4489744949%_ (gx#syntax-e - _%__stx7846378464%_))) - (let ((_%tl4493644991%_ + _%__stx7922979230%_))) + (let ((_%tl4489944954%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4493444986%_))) - (_%hd4493544989%_ - (let () (declare (not safe)) (##car _%e4493444986%_)))) - (if (gx#stx-pair? _%tl4493644991%_) - (let ((_%e4493744994%_ (gx#syntax-e _%tl4493644991%_))) - (let ((_%tl4493944999%_ + (##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 _%e4493744994%_))) - (_%hd4493844997%_ + (##cdr _%e4490044957%_))) + (_%hd4490144960%_ (let () (declare (not safe)) - (##car _%e4493744994%_)))) - (if (gx#stx-null? _%tl4493944999%_) - (_%__kont7846578466%_ _%hd4493844997%_) - (let () (declare (not safe)) (_%g4493044981%_))))) - (let () (declare (not safe)) (_%g4493044981%_))))) + (##car _%e4490044957%_)))) + (if (gx#stx-null? _%tl4490244962%_) + (_%__kont7923179232%_ _%hd4490144960%_) + (let () (declare (not safe)) (_%g4489344944%_))))) + (let () (declare (not safe)) (_%g4489344944%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4493044981%_)))))))) - _%hd4488544907%_ - _%hd4488244899%_) - (_%g4487744891%_ _%g4487844894%_)))) - (_%g4487744891%_ _%g4487844894%_)))) - (_%g4487744891%_ _%g4487844894%_))))) - (_%g4487645085%_ - (list gerbil/core/contract~InterfaceInfo#_g84022_ - gerbil/core/contract~InterfaceInfo#_g84023_)))) + (_%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 (_%info44710%_) - (let _%loop44712%_ ((_%rest44714%_ - (let ((__obj83952 _%info44710%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj83952 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj83952 - '2 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83952 - 'interface-mixin)))) - (_%result44715%_ '())) - (let* ((_%rest4471644724%_ _%rest44714%_) - (_%else4471844732%_ (lambda () _%result44715%_)) - (_%K4472044742%_ - (lambda (_%rest44735%_ _%id44736%_) - (let* ((_%mixin44738%_ - (let ((__obj83951 - (gx#syntax-local-value _%id44736%_))) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj83951 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj83951 - '2 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83951 - 'interface-mixin)))) - (_%result44740%_ - (if (member _%id44736%_ - _%result44715%_ - gx#free-identifier=?) - _%result44715%_ - (cons _%id44736%_ _%result44715%_)))) - (_%loop44712%_ - (foldl cons _%rest44735%_ _%mixin44738%_) - _%result44740%_))))) - (if (pair? _%rest4471644724%_) - (let ((_%hd4472144745%_ - (let () - (declare (not safe)) - (##car _%rest4471644724%_))) - (_%tl4472244747%_ - (let () - (declare (not safe)) - (##cdr _%rest4471644724%_)))) - (let* ((_%id44750%_ _%hd4472144745%_) - (_%rest44752%_ _%tl4472244747%_)) - (_%K4472044742%_ _%rest44752%_ _%id44750%_))) - (_%else4471844732%_)))))) + (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 (_%stx44691%_ _%is?44692%_) (if (gx#identifier? _%stx44691%_) @@ -572,15 +582,15 @@ _%stx44703%_ _%is?44705%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g84025_ - (let ((_g84024_ (let () (declare (not safe)) (##length _g84025_)))) - (cond ((let () (declare (not safe)) (##fx= _g84024_ 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 - _g84025_)) - ((let () (declare (not safe)) (##fx= _g84024_ 2)) + _g84893_)) + ((let () (declare (not safe)) (##fx= _g84892_ 2)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _g84025_)) + _g84893_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g84025_))))))))) + _g84893_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index da0fe9476..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 1734131742) + (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 _%$args46424%_ + (lambda _%$args46388%_ (apply make-instance gerbil/core/contract~TypeEnv#type-env::t - _%$args46424%_))) + _%$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 (_%var46414%_) - (let _%loop46416%_ ((_%te46418%_ + (lambda (_%var46378%_) + (let _%loop46380%_ ((_%te46382%_ (gerbil/core/contract~TypeEnv#current-type-env))) - (if (not _%te46418%_) + (if (not _%te46382%_) '#f (if (gx#free-identifier=? - _%var46414%_ + _%var46378%_ (##direct-structure-ref - _%te46418%_ + _%te46382%_ '1 gerbil/core/contract~TypeEnv#type-env::t '#f)) - _%te46418%_ - (_%loop46416%_ + _%te46382%_ + (_%loop46380%_ (##direct-structure-ref - _%te46418%_ + _%te46382%_ '4 gerbil/core/contract~TypeEnv#type-env::t '#f))))))))) diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index 3164971fc..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 1734131741) + (define gerbil/core/macro-object::timestamp 1734357956) (begin (define gerbil/core/macro-object#macro-object::t (make-class-type diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index 62668c57f..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 1734131735) + (define gerbil/core/mop~MOP-2::timestamp 1734357950) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (make-class-type diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 0093ca5c5..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 1734131746) + (define gerbil/expander/common::timestamp 1734357961) (begin (define gx#AST::t - (let ((__tmp117056 (list)) - (__tmp117055 (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 - __tmp117056 + __tmp118041 '(e source) - __tmp117055 + __tmp118040 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args116954%_ (apply make-instance gx#AST::t _%$args116954%_))) + (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 de765da9d..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]#_g117058_| + (define |gx[1]#_g118043_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g117060_| + (define |gx[1]#_g118045_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g117062_| + (define |gx[1]#_g118047_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g117064_| + (define |gx[1]#_g118049_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g117065_| + (define |gx[1]#_g118050_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g117067_| + (define |gx[1]#_g118052_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117068_| + (define |gx[1]#_g118053_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117070_| + (define |gx[1]#_g118055_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g117071_| + (define |gx[1]#_g118056_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g117073_| + (define |gx[1]#_g118058_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117074_| + (define |gx[1]#_g118059_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g117076_| + (define |gx[1]#_g118061_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj117054 + (let ((__obj118039 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj118039 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118039 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj118039 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj118039 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj118039 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118039 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj118039 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118039 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '#f '11 '#f '#f)) - (let ((__tmp117057 |gx[1]#_g117058_|)) + (##unchecked-structure-set! __obj118039 '#f '11 '#f '#f)) + (let ((__tmp118042 |gx[1]#_g118043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj117054 __tmp117057 '12 '#f '#f)) - (let ((__tmp117059 |gx[1]#_g117060_|)) + (##unchecked-structure-set! __obj118039 __tmp118042 '12 '#f '#f)) + (let ((__tmp118044 |gx[1]#_g118045_|)) (declare (not safe)) - (##unchecked-structure-set! __obj117054 __tmp117059 '13 '#f '#f)) - (let ((__tmp117061 |gx[1]#_g117062_|)) + (##unchecked-structure-set! __obj118039 __tmp118044 '13 '#f '#f)) + (let ((__tmp118046 |gx[1]#_g118047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj117054 __tmp117061 '14 '#f '#f)) - (let ((__tmp117063 - (cons (cons 'e |gx[1]#_g117064_|) - (cons (cons 'source |gx[1]#_g117065_|) '())))) + (##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! __obj117054 __tmp117063 '15 '#f '#f)) - (let ((__tmp117066 - (cons (cons 'e |gx[1]#_g117067_|) - (cons (cons 'source |gx[1]#_g117068_|) '())))) + (##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! __obj117054 __tmp117066 '16 '#f '#f)) - (let ((__tmp117069 - (cons (cons 'e |gx[1]#_g117070_|) - (cons (cons 'source |gx[1]#_g117071_|) '())))) + (##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! __obj117054 __tmp117069 '17 '#f '#f)) - (let ((__tmp117072 - (cons (cons 'e |gx[1]#_g117073_|) - (cons (cons 'source |gx[1]#_g117074_|) '())))) + (##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! __obj117054 __tmp117072 '18 '#f '#f)) + (##unchecked-structure-set! __obj118039 __tmp118057 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118039 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118039 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj117054 '() '20 '#f '#f)) - __obj117054)) + (##unchecked-structure-set! __obj118039 '() '20 '#f '#f)) + __obj118039)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx115649%_) - (let* ((_%g115653115667%_ - (lambda (_%g115654115663%_) + (lambda (_%$stx116634%_) + (let* ((_%g116638116652%_ + (lambda (_%g116639116648%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115654115663%_))) - (_%g115652115709%_ - (lambda (_%g115654115671%_) - (if (gx#stx-pair? _%g115654115671%_) - (let ((_%e115656115674%_ - (gx#syntax-e _%g115654115671%_))) - (let ((_%hd115657115678%_ + _%g116639116648%_))) + (_%g116637116694%_ + (lambda (_%g116639116656%_) + (if (gx#stx-pair? _%g116639116656%_) + (let ((_%e116641116659%_ + (gx#syntax-e _%g116639116656%_))) + (let ((_%hd116642116663%_ (let () (declare (not safe)) - (##car _%e115656115674%_))) - (_%tl115658115681%_ + (##car _%e116641116659%_))) + (_%tl116643116666%_ (let () (declare (not safe)) - (##cdr _%e115656115674%_)))) - (if (gx#stx-pair? _%tl115658115681%_) - (let ((_%e115659115684%_ - (gx#syntax-e _%tl115658115681%_))) - (let ((_%hd115660115688%_ + (##cdr _%e116641116659%_)))) + (if (gx#stx-pair? _%tl116643116666%_) + (let ((_%e116644116669%_ + (gx#syntax-e _%tl116643116666%_))) + (let ((_%hd116645116673%_ (let () (declare (not safe)) - (##car _%e115659115684%_))) - (_%tl115661115691%_ + (##car _%e116644116669%_))) + (_%tl116646116676%_ (let () (declare (not safe)) - (##cdr _%e115659115684%_)))) - (if (gx#stx-null? _%tl115661115691%_) - ((lambda (_%L115694%_) + (##cdr _%e116644116669%_)))) + (if (gx#stx-null? _%tl116646116676%_) + ((lambda (_%L116679%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L115694%_ + (cons _%L116679%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,182 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L115694%_ '()))) + (cons '"expected procedure" (cons _%L116679%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd115660115688%_) - (_%g115653115667%_ _%g115654115671%_)))) - (_%g115653115667%_ _%g115654115671%_)))) - (_%g115653115667%_ _%g115654115671%_))))) - (_%g115652115709%_ _%$stx115649%_)))) + _%hd116645116673%_) + (_%g116638116652%_ _%g116639116656%_)))) + (_%g116638116652%_ _%g116639116656%_)))) + (_%g116638116652%_ _%g116639116656%_))))) + (_%g116637116694%_ _%$stx116634%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx115713%_) - (letrec ((_%generate115716%_ - (lambda (_%tgt115865%_ _%kws115867%_ _%clauses115868%_) - (letrec ((_%generate-clause115870%_ - (lambda (_%hd116805%_ _%E116807%_) - (let* ((_%__stx116957116958%_ _%hd116805%_) - (_%g116811116838%_ + (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" - _%__stx116957116958%_)))) - (let ((_%__kont116960116961%_ - (lambda (_%L116934%_ _%L116936%_) - (_%generate1115872%_ - _%hd116805%_ - _%L116936%_ + _%__stx117942117943%_)))) + (let ((_%__kont117945117946%_ + (lambda (_%L117919%_ _%L117921%_) + (_%generate1116857%_ + _%hd117790%_ + _%L117921%_ '#t - _%L116934%_ - _%E116807%_))) - (_%__kont116962116963%_ - (lambda (_%L116886%_ - _%L116888%_ - _%L116889%_) - (_%generate1115872%_ - _%hd116805%_ - _%L116889%_ - _%L116888%_ - _%L116886%_ - _%E116807%_))) - (_%__kont116964116965%_ + _%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" - _%stx115713%_ - _%hd116805%_)))) - (if (gx#stx-pair? _%__stx116957116958%_) - (let ((_%e116815116914%_ + _%stx116698%_ + _%hd117790%_)))) + (if (gx#stx-pair? _%__stx117942117943%_) + (let ((_%e117800117899%_ (gx#syntax-e - _%__stx116957116958%_))) - (let ((_%tl116817116921%_ + _%__stx117942117943%_))) + (let ((_%tl117802117906%_ (let () (declare (not safe)) - (##cdr _%e116815116914%_))) - (_%hd116816116918%_ + (##cdr _%e117800117899%_))) + (_%hd117801117903%_ (let () (declare (not safe)) - (##car _%e116815116914%_)))) + (##car _%e117800117899%_)))) (if (gx#stx-pair? - _%tl116817116921%_) - (let ((_%e116818116924%_ + _%tl117802117906%_) + (let ((_%e117803117909%_ (gx#syntax-e - _%tl116817116921%_))) - (let ((_%tl116820116931%_ + _%tl117802117906%_))) + (let ((_%tl117805117916%_ (let () (declare (not safe)) - (##cdr _%e116818116924%_))) - (_%hd116819116928%_ + (##cdr _%e117803117909%_))) + (_%hd117804117913%_ (let () (declare (not safe)) - (##car _%e116818116924%_)))) + (##car _%e117803117909%_)))) (if (gx#stx-null? - _%tl116820116931%_) - (_%__kont116960116961%_ - _%hd116819116928%_ - _%hd116816116918%_) + _%tl117805117916%_) + (_%__kont117945117946%_ + _%hd117804117913%_ + _%hd117801117903%_) (if (gx#stx-pair? - _%tl116820116931%_) - (let ((_%e116830116876%_ + _%tl117805117916%_) + (let ((_%e117815117861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl116820116931%_))) - (let ((_%tl116832116883%_ + (gx#syntax-e _%tl117805117916%_))) + (let ((_%tl117817117868%_ (let () (declare (not safe)) - (##cdr _%e116830116876%_))) - (_%hd116831116880%_ + (##cdr _%e117815117861%_))) + (_%hd117816117865%_ (let () (declare (not safe)) - (##car _%e116830116876%_)))) - (if (gx#stx-null? _%tl116832116883%_) - (_%__kont116962116963%_ - _%hd116831116880%_ - _%hd116819116928%_ - _%hd116816116918%_) - (_%__kont116964116965%_)))) - (_%__kont116964116965%_))))) + (##car _%e117815117861%_)))) + (if (gx#stx-null? _%tl117817117868%_) + (_%__kont117947117948%_ + _%hd117816117865%_ + _%hd117804117913%_ + _%hd117801117903%_) + (_%__kont117949117950%_)))) + (_%__kont117949117950%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116964116965%_)))) - (_%__kont116964116965%_)))))) - (_%generate1115872%_ - (lambda (_%where116258%_ - _%hd116260%_ - _%fender116261%_ - _%body116262%_ - _%E116263%_) - (letrec ((_%recur116265%_ - (lambda (_%hd116268%_ - _%tgt116270%_ - _%K116271%_) - (let* ((_%__stx117003117004%_ - _%hd116268%_) - (_%g116274116286%_ + (_%__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" - _%__stx117003117004%_)))) - (let ((_%__kont117006117007%_ - (lambda (_%L116595%_ - _%L116597%_) - (let* ((_%g116608116616%_ - (lambda (_%g116609116612%_) + _%__stx117988117989%_)))) + (let ((_%__kont117991117992%_ + (lambda (_%L117580%_ + _%L117582%_) + (let* ((_%g117593117601%_ + (lambda (_%g117594117597%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116609116612%_))) - (_%g116607116797%_ - (lambda (_%g116609116620%_) - ((lambda (_%L116623%_) - (let* ((_%g116635116643%_ - (lambda (_%g116636116639%_) + _%g117594117597%_))) + (_%g117592117782%_ + (lambda (_%g117594117605%_) + ((lambda (_%L117608%_) + (let* ((_%g117620117628%_ + (lambda (_%g117621117624%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116636116639%_))) - (_%g116634116793%_ - (lambda (_%g116636116647%_) - ((lambda (_%L116650%_) - (let* ((_%g116663116671%_ - (lambda (_%g116664116667%_) + _%g117621117624%_))) + (_%g117619117778%_ + (lambda (_%g117621117632%_) + ((lambda (_%L117635%_) + (let* ((_%g117648117656%_ + (lambda (_%g117649117652%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116664116667%_))) - (_%g116662116789%_ - (lambda (_%g116664116675%_) - ((lambda (_%L116678%_) - (let* ((_%g116691116699%_ - (lambda (_%g116692116695%_) + _%g117649117652%_))) + (_%g117647117774%_ + (lambda (_%g117649117660%_) + ((lambda (_%L117663%_) + (let* ((_%g117676117684%_ + (lambda (_%g117677117680%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g116692116695%_))) - (_%g116690116785%_ - (lambda (_%g116692116703%_) - ((lambda (_%L116706%_) - (let* ((_%g116719116727%_ - (lambda (_%g116720116723%_) + _%g117677117680%_))) + (_%g117675117770%_ + (lambda (_%g117677117688%_) + ((lambda (_%L117691%_) + (let* ((_%g117704117712%_ + (lambda (_%g117705117708%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116720116723%_))) - (_%g116718116781%_ - (lambda (_%g116720116731%_) - ((lambda (_%L116734%_) - (let* ((_%g116747116755%_ - (lambda (_%g116748116751%_) + _%g117705117708%_))) + (_%g117703117766%_ + (lambda (_%g117705117716%_) + ((lambda (_%L117719%_) + (let* ((_%g117732117740%_ + (lambda (_%g117733117736%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116748116751%_))) - (_%g116746116777%_ - (lambda (_%g116748116759%_) - ((lambda (_%L116762%_) + _%g117733117736%_))) + (_%g117731117762%_ + (lambda (_%g117733117744%_) + ((lambda (_%L117747%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +407,306 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L116623%_ '())) + (cons _%L117608%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116650%_ + (cons (cons (cons _%L117635%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L116623%_ '())) + (cons _%L117608%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116678%_ + (cons (cons (cons _%L117663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L116650%_ '())) + (cons _%L117635%_ '())) '())) - (cons (cons _%L116706%_ + (cons (cons _%L117691%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L116650%_ '())) + (cons _%L117635%_ '())) '())) '())) - (cons _%L116734%_ '()))) + (cons _%L117719%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L116762%_ '()))))) + (cons _%L117747%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116748116759%_)))) - (_%g116746116777%_ _%E116263%_))) - _%g116720116731%_)))) - (_%g116718116781%_ - (_%recur116265%_ - _%L116597%_ - _%L116678%_ - (_%recur116265%_ - _%L116595%_ - _%L116706%_ - _%K116271%_))))) - _%g116692116703%_)))) - (_%g116690116785%_ (gx#genident 'tl)))) + _%g117733117744%_)))) + (_%g117731117762%_ _%E117248%_))) + _%g117705117716%_)))) + (_%g117703117766%_ + (_%recur117250%_ + _%L117582%_ + _%L117663%_ + (_%recur117250%_ + _%L117580%_ + _%L117691%_ + _%K117256%_))))) + _%g117677117688%_)))) + (_%g117675117770%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116664116675%_)))) - (_%g116662116789%_ + _%g117649117660%_)))) + (_%g117647117774%_ (gx#genident 'hd)))) - _%g116636116647%_)))) - (_%g116634116793%_ (gx#genident 'e)))) - _%g116609116620%_)))) - (_%g116607116797%_ _%tgt116270%_)))) + _%g117621117632%_)))) + (_%g117619117778%_ (gx#genident 'e)))) + _%g117594117605%_)))) + (_%g117592117782%_ _%tgt117255%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont117008117009%_ + (_%__kont117993117994%_ (lambda () (if (gx#identifier? - _%hd116268%_) + _%hd117253%_) (if (gx#underscore? - _%hd116268%_) - _%K116271%_ - (if (let ((__tmp117075 + _%hd117253%_) + _%K117256%_ + (if (let ((__tmp118060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g116300116302%_) + (lambda (_%g117285117287%_) (gx#bound-identifier=? - _%g116300116302%_ - _%hd116268%_)))) + _%g117285117287%_ + _%hd117253%_)))) (declare (not safe)) - (__find __tmp117075 _%kws115867%_)) - (let* ((_%g116308116323%_ - (lambda (_%g116309116319%_) + (__find __tmp118060 _%kws116852%_)) + (let* ((_%g117293117308%_ + (lambda (_%g117294117304%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116309116319%_))) - (_%g116307116376%_ - (lambda (_%g116309116327%_) - (if (gx#stx-pair? _%g116309116327%_) - (let ((_%e116312116330%_ + _%g117294117304%_))) + (_%g117292117361%_ + (lambda (_%g117294117312%_) + (if (gx#stx-pair? _%g117294117312%_) + (let ((_%e117297117315%_ (gx#syntax-e - _%g116309116327%_))) - (let ((_%hd116313116334%_ + _%g117294117312%_))) + (let ((_%hd117298117319%_ (let () (declare (not safe)) - (##car _%e116312116330%_))) - (_%tl116314116337%_ + (##car _%e117297117315%_))) + (_%tl117299117322%_ (let () (declare (not safe)) - (##cdr _%e116312116330%_)))) + (##cdr _%e117297117315%_)))) (if (gx#stx-pair? - _%tl116314116337%_) - (let ((_%e116315116340%_ + _%tl117299117322%_) + (let ((_%e117300117325%_ (gx#syntax-e - _%tl116314116337%_))) - (let ((_%hd116316116344%_ + _%tl117299117322%_))) + (let ((_%hd117301117329%_ (let () (declare (not safe)) - (##car _%e116315116340%_))) - (_%tl116317116347%_ + (##car _%e117300117325%_))) + (_%tl117302117332%_ (let () (declare (not safe)) - (##cdr _%e116315116340%_)))) + (##cdr _%e117300117325%_)))) (if (gx#stx-null? - _%tl116317116347%_) - ((lambda (_%L116350%_ + _%tl117302117332%_) + ((lambda (_%L117335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116352%_) + _%L117337%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L116352%_ '())) + (cons _%L117337%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L116352%_ + (cons _%L117337%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116350%_ '())) + (cons _%L117335%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K116271%_ (cons _%E116263%_ '()))))) - _%hd116316116344%_ - _%hd116313116334%_) - (_%g116308116323%_ _%g116309116327%_)))) + (cons _%K117256%_ (cons _%E117248%_ '()))))) + _%hd117301117329%_ + _%hd117298117319%_) + (_%g117293117308%_ _%g117294117312%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116308116323%_ - _%g116309116327%_)))) - (_%g116308116323%_ - _%g116309116327%_))))) - (_%g116307116376%_ - (list _%tgt116270%_ _%hd116268%_))) - (let* ((_%g116382116397%_ - (lambda (_%g116383116393%_) + (_%g117293117308%_ + _%g117294117312%_)))) + (_%g117293117308%_ + _%g117294117312%_))))) + (_%g117292117361%_ + (list _%tgt117255%_ _%hd117253%_))) + (let* ((_%g117367117382%_ + (lambda (_%g117368117378%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116383116393%_))) - (_%g116381116442%_ - (lambda (_%g116383116401%_) - (if (gx#stx-pair? _%g116383116401%_) - (let ((_%e116386116404%_ + _%g117368117378%_))) + (_%g117366117427%_ + (lambda (_%g117368117386%_) + (if (gx#stx-pair? _%g117368117386%_) + (let ((_%e117371117389%_ (gx#syntax-e - _%g116383116401%_))) - (let ((_%hd116387116408%_ + _%g117368117386%_))) + (let ((_%hd117372117393%_ (let () (declare (not safe)) - (##car _%e116386116404%_))) - (_%tl116388116411%_ + (##car _%e117371117389%_))) + (_%tl117373117396%_ (let () (declare (not safe)) - (##cdr _%e116386116404%_)))) + (##cdr _%e117371117389%_)))) (if (gx#stx-pair? - _%tl116388116411%_) - (let ((_%e116389116414%_ + _%tl117373117396%_) + (let ((_%e117374117399%_ (gx#syntax-e - _%tl116388116411%_))) - (let ((_%hd116390116418%_ + _%tl117373117396%_))) + (let ((_%hd117375117403%_ (let () (declare (not safe)) - (##car _%e116389116414%_))) - (_%tl116391116421%_ + (##car _%e117374117399%_))) + (_%tl117376117406%_ (let () (declare (not safe)) - (##cdr _%e116389116414%_)))) + (##cdr _%e117374117399%_)))) (if (gx#stx-null? - _%tl116391116421%_) - ((lambda (_%L116424%_ + _%tl117376117406%_) + ((lambda (_%L117409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116426%_) + _%L117411%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116424%_ (cons _%L116426%_ '())) + (cons (cons (cons _%L117409%_ (cons _%L117411%_ '())) '()) - (cons _%K116271%_ '())))) - _%hd116390116418%_ - _%hd116387116408%_) - (_%g116382116397%_ _%g116383116401%_)))) + (cons _%K117256%_ '())))) + _%hd117375117403%_ + _%hd117372117393%_) + (_%g117367117382%_ _%g117368117386%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116382116397%_ - _%g116383116401%_)))) - (_%g116382116397%_ - _%g116383116401%_))))) - (_%g116381116442%_ - (list _%tgt116270%_ _%hd116268%_))))) - (if (gx#stx-null? _%hd116268%_) - (let* ((_%g116448116456%_ - (lambda (_%g116449116452%_) + (_%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" - _%g116449116452%_))) - (_%g116447116475%_ - (lambda (_%g116449116460%_) - ((lambda (_%L116463%_) + _%g117434117437%_))) + (_%g117432117460%_ + (lambda (_%g117434117445%_) + ((lambda (_%L117448%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L116463%_ '())) - (cons _%K116271%_ - (cons _%E116263%_ + (cons _%L117448%_ '())) + (cons _%K117256%_ + (cons _%E117248%_ '()))))) - _%g116449116460%_)))) - (_%g116447116475%_ _%tgt116270%_)) - (if (gx#stx-datum? _%hd116268%_) - (let* ((_%g116481116500%_ - (lambda (_%g116482116496%_) + _%g117434117445%_)))) + (_%g117432117460%_ _%tgt117255%_)) + (if (gx#stx-datum? _%hd117253%_) + (let* ((_%g117466117485%_ + (lambda (_%g117467117481%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116482116496%_))) - (_%g116480116559%_ - (lambda (_%g116482116504%_) - (if (gx#stx-pair? _%g116482116504%_) - (let ((_%e116486116507%_ + _%g117467117481%_))) + (_%g117465117544%_ + (lambda (_%g117467117489%_) + (if (gx#stx-pair? _%g117467117489%_) + (let ((_%e117471117492%_ (gx#syntax-e - _%g116482116504%_))) - (let ((_%hd116487116511%_ + _%g117467117489%_))) + (let ((_%hd117472117496%_ (let () (declare (not safe)) - (##car _%e116486116507%_))) - (_%tl116488116514%_ + (##car _%e117471117492%_))) + (_%tl117473117499%_ (let () (declare (not safe)) - (##cdr _%e116486116507%_)))) + (##cdr _%e117471117492%_)))) (if (gx#stx-pair? - _%tl116488116514%_) - (let ((_%e116489116517%_ + _%tl117473117499%_) + (let ((_%e117474117502%_ (gx#syntax-e - _%tl116488116514%_))) - (let ((_%hd116490116521%_ + _%tl117473117499%_))) + (let ((_%hd117475117506%_ (let () (declare (not safe)) - (##car _%e116489116517%_))) - (_%tl116491116524%_ + (##car _%e117474117502%_))) + (_%tl117476117509%_ (let () (declare (not safe)) - (##cdr _%e116489116517%_)))) + (##cdr _%e117474117502%_)))) (if (gx#stx-pair? - _%tl116491116524%_) - (let ((_%e116492116527%_ + _%tl117476117509%_) + (let ((_%e117477117512%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl116491116524%_))) - (let ((_%hd116493116531%_ + _%tl117476117509%_))) + (let ((_%hd117478117516%_ (let () (declare (not safe)) - (##car _%e116492116527%_))) - (_%tl116494116534%_ + (##car _%e117477117512%_))) + (_%tl117479117519%_ (let () (declare (not safe)) - (##cdr _%e116492116527%_)))) - (if (gx#stx-null? _%tl116494116534%_) - ((lambda (_%L116537%_ _%L116539%_ _%L116540%_) + (##cdr _%e117477117512%_)))) + (if (gx#stx-null? _%tl117479117519%_) + ((lambda (_%L117522%_ _%L117524%_ _%L117525%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L116537%_ + (cons (cons _%L117522%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L116540%_ + (cons _%L117525%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116539%_ '())) + (cons _%L117524%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K116271%_ - (cons _%E116263%_ '()))))) - _%hd116493116531%_ - _%hd116490116521%_ - _%hd116487116511%_) - (_%g116481116500%_ _%g116482116504%_)))) - (_%g116481116500%_ _%g116482116504%_)))) + (cons _%K117256%_ + (cons _%E117248%_ '()))))) + _%hd117478117516%_ + _%hd117475117506%_ + _%hd117472117496%_) + (_%g117466117485%_ _%g117467117489%_)))) + (_%g117466117485%_ _%g117467117489%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116481116500%_ - _%g116482116504%_)))) - (_%g116481116500%_ - _%g116482116504%_))))) - (_%g116480116559%_ - (list _%tgt116270%_ - _%hd116268%_ - (let ((_%e116563%_ - (gx#stx-e _%hd116268%_))) - (if (or (keyword? _%e116563%_) + (_%g117466117485%_ + _%g117467117489%_)))) + (_%g117466117485%_ + _%g117467117489%_))))) + (_%g117465117544%_ + (list _%tgt117255%_ + _%hd117253%_ + (let ((_%e117548%_ + (gx#stx-e _%hd117253%_))) + (if (or (keyword? _%e117548%_) (let () (declare (not safe)) - (immediate? _%e116563%_))) + (immediate? _%e117548%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e116563%_) + (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" - _%stx115713%_ - _%where116258%_ - _%hd116268%_))))))) + _%stx116698%_ + _%where117243%_ + _%hd117253%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx117003117004%_) - (let ((_%e116278116585%_ + _%__stx117988117989%_) + (let ((_%e117263117570%_ (gx#syntax-e - _%__stx117003117004%_))) - (let ((_%tl116280116592%_ + _%__stx117988117989%_))) + (let ((_%tl117265117577%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e116278116585%_))) - (_%hd116279116589%_ - (let () (declare (not safe)) (##car _%e116278116585%_)))) - (_%__kont117006117007%_ - _%tl116280116592%_ - _%hd116279116589%_))) + (##cdr _%e117263117570%_))) + (_%hd117264117574%_ + (let () (declare (not safe)) (##car _%e117263117570%_)))) + (_%__kont117991117992%_ + _%tl117265117577%_ + _%hd117264117574%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont117008117009%_))))))) - (_%recur116265%_ - _%hd116260%_ - _%tgt115865%_ + (_%__kont117993117994%_))))))) + (_%recur117250%_ + _%hd117245%_ + _%tgt116850%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender116261%_ - (cons _%body116262%_ - (cons _%E116263%_ + (cons _%fender117246%_ + (cons _%body117247%_ + (cons _%E117248%_ '())))))))) - (_%generate-clauses115873%_ - (lambda (_%clauses115996%_) - (let _%lp115999%_ ((_%rest116002%_ - _%clauses115996%_) - (_%E116004%_ + (_%generate-clauses116858%_ + (lambda (_%clauses116981%_) + (let _%lp116984%_ ((_%rest116987%_ + _%clauses116981%_) + (_%E116989%_ (gx#genident 'E)) - (_%r116005%_ '())) - (let* ((_%__stx117039117040%_ _%rest116002%_) - (_%g116008116020%_ + (_%r116990%_ '())) + (let* ((_%__stx118024118025%_ _%rest116987%_) + (_%g116993117005%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx117039117040%_)))) - (let ((_%__kont117042117043%_ - (lambda (_%L116085%_ _%L116087%_) - (let* ((_%__stx117019117020%_ - _%L116087%_) - (_%g116099116110%_ + _%__stx118024118025%_)))) + (let ((_%__kont118027118028%_ + (lambda (_%L117070%_ _%L117072%_) + (let* ((_%__stx118004118005%_ + _%L117072%_) + (_%g117084117095%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx117019117020%_)))) - (let ((_%__kont117022117023%_ - (lambda (_%L116239%_) + _%__stx118004118005%_)))) + (let ((_%__kont118007118008%_ + (lambda (_%L117224%_) (if (gx#stx-null? - _%L116085%_) + _%L117070%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116239%_) - (not (gx#stx-null? _%L116239%_))) - (cons (cons _%E116004%_ + _%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) - _%L116239%_) + _%L117224%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L116087%_)) + (gx#stx-source _%L117072%_)) '())) - _%r116005%_) + _%r116990%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx115713%_ - _%L116087%_)) + _%stx116698%_ + _%L117072%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx115713%_ - _%L116087%_)))) + _%stx116698%_ + _%L117072%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont117024117025%_ + (_%__kont118009118010%_ (lambda () - (let* ((_%g116121116129%_ - (lambda (_%g116122116125%_) + (let* ((_%g117106117114%_ + (lambda (_%g117107117110%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116122116125%_))) - (_%g116120116218%_ - (lambda (_%g116122116133%_) - ((lambda (_%L116136%_) - (let* ((_%g116152116160%_ - (lambda (_%g116153116156%_) + _%g117107117110%_))) + (_%g117105117203%_ + (lambda (_%g117107117118%_) + ((lambda (_%L117121%_) + (let* ((_%g117137117145%_ + (lambda (_%g117138117141%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116153116156%_))) - (_%g116151116214%_ - (lambda (_%g116153116164%_) - ((lambda (_%L116167%_) - (let* ((_%g116180116188%_ - (lambda (_%g116181116184%_) + _%g117138117141%_))) + (_%g117136117199%_ + (lambda (_%g117138117149%_) + ((lambda (_%L117152%_) + (let* ((_%g117165117173%_ + (lambda (_%g117166117169%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116181116184%_))) - (_%g116179116210%_ - (lambda (_%g116181116192%_) - ((lambda (_%L116195%_) - (_%lp115999%_ - _%L116085%_ - _%L116136%_ - (cons (cons _%E116004%_ + _%g117166117169%_))) + (_%g117164117195%_ + (lambda (_%g117166117177%_) + ((lambda (_%L117180%_) + (_%lp116984%_ + _%L117070%_ + _%L117121%_ + (cons (cons _%E116989%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L116195%_ '())) - _%r116005%_))) + (cons _%L117180%_ '())) + _%r116990%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116181116192%_)))) - (_%g116179116210%_ + _%g117166117177%_)))) + (_%g117164117195%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L116167%_ + (cons _%L117152%_ '()))) - (gx#stx-source _%L116087%_))))) - _%g116153116164%_)))) - (_%g116151116214%_ - (_%generate-clause115870%_ - _%L116087%_ - (cons _%L116136%_ '()))))) - _%g116122116133%_)))) - (_%g116120116218%_ (gx#genident 'E)))))) + (gx#stx-source _%L117072%_))))) + _%g117138117149%_)))) + (_%g117136117199%_ + (_%generate-clause116855%_ + _%L117072%_ + (cons _%L117121%_ '()))))) + _%g117107117118%_)))) + (_%g117105117203%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx117019117020%_) - (let ((_%e116102116229%_ + _%__stx118004118005%_) + (let ((_%e117087117214%_ (gx#syntax-e - _%__stx117019117020%_))) - (let ((_%tl116104116236%_ + _%__stx118004118005%_))) + (let ((_%tl117089117221%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e116102116229%_))) - (_%hd116103116233%_ - (let () (declare (not safe)) (##car _%e116102116229%_)))) - (if (gx#identifier? _%hd116103116233%_) + (##cdr _%e117087117214%_))) + (_%hd117088117218%_ + (let () (declare (not safe)) (##car _%e117087117214%_)))) + (if (gx#identifier? _%hd117088117218%_) (if (gx#free-identifier=? - |gx[1]#_g117076_| - _%hd116103116233%_) - (_%__kont117022117023%_ _%tl116104116236%_) - (_%__kont117024117025%_)) - (_%__kont117024117025%_)))) + |gx[1]#_g118061_| + _%hd117088117218%_) + (_%__kont118007118008%_ _%tl117089117221%_) + (_%__kont118009118010%_)) + (_%__kont118009118010%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont117024117025%_)))))) - (_%__kont117044117045%_ + (_%__kont118009118010%_)))))) + (_%__kont118029118030%_ (lambda () - (let* ((_%g116031116039%_ - (lambda (_%g116032116035%_) + (let* ((_%g117016117024%_ + (lambda (_%g117017117020%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116032116035%_))) - (_%g116030116064%_ - (lambda (_%g116032116043%_) - ((lambda (_%L116046%_) - (cons (cons _%E116004%_ + _%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 _%L116046%_ '())))) + (cons _%L117031%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx115713%_)) + (gx#stx-source _%stx116698%_)) '())) - _%r116005%_)) - _%g116032116043%_)))) + _%r116990%_)) + _%g117017117028%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116030116064%_ - _%tgt115865%_))))) - (if (gx#stx-pair? _%__stx117039117040%_) - (let ((_%e116012116075%_ + (_%g117015117049%_ + _%tgt116850%_))))) + (if (gx#stx-pair? _%__stx118024118025%_) + (let ((_%e116997117060%_ (gx#syntax-e - _%__stx117039117040%_))) - (let ((_%tl116014116082%_ + _%__stx118024118025%_))) + (let ((_%tl116999117067%_ (let () (declare (not safe)) - (##cdr _%e116012116075%_))) - (_%hd116013116079%_ + (##cdr _%e116997117060%_))) + (_%hd116998117064%_ (let () (declare (not safe)) - (##car _%e116012116075%_)))) - (_%__kont117042117043%_ - _%tl116014116082%_ - _%hd116013116079%_))) - (_%__kont117044117045%_)))))))) - (let* ((_%bind115875%_ - (_%generate-clauses115873%_ _%clauses115868%_)) - (_%g115878115895%_ - (lambda (_%g115879115891%_) + (##car _%e116997117060%_)))) + (_%__kont118027118028%_ + _%tl116999117067%_ + _%hd116998117064%_))) + (_%__kont118029118030%_)))))))) + (let* ((_%bind116860%_ + (_%generate-clauses116858%_ _%clauses116853%_)) + (_%g116863116880%_ + (lambda (_%g116864116876%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115879115891%_))) - (_%g115877115992%_ - (lambda (_%g115879115899%_) - (if (gx#stx-pair/null? _%g115879115899%_) - (let ((_g117077_ + _%g116864116876%_))) + (_%g116862116977%_ + (lambda (_%g116864116884%_) + (if (gx#stx-pair/null? _%g116864116884%_) + (let ((_g118062_ (gx#syntax-split-splice - _%g115879115899%_ + _%g116864116884%_ '0))) (begin - (let ((_g117078_ + (let ((_g118063_ (let () (declare (not safe)) - (if (##values? _g117077_) + (if (##values? _g118062_) (##values-length - _g117077_) + _g118062_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g117078_ 2))) + (##fx= _g118063_ 2))) (error "Context expects 2 values" - _g117078_))) - (let ((_%target115881115902%_ + _g118063_))) + (let ((_%target116866116887%_ (let () (declare (not safe)) - (##values-ref _g117077_ 0))) - (_%tl115883115905%_ + (##values-ref _g118062_ 0))) + (_%tl116868116890%_ (let () (declare (not safe)) - (##values-ref _g117077_ 1)))) - (if (gx#stx-null? _%tl115883115905%_) - (letrec ((_%loop115884115908%_ - (lambda (_%hd115882115912%_ + (##values-ref _g118062_ 1)))) + (if (gx#stx-null? _%tl116868116890%_) + (letrec ((_%loop116869116893%_ + (lambda (_%hd116867116897%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try115888115915%_) - (if (gx#stx-pair? _%hd115882115912%_) - (let ((_%e115885115918%_ - (gx#syntax-e _%hd115882115912%_))) - (let ((_%lp-hd115886115922%_ + _%bind-try116873116900%_) + (if (gx#stx-pair? _%hd116867116897%_) + (let ((_%e116870116903%_ + (gx#syntax-e _%hd116867116897%_))) + (let ((_%lp-hd116871116907%_ (let () (declare (not safe)) - (##car _%e115885115918%_))) - (_%lp-tl115887115925%_ + (##car _%e116870116903%_))) + (_%lp-tl116872116910%_ (let () (declare (not safe)) - (##cdr _%e115885115918%_)))) - (_%loop115884115908%_ - _%lp-tl115887115925%_ - (cons _%lp-hd115886115922%_ - _%bind-try115888115915%_)))) - (let ((_%bind-try115889115928%_ - (reverse _%bind-try115888115915%_))) - ((lambda (_%L115932%_) - (let* ((_%g115950115958%_ - (lambda (_%g115951115954%_) + (##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" - _%g115951115954%_))) - (_%g115949115988%_ - (lambda (_%g115951115962%_) - ((lambda (_%L115965%_) + _%g116936116939%_))) + (_%g116934116973%_ + (lambda (_%g116936116947%_) + ((lambda (_%L116950%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp117079 - (lambda (_%g115979115982%_ + (cons (let ((__tmp118064 + (lambda (_%g116964116967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g115980115985%_) - (cons _%g115979115982%_ _%g115980115985%_)))) + _%g116965116970%_) + (cons _%g116964116967%_ _%g116965116970%_)))) (declare (not safe)) - (__foldr1 __tmp117079 '() _%L115932%_)) + (__foldr1 __tmp118064 '() _%L116917%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L115965%_ + (cons (cons _%L116950%_ '()) '())))) - _%g115951115962%_)))) - (_%g115949115988%_ (car (last _%bind115875%_))))) - _%bind-try115889115928%_)))))) + _%g116936116947%_)))) + (_%g116934116973%_ (car (last _%bind116860%_))))) + _%bind-try116874116913%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop115884115908%_ - _%target115881115902%_ + (_%loop116869116893%_ + _%target116866116887%_ '())) - (_%g115878115895%_ - _%g115879115899%_))))) - (_%g115878115895%_ _%g115879115899%_))))) - (_%g115877115992%_ _%bind115875%_)))))) - (let* ((_%g115719115738%_ - (lambda (_%g115720115734%_) + (_%g116863116880%_ + _%g116864116884%_))))) + (_%g116863116880%_ _%g116864116884%_))))) + (_%g116862116977%_ _%bind116860%_)))))) + (let* ((_%g116704116723%_ + (lambda (_%g116705116719%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115720115734%_))) - (_%g115718115861%_ - (lambda (_%g115720115742%_) - (if (gx#stx-pair? _%g115720115742%_) - (let ((_%e115724115745%_ - (gx#syntax-e _%g115720115742%_))) - (let ((_%hd115725115749%_ + _%g116705116719%_))) + (_%g116703116846%_ + (lambda (_%g116705116727%_) + (if (gx#stx-pair? _%g116705116727%_) + (let ((_%e116709116730%_ + (gx#syntax-e _%g116705116727%_))) + (let ((_%hd116710116734%_ (let () (declare (not safe)) - (##car _%e115724115745%_))) - (_%tl115726115752%_ + (##car _%e116709116730%_))) + (_%tl116711116737%_ (let () (declare (not safe)) - (##cdr _%e115724115745%_)))) - (if (gx#stx-pair? _%tl115726115752%_) - (let ((_%e115727115755%_ - (gx#syntax-e _%tl115726115752%_))) - (let ((_%hd115728115759%_ + (##cdr _%e116709116730%_)))) + (if (gx#stx-pair? _%tl116711116737%_) + (let ((_%e116712116740%_ + (gx#syntax-e _%tl116711116737%_))) + (let ((_%hd116713116744%_ (let () (declare (not safe)) - (##car _%e115727115755%_))) - (_%tl115729115762%_ + (##car _%e116712116740%_))) + (_%tl116714116747%_ (let () (declare (not safe)) - (##cdr _%e115727115755%_)))) - (if (gx#stx-pair? _%tl115729115762%_) - (let ((_%e115730115765%_ + (##cdr _%e116712116740%_)))) + (if (gx#stx-pair? _%tl116714116747%_) + (let ((_%e116715116750%_ (gx#syntax-e - _%tl115729115762%_))) - (let ((_%hd115731115769%_ + _%tl116714116747%_))) + (let ((_%hd116716116754%_ (let () (declare (not safe)) - (##car _%e115730115765%_))) - (_%tl115732115772%_ + (##car _%e116715116750%_))) + (_%tl116717116757%_ (let () (declare (not safe)) - (##cdr _%e115730115765%_)))) - ((lambda (_%L115775%_ - _%L115777%_ - _%L115778%_) + (##cdr _%e116715116750%_)))) + ((lambda (_%L116760%_ + _%L116762%_ + _%L116763%_) (if (and (gx#identifier-list? - _%L115777%_) + _%L116762%_) (gx#stx-list? - _%L115775%_)) - (let* ((_%g115796115804%_ - (lambda (_%g115797115800%_) + _%L116760%_)) + (let* ((_%g116781116789%_ + (lambda (_%g116782116785%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115797115800%_))) - (_%g115795115857%_ - (lambda (_%g115797115808%_) - ((lambda (_%L115811%_) - (let* ((_%g115823115831%_ + _%g116782116785%_))) + (_%g116780116842%_ + (lambda (_%g116782116793%_) + ((lambda (_%L116796%_) + (let* ((_%g116808116816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g115824115827%_) + (lambda (_%g116809116812%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115824115827%_))) - (_%g115822115853%_ - (lambda (_%g115824115835%_) - ((lambda (_%L115838%_) + _%g116809116812%_))) + (_%g116807116838%_ + (lambda (_%g116809116820%_) + ((lambda (_%L116823%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L115811%_ - (cons _%L115778%_ + (cons (cons (cons _%L116796%_ + (cons _%L116763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L115838%_ '())))) - _%g115824115835%_)))) - (_%g115822115853%_ - (_%generate115716%_ - _%L115811%_ - (gx#syntax->list _%L115777%_) - _%L115775%_)))) - _%g115797115808%_)))) + (cons _%L116823%_ '())))) + _%g116809116820%_)))) + (_%g116807116838%_ + (_%generate116701%_ + _%L116796%_ + (gx#syntax->list _%L116762%_) + _%L116760%_)))) + _%g116782116793%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115795115857%_ + (_%g116780116842%_ (gx#genident 'e))) - (_%g115719115738%_ - _%g115720115742%_))) - _%tl115732115772%_ - _%hd115731115769%_ - _%hd115728115759%_))) - (_%g115719115738%_ - _%g115720115742%_)))) - (_%g115719115738%_ _%g115720115742%_)))) - (_%g115719115738%_ _%g115720115742%_))))) - (_%g115718115861%_ _%stx115713%_))))))) + (_%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 44cef64ff..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 1734131747) + (define gerbil/expander/compile::timestamp 1734357962) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx130477%_) - (let* ((_%e130478130485%_ _%stx130477%_) - (_%E130480130489%_ + (lambda (_%stx131462%_) + (let* ((_%e131463131470%_ _%stx131462%_) + (_%E131465131474%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130478130485%_))) - (_%E130479130503%_ - (lambda () - (if (gx#stx-pair? _%e130478130485%_) - (let ((_%e130481130493%_ - (gx#syntax-e _%e130478130485%_))) - (let ((_%hd130482130496%_ (##car _%e130481130493%_)) - (_%tl130483130498%_ (##cdr _%e130481130493%_))) - (let* ((_%form130501%_ _%hd130482130496%_) - (__self130506 - (gx#syntax-local-e__0 _%form130501%_)) - (__method130507 + _%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 - __self130506 + __self131491 'compile-top-syntax))) - (if __method130507 - (__method130507 __self130506 _%stx130477%_) + (if __method131492 + (__method131492 __self131491 _%stx131462%_) (begin (error '"Missing method" - __self130506 + __self131491 'compile-top-syntax) '#!void))))) - (_%E130480130489%_))))) - (_%E130479130503%_)))) + (_%E131465131474%_))))) + (_%E131464131488%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self129320130423%_ _%stx130425%_) - (let* ((_%self130427%_ _%self129320130423%_) - (_%self130429%_ _%self130427%_) - (_%self130438130446%_ _%self130429%_) - (_%E130440130450%_ + (lambda (_%self130305131408%_ _%stx131410%_) + (let* ((_%self131412%_ _%self130305131408%_) + (_%self131414%_ _%self131412%_) + (_%self131423131431%_ _%self131414%_) + (_%E131425131435%_ (lambda () (error '"No clause matching" - _%self130438130446%_ + _%self131423131431%_ '((core-expander _ _ K))) '#!void)) - (_%K130441130463%_ - (lambda (_%K130453%_) - (let ((_%$e130455%_ (gx#stx-source _%stx130425%_))) - (if _%$e130455%_ - ((lambda (_%g130457130459%_) + (_%K131426131448%_ + (lambda (_%K131438%_) + (let ((_%$e131440%_ (gx#stx-source _%stx131410%_))) + (if _%$e131440%_ + ((lambda (_%g131442131444%_) (gx#stx-wrap-source - (_%K130453%_ _%stx130425%_) - _%g130457130459%_)) - _%$e130455%_) - (_%K130453%_ _%stx130425%_))))) - (_%e130442130466%_ - (##unchecked-structure-ref _%self130438130446%_ '1 '#f '#f)) - (_%e130443130469%_ - (##unchecked-structure-ref _%self130438130446%_ '2 '#f '#f)) - (_%e130444130472%_ - (##unchecked-structure-ref _%self130438130446%_ '3 '#f '#f)) - (_%K130475%_ _%e130444130472%_)) - (_%K130441130463%_ _%K130475%_)))) + (_%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 (_%stx130297%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx130297%_))) + (lambda (_%stx131282%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx131282%_))) (define gx#core-compile-top-begin% - (lambda (_%stx130267%_) - (let* ((_%e130268130275%_ _%stx130267%_) - (_%E130270130279%_ + (lambda (_%stx131252%_) + (let* ((_%e131253131260%_ _%stx131252%_) + (_%E131255131264%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130268130275%_))) - (_%E130269130293%_ - (lambda () - (if (gx#stx-pair? _%e130268130275%_) - (let ((_%e130271130283%_ - (gx#syntax-e _%e130268130275%_))) - (let ((_%hd130272130286%_ (##car _%e130271130283%_)) - (_%tl130273130288%_ (##cdr _%e130271130283%_))) - (let ((_%body130291%_ _%tl130273130288%_)) + _%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 - _%body130291%_))))) - (_%E130270130279%_))))) - (_%E130269130293%_)))) + _%body131276%_))))) + (_%E131255131264%_))))) + (_%E131254131278%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx130236%_) - (let* ((_%e130237130244%_ _%stx130236%_) - (_%E130239130248%_ + (lambda (_%stx131221%_) + (let* ((_%e131222131229%_ _%stx131221%_) + (_%E131224131233%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130237130244%_))) - (_%E130238130263%_ - (lambda () - (if (gx#stx-pair? _%e130237130244%_) - (let ((_%e130240130252%_ - (gx#syntax-e _%e130237130244%_))) - (let ((_%hd130241130255%_ (##car _%e130240130252%_)) - (_%tl130242130257%_ (##cdr _%e130240130252%_))) - (let ((_%body130260%_ _%tl130242130257%_)) + _%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 - _%body130260%_)) + _%body131245%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E130239130248%_))))) - (_%E130238130263%_)))) + (_%E131224131233%_))))) + (_%E131223131248%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx130206%_) - (let* ((_%e130207130214%_ _%stx130206%_) - (_%E130209130218%_ + (lambda (_%stx131191%_) + (let* ((_%e131192131199%_ _%stx131191%_) + (_%E131194131203%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130207130214%_))) - (_%E130208130232%_ - (lambda () - (if (gx#stx-pair? _%e130207130214%_) - (let ((_%e130210130222%_ - (gx#syntax-e _%e130207130214%_))) - (let ((_%hd130211130225%_ (##car _%e130210130222%_)) - (_%tl130212130227%_ (##cdr _%e130210130222%_))) - (let ((_%body130230%_ _%tl130212130227%_)) - (cons '%#begin-foreign _%body130230%_)))) - (_%E130209130218%_))))) - (_%E130208130232%_)))) + _%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 (_%stx130152%_) - (let* ((_%e130153130166%_ _%stx130152%_) - (_%E130155130170%_ + (lambda (_%stx131137%_) + (let* ((_%e131138131151%_ _%stx131137%_) + (_%E131140131155%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130153130166%_))) - (_%E130154130202%_ - (lambda () - (if (gx#stx-pair? _%e130153130166%_) - (let ((_%e130156130174%_ - (gx#syntax-e _%e130153130166%_))) - (let ((_%hd130157130177%_ (##car _%e130156130174%_)) - (_%tl130158130179%_ (##cdr _%e130156130174%_))) - (if (gx#stx-pair? _%tl130158130179%_) - (let ((_%e130159130182%_ - (gx#syntax-e _%tl130158130179%_))) - (let ((_%hd130160130185%_ - (##car _%e130159130182%_)) - (_%tl130161130187%_ - (##cdr _%e130159130182%_))) - (let ((_%ann130190%_ _%hd130160130185%_)) - (if (gx#stx-pair? _%tl130161130187%_) - (let ((_%e130162130192%_ + _%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 - _%tl130161130187%_))) - (let ((_%hd130163130195%_ - (##car _%e130162130192%_)) - (_%tl130164130197%_ - (##cdr _%e130162130192%_))) - (let ((_%expr130200%_ - _%hd130163130195%_)) + _%tl131146131172%_))) + (let ((_%hd131148131180%_ + (##car _%e131147131177%_)) + (_%tl131149131182%_ + (##cdr _%e131147131177%_))) + (let ((_%expr131185%_ + _%hd131148131180%_)) (if (gx#stx-null? - _%tl130164130197%_) + _%tl131149131182%_) (gx#core-compile-top-syntax - _%expr130200%_) - (_%E130155130170%_))))) - (_%E130155130170%_))))) - (_%E130155130170%_)))) - (_%E130155130170%_))))) - (_%E130154130202%_)))) + _%expr131185%_) + (_%E131140131155%_))))) + (_%E131140131155%_))))) + (_%E131140131155%_)))) + (_%E131140131155%_))))) + (_%E131139131187%_)))) (define gx#core-compile-top-import% - (lambda (_%stx130122%_) - (let* ((_%e130123130130%_ _%stx130122%_) - (_%E130125130134%_ + (lambda (_%stx131107%_) + (let* ((_%e131108131115%_ _%stx131107%_) + (_%E131110131119%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130123130130%_))) - (_%E130124130148%_ - (lambda () - (if (gx#stx-pair? _%e130123130130%_) - (let ((_%e130126130138%_ - (gx#syntax-e _%e130123130130%_))) - (let ((_%hd130127130141%_ (##car _%e130126130138%_)) - (_%tl130128130143%_ (##cdr _%e130126130138%_))) - (let ((_%body130146%_ _%tl130128130143%_)) - (cons '%#import _%body130146%_)))) - (_%E130125130134%_))))) - (_%E130124130148%_)))) + _%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 (_%stx130079%_) - (let* ((_%e130080130090%_ _%stx130079%_) - (_%E130082130094%_ + (lambda (_%stx131064%_) + (let* ((_%e131065131075%_ _%stx131064%_) + (_%E131067131079%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130080130090%_))) - (_%E130081130118%_ - (lambda () - (if (gx#stx-pair? _%e130080130090%_) - (let ((_%e130083130098%_ - (gx#syntax-e _%e130080130090%_))) - (let ((_%hd130084130101%_ (##car _%e130083130098%_)) - (_%tl130085130103%_ (##cdr _%e130083130098%_))) - (if (gx#stx-pair? _%tl130085130103%_) - (let ((_%e130086130106%_ - (gx#syntax-e _%tl130085130103%_))) - (let ((_%hd130087130109%_ - (##car _%e130086130106%_)) - (_%tl130088130111%_ - (##cdr _%e130086130106%_))) - (let* ((_%hd130114%_ _%hd130087130109%_) - (_%body130116%_ _%tl130088130111%_)) + _%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 - _%hd130114%_) + _%hd131099%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body130116%_)))))) - (_%E130082130094%_)))) - (_%E130082130094%_))))) - (_%E130081130118%_)))) + _%body131101%_)))))) + (_%E131067131079%_)))) + (_%E131067131079%_))))) + (_%E131066131103%_)))) (define gx#core-compile-top-export% - (lambda (_%stx130049%_) - (let* ((_%e130050130057%_ _%stx130049%_) - (_%E130052130061%_ + (lambda (_%stx131034%_) + (let* ((_%e131035131042%_ _%stx131034%_) + (_%E131037131046%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130050130057%_))) - (_%E130051130075%_ - (lambda () - (if (gx#stx-pair? _%e130050130057%_) - (let ((_%e130053130065%_ - (gx#syntax-e _%e130050130057%_))) - (let ((_%hd130054130068%_ (##car _%e130053130065%_)) - (_%tl130055130070%_ (##cdr _%e130053130065%_))) - (let ((_%body130073%_ _%tl130055130070%_)) - (cons '%#export _%body130073%_)))) - (_%E130052130061%_))))) - (_%E130051130075%_)))) + _%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 (_%stx130019%_) - (let* ((_%e130020130027%_ _%stx130019%_) - (_%E130022130031%_ + (lambda (_%stx131004%_) + (let* ((_%e131005131012%_ _%stx131004%_) + (_%E131007131016%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130020130027%_))) - (_%E130021130045%_ - (lambda () - (if (gx#stx-pair? _%e130020130027%_) - (let ((_%e130023130035%_ - (gx#syntax-e _%e130020130027%_))) - (let ((_%hd130024130038%_ (##car _%e130023130035%_)) - (_%tl130025130040%_ (##cdr _%e130023130035%_))) - (let ((_%body130043%_ _%tl130025130040%_)) - (cons '%#provide _%body130043%_)))) - (_%E130022130031%_))))) - (_%E130021130045%_)))) + _%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 (_%stx129989%_) - (let* ((_%e129990129997%_ _%stx129989%_) - (_%E129992130001%_ + (lambda (_%stx130974%_) + (let* ((_%e130975130982%_ _%stx130974%_) + (_%E130977130986%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129990129997%_))) - (_%E129991130015%_ - (lambda () - (if (gx#stx-pair? _%e129990129997%_) - (let ((_%e129993130005%_ - (gx#syntax-e _%e129990129997%_))) - (let ((_%hd129994130008%_ (##car _%e129993130005%_)) - (_%tl129995130010%_ (##cdr _%e129993130005%_))) - (let ((_%body130013%_ _%tl129995130010%_)) - (cons '%#extern _%body130013%_)))) - (_%E129992130001%_))))) - (_%E129991130015%_)))) + _%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 (_%stx129935%_) - (let* ((_%e129936129949%_ _%stx129935%_) - (_%E129938129953%_ + (lambda (_%stx130920%_) + (let* ((_%e130921130934%_ _%stx130920%_) + (_%E130923130938%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129936129949%_))) - (_%E129937129985%_ - (lambda () - (if (gx#stx-pair? _%e129936129949%_) - (let ((_%e129939129957%_ - (gx#syntax-e _%e129936129949%_))) - (let ((_%hd129940129960%_ (##car _%e129939129957%_)) - (_%tl129941129962%_ (##cdr _%e129939129957%_))) - (if (gx#stx-pair? _%tl129941129962%_) - (let ((_%e129942129965%_ - (gx#syntax-e _%tl129941129962%_))) - (let ((_%hd129943129968%_ - (##car _%e129942129965%_)) - (_%tl129944129970%_ - (##cdr _%e129942129965%_))) - (let ((_%hd129973%_ _%hd129943129968%_)) - (if (gx#stx-pair? _%tl129944129970%_) - (let ((_%e129945129975%_ + _%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 - _%tl129944129970%_))) - (let ((_%hd129946129978%_ - (##car _%e129945129975%_)) - (_%tl129947129980%_ - (##cdr _%e129945129975%_))) - (let ((_%expr129983%_ - _%hd129946129978%_)) + _%tl130929130955%_))) + (let ((_%hd130931130963%_ + (##car _%e130930130960%_)) + (_%tl130932130965%_ + (##cdr _%e130930130960%_))) + (let ((_%expr130968%_ + _%hd130931130963%_)) (if (gx#stx-null? - _%tl129947129980%_) + _%tl130932130965%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129973%_) + _%hd130958%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr129983%_) + _%expr130968%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129938129953%_))))) - (_%E129938129953%_))))) - (_%E129938129953%_)))) - (_%E129938129953%_))))) - (_%E129937129985%_)))) + (_%E130923130938%_))))) + (_%E130923130938%_))))) + (_%E130923130938%_)))) + (_%E130923130938%_))))) + (_%E130922130970%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx129880%_) - (let* ((_%e129881129894%_ _%stx129880%_) - (_%E129883129898%_ + (lambda (_%stx130865%_) + (let* ((_%e130866130879%_ _%stx130865%_) + (_%E130868130883%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129881129894%_))) - (_%E129882129931%_ - (lambda () - (if (gx#stx-pair? _%e129881129894%_) - (let ((_%e129884129902%_ - (gx#syntax-e _%e129881129894%_))) - (let ((_%hd129885129905%_ (##car _%e129884129902%_)) - (_%tl129886129907%_ (##cdr _%e129884129902%_))) - (if (gx#stx-pair? _%tl129886129907%_) - (let ((_%e129887129910%_ - (gx#syntax-e _%tl129886129907%_))) - (let ((_%hd129888129913%_ - (##car _%e129887129910%_)) - (_%tl129889129915%_ - (##cdr _%e129887129910%_))) - (let ((_%hd129918%_ _%hd129888129913%_)) - (if (gx#stx-pair? _%tl129889129915%_) - (let ((_%e129890129920%_ + _%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 - _%tl129889129915%_))) - (let ((_%hd129891129923%_ - (##car _%e129890129920%_)) - (_%tl129892129925%_ - (##cdr _%e129890129920%_))) - (let ((_%expr129928%_ - _%hd129891129923%_)) + _%tl130874130900%_))) + (let ((_%hd130876130908%_ + (##car _%e130875130905%_)) + (_%tl130877130910%_ + (##cdr _%e130875130905%_))) + (let ((_%expr130913%_ + _%hd130876130908%_)) (if (gx#stx-null? - _%tl129892129925%_) + _%tl130877130910%_) (cons '%#define-syntax - (cons _%hd129918%_ + (cons _%hd130903%_ (cons (__call-with-parameters ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr129928%_)) + (gx#core-compile-top-syntax _%expr130913%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129883129898%_))))) - (_%E129883129898%_))))) - (_%E129883129898%_)))) - (_%E129883129898%_))))) - (_%E129882129931%_)))) + (_%E130868130883%_))))) + (_%E130868130883%_))))) + (_%E130868130883%_)))) + (_%E130868130883%_))))) + (_%E130867130916%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx129850%_) - (let* ((_%e129851129858%_ _%stx129850%_) - (_%E129853129862%_ + (lambda (_%stx130835%_) + (let* ((_%e130836130843%_ _%stx130835%_) + (_%E130838130847%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129851129858%_))) - (_%E129852129876%_ - (lambda () - (if (gx#stx-pair? _%e129851129858%_) - (let ((_%e129854129866%_ - (gx#syntax-e _%e129851129858%_))) - (let ((_%hd129855129869%_ (##car _%e129854129866%_)) - (_%tl129856129871%_ (##cdr _%e129854129866%_))) - (let ((_%body129874%_ _%tl129856129871%_)) - (cons '%#define-alias _%body129874%_)))) - (_%E129853129862%_))))) - (_%E129852129876%_)))) + _%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 (_%stx129820%_) - (let* ((_%e129821129828%_ _%stx129820%_) - (_%E129823129832%_ + (lambda (_%stx130805%_) + (let* ((_%e130806130813%_ _%stx130805%_) + (_%E130808130817%_ (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 '%#define-runtime _%body129844%_)))) - (_%E129823129832%_))))) - (_%E129822129846%_)))) + _%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 (_%stx129790%_) - (let* ((_%e129791129798%_ _%stx129790%_) - (_%E129793129802%_ + (lambda (_%stx130775%_) + (let* ((_%e130776130783%_ _%stx130775%_) + (_%E130778130787%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129791129798%_))) - (_%E129792129816%_ - (lambda () - (if (gx#stx-pair? _%e129791129798%_) - (let ((_%e129794129806%_ - (gx#syntax-e _%e129791129798%_))) - (let ((_%hd129795129809%_ (##car _%e129794129806%_)) - (_%tl129796129811%_ (##cdr _%e129794129806%_))) - (let ((_%decls129814%_ _%tl129796129811%_)) - (cons '%#declare _%decls129814%_)))) - (_%E129793129802%_))))) - (_%E129792129816%_)))) + _%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 (_%stx129760%_) - (let* ((_%e129761129768%_ _%stx129760%_) - (_%E129763129772%_ + (lambda (_%stx130745%_) + (let* ((_%e130746130753%_ _%stx130745%_) + (_%E130748130757%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129761129768%_))) - (_%E129762129786%_ - (lambda () - (if (gx#stx-pair? _%e129761129768%_) - (let ((_%e129764129776%_ - (gx#syntax-e _%e129761129768%_))) - (let ((_%hd129765129779%_ (##car _%e129764129776%_)) - (_%tl129766129781%_ (##cdr _%e129764129776%_))) - (let ((_%clause129784%_ _%tl129766129781%_)) + _%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 - _%clause129784%_))))) - (_%E129763129772%_))))) - (_%E129762129786%_)))) + _%clause130769%_))))) + (_%E130748130757%_))))) + (_%E130747130771%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx129717%_) - (let* ((_%e129718129728%_ _%stx129717%_) - (_%E129720129732%_ + (lambda (_%stx130702%_) + (let* ((_%e130703130713%_ _%stx130702%_) + (_%E130705130717%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129718129728%_))) - (_%E129719129756%_ - (lambda () - (if (gx#stx-pair? _%e129718129728%_) - (let ((_%e129721129736%_ - (gx#syntax-e _%e129718129728%_))) - (let ((_%hd129722129739%_ (##car _%e129721129736%_)) - (_%tl129723129741%_ (##cdr _%e129721129736%_))) - (let ((_%hd129744%_ _%hd129722129739%_)) - (if (gx#stx-pair? _%tl129723129741%_) - (let ((_%e129724129746%_ - (gx#syntax-e _%tl129723129741%_))) - (let ((_%hd129725129749%_ - (##car _%e129724129746%_)) - (_%tl129726129751%_ - (##cdr _%e129724129746%_))) - (let ((_%body129754%_ _%hd129725129749%_)) - (if (gx#stx-null? _%tl129726129751%_) + _%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 - _%hd129744%_) + _%hd130729%_) (cons (gx#core-compile-top-syntax - _%body129754%_) + _%body130739%_) '())) - (_%E129720129732%_))))) - (_%E129720129732%_))))) - (_%E129720129732%_))))) - (_%E129719129756%_)))) + (_%E130705130717%_))))) + (_%E130705130717%_))))) + (_%E130705130717%_))))) + (_%E130704130741%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx129687%_) - (let* ((_%e129688129695%_ _%stx129687%_) - (_%E129690129699%_ + (lambda (_%stx130672%_) + (let* ((_%e130673130680%_ _%stx130672%_) + (_%E130675130684%_ (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 ((_%clauses129711%_ _%tl129693129708%_)) + _%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 - _%clauses129711%_))))) - (_%E129690129699%_))))) - (_%E129689129713%_)))) + _%clauses130696%_))))) + (_%E130675130684%_))))) + (_%E130674130698%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx129622%_ _%form129623%_) - (let* ((_%e129624129637%_ _%stx129622%_) - (_%E129626129641%_ + (lambda (_%stx130607%_ _%form130608%_) + (let* ((_%e130609130622%_ _%stx130607%_) + (_%E130611130626%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129624129637%_))) - (_%E129625129673%_ - (lambda () - (if (gx#stx-pair? _%e129624129637%_) - (let ((_%e129627129645%_ - (gx#syntax-e _%e129624129637%_))) - (let ((_%hd129628129648%_ (##car _%e129627129645%_)) - (_%tl129629129650%_ (##cdr _%e129627129645%_))) - (if (gx#stx-pair? _%tl129629129650%_) - (let ((_%e129630129653%_ - (gx#syntax-e _%tl129629129650%_))) - (let ((_%hd129631129656%_ - (##car _%e129630129653%_)) - (_%tl129632129658%_ - (##cdr _%e129630129653%_))) - (let ((_%hd129661%_ _%hd129631129656%_)) - (if (gx#stx-pair? _%tl129632129658%_) - (let ((_%e129633129663%_ + _%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 - _%tl129632129658%_))) - (let ((_%hd129634129666%_ - (##car _%e129633129663%_)) - (_%tl129635129668%_ - (##cdr _%e129633129663%_))) - (let ((_%body129671%_ - _%hd129634129666%_)) + _%tl130617130643%_))) + (let ((_%hd130619130651%_ + (##car _%e130618130648%_)) + (_%tl130620130653%_ + (##cdr _%e130618130648%_))) + (let ((_%body130656%_ + _%hd130619130651%_)) (if (gx#stx-null? - _%tl129635129668%_) - (cons _%form129623%_ + _%tl130620130653%_) + (cons _%form130608%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd129661%_) + _%hd130646%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body129671%_) + _%body130656%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129626129641%_))))) - (_%E129626129641%_))))) - (_%E129626129641%_)))) - (_%E129626129641%_))))) - (_%E129625129673%_)))) + (_%E130611130626%_))))) + (_%E130611130626%_))))) + (_%E130611130626%_)))) + (_%E130611130626%_))))) + (_%E130610130658%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx129680%_) - (let ((_%form129682%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx129680%_ _%form129682%_)))) + (lambda (_%stx130665%_) + (let ((_%form130667%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx130665%_ _%form130667%_)))) (define gx#core-compile-top-let-values% - (lambda _g130509_ - (let ((_g130508_ (##length _g130509_))) - (cond ((##fx= _g130508_ 1) - (apply gx#core-compile-top-let-values%__0 _g130509_)) - ((##fx= _g130508_ 2) - (apply gx#core-compile-top-let-values%__% _g130509_)) + (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% - _g130509_)))))) + _g131494_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx129619%_) - (gx#core-compile-top-let-values%__% _%stx129619%_ '%#letrec-values))) + (lambda (_%stx130604%_) + (gx#core-compile-top-let-values%__% _%stx130604%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx129617%_) - (gx#core-compile-top-let-values%__% _%stx129617%_ '%#letrec*-values))) + (lambda (_%stx130602%_) + (gx#core-compile-top-let-values%__% _%stx130602%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx129576%_) - (let* ((_%e129577129587%_ _%stx129576%_) - (_%E129579129591%_ + (lambda (_%stx130561%_) + (let* ((_%e130562130572%_ _%stx130561%_) + (_%E130564130576%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129577129587%_))) - (_%E129578129613%_ - (lambda () - (if (gx#stx-pair? _%e129577129587%_) - (let ((_%e129580129595%_ - (gx#syntax-e _%e129577129587%_))) - (let ((_%hd129581129598%_ (##car _%e129580129595%_)) - (_%tl129582129600%_ (##cdr _%e129580129595%_))) - (if (gx#stx-pair? _%tl129582129600%_) - (let ((_%e129583129603%_ - (gx#syntax-e _%tl129582129600%_))) - (let ((_%hd129584129606%_ - (##car _%e129583129603%_)) - (_%tl129585129608%_ - (##cdr _%e129583129603%_))) - (let ((_%e129611%_ _%hd129584129606%_)) - (if (gx#stx-null? _%tl129585129608%_) + _%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 - _%e129611%_) + _%e130596%_) '())) - (_%E129579129591%_))))) - (_%E129579129591%_)))) - (_%E129579129591%_))))) - (_%E129578129613%_)))) + (_%E130564130576%_))))) + (_%E130564130576%_)))) + (_%E130564130576%_))))) + (_%E130563130598%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx129535%_) - (let* ((_%e129536129546%_ _%stx129535%_) - (_%E129538129550%_ + (lambda (_%stx130520%_) + (let* ((_%e130521130531%_ _%stx130520%_) + (_%E130523130535%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129536129546%_))) - (_%E129537129572%_ - (lambda () - (if (gx#stx-pair? _%e129536129546%_) - (let ((_%e129539129554%_ - (gx#syntax-e _%e129536129546%_))) - (let ((_%hd129540129557%_ (##car _%e129539129554%_)) - (_%tl129541129559%_ (##cdr _%e129539129554%_))) - (if (gx#stx-pair? _%tl129541129559%_) - (let ((_%e129542129562%_ - (gx#syntax-e _%tl129541129559%_))) - (let ((_%hd129543129565%_ - (##car _%e129542129562%_)) - (_%tl129544129567%_ - (##cdr _%e129542129562%_))) - (let ((_%e129570%_ _%hd129543129565%_)) - (if (gx#stx-null? _%tl129544129567%_) + _%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 - _%e129570%_) + _%e130555%_) '())) - (_%E129538129550%_))))) - (_%E129538129550%_)))) - (_%E129538129550%_))))) - (_%E129537129572%_)))) + (_%E130523130535%_))))) + (_%E130523130535%_)))) + (_%E130523130535%_))))) + (_%E130522130557%_)))) (define gx#core-compile-top-call% - (lambda (_%stx129492%_) - (let* ((_%e129493129503%_ _%stx129492%_) - (_%E129495129507%_ + (lambda (_%stx130477%_) + (let* ((_%e130478130488%_ _%stx130477%_) + (_%E130480130492%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129493129503%_))) - (_%E129494129531%_ - (lambda () - (if (gx#stx-pair? _%e129493129503%_) - (let ((_%e129496129511%_ - (gx#syntax-e _%e129493129503%_))) - (let ((_%hd129497129514%_ (##car _%e129496129511%_)) - (_%tl129498129516%_ (##cdr _%e129496129511%_))) - (if (gx#stx-pair? _%tl129498129516%_) - (let ((_%e129499129519%_ - (gx#syntax-e _%tl129498129516%_))) - (let ((_%hd129500129522%_ - (##car _%e129499129519%_)) - (_%tl129501129524%_ - (##cdr _%e129499129519%_))) - (let* ((_%rator129527%_ _%hd129500129522%_) - (_%args129529%_ _%tl129501129524%_)) + _%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 - _%rator129527%_) + _%rator130512%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args129529%_)))))) - (_%E129495129507%_)))) - (_%E129495129507%_))))) - (_%E129494129531%_)))) + _%args130514%_)))))) + (_%E130480130492%_)))) + (_%E130480130492%_))))) + (_%E130479130516%_)))) (define gx#core-compile-top-if% - (lambda (_%stx129425%_) - (let* ((_%e129426129442%_ _%stx129425%_) - (_%E129428129446%_ + (lambda (_%stx130410%_) + (let* ((_%e130411130427%_ _%stx130410%_) + (_%E130413130431%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129426129442%_))) - (_%E129427129488%_ - (lambda () - (if (gx#stx-pair? _%e129426129442%_) - (let ((_%e129429129450%_ - (gx#syntax-e _%e129426129442%_))) - (let ((_%hd129430129453%_ (##car _%e129429129450%_)) - (_%tl129431129455%_ (##cdr _%e129429129450%_))) - (if (gx#stx-pair? _%tl129431129455%_) - (let ((_%e129432129458%_ - (gx#syntax-e _%tl129431129455%_))) - (let ((_%hd129433129461%_ - (##car _%e129432129458%_)) - (_%tl129434129463%_ - (##cdr _%e129432129458%_))) - (let ((_%test129466%_ _%hd129433129461%_)) - (if (gx#stx-pair? _%tl129434129463%_) - (let ((_%e129435129468%_ + _%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 - _%tl129434129463%_))) - (let ((_%hd129436129471%_ - (##car _%e129435129468%_)) - (_%tl129437129473%_ - (##cdr _%e129435129468%_))) - (let ((_%K129476%_ - _%hd129436129471%_)) + _%tl130419130448%_))) + (let ((_%hd130421130456%_ + (##car _%e130420130453%_)) + (_%tl130422130458%_ + (##cdr _%e130420130453%_))) + (let ((_%K130461%_ + _%hd130421130456%_)) (if (gx#stx-pair? - _%tl129437129473%_) - (let ((_%e129438129478%_ + _%tl130422130458%_) + (let ((_%e130423130463%_ (gx#syntax-e - _%tl129437129473%_))) - (let ((_%hd129439129481%_ - (##car _%e129438129478%_)) - (_%tl129440129483%_ - (##cdr _%e129438129478%_))) - (let ((_%E129486%_ - _%hd129439129481%_)) + _%tl130422130458%_))) + (let ((_%hd130424130466%_ + (##car _%e130423130463%_)) + (_%tl130425130468%_ + (##cdr _%e130423130463%_))) + (let ((_%E130471%_ + _%hd130424130466%_)) (if (gx#stx-null? - _%tl129440129483%_) + _%tl130425130468%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test129466%_) - (cons (gx#core-compile-top-syntax _%K129476%_) + (cons (gx#core-compile-top-syntax _%test130451%_) + (cons (gx#core-compile-top-syntax _%K130461%_) (cons (gx#core-compile-top-syntax - _%E129486%_) + _%E130471%_) '())))) - (_%E129428129446%_))))) + (_%E130413130431%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129428129446%_))))) - (_%E129428129446%_))))) - (_%E129428129446%_)))) - (_%E129428129446%_))))) - (_%E129427129488%_)))) + (_%E130413130431%_))))) + (_%E130413130431%_))))) + (_%E130413130431%_)))) + (_%E130413130431%_))))) + (_%E130412130473%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx129384%_) - (let* ((_%e129385129395%_ _%stx129384%_) - (_%E129387129399%_ + (lambda (_%stx130369%_) + (let* ((_%e130370130380%_ _%stx130369%_) + (_%E130372130384%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129385129395%_))) - (_%E129386129421%_ - (lambda () - (if (gx#stx-pair? _%e129385129395%_) - (let ((_%e129388129403%_ - (gx#syntax-e _%e129385129395%_))) - (let ((_%hd129389129406%_ (##car _%e129388129403%_)) - (_%tl129390129408%_ (##cdr _%e129388129403%_))) - (if (gx#stx-pair? _%tl129390129408%_) - (let ((_%e129391129411%_ - (gx#syntax-e _%tl129390129408%_))) - (let ((_%hd129392129414%_ - (##car _%e129391129411%_)) - (_%tl129393129416%_ - (##cdr _%e129391129411%_))) - (let ((_%id129419%_ _%hd129392129414%_)) - (if (gx#stx-null? _%tl129393129416%_) - (if (gx#identifier? _%id129419%_) + _%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 - _%id129419%_) + _%id130404%_) '())) - (_%E129387129399%_)) - (_%E129387129399%_))))) - (_%E129387129399%_)))) - (_%E129387129399%_))))) - (_%E129386129421%_)))) + (_%E130372130384%_)) + (_%E130372130384%_))))) + (_%E130372130384%_)))) + (_%E130372130384%_))))) + (_%E130371130406%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx129330%_) - (let* ((_%e129331129344%_ _%stx129330%_) - (_%E129333129348%_ + (lambda (_%stx130315%_) + (let* ((_%e130316130329%_ _%stx130315%_) + (_%E130318130333%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129331129344%_))) - (_%E129332129380%_ - (lambda () - (if (gx#stx-pair? _%e129331129344%_) - (let ((_%e129334129352%_ - (gx#syntax-e _%e129331129344%_))) - (let ((_%hd129335129355%_ (##car _%e129334129352%_)) - (_%tl129336129357%_ (##cdr _%e129334129352%_))) - (if (gx#stx-pair? _%tl129336129357%_) - (let ((_%e129337129360%_ - (gx#syntax-e _%tl129336129357%_))) - (let ((_%hd129338129363%_ - (##car _%e129337129360%_)) - (_%tl129339129365%_ - (##cdr _%e129337129360%_))) - (let ((_%id129368%_ _%hd129338129363%_)) - (if (gx#stx-pair? _%tl129339129365%_) - (let ((_%e129340129370%_ + _%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 - _%tl129339129365%_))) - (let ((_%hd129341129373%_ - (##car _%e129340129370%_)) - (_%tl129342129375%_ - (##cdr _%e129340129370%_))) - (let ((_%expr129378%_ - _%hd129341129373%_)) + _%tl130324130350%_))) + (let ((_%hd130326130358%_ + (##car _%e130325130355%_)) + (_%tl130327130360%_ + (##cdr _%e130325130355%_))) + (let ((_%expr130363%_ + _%hd130326130358%_)) (if (gx#stx-null? - _%tl129342129375%_) + _%tl130327130360%_) (if (gx#identifier? - _%id129368%_) + _%id130353%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id129368%_) - (cons (gx#core-compile-top-syntax _%expr129378%_) + _%id130353%_) + (cons (gx#core-compile-top-syntax _%expr130363%_) '()))) - (_%E129333129348%_)) + (_%E130318130333%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129333129348%_))))) - (_%E129333129348%_))))) - (_%E129333129348%_)))) - (_%E129333129348%_))))) - (_%E129332129380%_)))) + (_%E130318130333%_))))) + (_%E130318130333%_))))) + (_%E130318130333%_)))) + (_%E130318130333%_))))) + (_%E130317130365%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id129324%_) - (let ((_%$e129326%_ (gx#resolve-identifier__0 _%id129324%_))) - (if _%$e129326%_ - (##unchecked-structure-ref _%$e129326%_ '1 '#f '#f) - _%id129324%_)))) + (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 (_%hd129322%_) - (if (gx#identifier? _%hd129322%_) - (gx#core-compile-top-runtime-ref _%hd129322%_) + (lambda (_%hd130307%_) + (if (gx#identifier? _%hd130307%_) + (gx#core-compile-top-runtime-ref _%hd130307%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index 8f23f48e0..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 1734131746) + (define gerbil/expander/core::timestamp 1734357961) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -26,8 +26,8 @@ (define gx#expander-context? (__make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _%$args121592%_ - (apply make-instance gx#expander-context::t _%$args121592%_))) + (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 @@ -54,8 +54,8 @@ '#f)) (define gx#root-context? (__make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _%$args121589%_ - (apply make-instance gx#root-context::t _%$args121589%_))) + (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 @@ -82,8 +82,8 @@ '#f)) (define gx#phi-context? (__make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _%$args121586%_ - (apply make-instance gx#phi-context::t _%$args121586%_))) + (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 @@ -134,8 +134,8 @@ '#f)) (define gx#top-context? (__make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _%$args121583%_ - (apply make-instance gx#top-context::t _%$args121583%_))) + (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 @@ -186,8 +186,8 @@ '#f)) (define gx#module-context? (__make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _%$args121580%_ - (apply make-instance gx#module-context::t _%$args121580%_))) + (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 @@ -286,8 +286,8 @@ '#f)) (define gx#prelude-context? (__make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _%$args121577%_ - (apply make-instance gx#prelude-context::t _%$args121577%_))) + (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 @@ -362,8 +362,8 @@ '#f)) (define gx#local-context? (__make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _%$args121574%_ - (apply make-instance gx#local-context::t _%$args121574%_))) + (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 @@ -405,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 (_%self118480121545%_ _%id121547%_ _%super121548%_) - (let* ((_%self121550%_ _%self118480121545%_) - (_%self121552%_ _%self121550%_)) - (if (##fx< '3 (##structure-length _%self121552%_)) + (lambda (_%self119465122530%_ _%id122532%_ _%super122533%_) + (let* ((_%self122535%_ _%self119465122530%_) + (_%self122537%_ _%self122535%_)) + (if (##fx< '3 (##structure-length _%self122537%_)) (begin (##unchecked-structure-set! - _%self121552%_ - _%id121547%_ + _%self122537%_ + _%id122532%_ '1 '#f '#f) (##unchecked-structure-set! - _%self121552%_ + _%self122537%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121552%_ - _%super121548%_ + _%self122537%_ + _%super122533%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121552%_ + _%self122537%_ '3 - (##vector-length _%self121552%_)))))) + (##vector-length _%self122537%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self118480121565%_ _%id121566%_) - (let ((_%super121568%_ (gx#current-expander-context))) + (lambda (_%self119465122550%_ _%id122551%_) + (let ((_%super122553%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self118480121565%_ - _%id121566%_ - _%super121568%_)))) + _%self119465122550%_ + _%id122551%_ + _%super122553%_)))) (define gx#phi-context:::init! - (lambda _g121635_ - (let ((_g121634_ (##length _g121635_))) - (cond ((##fx= _g121634_ 2) - (apply gx#phi-context:::init!__0 _g121635_)) - ((##fx= _g121634_ 3) - (apply gx#phi-context:::init!__% _g121635_)) + (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! - _g121635_)))))) + _g122620_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self118481121396%_ _%super121398%_) - (let* ((_%self121400%_ _%self118481121396%_) - (_%self121402%_ _%self121400%_)) - (if (##fx< '3 (##structure-length _%self121402%_)) + (lambda (_%self119466122381%_ _%super122383%_) + (let* ((_%self122385%_ _%self119466122381%_) + (_%self122387%_ _%self122385%_)) + (if (##fx< '3 (##structure-length _%self122387%_)) (begin (##unchecked-structure-set! - _%self121402%_ + _%self122387%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self121402%_ + _%self122387%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121402%_ - _%super121398%_ + _%self122387%_ + _%super122383%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121402%_ + _%self122387%_ '3 - (##vector-length _%self121402%_)))))) + (##vector-length _%self122387%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self118481121415%_) - (let ((_%super121417%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self118481121415%_ _%super121417%_)))) + (lambda (_%self119466122400%_) + (let ((_%super122402%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self119466122400%_ _%super122402%_)))) (define gx#local-context:::init! - (lambda _g121637_ - (let ((_g121636_ (##length _g121637_))) - (cond ((##fx= _g121636_ 1) - (apply gx#local-context:::init!__0 _g121637_)) - ((##fx= _g121636_ 2) - (apply gx#local-context:::init!__% _g121637_)) + (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! - _g121637_)))))) + _g122622_)))))) (__bind-method!__% gx#local-context::t ':init! @@ -511,8 +511,8 @@ '#f)) (define gx#binding? (__make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _%$args121270%_ - (apply make-instance gx#binding::t _%$args121270%_))) + (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)) @@ -541,8 +541,8 @@ '#f)) (define gx#runtime-binding? (__make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _%$args121267%_ - (apply make-instance gx#runtime-binding::t _%$args121267%_))) + (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 @@ -577,8 +577,8 @@ '#f)) (define gx#local-binding? (__make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _%$args121264%_ - (apply make-instance gx#local-binding::t _%$args121264%_))) + (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 @@ -613,8 +613,8 @@ '#f)) (define gx#top-binding? (__make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _%$args121261%_ - (apply make-instance gx#top-binding::t _%$args121261%_))) + (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 @@ -649,8 +649,8 @@ '#f)) (define gx#module-binding? (__make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _%$args121258%_ - (apply make-instance gx#module-binding::t _%$args121258%_))) + (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 @@ -693,8 +693,8 @@ '#f)) (define gx#extern-binding? (__make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _%$args121255%_ - (apply make-instance gx#extern-binding::t _%$args121255%_))) + (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 @@ -730,8 +730,8 @@ '#f)) (define gx#syntax-binding? (__make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _%$args121252%_ - (apply make-instance gx#syntax-binding::t _%$args121252%_))) + (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 @@ -775,8 +775,8 @@ '#f)) (define gx#import-binding? (__make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _%$args121249%_ - (apply make-instance gx#import-binding::t _%$args121249%_))) + (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 @@ -836,8 +836,8 @@ '#f)) (define gx#alias-binding? (__make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _%$args121246%_ - (apply make-instance gx#alias-binding::t _%$args121246%_))) + (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 @@ -880,8 +880,8 @@ '#f)) (define gx#expander? (__make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _%$args121243%_ - (apply make-instance gx#expander::t _%$args121243%_))) + (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 @@ -898,8 +898,8 @@ '#f)) (define gx#core-expander? (__make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _%$args121240%_ - (apply make-instance gx#core-expander::t _%$args121240%_))) + (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 @@ -934,8 +934,8 @@ '#f)) (define gx#expression-form? (__make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _%$args121237%_ - (apply make-instance gx#expression-form::t _%$args121237%_))) + (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 @@ -972,8 +972,8 @@ '#f)) (define gx#special-form? (__make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _%$args121234%_ - (apply make-instance gx#special-form::t _%$args121234%_))) + (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 @@ -1008,8 +1008,8 @@ '#f)) (define gx#definition-form? (__make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _%$args121231%_ - (apply make-instance gx#definition-form::t _%$args121231%_))) + (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 @@ -1047,8 +1047,8 @@ (define gx#top-special-form? (__make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _%$args121228%_ - (apply make-instance gx#top-special-form::t _%$args121228%_))) + (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 @@ -1088,8 +1088,8 @@ (define gx#module-special-form? (__make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _%$args121225%_ - (apply make-instance gx#module-special-form::t _%$args121225%_))) + (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 @@ -1129,8 +1129,8 @@ (define gx#feature-expander? (__make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _%$args121222%_ - (apply make-instance gx#feature-expander::t _%$args121222%_))) + (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! @@ -1150,8 +1150,8 @@ (define gx#private-feature-expander? (__make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _%$args121219%_ - (apply make-instance gx#private-feature-expander::t _%$args121219%_))) + (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! @@ -1171,8 +1171,8 @@ (define gx#reserved-expander? (__make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _%$args121216%_ - (apply make-instance gx#reserved-expander::t _%$args121216%_))) + (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! @@ -1191,8 +1191,8 @@ '#f)) (define gx#macro-expander? (__make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _%$args121213%_ - (apply make-instance gx#macro-expander::t _%$args121213%_))) + (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! @@ -1212,8 +1212,8 @@ (define gx#rename-macro-expander? (__make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _%$args121210%_ - (apply make-instance gx#rename-macro-expander::t _%$args121210%_))) + (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! @@ -1232,8 +1232,8 @@ '#f)) (define gx#user-expander? (__make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _%$args121207%_ - (apply make-instance gx#user-expander::t _%$args121207%_))) + (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 @@ -1268,8 +1268,8 @@ '#f)) (define gx#expander-mark? (__make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _%$args121204%_ - (apply make-instance gx#expander-mark::t _%$args121204%_))) + (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 @@ -1303,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 (_%ctx121188%_ - _%message121189%_ - _%stx121190%_ + (lambda (_%ctx122173%_ + _%message122174%_ + _%stx122175%_ . - _%details121191%_) - (let ((_%ctx121202%_ - (let ((_%$e121193%_ _%ctx121188%_)) - (if _%$e121193%_ - _%$e121193%_ - (let ((_%$e121196%_ (gx#core-context-top__0))) - (if _%$e121196%_ - ((lambda (_%ctx121199%_) + _%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 - _%ctx121199%_ + _%ctx122184%_ '1 gx#expander-context::t '#f) '()))) - _%$e121196%_) + _%$e122181%_) '#f)))))) (raise (make-syntax-error - _%message121189%_ - (cons _%stx121190%_ _%details121191%_) - _%ctx121202%_ + _%message122174%_ + (cons _%stx122175%_ _%details122176%_) + _%ctx122187%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx121175%_ _%expression?121176%_) + (lambda (_%stx122160%_ _%expression?122161%_) (gx#eval-syntax* - (gx#core-expand__% _%stx121175%_ _%expression?121176%_)))) + (gx#core-expand__% _%stx122160%_ _%expression?122161%_)))) (define gx#eval-syntax__0 - (lambda (_%stx121181%_) - (let ((_%expression?121183%_ '#f)) - (gx#eval-syntax__% _%stx121181%_ _%expression?121183%_)))) + (lambda (_%stx122166%_) + (let ((_%expression?122168%_ '#f)) + (gx#eval-syntax__% _%stx122166%_ _%expression?122168%_)))) (define gx#eval-syntax - (lambda _g121639_ - (let ((_g121638_ (##length _g121639_))) - (cond ((##fx= _g121638_ 1) (apply gx#eval-syntax__0 _g121639_)) - ((##fx= _g121638_ 2) (apply gx#eval-syntax__% _g121639_)) + (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 - _g121639_)))))) + _g122624_)))))) (define gx#eval-syntax* - (lambda (_%stx121172%_) + (lambda (_%stx122157%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx121172%_)))) + ((gx#current-expander-compile) _%stx122157%_)))) (define gx#core-expand__% - (lambda (_%stx121159%_ _%expression?121160%_) - (if _%expression?121160%_ - (gx#core-expand-expression _%stx121159%_) - (gx#core-expand-top _%stx121159%_)))) + (lambda (_%stx122144%_ _%expression?122145%_) + (if _%expression?122145%_ + (gx#core-expand-expression _%stx122144%_) + (gx#core-expand-top _%stx122144%_)))) (define gx#core-expand__0 - (lambda (_%stx121165%_) - (let ((_%expression?121167%_ '#f)) - (gx#core-expand__% _%stx121165%_ _%expression?121167%_)))) + (lambda (_%stx122150%_) + (let ((_%expression?122152%_ '#f)) + (gx#core-expand__% _%stx122150%_ _%expression?122152%_)))) (define gx#core-expand - (lambda _g121641_ - (let ((_g121640_ (##length _g121641_))) - (cond ((##fx= _g121640_ 1) (apply gx#core-expand__0 _g121641_)) - ((##fx= _g121640_ 2) (apply gx#core-expand__% _g121641_)) + (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 - _g121641_)))))) + _g122626_)))))) (define gx#core-expand-top - (lambda (_%stx121126%_) - (let* ((_%stx121128%_ (gx#core-expand*__0 _%stx121126%_)) - (_%e121129121136%_ _%stx121128%_) - (_%E121131121140%_ - (lambda () (gx#core-expand-expression _%stx121128%_))) - (_%E121130121154%_ + (lambda (_%stx122111%_) + (let* ((_%stx122113%_ (gx#core-expand*__0 _%stx122111%_)) + (_%e122114122121%_ _%stx122113%_) + (_%E122116122125%_ + (lambda () (gx#core-expand-expression _%stx122113%_))) + (_%E122115122139%_ (lambda () - (if (gx#stx-pair? _%e121129121136%_) - (let ((_%e121132121144%_ - (gx#syntax-e _%e121129121136%_))) - (let ((_%hd121133121147%_ (##car _%e121132121144%_)) - (_%tl121134121149%_ (##cdr _%e121132121144%_))) - (let ((_%form121152%_ _%hd121133121147%_)) - (if (gx#core-bound-identifier?__0 _%form121152%_) - _%stx121128%_ - (_%E121131121140%_))))) - (_%E121131121140%_))))) - (_%E121130121154%_)))) + (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 (_%stx121058%_) - (letrec ((_%sealed-expression?121060%_ - (lambda (_%hd121096%_) - (if (gx#sealed-syntax? _%hd121096%_) - (let* ((_%e121097121104%_ _%hd121096%_) - (_%E121099121108%_ (lambda () '#f)) - (_%E121098121122%_ + (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? _%e121097121104%_) - (let ((_%e121100121112%_ - (gx#syntax-e _%e121097121104%_))) - (let ((_%hd121101121115%_ - (##car _%e121100121112%_)) - (_%tl121102121117%_ - (##cdr _%e121100121112%_))) - (let ((_%form121120%_ - _%hd121101121115%_)) + (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?__% - _%form121120%_ + _%form122105%_ gx#expression-form-binding?)))) - (_%E121099121108%_))))) - (_%E121098121122%_)) + (_%E122084122093%_))))) + (_%E122083122107%_)) '#f))) - (_%illegal-expression121061%_ - (lambda (_%hd121093%_ . _%_121094%_) + (_%illegal-expression122046%_ + (lambda (_%hd122078%_ . _%_122079%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx121058%_ - _%hd121093%_))) - (_%expand-e121062%_ - (lambda (_%form121085%_ _%hd121086%_) - (let ((_%bind121088%_ + _%stx122043%_ + _%hd122078%_))) + (_%expand-e122047%_ + (lambda (_%form122070%_ _%hd122071%_) + (let ((_%bind122073%_ (if (##structure-instance-of? - _%form121085%_ + _%form122070%_ 'gx#binding::t) - _%form121085%_ - (gx#resolve-identifier__0 _%form121085%_)))) - (if (gx#core-expander-binding? _%bind121088%_) + _%form122070%_ + (gx#resolve-identifier__0 _%form122070%_)))) + (if (gx#core-expander-binding? _%bind122073%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind121088%_ + _%bind122073%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd121086%_ - (gx#stx-source _%stx121058%_))) + _%hd122071%_ + (gx#stx-source _%stx122043%_))) (if (##structure-direct-instance-of? - _%bind121088%_ + _%bind122073%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind121088%_ + _%bind122073%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd121086%_ - (gx#stx-source _%stx121058%_)))) + _%hd122071%_ + (gx#stx-source _%stx122043%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx121058%_ - _%form121085%_))))))) - (let ((_%hd121064%_ (gx#core-expand-head _%stx121058%_))) - (if (_%sealed-expression?121060%_ _%hd121064%_) - _%hd121064%_ - (if (gx#stx-pair? _%hd121064%_) - (let* ((_%form121068%_ (gx#stx-car _%hd121064%_)) - (_%bind121070%_ - (if (gx#identifier? _%form121068%_) - (gx#resolve-identifier__0 _%form121068%_) + _%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 _%bind121070%_) - (not (gx#core-expander-binding? _%bind121070%_))) - (_%expand-e121062%_ + (if (or (not _%bind122055%_) + (not (gx#core-expander-binding? _%bind122055%_))) + (_%expand-e122047%_ '%%app - (cons '%%app _%hd121064%_)) + (cons '%%app _%hd122049%_)) (if (eq? (##unchecked-structure-ref - _%bind121070%_ + _%bind122055%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd121064%_ - _%illegal-expression121061%_) - (if (gx#expression-form-binding? _%bind121070%_) - (_%expand-e121062%_ - _%bind121070%_ - _%hd121064%_) + _%hd122049%_ + _%illegal-expression122046%_) + (if (gx#expression-form-binding? _%bind122055%_) + (_%expand-e122047%_ + _%bind122055%_ + _%hd122049%_) (if (gx#direct-special-form-binding? - _%bind121070%_) + _%bind122055%_) (gx#core-expand-expression - (_%expand-e121062%_ - _%bind121070%_ - _%hd121064%_)) - (_%illegal-expression121061%_ - _%hd121064%_)))))) - (if (gx#core-bound-identifier?__0 _%hd121064%_) - (_%illegal-expression121061%_ _%hd121064%_) - (if (gx#identifier? _%hd121064%_) - (_%expand-e121062%_ + (_%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 _%hd121064%_ '()))) - (if (gx#stx-datum? _%hd121064%_) - (_%expand-e121062%_ + (cons '%%ref (cons _%hd122049%_ '()))) + (if (gx#stx-datum? _%hd122049%_) + (_%expand-e122047%_ '%#quote - (cons '%#quote (cons _%hd121064%_ '()))) - (_%illegal-expression121061%_ - _%hd121064%_)))))))))) + (cons '%#quote (cons _%hd122049%_ '()))) + (_%illegal-expression122046%_ + _%hd122049%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx121053%_) + (lambda (_%stx122038%_) (__call-with-parameters (lambda () - (let ((_%stx121056%_ (gx#core-expand-expression _%stx121053%_))) - (values _%stx121056%_ (gx#eval-syntax* _%stx121056%_)))) + (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 (_%stx121034%_ _%stop?121035%_) - (let _%lp121037%_ ((_%stx121039%_ _%stx121034%_)) - (if (_%stop?121035%_ _%stx121039%_) - _%stx121039%_ - (let ((_%rstx121041%_ (gx#core-expand1 _%stx121039%_))) - (if (eq? _%stx121039%_ _%rstx121041%_) - _%stx121039%_ - (_%lp121037%_ _%rstx121041%_))))))) + (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 (_%stx121046%_) - (let ((_%stop?121048%_ false)) - (gx#core-expand*__% _%stx121046%_ _%stop?121048%_)))) + (lambda (_%stx122031%_) + (let ((_%stop?122033%_ false)) + (gx#core-expand*__% _%stx122031%_ _%stop?122033%_)))) (define gx#core-expand* - (lambda _g121643_ - (let ((_g121642_ (##length _g121643_))) - (cond ((##fx= _g121642_ 1) (apply gx#core-expand*__0 _g121643_)) - ((##fx= _g121642_ 2) (apply gx#core-expand*__% _g121643_)) + (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* - _g121643_)))))) + _g122628_)))))) (define gx#core-expand1 - (lambda (_%stx120986%_) - (letrec ((_%step120988%_ - (lambda (_%hd121025%_) - (let ((_%bind121027%_ - (gx#resolve-identifier__0 _%hd121025%_))) + (lambda (_%stx121971%_) + (letrec ((_%step121973%_ + (lambda (_%hd122010%_) + (let ((_%bind122012%_ + (gx#resolve-identifier__0 _%hd122010%_))) (if (##structure-instance-of? - _%bind121027%_ + _%bind122012%_ 'gx#runtime-binding::t) - _%stx120986%_ + _%stx121971%_ (if (##structure-direct-instance-of? - _%bind121027%_ + _%bind122012%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind121027%_ + _%bind122012%_ '4 '#f '#f) - _%stx120986%_) - (if (not _%bind121027%_) - _%stx120986%_ + _%stx121971%_) + (if (not _%bind122012%_) + _%stx121971%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx120986%_)))))))) - (let* ((_%e120989120997%_ _%stx120986%_) - (_%E120995121001%_ (lambda () _%stx120986%_)) - (_%E120991121007%_ + _%stx121971%_)))))))) + (let* ((_%e121974121982%_ _%stx121971%_) + (_%E121980121986%_ (lambda () _%stx121971%_)) + (_%E121976121992%_ (lambda () - (let ((_%hd121005%_ _%e120989120997%_)) - (if (gx#identifier? _%hd121005%_) - (_%step120988%_ _%hd121005%_) - (_%E120995121001%_))))) - (_%E120990121021%_ + (let ((_%hd121990%_ _%e121974121982%_)) + (if (gx#identifier? _%hd121990%_) + (_%step121973%_ _%hd121990%_) + (_%E121980121986%_))))) + (_%E121975122006%_ (lambda () - (if (gx#stx-pair? _%e120989120997%_) - (let ((_%e120992121011%_ - (gx#syntax-e _%e120989120997%_))) - (let ((_%hd120993121014%_ (##car _%e120992121011%_)) - (_%tl120994121016%_ (##cdr _%e120992121011%_))) - (let ((_%hd121019%_ _%hd120993121014%_)) - (if (gx#identifier? _%hd121019%_) - (_%step120988%_ _%hd121019%_) - (_%E120991121007%_))))) - (_%E120991121007%_))))) - (_%E120990121021%_))))) + (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 (_%stx120952%_) - (letrec ((_%stop?120954%_ - (lambda (_%stx120956%_) - (let* ((_%e120957120964%_ _%stx120956%_) - (_%E120959120968%_ (lambda () '#f)) - (_%E120958120982%_ + (lambda (_%stx121937%_) + (letrec ((_%stop?121939%_ + (lambda (_%stx121941%_) + (let* ((_%e121942121949%_ _%stx121941%_) + (_%E121944121953%_ (lambda () '#f)) + (_%E121943121967%_ (lambda () - (if (gx#stx-pair? _%e120957120964%_) - (let ((_%e120960120972%_ - (gx#syntax-e _%e120957120964%_))) - (let ((_%hd120961120975%_ - (##car _%e120960120972%_)) - (_%tl120962120977%_ - (##cdr _%e120960120972%_))) - (let ((_%hd120980%_ _%hd120961120975%_)) + (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 - _%hd120980%_)))) - (_%E120959120968%_))))) - (_%E120958120982%_))))) - (gx#core-expand*__% _%stx120952%_ _%stop?120954%_)))) + _%hd121965%_)))) + (_%E121944121953%_))))) + (_%E121943121967%_))))) + (gx#core-expand*__% _%stx121937%_ _%stop?121939%_)))) (define gx#core-expand-block__% - (lambda (_%stx120758%_ - _%expand-special120759%_ - _%begin-form120760%_ - _%expand-e120761%_) - (letrec ((_%expand-splice120763%_ - (lambda (_%hd120926%_ - _%body120927%_ - _%rest120928%_ - _%r120929%_) - (if (gx#stx-list? _%body120927%_) - (_%K120767%_ - (gx#stx-foldr cons _%rest120928%_ _%body120927%_) - _%r120929%_) + (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" - _%stx120758%_ - _%hd120926%_)))) - (_%expand-cond-expand120764%_ - (lambda (_%hd120922%_ _%rest120923%_ _%r120924%_) - (_%K120767%_ - (cons (gx#core-expand-cond-expand% _%hd120922%_) - _%rest120923%_) - _%r120924%_))) - (_%expand-include120765%_ - (lambda (_%hd120871%_ _%rest120872%_ _%r120873%_) - (let* ((_%e120874120884%_ _%hd120871%_) - (_%E120876120888%_ + _%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" - _%e120874120884%_))) - (_%E120875120918%_ + _%e121859121869%_))) + (_%E121860121903%_ (lambda () - (if (gx#stx-pair? _%e120874120884%_) - (let ((_%e120877120892%_ - (gx#syntax-e _%e120874120884%_))) - (let ((_%hd120878120895%_ - (##car _%e120877120892%_)) - (_%tl120879120897%_ - (##cdr _%e120877120892%_))) - (if (gx#stx-pair? _%tl120879120897%_) - (let ((_%e120880120900%_ + (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 - _%tl120879120897%_))) - (let ((_%hd120881120903%_ - (##car _%e120880120900%_)) - (_%tl120882120905%_ - (##cdr _%e120880120900%_))) - (let ((_%path120908%_ - _%hd120881120903%_)) + _%tl121864121882%_))) + (let ((_%hd121866121888%_ + (##car _%e121865121885%_)) + (_%tl121867121890%_ + (##cdr _%e121865121885%_))) + (let ((_%path121893%_ + _%hd121866121888%_)) (if (gx#stx-null? - _%tl120882120905%_) + _%tl121867121890%_) (if (gx#stx-string? - _%path120908%_) - (let* ((_%rpath120910%_ + _%path121893%_) + (let* ((_%rpath121895%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path120908%_ - (gx#stx-source _%hd120871%_))) - (_%block120912%_ + _%path121893%_ + (gx#stx-source _%hd121856%_))) + (_%block121897%_ (gx#core-expand-include%__% - _%hd120871%_ - _%rpath120910%_)) - (_%rbody120915%_ + _%hd121856%_ + _%rpath121895%_)) + (_%rbody121900%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block120912%_ - _%expand-special120759%_ + _%block121897%_ + _%expand-special121744%_ '#f - _%expand-e120761%_)) + _%expand-e121746%_)) gx#current-expander-path - (cons _%rpath120910%_ (gx#current-expander-path))))) - (_%K120767%_ - _%rest120872%_ - (__foldr1 cons _%r120873%_ _%rbody120915%_))) - (_%E120876120888%_)) + (cons _%rpath121895%_ (gx#current-expander-path))))) + (_%K121752%_ + _%rest121857%_ + (__foldr1 cons _%r121858%_ _%rbody121900%_))) + (_%E121861121873%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120876120888%_))))) - (_%E120876120888%_)))) - (_%E120876120888%_))))) - (_%E120875120918%_)))) - (_%expand-expression120766%_ - (lambda (_%hd120867%_ _%rest120868%_ _%r120869%_) - (_%K120767%_ - _%rest120868%_ - (cons (_%expand-e120761%_ _%hd120867%_) _%r120869%_)))) - (_%K120767%_ - (lambda (_%rest120797%_ _%r120798%_) - (let* ((_%e120799120806%_ _%rest120797%_) - (_%E120801120810%_ + (_%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-form120760%_ + (if _%begin-form121745%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form120760%_ - (reverse _%r120798%_)) - (gx#stx-source _%stx120758%_)) - _%r120798%_))) - (_%E120800120863%_ + _%begin-form121745%_ + (reverse _%r121783%_)) + (gx#stx-source _%stx121743%_)) + _%r121783%_))) + (_%E121785121848%_ (lambda () - (if (gx#stx-pair? _%e120799120806%_) - (let ((_%e120802120814%_ - (gx#syntax-e _%e120799120806%_))) - (let ((_%hd120803120817%_ - (##car _%e120802120814%_)) - (_%tl120804120819%_ - (##cdr _%e120802120814%_))) - (let* ((_%hd120822%_ _%hd120803120817%_) - (_%rest120824%_ - _%tl120804120819%_) - (_%hd120826%_ + (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 - _%hd120822%_)) - (_%e120827120834%_ _%hd120826%_) - (_%E120829120838%_ + _%hd121807%_)) + (_%e121812121819%_ _%hd121811%_) + (_%E121814121823%_ (lambda () - (_%expand-expression120766%_ - _%hd120826%_ - _%rest120824%_ - _%r120798%_))) - (_%E120828120859%_ + (_%expand-expression121751%_ + _%hd121811%_ + _%rest121809%_ + _%r121783%_))) + (_%E121813121844%_ (lambda () (if (gx#stx-pair? - _%e120827120834%_) - (let ((_%e120830120842%_ + _%e121812121819%_) + (let ((_%e121815121827%_ (gx#syntax-e - _%e120827120834%_))) - (let ((_%hd120831120845%_ - (##car _%e120830120842%_)) - (_%tl120832120847%_ - (##cdr _%e120830120842%_))) - (let* ((_%form120850%_ - _%hd120831120845%_) - (_%body120852%_ - _%tl120832120847%_) - (_%bind120854%_ + _%e121812121819%_))) + (let ((_%hd121816121830%_ + (##car _%e121815121827%_)) + (_%tl121817121832%_ + (##cdr _%e121815121827%_))) + (let* ((_%form121835%_ + _%hd121816121830%_) + (_%body121837%_ + _%tl121817121832%_) + (_%bind121839%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form120850%_) - (gx#resolve-identifier__0 _%form120850%_) + _%form121835%_) + (gx#resolve-identifier__0 _%form121835%_) '#f))) - (if (gx#special-form-binding? _%bind120854%_) - (let ((_%$e120856%_ + (if (gx#special-form-binding? _%bind121839%_) + (let ((_%$e121841%_ (##unchecked-structure-ref - _%bind120854%_ + _%bind121839%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e120856%_) - (_%expand-splice120763%_ - _%hd120826%_ - _%body120852%_ - _%rest120824%_ - _%r120798%_) - (if (eq? '%#cond-expand _%$e120856%_) - (_%expand-cond-expand120764%_ - _%hd120826%_ - _%rest120824%_ - _%r120798%_) - (if (eq? '%#include _%$e120856%_) - (_%expand-include120765%_ - _%hd120826%_ - _%rest120824%_ - _%r120798%_) - (_%expand-special120759%_ - _%hd120826%_ - _%K120767%_ - _%rest120824%_ - _%r120798%_))))) - (_%expand-expression120766%_ - _%hd120826%_ - _%rest120824%_ - _%r120798%_))))) + (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%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120829120838%_))))) - (_%E120828120859%_)))) - (_%E120801120810%_))))) - (_%E120800120863%_))))) - (let* ((_%e120768120775%_ _%stx120758%_) - (_%E120770120779%_ + (_%E121814121823%_))))) + (_%E121813121844%_)))) + (_%E121786121795%_))))) + (_%E121785121848%_))))) + (let* ((_%e121753121760%_ _%stx121743%_) + (_%E121755121764%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120768120775%_))) - (_%E120769120793%_ + _%e121753121760%_))) + (_%E121754121778%_ (lambda () - (if (gx#stx-pair? _%e120768120775%_) - (let ((_%e120771120783%_ - (gx#syntax-e _%e120768120775%_))) - (let ((_%hd120772120786%_ (##car _%e120771120783%_)) - (_%tl120773120788%_ (##cdr _%e120771120783%_))) - (let ((_%body120791%_ _%tl120773120788%_)) - (if (gx#stx-list? _%body120791%_) - (_%K120767%_ _%body120791%_ '()) - (_%E120770120779%_))))) - (_%E120770120779%_))))) - (_%E120769120793%_))))) + (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 (_%stx120934%_ _%expand-special120935%_) - (let* ((_%begin-form120937%_ '%#begin) - (_%expand-e120939%_ gx#core-expand-expression)) + (lambda (_%stx121919%_ _%expand-special121920%_) + (let* ((_%begin-form121922%_ '%#begin) + (_%expand-e121924%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120934%_ - _%expand-special120935%_ - _%begin-form120937%_ - _%expand-e120939%_)))) + _%stx121919%_ + _%expand-special121920%_ + _%begin-form121922%_ + _%expand-e121924%_)))) (define gx#core-expand-block__1 - (lambda (_%stx120941%_ _%expand-special120942%_ _%begin-form120943%_) - (let ((_%expand-e120945%_ gx#core-expand-expression)) + (lambda (_%stx121926%_ _%expand-special121927%_ _%begin-form121928%_) + (let ((_%expand-e121930%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120941%_ - _%expand-special120942%_ - _%begin-form120943%_ - _%expand-e120945%_)))) + _%stx121926%_ + _%expand-special121927%_ + _%begin-form121928%_ + _%expand-e121930%_)))) (define gx#core-expand-block - (lambda _g121645_ - (let ((_g121644_ (##length _g121645_))) - (cond ((##fx= _g121644_ 2) (apply gx#core-expand-block__0 _g121645_)) - ((##fx= _g121644_ 3) (apply gx#core-expand-block__1 _g121645_)) - ((##fx= _g121644_ 4) (apply gx#core-expand-block__% _g121645_)) + (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 - _g121645_)))))) + _g122630_)))))) (define gx#core-expand-block* - (lambda (_%stx120706%_ _%expand-special120707%_) - (let* ((_%g120708120719%_ + (lambda (_%stx121691%_ _%expand-special121692%_) + (let* ((_%g121693121704%_ (gx#core-expand-block__1 - _%stx120706%_ - _%expand-special120707%_ + _%stx121691%_ + _%expand-special121692%_ '#f)) - (_%E120712120723%_ + (_%E121697121708%_ (lambda () (error '"No clause matching" - _%g120708120719%_ + _%g121693121704%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K120717120754%_ + (let ((_%K121702121739%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx120706%_))) - (_%K120714120740%_ (lambda (_%expr120738%_) _%expr120738%_)) - (_%K120713120729%_ - (lambda (_%body120727%_) + _%stx121691%_))) + (_%K121699121725%_ (lambda (_%expr121723%_) _%expr121723%_)) + (_%K121698121714%_ + (lambda (_%body121712%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body120727%_)) - (gx#stx-source _%stx120706%_))))) - (let ((_%try-match120710120750%_ + (gx#core-cons '%#begin (reverse _%body121712%_)) + (gx#stx-source _%stx121691%_))))) + (let ((_%try-match121695121735%_ (lambda () - (if (pair? _%g120708120719%_) - (let ((_%tl120716120745%_ (##cdr _%g120708120719%_)) - (_%hd120715120743%_ (##car _%g120708120719%_))) - (if (null? _%tl120716120745%_) - (let ((_%expr120748%_ _%hd120715120743%_)) - (_%K120714120740%_ _%expr120748%_)) - (let ((_%body120732%_ _%g120708120719%_)) - (_%K120713120729%_ _%body120732%_)))) - (let ((_%body120732%_ _%g120708120719%_)) - (_%K120713120729%_ _%body120732%_)))))) - (if (null? _%g120708120719%_) - (_%K120717120754%_) - (_%try-match120710120750%_))))))) + (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 (_%stx120531%_) - (letrec ((_%satisfied?120533%_ - (lambda (_%condition120634%_) - (let* ((_%e120635120650%_ _%condition120634%_) - (_%E120645120654%_ + (lambda (_%stx121516%_) + (letrec ((_%satisfied?121518%_ + (lambda (_%condition121619%_) + (let* ((_%e121620121635%_ _%condition121619%_) + (_%E121630121639%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120635120650%_))) - (_%E120638120673%_ + _%e121620121635%_))) + (_%E121623121658%_ (lambda () - (if (gx#stx-pair? _%e120635120650%_) - (let ((_%e120646120658%_ - (gx#syntax-e _%e120635120650%_))) - (let ((_%hd120647120661%_ - (##car _%e120646120658%_)) - (_%tl120648120663%_ - (##cdr _%e120646120658%_))) - (let* ((_%combinator120666%_ - _%hd120647120661%_) - (_%body120668%_ - _%tl120648120663%_)) - (if (gx#stx-list? _%body120668%_) - (let ((_%$e120670%_ + (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 - _%combinator120666%_))) - (if (eq? 'not _%$e120670%_) + _%combinator121651%_))) + (if (eq? 'not _%$e121655%_) (not (gx#stx-ormap - _%satisfied?120533%_ - _%body120668%_)) - (if (eq? 'and _%$e120670%_) + _%satisfied?121518%_ + _%body121653%_)) + (if (eq? 'and _%$e121655%_) (gx#stx-andmap - _%satisfied?120533%_ - _%body120668%_) + _%satisfied?121518%_ + _%body121653%_) (if (eq? 'or - _%$e120670%_) + _%$e121655%_) (gx#stx-ormap - _%satisfied?120533%_ - _%body120668%_) + _%satisfied?121518%_ + _%body121653%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e120670%_) - (gx#stx-andmap gx#core-resolve-identifier _%body120668%_) + _%$e121655%_) + (gx#stx-andmap gx#core-resolve-identifier _%body121653%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx120531%_ - _%combinator120666%_)))))) + _%stx121516%_ + _%combinator121651%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120645120654%_))))) - (_%E120645120654%_)))) - (_%E120637120696%_ + (_%E121630121639%_))))) + (_%E121630121639%_)))) + (_%E121622121681%_ (lambda () - (if (gx#stx-pair? _%e120635120650%_) - (let ((_%e120639120677%_ - (gx#syntax-e _%e120635120650%_))) - (let ((_%hd120640120680%_ - (##car _%e120639120677%_)) - (_%tl120641120682%_ - (##cdr _%e120639120677%_))) + (if (gx#stx-pair? _%e121620121635%_) + (let ((_%e121624121662%_ + (gx#syntax-e _%e121620121635%_))) + (let ((_%hd121625121665%_ + (##car _%e121624121662%_)) + (_%tl121626121667%_ + (##cdr _%e121624121662%_))) (if (and (gx#identifier? - _%hd120640120680%_) + _%hd121625121665%_) (gx#core-identifier=? - _%hd120640120680%_ + _%hd121625121665%_ 'unquote)) - (if (gx#stx-pair? _%tl120641120682%_) - (let ((_%e120642120685%_ + (if (gx#stx-pair? _%tl121626121667%_) + (let ((_%e121627121670%_ (gx#syntax-e - _%tl120641120682%_))) - (let ((_%hd120643120688%_ - (##car _%e120642120685%_)) - (_%tl120644120690%_ - (##cdr _%e120642120685%_))) - (let ((_%expr120693%_ - _%hd120643120688%_)) + _%tl121626121667%_))) + (let ((_%hd121628121673%_ + (##car _%e121627121670%_)) + (_%tl121629121675%_ + (##cdr _%e121627121670%_))) + (let ((_%expr121678%_ + _%hd121628121673%_)) (if (gx#stx-null? - _%tl120644120690%_) + _%tl121629121675%_) (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr120693%_)) + _%expr121678%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E120638120673%_))))) - (_%E120638120673%_)) - (_%E120638120673%_)))) - (_%E120638120673%_)))) - (_%E120636120702%_ + (_%E121623121658%_))))) + (_%E121623121658%_)) + (_%E121623121658%_)))) + (_%E121623121658%_)))) + (_%E121621121687%_ (lambda () - (let ((_%id120700%_ _%e120635120650%_)) - (if (gx#identifier? _%id120700%_) + (let ((_%id121685%_ _%e121620121635%_)) + (if (gx#identifier? _%id121685%_) (gx#core-bound-identifier?__% - _%id120700%_ + _%id121685%_ gx#feature-binding?) - (_%E120637120696%_)))))) - (_%E120636120702%_)))) - (_%loop120534%_ - (lambda (_%rest120564%_) - (let* ((_%e120565120573%_ _%rest120564%_) - (_%E120571120577%_ + (_%E121622121681%_)))))) + (_%E121621121687%_)))) + (_%loop121519%_ + (lambda (_%rest121549%_) + (let* ((_%e121550121558%_ _%rest121549%_) + (_%E121556121562%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120565120573%_))) - (_%E120567120581%_ + _%e121550121558%_))) + (_%E121552121566%_ (lambda () - (if (gx#stx-null? _%e120565120573%_) + (if (gx#stx-null? _%e121550121558%_) '() - (_%E120571120577%_)))) - (_%E120566120630%_ + (_%E121556121562%_)))) + (_%E121551121615%_ (lambda () - (if (gx#stx-pair? _%e120565120573%_) - (let ((_%e120568120585%_ - (gx#syntax-e _%e120565120573%_))) - (let ((_%hd120569120588%_ - (##car _%e120568120585%_)) - (_%tl120570120590%_ - (##cdr _%e120568120585%_))) - (let* ((_%hd120593%_ _%hd120569120588%_) - (_%rest120595%_ - _%tl120570120590%_) - (_%e120596120603%_ _%hd120593%_) - (_%E120598120607%_ + (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" - _%e120596120603%_))) - (_%E120597120626%_ + _%e121581121588%_))) + (_%E121582121611%_ (lambda () (if (gx#stx-pair? - _%e120596120603%_) - (let ((_%e120599120611%_ + _%e121581121588%_) + (let ((_%e121584121596%_ (gx#syntax-e - _%e120596120603%_))) - (let ((_%hd120600120614%_ - (##car _%e120599120611%_)) - (_%tl120601120616%_ - (##cdr _%e120599120611%_))) - (let* ((_%condition120619%_ - _%hd120600120614%_) - (_%body120621%_ - _%tl120601120616%_)) + _%e121581121588%_))) + (let ((_%hd121585121599%_ + (##car _%e121584121596%_)) + (_%tl121586121601%_ + (##cdr _%e121584121596%_))) + (let* ((_%condition121604%_ + _%hd121585121599%_) + (_%body121606%_ + _%tl121586121601%_)) (if (gx#stx-eq? - _%condition120619%_ + _%condition121604%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest120595%_) - _%body120621%_ + _%rest121580%_) + _%body121606%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx120531%_ - _%hd120593%_)) - (if (_%satisfied?120533%_ _%condition120619%_) - _%body120621%_ - (_%loop120534%_ _%rest120595%_)))))) + _%stx121516%_ + _%hd121578%_)) + (if (_%satisfied?121518%_ _%condition121604%_) + _%body121606%_ + (_%loop121519%_ _%rest121580%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120598120607%_))))) - (_%E120597120626%_)))) - (_%E120567120581%_))))) - (_%E120566120630%_))))) - (let* ((_%e120535120542%_ _%stx120531%_) - (_%E120537120546%_ + (_%E121583121592%_))))) + (_%E121582121611%_)))) + (_%E121552121566%_))))) + (_%E121551121615%_))))) + (let* ((_%e121520121527%_ _%stx121516%_) + (_%E121522121531%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120535120542%_))) - (_%E120536120560%_ + _%e121520121527%_))) + (_%E121521121545%_ (lambda () - (if (gx#stx-pair? _%e120535120542%_) - (let ((_%e120538120550%_ - (gx#syntax-e _%e120535120542%_))) - (let ((_%hd120539120553%_ (##car _%e120538120550%_)) - (_%tl120540120555%_ (##cdr _%e120538120550%_))) - (let ((_%clauses120558%_ _%tl120540120555%_)) - (if (gx#stx-list? _%clauses120558%_) + (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 - (_%loop120534%_ _%clauses120558%_)) - (_%E120537120546%_))))) - (_%E120537120546%_))))) - (_%E120536120560%_))))) + (_%loop121519%_ _%clauses121543%_)) + (_%E121522121531%_))))) + (_%E121522121531%_))))) + (_%E121521121545%_))))) (define gx#core-expand-include%__% - (lambda (_%stx120474%_ _%rpath120475%_) - (let* ((_%e120476120486%_ _%stx120474%_) - (_%E120478120490%_ + (lambda (_%stx121459%_ _%rpath121460%_) + (let* ((_%e121461121471%_ _%stx121459%_) + (_%E121463121475%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120476120486%_))) - (_%E120477120517%_ + _%e121461121471%_))) + (_%E121462121502%_ (lambda () - (if (gx#stx-pair? _%e120476120486%_) - (let ((_%e120479120494%_ - (gx#syntax-e _%e120476120486%_))) - (let ((_%hd120480120497%_ (##car _%e120479120494%_)) - (_%tl120481120499%_ (##cdr _%e120479120494%_))) - (if (gx#stx-pair? _%tl120481120499%_) - (let ((_%e120482120502%_ - (gx#syntax-e _%tl120481120499%_))) - (let ((_%hd120483120505%_ - (##car _%e120482120502%_)) - (_%tl120484120507%_ - (##cdr _%e120482120502%_))) - (let ((_%path120510%_ _%hd120483120505%_)) - (if (gx#stx-null? _%tl120484120507%_) - (if (gx#stx-string? _%path120510%_) - (let ((_%rpath120515%_ - (let ((_%$e120512%_ - _%rpath120475%_)) - (if _%$e120512%_ - _%$e120512%_ + (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__% - _%path120510%_ + _%path121495%_ (gx#stx-source - _%stx120474%_)))))) - (if (member _%rpath120515%_ + _%stx121459%_)))))) + (if (member _%rpath121500%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx120474%_) + _%stx121459%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath120515%_)) + _%rpath121500%_)) (gx#stx-source - _%stx120474%_))))) - (_%E120478120490%_)) - (_%E120478120490%_))))) - (_%E120478120490%_)))) - (_%E120478120490%_))))) - (_%E120477120517%_)))) + _%stx121459%_))))) + (_%E121463121475%_)) + (_%E121463121475%_))))) + (_%E121463121475%_)))) + (_%E121463121475%_))))) + (_%E121462121502%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx120524%_) - (let ((_%rpath120526%_ '#f)) - (gx#core-expand-include%__% _%stx120524%_ _%rpath120526%_)))) + (lambda (_%stx121509%_) + (let ((_%rpath121511%_ '#f)) + (gx#core-expand-include%__% _%stx121509%_ _%rpath121511%_)))) (define gx#core-expand-include% - (lambda _g121647_ - (let ((_g121646_ (##length _g121647_))) - (cond ((##fx= _g121646_ 1) - (apply gx#core-expand-include%__0 _g121647_)) - ((##fx= _g121646_ 2) - (apply gx#core-expand-include%__% _g121647_)) + (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% - _g121647_)))))) + _g122632_)))))) (define gx#core-apply-expander__% - (lambda (_%K120440%_ _%stx120441%_ _%method120442%_) - (if (procedure? _%K120440%_) - (let ((_%$e120445%_ (gx#stx-source _%stx120441%_))) - (if _%$e120445%_ - ((lambda (_%g120447120449%_) + (lambda (_%K121425%_ _%stx121426%_ _%method121427%_) + (if (procedure? _%K121425%_) + (let ((_%$e121430%_ (gx#stx-source _%stx121426%_))) + (if _%$e121430%_ + ((lambda (_%g121432121434%_) (gx#stx-wrap-source - (_%K120440%_ _%stx120441%_) - _%g120447120449%_)) - _%$e120445%_) - (_%K120440%_ _%stx120441%_))) - (let ((_%$e120453%_ - (bound-method-ref _%K120440%_ _%method120442%_))) - (if _%$e120453%_ - ((lambda (_%g120455120457%_) + (_%K121425%_ _%stx121426%_) + _%g121432121434%_)) + _%$e121430%_) + (_%K121425%_ _%stx121426%_))) + (let ((_%$e121438%_ + (bound-method-ref _%K121425%_ _%method121427%_))) + (if _%$e121438%_ + ((lambda (_%g121440121442%_) (gx#core-apply-expander__% - _%g120455120457%_ - _%stx120441%_ - _%method120442%_)) - _%$e120453%_) + _%g121440121442%_ + _%stx121426%_ + _%method121427%_)) + _%$e121438%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx120441%_ - _%method120442%_)))))) + _%stx121426%_ + _%method121427%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K120464%_ _%stx120465%_) - (let ((_%method120467%_ 'apply-macro-expander)) + (lambda (_%K121449%_ _%stx121450%_) + (let ((_%method121452%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K120464%_ - _%stx120465%_ - _%method120467%_)))) + _%K121449%_ + _%stx121450%_ + _%method121452%_)))) (define gx#core-apply-expander - (lambda _g121649_ - (let ((_g121648_ (##length _g121649_))) - (cond ((##fx= _g121648_ 2) - (apply gx#core-apply-expander__0 _g121649_)) - ((##fx= _g121648_ 3) - (apply gx#core-apply-expander__% _g121649_)) + (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 - _g121649_)))))) + _g122634_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self118482120423%_ _%stx120425%_) - (let* ((_%self120427%_ _%self118482120423%_) - (_%self120429%_ _%self120427%_)) + (lambda (_%self119467121408%_ _%stx121410%_) + (let* ((_%self121412%_ _%self119467121408%_) + (_%self121414%_ _%self121412%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx120425%_)))) + _%stx121410%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self118483120263%_ _%stx120265%_) - (let* ((_%self120267%_ _%self118483120263%_) - (_%self120269%_ _%self120267%_) - (_%self120278120284%_ _%self120269%_) - (_%E120280120288%_ + (lambda (_%self119468121248%_ _%stx121250%_) + (let* ((_%self121252%_ _%self119468121248%_) + (_%self121254%_ _%self121252%_) + (_%self121263121269%_ _%self121254%_) + (_%E121265121273%_ (lambda () (error '"No clause matching" - _%self120278120284%_ + _%self121263121269%_ '((macro-expander K))) '#!void)) - (_%K120281120293%_ - (lambda (_%K120291%_) - (gx#core-apply-expander__0 _%K120291%_ _%stx120265%_))) - (_%e120282120296%_ - (##unchecked-structure-ref _%self120278120284%_ '1 '#f '#f)) - (_%K120299%_ _%e120282120296%_)) - (_%K120281120293%_ _%K120299%_)))) + (_%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 (_%self118484120103%_ _%stx120105%_) - (let* ((_%self120107%_ _%self118484120103%_) - (_%self120109%_ _%self120107%_)) - (if (gx#sealed-syntax? _%stx120105%_) - _%stx120105%_ - (let* ((_%self120118120124%_ _%self120109%_) - (_%E120120120128%_ + (lambda (_%self119469121088%_ _%stx121090%_) + (let* ((_%self121092%_ _%self119469121088%_) + (_%self121094%_ _%self121092%_)) + (if (gx#sealed-syntax? _%stx121090%_) + _%stx121090%_ + (let* ((_%self121103121109%_ _%self121094%_) + (_%E121105121113%_ (lambda () (error '"No clause matching" - _%self120118120124%_ + _%self121103121109%_ '((core-expander K))) '#!void)) - (_%K120121120133%_ - (lambda (_%K120131%_) - (gx#core-apply-expander__0 _%K120131%_ _%stx120105%_))) - (_%e120122120136%_ + (_%K121106121118%_ + (lambda (_%K121116%_) + (gx#core-apply-expander__0 _%K121116%_ _%stx121090%_))) + (_%e121107121121%_ (##unchecked-structure-ref - _%self120118120124%_ + _%self121103121109%_ '1 '#f '#f)) - (_%K120139%_ _%e120122120136%_)) - (_%K120121120133%_ _%K120139%_)))))) + (_%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 (_%self118485119952%_ _%stx119954%_ _%top?119955%_) - (let* ((_%self119957%_ _%self118485119952%_) - (_%self119959%_ _%self119957%_)) - (if (_%top?119955%_ (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 - _%self119959%_ - _%stx119954%_) + _%self120944%_ + _%stx120939%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx119954%_))))) + _%stx120939%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self118485119972%_ _%stx119973%_) - (let ((_%top?119975%_ gx#top-context?)) + (lambda (_%self119470120957%_ _%stx120958%_) + (let ((_%top?120960%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self118485119972%_ - _%stx119973%_ - _%top?119975%_)))) + _%self119470120957%_ + _%stx120958%_ + _%top?120960%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g121651_ - (let ((_g121650_ (##length _g121651_))) - (cond ((##fx= _g121650_ 2) + (lambda _g122636_ + (let ((_g122635_ (##length _g122636_))) + (cond ((##fx= _g122635_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g121651_)) - ((##fx= _g121650_ 3) + _g122636_)) + ((##fx= _g122635_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g121651_)) + _g122636_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g121651_)))))) + _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 (_%self118486119813%_ _%stx119815%_) - (let* ((_%self119817%_ _%self118486119813%_) - (_%self119819%_ _%self119817%_)) + (lambda (_%self119471120798%_ _%stx120800%_) + (let* ((_%self120802%_ _%self119471120798%_) + (_%self120804%_ _%self120802%_)) (gx#top-special-form::apply-macro-expander__% - _%self119819%_ - _%stx119815%_ + _%self120804%_ + _%stx120800%_ gx#module-context?)))) (__bind-method!__% gx#module-special-form::t @@ -2289,133 +2289,133 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_%self118487119625%_ _%stx119627%_) - (let* ((_%self119629%_ _%self118487119625%_) - (_%self119631%_ _%self119629%_) - (_%self119640119646%_ _%self119631%_) - (_%E119642119650%_ + (lambda (_%self119472120610%_ _%stx120612%_) + (let* ((_%self120614%_ _%self119472120610%_) + (_%self120616%_ _%self120614%_) + (_%self120625120631%_ _%self120616%_) + (_%E120627120635%_ (lambda () (error '"No clause matching" - _%self119640119646%_ + _%self120625120631%_ '((rename-macro-expander id))) '#!void)) - (_%K119643119683%_ - (lambda (_%id119653%_) - (let* ((_%e119654119661%_ _%stx119627%_) - (_%E119656119665%_ + (_%K120628120668%_ + (lambda (_%id120638%_) + (let* ((_%e120639120646%_ _%stx120612%_) + (_%E120641120650%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119654119661%_))) - (_%E119655119679%_ + _%e120639120646%_))) + (_%E120640120664%_ (lambda () - (if (gx#stx-pair? _%e119654119661%_) - (let ((_%e119657119669%_ - (gx#syntax-e _%e119654119661%_))) - (let ((_%hd119658119672%_ - (##car _%e119657119669%_)) - (_%tl119659119674%_ - (##cdr _%e119657119669%_))) - (let ((_%body119677%_ _%tl119659119674%_)) + (if (gx#stx-pair? _%e120639120646%_) + (let ((_%e120642120654%_ + (gx#syntax-e _%e120639120646%_))) + (let ((_%hd120643120657%_ + (##car _%e120642120654%_)) + (_%tl120644120659%_ + (##cdr _%e120642120654%_))) + (let ((_%body120662%_ _%tl120644120659%_)) (gx#core-cons - _%id119653%_ - _%body119677%_)))) - (_%E119656119665%_))))) - (_%E119655119679%_)))) - (_%e119644119686%_ - (##unchecked-structure-ref _%self119640119646%_ '1 '#f '#f)) - (_%id119689%_ _%e119644119686%_)) - (_%K119643119683%_ _%id119689%_)))) + _%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 (_%self119451%_ _%stx119452%_ _%method119453%_) - (let* ((_%self119454119462%_ _%self119451%_) - (_%E119456119466%_ + (lambda (_%self120436%_ _%stx120437%_ _%method120438%_) + (let* ((_%self120439120447%_ _%self120436%_) + (_%E120441120451%_ (lambda () (error '"No clause matching" - _%self119454119462%_ + _%self120439120447%_ '((user-expander K ctx phi))) '#!void)) - (_%K119457119473%_ - (lambda (_%phi119469%_ _%ctx119470%_ _%K119471%_) + (_%K120442120458%_ + (lambda (_%phi120454%_ _%ctx120455%_ _%K120456%_) (gx#core-apply-user-macro - _%K119471%_ - _%stx119452%_ - _%ctx119470%_ - _%phi119469%_ - _%method119453%_)))) + _%K120456%_ + _%stx120437%_ + _%ctx120455%_ + _%phi120454%_ + _%method120438%_)))) (if (##structure-instance-of? - _%self119454119462%_ + _%self120439120447%_ 'gx#user-expander::t) - (let* ((_%e119458119476%_ + (let* ((_%e120443120461%_ (##unchecked-structure-ref - _%self119454119462%_ + _%self120439120447%_ '1 '#f '#f)) - (_%K119479%_ _%e119458119476%_) - (_%e119459119481%_ + (_%K120464%_ _%e120443120461%_) + (_%e120444120466%_ (##unchecked-structure-ref - _%self119454119462%_ + _%self120439120447%_ '2 '#f '#f)) - (_%ctx119484%_ _%e119459119481%_) - (_%e119460119486%_ + (_%ctx120469%_ _%e120444120466%_) + (_%e120445120471%_ (##unchecked-structure-ref - _%self119454119462%_ + _%self120439120447%_ '3 '#f '#f)) - (_%phi119489%_ _%e119460119486%_)) - (_%K119457119473%_ _%phi119489%_ _%ctx119484%_ _%K119479%_)) - (_%E119456119466%_))))) + (_%phi120474%_ _%e120445120471%_)) + (_%K120442120458%_ _%phi120474%_ _%ctx120469%_ _%K120464%_)) + (_%E120441120451%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self119494%_ _%stx119495%_) - (let ((_%method119497%_ 'apply-macro-expander)) + (lambda (_%self120479%_ _%stx120480%_) + (let ((_%method120482%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self119494%_ - _%stx119495%_ - _%method119497%_)))) + _%self120479%_ + _%stx120480%_ + _%method120482%_)))) (define gx#core-apply-user-expander - (lambda _g121653_ - (let ((_g121652_ (##length _g121653_))) - (cond ((##fx= _g121652_ 2) - (apply gx#core-apply-user-expander__0 _g121653_)) - ((##fx= _g121652_ 3) - (apply gx#core-apply-user-expander__% _g121653_)) + (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 - _g121653_)))))) + _g122638_)))))) (define gx#core-apply-user-macro - (lambda (_%K119441%_ - _%stx119442%_ - _%ctx119443%_ - _%phi119444%_ - _%method119445%_) - (let ((_%mark119447%_ + (lambda (_%K120426%_ + _%stx120427%_ + _%ctx120428%_ + _%phi120429%_ + _%method120430%_) + (let ((_%mark120432%_ (##structure gx#expander-mark::t '#f - _%ctx119443%_ - _%phi119444%_ - _%stx119442%_))) + _%ctx120428%_ + _%phi120429%_ + _%stx120427%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K119441%_ - (gx#stx-apply-mark _%stx119442%_ _%mark119447%_) - _%method119445%_) - _%mark119447%_)) + _%K120426%_ + (gx#stx-apply-mark _%stx120427%_ _%mark120432%_) + _%method120430%_) + _%mark120432%_)) gx#current-expander-marks - (cons _%mark119447%_ (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 @@ -2423,372 +2423,372 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_%stx119289%_ _%phi119290%_ _%ctx119291%_) - (let _%lp119293%_ ((_%bind119295%_ + (lambda (_%stx120274%_ _%phi120275%_ _%ctx120276%_) + (let _%lp120278%_ ((_%bind120280%_ (gx#core-resolve-identifier__% - _%stx119289%_ - _%phi119290%_ - _%ctx119291%_))) + _%stx120274%_ + _%phi120275%_ + _%ctx120276%_))) (if (##structure-direct-instance-of? - _%bind119295%_ + _%bind120280%_ 'gx#import-binding::t) - (_%lp119293%_ - (##unchecked-structure-ref _%bind119295%_ '4 '#f '#f)) + (_%lp120278%_ + (##unchecked-structure-ref _%bind120280%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind119295%_ + _%bind120280%_ 'gx#alias-binding::t) - (_%lp119293%_ + (_%lp120278%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind119295%_ '4 '#f '#f) - _%phi119290%_ - _%ctx119291%_)) - _%bind119295%_))))) + (##unchecked-structure-ref _%bind120280%_ '4 '#f '#f) + _%phi120275%_ + _%ctx120276%_)) + _%bind120280%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx119303%_) - (let* ((_%phi119305%_ (gx#current-expander-phi)) - (_%ctx119307%_ (gx#current-expander-context))) + (lambda (_%stx120288%_) + (let* ((_%phi120290%_ (gx#current-expander-phi)) + (_%ctx120292%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119303%_ - _%phi119305%_ - _%ctx119307%_)))) + _%stx120288%_ + _%phi120290%_ + _%ctx120292%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx119309%_ _%phi119310%_) - (let ((_%ctx119312%_ (gx#current-expander-context))) + (lambda (_%stx120294%_ _%phi120295%_) + (let ((_%ctx120297%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119309%_ - _%phi119310%_ - _%ctx119312%_)))) + _%stx120294%_ + _%phi120295%_ + _%ctx120297%_)))) (define gx#resolve-identifier - (lambda _g121655_ - (let ((_g121654_ (##length _g121655_))) - (cond ((##fx= _g121654_ 1) - (apply gx#resolve-identifier__0 _g121655_)) - ((##fx= _g121654_ 2) - (apply gx#resolve-identifier__1 _g121655_)) - ((##fx= _g121654_ 3) - (apply gx#resolve-identifier__% _g121655_)) + (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 - _g121655_)))))) + _g122640_)))))) (define gx#bind-identifier!__% - (lambda (_%stx119244%_ - _%val119245%_ - _%rebind?119246%_ - _%phi119247%_ - _%ctx119248%_) - (let ((_%rebind?119253%_ - (if (not _%rebind?119246%_) + (lambda (_%stx120229%_ + _%val120230%_ + _%rebind?120231%_ + _%phi120232%_ + _%ctx120233%_) + (let ((_%rebind?120238%_ + (if (not _%rebind?120231%_) gx#core-context-rebind? - (if (procedure? _%rebind?119246%_) - _%rebind?119246%_ + (if (procedure? _%rebind?120231%_) + _%rebind?120231%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx119244%_) - _%val119245%_ - _%rebind?119253%_ - _%phi119247%_ - _%ctx119248%_)))) + (gx#core-identifier-key _%stx120229%_) + _%val120230%_ + _%rebind?120238%_ + _%phi120232%_ + _%ctx120233%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx119258%_ _%val119259%_) - (let* ((_%rebind?119261%_ '#f) - (_%phi119263%_ (gx#current-expander-phi)) - (_%ctx119265%_ (gx#current-expander-context))) + (lambda (_%stx120243%_ _%val120244%_) + (let* ((_%rebind?120246%_ '#f) + (_%phi120248%_ (gx#current-expander-phi)) + (_%ctx120250%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119258%_ - _%val119259%_ - _%rebind?119261%_ - _%phi119263%_ - _%ctx119265%_)))) + _%stx120243%_ + _%val120244%_ + _%rebind?120246%_ + _%phi120248%_ + _%ctx120250%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx119267%_ _%val119268%_ _%rebind?119269%_) - (let* ((_%phi119271%_ (gx#current-expander-phi)) - (_%ctx119273%_ (gx#current-expander-context))) + (lambda (_%stx120252%_ _%val120253%_ _%rebind?120254%_) + (let* ((_%phi120256%_ (gx#current-expander-phi)) + (_%ctx120258%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119267%_ - _%val119268%_ - _%rebind?119269%_ - _%phi119271%_ - _%ctx119273%_)))) + _%stx120252%_ + _%val120253%_ + _%rebind?120254%_ + _%phi120256%_ + _%ctx120258%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx119275%_ _%val119276%_ _%rebind?119277%_ _%phi119278%_) - (let ((_%ctx119280%_ (gx#current-expander-context))) + (lambda (_%stx120260%_ _%val120261%_ _%rebind?120262%_ _%phi120263%_) + (let ((_%ctx120265%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119275%_ - _%val119276%_ - _%rebind?119277%_ - _%phi119278%_ - _%ctx119280%_)))) + _%stx120260%_ + _%val120261%_ + _%rebind?120262%_ + _%phi120263%_ + _%ctx120265%_)))) (define gx#bind-identifier! - (lambda _g121657_ - (let ((_g121656_ (##length _g121657_))) - (cond ((##fx= _g121656_ 2) (apply gx#bind-identifier!__0 _g121657_)) - ((##fx= _g121656_ 3) (apply gx#bind-identifier!__1 _g121657_)) - ((##fx= _g121656_ 4) (apply gx#bind-identifier!__2 _g121657_)) - ((##fx= _g121656_ 5) (apply gx#bind-identifier!__% _g121657_)) + (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! - _g121657_)))))) + _g122642_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx119210%_ _%phi119211%_ _%ctx119212%_) - (let _%lp119214%_ ((_%e119216%_ _%stx119210%_) - (_%marks119217%_ (gx#current-expander-marks))) - (if (symbol? _%e119216%_) + (lambda (_%stx120195%_ _%phi120196%_ _%ctx120197%_) + (let _%lp120199%_ ((_%e120201%_ _%stx120195%_) + (_%marks120202%_ (gx#current-expander-marks))) + (if (symbol? _%e120201%_) (gx#core-resolve-binding - _%e119216%_ - _%phi119211%_ - _%phi119211%_ - _%ctx119212%_ - (reverse _%marks119217%_)) - (if (gx#identifier-quote? _%e119216%_) + _%e120201%_ + _%phi120196%_ + _%phi120196%_ + _%ctx120197%_ + (reverse _%marks120202%_)) + (if (gx#identifier-quote? _%e120201%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e119216%_ '1 '#f '#f) - _%phi119211%_ + (##unchecked-structure-ref _%e120201%_ '1 '#f '#f) + _%phi120196%_ '0 - (##unchecked-structure-ref _%e119216%_ '3 '#f '#f) - (##unchecked-structure-ref _%e119216%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e120201%_ '3 '#f '#f) + (##unchecked-structure-ref _%e120201%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e119216%_ + _%e120201%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e119216%_ '1 '#f '#f) - _%phi119211%_ - _%phi119211%_ - _%ctx119212%_ + (##unchecked-structure-ref _%e120201%_ '1 '#f '#f) + _%phi120196%_ + _%phi120196%_ + _%ctx120197%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e119216%_ '3 '#f '#f) - _%marks119217%_)) + (##unchecked-structure-ref _%e120201%_ '3 '#f '#f) + _%marks120202%_)) (if (##structure-direct-instance-of? - _%e119216%_ + _%e120201%_ 'gx#syntax-wrap::t) - (_%lp119214%_ - (##unchecked-structure-ref _%e119216%_ '1 '#f '#f) + (_%lp120199%_ + (##unchecked-structure-ref _%e120201%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e119216%_ '3 '#f '#f) - _%marks119217%_)) + (##unchecked-structure-ref _%e120201%_ '3 '#f '#f) + _%marks120202%_)) (if (##structure-instance-of? - _%e119216%_ + _%e120201%_ 'gerbil#AST::t) - (_%lp119214%_ + (_%lp120199%_ (##unchecked-structure-ref - _%e119216%_ + _%e120201%_ '1 '#f '#f) - _%marks119217%_) + _%marks120202%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx119210%_))))))))) + _%stx120195%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx119228%_) - (let* ((_%phi119230%_ (gx#current-expander-phi)) - (_%ctx119232%_ (gx#current-expander-context))) + (lambda (_%stx120213%_) + (let* ((_%phi120215%_ (gx#current-expander-phi)) + (_%ctx120217%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx119228%_ - _%phi119230%_ - _%ctx119232%_)))) + _%stx120213%_ + _%phi120215%_ + _%ctx120217%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx119234%_ _%phi119235%_) - (let ((_%ctx119237%_ (gx#current-expander-context))) + (lambda (_%stx120219%_ _%phi120220%_) + (let ((_%ctx120222%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx119234%_ - _%phi119235%_ - _%ctx119237%_)))) + _%stx120219%_ + _%phi120220%_ + _%ctx120222%_)))) (define gx#core-resolve-identifier - (lambda _g121659_ - (let ((_g121658_ (##length _g121659_))) - (cond ((##fx= _g121658_ 1) - (apply gx#core-resolve-identifier__0 _g121659_)) - ((##fx= _g121658_ 2) - (apply gx#core-resolve-identifier__1 _g121659_)) - ((##fx= _g121658_ 3) - (apply gx#core-resolve-identifier__% _g121659_)) + (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 - _g121659_)))))) + _g122644_)))))) (define gx#core-resolve-binding - (lambda (_%id119120%_ - _%phi119121%_ - _%src-phi119122%_ - _%ctx119123%_ - _%marks119124%_) - (letrec ((_%resolve119126%_ - (lambda (_%ctx119194%_ _%src-phi119195%_ _%key119196%_) - (let _%lp119198%_ ((_%ctx119200%_ + (lambda (_%id120105%_ + _%phi120106%_ + _%src-phi120107%_ + _%ctx120108%_ + _%marks120109%_) + (letrec ((_%resolve120111%_ + (lambda (_%ctx120179%_ _%src-phi120180%_ _%key120181%_) + (let _%lp120183%_ ((_%ctx120185%_ (gx#core-context-shift - _%ctx119194%_ - _%phi119121%_)) - (_%dphi119201%_ - (fx- _%phi119121%_ _%src-phi119195%_))) - (let ((_%$e119203%_ + _%ctx120179%_ + _%phi120106%_)) + (_%dphi120186%_ + (fx- _%phi120106%_ _%src-phi120180%_))) + (let ((_%$e120188%_ (gx#core-context-resolve - _%ctx119200%_ - _%key119196%_))) - (if _%$e119203%_ - _%$e119203%_ - (if (fxzero? _%dphi119201%_) + _%ctx120185%_ + _%key120181%_))) + (if _%$e120188%_ + _%$e120188%_ + (if (fxzero? _%dphi120186%_) '#f - (if (fxpositive? _%dphi119201%_) - (_%lp119198%_ - (gx#core-context-shift _%ctx119200%_ '-1) - (##fx- _%dphi119201%_ '1)) - (_%lp119198%_ - (gx#core-context-shift _%ctx119200%_ '1) - (##fx+ _%dphi119201%_ '1)))))))))) - (let _%lp119128%_ ((_%ctx119130%_ _%ctx119123%_) - (_%src-phi119131%_ _%src-phi119122%_) - (_%rest119132%_ _%marks119124%_)) - (let* ((_%rest119133119141%_ _%rest119132%_) - (_%else119135119149%_ + (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 () - (_%resolve119126%_ - _%ctx119130%_ - _%src-phi119131%_ - _%id119120%_))) - (_%K119137119182%_ - (lambda (_%rest119152%_ _%hd119153%_) - (let* ((_%hd119154119160%_ _%hd119153%_) - (_%E119156119164%_ + (_%resolve120111%_ + _%ctx120115%_ + _%src-phi120116%_ + _%id120105%_))) + (_%K120122120167%_ + (lambda (_%rest120137%_ _%hd120138%_) + (let* ((_%hd120139120145%_ _%hd120138%_) + (_%E120141120149%_ (lambda () (error '"No clause matching" - _%hd119154119160%_ + _%hd120139120145%_ '((expander-mark subst))) '#!void)) - (_%K119157119174%_ - (lambda (_%subst119167%_) - (let ((_%$e119171%_ - (let ((_%key119169%_ - (if _%subst119167%_ + (_%K120142120159%_ + (lambda (_%subst120152%_) + (let ((_%$e120156%_ + (let ((_%key120154%_ + (if _%subst120152%_ (hash-get - _%subst119167%_ - _%id119120%_) + _%subst120152%_ + _%id120105%_) '#f))) - (if _%key119169%_ - (_%resolve119126%_ - _%ctx119130%_ - _%src-phi119131%_ - _%key119169%_) + (if _%key120154%_ + (_%resolve120111%_ + _%ctx120115%_ + _%src-phi120116%_ + _%key120154%_) '#f)))) - (if _%$e119171%_ - _%$e119171%_ - (_%lp119128%_ + (if _%$e120156%_ + _%$e120156%_ + (_%lp120113%_ (##unchecked-structure-ref - _%hd119153%_ + _%hd120138%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd119153%_ + _%hd120138%_ '3 '#f '#f) - _%rest119152%_)))))) + _%rest120137%_)))))) (if (##structure-instance-of? - _%hd119154119160%_ + _%hd120139120145%_ 'gx#expander-mark::t) - (let* ((_%e119158119177%_ + (let* ((_%e120143120162%_ (##unchecked-structure-ref - _%hd119154119160%_ + _%hd120139120145%_ '1 '#f '#f)) - (_%subst119180%_ _%e119158119177%_)) - (_%K119157119174%_ _%subst119180%_)) - (_%E119156119164%_)))))) - (if (pair? _%rest119133119141%_) - (let ((_%hd119138119185%_ (##car _%rest119133119141%_)) - (_%tl119139119187%_ (##cdr _%rest119133119141%_))) - (let* ((_%hd119190%_ _%hd119138119185%_) - (_%rest119192%_ _%tl119139119187%_)) - (_%K119137119182%_ _%rest119192%_ _%hd119190%_))) - (_%else119135119149%_))))))) + (_%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 (_%key118990%_ - _%val118991%_ - _%rebind?118992%_ - _%phi118993%_ - _%ctx118994%_) - (letrec ((_%update-binding118996%_ - (lambda (_%xval119069%_) - (if (or (_%rebind?118992%_ - _%ctx118994%_ - _%xval119069%_ - _%val118991%_) + (lambda (_%key119975%_ + _%val119976%_ + _%rebind?119977%_ + _%phi119978%_ + _%ctx119979%_) + (letrec ((_%update-binding119981%_ + (lambda (_%xval120054%_) + (if (or (_%rebind?119977%_ + _%ctx119979%_ + _%xval120054%_ + _%val119976%_) (and (##structure-direct-instance-of? - _%xval119069%_ + _%xval120054%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval119069%_ + _%xval120054%_ '6 '#f '#f) (and (##structure-instance-of? - _%val118991%_ + _%val119976%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val118991%_ + _%val119976%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval119069%_ + _%xval120054%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val118991%_ + _%val119976%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val118991%_ + _%val119976%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval119069%_ + _%xval120054%_ '1 '#f '#f)))) - _%val118991%_ + _%val119976%_ (if (and (##structure-direct-instance-of? - _%val118991%_ + _%val119976%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val118991%_ + _%val119976%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval119069%_ + _%xval120054%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val118991%_ + _%val119976%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval119069%_ + _%xval120054%_ '1 '#f '#f))))) - _%xval119069%_ + _%xval120054%_ (if (and (##structure-direct-instance-of? - _%val118991%_ + _%val119976%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval119069%_ + _%xval120054%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key118990%_ + _%key119975%_ (cons (##unchecked-structure-ref - _%val118991%_ + _%val119976%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val118991%_ + _%val119976%_ '5 '#f '#f) @@ -2797,175 +2797,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval119069%_ + _%xval120054%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval119069%_ + _%xval120054%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval119069%_ + _%xval120054%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval119069%_) + _%xval120054%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key118990%_ - _%val118991%_ - _%xval119069%_)))))) - (_%gensubst118997%_ - (lambda (_%subst119064%_ _%id119065%_) - (let ((_%eid119067%_ - (gensym (if (uninterned-symbol? _%id119065%_) + _%key119975%_ + _%val119976%_ + _%xval120054%_)))))) + (_%gensubst119982%_ + (lambda (_%subst120049%_ _%id120050%_) + (let ((_%eid120052%_ + (gensym (if (uninterned-symbol? _%id120050%_) '% - _%id119065%_)))) - (hash-put! _%subst119064%_ _%id119065%_ _%eid119067%_) - _%eid119067%_))) - (_%subst!118998%_ - (lambda (_%key119000%_) - (let* ((_%key119001119009%_ _%key119000%_) - (_%else119003119017%_ (lambda () _%key119000%_)) - (_%K119005119052%_ - (lambda (_%mark119020%_ _%id119021%_) - (let* ((_%mark119022119028%_ _%mark119020%_) - (_%E119024119032%_ + _%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" - _%mark119022119028%_ + _%mark120007120013%_ '((expander-mark subst))) '#!void)) - (_%K119025119044%_ - (lambda (_%subst119035%_) - (if (not _%subst119035%_) - (let ((_%subst119038%_ + (_%K120010120029%_ + (lambda (_%subst120020%_) + (if (not _%subst120020%_) + (let ((_%subst120023%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark119020%_ - _%subst119038%_ + _%mark120005%_ + _%subst120023%_ '1 '#f '#f) - (_%gensubst118997%_ - _%subst119038%_ - _%id119021%_)) - (let ((_%$e119040%_ + (_%gensubst119982%_ + _%subst120023%_ + _%id120006%_)) + (let ((_%$e120025%_ (hash-get - _%subst119035%_ - _%id119021%_))) - (if _%$e119040%_ - _%$e119040%_ - (_%gensubst118997%_ - _%subst119035%_ - _%id119021%_))))))) + _%subst120020%_ + _%id120006%_))) + (if _%$e120025%_ + _%$e120025%_ + (_%gensubst119982%_ + _%subst120020%_ + _%id120006%_))))))) (if (##structure-instance-of? - _%mark119022119028%_ + _%mark120007120013%_ 'gx#expander-mark::t) - (let* ((_%e119026119047%_ + (let* ((_%e120011120032%_ (##unchecked-structure-ref - _%mark119022119028%_ + _%mark120007120013%_ '1 '#f '#f)) - (_%subst119050%_ _%e119026119047%_)) - (_%K119025119044%_ _%subst119050%_)) - (_%E119024119032%_)))))) - (if (pair? _%key119001119009%_) - (let ((_%hd119006119055%_ - (##car _%key119001119009%_)) - (_%tl119007119057%_ - (##cdr _%key119001119009%_))) - (let* ((_%id119060%_ _%hd119006119055%_) - (_%mark119062%_ _%tl119007119057%_)) - (_%K119005119052%_ _%mark119062%_ _%id119060%_))) - (_%else119003119017%_)))))) + (_%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 _%ctx118994%_ _%phi118993%_) - (_%subst!118998%_ _%key118990%_) - _%val118991%_ - _%update-binding118996%_)))) + (gx#core-context-shift _%ctx119979%_ _%phi119978%_) + (_%subst!119983%_ _%key119975%_) + _%val119976%_ + _%update-binding119981%_)))) (define gx#core-bind!__0 - (lambda (_%key119090%_ _%val119091%_) - (let* ((_%rebind?119093%_ false) - (_%phi119095%_ (gx#current-expander-phi)) - (_%ctx119097%_ (gx#current-expander-context))) + (lambda (_%key120075%_ _%val120076%_) + (let* ((_%rebind?120078%_ false) + (_%phi120080%_ (gx#current-expander-phi)) + (_%ctx120082%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key119090%_ - _%val119091%_ - _%rebind?119093%_ - _%phi119095%_ - _%ctx119097%_)))) + _%key120075%_ + _%val120076%_ + _%rebind?120078%_ + _%phi120080%_ + _%ctx120082%_)))) (define gx#core-bind!__1 - (lambda (_%key119099%_ _%val119100%_ _%rebind?119101%_) - (let* ((_%phi119103%_ (gx#current-expander-phi)) - (_%ctx119105%_ (gx#current-expander-context))) + (lambda (_%key120084%_ _%val120085%_ _%rebind?120086%_) + (let* ((_%phi120088%_ (gx#current-expander-phi)) + (_%ctx120090%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key119099%_ - _%val119100%_ - _%rebind?119101%_ - _%phi119103%_ - _%ctx119105%_)))) + _%key120084%_ + _%val120085%_ + _%rebind?120086%_ + _%phi120088%_ + _%ctx120090%_)))) (define gx#core-bind!__2 - (lambda (_%key119107%_ _%val119108%_ _%rebind?119109%_ _%phi119110%_) - (let ((_%ctx119112%_ (gx#current-expander-context))) + (lambda (_%key120092%_ _%val120093%_ _%rebind?120094%_ _%phi120095%_) + (let ((_%ctx120097%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key119107%_ - _%val119108%_ - _%rebind?119109%_ - _%phi119110%_ - _%ctx119112%_)))) + _%key120092%_ + _%val120093%_ + _%rebind?120094%_ + _%phi120095%_ + _%ctx120097%_)))) (define gx#core-bind! - (lambda _g121661_ - (let ((_g121660_ (##length _g121661_))) - (cond ((##fx= _g121660_ 2) (apply gx#core-bind!__0 _g121661_)) - ((##fx= _g121660_ 3) (apply gx#core-bind!__1 _g121661_)) - ((##fx= _g121660_ 4) (apply gx#core-bind!__2 _g121661_)) - ((##fx= _g121660_ 5) (apply gx#core-bind!__% _g121661_)) + (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! - _g121661_)))))) + _g122646_)))))) (define gx#core-identifier-key - (lambda (_%stx118921%_) - (if (symbol? _%stx118921%_) - (let* ((_%g118923118931%_ (gx#current-expander-marks)) - (_%else118925118939%_ (lambda () _%stx118921%_)) - (_%K118927118944%_ - (lambda (_%hd118942%_) (cons _%stx118921%_ _%hd118942%_)))) - (if (pair? _%g118923118931%_) - (let* ((_%hd118928118947%_ (##car _%g118923118931%_)) - (_%hd118950%_ _%hd118928118947%_)) - (_%K118927118944%_ _%hd118950%_)) - (_%else118925118939%_))) - (if (gx#identifier? _%stx118921%_) - (let* ((_%id118953%_ (gx#syntax-local-unwrap _%stx118921%_)) - (_%eid118955%_ (gx#stx-e _%id118953%_)) - (_%marks118957%_ - (gx#stx-identifier-marks* _%id118953%_)) - (_%marks118959118967%_ _%marks118957%_) - (_%else118961118975%_ (lambda () _%eid118955%_)) - (_%K118963118980%_ - (lambda (_%hd118978%_) - (cons _%eid118955%_ _%hd118978%_)))) - (if (pair? _%marks118959118967%_) - (let* ((_%hd118964118983%_ (##car _%marks118959118967%_)) - (_%hd118986%_ _%hd118964118983%_)) - (_%K118963118980%_ _%hd118986%_)) - (_%else118961118975%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx118921%_))))) + (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 (_%ctx118860%_ _%phi118861%_) - (letrec ((_%make-phi118863%_ - (lambda (_%super118919%_) - (let ((__obj121633 + (lambda (_%ctx119845%_ _%phi119846%_) + (letrec ((_%make-phi119848%_ + (lambda (_%super119904%_) + (let ((__obj122618 (##structure gx#phi-context::t '#f @@ -2974,579 +2974,579 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj121633 + __obj122618 (##gensym 'phi) - _%super118919%_) - __obj121633))) - (_%make-phi/up118864%_ - (lambda (_%ctx118914%_ _%super118915%_) - (let ((_%ctx+1118917%_ - (_%make-phi118863%_ _%super118915%_))) + _%super119904%_) + __obj122618))) + (_%make-phi/up119849%_ + (lambda (_%ctx119899%_ _%super119900%_) + (let ((_%ctx+1119902%_ + (_%make-phi119848%_ _%super119900%_))) (##unchecked-structure-set! - _%ctx118914%_ - _%ctx+1118917%_ + _%ctx119899%_ + _%ctx+1119902%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1118917%_ - _%ctx118914%_ + _%ctx+1119902%_ + _%ctx119899%_ '5 '#f '#f) - _%ctx+1118917%_))) - (_%make-phi/down118865%_ - (lambda (_%ctx118909%_ _%super118910%_) - (let ((_%ctx-1118912%_ - (_%make-phi118863%_ _%super118910%_))) + _%ctx+1119902%_))) + (_%make-phi/down119850%_ + (lambda (_%ctx119894%_ _%super119895%_) + (let ((_%ctx-1119897%_ + (_%make-phi119848%_ _%super119895%_))) (##unchecked-structure-set! - _%ctx-1118912%_ - _%ctx118909%_ + _%ctx-1119897%_ + _%ctx119894%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx118909%_ - _%ctx-1118912%_ + _%ctx119894%_ + _%ctx-1119897%_ '5 '#f '#f) - _%ctx-1118912%_))) - (_%shift118866%_ - (lambda (_%ctx118892%_ - _%delta118893%_ - _%make-delta-context118894%_ - _%phi118895%_ - _%K118896%_) - (let ((_%$e118898%_ + _%ctx-1119897%_))) + (_%shift119851%_ + (lambda (_%ctx119877%_ + _%delta119878%_ + _%make-delta-context119879%_ + _%phi119880%_ + _%K119881%_) + (let ((_%$e119883%_ (##unchecked-structure-ref - _%ctx118892%_ + _%ctx119877%_ '3 '#f '#f))) - (if _%$e118898%_ - ((lambda (_%super118901%_) - (let* ((_%super118903%_ - (_%K118896%_ - _%super118901%_ - _%delta118893%_)) - (_%ctx+d118905%_ - (_%make-delta-context118894%_ - _%ctx118892%_ - _%super118903%_))) - (_%K118896%_ - _%ctx+d118905%_ - (fx- _%phi118895%_ _%delta118893%_)))) - _%$e118898%_) - (error '"Bad context" _%ctx118892%_)))))) - (let _%K118868%_ ((_%ctx118870%_ _%ctx118860%_) - (_%phi118871%_ _%phi118861%_)) - (if (fxzero? _%phi118871%_) - _%ctx118870%_ - (if (##structure-instance-of? _%ctx118870%_ 'gx#phi-context::t) - (if (fxpositive? _%phi118871%_) - (let ((_%$e118875%_ + (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 - _%ctx118870%_ + _%ctx119855%_ '4 '#f '#f))) - (if _%$e118875%_ - ((lambda (_%g118877118879%_) - (_%K118868%_ - _%g118877118879%_ - (##fx- _%phi118871%_ '1))) - _%$e118875%_) - (_%shift118866%_ - _%ctx118870%_ + (if _%$e119860%_ + ((lambda (_%g119862119864%_) + (_%K119853%_ + _%g119862119864%_ + (##fx- _%phi119856%_ '1))) + _%$e119860%_) + (_%shift119851%_ + _%ctx119855%_ '1 - _%make-phi/up118864%_ - _%phi118871%_ - _%K118868%_))) - (let ((_%$e118883%_ + _%make-phi/up119849%_ + _%phi119856%_ + _%K119853%_))) + (let ((_%$e119868%_ (##unchecked-structure-ref - _%ctx118870%_ + _%ctx119855%_ '5 '#f '#f))) - (if _%$e118883%_ - ((lambda (_%g118885118887%_) - (_%K118868%_ - _%g118885118887%_ - (##fx+ _%phi118871%_ '1))) - _%$e118883%_) - (_%shift118866%_ - _%ctx118870%_ + (if _%$e119868%_ + ((lambda (_%g119870119872%_) + (_%K119853%_ + _%g119870119872%_ + (##fx+ _%phi119856%_ '1))) + _%$e119868%_) + (_%shift119851%_ + _%ctx119855%_ '-1 - _%make-phi/down118865%_ - _%phi118871%_ - _%K118868%_)))) - _%ctx118870%_)))))) + _%make-phi/down119850%_ + _%phi119856%_ + _%K119853%_)))) + _%ctx119855%_)))))) (define gx#core-context-get - (lambda (_%ctx118857%_ _%key118858%_) + (lambda (_%ctx119842%_ _%key119843%_) (hash-get - (##unchecked-structure-ref _%ctx118857%_ '2 '#f '#f) - _%key118858%_))) + (##unchecked-structure-ref _%ctx119842%_ '2 '#f '#f) + _%key119843%_))) (define gx#core-context-put! - (lambda (_%ctx118853%_ _%key118854%_ _%val118855%_) + (lambda (_%ctx119838%_ _%key119839%_ _%val119840%_) (hash-put! - (##unchecked-structure-ref _%ctx118853%_ '2 '#f '#f) - _%key118854%_ - _%val118855%_))) + (##unchecked-structure-ref _%ctx119838%_ '2 '#f '#f) + _%key119839%_ + _%val119840%_))) (define gx#core-context-resolve - (lambda (_%ctx118839%_ _%key118840%_) - (let _%lp118842%_ ((_%ctx118844%_ _%ctx118839%_)) - (let ((_%$e118846%_ - (gx#core-context-get _%ctx118844%_ _%key118840%_))) - (if _%$e118846%_ - _%$e118846%_ - (let ((_%$e118849%_ + (lambda (_%ctx119824%_ _%key119825%_) + (let _%lp119827%_ ((_%ctx119829%_ _%ctx119824%_)) + (let ((_%$e119831%_ + (gx#core-context-get _%ctx119829%_ _%key119825%_))) + (if _%$e119831%_ + _%$e119831%_ + (let ((_%$e119834%_ (if (##structure-instance-of? - _%ctx118844%_ + _%ctx119829%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx118844%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx119829%_ '3 '#f '#f) '#f))) - (if _%$e118849%_ (_%lp118842%_ _%$e118849%_) '#f))))))) + (if _%$e119834%_ (_%lp119827%_ _%$e119834%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx118828%_ _%key118829%_ _%val118830%_ _%rebind118831%_) - (let ((_%$e118833%_ (gx#core-context-get _%ctx118828%_ _%key118829%_))) - (if _%$e118833%_ - ((lambda (_%xval118836%_) + (lambda (_%ctx119813%_ _%key119814%_ _%val119815%_ _%rebind119816%_) + (let ((_%$e119818%_ (gx#core-context-get _%ctx119813%_ _%key119814%_))) + (if _%$e119818%_ + ((lambda (_%xval119821%_) (gx#core-context-put! - _%ctx118828%_ - _%key118829%_ - (_%rebind118831%_ _%xval118836%_))) - _%$e118833%_) + _%ctx119813%_ + _%key119814%_ + (_%rebind119816%_ _%xval119821%_))) + _%$e119818%_) (gx#core-context-put! - _%ctx118828%_ - _%key118829%_ - _%val118830%_))))) + _%ctx119813%_ + _%key119814%_ + _%val119815%_))))) (define gx#core-context-top__% - (lambda (_%ctx118803%_ _%stop?118804%_) - (let _%lp118806%_ ((_%ctx118808%_ _%ctx118803%_)) - (if (_%stop?118804%_ _%ctx118808%_) - _%ctx118808%_ - (if (##structure-instance-of? _%ctx118808%_ 'gx#phi-context::t) - (_%lp118806%_ - (##unchecked-structure-ref _%ctx118808%_ '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* ((_%ctx118817%_ (gx#current-expander-context)) - (_%stop?118819%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118817%_ _%stop?118819%_)))) + (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 (_%ctx118821%_) - (let ((_%stop?118823%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118821%_ _%stop?118823%_)))) + (lambda (_%ctx119806%_) + (let ((_%stop?119808%_ gx#top-context?)) + (gx#core-context-top__% _%ctx119806%_ _%stop?119808%_)))) (define gx#core-context-top - (lambda _g121663_ - (let ((_g121662_ (##length _g121663_))) - (cond ((##fx= _g121662_ 0) (apply gx#core-context-top__0 _g121663_)) - ((##fx= _g121662_ 1) (apply gx#core-context-top__1 _g121663_)) - ((##fx= _g121662_ 2) (apply gx#core-context-top__% _g121663_)) + (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 - _g121663_)))))) + _g122648_)))))) (define gx#core-context-root__% - (lambda (_%ctx118788%_) - (let _%lp118790%_ ((_%ctx118792%_ _%ctx118788%_)) - (if (##structure-instance-of? _%ctx118792%_ 'gx#phi-context::t) - (_%lp118790%_ - (##unchecked-structure-ref _%ctx118792%_ '3 '#f '#f)) - _%ctx118792%_)))) + (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 ((_%ctx118798%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx118798%_)))) + (let ((_%ctx119783%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx119783%_)))) (define gx#core-context-root - (lambda _g121665_ - (let ((_g121664_ (##length _g121665_))) - (cond ((##fx= _g121664_ 0) (apply gx#core-context-root__0 _g121665_)) - ((##fx= _g121664_ 1) (apply gx#core-context-root__% _g121665_)) + (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 - _g121665_)))))) + _g122650_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx118770%_ . _%ignore118771%_) - (let ((_%$e118773%_ (gx#current-expander-allow-rebind?))) - (if _%$e118773%_ - _%$e118773%_ - (if (##structure-instance-of? _%ctx118770%_ '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? - _%ctx118770%_ + _%ctx119755%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx118770%_ + _%ctx119755%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx118780%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx118780%_)))) + (let ((_%ctx119765%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx119765%_)))) (define gx#core-context-rebind? - (lambda _g121667_ - (let ((_g121666_ (##length _g121667_))) - (cond ((##fx= _g121666_ 0) - (apply gx#core-context-rebind?__0 _g121667_)) - ((##fx= _g121666_ 1) - (apply gx#core-context-rebind?__% _g121667_)) - ((##fx>= _g121666_ 1) - (apply gx#core-context-rebind?__% _g121667_)) + (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? - _g121667_)))))) + _g122652_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx118753%_) - (let ((_%$e118755%_ (gx#core-context-top__1 _%ctx118753%_))) - (if _%$e118755%_ - ((lambda (_%ctx118758%_) + (lambda (_%ctx119738%_) + (let ((_%$e119740%_ (gx#core-context-top__1 _%ctx119738%_))) + (if _%$e119740%_ + ((lambda (_%ctx119743%_) (if (##structure-instance-of? - _%ctx118758%_ + _%ctx119743%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx118758%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx119743%_ '6 '#f '#f) '#f)) - _%$e118755%_) + _%$e119740%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx118765%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx118765%_)))) + (let ((_%ctx119750%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx119750%_)))) (define gx#core-context-namespace - (lambda _g121669_ - (let ((_g121668_ (##length _g121669_))) - (cond ((##fx= _g121668_ 0) - (apply gx#core-context-namespace__0 _g121669_)) - ((##fx= _g121668_ 1) - (apply gx#core-context-namespace__% _g121669_)) + (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 - _g121669_)))))) + _g122654_)))))) (define gx#expander-binding?__% - (lambda (_%bind118739%_ _%is?118740%_) + (lambda (_%bind119724%_ _%is?119725%_) (if (##structure-direct-instance-of? - _%bind118739%_ + _%bind119724%_ 'gx#syntax-binding::t) - (_%is?118740%_ - (##unchecked-structure-ref _%bind118739%_ '4 '#f '#f)) + (_%is?119725%_ + (##unchecked-structure-ref _%bind119724%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind118745%_) - (let ((_%is?118747%_ gx#expander?)) - (gx#expander-binding?__% _%bind118745%_ _%is?118747%_)))) + (lambda (_%bind119730%_) + (let ((_%is?119732%_ gx#expander?)) + (gx#expander-binding?__% _%bind119730%_ _%is?119732%_)))) (define gx#expander-binding? - (lambda _g121671_ - (let ((_g121670_ (##length _g121671_))) - (cond ((##fx= _g121670_ 1) (apply gx#expander-binding?__0 _g121671_)) - ((##fx= _g121670_ 2) (apply gx#expander-binding?__% _g121671_)) + (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? - _g121671_)))))) + _g122656_)))))) (define gx#core-expander-binding? - (lambda (_%bind118736%_) - (gx#expander-binding?__% _%bind118736%_ gx#core-expander?))) + (lambda (_%bind119721%_) + (gx#expander-binding?__% _%bind119721%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind118734%_) - (gx#expander-binding?__% _%bind118734%_ gx#expression-form?))) + (lambda (_%bind119719%_) + (gx#expander-binding?__% _%bind119719%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind118728%_) - (letrec ((_%direct-special-form?118730%_ - (lambda (_%obj118732%_) + (lambda (_%bind119713%_) + (letrec ((_%direct-special-form?119715%_ + (lambda (_%obj119717%_) (##structure-direct-instance-of? - _%obj118732%_ + _%obj119717%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind118728%_ - _%direct-special-form?118730%_)))) + _%bind119713%_ + _%direct-special-form?119715%_)))) (define gx#special-form-binding? - (lambda (_%bind118726%_) - (gx#expander-binding?__% _%bind118726%_ gx#special-form?))) + (lambda (_%bind119711%_) + (gx#expander-binding?__% _%bind119711%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind118717%_) - (letrec ((_%feature?118719%_ - (lambda (_%e118721%_) - (let ((_%$e118723%_ + (lambda (_%bind119702%_) + (letrec ((_%feature?119704%_ + (lambda (_%e119706%_) + (let ((_%$e119708%_ (##structure-instance-of? - _%e118721%_ + _%e119706%_ 'gx#feature-expander::t))) - (if _%$e118723%_ - _%$e118723%_ + (if _%$e119708%_ + _%$e119708%_ (##structure-instance-of? - _%e118721%_ + _%e119706%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind118717%_ _%feature?118719%_)))) + (gx#expander-binding?__% _%bind119702%_ _%feature?119704%_)))) (define gx#private-feature-binding? - (lambda (_%bind118715%_) - (gx#expander-binding?__% _%bind118715%_ gx#private-feature-expander?))) + (lambda (_%bind119700%_) + (gx#expander-binding?__% _%bind119700%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id118702%_ _%bound?118703%_) - (if (gx#identifier? _%id118702%_) - (_%bound?118703%_ (gx#resolve-identifier__0 _%id118702%_)) + (lambda (_%id119687%_ _%bound?119688%_) + (if (gx#identifier? _%id119687%_) + (_%bound?119688%_ (gx#resolve-identifier__0 _%id119687%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id118708%_) - (let ((_%bound?118710%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id118708%_ _%bound?118710%_)))) + (lambda (_%id119693%_) + (let ((_%bound?119695%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id119693%_ _%bound?119695%_)))) (define gx#core-bound-identifier? - (lambda _g121673_ - (let ((_g121672_ (##length _g121673_))) - (cond ((##fx= _g121672_ 1) - (apply gx#core-bound-identifier?__0 _g121673_)) - ((##fx= _g121672_ 2) - (apply gx#core-bound-identifier?__% _g121673_)) + (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? - _g121673_)))))) + _g122658_)))))) (define gx#core-identifier=? - (lambda (_%x118692%_ _%y118693%_) - (letrec ((_%y=?118695%_ - (lambda (_%xid118699%_) - ((if (list? _%y118693%_) memq eq?) - _%xid118699%_ - _%y118693%_)))) - (let ((_%bind118697%_ (gx#resolve-identifier__0 _%x118692%_))) - (if (##structure-instance-of? _%bind118697%_ 'gx#binding::t) - (_%y=?118695%_ - (##unchecked-structure-ref _%bind118697%_ '1 '#f '#f)) - (_%y=?118695%_ (gx#stx-e _%x118692%_))))))) + (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 (_%e118690%_) - (if (interned-symbol? _%e118690%_) - (string-index__0 (symbol->string _%e118690%_) '#\#) + (lambda (_%e119675%_) + (if (interned-symbol? _%e119675%_) + (string-index__0 (symbol->string _%e119675%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx118643%_ _%src118644%_ _%ctx118645%_ _%marks118646%_) - (if (##structure? _%stx118643%_) - (let ((_%$e118648%_ (gx#sealed-syntax-unwrap _%stx118643%_))) - (if _%$e118648%_ - _%$e118648%_ - (if (gx#identifier? _%stx118643%_) - (let ((_%id118652%_ - (gx#stx-unwrap__% _%stx118643%_ _%marks118646%_))) + (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 _%id118652%_ '1 '#f '#f) - (let ((_%$e118654%_ + (##unchecked-structure-ref _%id119637%_ '1 '#f '#f) + (let ((_%$e119639%_ (##unchecked-structure-ref - _%id118652%_ + _%id119637%_ '2 '#f '#f))) - (if _%$e118654%_ _%$e118654%_ _%src118644%_)) - _%ctx118645%_ - (##unchecked-structure-ref _%id118652%_ '3 '#f '#f))) + (if _%$e119639%_ _%$e119639%_ _%src119629%_)) + _%ctx119630%_ + (##unchecked-structure-ref _%id119637%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx118643%_) - (let ((_%$e118658%_ (gx#stx-source _%stx118643%_))) - (if _%$e118658%_ _%$e118658%_ _%src118644%_)) - _%ctx118645%_ - (reverse _%marks118646%_))))) + (gx#stx-e _%stx119628%_) + (let ((_%$e119643%_ (gx#stx-source _%stx119628%_))) + (if _%$e119643%_ _%$e119643%_ _%src119629%_)) + _%ctx119630%_ + (reverse _%marks119631%_))))) (##structure gx#syntax-quote::t - _%stx118643%_ - _%src118644%_ - _%ctx118645%_ - (reverse _%marks118646%_))))) + _%stx119628%_ + _%src119629%_ + _%ctx119630%_ + (reverse _%marks119631%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx118664%_) - (let* ((_%src118666%_ '#f) - (_%ctx118668%_ (gx#current-expander-context)) - (_%marks118670%_ (gx#current-expander-marks))) + (lambda (_%stx119649%_) + (let* ((_%src119651%_ '#f) + (_%ctx119653%_ (gx#current-expander-context)) + (_%marks119655%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118664%_ - _%src118666%_ - _%ctx118668%_ - _%marks118670%_)))) + _%stx119649%_ + _%src119651%_ + _%ctx119653%_ + _%marks119655%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx118672%_ _%src118673%_) - (let* ((_%ctx118675%_ (gx#current-expander-context)) - (_%marks118677%_ (gx#current-expander-marks))) + (lambda (_%stx119657%_ _%src119658%_) + (let* ((_%ctx119660%_ (gx#current-expander-context)) + (_%marks119662%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118672%_ - _%src118673%_ - _%ctx118675%_ - _%marks118677%_)))) + _%stx119657%_ + _%src119658%_ + _%ctx119660%_ + _%marks119662%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx118679%_ _%src118680%_ _%ctx118681%_) - (let ((_%marks118683%_ (gx#current-expander-marks))) + (lambda (_%stx119664%_ _%src119665%_ _%ctx119666%_) + (let ((_%marks119668%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118679%_ - _%src118680%_ - _%ctx118681%_ - _%marks118683%_)))) + _%stx119664%_ + _%src119665%_ + _%ctx119666%_ + _%marks119668%_)))) (define gx#core-quote-syntax - (lambda _g121675_ - (let ((_g121674_ (##length _g121675_))) - (cond ((##fx= _g121674_ 1) (apply gx#core-quote-syntax__0 _g121675_)) - ((##fx= _g121674_ 2) (apply gx#core-quote-syntax__1 _g121675_)) - ((##fx= _g121674_ 3) (apply gx#core-quote-syntax__2 _g121675_)) - ((##fx= _g121674_ 4) (apply gx#core-quote-syntax__% _g121675_)) + (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 - _g121675_)))))) + _g122660_)))))) (define gx#core-cons - (lambda (_%hd118639%_ _%tl118640%_) - (cons (gx#core-quote-syntax__0 _%hd118639%_) _%tl118640%_))) + (lambda (_%hd119624%_ _%tl119625%_) + (cons (gx#core-quote-syntax__0 _%hd119624%_) _%tl119625%_))) (define gx#core-list - (lambda (_%hd118636%_ . _%rest118637%_) - (cons (gx#core-quote-syntax__0 _%hd118636%_) _%rest118637%_))) + (lambda (_%hd119621%_ . _%rest119622%_) + (cons (gx#core-quote-syntax__0 _%hd119621%_) _%rest119622%_))) (define gx#core-cons* - (lambda (_%hd118633%_ . _%rest118634%_) - (apply cons* (gx#core-quote-syntax__0 _%hd118633%_) _%rest118634%_))) + (lambda (_%hd119618%_ . _%rest119619%_) + (apply cons* (gx#core-quote-syntax__0 _%hd119618%_) _%rest119619%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path118602%_ _%rel118603%_) - (let ((_%path118620%_ (gx#stx-e _%stx-path118602%_)) - (_%reldir118621%_ - (let _%lp118605%_ ((_%relsrc118607%_ - (let ((_%$e118617%_ - (gx#stx-source _%stx-path118602%_))) - (if _%$e118617%_ - _%$e118617%_ - _%rel118603%_)))) - (if (##structure-instance-of? _%relsrc118607%_ 'gerbil#AST::t) - (_%lp118605%_ - (let ((_%$e118610%_ (gx#stx-source _%relsrc118607%_))) - (if _%$e118610%_ - _%$e118610%_ - (gx#stx-e _%relsrc118607%_)))) - (if (source-location-path? _%relsrc118607%_) + (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 _%relsrc118607%_)) - (if (string? _%relsrc118607%_) - (path-directory _%relsrc118607%_) + (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 _%path118620%_ (path-normalize _%reldir118621%_))))) + (path-expand _%path119605%_ (path-normalize _%reldir119606%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path118626%_) - (let ((_%rel118628%_ '#f)) - (gx#core-resolve-path__% _%stx-path118626%_ _%rel118628%_)))) + (lambda (_%stx-path119611%_) + (let ((_%rel119613%_ '#f)) + (gx#core-resolve-path__% _%stx-path119611%_ _%rel119613%_)))) (define gx#core-resolve-path - (lambda _g121677_ - (let ((_g121676_ (##length _g121677_))) - (cond ((##fx= _g121676_ 1) (apply gx#core-resolve-path__0 _g121677_)) - ((##fx= _g121676_ 2) (apply gx#core-resolve-path__% _g121677_)) + (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 - _g121677_)))))) + _g122662_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr118558%_ _%ctx118559%_) - (let* ((_%repr118560118567%_ _%repr118558%_) - (_%E118562118571%_ + (lambda (_%repr119543%_ _%ctx119544%_) + (let* ((_%repr119545119552%_ _%repr119543%_) + (_%E119547119556%_ (lambda () (error '"No clause matching" - _%repr118560118567%_ + _%repr119545119552%_ '([phi . subs])) '#!void)) - (_%K118563118579%_ - (lambda (_%subs118574%_ _%phi118575%_) - (let ((_%subst118577%_ - (if (null? _%subs118574%_) + (_%K119548119564%_ + (lambda (_%subs119559%_ _%phi119560%_) + (let ((_%subst119562%_ + (if (null? _%subs119559%_) '#f - (list->hash-table-eq _%subs118574%_)))) + (list->hash-table-eq _%subs119559%_)))) (##structure gx#expander-mark::t - _%subst118577%_ - _%ctx118559%_ - _%phi118575%_ + _%subst119562%_ + _%ctx119544%_ + _%phi119560%_ '#f))))) - (if (pair? _%repr118560118567%_) - (let ((_%hd118564118582%_ (##car _%repr118560118567%_)) - (_%tl118565118584%_ (##cdr _%repr118560118567%_))) - (let* ((_%phi118587%_ _%hd118564118582%_) - (_%subs118589%_ _%tl118565118584%_)) - (_%K118563118579%_ _%subs118589%_ _%phi118587%_))) - (_%E118562118571%_))))) + (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 (_%repr118594%_) - (let ((_%ctx118596%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr118594%_ _%ctx118596%_)))) + (lambda (_%repr119579%_) + (let ((_%ctx119581%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr119579%_ _%ctx119581%_)))) (define gx#core-deserialize-mark - (lambda _g121679_ - (let ((_g121678_ (##length _g121679_))) - (cond ((##fx= _g121678_ 1) - (apply gx#core-deserialize-mark__0 _g121679_)) - ((##fx= _g121678_ 2) - (apply gx#core-deserialize-mark__% _g121679_)) + (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 - _g121679_)))))) + _g122664_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx118555%_) - (gx#stx-rewrap _%stx118555%_ (gx#current-expander-marks)))) + (lambda (_%stx119540%_) + (gx#stx-rewrap _%stx119540%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx118553%_) - (gx#stx-unwrap__% _%stx118553%_ (gx#current-expander-marks)))) + (lambda (_%stx119538%_) + (gx#stx-unwrap__% _%stx119538%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx118523%_) - (let* ((_%g118524118532%_ (gx#current-expander-marks)) - (_%else118526118540%_ (lambda () _%stx118523%_)) - (_%K118528118545%_ - (lambda (_%hd118543%_) - (gx#stx-apply-mark _%stx118523%_ _%hd118543%_)))) - (if (pair? _%g118524118532%_) - (let* ((_%hd118529118548%_ (##car _%g118524118532%_)) - (_%hd118551%_ _%hd118529118548%_)) - (_%K118528118545%_ _%hd118551%_)) - (_%else118526118540%_))))) + (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 (_%stx118508%_ _%E118509%_) - (let ((_%bind118511%_ (gx#resolve-identifier__0 _%stx118508%_))) + (lambda (_%stx119493%_ _%E119494%_) + (let ((_%bind119496%_ (gx#resolve-identifier__0 _%stx119493%_))) (if (##structure-direct-instance-of? - _%bind118511%_ + _%bind119496%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind118511%_ '4 '#f '#f) - (_%E118509%_ _%stx118508%_))))) + (##unchecked-structure-ref _%bind119496%_ '4 '#f '#f) + (_%E119494%_ _%stx119493%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx118516%_) - (let ((_%E118518%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx118516%_ _%E118518%_)))) + (lambda (_%stx119501%_) + (let ((_%E119503%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx119501%_ _%E119503%_)))) (define gx#syntax-local-e - (lambda _g121681_ - (let ((_g121680_ (##length _g121681_))) - (cond ((##fx= _g121680_ 1) (apply gx#syntax-local-e__0 _g121681_)) - ((##fx= _g121680_ 2) (apply gx#syntax-local-e__% _g121681_)) + (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 - _g121681_)))))) + _g122666_)))))) (define gx#syntax-local-value__% - (lambda (_%stx118492%_ _%E118493%_) - (let ((_%e118495%_ (gx#syntax-local-e__% _%stx118492%_ _%E118493%_))) - (if (##structure-instance-of? _%e118495%_ 'gx#expander::t) - (##unchecked-structure-ref _%e118495%_ '1 '#f '#f) - _%e118495%_)))) + (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 (_%stx118500%_) - (let ((_%E118502%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx118500%_ _%E118502%_)))) + (lambda (_%stx119485%_) + (let ((_%E119487%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx119485%_ _%E119487%_)))) (define gx#syntax-local-value - (lambda _g121683_ - (let ((_g121682_ (##length _g121683_))) - (cond ((##fx= _g121682_ 1) - (apply gx#syntax-local-value__0 _g121683_)) - ((##fx= _g121682_ 2) - (apply gx#syntax-local-value__% _g121683_)) + (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 - _g121683_)))))) + _g122668_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx118489%_) + (lambda (_%stx119474%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx118489%_))))) + _%stx119474%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index 9db09dd70..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]#_g121685_| + (define |gx[1]#_g122670_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121687_| + (define |gx[1]#_g122672_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121689_| + (define |gx[1]#_g122674_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121691_| + (define |gx[1]#_g122676_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121692_| + (define |gx[1]#_g122677_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121694_| + (define |gx[1]#_g122679_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121695_| + (define |gx[1]#_g122680_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121697_| + (define |gx[1]#_g122682_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121698_| + (define |gx[1]#_g122683_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121700_| + (define |gx[1]#_g122685_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121701_| + (define |gx[1]#_g122686_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121703_| + (define |gx[1]#_g122688_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121705_| + (define |gx[1]#_g122690_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121707_| + (define |gx[1]#_g122692_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121709_| + (define |gx[1]#_g122694_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121711_| + (define |gx[1]#_g122696_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121712_| + (define |gx[1]#_g122697_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121714_| + (define |gx[1]#_g122699_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121715_| + (define |gx[1]#_g122700_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121717_| + (define |gx[1]#_g122702_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121718_| + (define |gx[1]#_g122703_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121720_| + (define |gx[1]#_g122705_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121721_| + (define |gx[1]#_g122706_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121724_| + (define |gx[1]#_g122709_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121726_| + (define |gx[1]#_g122711_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121728_| + (define |gx[1]#_g122713_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121730_| + (define |gx[1]#_g122715_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121731_| + (define |gx[1]#_g122716_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121732_| + (define |gx[1]#_g122717_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121733_| + (define |gx[1]#_g122718_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121734_| + (define |gx[1]#_g122719_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121736_| + (define |gx[1]#_g122721_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121737_| + (define |gx[1]#_g122722_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121738_| + (define |gx[1]#_g122723_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121739_| + (define |gx[1]#_g122724_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121740_| + (define |gx[1]#_g122725_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121742_| + (define |gx[1]#_g122727_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121743_| + (define |gx[1]#_g122728_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121744_| + (define |gx[1]#_g122729_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121745_| + (define |gx[1]#_g122730_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121746_| + (define |gx[1]#_g122731_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121748_| + (define |gx[1]#_g122733_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121749_| + (define |gx[1]#_g122734_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121750_| + (define |gx[1]#_g122735_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121751_| + (define |gx[1]#_g122736_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121752_| + (define |gx[1]#_g122737_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121754_| + (define |gx[1]#_g122739_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121756_| + (define |gx[1]#_g122741_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121758_| + (define |gx[1]#_g122743_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121760_| + (define |gx[1]#_g122745_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121762_| + (define |gx[1]#_g122747_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121763_| + (define |gx[1]#_g122748_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121764_| + (define |gx[1]#_g122749_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121765_| + (define |gx[1]#_g122750_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121766_| + (define |gx[1]#_g122751_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121768_| + (define |gx[1]#_g122753_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121769_| + (define |gx[1]#_g122754_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121770_| + (define |gx[1]#_g122755_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121771_| + (define |gx[1]#_g122756_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121772_| + (define |gx[1]#_g122757_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121774_| + (define |gx[1]#_g122759_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121775_| + (define |gx[1]#_g122760_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121776_| + (define |gx[1]#_g122761_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121777_| + (define |gx[1]#_g122762_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121778_| + (define |gx[1]#_g122763_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121780_| + (define |gx[1]#_g122765_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121781_| + (define |gx[1]#_g122766_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121782_| + (define |gx[1]#_g122767_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121783_| + (define |gx[1]#_g122768_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121784_| + (define |gx[1]#_g122769_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121786_| + (define |gx[1]#_g122771_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121788_| + (define |gx[1]#_g122773_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121790_| + (define |gx[1]#_g122775_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121792_| + (define |gx[1]#_g122777_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121794_| + (define |gx[1]#_g122779_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121795_| + (define |gx[1]#_g122780_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121796_| + (define |gx[1]#_g122781_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121797_| + (define |gx[1]#_g122782_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121798_| + (define |gx[1]#_g122783_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121799_| + (define |gx[1]#_g122784_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121800_| + (define |gx[1]#_g122785_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121801_| + (define |gx[1]#_g122786_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121802_| + (define |gx[1]#_g122787_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121803_| + (define |gx[1]#_g122788_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121804_| + (define |gx[1]#_g122789_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121806_| + (define |gx[1]#_g122791_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121807_| + (define |gx[1]#_g122792_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121808_| + (define |gx[1]#_g122793_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121809_| + (define |gx[1]#_g122794_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121810_| + (define |gx[1]#_g122795_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121811_| + (define |gx[1]#_g122796_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121812_| + (define |gx[1]#_g122797_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121813_| + (define |gx[1]#_g122798_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121814_| + (define |gx[1]#_g122799_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121815_| + (define |gx[1]#_g122800_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121816_| + (define |gx[1]#_g122801_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121818_| + (define |gx[1]#_g122803_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121819_| + (define |gx[1]#_g122804_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121820_| + (define |gx[1]#_g122805_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121821_| + (define |gx[1]#_g122806_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121822_| + (define |gx[1]#_g122807_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121823_| + (define |gx[1]#_g122808_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121824_| + (define |gx[1]#_g122809_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121825_| + (define |gx[1]#_g122810_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121826_| + (define |gx[1]#_g122811_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121827_| + (define |gx[1]#_g122812_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121828_| + (define |gx[1]#_g122813_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121830_| + (define |gx[1]#_g122815_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121831_| + (define |gx[1]#_g122816_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121832_| + (define |gx[1]#_g122817_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121833_| + (define |gx[1]#_g122818_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121834_| + (define |gx[1]#_g122819_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121835_| + (define |gx[1]#_g122820_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121836_| + (define |gx[1]#_g122821_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121837_| + (define |gx[1]#_g122822_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121838_| + (define |gx[1]#_g122823_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121839_| + (define |gx[1]#_g122824_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121840_| + (define |gx[1]#_g122825_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121843_| + (define |gx[1]#_g122828_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121845_| + (define |gx[1]#_g122830_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121847_| + (define |gx[1]#_g122832_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121849_| + (define |gx[1]#_g122834_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121850_| + (define |gx[1]#_g122835_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121851_| + (define |gx[1]#_g122836_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121852_| + (define |gx[1]#_g122837_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121853_| + (define |gx[1]#_g122838_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121854_| + (define |gx[1]#_g122839_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121855_| + (define |gx[1]#_g122840_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121856_| + (define |gx[1]#_g122841_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121858_| + (define |gx[1]#_g122843_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121859_| + (define |gx[1]#_g122844_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121860_| + (define |gx[1]#_g122845_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121861_| + (define |gx[1]#_g122846_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121862_| + (define |gx[1]#_g122847_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121863_| + (define |gx[1]#_g122848_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121864_| + (define |gx[1]#_g122849_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121865_| + (define |gx[1]#_g122850_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121867_| + (define |gx[1]#_g122852_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121868_| + (define |gx[1]#_g122853_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121869_| + (define |gx[1]#_g122854_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121870_| + (define |gx[1]#_g122855_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121871_| + (define |gx[1]#_g122856_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121872_| + (define |gx[1]#_g122857_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121873_| + (define |gx[1]#_g122858_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121874_| + (define |gx[1]#_g122859_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121876_| + (define |gx[1]#_g122861_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121877_| + (define |gx[1]#_g122862_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121878_| + (define |gx[1]#_g122863_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121879_| + (define |gx[1]#_g122864_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121880_| + (define |gx[1]#_g122865_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121881_| + (define |gx[1]#_g122866_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121882_| + (define |gx[1]#_g122867_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121883_| + (define |gx[1]#_g122868_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121886_| + (define |gx[1]#_g122871_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121888_| + (define |gx[1]#_g122873_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121890_| + (define |gx[1]#_g122875_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121892_| + (define |gx[1]#_g122877_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121893_| + (define |gx[1]#_g122878_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121894_| + (define |gx[1]#_g122879_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121895_| + (define |gx[1]#_g122880_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121896_| + (define |gx[1]#_g122881_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121898_| + (define |gx[1]#_g122883_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121899_| + (define |gx[1]#_g122884_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121900_| + (define |gx[1]#_g122885_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121901_| + (define |gx[1]#_g122886_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121902_| + (define |gx[1]#_g122887_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121904_| + (define |gx[1]#_g122889_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121905_| + (define |gx[1]#_g122890_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121906_| + (define |gx[1]#_g122891_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121907_| + (define |gx[1]#_g122892_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121908_| + (define |gx[1]#_g122893_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121910_| + (define |gx[1]#_g122895_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121911_| + (define |gx[1]#_g122896_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121912_| + (define |gx[1]#_g122897_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121913_| + (define |gx[1]#_g122898_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121914_| + (define |gx[1]#_g122899_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121916_| + (define |gx[1]#_g122901_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121918_| + (define |gx[1]#_g122903_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121920_| + (define |gx[1]#_g122905_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121922_| + (define |gx[1]#_g122907_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121923_| + (define |gx[1]#_g122908_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121924_| + (define |gx[1]#_g122909_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121926_| + (define |gx[1]#_g122911_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121927_| + (define |gx[1]#_g122912_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121928_| + (define |gx[1]#_g122913_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121930_| + (define |gx[1]#_g122915_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121931_| + (define |gx[1]#_g122916_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121932_| + (define |gx[1]#_g122917_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121934_| + (define |gx[1]#_g122919_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121935_| + (define |gx[1]#_g122920_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121936_| + (define |gx[1]#_g122921_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121938_| + (define |gx[1]#_g122923_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121940_| + (define |gx[1]#_g122925_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121942_| + (define |gx[1]#_g122927_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121944_| + (define |gx[1]#_g122929_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121946_| + (define |gx[1]#_g122931_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121947_| + (define |gx[1]#_g122932_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121948_| + (define |gx[1]#_g122933_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121950_| + (define |gx[1]#_g122935_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121951_| + (define |gx[1]#_g122936_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121952_| + (define |gx[1]#_g122937_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121954_| + (define |gx[1]#_g122939_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121955_| + (define |gx[1]#_g122940_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121956_| + (define |gx[1]#_g122941_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121958_| + (define |gx[1]#_g122943_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121959_| + (define |gx[1]#_g122944_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121960_| + (define |gx[1]#_g122945_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121962_| + (define |gx[1]#_g122947_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121964_| + (define |gx[1]#_g122949_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121966_| + (define |gx[1]#_g122951_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121968_| + (define |gx[1]#_g122953_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121970_| + (define |gx[1]#_g122955_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121971_| + (define |gx[1]#_g122956_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121972_| + (define |gx[1]#_g122957_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121974_| + (define |gx[1]#_g122959_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121975_| + (define |gx[1]#_g122960_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121976_| + (define |gx[1]#_g122961_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121978_| + (define |gx[1]#_g122963_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121979_| + (define |gx[1]#_g122964_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121980_| + (define |gx[1]#_g122965_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121982_| + (define |gx[1]#_g122967_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121983_| + (define |gx[1]#_g122968_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121984_| + (define |gx[1]#_g122969_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121987_| + (define |gx[1]#_g122972_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121989_| + (define |gx[1]#_g122974_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121991_| + (define |gx[1]#_g122976_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121993_| + (define |gx[1]#_g122978_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121994_| + (define |gx[1]#_g122979_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121995_| + (define |gx[1]#_g122980_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121997_| + (define |gx[1]#_g122982_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121998_| + (define |gx[1]#_g122983_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121999_| + (define |gx[1]#_g122984_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122001_| + (define |gx[1]#_g122986_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122002_| + (define |gx[1]#_g122987_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122003_| + (define |gx[1]#_g122988_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122005_| + (define |gx[1]#_g122990_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122006_| + (define |gx[1]#_g122991_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122007_| + (define |gx[1]#_g122992_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122009_| + (define |gx[1]#_g122994_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g122011_| + (define |gx[1]#_g122996_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122013_| + (define |gx[1]#_g122998_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g122015_| + (define |gx[1]#_g123000_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122017_| + (define |gx[1]#_g123002_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122018_| + (define |gx[1]#_g123003_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122019_| + (define |gx[1]#_g123004_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122020_| + (define |gx[1]#_g123005_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122022_| + (define |gx[1]#_g123007_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122023_| + (define |gx[1]#_g123008_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122024_| + (define |gx[1]#_g123009_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122025_| + (define |gx[1]#_g123010_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122027_| + (define |gx[1]#_g123012_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122028_| + (define |gx[1]#_g123013_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122029_| + (define |gx[1]#_g123014_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122030_| + (define |gx[1]#_g123015_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122032_| + (define |gx[1]#_g123017_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122033_| + (define |gx[1]#_g123018_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122034_| + (define |gx[1]#_g123019_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122035_| + (define |gx[1]#_g123020_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122038_| + (define |gx[1]#_g123023_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122040_| + (define |gx[1]#_g123025_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g122042_| + (define |gx[1]#_g123027_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122044_| + (define |gx[1]#_g123029_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122045_| + (define |gx[1]#_g123030_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122046_| + (define |gx[1]#_g123031_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122048_| + (define |gx[1]#_g123033_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122049_| + (define |gx[1]#_g123034_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122050_| + (define |gx[1]#_g123035_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122052_| + (define |gx[1]#_g123037_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122053_| + (define |gx[1]#_g123038_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122054_| + (define |gx[1]#_g123039_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122056_| + (define |gx[1]#_g123041_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122057_| + (define |gx[1]#_g123042_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122058_| + (define |gx[1]#_g123043_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122061_| + (define |gx[1]#_g123046_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122063_| + (define |gx[1]#_g123048_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g122065_| + (define |gx[1]#_g123050_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122067_| + (define |gx[1]#_g123052_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122068_| + (define |gx[1]#_g123053_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122069_| + (define |gx[1]#_g123054_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122070_| + (define |gx[1]#_g123055_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122072_| + (define |gx[1]#_g123057_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122073_| + (define |gx[1]#_g123058_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122074_| + (define |gx[1]#_g123059_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122075_| + (define |gx[1]#_g123060_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122077_| + (define |gx[1]#_g123062_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122078_| + (define |gx[1]#_g123063_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122079_| + (define |gx[1]#_g123064_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122080_| + (define |gx[1]#_g123065_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122082_| + (define |gx[1]#_g123067_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122083_| + (define |gx[1]#_g123068_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122084_| + (define |gx[1]#_g123069_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122085_| + (define |gx[1]#_g123070_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122088_| + (define |gx[1]#_g123073_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122090_| + (define |gx[1]#_g123075_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g122092_| + (define |gx[1]#_g123077_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122094_| + (define |gx[1]#_g123079_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122095_| + (define |gx[1]#_g123080_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122096_| + (define |gx[1]#_g123081_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122097_| + (define |gx[1]#_g123082_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122098_| + (define |gx[1]#_g123083_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122099_| + (define |gx[1]#_g123084_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122101_| + (define |gx[1]#_g123086_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122102_| + (define |gx[1]#_g123087_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122103_| + (define |gx[1]#_g123088_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122104_| + (define |gx[1]#_g123089_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122105_| + (define |gx[1]#_g123090_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122106_| + (define |gx[1]#_g123091_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122108_| + (define |gx[1]#_g123093_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122109_| + (define |gx[1]#_g123094_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122110_| + (define |gx[1]#_g123095_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122111_| + (define |gx[1]#_g123096_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122112_| + (define |gx[1]#_g123097_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122113_| + (define |gx[1]#_g123098_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122115_| + (define |gx[1]#_g123100_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122116_| + (define |gx[1]#_g123101_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122117_| + (define |gx[1]#_g123102_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122118_| + (define |gx[1]#_g123103_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122119_| + (define |gx[1]#_g123104_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122120_| + (define |gx[1]#_g123105_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122123_| + (define |gx[1]#_g123108_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122125_| + (define |gx[1]#_g123110_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g122127_| + (define |gx[1]#_g123112_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122129_| + (define |gx[1]#_g123114_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122130_| + (define |gx[1]#_g123115_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122131_| + (define |gx[1]#_g123116_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122132_| + (define |gx[1]#_g123117_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122134_| + (define |gx[1]#_g123119_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122135_| + (define |gx[1]#_g123120_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122136_| + (define |gx[1]#_g123121_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122137_| + (define |gx[1]#_g123122_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122139_| + (define |gx[1]#_g123124_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122140_| + (define |gx[1]#_g123125_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122141_| + (define |gx[1]#_g123126_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122142_| + (define |gx[1]#_g123127_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122144_| + (define |gx[1]#_g123129_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122145_| + (define |gx[1]#_g123130_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122146_| + (define |gx[1]#_g123131_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122147_| + (define |gx[1]#_g123132_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122149_| + (define |gx[1]#_g123134_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122151_| + (define |gx[1]#_g123136_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122153_| + (define |gx[1]#_g123138_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122155_| + (define |gx[1]#_g123140_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122157_| + (define |gx[1]#_g123142_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122159_| + (define |gx[1]#_g123144_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122161_| + (define |gx[1]#_g123146_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122163_| + (define |gx[1]#_g123148_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122165_| + (define |gx[1]#_g123150_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122167_| + (define |gx[1]#_g123152_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122169_| + (define |gx[1]#_g123154_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122171_| + (define |gx[1]#_g123156_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122172_| + (define |gx[1]#_g123157_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122173_| + (define |gx[1]#_g123158_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122175_| + (define |gx[1]#_g123160_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122176_| + (define |gx[1]#_g123161_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122177_| + (define |gx[1]#_g123162_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122179_| + (define |gx[1]#_g123164_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122180_| + (define |gx[1]#_g123165_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122181_| + (define |gx[1]#_g123166_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122183_| + (define |gx[1]#_g123168_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122184_| + (define |gx[1]#_g123169_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122185_| + (define |gx[1]#_g123170_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122187_| + (define |gx[1]#_g123172_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122189_| + (define |gx[1]#_g123174_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122191_| + (define |gx[1]#_g123176_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122193_| + (define |gx[1]#_g123178_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122195_| + (define |gx[1]#_g123180_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122196_| + (define |gx[1]#_g123181_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122197_| + (define |gx[1]#_g123182_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122199_| + (define |gx[1]#_g123184_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122200_| + (define |gx[1]#_g123185_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122201_| + (define |gx[1]#_g123186_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122203_| + (define |gx[1]#_g123188_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122204_| + (define |gx[1]#_g123189_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122205_| + (define |gx[1]#_g123190_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122207_| + (define |gx[1]#_g123192_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122208_| + (define |gx[1]#_g123193_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122209_| + (define |gx[1]#_g123194_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122212_| + (define |gx[1]#_g123197_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122214_| + (define |gx[1]#_g123199_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122216_| + (define |gx[1]#_g123201_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122218_| + (define |gx[1]#_g123203_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122219_| + (define |gx[1]#_g123204_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122220_| + (define |gx[1]#_g123205_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122222_| + (define |gx[1]#_g123207_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122223_| + (define |gx[1]#_g123208_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122224_| + (define |gx[1]#_g123209_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122226_| + (define |gx[1]#_g123211_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122227_| + (define |gx[1]#_g123212_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122228_| + (define |gx[1]#_g123213_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122230_| + (define |gx[1]#_g123215_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122231_| + (define |gx[1]#_g123216_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122232_| + (define |gx[1]#_g123217_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122234_| + (define |gx[1]#_g123219_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122236_| + (define |gx[1]#_g123221_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122238_| + (define |gx[1]#_g123223_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122240_| + (define |gx[1]#_g123225_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122242_| + (define |gx[1]#_g123227_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122243_| + (define |gx[1]#_g123228_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122244_| + (define |gx[1]#_g123229_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122246_| + (define |gx[1]#_g123231_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122247_| + (define |gx[1]#_g123232_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122248_| + (define |gx[1]#_g123233_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122250_| + (define |gx[1]#_g123235_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122251_| + (define |gx[1]#_g123236_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122252_| + (define |gx[1]#_g123237_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122254_| + (define |gx[1]#_g123239_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122255_| + (define |gx[1]#_g123240_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122256_| + (define |gx[1]#_g123241_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122259_| + (define |gx[1]#_g123244_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122261_| + (define |gx[1]#_g123246_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122263_| + (define |gx[1]#_g123248_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122265_| + (define |gx[1]#_g123250_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122266_| + (define |gx[1]#_g123251_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122267_| + (define |gx[1]#_g123252_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122269_| + (define |gx[1]#_g123254_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122270_| + (define |gx[1]#_g123255_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122271_| + (define |gx[1]#_g123256_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122273_| + (define |gx[1]#_g123258_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122274_| + (define |gx[1]#_g123259_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122275_| + (define |gx[1]#_g123260_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122277_| + (define |gx[1]#_g123262_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122278_| + (define |gx[1]#_g123263_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122279_| + (define |gx[1]#_g123264_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122281_| + (define |gx[1]#_g123266_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122283_| + (define |gx[1]#_g123268_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122285_| + (define |gx[1]#_g123270_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122287_| + (define |gx[1]#_g123272_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122289_| + (define |gx[1]#_g123274_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122290_| + (define |gx[1]#_g123275_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122291_| + (define |gx[1]#_g123276_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122293_| + (define |gx[1]#_g123278_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122294_| + (define |gx[1]#_g123279_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122295_| + (define |gx[1]#_g123280_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122297_| + (define |gx[1]#_g123282_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122298_| + (define |gx[1]#_g123283_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122299_| + (define |gx[1]#_g123284_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122301_| + (define |gx[1]#_g123286_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122302_| + (define |gx[1]#_g123287_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122303_| + (define |gx[1]#_g123288_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122306_| + (define |gx[1]#_g123291_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122308_| + (define |gx[1]#_g123293_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122310_| + (define |gx[1]#_g123295_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122312_| + (define |gx[1]#_g123297_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122314_| + (define |gx[1]#_g123299_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122316_| + (define |gx[1]#_g123301_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122318_| + (define |gx[1]#_g123303_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122320_| + (define |gx[1]#_g123305_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122322_| + (define |gx[1]#_g123307_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122324_| + (define |gx[1]#_g123309_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122326_| + (define |gx[1]#_g123311_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122328_| + (define |gx[1]#_g123313_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122330_| + (define |gx[1]#_g123315_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122332_| + (define |gx[1]#_g123317_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122334_| + (define |gx[1]#_g123319_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122337_| + (define |gx[1]#_g123322_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122339_| + (define |gx[1]#_g123324_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122341_| + (define |gx[1]#_g123326_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122343_| + (define |gx[1]#_g123328_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122345_| + (define |gx[1]#_g123330_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122347_| + (define |gx[1]#_g123332_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122349_| + (define |gx[1]#_g123334_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122352_| + (define |gx[1]#_g123337_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122354_| + (define |gx[1]#_g123339_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122356_| + (define |gx[1]#_g123341_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122358_| + (define |gx[1]#_g123343_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122360_| + (define |gx[1]#_g123345_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122362_| + (define |gx[1]#_g123347_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122364_| + (define |gx[1]#_g123349_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122366_| + (define |gx[1]#_g123351_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122368_| + (define |gx[1]#_g123353_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122370_| + (define |gx[1]#_g123355_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122372_| + (define |gx[1]#_g123357_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122374_| + (define |gx[1]#_g123359_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122376_| + (define |gx[1]#_g123361_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122378_| + (define |gx[1]#_g123363_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122380_| + (define |gx[1]#_g123365_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122383_| + (define |gx[1]#_g123368_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122385_| + (define |gx[1]#_g123370_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122387_| + (define |gx[1]#_g123372_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122389_| + (define |gx[1]#_g123374_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122390_| + (define |gx[1]#_g123375_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122391_| + (define |gx[1]#_g123376_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122393_| + (define |gx[1]#_g123378_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122394_| + (define |gx[1]#_g123379_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122395_| + (define |gx[1]#_g123380_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122397_| + (define |gx[1]#_g123382_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122398_| + (define |gx[1]#_g123383_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122399_| + (define |gx[1]#_g123384_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122401_| + (define |gx[1]#_g123386_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122402_| + (define |gx[1]#_g123387_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122403_| + (define |gx[1]#_g123388_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122405_| + (define |gx[1]#_g123390_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122407_| + (define |gx[1]#_g123392_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g122409_| + (define |gx[1]#_g123394_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122411_| + (define |gx[1]#_g123396_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122412_| + (define |gx[1]#_g123397_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122413_| + (define |gx[1]#_g123398_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122414_| + (define |gx[1]#_g123399_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122416_| + (define |gx[1]#_g123401_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122417_| + (define |gx[1]#_g123402_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122418_| + (define |gx[1]#_g123403_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122419_| + (define |gx[1]#_g123404_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122421_| + (define |gx[1]#_g123406_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122422_| + (define |gx[1]#_g123407_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122423_| + (define |gx[1]#_g123408_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122424_| + (define |gx[1]#_g123409_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122426_| + (define |gx[1]#_g123411_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122427_| + (define |gx[1]#_g123412_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122428_| + (define |gx[1]#_g123413_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122429_| + (define |gx[1]#_g123414_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj121603 + (let ((__obj122588 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121603 + __obj122588 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121603 + __obj122588 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj122588 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj122588 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122588 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122588 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122588 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122588 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 ':init! '11 '#f '#f)) - (let ((__tmp121684 |gx[1]#_g121685_|)) + (##unchecked-structure-set! __obj122588 ':init! '11 '#f '#f)) + (let ((__tmp122669 |gx[1]#_g122670_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121603 __tmp121684 '12 '#f '#f)) - (let ((__tmp121686 |gx[1]#_g121687_|)) + (##unchecked-structure-set! __obj122588 __tmp122669 '12 '#f '#f)) + (let ((__tmp122671 |gx[1]#_g122672_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121603 __tmp121686 '13 '#f '#f)) - (let ((__tmp121688 |gx[1]#_g121689_|)) + (##unchecked-structure-set! __obj122588 __tmp122671 '13 '#f '#f)) + (let ((__tmp122673 |gx[1]#_g122674_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121603 __tmp121688 '14 '#f '#f)) - (let ((__tmp121690 - (cons (cons 'id |gx[1]#_g121691_|) - (cons (cons 'table |gx[1]#_g121692_|) '())))) + (##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! __obj121603 __tmp121690 '15 '#f '#f)) - (let ((__tmp121693 - (cons (cons 'id |gx[1]#_g121694_|) - (cons (cons 'table |gx[1]#_g121695_|) '())))) + (##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! __obj121603 __tmp121693 '16 '#f '#f)) - (let ((__tmp121696 - (cons (cons 'id |gx[1]#_g121697_|) - (cons (cons 'table |gx[1]#_g121698_|) '())))) + (##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! __obj121603 __tmp121696 '17 '#f '#f)) - (let ((__tmp121699 - (cons (cons 'id |gx[1]#_g121700_|) - (cons (cons 'table |gx[1]#_g121701_|) '())))) + (##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! __obj121603 __tmp121699 '18 '#f '#f)) + (##unchecked-structure-set! __obj122588 __tmp122684 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122588 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122588 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121603 '() '20 '#f '#f)) - __obj121603)) + (##unchecked-structure-set! __obj122588 '() '20 '#f '#f)) + __obj122588)) (define |gx[:0:]#root-context| - (let ((__obj121604 + (let ((__obj122589 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121604 + __obj122589 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122589 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122589 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '(id table) '6 '#f '#f)) - (let ((__tmp121702 (cons |gx[1]#_g121703_| '()))) + (##unchecked-structure-set! __obj122589 '(id table) '6 '#f '#f)) + (let ((__tmp122687 (cons |gx[1]#_g122688_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121604 __tmp121702 '3 '#f '#f)) + (##unchecked-structure-set! __obj122589 __tmp122687 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122589 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122589 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122589 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '#f '11 '#f '#f)) - (let ((__tmp121704 |gx[1]#_g121705_|)) + (##unchecked-structure-set! __obj122589 '#f '11 '#f '#f)) + (let ((__tmp122689 |gx[1]#_g122690_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121604 __tmp121704 '12 '#f '#f)) - (let ((__tmp121706 |gx[1]#_g121707_|)) + (##unchecked-structure-set! __obj122589 __tmp122689 '12 '#f '#f)) + (let ((__tmp122691 |gx[1]#_g122692_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121604 __tmp121706 '13 '#f '#f)) - (let ((__tmp121708 |gx[1]#_g121709_|)) + (##unchecked-structure-set! __obj122589 __tmp122691 '13 '#f '#f)) + (let ((__tmp122693 |gx[1]#_g122694_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121604 __tmp121708 '14 '#f '#f)) - (let ((__tmp121710 - (cons (cons 'id |gx[1]#_g121711_|) - (cons (cons 'table |gx[1]#_g121712_|) '())))) + (##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! __obj121604 __tmp121710 '15 '#f '#f)) - (let ((__tmp121713 - (cons (cons 'id |gx[1]#_g121714_|) - (cons (cons 'table |gx[1]#_g121715_|) '())))) + (##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! __obj121604 __tmp121713 '16 '#f '#f)) - (let ((__tmp121716 - (cons (cons 'id |gx[1]#_g121717_|) - (cons (cons 'table |gx[1]#_g121718_|) '())))) + (##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! __obj121604 __tmp121716 '17 '#f '#f)) - (let ((__tmp121719 - (cons (cons 'id |gx[1]#_g121720_|) - (cons (cons 'table |gx[1]#_g121721_|) '())))) + (##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! __obj121604 __tmp121719 '18 '#f '#f)) + (##unchecked-structure-set! __obj122589 __tmp122704 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122589 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122589 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121604 '() '20 '#f '#f)) - __obj121604)) + (##unchecked-structure-set! __obj122589 '() '20 '#f '#f)) + __obj122589)) (define |gx[:0:]#phi-context| - (let ((__obj121605 + (let ((__obj122590 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121605 + __obj122590 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122590 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj122590 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121605 + __obj122590 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121722 (cons |gx[1]#_g121703_| '()))) + (let ((__tmp122707 (cons |gx[1]#_g122688_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121605 __tmp121722 '3 '#f '#f)) + (##unchecked-structure-set! __obj122590 __tmp122707 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122590 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122590 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122590 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '#f '11 '#f '#f)) - (let ((__tmp121723 |gx[1]#_g121724_|)) + (##unchecked-structure-set! __obj122590 '#f '11 '#f '#f)) + (let ((__tmp122708 |gx[1]#_g122709_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121605 __tmp121723 '12 '#f '#f)) - (let ((__tmp121725 |gx[1]#_g121726_|)) + (##unchecked-structure-set! __obj122590 __tmp122708 '12 '#f '#f)) + (let ((__tmp122710 |gx[1]#_g122711_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121605 __tmp121725 '13 '#f '#f)) - (let ((__tmp121727 |gx[1]#_g121728_|)) + (##unchecked-structure-set! __obj122590 __tmp122710 '13 '#f '#f)) + (let ((__tmp122712 |gx[1]#_g122713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121605 __tmp121727 '14 '#f '#f)) - (let ((__tmp121729 - (cons (cons 'super |gx[1]#_g121730_|) - (cons (cons 'up |gx[1]#_g121731_|) - (cons (cons 'down |gx[1]#_g121732_|) - (cons (cons 'id |gx[1]#_g121733_|) - (cons (cons 'table |gx[1]#_g121734_|) + (##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! __obj121605 __tmp121729 '15 '#f '#f)) - (let ((__tmp121735 - (cons (cons 'super |gx[1]#_g121736_|) - (cons (cons 'up |gx[1]#_g121737_|) - (cons (cons 'down |gx[1]#_g121738_|) - (cons (cons 'id |gx[1]#_g121739_|) - (cons (cons 'table |gx[1]#_g121740_|) + (##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! __obj121605 __tmp121735 '16 '#f '#f)) - (let ((__tmp121741 - (cons (cons 'super |gx[1]#_g121742_|) - (cons (cons 'up |gx[1]#_g121743_|) - (cons (cons 'down |gx[1]#_g121744_|) - (cons (cons 'id |gx[1]#_g121745_|) - (cons (cons 'table |gx[1]#_g121746_|) + (##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! __obj121605 __tmp121741 '17 '#f '#f)) - (let ((__tmp121747 - (cons (cons 'super |gx[1]#_g121748_|) - (cons (cons 'up |gx[1]#_g121749_|) - (cons (cons 'down |gx[1]#_g121750_|) - (cons (cons 'id |gx[1]#_g121751_|) - (cons (cons 'table |gx[1]#_g121752_|) + (##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! __obj121605 __tmp121747 '18 '#f '#f)) + (##unchecked-structure-set! __obj122590 __tmp122732 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122590 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122590 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121605 '() '20 '#f '#f)) - __obj121605)) + (##unchecked-structure-set! __obj122590 '() '20 '#f '#f)) + __obj122590)) (define |gx[:0:]#top-context| - (let ((__obj121606 + (let ((__obj122591 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121606 + __obj122591 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122591 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122591 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121606 + __obj122591 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121753 (cons |gx[1]#_g121754_| '()))) + (let ((__tmp122738 (cons |gx[1]#_g122739_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121606 __tmp121753 '3 '#f '#f)) + (##unchecked-structure-set! __obj122591 __tmp122738 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122591 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122591 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122591 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '#f '11 '#f '#f)) - (let ((__tmp121755 |gx[1]#_g121756_|)) + (##unchecked-structure-set! __obj122591 '#f '11 '#f '#f)) + (let ((__tmp122740 |gx[1]#_g122741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121606 __tmp121755 '12 '#f '#f)) - (let ((__tmp121757 |gx[1]#_g121758_|)) + (##unchecked-structure-set! __obj122591 __tmp122740 '12 '#f '#f)) + (let ((__tmp122742 |gx[1]#_g122743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121606 __tmp121757 '13 '#f '#f)) - (let ((__tmp121759 |gx[1]#_g121760_|)) + (##unchecked-structure-set! __obj122591 __tmp122742 '13 '#f '#f)) + (let ((__tmp122744 |gx[1]#_g122745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121606 __tmp121759 '14 '#f '#f)) - (let ((__tmp121761 - (cons (cons 'super |gx[1]#_g121762_|) - (cons (cons 'up |gx[1]#_g121763_|) - (cons (cons 'down |gx[1]#_g121764_|) - (cons (cons 'id |gx[1]#_g121765_|) - (cons (cons 'table |gx[1]#_g121766_|) + (##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! __obj121606 __tmp121761 '15 '#f '#f)) - (let ((__tmp121767 - (cons (cons 'super |gx[1]#_g121768_|) - (cons (cons 'up |gx[1]#_g121769_|) - (cons (cons 'down |gx[1]#_g121770_|) - (cons (cons 'id |gx[1]#_g121771_|) - (cons (cons 'table |gx[1]#_g121772_|) + (##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! __obj121606 __tmp121767 '16 '#f '#f)) - (let ((__tmp121773 - (cons (cons 'super |gx[1]#_g121774_|) - (cons (cons 'up |gx[1]#_g121775_|) - (cons (cons 'down |gx[1]#_g121776_|) - (cons (cons 'id |gx[1]#_g121777_|) - (cons (cons 'table |gx[1]#_g121778_|) + (##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! __obj121606 __tmp121773 '17 '#f '#f)) - (let ((__tmp121779 - (cons (cons 'super |gx[1]#_g121780_|) - (cons (cons 'up |gx[1]#_g121781_|) - (cons (cons 'down |gx[1]#_g121782_|) - (cons (cons 'id |gx[1]#_g121783_|) - (cons (cons 'table |gx[1]#_g121784_|) + (##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! __obj121606 __tmp121779 '18 '#f '#f)) + (##unchecked-structure-set! __obj122591 __tmp122764 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122591 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122591 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121606 '() '20 '#f '#f)) - __obj121606)) + (##unchecked-structure-set! __obj122591 '() '20 '#f '#f)) + __obj122591)) (define |gx[:0:]#module-context| - (let ((__obj121607 + (let ((__obj122592 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121607 + __obj122592 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122592 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121607 + __obj122592 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121607 + __obj122592 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp121785 (cons |gx[1]#_g121786_| '()))) + (let ((__tmp122770 (cons |gx[1]#_g122771_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121607 __tmp121785 '3 '#f '#f)) + (##unchecked-structure-set! __obj122592 __tmp122770 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122592 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122592 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122592 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 '#f '11 '#f '#f)) - (let ((__tmp121787 |gx[1]#_g121788_|)) + (##unchecked-structure-set! __obj122592 '#f '11 '#f '#f)) + (let ((__tmp122772 |gx[1]#_g122773_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121607 __tmp121787 '12 '#f '#f)) - (let ((__tmp121789 |gx[1]#_g121790_|)) + (##unchecked-structure-set! __obj122592 __tmp122772 '12 '#f '#f)) + (let ((__tmp122774 |gx[1]#_g122775_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121607 __tmp121789 '13 '#f '#f)) - (let ((__tmp121791 |gx[1]#_g121792_|)) + (##unchecked-structure-set! __obj122592 __tmp122774 '13 '#f '#f)) + (let ((__tmp122776 |gx[1]#_g122777_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121607 __tmp121791 '14 '#f '#f)) - (let ((__tmp121793 - (cons (cons 'ns |gx[1]#_g121794_|) - (cons (cons 'path |gx[1]#_g121795_|) - (cons (cons 'import |gx[1]#_g121796_|) - (cons (cons 'export |gx[1]#_g121797_|) - (cons (cons 'e |gx[1]#_g121798_|) + (##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]#_g121799_|) + |gx[1]#_g122784_|) (cons (cons 'super - |gx[1]#_g121800_|) + |gx[1]#_g122785_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121801_|) - (cons (cons 'down |gx[1]#_g121802_|) - (cons (cons 'id |gx[1]#_g121803_|) - (cons (cons 'table |gx[1]#_g121804_|) + |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! __obj121607 __tmp121793 '15 '#f '#f)) - (let ((__tmp121805 - (cons (cons 'ns |gx[1]#_g121806_|) - (cons (cons 'path |gx[1]#_g121807_|) - (cons (cons 'import |gx[1]#_g121808_|) - (cons (cons 'export |gx[1]#_g121809_|) - (cons (cons 'e |gx[1]#_g121810_|) + (##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]#_g121811_|) + |gx[1]#_g122796_|) (cons (cons 'super - |gx[1]#_g121812_|) + |gx[1]#_g122797_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121813_|) - (cons (cons 'down |gx[1]#_g121814_|) - (cons (cons 'id |gx[1]#_g121815_|) - (cons (cons 'table |gx[1]#_g121816_|) + |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! __obj121607 __tmp121805 '16 '#f '#f)) - (let ((__tmp121817 - (cons (cons 'ns |gx[1]#_g121818_|) - (cons (cons 'path |gx[1]#_g121819_|) - (cons (cons 'import |gx[1]#_g121820_|) - (cons (cons 'export |gx[1]#_g121821_|) - (cons (cons 'e |gx[1]#_g121822_|) + (##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]#_g121823_|) + |gx[1]#_g122808_|) (cons (cons 'super - |gx[1]#_g121824_|) + |gx[1]#_g122809_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121825_|) - (cons (cons 'down |gx[1]#_g121826_|) - (cons (cons 'id |gx[1]#_g121827_|) - (cons (cons 'table |gx[1]#_g121828_|) + |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! __obj121607 __tmp121817 '17 '#f '#f)) - (let ((__tmp121829 - (cons (cons 'ns |gx[1]#_g121830_|) - (cons (cons 'path |gx[1]#_g121831_|) - (cons (cons 'import |gx[1]#_g121832_|) - (cons (cons 'export |gx[1]#_g121833_|) - (cons (cons 'e |gx[1]#_g121834_|) + (##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]#_g121835_|) + |gx[1]#_g122820_|) (cons (cons 'super - |gx[1]#_g121836_|) + |gx[1]#_g122821_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121837_|) - (cons (cons 'down |gx[1]#_g121838_|) - (cons (cons 'id |gx[1]#_g121839_|) - (cons (cons 'table |gx[1]#_g121840_|) + |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! __obj121607 __tmp121829 '18 '#f '#f)) + (##unchecked-structure-set! __obj122592 __tmp122814 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122592 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122592 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121607 '() '20 '#f '#f)) - __obj121607)) + (##unchecked-structure-set! __obj122592 '() '20 '#f '#f)) + __obj122592)) (define |gx[:0:]#prelude-context| - (let ((__obj121608 + (let ((__obj122593 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121608 + __obj122593 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122593 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122593 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121608 + __obj122593 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp121841 (cons |gx[1]#_g121786_| '()))) + (let ((__tmp122826 (cons |gx[1]#_g122771_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121841 '3 '#f '#f)) + (##unchecked-structure-set! __obj122593 __tmp122826 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122593 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122593 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122593 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '#f '11 '#f '#f)) - (let ((__tmp121842 |gx[1]#_g121843_|)) + (##unchecked-structure-set! __obj122593 '#f '11 '#f '#f)) + (let ((__tmp122827 |gx[1]#_g122828_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121842 '12 '#f '#f)) - (let ((__tmp121844 |gx[1]#_g121845_|)) + (##unchecked-structure-set! __obj122593 __tmp122827 '12 '#f '#f)) + (let ((__tmp122829 |gx[1]#_g122830_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121844 '13 '#f '#f)) - (let ((__tmp121846 |gx[1]#_g121847_|)) + (##unchecked-structure-set! __obj122593 __tmp122829 '13 '#f '#f)) + (let ((__tmp122831 |gx[1]#_g122832_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121846 '14 '#f '#f)) - (let ((__tmp121848 - (cons (cons 'path |gx[1]#_g121849_|) - (cons (cons 'import |gx[1]#_g121850_|) - (cons (cons 'e |gx[1]#_g121851_|) - (cons (cons 'super |gx[1]#_g121852_|) - (cons (cons 'up |gx[1]#_g121853_|) + (##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]#_g121854_|) + |gx[1]#_g122839_|) (cons (cons 'id - |gx[1]#_g121855_|) + |gx[1]#_g122840_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121856_|) + |gx[1]#_g122841_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121848 '15 '#f '#f)) - (let ((__tmp121857 - (cons (cons 'path |gx[1]#_g121858_|) - (cons (cons 'import |gx[1]#_g121859_|) - (cons (cons 'e |gx[1]#_g121860_|) - (cons (cons 'super |gx[1]#_g121861_|) - (cons (cons 'up |gx[1]#_g121862_|) + (##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]#_g121863_|) + |gx[1]#_g122848_|) (cons (cons 'id - |gx[1]#_g121864_|) + |gx[1]#_g122849_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121865_|) + |gx[1]#_g122850_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121857 '16 '#f '#f)) - (let ((__tmp121866 - (cons (cons 'path |gx[1]#_g121867_|) - (cons (cons 'import |gx[1]#_g121868_|) - (cons (cons 'e |gx[1]#_g121869_|) - (cons (cons 'super |gx[1]#_g121870_|) - (cons (cons 'up |gx[1]#_g121871_|) + (##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]#_g121872_|) + |gx[1]#_g122857_|) (cons (cons 'id - |gx[1]#_g121873_|) + |gx[1]#_g122858_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121874_|) + |gx[1]#_g122859_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121866 '17 '#f '#f)) - (let ((__tmp121875 - (cons (cons 'path |gx[1]#_g121876_|) - (cons (cons 'import |gx[1]#_g121877_|) - (cons (cons 'e |gx[1]#_g121878_|) - (cons (cons 'super |gx[1]#_g121879_|) - (cons (cons 'up |gx[1]#_g121880_|) + (##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]#_g121881_|) + |gx[1]#_g122866_|) (cons (cons 'id - |gx[1]#_g121882_|) + |gx[1]#_g122867_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121883_|) + |gx[1]#_g122868_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121608 __tmp121875 '18 '#f '#f)) + (##unchecked-structure-set! __obj122593 __tmp122860 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122593 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122593 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121608 '() '20 '#f '#f)) - __obj121608)) + (##unchecked-structure-set! __obj122593 '() '20 '#f '#f)) + __obj122593)) (define |gx[:0:]#local-context| - (let ((__obj121609 + (let ((__obj122594 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121609 + __obj122594 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122594 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122594 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121609 + __obj122594 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121884 (cons |gx[1]#_g121754_| '()))) + (let ((__tmp122869 (cons |gx[1]#_g122739_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121609 __tmp121884 '3 '#f '#f)) + (##unchecked-structure-set! __obj122594 __tmp122869 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122594 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122594 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122594 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '#f '11 '#f '#f)) - (let ((__tmp121885 |gx[1]#_g121886_|)) + (##unchecked-structure-set! __obj122594 '#f '11 '#f '#f)) + (let ((__tmp122870 |gx[1]#_g122871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121609 __tmp121885 '12 '#f '#f)) - (let ((__tmp121887 |gx[1]#_g121888_|)) + (##unchecked-structure-set! __obj122594 __tmp122870 '12 '#f '#f)) + (let ((__tmp122872 |gx[1]#_g122873_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121609 __tmp121887 '13 '#f '#f)) - (let ((__tmp121889 |gx[1]#_g121890_|)) + (##unchecked-structure-set! __obj122594 __tmp122872 '13 '#f '#f)) + (let ((__tmp122874 |gx[1]#_g122875_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121609 __tmp121889 '14 '#f '#f)) - (let ((__tmp121891 - (cons (cons 'super |gx[1]#_g121892_|) - (cons (cons 'up |gx[1]#_g121893_|) - (cons (cons 'down |gx[1]#_g121894_|) - (cons (cons 'id |gx[1]#_g121895_|) - (cons (cons 'table |gx[1]#_g121896_|) + (##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! __obj121609 __tmp121891 '15 '#f '#f)) - (let ((__tmp121897 - (cons (cons 'super |gx[1]#_g121898_|) - (cons (cons 'up |gx[1]#_g121899_|) - (cons (cons 'down |gx[1]#_g121900_|) - (cons (cons 'id |gx[1]#_g121901_|) - (cons (cons 'table |gx[1]#_g121902_|) + (##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! __obj121609 __tmp121897 '16 '#f '#f)) - (let ((__tmp121903 - (cons (cons 'super |gx[1]#_g121904_|) - (cons (cons 'up |gx[1]#_g121905_|) - (cons (cons 'down |gx[1]#_g121906_|) - (cons (cons 'id |gx[1]#_g121907_|) - (cons (cons 'table |gx[1]#_g121908_|) + (##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! __obj121609 __tmp121903 '17 '#f '#f)) - (let ((__tmp121909 - (cons (cons 'super |gx[1]#_g121910_|) - (cons (cons 'up |gx[1]#_g121911_|) - (cons (cons 'down |gx[1]#_g121912_|) - (cons (cons 'id |gx[1]#_g121913_|) - (cons (cons 'table |gx[1]#_g121914_|) + (##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! __obj121609 __tmp121909 '18 '#f '#f)) + (##unchecked-structure-set! __obj122594 __tmp122894 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122594 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122594 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121609 '() '20 '#f '#f)) - __obj121609)) + (##unchecked-structure-set! __obj122594 '() '20 '#f '#f)) + __obj122594)) (define |gx[:0:]#binding| - (let ((__obj121610 + (let ((__obj122595 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj122595 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122595 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj122595 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj122595 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122595 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122595 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122595 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122595 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '#f '11 '#f '#f)) - (let ((__tmp121915 |gx[1]#_g121916_|)) + (##unchecked-structure-set! __obj122595 '#f '11 '#f '#f)) + (let ((__tmp122900 |gx[1]#_g122901_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121610 __tmp121915 '12 '#f '#f)) - (let ((__tmp121917 |gx[1]#_g121918_|)) + (##unchecked-structure-set! __obj122595 __tmp122900 '12 '#f '#f)) + (let ((__tmp122902 |gx[1]#_g122903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121610 __tmp121917 '13 '#f '#f)) - (let ((__tmp121919 |gx[1]#_g121920_|)) + (##unchecked-structure-set! __obj122595 __tmp122902 '13 '#f '#f)) + (let ((__tmp122904 |gx[1]#_g122905_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121610 __tmp121919 '14 '#f '#f)) - (let ((__tmp121921 - (cons (cons 'id |gx[1]#_g121922_|) - (cons (cons 'key |gx[1]#_g121923_|) - (cons (cons 'phi |gx[1]#_g121924_|) '()))))) + (##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! __obj121610 __tmp121921 '15 '#f '#f)) - (let ((__tmp121925 - (cons (cons 'id |gx[1]#_g121926_|) - (cons (cons 'key |gx[1]#_g121927_|) - (cons (cons 'phi |gx[1]#_g121928_|) '()))))) + (##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! __obj121610 __tmp121925 '16 '#f '#f)) - (let ((__tmp121929 - (cons (cons 'id |gx[1]#_g121930_|) - (cons (cons 'key |gx[1]#_g121931_|) - (cons (cons 'phi |gx[1]#_g121932_|) '()))))) + (##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! __obj121610 __tmp121929 '17 '#f '#f)) - (let ((__tmp121933 - (cons (cons 'id |gx[1]#_g121934_|) - (cons (cons 'key |gx[1]#_g121935_|) - (cons (cons 'phi |gx[1]#_g121936_|) '()))))) + (##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! __obj121610 __tmp121933 '18 '#f '#f)) + (##unchecked-structure-set! __obj122595 __tmp122918 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122595 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122595 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121610 '() '20 '#f '#f)) - __obj121610)) + (##unchecked-structure-set! __obj122595 '() '20 '#f '#f)) + __obj122595)) (define |gx[:0:]#runtime-binding| - (let ((__obj121611 + (let ((__obj122596 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121611 + __obj122596 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122596 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122596 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '(id key phi) '6 '#f '#f)) - (let ((__tmp121937 (cons |gx[1]#_g121938_| '()))) + (##unchecked-structure-set! __obj122596 '(id key phi) '6 '#f '#f)) + (let ((__tmp122922 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121611 __tmp121937 '3 '#f '#f)) + (##unchecked-structure-set! __obj122596 __tmp122922 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122596 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122596 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122596 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '#f '11 '#f '#f)) - (let ((__tmp121939 |gx[1]#_g121940_|)) + (##unchecked-structure-set! __obj122596 '#f '11 '#f '#f)) + (let ((__tmp122924 |gx[1]#_g122925_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121611 __tmp121939 '12 '#f '#f)) - (let ((__tmp121941 |gx[1]#_g121942_|)) + (##unchecked-structure-set! __obj122596 __tmp122924 '12 '#f '#f)) + (let ((__tmp122926 |gx[1]#_g122927_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121611 __tmp121941 '13 '#f '#f)) - (let ((__tmp121943 |gx[1]#_g121944_|)) + (##unchecked-structure-set! __obj122596 __tmp122926 '13 '#f '#f)) + (let ((__tmp122928 |gx[1]#_g122929_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121611 __tmp121943 '14 '#f '#f)) - (let ((__tmp121945 - (cons (cons 'id |gx[1]#_g121946_|) - (cons (cons 'key |gx[1]#_g121947_|) - (cons (cons 'phi |gx[1]#_g121948_|) '()))))) + (##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! __obj121611 __tmp121945 '15 '#f '#f)) - (let ((__tmp121949 - (cons (cons 'id |gx[1]#_g121950_|) - (cons (cons 'key |gx[1]#_g121951_|) - (cons (cons 'phi |gx[1]#_g121952_|) '()))))) + (##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! __obj121611 __tmp121949 '16 '#f '#f)) - (let ((__tmp121953 - (cons (cons 'id |gx[1]#_g121954_|) - (cons (cons 'key |gx[1]#_g121955_|) - (cons (cons 'phi |gx[1]#_g121956_|) '()))))) + (##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! __obj121611 __tmp121953 '17 '#f '#f)) - (let ((__tmp121957 - (cons (cons 'id |gx[1]#_g121958_|) - (cons (cons 'key |gx[1]#_g121959_|) - (cons (cons 'phi |gx[1]#_g121960_|) '()))))) + (##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! __obj121611 __tmp121957 '18 '#f '#f)) + (##unchecked-structure-set! __obj122596 __tmp122942 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122596 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122596 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121611 '() '20 '#f '#f)) - __obj121611)) + (##unchecked-structure-set! __obj122596 '() '20 '#f '#f)) + __obj122596)) (define |gx[:0:]#local-binding| - (let ((__obj121612 + (let ((__obj122597 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121612 + __obj122597 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122597 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122597 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '(id key phi) '6 '#f '#f)) - (let ((__tmp121961 (cons |gx[1]#_g121962_| '()))) + (##unchecked-structure-set! __obj122597 '(id key phi) '6 '#f '#f)) + (let ((__tmp122946 (cons |gx[1]#_g122947_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121612 __tmp121961 '3 '#f '#f)) + (##unchecked-structure-set! __obj122597 __tmp122946 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122597 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122597 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122597 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '#f '11 '#f '#f)) - (let ((__tmp121963 |gx[1]#_g121964_|)) + (##unchecked-structure-set! __obj122597 '#f '11 '#f '#f)) + (let ((__tmp122948 |gx[1]#_g122949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121612 __tmp121963 '12 '#f '#f)) - (let ((__tmp121965 |gx[1]#_g121966_|)) + (##unchecked-structure-set! __obj122597 __tmp122948 '12 '#f '#f)) + (let ((__tmp122950 |gx[1]#_g122951_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121612 __tmp121965 '13 '#f '#f)) - (let ((__tmp121967 |gx[1]#_g121968_|)) + (##unchecked-structure-set! __obj122597 __tmp122950 '13 '#f '#f)) + (let ((__tmp122952 |gx[1]#_g122953_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121612 __tmp121967 '14 '#f '#f)) - (let ((__tmp121969 - (cons (cons 'id |gx[1]#_g121970_|) - (cons (cons 'key |gx[1]#_g121971_|) - (cons (cons 'phi |gx[1]#_g121972_|) '()))))) + (##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! __obj121612 __tmp121969 '15 '#f '#f)) - (let ((__tmp121973 - (cons (cons 'id |gx[1]#_g121974_|) - (cons (cons 'key |gx[1]#_g121975_|) - (cons (cons 'phi |gx[1]#_g121976_|) '()))))) + (##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! __obj121612 __tmp121973 '16 '#f '#f)) - (let ((__tmp121977 - (cons (cons 'id |gx[1]#_g121978_|) - (cons (cons 'key |gx[1]#_g121979_|) - (cons (cons 'phi |gx[1]#_g121980_|) '()))))) + (##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! __obj121612 __tmp121977 '17 '#f '#f)) - (let ((__tmp121981 - (cons (cons 'id |gx[1]#_g121982_|) - (cons (cons 'key |gx[1]#_g121983_|) - (cons (cons 'phi |gx[1]#_g121984_|) '()))))) + (##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! __obj121612 __tmp121981 '18 '#f '#f)) + (##unchecked-structure-set! __obj122597 __tmp122966 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122597 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122597 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121612 '() '20 '#f '#f)) - __obj121612)) + (##unchecked-structure-set! __obj122597 '() '20 '#f '#f)) + __obj122597)) (define |gx[:0:]#top-binding| - (let ((__obj121613 + (let ((__obj122598 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121613 + __obj122598 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122598 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122598 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '(id key phi) '6 '#f '#f)) - (let ((__tmp121985 (cons |gx[1]#_g121962_| '()))) + (##unchecked-structure-set! __obj122598 '(id key phi) '6 '#f '#f)) + (let ((__tmp122970 (cons |gx[1]#_g122947_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121613 __tmp121985 '3 '#f '#f)) + (##unchecked-structure-set! __obj122598 __tmp122970 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122598 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122598 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122598 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '#f '11 '#f '#f)) - (let ((__tmp121986 |gx[1]#_g121987_|)) + (##unchecked-structure-set! __obj122598 '#f '11 '#f '#f)) + (let ((__tmp122971 |gx[1]#_g122972_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121613 __tmp121986 '12 '#f '#f)) - (let ((__tmp121988 |gx[1]#_g121989_|)) + (##unchecked-structure-set! __obj122598 __tmp122971 '12 '#f '#f)) + (let ((__tmp122973 |gx[1]#_g122974_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121613 __tmp121988 '13 '#f '#f)) - (let ((__tmp121990 |gx[1]#_g121991_|)) + (##unchecked-structure-set! __obj122598 __tmp122973 '13 '#f '#f)) + (let ((__tmp122975 |gx[1]#_g122976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121613 __tmp121990 '14 '#f '#f)) - (let ((__tmp121992 - (cons (cons 'id |gx[1]#_g121993_|) - (cons (cons 'key |gx[1]#_g121994_|) - (cons (cons 'phi |gx[1]#_g121995_|) '()))))) + (##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! __obj121613 __tmp121992 '15 '#f '#f)) - (let ((__tmp121996 - (cons (cons 'id |gx[1]#_g121997_|) - (cons (cons 'key |gx[1]#_g121998_|) - (cons (cons 'phi |gx[1]#_g121999_|) '()))))) + (##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! __obj121613 __tmp121996 '16 '#f '#f)) - (let ((__tmp122000 - (cons (cons 'id |gx[1]#_g122001_|) - (cons (cons 'key |gx[1]#_g122002_|) - (cons (cons 'phi |gx[1]#_g122003_|) '()))))) + (##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! __obj121613 __tmp122000 '17 '#f '#f)) - (let ((__tmp122004 - (cons (cons 'id |gx[1]#_g122005_|) - (cons (cons 'key |gx[1]#_g122006_|) - (cons (cons 'phi |gx[1]#_g122007_|) '()))))) + (##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! __obj121613 __tmp122004 '18 '#f '#f)) + (##unchecked-structure-set! __obj122598 __tmp122989 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122598 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122598 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121613 '() '20 '#f '#f)) - __obj121613)) + (##unchecked-structure-set! __obj122598 '() '20 '#f '#f)) + __obj122598)) (define |gx[:0:]#module-binding| - (let ((__obj121614 + (let ((__obj122599 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121614 + __obj122599 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122599 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj122599 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121614 + __obj122599 '(id key phi context) '6 '#f '#f)) - (let ((__tmp122008 (cons |gx[1]#_g122009_| '()))) + (let ((__tmp122993 (cons |gx[1]#_g122994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121614 __tmp122008 '3 '#f '#f)) + (##unchecked-structure-set! __obj122599 __tmp122993 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122599 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122599 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122599 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '#f '11 '#f '#f)) - (let ((__tmp122010 |gx[1]#_g122011_|)) + (##unchecked-structure-set! __obj122599 '#f '11 '#f '#f)) + (let ((__tmp122995 |gx[1]#_g122996_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121614 __tmp122010 '12 '#f '#f)) - (let ((__tmp122012 |gx[1]#_g122013_|)) + (##unchecked-structure-set! __obj122599 __tmp122995 '12 '#f '#f)) + (let ((__tmp122997 |gx[1]#_g122998_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121614 __tmp122012 '13 '#f '#f)) - (let ((__tmp122014 |gx[1]#_g122015_|)) + (##unchecked-structure-set! __obj122599 __tmp122997 '13 '#f '#f)) + (let ((__tmp122999 |gx[1]#_g123000_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121614 __tmp122014 '14 '#f '#f)) - (let ((__tmp122016 - (cons (cons 'context |gx[1]#_g122017_|) - (cons (cons 'id |gx[1]#_g122018_|) - (cons (cons 'key |gx[1]#_g122019_|) - (cons (cons 'phi |gx[1]#_g122020_|) '())))))) + (##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! __obj121614 __tmp122016 '15 '#f '#f)) - (let ((__tmp122021 - (cons (cons 'context |gx[1]#_g122022_|) - (cons (cons 'id |gx[1]#_g122023_|) - (cons (cons 'key |gx[1]#_g122024_|) - (cons (cons 'phi |gx[1]#_g122025_|) '())))))) + (##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! __obj121614 __tmp122021 '16 '#f '#f)) - (let ((__tmp122026 - (cons (cons 'context |gx[1]#_g122027_|) - (cons (cons 'id |gx[1]#_g122028_|) - (cons (cons 'key |gx[1]#_g122029_|) - (cons (cons 'phi |gx[1]#_g122030_|) '())))))) + (##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! __obj121614 __tmp122026 '17 '#f '#f)) - (let ((__tmp122031 - (cons (cons 'context |gx[1]#_g122032_|) - (cons (cons 'id |gx[1]#_g122033_|) - (cons (cons 'key |gx[1]#_g122034_|) - (cons (cons 'phi |gx[1]#_g122035_|) '())))))) + (##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! __obj121614 __tmp122031 '18 '#f '#f)) + (##unchecked-structure-set! __obj122599 __tmp123016 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122599 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122599 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121614 '() '20 '#f '#f)) - __obj121614)) + (##unchecked-structure-set! __obj122599 '() '20 '#f '#f)) + __obj122599)) (define |gx[:0:]#extern-binding| - (let ((__obj121615 + (let ((__obj122600 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121615 + __obj122600 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122600 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122600 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '(id key phi) '6 '#f '#f)) - (let ((__tmp122036 (cons |gx[1]#_g122009_| '()))) + (##unchecked-structure-set! __obj122600 '(id key phi) '6 '#f '#f)) + (let ((__tmp123021 (cons |gx[1]#_g122994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121615 __tmp122036 '3 '#f '#f)) + (##unchecked-structure-set! __obj122600 __tmp123021 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122600 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122600 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122600 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '#f '11 '#f '#f)) - (let ((__tmp122037 |gx[1]#_g122038_|)) + (##unchecked-structure-set! __obj122600 '#f '11 '#f '#f)) + (let ((__tmp123022 |gx[1]#_g123023_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121615 __tmp122037 '12 '#f '#f)) - (let ((__tmp122039 |gx[1]#_g122040_|)) + (##unchecked-structure-set! __obj122600 __tmp123022 '12 '#f '#f)) + (let ((__tmp123024 |gx[1]#_g123025_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121615 __tmp122039 '13 '#f '#f)) - (let ((__tmp122041 |gx[1]#_g122042_|)) + (##unchecked-structure-set! __obj122600 __tmp123024 '13 '#f '#f)) + (let ((__tmp123026 |gx[1]#_g123027_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121615 __tmp122041 '14 '#f '#f)) - (let ((__tmp122043 - (cons (cons 'id |gx[1]#_g122044_|) - (cons (cons 'key |gx[1]#_g122045_|) - (cons (cons 'phi |gx[1]#_g122046_|) '()))))) + (##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! __obj121615 __tmp122043 '15 '#f '#f)) - (let ((__tmp122047 - (cons (cons 'id |gx[1]#_g122048_|) - (cons (cons 'key |gx[1]#_g122049_|) - (cons (cons 'phi |gx[1]#_g122050_|) '()))))) + (##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! __obj121615 __tmp122047 '16 '#f '#f)) - (let ((__tmp122051 - (cons (cons 'id |gx[1]#_g122052_|) - (cons (cons 'key |gx[1]#_g122053_|) - (cons (cons 'phi |gx[1]#_g122054_|) '()))))) + (##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! __obj121615 __tmp122051 '17 '#f '#f)) - (let ((__tmp122055 - (cons (cons 'id |gx[1]#_g122056_|) - (cons (cons 'key |gx[1]#_g122057_|) - (cons (cons 'phi |gx[1]#_g122058_|) '()))))) + (##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! __obj121615 __tmp122055 '18 '#f '#f)) + (##unchecked-structure-set! __obj122600 __tmp123040 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122600 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122600 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121615 '() '20 '#f '#f)) - __obj121615)) + (##unchecked-structure-set! __obj122600 '() '20 '#f '#f)) + __obj122600)) (define |gx[:0:]#syntax-binding| - (let ((__obj121616 + (let ((__obj122601 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121616 + __obj122601 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122601 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122601 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '(id key phi e) '6 '#f '#f)) - (let ((__tmp122059 (cons |gx[1]#_g121938_| '()))) + (##unchecked-structure-set! __obj122601 '(id key phi e) '6 '#f '#f)) + (let ((__tmp123044 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121616 __tmp122059 '3 '#f '#f)) + (##unchecked-structure-set! __obj122601 __tmp123044 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122601 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122601 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122601 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '#f '11 '#f '#f)) - (let ((__tmp122060 |gx[1]#_g122061_|)) + (##unchecked-structure-set! __obj122601 '#f '11 '#f '#f)) + (let ((__tmp123045 |gx[1]#_g123046_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121616 __tmp122060 '12 '#f '#f)) - (let ((__tmp122062 |gx[1]#_g122063_|)) + (##unchecked-structure-set! __obj122601 __tmp123045 '12 '#f '#f)) + (let ((__tmp123047 |gx[1]#_g123048_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121616 __tmp122062 '13 '#f '#f)) - (let ((__tmp122064 |gx[1]#_g122065_|)) + (##unchecked-structure-set! __obj122601 __tmp123047 '13 '#f '#f)) + (let ((__tmp123049 |gx[1]#_g123050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121616 __tmp122064 '14 '#f '#f)) - (let ((__tmp122066 - (cons (cons 'e |gx[1]#_g122067_|) - (cons (cons 'id |gx[1]#_g122068_|) - (cons (cons 'key |gx[1]#_g122069_|) - (cons (cons 'phi |gx[1]#_g122070_|) '())))))) + (##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! __obj121616 __tmp122066 '15 '#f '#f)) - (let ((__tmp122071 - (cons (cons 'e |gx[1]#_g122072_|) - (cons (cons 'id |gx[1]#_g122073_|) - (cons (cons 'key |gx[1]#_g122074_|) - (cons (cons 'phi |gx[1]#_g122075_|) '())))))) + (##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! __obj121616 __tmp122071 '16 '#f '#f)) - (let ((__tmp122076 - (cons (cons 'e |gx[1]#_g122077_|) - (cons (cons 'id |gx[1]#_g122078_|) - (cons (cons 'key |gx[1]#_g122079_|) - (cons (cons 'phi |gx[1]#_g122080_|) '())))))) + (##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! __obj121616 __tmp122076 '17 '#f '#f)) - (let ((__tmp122081 - (cons (cons 'e |gx[1]#_g122082_|) - (cons (cons 'id |gx[1]#_g122083_|) - (cons (cons 'key |gx[1]#_g122084_|) - (cons (cons 'phi |gx[1]#_g122085_|) '())))))) + (##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! __obj121616 __tmp122081 '18 '#f '#f)) + (##unchecked-structure-set! __obj122601 __tmp123066 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122601 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122601 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121616 '() '20 '#f '#f)) - __obj121616)) + (##unchecked-structure-set! __obj122601 '() '20 '#f '#f)) + __obj122601)) (define |gx[:0:]#import-binding| - (let ((__obj121617 + (let ((__obj122602 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121617 + __obj122602 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122602 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121617 + __obj122602 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121617 + __obj122602 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp122086 (cons |gx[1]#_g121938_| '()))) + (let ((__tmp123071 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122086 '3 '#f '#f)) + (##unchecked-structure-set! __obj122602 __tmp123071 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122602 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122602 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122602 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 '#f '11 '#f '#f)) - (let ((__tmp122087 |gx[1]#_g122088_|)) + (##unchecked-structure-set! __obj122602 '#f '11 '#f '#f)) + (let ((__tmp123072 |gx[1]#_g123073_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122087 '12 '#f '#f)) - (let ((__tmp122089 |gx[1]#_g122090_|)) + (##unchecked-structure-set! __obj122602 __tmp123072 '12 '#f '#f)) + (let ((__tmp123074 |gx[1]#_g123075_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122089 '13 '#f '#f)) - (let ((__tmp122091 |gx[1]#_g122092_|)) + (##unchecked-structure-set! __obj122602 __tmp123074 '13 '#f '#f)) + (let ((__tmp123076 |gx[1]#_g123077_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122091 '14 '#f '#f)) - (let ((__tmp122093 - (cons (cons 'e |gx[1]#_g122094_|) - (cons (cons 'context |gx[1]#_g122095_|) - (cons (cons 'weak? |gx[1]#_g122096_|) - (cons (cons 'id |gx[1]#_g122097_|) - (cons (cons 'key |gx[1]#_g122098_|) + (##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]#_g122099_|) + |gx[1]#_g123084_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122093 '15 '#f '#f)) - (let ((__tmp122100 - (cons (cons 'e |gx[1]#_g122101_|) - (cons (cons 'context |gx[1]#_g122102_|) - (cons (cons 'weak? |gx[1]#_g122103_|) - (cons (cons 'id |gx[1]#_g122104_|) - (cons (cons 'key |gx[1]#_g122105_|) + (##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]#_g122106_|) + |gx[1]#_g123091_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122100 '16 '#f '#f)) - (let ((__tmp122107 - (cons (cons 'e |gx[1]#_g122108_|) - (cons (cons 'context |gx[1]#_g122109_|) - (cons (cons 'weak? |gx[1]#_g122110_|) - (cons (cons 'id |gx[1]#_g122111_|) - (cons (cons 'key |gx[1]#_g122112_|) + (##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]#_g122113_|) + |gx[1]#_g123098_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122107 '17 '#f '#f)) - (let ((__tmp122114 - (cons (cons 'e |gx[1]#_g122115_|) - (cons (cons 'context |gx[1]#_g122116_|) - (cons (cons 'weak? |gx[1]#_g122117_|) - (cons (cons 'id |gx[1]#_g122118_|) - (cons (cons 'key |gx[1]#_g122119_|) + (##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]#_g122120_|) + |gx[1]#_g123105_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121617 __tmp122114 '18 '#f '#f)) + (##unchecked-structure-set! __obj122602 __tmp123099 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122602 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122602 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121617 '() '20 '#f '#f)) - __obj121617)) + (##unchecked-structure-set! __obj122602 '() '20 '#f '#f)) + __obj122602)) (define |gx[:0:]#alias-binding| - (let ((__obj121618 + (let ((__obj122603 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121618 + __obj122603 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122603 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122603 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '(id key phi e) '6 '#f '#f)) - (let ((__tmp122121 (cons |gx[1]#_g121938_| '()))) + (##unchecked-structure-set! __obj122603 '(id key phi e) '6 '#f '#f)) + (let ((__tmp123106 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121618 __tmp122121 '3 '#f '#f)) + (##unchecked-structure-set! __obj122603 __tmp123106 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122603 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122603 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122603 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '#f '11 '#f '#f)) - (let ((__tmp122122 |gx[1]#_g122123_|)) + (##unchecked-structure-set! __obj122603 '#f '11 '#f '#f)) + (let ((__tmp123107 |gx[1]#_g123108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121618 __tmp122122 '12 '#f '#f)) - (let ((__tmp122124 |gx[1]#_g122125_|)) + (##unchecked-structure-set! __obj122603 __tmp123107 '12 '#f '#f)) + (let ((__tmp123109 |gx[1]#_g123110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121618 __tmp122124 '13 '#f '#f)) - (let ((__tmp122126 |gx[1]#_g122127_|)) + (##unchecked-structure-set! __obj122603 __tmp123109 '13 '#f '#f)) + (let ((__tmp123111 |gx[1]#_g123112_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121618 __tmp122126 '14 '#f '#f)) - (let ((__tmp122128 - (cons (cons 'e |gx[1]#_g122129_|) - (cons (cons 'id |gx[1]#_g122130_|) - (cons (cons 'key |gx[1]#_g122131_|) - (cons (cons 'phi |gx[1]#_g122132_|) '())))))) + (##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! __obj121618 __tmp122128 '15 '#f '#f)) - (let ((__tmp122133 - (cons (cons 'e |gx[1]#_g122134_|) - (cons (cons 'id |gx[1]#_g122135_|) - (cons (cons 'key |gx[1]#_g122136_|) - (cons (cons 'phi |gx[1]#_g122137_|) '())))))) + (##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! __obj121618 __tmp122133 '16 '#f '#f)) - (let ((__tmp122138 - (cons (cons 'e |gx[1]#_g122139_|) - (cons (cons 'id |gx[1]#_g122140_|) - (cons (cons 'key |gx[1]#_g122141_|) - (cons (cons 'phi |gx[1]#_g122142_|) '())))))) + (##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! __obj121618 __tmp122138 '17 '#f '#f)) - (let ((__tmp122143 - (cons (cons 'e |gx[1]#_g122144_|) - (cons (cons 'id |gx[1]#_g122145_|) - (cons (cons 'key |gx[1]#_g122146_|) - (cons (cons 'phi |gx[1]#_g122147_|) '())))))) + (##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! __obj121618 __tmp122143 '18 '#f '#f)) + (##unchecked-structure-set! __obj122603 __tmp123128 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122603 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122603 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121618 '() '20 '#f '#f)) - __obj121618)) + (##unchecked-structure-set! __obj122603 '() '20 '#f '#f)) + __obj122603)) (define |gx[:0:]#expander| - (let ((__obj121619 + (let ((__obj122604 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj122604 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122604 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122604 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj122604 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122604 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122604 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122604 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122604 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '#f '11 '#f '#f)) - (let ((__tmp122148 |gx[1]#_g122149_|)) + (##unchecked-structure-set! __obj122604 '#f '11 '#f '#f)) + (let ((__tmp123133 |gx[1]#_g123134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121619 __tmp122148 '12 '#f '#f)) - (let ((__tmp122150 |gx[1]#_g122151_|)) + (##unchecked-structure-set! __obj122604 __tmp123133 '12 '#f '#f)) + (let ((__tmp123135 |gx[1]#_g123136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121619 __tmp122150 '13 '#f '#f)) - (let ((__tmp122152 |gx[1]#_g122153_|)) + (##unchecked-structure-set! __obj122604 __tmp123135 '13 '#f '#f)) + (let ((__tmp123137 |gx[1]#_g123138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121619 __tmp122152 '14 '#f '#f)) - (let ((__tmp122154 (cons (cons 'e |gx[1]#_g122155_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123137 '14 '#f '#f)) + (let ((__tmp123139 (cons (cons 'e |gx[1]#_g123140_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121619 __tmp122154 '15 '#f '#f)) - (let ((__tmp122156 (cons (cons 'e |gx[1]#_g122157_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123139 '15 '#f '#f)) + (let ((__tmp123141 (cons (cons 'e |gx[1]#_g123142_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121619 __tmp122156 '16 '#f '#f)) - (let ((__tmp122158 (cons (cons 'e |gx[1]#_g122159_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123141 '16 '#f '#f)) + (let ((__tmp123143 (cons (cons 'e |gx[1]#_g123144_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121619 __tmp122158 '17 '#f '#f)) - (let ((__tmp122160 (cons (cons 'e |gx[1]#_g122161_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123143 '17 '#f '#f)) + (let ((__tmp123145 (cons (cons 'e |gx[1]#_g123146_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121619 __tmp122160 '18 '#f '#f)) + (##unchecked-structure-set! __obj122604 __tmp123145 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122604 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122604 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121619 '() '20 '#f '#f)) - __obj121619)) + (##unchecked-structure-set! __obj122604 '() '20 '#f '#f)) + __obj122604)) (define |gx[:0:]#core-expander| - (let ((__obj121620 + (let ((__obj122605 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121620 + __obj122605 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122605 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121620 + __obj122605 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121620 + __obj122605 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122162 (cons |gx[1]#_g122163_| '()))) + (let ((__tmp123147 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121620 __tmp122162 '3 '#f '#f)) + (##unchecked-structure-set! __obj122605 __tmp123147 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122605 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122605 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122605 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 '#f '11 '#f '#f)) - (let ((__tmp122164 |gx[1]#_g122165_|)) + (##unchecked-structure-set! __obj122605 '#f '11 '#f '#f)) + (let ((__tmp123149 |gx[1]#_g123150_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121620 __tmp122164 '12 '#f '#f)) - (let ((__tmp122166 |gx[1]#_g122167_|)) + (##unchecked-structure-set! __obj122605 __tmp123149 '12 '#f '#f)) + (let ((__tmp123151 |gx[1]#_g123152_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121620 __tmp122166 '13 '#f '#f)) - (let ((__tmp122168 |gx[1]#_g122169_|)) + (##unchecked-structure-set! __obj122605 __tmp123151 '13 '#f '#f)) + (let ((__tmp123153 |gx[1]#_g123154_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121620 __tmp122168 '14 '#f '#f)) - (let ((__tmp122170 - (cons (cons 'id |gx[1]#_g122171_|) - (cons (cons 'compile-top |gx[1]#_g122172_|) - (cons (cons 'e |gx[1]#_g122173_|) '()))))) + (##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! __obj121620 __tmp122170 '15 '#f '#f)) - (let ((__tmp122174 - (cons (cons 'id |gx[1]#_g122175_|) - (cons (cons 'compile-top |gx[1]#_g122176_|) - (cons (cons 'e |gx[1]#_g122177_|) '()))))) + (##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! __obj121620 __tmp122174 '16 '#f '#f)) - (let ((__tmp122178 - (cons (cons 'id |gx[1]#_g122179_|) - (cons (cons 'compile-top |gx[1]#_g122180_|) - (cons (cons 'e |gx[1]#_g122181_|) '()))))) + (##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! __obj121620 __tmp122178 '17 '#f '#f)) - (let ((__tmp122182 - (cons (cons 'id |gx[1]#_g122183_|) - (cons (cons 'compile-top |gx[1]#_g122184_|) - (cons (cons 'e |gx[1]#_g122185_|) '()))))) + (##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! __obj121620 __tmp122182 '18 '#f '#f)) + (##unchecked-structure-set! __obj122605 __tmp123167 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122605 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122605 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121620 '() '20 '#f '#f)) - __obj121620)) + (##unchecked-structure-set! __obj122605 '() '20 '#f '#f)) + __obj122605)) (define |gx[:0:]#expression-form| - (let ((__obj121621 + (let ((__obj122606 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121621 + __obj122606 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj122606 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122606 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121621 + __obj122606 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122186 (cons |gx[1]#_g122187_| '()))) + (let ((__tmp123171 (cons |gx[1]#_g123172_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121621 __tmp122186 '3 '#f '#f)) + (##unchecked-structure-set! __obj122606 __tmp123171 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122606 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122606 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122606 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '#f '11 '#f '#f)) - (let ((__tmp122188 |gx[1]#_g122189_|)) + (##unchecked-structure-set! __obj122606 '#f '11 '#f '#f)) + (let ((__tmp123173 |gx[1]#_g123174_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121621 __tmp122188 '12 '#f '#f)) - (let ((__tmp122190 |gx[1]#_g122191_|)) + (##unchecked-structure-set! __obj122606 __tmp123173 '12 '#f '#f)) + (let ((__tmp123175 |gx[1]#_g123176_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121621 __tmp122190 '13 '#f '#f)) - (let ((__tmp122192 |gx[1]#_g122193_|)) + (##unchecked-structure-set! __obj122606 __tmp123175 '13 '#f '#f)) + (let ((__tmp123177 |gx[1]#_g123178_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121621 __tmp122192 '14 '#f '#f)) - (let ((__tmp122194 - (cons (cons 'id |gx[1]#_g122195_|) - (cons (cons 'compile-top |gx[1]#_g122196_|) - (cons (cons 'e |gx[1]#_g122197_|) '()))))) + (##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! __obj121621 __tmp122194 '15 '#f '#f)) - (let ((__tmp122198 - (cons (cons 'id |gx[1]#_g122199_|) - (cons (cons 'compile-top |gx[1]#_g122200_|) - (cons (cons 'e |gx[1]#_g122201_|) '()))))) + (##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! __obj121621 __tmp122198 '16 '#f '#f)) - (let ((__tmp122202 - (cons (cons 'id |gx[1]#_g122203_|) - (cons (cons 'compile-top |gx[1]#_g122204_|) - (cons (cons 'e |gx[1]#_g122205_|) '()))))) + (##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! __obj121621 __tmp122202 '17 '#f '#f)) - (let ((__tmp122206 - (cons (cons 'id |gx[1]#_g122207_|) - (cons (cons 'compile-top |gx[1]#_g122208_|) - (cons (cons 'e |gx[1]#_g122209_|) '()))))) + (##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! __obj121621 __tmp122206 '18 '#f '#f)) + (##unchecked-structure-set! __obj122606 __tmp123191 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122606 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122606 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121621 '() '20 '#f '#f)) - __obj121621)) + (##unchecked-structure-set! __obj122606 '() '20 '#f '#f)) + __obj122606)) (define |gx[:0:]#special-form| - (let ((__obj121622 + (let ((__obj122607 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121622 + __obj122607 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj122607 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122607 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121622 + __obj122607 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122210 (cons |gx[1]#_g122187_| '()))) + (let ((__tmp123195 (cons |gx[1]#_g123172_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121622 __tmp122210 '3 '#f '#f)) + (##unchecked-structure-set! __obj122607 __tmp123195 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122607 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122607 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122607 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '#f '11 '#f '#f)) - (let ((__tmp122211 |gx[1]#_g122212_|)) + (##unchecked-structure-set! __obj122607 '#f '11 '#f '#f)) + (let ((__tmp123196 |gx[1]#_g123197_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121622 __tmp122211 '12 '#f '#f)) - (let ((__tmp122213 |gx[1]#_g122214_|)) + (##unchecked-structure-set! __obj122607 __tmp123196 '12 '#f '#f)) + (let ((__tmp123198 |gx[1]#_g123199_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121622 __tmp122213 '13 '#f '#f)) - (let ((__tmp122215 |gx[1]#_g122216_|)) + (##unchecked-structure-set! __obj122607 __tmp123198 '13 '#f '#f)) + (let ((__tmp123200 |gx[1]#_g123201_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121622 __tmp122215 '14 '#f '#f)) - (let ((__tmp122217 - (cons (cons 'id |gx[1]#_g122218_|) - (cons (cons 'compile-top |gx[1]#_g122219_|) - (cons (cons 'e |gx[1]#_g122220_|) '()))))) + (##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! __obj121622 __tmp122217 '15 '#f '#f)) - (let ((__tmp122221 - (cons (cons 'id |gx[1]#_g122222_|) - (cons (cons 'compile-top |gx[1]#_g122223_|) - (cons (cons 'e |gx[1]#_g122224_|) '()))))) + (##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! __obj121622 __tmp122221 '16 '#f '#f)) - (let ((__tmp122225 - (cons (cons 'id |gx[1]#_g122226_|) - (cons (cons 'compile-top |gx[1]#_g122227_|) - (cons (cons 'e |gx[1]#_g122228_|) '()))))) + (##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! __obj121622 __tmp122225 '17 '#f '#f)) - (let ((__tmp122229 - (cons (cons 'id |gx[1]#_g122230_|) - (cons (cons 'compile-top |gx[1]#_g122231_|) - (cons (cons 'e |gx[1]#_g122232_|) '()))))) + (##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! __obj121622 __tmp122229 '18 '#f '#f)) + (##unchecked-structure-set! __obj122607 __tmp123214 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122607 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122607 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121622 '() '20 '#f '#f)) - __obj121622)) + (##unchecked-structure-set! __obj122607 '() '20 '#f '#f)) + __obj122607)) (define |gx[:0:]#definition-form| - (let ((__obj121623 + (let ((__obj122608 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121623 + __obj122608 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj122608 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122608 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121623 + __obj122608 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122233 (cons |gx[1]#_g122234_| '()))) + (let ((__tmp123218 (cons |gx[1]#_g123219_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121623 __tmp122233 '3 '#f '#f)) + (##unchecked-structure-set! __obj122608 __tmp123218 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122608 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122608 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122608 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '#f '11 '#f '#f)) - (let ((__tmp122235 |gx[1]#_g122236_|)) + (##unchecked-structure-set! __obj122608 '#f '11 '#f '#f)) + (let ((__tmp123220 |gx[1]#_g123221_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121623 __tmp122235 '12 '#f '#f)) - (let ((__tmp122237 |gx[1]#_g122238_|)) + (##unchecked-structure-set! __obj122608 __tmp123220 '12 '#f '#f)) + (let ((__tmp123222 |gx[1]#_g123223_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121623 __tmp122237 '13 '#f '#f)) - (let ((__tmp122239 |gx[1]#_g122240_|)) + (##unchecked-structure-set! __obj122608 __tmp123222 '13 '#f '#f)) + (let ((__tmp123224 |gx[1]#_g123225_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121623 __tmp122239 '14 '#f '#f)) - (let ((__tmp122241 - (cons (cons 'id |gx[1]#_g122242_|) - (cons (cons 'compile-top |gx[1]#_g122243_|) - (cons (cons 'e |gx[1]#_g122244_|) '()))))) + (##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! __obj121623 __tmp122241 '15 '#f '#f)) - (let ((__tmp122245 - (cons (cons 'id |gx[1]#_g122246_|) - (cons (cons 'compile-top |gx[1]#_g122247_|) - (cons (cons 'e |gx[1]#_g122248_|) '()))))) + (##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! __obj121623 __tmp122245 '16 '#f '#f)) - (let ((__tmp122249 - (cons (cons 'id |gx[1]#_g122250_|) - (cons (cons 'compile-top |gx[1]#_g122251_|) - (cons (cons 'e |gx[1]#_g122252_|) '()))))) + (##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! __obj121623 __tmp122249 '17 '#f '#f)) - (let ((__tmp122253 - (cons (cons 'id |gx[1]#_g122254_|) - (cons (cons 'compile-top |gx[1]#_g122255_|) - (cons (cons 'e |gx[1]#_g122256_|) '()))))) + (##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! __obj121623 __tmp122253 '18 '#f '#f)) + (##unchecked-structure-set! __obj122608 __tmp123238 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122608 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122608 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121623 '() '20 '#f '#f)) - __obj121623)) + (##unchecked-structure-set! __obj122608 '() '20 '#f '#f)) + __obj122608)) (define |gx[:0:]#top-special-form| - (let ((__obj121624 + (let ((__obj122609 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121624 + __obj122609 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121624 + __obj122609 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122609 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121624 + __obj122609 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122257 (cons |gx[1]#_g122234_| '()))) + (let ((__tmp123242 (cons |gx[1]#_g123219_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121624 __tmp122257 '3 '#f '#f)) + (##unchecked-structure-set! __obj122609 __tmp123242 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122609 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122609 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122609 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '#f '11 '#f '#f)) - (let ((__tmp122258 |gx[1]#_g122259_|)) + (##unchecked-structure-set! __obj122609 '#f '11 '#f '#f)) + (let ((__tmp123243 |gx[1]#_g123244_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121624 __tmp122258 '12 '#f '#f)) - (let ((__tmp122260 |gx[1]#_g122261_|)) + (##unchecked-structure-set! __obj122609 __tmp123243 '12 '#f '#f)) + (let ((__tmp123245 |gx[1]#_g123246_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121624 __tmp122260 '13 '#f '#f)) - (let ((__tmp122262 |gx[1]#_g122263_|)) + (##unchecked-structure-set! __obj122609 __tmp123245 '13 '#f '#f)) + (let ((__tmp123247 |gx[1]#_g123248_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121624 __tmp122262 '14 '#f '#f)) - (let ((__tmp122264 - (cons (cons 'id |gx[1]#_g122265_|) - (cons (cons 'compile-top |gx[1]#_g122266_|) - (cons (cons 'e |gx[1]#_g122267_|) '()))))) + (##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! __obj121624 __tmp122264 '15 '#f '#f)) - (let ((__tmp122268 - (cons (cons 'id |gx[1]#_g122269_|) - (cons (cons 'compile-top |gx[1]#_g122270_|) - (cons (cons 'e |gx[1]#_g122271_|) '()))))) + (##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! __obj121624 __tmp122268 '16 '#f '#f)) - (let ((__tmp122272 - (cons (cons 'id |gx[1]#_g122273_|) - (cons (cons 'compile-top |gx[1]#_g122274_|) - (cons (cons 'e |gx[1]#_g122275_|) '()))))) + (##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! __obj121624 __tmp122272 '17 '#f '#f)) - (let ((__tmp122276 - (cons (cons 'id |gx[1]#_g122277_|) - (cons (cons 'compile-top |gx[1]#_g122278_|) - (cons (cons 'e |gx[1]#_g122279_|) '()))))) + (##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! __obj121624 __tmp122276 '18 '#f '#f)) + (##unchecked-structure-set! __obj122609 __tmp123261 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122609 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122609 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121624 '() '20 '#f '#f)) - __obj121624)) + (##unchecked-structure-set! __obj122609 '() '20 '#f '#f)) + __obj122609)) (define |gx[:0:]#module-special-form| - (let ((__obj121625 + (let ((__obj122610 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121625 + __obj122610 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121625 + __obj122610 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122610 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121625 + __obj122610 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122280 (cons |gx[1]#_g122281_| '()))) + (let ((__tmp123265 (cons |gx[1]#_g123266_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121625 __tmp122280 '3 '#f '#f)) + (##unchecked-structure-set! __obj122610 __tmp123265 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122610 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122610 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122610 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '#f '11 '#f '#f)) - (let ((__tmp122282 |gx[1]#_g122283_|)) + (##unchecked-structure-set! __obj122610 '#f '11 '#f '#f)) + (let ((__tmp123267 |gx[1]#_g123268_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121625 __tmp122282 '12 '#f '#f)) - (let ((__tmp122284 |gx[1]#_g122285_|)) + (##unchecked-structure-set! __obj122610 __tmp123267 '12 '#f '#f)) + (let ((__tmp123269 |gx[1]#_g123270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121625 __tmp122284 '13 '#f '#f)) - (let ((__tmp122286 |gx[1]#_g122287_|)) + (##unchecked-structure-set! __obj122610 __tmp123269 '13 '#f '#f)) + (let ((__tmp123271 |gx[1]#_g123272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121625 __tmp122286 '14 '#f '#f)) - (let ((__tmp122288 - (cons (cons 'id |gx[1]#_g122289_|) - (cons (cons 'compile-top |gx[1]#_g122290_|) - (cons (cons 'e |gx[1]#_g122291_|) '()))))) + (##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! __obj121625 __tmp122288 '15 '#f '#f)) - (let ((__tmp122292 - (cons (cons 'id |gx[1]#_g122293_|) - (cons (cons 'compile-top |gx[1]#_g122294_|) - (cons (cons 'e |gx[1]#_g122295_|) '()))))) + (##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! __obj121625 __tmp122292 '16 '#f '#f)) - (let ((__tmp122296 - (cons (cons 'id |gx[1]#_g122297_|) - (cons (cons 'compile-top |gx[1]#_g122298_|) - (cons (cons 'e |gx[1]#_g122299_|) '()))))) + (##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! __obj121625 __tmp122296 '17 '#f '#f)) - (let ((__tmp122300 - (cons (cons 'id |gx[1]#_g122301_|) - (cons (cons 'compile-top |gx[1]#_g122302_|) - (cons (cons 'e |gx[1]#_g122303_|) '()))))) + (##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! __obj121625 __tmp122300 '18 '#f '#f)) + (##unchecked-structure-set! __obj122610 __tmp123285 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122610 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122610 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121625 '() '20 '#f '#f)) - __obj121625)) + (##unchecked-structure-set! __obj122610 '() '20 '#f '#f)) + __obj122610)) (define |gx[:0:]#feature-expander| - (let ((__obj121626 + (let ((__obj122611 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121626 + __obj122611 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121626 + __obj122611 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122611 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '(e) '6 '#f '#f)) - (let ((__tmp122304 (cons |gx[1]#_g122163_| '()))) + (##unchecked-structure-set! __obj122611 '(e) '6 '#f '#f)) + (let ((__tmp123289 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122304 '3 '#f '#f)) + (##unchecked-structure-set! __obj122611 __tmp123289 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122611 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122611 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122611 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '#f '11 '#f '#f)) - (let ((__tmp122305 |gx[1]#_g122306_|)) + (##unchecked-structure-set! __obj122611 '#f '11 '#f '#f)) + (let ((__tmp123290 |gx[1]#_g123291_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122305 '12 '#f '#f)) - (let ((__tmp122307 |gx[1]#_g122308_|)) + (##unchecked-structure-set! __obj122611 __tmp123290 '12 '#f '#f)) + (let ((__tmp123292 |gx[1]#_g123293_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122307 '13 '#f '#f)) - (let ((__tmp122309 |gx[1]#_g122310_|)) + (##unchecked-structure-set! __obj122611 __tmp123292 '13 '#f '#f)) + (let ((__tmp123294 |gx[1]#_g123295_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122309 '14 '#f '#f)) - (let ((__tmp122311 (cons (cons 'e |gx[1]#_g122312_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123294 '14 '#f '#f)) + (let ((__tmp123296 (cons (cons 'e |gx[1]#_g123297_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122311 '15 '#f '#f)) - (let ((__tmp122313 (cons (cons 'e |gx[1]#_g122314_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123296 '15 '#f '#f)) + (let ((__tmp123298 (cons (cons 'e |gx[1]#_g123299_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122313 '16 '#f '#f)) - (let ((__tmp122315 (cons (cons 'e |gx[1]#_g122316_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123298 '16 '#f '#f)) + (let ((__tmp123300 (cons (cons 'e |gx[1]#_g123301_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122315 '17 '#f '#f)) - (let ((__tmp122317 (cons (cons 'e |gx[1]#_g122318_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123300 '17 '#f '#f)) + (let ((__tmp123302 (cons (cons 'e |gx[1]#_g123303_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121626 __tmp122317 '18 '#f '#f)) + (##unchecked-structure-set! __obj122611 __tmp123302 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122611 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122611 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121626 '() '20 '#f '#f)) - __obj121626)) + (##unchecked-structure-set! __obj122611 '() '20 '#f '#f)) + __obj122611)) (define |gx[:0:]#private-feature-expander| - (let ((__obj121627 + (let ((__obj122612 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121627 + __obj122612 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121627 + __obj122612 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122612 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '(e) '6 '#f '#f)) - (let ((__tmp122319 (cons |gx[1]#_g122320_| '()))) + (##unchecked-structure-set! __obj122612 '(e) '6 '#f '#f)) + (let ((__tmp123304 (cons |gx[1]#_g123305_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122319 '3 '#f '#f)) + (##unchecked-structure-set! __obj122612 __tmp123304 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122612 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122612 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122612 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '#f '11 '#f '#f)) - (let ((__tmp122321 |gx[1]#_g122322_|)) + (##unchecked-structure-set! __obj122612 '#f '11 '#f '#f)) + (let ((__tmp123306 |gx[1]#_g123307_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122321 '12 '#f '#f)) - (let ((__tmp122323 |gx[1]#_g122324_|)) + (##unchecked-structure-set! __obj122612 __tmp123306 '12 '#f '#f)) + (let ((__tmp123308 |gx[1]#_g123309_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122323 '13 '#f '#f)) - (let ((__tmp122325 |gx[1]#_g122326_|)) + (##unchecked-structure-set! __obj122612 __tmp123308 '13 '#f '#f)) + (let ((__tmp123310 |gx[1]#_g123311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122325 '14 '#f '#f)) - (let ((__tmp122327 (cons (cons 'e |gx[1]#_g122328_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123310 '14 '#f '#f)) + (let ((__tmp123312 (cons (cons 'e |gx[1]#_g123313_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122327 '15 '#f '#f)) - (let ((__tmp122329 (cons (cons 'e |gx[1]#_g122330_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123312 '15 '#f '#f)) + (let ((__tmp123314 (cons (cons 'e |gx[1]#_g123315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122329 '16 '#f '#f)) - (let ((__tmp122331 (cons (cons 'e |gx[1]#_g122332_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123314 '16 '#f '#f)) + (let ((__tmp123316 (cons (cons 'e |gx[1]#_g123317_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122331 '17 '#f '#f)) - (let ((__tmp122333 (cons (cons 'e |gx[1]#_g122334_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123316 '17 '#f '#f)) + (let ((__tmp123318 (cons (cons 'e |gx[1]#_g123319_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121627 __tmp122333 '18 '#f '#f)) + (##unchecked-structure-set! __obj122612 __tmp123318 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122612 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122612 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121627 '() '20 '#f '#f)) - __obj121627)) + (##unchecked-structure-set! __obj122612 '() '20 '#f '#f)) + __obj122612)) (define |gx[:0:]#reserved-expander| - (let ((__obj121628 + (let ((__obj122613 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121628 + __obj122613 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121628 + __obj122613 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122613 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '(e) '6 '#f '#f)) - (let ((__tmp122335 (cons |gx[1]#_g122163_| '()))) + (##unchecked-structure-set! __obj122613 '(e) '6 '#f '#f)) + (let ((__tmp123320 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122335 '3 '#f '#f)) + (##unchecked-structure-set! __obj122613 __tmp123320 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122613 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122613 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122613 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '#f '11 '#f '#f)) - (let ((__tmp122336 |gx[1]#_g122337_|)) + (##unchecked-structure-set! __obj122613 '#f '11 '#f '#f)) + (let ((__tmp123321 |gx[1]#_g123322_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122336 '12 '#f '#f)) - (let ((__tmp122338 |gx[1]#_g122339_|)) + (##unchecked-structure-set! __obj122613 __tmp123321 '12 '#f '#f)) + (let ((__tmp123323 |gx[1]#_g123324_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122338 '13 '#f '#f)) - (let ((__tmp122340 |gx[1]#_g122341_|)) + (##unchecked-structure-set! __obj122613 __tmp123323 '13 '#f '#f)) + (let ((__tmp123325 |gx[1]#_g123326_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122340 '14 '#f '#f)) - (let ((__tmp122342 (cons (cons 'e |gx[1]#_g122343_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123325 '14 '#f '#f)) + (let ((__tmp123327 (cons (cons 'e |gx[1]#_g123328_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122342 '15 '#f '#f)) - (let ((__tmp122344 (cons (cons 'e |gx[1]#_g122345_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123327 '15 '#f '#f)) + (let ((__tmp123329 (cons (cons 'e |gx[1]#_g123330_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122344 '16 '#f '#f)) - (let ((__tmp122346 (cons (cons 'e |gx[1]#_g122347_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123329 '16 '#f '#f)) + (let ((__tmp123331 (cons (cons 'e |gx[1]#_g123332_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122346 '17 '#f '#f)) - (let ((__tmp122348 (cons (cons 'e |gx[1]#_g122349_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123331 '17 '#f '#f)) + (let ((__tmp123333 (cons (cons 'e |gx[1]#_g123334_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121628 __tmp122348 '18 '#f '#f)) + (##unchecked-structure-set! __obj122613 __tmp123333 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122613 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122613 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121628 '() '20 '#f '#f)) - __obj121628)) + (##unchecked-structure-set! __obj122613 '() '20 '#f '#f)) + __obj122613)) (define |gx[:0:]#macro-expander| - (let ((__obj121629 + (let ((__obj122614 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121629 + __obj122614 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122614 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122614 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '(e) '6 '#f '#f)) - (let ((__tmp122350 (cons |gx[1]#_g122163_| '()))) + (##unchecked-structure-set! __obj122614 '(e) '6 '#f '#f)) + (let ((__tmp123335 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122350 '3 '#f '#f)) + (##unchecked-structure-set! __obj122614 __tmp123335 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122614 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122614 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122614 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '#f '11 '#f '#f)) - (let ((__tmp122351 |gx[1]#_g122352_|)) + (##unchecked-structure-set! __obj122614 '#f '11 '#f '#f)) + (let ((__tmp123336 |gx[1]#_g123337_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122351 '12 '#f '#f)) - (let ((__tmp122353 |gx[1]#_g122354_|)) + (##unchecked-structure-set! __obj122614 __tmp123336 '12 '#f '#f)) + (let ((__tmp123338 |gx[1]#_g123339_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122353 '13 '#f '#f)) - (let ((__tmp122355 |gx[1]#_g122356_|)) + (##unchecked-structure-set! __obj122614 __tmp123338 '13 '#f '#f)) + (let ((__tmp123340 |gx[1]#_g123341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122355 '14 '#f '#f)) - (let ((__tmp122357 (cons (cons 'e |gx[1]#_g122358_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123340 '14 '#f '#f)) + (let ((__tmp123342 (cons (cons 'e |gx[1]#_g123343_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122357 '15 '#f '#f)) - (let ((__tmp122359 (cons (cons 'e |gx[1]#_g122360_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123342 '15 '#f '#f)) + (let ((__tmp123344 (cons (cons 'e |gx[1]#_g123345_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122359 '16 '#f '#f)) - (let ((__tmp122361 (cons (cons 'e |gx[1]#_g122362_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123344 '16 '#f '#f)) + (let ((__tmp123346 (cons (cons 'e |gx[1]#_g123347_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122361 '17 '#f '#f)) - (let ((__tmp122363 (cons (cons 'e |gx[1]#_g122364_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123346 '17 '#f '#f)) + (let ((__tmp123348 (cons (cons 'e |gx[1]#_g123349_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121629 __tmp122363 '18 '#f '#f)) + (##unchecked-structure-set! __obj122614 __tmp123348 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122614 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122614 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121629 '() '20 '#f '#f)) - __obj121629)) + (##unchecked-structure-set! __obj122614 '() '20 '#f '#f)) + __obj122614)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj121630 + (let ((__obj122615 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121630 + __obj122615 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121630 + __obj122615 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122615 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '(e) '6 '#f '#f)) - (let ((__tmp122365 (cons |gx[1]#_g122366_| '()))) + (##unchecked-structure-set! __obj122615 '(e) '6 '#f '#f)) + (let ((__tmp123350 (cons |gx[1]#_g123351_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122365 '3 '#f '#f)) + (##unchecked-structure-set! __obj122615 __tmp123350 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122615 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122615 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122615 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '#f '11 '#f '#f)) - (let ((__tmp122367 |gx[1]#_g122368_|)) + (##unchecked-structure-set! __obj122615 '#f '11 '#f '#f)) + (let ((__tmp123352 |gx[1]#_g123353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122367 '12 '#f '#f)) - (let ((__tmp122369 |gx[1]#_g122370_|)) + (##unchecked-structure-set! __obj122615 __tmp123352 '12 '#f '#f)) + (let ((__tmp123354 |gx[1]#_g123355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122369 '13 '#f '#f)) - (let ((__tmp122371 |gx[1]#_g122372_|)) + (##unchecked-structure-set! __obj122615 __tmp123354 '13 '#f '#f)) + (let ((__tmp123356 |gx[1]#_g123357_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122371 '14 '#f '#f)) - (let ((__tmp122373 (cons (cons 'e |gx[1]#_g122374_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123356 '14 '#f '#f)) + (let ((__tmp123358 (cons (cons 'e |gx[1]#_g123359_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122373 '15 '#f '#f)) - (let ((__tmp122375 (cons (cons 'e |gx[1]#_g122376_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123358 '15 '#f '#f)) + (let ((__tmp123360 (cons (cons 'e |gx[1]#_g123361_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122375 '16 '#f '#f)) - (let ((__tmp122377 (cons (cons 'e |gx[1]#_g122378_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123360 '16 '#f '#f)) + (let ((__tmp123362 (cons (cons 'e |gx[1]#_g123363_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122377 '17 '#f '#f)) - (let ((__tmp122379 (cons (cons 'e |gx[1]#_g122380_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123362 '17 '#f '#f)) + (let ((__tmp123364 (cons (cons 'e |gx[1]#_g123365_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121630 __tmp122379 '18 '#f '#f)) + (##unchecked-structure-set! __obj122615 __tmp123364 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122615 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122615 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121630 '() '20 '#f '#f)) - __obj121630)) + (##unchecked-structure-set! __obj122615 '() '20 '#f '#f)) + __obj122615)) (define |gx[:0:]#user-expander| - (let ((__obj121631 + (let ((__obj122616 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121631 + __obj122616 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122616 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj122616 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '(e context phi) '6 '#f '#f)) - (let ((__tmp122381 (cons |gx[1]#_g122366_| '()))) + (##unchecked-structure-set! __obj122616 '(e context phi) '6 '#f '#f)) + (let ((__tmp123366 (cons |gx[1]#_g123351_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121631 __tmp122381 '3 '#f '#f)) + (##unchecked-structure-set! __obj122616 __tmp123366 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122616 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122616 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122616 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '#f '11 '#f '#f)) - (let ((__tmp122382 |gx[1]#_g122383_|)) + (##unchecked-structure-set! __obj122616 '#f '11 '#f '#f)) + (let ((__tmp123367 |gx[1]#_g123368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121631 __tmp122382 '12 '#f '#f)) - (let ((__tmp122384 |gx[1]#_g122385_|)) + (##unchecked-structure-set! __obj122616 __tmp123367 '12 '#f '#f)) + (let ((__tmp123369 |gx[1]#_g123370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121631 __tmp122384 '13 '#f '#f)) - (let ((__tmp122386 |gx[1]#_g122387_|)) + (##unchecked-structure-set! __obj122616 __tmp123369 '13 '#f '#f)) + (let ((__tmp123371 |gx[1]#_g123372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121631 __tmp122386 '14 '#f '#f)) - (let ((__tmp122388 - (cons (cons 'context |gx[1]#_g122389_|) - (cons (cons 'phi |gx[1]#_g122390_|) - (cons (cons 'e |gx[1]#_g122391_|) '()))))) + (##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! __obj121631 __tmp122388 '15 '#f '#f)) - (let ((__tmp122392 - (cons (cons 'context |gx[1]#_g122393_|) - (cons (cons 'phi |gx[1]#_g122394_|) - (cons (cons 'e |gx[1]#_g122395_|) '()))))) + (##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! __obj121631 __tmp122392 '16 '#f '#f)) - (let ((__tmp122396 - (cons (cons 'context |gx[1]#_g122397_|) - (cons (cons 'phi |gx[1]#_g122398_|) - (cons (cons 'e |gx[1]#_g122399_|) '()))))) + (##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! __obj121631 __tmp122396 '17 '#f '#f)) - (let ((__tmp122400 - (cons (cons 'context |gx[1]#_g122401_|) - (cons (cons 'phi |gx[1]#_g122402_|) - (cons (cons 'e |gx[1]#_g122403_|) '()))))) + (##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! __obj121631 __tmp122400 '18 '#f '#f)) + (##unchecked-structure-set! __obj122616 __tmp123385 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122616 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122616 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121631 '() '20 '#f '#f)) - __obj121631)) + (##unchecked-structure-set! __obj122616 '() '20 '#f '#f)) + __obj122616)) (define |gx[:0:]#expander-mark| - (let ((__obj121632 + (let ((__obj122617 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121632 + __obj122617 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj122617 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121632 + __obj122617 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121632 + __obj122617 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122617 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122617 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122617 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122617 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '#f '11 '#f '#f)) - (let ((__tmp122404 |gx[1]#_g122405_|)) + (##unchecked-structure-set! __obj122617 '#f '11 '#f '#f)) + (let ((__tmp123389 |gx[1]#_g123390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121632 __tmp122404 '12 '#f '#f)) - (let ((__tmp122406 |gx[1]#_g122407_|)) + (##unchecked-structure-set! __obj122617 __tmp123389 '12 '#f '#f)) + (let ((__tmp123391 |gx[1]#_g123392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121632 __tmp122406 '13 '#f '#f)) - (let ((__tmp122408 |gx[1]#_g122409_|)) + (##unchecked-structure-set! __obj122617 __tmp123391 '13 '#f '#f)) + (let ((__tmp123393 |gx[1]#_g123394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121632 __tmp122408 '14 '#f '#f)) - (let ((__tmp122410 - (cons (cons 'subst |gx[1]#_g122411_|) - (cons (cons 'context |gx[1]#_g122412_|) - (cons (cons 'phi |gx[1]#_g122413_|) - (cons (cons 'trace |gx[1]#_g122414_|) + (##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! __obj121632 __tmp122410 '15 '#f '#f)) - (let ((__tmp122415 - (cons (cons 'subst |gx[1]#_g122416_|) - (cons (cons 'context |gx[1]#_g122417_|) - (cons (cons 'phi |gx[1]#_g122418_|) - (cons (cons 'trace |gx[1]#_g122419_|) + (##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! __obj121632 __tmp122415 '16 '#f '#f)) - (let ((__tmp122420 - (cons (cons 'subst |gx[1]#_g122421_|) - (cons (cons 'context |gx[1]#_g122422_|) - (cons (cons 'phi |gx[1]#_g122423_|) - (cons (cons 'trace |gx[1]#_g122424_|) + (##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! __obj121632 __tmp122420 '17 '#f '#f)) - (let ((__tmp122425 - (cons (cons 'subst |gx[1]#_g122426_|) - (cons (cons 'context |gx[1]#_g122427_|) - (cons (cons 'phi |gx[1]#_g122428_|) - (cons (cons 'trace |gx[1]#_g122429_|) + (##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! __obj121632 __tmp122425 '18 '#f '#f)) + (##unchecked-structure-set! __obj122617 __tmp123410 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122617 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122617 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121632 '() '20 '#f '#f)) - __obj121632)))) + (##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 393e62c7a..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 1734131747) + (define gerbil/expander/init::timestamp 1734357962) (begin - (let ((__tmp133217 - (let ((__obj133215 + (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 __obj133215)) - __obj133215))) + (gx#top-context:::init!__0 __obj134200)) + __obj134200))) (declare (not safe)) - (gx#current-expander-context __tmp133217)) + (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 ((__tmp133218 - (let ((__obj133216 + (let ((__tmp134203 + (let ((__obj134201 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj133216 '#f)) - __obj133216))) + (gx#prelude-context:::init!__0 __obj134201 '#f)) + __obj134201))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp133218 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp134203 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 984340edc..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 1734131747) + (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 _%$args129066%_ - (apply make-instance gx#module-import::t _%$args129066%_))) + (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 _%$args129063%_ - (apply make-instance gx#module-export::t _%$args129063%_))) + (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 _%$args129060%_ - (apply make-instance gx#import-set::t _%$args129060%_))) + (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 _%$args129057%_ - (apply make-instance gx#export-set::t _%$args129057%_))) + (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 _%$args129054%_ - (apply make-instance gx#import-expander::t _%$args129054%_))) + (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 _%$args129051%_ - (apply make-instance gx#export-expander::t _%$args129051%_))) + (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 _%$args129048%_ - (apply make-instance gx#import-export-expander::t _%$args129048%_))) + (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 (_%path129045%_ _%fun129046%_) + (lambda (_%path130030%_ _%fun130031%_) (call-with-input-file - (cons 'path: (cons _%path129045%_ gx#source-file-settings)) - _%fun129046%_))) + (cons 'path: (cons _%path130030%_ gx#source-file-settings)) + _%fun130031%_))) (define gx#module-context:::init! - (lambda (_%self125497129026%_ - _%id129028%_ - _%super129029%_ - _%ns129030%_ - _%path129031%_) - (let* ((_%self129033%_ _%self125497129026%_) - (_%self129035%_ _%self129033%_)) - (if (##fx< '11 (##structure-length _%self129035%_)) + (lambda (_%self126482130011%_ + _%id130013%_ + _%super130014%_ + _%ns130015%_ + _%path130016%_) + (let* ((_%self130018%_ _%self126482130011%_) + (_%self130020%_ _%self130018%_)) + (if (##fx< '11 (##structure-length _%self130020%_)) (begin (##unchecked-structure-set! - _%self129035%_ - _%id129028%_ + _%self130020%_ + _%id130013%_ '1 '#f '#f) (##unchecked-structure-set! - _%self129035%_ + _%self130020%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self129035%_ - _%super129029%_ + _%self130020%_ + _%super130014%_ '3 '#f '#f) - (##unchecked-structure-set! _%self129035%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self129035%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self129035%_ - _%ns129030%_ + _%self130020%_ + _%ns130015%_ '6 '#f '#f) (##unchecked-structure-set! - _%self129035%_ - _%path129031%_ + _%self130020%_ + _%path130016%_ '7 '#f '#f) - (##unchecked-structure-set! _%self129035%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self129035%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self129035%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self129035%_ '#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" - _%self129035%_ + _%self130020%_ '11 - (##vector-length _%self129035%_)))))) + (##vector-length _%self130020%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self125498128857%_ _%ctx128859%_ _%root128860%_) - (let* ((_%self128862%_ _%self125498128857%_) - (_%self128864%_ _%self128862%_) - (_%super128880%_ - (let ((_%$e128874%_ _%root128860%_)) - (if _%$e128874%_ - _%$e128874%_ - (let ((_%$e128877%_ (gx#core-context-root__0))) - (if _%$e128877%_ - _%$e128877%_ - (let ((__obj129110 + (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 ((__constructor129111 + (let ((__constructor130096 (direct-method-ref gx#root-context::t - __obj129110 + __obj130095 ':init!))) - (if __constructor129111 - (__constructor129111 __obj129110) + (if __constructor130096 + (__constructor130096 __obj130095) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj129110))))))) - (if _%ctx128859%_ - (let ((_%id128883%_ + __obj130095))))))) + (if _%ctx129844%_ + (let ((_%id129868%_ (##structure-ref - _%ctx128859%_ + _%ctx129844%_ '1 gx#expander-context::t '#f)) - (_%path128884%_ + (_%path129869%_ (##structure-ref - _%ctx128859%_ + _%ctx129844%_ '7 gx#module-context::t '#f)) - (_%in128885%_ + (_%in129870%_ (map gx#core-module-export->import (##structure-ref - _%ctx128859%_ + _%ctx129844%_ '9 gx#module-context::t '#f))) - (_%e128886%_ + (_%e129871%_ (__make-promise - (lambda () (gx#eval-module _%ctx128859%_))))) - (if (##fx< '8 (##structure-length _%self128864%_)) + (lambda () (gx#eval-module _%ctx129844%_))))) + (if (##fx< '8 (##structure-length _%self129849%_)) (begin (##unchecked-structure-set! - _%self128864%_ - _%id128883%_ + _%self129849%_ + _%id129868%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128864%_ - (make-hash-table-eq 'size: (##length _%in128885%_)) + _%self129849%_ + (make-hash-table-eq 'size: (##length _%in129870%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self128864%_ - _%super128880%_ + _%self129849%_ + _%super129865%_ '3 '#f '#f) (##unchecked-structure-set! - _%self128864%_ + _%self129849%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self128864%_ + _%self129849%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128864%_ - _%path128884%_ + _%self129849%_ + _%path129869%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128864%_ - _%in128885%_ + _%self129849%_ + _%in129870%_ '7 '#f '#f) (##unchecked-structure-set! - _%self128864%_ - _%e128886%_ + _%self129849%_ + _%e129871%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128864%_ + _%self129849%_ '8 - (##vector-length _%self128864%_))) + (##vector-length _%self129849%_))) (##for-each - (lambda (_%g128887128889%_) + (lambda (_%g129872129874%_) (gx#core-bind-weak-import!__% - _%g128887128889%_ - _%self128864%_)) - _%in128885%_)) - (if (##fx< '8 (##structure-length _%self128864%_)) + _%g129872129874%_ + _%self129849%_)) + _%in129870%_)) + (if (##fx< '8 (##structure-length _%self129849%_)) (begin - (##unchecked-structure-set! _%self128864%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self129849%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self128864%_ + _%self129849%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128864%_ - _%super128880%_ + _%self129849%_ + _%super129865%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128864%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128864%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self128864%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self128864%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self128864%_ '#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" - _%self128864%_ + _%self129849%_ '8 - (##vector-length _%self128864%_))))))) + (##vector-length _%self129849%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self125498128895%_ _%ctx128896%_) - (let ((_%root128898%_ '#f)) + (lambda (_%self126483129880%_ _%ctx129881%_) + (let ((_%root129883%_ '#f)) (gx#prelude-context:::init!__% - _%self125498128895%_ - _%ctx128896%_ - _%root128898%_)))) + _%self126483129880%_ + _%ctx129881%_ + _%root129883%_)))) (define gx#prelude-context:::init! - (lambda _g129117_ - (let ((_g129116_ (##length _g129117_))) - (cond ((##fx= _g129116_ 2) - (apply gx#prelude-context:::init!__0 _g129117_)) - ((##fx= _g129116_ 3) - (apply gx#prelude-context:::init!__% _g129117_)) + (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! - _g129117_)))))) + _g130102_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self128731%_ _%e128732%_) - (if (##fx< '3 (##structure-length _%self128731%_)) + (lambda (_%self129716%_ _%e129717%_) + (if (##fx< '3 (##structure-length _%self129716%_)) (begin (##unchecked-structure-set! - _%self128731%_ - _%e128732%_ + _%self129716%_ + _%e129717%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128731%_ + _%self129716%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self128731%_ + _%self129716%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128731%_ + _%self129716%_ '3 - (##vector-length _%self128731%_))))) + (##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 (_%g128357128360%_ _%g128358128362%_) + (lambda (_%g129342129345%_ _%g129343129347%_) (gx#core-apply-user-expander__% - _%g128357128360%_ - _%g128358128362%_ + _%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 (_%g128228128231%_ _%g128229128233%_) + (lambda (_%g129213129216%_ _%g129214129218%_) (gx#core-apply-user-expander__% - _%g128228128231%_ - _%g128229128233%_ + _%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 (_%ctx128099%_) - (let* ((_%path128101%_ - (##structure-ref _%ctx128099%_ '7 gx#module-context::t '#f)) - (_%path128103%_ - (if (pair? _%path128101%_) - (##last _%path128101%_) - _%path128101%_))) - (if (string? _%path128103%_) _%path128103%_ '#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 (_%path128075%_ _%reload?128076%_ _%eval?128077%_) - (let ((_%ctx128079%_ + (lambda (_%path129060%_ _%reload?129061%_ _%eval?129062%_) + (let ((_%ctx129064%_ ((gx#current-expander-module-import) - _%path128075%_ - _%reload?128076%_))) - (if (and _%ctx128079%_ _%eval?128077%_) - (gx#eval-module _%ctx128079%_) + _%path129060%_ + _%reload?129061%_))) + (if (and _%ctx129064%_ _%eval?129062%_) + (gx#eval-module _%ctx129064%_) '#!void) - _%ctx128079%_))) + _%ctx129064%_))) (define gx#import-module__0 - (lambda (_%path128084%_) - (let* ((_%reload?128086%_ '#f) (_%eval?128088%_ '#f)) + (lambda (_%path129069%_) + (let* ((_%reload?129071%_ '#f) (_%eval?129073%_ '#f)) (gx#import-module__% - _%path128084%_ - _%reload?128086%_ - _%eval?128088%_)))) + _%path129069%_ + _%reload?129071%_ + _%eval?129073%_)))) (define gx#import-module__1 - (lambda (_%path128090%_ _%reload?128091%_) - (let ((_%eval?128093%_ '#f)) + (lambda (_%path129075%_ _%reload?129076%_) + (let ((_%eval?129078%_ '#f)) (gx#import-module__% - _%path128090%_ - _%reload?128091%_ - _%eval?128093%_)))) + _%path129075%_ + _%reload?129076%_ + _%eval?129078%_)))) (define gx#import-module - (lambda _g129119_ - (let ((_g129118_ (##length _g129119_))) - (cond ((##fx= _g129118_ 1) (apply gx#import-module__0 _g129119_)) - ((##fx= _g129118_ 2) (apply gx#import-module__1 _g129119_)) - ((##fx= _g129118_ 3) (apply gx#import-module__% _g129119_)) + (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 - _g129119_)))))) + _g130104_)))))) (define gx#eval-module - (lambda (_%mod128072%_) - ((gx#current-expander-module-eval) _%mod128072%_))) + (lambda (_%mod129057%_) + ((gx#current-expander-module-eval) _%mod129057%_))) (define gx#core-eval-module - (lambda (_%obj128052%_) - (letrec ((_%force-e128054%_ - (lambda (_%getf128068%_ _%e128069%_) + (lambda (_%obj129037%_) + (letrec ((_%force-e129039%_ + (lambda (_%getf129053%_ _%e129054%_) (__call-with-parameters - (lambda () (force (_%getf128068%_ _%e128069%_))) + (lambda () (force (_%getf129053%_ _%e129054%_))) gx#current-expander-context - _%e128069%_ + _%e129054%_ gx#current-expander-phi '0)))) - (let _%recur128056%_ ((_%e128058%_ _%obj128052%_)) - (if (##structure-instance-of? _%e128058%_ 'gx#module-context::t) + (let _%recur129041%_ ((_%e129043%_ _%obj129037%_)) + (if (##structure-instance-of? _%e129043%_ 'gx#module-context::t) (let () - (let ((_%$e128061%_ - (gx#core-context-prelude__% _%e128058%_))) - (if _%$e128061%_ (_%recur128056%_ _%$e128061%_) '#!void)) - (_%force-e128054%_ gx#module-context-e _%e128058%_)) + (let ((_%$e129046%_ + (gx#core-context-prelude__% _%e129043%_))) + (if _%$e129046%_ (_%recur129041%_ _%$e129046%_) '#!void)) + (_%force-e129039%_ gx#module-context-e _%e129043%_)) (if (##structure-instance-of? - _%e128058%_ + _%e129043%_ 'gx#prelude-context::t) - (_%force-e128054%_ gx#prelude-context-e _%e128058%_) - (if (gx#stx-string? _%e128058%_) - (_%recur128056%_ + (_%force-e129039%_ gx#prelude-context-e _%e129043%_) + (if (gx#stx-string? _%e129043%_) + (_%recur129041%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e128058%_))) - (if (gx#core-library-module-path? _%e128058%_) - (_%recur128056%_ + (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 - _%e128058%_))) - (error '"cannot eval module" _%obj128052%_))))))))) + _%e129043%_))) + (error '"cannot eval module" _%obj129037%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx128032%_) - (let _%lp128034%_ ((_%e128036%_ _%ctx128032%_)) - (if (or (##structure-instance-of? _%e128036%_ 'gx#module-context::t) - (##structure-instance-of? _%e128036%_ 'gx#local-context::t)) - (_%lp128034%_ (##unchecked-structure-ref _%e128036%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e128036%_ 'gx#prelude-context::t) - _%e128036%_ + (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 ((_%ctx128048%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx128048%_)))) + (let ((_%ctx129033%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx129033%_)))) (define gx#core-context-prelude - (lambda _g129121_ - (let ((_g129120_ (##length _g129121_))) - (cond ((##fx= _g129120_ 0) - (apply gx#core-context-prelude__0 _g129121_)) - ((##fx= _g129120_ 1) - (apply gx#core-context-prelude__% _g129121_)) + (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 - _g129121_)))))) + _g130106_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx128023%_) - (let ((_%$e128025%_ (__hash-get gx#__module-registry _%ctx128023%_))) - (if _%$e128025%_ - _%$e128025%_ - (let ((_%pre128029%_ - (let ((__obj129112 + (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 - __obj129112 - _%ctx128023%_) - __obj129112))) - (__hash-put! gx#__module-registry _%ctx128023%_ _%pre128029%_) - _%pre128029%_))))) + __obj130097 + _%ctx129008%_) + __obj130097))) + (__hash-put! gx#__module-registry _%ctx129008%_ _%pre129014%_) + _%pre129014%_))))) (define gx#core-import-module__% - (lambda (_%rpath127895%_ _%reload?127896%_) - (letrec ((_%import-source127898%_ - (lambda (_%path127987%_) - (if (member _%path127987%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path127987%_) + (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 ((_g129122_ (gx#core-read-module _%path127987%_))) + (let ((_g130107_ (gx#core-read-module _%path128972%_))) (begin - (let ((_g129123_ - (if (##values? _g129122_) - (##values-length _g129122_) + (let ((_g130108_ + (if (##values? _g130107_) + (##values-length _g130107_) 1))) - (if (not (##fx= _g129123_ 4)) - (error "Context expects 4 values" _g129123_))) - (let ((_%pre127990%_ (##values-ref _g129122_ 0)) - (_%id127991%_ (##values-ref _g129122_ 1)) - (_%ns127992%_ (##values-ref _g129122_ 2)) - (_%body127993%_ (##values-ref _g129122_ 3))) - (let* ((_%prelude128003%_ + (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? - _%pre127990%_ + _%pre128975%_ 'gx#prelude-context::t) - _%pre127990%_ + _%pre128975%_ (if (##structure-instance-of? - _%pre127990%_ + _%pre128975%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre127990%_) - (if (string? _%pre127990%_) + _%pre128975%_) + (if (string? _%pre128975%_) (gx#core-module->prelude-context (gx#core-import-module__0 - _%pre127990%_)) - (if (not _%pre127990%_) - (let ((_%$e127999%_ + _%pre128975%_)) + (if (not _%pre128975%_) + (let ((_%$e128984%_ (gx#current-expander-module-prelude))) - (if _%$e127999%_ - _%$e127999%_ - (let ((__obj129113 + (if _%$e128984%_ + _%$e128984%_ + (let ((__obj130098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -777,14 +777,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init!__0 __obj129113 '#f) - __obj129113))) + (gx#prelude-context:::init!__0 __obj130098 '#f) + __obj130098))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"cannot import module; unknown prelude" - _%rpath127895%_ - _%pre127990%_)))))) - (_%ctx128005%_ - (let ((__obj129114 + _%rpath128880%_ + _%pre128975%_)))))) + (_%ctx128990%_ + (let ((__obj130099 (##structure gx#module-context::t '#f @@ -799,44 +799,44 @@ '#f '#f))) (gx#module-context:::init! - __obj129114 - _%id127991%_ - _%prelude128003%_ - _%ns127992%_ - _%path127987%_) - __obj129114)) - (_%body128007%_ + __obj130099 + _%id128976%_ + _%prelude128988%_ + _%ns128977%_ + _%path128972%_) + __obj130099)) + (_%body128992%_ (gx#core-expand-module-begin - _%body127993%_ - _%ctx128005%_)) - (_%body128009%_ + _%body128978%_ + _%ctx128990%_)) + (_%body128994%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body128007%_) - _%path127987%_ - _%ctx128005%_ + (gx#core-cons '%#begin _%body128992%_) + _%path128972%_ + _%ctx128990%_ '()))) (##unchecked-structure-set! - _%ctx128005%_ + _%ctx128990%_ (__make-promise - (lambda () (gx#eval-syntax* _%body128009%_))) + (lambda () (gx#eval-syntax* _%body128994%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx128005%_ - _%body128009%_ + _%ctx128990%_ + _%body128994%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path127987%_ - _%ctx128005%_) + _%path128972%_ + _%ctx128990%_) (__hash-put! gx#__module-registry - _%id127991%_ - _%ctx128005%_) - _%ctx128005%_))))) + _%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 _%path127987%_ (gx#current-expander-path)) + (cons _%path128972%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule127899%_ - (lambda (_%rpath127915%_) - (let* ((_%rpath127916127923%_ _%rpath127915%_) - (_%E127918127927%_ + (_%import-submodule128884%_ + (lambda (_%rpath128900%_) + (let* ((_%rpath128901128908%_ _%rpath128900%_) + (_%E128903128912%_ (lambda () (error '"No clause matching" - _%rpath127916127923%_ + _%rpath128901128908%_ '([origin . refs])) '#!void)) - (_%K127919127975%_ - (lambda (_%refs127930%_ _%origin127931%_) - (let ((_%ctx127933%_ - (if _%origin127931%_ + (_%K128904128960%_ + (lambda (_%refs128915%_ _%origin128916%_) + (let ((_%ctx128918%_ + (if _%origin128916%_ (gx#core-import-module__% - _%origin127931%_ - _%reload?127896%_) + _%origin128916%_ + _%reload?128881%_) (gx#current-expander-context)))) - (let _%lp127935%_ ((_%rest127937%_ - _%refs127930%_) - (_%ctx127938%_ - _%ctx127933%_)) - (let* ((_%rest127939127947%_ _%rest127937%_) - (_%else127941127955%_ - (lambda () _%ctx127938%_)) - (_%K127943127963%_ - (lambda (_%rest127958%_ _%id127959%_) - (let ((_%bind127961%_ + (let _%lp128920%_ ((_%rest128922%_ + _%refs128915%_) + (_%ctx128923%_ + _%ctx128918%_)) + (let* ((_%rest128924128932%_ _%rest128922%_) + (_%else128926128940%_ + (lambda () _%ctx128923%_)) + (_%K128928128948%_ + (lambda (_%rest128943%_ _%id128944%_) + (let ((_%bind128946%_ (gx#resolve-identifier__% - _%id127959%_ + _%id128944%_ '0 - _%ctx127938%_))) + _%ctx128923%_))) (if (and (##structure-direct-instance-of? - _%bind127961%_ + _%bind128946%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind127961%_ + _%bind128946%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp127935%_ - _%rest127958%_ + (_%lp128920%_ + _%rest128943%_ (##unchecked-structure-ref - _%bind127961%_ + _%bind128946%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath127915%_ - _%id127959%_ - _%bind127961%_)))))) - (if (pair? _%rest127939127947%_) - (let ((_%hd127944127966%_ - (##car _%rest127939127947%_)) - (_%tl127945127968%_ - (##cdr _%rest127939127947%_))) - (let* ((_%id127971%_ - _%hd127944127966%_) - (_%rest127973%_ - _%tl127945127968%_)) - (_%K127943127963%_ - _%rest127973%_ - _%id127971%_))) - (_%else127941127955%_)))))))) - (if (pair? _%rpath127916127923%_) - (let ((_%hd127920127978%_ - (##car _%rpath127916127923%_)) - (_%tl127921127980%_ - (##cdr _%rpath127916127923%_))) - (let* ((_%origin127983%_ _%hd127920127978%_) - (_%refs127985%_ _%tl127921127980%_)) - (_%K127919127975%_ - _%refs127985%_ - _%origin127983%_))) - (_%E127918127927%_)))))) - (let ((_%$e127901%_ - (if (not _%reload?127896%_) - (__hash-get gx#__module-registry _%rpath127895%_) + _%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 _%$e127901%_ - _%$e127901%_ - (if (list? _%rpath127895%_) - (_%import-submodule127899%_ _%rpath127895%_) - (if (gx#core-library-module-path? _%rpath127895%_) - (let ((_%ctx127906%_ + (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 - _%rpath127895%_) - _%reload?127896%_))) + _%rpath128880%_) + _%reload?128881%_))) (__hash-put! gx#__module-registry - _%rpath127895%_ - _%ctx127906%_) - _%ctx127906%_) - (let* ((_%npath127909%_ - (path-normalize _%rpath127895%_)) - (_%$e127911%_ - (if (not _%reload?127896%_) + _%rpath128880%_ + _%ctx128891%_) + _%ctx128891%_) + (let* ((_%npath128894%_ + (path-normalize _%rpath128880%_)) + (_%$e128896%_ + (if (not _%reload?128881%_) (__hash-get gx#__module-registry - _%npath127909%_) + _%npath128894%_) '#f))) - (if _%$e127911%_ - _%$e127911%_ - (_%import-source127898%_ - _%npath127909%_)))))))))) + (if _%$e128896%_ + _%$e128896%_ + (_%import-source128883%_ + _%npath128894%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath128016%_) - (let ((_%reload?128018%_ '#f)) - (gx#core-import-module__% _%rpath128016%_ _%reload?128018%_)))) + (lambda (_%rpath129001%_) + (let ((_%reload?129003%_ '#f)) + (gx#core-import-module__% _%rpath129001%_ _%reload?129003%_)))) (define gx#core-import-module - (lambda _g129125_ - (let ((_g129124_ (##length _g129125_))) - (cond ((##fx= _g129124_ 1) - (apply gx#core-import-module__0 _g129125_)) - ((##fx= _g129124_ 2) - (apply gx#core-import-module__% _g129125_)) + (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 - _g129125_)))))) + _g130110_)))))) (define gx#core-read-module - (lambda (_%path127884%_) + (lambda (_%path128869%_) (__with-catch - (lambda (_%exn127886%_) - (if (and (datum-parsing-exception? _%exn127886%_) - (eq? (datum-parsing-exception-filepos _%exn127886%_) '0)) - (gx#core-read-module/lang _%path127884%_) + (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" - _%path127884%_ + _%path128869%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g127888127890%_) - (display-exception__% _%exn127886%_ _%g127888127890%_)))) + (lambda (_%g128873128875%_) + (display-exception__% _%exn128871%_ _%g128873128875%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path127884%_))))) + (lambda () (gx#core-read-module/sexp _%path128869%_))))) (define gx#core-read-module/sexp - (lambda (_%path127736%_) - (let _%lp127738%_ ((_%body127740%_ - (read-syntax-from-file _%path127736%_)) - (_%pre127741%_ '#f) - (_%ns127742%_ '#f) - (_%pkg127743%_ '#f)) - (let* ((_%e127744127768%_ _%body127740%_) - (_%E127760127794%_ + (lambda (_%path128721%_) + (let _%lp128723%_ ((_%body128725%_ + (read-syntax-from-file _%path128721%_)) + (_%pre128726%_ '#f) + (_%ns128727%_ '#f) + (_%pkg128728%_ '#f)) + (let* ((_%e128729128753%_ _%body128725%_) + (_%E128745128779%_ (lambda () - (let ((_g129126_ - (if _%pkg127743%_ - (values _%pre127741%_ - _%ns127742%_ - _%pkg127743%_) + (let ((_g130111_ + (if _%pkg128728%_ + (values _%pre128726%_ + _%ns128727%_ + _%pkg128728%_) (gx#core-read-module-package - _%path127736%_ - _%pre127741%_ - _%ns127742%_)))) + _%path128721%_ + _%pre128726%_ + _%ns128727%_)))) (begin - (let ((_g129127_ - (if (##values? _g129126_) - (##values-length _g129126_) + (let ((_g130112_ + (if (##values? _g130111_) + (##values-length _g130111_) 1))) - (if (not (##fx= _g129127_ 3)) - (error "Context expects 3 values" _g129127_))) - (let ((_%pre127772%_ (##values-ref _g129126_ 0)) - (_%ns127773%_ (##values-ref _g129126_ 1)) - (_%pkg127774%_ (##values-ref _g129126_ 2))) - (let* ((_%prelude127780%_ + (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? - _%pre127772%_) - (gx#syntax-local-e__0 _%pre127772%_) + _%pre128757%_) + (gx#syntax-local-e__0 _%pre128757%_) (if (gx#core-library-module-path? - _%pre127772%_) + _%pre128757%_) (gx#core-resolve-library-module-path - _%pre127772%_) - (if (gx#stx-string? _%pre127772%_) + _%pre128757%_) + (if (gx#stx-string? _%pre128757%_) (gx#core-resolve-module-path__% - _%pre127772%_ - _%path127736%_) - (gx#stx-e _%pre127772%_))))) - (_%path-id127782%_ + _%pre128757%_ + _%path128721%_) + (gx#stx-e _%pre128757%_))))) + (_%path-id128767%_ (gx#core-module-path->namespace - _%path127736%_)) - (_%pkg-id127784%_ - (if _%pkg127774%_ + _%path128721%_)) + (_%pkg-id128769%_ + (if _%pkg128759%_ (##string-append - _%pkg127774%_ + _%pkg128759%_ '"/" - _%path-id127782%_) - _%path-id127782%_)) - (_%module-id127786%_ - (##string->symbol _%pkg-id127784%_)) - (_%module-ns127791%_ - (if (eq? _%ns127773%_ '#!void) + _%path-id128767%_) + _%path-id128767%_)) + (_%module-id128771%_ + (##string->symbol _%pkg-id128769%_)) + (_%module-ns128776%_ + (if (eq? _%ns128758%_ '#!void) '#f - (let ((_%$e127788%_ _%ns127773%_)) - (if _%$e127788%_ - _%$e127788%_ - _%pkg-id127784%_))))) - (values _%prelude127780%_ - _%module-id127786%_ - _%module-ns127791%_ - _%body127740%_))))))) - (_%E127753127826%_ + (let ((_%$e128773%_ _%ns128758%_)) + (if _%$e128773%_ + _%$e128773%_ + _%pkg-id128769%_))))) + (values _%prelude128765%_ + _%module-id128771%_ + _%module-ns128776%_ + _%body128725%_))))))) + (_%E128738128811%_ (lambda () - (if (gx#stx-pair? _%e127744127768%_) - (let ((_%e127761127798%_ - (gx#syntax-e _%e127744127768%_))) - (let ((_%hd127762127801%_ (##car _%e127761127798%_)) - (_%tl127763127803%_ (##cdr _%e127761127798%_))) - (if (eq? (gx#stx-e _%hd127762127801%_) 'package:) - (if (gx#stx-pair? _%tl127763127803%_) - (let ((_%e127764127806%_ - (gx#syntax-e _%tl127763127803%_))) - (let ((_%hd127765127809%_ - (##car _%e127764127806%_)) - (_%tl127766127811%_ - (##cdr _%e127764127806%_))) - (let* ((_%pkg127814%_ - _%hd127765127809%_) - (_%rest127816%_ - _%tl127766127811%_) - (_%pkg127824%_ + (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? - _%pkg127814%_) + _%pkg128799%_) (symbol->string - (gx#stx-e _%pkg127814%_)) + (gx#stx-e _%pkg128799%_)) (if (or (gx#stx-string? - _%pkg127814%_) + _%pkg128799%_) (gx#stx-false? - _%pkg127814%_)) + _%pkg128799%_)) (gx#stx-e - _%pkg127814%_) + _%pkg128799%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg127814%_))))) - (_%lp127738%_ - _%rest127816%_ - _%pre127741%_ - _%ns127742%_ - _%pkg127824%_)))) - (_%E127760127794%_)) - (_%E127760127794%_)))) - (_%E127760127794%_)))) - (_%E127746127856%_ + _%pkg128799%_))))) + (_%lp128723%_ + _%rest128801%_ + _%pre128726%_ + _%ns128727%_ + _%pkg128809%_)))) + (_%E128745128779%_)) + (_%E128745128779%_)))) + (_%E128745128779%_)))) + (_%E128731128841%_ (lambda () - (if (gx#stx-pair? _%e127744127768%_) - (let ((_%e127754127830%_ - (gx#syntax-e _%e127744127768%_))) - (let ((_%hd127755127833%_ (##car _%e127754127830%_)) - (_%tl127756127835%_ (##cdr _%e127754127830%_))) - (if (eq? (gx#stx-e _%hd127755127833%_) 'namespace:) - (if (gx#stx-pair? _%tl127756127835%_) - (let ((_%e127757127838%_ - (gx#syntax-e _%tl127756127835%_))) - (let ((_%hd127758127841%_ - (##car _%e127757127838%_)) - (_%tl127759127843%_ - (##cdr _%e127757127838%_))) - (let* ((_%ns127846%_ - _%hd127758127841%_) - (_%rest127848%_ - _%tl127759127843%_) - (_%ns127854%_ + (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? - _%ns127846%_) + _%ns128831%_) (symbol->string - (gx#stx-e _%ns127846%_)) + (gx#stx-e _%ns128831%_)) (if (gx#stx-string? - _%ns127846%_) - (gx#stx-e _%ns127846%_) + _%ns128831%_) + (gx#stx-e _%ns128831%_) (if (gx#stx-false? - _%ns127846%_) + _%ns128831%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns127846%_)))))) - (_%lp127738%_ - _%rest127848%_ - _%pre127741%_ - _%ns127854%_ - _%pkg127743%_)))) - (_%E127753127826%_)) - (_%E127753127826%_)))) - (_%E127753127826%_)))) - (_%E127745127880%_ + _%ns128831%_)))))) + (_%lp128723%_ + _%rest128833%_ + _%pre128726%_ + _%ns128839%_ + _%pkg128728%_)))) + (_%E128738128811%_)) + (_%E128738128811%_)))) + (_%E128738128811%_)))) + (_%E128730128865%_ (lambda () - (if (gx#stx-pair? _%e127744127768%_) - (let ((_%e127747127860%_ - (gx#syntax-e _%e127744127768%_))) - (let ((_%hd127748127863%_ (##car _%e127747127860%_)) - (_%tl127749127865%_ (##cdr _%e127747127860%_))) - (if (eq? (gx#stx-e _%hd127748127863%_) 'prelude:) - (if (gx#stx-pair? _%tl127749127865%_) - (let ((_%e127750127868%_ - (gx#syntax-e _%tl127749127865%_))) - (let ((_%hd127751127871%_ - (##car _%e127750127868%_)) - (_%tl127752127873%_ - (##cdr _%e127750127868%_))) - (let* ((_%prelude127876%_ - _%hd127751127871%_) - (_%rest127878%_ - _%tl127752127873%_)) - (_%lp127738%_ - _%rest127878%_ - _%prelude127876%_ - _%ns127742%_ - _%pkg127743%_)))) - (_%E127746127856%_)) - (_%E127746127856%_)))) - (_%E127746127856%_))))) - (_%E127745127880%_))))) + (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 (_%path127558%_) - (letrec ((_%default-read-module-body127560%_ - (lambda (_%inp127728%_) - (let _%lp127730%_ ((_%body127732%_ '())) - (let ((_%next127734%_ (read-syntax__% _%inp127728%_))) - (if (eof-object? _%next127734%_) - (reverse _%body127732%_) - (_%lp127730%_ - (cons _%next127734%_ _%body127732%_))))))) - (_%read-body127561%_ - (lambda (_%inp127646%_ - _%pre127647%_ - _%ns127648%_ - _%pkg127649%_ - _%args127650%_) - (let ((_g129128_ - (if _%pkg127649%_ - (values _%pre127647%_ - _%ns127648%_ - _%pkg127649%_) + (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 - _%path127558%_ - _%pre127647%_ - _%ns127648%_)))) + _%path128543%_ + _%pre128632%_ + _%ns128633%_)))) (begin - (let ((_g129129_ - (if (##values? _g129128_) - (##values-length _g129128_) + (let ((_g130114_ + (if (##values? _g130113_) + (##values-length _g130113_) 1))) - (if (not (##fx= _g129129_ 3)) - (error "Context expects 3 values" _g129129_))) - (let ((_%pre127652%_ (##values-ref _g129128_ 0)) - (_%ns127653%_ (##values-ref _g129128_ 1)) - (_%pkg127654%_ (##values-ref _g129128_ 2))) - (let* ((_%prelude127656%_ - (gx#import-module__0 _%pre127652%_)) - (_%read-module-body127711%_ - (let ((_%$e127702%_ - (__find (lambda (_%e127657127659%_) - (let* ((_%g127661127671%_ - _%e127657127659%_) - (_%else127663127679%_ + (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)) - (_%K127665127683%_ + (_%K128650128668%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g127661127671%_ + _%g128646128656%_ 'gx#module-export::t) - (let* ((_%e127666127686%_ + (let* ((_%e128651128671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g127661127671%_ + _%g128646128656%_ '1 '#f '#f)) - (_%e127667127689%_ + (_%e128652128674%_ (##unchecked-structure-ref - _%g127661127671%_ + _%g128646128656%_ '2 '#f '#f)) - (_%e127668127692%_ + (_%e128653128677%_ (##unchecked-structure-ref - _%g127661127671%_ + _%g128646128656%_ '3 '#f '#f))) - (if (##eq? _%e127668127692%_ '1) - (let ((_%e127669127695%_ + (if (##eq? _%e128653128677%_ '1) + (let ((_%e128654128680%_ (##unchecked-structure-ref - _%g127661127671%_ + _%g128646128656%_ '4 '#f '#f))) - (if ((lambda (_%g127697127699%_) - (eq? _%g127697127699%_ 'read-module-body)) - _%e127669127695%_) - (_%K127665127683%_) - (_%else127663127679%_))) - (_%else127663127679%_))) - (_%else127663127679%_)))) + (if ((lambda (_%g128682128684%_) + (eq? _%g128682128684%_ 'read-module-body)) + _%e128654128680%_) + (_%K128650128668%_) + (_%else128648128664%_))) + (_%else128648128664%_))) + (_%else128648128664%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude127656%_ + _%prelude128641%_ '9 '#f '#f)))) - (if _%$e127702%_ - ((lambda (_%xport127705%_) - (let ((_%proc127708%_ + (if _%$e128687%_ + ((lambda (_%xport128690%_) + (let ((_%proc128693%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport127705%_) + _%xport128690%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc127708%_) - _%proc127708%_ + (if (procedure? _%proc128693%_) + _%proc128693%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path127558%_ - _%pre127652%_ - _%proc127708%_)))) - _%$e127702%_) - _%default-read-module-body127560%_))) - (_%path-id127713%_ + _%path128543%_ + _%pre128637%_ + _%proc128693%_)))) + _%$e128687%_) + _%default-read-module-body128545%_))) + (_%path-id128698%_ (gx#core-module-path->namespace - _%path127558%_)) - (_%pkg-id127715%_ - (if _%pkg127654%_ + _%path128543%_)) + (_%pkg-id128700%_ + (if _%pkg128639%_ (##string-append - _%pkg127654%_ + _%pkg128639%_ '"/" - _%path-id127713%_) - _%path-id127713%_)) - (_%module-id127717%_ - (##string->symbol _%pkg-id127715%_)) - (_%module-ns127722%_ - (let ((_%$e127719%_ _%ns127653%_)) - (if _%$e127719%_ - _%$e127719%_ - _%pkg-id127715%_))) - (_%body127725%_ + _%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-body127711%_ - _%inp127646%_)) + (_%read-module-body128696%_ + _%inp128631%_)) gx#current-module-reader-path - _%path127558%_ + _%path128543%_ gx#current-module-reader-args - _%args127650%_))) - (values _%prelude127656%_ - _%module-id127717%_ - _%module-ns127722%_ - _%body127725%_))))))) - (_%string-e127562%_ - (lambda (_%obj127640%_ _%what127641%_) - (if (string? _%obj127640%_) - _%obj127640%_ - (if (symbol? _%obj127640%_) - (##symbol->string _%obj127640%_) + _%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 " _%what127641%_) - _%path127558%_ - _%obj127640%_))))) - (_%read-lang-args127563%_ - (lambda (_%inp127595%_ _%args127596%_) - (let* ((_%args127597127605%_ _%args127596%_) - (_%else127599127613%_ + (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" - _%path127558%_))) - (_%K127601127628%_ - (lambda (_%args127616%_ _%prelude127617%_) - (let* ((_%pkg127619%_ - (pgetq__0 'package: _%args127616%_)) - (_%pkg127621%_ - (if _%pkg127619%_ - (_%string-e127562%_ - _%pkg127619%_ + _%path128543%_))) + (_%K128586128613%_ + (lambda (_%args128601%_ _%prelude128602%_) + (let* ((_%pkg128604%_ + (pgetq__0 'package: _%args128601%_)) + (_%pkg128606%_ + (if _%pkg128604%_ + (_%string-e128547%_ + _%pkg128604%_ '"package") '#f)) - (_%ns127623%_ - (pgetq__0 'namespace: _%args127616%_)) - (_%ns127625%_ - (if _%ns127623%_ - (_%string-e127562%_ - _%ns127623%_ + (_%ns128608%_ + (pgetq__0 'namespace: _%args128601%_)) + (_%ns128610%_ + (if _%ns128608%_ + (_%string-e128547%_ + _%ns128608%_ '"namespace") '#f))) - (_%read-body127561%_ - _%inp127595%_ - _%prelude127617%_ - _%ns127625%_ - _%pkg127621%_ - _%args127616%_))))) - (if (pair? _%args127597127605%_) - (let ((_%hd127602127631%_ - (##car _%args127597127605%_)) - (_%tl127603127633%_ - (##cdr _%args127597127605%_))) - (let* ((_%prelude127636%_ _%hd127602127631%_) - (_%args127638%_ _%tl127603127633%_)) - (_%K127601127628%_ - _%args127638%_ - _%prelude127636%_))) - (_%else127599127613%_))))) - (_%read-lang127564%_ - (lambda (_%inp127569%_) - (let* ((_%head127571%_ (read-line _%inp127569%_)) - (_%$e127573%_ - (string-index__0 _%head127571%_ '#\space))) - (if _%$e127573%_ - ((lambda (_%ix127576%_) - (let ((_%lang127578%_ + (_%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 - _%head127571%_ + _%head128556%_ '0 - _%ix127576%_))) - (if (equal? _%lang127578%_ '"#lang") - (let* ((_%rest127580%_ + _%ix128561%_))) + (if (equal? _%lang128563%_ '"#lang") + (let* ((_%rest128565%_ (substring - _%head127571%_ - (##fx+ _%ix127576%_ '1) - (string-length _%head127571%_))) - (_%args127591%_ + _%head128556%_ + (##fx+ _%ix128561%_ '1) + (string-length _%head128556%_))) + (_%args128576%_ (__with-catch - (lambda (_%g127581127583%_) + (lambda (_%g128566128568%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path127558%_ - _%g127581127583%_)) + _%path128543%_ + _%g128566128568%_)) (lambda () (call-with-input-string - _%rest127580%_ - (lambda (_%g127586127588%_) + _%rest128565%_ + (lambda (_%g128571128573%_) (read-all - _%g127586127588%_ + _%g128571128573%_ read))))))) - (_%read-lang-args127563%_ - _%inp127569%_ - _%args127591%_)) + (_%read-lang-args128548%_ + _%inp128554%_ + _%args128576%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127558%_)))) - _%$e127573%_) + _%path128543%_)))) + _%$e128558%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127558%_))))) - (_%read-e127565%_ - (lambda (_%inp127567%_) - (if (eq? (peek-char _%inp127567%_) '#\#) - (_%read-lang127564%_ _%inp127567%_) + _%path128543%_))))) + (_%read-e128550%_ + (lambda (_%inp128552%_) + (if (eq? (peek-char _%inp128552%_) '#\#) + (_%read-lang128549%_ _%inp128552%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127558%_))))) - (gx#call-with-input-source-file _%path127558%_ _%read-e127565%_)))) + _%path128543%_))))) + (gx#call-with-input-source-file _%path128543%_ _%read-e128550%_)))) (define gx#core-read-module-package - (lambda (_%path127506%_ _%pre127507%_ _%ns127508%_) - (letrec ((_%string-e127510%_ - (lambda (_%e127553%_) - (if (symbol? _%e127553%_) - (##symbol->string _%e127553%_) - (if (string? _%e127553%_) - _%e127553%_ + (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" - _%e127553%_)))))) - (let _%lp127512%_ ((_%dir127514%_ (path-directory _%path127506%_)) - (_%pkg-path127515%_ '())) - (let ((_%gerbil.pkg127517%_ - (path-expand '"gerbil.pkg" _%dir127514%_))) - (if (##file-exists? _%gerbil.pkg127517%_) - (let ((_%plist127519%_ - (gx#core-library-package-plist__% _%dir127514%_ '#t))) - (if (null? _%plist127519%_) - (let ((_%pkg127522%_ - (if (null? _%pkg-path127515%_) + _%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-path127515%_ '"/")))) - (values _%pre127507%_ _%ns127508%_ _%pkg127522%_)) - (if (list? _%plist127519%_) - (let* ((_%root127525%_ - (pgetq__0 'package: _%plist127519%_)) - (_%pkg127529%_ - (let ((_%pkg-path127527%_ - (if _%root127525%_ - (cons (_%string-e127510%_ - _%root127525%_) - _%pkg-path127515%_) - _%pkg-path127515%_))) - (if (null? _%pkg-path127527%_) + (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-path127527%_ + _%pkg-path128512%_ '"/")))) - (_%ns127536%_ - (let ((_%ns127534%_ - (let ((_%$e127531%_ _%ns127508%_)) - (if _%$e127531%_ - _%$e127531%_ + (_%ns128521%_ + (let ((_%ns128519%_ + (let ((_%$e128516%_ _%ns128493%_)) + (if _%$e128516%_ + _%$e128516%_ (pgetq__0 'namespace: - _%plist127519%_))))) - (if _%ns127534%_ - (_%string-e127510%_ _%ns127534%_) + _%plist128504%_))))) + (if _%ns128519%_ + (_%string-e128495%_ _%ns128519%_) '#f))) - (_%pre127541%_ - (let ((_%$e127538%_ _%pre127507%_)) - (if _%$e127538%_ - _%$e127538%_ + (_%pre128526%_ + (let ((_%$e128523%_ _%pre128492%_)) + (if _%$e128523%_ + _%$e128523%_ (pgetq__0 'prelude: - _%plist127519%_))))) - (values _%pre127541%_ - _%ns127536%_ - _%pkg127529%_)) + _%plist128504%_))))) + (values _%pre128526%_ + _%ns128521%_ + _%pkg128514%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist127519%_)))) - (let ((_%dir*127545%_ + _%plist128504%_)))) + (let ((_%dir*128530%_ (path-strip-trailing-directory-separator - _%dir127514%_))) - (if (or (__string-empty? _%dir*127545%_) - (equal? _%dir127514%_ _%dir*127545%_)) - (values _%pre127507%_ _%ns127508%_ '#f) - (let ((_%xpath127550%_ - (path-strip-directory _%dir*127545%_)) - (_%xdir127551%_ (path-directory _%dir*127545%_))) - (_%lp127512%_ - _%xdir127551%_ - (cons _%xpath127550%_ _%pkg-path127515%_))))))))))) + _%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 (_%path127504%_) - (path-strip-extension (path-strip-directory _%path127504%_)))) + (lambda (_%path128489%_) + (path-strip-extension (path-strip-directory _%path128489%_)))) (define gx#core-module-path->id - (lambda (_%path127502%_) - (##string->symbol (gx#core-module-path->namespace _%path127502%_)))) + (lambda (_%path128487%_) + (##string->symbol (gx#core-module-path->namespace _%path128487%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path127481%_ _%rel127482%_) - (let* ((_%path127484%_ (gx#stx-e _%stx-path127481%_)) - (_%path127486%_ - (if (__string-empty? (path-extension _%path127484%_)) - (##string-append _%path127484%_ '".ss") - _%path127484%_))) + (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__% - _%path127486%_ - (let ((_%$e127489%_ (gx#stx-source _%stx-path127481%_))) - (if _%$e127489%_ _%$e127489%_ _%rel127482%_)))))) + _%path128471%_ + (let ((_%$e128474%_ (gx#stx-source _%stx-path128466%_))) + (if _%$e128474%_ _%$e128474%_ _%rel128467%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path127495%_) - (let ((_%rel127497%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path127495%_ _%rel127497%_)))) + (lambda (_%stx-path128480%_) + (let ((_%rel128482%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path128480%_ _%rel128482%_)))) (define gx#core-resolve-module-path - (lambda _g129131_ - (let ((_g129130_ (##length _g129131_))) - (cond ((##fx= _g129130_ 1) - (apply gx#core-resolve-module-path__0 _g129131_)) - ((##fx= _g129130_ 2) - (apply gx#core-resolve-module-path__% _g129131_)) + (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 - _g129131_)))))) + _g130116_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath127366%_) - (let* ((_%spath127368%_ (symbol->string (gx#stx-e _%libpath127366%_))) - (_%spath127370%_ + (lambda (_%libpath128351%_) + (let* ((_%spath128353%_ (symbol->string (gx#stx-e _%libpath128351%_))) + (_%spath128355%_ (substring - _%spath127368%_ + _%spath128353%_ '1 - (##string-length _%spath127368%_))) - (_%ext127372%_ (path-extension _%spath127370%_)) - (_%ssi127374%_ - (if (__string-empty? _%ext127372%_) - (##string-append _%spath127370%_ '".ssi") + (##string-length _%spath128353%_))) + (_%ext128357%_ (path-extension _%spath128355%_)) + (_%ssi128359%_ + (if (__string-empty? _%ext128357%_) + (##string-append _%spath128355%_ '".ssi") (##string-append - (path-strip-extension _%spath127370%_) + (path-strip-extension _%spath128355%_) '".ssi"))) - (_%srcs127378%_ - (if (__string-empty? _%ext127372%_) - (##map (lambda (_%ext127376%_) - (string-append _%spath127370%_ _%ext127376%_)) + (_%srcs128363%_ + (if (__string-empty? _%ext128357%_) + (##map (lambda (_%ext128361%_) + (string-append _%spath128355%_ _%ext128361%_)) '(".ss" ".sld" ".scm")) - (cons _%spath127370%_ '())))) - (let _%lp127381%_ ((_%rest127383%_ (load-path))) - (let* ((_%rest127384127393%_ _%rest127383%_) - (_%E127387127397%_ + (cons _%spath128355%_ '())))) + (let _%lp128366%_ ((_%rest128368%_ (load-path))) + (let* ((_%rest128369128378%_ _%rest128368%_) + (_%E128372128382%_ (lambda () (error '"No clause matching" - _%rest127384127393%_ + _%rest128369128378%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K127389127468%_ - (lambda (_%rest127408%_ _%dir127409%_) - (letrec ((_%resolve127411%_ - (lambda (_%ssi127424%_ _%srcs127425%_) - (let ((_%compiled-path127427%_ + (let ((_%K128374128453%_ + (lambda (_%rest128393%_ _%dir128394%_) + (letrec ((_%resolve128396%_ + (lambda (_%ssi128409%_ _%srcs128410%_) + (let ((_%compiled-path128412%_ (path-expand - _%ssi127424%_ - _%dir127409%_))) + _%ssi128409%_ + _%dir128394%_))) (if (##file-exists? - _%compiled-path127427%_) + _%compiled-path128412%_) (path-normalize - _%compiled-path127427%_) - (let _%lpr127429%_ ((_%rest-src127431%_ - _%srcs127425%_)) - (let* ((_%rest-src127432127440%_ - _%rest-src127431%_) - (_%else127434127448%_ + _%compiled-path128412%_) + (let _%lpr128414%_ ((_%rest-src128416%_ + _%srcs128410%_)) + (let* ((_%rest-src128417128425%_ + _%rest-src128416%_) + (_%else128419128433%_ (lambda () - (_%lp127381%_ - _%rest127408%_))) - (_%K127436127456%_ - (lambda (_%rest-src127451%_ - _%src127452%_) - (let ((_%src-path127454%_ + (_%lp128366%_ + _%rest128393%_))) + (_%K128421128441%_ + (lambda (_%rest-src128436%_ + _%src128437%_) + (let ((_%src-path128439%_ (path-expand - _%src127452%_ - _%dir127409%_))) + _%src128437%_ + _%dir128394%_))) (if (##file-exists? - _%src-path127454%_) + _%src-path128439%_) (path-normalize - _%src-path127454%_) - (_%lpr127429%_ - _%rest-src127451%_)))))) - (if (pair? _%rest-src127432127440%_) - (let ((_%hd127437127459%_ - (##car _%rest-src127432127440%_)) - (_%tl127438127461%_ - (##cdr _%rest-src127432127440%_))) - (let* ((_%src127464%_ - _%hd127437127459%_) - (_%rest-src127466%_ - _%tl127438127461%_)) - (_%K127436127456%_ - _%rest-src127466%_ - _%src127464%_))) - (_%else127434127448%_))))))))) - (let ((_%$e127413%_ + _%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 - _%dir127409%_))) - (if _%$e127413%_ - ((lambda (_%prefix127416%_) + _%dir128394%_))) + (if _%$e128398%_ + ((lambda (_%prefix128401%_) (if (string-prefix? - _%prefix127416%_ - _%spath127370%_) - (let ((_%ssi127420%_ + _%prefix128401%_ + _%spath128355%_) + (let ((_%ssi128405%_ (substring - _%ssi127374%_ - (string-length _%prefix127416%_) - (##string-length _%ssi127374%_))) - (_%srcs127421%_ - (##map (lambda (_%src127418%_) + _%ssi128359%_ + (string-length _%prefix128401%_) + (##string-length _%ssi128359%_))) + (_%srcs128406%_ + (##map (lambda (_%src128403%_) (substring - _%src127418%_ + _%src128403%_ (string-length - _%prefix127416%_) + _%prefix128401%_) (string-length - _%src127418%_))) - _%srcs127378%_))) - (_%resolve127411%_ - _%ssi127420%_ - _%srcs127421%_)) - (_%lp127381%_ _%rest127408%_))) - _%$e127413%_) - (_%resolve127411%_ - _%ssi127374%_ - _%srcs127378%_)))))) - (_%K127388127402%_ + _%src128403%_))) + _%srcs128363%_))) + (_%resolve128396%_ + _%ssi128405%_ + _%srcs128406%_)) + (_%lp128366%_ _%rest128393%_))) + _%$e128398%_) + (_%resolve128396%_ + _%ssi128359%_ + _%srcs128363%_)))))) + (_%K128373128387%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath127366%_)))) - (let ((_%try-match127386127405%_ + _%libpath128351%_)))) + (let ((_%try-match128371128390%_ (lambda () - (if (null? _%rest127384127393%_) - (_%K127388127402%_) - (_%E127387127397%_))))) - (if (pair? _%rest127384127393%_) - (let ((_%tl127391127473%_ (##cdr _%rest127384127393%_)) - (_%hd127390127471%_ (##car _%rest127384127393%_))) - (let ((_%dir127476%_ _%hd127390127471%_) - (_%rest127478%_ _%tl127391127473%_)) - (_%K127389127468%_ _%rest127478%_ _%dir127476%_))) - (_%try-match127386127405%_))))))))) + (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 (_%modpath127334%_) - (letrec ((_%resolve127336%_ - (lambda (_%path127357%_ _%base127358%_) - (let ((_%$e127360%_ - (string-rindex__0 _%base127358%_ '#\/))) - (if _%$e127360%_ - ((lambda (_%idx127363%_) + (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 _%base127358%_ '0 _%idx127363%_) + (substring _%base128343%_ '0 _%idx128348%_) '"/" - _%path127357%_)))) - _%$e127360%_) + _%path128342%_)))) + _%$e128345%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path127357%_)))))))) - (let ((_%spath127338%_ (symbol->string (gx#stx-e _%modpath127334%_))) - (_%mod127339%_ + (string-append '":" _%path128342%_)))))))) + (let ((_%spath128323%_ (symbol->string (gx#stx-e _%modpath128319%_))) + (_%mod128324%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod127339%_ + (if _%mod128324%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath127334%_)) - (let ((_%mpath127341%_ + _%modpath128319%_)) + (let ((_%mpath128326%_ (symbol->string (##structure-ref - _%mod127339%_ + _%mod128324%_ '1 gx#expander-context::t '#f)))) - (let _%lp127343%_ ((_%spath127345%_ _%spath127338%_) - (_%mpath127346%_ _%mpath127341%_)) - (if (string-prefix? '"../" _%spath127345%_) - (let ((_%$e127349%_ - (string-rindex__0 _%mpath127346%_ '#\/))) - (if _%$e127349%_ - ((lambda (_%idx127352%_) - (_%lp127343%_ + (let _%lp128328%_ ((_%spath128330%_ _%spath128323%_) + (_%mpath128331%_ _%mpath128326%_)) + (if (string-prefix? '"../" _%spath128330%_) + (let ((_%$e128334%_ + (string-rindex__0 _%mpath128331%_ '#\/))) + (if _%$e128334%_ + ((lambda (_%idx128337%_) + (_%lp128328%_ (substring - _%spath127345%_ + _%spath128330%_ '3 - (string-length _%spath127345%_)) - (substring _%mpath127346%_ '0 _%idx127352%_))) - _%$e127349%_) + (string-length _%spath128330%_)) + (substring _%mpath128331%_ '0 _%idx128337%_))) + _%$e128334%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath127334%_))) - (if (string-prefix? '"./" _%spath127345%_) - (_%lp127343%_ + _%modpath128319%_))) + (if (string-prefix? '"./" _%spath128330%_) + (_%lp128328%_ (substring - _%spath127345%_ + _%spath128330%_ '2 - (string-length _%spath127345%_)) - _%mpath127346%_) - (_%resolve127336%_ - _%spath127345%_ - _%mpath127346%_))))))))) + (string-length _%spath128330%_)) + _%mpath128331%_) + (_%resolve128321%_ + _%spath128330%_ + _%mpath128331%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir127326%_) - (let ((_%$e127328%_ + (lambda (_%dir128311%_) + (let ((_%$e128313%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir127326%_)))) - (if _%$e127328%_ - ((lambda (_%pkg127331%_) - (##string-append (symbol->string _%pkg127331%_) '"/")) - _%$e127328%_) + (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 (_%dir127296%_ _%exists?127297%_) - (let ((_%$e127299%_ (__hash-get gx#__module-pkg-cache _%dir127296%_))) - (if _%$e127299%_ - _%$e127299%_ - (let* ((_%gerbil.pkg127303%_ - (path-expand '"gerbil.pkg" _%dir127296%_)) - (_%plist127313%_ - (if (or _%exists?127297%_ - (##file-exists? _%gerbil.pkg127303%_)) - (let ((_%e127308%_ + (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.pkg127303%_ + _%gerbil.pkg128288%_ read))) - (if (eof-object? _%e127308%_) + (if (eof-object? _%e128293%_) '() - (if (list? _%e127308%_) - _%e127308%_ + (if (list? _%e128293%_) + _%e128293%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg127303%_ - _%e127308%_)))) + _%gerbil.pkg128288%_ + _%e128293%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir127296%_ - _%plist127313%_) - _%plist127313%_))))) + _%dir128281%_ + _%plist128298%_) + _%plist128298%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir127319%_) - (let ((_%exists?127321%_ '#f)) - (gx#core-library-package-plist__% _%dir127319%_ _%exists?127321%_)))) + (lambda (_%dir128304%_) + (let ((_%exists?128306%_ '#f)) + (gx#core-library-package-plist__% _%dir128304%_ _%exists?128306%_)))) (define gx#core-library-package-plist - (lambda _g129133_ - (let ((_g129132_ (##length _g129133_))) - (cond ((##fx= _g129132_ 1) - (apply gx#core-library-package-plist__0 _g129133_)) - ((##fx= _g129132_ 2) - (apply gx#core-library-package-plist__% _g129133_)) + (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 - _g129133_)))))) + _g130118_)))))) (define gx#core-library-module-path? - (lambda (_%stx127293%_) - (gx#core-special-module-path? _%stx127293%_ '#\:))) + (lambda (_%stx128278%_) + (gx#core-special-module-path? _%stx128278%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx127291%_) - (gx#core-special-module-path? _%stx127291%_ '#\.))) + (lambda (_%stx128276%_) + (gx#core-special-module-path? _%stx128276%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx127286%_ _%char127287%_) - (if (gx#identifier? _%stx127286%_) - (if (interned-symbol? (gx#stx-e _%stx127286%_)) - (let ((_%str127289%_ - (symbol->string (gx#stx-e _%stx127286%_)))) - (if (##fx> (##string-length _%str127289%_) '1) - (eq? (string-ref _%str127289%_ '0) _%char127287%_) + (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 (_%stx127280%_) + (lambda (_%stx128265%_) (gx#core-bound-identifier?__% - _%stx127280%_ - (lambda (_%g127281127283%_) - (gx#expander-binding?__% _%g127281127283%_ gx#prelude-context?))))) + _%stx128265%_ + (lambda (_%g128266128268%_) + (gx#expander-binding?__% _%g128266128268%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx127274%_) + (lambda (_%stx128259%_) (gx#core-bound-identifier?__% - _%stx127274%_ - (lambda (_%g127275127277%_) - (gx#expander-binding?__% _%g127275127277%_ gx#module-context?))))) + _%stx128259%_ + (lambda (_%g128260128262%_) + (gx#expander-binding?__% _%g128260128262%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx127261%_) - (letrec ((_%module-prelude?127263%_ - (lambda (_%e127269%_) - (let ((_%$e127271%_ + (lambda (_%stx128246%_) + (letrec ((_%module-prelude?128248%_ + (lambda (_%e128254%_) + (let ((_%$e128256%_ (##structure-instance-of? - _%e127269%_ + _%e128254%_ 'gx#module-context::t))) - (if _%$e127271%_ - _%$e127271%_ + (if _%$e128256%_ + _%$e128256%_ (##structure-instance-of? - _%e127269%_ + _%e128254%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx127261%_ - (lambda (_%g127264127266%_) + _%stx128246%_ + (lambda (_%g128249128251%_) (gx#expander-binding?__% - _%g127264127266%_ - _%module-prelude?127263%_)))))) + _%g128249128251%_ + _%module-prelude?128248%_)))))) (define gx#core-bind-import!__% - (lambda (_%in127191%_ _%ctx127192%_ _%force-weak?127193%_) - (let* ((_%in127194127203%_ _%in127191%_) - (_%E127196127207%_ + (lambda (_%in128176%_ _%ctx128177%_ _%force-weak?128178%_) + (let* ((_%in128179128188%_ _%in128176%_) + (_%E128181128192%_ (lambda () (error '"No clause matching" - _%in127194127203%_ + _%in128179128188%_ '((module-import source key phi weak?))) '#!void)) - (_%K127197127220%_ - (lambda (_%weak?127210%_ - _%phi127211%_ - _%key127212%_ - _%source127213%_) + (_%K128182128205%_ + (lambda (_%weak?128195%_ + _%phi128196%_ + _%key128197%_ + _%source128198%_) (gx#core-bind!__% - _%key127212%_ - (let ((_%e127215%_ - (gx#core-resolve-module-export _%source127213%_))) + _%key128197%_ + (let ((_%e128200%_ + (gx#core-resolve-module-export _%source128198%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e127215%_ '1 '#f '#f) - _%key127212%_ - _%phi127211%_ - _%e127215%_ - (##unchecked-structure-ref _%source127213%_ '1 '#f '#f) - (let ((_%$e127217%_ _%force-weak?127193%_)) - (if _%$e127217%_ _%$e127217%_ _%weak?127210%_)))) + (##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? - _%phi127211%_ - _%ctx127192%_)))) + _%phi128196%_ + _%ctx128177%_)))) (if (##structure-direct-instance-of? - _%in127194127203%_ + _%in128179128188%_ 'gx#module-import::t) - (let* ((_%e127198127223%_ + (let* ((_%e128183128208%_ (##unchecked-structure-ref - _%in127194127203%_ + _%in128179128188%_ '1 '#f '#f)) - (_%source127226%_ _%e127198127223%_) - (_%e127199127228%_ + (_%source128211%_ _%e128183128208%_) + (_%e128184128213%_ (##unchecked-structure-ref - _%in127194127203%_ + _%in128179128188%_ '2 '#f '#f)) - (_%key127231%_ _%e127199127228%_) - (_%e127200127233%_ + (_%key128216%_ _%e128184128213%_) + (_%e128185128218%_ (##unchecked-structure-ref - _%in127194127203%_ + _%in128179128188%_ '3 '#f '#f)) - (_%phi127236%_ _%e127200127233%_) - (_%e127201127238%_ + (_%phi128221%_ _%e128185128218%_) + (_%e128186128223%_ (##unchecked-structure-ref - _%in127194127203%_ + _%in128179128188%_ '4 '#f '#f)) - (_%weak?127241%_ _%e127201127238%_)) - (_%K127197127220%_ - _%weak?127241%_ - _%phi127236%_ - _%key127231%_ - _%source127226%_)) - (_%E127196127207%_))))) + (_%weak?128226%_ _%e128186128223%_)) + (_%K128182128205%_ + _%weak?128226%_ + _%phi128221%_ + _%key128216%_ + _%source128211%_)) + (_%E128181128192%_))))) (define gx#core-bind-import!__0 - (lambda (_%in127246%_) - (let* ((_%ctx127248%_ (gx#current-expander-context)) - (_%force-weak?127250%_ '#f)) + (lambda (_%in128231%_) + (let* ((_%ctx128233%_ (gx#current-expander-context)) + (_%force-weak?128235%_ '#f)) (gx#core-bind-import!__% - _%in127246%_ - _%ctx127248%_ - _%force-weak?127250%_)))) + _%in128231%_ + _%ctx128233%_ + _%force-weak?128235%_)))) (define gx#core-bind-import!__1 - (lambda (_%in127252%_ _%ctx127253%_) - (let ((_%force-weak?127255%_ '#f)) + (lambda (_%in128237%_ _%ctx128238%_) + (let ((_%force-weak?128240%_ '#f)) (gx#core-bind-import!__% - _%in127252%_ - _%ctx127253%_ - _%force-weak?127255%_)))) + _%in128237%_ + _%ctx128238%_ + _%force-weak?128240%_)))) (define gx#core-bind-import! - (lambda _g129135_ - (let ((_g129134_ (##length _g129135_))) - (cond ((##fx= _g129134_ 1) (apply gx#core-bind-import!__0 _g129135_)) - ((##fx= _g129134_ 2) (apply gx#core-bind-import!__1 _g129135_)) - ((##fx= _g129134_ 3) (apply gx#core-bind-import!__% _g129135_)) + (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! - _g129135_)))))) + _g130120_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in127177%_ _%ctx127178%_) - (gx#core-bind-import!__% _%in127177%_ _%ctx127178%_ '#t))) + (lambda (_%in128162%_ _%ctx128163%_) + (gx#core-bind-import!__% _%in128162%_ _%ctx128163%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in127183%_) - (let ((_%ctx127185%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in127183%_ _%ctx127185%_)))) + (lambda (_%in128168%_) + (let ((_%ctx128170%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in128168%_ _%ctx128170%_)))) (define gx#core-bind-weak-import! - (lambda _g129137_ - (let ((_g129136_ (##length _g129137_))) - (cond ((##fx= _g129136_ 1) - (apply gx#core-bind-weak-import!__0 _g129137_)) - ((##fx= _g129136_ 2) - (apply gx#core-bind-weak-import!__% _g129137_)) + (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! - _g129137_)))))) + _g130122_)))))) (define gx#core-resolve-module-export - (lambda (_%out127068%_) - (letrec ((_%subst127070%_ - (lambda (_%key127116%_) - (let* ((_%key127117127125%_ _%key127116%_) - (_%else127119127133%_ (lambda () _%key127116%_)) - (_%K127121127164%_ - (lambda (_%mark127136%_ _%id127137%_) - (let* ((_%mark127138127144%_ _%mark127136%_) - (_%E127140127148%_ + (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" - _%mark127138127144%_ + _%mark128123128129%_ '((expander-mark subst))) '#!void)) - (_%K127141127156%_ - (lambda (_%subst127151%_) - (let ((_%$e127153%_ - (if _%subst127151%_ + (_%K128126128141%_ + (lambda (_%subst128136%_) + (let ((_%$e128138%_ + (if _%subst128136%_ (hash-get - _%subst127151%_ - _%id127137%_) + _%subst128136%_ + _%id128122%_) '#f))) - (if _%$e127153%_ - _%$e127153%_ + (if _%$e128138%_ + _%$e128138%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key127116%_)))))) + _%key128101%_)))))) (if (##structure-instance-of? - _%mark127138127144%_ + _%mark128123128129%_ 'gx#expander-mark::t) - (let* ((_%e127142127159%_ + (let* ((_%e128127128144%_ (##unchecked-structure-ref - _%mark127138127144%_ + _%mark128123128129%_ '1 '#f '#f)) - (_%subst127162%_ _%e127142127159%_)) - (_%K127141127156%_ _%subst127162%_)) - (_%E127140127148%_)))))) - (if (pair? _%key127117127125%_) - (let ((_%hd127122127167%_ - (##car _%key127117127125%_)) - (_%tl127123127169%_ - (##cdr _%key127117127125%_))) - (let* ((_%id127172%_ _%hd127122127167%_) - (_%mark127174%_ _%tl127123127169%_)) - (_%K127121127164%_ _%mark127174%_ _%id127172%_))) - (_%else127119127133%_)))))) - (let* ((_%out127071127081%_ _%out127068%_) - (_%E127073127085%_ + (_%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" - _%out127071127081%_ + _%out128056128066%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K127074127092%_ - (lambda (_%phi127088%_ _%key127089%_ _%ctx127090%_) + (_%K128059128077%_ + (lambda (_%phi128073%_ _%key128074%_ _%ctx128075%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx127090%_ _%phi127088%_) - (_%subst127070%_ _%key127089%_))))) + (gx#core-context-shift _%ctx128075%_ _%phi128073%_) + (_%subst128055%_ _%key128074%_))))) (if (##structure-direct-instance-of? - _%out127071127081%_ + _%out128056128066%_ 'gx#module-export::t) - (let* ((_%e127075127095%_ + (let* ((_%e128060128080%_ (##unchecked-structure-ref - _%out127071127081%_ + _%out128056128066%_ '1 '#f '#f)) - (_%ctx127098%_ _%e127075127095%_) - (_%e127076127100%_ + (_%ctx128083%_ _%e128060128080%_) + (_%e128061128085%_ (##unchecked-structure-ref - _%out127071127081%_ + _%out128056128066%_ '2 '#f '#f)) - (_%key127103%_ _%e127076127100%_) - (_%e127077127105%_ + (_%key128088%_ _%e128061128085%_) + (_%e128062128090%_ (##unchecked-structure-ref - _%out127071127081%_ + _%out128056128066%_ '3 '#f '#f)) - (_%phi127108%_ _%e127077127105%_) - (_%e127078127110%_ + (_%phi128093%_ _%e128062128090%_) + (_%e128063128095%_ (##unchecked-structure-ref - _%out127071127081%_ + _%out128056128066%_ '4 '#f '#f)) - (_%e127079127113%_ + (_%e128064128098%_ (##unchecked-structure-ref - _%out127071127081%_ + _%out128056128066%_ '5 '#f '#f))) - (_%K127074127092%_ - _%phi127108%_ - _%key127103%_ - _%ctx127098%_)) - (_%E127073127085%_)))))) + (_%K128059128077%_ + _%phi128093%_ + _%key128088%_ + _%ctx128083%_)) + (_%E128058128070%_)))))) (define gx#core-module-export->import__% - (lambda (_%out126993%_ _%rename126994%_ _%dphi126995%_) - (let* ((_%out126996127006%_ _%out126993%_) - (_%E126998127010%_ + (lambda (_%out127978%_ _%rename127979%_ _%dphi127980%_) + (let* ((_%out127981127991%_ _%out127978%_) + (_%E127983127995%_ (lambda () (error '"No clause matching" - _%out126996127006%_ + _%out127981127991%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K126999127022%_ - (lambda (_%weak?127013%_ - _%name127014%_ - _%phi127015%_ - _%key127016%_ - _%ctx127017%_) + (_%K127984128007%_ + (lambda (_%weak?127998%_ + _%name127999%_ + _%phi128000%_ + _%key128001%_ + _%ctx128002%_) (##structure gx#module-import::t - _%out126993%_ - (let ((_%$e127019%_ _%rename126994%_)) - (if _%$e127019%_ _%$e127019%_ _%name127014%_)) - (fx+ _%phi127015%_ _%dphi126995%_) - _%weak?127013%_)))) + _%out127978%_ + (let ((_%$e128004%_ _%rename127979%_)) + (if _%$e128004%_ _%$e128004%_ _%name127999%_)) + (fx+ _%phi128000%_ _%dphi127980%_) + _%weak?127998%_)))) (if (##structure-direct-instance-of? - _%out126996127006%_ + _%out127981127991%_ 'gx#module-export::t) - (let* ((_%e127000127025%_ + (let* ((_%e127985128010%_ (##unchecked-structure-ref - _%out126996127006%_ + _%out127981127991%_ '1 '#f '#f)) - (_%ctx127028%_ _%e127000127025%_) - (_%e127001127030%_ + (_%ctx128013%_ _%e127985128010%_) + (_%e127986128015%_ (##unchecked-structure-ref - _%out126996127006%_ + _%out127981127991%_ '2 '#f '#f)) - (_%key127033%_ _%e127001127030%_) - (_%e127002127035%_ + (_%key128018%_ _%e127986128015%_) + (_%e127987128020%_ (##unchecked-structure-ref - _%out126996127006%_ + _%out127981127991%_ '3 '#f '#f)) - (_%phi127038%_ _%e127002127035%_) - (_%e127003127040%_ + (_%phi128023%_ _%e127987128020%_) + (_%e127988128025%_ (##unchecked-structure-ref - _%out126996127006%_ + _%out127981127991%_ '4 '#f '#f)) - (_%name127043%_ _%e127003127040%_) - (_%e127004127045%_ + (_%name128028%_ _%e127988128025%_) + (_%e127989128030%_ (##unchecked-structure-ref - _%out126996127006%_ + _%out127981127991%_ '5 '#f '#f)) - (_%weak?127048%_ _%e127004127045%_)) - (_%K126999127022%_ - _%weak?127048%_ - _%name127043%_ - _%phi127038%_ - _%key127033%_ - _%ctx127028%_)) - (_%E126998127010%_))))) + (_%weak?128033%_ _%e127989128030%_)) + (_%K127984128007%_ + _%weak?128033%_ + _%name128028%_ + _%phi128023%_ + _%key128018%_ + _%ctx128013%_)) + (_%E127983127995%_))))) (define gx#core-module-export->import__0 - (lambda (_%out127053%_) - (let* ((_%rename127055%_ '#f) (_%dphi127057%_ '0)) + (lambda (_%out128038%_) + (let* ((_%rename128040%_ '#f) (_%dphi128042%_ '0)) (gx#core-module-export->import__% - _%out127053%_ - _%rename127055%_ - _%dphi127057%_)))) + _%out128038%_ + _%rename128040%_ + _%dphi128042%_)))) (define gx#core-module-export->import__1 - (lambda (_%out127059%_ _%rename127060%_) - (let ((_%dphi127062%_ '0)) + (lambda (_%out128044%_ _%rename128045%_) + (let ((_%dphi128047%_ '0)) (gx#core-module-export->import__% - _%out127059%_ - _%rename127060%_ - _%dphi127062%_)))) + _%out128044%_ + _%rename128045%_ + _%dphi128047%_)))) (define gx#core-module-export->import - (lambda _g129139_ - (let ((_g129138_ (##length _g129139_))) - (cond ((##fx= _g129138_ 1) - (apply gx#core-module-export->import__0 _g129139_)) - ((##fx= _g129138_ 2) - (apply gx#core-module-export->import__1 _g129139_)) - ((##fx= _g129138_ 3) - (apply gx#core-module-export->import__% _g129139_)) + (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 - _g129139_)))))) + _g130124_)))))) (define gx#core-expand-module% - (lambda (_%stx126892%_) - (letrec ((_%make-context126894%_ - (lambda (_%id126971%_) - (let* ((_%super126973%_ (gx#current-expander-context)) - (_%bind-id126975%_ (gx#stx-e _%id126971%_)) - (_%mod-id126977%_ + (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? - _%super126973%_ + _%super127958%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super126973%_ + _%super127958%_ '1 '#f '#f) '"~" - _%bind-id126975%_) - _%bind-id126975%_)) - (_%ns126979%_ (symbol->string _%mod-id126977%_)) - (_%path126989%_ + _%bind-id127960%_) + _%bind-id127960%_)) + (_%ns127964%_ (symbol->string _%mod-id127962%_)) + (_%path127974%_ (if (##structure-instance-of? - _%super126973%_ + _%super127958%_ 'gx#module-context::t) - (let ((_%path126981%_ + (let ((_%path127966%_ (##unchecked-structure-ref - _%super126973%_ + _%super127958%_ '7 '#f '#f))) - (if (or (pair? _%path126981%_) - (null? _%path126981%_)) - (cons _%bind-id126975%_ _%path126981%_) - (if (not _%path126981%_) - _%bind-id126975%_ - (cons _%bind-id126975%_ - (cons _%path126981%_ '()))))) - _%bind-id126975%_)) - (__obj129115 + (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! - __obj129115 - _%mod-id126977%_ - _%super126973%_ - _%ns126979%_ - _%path126989%_) - __obj129115))) - (_%valid-module-id?126895%_ - (lambda (_%id126946%_) - (let* ((_%str126948%_ (symbol->string _%id126946%_)) - (_%len126950%_ (##string-length _%str126948%_))) - (if (##fx>= _%len126950%_ '1) - (let _%loop126953%_ ((_%index126955%_ + __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 - _%str126948%_) + _%str127933%_) '1))) - (if (##fx>= _%index126955%_ '0) - (let ((_%c126957%_ + (if (##fx>= _%index127940%_ '0) + (let ((_%c127942%_ (string-ref - _%str126948%_ - _%index126955%_))) - (if (or (and (##char>=? _%c126957%_ '#\a) - (##char<=? _%c126957%_ '#\z)) - (and (##char>=? _%c126957%_ '#\A) - (##char<=? _%c126957%_ '#\Z)) - (and (##char>=? _%c126957%_ '#\0) - (##char<=? _%c126957%_ '#\9)) - (##char=? _%c126957%_ '#\_) - (##char=? _%c126957%_ '#\-)) - (_%loop126953%_ - (##fx- _%index126955%_ '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* ((_%e126896126906%_ _%stx126892%_) - (_%E126898126910%_ + (let* ((_%e127881127891%_ _%stx127877%_) + (_%E127883127895%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126896126906%_))) - (_%E126897126942%_ + _%e127881127891%_))) + (_%E127882127927%_ (lambda () - (if (gx#stx-pair? _%e126896126906%_) - (let ((_%e126899126914%_ - (gx#syntax-e _%e126896126906%_))) - (let ((_%hd126900126917%_ (##car _%e126899126914%_)) - (_%tl126901126919%_ (##cdr _%e126899126914%_))) - (if (gx#stx-pair? _%tl126901126919%_) - (let ((_%e126902126922%_ - (gx#syntax-e _%tl126901126919%_))) - (let ((_%hd126903126925%_ - (##car _%e126902126922%_)) - (_%tl126904126927%_ - (##cdr _%e126902126922%_))) - (let* ((_%id126930%_ _%hd126903126925%_) - (_%body126932%_ _%tl126904126927%_)) - (if (and (gx#identifier? _%id126930%_) - (gx#stx-list? _%body126932%_)) - (if (_%valid-module-id?126895%_ + (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* ((_%ctx126934%_ - (_%make-context126894%_ - _%id126930%_)) - (_%body126936%_ + (let* ((_%ctx127919%_ + (_%make-context127879%_ + _%id127915%_)) + (_%body127921%_ (gx#core-expand-module-begin - _%body126932%_ - _%ctx126934%_)) - (_%body126938%_ + _%body127917%_ + _%ctx127919%_)) + (_%body127923%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body126936%_) + _%body127921%_) (gx#stx-source - _%stx126892%_)))) + _%stx127877%_)))) (##unchecked-structure-set! - _%ctx126934%_ + _%ctx127919%_ (__make-promise (lambda () (gx#eval-syntax* - _%body126938%_))) + _%body127923%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx126934%_ - _%body126938%_ + _%ctx127919%_ + _%body127923%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id126930%_ - _%ctx126934%_) + _%id127915%_ + _%ctx127919%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id126930%_) - _%body126938%_) + _%id127915%_) + _%body127923%_) (gx#stx-source - _%stx126892%_))) + _%stx127877%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx126892%_ + _%stx127877%_ (gx#datum->syntax__0 '#f 'id))) - (_%E126898126910%_))))) - (_%E126898126910%_)))) - (_%E126898126910%_))))) - (_%E126897126942%_))))) + (_%E127883127895%_))))) + (_%E127883127895%_)))) + (_%E127883127895%_))))) + (_%E127882127927%_))))) (define gx#core-expand-module-begin - (lambda (_%body126858%_ _%ctx126859%_) + (lambda (_%body127843%_ _%ctx127844%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx126862%_ - (gx#core-expand-head (cons '%%begin-module _%body126858%_))) - (_%e126863126870%_ _%stx126862%_) - (_%E126865126874%_ + (let* ((_%stx127847%_ + (gx#core-expand-head (cons '%%begin-module _%body127843%_))) + (_%e127848127855%_ _%stx127847%_) + (_%E127850127859%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx126862%_))) - (_%E126864126888%_ + _%stx127847%_))) + (_%E127849127873%_ (lambda () - (if (gx#stx-pair? _%e126863126870%_) - (let ((_%e126866126878%_ - (gx#syntax-e _%e126863126870%_))) - (let ((_%hd126867126881%_ (##car _%e126866126878%_)) - (_%tl126868126883%_ - (##cdr _%e126866126878%_))) - (if (and (gx#identifier? _%hd126867126881%_) + (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=? - _%hd126867126881%_ + _%hd127852127866%_ '%#begin-module)) - (let ((_%body126886%_ _%tl126868126883%_)) - (if (gx#sealed-syntax? _%stx126862%_) - _%body126886%_ + (let ((_%body127871%_ _%tl127853127868%_)) + (if (gx#sealed-syntax? _%stx127847%_) + _%body127871%_ (gx#core-expand-module-body - _%body126886%_))) - (_%E126865126874%_)))) - (_%E126865126874%_))))) - (_%E126864126888%_))) + _%body127871%_))) + (_%E127850127859%_)))) + (_%E127850127859%_))))) + (_%E127849127873%_))) gx#current-expander-context - _%ctx126859%_ + _%ctx127844%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body126654%_) - (letrec ((_%expand-special126656%_ - (lambda (_%hd126785%_ _%K126786%_ _%rest126787%_ _%r126788%_) - (let* ((_%e126789126806%_ _%hd126785%_) - (_%E126801126810%_ + (lambda (_%body127639%_) + (letrec ((_%expand-special127641%_ + (lambda (_%hd127770%_ _%K127771%_ _%rest127772%_ _%r127773%_) + (let* ((_%e127774127791%_ _%hd127770%_) + (_%E127786127795%_ (lambda () - (_%K126786%_ - _%rest126787%_ - (cons (gx#core-expand-top _%hd126785%_) - _%r126788%_)))) - (_%E126791126822%_ + (_%K127771%_ + _%rest127772%_ + (cons (gx#core-expand-top _%hd127770%_) + _%r127773%_)))) + (_%E127776127807%_ (lambda () - (if (gx#stx-pair? _%e126789126806%_) - (let ((_%e126802126814%_ - (gx#syntax-e _%e126789126806%_))) - (let ((_%hd126803126817%_ - (##car _%e126802126814%_)) - (_%tl126804126819%_ - (##cdr _%e126802126814%_))) + (if (gx#stx-pair? _%e127774127791%_) + (let ((_%e127787127799%_ + (gx#syntax-e _%e127774127791%_))) + (let ((_%hd127788127802%_ + (##car _%e127787127799%_)) + (_%tl127789127804%_ + (##cdr _%e127787127799%_))) (if (and (gx#identifier? - _%hd126803126817%_) + _%hd127788127802%_) (gx#core-identifier=? - _%hd126803126817%_ + _%hd127788127802%_ '%#export)) - (_%K126786%_ - _%rest126787%_ - (cons _%hd126785%_ _%r126788%_)) - (_%E126801126810%_)))) - (_%E126801126810%_)))) - (_%E126790126854%_ + (_%K127771%_ + _%rest127772%_ + (cons _%hd127770%_ _%r127773%_)) + (_%E127786127795%_)))) + (_%E127786127795%_)))) + (_%E127775127839%_ (lambda () - (if (gx#stx-pair? _%e126789126806%_) - (let ((_%e126792126826%_ - (gx#syntax-e _%e126789126806%_))) - (let ((_%hd126793126829%_ - (##car _%e126792126826%_)) - (_%tl126794126831%_ - (##cdr _%e126792126826%_))) + (if (gx#stx-pair? _%e127774127791%_) + (let ((_%e127777127811%_ + (gx#syntax-e _%e127774127791%_))) + (let ((_%hd127778127814%_ + (##car _%e127777127811%_)) + (_%tl127779127816%_ + (##cdr _%e127777127811%_))) (if (and (gx#identifier? - _%hd126793126829%_) + _%hd127778127814%_) (gx#core-identifier=? - _%hd126793126829%_ + _%hd127778127814%_ '%#define-values)) - (if (gx#stx-pair? _%tl126794126831%_) - (let ((_%e126795126834%_ + (if (gx#stx-pair? _%tl127779127816%_) + (let ((_%e127780127819%_ (gx#syntax-e - _%tl126794126831%_))) - (let ((_%hd126796126837%_ - (##car _%e126795126834%_)) - (_%tl126797126839%_ - (##cdr _%e126795126834%_))) - (let ((_%hd-bind126842%_ - _%hd126796126837%_)) + _%tl127779127816%_))) + (let ((_%hd127781127822%_ + (##car _%e127780127819%_)) + (_%tl127782127824%_ + (##cdr _%e127780127819%_))) + (let ((_%hd-bind127827%_ + _%hd127781127822%_)) (if (gx#stx-pair? - _%tl126797126839%_) - (let ((_%e126798126844%_ + _%tl127782127824%_) + (let ((_%e127783127829%_ (gx#syntax-e - _%tl126797126839%_))) - (let ((_%hd126799126847%_ + _%tl127782127824%_))) + (let ((_%hd127784127832%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e126798126844%_)) - (_%tl126800126849%_ (##cdr _%e126798126844%_))) - (let ((_%expr126852%_ _%hd126799126847%_)) - (if (gx#stx-null? _%tl126800126849%_) - (if (gx#core-bind-values? _%hd-bind126842%_) + (##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-bind126842%_) - (_%K126786%_ - _%rest126787%_ - (cons _%hd126785%_ _%r126788%_))) - (_%E126791126822%_)) - (_%E126791126822%_))))) - (_%E126791126822%_))))) + (gx#core-bind-values!__0 _%hd-bind127827%_) + (_%K127771%_ + _%rest127772%_ + (cons _%hd127770%_ _%r127773%_))) + (_%E127776127807%_)) + (_%E127776127807%_))))) + (_%E127776127807%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126791126822%_)) - (_%E126791126822%_)))) - (_%E126791126822%_))))) - (_%E126790126854%_)))) - (_%expand-body126657%_ - (lambda (_%rbody126659%_) - (let _%lp126661%_ ((_%rest126663%_ _%rbody126659%_) - (_%body126664%_ '())) - (let* ((_%rest126665126673%_ _%rest126663%_) - (_%else126667126681%_ (lambda () _%body126664%_)) - (_%K126669126773%_ - (lambda (_%rest126684%_ _%hd126685%_) - (let* ((_%e126686126707%_ _%hd126685%_) - (_%E126702126711%_ + (_%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 () - (_%lp126661%_ - _%rest126684%_ + (_%lp127646%_ + _%rest127669%_ (cons (gx#core-expand-expression - _%hd126685%_) - _%body126664%_)))) - (_%E126698126725%_ + _%hd127670%_) + _%body127649%_)))) + (_%E127683127710%_ (lambda () - (if (gx#stx-pair? _%e126686126707%_) - (let ((_%e126703126715%_ + (if (gx#stx-pair? _%e127671127692%_) + (let ((_%e127688127700%_ (gx#syntax-e - _%e126686126707%_))) - (let ((_%hd126704126718%_ - (##car _%e126703126715%_)) - (_%tl126705126720%_ - (##cdr _%e126703126715%_))) - (let ((_%form126723%_ - _%hd126704126718%_)) + _%e127671127692%_))) + (let ((_%hd127689127703%_ + (##car _%e127688127700%_)) + (_%tl127690127705%_ + (##cdr _%e127688127700%_))) + (let ((_%form127708%_ + _%hd127689127703%_)) (if (gx#core-bound-identifier?__% - _%form126723%_ + _%form127708%_ gx#special-form-binding?) - (_%lp126661%_ - _%rest126684%_ - (cons _%hd126685%_ - _%body126664%_)) - (_%E126702126711%_))))) - (_%E126702126711%_)))) - (_%E126688126737%_ + (_%lp127646%_ + _%rest127669%_ + (cons _%hd127670%_ + _%body127649%_)) + (_%E127687127696%_))))) + (_%E127687127696%_)))) + (_%E127673127722%_ (lambda () - (if (gx#stx-pair? _%e126686126707%_) - (let ((_%e126699126729%_ + (if (gx#stx-pair? _%e127671127692%_) + (let ((_%e127684127714%_ (gx#syntax-e - _%e126686126707%_))) - (let ((_%hd126700126732%_ - (##car _%e126699126729%_)) - (_%tl126701126734%_ - (##cdr _%e126699126729%_))) + _%e127671127692%_))) + (let ((_%hd127685127717%_ + (##car _%e127684127714%_)) + (_%tl127686127719%_ + (##cdr _%e127684127714%_))) (if (and (gx#identifier? - _%hd126700126732%_) + _%hd127685127717%_) (gx#core-identifier=? - _%hd126700126732%_ + _%hd127685127717%_ '%#export)) - (_%lp126661%_ - _%rest126684%_ + (_%lp127646%_ + _%rest127669%_ (cons (gx#core-expand-export%__0 - _%hd126685%_) - _%body126664%_)) - (_%E126698126725%_)))) - (_%E126698126725%_)))) - (_%E126687126769%_ + _%hd127670%_) + _%body127649%_)) + (_%E127683127710%_)))) + (_%E127683127710%_)))) + (_%E127672127754%_ (lambda () - (if (gx#stx-pair? _%e126686126707%_) - (let ((_%e126689126741%_ + (if (gx#stx-pair? _%e127671127692%_) + (let ((_%e127674127726%_ (gx#syntax-e - _%e126686126707%_))) - (let ((_%hd126690126744%_ - (##car _%e126689126741%_)) - (_%tl126691126746%_ - (##cdr _%e126689126741%_))) + _%e127671127692%_))) + (let ((_%hd127675127729%_ + (##car _%e127674127726%_)) + (_%tl127676127731%_ + (##cdr _%e127674127726%_))) (if (and (gx#identifier? - _%hd126690126744%_) + _%hd127675127729%_) (gx#core-identifier=? - _%hd126690126744%_ + _%hd127675127729%_ '%#define-values)) (if (gx#stx-pair? - _%tl126691126746%_) - (let ((_%e126692126749%_ + _%tl127676127731%_) + (let ((_%e127677127734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126691126746%_))) - (let ((_%hd126693126752%_ (##car _%e126692126749%_)) - (_%tl126694126754%_ (##cdr _%e126692126749%_))) - (let ((_%hd-bind126757%_ _%hd126693126752%_)) - (if (gx#stx-pair? _%tl126694126754%_) - (let ((_%e126695126759%_ - (gx#syntax-e _%tl126694126754%_))) - (let ((_%hd126696126762%_ - (##car _%e126695126759%_)) - (_%tl126697126764%_ - (##cdr _%e126695126759%_))) - (let ((_%expr126767%_ _%hd126696126762%_)) - (if (gx#stx-null? _%tl126697126764%_) - (_%lp126661%_ - _%rest126684%_ + (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-bind126757%_) + _%hd-bind127742%_) (gx#core-expand-expression - _%expr126767%_)) - (gx#stx-source _%hd126685%_)) - _%body126664%_)) - (_%E126688126737%_))))) - (_%E126688126737%_))))) - (_%E126688126737%_)) - (_%E126688126737%_)))) + _%expr127752%_)) + (gx#stx-source _%hd127670%_)) + _%body127649%_)) + (_%E127673127722%_))))) + (_%E127673127722%_))))) + (_%E127673127722%_)) + (_%E127673127722%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126688126737%_))))) - (_%E126687126769%_))))) - (if (pair? _%rest126665126673%_) - (let ((_%hd126670126776%_ - (##car _%rest126665126673%_)) - (_%tl126671126778%_ - (##cdr _%rest126665126673%_))) - (let* ((_%hd126781%_ _%hd126670126776%_) - (_%rest126783%_ _%tl126671126778%_)) - (_%K126669126773%_ - _%rest126783%_ - _%hd126781%_))) - (_%else126667126681%_))))))) - (_%expand-body126657%_ + (_%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 _%body126654%_) - _%expand-special126656%_ + (cons '%#begin-module _%body127639%_) + _%expand-special127641%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx126495%_ - _%expanded?126496%_ - _%method126497%_ - _%current-phi126498%_ - _%expand1126499%_) - (letrec ((_%K126501%_ - (lambda (_%rest126621%_ _%r126622%_) - (let* ((_%e126623126630%_ _%rest126621%_) - (_%E126625126634%_ (lambda () _%r126622%_)) - (_%E126624126650%_ + (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? _%e126623126630%_) - (let ((_%e126626126638%_ - (gx#syntax-e _%e126623126630%_))) - (let ((_%hd126627126641%_ - (##car _%e126626126638%_)) - (_%tl126628126643%_ - (##cdr _%e126626126638%_))) - (let* ((_%hd126646%_ _%hd126627126641%_) - (_%rest126648%_ - _%tl126628126643%_)) - (_%step126502%_ - _%hd126646%_ - _%rest126648%_ - _%r126622%_)))) - (_%E126625126634%_))))) - (_%E126624126650%_)))) - (_%step126502%_ - (lambda (_%hd126535%_ _%rest126536%_ _%r126537%_) - (let* ((_%e126538126556%_ _%hd126535%_) - (_%E126551126560%_ + (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?126496%_ (gx#stx-e _%hd126535%_)) - (_%K126501%_ - _%rest126536%_ - (cons (gx#stx-e _%hd126535%_) _%r126537%_)) - (_%expand1126499%_ - _%hd126535%_ - _%K126501%_ - _%rest126536%_ - _%r126537%_)))) - (_%E126547126576%_ + (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? _%e126538126556%_) - (let ((_%e126552126564%_ - (gx#syntax-e _%e126538126556%_))) - (let ((_%hd126553126567%_ - (##car _%e126552126564%_)) - (_%tl126554126569%_ - (##cdr _%e126552126564%_))) - (let* ((_%macro126572%_ - _%hd126553126567%_) - (_%body126574%_ - _%tl126554126569%_)) + (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?__% - _%macro126572%_ + _%macro127557%_ gx#syntax-binding?) - (_%K126501%_ + (_%K127486%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro126572%_) - _%hd126535%_ - _%method126497%_) - _%rest126536%_) - _%r126537%_) - (_%E126551126560%_))))) - (_%E126551126560%_)))) - (_%E126540126590%_ + _%macro127557%_) + _%hd127520%_ + _%method127482%_) + _%rest127521%_) + _%r127522%_) + (_%E127536127545%_))))) + (_%E127536127545%_)))) + (_%E127525127575%_ (lambda () - (if (gx#stx-pair? _%e126538126556%_) - (let ((_%e126548126580%_ - (gx#syntax-e _%e126538126556%_))) - (let ((_%hd126549126583%_ - (##car _%e126548126580%_)) - (_%tl126550126585%_ - (##cdr _%e126548126580%_))) - (if (eq? (gx#stx-e _%hd126549126583%_) + (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 ((_%body126588%_ - _%tl126550126585%_)) - (_%K126501%_ + (let ((_%body127573%_ + _%tl127535127570%_)) + (_%K127486%_ (gx#stx-foldr cons - _%rest126536%_ - _%body126588%_) - _%r126537%_)) - (_%E126547126576%_)))) - (_%E126547126576%_)))) - (_%E126539126617%_ + _%rest127521%_ + _%body127573%_) + _%r127522%_)) + (_%E127532127561%_)))) + (_%E127532127561%_)))) + (_%E127524127602%_ (lambda () - (if (gx#stx-pair? _%e126538126556%_) - (let ((_%e126541126594%_ - (gx#syntax-e _%e126538126556%_))) - (let ((_%hd126542126597%_ - (##car _%e126541126594%_)) - (_%tl126543126599%_ - (##cdr _%e126541126594%_))) - (if (eq? (gx#stx-e _%hd126542126597%_) + (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? _%tl126543126599%_) - (let ((_%e126544126602%_ + (if (gx#stx-pair? _%tl127528127584%_) + (let ((_%e127529127587%_ (gx#syntax-e - _%tl126543126599%_))) - (let ((_%hd126545126605%_ - (##car _%e126544126602%_)) - (_%tl126546126607%_ - (##cdr _%e126544126602%_))) - (let* ((_%dphi126610%_ - _%hd126545126605%_) - (_%body126612%_ - _%tl126546126607%_)) + _%tl127528127584%_))) + (let ((_%hd127530127590%_ + (##car _%e127529127587%_)) + (_%tl127531127592%_ + (##cdr _%e127529127587%_))) + (let* ((_%dphi127595%_ + _%hd127530127590%_) + (_%body127597%_ + _%tl127531127592%_)) (if (gx#stx-fixnum? - _%dphi126610%_) - (let ((_%rbody126615%_ + _%dphi127595%_) + (let ((_%rbody127600%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K126501%_ _%body126612%_ '())) - _%current-phi126498%_ - (fx+ (gx#stx-e _%dphi126610%_) - (_%current-phi126498%_))))) - (_%K126501%_ - _%rest126536%_ - (__foldr1 cons _%r126537%_ _%rbody126615%_))) - (_%E126540126590%_))))) + (_%K127486%_ _%body127597%_ '())) + _%current-phi127483%_ + (fx+ (gx#stx-e _%dphi127595%_) + (_%current-phi127483%_))))) + (_%K127486%_ + _%rest127521%_ + (__foldr1 cons _%r127522%_ _%rbody127600%_))) + (_%E127525127575%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126540126590%_)) - (_%E126540126590%_)))) - (_%E126540126590%_))))) - (_%E126539126617%_))))) - (let* ((_%e126503126510%_ _%stx126495%_) - (_%E126505126514%_ + (_%E127525127575%_)) + (_%E127525127575%_)))) + (_%E127525127575%_))))) + (_%E127524127602%_))))) + (let* ((_%e127488127495%_ _%stx127480%_) + (_%E127490127499%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126503126510%_))) - (_%E126504126531%_ + _%e127488127495%_))) + (_%E127489127516%_ (lambda () - (if (gx#stx-pair? _%e126503126510%_) - (let ((_%e126506126518%_ - (gx#syntax-e _%e126503126510%_))) - (let ((_%hd126507126521%_ (##car _%e126506126518%_)) - (_%tl126508126523%_ (##cdr _%e126506126518%_))) - (let ((_%body126526%_ _%tl126508126523%_)) - (if (_%current-phi126498%_) - (_%K126501%_ _%body126526%_ '()) + (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 () (_%K126501%_ _%body126526%_ '())) - _%current-phi126498%_ + (lambda () (_%K127486%_ _%body127511%_ '())) + _%current-phi127483%_ (gx#current-expander-phi)))))) - (_%E126505126514%_))))) - (_%E126504126531%_))))) + (_%E127490127499%_))))) + (_%E127489127516%_))))) (define gx#core-expand-import%__% - (lambda (_%stx126149%_ _%internal-expand?126150%_) - (letrec ((_%expand1126152%_ - (lambda (_%hd126467%_ _%K126468%_ _%rest126469%_ _%r126470%_) - (if (gx#core-bound-module? _%hd126467%_) - (_%import1126153%_ - (gx#syntax-local-e__0 _%hd126467%_) - _%K126468%_ - _%rest126469%_ - _%r126470%_) - (if (gx#core-library-module-path? _%hd126467%_) - (_%import1126153%_ + (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 - _%hd126467%_)) - _%K126468%_ - _%rest126469%_ - _%r126470%_) + _%hd127452%_)) + _%K127453%_ + _%rest127454%_ + _%r127455%_) (if (gx#core-library-relative-module-path? - _%hd126467%_) - (_%import1126153%_ + _%hd127452%_) + (_%import1127138%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd126467%_)) - _%K126468%_ - _%rest126469%_ - _%r126470%_) - (let ((_%e126476%_ (gx#stx-e _%hd126467%_))) - (if (pair? _%e126476%_) - (let ((_%$e126479%_ - (gx#stx-e (##car _%e126476%_)))) - (if (eq? 'spec: _%$e126479%_) - (_%import-spec126156%_ - _%hd126467%_ - _%K126468%_ - _%rest126469%_ - _%r126470%_) - (if (eq? 'in: _%$e126479%_) - (_%import-submodule126154%_ - _%hd126467%_ - _%K126468%_ - _%rest126469%_ - _%r126470%_) + _%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: - _%$e126479%_) - (_%import-runtime126155%_ - _%hd126467%_ - _%K126468%_ - _%rest126469%_ - _%r126470%_) + _%$e127464%_) + (_%import-runtime127140%_ + _%hd127452%_ + _%K127453%_ + _%rest127454%_ + _%r127455%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx126149%_ - _%hd126467%_))))) - (if (string? _%e126476%_) - (_%import1126153%_ + _%stx127134%_ + _%hd127452%_))))) + (if (string? _%e127461%_) + (_%import1127138%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd126467%_ - (gx#stx-source _%stx126149%_))) - _%K126468%_ - _%rest126469%_ - _%r126470%_) + _%hd127452%_ + (gx#stx-source _%stx127134%_))) + _%K127453%_ + _%rest127454%_ + _%r127455%_) (if (##structure-instance-of? - _%e126476%_ + _%e127461%_ 'gx#module-context::t) - (_%K126468%_ - _%rest126469%_ - (cons _%e126476%_ _%r126470%_)) + (_%K127453%_ + _%rest127454%_ + (cons _%e127461%_ _%r127455%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx126149%_ - _%hd126467%_)))))))))) - (_%import1126153%_ - (lambda (_%ctx126456%_ - _%K126457%_ - _%rest126458%_ - _%r126459%_) - (let ((_%dphi126461%_ + _%stx127134%_ + _%hd127452%_)))))))))) + (_%import1127138%_ + (lambda (_%ctx127441%_ + _%K127442%_ + _%rest127443%_ + _%r127444%_) + (let ((_%dphi127446%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K126457%_ - _%rest126458%_ + (_%K127442%_ + _%rest127443%_ (cons (##structure gx#import-set::t - _%ctx126456%_ - _%dphi126461%_ - (map (lambda (_%g126462126464%_) + _%ctx127441%_ + _%dphi127446%_ + (map (lambda (_%g127447127449%_) (gx#core-module-export->import__% - _%g126462126464%_ + _%g127447127449%_ '#f - _%dphi126461%_)) + _%dphi127446%_)) (##unchecked-structure-ref - _%ctx126456%_ + _%ctx127441%_ '9 '#f '#f))) - _%r126459%_))))) - (_%import-submodule126154%_ - (lambda (_%hd126423%_ _%K126424%_ _%rest126425%_ _%r126426%_) - (let* ((_%e126427126434%_ _%hd126423%_) - (_%E126429126438%_ + _%r127444%_))))) + (_%import-submodule127139%_ + (lambda (_%hd127408%_ _%K127409%_ _%rest127410%_ _%r127411%_) + (let* ((_%e127412127419%_ _%hd127408%_) + (_%E127414127423%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126427126434%_))) - (_%E126428126452%_ + _%e127412127419%_))) + (_%E127413127437%_ (lambda () - (if (gx#stx-pair? _%e126427126434%_) - (let ((_%e126430126442%_ - (gx#syntax-e _%e126427126434%_))) - (let ((_%hd126431126445%_ - (##car _%e126430126442%_)) - (_%tl126432126447%_ - (##cdr _%e126430126442%_))) - (let ((_%spath126450%_ - _%tl126432126447%_)) - (_%import1126153%_ - (_%import-spec-source126157%_ - _%spath126450%_) - _%K126424%_ - _%rest126425%_ - _%r126426%_)))) - (_%E126429126438%_))))) - (_%E126428126452%_)))) - (_%import-runtime126155%_ - (lambda (_%hd126390%_ _%K126391%_ _%rest126392%_ _%r126393%_) - (let* ((_%e126394126401%_ _%hd126390%_) - (_%E126396126405%_ + (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" - _%e126394126401%_))) - (_%E126395126419%_ + _%e127379127386%_))) + (_%E127380127404%_ (lambda () - (if (gx#stx-pair? _%e126394126401%_) - (let ((_%e126397126409%_ - (gx#syntax-e _%e126394126401%_))) - (let ((_%hd126398126412%_ - (##car _%e126397126409%_)) - (_%tl126399126414%_ - (##cdr _%e126397126409%_))) - (let ((_%spath126417%_ - _%tl126399126414%_)) - (_%K126391%_ - _%rest126392%_ - (cons (_%import-spec-source126157%_ - _%spath126417%_) - _%r126393%_))))) - (_%E126396126405%_))))) - (_%E126395126419%_)))) - (_%import-spec126156%_ - (lambda (_%hd126228%_ _%K126229%_ _%rest126230%_ _%r126231%_) - (let* ((_%e126232126249%_ _%hd126228%_) - (_%E126241126253%_ + (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" - _%e126232126249%_))) - (_%E126234126364%_ + _%e127217127234%_))) + (_%E127219127349%_ (lambda () - (if (gx#stx-pair? _%e126232126249%_) - (let ((_%e126242126257%_ - (gx#syntax-e _%e126232126249%_))) - (let ((_%hd126243126260%_ - (##car _%e126242126257%_)) - (_%tl126244126262%_ - (##cdr _%e126242126257%_))) - (if (gx#stx-pair? _%tl126244126262%_) - (let ((_%e126245126265%_ + (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 - _%tl126244126262%_))) - (let ((_%hd126246126268%_ - (##car _%e126245126265%_)) - (_%tl126247126270%_ - (##cdr _%e126245126265%_))) - (let* ((_%path126273%_ - _%hd126246126268%_) - (_%specs126275%_ - _%tl126247126270%_)) - (let ((_%src-ctx126277%_ - (_%import-spec-source126157%_ - _%path126273%_)) - (_%exports126278%_ + _%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)) - (_%specs126279%_ + (_%specs127264%_ (gx#syntax->list - _%specs126275%_))) + _%specs127260%_))) (for-each - (lambda (_%out126281%_) + (lambda (_%out127266%_) (__hash-put! - _%exports126278%_ + _%exports127263%_ (cons (##unchecked-structure-ref - _%out126281%_ + _%out127266%_ '3 '#f '#f) (##unchecked-structure-ref - _%out126281%_ + _%out127266%_ '4 '#f '#f)) - _%out126281%_)) + _%out127266%_)) (##unchecked-structure-ref - _%src-ctx126277%_ + _%src-ctx127262%_ '9 '#f '#f)) - (_%K126229%_ - _%rest126230%_ + (_%K127214%_ + _%rest127215%_ (__foldl1 - (lambda (_%spec126283%_ - _%r126284%_) - (let* ((_%e126285126301%_ - _%spec126283%_) - (_%E126287126305%_ + (lambda (_%spec127268%_ + _%r127269%_) + (let* ((_%e127270127286%_ + _%spec127268%_) + (_%E127272127290%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e126285126301%_))) - (_%E126286126360%_ + _%e127270127286%_))) + (_%E127271127345%_ (lambda () - (if (gx#stx-pair? _%e126285126301%_) - (let ((_%e126288126309%_ - (gx#syntax-e _%e126285126301%_))) - (let ((_%hd126289126312%_ - (##car _%e126288126309%_)) - (_%tl126290126314%_ - (##cdr _%e126288126309%_))) - (let ((_%phi126317%_ _%hd126289126312%_)) - (if (gx#stx-pair? _%tl126290126314%_) - (let ((_%e126291126319%_ - (gx#syntax-e _%tl126290126314%_))) - (let ((_%hd126292126322%_ - (##car _%e126291126319%_)) - (_%tl126293126324%_ - (##cdr _%e126291126319%_))) - (let ((_%name126327%_ - _%hd126292126322%_)) + (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? - _%tl126293126324%_) - (let ((_%e126294126329%_ + _%tl127278127309%_) + (let ((_%e127279127314%_ (gx#syntax-e - _%tl126293126324%_))) - (let ((_%hd126295126332%_ - (##car _%e126294126329%_)) - (_%tl126296126334%_ - (##cdr _%e126294126329%_))) - (let ((_%src-phi126337%_ - _%hd126295126332%_)) + _%tl127278127309%_))) + (let ((_%hd127280127317%_ + (##car _%e127279127314%_)) + (_%tl127281127319%_ + (##cdr _%e127279127314%_))) + (let ((_%src-phi127322%_ + _%hd127280127317%_)) (if (gx#stx-pair? - _%tl126296126334%_) - (let ((_%e126297126339%_ + _%tl127281127319%_) + (let ((_%e127282127324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126296126334%_))) - (let ((_%hd126298126342%_ (##car _%e126297126339%_)) - (_%tl126299126344%_ (##cdr _%e126297126339%_))) - (let ((_%src-name126347%_ _%hd126298126342%_)) - (if (gx#stx-null? _%tl126299126344%_) - (if (and (gx#stx-fixnum? _%src-phi126337%_) - (gx#identifier? _%src-name126347%_) - (gx#stx-fixnum? _%phi126317%_) - (gx#identifier? _%name126327%_)) - (let ((_%src-phi126349%_ - (gx#stx-e _%src-phi126337%_)) - (_%src-name126350%_ + (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-name126347%_)) - (_%phi126351%_ (gx#stx-e _%phi126317%_)) - (_%name126352%_ + _%src-name127332%_)) + (_%phi127336%_ (gx#stx-e _%phi127302%_)) + (_%name127337%_ (gx#core-identifier-key - _%name126327%_))) - (let ((_%$e126354%_ + _%name127312%_))) + (let ((_%$e127339%_ (__hash-get - _%exports126278%_ - (cons _%src-phi126349%_ - _%src-name126350%_)))) - (if _%$e126354%_ - ((lambda (_%out126357%_) + _%exports127263%_ + (cons _%src-phi127334%_ + _%src-name127335%_)))) + (if _%$e127339%_ + ((lambda (_%out127342%_) (cons (gx#core-module-export->import__% - _%out126357%_ - _%name126352%_ - (fx- _%phi126351%_ - _%src-phi126349%_)) - _%r126284%_)) - _%$e126354%_) + _%out127342%_ + _%name127337%_ + (fx- _%phi127336%_ + _%src-phi127334%_)) + _%r127269%_)) + _%$e127339%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx126149%_ - _%hd126228%_)))) - (_%E126287126305%_)) - (_%E126287126305%_))))) - (_%E126287126305%_))))) + _%stx127134%_ + _%hd127213%_)))) + (_%E127272127290%_)) + (_%E127272127290%_))))) + (_%E127272127290%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126287126305%_))))) - (_%E126287126305%_))))) - (_%E126287126305%_))))) - (_%E126286126360%_))) + (_%E127272127290%_))))) + (_%E127272127290%_))))) + (_%E127272127290%_))))) + (_%E127271127345%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r126231%_ - _%specs126279%_)))))) - (_%E126241126253%_)))) - (_%E126241126253%_)))) - (_%E126233126386%_ + _%r127216%_ + _%specs127264%_)))))) + (_%E127226127238%_)))) + (_%E127226127238%_)))) + (_%E127218127371%_ (lambda () - (if (gx#stx-pair? _%e126232126249%_) - (let ((_%e126235126368%_ - (gx#syntax-e _%e126232126249%_))) - (let ((_%hd126236126371%_ - (##car _%e126235126368%_)) - (_%tl126237126373%_ - (##cdr _%e126235126368%_))) - (if (gx#stx-pair? _%tl126237126373%_) - (let ((_%e126238126376%_ + (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 - _%tl126237126373%_))) - (let ((_%hd126239126379%_ - (##car _%e126238126376%_)) - (_%tl126240126381%_ - (##cdr _%e126238126376%_))) - (let ((_%path126384%_ - _%hd126239126379%_)) + _%tl127222127358%_))) + (let ((_%hd127224127364%_ + (##car _%e127223127361%_)) + (_%tl127225127366%_ + (##cdr _%e127223127361%_))) + (let ((_%path127369%_ + _%hd127224127364%_)) (if (gx#stx-null? - _%tl126240126381%_) - (_%K126229%_ - _%rest126230%_ - (cons (_%import-spec-source126157%_ - _%path126384%_) - _%r126231%_)) - (_%E126234126364%_))))) - (_%E126234126364%_)))) - (_%E126234126364%_))))) - (_%E126233126386%_)))) - (_%import-spec-source126157%_ - (lambda (_%spath126226%_) + _%tl127225127366%_) + (_%K127214%_ + _%rest127215%_ + (cons (_%import-spec-source127142%_ + _%path127369%_) + _%r127216%_)) + (_%E127219127349%_))))) + (_%E127219127349%_)))) + (_%E127219127349%_))))) + (_%E127218127371%_)))) + (_%import-spec-source127142%_ + (lambda (_%spath127211%_) (gx#core-import-nested-module - _%spath126226%_ - _%stx126149%_))) - (_%import!126158%_ - (lambda (_%rbody126171%_) - (letrec* ((_%current-ctx126173%_ + _%spath127211%_ + _%stx127134%_))) + (_%import!127143%_ + (lambda (_%rbody127156%_) + (letrec* ((_%current-ctx127158%_ (gx#current-expander-context)) - (_%deps126174%_ (make-hash-table-eq)) - (_%bind!126175%_ - (lambda (_%hd126224%_) + (_%deps127159%_ (make-hash-table-eq)) + (_%bind!127160%_ + (lambda (_%hd127209%_) (gx#core-bind-import!__1 - _%hd126224%_ - _%current-ctx126173%_)))) - (let _%lp126177%_ ((_%rest126179%_ _%rbody126171%_) - (_%body126180%_ '())) - (let* ((_%rest126181126189%_ _%rest126179%_) - (_%else126183126200%_ + _%hd127209%_ + _%current-ctx127158%_)))) + (let _%lp127162%_ ((_%rest127164%_ _%rbody127156%_) + (_%body127165%_ '())) + (let* ((_%rest127166127174%_ _%rest127164%_) + (_%else127168127185%_ (lambda () (if (##structure-instance-of? - _%current-ctx126173%_ + _%current-ctx127158%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx126173%_ + _%current-ctx127158%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx126173%_ + _%current-ctx127158%_ '8 '#f '#f) - _%body126180%_) + _%body127165%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx126197%_ _%_126198%_) - (gx#eval-module _%ctx126197%_)) - _%deps126174%_) - _%body126180%_)) - (_%K126185126212%_ - (lambda (_%rest126203%_ _%hd126204%_) + (lambda (_%ctx127182%_ _%_127183%_) + (gx#eval-module _%ctx127182%_)) + _%deps127159%_) + _%body127165%_)) + (_%K127170127197%_ + (lambda (_%rest127188%_ _%hd127189%_) (if (##structure-direct-instance-of? - _%hd126204%_ + _%hd127189%_ 'gx#module-import::t) (let () - (_%bind!126175%_ _%hd126204%_) + (_%bind!127160%_ _%hd127189%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd126204%_ + _%hd127189%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd126204%_ + _%hd127189%_ '1 '#f '#f) @@ -3101,10 +3101,10 @@ '#f '#f))) (__hash-put! - _%deps126174%_ + _%deps127159%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd126204%_ + _%hd127189%_ '1 '#f '#f) @@ -3114,155 +3114,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd126204%_ + _%hd127189%_ 'gx#import-set::t) (let () (for-each - _%bind!126175%_ + _%bind!127160%_ (##unchecked-structure-ref - _%hd126204%_ + _%hd127189%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd126204%_ + _%hd127189%_ '2 '#f '#f)) (__hash-put! - _%deps126174%_ + _%deps127159%_ (##unchecked-structure-ref - _%hd126204%_ + _%hd127189%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e126208%_ + (let ((_%$e127193%_ (##structure-instance-of? - _%hd126204%_ + _%hd127189%_ 'gx#module-context::t))) - (if _%$e126208%_ - _%$e126208%_ + (if _%$e127193%_ + _%$e127193%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx126149%_ - _%hd126204%_))))) - (_%lp126177%_ - _%rest126203%_ - (cons _%hd126204%_ _%body126180%_))))) - (if (pair? _%rest126181126189%_) - (let ((_%hd126186126215%_ - (##car _%rest126181126189%_)) - (_%tl126187126217%_ - (##cdr _%rest126181126189%_))) - (let* ((_%hd126220%_ _%hd126186126215%_) - (_%rest126222%_ _%tl126187126217%_)) - (_%K126185126212%_ - _%rest126222%_ - _%hd126220%_))) - (_%else126183126200%_))))))) - (_%expanded-import?126159%_ - (lambda (_%e126163%_) - (let ((_%$e126165%_ + _%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? - _%e126163%_ + _%e127148%_ 'gx#import-set::t))) - (if _%$e126165%_ - _%$e126165%_ - (let ((_%$e126168%_ + (if _%$e127150%_ + _%$e127150%_ + (let ((_%$e127153%_ (##structure-direct-instance-of? - _%e126163%_ + _%e127148%_ 'gx#module-import::t))) - (if _%$e126168%_ - _%$e126168%_ + (if _%$e127153%_ + _%$e127153%_ (##structure-instance-of? - _%e126163%_ + _%e127148%_ 'gx#module-context::t)))))))) - (let ((_%rbody126161%_ + (let ((_%rbody127146%_ (gx#core-expand-import/export - _%stx126149%_ - _%expanded-import?126159%_ + _%stx127134%_ + _%expanded-import?127144%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1126152%_))) - (if _%internal-expand?126150%_ - (reverse _%rbody126161%_) + _%expand1127137%_))) + (if _%internal-expand?127135%_ + (reverse _%rbody127146%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!126158%_ _%rbody126161%_)) - (gx#stx-source _%stx126149%_))))))) + (gx#core-cons '%#import (_%import!127143%_ _%rbody127146%_)) + (gx#stx-source _%stx127134%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx126488%_) - (let ((_%internal-expand?126490%_ '#f)) + (lambda (_%stx127473%_) + (let ((_%internal-expand?127475%_ '#f)) (gx#core-expand-import%__% - _%stx126488%_ - _%internal-expand?126490%_)))) + _%stx127473%_ + _%internal-expand?127475%_)))) (define gx#core-expand-import% - (lambda _g129141_ - (let ((_g129140_ (##length _g129141_))) - (cond ((##fx= _g129140_ 1) - (apply gx#core-expand-import%__0 _g129141_)) - ((##fx= _g129140_ 2) - (apply gx#core-expand-import%__% _g129141_)) + (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% - _g129141_)))))) + _g130126_)))))) (define gx#core-import-nested-module - (lambda (_%spath126076%_ _%where126077%_) - (let* ((_%e126078126085%_ _%spath126076%_) - (_%E126080126089%_ + (lambda (_%spath127061%_ _%where127062%_) + (let* ((_%e127063127070%_ _%spath127061%_) + (_%E127065127074%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126078126085%_))) - (_%E126079126144%_ + _%e127063127070%_))) + (_%E127064127129%_ (lambda () - (if (gx#stx-pair? _%e126078126085%_) - (let ((_%e126081126093%_ - (gx#syntax-e _%e126078126085%_))) - (let ((_%hd126082126096%_ (##car _%e126081126093%_)) - (_%tl126083126098%_ (##cdr _%e126081126093%_))) - (let* ((_%origin126101%_ _%hd126082126096%_) - (_%sub126103%_ _%tl126083126098%_) - (_%origin-ctx126105%_ - (if (gx#stx-false? _%origin126101%_) + (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 _%origin126101%_)))) - (let _%lp126107%_ ((_%rest126109%_ _%sub126103%_) - (_%ctx126110%_ - _%origin-ctx126105%_)) - (let* ((_%e126111126118%_ _%rest126109%_) - (_%E126113126122%_ - (lambda () _%ctx126110%_)) - (_%E126112126140%_ + (gx#import-module__0 _%origin127086%_)))) + (let _%lp127092%_ ((_%rest127094%_ _%sub127088%_) + (_%ctx127095%_ + _%origin-ctx127090%_)) + (let* ((_%e127096127103%_ _%rest127094%_) + (_%E127098127107%_ + (lambda () _%ctx127095%_)) + (_%E127097127125%_ (lambda () - (if (gx#stx-pair? _%e126111126118%_) - (let ((_%e126114126126%_ + (if (gx#stx-pair? _%e127096127103%_) + (let ((_%e127099127111%_ (gx#syntax-e - _%e126111126118%_))) - (let ((_%hd126115126129%_ - (##car _%e126114126126%_)) - (_%tl126116126131%_ - (##cdr _%e126114126126%_))) - (let* ((_%id126134%_ - _%hd126115126129%_) - (_%rest126136%_ - _%tl126116126131%_) - (_%bind126138%_ + _%e127096127103%_))) + (let ((_%hd127100127114%_ + (##car _%e127099127111%_)) + (_%tl127101127116%_ + (##cdr _%e127099127111%_))) + (let* ((_%id127119%_ + _%hd127100127114%_) + (_%rest127121%_ + _%tl127101127116%_) + (_%bind127123%_ (gx#resolve-identifier__% - _%id126134%_ + _%id127119%_ '0 - _%ctx126110%_))) + _%ctx127095%_))) (if (and (##structure-direct-instance-of? - _%bind126138%_ + _%bind127123%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind126138%_ + _%bind127123%_ '4 '#f '#f) @@ -3271,804 +3271,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where126077%_ - _%spath126076%_ - _%id126134%_)) - (_%lp126107%_ - _%rest126136%_ + _%where127062%_ + _%spath127061%_ + _%id127119%_)) + (_%lp127092%_ + _%rest127121%_ (##unchecked-structure-ref - _%bind126138%_ + _%bind127123%_ '4 '#f '#f))))) - (_%E126113126122%_))))) - (_%E126112126140%_)))))) - (_%E126080126089%_))))) - (_%E126079126144%_)))) + (_%E127098127107%_))))) + (_%E127097127125%_)))))) + (_%E127065127074%_))))) + (_%E127064127129%_)))) (define gx#core-expand-import-source - (lambda (_%hd126074%_) + (lambda (_%hd127059%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd126074%_ '())) + (cons 'import-internal% (cons _%hd127059%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx125568%_ _%internal-expand?125569%_) - (letrec* ((_%make-export__129069129070%_ - (lambda (_%bind126022%_ - _%phi126023%_ - _%ctx126024%_ - _%name126025%_) - (let* ((_%key126027%_ + (lambda (_%stx126553%_ _%internal-expand?126554%_) + (letrec* ((_%make-export__130054130055%_ + (lambda (_%bind127007%_ + _%phi127008%_ + _%ctx127009%_ + _%name127010%_) + (let* ((_%key127012%_ (##unchecked-structure-ref - _%bind126022%_ + _%bind127007%_ '2 '#f '#f)) - (_%export-key126029%_ - (if _%name126025%_ - (gx#core-identifier-key _%name126025%_) - _%key126027%_))) + (_%export-key127014%_ + (if _%name127010%_ + (gx#core-identifier-key _%name127010%_) + _%key127012%_))) (##structure gx#module-export::t - _%ctx126024%_ - _%key126027%_ - _%phi126023%_ - _%export-key126029%_ - (let ((_%$e126032%_ + _%ctx127009%_ + _%key127012%_ + _%phi127008%_ + _%export-key127014%_ + (let ((_%$e127017%_ (##structure-instance-of? - _%bind126022%_ + _%bind127007%_ 'gx#extern-binding::t))) - (if _%$e126032%_ - _%$e126032%_ + (if _%$e127017%_ + _%$e127017%_ (##structure-direct-instance-of? - _%bind126022%_ + _%bind127007%_ 'gx#import-binding::t))))))) - (_%make-export__0__129071129074%_ - (lambda (_%bind126038%_) - (let* ((_%phi126040%_ (gx#current-export-expander-phi)) - (_%ctx126042%_ (gx#current-expander-context)) - (_%name126044%_ '#f)) - (_%make-export__129069129070%_ - _%bind126038%_ - _%phi126040%_ - _%ctx126042%_ - _%name126044%_)))) - (_%make-export__1__129072129075%_ - (lambda (_%bind126046%_ _%phi126047%_) - (let* ((_%ctx126049%_ (gx#current-expander-context)) - (_%name126051%_ '#f)) - (_%make-export__129069129070%_ - _%bind126046%_ - _%phi126047%_ - _%ctx126049%_ - _%name126051%_)))) - (_%make-export__2__129073129076%_ - (lambda (_%bind126053%_ _%phi126054%_ _%ctx126055%_) - (let ((_%name126057%_ '#f)) - (_%make-export__129069129070%_ - _%bind126053%_ - _%phi126054%_ - _%ctx126055%_ - _%name126057%_)))) - (_%make-export125571%_ - (lambda _g129143_ - (let ((_g129142_ (##length _g129143_))) - (cond ((##fx= _g129142_ 1) - (apply _%make-export__0__129071129074%_ - _g129143_)) - ((##fx= _g129142_ 2) - (apply _%make-export__1__129072129075%_ - _g129143_)) - ((##fx= _g129142_ 3) - (apply _%make-export__2__129073129076%_ - _g129143_)) - ((##fx= _g129142_ 4) - (apply _%make-export__129069129070%_ _g129143_)) + (_%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 - _g129143_)))))) - (_%expand1125572%_ - (lambda (_%hd125727%_ - _%K125728%_ - _%rest125729%_ - _%r125730%_) - (let* ((_%e125731125763%_ _%hd125727%_) - (_%E125758125767%_ + _g130128_)))))) + (_%expand1126557%_ + (lambda (_%hd126712%_ + _%K126713%_ + _%rest126714%_ + _%r126715%_) + (let* ((_%e126716126748%_ _%hd126712%_) + (_%E126743126752%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx125568%_ - _%hd125727%_))) - (_%E125748125851%_ + _%stx126553%_ + _%hd126712%_))) + (_%E126733126836%_ (lambda () - (if (gx#stx-pair? _%e125731125763%_) - (let ((_%e125759125771%_ - (gx#syntax-e _%e125731125763%_))) - (let ((_%hd125760125774%_ - (##car _%e125759125771%_)) - (_%tl125761125776%_ - (##cdr _%e125759125771%_))) - (if (eq? (gx#stx-e _%hd125760125774%_) + (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 ((_%in125779%_ - _%tl125761125776%_)) - (if (gx#stx-list? _%in125779%_) - (let _%lp125781%_ ((_%in-rest125783%_ + (let ((_%in126764%_ + _%tl126746126761%_)) + (if (gx#stx-list? _%in126764%_) + (let _%lp126766%_ ((_%in-rest126768%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in125779%_) - (_%r125784%_ _%r125730%_)) + _%in126764%_) + (_%r126769%_ _%r126715%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e125785125792%_ - _%in-rest125783%_) - (_%E125787125796%_ + (let* ((_%e126770126777%_ + _%in-rest126768%_) + (_%E126772126781%_ (lambda () - (_%K125728%_ - _%rest125729%_ - _%r125784%_))) - (_%E125786125847%_ + (_%K126713%_ + _%rest126714%_ + _%r126769%_))) + (_%E126771126832%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125785125792%_) - (let ((_%e125788125800%_ - (gx#syntax-e _%e125785125792%_))) - (let ((_%hd125789125803%_ (##car _%e125788125800%_)) - (_%tl125790125805%_ - (##cdr _%e125788125800%_))) - (let* ((_%hd125808%_ _%hd125789125803%_) - (_%in-rest125810%_ _%tl125790125805%_) - (_%src125845%_ - (if (gx#core-bound-module? _%hd125808%_) - (gx#syntax-local-e__0 _%hd125808%_) + _%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? - _%hd125808%_) + _%hd126793%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd125808%_)) + _%hd126793%_)) (if (gx#core-library-relative-module-path? - _%hd125808%_) + _%hd126793%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd125808%_)) + _%hd126793%_)) (if (gx#stx-string? - _%hd125808%_) + _%hd126793%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd125808%_ + _%hd126793%_ (gx#stx-source - _%stx125568%_))) - (let* ((_%e125816125823%_ - _%hd125808%_) - (_%E125818125827%_ + _%stx126553%_))) + (let* ((_%e126801126808%_ + _%hd126793%_) + (_%E126803126812%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx125568%_ - _%hd125808%_))) - (_%E125817125841%_ + _%stx126553%_ + _%hd126793%_))) + (_%E126802126826%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125816125823%_) - (let ((_%e125819125831%_ - (gx#syntax-e _%e125816125823%_))) - (let ((_%hd125820125834%_ - (##car _%e125819125831%_)) - (_%tl125821125836%_ - (##cdr _%e125819125831%_))) - (if (eq? (gx#stx-e _%hd125820125834%_) 'in:) - (let ((_%spath125839%_ _%tl125821125836%_)) + _%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 - _%spath125839%_ - _%stx125568%_)) - (_%E125818125827%_)))) - (_%E125818125827%_))))) - (_%E125817125841%_)))))))) + _%spath126824%_ + _%stx126553%_)) + (_%E126803126812%_)))) + (_%E126803126812%_))))) + (_%E126802126826%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp125781%_ - _%in-rest125810%_ - (_%export-imports125573%_ - _%src125845%_ - _%r125784%_))))) - (_%E125787125796%_))))) + (_%lp126766%_ + _%in-rest126795%_ + (_%export-imports126558%_ + _%src126830%_ + _%r126769%_))))) + (_%E126772126781%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125786125847%_))) - (_%E125758125767%_))) - (_%E125758125767%_)))) - (_%E125758125767%_)))) - (_%E125735125891%_ + (_%E126771126832%_))) + (_%E126743126752%_))) + (_%E126743126752%_)))) + (_%E126743126752%_)))) + (_%E126720126876%_ (lambda () - (if (gx#stx-pair? _%e125731125763%_) - (let ((_%e125749125855%_ - (gx#syntax-e _%e125731125763%_))) - (let ((_%hd125750125858%_ - (##car _%e125749125855%_)) - (_%tl125751125860%_ - (##cdr _%e125749125855%_))) - (if (eq? (gx#stx-e _%hd125750125858%_) + (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? - _%tl125751125860%_) - (let ((_%e125752125863%_ + _%tl126736126845%_) + (let ((_%e126737126848%_ (gx#syntax-e - _%tl125751125860%_))) - (let ((_%hd125753125866%_ - (##car _%e125752125863%_)) - (_%tl125754125868%_ - (##cdr _%e125752125863%_))) - (let ((_%id125871%_ - _%hd125753125866%_)) + _%tl126736126845%_))) + (let ((_%hd126738126851%_ + (##car _%e126737126848%_)) + (_%tl126739126853%_ + (##cdr _%e126737126848%_))) + (let ((_%id126856%_ + _%hd126738126851%_)) (if (gx#stx-pair? - _%tl125754125868%_) - (let ((_%e125755125873%_ + _%tl126739126853%_) + (let ((_%e126740126858%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125754125868%_))) - (let ((_%hd125756125876%_ (##car _%e125755125873%_)) - (_%tl125757125878%_ (##cdr _%e125755125873%_))) - (let ((_%name125881%_ _%hd125756125876%_)) - (if (gx#stx-null? _%tl125757125878%_) - (let* ((_%phi125883%_ + _%tl126739126853%_))) + (let ((_%hd126741126861%_ (##car _%e126740126858%_)) + (_%tl126742126863%_ (##cdr _%e126740126858%_))) + (let ((_%name126866%_ _%hd126741126861%_)) + (if (gx#stx-null? _%tl126742126863%_) + (let* ((_%phi126868%_ (gx#current-export-expander-phi)) - (_%$e125885%_ + (_%$e126870%_ (gx#core-resolve-identifier__1 - _%id125871%_ - _%phi125883%_))) - (if _%$e125885%_ - ((lambda (_%bind125888%_) - (_%K125728%_ - _%rest125729%_ - (cons (_%make-export__129069129070%_ - _%bind125888%_ - _%phi125883%_ + _%id126856%_ + _%phi126868%_))) + (if _%$e126870%_ + ((lambda (_%bind126873%_) + (_%K126713%_ + _%rest126714%_ + (cons (_%make-export__130054130055%_ + _%bind126873%_ + _%phi126868%_ (gx#current-expander-context) - _%name125881%_) - _%r125730%_))) - _%$e125885%_) + _%name126866%_) + _%r126715%_))) + _%$e126870%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125568%_ - _%hd125727%_ - _%id125871%_))) - (_%E125748125851%_))))) - (_%E125748125851%_))))) + _%stx126553%_ + _%hd126712%_ + _%id126856%_))) + (_%E126733126836%_))))) + (_%E126733126836%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125748125851%_)) - (_%E125748125851%_)))) - (_%E125748125851%_)))) - (_%E125734125941%_ + (_%E126733126836%_)) + (_%E126733126836%_)))) + (_%E126733126836%_)))) + (_%E126719126926%_ (lambda () - (if (gx#stx-pair? _%e125731125763%_) - (let ((_%e125736125895%_ - (gx#syntax-e _%e125731125763%_))) - (let ((_%hd125737125898%_ - (##car _%e125736125895%_)) - (_%tl125738125900%_ - (##cdr _%e125736125895%_))) - (if (eq? (gx#stx-e _%hd125737125898%_) + (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? - _%tl125738125900%_) - (let ((_%e125739125903%_ + _%tl126723126885%_) + (let ((_%e126724126888%_ (gx#syntax-e - _%tl125738125900%_))) - (let ((_%hd125740125906%_ - (##car _%e125739125903%_)) - (_%tl125741125908%_ - (##cdr _%e125739125903%_))) - (let ((_%phi125911%_ - _%hd125740125906%_)) + _%tl126723126885%_))) + (let ((_%hd126725126891%_ + (##car _%e126724126888%_)) + (_%tl126726126893%_ + (##cdr _%e126724126888%_))) + (let ((_%phi126896%_ + _%hd126725126891%_)) (if (gx#stx-pair? - _%tl125741125908%_) - (let ((_%e125742125913%_ + _%tl126726126893%_) + (let ((_%e126727126898%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125741125908%_))) - (let ((_%hd125743125916%_ (##car _%e125742125913%_)) - (_%tl125744125918%_ (##cdr _%e125742125913%_))) - (let ((_%id125921%_ _%hd125743125916%_)) - (if (gx#stx-pair? _%tl125744125918%_) - (let ((_%e125745125923%_ - (gx#syntax-e _%tl125744125918%_))) - (let ((_%hd125746125926%_ - (##car _%e125745125923%_)) - (_%tl125747125928%_ - (##cdr _%e125745125923%_))) - (let ((_%name125931%_ _%hd125746125926%_)) - (if (gx#stx-null? _%tl125747125928%_) - (if (and (gx#stx-fixnum? _%phi125911%_) - (gx#identifier? _%id125921%_) - (gx#identifier? _%name125931%_)) - (let* ((_%phi125933%_ - (gx#stx-e _%phi125911%_)) - (_%$e125935%_ + _%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 - _%id125921%_ - _%phi125933%_))) - (if _%$e125935%_ - ((lambda (_%bind125938%_) - (_%K125728%_ - _%rest125729%_ - (cons (_%make-export__129069129070%_ - _%bind125938%_ - _%phi125933%_ + _%id126906%_ + _%phi126918%_))) + (if _%$e126920%_ + ((lambda (_%bind126923%_) + (_%K126713%_ + _%rest126714%_ + (cons (_%make-export__130054130055%_ + _%bind126923%_ + _%phi126918%_ (gx#current-expander-context) - _%name125931%_) - _%r125730%_))) - _%$e125935%_) + _%name126916%_) + _%r126715%_))) + _%$e126920%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125568%_ - _%hd125727%_ - _%id125921%_))) - (_%E125735125891%_)) - (_%E125735125891%_))))) - (_%E125735125891%_))))) - (_%E125735125891%_))))) + _%stx126553%_ + _%hd126712%_ + _%id126906%_))) + (_%E126720126876%_)) + (_%E126720126876%_))))) + (_%E126720126876%_))))) + (_%E126720126876%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125735125891%_)) - (_%E125735125891%_)))) - (_%E125735125891%_)))) - (_%E125733125953%_ + (_%E126720126876%_)) + (_%E126720126876%_)))) + (_%E126720126876%_)))) + (_%E126718126938%_ (lambda () - (let ((_%id125945%_ _%e125731125763%_)) - (if (gx#identifier? _%id125945%_) - (let ((_%$e125947%_ + (let ((_%id126930%_ _%e126716126748%_)) + (if (gx#identifier? _%id126930%_) + (let ((_%$e126932%_ (gx#core-resolve-identifier__1 - _%id125945%_ + _%id126930%_ (gx#current-export-expander-phi)))) - (if _%$e125947%_ - ((lambda (_%bind125950%_) - (_%K125728%_ - _%rest125729%_ - (cons (_%make-export__0__129071129074%_ - _%bind125950%_) - _%r125730%_))) - _%$e125947%_) + (if _%$e126932%_ + ((lambda (_%bind126935%_) + (_%K126713%_ + _%rest126714%_ + (cons (_%make-export__0__130056130059%_ + _%bind126935%_) + _%r126715%_))) + _%$e126932%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125568%_ - _%hd125727%_))) - (_%E125734125941%_))))) - (_%E125732126017%_ + _%stx126553%_ + _%hd126712%_))) + (_%E126719126926%_))))) + (_%E126717127002%_ (lambda () - (if (eq? (gx#stx-e _%e125731125763%_) '#t) - (let* ((_%current-ctx125957%_ + (if (eq? (gx#stx-e _%e126716126748%_) '#t) + (let* ((_%current-ctx126942%_ (gx#current-expander-context)) - (_%current-phi125959%_ + (_%current-phi126944%_ (gx#current-export-expander-phi)) - (_%phi-ctx125961%_ + (_%phi-ctx126946%_ (gx#core-context-shift - _%current-ctx125957%_ - _%current-phi125959%_)) - (_%phi-bind125963%_ + _%current-ctx126942%_ + _%current-phi126944%_)) + (_%phi-bind126948%_ (hash->list (##unchecked-structure-ref - _%phi-ctx125961%_ + _%phi-ctx126946%_ '2 '#f '#f)))) - (let _%lp125966%_ ((_%bind-rest125968%_ - _%phi-bind125963%_) - (_%set125969%_ '())) - (let* ((_%bind-rest125970125980%_ - _%bind-rest125968%_) - (_%else125972125988%_ + (let _%lp126951%_ ((_%bind-rest126953%_ + _%phi-bind126948%_) + (_%set126954%_ '())) + (let* ((_%bind-rest126955126965%_ + _%bind-rest126953%_) + (_%else126957126973%_ (lambda () - (_%K125728%_ - _%rest125729%_ + (_%K126713%_ + _%rest126714%_ (cons (##structure gx#export-set::t '#f - _%current-phi125959%_ - _%set125969%_) - _%r125730%_)))) - (_%K125974125998%_ - (lambda (_%bind-rest125991%_ - _%bind125992%_ - _%key125993%_) + _%current-phi126944%_ + _%set126954%_) + _%r126715%_)))) + (_%K126959126983%_ + (lambda (_%bind-rest126976%_ + _%bind126977%_ + _%key126978%_) (if (or (##structure-direct-instance-of? - _%bind125992%_ + _%bind126977%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind125992%_)) - (_%lp125966%_ - _%bind-rest125991%_ - _%set125969%_) - (_%lp125966%_ - _%bind-rest125991%_ - (cons (_%make-export__2__129073129076%_ - _%bind125992%_ - _%current-phi125959%_ - _%current-ctx125957%_) - _%set125969%_)))))) - (if (pair? _%bind-rest125970125980%_) - (let ((_%hd125975126001%_ - (##car _%bind-rest125970125980%_)) - (_%tl125976126003%_ - (##cdr _%bind-rest125970125980%_))) - (if (pair? _%hd125975126001%_) - (let ((_%hd125977126006%_ - (##car _%hd125975126001%_)) - (_%tl125978126008%_ - (##cdr _%hd125975126001%_))) - (let* ((_%key126011%_ - _%hd125977126006%_) - (_%bind126013%_ - _%tl125978126008%_) - (_%bind-rest126015%_ - _%tl125976126003%_)) - (_%K125974125998%_ - _%bind-rest126015%_ - _%bind126013%_ - _%key126011%_))) - (_%else125972125988%_))) - (_%else125972125988%_))))) - (_%E125733125953%_))))) - (_%E125732126017%_)))) - (_%export-imports125573%_ - (lambda (_%src125603%_ _%r125604%_) - (letrec* ((_%current-ctx125606%_ + _%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-phi125607%_ + (_%current-phi126592%_ (gx#current-export-expander-phi)) - (_%import->export125608%_ - (lambda (_%in125689%_) - (let* ((_%in125690125698%_ _%in125689%_) - (_%E125692125702%_ + (_%import->export126593%_ + (lambda (_%in126674%_) + (let* ((_%in126675126683%_ _%in126674%_) + (_%E126677126687%_ (lambda () (error '"No clause matching" - _%in125690125698%_ + _%in126675126683%_ '((module-import out key phi))) '#!void)) - (_%K125693125709%_ - (lambda (_%phi125705%_ - _%key125706%_ - _%out125707%_) + (_%K126678126694%_ + (lambda (_%phi126690%_ + _%key126691%_ + _%out126692%_) (##structure gx#module-export::t - _%current-ctx125606%_ - _%key125706%_ - _%phi125705%_ - _%key125706%_ + _%current-ctx126591%_ + _%key126691%_ + _%phi126690%_ + _%key126691%_ '#t)))) (if (##structure-direct-instance-of? - _%in125690125698%_ + _%in126675126683%_ 'gx#module-import::t) - (let* ((_%e125694125712%_ + (let* ((_%e126679126697%_ (##unchecked-structure-ref - _%in125690125698%_ + _%in126675126683%_ '1 '#f '#f)) - (_%out125715%_ - _%e125694125712%_) - (_%e125695125717%_ + (_%out126700%_ + _%e126679126697%_) + (_%e126680126702%_ (##unchecked-structure-ref - _%in125690125698%_ + _%in126675126683%_ '2 '#f '#f)) - (_%key125720%_ - _%e125695125717%_) - (_%e125696125722%_ + (_%key126705%_ + _%e126680126702%_) + (_%e126681126707%_ (##unchecked-structure-ref - _%in125690125698%_ + _%in126675126683%_ '3 '#f '#f)) - (_%phi125725%_ - _%e125696125722%_)) - (_%K125693125709%_ - _%phi125725%_ - _%key125720%_ - _%out125715%_)) - (_%E125692125702%_))))) - (_%fold-e125609%_ - (lambda (_%in125611%_ _%r125612%_) - (let* ((_%in125613125627%_ _%in125611%_) - (_%else125616125635%_ - (lambda () _%r125612%_))) - (let ((_%K125622125671%_ - (lambda (_%phi125667%_ - _%key125668%_ - _%out125669%_) - (if (and (fx= _%phi125667%_ - _%current-phi125607%_) - (eq? _%src125603%_ + (_%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 - _%out125669%_ + _%out126654%_ '1 '#f '#f))) - (cons (_%import->export125608%_ - _%in125611%_) - _%r125612%_) - _%r125612%_))) - (_%K125618125646%_ - (lambda (_%imports125639%_ - _%phi125640%_ - _%ctx125641%_) - (if (and (fx= _%phi125640%_ - _%current-phi125607%_) - (eq? _%src125603%_ - _%ctx125641%_)) + (cons (_%import->export126593%_ + _%in126596%_) + _%r126597%_) + _%r126597%_))) + (_%K126603126631%_ + (lambda (_%imports126624%_ + _%phi126625%_ + _%ctx126626%_) + (if (and (fx= _%phi126625%_ + _%current-phi126592%_) + (eq? _%src126588%_ + _%ctx126626%_)) (__foldl1 - (lambda (_%in125643%_ - _%r125644%_) - (cons (_%import->export125608%_ - _%in125643%_) - _%r125644%_)) - _%r125612%_ - _%imports125639%_) - _%r125612%_)))) - (let ((_%try-match125615125664%_ + (lambda (_%in126628%_ + _%r126629%_) + (cons (_%import->export126593%_ + _%in126628%_) + _%r126629%_)) + _%r126597%_ + _%imports126624%_) + _%r126597%_)))) + (let ((_%try-match126600126649%_ (lambda () (if (##structure-direct-instance-of? - _%in125613125627%_ + _%in126598126612%_ 'gx#import-set::t) - (let* ((_%e125619125649%_ + (let* ((_%e126604126634%_ (##unchecked-structure-ref - _%in125613125627%_ + _%in126598126612%_ '1 '#f '#f)) - (_%e125620125654%_ + (_%e126605126639%_ (##unchecked-structure-ref - _%in125613125627%_ + _%in126598126612%_ '2 '#f '#f)) - (_%e125621125659%_ + (_%e126606126644%_ (##unchecked-structure-ref - _%in125613125627%_ + _%in126598126612%_ '3 '#f '#f))) - (let ((_%ctx125652%_ - _%e125619125649%_) - (_%phi125657%_ - _%e125620125654%_) - (_%imports125662%_ - _%e125621125659%_)) - (_%K125618125646%_ - _%imports125662%_ - _%phi125657%_ - _%ctx125652%_))) - (_%else125616125635%_))))) + (let ((_%ctx126637%_ + _%e126604126634%_) + (_%phi126642%_ + _%e126605126639%_) + (_%imports126647%_ + _%e126606126644%_)) + (_%K126603126631%_ + _%imports126647%_ + _%phi126642%_ + _%ctx126637%_))) + (_%else126601126620%_))))) (if (##structure-direct-instance-of? - _%in125613125627%_ + _%in126598126612%_ 'gx#module-import::t) - (let* ((_%e125623125674%_ + (let* ((_%e126608126659%_ (##unchecked-structure-ref - _%in125613125627%_ + _%in126598126612%_ '1 '#f '#f)) - (_%e125624125679%_ + (_%e126609126664%_ (##unchecked-structure-ref - _%in125613125627%_ + _%in126598126612%_ '2 '#f '#f)) - (_%e125625125684%_ + (_%e126610126669%_ (##unchecked-structure-ref - _%in125613125627%_ + _%in126598126612%_ '3 '#f '#f))) - (let ((_%out125677%_ - _%e125623125674%_) - (_%key125682%_ - _%e125624125679%_) - (_%phi125687%_ - _%e125625125684%_)) - (_%K125622125671%_ - _%phi125687%_ - _%key125682%_ - _%out125677%_))) - (_%try-match125615125664%_)))))))) + (let ((_%out126662%_ + _%e126608126659%_) + (_%key126667%_ + _%e126609126664%_) + (_%phi126672%_ + _%e126610126669%_)) + (_%K126607126656%_ + _%phi126672%_ + _%key126667%_ + _%out126662%_))) + (_%try-match126600126649%_)))))))) (cons (##structure gx#export-set::t - _%src125603%_ - _%current-phi125607%_ + _%src126588%_ + _%current-phi126592%_ (__foldl1 - _%fold-e125609%_ + _%fold-e126594%_ '() (##unchecked-structure-ref - _%current-ctx125606%_ + _%current-ctx126591%_ '8 '#f '#f))) - _%r125604%_)))) - (_%export!125574%_ - (lambda (_%rbody125590%_) - (letrec* ((_%current-ctx125592%_ + _%r126589%_)))) + (_%export!126559%_ + (lambda (_%rbody126575%_) + (letrec* ((_%current-ctx126577%_ (gx#current-expander-context)) - (_%fold-e125593%_ - (lambda (_%out125597%_ _%r125598%_) + (_%fold-e126578%_ + (lambda (_%out126582%_ _%r126583%_) (if (##structure-direct-instance-of? - _%out125597%_ + _%out126582%_ 'gx#module-export::t) - (cons _%out125597%_ _%r125598%_) + (cons _%out126582%_ _%r126583%_) (if (##structure-direct-instance-of? - _%out125597%_ + _%out126582%_ 'gx#export-set::t) (__foldl1 cons - _%r125598%_ + _%r126583%_ (##unchecked-structure-ref - _%out125597%_ + _%out126582%_ '3 '#f '#f)) - _%r125598%_))))) - (let ((_%body125595%_ (reverse _%rbody125590%_))) + _%r126583%_))))) + (let ((_%body126580%_ (reverse _%rbody126575%_))) (##unchecked-structure-set! - _%current-ctx125592%_ + _%current-ctx126577%_ (__foldl1 - _%fold-e125593%_ + _%fold-e126578%_ (##unchecked-structure-ref - _%current-ctx125592%_ + _%current-ctx126577%_ '9 '#f '#f) - _%body125595%_) + _%body126580%_) '9 '#f '#f) - _%body125595%_)))) - (_%expanded-export?125575%_ - (lambda (_%e125585%_) - (let ((_%$e125587%_ + _%body126580%_)))) + (_%expanded-export?126560%_ + (lambda (_%e126570%_) + (let ((_%$e126572%_ (##structure-direct-instance-of? - _%e125585%_ + _%e126570%_ 'gx#module-export::t))) - (if _%$e125587%_ - _%$e125587%_ + (if _%$e126572%_ + _%$e126572%_ (##structure-direct-instance-of? - _%e125585%_ + _%e126570%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?125569%_) - (let ((_%rbody125581%_ + _%internal-expand?126554%_) + (let ((_%rbody126566%_ (gx#core-expand-import/export - _%stx125568%_ - _%expanded-export?125575%_ + _%stx126553%_ + _%expanded-export?126560%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1125572%_))) - (if _%internal-expand?125569%_ - (reverse _%rbody125581%_) + _%expand1126557%_))) + (if _%internal-expand?126554%_ + (reverse _%rbody126566%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!125574%_ _%rbody125581%_)) - (gx#stx-source _%stx125568%_)))) + (_%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 _%stx125568%_)) + (gx#stx-source _%stx126553%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx125568%_)))))) + _%stx126553%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx126067%_) - (let ((_%internal-expand?126069%_ '#f)) + (lambda (_%stx127052%_) + (let ((_%internal-expand?127054%_ '#f)) (gx#core-expand-export%__% - _%stx126067%_ - _%internal-expand?126069%_)))) + _%stx127052%_ + _%internal-expand?127054%_)))) (define gx#core-expand-export% - (lambda _g129145_ - (let ((_g129144_ (##length _g129145_))) - (cond ((##fx= _g129144_ 1) - (apply gx#core-expand-export%__0 _g129145_)) - ((##fx= _g129144_ 2) - (apply gx#core-expand-export%__% _g129145_)) + (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% - _g129145_)))))) + _g130130_)))))) (define gx#core-expand-export-source - (lambda (_%hd125565%_) + (lambda (_%hd126550%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd125565%_ '())) + (cons 'export-macro% (cons _%hd126550%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx125535%_) - (let* ((_%e125536125543%_ _%stx125535%_) - (_%E125538125547%_ + (lambda (_%stx126520%_) + (let* ((_%e126521126528%_ _%stx126520%_) + (_%E126523126532%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125536125543%_))) - (_%E125537125561%_ + _%e126521126528%_))) + (_%E126522126546%_ (lambda () - (if (gx#stx-pair? _%e125536125543%_) - (let ((_%e125539125551%_ - (gx#syntax-e _%e125536125543%_))) - (let ((_%hd125540125554%_ (##car _%e125539125551%_)) - (_%tl125541125556%_ (##cdr _%e125539125551%_))) - (let ((_%body125559%_ _%tl125541125556%_)) - (if (gx#identifier-list? _%body125559%_) + (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! - _%body125559%_) + _%body126544%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body125559%_)) - (gx#stx-source _%stx125535%_))) - (_%E125538125547%_))))) - (_%E125538125547%_))))) - (_%E125537125561%_)))) + _%body126544%_)) + (gx#stx-source _%stx126520%_))) + (_%E126523126532%_))))) + (_%E126523126532%_))))) + (_%E126522126546%_)))) (define gx#core-bind-feature!__% - (lambda (_%id125501%_ _%private?125502%_ _%phi125503%_ _%ctx125504%_) + (lambda (_%id126486%_ _%private?126487%_ _%phi126488%_ _%ctx126489%_) (gx#core-bind-syntax!__% - _%id125501%_ - ((if _%private?125502%_ + _%id126486%_ + ((if _%private?126487%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id125501%_)) - _%private?125502%_ - _%phi125503%_ - _%ctx125504%_))) + (gx#stx-e _%id126486%_)) + _%private?126487%_ + _%phi126488%_ + _%ctx126489%_))) (define gx#core-bind-feature!__0 - (lambda (_%id125509%_) - (let* ((_%private?125511%_ '#f) - (_%phi125513%_ (gx#current-expander-phi)) - (_%ctx125515%_ (gx#current-expander-context))) + (lambda (_%id126494%_) + (let* ((_%private?126496%_ '#f) + (_%phi126498%_ (gx#current-expander-phi)) + (_%ctx126500%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125509%_ - _%private?125511%_ - _%phi125513%_ - _%ctx125515%_)))) + _%id126494%_ + _%private?126496%_ + _%phi126498%_ + _%ctx126500%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id125517%_ _%private?125518%_) - (let* ((_%phi125520%_ (gx#current-expander-phi)) - (_%ctx125522%_ (gx#current-expander-context))) + (lambda (_%id126502%_ _%private?126503%_) + (let* ((_%phi126505%_ (gx#current-expander-phi)) + (_%ctx126507%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125517%_ - _%private?125518%_ - _%phi125520%_ - _%ctx125522%_)))) + _%id126502%_ + _%private?126503%_ + _%phi126505%_ + _%ctx126507%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id125524%_ _%private?125525%_ _%phi125526%_) - (let ((_%ctx125528%_ (gx#current-expander-context))) + (lambda (_%id126509%_ _%private?126510%_ _%phi126511%_) + (let ((_%ctx126513%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125524%_ - _%private?125525%_ - _%phi125526%_ - _%ctx125528%_)))) + _%id126509%_ + _%private?126510%_ + _%phi126511%_ + _%ctx126513%_)))) (define gx#core-bind-feature! - (lambda _g129147_ - (let ((_g129146_ (##length _g129147_))) - (cond ((##fx= _g129146_ 1) - (apply gx#core-bind-feature!__0 _g129147_)) - ((##fx= _g129146_ 2) - (apply gx#core-bind-feature!__1 _g129147_)) - ((##fx= _g129146_ 3) - (apply gx#core-bind-feature!__2 _g129147_)) - ((##fx= _g129146_ 4) - (apply gx#core-bind-feature!__% _g129147_)) + (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! - _g129147_)))))))) + _g130132_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 4fd69f1d8..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]#_g129149_| + (define |gx[1]#_g130134_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129151_| + (define |gx[1]#_g130136_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g129153_| + (define |gx[1]#_g130138_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129155_| + (define |gx[1]#_g130140_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129156_| + (define |gx[1]#_g130141_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129157_| + (define |gx[1]#_g130142_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129158_| + (define |gx[1]#_g130143_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129160_| + (define |gx[1]#_g130145_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129161_| + (define |gx[1]#_g130146_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129162_| + (define |gx[1]#_g130147_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129163_| + (define |gx[1]#_g130148_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129165_| + (define |gx[1]#_g130150_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129166_| + (define |gx[1]#_g130151_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129167_| + (define |gx[1]#_g130152_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129168_| + (define |gx[1]#_g130153_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129170_| + (define |gx[1]#_g130155_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129171_| + (define |gx[1]#_g130156_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129172_| + (define |gx[1]#_g130157_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129173_| + (define |gx[1]#_g130158_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129175_| + (define |gx[1]#_g130160_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129177_| + (define |gx[1]#_g130162_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g129179_| + (define |gx[1]#_g130164_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129181_| + (define |gx[1]#_g130166_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129182_| + (define |gx[1]#_g130167_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g129183_| + (define |gx[1]#_g130168_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129184_| + (define |gx[1]#_g130169_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129185_| + (define |gx[1]#_g130170_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129187_| + (define |gx[1]#_g130172_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129188_| + (define |gx[1]#_g130173_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129189_| + (define |gx[1]#_g130174_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129190_| + (define |gx[1]#_g130175_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129191_| + (define |gx[1]#_g130176_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129193_| + (define |gx[1]#_g130178_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129194_| + (define |gx[1]#_g130179_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g129195_| + (define |gx[1]#_g130180_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129196_| + (define |gx[1]#_g130181_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129197_| + (define |gx[1]#_g130182_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129199_| + (define |gx[1]#_g130184_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129200_| + (define |gx[1]#_g130185_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129201_| + (define |gx[1]#_g130186_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129202_| + (define |gx[1]#_g130187_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129203_| + (define |gx[1]#_g130188_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129205_| + (define |gx[1]#_g130190_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129207_| + (define |gx[1]#_g130192_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g129209_| + (define |gx[1]#_g130194_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129211_| + (define |gx[1]#_g130196_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129212_| + (define |gx[1]#_g130197_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129213_| + (define |gx[1]#_g130198_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129215_| + (define |gx[1]#_g130200_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129216_| + (define |gx[1]#_g130201_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129217_| + (define |gx[1]#_g130202_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129219_| + (define |gx[1]#_g130204_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129220_| + (define |gx[1]#_g130205_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129221_| + (define |gx[1]#_g130206_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129223_| + (define |gx[1]#_g130208_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129224_| + (define |gx[1]#_g130209_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129225_| + (define |gx[1]#_g130210_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129227_| + (define |gx[1]#_g130212_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129229_| + (define |gx[1]#_g130214_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g129231_| + (define |gx[1]#_g130216_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129233_| + (define |gx[1]#_g130218_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129234_| + (define |gx[1]#_g130219_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129235_| + (define |gx[1]#_g130220_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129237_| + (define |gx[1]#_g130222_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129238_| + (define |gx[1]#_g130223_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129239_| + (define |gx[1]#_g130224_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129241_| + (define |gx[1]#_g130226_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129242_| + (define |gx[1]#_g130227_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129243_| + (define |gx[1]#_g130228_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129245_| + (define |gx[1]#_g130230_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129246_| + (define |gx[1]#_g130231_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129247_| + (define |gx[1]#_g130232_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129249_| + (define |gx[1]#_g130234_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129251_| + (define |gx[1]#_g130236_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129253_| + (define |gx[1]#_g130238_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129255_| + (define |gx[1]#_g130240_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129257_| + (define |gx[1]#_g130242_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129258_| + (define |gx[1]#_g130243_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129259_| + (define |gx[1]#_g130244_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129261_| + (define |gx[1]#_g130246_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129262_| + (define |gx[1]#_g130247_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129263_| + (define |gx[1]#_g130248_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129265_| + (define |gx[1]#_g130250_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129266_| + (define |gx[1]#_g130251_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129267_| + (define |gx[1]#_g130252_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129269_| + (define |gx[1]#_g130254_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129270_| + (define |gx[1]#_g130255_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129271_| + (define |gx[1]#_g130256_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129274_| + (define |gx[1]#_g130259_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129276_| + (define |gx[1]#_g130261_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129278_| + (define |gx[1]#_g130263_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129280_| + (define |gx[1]#_g130265_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129281_| + (define |gx[1]#_g130266_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129282_| + (define |gx[1]#_g130267_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129284_| + (define |gx[1]#_g130269_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129285_| + (define |gx[1]#_g130270_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129286_| + (define |gx[1]#_g130271_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129288_| + (define |gx[1]#_g130273_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129289_| + (define |gx[1]#_g130274_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129290_| + (define |gx[1]#_g130275_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129292_| + (define |gx[1]#_g130277_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129293_| + (define |gx[1]#_g130278_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129294_| + (define |gx[1]#_g130279_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129296_| + (define |gx[1]#_g130281_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129297_| + (define |gx[1]#_g130282_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129299_| + (define |gx[1]#_g130284_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129301_| + (define |gx[1]#_g130286_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129303_| + (define |gx[1]#_g130288_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129305_| + (define |gx[1]#_g130290_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129306_| + (define |gx[1]#_g130291_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129307_| + (define |gx[1]#_g130292_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129309_| + (define |gx[1]#_g130294_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129310_| + (define |gx[1]#_g130295_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129311_| + (define |gx[1]#_g130296_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129313_| + (define |gx[1]#_g130298_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129314_| + (define |gx[1]#_g130299_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129315_| + (define |gx[1]#_g130300_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129317_| + (define |gx[1]#_g130302_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129318_| + (define |gx[1]#_g130303_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129319_| + (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 ((__obj129103 + (let ((__obj130088 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129103 + __obj130088 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj130088 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129103 + __obj130088 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129103 + __obj130088 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130088 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130088 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130088 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130088 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '#f '11 '#f '#f)) - (let ((__tmp129148 |gx[1]#_g129149_|)) + (##unchecked-structure-set! __obj130088 '#f '11 '#f '#f)) + (let ((__tmp130133 |gx[1]#_g130134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129103 __tmp129148 '12 '#f '#f)) - (let ((__tmp129150 |gx[1]#_g129151_|)) + (##unchecked-structure-set! __obj130088 __tmp130133 '12 '#f '#f)) + (let ((__tmp130135 |gx[1]#_g130136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129103 __tmp129150 '13 '#f '#f)) - (let ((__tmp129152 |gx[1]#_g129153_|)) + (##unchecked-structure-set! __obj130088 __tmp130135 '13 '#f '#f)) + (let ((__tmp130137 |gx[1]#_g130138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129103 __tmp129152 '14 '#f '#f)) - (let ((__tmp129154 - (cons (cons 'source |gx[1]#_g129155_|) - (cons (cons 'name |gx[1]#_g129156_|) - (cons (cons 'phi |gx[1]#_g129157_|) - (cons (cons 'weak? |gx[1]#_g129158_|) + (##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! __obj129103 __tmp129154 '15 '#f '#f)) - (let ((__tmp129159 - (cons (cons 'source |gx[1]#_g129160_|) - (cons (cons 'name |gx[1]#_g129161_|) - (cons (cons 'phi |gx[1]#_g129162_|) - (cons (cons 'weak? |gx[1]#_g129163_|) + (##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! __obj129103 __tmp129159 '16 '#f '#f)) - (let ((__tmp129164 - (cons (cons 'source |gx[1]#_g129165_|) - (cons (cons 'name |gx[1]#_g129166_|) - (cons (cons 'phi |gx[1]#_g129167_|) - (cons (cons 'weak? |gx[1]#_g129168_|) + (##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! __obj129103 __tmp129164 '17 '#f '#f)) - (let ((__tmp129169 - (cons (cons 'source |gx[1]#_g129170_|) - (cons (cons 'name |gx[1]#_g129171_|) - (cons (cons 'phi |gx[1]#_g129172_|) - (cons (cons 'weak? |gx[1]#_g129173_|) + (##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! __obj129103 __tmp129169 '18 '#f '#f)) + (##unchecked-structure-set! __obj130088 __tmp130154 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130088 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130088 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129103 '() '20 '#f '#f)) - __obj129103)) + (##unchecked-structure-set! __obj130088 '() '20 '#f '#f)) + __obj130088)) (define |gx[:0:]#module-export| - (let ((__obj129104 + (let ((__obj130089 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129104 + __obj130089 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj130089 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129104 + __obj130089 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129104 + __obj130089 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130089 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130089 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130089 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '#f '11 '#f '#f)) - (let ((__tmp129174 |gx[1]#_g129175_|)) + (##unchecked-structure-set! __obj130089 '#f '11 '#f '#f)) + (let ((__tmp130159 |gx[1]#_g130160_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129104 __tmp129174 '12 '#f '#f)) - (let ((__tmp129176 |gx[1]#_g129177_|)) + (##unchecked-structure-set! __obj130089 __tmp130159 '12 '#f '#f)) + (let ((__tmp130161 |gx[1]#_g130162_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129104 __tmp129176 '13 '#f '#f)) - (let ((__tmp129178 |gx[1]#_g129179_|)) + (##unchecked-structure-set! __obj130089 __tmp130161 '13 '#f '#f)) + (let ((__tmp130163 |gx[1]#_g130164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129104 __tmp129178 '14 '#f '#f)) - (let ((__tmp129180 - (cons (cons 'context |gx[1]#_g129181_|) - (cons (cons 'key |gx[1]#_g129182_|) - (cons (cons 'phi |gx[1]#_g129183_|) - (cons (cons 'name |gx[1]#_g129184_|) - (cons (cons 'weak? |gx[1]#_g129185_|) + (##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! __obj129104 __tmp129180 '15 '#f '#f)) - (let ((__tmp129186 - (cons (cons 'context |gx[1]#_g129187_|) - (cons (cons 'key |gx[1]#_g129188_|) - (cons (cons 'phi |gx[1]#_g129189_|) - (cons (cons 'name |gx[1]#_g129190_|) - (cons (cons 'weak? |gx[1]#_g129191_|) + (##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! __obj129104 __tmp129186 '16 '#f '#f)) - (let ((__tmp129192 - (cons (cons 'context |gx[1]#_g129193_|) - (cons (cons 'key |gx[1]#_g129194_|) - (cons (cons 'phi |gx[1]#_g129195_|) - (cons (cons 'name |gx[1]#_g129196_|) - (cons (cons 'weak? |gx[1]#_g129197_|) + (##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! __obj129104 __tmp129192 '17 '#f '#f)) - (let ((__tmp129198 - (cons (cons 'context |gx[1]#_g129199_|) - (cons (cons 'key |gx[1]#_g129200_|) - (cons (cons 'phi |gx[1]#_g129201_|) - (cons (cons 'name |gx[1]#_g129202_|) - (cons (cons 'weak? |gx[1]#_g129203_|) + (##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! __obj129104 __tmp129198 '18 '#f '#f)) + (##unchecked-structure-set! __obj130089 __tmp130183 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129104 '() '20 '#f '#f)) - __obj129104)) + (##unchecked-structure-set! __obj130089 '() '20 '#f '#f)) + __obj130089)) (define |gx[:0:]#import-set| - (let ((__obj129105 + (let ((__obj130090 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129105 + __obj130090 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj130090 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129105 + __obj130090 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129105 + __obj130090 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130090 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130090 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130090 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130090 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '#f '11 '#f '#f)) - (let ((__tmp129204 |gx[1]#_g129205_|)) + (##unchecked-structure-set! __obj130090 '#f '11 '#f '#f)) + (let ((__tmp130189 |gx[1]#_g130190_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129105 __tmp129204 '12 '#f '#f)) - (let ((__tmp129206 |gx[1]#_g129207_|)) + (##unchecked-structure-set! __obj130090 __tmp130189 '12 '#f '#f)) + (let ((__tmp130191 |gx[1]#_g130192_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129105 __tmp129206 '13 '#f '#f)) - (let ((__tmp129208 |gx[1]#_g129209_|)) + (##unchecked-structure-set! __obj130090 __tmp130191 '13 '#f '#f)) + (let ((__tmp130193 |gx[1]#_g130194_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129105 __tmp129208 '14 '#f '#f)) - (let ((__tmp129210 - (cons (cons 'source |gx[1]#_g129211_|) - (cons (cons 'phi |gx[1]#_g129212_|) - (cons (cons 'imports |gx[1]#_g129213_|) '()))))) + (##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! __obj129105 __tmp129210 '15 '#f '#f)) - (let ((__tmp129214 - (cons (cons 'source |gx[1]#_g129215_|) - (cons (cons 'phi |gx[1]#_g129216_|) - (cons (cons 'imports |gx[1]#_g129217_|) '()))))) + (##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! __obj129105 __tmp129214 '16 '#f '#f)) - (let ((__tmp129218 - (cons (cons 'source |gx[1]#_g129219_|) - (cons (cons 'phi |gx[1]#_g129220_|) - (cons (cons 'imports |gx[1]#_g129221_|) '()))))) + (##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! __obj129105 __tmp129218 '17 '#f '#f)) - (let ((__tmp129222 - (cons (cons 'source |gx[1]#_g129223_|) - (cons (cons 'phi |gx[1]#_g129224_|) - (cons (cons 'imports |gx[1]#_g129225_|) '()))))) + (##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! __obj129105 __tmp129222 '18 '#f '#f)) + (##unchecked-structure-set! __obj130090 __tmp130207 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130090 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130090 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129105 '() '20 '#f '#f)) - __obj129105)) + (##unchecked-structure-set! __obj130090 '() '20 '#f '#f)) + __obj130090)) (define |gx[:0:]#export-set| - (let ((__obj129106 + (let ((__obj130091 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129106 + __obj130091 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj130091 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129106 + __obj130091 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129106 + __obj130091 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130091 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130091 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130091 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '#f '11 '#f '#f)) - (let ((__tmp129226 |gx[1]#_g129227_|)) + (##unchecked-structure-set! __obj130091 '#f '11 '#f '#f)) + (let ((__tmp130211 |gx[1]#_g130212_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129106 __tmp129226 '12 '#f '#f)) - (let ((__tmp129228 |gx[1]#_g129229_|)) + (##unchecked-structure-set! __obj130091 __tmp130211 '12 '#f '#f)) + (let ((__tmp130213 |gx[1]#_g130214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129106 __tmp129228 '13 '#f '#f)) - (let ((__tmp129230 |gx[1]#_g129231_|)) + (##unchecked-structure-set! __obj130091 __tmp130213 '13 '#f '#f)) + (let ((__tmp130215 |gx[1]#_g130216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129106 __tmp129230 '14 '#f '#f)) - (let ((__tmp129232 - (cons (cons 'source |gx[1]#_g129233_|) - (cons (cons 'phi |gx[1]#_g129234_|) - (cons (cons 'exports |gx[1]#_g129235_|) '()))))) + (##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! __obj129106 __tmp129232 '15 '#f '#f)) - (let ((__tmp129236 - (cons (cons 'source |gx[1]#_g129237_|) - (cons (cons 'phi |gx[1]#_g129238_|) - (cons (cons 'exports |gx[1]#_g129239_|) '()))))) + (##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! __obj129106 __tmp129236 '16 '#f '#f)) - (let ((__tmp129240 - (cons (cons 'source |gx[1]#_g129241_|) - (cons (cons 'phi |gx[1]#_g129242_|) - (cons (cons 'exports |gx[1]#_g129243_|) '()))))) + (##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! __obj129106 __tmp129240 '17 '#f '#f)) - (let ((__tmp129244 - (cons (cons 'source |gx[1]#_g129245_|) - (cons (cons 'phi |gx[1]#_g129246_|) - (cons (cons 'exports |gx[1]#_g129247_|) '()))))) + (##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! __obj129106 __tmp129244 '18 '#f '#f)) + (##unchecked-structure-set! __obj130091 __tmp130229 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129106 '() '20 '#f '#f)) - __obj129106)) + (##unchecked-structure-set! __obj130091 '() '20 '#f '#f)) + __obj130091)) (define |gx[:0:]#import-expander| - (let ((__obj129107 + (let ((__obj130092 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129107 + __obj130092 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj130092 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj130092 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '(e context phi) '6 '#f '#f)) - (let ((__tmp129248 (cons |gx[1]#_g129249_| '()))) + (##unchecked-structure-set! __obj130092 '(e context phi) '6 '#f '#f)) + (let ((__tmp130233 (cons |gx[1]#_g130234_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129107 __tmp129248 '3 '#f '#f)) + (##unchecked-structure-set! __obj130092 __tmp130233 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj130092 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj130092 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130092 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 ':init! '11 '#f '#f)) - (let ((__tmp129250 |gx[1]#_g129251_|)) + (##unchecked-structure-set! __obj130092 ':init! '11 '#f '#f)) + (let ((__tmp130235 |gx[1]#_g130236_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129107 __tmp129250 '12 '#f '#f)) - (let ((__tmp129252 |gx[1]#_g129253_|)) + (##unchecked-structure-set! __obj130092 __tmp130235 '12 '#f '#f)) + (let ((__tmp130237 |gx[1]#_g130238_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129107 __tmp129252 '13 '#f '#f)) - (let ((__tmp129254 |gx[1]#_g129255_|)) + (##unchecked-structure-set! __obj130092 __tmp130237 '13 '#f '#f)) + (let ((__tmp130239 |gx[1]#_g130240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129107 __tmp129254 '14 '#f '#f)) - (let ((__tmp129256 - (cons (cons 'context |gx[1]#_g129257_|) - (cons (cons 'phi |gx[1]#_g129258_|) - (cons (cons 'e |gx[1]#_g129259_|) '()))))) + (##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! __obj129107 __tmp129256 '15 '#f '#f)) - (let ((__tmp129260 - (cons (cons 'context |gx[1]#_g129261_|) - (cons (cons 'phi |gx[1]#_g129262_|) - (cons (cons 'e |gx[1]#_g129263_|) '()))))) + (##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! __obj129107 __tmp129260 '16 '#f '#f)) - (let ((__tmp129264 - (cons (cons 'context |gx[1]#_g129265_|) - (cons (cons 'phi |gx[1]#_g129266_|) - (cons (cons 'e |gx[1]#_g129267_|) '()))))) + (##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! __obj129107 __tmp129264 '17 '#f '#f)) - (let ((__tmp129268 - (cons (cons 'context |gx[1]#_g129269_|) - (cons (cons 'phi |gx[1]#_g129270_|) - (cons (cons 'e |gx[1]#_g129271_|) '()))))) + (##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! __obj129107 __tmp129268 '18 '#f '#f)) + (##unchecked-structure-set! __obj130092 __tmp130253 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130092 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130092 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129107 '() '20 '#f '#f)) - __obj129107)) + (##unchecked-structure-set! __obj130092 '() '20 '#f '#f)) + __obj130092)) (define |gx[:0:]#export-expander| - (let ((__obj129108 + (let ((__obj130093 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129108 + __obj130093 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj130093 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj130093 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '(e context phi) '6 '#f '#f)) - (let ((__tmp129272 (cons |gx[1]#_g129249_| '()))) + (##unchecked-structure-set! __obj130093 '(e context phi) '6 '#f '#f)) + (let ((__tmp130257 (cons |gx[1]#_g130234_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129108 __tmp129272 '3 '#f '#f)) + (##unchecked-structure-set! __obj130093 __tmp130257 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj130093 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj130093 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130093 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 ':init! '11 '#f '#f)) - (let ((__tmp129273 |gx[1]#_g129274_|)) + (##unchecked-structure-set! __obj130093 ':init! '11 '#f '#f)) + (let ((__tmp130258 |gx[1]#_g130259_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129108 __tmp129273 '12 '#f '#f)) - (let ((__tmp129275 |gx[1]#_g129276_|)) + (##unchecked-structure-set! __obj130093 __tmp130258 '12 '#f '#f)) + (let ((__tmp130260 |gx[1]#_g130261_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129108 __tmp129275 '13 '#f '#f)) - (let ((__tmp129277 |gx[1]#_g129278_|)) + (##unchecked-structure-set! __obj130093 __tmp130260 '13 '#f '#f)) + (let ((__tmp130262 |gx[1]#_g130263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129108 __tmp129277 '14 '#f '#f)) - (let ((__tmp129279 - (cons (cons 'context |gx[1]#_g129280_|) - (cons (cons 'phi |gx[1]#_g129281_|) - (cons (cons 'e |gx[1]#_g129282_|) '()))))) + (##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! __obj129108 __tmp129279 '15 '#f '#f)) - (let ((__tmp129283 - (cons (cons 'context |gx[1]#_g129284_|) - (cons (cons 'phi |gx[1]#_g129285_|) - (cons (cons 'e |gx[1]#_g129286_|) '()))))) + (##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! __obj129108 __tmp129283 '16 '#f '#f)) - (let ((__tmp129287 - (cons (cons 'context |gx[1]#_g129288_|) - (cons (cons 'phi |gx[1]#_g129289_|) - (cons (cons 'e |gx[1]#_g129290_|) '()))))) + (##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! __obj129108 __tmp129287 '17 '#f '#f)) - (let ((__tmp129291 - (cons (cons 'context |gx[1]#_g129292_|) - (cons (cons 'phi |gx[1]#_g129293_|) - (cons (cons 'e |gx[1]#_g129294_|) '()))))) + (##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! __obj129108 __tmp129291 '18 '#f '#f)) + (##unchecked-structure-set! __obj130093 __tmp130276 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130093 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130093 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129108 '() '20 '#f '#f)) - __obj129108)) + (##unchecked-structure-set! __obj130093 '() '20 '#f '#f)) + __obj130093)) (define |gx[:0:]#import-export-expander| - (let ((__obj129109 + (let ((__obj130094 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129109 + __obj130094 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129109 + __obj130094 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj130094 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '(e context phi) '6 '#f '#f)) - (let ((__tmp129295 - (cons |gx[1]#_g129296_| (cons |gx[1]#_g129297_| '())))) + (##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! __obj129109 __tmp129295 '3 '#f '#f)) + (##unchecked-structure-set! __obj130094 __tmp130280 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj130094 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj130094 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130094 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 ':init! '11 '#f '#f)) - (let ((__tmp129298 |gx[1]#_g129299_|)) + (##unchecked-structure-set! __obj130094 ':init! '11 '#f '#f)) + (let ((__tmp130283 |gx[1]#_g130284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129109 __tmp129298 '12 '#f '#f)) - (let ((__tmp129300 |gx[1]#_g129301_|)) + (##unchecked-structure-set! __obj130094 __tmp130283 '12 '#f '#f)) + (let ((__tmp130285 |gx[1]#_g130286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129109 __tmp129300 '13 '#f '#f)) - (let ((__tmp129302 |gx[1]#_g129303_|)) + (##unchecked-structure-set! __obj130094 __tmp130285 '13 '#f '#f)) + (let ((__tmp130287 |gx[1]#_g130288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129109 __tmp129302 '14 '#f '#f)) - (let ((__tmp129304 - (cons (cons 'context |gx[1]#_g129305_|) - (cons (cons 'phi |gx[1]#_g129306_|) - (cons (cons 'e |gx[1]#_g129307_|) '()))))) + (##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! __obj129109 __tmp129304 '15 '#f '#f)) - (let ((__tmp129308 - (cons (cons 'context |gx[1]#_g129309_|) - (cons (cons 'phi |gx[1]#_g129310_|) - (cons (cons 'e |gx[1]#_g129311_|) '()))))) + (##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! __obj129109 __tmp129308 '16 '#f '#f)) - (let ((__tmp129312 - (cons (cons 'context |gx[1]#_g129313_|) - (cons (cons 'phi |gx[1]#_g129314_|) - (cons (cons 'e |gx[1]#_g129315_|) '()))))) + (##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! __obj129109 __tmp129312 '17 '#f '#f)) - (let ((__tmp129316 - (cons (cons 'context |gx[1]#_g129317_|) - (cons (cons 'phi |gx[1]#_g129318_|) - (cons (cons 'e |gx[1]#_g129319_|) '()))))) + (##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! __obj129109 __tmp129316 '18 '#f '#f)) + (##unchecked-structure-set! __obj130094 __tmp130301 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130094 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130094 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129109 '() '20 '#f '#f)) - __obj129109)))) + (##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 b2bbbe022..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 1734131747) + (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 (_%self130510131590%_ _%bind?131592%_) - (let* ((_%self131594%_ _%self130510131590%_) - (_%self131596%_ _%self131594%_)) - (if (##fx< '2 (##structure-length _%self131596%_)) + (lambda (_%self131495132575%_ _%bind?132577%_) + (let* ((_%self132579%_ _%self131495132575%_) + (_%self132581%_ _%self132579%_)) + (if (##fx< '2 (##structure-length _%self132581%_)) (begin - (##unchecked-structure-set! _%self131596%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self132581%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131596%_ + _%self132581%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131596%_ + _%self132581%_ '2 - (##vector-length _%self131596%_))) - (if _%bind?131592%_ + (##vector-length _%self132581%_))) + (if _%bind?132577%_ (begin - (let ((__method131659 + (let ((__method132644 (__method-ref - _%self131596%_ + _%self132581%_ 'bind-core-syntax-expanders!))) - (if __method131659 - (__method131659 _%self131596%_) + (if __method132644 + (__method132644 _%self132581%_) (begin (error '"Missing method" - _%self131596%_ + _%self132581%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method131660 + (let ((__method132645 (__method-ref - _%self131596%_ + _%self132581%_ 'bind-core-macro-expanders!))) - (if __method131660 - (__method131660 _%self131596%_) + (if __method132645 + (__method132645 _%self132581%_) (begin (error '"Missing method" - _%self131596%_ + _%self132581%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method131661 - (__method-ref _%self131596%_ 'bind-core-features!))) - (if __method131661 - (__method131661 _%self131596%_) + (let ((__method132646 + (__method-ref _%self132581%_ 'bind-core-features!))) + (if __method132646 + (__method132646 _%self132581%_) (begin (error '"Missing method" - _%self131596%_ + _%self132581%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self130510131609%_) - (let ((_%bind?131611%_ '#t)) - (gx#root-context:::init!__% _%self130510131609%_ _%bind?131611%_)))) + (lambda (_%self131495132594%_) + (let ((_%bind?132596%_ '#t)) + (gx#root-context:::init!__% _%self131495132594%_ _%bind?132596%_)))) (define gx#root-context:::init! - (lambda _g131664_ - (let ((_g131663_ (##length _g131664_))) - (cond ((##fx= _g131663_ 1) - (apply gx#root-context:::init!__0 _g131664_)) - ((##fx= _g131663_ 2) - (apply gx#root-context:::init!__% _g131664_)) + (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! - _g131664_)))))) + _g132649_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass131615 __method-table131616) - (let ((__bind-core-syntax-expanders!131617 + (lambda (__klass132600 __method-table132601) + (let ((__bind-core-syntax-expanders!132602 (__make-promise (lambda () - (let ((__method131620 + (let ((__method132605 (symbolic-table-ref - __method-table131616 + __method-table132601 'bind-core-syntax-expanders! '#f))) - (if __method131620 - __method131620 + (if __method132605 + __method132605 (error '"Missing method" 'bind-core-syntax-expanders!)))))) - (__bind-core-features!131618 + (__bind-core-features!132603 (__make-promise (lambda () - (let ((__method131621 + (let ((__method132606 (symbolic-table-ref - __method-table131616 + __method-table132601 'bind-core-features! '#f))) - (if __method131621 - __method131621 + (if __method132606 + __method132606 (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!131619 + (__bind-core-macro-expanders!132604 (__make-promise (lambda () - (let ((__method131622 + (let ((__method132607 (symbolic-table-ref - __method-table131616 + __method-table132601 'bind-core-macro-expanders! '#f))) - (if __method131622 - __method131622 + (if __method132607 + __method132607 (error '"Missing method" 'bind-core-macro-expanders!))))))) - (let ((_%opt-lambda131588131606%_ - (lambda (_%self130510131590%_ _%bind?131592%_) - (let* ((_%self131594%_ _%self130510131590%_) - (_%self131596%_ _%self131594%_)) - (if (##fx< '2 (##structure-length _%self131596%_)) + (let ((_%opt-lambda132573132591%_ + (lambda (_%self131495132575%_ _%bind?132577%_) + (let* ((_%self132579%_ _%self131495132575%_) + (_%self132581%_ _%self132579%_)) + (if (##fx< '2 (##structure-length _%self132581%_)) (begin (##unchecked-structure-set! - _%self131596%_ + _%self132581%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131596%_ + _%self132581%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131596%_ + _%self132581%_ '2 - (##vector-length _%self131596%_))) - (if _%bind?131592%_ + (##vector-length _%self132581%_))) + (if _%bind?132577%_ (begin - ((force __bind-core-syntax-expanders!131617) - _%self131596%_) - ((force __bind-core-macro-expanders!131619) - _%self131596%_) - ((force __bind-core-features!131618) - _%self131596%_)) + ((force __bind-core-syntax-expanders!132602) + _%self132581%_) + ((force __bind-core-macro-expanders!132604) + _%self132581%_) + ((force __bind-core-features!132603) + _%self132581%_)) '#!void))))) - (lambda _g131666_ - (let ((_g131665_ (##length _g131666_))) - (cond ((##fx= _g131665_ 1) - (apply (lambda (_%self130510131609%_) - (let ((_%bind?131611%_ '#t)) - (_%opt-lambda131588131606%_ - _%self130510131609%_ - _%bind?131611%_))) - _g131666_)) - ((##fx= _g131665_ 2) - (apply _%opt-lambda131588131606%_ _g131666_)) + (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 - _g131666_))))))))) + _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 (_%self130511131433%_ _%super131435%_) - (let* ((_%self131437%_ _%self130511131433%_) - (_%self131439%_ _%self131437%_) - (_%super131455%_ - (let ((_%$e131449%_ _%super131435%_)) - (if _%$e131449%_ - _%$e131449%_ - (let ((_%$e131452%_ (gx#core-context-root__0))) - (if _%$e131452%_ - _%$e131452%_ - (let ((__obj131662 + (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 __obj131662) - __obj131662))))))) - (if (##fx< '5 (##structure-length _%self131439%_)) + (gx#root-context:::init!__0 __obj132647) + __obj132647))))))) + (if (##fx< '5 (##structure-length _%self132424%_)) (begin - (##unchecked-structure-set! _%self131439%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self132424%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self131439%_ + _%self132424%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self131439%_ - _%super131455%_ + _%self132424%_ + _%super132440%_ '3 '#f '#f) - (##unchecked-structure-set! _%self131439%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self131439%_ '#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" - _%self131439%_ + _%self132424%_ '5 - (##vector-length _%self131439%_)))))) + (##vector-length _%self132424%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self130511131460%_) - (let ((_%super131462%_ '#f)) - (gx#top-context:::init!__% _%self130511131460%_ _%super131462%_)))) + (lambda (_%self131496132445%_) + (let ((_%super132447%_ '#f)) + (gx#top-context:::init!__% _%self131496132445%_ _%super132447%_)))) (define gx#top-context:::init! - (lambda _g131668_ - (let ((_g131667_ (##length _g131668_))) - (cond ((##fx= _g131667_ 1) - (apply gx#top-context:::init!__0 _g131668_)) - ((##fx= _g131667_ 2) - (apply gx#top-context:::init!__% _g131668_)) + (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! - _g131668_)))))) + _g132653_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self130512131151%_ _%bindings131153%_) - (let* ((_%self131155%_ _%self130512131151%_) - (_%self131157%_ _%self131155%_)) + (lambda (_%self131497132136%_ _%bindings132138%_) + (let* ((_%self132140%_ _%self131497132136%_) + (_%self132142%_ _%self132140%_)) (for-each - (lambda (_%bind131167%_) - (let* ((_%bind131168131175%_ _%bind131167%_) - (_%E131170131179%_ + (lambda (_%bind132152%_) + (let* ((_%bind132153132160%_ _%bind132152%_) + (_%E132155132164%_ (lambda () (error '"No clause matching" - _%bind131168131175%_ + _%bind132153132160%_ '([id . rest])) '#!void)) - (_%K131171131288%_ - (lambda (_%rest131182%_ _%id131183%_) + (_%K132156132273%_ + (lambda (_%rest132167%_ _%id132168%_) (gx#core-context-put! - _%self131157%_ - _%id131183%_ + _%self132142%_ + _%id132168%_ (##structure gx#syntax-binding::t - _%id131183%_ - _%id131183%_ + _%id132168%_ + _%id132168%_ '#f - (let* ((_%rest131184131195%_ _%rest131182%_) - (_%E131186131199%_ + (let* ((_%rest132169132180%_ _%rest132167%_) + (_%E132171132184%_ (lambda () (error '"No clause matching" - _%rest131184131195%_ + _%rest132169132180%_ '([key expander compiler])) '#!void)) - (_%K131187131264%_ - (lambda (_%compiler131202%_ - _%expander131203%_ - _%key131204%_) - ((let* ((_%key131205131218%_ _%key131204%_) - (_%E131211131222%_ + (_%K132172132249%_ + (lambda (_%compiler132187%_ + _%expander132188%_ + _%key132189%_) + ((let* ((_%key132190132203%_ _%key132189%_) + (_%E132196132207%_ (lambda () (error '"No clause matching" - _%key131205131218%_ + _%key132190132203%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K131216131258%_ + (let ((_%K132201132243%_ (lambda () gx#make-top-special-form)) - (_%K131215131251%_ + (_%K132200132236%_ (lambda () gx#make-module-special-form)) - (_%K131214131243%_ + (_%K132199132228%_ (lambda () gx#make-definition-form)) - (_%K131213131235%_ + (_%K132198132220%_ (lambda () gx#make-special-form)) - (_%K131212131227%_ + (_%K132197132212%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match131210131230%_ + (let* ((_%try-match132195132215%_ (lambda () - (if (##eq? _%key131205131218%_ + (if (##eq? _%key132190132203%_ 'expr:) - (_%K131212131227%_) - (_%E131211131222%_)))) - (_%try-match131209131238%_ + (_%K132197132212%_) + (_%E132196132207%_)))) + (_%try-match132194132223%_ (lambda () - (if (##eq? _%key131205131218%_ + (if (##eq? _%key132190132203%_ 'special:) - (_%K131213131235%_) - (_%try-match131210131230%_)))) - (_%try-match131208131246%_ + (_%K132198132220%_) + (_%try-match132195132215%_)))) + (_%try-match132193132231%_ (lambda () - (if (##eq? _%key131205131218%_ + (if (##eq? _%key132190132203%_ 'define:) - (_%K131214131243%_) - (_%try-match131209131238%_)))) - (_%try-match131207131254%_ + (_%K132199132228%_) + (_%try-match132194132223%_)))) + (_%try-match132192132239%_ (lambda () - (if (##eq? _%key131205131218%_ + (if (##eq? _%key132190132203%_ 'module:) - (_%K131215131251%_) - (_%try-match131208131246%_))))) - (if (##eq? _%key131205131218%_ 'top:) - (_%K131216131258%_) - (_%try-match131207131254%_))))) - _%expander131203%_ - _%id131183%_ - (let ((_%$e131261%_ _%compiler131202%_)) - (if _%$e131261%_ - _%$e131261%_ + (_%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? _%rest131184131195%_) - (let ((_%hd131188131267%_ - (##car _%rest131184131195%_)) - (_%tl131189131269%_ - (##cdr _%rest131184131195%_))) - (let ((_%key131272%_ _%hd131188131267%_)) - (if (pair? _%tl131189131269%_) - (let ((_%hd131190131274%_ - (##car _%tl131189131269%_)) - (_%tl131191131276%_ - (##cdr _%tl131189131269%_))) - (let ((_%expander131279%_ - _%hd131190131274%_)) - (if (pair? _%tl131191131276%_) - (let ((_%hd131192131281%_ - (##car _%tl131191131276%_)) - (_%tl131193131283%_ - (##cdr _%tl131191131276%_))) - (let ((_%compiler131286%_ - _%hd131192131281%_)) - (if (null? _%tl131193131283%_) - (_%K131187131264%_ - _%compiler131286%_ - _%expander131279%_ - _%key131272%_) - (_%E131186131199%_)))) - (_%E131186131199%_)))) - (_%E131186131199%_)))) - (_%E131186131199%_)))))))) - (if (pair? _%bind131168131175%_) - (let ((_%hd131172131291%_ (##car _%bind131168131175%_)) - (_%tl131173131293%_ (##cdr _%bind131168131175%_))) - (let* ((_%id131296%_ _%hd131172131291%_) - (_%rest131298%_ _%tl131173131293%_)) - (_%K131171131288%_ _%rest131298%_ _%id131296%_))) - (_%E131170131179%_)))) - _%bindings131153%_)))) + (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 (_%self130512131303%_) - (let ((_%bindings131305%_ gx#*core-syntax-expanders*)) + (lambda (_%self131497132288%_) + (let ((_%bindings132290%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self130512131303%_ - _%bindings131305%_)))) + _%self131497132288%_ + _%bindings132290%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g131670_ - (let ((_g131669_ (##length _g131670_))) - (cond ((##fx= _g131669_ 1) + (lambda _g132655_ + (let ((_g132654_ (##length _g132655_))) + (cond ((##fx= _g132654_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g131670_)) - ((##fx= _g131669_ 2) + _g132655_)) + ((##fx= _g132654_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g131670_)) + _g132655_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g131670_)))))) + _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 (_%self130513130910%_ _%bindings130912%_) - (let* ((_%self130914%_ _%self130513130910%_) - (_%self130916%_ _%self130914%_)) + (lambda (_%self131498131895%_ _%bindings131897%_) + (let* ((_%self131899%_ _%self131498131895%_) + (_%self131901%_ _%self131899%_)) (for-each - (lambda (_%bind130926%_) - (let* ((_%bind130927130934%_ _%bind130926%_) - (_%E130929130938%_ + (lambda (_%bind131911%_) + (let* ((_%bind131912131919%_ _%bind131911%_) + (_%E131914131923%_ (lambda () (error '"No clause matching" - _%bind130927130934%_ + _%bind131912131919%_ '([id . rest])) '#!void)) - (_%K130930131006%_ - (lambda (_%rest130941%_ _%id130942%_) + (_%K131915131991%_ + (lambda (_%rest131926%_ _%id131927%_) (gx#core-context-put! - _%self130916%_ - _%id130942%_ + _%self131901%_ + _%id131927%_ (##structure gx#syntax-binding::t - _%id130942%_ - _%id130942%_ + _%id131927%_ + _%id131927%_ '#f - (let* ((_%rest130943130958%_ _%rest130941%_) - (_%E130947130962%_ + (let* ((_%rest131928131943%_ _%rest131926%_) + (_%E131932131947%_ (lambda () (error '"No clause matching" - _%rest130943130958%_ + _%rest131928131943%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K130952130991%_ - (lambda (_%core-id130989%_) + (let ((_%K131937131976%_ + (lambda (_%core-id131974%_) (##structure gx#rename-macro-expander::t - _%core-id130989%_))) - (_%K130949130976%_ - (lambda (_%proc130974%_) + _%core-id131974%_))) + (_%K131934131961%_ + (lambda (_%proc131959%_) (##structure gx#macro-expander::t - _%proc130974%_))) - (_%K130948130967%_ + _%proc131959%_))) + (_%K131933131952%_ (lambda () (##structure gx#reserved-expander::t - _%id130942%_)))) - (let ((_%try-match130946130970%_ + _%id131927%_)))) + (let ((_%try-match131931131955%_ (lambda () - (if (null? _%rest130943130958%_) - (_%K130948130967%_) - (_%E130947130962%_))))) - (if (pair? _%rest130943130958%_) - (let ((_%tl130954130996%_ - (##cdr _%rest130943130958%_)) - (_%hd130953130994%_ - (##car _%rest130943130958%_))) - (if (##eq? _%hd130953130994%_ '=>) - (if (pair? _%tl130954130996%_) - (let ((_%tl130956131001%_ - (##cdr _%tl130954130996%_)) - (_%hd130955130999%_ - (##car _%tl130954130996%_))) - (if (null? _%tl130956131001%_) - (let ((_%core-id131004%_ - _%hd130955130999%_)) + (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-id131004%_)) - (_%E130947130962%_))) - (if (null? _%tl130954130996%_) - (let ((_%proc130984%_ - _%hd130953130994%_)) + _%core-id131989%_)) + (_%E131932131947%_))) + (if (null? _%tl131939131981%_) + (let ((_%proc131969%_ + _%hd131938131979%_)) (##structure gx#macro-expander::t - _%proc130984%_)) - (_%E130947130962%_))) - (if (null? _%tl130954130996%_) - (let ((_%proc130984%_ - _%hd130953130994%_)) + _%proc131969%_)) + (_%E131932131947%_))) + (if (null? _%tl131939131981%_) + (let ((_%proc131969%_ + _%hd131938131979%_)) (##structure gx#macro-expander::t - _%proc130984%_)) - (_%E130947130962%_)))) - (_%try-match130946130970%_)))))))))) - (if (pair? _%bind130927130934%_) - (let ((_%hd130931131009%_ (##car _%bind130927130934%_)) - (_%tl130932131011%_ (##cdr _%bind130927130934%_))) - (let* ((_%id131014%_ _%hd130931131009%_) - (_%rest131016%_ _%tl130932131011%_)) - (_%K130930131006%_ _%rest131016%_ _%id131014%_))) - (_%E130929130938%_)))) - _%bindings130912%_)))) + _%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 (_%self130513131021%_) - (let ((_%bindings131023%_ gx#*core-macro-expanders*)) + (lambda (_%self131498132006%_) + (let ((_%bindings132008%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self130513131021%_ - _%bindings131023%_)))) + _%self131498132006%_ + _%bindings132008%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g131672_ - (let ((_g131671_ (##length _g131672_))) - (cond ((##fx= _g131671_ 1) + (lambda _g132657_ + (let ((_g132656_ (##length _g132657_))) + (cond ((##fx= _g132656_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g131672_)) - ((##fx= _g131671_ 2) + _g132657_)) + ((##fx= _g132656_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g131672_)) + _g132657_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g131672_)))))) + _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 (_%self130514130640%_) - (let* ((_%self130643%_ _%self130514130640%_) - (_%self130645%_ _%self130643%_)) - (letrec ((_%linux-variant?130655%_ - (lambda (_%sys-type130755%_) - (let* ((_%g130756130764%_ + (lambda (_%self131499131625%_) + (let* ((_%self131628%_ _%self131499131625%_) + (_%self131630%_ _%self131628%_)) + (letrec ((_%linux-variant?131640%_ + (lambda (_%sys-type131740%_) + (let* ((_%g131741131749%_ (__string-split - (symbol->string _%sys-type130755%_) + (symbol->string _%sys-type131740%_) '#\-)) - (_%else130758130772%_ (lambda () '#f)) - (_%K130760130777%_ - (lambda (_%rest130775%_) - (not (null? _%rest130775%_))))) - (if (pair? _%g130756130764%_) - (let ((_%hd130761130780%_ - (##car _%g130756130764%_)) - (_%tl130762130782%_ - (##cdr _%g130756130764%_))) - (if (equal? _%hd130761130780%_ '"linux") - (let ((_%rest130785%_ _%tl130762130782%_)) - (_%K130760130777%_ _%rest130785%_)) - (_%else130758130772%_))) - (_%else130758130772%_))))) - (_%bsd-variant130656%_ - (lambda (_%sys-type130714%_) - (let ((_%sys-type-str130716%_ - (symbol->string _%sys-type130714%_))) - (let _%lp130718%_ ((_%rest130720%_ + (_%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* ((_%rest130721130729%_ _%rest130720%_) - (_%else130723130737%_ (lambda () '#f)) - (_%K130725130743%_ - (lambda (_%rest130740%_ _%sys130741%_) + (let* ((_%rest131706131714%_ _%rest131705%_) + (_%else131708131722%_ (lambda () '#f)) + (_%K131710131728%_ + (lambda (_%rest131725%_ _%sys131726%_) (if (string-prefix? - _%sys130741%_ - _%sys-type-str130716%_) - _%sys130741%_ - (_%lp130718%_ _%rest130740%_))))) - (if (pair? _%rest130721130729%_) - (let ((_%hd130726130746%_ - (##car _%rest130721130729%_)) - (_%tl130727130748%_ - (##cdr _%rest130721130729%_))) - (let* ((_%sys130751%_ _%hd130726130746%_) - (_%rest130753%_ _%tl130727130748%_)) - (_%K130725130743%_ - _%rest130753%_ - _%sys130751%_))) - (_%else130723130737%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130645%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130645%_) - (let* ((_%g130657130669%_ (system-type)) - (_%else130659130677%_ (lambda () '#!void)) - (_%K130661130690%_ - (lambda (_%sys-type130680%_ - _%sys-vendor130681%_ - _%sys-cpu130682%_) + _%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-cpu130682%_ + _%sys-cpu131667%_ '#f '0 - _%self130645%_) + _%self131630%_) (gx#core-bind-feature!__% - _%sys-type130680%_ + _%sys-type131665%_ '#f '0 - _%self130645%_) - (if (_%linux-variant?130655%_ _%sys-type130680%_) + _%self131630%_) + (if (_%linux-variant?131640%_ _%sys-type131665%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self130645%_) - (let ((_%$e130685%_ - (_%bsd-variant130656%_ _%sys-type130680%_))) - (if _%$e130685%_ - ((lambda (_%sys-prefix130688%_) + _%self131630%_) + (let ((_%$e131670%_ + (_%bsd-variant131641%_ _%sys-type131665%_))) + (if _%$e131670%_ + ((lambda (_%sys-prefix131673%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self130645%_) + _%self131630%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix130688%_) + (string->symbol _%sys-prefix131673%_) '#f '0 - _%self130645%_)) - _%$e130685%_) + _%self131630%_)) + _%$e131670%_) '#!void)))))) - (if (pair? _%g130657130669%_) - (let ((_%hd130662130693%_ (##car _%g130657130669%_)) - (_%tl130663130695%_ (##cdr _%g130657130669%_))) - (let ((_%sys-cpu130698%_ _%hd130662130693%_)) - (if (pair? _%tl130663130695%_) - (let ((_%hd130664130700%_ (##car _%tl130663130695%_)) - (_%tl130665130702%_ - (##cdr _%tl130663130695%_))) - (let ((_%sys-vendor130705%_ _%hd130664130700%_)) - (if (pair? _%tl130665130702%_) - (let ((_%hd130666130707%_ - (##car _%tl130665130702%_)) - (_%tl130667130709%_ - (##cdr _%tl130665130702%_))) - (let ((_%sys-type130712%_ - _%hd130666130707%_)) - (if (null? _%tl130667130709%_) - (_%K130661130690%_ - _%sys-type130712%_ - _%sys-vendor130705%_ - _%sys-cpu130698%_) + (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 _%self130645%_) + (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 93476df28..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 1734131747) + (define gerbil/expander/stxcase::timestamp 1734357962) (begin (define gx#syntax-pattern::t - (let ((__tmp133071 (list gx#expander::t)) - (__tmp133070 (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 - __tmp133071 + __tmp134056 '(id depth) - __tmp133070 + __tmp134055 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args133067%_ - (apply make-instance gx#syntax-pattern::t _%$args133067%_))) + (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 (_%self131674133051%_ _%stx133053%_) - (let* ((_%self133055%_ _%self131674133051%_) - (_%self133057%_ _%self133055%_)) + (lambda (_%self132659134036%_ _%stx134038%_) + (let* ((_%self134040%_ _%self132659134036%_) + (_%self134042%_ _%self134040%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx133053%_)))) + _%stx134038%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -85,602 +85,602 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx132517%_) - (letrec ((_%generate132519%_ - (lambda (_%e132759%_) - (letrec ((_%BUG132761%_ - (lambda (_%q132926%_) + (lambda (_%stx133502%_) + (letrec ((_%generate133504%_ + (lambda (_%e133744%_) + (letrec ((_%BUG133746%_ + (lambda (_%q133911%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx132517%_ - _%e132759%_ - _%q132926%_)))) - (_%local-pattern-e132762%_ - (lambda (_%pat132924%_) - (let ((__tmp133072 + _%stx133502%_ + _%e133744%_ + _%q133911%_)))) + (_%local-pattern-e133747%_ + (lambda (_%pat133909%_) + (let ((__tmp134057 (##structure-ref - _%pat132924%_ + _%pat133909%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp133072)))) - (_%getvar132763%_ - (lambda (_%q132921%_ _%vars132922%_) + (gx#syntax-local-rewrap __tmp134057)))) + (_%getvar133748%_ + (lambda (_%q133906%_ _%vars133907%_) (let () (declare (not safe)) (agetq__% - _%q132921%_ - _%vars132922%_ - _%BUG132761%_)))) - (_%getarg132764%_ - (lambda (_%arg132887%_ _%vars132888%_) - (let* ((_%arg132889132896%_ _%arg132887%_) - (_%E132891132900%_ + _%q133906%_ + _%vars133907%_ + _%BUG133746%_)))) + (_%getarg133749%_ + (lambda (_%arg133872%_ _%vars133873%_) + (let* ((_%arg133874133881%_ _%arg133872%_) + (_%E133876133885%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg132889132896%_ + _%arg133874133881%_ '([tag . e]))) '#!void)) - (_%K132892132909%_ - (lambda (_%e132903%_ _%tag132904%_) - (let ((_%$e132906%_ _%tag132904%_)) - (if (eq? 'ref _%$e132906%_) - (_%getvar132763%_ - _%e132903%_ - _%vars132888%_) - (if (eq? 'pattern _%$e132906%_) - (_%local-pattern-e132762%_ - _%e132903%_) - (_%BUG132761%_ - _%arg132887%_))))))) - (if (pair? _%arg132889132896%_) - (let ((_%hd132893132912%_ + (_%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 _%arg132889132896%_))) - (_%tl132894132914%_ + (##car _%arg133874133881%_))) + (_%tl133879133899%_ (let () (declare (not safe)) - (##cdr _%arg132889132896%_)))) - (let* ((_%tag132917%_ - _%hd132893132912%_) - (_%e132919%_ - _%tl132894132914%_)) - (_%K132892132909%_ - _%e132919%_ - _%tag132917%_))) - (_%E132891132900%_)))))) - (let _%recur132766%_ ((_%e132768%_ _%e132759%_) - (_%vars132769%_ '())) - (let* ((_%e132770132777%_ _%e132768%_) - (_%E132772132781%_ + (##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" - _%e132770132777%_ + _%e133755133762%_ '([tag . body]))) '#!void)) - (_%K132773132875%_ - (lambda (_%body132784%_ _%tag132785%_) - (let ((_%$e132787%_ _%tag132785%_)) - (if (eq? 'datum _%$e132787%_) + (_%K133758133860%_ + (lambda (_%body133769%_ _%tag133770%_) + (let ((_%$e133772%_ _%tag133770%_)) + (if (eq? 'datum _%$e133772%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body132784%_)) - (if (eq? 'term _%$e132787%_) - (let ((_%id132790%_ + (gx#core-list 'quote _%body133769%_)) + (if (eq? 'term _%$e133772%_) + (let ((_%id133775%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body132784%_)))) + _%body133769%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132790%_ + _%id133775%_ 'gx#identifier-wrap::t)) - (let ((_%marks132793%_ + (let ((_%marks133778%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id132790%_ + _%id133775%_ '3 '#f '#f)))) - (if (null? _%marks132793%_) - (let ((__tmp133073 + (if (null? _%marks133778%_) + (let ((__tmp134058 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body132784%_)))) + (gx#core-list 'quote _%body133769%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp133073)) - (let ((__tmp133075 + (gx#core-list 'datum->syntax '#f __tmp134058)) + (let ((__tmp134060 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body132784%_))) - (__tmp133074 + (gx#core-list 'quote-syntax _%body133769%_))) + (__tmp134059 (let () (declare (not safe)) - (gx#core-list 'quote _%body132784%_)))) + (gx#core-list 'quote _%body133769%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp133075 - __tmp133074 + __tmp134060 + __tmp134059 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132790%_ + _%id133775%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body132784%_)) - (_%BUG132761%_ - _%e132768%_)))) - (if (eq? 'pattern _%$e132787%_) - (_%local-pattern-e132762%_ - _%body132784%_) - (if (eq? 'ref _%$e132787%_) - (_%getvar132763%_ - _%body132784%_ - _%vars132769%_) + _%body133769%_)) + (_%BUG133746%_ + _%e133753%_)))) + (if (eq? 'pattern _%$e133772%_) + (_%local-pattern-e133747%_ + _%body133769%_) + (if (eq? 'ref _%$e133772%_) + (_%getvar133748%_ + _%body133769%_ + _%vars133754%_) (if (eq? 'cons - _%$e132787%_) - (let ((__tmp133077 - (_%recur132766%_ - (car _%body132784%_) - _%vars132769%_)) - (__tmp133076 - (_%recur132766%_ - (cdr _%body132784%_) - _%vars132769%_))) + _%$e133772%_) + (let ((__tmp134062 + (_%recur133751%_ + (car _%body133769%_) + _%vars133754%_)) + (__tmp134061 + (_%recur133751%_ + (cdr _%body133769%_) + _%vars133754%_))) (declare (not safe)) (gx#core-list 'cons - __tmp133077 - __tmp133076)) + __tmp134062 + __tmp134061)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e132787%_) - (let ((__tmp133078 - (_%recur132766%_ _%body132784%_ _%vars132769%_))) + _%$e133772%_) + (let ((__tmp134063 + (_%recur133751%_ _%body133769%_ _%vars133754%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp133078)) - (if (eq? 'box _%$e132787%_) - (let ((__tmp133079 - (_%recur132766%_ - _%body132784%_ - _%vars132769%_))) + (gx#core-list 'list->vector __tmp134063)) + (if (eq? 'box _%$e133772%_) + (let ((__tmp134064 + (_%recur133751%_ + _%body133769%_ + _%vars133754%_))) (declare (not safe)) - (gx#core-list 'box __tmp133079)) - (if (eq? 'splice _%$e132787%_) - (let* ((_%body132796132807%_ _%body132784%_) - (_%E132798132811%_ + (gx#core-list 'box __tmp134064)) + (if (eq? 'splice _%$e133772%_) + (let* ((_%body133781133792%_ _%body133769%_) + (_%E133783133796%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132796132807%_ + _%body133781133792%_ '([depth hd iv . args]))) '#!void)) - (_%K132799132849%_ - (lambda (_%args132814%_ - _%iv132815%_ - _%hd132816%_ - _%depth132817%_) - (let* ((_%targets132823%_ - (map (lambda (_%g132818132820%_) - (_%getarg132764%_ - _%g132818132820%_ - _%vars132769%_)) - _%args132814%_)) - (_%fold-in132825%_ + (_%K133784133834%_ + (lambda (_%args133799%_ + _%iv133800%_ + _%hd133801%_ + _%depth133802%_) + (let* ((_%targets133808%_ + (map (lambda (_%g133803133805%_) + (_%getarg133749%_ + _%g133803133805%_ + _%vars133754%_)) + _%args133799%_)) + (_%fold-in133810%_ (let () (declare (not safe)) - (gx#gentemps _%args132814%_))) - (_%fold-out132827%_ + (gx#gentemps _%args133799%_))) + (_%fold-out133812%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args132829%_ - (let ((__tmp133080 - (cons _%fold-out132827%_ + (_%lambda-args133814%_ + (let ((__tmp134065 + (cons _%fold-out133812%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp133080 - _%fold-in132825%_))) - (_%lambda-body132846%_ + __tmp134065 + _%fold-in133810%_))) + (_%lambda-body133831%_ (if (let () (declare (not safe)) - (##fx> _%depth132817%_ '1)) - (let ((_%r-args132837%_ - (map (lambda (_%arg132831%_) + (##fx> _%depth133802%_ '1)) + (let ((_%r-args133822%_ + (map (lambda (_%arg133816%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg132831%_))) - _%args132814%_)) - (_%r-vars132838%_ - (let ((__tmp133081 - (lambda (_%arg132833%_ _%var132834%_ _%r132835%_) - (cons (cons (cdr _%arg132833%_) _%var132834%_) - _%r132835%_)))) + (cdr _%arg133816%_))) + _%args133799%_)) + (_%r-vars133823%_ + (let ((__tmp134066 + (lambda (_%arg133818%_ _%var133819%_ _%r133820%_) + (cons (cons (cdr _%arg133818%_) _%var133819%_) + _%r133820%_)))) (declare (not safe)) (__foldr2 - __tmp133081 - _%vars132769%_ - _%args132814%_ - _%fold-in132825%_)))) + __tmp134066 + _%vars133754%_ + _%args133799%_ + _%fold-in133810%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur132766%_ + (_%recur133751%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth132817%_ '1)) - (cons _%hd132816%_ - (cons (cons 'var _%fold-out132827%_) - _%r-args132837%_)))) + (##fx- _%depth133802%_ '1)) + (cons _%hd133801%_ + (cons (cons 'var _%fold-out133812%_) + _%r-args133822%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars132838%_)) - (let* ((_%hd-vars132844%_ - (let ((__tmp133082 + _%r-vars133823%_)) + (let* ((_%hd-vars133829%_ + (let ((__tmp134067 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg132840%_ _%var132841%_ _%r132842%_) - (cons (cons (cdr _%arg132840%_) _%var132841%_) - _%r132842%_)))) + (lambda (_%arg133825%_ _%var133826%_ _%r133827%_) + (cons (cons (cdr _%arg133825%_) _%var133826%_) + _%r133827%_)))) (declare (not safe)) (__foldr2 - __tmp133082 - _%vars132769%_ - _%args132814%_ - _%fold-in132825%_))) - (__tmp133083 - (_%recur132766%_ _%hd132816%_ _%hd-vars132844%_))) + __tmp134067 + _%vars133754%_ + _%args133799%_ + _%fold-in133810%_))) + (__tmp134068 + (_%recur133751%_ _%hd133801%_ _%hd-vars133829%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp133083 - _%fold-out132827%_))))) - (let ((__tmp133087 - (if (let ((__tmp133088 + __tmp134068 + _%fold-out133812%_))))) + (let ((__tmp134072 + (if (let ((__tmp134073 (let () (declare (not safe)) (##length - _%targets132823%_)))) + _%targets133808%_)))) (declare (not safe)) - (##fx> __tmp133088 '1)) + (##fx> __tmp134073 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets132823%_)) + _%targets133808%_)) '#!void)) - (__tmp133084 - (let ((__tmp133086 + (__tmp134069 + (let ((__tmp134071 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args132829%_ - _%lambda-body132846%_))) - (__tmp133085 - (_%recur132766%_ - _%iv132815%_ - _%vars132769%_))) + _%lambda-args133814%_ + _%lambda-body133831%_))) + (__tmp134070 + (_%recur133751%_ + _%iv133800%_ + _%vars133754%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp133086 - __tmp133085 - _%targets132823%_)))) + __tmp134071 + __tmp134070 + _%targets133808%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp133087 - __tmp133084)))))) - (if (pair? _%body132796132807%_) - (let ((_%hd132800132852%_ + __tmp134072 + __tmp134069)))))) + (if (pair? _%body133781133792%_) + (let ((_%hd133785133837%_ (let () (declare (not safe)) - (##car _%body132796132807%_))) - (_%tl132801132854%_ + (##car _%body133781133792%_))) + (_%tl133786133839%_ (let () (declare (not safe)) - (##cdr _%body132796132807%_)))) - (let ((_%depth132857%_ _%hd132800132852%_)) - (if (pair? _%tl132801132854%_) - (let ((_%hd132802132859%_ + (##cdr _%body133781133792%_)))) + (let ((_%depth133842%_ _%hd133785133837%_)) + (if (pair? _%tl133786133839%_) + (let ((_%hd133787133844%_ (let () (declare (not safe)) - (##car _%tl132801132854%_))) - (_%tl132803132861%_ + (##car _%tl133786133839%_))) + (_%tl133788133846%_ (let () (declare (not safe)) - (##cdr _%tl132801132854%_)))) - (let ((_%hd132864%_ - _%hd132802132859%_)) - (if (pair? _%tl132803132861%_) - (let ((_%hd132804132866%_ + (##cdr _%tl133786133839%_)))) + (let ((_%hd133849%_ + _%hd133787133844%_)) + (if (pair? _%tl133788133846%_) + (let ((_%hd133789133851%_ (let () (declare (not safe)) - (##car _%tl132803132861%_))) - (_%tl132805132868%_ + (##car _%tl133788133846%_))) + (_%tl133790133853%_ (let () (declare (not safe)) - (##cdr _%tl132803132861%_)))) - (let* ((_%iv132871%_ - _%hd132804132866%_) - (_%args132873%_ - _%tl132805132868%_)) - (_%K132799132849%_ - _%args132873%_ - _%iv132871%_ - _%hd132864%_ - _%depth132857%_))) - (_%E132798132811%_)))) - (_%E132798132811%_)))) - (_%E132798132811%_))) - (if (eq? 'var _%$e132787%_) - _%body132784%_ - (_%BUG132761%_ _%e132768%_)))))))))))))) + (##cdr _%tl133788133846%_)))) + (let* ((_%iv133856%_ + _%hd133789133851%_) + (_%args133858%_ + _%tl133790133853%_)) + (_%K133784133834%_ + _%args133858%_ + _%iv133856%_ + _%hd133849%_ + _%depth133842%_))) + (_%E133783133796%_)))) + (_%E133783133796%_)))) + (_%E133783133796%_))) + (if (eq? 'var _%$e133772%_) + _%body133769%_ + (_%BUG133746%_ _%e133753%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e132770132777%_) - (let ((_%hd132774132878%_ + (if (pair? _%e133755133762%_) + (let ((_%hd133759133863%_ (let () (declare (not safe)) - (##car _%e132770132777%_))) - (_%tl132775132880%_ + (##car _%e133755133762%_))) + (_%tl133760133865%_ (let () (declare (not safe)) - (##cdr _%e132770132777%_)))) - (let* ((_%tag132883%_ _%hd132774132878%_) - (_%body132885%_ _%tl132775132880%_)) - (_%K132773132875%_ - _%body132885%_ - _%tag132883%_))) - (_%E132772132781%_))))))) - (_%parse132520%_ - (lambda (_%e132561%_) - (letrec ((_%make-cons132563%_ - (lambda (_%hd132751%_ _%tl132752%_) - (let ((_g133089_ _%hd132751%_) - (_g133091_ _%tl132752%_)) + (##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 ((_g133090_ + (let ((_g134075_ (let () (declare (not safe)) - (if (##values? _g133089_) - (##values-length _g133089_) + (if (##values? _g134074_) + (##values-length _g134074_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133090_ 2))) + (##fx= _g134075_ 2))) (error "Context expects 2 values" - _g133090_))) - (let ((_g133092_ + _g134075_))) + (let ((_g134077_ (let () (declare (not safe)) - (if (##values? _g133091_) - (##values-length _g133091_) + (if (##values? _g134076_) + (##values-length _g134076_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133092_ 2))) + (##fx= _g134077_ 2))) (error "Context expects 2 values" - _g133092_))) - (let ((_%hd-e132754%_ + _g134077_))) + (let ((_%hd-e133739%_ (let () (declare (not safe)) - (##values-ref _g133089_ 0))) - (_%hd-vars132755%_ + (##values-ref _g134074_ 0))) + (_%hd-vars133740%_ (let () (declare (not safe)) - (##values-ref _g133089_ 1)))) - (let ((_%tl-e132756%_ + (##values-ref _g134074_ 1)))) + (let ((_%tl-e133741%_ (let () (declare (not safe)) - (##values-ref _g133091_ 0))) - (_%tl-vars132757%_ + (##values-ref _g134076_ 0))) + (_%tl-vars133742%_ (let () (declare (not safe)) - (##values-ref _g133091_ 1)))) + (##values-ref _g134076_ 1)))) (values (cons 'cons - (cons _%hd-e132754%_ - _%tl-e132756%_)) - (append _%hd-vars132755%_ - _%tl-vars132757%_)))))))) - (_%make-splice132564%_ - (lambda (_%where132687%_ - _%depth132688%_ - _%hd132689%_ - _%tl132690%_) - (let ((_g133093_ _%hd132689%_) - (_g133095_ _%tl132690%_)) + (cons _%hd-e133739%_ + _%tl-e133741%_)) + (append _%hd-vars133740%_ + _%tl-vars133742%_)))))))) + (_%make-splice133549%_ + (lambda (_%where133672%_ + _%depth133673%_ + _%hd133674%_ + _%tl133675%_) + (let ((_g134078_ _%hd133674%_) + (_g134080_ _%tl133675%_)) (begin - (let ((_g133094_ + (let ((_g134079_ (let () (declare (not safe)) - (if (##values? _g133093_) - (##values-length _g133093_) + (if (##values? _g134078_) + (##values-length _g134078_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133094_ 2))) + (##fx= _g134079_ 2))) (error "Context expects 2 values" - _g133094_))) - (let ((_g133096_ + _g134079_))) + (let ((_g134081_ (let () (declare (not safe)) - (if (##values? _g133095_) - (##values-length _g133095_) + (if (##values? _g134080_) + (##values-length _g134080_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133096_ 2))) + (##fx= _g134081_ 2))) (error "Context expects 2 values" - _g133096_))) - (let ((_%hd-e132692%_ + _g134081_))) + (let ((_%hd-e133677%_ (let () (declare (not safe)) - (##values-ref _g133093_ 0))) - (_%hd-vars132693%_ + (##values-ref _g134078_ 0))) + (_%hd-vars133678%_ (let () (declare (not safe)) - (##values-ref _g133093_ 1)))) - (let ((_%tl-e132694%_ + (##values-ref _g134078_ 1)))) + (let ((_%tl-e133679%_ (let () (declare (not safe)) - (##values-ref _g133095_ 0))) - (_%tl-vars132695%_ + (##values-ref _g134080_ 0))) + (_%tl-vars133680%_ (let () (declare (not safe)) - (##values-ref _g133095_ 1)))) - (let _%lp132697%_ ((_%rest132699%_ - _%hd-vars132693%_) - (_%targets132700%_ + (##values-ref _g134080_ 1)))) + (let _%lp133682%_ ((_%rest133684%_ + _%hd-vars133678%_) + (_%targets133685%_ '()) - (_%vars132701%_ - _%tl-vars132695%_)) - (let* ((_%rest132702132712%_ - _%rest132699%_) - (_%else132704132720%_ + (_%vars133686%_ + _%tl-vars133680%_)) + (let* ((_%rest133687133697%_ + _%rest133684%_) + (_%else133689133705%_ (lambda () - (if (null? _%targets132700%_) + (if (null? _%targets133685%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx132517%_ - _%where132687%_)) + _%stx133502%_ + _%where133672%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth132688%_ - (cons _%hd-e132692%_ - (cons _%tl-e132694%_ - _%targets132700%_)))) - _%vars132701%_)))) + (cons _%depth133673%_ + (cons _%hd-e133677%_ + (cons _%tl-e133679%_ + _%targets133685%_)))) + _%vars133686%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K132706132732%_ - (lambda (_%rest132723%_ - _%hd-pat132724%_ - _%hd-depth*132725%_) - (let ((_%hd-depth132727%_ - (fx- _%hd-depth*132725%_ - _%depth132688%_))) + (_%K133691133717%_ + (lambda (_%rest133708%_ + _%hd-pat133709%_ + _%hd-depth*133710%_) + (let ((_%hd-depth133712%_ + (fx- _%hd-depth*133710%_ + _%depth133673%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth132727%_)) - (_%lp132697%_ - _%rest132723%_ + _%hd-depth133712%_)) + (_%lp133682%_ + _%rest133708%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat132724%_) - _%targets132700%_) - (cons (cons _%hd-depth132727%_ _%hd-pat132724%_) - _%vars132701%_)) + _%hd-pat133709%_) + _%targets133685%_) + (cons (cons _%hd-depth133712%_ _%hd-pat133709%_) + _%vars133686%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth132727%_)) - (_%lp132697%_ - _%rest132723%_ - (cons (cons 'pattern _%hd-pat132724%_) - _%targets132700%_) - _%vars132701%_) + (##fxzero? _%hd-depth133712%_)) + (_%lp133682%_ + _%rest133708%_ + (cons (cons 'pattern _%hd-pat133709%_) + _%targets133685%_) + _%vars133686%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx132517%_ - _%where132687%_)))))))) + _%stx133502%_ + _%where133672%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest132702132712%_) - (let ((_%hd132707132735%_ + (if (pair? _%rest133687133697%_) + (let ((_%hd133692133720%_ (let () (declare (not safe)) - (##car _%rest132702132712%_))) - (_%tl132708132737%_ + (##car _%rest133687133697%_))) + (_%tl133693133722%_ (let () (declare (not safe)) - (##cdr _%rest132702132712%_)))) - (if (pair? _%hd132707132735%_) - (let ((_%hd132709132740%_ + (##cdr _%rest133687133697%_)))) + (if (pair? _%hd133692133720%_) + (let ((_%hd133694133725%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd132707132735%_))) - (_%tl132710132742%_ - (let () (declare (not safe)) (##cdr _%hd132707132735%_)))) - (let* ((_%hd-depth*132745%_ _%hd132709132740%_) - (_%hd-pat132747%_ _%tl132710132742%_) - (_%rest132749%_ _%tl132708132737%_)) - (_%K132706132732%_ - _%rest132749%_ - _%hd-pat132747%_ - _%hd-depth*132745%_))) - (_%else132704132720%_))) + (##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%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else132704132720%_)))))))))) - (_%recur132565%_ - (lambda (_%e132570%_ _%is-e?132571%_) - (if (_%is-e?132571%_ _%e132570%_) + (_%else133689133705%_)))))))))) + (_%recur133550%_ + (lambda (_%e133555%_ _%is-e?133556%_) + (if (_%is-e?133556%_ _%e133555%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx132517%_)) - (if (gx#syntax-local-pattern? _%e132570%_) - (let* ((_%pat132575%_ + _%stx133502%_)) + (if (gx#syntax-local-pattern? _%e133555%_) + (let* ((_%pat133560%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e132570%_))) - (_%depth132577%_ + _%e133555%_))) + (_%depth133562%_ (##structure-ref - _%pat132575%_ + _%pat133560%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth132577%_) - (values (cons 'ref _%pat132575%_) - (cons (cons _%depth132577%_ + (if (fxpositive? _%depth133562%_) + (values (cons 'ref _%pat133560%_) + (cons (cons _%depth133562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat132575%_) + _%pat133560%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat132575%_) + _%pat133560%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e132570%_)) - (values (cons 'term _%e132570%_) + (gx#identifier? _%e133555%_)) + (values (cons 'term _%e133555%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e132570%_)) - (let* ((_%e132581132588%_ - _%e132570%_) - (_%E132583132592%_ + (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" - _%e132581132588%_)))) - (_%E132582132674%_ + _%e133566133573%_)))) + (_%E133567133659%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e132581132588%_)) - (let ((_%e132584132596%_ + (gx#stx-pair? _%e133566133573%_)) + (let ((_%e133569133581%_ (let () (declare (not safe)) - (gx#syntax-e _%e132581132588%_)))) - (let ((_%hd132585132599%_ + (gx#syntax-e _%e133566133573%_)))) + (let ((_%hd133570133584%_ (let () (declare (not safe)) - (##car _%e132584132596%_))) - (_%tl132586132601%_ + (##car _%e133569133581%_))) + (_%tl133571133586%_ (let () (declare (not safe)) - (##cdr _%e132584132596%_)))) - (let* ((_%hd132604%_ _%hd132585132599%_) - (_%rest132606%_ _%tl132586132601%_)) - (if (_%is-e?132571%_ _%hd132604%_) - (let* ((_%e132607132614%_ _%rest132606%_) - (_%E132609132618%_ + (##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" - _%stx132517%_ - _%e132570%_)))) - (_%E132608132632%_ + _%stx133502%_ + _%e133555%_)))) + (_%E133593133617%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132607132614%_)) - (let ((_%e132610132622%_ + _%e133592133599%_)) + (let ((_%e133595133607%_ (let () (declare (not safe)) (gx#syntax-e - _%e132607132614%_)))) - (let ((_%hd132611132625%_ + _%e133592133599%_)))) + (let ((_%hd133596133610%_ (let () (declare (not safe)) - (##car _%e132610132622%_))) - (_%tl132612132627%_ + (##car _%e133595133607%_))) + (_%tl133597133612%_ (let () (declare (not safe)) - (##cdr _%e132610132622%_)))) - (let ((_%rest132630%_ - _%hd132611132625%_)) + (##cdr _%e133595133607%_)))) + (let ((_%rest133615%_ + _%hd133596133610%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132612132627%_)) - (_%recur132565%_ - _%rest132630%_ + _%tl133597133612%_)) + (_%recur133550%_ + _%rest133615%_ false) - (_%E132609132618%_))))) - (_%E132609132618%_))))) - (_%E132608132632%_)) - (let _%lp132636%_ ((_%rest132638%_ - _%rest132606%_) - (_%depth132639%_ '0)) - (let* ((_%e132640132647%_ _%rest132638%_) - (_%E132642132651%_ + (_%E133594133603%_))))) + (_%E133594133603%_))))) + (_%E133593133617%_)) + (let _%lp133621%_ ((_%rest133623%_ + _%rest133591%_) + (_%depth133624%_ '0)) + (let* ((_%e133625133632%_ _%rest133623%_) + (_%E133627133636%_ (lambda () - (if (fxpositive? _%depth132639%_) - (_%make-splice132564%_ - _%e132570%_ - _%depth132639%_ - (_%recur132565%_ - _%hd132604%_ - _%is-e?132571%_) - (_%recur132565%_ - _%rest132638%_ - _%is-e?132571%_)) - (_%make-cons132563%_ - (_%recur132565%_ - _%hd132604%_ - _%is-e?132571%_) - (_%recur132565%_ - _%rest132638%_ - _%is-e?132571%_))))) - (_%E132641132670%_ + (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? - _%e132640132647%_)) - (let ((_%e132643132655%_ + _%e133625133632%_)) + (let ((_%e133628133640%_ (let () (declare (not safe)) (gx#syntax-e - _%e132640132647%_)))) - (let ((_%hd132644132658%_ + _%e133625133632%_)))) + (let ((_%hd133629133643%_ (let () (declare (not safe)) - (##car _%e132643132655%_))) - (_%tl132645132660%_ + (##car _%e133628133640%_))) + (_%tl133630133645%_ (let () (declare (not safe)) - (##cdr _%e132643132655%_)))) - (let* ((_%rest-hd132663%_ - _%hd132644132658%_) - (_%rest-tl132665%_ - _%tl132645132660%_)) - (if (_%is-e?132571%_ - _%rest-hd132663%_) - (_%lp132636%_ - _%rest-tl132665%_ + (##cdr _%e133628133640%_)))) + (let* ((_%rest-hd133648%_ + _%hd133629133643%_) + (_%rest-tl133650%_ + _%tl133630133645%_)) + (if (_%is-e?133556%_ + _%rest-hd133648%_) + (_%lp133621%_ + _%rest-tl133650%_ (let () (declare (not safe)) - (##fx+ _%depth132639%_ + (##fx+ _%depth133624%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth132639%_) - (_%make-splice132564%_ - _%e132570%_ - _%depth132639%_ - (_%recur132565%_ _%hd132604%_ _%is-e?132571%_) - (_%recur132565%_ _%rest132638%_ _%is-e?132571%_)) - (_%make-cons132563%_ - (_%recur132565%_ _%hd132604%_ _%is-e?132571%_) - (_%recur132565%_ _%rest132638%_ _%is-e?132571%_))))))) + (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%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132642132651%_))))) - (_%E132641132670%_))))))) - (_%E132583132592%_))))) + (_%E133627133636%_))))) + (_%E133626133655%_))))))) + (_%E133568133577%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132582132674%_)) + (_%E133567133659%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e132570%_)) - (let ((_g133097_ - (_%recur132565%_ + _%e133555%_)) + (let ((_g134082_ + (_%recur133550%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e132570%_))) - _%is-e?132571%_))) + (gx#stx-unwrap__0 _%e133555%_))) + _%is-e?133556%_))) (begin - (let ((_g133098_ + (let ((_g134083_ (let () (declare (not safe)) - (if (##values? _g133097_) - (##values-length _g133097_) + (if (##values? _g134082_) + (##values-length _g134082_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g133098_ 2))) - (error "Context expects 2 values" _g133098_))) - (let ((_%e132679%_ + (if (not (let () (declare (not safe)) (##fx= _g134083_ 2))) + (error "Context expects 2 values" _g134083_))) + (let ((_%e133664%_ (let () (declare (not safe)) - (##values-ref _g133097_ 0))) - (_%vars132680%_ + (##values-ref _g134082_ 0))) + (_%vars133665%_ (let () (declare (not safe)) - (##values-ref _g133097_ 1)))) - (values (cons 'vector _%e132679%_) _%vars132680%_)))) + (##values-ref _g134082_ 1)))) + (values (cons 'vector _%e133664%_) _%vars133665%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e132570%_)) - (let ((_g133099_ - (_%recur132565%_ + _%e133555%_)) + (let ((_g134084_ + (_%recur133550%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e132570%_))) - _%is-e?132571%_))) + (gx#stx-unwrap__0 _%e133555%_))) + _%is-e?133556%_))) (begin - (let ((_g133100_ + (let ((_g134085_ (let () (declare (not safe)) - (if (##values? _g133099_) - (##values-length _g133099_) + (if (##values? _g134084_) + (##values-length _g134084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133100_ 2))) - (error "Context expects 2 values" _g133100_))) - (let ((_%e132683%_ + (##fx= _g134085_ 2))) + (error "Context expects 2 values" _g134085_))) + (let ((_%e133668%_ (let () (declare (not safe)) - (##values-ref _g133099_ 0))) - (_%vars132684%_ + (##values-ref _g134084_ 0))) + (_%vars133669%_ (let () (declare (not safe)) - (##values-ref _g133099_ 1)))) - (values (cons 'box _%e132683%_) _%vars132684%_)))) - (values (cons 'datum _%e132570%_) '())))))))))) + (##values-ref _g134084_ 1)))) + (values (cons 'box _%e133668%_) _%vars133669%_)))) + (values (cons 'datum _%e133555%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g133101_ - (_%recur132565%_ _%e132561%_ gx#ellipsis?))) + (let ((_g134086_ + (_%recur133550%_ _%e133546%_ gx#ellipsis?))) (begin - (let ((_g133102_ + (let ((_g134087_ (let () (declare (not safe)) - (if (##values? _g133101_) - (##values-length _g133101_) + (if (##values? _g134086_) + (##values-length _g134086_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133102_ 2))) - (error "Context expects 2 values" _g133102_))) - (let ((_%tree132567%_ + (##fx= _g134087_ 2))) + (error "Context expects 2 values" _g134087_))) + (let ((_%tree133552%_ (let () (declare (not safe)) - (##values-ref _g133101_ 0))) - (_%vars132568%_ + (##values-ref _g134086_ 0))) + (_%vars133553%_ (let () (declare (not safe)) - (##values-ref _g133101_ 1)))) - (if (null? _%vars132568%_) - _%tree132567%_ + (##values-ref _g134086_ 1)))) + (if (null? _%vars133553%_) + _%tree133552%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx132517%_ - _%vars132568%_)))))))))) - (let* ((_%e132521132531%_ _%stx132517%_) - (_%E132523132535%_ + _%stx133502%_ + _%vars133553%_)))))))))) + (let* ((_%e133506133516%_ _%stx133502%_) + (_%E133508133520%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx132517%_)))) - (_%E132522132557%_ + _%stx133502%_)))) + (_%E133507133542%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132521132531%_)) - (let ((_%e132524132539%_ + (gx#stx-pair? _%e133506133516%_)) + (let ((_%e133509133524%_ (let () (declare (not safe)) - (gx#syntax-e _%e132521132531%_)))) - (let ((_%hd132525132542%_ + (gx#syntax-e _%e133506133516%_)))) + (let ((_%hd133510133527%_ (let () (declare (not safe)) - (##car _%e132524132539%_))) - (_%tl132526132544%_ + (##car _%e133509133524%_))) + (_%tl133511133529%_ (let () (declare (not safe)) - (##cdr _%e132524132539%_)))) + (##cdr _%e133509133524%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132526132544%_)) - (let ((_%e132527132547%_ + (gx#stx-pair? _%tl133511133529%_)) + (let ((_%e133512133532%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132526132544%_)))) - (let ((_%hd132528132550%_ + (gx#syntax-e _%tl133511133529%_)))) + (let ((_%hd133513133535%_ (let () (declare (not safe)) - (##car _%e132527132547%_))) - (_%tl132529132552%_ + (##car _%e133512133532%_))) + (_%tl133514133537%_ (let () (declare (not safe)) - (##cdr _%e132527132547%_)))) - (let ((_%form132555%_ _%hd132528132550%_)) + (##cdr _%e133512133532%_)))) + (let ((_%form133540%_ _%hd133513133535%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132529132552%_)) - (let ((__tmp133104 - (_%generate132519%_ - (_%parse132520%_ - _%form132555%_))) - (__tmp133103 + (gx#stx-null? _%tl133514133537%_)) + (let ((__tmp134089 + (_%generate133504%_ + (_%parse133505%_ + _%form133540%_))) + (__tmp134088 (let () (declare (not safe)) (gx#stx-source - _%stx132517%_)))) + _%stx133502%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp133104 - __tmp133103)) - (_%E132523132535%_))))) - (_%E132523132535%_)))) - (_%E132523132535%_))))) - (_%E132522132557%_))))) + __tmp134089 + __tmp134088)) + (_%E133508133520%_))))) + (_%E133508133520%_)))) + (_%E133508133520%_))))) + (_%E133507133542%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx131766%_ - _%identifier=?131767%_ - _%unwrap-e131768%_ - _%wrap-e131769%_) - (letrec ((_%generate-bindings131771%_ - (lambda (_%target132381%_ - _%ids132382%_ - _%clauses132383%_ - _%clause-ids132384%_ - _%E132385%_) - (letrec ((_%generate1132387%_ - (lambda (_%clause132484%_ - _%clause-id132485%_ - _%E132486%_) - (cons (cons _%clause-id132485%_ '()) - (cons (let ((__tmp133106 - (cons _%target132381%_ '())) - (__tmp133105 - (_%generate-clause131773%_ - _%target132381%_ - _%ids132382%_ - _%clause132484%_ - _%E132486%_))) + (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% - __tmp133106 - __tmp133105)) + __tmp134091 + __tmp134090)) '()))))) - (let _%lp132389%_ ((_%rest132391%_ _%clauses132383%_) - (_%rest-ids132392%_ - _%clause-ids132384%_) - (_%bindings132393%_ '())) - (let* ((_%rest132394132402%_ _%rest132391%_) - (_%else132396132410%_ - (lambda () _%bindings132393%_)) - (_%K132398132472%_ - (lambda (_%rest132413%_ _%clause132414%_) - (let* ((_%rest-ids132415132422%_ - _%rest-ids132392%_) - (_%E132417132426%_ + (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-ids132415132422%_ + _%rest-ids133400133407%_ '([clause-id . rest-ids]))) '#!void)) - (_%K132418132460%_ - (lambda (_%rest-ids132429%_ - _%clause-id132430%_) - (let* ((_%rest-ids132431132439%_ - _%rest-ids132429%_) - (_%else132433132447%_ + (_%K133403133445%_ + (lambda (_%rest-ids133414%_ + _%clause-id133415%_) + (let* ((_%rest-ids133416133424%_ + _%rest-ids133414%_) + (_%else133418133432%_ (lambda () - (cons (_%generate1132387%_ - _%clause132414%_ - _%clause-id132430%_ - _%E132385%_) - _%bindings132393%_))) - (_%K132435132452%_ - (lambda (_%next-clause-id132450%_) - (_%lp132389%_ - _%rest132413%_ - _%rest-ids132429%_ - (cons (_%generate1132387%_ - _%clause132414%_ - _%clause-id132430%_ - _%next-clause-id132450%_) - _%bindings132393%_))))) - (if (pair? _%rest-ids132431132439%_) - (let* ((_%hd132436132455%_ + (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-ids132431132439%_))) - (_%next-clause-id132458%_ - _%hd132436132455%_)) - (_%K132435132452%_ - _%next-clause-id132458%_)) - (_%else132433132447%_)))))) - (if (pair? _%rest-ids132415132422%_) - (let ((_%hd132419132463%_ + (##car _%rest-ids133416133424%_))) + (_%next-clause-id133443%_ + _%hd133421133440%_)) + (_%K133420133437%_ + _%next-clause-id133443%_)) + (_%else133418133432%_)))))) + (if (pair? _%rest-ids133400133407%_) + (let ((_%hd133404133448%_ (let () (declare (not safe)) - (##car _%rest-ids132415132422%_))) - (_%tl132420132465%_ + (##car _%rest-ids133400133407%_))) + (_%tl133405133450%_ (let () (declare (not safe)) - (##cdr _%rest-ids132415132422%_)))) - (let* ((_%clause-id132468%_ - _%hd132419132463%_) - (_%rest-ids132470%_ - _%tl132420132465%_)) - (_%K132418132460%_ - _%rest-ids132470%_ - _%clause-id132468%_))) - (_%E132417132426%_)))))) - (if (pair? _%rest132394132402%_) - (let ((_%hd132399132475%_ + (##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 _%rest132394132402%_))) - (_%tl132400132477%_ + (##car _%rest133379133387%_))) + (_%tl133385133462%_ (let () (declare (not safe)) - (##cdr _%rest132394132402%_)))) - (let* ((_%clause132480%_ _%hd132399132475%_) - (_%rest132482%_ _%tl132400132477%_)) - (_%K132398132472%_ - _%rest132482%_ - _%clause132480%_))) - (_%else132396132410%_))))))) - (_%generate-body131772%_ - (lambda (_%bindings132341%_ _%body132342%_) - (let _%recur132344%_ ((_%rest132346%_ _%bindings132341%_)) - (let* ((_%rest132347132355%_ _%rest132346%_) - (_%else132349132363%_ (lambda () _%body132342%_)) - (_%K132351132369%_ - (lambda (_%rest132366%_ _%hd132367%_) - (let ((__tmp133108 (cons _%hd132367%_ '())) - (__tmp133107 - (_%recur132344%_ _%rest132366%_))) + (##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 - __tmp133108 - __tmp133107))))) - (if (pair? _%rest132347132355%_) - (let ((_%hd132352132372%_ + __tmp134093 + __tmp134092))))) + (if (pair? _%rest133332133340%_) + (let ((_%hd133337133357%_ (let () (declare (not safe)) - (##car _%rest132347132355%_))) - (_%tl132353132374%_ + (##car _%rest133332133340%_))) + (_%tl133338133359%_ (let () (declare (not safe)) - (##cdr _%rest132347132355%_)))) - (let* ((_%hd132377%_ _%hd132352132372%_) - (_%rest132379%_ _%tl132353132374%_)) - (_%K132351132369%_ - _%rest132379%_ - _%hd132377%_))) - (_%else132349132363%_)))))) - (_%generate-clause131773%_ - (lambda (_%target132204%_ - _%ids132205%_ - _%clause132206%_ - _%E132207%_) - (letrec ((_%generate1132209%_ - (lambda (_%hd132296%_ - _%fender132297%_ - _%body132298%_) - (let ((_g133109_ - (_%parse-clause131775%_ - _%hd132296%_ - _%ids132205%_))) + (##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 ((_g133110_ + (let ((_g134095_ (let () (declare (not safe)) - (if (##values? _g133109_) - (##values-length _g133109_) + (if (##values? _g134094_) + (##values-length _g134094_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133110_ 2))) + (##fx= _g134095_ 2))) (error "Context expects 2 values" - _g133110_))) - (let ((_%e132300%_ + _g134095_))) + (let ((_%e133285%_ (let () (declare (not safe)) - (##values-ref _g133109_ 0))) - (_%mvars132301%_ + (##values-ref _g134094_ 0))) + (_%mvars133286%_ (let () (declare (not safe)) - (##values-ref _g133109_ 1)))) - (let* ((_%pvars132303%_ + (##values-ref _g134094_ 1)))) + (let* ((_%pvars133288%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars132301%_)))) - (_%E132305%_ - (cons _%E132207%_ - (cons _%target132204%_ + _%mvars133286%_)))) + (_%E133290%_ + (cons _%E133192%_ + (cons _%target133189%_ '()))) - (_%K132338%_ - (let ((__tmp133111 - (let ((__tmp133113 - (map (lambda (_%mvar132307%_ + (_%K133323%_ + (let ((__tmp134096 + (let ((__tmp134098 + (map (lambda (_%mvar133292%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar132308%_) - (let* ((_%mvar132309132316%_ _%mvar132307%_) - (_%E132311132320%_ + _%pvar133293%_) + (let* ((_%mvar133294133301%_ _%mvar133292%_) + (_%E133296133305%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar132309132316%_ + _%mvar133294133301%_ '([id . depth]))) '#!void)) - (_%K132312132326%_ - (lambda (_%depth132323%_ _%id132324%_) - (cons _%id132324%_ - (cons (let ((__tmp133115 + (_%K133297133311%_ + (lambda (_%depth133308%_ _%id133309%_) + (cons _%id133309%_ + (cons (let ((__tmp134100 (let () (declare (not safe)) (gx#core-list 'quote - _%id132324%_))) - (__tmp133114 + _%id133309%_))) + (__tmp134099 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar132308%_)))) + _%pvar133293%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp133115 - __tmp133114 - _%depth132323%_)) + __tmp134100 + __tmp134099 + _%depth133308%_)) '()))))) - (if (pair? _%mvar132309132316%_) - (let ((_%hd132313132329%_ + (if (pair? _%mvar133294133301%_) + (let ((_%hd133298133314%_ (let () (declare (not safe)) - (##car _%mvar132309132316%_))) - (_%tl132314132331%_ + (##car _%mvar133294133301%_))) + (_%tl133299133316%_ (let () (declare (not safe)) - (##cdr _%mvar132309132316%_)))) - (let* ((_%id132334%_ _%hd132313132329%_) - (_%depth132336%_ _%tl132314132331%_)) - (_%K132312132326%_ - _%depth132336%_ - _%id132334%_))) - (_%E132311132320%_)))) - _%mvars132301%_ - _%pvars132303%_)) - (__tmp133112 - (if (eq? _%fender132297%_ '#t) - _%body132298%_ + (##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 - _%fender132297%_ - _%body132298%_ - _%E132305%_))))) + _%fender133282%_ + _%body133283%_ + _%E133290%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp133113 __tmp133112)))) + (gx#core-list 'let-syntax __tmp134098 __tmp134097)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars132303%_ - __tmp133111)))) - (_%generate-match131774%_ - _%hd132296%_ - _%target132204%_ - _%e132300%_ - _%mvars132301%_ - _%K132338%_ - _%E132305%_)))))))) - (let* ((_%e132210132230%_ _%clause132206%_) - (_%E132219132234%_ + _%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" - _%e132210132230%_)))) - (_%E132212132268%_ + _%e133195133215%_)))) + (_%E133197133253%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132210132230%_)) - (let ((_%e132220132238%_ + (gx#stx-pair? _%e133195133215%_)) + (let ((_%e133205133223%_ (let () (declare (not safe)) - (gx#syntax-e _%e132210132230%_)))) - (let ((_%hd132221132241%_ + (gx#syntax-e _%e133195133215%_)))) + (let ((_%hd133206133226%_ (let () (declare (not safe)) - (##car _%e132220132238%_))) - (_%tl132222132243%_ + (##car _%e133205133223%_))) + (_%tl133207133228%_ (let () (declare (not safe)) - (##cdr _%e132220132238%_)))) - (let ((_%hd132246%_ - _%hd132221132241%_)) + (##cdr _%e133205133223%_)))) + (let ((_%hd133231%_ + _%hd133206133226%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132222132243%_)) - (let ((_%e132223132248%_ + _%tl133207133228%_)) + (let ((_%e133208133233%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132222132243%_)))) - (let ((_%hd132224132251%_ + _%tl133207133228%_)))) + (let ((_%hd133209133236%_ (let () (declare (not safe)) - (##car _%e132223132248%_))) - (_%tl132225132253%_ + (##car _%e133208133233%_))) + (_%tl133210133238%_ (let () (declare (not safe)) - (##cdr _%e132223132248%_)))) - (let ((_%fender132256%_ - _%hd132224132251%_)) + (##cdr _%e133208133233%_)))) + (let ((_%fender133241%_ + _%hd133209133236%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132225132253%_)) - (let ((_%e132226132258%_ + _%tl133210133238%_)) + (let ((_%e133211133243%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl132225132253%_)))) - (let ((_%hd132227132261%_ + (gx#syntax-e _%tl133210133238%_)))) + (let ((_%hd133212133246%_ (let () (declare (not safe)) - (##car _%e132226132258%_))) - (_%tl132228132263%_ + (##car _%e133211133243%_))) + (_%tl133213133248%_ (let () (declare (not safe)) - (##cdr _%e132226132258%_)))) - (let ((_%body132266%_ _%hd132227132261%_)) + (##cdr _%e133211133243%_)))) + (let ((_%body133251%_ _%hd133212133246%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132228132263%_)) - (_%generate1132209%_ - _%hd132246%_ - _%fender132256%_ - _%body132266%_) - (_%E132219132234%_))))) - (_%E132219132234%_))))) + (gx#stx-null? _%tl133213133248%_)) + (_%generate1133194%_ + _%hd133231%_ + _%fender133241%_ + _%body133251%_) + (_%E133204133219%_))))) + (_%E133204133219%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132219132234%_))))) - (_%E132219132234%_)))) - (_%E132211132292%_ + (_%E133204133219%_))))) + (_%E133204133219%_)))) + (_%E133196133277%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132210132230%_)) - (let ((_%e132213132272%_ + (gx#stx-pair? _%e133195133215%_)) + (let ((_%e133198133257%_ (let () (declare (not safe)) - (gx#syntax-e _%e132210132230%_)))) - (let ((_%hd132214132275%_ + (gx#syntax-e _%e133195133215%_)))) + (let ((_%hd133199133260%_ (let () (declare (not safe)) - (##car _%e132213132272%_))) - (_%tl132215132277%_ + (##car _%e133198133257%_))) + (_%tl133200133262%_ (let () (declare (not safe)) - (##cdr _%e132213132272%_)))) - (let ((_%hd132280%_ - _%hd132214132275%_)) + (##cdr _%e133198133257%_)))) + (let ((_%hd133265%_ + _%hd133199133260%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132215132277%_)) - (let ((_%e132216132282%_ + _%tl133200133262%_)) + (let ((_%e133201133267%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132215132277%_)))) - (let ((_%hd132217132285%_ + _%tl133200133262%_)))) + (let ((_%hd133202133270%_ (let () (declare (not safe)) - (##car _%e132216132282%_))) - (_%tl132218132287%_ + (##car _%e133201133267%_))) + (_%tl133203133272%_ (let () (declare (not safe)) - (##cdr _%e132216132282%_)))) - (let ((_%body132290%_ - _%hd132217132285%_)) + (##cdr _%e133201133267%_)))) + (let ((_%body133275%_ + _%hd133202133270%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132218132287%_)) - (_%generate1132209%_ - _%hd132280%_ + _%tl133203133272%_)) + (_%generate1133194%_ + _%hd133265%_ '#t - _%body132290%_) - (_%E132212132268%_))))) - (_%E132212132268%_))))) - (_%E132212132268%_))))) - (_%E132211132292%_))))) - (_%generate-match131774%_ - (lambda (_%where131953%_ - _%target131954%_ - _%hd131955%_ - _%mvars131956%_ - _%K131957%_ - _%E131958%_) - (letrec ((_%BUG131960%_ - (lambda (_%q132202%_) + _%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" - _%stx131766%_ - _%hd131955%_ - _%q132202%_)))) - (_%recur131961%_ - (lambda (_%e132052%_ - _%vars132053%_ - _%target132054%_ - _%E132055%_ - _%k132056%_) - (let* ((_%e132057132064%_ _%e132052%_) - (_%E132059132068%_ + _%stx132751%_ + _%hd132940%_ + _%q133187%_)))) + (_%recur132946%_ + (lambda (_%e133037%_ + _%vars133038%_ + _%target133039%_ + _%E133040%_ + _%k133041%_) + (let* ((_%e133042133049%_ _%e133037%_) + (_%E133044133053%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e132057132064%_ + _%e133042133049%_ '([tag . body]))) '#!void)) - (_%K132060132190%_ - (lambda (_%body132071%_ _%tag132072%_) - (let ((_%$e132074%_ _%tag132072%_)) - (if (eq? 'any _%$e132074%_) - (_%k132056%_ _%vars132053%_) - (if (eq? 'id _%$e132074%_) - (let ((__tmp133120 + (_%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? - _%target132054%_))) - (__tmp133116 - (let ((__tmp133118 + _%target133039%_))) + (__tmp134101 + (let ((__tmp134103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp133119 + (let ((__tmp134104 (let () (declare (not safe)) (gx#core-list - _%wrap-e131769%_ - _%body132071%_)))) + _%wrap-e132754%_ + _%body133056%_)))) (declare (not safe)) (gx#core-list - _%identifier=?131767%_ - __tmp133119 - _%target132054%_))) - (__tmp133117 (_%k132056%_ _%vars132053%_))) + _%identifier=?132752%_ + __tmp134104 + _%target133039%_))) + (__tmp134102 (_%k133041%_ _%vars133038%_))) (declare (not safe)) - (gx#core-list 'if __tmp133118 __tmp133117 _%E132055%_)))) + (gx#core-list 'if __tmp134103 __tmp134102 _%E133040%_)))) (declare (not safe)) - (gx#core-list 'if __tmp133120 __tmp133116 _%E132055%_)) + (gx#core-list 'if __tmp134105 __tmp134101 _%E133040%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e132074%_) - (_%k132056%_ - (cons (cons _%body132071%_ + (if (eq? 'var _%$e133059%_) + (_%k133041%_ + (cons (cons _%body133056%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target132054%_) - _%vars132053%_)) - (if (eq? 'cons _%$e132074%_) - (let ((_%$e132077%_ + _%target133039%_) + _%vars133038%_)) + (if (eq? 'cons _%$e133059%_) + (let ((_%$e133062%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd132078%_ + (_%$hd133063%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl132079%_ + (_%$tl133064%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp133126 + (let ((__tmp134111 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target132054%_))) - (__tmp133121 - (let ((__tmp133125 - (cons (cons (cons _%$e132077%_ '()) + (gx#core-list 'stx-pair? _%target133039%_))) + (__tmp134106 + (let ((__tmp134110 + (cons (cons (cons _%$e133062%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131768%_ - _%target132054%_)) + _%unwrap-e132753%_ + _%target133039%_)) '())) '())) - (__tmp133122 - (let ((__tmp133124 - (cons (cons (cons _%$hd132078%_ '()) + (__tmp134107 + (let ((__tmp134109 + (cons (cons (cons _%$hd133063%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e132077%_)) + (gx#core-list '##car _%$e133062%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl132079%_ + (cons (cons (cons _%$tl133064%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e132077%_)) + (gx#core-list '##cdr _%$e133062%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133123 - (let* ((_%body132080132087%_ - _%body132071%_) - (_%E132082132091%_ + (__tmp134108 + (let* ((_%body133065133072%_ + _%body133056%_) + (_%E133067133076%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132080132087%_ + _%body133065133072%_ '([hd . tl]))) '#!void)) - (_%K132083132099%_ - (lambda (_%tl132094%_ - _%hd132095%_) - (_%recur131961%_ - _%hd132095%_ - _%vars132053%_ - _%$hd132078%_ - _%E132055%_ - (lambda (_%vars132097%_) - (_%recur131961%_ - _%tl132094%_ - _%vars132097%_ - _%$tl132079%_ - _%E132055%_ - _%k132056%_)))))) - (if (pair? _%body132080132087%_) - (let ((_%hd132084132102%_ + (_%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 _%body132080132087%_))) - (_%tl132085132104%_ + (##car _%body133065133072%_))) + (_%tl133070133089%_ (let () (declare (not safe)) - (##cdr _%body132080132087%_)))) - (let* ((_%hd132107%_ - _%hd132084132102%_) - (_%tl132109%_ - _%tl132085132104%_)) - (_%K132083132099%_ - _%tl132109%_ - _%hd132107%_))) - (_%E132082132091%_))))) + (##cdr _%body133065133072%_)))) + (let* ((_%hd133092%_ + _%hd133069133087%_) + (_%tl133094%_ + _%tl133070133089%_)) + (_%K133068133084%_ + _%tl133094%_ + _%hd133092%_))) + (_%E133067133076%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp133124 - __tmp133123)))) + __tmp134109 + __tmp134108)))) (declare (not safe)) (gx#core-list 'let-values - __tmp133125 - __tmp133122)))) + __tmp134110 + __tmp134107)))) (declare (not safe)) (gx#core-list 'if - __tmp133126 - __tmp133121 - _%E132055%_))) - (if (eq? 'splice _%$e132074%_) - (let* ((_%body132110132117%_ _%body132071%_) - (_%E132112132121%_ + __tmp134111 + __tmp134106 + _%E133040%_))) + (if (eq? 'splice _%$e133059%_) + (let* ((_%body133095133102%_ _%body133056%_) + (_%E133097133106%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132110132117%_ + _%body133095133102%_ '([hd . tl]))) '#!void)) - (_%K132113132172%_ - (lambda (_%tl132124%_ _%hd132125%_) - (let* ((_%rlen132127%_ - (_%splice-rlen131962%_ _%tl132124%_)) - (_%$target132129%_ + (_%K133098133157%_ + (lambda (_%tl133109%_ _%hd133110%_) + (let* ((_%rlen133112%_ + (_%splice-rlen132947%_ _%tl133109%_)) + (_%$target133114%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd132131%_ + (_%$hd133116%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl132133%_ + (_%$tl133118%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp132135%_ + (_%$lp133120%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e132137%_ + (_%$lp-e133122%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd132139%_ + (_%$lp-hd133124%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl132141%_ + (_%$lp-tl133126%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars132143%_ - (_%splice-vars131963%_ _%hd132125%_)) - (_%lvars132145%_ + (_%svars133128%_ + (_%splice-vars132948%_ _%hd133110%_)) + (_%lvars133130%_ (let () (declare (not safe)) - (gx#gentemps _%svars132143%_))) - (_%tlvars132147%_ + (gx#gentemps _%svars133128%_))) + (_%tlvars133132%_ (let () (declare (not safe)) - (gx#gentemps _%svars132143%_))) - (_%linit132151%_ - (map (lambda (_%var132149%_) + (gx#gentemps _%svars133128%_))) + (_%linit133136%_ + (map (lambda (_%var133134%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars132145%_))) - (letrec ((_%make-loop132154%_ - (lambda (_%vars132158%_) - (let ((__tmp133128 - (cons (cons (cons _%$lp132135%_ + _%lvars133130%_))) + (letrec ((_%make-loop133139%_ + (lambda (_%vars133143%_) + (let ((__tmp134113 + (cons (cons (cons _%$lp133120%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133141 - (cons _%$hd132131%_ _%lvars132145%_)) - (__tmp133129 - (let ((__tmp133140 + (cons (let ((__tmp134126 + (cons _%$hd133116%_ _%lvars133130%_)) + (__tmp134114 + (let ((__tmp134125 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd132131%_))) - (__tmp133134 - (let ((__tmp133139 - (cons (cons (cons _%$lp-e132137%_ + _%$hd133116%_))) + (__tmp134119 + (let ((__tmp134124 + (cons (cons (cons _%$lp-e133122%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131768%_ - _%$hd132131%_)) + _%unwrap-e132753%_ + _%$hd133116%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133135 - (let ((__tmp133138 - (cons (cons (cons _%$lp-hd132139%_ + (__tmp134120 + (let ((__tmp134123 + (cons (cons (cons _%$lp-hd133124%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e132137%_)) + (gx#core-list '##car _%$lp-e133122%_)) '())) - (cons (cons (cons _%$lp-tl132141%_ '()) + (cons (cons (cons _%$lp-tl133126%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e132137%_)) + _%$lp-e133122%_)) '())) '()))) - (__tmp133136 - (_%recur131961%_ - _%hd132125%_ + (__tmp134121 + (_%recur132946%_ + _%hd133110%_ '() - _%$lp-hd132139%_ - _%E132055%_ - (lambda (_%hdvars132160%_) - (cons _%$lp132135%_ - (cons _%$lp-tl132141%_ - (map (lambda (_%svar132162%_ - _%lvar132163%_) - (let ((__tmp133137 + _%$lp-hd133124%_ + _%E133040%_ + (lambda (_%hdvars133145%_) + (cons _%$lp133120%_ + (cons _%$lp-tl133126%_ + (map (lambda (_%svar133147%_ + _%lvar133148%_) + (let ((__tmp134122 (let () (declare (not safe)) (agetq__% - _%svar132162%_ - _%hdvars132160%_ - _%BUG131960%_)))) + _%svar133147%_ + _%hdvars133145%_ + _%BUG132945%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp133137 - _%lvar132163%_))) - _%svars132143%_ - _%lvars132145%_))))))) + __tmp134122 + _%lvar133148%_))) + _%svars133128%_ + _%lvars133130%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp133138 __tmp133136)))) + (gx#core-list 'let-values __tmp134123 __tmp134121)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp133139 - __tmp133135))) - (__tmp133130 - (let ((__tmp133133 - (map (lambda (_%lvar132165%_ + __tmp134124 + __tmp134120))) + (__tmp134115 + (let ((__tmp134118 + (map (lambda (_%lvar133150%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar132166%_) - (cons (cons _%tlvar132166%_ '()) + _%tlvar133151%_) + (cons (cons _%tlvar133151%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar132165%_)) + (gx#core-list 'reverse _%lvar133150%_)) '()))) - _%lvars132145%_ - _%tlvars132147%_)) + _%lvars133130%_ + _%tlvars133132%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133131 - (_%k132056%_ - (let ((__tmp133132 - (lambda (_%svar132168%_ + (__tmp134116 + (_%k133041%_ + (let ((__tmp134117 + (lambda (_%svar133153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar132169%_ - _%r132170%_) - (cons (cons _%svar132168%_ _%tlvar132169%_) - _%r132170%_)))) + _%tlvar133154%_ + _%r133155%_) + (cons (cons _%svar133153%_ _%tlvar133154%_) + _%r133155%_)))) (declare (not safe)) (__foldl2 - __tmp133132 - _%vars132158%_ - _%svars132143%_ - _%tlvars132147%_))))) + __tmp134117 + _%vars133143%_ + _%svars133128%_ + _%tlvars133132%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp133133 - __tmp133131)))) + __tmp134118 + __tmp134116)))) (declare (not safe)) (gx#core-list 'if - __tmp133140 - __tmp133134 - __tmp133130)))) + __tmp134125 + __tmp134119 + __tmp134115)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp133141 - __tmp133129)) + __tmp134126 + __tmp134114)) '())) '())) - (__tmp133127 - (cons _%$lp132135%_ (cons _%$target132129%_ _%linit132151%_)))) + (__tmp134112 + (cons _%$lp133120%_ (cons _%$target133114%_ _%linit133136%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp133128 - __tmp133127))))) - (let ((_%body132156%_ - (let ((__tmp133143 - (cons (cons (cons _%$target132129%_ + __tmp134113 + __tmp134112))))) + (let ((_%body133141%_ + (let ((__tmp134128 + (cons (cons (cons _%$target133114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl132133%_ '())) + (cons _%$tl133118%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target132054%_ - _%rlen132127%_)) + _%target133039%_ + _%rlen133112%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133142 - (_%recur131961%_ - _%tl132124%_ - _%vars132053%_ - _%$tl132133%_ - _%E132055%_ - _%make-loop132154%_))) + (__tmp134127 + (_%recur132946%_ + _%tl133109%_ + _%vars133038%_ + _%$tl133118%_ + _%E133040%_ + _%make-loop133139%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133143 - __tmp133142)))) - (let ((__tmp133147 + __tmp134128 + __tmp134127)))) + (let ((__tmp134132 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target132054%_))) - (__tmp133144 - (if (zero? _%rlen132127%_) - _%body132156%_ - (let ((__tmp133145 - (let ((__tmp133146 + _%target133039%_))) + (__tmp134129 + (if (zero? _%rlen133112%_) + _%body133141%_ + (let ((__tmp134130 + (let ((__tmp134131 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target132054%_)))) + (gx#core-list 'stx-length _%target133039%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp133146 _%rlen132127%_)))) + (gx#core-list 'fx>= __tmp134131 _%rlen133112%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp133145 - _%body132156%_ - _%E132055%_))))) + __tmp134130 + _%body133141%_ + _%E133040%_))))) (declare (not safe)) (gx#core-list 'if - __tmp133147 - __tmp133144 - _%E132055%_)))))))) - (if (pair? _%body132110132117%_) - (let ((_%hd132114132175%_ + __tmp134132 + __tmp134129 + _%E133040%_)))))))) + (if (pair? _%body133095133102%_) + (let ((_%hd133099133160%_ (let () (declare (not safe)) - (##car _%body132110132117%_))) - (_%tl132115132177%_ + (##car _%body133095133102%_))) + (_%tl133100133162%_ (let () (declare (not safe)) - (##cdr _%body132110132117%_)))) - (let* ((_%hd132180%_ _%hd132114132175%_) - (_%tl132182%_ _%tl132115132177%_)) - (_%K132113132172%_ - _%tl132182%_ - _%hd132180%_))) - (_%E132112132121%_))) - (if (eq? 'null _%$e132074%_) - (let ((__tmp133149 + (##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? - _%target132054%_))) - (__tmp133148 (_%k132056%_ _%vars132053%_))) + _%target133039%_))) + (__tmp134133 (_%k133041%_ _%vars133038%_))) (declare (not safe)) (gx#core-list 'if - __tmp133149 - __tmp133148 - _%E132055%_)) - (if (eq? 'vector _%$e132074%_) - (let ((_%$e132184%_ + __tmp134134 + __tmp134133 + _%E133040%_)) + (if (eq? 'vector _%$e133059%_) + (let ((_%$e133169%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133154 + (let ((__tmp134139 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target132054%_))) - (__tmp133150 - (let ((__tmp133152 - (cons (cons (cons _%$e132184%_ + _%target133039%_))) + (__tmp134135 + (let ((__tmp134137 + (cons (cons (cons _%$e133169%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133153 + (cons (let ((__tmp134138 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131768%_ - _%target132054%_)))) + _%unwrap-e132753%_ + _%target133039%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp133153)) + (gx#core-list 'vector->list __tmp134138)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133151 - (_%recur131961%_ - _%body132071%_ - _%vars132053%_ - _%$e132184%_ - _%E132055%_ - _%k132056%_))) + (__tmp134136 + (_%recur132946%_ + _%body133056%_ + _%vars133038%_ + _%$e133169%_ + _%E133040%_ + _%k133041%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133152 - __tmp133151)))) + __tmp134137 + __tmp134136)))) (declare (not safe)) (gx#core-list 'if - __tmp133154 - __tmp133150 - _%E132055%_))) - (if (eq? 'box _%$e132074%_) - (let ((_%$e132186%_ + __tmp134139 + __tmp134135 + _%E133040%_))) + (if (eq? 'box _%$e133059%_) + (let ((_%$e133171%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133159 + (let ((__tmp134144 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target132054%_))) - (__tmp133155 - (let ((__tmp133157 - (cons (cons (cons _%$e132186%_ + _%target133039%_))) + (__tmp134140 + (let ((__tmp134142 + (cons (cons (cons _%$e133171%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133158 + (cons (let ((__tmp134143 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131768%_ - _%target132054%_)))) + _%unwrap-e132753%_ + _%target133039%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp133158)) + (gx#core-list 'unbox __tmp134143)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133156 - (_%recur131961%_ - _%body132071%_ - _%vars132053%_ - _%$e132186%_ - _%E132055%_ - _%k132056%_))) + (__tmp134141 + (_%recur132946%_ + _%body133056%_ + _%vars133038%_ + _%$e133171%_ + _%E133040%_ + _%k133041%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133157 - __tmp133156)))) + __tmp134142 + __tmp134141)))) (declare (not safe)) (gx#core-list 'if - __tmp133159 - __tmp133155 - _%E132055%_))) - (if (eq? 'datum _%$e132074%_) - (let ((_%$e132188%_ + __tmp134144 + __tmp134140 + _%E133040%_))) + (if (eq? 'datum _%$e133059%_) + (let ((_%$e133173%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133165 + (let ((__tmp134150 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target132054%_))) - (__tmp133160 - (let ((__tmp133164 - (cons (cons (cons _%$e132188%_ + _%target133039%_))) + (__tmp134145 + (let ((__tmp134149 + (cons (cons (cons _%$e133173%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target132054%_)) + (gx#core-list 'stx-e _%target133039%_)) '())) '())) - (__tmp133161 - (let ((__tmp133163 + (__tmp134146 + (let ((__tmp134148 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e132188%_ _%body132071%_))) - (__tmp133162 (_%k132056%_ _%vars132053%_))) + (gx#core-list 'equal? _%$e133173%_ _%body133056%_))) + (__tmp134147 (_%k133041%_ _%vars133038%_))) (declare (not safe)) - (gx#core-list 'if __tmp133163 __tmp133162 _%E132055%_)))) + (gx#core-list 'if __tmp134148 __tmp134147 _%E133040%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp133164 - __tmp133161)))) + __tmp134149 + __tmp134146)))) (declare (not safe)) (gx#core-list 'if - __tmp133165 - __tmp133160 - _%E132055%_))) - (_%BUG131960%_ - _%e132052%_)))))))))))))) + __tmp134150 + __tmp134145 + _%E133040%_))) + (_%BUG132945%_ + _%e133037%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e132057132064%_) - (let ((_%hd132061132193%_ + (if (pair? _%e133042133049%_) + (let ((_%hd133046133178%_ (let () (declare (not safe)) - (##car _%e132057132064%_))) - (_%tl132062132195%_ + (##car _%e133042133049%_))) + (_%tl133047133180%_ (let () (declare (not safe)) - (##cdr _%e132057132064%_)))) - (let* ((_%tag132198%_ - _%hd132061132193%_) - (_%body132200%_ - _%tl132062132195%_)) - (_%K132060132190%_ - _%body132200%_ - _%tag132198%_))) - (_%E132059132068%_))))) - (_%splice-rlen131962%_ - (lambda (_%e132014%_) - (let _%lp132016%_ ((_%e132018%_ _%e132014%_) - (_%n132019%_ '0)) - (let* ((_%e132020132027%_ _%e132018%_) - (_%E132022132031%_ + (##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" - _%e132020132027%_ + _%e133005133012%_ '([tag . body]))) '#!void)) - (_%K132023132040%_ - (lambda (_%body132034%_ - _%tag132035%_) - (let ((_%$e132037%_ _%tag132035%_)) - (if (eq? 'splice _%$e132037%_) + (_%K133008133025%_ + (lambda (_%body133019%_ + _%tag133020%_) + (let ((_%$e133022%_ _%tag133020%_)) + (if (eq? 'splice _%$e133022%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx131766%_ - _%where131953%_)) - (if (eq? 'cons _%$e132037%_) - (_%lp132016%_ - (cdr _%body132034%_) + _%stx132751%_ + _%where132938%_)) + (if (eq? 'cons _%$e133022%_) + (_%lp133001%_ + (cdr _%body133019%_) (let () (declare (not safe)) - (##fx+ _%n132019%_ + (##fx+ _%n133004%_ '1))) - _%n132019%_)))))) - (if (pair? _%e132020132027%_) - (let ((_%hd132024132043%_ + _%n133004%_)))))) + (if (pair? _%e133005133012%_) + (let ((_%hd133009133028%_ (let () (declare (not safe)) - (##car _%e132020132027%_))) - (_%tl132025132045%_ + (##car _%e133005133012%_))) + (_%tl133010133030%_ (let () (declare (not safe)) - (##cdr _%e132020132027%_)))) - (let* ((_%tag132048%_ - _%hd132024132043%_) - (_%body132050%_ - _%tl132025132045%_)) - (_%K132023132040%_ - _%body132050%_ - _%tag132048%_))) - (_%E132022132031%_)))))) - (_%splice-vars131963%_ - (lambda (_%e131970%_) - (let _%recur131972%_ ((_%e131974%_ _%e131970%_) - (_%vars131975%_ '())) - (let* ((_%e131976131983%_ _%e131974%_) - (_%E131978131987%_ + (##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" - _%e131976131983%_ + _%e132961132968%_ '([tag . body]))) '#!void)) - (_%K131979132002%_ - (lambda (_%body131990%_ - _%tag131991%_) - (let ((_%$e131993%_ _%tag131991%_)) - (if (eq? 'var _%$e131993%_) - (cons _%body131990%_ - _%vars131975%_) + (_%K132964132987%_ + (lambda (_%body132975%_ + _%tag132976%_) + (let ((_%$e132978%_ _%tag132976%_)) + (if (eq? 'var _%$e132978%_) + (cons _%body132975%_ + _%vars132960%_) (if (or (eq? 'cons - _%$e131993%_) + _%$e132978%_) (eq? 'splice - _%$e131993%_)) - (_%recur131972%_ - (cdr _%body131990%_) - (_%recur131972%_ - (car _%body131990%_) - _%vars131975%_)) + _%$e132978%_)) + (_%recur132957%_ + (cdr _%body132975%_) + (_%recur132957%_ + (car _%body132975%_) + _%vars132960%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e131993%_) - (eq? 'box _%$e131993%_)) - (_%recur131972%_ _%body131990%_ _%vars131975%_) - _%vars131975%_))))))) + _%$e132978%_) + (eq? 'box _%$e132978%_)) + (_%recur132957%_ _%body132975%_ _%vars132960%_) + _%vars132960%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131976131983%_) - (let ((_%hd131980132005%_ + (if (pair? _%e132961132968%_) + (let ((_%hd132965132990%_ (let () (declare (not safe)) - (##car _%e131976131983%_))) - (_%tl131981132007%_ + (##car _%e132961132968%_))) + (_%tl132966132992%_ (let () (declare (not safe)) - (##cdr _%e131976131983%_)))) - (let* ((_%tag132010%_ - _%hd131980132005%_) - (_%body132012%_ - _%tl131981132007%_)) - (_%K131979132002%_ - _%body132012%_ - _%tag132010%_))) - (_%E131978131987%_)))))) - (_%make-body131964%_ - (lambda (_%vars131966%_) - (cons _%K131957%_ - (map (lambda (_%mvar131968%_) - (let ((__tmp133166 - (car _%mvar131968%_))) + (##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__% - __tmp133166 - _%vars131966%_ - _%BUG131960%_))) - _%mvars131956%_))))) - (_%recur131961%_ - _%hd131955%_ + __tmp134151 + _%vars132951%_ + _%BUG132945%_))) + _%mvars132941%_))))) + (_%recur132946%_ + _%hd132940%_ '() - _%target131954%_ - _%E131958%_ - _%make-body131964%_)))) - (_%parse-clause131775%_ - (lambda (_%hd131847%_ _%ids131848%_) - (let _%recur131850%_ ((_%e131852%_ _%hd131847%_) - (_%vars131853%_ '()) - (_%depth131854%_ '0)) + _%target132939%_ + _%E132943%_ + _%make-body132949%_)))) + (_%parse-clause132760%_ + (lambda (_%hd132832%_ _%ids132833%_) + (let _%recur132835%_ ((_%e132837%_ _%hd132832%_) + (_%vars132838%_ '()) + (_%depth132839%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e131852%_)) + (gx#identifier? _%e132837%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e131852%_)) - (values '(any) _%vars131853%_) + (gx#underscore? _%e132837%_)) + (values '(any) _%vars132838%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e131852%_)) + (gx#ellipsis? _%e132837%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx131766%_ - _%hd131847%_)) - (if (let ((__tmp133167 - (lambda (_%id131859%_) + _%stx132751%_ + _%hd132832%_)) + (if (let ((__tmp134152 + (lambda (_%id132844%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e131852%_ - _%id131859%_))))) + _%e132837%_ + _%id132844%_))))) (declare (not safe)) - (__find __tmp133167 _%ids131848%_)) - (values (cons 'id _%e131852%_) - _%vars131853%_) - (if (let ((__tmp133168 - (lambda (_%var131862%_) - (let ((__tmp133169 - (car _%var131862%_))) + (__find __tmp134152 _%ids132833%_)) + (values (cons 'id _%e132837%_) + _%vars132838%_) + (if (let ((__tmp134153 + (lambda (_%var132847%_) + (let ((__tmp134154 + (car _%var132847%_))) (declare (not safe)) (gx#bound-identifier=? - _%e131852%_ - __tmp133169))))) + _%e132837%_ + __tmp134154))))) (declare (not safe)) - (__find __tmp133168 - _%vars131853%_)) + (__find __tmp134153 + _%vars132838%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx131766%_ - _%e131852%_)) - (values (cons 'var _%e131852%_) - (cons (cons _%e131852%_ - _%depth131854%_) - _%vars131853%_)))))) + _%stx132751%_ + _%e132837%_)) + (values (cons 'var _%e132837%_) + (cons (cons _%e132837%_ + _%depth132839%_) + _%vars132838%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e131852%_)) - (let* ((_%e131866131873%_ _%e131852%_) - (_%E131868131877%_ + (gx#stx-pair? _%e132837%_)) + (let* ((_%e132851132858%_ _%e132837%_) + (_%E132853132862%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131866131873%_)))) - (_%E131867131938%_ + _%e132851132858%_)))) + (_%E132852132923%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131866131873%_)) - (let ((_%e131869131881%_ + (gx#stx-pair? _%e132851132858%_)) + (let ((_%e132854132866%_ (let () (declare (not safe)) (gx#syntax-e - _%e131866131873%_)))) - (let ((_%hd131870131884%_ + _%e132851132858%_)))) + (let ((_%hd132855132869%_ (let () (declare (not safe)) - (##car _%e131869131881%_))) - (_%tl131871131886%_ + (##car _%e132854132866%_))) + (_%tl132856132871%_ (let () (declare (not safe)) - (##cdr _%e131869131881%_)))) - (let* ((_%hd131889%_ - _%hd131870131884%_) - (_%rest131891%_ - _%tl131871131886%_) - (_%make-pair131906%_ - (lambda (_%tag131893%_ + (##cdr _%e132854132866%_)))) + (let* ((_%hd132874%_ + _%hd132855132869%_) + (_%rest132876%_ + _%tl132856132871%_) + (_%make-pair132891%_ + (lambda (_%tag132878%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd131894%_ - _%tl131895%_) - (let* ((_%hd-depth131897%_ - (if (eq? _%tag131893%_ 'splice) + _%hd132879%_ + _%tl132880%_) + (let* ((_%hd-depth132882%_ + (if (eq? _%tag132878%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth131854%_ '1)) - _%depth131854%_)) - (_g133170_ - (_%recur131850%_ - _%hd131894%_ - _%vars131853%_ - _%hd-depth131897%_))) + (##fx+ _%depth132839%_ '1)) + _%depth132839%_)) + (_g134155_ + (_%recur132835%_ + _%hd132879%_ + _%vars132838%_ + _%hd-depth132882%_))) (begin - (let ((_g133171_ + (let ((_g134156_ (let () (declare (not safe)) - (if (##values? _g133170_) - (##values-length _g133170_) + (if (##values? _g134155_) + (##values-length _g134155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133171_ 2))) - (error "Context expects 2 values" _g133171_))) - (let ((_%hd131899%_ + (##fx= _g134156_ 2))) + (error "Context expects 2 values" _g134156_))) + (let ((_%hd132884%_ (let () (declare (not safe)) - (##values-ref _g133170_ 0))) - (_%vars131900%_ + (##values-ref _g134155_ 0))) + (_%vars132885%_ (let () (declare (not safe)) - (##values-ref _g133170_ 1)))) - (let ((_g133172_ - (_%recur131850%_ - _%tl131895%_ - _%vars131900%_ - _%depth131854%_))) + (##values-ref _g134155_ 1)))) + (let ((_g134157_ + (_%recur132835%_ + _%tl132880%_ + _%vars132885%_ + _%depth132839%_))) (begin - (let ((_g133173_ + (let ((_g134158_ (let () (declare (not safe)) - (if (##values? _g133172_) - (##values-length _g133172_) + (if (##values? _g134157_) + (##values-length _g134157_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133173_ 2))) + (##fx= _g134158_ 2))) (error "Context expects 2 values" - _g133173_))) - (let ((_%tl131902%_ + _g134158_))) + (let ((_%tl132887%_ (let () (declare (not safe)) - (##values-ref _g133172_ 0))) - (_%vars131903%_ + (##values-ref _g134157_ 0))) + (_%vars132888%_ (let () (declare (not safe)) - (##values-ref _g133172_ 1)))) - (values (cons _%tag131893%_ - (cons _%hd131899%_ _%tl131902%_)) - _%vars131903%_))))))))) - (_%e131907131914%_ _%rest131891%_) - (_%E131909131918%_ + (##values-ref _g134157_ 1)))) + (values (cons _%tag132878%_ + (cons _%hd132884%_ _%tl132887%_)) + _%vars132888%_))))))))) + (_%e132892132899%_ _%rest132876%_) + (_%E132894132903%_ (lambda () - (_%make-pair131906%_ 'cons _%hd131889%_ _%rest131891%_))) - (_%E131908131934%_ + (_%make-pair132891%_ 'cons _%hd132874%_ _%rest132876%_))) + (_%E132893132919%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131907131914%_)) - (let ((_%e131910131922%_ + (gx#stx-pair? _%e132892132899%_)) + (let ((_%e132895132907%_ (let () (declare (not safe)) - (gx#syntax-e _%e131907131914%_)))) - (let ((_%hd131911131925%_ + (gx#syntax-e _%e132892132899%_)))) + (let ((_%hd132896132910%_ (let () (declare (not safe)) - (##car _%e131910131922%_))) - (_%tl131912131927%_ + (##car _%e132895132907%_))) + (_%tl132897132912%_ (let () (declare (not safe)) - (##cdr _%e131910131922%_)))) - (let* ((_%rest-hd131930%_ _%hd131911131925%_) - (_%rest-tl131932%_ _%tl131912131927%_)) + (##cdr _%e132895132907%_)))) + (let* ((_%rest-hd132915%_ _%hd132896132910%_) + (_%rest-tl132917%_ _%tl132897132912%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd131930%_)) - (_%make-pair131906%_ + (gx#ellipsis? _%rest-hd132915%_)) + (_%make-pair132891%_ 'splice - _%hd131889%_ - _%rest-tl131932%_) - (_%make-pair131906%_ + _%hd132874%_ + _%rest-tl132917%_) + (_%make-pair132891%_ 'cons - _%hd131889%_ - _%rest131891%_))))) - (_%E131909131918%_))))) + _%hd132874%_ + _%rest132876%_))))) + (_%E132894132903%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131908131934%_)))) - (_%E131868131877%_))))) - (_%E131867131938%_)) + (_%E132893132919%_)))) + (_%E132853132862%_))))) + (_%E132852132923%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e131852%_)) - (values '(null) _%vars131853%_) + (gx#stx-null? _%e132837%_)) + (values '(null) _%vars132838%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e131852%_)) - (let ((_g133174_ - (_%recur131850%_ + (gx#stx-vector? _%e132837%_)) + (let ((_g134159_ + (_%recur132835%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e131852%_))) - _%vars131853%_ - _%depth131854%_))) + (gx#syntax-e _%e132837%_))) + _%vars132838%_ + _%depth132839%_))) (begin - (let ((_g133175_ + (let ((_g134160_ (let () (declare (not safe)) - (if (##values? _g133174_) + (if (##values? _g134159_) (##values-length - _g133174_) + _g134159_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133175_ 2))) + (##fx= _g134160_ 2))) (error "Context expects 2 values" - _g133175_))) - (let ((_%e131944%_ + _g134160_))) + (let ((_%e132929%_ (let () (declare (not safe)) - (##values-ref _g133174_ 0))) - (_%vars131945%_ + (##values-ref _g134159_ 0))) + (_%vars132930%_ (let () (declare (not safe)) (##values-ref - _g133174_ + _g134159_ 1)))) - (values (cons 'vector _%e131944%_) - _%vars131945%_)))) + (values (cons 'vector _%e132929%_) + _%vars132930%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e131852%_)) - (let ((_g133176_ - (_%recur131850%_ + (gx#stx-box? _%e132837%_)) + (let ((_g134161_ + (_%recur132835%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e131852%_))) - _%vars131853%_ - _%depth131854%_))) + _%e132837%_))) + _%vars132838%_ + _%depth132839%_))) (begin - (let ((_g133177_ + (let ((_g134162_ (let () (declare (not safe)) (if (##values? - _g133176_) + _g134161_) (##values-length - _g133176_) + _g134161_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133177_ + (##fx= _g134162_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g133177_))) - (let ((_%e131948%_ + _g134162_))) + (let ((_%e132933%_ (let () (declare (not safe)) (##values-ref - _g133176_ + _g134161_ 0))) - (_%vars131949%_ + (_%vars132934%_ (let () (declare (not safe)) (##values-ref - _g133176_ + _g134161_ 1)))) - (values (cons 'box _%e131948%_) - _%vars131949%_)))) + (values (cons 'box _%e132933%_) + _%vars132934%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e131852%_)) + (gx#stx-datum? _%e132837%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e131852%_))) - _%vars131853%_) + _%e132837%_))) + _%vars132838%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx131766%_ - _%e131852%_)))))))))))) - (let* ((_%e131776131789%_ _%stx131766%_) - (_%E131778131793%_ + _%stx132751%_ + _%e132837%_)))))))))))) + (let* ((_%e132761132774%_ _%stx132751%_) + (_%E132763132778%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131776131789%_)))) - (_%E131777131843%_ + _%e132761132774%_)))) + (_%E132762132828%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131776131789%_)) - (let ((_%e131779131797%_ + (gx#stx-pair? _%e132761132774%_)) + (let ((_%e132764132782%_ (let () (declare (not safe)) - (gx#syntax-e _%e131776131789%_)))) - (let ((_%hd131780131800%_ + (gx#syntax-e _%e132761132774%_)))) + (let ((_%hd132765132785%_ (let () (declare (not safe)) - (##car _%e131779131797%_))) - (_%tl131781131802%_ + (##car _%e132764132782%_))) + (_%tl132766132787%_ (let () (declare (not safe)) - (##cdr _%e131779131797%_)))) + (##cdr _%e132764132782%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131781131802%_)) - (let ((_%e131782131805%_ + (gx#stx-pair? _%tl132766132787%_)) + (let ((_%e132767132790%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131781131802%_)))) - (let ((_%hd131783131808%_ + (gx#syntax-e _%tl132766132787%_)))) + (let ((_%hd132768132793%_ (let () (declare (not safe)) - (##car _%e131782131805%_))) - (_%tl131784131810%_ + (##car _%e132767132790%_))) + (_%tl132769132795%_ (let () (declare (not safe)) - (##cdr _%e131782131805%_)))) - (let ((_%expr131813%_ _%hd131783131808%_)) + (##cdr _%e132767132790%_)))) + (let ((_%expr132798%_ _%hd132768132793%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131784131810%_)) - (let ((_%e131785131815%_ + (gx#stx-pair? _%tl132769132795%_)) + (let ((_%e132770132800%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131784131810%_)))) - (let ((_%hd131786131818%_ + _%tl132769132795%_)))) + (let ((_%hd132771132803%_ (let () (declare (not safe)) - (##car _%e131785131815%_))) - (_%tl131787131820%_ + (##car _%e132770132800%_))) + (_%tl132772132805%_ (let () (declare (not safe)) - (##cdr _%e131785131815%_)))) - (let* ((_%ids131823%_ - _%hd131786131818%_) - (_%clauses131825%_ - _%tl131787131820%_)) + (##cdr _%e132770132800%_)))) + (let* ((_%ids132808%_ + _%hd132771132803%_) + (_%clauses132810%_ + _%tl132772132805%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids131823%_)) + _%ids132808%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses131825%_)) - (let* ((_%ids131830%_ + _%clauses132810%_)) + (let* ((_%ids132815%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids131823%_))) - (_%clauses131832%_ + (gx#syntax->list _%ids132808%_))) + (_%clauses132817%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses131825%_))) - (_%clause-ids131834%_ + (gx#syntax->list _%clauses132810%_))) + (_%clause-ids132819%_ (let () (declare (not safe)) - (gx#gentemps _%clauses131832%_))) - (_%E131836%_ + (gx#gentemps _%clauses132817%_))) + (_%E132821%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target131838%_ + (_%target132823%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first131840%_ - (if (null? _%clauses131832%_) - _%E131836%_ - (car _%clause-ids131834%_)))) - (let ((__tmp133179 - (let ((__tmp133180 - (let ((__tmp133182 - (let ((__tmp133184 - (cons (cons (cons _%E131836%_ + (_%first132825%_ + (if (null? _%clauses132817%_) + _%E132821%_ + (car _%clause-ids132819%_)))) + (let ((__tmp134164 + (let ((__tmp134165 + (let ((__tmp134167 + (let ((__tmp134169 + (cons (cons (cons _%E132821%_ '()) - (cons (let ((__tmp133186 + (cons (let ((__tmp134171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target131838%_ '())) - (__tmp133185 + (cons _%target132823%_ '())) + (__tmp134170 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target131838%_)))) + _%target132823%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp133186 __tmp133185)) + (gx#core-list 'lambda% __tmp134171 __tmp134170)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp133183 - (_%generate-body131772%_ - (_%generate-bindings131771%_ - _%target131838%_ - _%ids131830%_ - _%clauses131832%_ - _%clause-ids131834%_ - _%E131836%_) - (cons _%first131840%_ - (cons _%expr131813%_ + (__tmp134168 + (_%generate-body132757%_ + (_%generate-bindings132756%_ + _%target132823%_ + _%ids132815%_ + _%clauses132817%_ + _%clause-ids132819%_ + _%E132821%_) + (cons _%first132825%_ + (cons _%expr132798%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp133184 - __tmp133183))) - (__tmp133181 + __tmp134169 + __tmp134168))) + (__tmp134166 (let () (declare (not safe)) - (gx#stx-source _%stx131766%_)))) + (gx#stx-source _%stx132751%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp133182 - __tmp133181)))) + __tmp134167 + __tmp134166)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp133180))) - (__tmp133178 + __tmp134165))) + (__tmp134163 (let () (declare (not safe)) - (gx#stx-source _%stx131766%_)))) + (gx#stx-source _%stx132751%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp133179 __tmp133178))) + (gx#stx-wrap-source __tmp134164 __tmp134163))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx131766%_))) + _%stx132751%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx131766%_ - _%ids131823%_)))))) - (_%E131778131793%_))))) - (_%E131778131793%_)))) - (_%E131778131793%_))))) - (_%E131777131843%_))))) + _%stx132751%_ + _%ids132808%_)))))) + (_%E132763132778%_))))) + (_%E132763132778%_)))) + (_%E132763132778%_))))) + (_%E132762132828%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx132491%_) - (let* ((_%identifier=?132493%_ 'free-identifier=?) - (_%unwrap-e132495%_ 'syntax-e) - (_%wrap-e132497%_ 'quote-syntax)) + (lambda (_%stx133476%_) + (let* ((_%identifier=?133478%_ 'free-identifier=?) + (_%unwrap-e133480%_ 'syntax-e) + (_%wrap-e133482%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132491%_ - _%identifier=?132493%_ - _%unwrap-e132495%_ - _%wrap-e132497%_)))) + _%stx133476%_ + _%identifier=?133478%_ + _%unwrap-e133480%_ + _%wrap-e133482%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx132499%_ _%identifier=?132500%_) - (let* ((_%unwrap-e132502%_ 'syntax-e) (_%wrap-e132504%_ 'quote-syntax)) + (lambda (_%stx133484%_ _%identifier=?133485%_) + (let* ((_%unwrap-e133487%_ 'syntax-e) (_%wrap-e133489%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132499%_ - _%identifier=?132500%_ - _%unwrap-e132502%_ - _%wrap-e132504%_)))) + _%stx133484%_ + _%identifier=?133485%_ + _%unwrap-e133487%_ + _%wrap-e133489%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx132506%_ _%identifier=?132507%_ _%unwrap-e132508%_) - (let ((_%wrap-e132510%_ 'quote-syntax)) + (lambda (_%stx133491%_ _%identifier=?133492%_ _%unwrap-e133493%_) + (let ((_%wrap-e133495%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132506%_ - _%identifier=?132507%_ - _%unwrap-e132508%_ - _%wrap-e132510%_)))) + _%stx133491%_ + _%identifier=?133492%_ + _%unwrap-e133493%_ + _%wrap-e133495%_)))) (define gx#macro-expand-syntax-case - (lambda _g133188_ - (let ((_g133187_ (let () (declare (not safe)) (##length _g133188_)))) - (cond ((let () (declare (not safe)) (##fx= _g133187_ 1)) - (apply gx#macro-expand-syntax-case__0 _g133188_)) - ((let () (declare (not safe)) (##fx= _g133187_ 2)) - (apply gx#macro-expand-syntax-case__1 _g133188_)) - ((let () (declare (not safe)) (##fx= _g133187_ 3)) - (apply gx#macro-expand-syntax-case__2 _g133188_)) - ((let () (declare (not safe)) (##fx= _g133187_ 4)) - (apply gx#macro-expand-syntax-case__% _g133188_)) + (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 - _g133188_)))))) + _g134173_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx131763%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx131763%_)) - (let ((__tmp133189 + (lambda (_%stx132748%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx132748%_)) + (let ((__tmp134174 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx131763%_ false)))) + (gx#syntax-local-e__% _%stx132748%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp133189 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp134174 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd131721%_ . _%rest131722%_) - (let ((_%len131724%_ (length _%hd131721%_))) - (let _%lp131726%_ ((_%rest131728%_ _%rest131722%_)) - (let* ((_%rest131729131737%_ _%rest131728%_) - (_%else131731131745%_ (lambda () '#!void)) - (_%K131733131751%_ - (lambda (_%rest131748%_ _%hd131749%_) - (if (let ((__tmp133190 (length _%hd131749%_))) + (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= _%len131724%_ __tmp133190)) - (_%lp131726%_ _%rest131748%_) + (##fx= _%len132709%_ __tmp134175)) + (_%lp132711%_ _%rest132733%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd131749%_)))))) - (if (pair? _%rest131729131737%_) - (let ((_%hd131734131754%_ + _%hd132734%_)))))) + (if (pair? _%rest132714132722%_) + (let ((_%hd132719132739%_ (let () (declare (not safe)) - (##car _%rest131729131737%_))) - (_%tl131735131756%_ + (##car _%rest132714132722%_))) + (_%tl132720132741%_ (let () (declare (not safe)) - (##cdr _%rest131729131737%_)))) - (let* ((_%hd131759%_ _%hd131734131754%_) - (_%rest131761%_ _%tl131735131756%_)) - (_%K131733131751%_ _%rest131761%_ _%hd131759%_))) + (##cdr _%rest132714132722%_)))) + (let* ((_%hd132744%_ _%hd132719132739%_) + (_%rest132746%_ _%tl132720132741%_)) + (_%K132718132736%_ _%rest132746%_ _%hd132744%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx131676%_ _%n131677%_) - (let _%lp131679%_ ((_%rest131681%_ _%stx131676%_) (_%r131682%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest131681%_)) - (let* ((_%g131683131690%_ + (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 _%rest131681%_))) - (_%E131685131694%_ + (gx#syntax-e _%rest132666%_))) + (_%E132670132679%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g131683131690%_ + _%g132668132675%_ '([hd . rest]))) '#!void)) - (_%K131686131700%_ - (lambda (_%rest131697%_ _%hd131698%_) - (_%lp131679%_ - _%rest131697%_ - (cons _%hd131698%_ _%r131682%_))))) - (if (pair? _%g131683131690%_) - (let ((_%hd131687131703%_ + (_%K132671132685%_ + (lambda (_%rest132682%_ _%hd132683%_) + (_%lp132664%_ + _%rest132682%_ + (cons _%hd132683%_ _%r132667%_))))) + (if (pair? _%g132668132675%_) + (let ((_%hd132672132688%_ (let () (declare (not safe)) - (##car _%g131683131690%_))) - (_%tl131688131705%_ + (##car _%g132668132675%_))) + (_%tl132673132690%_ (let () (declare (not safe)) - (##cdr _%g131683131690%_)))) - (let* ((_%hd131708%_ _%hd131687131703%_) - (_%rest131710%_ _%tl131688131705%_)) - (_%K131686131700%_ _%rest131710%_ _%hd131708%_))) - (_%E131685131694%_))) - (let _%lp131712%_ ((_%n131714%_ _%n131677%_) - (_%l131715%_ _%r131682%_) - (_%r131716%_ _%rest131681%_)) - (if (null? _%l131715%_) - (values _%l131715%_ _%r131716%_) - (if (fxpositive? _%n131714%_) - (_%lp131712%_ - (let () (declare (not safe)) (##fx- _%n131714%_ '1)) - (cdr _%l131715%_) - (cons (car _%l131715%_) _%r131716%_)) - (values (reverse _%l131715%_) _%r131716%_)))))))))) + (##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 4c574dd46..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]#_g133192_| + (define |gx[1]#_g134177_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g133194_| + (define |gx[1]#_g134179_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g133196_| + (define |gx[1]#_g134181_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g133198_| + (define |gx[1]#_g134183_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g133200_| + (define |gx[1]#_g134185_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g133201_| + (define |gx[1]#_g134186_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g133202_| + (define |gx[1]#_g134187_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g133204_| + (define |gx[1]#_g134189_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133205_| + (define |gx[1]#_g134190_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133206_| + (define |gx[1]#_g134191_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133208_| + (define |gx[1]#_g134193_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g133209_| + (define |gx[1]#_g134194_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g133210_| + (define |gx[1]#_g134195_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g133212_| + (define |gx[1]#_g134197_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133213_| + (define |gx[1]#_g134198_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133214_| + (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 ((__obj133069 + (let ((__obj134054 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133069 + __obj134054 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj134054 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj134054 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '(e id depth) '6 '#f '#f)) - (let ((__tmp133191 (cons |gx[1]#_g133192_| '()))) + (##unchecked-structure-set! __obj134054 '(e id depth) '6 '#f '#f)) + (let ((__tmp134176 (cons |gx[1]#_g134177_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj133069 __tmp133191 '3 '#f '#f)) + (##unchecked-structure-set! __obj134054 __tmp134176 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj134054 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj134054 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj134054 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '#f '11 '#f '#f)) - (let ((__tmp133193 |gx[1]#_g133194_|)) + (##unchecked-structure-set! __obj134054 '#f '11 '#f '#f)) + (let ((__tmp134178 |gx[1]#_g134179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133069 __tmp133193 '12 '#f '#f)) - (let ((__tmp133195 |gx[1]#_g133196_|)) + (##unchecked-structure-set! __obj134054 __tmp134178 '12 '#f '#f)) + (let ((__tmp134180 |gx[1]#_g134181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133069 __tmp133195 '13 '#f '#f)) - (let ((__tmp133197 |gx[1]#_g133198_|)) + (##unchecked-structure-set! __obj134054 __tmp134180 '13 '#f '#f)) + (let ((__tmp134182 |gx[1]#_g134183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133069 __tmp133197 '14 '#f '#f)) - (let ((__tmp133199 - (cons (cons 'id |gx[1]#_g133200_|) - (cons (cons 'depth |gx[1]#_g133201_|) - (cons (cons 'e |gx[1]#_g133202_|) '()))))) + (##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! __obj133069 __tmp133199 '15 '#f '#f)) - (let ((__tmp133203 - (cons (cons 'id |gx[1]#_g133204_|) - (cons (cons 'depth |gx[1]#_g133205_|) - (cons (cons 'e |gx[1]#_g133206_|) '()))))) + (##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! __obj133069 __tmp133203 '16 '#f '#f)) - (let ((__tmp133207 - (cons (cons 'id |gx[1]#_g133208_|) - (cons (cons 'depth |gx[1]#_g133209_|) - (cons (cons 'e |gx[1]#_g133210_|) '()))))) + (##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! __obj133069 __tmp133207 '17 '#f '#f)) - (let ((__tmp133211 - (cons (cons 'id |gx[1]#_g133212_|) - (cons (cons 'depth |gx[1]#_g133213_|) - (cons (cons 'e |gx[1]#_g133214_|) '()))))) + (##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! __obj133069 __tmp133211 '18 '#f '#f)) + (##unchecked-structure-set! __obj134054 __tmp134196 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj134054 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj134054 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133069 '() '20 '#f '#f)) - __obj133069))) + (##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 efbf57e5b..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 1734131746) + (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 _%$args118311%_ - (apply make-instance gx#identifier-wrap::t _%$args118311%_))) + (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 _%$args118308%_ - (apply make-instance gx#syntax-wrap::t _%$args118308%_))) + (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 _%$args118305%_ - (apply make-instance gx#syntax-quote::t _%$args118305%_))) + (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 (_%stx118303%_) (symbol? (gx#stx-e _%stx118303%_)))) + (lambda (_%stx119288%_) (symbol? (gx#stx-e _%stx119288%_)))) (define gx#identifier-quote? - (lambda (_%stx118301%_) - (if (##structure-direct-instance-of? _%stx118301%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx118301%_ '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 (_%stx118296%_) - (if (##structure-direct-instance-of? _%stx118296%_ 'gx#syntax-quote::t) + (lambda (_%stx119281%_) + (if (##structure-direct-instance-of? _%stx119281%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx118296%_ + _%stx119281%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx118296%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx119281%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx118291%_) - (if (##structure-direct-instance-of? _%stx118291%_ 'gx#syntax-quote::t) - _%stx118291%_ + (lambda (_%stx119276%_) + (if (##structure-direct-instance-of? _%stx119276%_ 'gx#syntax-quote::t) + _%stx119276%_ (if (##structure-direct-instance-of? - _%stx118291%_ + _%stx119276%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx118291%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx119276%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx118265%_) - (if (##structure-direct-instance-of? _%stx118265%_ 'gx#syntax-wrap::t) - (let _%lp118268%_ ((_%e118270%_ + (lambda (_%stx119250%_) + (if (##structure-direct-instance-of? _%stx119250%_ 'gx#syntax-wrap::t) + (let _%lp119253%_ ((_%e119255%_ (##unchecked-structure-ref - _%stx118265%_ + _%stx119250%_ '1 '#f '#f)) - (_%marks118271%_ + (_%marks119256%_ (cons (##unchecked-structure-ref - _%stx118265%_ + _%stx119250%_ '3 '#f '#f) '()))) - (if (##structure? _%e118270%_) - (let ((_%$e118274%_ - (##type-id (##structure-type _%e118270%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e118274%_) - (_%lp118268%_ - (##unchecked-structure-ref _%e118270%_ '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 _%e118270%_ '3 '#f '#f) - _%marks118271%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e118274%_) - (eq? 'gx#identifier-wrap::t _%$e118274%_)) - (##unchecked-structure-ref _%e118270%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e118274%_) - (_%lp118268%_ + (##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 - _%e118270%_ + _%e119255%_ '1 '#f '#f) - _%marks118271%_) - _%e118270%_)))) - (if (null? _%marks118271%_) - _%e118270%_ - (if (pair? _%e118270%_) + _%marks119256%_) + _%e119255%_)))) + (if (null? _%marks119256%_) + _%e119255%_ + (if (pair? _%e119255%_) (cons (gx#stx-wrap - (##car _%e118270%_) - _%marks118271%_) + (##car _%e119255%_) + _%marks119256%_) (gx#stx-wrap - (##cdr _%e118270%_) - _%marks118271%_)) - (if (vector? _%e118270%_) + (##cdr _%e119255%_) + _%marks119256%_)) + (if (vector? _%e119255%_) (vector-map - (lambda (_%g118282118284%_) + (lambda (_%g119267119269%_) (gx#stx-wrap - _%g118282118284%_ - _%marks118271%_)) - _%e118270%_) - (if (box? _%e118270%_) + _%g119267119269%_ + _%marks119256%_)) + _%e119255%_) + (if (box? _%e119255%_) (box (gx#stx-wrap - (unbox _%e118270%_) - _%marks118271%_)) - _%e118270%_)))))) - (if (##structure-instance-of? _%stx118265%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx118265%_ '1 '#f '#f) - _%stx118265%_)))) + (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 (_%stx118258%_) - (if (##structure-instance-of? _%stx118258%_ 'gerbil#AST::t) + (lambda (_%stx119243%_) + (if (##structure-instance-of? _%stx119243%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx118258%_ '1 '#f '#f)) - (if (pair? _%stx118258%_) - (cons (gx#syntax->datum (##car _%stx118258%_)) - (gx#syntax->datum (##cdr _%stx118258%_))) - (if (vector? _%stx118258%_) - (vector-map gx#syntax->datum _%stx118258%_) - (if (box? _%stx118258%_) - (box (gx#syntax->datum (unbox _%stx118258%_))) - _%stx118258%_)))))) + (##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 (_%stx118192%_ _%datum118193%_ _%src118194%_ _%quote?118195%_) - (letrec ((_%wrap-datum118197%_ - (lambda (_%e118230%_ _%marks118231%_) - (_%wrap-inner118199%_ - _%e118230%_ - (lambda (_%g118232118234%_) + (lambda (_%stx119177%_ _%datum119178%_ _%src119179%_ _%quote?119180%_) + (letrec ((_%wrap-datum119182%_ + (lambda (_%e119215%_ _%marks119216%_) + (_%wrap-inner119184%_ + _%e119215%_ + (lambda (_%g119217119219%_) (##structure gx#identifier-wrap::t - _%g118232118234%_ - _%src118194%_ - _%marks118231%_))))) - (_%wrap-quote118198%_ - (lambda (_%e118222%_ _%ctx118223%_ _%marks118224%_) - (_%wrap-inner118199%_ - _%e118222%_ - (lambda (_%g118225118227%_) + _%g119217119219%_ + _%src119179%_ + _%marks119216%_))))) + (_%wrap-quote119183%_ + (lambda (_%e119207%_ _%ctx119208%_ _%marks119209%_) + (_%wrap-inner119184%_ + _%e119207%_ + (lambda (_%g119210119212%_) (##structure gx#syntax-quote::t - _%g118225118227%_ - _%src118194%_ - _%ctx118223%_ - _%marks118224%_))))) - (_%wrap-inner118199%_ - (lambda (_%e118210%_ _%wrap-e118211%_) - (let _%recur118213%_ ((_%e118215%_ _%e118210%_)) - (if (symbol? _%e118215%_) - (_%wrap-e118211%_ _%e118215%_) - (if (pair? _%e118215%_) - (cons (_%recur118213%_ (##car _%e118215%_)) - (_%recur118213%_ (##cdr _%e118215%_))) - (if (vector? _%e118215%_) - (vector-map _%recur118213%_ _%e118215%_) - (if (box? _%e118215%_) - (box (_%recur118213%_ - (unbox _%e118215%_))) - _%e118215%_))))))) - (_%wrap-outer118200%_ - (lambda (_%e118208%_) - (if (##structure-instance-of? _%e118208%_ 'gerbil#AST::t) - _%e118208%_ - (##structure gx#AST::t _%e118208%_ _%src118194%_))))) - (if (##structure-instance-of? _%datum118193%_ 'gerbil#AST::t) - _%datum118193%_ - (if (not _%stx118192%_) - (##structure gx#AST::t _%datum118193%_ _%src118194%_) - (if (gx#identifier? _%stx118192%_) - (let ((_%stx118205%_ (gx#stx-unwrap__0 _%stx118192%_))) - (_%wrap-outer118200%_ + _%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? - _%stx118205%_ + _%stx119190%_ 'gx#syntax-quote::t) - (if _%quote?118195%_ - (_%wrap-quote118198%_ - _%datum118193%_ + (if _%quote?119180%_ + (_%wrap-quote119183%_ + _%datum119178%_ (##unchecked-structure-ref - _%stx118205%_ + _%stx119190%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx118205%_ + _%stx119190%_ '4 '#f '#f)) - (_%wrap-datum118197%_ - _%datum118193%_ + (_%wrap-datum119182%_ + _%datum119178%_ (##unchecked-structure-ref - _%stx118205%_ + _%stx119190%_ '4 '#f '#f))) - (_%wrap-datum118197%_ - _%datum118193%_ + (_%wrap-datum119182%_ + _%datum119178%_ (##unchecked-structure-ref - _%stx118205%_ + _%stx119190%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx118192%_))))))) + _%stx119177%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx118240%_ _%datum118241%_) - (let* ((_%src118243%_ '#f) (_%quote?118245%_ '#t)) + (lambda (_%stx119225%_ _%datum119226%_) + (let* ((_%src119228%_ '#f) (_%quote?119230%_ '#t)) (gx#datum->syntax__% - _%stx118240%_ - _%datum118241%_ - _%src118243%_ - _%quote?118245%_)))) + _%stx119225%_ + _%datum119226%_ + _%src119228%_ + _%quote?119230%_)))) (define gx#datum->syntax__1 - (lambda (_%stx118247%_ _%datum118248%_ _%src118249%_) - (let ((_%quote?118251%_ '#t)) + (lambda (_%stx119232%_ _%datum119233%_ _%src119234%_) + (let ((_%quote?119236%_ '#t)) (gx#datum->syntax__% - _%stx118247%_ - _%datum118248%_ - _%src118249%_ - _%quote?118251%_)))) + _%stx119232%_ + _%datum119233%_ + _%src119234%_ + _%quote?119236%_)))) (define gx#datum->syntax - (lambda _g118392_ - (let ((_g118391_ (##length _g118392_))) - (cond ((##fx= _g118391_ 2) (apply gx#datum->syntax__0 _g118392_)) - ((##fx= _g118391_ 3) (apply gx#datum->syntax__1 _g118392_)) - ((##fx= _g118391_ 4) (apply gx#datum->syntax__% _g118392_)) + (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 - _g118392_)))))) + _g119377_)))))) (define gx#stx-unwrap__% - (lambda (_%stx118158%_ _%marks118159%_) - (let _%lp118161%_ ((_%e118163%_ _%stx118158%_) - (_%marks118164%_ _%marks118159%_) - (_%src118165%_ (gx#stx-source _%stx118158%_))) - (if (##structure-direct-instance-of? _%e118163%_ 'gx#syntax-wrap::t) - (_%lp118161%_ - (##unchecked-structure-ref _%e118163%_ '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 _%e118163%_ '3 '#f '#f) - _%marks118164%_) - (##unchecked-structure-ref _%e118163%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e119148%_ '3 '#f '#f) + _%marks119149%_) + (##unchecked-structure-ref _%e119148%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e118163%_ + _%e119148%_ 'gx#identifier-wrap::t) - (if (null? _%marks118164%_) - _%e118163%_ + (if (null? _%marks119149%_) + _%e119148%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e118163%_ '1 '#f '#f) - (##unchecked-structure-ref _%e118163%_ '2 '#f '#f) + (##unchecked-structure-ref _%e119148%_ '1 '#f '#f) + (##unchecked-structure-ref _%e119148%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e118163%_ '3 '#f '#f) - _%marks118164%_))) + (##unchecked-structure-ref _%e119148%_ '3 '#f '#f) + _%marks119149%_))) (if (##structure-direct-instance-of? - _%e118163%_ + _%e119148%_ 'gx#syntax-quote::t) - _%e118163%_ - (if (##structure-instance-of? _%e118163%_ 'gerbil#AST::t) - (_%lp118161%_ - (##unchecked-structure-ref _%e118163%_ '1 '#f '#f) - _%marks118164%_ - (##unchecked-structure-ref _%e118163%_ '2 '#f '#f)) - (if (symbol? _%e118163%_) + _%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 - _%e118163%_ - _%src118165%_ - (reverse _%marks118164%_)) - (if (null? _%marks118164%_) - _%e118163%_ - (if (pair? _%e118163%_) + _%e119148%_ + _%src119150%_ + (reverse _%marks119149%_)) + (if (null? _%marks119149%_) + _%e119148%_ + (if (pair? _%e119148%_) (cons (gx#stx-wrap - (##car _%e118163%_) - _%marks118164%_) + (##car _%e119148%_) + _%marks119149%_) (gx#stx-wrap - (##cdr _%e118163%_) - _%marks118164%_)) - (if (vector? _%e118163%_) + (##cdr _%e119148%_) + _%marks119149%_)) + (if (vector? _%e119148%_) (vector-map - (lambda (_%g118174118176%_) + (lambda (_%g119159119161%_) (gx#stx-wrap - _%g118174118176%_ - _%marks118164%_)) - _%e118163%_) - (if (box? _%e118163%_) + _%g119159119161%_ + _%marks119149%_)) + _%e119148%_) + (if (box? _%e119148%_) (box (gx#stx-wrap - (unbox _%e118163%_) - _%marks118164%_)) - _%e118163%_)))))))))))) + (unbox _%e119148%_) + _%marks119149%_)) + _%e119148%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx118184%_) - (let ((_%marks118186%_ '())) - (gx#stx-unwrap__% _%stx118184%_ _%marks118186%_)))) + (lambda (_%stx119169%_) + (let ((_%marks119171%_ '())) + (gx#stx-unwrap__% _%stx119169%_ _%marks119171%_)))) (define gx#stx-unwrap - (lambda _g118394_ - (let ((_g118393_ (##length _g118394_))) - (cond ((##fx= _g118393_ 1) (apply gx#stx-unwrap__0 _g118394_)) - ((##fx= _g118393_ 2) (apply gx#stx-unwrap__% _g118394_)) + (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 - _g118394_)))))) + _g119379_)))))) (define gx#stx-wrap - (lambda (_%stx118151%_ _%marks118152%_) + (lambda (_%stx119136%_ _%marks119137%_) (__foldl1 - (lambda (_%mark118154%_ _%stx118155%_) - (gx#stx-apply-mark _%stx118155%_ _%mark118154%_)) - _%stx118151%_ - _%marks118152%_))) + (lambda (_%mark119139%_ _%stx119140%_) + (gx#stx-apply-mark _%stx119140%_ _%mark119139%_)) + _%stx119136%_ + _%marks119137%_))) (define gx#stx-rewrap - (lambda (_%stx118145%_ _%marks118146%_) + (lambda (_%stx119130%_ _%marks119131%_) (__foldr1 - (lambda (_%mark118148%_ _%stx118149%_) - (gx#stx-apply-mark _%stx118149%_ _%mark118148%_)) - _%stx118145%_ - _%marks118146%_))) + (lambda (_%mark119133%_ _%stx119134%_) + (gx#stx-apply-mark _%stx119134%_ _%mark119133%_)) + _%stx119130%_ + _%marks119131%_))) (define gx#stx-apply-mark - (lambda (_%stx118139%_ _%mark118140%_) - (if (##structure-direct-instance-of? _%stx118139%_ 'gx#syntax-quote::t) - _%stx118139%_ + (lambda (_%stx119124%_ _%mark119125%_) + (if (##structure-direct-instance-of? _%stx119124%_ 'gx#syntax-quote::t) + _%stx119124%_ (if (and (##structure-direct-instance-of? - _%stx118139%_ + _%stx119124%_ 'gx#syntax-wrap::t) - (eq? _%mark118140%_ + (eq? _%mark119125%_ (##unchecked-structure-ref - _%stx118139%_ + _%stx119124%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx118139%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx119124%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx118139%_ - (gx#stx-source _%stx118139%_) - _%mark118140%_))))) + _%stx119124%_ + (gx#stx-source _%stx119124%_) + _%mark119125%_))))) (define gx#apply-mark - (lambda (_%mark118103%_ _%marks118104%_) - (let* ((_%marks118105118113%_ _%marks118104%_) - (_%else118107118121%_ - (lambda () (cons _%mark118103%_ _%marks118104%_))) - (_%K118109118127%_ - (lambda (_%rest118124%_ _%hd118125%_) - (if (eq? _%mark118103%_ _%hd118125%_) - _%rest118124%_ - (cons _%mark118103%_ _%marks118104%_))))) - (if (pair? _%marks118105118113%_) - (let ((_%hd118110118130%_ (##car _%marks118105118113%_)) - (_%tl118111118132%_ (##cdr _%marks118105118113%_))) - (let* ((_%hd118135%_ _%hd118110118130%_) - (_%rest118137%_ _%tl118111118132%_)) - (_%K118109118127%_ _%rest118137%_ _%hd118135%_))) - (_%else118107118121%_))))) + (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 (_%stx118098%_) - (if (##structure-direct-instance-of? _%stx118098%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx118098%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx118098%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx118098%_ '1 '#f '#f) - _%stx118098%_)))) + (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 (_%stx118096%_) - (if (##structure-instance-of? _%stx118096%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx118096%_ '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 (_%stx118090%_ _%src118091%_) - (if (or (##structure-instance-of? _%stx118090%_ 'gerbil#AST::t) - (not _%src118091%_)) - _%stx118090%_ - (##structure gx#AST::t _%stx118090%_ _%src118091%_)))) + (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 (_%stx118088%_) (gx#self-quoting? (gx#stx-e _%stx118088%_)))) + (lambda (_%stx119073%_) (gx#self-quoting? (gx#stx-e _%stx119073%_)))) (define gx#self-quoting? - (lambda (_%x118071%_) - (let ((_%$e118073%_ (immediate? _%x118071%_))) - (if _%$e118073%_ - _%$e118073%_ - (let ((_%$e118076%_ (number? _%x118071%_))) - (if _%$e118076%_ - _%$e118076%_ - (let ((_%$e118079%_ (keyword? _%x118071%_))) - (if _%$e118079%_ - _%$e118079%_ - (let ((_%$e118082%_ (string? _%x118071%_))) - (if _%$e118082%_ - _%$e118082%_ - (let ((_%$e118085%_ (vector? _%x118071%_))) - (if _%$e118085%_ - _%$e118085%_ - (u8vector? _%x118071%_))))))))))))) + (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 (_%e118069%_) (boolean? (gx#stx-e _%e118069%_)))) + (lambda (_%e119054%_) (boolean? (gx#stx-e _%e119054%_)))) (define gx#stx-keyword? - (lambda (_%e118067%_) (keyword? (gx#stx-e _%e118067%_)))) - (define gx#stx-char? (lambda (_%e118065%_) (char? (gx#stx-e _%e118065%_)))) + (lambda (_%e119052%_) (keyword? (gx#stx-e _%e119052%_)))) + (define gx#stx-char? (lambda (_%e119050%_) (char? (gx#stx-e _%e119050%_)))) (define gx#stx-number? - (lambda (_%e118063%_) (number? (gx#stx-e _%e118063%_)))) + (lambda (_%e119048%_) (number? (gx#stx-e _%e119048%_)))) (define gx#stx-fixnum? - (lambda (_%e118061%_) (fixnum? (gx#stx-e _%e118061%_)))) + (lambda (_%e119046%_) (fixnum? (gx#stx-e _%e119046%_)))) (define gx#stx-string? - (lambda (_%e118059%_) (string? (gx#stx-e _%e118059%_)))) - (define gx#stx-null? (lambda (_%e118057%_) (null? (gx#stx-e _%e118057%_)))) - (define gx#stx-pair? (lambda (_%e118055%_) (pair? (gx#stx-e _%e118055%_)))) + (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 (_%e118017%_) - (let* ((_%g118018118027%_ (gx#stx-e _%e118017%_)) - (_%E118021118031%_ + (lambda (_%e119002%_) + (let* ((_%g119003119012%_ (gx#stx-e _%e119002%_)) + (_%E119006119016%_ (lambda () (error '"No clause matching" - _%g118018118027%_ + _%g119003119012%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K118023118047%_ - (lambda (_%rest118045%_) (gx#stx-list? _%rest118045%_))) - (_%K118022118037%_ - (lambda (_%tail118035%_) (null? _%tail118035%_)))) - (if (pair? _%g118018118027%_) - (let* ((_%tl118025118050%_ (##cdr _%g118018118027%_)) - (_%rest118053%_ _%tl118025118050%_)) - (gx#stx-list? _%rest118053%_)) - (let ((_%tail118040%_ _%g118018118027%_)) - (null? _%tail118040%_))))))) + (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 (_%e118010%_) - (let* ((_%e118012%_ (gx#stx-e _%e118010%_)) - (_%$e118014%_ (pair? _%e118012%_))) - (if _%$e118014%_ _%$e118014%_ (null? _%e118012%_))))) + (lambda (_%e118995%_) + (let* ((_%e118997%_ (gx#stx-e _%e118995%_)) + (_%$e118999%_ (pair? _%e118997%_))) + (if _%$e118999%_ _%$e118999%_ (null? _%e118997%_))))) (define gx#stx-vector? - (lambda (_%e118008%_) (vector? (gx#stx-e _%e118008%_)))) - (define gx#stx-box? (lambda (_%e118006%_) (box? (gx#stx-e _%e118006%_)))) + (lambda (_%e118993%_) (vector? (gx#stx-e _%e118993%_)))) + (define gx#stx-box? (lambda (_%e118991%_) (box? (gx#stx-e _%e118991%_)))) (define gx#stx-eq? - (lambda (_%x118003%_ _%y118004%_) - (eq? (gx#stx-e _%x118003%_) (gx#stx-e _%y118004%_)))) + (lambda (_%x118988%_ _%y118989%_) + (eq? (gx#stx-e _%x118988%_) (gx#stx-e _%y118989%_)))) (define gx#stx-eqv? - (lambda (_%x118000%_ _%y118001%_) - (eqv? (gx#stx-e _%x118000%_) (gx#stx-e _%y118001%_)))) + (lambda (_%x118985%_ _%y118986%_) + (eqv? (gx#stx-e _%x118985%_) (gx#stx-e _%y118986%_)))) (define gx#stx-equal? - (lambda (_%x117997%_ _%y117998%_) - (equal? (gx#stx-e _%x117997%_) (gx#stx-e _%y117998%_)))) - (define gx#stx-false? (lambda (_%x117995%_) (not (gx#stx-e _%x117995%_)))) + (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 (_%template117992%_ . _%args117993%_) + (lambda (_%template118977%_ . _%args118978%_) (gx#datum->syntax__1 - _%template117992%_ - (apply make-symbol (gx#syntax->datum _%args117993%_)) - (gx#stx-source _%template117992%_)))) + _%template118977%_ + (apply make-symbol (gx#syntax->datum _%args118978%_)) + (gx#stx-source _%template118977%_)))) (define gx#stx-identifier-marks - (lambda (_%stx117990%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117990%_)))) + (lambda (_%stx118975%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx118975%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx117985%_) + (lambda (_%stx118970%_) (if (##structure-direct-instance-of? - _%stx117985%_ + _%stx118970%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx117985%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx118970%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx117985%_ + _%stx118970%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx117985%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx118970%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx117985%_))))) + _%stx118970%_))))) (define gx#stx-identifier-context - (lambda (_%stx117981%_) - (let ((_%stx117983%_ (gx#stx-unwrap__0 _%stx117981%_))) - (if (gx#identifier-quote? _%stx117983%_) - (##unchecked-structure-ref _%stx117983%_ '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 (_%stx117936%_) - (let* ((_%g117937117947%_ (gx#stx-e _%stx117936%_)) - (_%else117940117955%_ (lambda () '#f))) - (let ((_%K117943117969%_ - (lambda (_%rest117966%_ _%hd117967%_) - (if (gx#identifier? _%hd117967%_) - (gx#identifier-list? _%rest117966%_) + (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))) - (_%K117942117960%_ (lambda () '#t))) - (let ((_%try-match117939117963%_ + (_%K118927118945%_ (lambda () '#t))) + (let ((_%try-match118924118948%_ (lambda () - (if (null? _%g117937117947%_) - (_%K117942117960%_) - (_%else117940117955%_))))) - (if (pair? _%g117937117947%_) - (let ((_%tl117945117974%_ (##cdr _%g117937117947%_)) - (_%hd117944117972%_ (##car _%g117937117947%_))) - (let ((_%hd117977%_ _%hd117944117972%_) - (_%rest117979%_ _%tl117945117974%_)) - (_%K117943117969%_ _%rest117979%_ _%hd117977%_))) - (_%try-match117939117963%_))))))) + (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 (_%e117913%_ _%src117914%_) + (lambda (_%e118898%_ _%src118899%_) (gx#stx-wrap-source - (gensym (let ((_%e117916%_ (gx#stx-e _%e117913%_))) - (if (interned-symbol? _%e117916%_) _%e117916%_ 'g))) - (let ((_%$e117918%_ (gx#stx-source _%e117913%_))) - (if _%$e117918%_ _%$e117918%_ _%src117914%_))))) + (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* ((_%e117925%_ 'g) (_%src117927%_ '#f)) - (gx#genident__% _%e117925%_ _%src117927%_)))) + (let* ((_%e118910%_ 'g) (_%src118912%_ '#f)) + (gx#genident__% _%e118910%_ _%src118912%_)))) (define gx#genident__1 - (lambda (_%e117929%_) - (let ((_%src117931%_ '#f)) - (gx#genident__% _%e117929%_ _%src117931%_)))) + (lambda (_%e118914%_) + (let ((_%src118916%_ '#f)) + (gx#genident__% _%e118914%_ _%src118916%_)))) (define gx#genident - (lambda _g118396_ - (let ((_g118395_ (##length _g118396_))) - (cond ((##fx= _g118395_ 0) (apply gx#genident__0 _g118396_)) - ((##fx= _g118395_ 1) (apply gx#genident__1 _g118396_)) - ((##fx= _g118395_ 2) (apply gx#genident__% _g118396_)) + (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 - _g118396_)))))) + _g119381_)))))) (define gx#gentemps - (lambda (_%stx-lst117910%_) (gx#stx-map1 gx#genident _%stx-lst117910%_))) + (lambda (_%stx-lst118895%_) (gx#stx-map1 gx#genident _%stx-lst118895%_))) (define gx#syntax->list - (lambda (_%stx117908%_) (gx#stx-map1 values _%stx117908%_))) + (lambda (_%stx118893%_) (gx#stx-map1 values _%stx118893%_))) (define gx#stx-car - (lambda (_%stx117905%_) + (lambda (_%stx118890%_) (declare (safe)) - (car (gx#syntax-e _%stx117905%_)))) + (car (gx#syntax-e _%stx118890%_)))) (define gx#stx-cdr - (lambda (_%stx117902%_) + (lambda (_%stx118887%_) (declare (safe)) - (cdr (gx#syntax-e _%stx117902%_)))) + (cdr (gx#syntax-e _%stx118887%_)))) (define gx#stx-length - (lambda (_%stx117867%_) - (let _%lp117869%_ ((_%rest117871%_ _%stx117867%_) (_%n117872%_ '0)) - (let* ((_%g117873117881%_ (gx#stx-e _%rest117871%_)) - (_%else117875117889%_ (lambda () _%n117872%_)) - (_%K117877117894%_ - (lambda (_%rest117892%_) - (_%lp117869%_ _%rest117892%_ (##fx+ _%n117872%_ '1))))) - (if (pair? _%g117873117881%_) - (let* ((_%tl117879117897%_ (##cdr _%g117873117881%_)) - (_%rest117900%_ _%tl117879117897%_)) - (_%K117877117894%_ _%rest117900%_)) - (_%else117875117889%_)))))) + (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 _g118398_ - (let ((_g118397_ (##length _g118398_))) - (cond ((##fx= _g118397_ 2) (apply gx#stx-for-each1 _g118398_)) - ((##fx= _g118397_ 3) (apply gx#stx-for-each2 _g118398_)) + (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 - _g118398_)))))) + _g119383_)))))) (define gx#stx-for-each1 - (lambda (_%f117810%_ _%stx117811%_) - (if (procedure? _%f117810%_) + (lambda (_%f118795%_ _%stx118796%_) + (if (procedure? _%f118795%_) '#!void - (error '"expected procedure" _%f117810%_)) - (let _%lp117813%_ ((_%rest117815%_ _%stx117811%_)) - (let* ((_%g117816117826%_ (gx#syntax-e _%rest117815%_)) - (_%else117819117834%_ - (lambda () (_%f117810%_ _%rest117815%_)))) - (let ((_%K117822117848%_ - (lambda (_%rest117845%_ _%hd117846%_) - (_%f117810%_ _%hd117846%_) - (_%lp117813%_ _%rest117845%_))) - (_%K117821117839%_ (lambda () '#!void))) - (let ((_%try-match117818117842%_ + (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? _%g117816117826%_) - (_%K117821117839%_) - (_%else117819117834%_))))) - (if (pair? _%g117816117826%_) - (let ((_%tl117824117853%_ (##cdr _%g117816117826%_)) - (_%hd117823117851%_ (##car _%g117816117826%_))) - (let ((_%hd117856%_ _%hd117823117851%_) - (_%rest117858%_ _%tl117824117853%_)) - (_%K117822117848%_ _%rest117858%_ _%hd117856%_))) - (_%try-match117818117842%_)))))))) + (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 (_%f117715%_ _%xstx117716%_ _%ystx117717%_) - (if (procedure? _%f117715%_) + (lambda (_%f118700%_ _%xstx118701%_ _%ystx118702%_) + (if (procedure? _%f118700%_) '#!void - (error '"expected procedure" _%f117715%_)) - (let _%lp117719%_ ((_%xrest117721%_ _%xstx117716%_) - (_%yrest117722%_ _%ystx117717%_)) - (let* ((_%g117723117733%_ (gx#syntax-e _%xrest117721%_)) - (_%else117726117741%_ (lambda () '#!void))) - (let ((_%K117729117798%_ - (lambda (_%xrest117767%_ _%xhd117768%_) - (let* ((_%g117769117776%_ (gx#syntax-e _%yrest117722%_)) - (_%E117771117780%_ + (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" - _%g117769117776%_ + _%g118754118761%_ '([yhd . yrest])) '#!void)) - (_%K117772117786%_ - (lambda (_%yrest117783%_ _%yhd117784%_) - (_%f117715%_ _%xhd117768%_ _%yhd117784%_) - (_%lp117719%_ - _%xrest117767%_ - _%yrest117783%_)))) - (if (pair? _%g117769117776%_) - (let ((_%hd117773117789%_ (##car _%g117769117776%_)) - (_%tl117774117791%_ - (##cdr _%g117769117776%_))) - (let* ((_%yhd117794%_ _%hd117773117789%_) - (_%yrest117796%_ _%tl117774117791%_)) - (_%K117772117786%_ - _%yrest117796%_ - _%yhd117794%_))) - (_%E117771117780%_))))) - (_%K117728117761%_ + (_%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* ((_%yrest117745117750%_ _%yrest117722%_) - (_%E117747117754%_ + (let* ((_%yrest118730118735%_ _%yrest118707%_) + (_%E118732118739%_ (lambda () (error '"No clause matching" - _%yrest117745117750%_ + _%yrest118730118735%_ '((? (not stx-null?)))) '#!void)) - (_%K117748117758%_ + (_%K118733118743%_ (lambda () - (_%f117715%_ _%xrest117721%_ _%yrest117722%_)))) - (if (gx#stx-null? _%yrest117745117750%_) - (_%E117747117754%_) - (_%K117748117758%_)))))) - (let ((_%try-match117725117764%_ + (_%f118700%_ _%xrest118706%_ _%yrest118707%_)))) + (if (gx#stx-null? _%yrest118730118735%_) + (_%E118732118739%_) + (_%K118733118743%_)))))) + (let ((_%try-match118710118749%_ (lambda () - (if (null? _%g117723117733%_) - (_%else117726117741%_) - (_%K117728117761%_))))) - (if (pair? _%g117723117733%_) - (let ((_%tl117731117803%_ (##cdr _%g117723117733%_)) - (_%hd117730117801%_ (##car _%g117723117733%_))) - (let ((_%xhd117806%_ _%hd117730117801%_) - (_%xrest117808%_ _%tl117731117803%_)) - (_%K117729117798%_ _%xrest117808%_ _%xhd117806%_))) - (_%try-match117725117764%_)))))))) + (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 _g118400_ - (let ((_g118399_ (##length _g118400_))) - (cond ((##fx= _g118399_ 2) (apply gx#stx-map1 _g118400_)) - ((##fx= _g118399_ 3) (apply gx#stx-map2 _g118400_)) + (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 - _g118400_)))))) + _g119385_)))))) (define gx#stx-map1 - (lambda (_%f117658%_ _%stx117659%_) - (if (procedure? _%f117658%_) + (lambda (_%f118643%_ _%stx118644%_) + (if (procedure? _%f118643%_) '#!void - (error '"expected procedure" _%f117658%_)) - (let _%recur117661%_ ((_%rest117663%_ _%stx117659%_)) - (let* ((_%g117664117674%_ (gx#syntax-e _%rest117663%_)) - (_%else117667117682%_ - (lambda () (_%f117658%_ _%rest117663%_)))) - (let ((_%K117670117696%_ - (lambda (_%rest117693%_ _%hd117694%_) - (cons (_%f117658%_ _%hd117694%_) - (_%recur117661%_ _%rest117693%_)))) - (_%K117669117687%_ (lambda () '()))) - (let ((_%try-match117666117690%_ + (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? _%g117664117674%_) - (_%K117669117687%_) - (_%else117667117682%_))))) - (if (pair? _%g117664117674%_) - (let ((_%tl117672117701%_ (##cdr _%g117664117674%_)) - (_%hd117671117699%_ (##car _%g117664117674%_))) - (let ((_%hd117704%_ _%hd117671117699%_) - (_%rest117706%_ _%tl117672117701%_)) - (_%K117670117696%_ _%rest117706%_ _%hd117704%_))) - (_%try-match117666117690%_)))))))) + (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 (_%f117563%_ _%xstx117564%_ _%ystx117565%_) - (if (procedure? _%f117563%_) + (lambda (_%f118548%_ _%xstx118549%_ _%ystx118550%_) + (if (procedure? _%f118548%_) '#!void - (error '"expected procedure" _%f117563%_)) - (let _%recur117567%_ ((_%xrest117569%_ _%xstx117564%_) - (_%yrest117570%_ _%ystx117565%_)) - (let* ((_%g117571117581%_ (gx#syntax-e _%xrest117569%_)) - (_%else117574117589%_ (lambda () '()))) - (let ((_%K117577117646%_ - (lambda (_%xrest117615%_ _%xhd117616%_) - (let* ((_%g117617117624%_ (gx#syntax-e _%yrest117570%_)) - (_%E117619117628%_ + (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" - _%g117617117624%_ + _%g118602118609%_ '([yhd . yrest])) '#!void)) - (_%K117620117634%_ - (lambda (_%yrest117631%_ _%yhd117632%_) - (cons (_%f117563%_ _%xhd117616%_ _%yhd117632%_) - (_%recur117567%_ - _%xrest117615%_ - _%yrest117631%_))))) - (if (pair? _%g117617117624%_) - (let ((_%hd117621117637%_ (##car _%g117617117624%_)) - (_%tl117622117639%_ - (##cdr _%g117617117624%_))) - (let* ((_%yhd117642%_ _%hd117621117637%_) - (_%yrest117644%_ _%tl117622117639%_)) - (_%K117620117634%_ - _%yrest117644%_ - _%yhd117642%_))) - (_%E117619117628%_))))) - (_%K117576117609%_ + (_%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* ((_%yrest117593117598%_ _%yrest117570%_) - (_%E117595117602%_ + (let* ((_%yrest118578118583%_ _%yrest118555%_) + (_%E118580118587%_ (lambda () (error '"No clause matching" - _%yrest117593117598%_ + _%yrest118578118583%_ '((? (not stx-null?)))) '#!void)) - (_%K117596117606%_ + (_%K118581118591%_ (lambda () - (_%f117563%_ _%xrest117569%_ _%yrest117570%_)))) - (if (gx#stx-null? _%yrest117593117598%_) - (_%E117595117602%_) - (_%K117596117606%_)))))) - (let ((_%try-match117573117612%_ + (_%f118548%_ _%xrest118554%_ _%yrest118555%_)))) + (if (gx#stx-null? _%yrest118578118583%_) + (_%E118580118587%_) + (_%K118581118591%_)))))) + (let ((_%try-match118558118597%_ (lambda () - (if (null? _%g117571117581%_) - (_%else117574117589%_) - (_%K117576117609%_))))) - (if (pair? _%g117571117581%_) - (let ((_%tl117579117651%_ (##cdr _%g117571117581%_)) - (_%hd117578117649%_ (##car _%g117571117581%_))) - (let ((_%xhd117654%_ _%hd117578117649%_) - (_%xrest117656%_ _%tl117579117651%_)) - (_%K117577117646%_ _%xrest117656%_ _%xhd117654%_))) - (_%try-match117573117612%_)))))))) + (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 (_%f117513%_ _%stx117514%_) - (if (procedure? _%f117513%_) + (lambda (_%f118498%_ _%stx118499%_) + (if (procedure? _%f118498%_) '#!void - (error '"expected procedure" _%f117513%_)) - (let _%lp117516%_ ((_%rest117518%_ _%stx117514%_)) - (let* ((_%g117519117529%_ (gx#syntax-e _%rest117518%_)) - (_%else117522117537%_ - (lambda () (_%f117513%_ _%rest117518%_)))) - (let ((_%K117525117551%_ - (lambda (_%rest117548%_ _%hd117549%_) - (if (_%f117513%_ _%hd117549%_) - (_%lp117516%_ _%rest117548%_) + (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))) - (_%K117524117542%_ (lambda () '#t))) - (let ((_%try-match117521117545%_ + (_%K118509118527%_ (lambda () '#t))) + (let ((_%try-match118506118530%_ (lambda () - (if (null? _%g117519117529%_) - (_%K117524117542%_) - (_%else117522117537%_))))) - (if (pair? _%g117519117529%_) - (let ((_%tl117527117556%_ (##cdr _%g117519117529%_)) - (_%hd117526117554%_ (##car _%g117519117529%_))) - (let ((_%hd117559%_ _%hd117526117554%_) - (_%rest117561%_ _%tl117527117556%_)) - (_%K117525117551%_ _%rest117561%_ _%hd117559%_))) - (_%try-match117521117545%_)))))))) + (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 (_%f117460%_ _%stx117461%_) - (if (procedure? _%f117460%_) + (lambda (_%f118445%_ _%stx118446%_) + (if (procedure? _%f118445%_) '#!void - (error '"expected procedure" _%f117460%_)) - (let _%lp117463%_ ((_%rest117465%_ _%stx117461%_)) - (let* ((_%g117466117476%_ (gx#syntax-e _%rest117465%_)) - (_%else117469117484%_ - (lambda () (_%f117460%_ _%rest117465%_)))) - (let ((_%K117472117501%_ - (lambda (_%rest117495%_ _%hd117496%_) - (let ((_%$e117498%_ (_%f117460%_ _%hd117496%_))) - (if _%$e117498%_ - _%$e117498%_ - (_%lp117463%_ _%rest117495%_))))) - (_%K117471117489%_ (lambda () '#f))) - (let ((_%try-match117468117492%_ + (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? _%g117466117476%_) - (_%K117471117489%_) - (_%else117469117484%_))))) - (if (pair? _%g117466117476%_) - (let ((_%tl117474117506%_ (##cdr _%g117466117476%_)) - (_%hd117473117504%_ (##car _%g117466117476%_))) - (let ((_%hd117509%_ _%hd117473117504%_) - (_%rest117511%_ _%tl117474117506%_)) - (_%K117472117501%_ _%rest117511%_ _%hd117509%_))) - (_%try-match117468117492%_)))))))) + (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 (_%f117408%_ _%iv117409%_ _%stx117410%_) - (if (procedure? _%f117408%_) + (lambda (_%f118393%_ _%iv118394%_ _%stx118395%_) + (if (procedure? _%f118393%_) '#!void - (error '"expected procedure" _%f117408%_)) - (let _%lp117412%_ ((_%r117414%_ _%iv117409%_) - (_%rest117415%_ _%stx117410%_)) - (let* ((_%g117416117426%_ (gx#syntax-e _%rest117415%_)) - (_%else117419117434%_ - (lambda () (_%f117408%_ _%rest117415%_ _%r117414%_)))) - (let ((_%K117422117448%_ - (lambda (_%rest117445%_ _%hd117446%_) - (_%lp117412%_ - (_%f117408%_ _%hd117446%_ _%r117414%_) - _%rest117445%_))) - (_%K117421117439%_ (lambda () _%r117414%_))) - (let ((_%try-match117418117442%_ + (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? _%g117416117426%_) - (_%K117421117439%_) - (_%else117419117434%_))))) - (if (pair? _%g117416117426%_) - (let ((_%tl117424117453%_ (##cdr _%g117416117426%_)) - (_%hd117423117451%_ (##car _%g117416117426%_))) - (let ((_%hd117456%_ _%hd117423117451%_) - (_%rest117458%_ _%tl117424117453%_)) - (_%K117422117448%_ _%rest117458%_ _%hd117456%_))) - (_%try-match117418117442%_)))))))) + (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 (_%f117357%_ _%iv117358%_ _%stx117359%_) - (if (procedure? _%f117357%_) + (lambda (_%f118342%_ _%iv118343%_ _%stx118344%_) + (if (procedure? _%f118342%_) '#!void - (error '"expected procedure" _%f117357%_)) - (let _%recur117361%_ ((_%rest117363%_ _%stx117359%_)) - (let* ((_%g117364117374%_ (gx#syntax-e _%rest117363%_)) - (_%else117367117382%_ - (lambda () (_%f117357%_ _%rest117363%_ _%iv117358%_)))) - (let ((_%K117370117396%_ - (lambda (_%rest117393%_ _%hd117394%_) - (_%f117357%_ - _%hd117394%_ - (_%recur117361%_ _%rest117393%_)))) - (_%K117369117387%_ (lambda () _%iv117358%_))) - (let ((_%try-match117366117390%_ + (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? _%g117364117374%_) - (_%K117369117387%_) - (_%else117367117382%_))))) - (if (pair? _%g117364117374%_) - (let ((_%tl117372117401%_ (##cdr _%g117364117374%_)) - (_%hd117371117399%_ (##car _%g117364117374%_))) - (let ((_%hd117404%_ _%hd117371117399%_) - (_%rest117406%_ _%tl117372117401%_)) - (_%K117370117396%_ _%rest117406%_ _%hd117404%_))) - (_%try-match117366117390%_)))))))) + (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 (_%stx117355%_) (gx#stx-foldl cons '() _%stx117355%_))) + (lambda (_%stx118340%_) (gx#stx-foldl cons '() _%stx118340%_))) (define gx#stx-last - (lambda (_%stx117316%_) - (let _%lp117318%_ ((_%rest117320%_ _%stx117316%_)) - (let* ((_%g117321117329%_ (gx#syntax-e _%rest117320%_)) - (_%else117323117337%_ (lambda () _%rest117320%_)) - (_%K117325117343%_ - (lambda (_%rest117340%_ _%hd117341%_) - (if (gx#stx-null? _%rest117340%_) - _%hd117341%_ - (_%lp117318%_ _%rest117340%_))))) - (if (pair? _%g117321117329%_) - (let ((_%hd117326117346%_ (##car _%g117321117329%_)) - (_%tl117327117348%_ (##cdr _%g117321117329%_))) - (let* ((_%hd117351%_ _%hd117326117346%_) - (_%rest117353%_ _%tl117327117348%_)) - (_%K117325117343%_ _%rest117353%_ _%hd117351%_))) - (_%else117323117337%_)))))) + (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 (_%stx117287%_) - (let _%lp117289%_ ((_%hd117291%_ _%stx117287%_)) - (let* ((_%g117292117299%_ (gx#syntax-e _%hd117291%_)) - (_%E117294117303%_ + (lambda (_%stx118272%_) + (let _%lp118274%_ ((_%hd118276%_ _%stx118272%_)) + (let* ((_%g118277118284%_ (gx#syntax-e _%hd118276%_)) + (_%E118279118288%_ (lambda () (error '"No clause matching" - _%g117292117299%_ + _%g118277118284%_ '([_ . rest])) '#!void)) - (_%K117295117308%_ - (lambda (_%rest117306%_) - (if (gx#stx-pair? _%rest117306%_) - (_%lp117289%_ _%rest117306%_) - _%hd117291%_)))) - (if (pair? _%g117292117299%_) - (let* ((_%tl117297117311%_ (##cdr _%g117292117299%_)) - (_%rest117314%_ _%tl117297117311%_)) - (_%K117295117308%_ _%rest117314%_)) - (_%E117294117303%_)))))) + (_%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 (_%stx117256%_ _%k117257%_) - (let _%lp117259%_ ((_%rest117261%_ _%stx117256%_) - (_%k117262%_ _%k117257%_)) - (if (fxpositive? _%k117262%_) - (let* ((_%g117263117270%_ (gx#syntax-e _%rest117261%_)) - (_%E117265117274%_ + (lambda (_%stx118241%_ _%k118242%_) + (let _%lp118244%_ ((_%rest118246%_ _%stx118241%_) + (_%k118247%_ _%k118242%_)) + (if (fxpositive? _%k118247%_) + (let* ((_%g118248118255%_ (gx#syntax-e _%rest118246%_)) + (_%E118250118259%_ (lambda () (error '"No clause matching" - _%g117263117270%_ + _%g118248118255%_ '([_ . rest])) '#!void)) - (_%K117266117279%_ - (lambda (_%rest117277%_) - (_%lp117259%_ _%rest117277%_ (##fx- _%k117262%_ '1))))) - (if (pair? _%g117263117270%_) - (let* ((_%tl117268117282%_ (##cdr _%g117263117270%_)) - (_%rest117285%_ _%tl117268117282%_)) - (_%K117266117279%_ _%rest117285%_)) - (_%E117265117274%_))) - _%rest117261%_)))) + (_%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 (_%stx117253%_ _%k117254%_) - (gx#stx-car (gx#stx-list-tail _%stx117253%_ _%k117254%_)))) + (lambda (_%stx118238%_ _%k118239%_) + (gx#stx-car (gx#stx-list-tail _%stx118238%_ _%k118239%_)))) (define gx#stx-plist?__% - (lambda (_%stx117165%_ _%key?117166%_) - (if (procedure? _%key?117166%_) + (lambda (_%stx118150%_ _%key?118151%_) + (if (procedure? _%key?118151%_) '#!void - (error '"expected procedure" _%key?117166%_)) - (let _%lp117168%_ ((_%rest117170%_ _%stx117165%_)) - (let* ((_%g117171117181%_ (gx#stx-e _%rest117170%_)) - (_%else117174117189%_ (lambda () '#f))) - (let ((_%K117177117231%_ - (lambda (_%rest117200%_ _%hd117201%_) - (if (_%key?117166%_ _%hd117201%_) - (let* ((_%g117202117210%_ (gx#stx-e _%rest117200%_)) - (_%else117204117218%_ (lambda () '#f)) - (_%K117206117223%_ - (lambda (_%rest117221%_) - (_%lp117168%_ _%rest117221%_)))) - (if (pair? _%g117202117210%_) - (let* ((_%tl117208117226%_ - (##cdr _%g117202117210%_)) - (_%rest117229%_ _%tl117208117226%_)) - (_%lp117168%_ _%rest117229%_)) - (_%else117204117218%_))) + (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))) - (_%K117176117194%_ (lambda () '#t))) - (let ((_%try-match117173117197%_ + (_%K118161118179%_ (lambda () '#t))) + (let ((_%try-match118158118182%_ (lambda () - (if (null? _%g117171117181%_) - (_%K117176117194%_) - (_%else117174117189%_))))) - (if (pair? _%g117171117181%_) - (let ((_%tl117179117236%_ (##cdr _%g117171117181%_)) - (_%hd117178117234%_ (##car _%g117171117181%_))) - (let ((_%hd117239%_ _%hd117178117234%_) - (_%rest117241%_ _%tl117179117236%_)) - (_%K117177117231%_ _%rest117241%_ _%hd117239%_))) - (_%try-match117173117197%_)))))))) + (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 (_%stx117246%_) - (let ((_%key?117248%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx117246%_ _%key?117248%_)))) + (lambda (_%stx118231%_) + (let ((_%key?118233%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx118231%_ _%key?118233%_)))) (define gx#stx-plist? - (lambda _g118402_ - (let ((_g118401_ (##length _g118402_))) - (cond ((##fx= _g118401_ 1) (apply gx#stx-plist?__0 _g118402_)) - ((##fx= _g118401_ 2) (apply gx#stx-plist?__% _g118402_)) + (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? - _g118402_)))))) + _g119387_)))))) (define gx#stx-getq__% - (lambda (_%key117083%_ _%stx117084%_ _%key=?117085%_) - (if (procedure? _%key=?117085%_) + (lambda (_%key118068%_ _%stx118069%_ _%key=?118070%_) + (if (procedure? _%key=?118070%_) '#!void - (error '"expected procedure" _%key=?117085%_)) - (let _%lp117087%_ ((_%rest117089%_ _%stx117084%_)) - (let* ((_%g117090117098%_ (gx#syntax-e _%rest117089%_)) - (_%else117092117106%_ (lambda () '#f)) - (_%K117094117140%_ - (lambda (_%rest117109%_ _%hd117110%_) - (let* ((_%g117111117118%_ (gx#syntax-e _%rest117109%_)) - (_%E117113117122%_ + (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" - _%g117111117118%_ + _%g118096118103%_ '([val . rest])) '#!void)) - (_%K117114117128%_ - (lambda (_%rest117125%_ _%val117126%_) - (if (_%key=?117085%_ _%hd117110%_ _%key117083%_) - _%val117126%_ - (_%lp117087%_ _%rest117125%_))))) - (if (pair? _%g117111117118%_) - (let ((_%hd117115117131%_ (##car _%g117111117118%_)) - (_%tl117116117133%_ (##cdr _%g117111117118%_))) - (let* ((_%val117136%_ _%hd117115117131%_) - (_%rest117138%_ _%tl117116117133%_)) - (_%K117114117128%_ - _%rest117138%_ - _%val117136%_))) - (_%E117113117122%_)))))) - (if (pair? _%g117090117098%_) - (let ((_%hd117095117143%_ (##car _%g117090117098%_)) - (_%tl117096117145%_ (##cdr _%g117090117098%_))) - (let* ((_%hd117148%_ _%hd117095117143%_) - (_%rest117150%_ _%tl117096117145%_)) - (_%K117094117140%_ _%rest117150%_ _%hd117148%_))) - (_%else117092117106%_)))))) + (_%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 (_%key117155%_ _%stx117156%_) - (let ((_%key=?117158%_ gx#stx-eq?)) - (gx#stx-getq__% _%key117155%_ _%stx117156%_ _%key=?117158%_)))) + (lambda (_%key118140%_ _%stx118141%_) + (let ((_%key=?118143%_ gx#stx-eq?)) + (gx#stx-getq__% _%key118140%_ _%stx118141%_ _%key=?118143%_)))) (define gx#stx-getq - (lambda _g118404_ - (let ((_g118403_ (##length _g118404_))) - (cond ((##fx= _g118403_ 2) (apply gx#stx-getq__0 _g118404_)) - ((##fx= _g118403_ 3) (apply gx#stx-getq__% _g118404_)) + (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 - _g118404_)))))))) + _g119389_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index b59f2058d..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]#_g118406_| + (define |gx[1]#_g119391_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g118408_| + (define |gx[1]#_g119393_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118410_| + (define |gx[1]#_g119395_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118412_| + (define |gx[1]#_g119397_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118414_| + (define |gx[1]#_g119399_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118415_| + (define |gx[1]#_g119400_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118416_| + (define |gx[1]#_g119401_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118418_| + (define |gx[1]#_g119403_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118419_| + (define |gx[1]#_g119404_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118420_| + (define |gx[1]#_g119405_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118422_| + (define |gx[1]#_g119407_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118423_| + (define |gx[1]#_g119408_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118424_| + (define |gx[1]#_g119409_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118426_| + (define |gx[1]#_g119411_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118427_| + (define |gx[1]#_g119412_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118428_| + (define |gx[1]#_g119413_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118431_| + (define |gx[1]#_g119416_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118433_| + (define |gx[1]#_g119418_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118435_| + (define |gx[1]#_g119420_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118437_| + (define |gx[1]#_g119422_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118438_| + (define |gx[1]#_g119423_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118439_| + (define |gx[1]#_g119424_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118441_| + (define |gx[1]#_g119426_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118442_| + (define |gx[1]#_g119427_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118443_| + (define |gx[1]#_g119428_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118445_| + (define |gx[1]#_g119430_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118446_| + (define |gx[1]#_g119431_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118447_| + (define |gx[1]#_g119432_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118449_| + (define |gx[1]#_g119434_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118450_| + (define |gx[1]#_g119435_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118451_| + (define |gx[1]#_g119436_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118454_| + (define |gx[1]#_g119439_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118456_| + (define |gx[1]#_g119441_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g118458_| + (define |gx[1]#_g119443_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118460_| + (define |gx[1]#_g119445_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118461_| + (define |gx[1]#_g119446_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118462_| + (define |gx[1]#_g119447_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118463_| + (define |gx[1]#_g119448_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118465_| + (define |gx[1]#_g119450_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118466_| + (define |gx[1]#_g119451_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118467_| + (define |gx[1]#_g119452_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118468_| + (define |gx[1]#_g119453_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118470_| + (define |gx[1]#_g119455_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118471_| + (define |gx[1]#_g119456_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118472_| + (define |gx[1]#_g119457_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118473_| + (define |gx[1]#_g119458_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118475_| + (define |gx[1]#_g119460_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118476_| + (define |gx[1]#_g119461_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118477_| + (define |gx[1]#_g119462_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118478_| + (define |gx[1]#_g119463_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj118388 + (let ((__obj119373 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118388 + __obj119373 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj119373 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj119373 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118388 + __obj119373 '(e source marks) '6 '#f '#f)) - (let ((__tmp118405 (cons |gx[1]#_g118406_| '()))) + (let ((__tmp119390 (cons |gx[1]#_g119391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118388 __tmp118405 '3 '#f '#f)) + (##unchecked-structure-set! __obj119373 __tmp119390 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj119373 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj119373 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj119373 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '#f '11 '#f '#f)) - (let ((__tmp118407 |gx[1]#_g118408_|)) + (##unchecked-structure-set! __obj119373 '#f '11 '#f '#f)) + (let ((__tmp119392 |gx[1]#_g119393_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118388 __tmp118407 '12 '#f '#f)) - (let ((__tmp118409 |gx[1]#_g118410_|)) + (##unchecked-structure-set! __obj119373 __tmp119392 '12 '#f '#f)) + (let ((__tmp119394 |gx[1]#_g119395_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118388 __tmp118409 '13 '#f '#f)) - (let ((__tmp118411 |gx[1]#_g118412_|)) + (##unchecked-structure-set! __obj119373 __tmp119394 '13 '#f '#f)) + (let ((__tmp119396 |gx[1]#_g119397_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118388 __tmp118411 '14 '#f '#f)) - (let ((__tmp118413 - (cons (cons 'marks |gx[1]#_g118414_|) - (cons (cons 'e |gx[1]#_g118415_|) - (cons (cons 'source |gx[1]#_g118416_|) '()))))) + (##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! __obj118388 __tmp118413 '15 '#f '#f)) - (let ((__tmp118417 - (cons (cons 'marks |gx[1]#_g118418_|) - (cons (cons 'e |gx[1]#_g118419_|) - (cons (cons 'source |gx[1]#_g118420_|) '()))))) + (##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! __obj118388 __tmp118417 '16 '#f '#f)) - (let ((__tmp118421 - (cons (cons 'marks |gx[1]#_g118422_|) - (cons (cons 'e |gx[1]#_g118423_|) - (cons (cons 'source |gx[1]#_g118424_|) '()))))) + (##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! __obj118388 __tmp118421 '17 '#f '#f)) - (let ((__tmp118425 - (cons (cons 'marks |gx[1]#_g118426_|) - (cons (cons 'e |gx[1]#_g118427_|) - (cons (cons 'source |gx[1]#_g118428_|) '()))))) + (##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! __obj118388 __tmp118425 '18 '#f '#f)) + (##unchecked-structure-set! __obj119373 __tmp119410 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj119373 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj119373 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118388 '() '20 '#f '#f)) - __obj118388)) + (##unchecked-structure-set! __obj119373 '() '20 '#f '#f)) + __obj119373)) (define |gx[:0:]#syntax-wrap| - (let ((__obj118389 + (let ((__obj119374 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118389 + __obj119374 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj119374 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj119374 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '(e source mark) '6 '#f '#f)) - (let ((__tmp118429 (cons |gx[1]#_g118406_| '()))) + (##unchecked-structure-set! __obj119374 '(e source mark) '6 '#f '#f)) + (let ((__tmp119414 (cons |gx[1]#_g119391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118389 __tmp118429 '3 '#f '#f)) + (##unchecked-structure-set! __obj119374 __tmp119414 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj119374 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj119374 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj119374 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '#f '11 '#f '#f)) - (let ((__tmp118430 |gx[1]#_g118431_|)) + (##unchecked-structure-set! __obj119374 '#f '11 '#f '#f)) + (let ((__tmp119415 |gx[1]#_g119416_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118389 __tmp118430 '12 '#f '#f)) - (let ((__tmp118432 |gx[1]#_g118433_|)) + (##unchecked-structure-set! __obj119374 __tmp119415 '12 '#f '#f)) + (let ((__tmp119417 |gx[1]#_g119418_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118389 __tmp118432 '13 '#f '#f)) - (let ((__tmp118434 |gx[1]#_g118435_|)) + (##unchecked-structure-set! __obj119374 __tmp119417 '13 '#f '#f)) + (let ((__tmp119419 |gx[1]#_g119420_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118389 __tmp118434 '14 '#f '#f)) - (let ((__tmp118436 - (cons (cons 'mark |gx[1]#_g118437_|) - (cons (cons 'e |gx[1]#_g118438_|) - (cons (cons 'source |gx[1]#_g118439_|) '()))))) + (##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! __obj118389 __tmp118436 '15 '#f '#f)) - (let ((__tmp118440 - (cons (cons 'mark |gx[1]#_g118441_|) - (cons (cons 'e |gx[1]#_g118442_|) - (cons (cons 'source |gx[1]#_g118443_|) '()))))) + (##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! __obj118389 __tmp118440 '16 '#f '#f)) - (let ((__tmp118444 - (cons (cons 'mark |gx[1]#_g118445_|) - (cons (cons 'e |gx[1]#_g118446_|) - (cons (cons 'source |gx[1]#_g118447_|) '()))))) + (##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! __obj118389 __tmp118444 '17 '#f '#f)) - (let ((__tmp118448 - (cons (cons 'mark |gx[1]#_g118449_|) - (cons (cons 'e |gx[1]#_g118450_|) - (cons (cons 'source |gx[1]#_g118451_|) '()))))) + (##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! __obj118389 __tmp118448 '18 '#f '#f)) + (##unchecked-structure-set! __obj119374 __tmp119433 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj119374 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj119374 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118389 '() '20 '#f '#f)) - __obj118389)) + (##unchecked-structure-set! __obj119374 '() '20 '#f '#f)) + __obj119374)) (define |gx[:0:]#syntax-quote| - (let ((__obj118390 + (let ((__obj119375 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118390 + __obj119375 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj119375 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj119375 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118390 + __obj119375 '(e source context marks) '6 '#f '#f)) - (let ((__tmp118452 (cons |gx[1]#_g118406_| '()))) + (let ((__tmp119437 (cons |gx[1]#_g119391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118390 __tmp118452 '3 '#f '#f)) + (##unchecked-structure-set! __obj119375 __tmp119437 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj119375 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj119375 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj119375 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '#f '11 '#f '#f)) - (let ((__tmp118453 |gx[1]#_g118454_|)) + (##unchecked-structure-set! __obj119375 '#f '11 '#f '#f)) + (let ((__tmp119438 |gx[1]#_g119439_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118390 __tmp118453 '12 '#f '#f)) - (let ((__tmp118455 |gx[1]#_g118456_|)) + (##unchecked-structure-set! __obj119375 __tmp119438 '12 '#f '#f)) + (let ((__tmp119440 |gx[1]#_g119441_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118390 __tmp118455 '13 '#f '#f)) - (let ((__tmp118457 |gx[1]#_g118458_|)) + (##unchecked-structure-set! __obj119375 __tmp119440 '13 '#f '#f)) + (let ((__tmp119442 |gx[1]#_g119443_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118390 __tmp118457 '14 '#f '#f)) - (let ((__tmp118459 - (cons (cons 'context |gx[1]#_g118460_|) - (cons (cons 'marks |gx[1]#_g118461_|) - (cons (cons 'e |gx[1]#_g118462_|) - (cons (cons 'source |gx[1]#_g118463_|) + (##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! __obj118390 __tmp118459 '15 '#f '#f)) - (let ((__tmp118464 - (cons (cons 'context |gx[1]#_g118465_|) - (cons (cons 'marks |gx[1]#_g118466_|) - (cons (cons 'e |gx[1]#_g118467_|) - (cons (cons 'source |gx[1]#_g118468_|) + (##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! __obj118390 __tmp118464 '16 '#f '#f)) - (let ((__tmp118469 - (cons (cons 'context |gx[1]#_g118470_|) - (cons (cons 'marks |gx[1]#_g118471_|) - (cons (cons 'e |gx[1]#_g118472_|) - (cons (cons 'source |gx[1]#_g118473_|) + (##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! __obj118390 __tmp118469 '17 '#f '#f)) - (let ((__tmp118474 - (cons (cons 'context |gx[1]#_g118475_|) - (cons (cons 'marks |gx[1]#_g118476_|) - (cons (cons 'e |gx[1]#_g118477_|) - (cons (cons 'source |gx[1]#_g118478_|) + (##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! __obj118390 __tmp118474 '18 '#f '#f)) + (##unchecked-structure-set! __obj119375 __tmp119459 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj119375 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj119375 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118390 '() '20 '#f '#f)) - __obj118390)))) + (##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 3bf10d211..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 1734131747) + (define gerbil/expander/top::timestamp 1734357962) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx125441%_) - (letrec ((_%expand-special125443%_ - (lambda (_%hd125445%_ _%K125446%_ _%rest125447%_ _%r125448%_) - (_%K125446%_ - _%rest125447%_ - (cons (gx#core-expand-top _%hd125445%_) _%r125448%_))))) - (gx#core-expand-block__0 _%stx125441%_ _%expand-special125443%_)))) + (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 (_%stx125194%_) - (letrec ((_%expand-special125196%_ - (lambda (_%hd125316%_ _%K125317%_ _%rest125318%_ _%r125319%_) - (let* ((_%K125323%_ - (lambda (_%e125321%_) - (_%K125317%_ - _%rest125318%_ - (cons _%e125321%_ _%r125319%_)))) - (_%e125324125353%_ _%hd125316%_) - (_%E125348125357%_ + (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" - _%e125324125353%_))) - (_%E125344125369%_ + _%e126309126338%_))) + (_%E126329126354%_ (lambda () - (if (gx#stx-pair? _%e125324125353%_) - (let ((_%e125349125361%_ - (gx#syntax-e _%e125324125353%_))) - (let ((_%hd125350125364%_ - (##car _%e125349125361%_)) - (_%tl125351125366%_ - (##cdr _%e125349125361%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126334126346%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126335126349%_ + (##car _%e126334126346%_)) + (_%tl126336126351%_ + (##cdr _%e126334126346%_))) (if (and (gx#identifier? - _%hd125350125364%_) + _%hd126335126349%_) (gx#core-identifier=? - _%hd125350125364%_ + _%hd126335126349%_ '%#define-runtime)) - (_%K125323%_ + (_%K126308%_ (gx#core-expand-define-runtime% - _%hd125316%_)) - (_%E125348125357%_)))) - (_%E125348125357%_)))) - (_%E125340125381%_ + _%hd126301%_)) + (_%E126333126342%_)))) + (_%E126333126342%_)))) + (_%E126325126366%_ (lambda () - (if (gx#stx-pair? _%e125324125353%_) - (let ((_%e125345125373%_ - (gx#syntax-e _%e125324125353%_))) - (let ((_%hd125346125376%_ - (##car _%e125345125373%_)) - (_%tl125347125378%_ - (##cdr _%e125345125373%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126330126358%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126331126361%_ + (##car _%e126330126358%_)) + (_%tl126332126363%_ + (##cdr _%e126330126358%_))) (if (and (gx#identifier? - _%hd125346125376%_) + _%hd126331126361%_) (gx#core-identifier=? - _%hd125346125376%_ + _%hd126331126361%_ '%#define-alias)) - (_%K125323%_ + (_%K126308%_ (gx#core-expand-define-alias% - _%hd125316%_)) - (_%E125344125369%_)))) - (_%E125344125369%_)))) - (_%E125330125393%_ + _%hd126301%_)) + (_%E126329126354%_)))) + (_%E126329126354%_)))) + (_%E126315126378%_ (lambda () - (if (gx#stx-pair? _%e125324125353%_) - (let ((_%e125341125385%_ - (gx#syntax-e _%e125324125353%_))) - (let ((_%hd125342125388%_ - (##car _%e125341125385%_)) - (_%tl125343125390%_ - (##cdr _%e125341125385%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126326126370%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126327126373%_ + (##car _%e126326126370%_)) + (_%tl126328126375%_ + (##cdr _%e126326126370%_))) (if (and (gx#identifier? - _%hd125342125388%_) + _%hd126327126373%_) (gx#core-identifier=? - _%hd125342125388%_ + _%hd126327126373%_ '%#define-syntax)) - (_%K125323%_ + (_%K126308%_ (gx#core-expand-define-syntax% - _%hd125316%_)) - (_%E125340125381%_)))) - (_%E125340125381%_)))) - (_%E125326125425%_ + _%hd126301%_)) + (_%E126325126366%_)))) + (_%E126325126366%_)))) + (_%E126311126410%_ (lambda () - (if (gx#stx-pair? _%e125324125353%_) - (let ((_%e125331125397%_ - (gx#syntax-e _%e125324125353%_))) - (let ((_%hd125332125400%_ - (##car _%e125331125397%_)) - (_%tl125333125402%_ - (##cdr _%e125331125397%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126316126382%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126317126385%_ + (##car _%e126316126382%_)) + (_%tl126318126387%_ + (##cdr _%e126316126382%_))) (if (and (gx#identifier? - _%hd125332125400%_) + _%hd126317126385%_) (gx#core-identifier=? - _%hd125332125400%_ + _%hd126317126385%_ '%#define-values)) - (if (gx#stx-pair? _%tl125333125402%_) - (let ((_%e125334125405%_ + (if (gx#stx-pair? _%tl126318126387%_) + (let ((_%e126319126390%_ (gx#syntax-e - _%tl125333125402%_))) - (let ((_%hd125335125408%_ - (##car _%e125334125405%_)) - (_%tl125336125410%_ - (##cdr _%e125334125405%_))) - (let ((_%hd-bind125413%_ - _%hd125335125408%_)) + _%tl126318126387%_))) + (let ((_%hd126320126393%_ + (##car _%e126319126390%_)) + (_%tl126321126395%_ + (##cdr _%e126319126390%_))) + (let ((_%hd-bind126398%_ + _%hd126320126393%_)) (if (gx#stx-pair? - _%tl125336125410%_) - (let ((_%e125337125415%_ + _%tl126321126395%_) + (let ((_%e126322126400%_ (gx#syntax-e - _%tl125336125410%_))) - (let ((_%hd125338125418%_ + _%tl126321126395%_))) + (let ((_%hd126323126403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125337125415%_)) - (_%tl125339125420%_ (##cdr _%e125337125415%_))) - (let ((_%expr125423%_ _%hd125338125418%_)) - (if (gx#stx-null? _%tl125339125420%_) - (if (gx#core-bind-values? _%hd-bind125413%_) + (##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-bind125413%_) - (_%K125323%_ _%hd125316%_)) - (_%E125330125393%_)) - (_%E125330125393%_))))) - (_%E125330125393%_))))) + (gx#core-bind-values!__0 _%hd-bind126398%_) + (_%K126308%_ _%hd126301%_)) + (_%E126315126378%_)) + (_%E126315126378%_))))) + (_%E126315126378%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125330125393%_)) - (_%E125330125393%_)))) - (_%E125330125393%_)))) - (_%E125325125437%_ + (_%E126315126378%_)) + (_%E126315126378%_)))) + (_%E126315126378%_)))) + (_%E126310126422%_ (lambda () - (if (gx#stx-pair? _%e125324125353%_) - (let ((_%e125327125429%_ - (gx#syntax-e _%e125324125353%_))) - (let ((_%hd125328125432%_ - (##car _%e125327125429%_)) - (_%tl125329125434%_ - (##cdr _%e125327125429%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126312126414%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126313126417%_ + (##car _%e126312126414%_)) + (_%tl126314126419%_ + (##cdr _%e126312126414%_))) (if (and (gx#identifier? - _%hd125328125432%_) + _%hd126313126417%_) (gx#core-identifier=? - _%hd125328125432%_ + _%hd126313126417%_ '%#begin-syntax)) - (_%K125323%_ + (_%K126308%_ (gx#core-expand-begin-syntax% - _%hd125316%_)) - (_%E125326125425%_)))) - (_%E125326125425%_))))) - (_%E125325125437%_)))) - (_%eval-body125197%_ - (lambda (_%rbody125205%_) - (let _%lp125207%_ ((_%rest125209%_ _%rbody125205%_) - (_%body125210%_ '()) - (_%ebody125211%_ '())) - (let* ((_%rest125212125220%_ _%rest125209%_) - (_%else125214125228%_ + _%hd126301%_)) + (_%E126311126410%_)))) + (_%E126311126410%_))))) + (_%E126310126422%_)))) + (_%eval-body126182%_ + (lambda (_%rbody126190%_) + (let _%lp126192%_ ((_%rest126194%_ _%rbody126190%_) + (_%body126195%_ '()) + (_%ebody126196%_ '())) + (let* ((_%rest126197126205%_ _%rest126194%_) + (_%else126199126213%_ (lambda () - (values _%body125210%_ + (values _%body126195%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody125211%_) - (gx#stx-source _%stx125194%_)))))) - (_%K125216125304%_ - (lambda (_%rest125231%_ _%hd125232%_) - (let* ((_%e125233125250%_ _%hd125232%_) - (_%E125245125254%_ + _%ebody126196%_) + (gx#stx-source _%stx126179%_)))))) + (_%K126201126289%_ + (lambda (_%rest126216%_ _%hd126217%_) + (let* ((_%e126218126235%_ _%hd126217%_) + (_%E126230126239%_ (lambda () - (_%lp125207%_ - _%rest125231%_ - (cons _%hd125232%_ _%body125210%_) - (cons _%hd125232%_ - _%ebody125211%_)))) - (_%E125235125266%_ + (_%lp126192%_ + _%rest126216%_ + (cons _%hd126217%_ _%body126195%_) + (cons _%hd126217%_ + _%ebody126196%_)))) + (_%E126220126251%_ (lambda () - (if (gx#stx-pair? _%e125233125250%_) - (let ((_%e125246125258%_ + (if (gx#stx-pair? _%e126218126235%_) + (let ((_%e126231126243%_ (gx#syntax-e - _%e125233125250%_))) - (let ((_%hd125247125261%_ - (##car _%e125246125258%_)) - (_%tl125248125263%_ - (##cdr _%e125246125258%_))) + _%e126218126235%_))) + (let ((_%hd126232126246%_ + (##car _%e126231126243%_)) + (_%tl126233126248%_ + (##cdr _%e126231126243%_))) (if (and (gx#identifier? - _%hd125247125261%_) + _%hd126232126246%_) (gx#core-identifier=? - _%hd125247125261%_ + _%hd126232126246%_ '%#begin-syntax)) - (_%lp125207%_ - _%rest125231%_ - (cons _%hd125232%_ - _%body125210%_) - _%ebody125211%_) - (_%E125245125254%_)))) - (_%E125245125254%_)))) - (_%E125234125300%_ + (_%lp126192%_ + _%rest126216%_ + (cons _%hd126217%_ + _%body126195%_) + _%ebody126196%_) + (_%E126230126239%_)))) + (_%E126230126239%_)))) + (_%E126219126285%_ (lambda () - (if (gx#stx-pair? _%e125233125250%_) - (let ((_%e125236125270%_ + (if (gx#stx-pair? _%e126218126235%_) + (let ((_%e126221126255%_ (gx#syntax-e - _%e125233125250%_))) - (let ((_%hd125237125273%_ - (##car _%e125236125270%_)) - (_%tl125238125275%_ - (##cdr _%e125236125270%_))) + _%e126218126235%_))) + (let ((_%hd126222126258%_ + (##car _%e126221126255%_)) + (_%tl126223126260%_ + (##cdr _%e126221126255%_))) (if (and (gx#identifier? - _%hd125237125273%_) + _%hd126222126258%_) (gx#core-identifier=? - _%hd125237125273%_ + _%hd126222126258%_ '%#define-values)) (if (gx#stx-pair? - _%tl125238125275%_) - (let ((_%e125239125278%_ + _%tl126223126260%_) + (let ((_%e126224126263%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl125238125275%_))) - (let ((_%hd125240125281%_ (##car _%e125239125278%_)) - (_%tl125241125283%_ (##cdr _%e125239125278%_))) - (let ((_%hd-bind125286%_ _%hd125240125281%_)) - (if (gx#stx-pair? _%tl125241125283%_) - (let ((_%e125242125288%_ - (gx#syntax-e _%tl125241125283%_))) - (let ((_%hd125243125291%_ - (##car _%e125242125288%_)) - (_%tl125244125293%_ - (##cdr _%e125242125288%_))) - (let ((_%expr125296%_ _%hd125243125291%_)) - (if (gx#stx-null? _%tl125244125293%_) - (let ((_%ehd125298%_ + (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-bind125286%_) + _%hd-bind126271%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr125296%_) + _%expr126281%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd125232%_)))) - (_%lp125207%_ - _%rest125231%_ - (cons _%ehd125298%_ _%body125210%_) - (cons _%ehd125298%_ _%ebody125211%_))) - (_%E125235125266%_))))) - (_%E125235125266%_))))) - (_%E125235125266%_)) - (_%E125235125266%_)))) + (gx#stx-source _%hd126217%_)))) + (_%lp126192%_ + _%rest126216%_ + (cons _%ehd126283%_ _%body126195%_) + (cons _%ehd126283%_ _%ebody126196%_))) + (_%E126220126251%_))))) + (_%E126220126251%_))))) + (_%E126220126251%_)) + (_%E126220126251%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125235125266%_))))) - (_%E125234125300%_))))) - (if (pair? _%rest125212125220%_) - (let ((_%hd125217125307%_ - (##car _%rest125212125220%_)) - (_%tl125218125309%_ - (##cdr _%rest125212125220%_))) - (let* ((_%hd125312%_ _%hd125217125307%_) - (_%rest125314%_ _%tl125218125309%_)) - (_%K125216125304%_ - _%rest125314%_ - _%hd125312%_))) - (_%else125214125228%_))))))) + (_%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* ((_%rbody125200%_ + (let* ((_%rbody126185%_ (gx#core-expand-block__1 - _%stx125194%_ - _%expand-special125196%_ + _%stx126179%_ + _%expand-special126181%_ '#f)) - (_g125464_ (_%eval-body125197%_ _%rbody125200%_))) + (_g126449_ (_%eval-body126182%_ _%rbody126185%_))) (begin - (let ((_g125465_ - (if (##values? _g125464_) - (##values-length _g125464_) + (let ((_g126450_ + (if (##values? _g126449_) + (##values-length _g126449_) 1))) - (if (not (##fx= _g125465_ 2)) - (error "Context expects 2 values" _g125465_))) - (let ((_%expanded-body125202%_ (##values-ref _g125464_ 0)) - (_%value125203%_ (##values-ref _g125464_ 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-body125202%_) + (gx#core-cons '%#begin-syntax _%expanded-body126187%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value125203%_ '()))) - (gx#stx-source _%stx125194%_)))))) + (cons _%value126188%_ '()))) + (gx#stx-source _%stx126179%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx125164%_) - (let* ((_%e125165125172%_ _%stx125164%_) - (_%E125167125176%_ + (lambda (_%stx126149%_) + (let* ((_%e126150126157%_ _%stx126149%_) + (_%E126152126161%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125165125172%_))) - (_%E125166125190%_ + _%e126150126157%_))) + (_%E126151126175%_ (lambda () - (if (gx#stx-pair? _%e125165125172%_) - (let ((_%e125168125180%_ - (gx#syntax-e _%e125165125172%_))) - (let ((_%hd125169125183%_ (##car _%e125168125180%_)) - (_%tl125170125185%_ (##cdr _%e125168125180%_))) - (let ((_%body125188%_ _%tl125170125185%_)) - (if (gx#stx-list? _%body125188%_) + (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 _%body125188%_) - (gx#stx-source _%stx125164%_)) - (_%E125167125176%_))))) - (_%E125167125176%_))))) - (_%E125166125190%_)))) + (gx#core-cons '%#begin-foreign _%body126173%_) + (gx#stx-source _%stx126149%_)) + (_%E126152126161%_))))) + (_%E126152126161%_))))) + (_%E126151126175%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx125162%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx125162%_))) + (lambda (_%stx126147%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx126147%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx125108%_) - (let* ((_%e125109125122%_ _%stx125108%_) - (_%E125111125126%_ + (lambda (_%stx126093%_) + (let* ((_%e126094126107%_ _%stx126093%_) + (_%E126096126111%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125109125122%_))) - (_%E125110125158%_ + _%e126094126107%_))) + (_%E126095126143%_ (lambda () - (if (gx#stx-pair? _%e125109125122%_) - (let ((_%e125112125130%_ - (gx#syntax-e _%e125109125122%_))) - (let ((_%hd125113125133%_ (##car _%e125112125130%_)) - (_%tl125114125135%_ (##cdr _%e125112125130%_))) - (if (gx#stx-pair? _%tl125114125135%_) - (let ((_%e125115125138%_ - (gx#syntax-e _%tl125114125135%_))) - (let ((_%hd125116125141%_ - (##car _%e125115125138%_)) - (_%tl125117125143%_ - (##cdr _%e125115125138%_))) - (let ((_%ann125146%_ _%hd125116125141%_)) - (if (gx#stx-pair? _%tl125117125143%_) - (let ((_%e125118125148%_ + (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 - _%tl125117125143%_))) - (let ((_%hd125119125151%_ - (##car _%e125118125148%_)) - (_%tl125120125153%_ - (##cdr _%e125118125148%_))) - (let ((_%expr125156%_ - _%hd125119125151%_)) + _%tl126102126128%_))) + (let ((_%hd126104126136%_ + (##car _%e126103126133%_)) + (_%tl126105126138%_ + (##cdr _%e126103126133%_))) + (let ((_%expr126141%_ + _%hd126104126136%_)) (if (gx#stx-null? - _%tl125120125153%_) + _%tl126105126138%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann125146%_ + (cons _%ann126131%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr125156%_) + _%expr126141%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx125108%_)) - (_%E125111125126%_))))) - (_%E125111125126%_))))) - (_%E125111125126%_)))) - (_%E125111125126%_))))) - (_%E125110125158%_)))) + _%stx126093%_)) + (_%E126096126111%_))))) + (_%E126096126111%_))))) + (_%E126096126111%_)))) + (_%E126096126111%_))))) + (_%E126095126143%_)))) (define gx#core-expand-local-block - (lambda (_%stx124832%_ _%body124833%_) - (letrec ((_%expand-special124835%_ - (lambda (_%hd125103%_ _%K125104%_ _%rest125105%_ _%r125106%_) - (_%K125104%_ + (lambda (_%stx125817%_ _%body125818%_) + (letrec ((_%expand-special125820%_ + (lambda (_%hd126088%_ _%K126089%_ _%rest126090%_ _%r126091%_) + (_%K126089%_ '() - (cons (_%expand-internal124836%_ - _%hd125103%_ - _%rest125105%_) - _%r125106%_)))) - (_%expand-internal124836%_ - (lambda (_%hd125099%_ _%rest125100%_) + (cons (_%expand-internal125821%_ + _%hd126088%_ + _%rest126090%_) + _%r126091%_)))) + (_%expand-internal125821%_ + (lambda (_%hd126084%_ _%rest126085%_) (__call-with-parameters (lambda () - (_%wrap-internal124838%_ + (_%wrap-internal125823%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd125099%_ _%rest125100%_)) - (gx#stx-source _%stx124832%_)) - _%expand-internal-special124837%_ + (cons '%#begin (cons _%hd126084%_ _%rest126085%_)) + (gx#stx-source _%stx125817%_)) + _%expand-internal-special125822%_ '#f))) gx#current-expander-context - (let ((__obj125458 + (let ((__obj126443 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj125458) - __obj125458)))) - (_%expand-internal-special124837%_ - (lambda (_%hd124994%_ _%K124995%_ _%rest124996%_ _%r124997%_) - (let* ((_%e124998125023%_ _%hd124994%_) - (_%E125018125027%_ + (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" - _%e124998125023%_))) - (_%E125014125039%_ + _%e125983126008%_))) + (_%E125999126024%_ (lambda () - (if (gx#stx-pair? _%e124998125023%_) - (let ((_%e125019125031%_ - (gx#syntax-e _%e124998125023%_))) - (let ((_%hd125020125034%_ - (##car _%e125019125031%_)) - (_%tl125021125036%_ - (##cdr _%e125019125031%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e126004126016%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd126005126019%_ + (##car _%e126004126016%_)) + (_%tl126006126021%_ + (##cdr _%e126004126016%_))) (if (and (gx#identifier? - _%hd125020125034%_) + _%hd126005126019%_) (gx#core-identifier=? - _%hd125020125034%_ + _%hd126005126019%_ '%#declare)) - (_%K124995%_ - _%rest124996%_ + (_%K125980%_ + _%rest125981%_ (cons (gx#core-expand-declare% - _%hd124994%_) - _%r124997%_)) - (_%E125018125027%_)))) - (_%E125018125027%_)))) - (_%E125010125051%_ + _%hd125979%_) + _%r125982%_)) + (_%E126003126012%_)))) + (_%E126003126012%_)))) + (_%E125995126036%_ (lambda () - (if (gx#stx-pair? _%e124998125023%_) - (let ((_%e125015125043%_ - (gx#syntax-e _%e124998125023%_))) - (let ((_%hd125016125046%_ - (##car _%e125015125043%_)) - (_%tl125017125048%_ - (##cdr _%e125015125043%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e126000126028%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd126001126031%_ + (##car _%e126000126028%_)) + (_%tl126002126033%_ + (##cdr _%e126000126028%_))) (if (and (gx#identifier? - _%hd125016125046%_) + _%hd126001126031%_) (gx#core-identifier=? - _%hd125016125046%_ + _%hd126001126031%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd124994%_) - (_%K124995%_ - _%rest124996%_ - _%r124997%_)) - (_%E125014125039%_)))) - (_%E125014125039%_)))) - (_%E125000125063%_ + _%hd125979%_) + (_%K125980%_ + _%rest125981%_ + _%r125982%_)) + (_%E125999126024%_)))) + (_%E125999126024%_)))) + (_%E125985126048%_ (lambda () - (if (gx#stx-pair? _%e124998125023%_) - (let ((_%e125011125055%_ - (gx#syntax-e _%e124998125023%_))) - (let ((_%hd125012125058%_ - (##car _%e125011125055%_)) - (_%tl125013125060%_ - (##cdr _%e125011125055%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e125996126040%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd125997126043%_ + (##car _%e125996126040%_)) + (_%tl125998126045%_ + (##cdr _%e125996126040%_))) (if (and (gx#identifier? - _%hd125012125058%_) + _%hd125997126043%_) (gx#core-identifier=? - _%hd125012125058%_ + _%hd125997126043%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd124994%_) - (_%K124995%_ - _%rest124996%_ - _%r124997%_)) - (_%E125010125051%_)))) - (_%E125010125051%_)))) - (_%E124999125095%_ + _%hd125979%_) + (_%K125980%_ + _%rest125981%_ + _%r125982%_)) + (_%E125995126036%_)))) + (_%E125995126036%_)))) + (_%E125984126080%_ (lambda () - (if (gx#stx-pair? _%e124998125023%_) - (let ((_%e125001125067%_ - (gx#syntax-e _%e124998125023%_))) - (let ((_%hd125002125070%_ - (##car _%e125001125067%_)) - (_%tl125003125072%_ - (##cdr _%e125001125067%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e125986126052%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd125987126055%_ + (##car _%e125986126052%_)) + (_%tl125988126057%_ + (##cdr _%e125986126052%_))) (if (and (gx#identifier? - _%hd125002125070%_) + _%hd125987126055%_) (gx#core-identifier=? - _%hd125002125070%_ + _%hd125987126055%_ '%#define-values)) - (if (gx#stx-pair? _%tl125003125072%_) - (let ((_%e125004125075%_ + (if (gx#stx-pair? _%tl125988126057%_) + (let ((_%e125989126060%_ (gx#syntax-e - _%tl125003125072%_))) - (let ((_%hd125005125078%_ - (##car _%e125004125075%_)) - (_%tl125006125080%_ - (##cdr _%e125004125075%_))) - (let ((_%hd-bind125083%_ - _%hd125005125078%_)) + _%tl125988126057%_))) + (let ((_%hd125990126063%_ + (##car _%e125989126060%_)) + (_%tl125991126065%_ + (##cdr _%e125989126060%_))) + (let ((_%hd-bind126068%_ + _%hd125990126063%_)) (if (gx#stx-pair? - _%tl125006125080%_) - (let ((_%e125007125085%_ + _%tl125991126065%_) + (let ((_%e125992126070%_ (gx#syntax-e - _%tl125006125080%_))) - (let ((_%hd125008125088%_ + _%tl125991126065%_))) + (let ((_%hd125993126073%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125007125085%_)) - (_%tl125009125090%_ (##cdr _%e125007125085%_))) - (let ((_%expr125093%_ _%hd125008125088%_)) - (if (gx#stx-null? _%tl125009125090%_) - (if (gx#core-bind-values? _%hd-bind125083%_) + (##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-bind125083%_) - (_%K124995%_ - _%rest124996%_ - (cons _%hd124994%_ _%r124997%_))) - (_%E125000125063%_)) - (_%E125000125063%_))))) - (_%E125000125063%_))))) + (gx#core-bind-values!__0 _%hd-bind126068%_) + (_%K125980%_ + _%rest125981%_ + (cons _%hd125979%_ _%r125982%_))) + (_%E125985126048%_)) + (_%E125985126048%_))))) + (_%E125985126048%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125000125063%_)) - (_%E125000125063%_)))) - (_%E125000125063%_))))) - (_%E124999125095%_)))) - (_%wrap-internal124838%_ - (lambda (_%rbody124840%_) - (let _%lp124842%_ ((_%rest124844%_ _%rbody124840%_) - (_%decls124845%_ '()) - (_%bind124846%_ '()) - (_%body124847%_ '())) - (let* ((_%e124848124855%_ _%rest124844%_) - (_%E124850124904%_ + (_%E125985126048%_)) + (_%E125985126048%_)))) + (_%E125985126048%_))))) + (_%E125984126080%_)))) + (_%wrap-internal125823%_ + (lambda (_%rbody125825%_) + (let _%lp125827%_ ((_%rest125829%_ _%rbody125825%_) + (_%decls125830%_ '()) + (_%bind125831%_ '()) + (_%body125832%_ '())) + (let* ((_%e125833125840%_ _%rest125829%_) + (_%E125835125889%_ (lambda () - (let* ((_%body124899%_ - (let* ((_%body124858124868%_ - _%body124847%_) - (_%else124861124876%_ + (let* ((_%body125884%_ + (let* ((_%body125843125853%_ + _%body125832%_) + (_%else125846125861%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body124847%_) + _%body125832%_) (gx#stx-source - _%stx124832%_))))) - (let ((_%K124866124896%_ + _%stx125817%_))))) + (let ((_%K125851125881%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx124832%_))) - (_%K124863124882%_ - (lambda (_%expr124880%_) - _%expr124880%_))) - (let ((_%try-match124860124892%_ + _%stx125817%_))) + (_%K125848125867%_ + (lambda (_%expr125865%_) + _%expr125865%_))) + (let ((_%try-match125845125877%_ (lambda () - (if (pair? _%body124858124868%_) - (let ((_%tl124865124887%_ - (##cdr _%body124858124868%_)) - (_%hd124864124885%_ - (##car _%body124858124868%_))) - (if (null? _%tl124865124887%_) - (let ((_%expr124890%_ + (if (pair? _%body125843125853%_) + (let ((_%tl125850125872%_ + (##cdr _%body125843125853%_)) + (_%hd125849125870%_ + (##car _%body125843125853%_))) + (if (null? _%tl125850125872%_) + (let ((_%expr125875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124864124885%_)) - (_%K124863124882%_ _%expr124890%_)) - (_%else124861124876%_))) - (_%else124861124876%_))))) + _%hd125849125870%_)) + (_%K125848125867%_ _%expr125875%_)) + (_%else125846125861%_))) + (_%else125846125861%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? _%body124858124868%_) - (_%K124866124896%_) - (_%try-match124860124892%_)))))) - (_%body124901%_ - (if (null? _%bind124846%_) - _%body124899%_ + (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 _%bind124846%_ - (cons _%body124899%_ + (cons _%bind125831%_ + (cons _%body125884%_ '()))) - (gx#stx-source _%stx124832%_))))) - (if (null? _%decls124845%_) - _%body124901%_ + (gx#stx-source _%stx125817%_))))) + (if (null? _%decls125830%_) + _%body125886%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls124845%_ - (cons _%body124901%_ '()))) - (gx#stx-source _%stx124832%_)))))) - (_%E124849124990%_ + (cons _%decls125830%_ + (cons _%body125886%_ '()))) + (gx#stx-source _%stx125817%_)))))) + (_%E125834125975%_ (lambda () - (if (gx#stx-pair? _%e124848124855%_) - (let ((_%e124851124908%_ - (gx#syntax-e _%e124848124855%_))) - (let ((_%hd124852124911%_ - (##car _%e124851124908%_)) - (_%tl124853124913%_ - (##cdr _%e124851124908%_))) - (let* ((_%hd124916%_ - _%hd124852124911%_) - (_%rest124918%_ - _%tl124853124913%_) - (_%e124919124936%_ _%hd124916%_) - (_%E124931124940%_ + (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? _%bind124846%_) - (_%lp124842%_ - _%rest124918%_ - _%decls124845%_ - _%bind124846%_ - (cons _%hd124916%_ - _%body124847%_)) - (_%lp124842%_ - _%rest124918%_ - _%decls124845%_ + (if (null? _%bind125831%_) + (_%lp125827%_ + _%rest125903%_ + _%decls125830%_ + _%bind125831%_ + (cons _%hd125901%_ + _%body125832%_)) + (_%lp125827%_ + _%rest125903%_ + _%decls125830%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd124916%_ '())) - _%bind124846%_) - _%body124847%_)))) + (cons _%hd125901%_ '())) + _%bind125831%_) + _%body125832%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124921124954%_ + (_%E125906125939%_ (lambda () (if (gx#stx-pair? - _%e124919124936%_) - (let ((_%e124932124944%_ + _%e125904125921%_) + (let ((_%e125917125929%_ (gx#syntax-e - _%e124919124936%_))) - (let ((_%hd124933124947%_ - (##car _%e124932124944%_)) - (_%tl124934124949%_ - (##cdr _%e124932124944%_))) + _%e125904125921%_))) + (let ((_%hd125918125932%_ + (##car _%e125917125929%_)) + (_%tl125919125934%_ + (##cdr _%e125917125929%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124933124947%_) + _%hd125918125932%_) (gx#core-identifier=? - _%hd124933124947%_ + _%hd125918125932%_ '%#declare)) - (let ((_%xdecls124952%_ _%tl124934124949%_)) - (_%lp124842%_ - _%rest124918%_ - (gx#stx-foldr cons _%decls124845%_ _%xdecls124952%_) - _%bind124846%_ - _%body124847%_)) - (_%E124931124940%_)))) - (_%E124931124940%_)))) + (let ((_%xdecls125937%_ _%tl125919125934%_)) + (_%lp125827%_ + _%rest125903%_ + (gx#stx-foldr cons _%decls125830%_ _%xdecls125937%_) + _%bind125831%_ + _%body125832%_)) + (_%E125916125925%_)))) + (_%E125916125925%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124920124986%_ + (_%E125905125971%_ (lambda () (if (gx#stx-pair? - _%e124919124936%_) - (let ((_%e124922124958%_ + _%e125904125921%_) + (let ((_%e125907125943%_ (gx#syntax-e - _%e124919124936%_))) - (let ((_%hd124923124961%_ - (##car _%e124922124958%_)) - (_%tl124924124963%_ - (##cdr _%e124922124958%_))) + _%e125904125921%_))) + (let ((_%hd125908125946%_ + (##car _%e125907125943%_)) + (_%tl125909125948%_ + (##cdr _%e125907125943%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124923124961%_) + _%hd125908125946%_) (gx#core-identifier=? - _%hd124923124961%_ + _%hd125908125946%_ '%#define-values)) - (if (gx#stx-pair? _%tl124924124963%_) - (let ((_%e124925124966%_ - (gx#syntax-e _%tl124924124963%_))) - (let ((_%hd124926124969%_ - (##car _%e124925124966%_)) - (_%tl124927124971%_ - (##cdr _%e124925124966%_))) - (let ((_%hd-bind124974%_ _%hd124926124969%_)) - (if (gx#stx-pair? _%tl124927124971%_) - (let ((_%e124928124976%_ - (gx#syntax-e _%tl124927124971%_))) - (let ((_%hd124929124979%_ - (##car _%e124928124976%_)) - (_%tl124930124981%_ - (##cdr _%e124928124976%_))) - (let ((_%expr124984%_ - _%hd124929124979%_)) - (if (gx#stx-null? _%tl124930124981%_) - (_%lp124842%_ - _%rest124918%_ - _%decls124845%_ + (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-bind124974%_) + _%hd-bind125959%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124984%_) + _%expr125969%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind124846%_) - _%body124847%_) - (_%E124921124954%_))))) - (_%E124921124954%_))))) - (_%E124921124954%_)) - (_%E124921124954%_)))) - (_%E124921124954%_))))) + _%bind125831%_) + _%body125832%_) + (_%E125906125939%_))))) + (_%E125906125939%_))))) + (_%E125906125939%_)) + (_%E125906125939%_)))) + (_%E125906125939%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124920124986%_)))) - (_%E124850124904%_))))) - (_%E124849124990%_)))))) + (_%E125905125971%_)))) + (_%E125835125889%_))))) + (_%E125834125975%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body124833%_) - (gx#stx-source _%stx124832%_)) - _%expand-special124835%_)))) + (cons '%#begin _%body125818%_) + (gx#stx-source _%stx125817%_)) + _%expand-special125820%_)))) (define gx#core-expand-declare% - (lambda (_%stx124770%_) - (let* ((_%e124771124778%_ _%stx124770%_) - (_%E124773124782%_ + (lambda (_%stx125755%_) + (let* ((_%e125756125763%_ _%stx125755%_) + (_%E125758125767%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124771124778%_))) - (_%E124772124828%_ + _%e125756125763%_))) + (_%E125757125813%_ (lambda () - (if (gx#stx-pair? _%e124771124778%_) - (let ((_%e124774124786%_ - (gx#syntax-e _%e124771124778%_))) - (let ((_%hd124775124789%_ (##car _%e124774124786%_)) - (_%tl124776124791%_ (##cdr _%e124774124786%_))) - (let ((_%body124794%_ _%tl124776124791%_)) - (if (gx#stx-list? _%body124794%_) + (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 (_%decl124796%_) - (let* ((_%e124797124804%_ _%decl124796%_) - (_%E124799124808%_ + (lambda (_%decl125781%_) + (let* ((_%e125782125789%_ _%decl125781%_) + (_%E125784125793%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124797124804%_))) - (_%E124798124824%_ + _%e125782125789%_))) + (_%E125783125809%_ (lambda () (if (gx#stx-pair? - _%e124797124804%_) - (let ((_%e124800124812%_ + _%e125782125789%_) + (let ((_%e125785125797%_ (gx#syntax-e - _%e124797124804%_))) - (let ((_%hd124801124815%_ - (##car _%e124800124812%_)) - (_%tl124802124817%_ - (##cdr _%e124800124812%_))) - (let* ((_%head124820%_ - _%hd124801124815%_) - (_%args124822%_ - _%tl124802124817%_)) + _%e125782125789%_))) + (let ((_%hd125786125800%_ + (##car _%e125785125797%_)) + (_%tl125787125802%_ + (##cdr _%e125785125797%_))) + (let* ((_%head125805%_ + _%hd125786125800%_) + (_%args125807%_ + _%tl125787125802%_)) (if (gx#stx-list? - _%args124822%_) + _%args125807%_) (gx#stx-map1 gx#core-quote-syntax - _%decl124796%_) - (_%E124799124808%_))))) - (_%E124799124808%_))))) - (_%E124798124824%_))) - _%body124794%_)) - (gx#stx-source _%stx124770%_)) - (_%E124773124782%_))))) - (_%E124773124782%_))))) - (_%E124772124828%_)))) + _%decl125781%_) + (_%E125784125793%_))))) + (_%E125784125793%_))))) + (_%E125783125809%_))) + _%body125779%_)) + (gx#stx-source _%stx125755%_)) + (_%E125758125767%_))))) + (_%E125758125767%_))))) + (_%E125757125813%_)))) (define gx#core-expand-extern% - (lambda (_%stx124674%_) - (let* ((_%e124675124682%_ _%stx124674%_) - (_%E124677124686%_ + (lambda (_%stx125659%_) + (let* ((_%e125660125667%_ _%stx125659%_) + (_%E125662125671%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124675124682%_))) - (_%E124676124766%_ + _%e125660125667%_))) + (_%E125661125751%_ (lambda () - (if (gx#stx-pair? _%e124675124682%_) - (let ((_%e124678124690%_ - (gx#syntax-e _%e124675124682%_))) - (let ((_%hd124679124693%_ (##car _%e124678124690%_)) - (_%tl124680124695%_ (##cdr _%e124678124690%_))) - (let ((_%body124698%_ _%tl124680124695%_)) - (let _%lp124700%_ ((_%rest124702%_ _%body124698%_) - (_%r124703%_ '())) - (let* ((_%e124704124718%_ _%rest124702%_) - (_%E124716124722%_ + (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" - _%stx124674%_))) - (_%E124706124726%_ + _%stx125659%_))) + (_%E125691125711%_ (lambda () - (if (gx#stx-null? _%e124704124718%_) + (if (gx#stx-null? _%e125689125703%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r124703%_)) - (gx#stx-source _%stx124674%_)) - (_%E124716124722%_)))) - (_%E124705124762%_ + (reverse _%r125688%_)) + (gx#stx-source _%stx125659%_)) + (_%E125701125707%_)))) + (_%E125690125747%_ (lambda () - (if (gx#stx-pair? _%e124704124718%_) - (let ((_%e124707124730%_ + (if (gx#stx-pair? _%e125689125703%_) + (let ((_%e125692125715%_ (gx#syntax-e - _%e124704124718%_))) - (let ((_%hd124708124733%_ - (##car _%e124707124730%_)) - (_%tl124709124735%_ - (##cdr _%e124707124730%_))) + _%e125689125703%_))) + (let ((_%hd125693125718%_ + (##car _%e125692125715%_)) + (_%tl125694125720%_ + (##cdr _%e125692125715%_))) (if (gx#stx-pair? - _%hd124708124733%_) - (let ((_%e124710124738%_ + _%hd125693125718%_) + (let ((_%e125695125723%_ (gx#syntax-e - _%hd124708124733%_))) - (let ((_%hd124711124741%_ - (##car _%e124710124738%_)) - (_%tl124712124743%_ - (##cdr _%e124710124738%_))) - (let ((_%id124746%_ - _%hd124711124741%_)) + _%hd125693125718%_))) + (let ((_%hd125696125726%_ + (##car _%e125695125723%_)) + (_%tl125697125728%_ + (##cdr _%e125695125723%_))) + (let ((_%id125731%_ + _%hd125696125726%_)) (if (gx#stx-pair? - _%tl124712124743%_) - (let ((_%e124713124748%_ + _%tl125697125728%_) + (let ((_%e125698125733%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124712124743%_))) - (let ((_%hd124714124751%_ (##car _%e124713124748%_)) - (_%tl124715124753%_ (##cdr _%e124713124748%_))) - (let ((_%eid124756%_ _%hd124714124751%_)) - (if (gx#stx-null? _%tl124715124753%_) - (let ((_%rest124758%_ _%tl124709124735%_)) - (if (and (gx#identifier? _%id124746%_) - (gx#identifier? _%eid124756%_)) - (let ((_%eid124760%_ - (gx#stx-e _%eid124756%_))) + (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 - _%id124746%_ - _%eid124760%_) - (_%lp124700%_ - _%rest124758%_ + _%id125731%_ + _%eid125745%_) + (_%lp125685%_ + _%rest125743%_ (cons (cons (gx#core-quote-syntax__0 - _%id124746%_) - (cons _%eid124760%_ '())) - _%r124703%_))) - (_%E124706124726%_))) - (_%E124706124726%_))))) - (_%E124706124726%_))))) + _%id125731%_) + (cons _%eid125745%_ '())) + _%r125688%_))) + (_%E125691125711%_))) + (_%E125691125711%_))))) + (_%E125691125711%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124706124726%_)))) - (_%E124706124726%_))))) - (_%E124705124762%_)))))) - (_%E124677124686%_))))) - (_%E124676124766%_)))) + (_%E125691125711%_)))) + (_%E125691125711%_))))) + (_%E125690125747%_)))))) + (_%E125662125671%_))))) + (_%E125661125751%_)))) (define gx#core-expand-define-values% - (lambda (_%stx124620%_) - (let* ((_%e124621124634%_ _%stx124620%_) - (_%E124623124638%_ + (lambda (_%stx125605%_) + (let* ((_%e125606125619%_ _%stx125605%_) + (_%E125608125623%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124621124634%_))) - (_%E124622124670%_ + _%e125606125619%_))) + (_%E125607125655%_ (lambda () - (if (gx#stx-pair? _%e124621124634%_) - (let ((_%e124624124642%_ - (gx#syntax-e _%e124621124634%_))) - (let ((_%hd124625124645%_ (##car _%e124624124642%_)) - (_%tl124626124647%_ (##cdr _%e124624124642%_))) - (if (gx#stx-pair? _%tl124626124647%_) - (let ((_%e124627124650%_ - (gx#syntax-e _%tl124626124647%_))) - (let ((_%hd124628124653%_ - (##car _%e124627124650%_)) - (_%tl124629124655%_ - (##cdr _%e124627124650%_))) - (let ((_%hd124658%_ _%hd124628124653%_)) - (if (gx#stx-pair? _%tl124629124655%_) - (let ((_%e124630124660%_ + (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 - _%tl124629124655%_))) - (let ((_%hd124631124663%_ - (##car _%e124630124660%_)) - (_%tl124632124665%_ - (##cdr _%e124630124660%_))) - (let ((_%expr124668%_ - _%hd124631124663%_)) + _%tl125614125640%_))) + (let ((_%hd125616125648%_ + (##car _%e125615125645%_)) + (_%tl125617125650%_ + (##cdr _%e125615125645%_))) + (let ((_%expr125653%_ + _%hd125616125648%_)) (if (gx#stx-null? - _%tl124632124665%_) + _%tl125617125650%_) (if (gx#core-bind-values? - _%hd124658%_) + _%hd125643%_) (begin (gx#core-bind-values!__0 - _%hd124658%_) + _%hd125643%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124658%_) - (cons (gx#core-expand-expression _%expr124668%_) + _%hd125643%_) + (cons (gx#core-expand-expression _%expr125653%_) '()))) - (gx#stx-source _%stx124620%_))) - (_%E124623124638%_)) + (gx#stx-source _%stx125605%_))) + (_%E125608125623%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124623124638%_))))) - (_%E124623124638%_))))) - (_%E124623124638%_)))) - (_%E124623124638%_))))) - (_%E124622124670%_)))) + (_%E125608125623%_))))) + (_%E125608125623%_))))) + (_%E125608125623%_)))) + (_%E125608125623%_))))) + (_%E125607125655%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx124564%_) - (let* ((_%e124565124578%_ _%stx124564%_) - (_%E124567124582%_ + (lambda (_%stx125549%_) + (let* ((_%e125550125563%_ _%stx125549%_) + (_%E125552125567%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124565124578%_))) - (_%E124566124616%_ + _%e125550125563%_))) + (_%E125551125601%_ (lambda () - (if (gx#stx-pair? _%e124565124578%_) - (let ((_%e124568124586%_ - (gx#syntax-e _%e124565124578%_))) - (let ((_%hd124569124589%_ (##car _%e124568124586%_)) - (_%tl124570124591%_ (##cdr _%e124568124586%_))) - (if (gx#stx-pair? _%tl124570124591%_) - (let ((_%e124571124594%_ - (gx#syntax-e _%tl124570124591%_))) - (let ((_%hd124572124597%_ - (##car _%e124571124594%_)) - (_%tl124573124599%_ - (##cdr _%e124571124594%_))) - (let ((_%id124602%_ _%hd124572124597%_)) - (if (gx#stx-pair? _%tl124573124599%_) - (let ((_%e124574124604%_ + (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 - _%tl124573124599%_))) - (let ((_%hd124575124607%_ - (##car _%e124574124604%_)) - (_%tl124576124609%_ - (##cdr _%e124574124604%_))) - (let ((_%binding-id124612%_ - _%hd124575124607%_)) + _%tl125558125584%_))) + (let ((_%hd125560125592%_ + (##car _%e125559125589%_)) + (_%tl125561125594%_ + (##cdr _%e125559125589%_))) + (let ((_%binding-id125597%_ + _%hd125560125592%_)) (if (gx#stx-null? - _%tl124576124609%_) + _%tl125561125594%_) (if (and (gx#identifier? - _%id124602%_) + _%id125587%_) (gx#identifier? - _%binding-id124612%_)) - (let ((_%eid124614%_ + _%binding-id125597%_)) + (let ((_%eid125599%_ (gx#stx-e - _%binding-id124612%_))) + _%binding-id125597%_))) (gx#core-bind-runtime-reference!__0 - _%id124602%_ - _%eid124614%_) + _%id125587%_ + _%eid125599%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124602%_) - (cons _%eid124614%_ '()))))) - (_%E124567124582%_)) + _%id125587%_) + (cons _%eid125599%_ '()))))) + (_%E125552125567%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124567124582%_))))) - (_%E124567124582%_))))) - (_%E124567124582%_)))) - (_%E124567124582%_))))) - (_%E124566124616%_)))) + (_%E125552125567%_))))) + (_%E125552125567%_))))) + (_%E125552125567%_)))) + (_%E125552125567%_))))) + (_%E125551125601%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx124507%_) - (let* ((_%e124508124521%_ _%stx124507%_) - (_%E124510124525%_ + (lambda (_%stx125492%_) + (let* ((_%e125493125506%_ _%stx125492%_) + (_%E125495125510%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124508124521%_))) - (_%E124509124560%_ + _%e125493125506%_))) + (_%E125494125545%_ (lambda () - (if (gx#stx-pair? _%e124508124521%_) - (let ((_%e124511124529%_ - (gx#syntax-e _%e124508124521%_))) - (let ((_%hd124512124532%_ (##car _%e124511124529%_)) - (_%tl124513124534%_ (##cdr _%e124511124529%_))) - (if (gx#stx-pair? _%tl124513124534%_) - (let ((_%e124514124537%_ - (gx#syntax-e _%tl124513124534%_))) - (let ((_%hd124515124540%_ - (##car _%e124514124537%_)) - (_%tl124516124542%_ - (##cdr _%e124514124537%_))) - (let ((_%id124545%_ _%hd124515124540%_)) - (if (gx#stx-pair? _%tl124516124542%_) - (let ((_%e124517124547%_ + (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 - _%tl124516124542%_))) - (let ((_%hd124518124550%_ - (##car _%e124517124547%_)) - (_%tl124519124552%_ - (##cdr _%e124517124547%_))) - (let ((_%expr124555%_ - _%hd124518124550%_)) + _%tl125501125527%_))) + (let ((_%hd125503125535%_ + (##car _%e125502125532%_)) + (_%tl125504125537%_ + (##cdr _%e125502125532%_))) + (let ((_%expr125540%_ + _%hd125503125535%_)) (if (gx#stx-null? - _%tl124519124552%_) + _%tl125504125537%_) (if (gx#identifier? - _%id124545%_) - (let ((_g125466_ + _%id125530%_) + (let ((_g126451_ (gx#core-expand-expression+1 - _%expr124555%_))) + _%expr125540%_))) (begin - (let ((_g125467_ + (let ((_g126452_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g125466_) - (##values-length _g125466_) + (if (##values? _g126451_) + (##values-length _g126451_) 1))) - (if (not (##fx= _g125467_ 2)) - (error "Context expects 2 values" _g125467_))) - (let ((_%e-stx124557%_ (##values-ref _g125466_ 0)) - (_%e124558%_ (##values-ref _g125466_ 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 _%id124545%_ _%e124558%_) + (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 _%id124545%_) - (cons _%e-stx124557%_ '()))) - (gx#stx-source _%stx124507%_)))))) - (_%E124510124525%_)) + (cons (gx#core-quote-syntax__0 _%id125530%_) + (cons _%e-stx125542%_ '()))) + (gx#stx-source _%stx125492%_)))))) + (_%E125495125510%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124510124525%_))))) - (_%E124510124525%_))))) - (_%E124510124525%_)))) - (_%E124510124525%_))))) - (_%E124509124560%_)))) + (_%E125495125510%_))))) + (_%E125495125510%_))))) + (_%E125495125510%_)))) + (_%E125495125510%_))))) + (_%E125494125545%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx124451%_) - (let* ((_%e124452124465%_ _%stx124451%_) - (_%E124454124469%_ + (lambda (_%stx125436%_) + (let* ((_%e125437125450%_ _%stx125436%_) + (_%E125439125454%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124452124465%_))) - (_%E124453124503%_ + _%e125437125450%_))) + (_%E125438125488%_ (lambda () - (if (gx#stx-pair? _%e124452124465%_) - (let ((_%e124455124473%_ - (gx#syntax-e _%e124452124465%_))) - (let ((_%hd124456124476%_ (##car _%e124455124473%_)) - (_%tl124457124478%_ (##cdr _%e124455124473%_))) - (if (gx#stx-pair? _%tl124457124478%_) - (let ((_%e124458124481%_ - (gx#syntax-e _%tl124457124478%_))) - (let ((_%hd124459124484%_ - (##car _%e124458124481%_)) - (_%tl124460124486%_ - (##cdr _%e124458124481%_))) - (let ((_%id124489%_ _%hd124459124484%_)) - (if (gx#stx-pair? _%tl124460124486%_) - (let ((_%e124461124491%_ + (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 - _%tl124460124486%_))) - (let ((_%hd124462124494%_ - (##car _%e124461124491%_)) - (_%tl124463124496%_ - (##cdr _%e124461124491%_))) - (let ((_%alias-id124499%_ - _%hd124462124494%_)) + _%tl125445125471%_))) + (let ((_%hd125447125479%_ + (##car _%e125446125476%_)) + (_%tl125448125481%_ + (##cdr _%e125446125476%_))) + (let ((_%alias-id125484%_ + _%hd125447125479%_)) (if (gx#stx-null? - _%tl124463124496%_) + _%tl125448125481%_) (if (and (gx#identifier? - _%id124489%_) + _%id125474%_) (gx#identifier? - _%alias-id124499%_)) - (let ((_%alias-id124501%_ + _%alias-id125484%_)) + (let ((_%alias-id125486%_ (gx#core-quote-syntax__0 - _%alias-id124499%_))) + _%alias-id125484%_))) (gx#core-bind-alias!__0 - _%id124489%_ - _%alias-id124501%_) + _%id125474%_ + _%alias-id125486%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124489%_) - (cons _%alias-id124501%_ '()))))) - (_%E124454124469%_)) + _%id125474%_) + (cons _%alias-id125486%_ '()))))) + (_%E125439125454%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124454124469%_))))) - (_%E124454124469%_))))) - (_%E124454124469%_)))) - (_%E124454124469%_))))) - (_%E124453124503%_)))) + (_%E125439125454%_))))) + (_%E125439125454%_))))) + (_%E125439125454%_)))) + (_%E125439125454%_))))) + (_%E125438125488%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx124394%_ _%wrap?124395%_) - (let* ((_%e124396124406%_ _%stx124394%_) - (_%E124398124410%_ + (lambda (_%stx125379%_ _%wrap?125380%_) + (let* ((_%e125381125391%_ _%stx125379%_) + (_%E125383125395%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124396124406%_))) - (_%E124397124437%_ + _%e125381125391%_))) + (_%E125382125422%_ (lambda () - (if (gx#stx-pair? _%e124396124406%_) - (let ((_%e124399124414%_ - (gx#syntax-e _%e124396124406%_))) - (let ((_%hd124400124417%_ (##car _%e124399124414%_)) - (_%tl124401124419%_ (##cdr _%e124399124414%_))) - (if (gx#stx-pair? _%tl124401124419%_) - (let ((_%e124402124422%_ - (gx#syntax-e _%tl124401124419%_))) - (let ((_%hd124403124425%_ - (##car _%e124402124422%_)) - (_%tl124404124427%_ - (##cdr _%e124402124422%_))) - (let* ((_%hd124430%_ _%hd124403124425%_) - (_%body124432%_ _%tl124404124427%_)) - (if (gx#core-bind-values? _%hd124430%_) + (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 - _%hd124430%_) - (let ((_%body124435%_ + _%hd125415%_) + (let ((_%body125420%_ (cons (gx#core-quote-bind-values - _%hd124430%_) + _%hd125415%_) (cons (gx#core-expand-local-block - _%stx124394%_ - _%body124432%_) + _%stx125379%_ + _%body125417%_) '())))) - (if _%wrap?124395%_ + (if _%wrap?125380%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body124435%_) + _%body125420%_) (gx#stx-source - _%stx124394%_)) - _%body124435%_))) + _%stx125379%_)) + _%body125420%_))) gx#current-expander-context - (let ((__obj125459 + (let ((__obj126444 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125459) - __obj125459)) - (_%E124398124410%_))))) - (_%E124398124410%_)))) - (_%E124398124410%_))))) - (_%E124397124437%_)))) + __obj126444) + __obj126444)) + (_%E125383125395%_))))) + (_%E125383125395%_)))) + (_%E125383125395%_))))) + (_%E125382125422%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx124444%_) - (let ((_%wrap?124446%_ '#t)) - (gx#core-expand-lambda%__% _%stx124444%_ _%wrap?124446%_)))) + (lambda (_%stx125429%_) + (let ((_%wrap?125431%_ '#t)) + (gx#core-expand-lambda%__% _%stx125429%_ _%wrap?125431%_)))) (define gx#core-expand-lambda% - (lambda _g125469_ - (let ((_g125468_ (##length _g125469_))) - (cond ((##fx= _g125468_ 1) - (apply gx#core-expand-lambda%__0 _g125469_)) - ((##fx= _g125468_ 2) - (apply gx#core-expand-lambda%__% _g125469_)) + (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% - _g125469_)))))) + _g126454_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx124358%_) - (let* ((_%e124359124366%_ _%stx124358%_) - (_%E124361124370%_ + (lambda (_%stx125343%_) + (let* ((_%e125344125351%_ _%stx125343%_) + (_%E125346125355%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124359124366%_))) - (_%E124360124389%_ + _%e125344125351%_))) + (_%E125345125374%_ (lambda () - (if (gx#stx-pair? _%e124359124366%_) - (let ((_%e124362124374%_ - (gx#syntax-e _%e124359124366%_))) - (let ((_%hd124363124377%_ (##car _%e124362124374%_)) - (_%tl124364124379%_ (##cdr _%e124362124374%_))) - (let ((_%clauses124382%_ _%tl124364124379%_)) - (if (gx#stx-list? _%clauses124382%_) + (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 (_%clause124384%_) + (lambda (_%clause125369%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause124384%_) - (let ((_%$e124386%_ + _%clause125369%_) + (let ((_%$e125371%_ (gx#stx-source - _%clause124384%_))) - (if _%$e124386%_ - _%$e124386%_ - (gx#stx-source _%stx124358%_)))) + _%clause125369%_))) + (if _%$e125371%_ + _%$e125371%_ + (gx#stx-source _%stx125343%_)))) '#f)) - _%clauses124382%_)) - (gx#stx-source _%stx124358%_)) - (_%E124361124370%_))))) - (_%E124361124370%_))))) - (_%E124360124389%_)))) + _%clauses125367%_)) + (gx#stx-source _%stx125343%_)) + (_%E125346125355%_))))) + (_%E125346125355%_))))) + (_%E125345125374%_)))) (define gx#core-expand-let-values% - (lambda (_%stx124312%_) - (let* ((_%e124313124323%_ _%stx124312%_) - (_%E124315124327%_ + (lambda (_%stx125297%_) + (let* ((_%e125298125308%_ _%stx125297%_) + (_%E125300125312%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124313124323%_))) - (_%E124314124354%_ + _%e125298125308%_))) + (_%E125299125339%_ (lambda () - (if (gx#stx-pair? _%e124313124323%_) - (let ((_%e124316124331%_ - (gx#syntax-e _%e124313124323%_))) - (let ((_%hd124317124334%_ (##car _%e124316124331%_)) - (_%tl124318124336%_ (##cdr _%e124316124331%_))) - (if (gx#stx-pair? _%tl124318124336%_) - (let ((_%e124319124339%_ - (gx#syntax-e _%tl124318124336%_))) - (let ((_%hd124320124342%_ - (##car _%e124319124339%_)) - (_%tl124321124344%_ - (##cdr _%e124319124339%_))) - (let* ((_%hd124347%_ _%hd124320124342%_) - (_%body124349%_ _%tl124321124344%_)) - (if (gx#core-expand-let-bind? _%hd124347%_) - (let ((_%expressions124351%_ + (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 - _%hd124347%_))) + _%hd125332%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd124347%_) + _%hd125332%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124347%_ - _%expressions124351%_) + _%hd125332%_ + _%expressions125336%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx124312%_ - _%body124349%_) + _%stx125297%_ + _%body125334%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx124312%_))) + (gx#stx-source _%stx125297%_))) gx#current-expander-context - (let ((__obj125460 + (let ((__obj126445 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125460) - __obj125460))) - (_%E124315124327%_))))) - (_%E124315124327%_)))) - (_%E124315124327%_))))) - (_%E124314124354%_)))) + __obj126445) + __obj126445))) + (_%E125300125312%_))))) + (_%E125300125312%_)))) + (_%E125300125312%_))))) + (_%E125299125339%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx124257%_ _%form124258%_) - (let* ((_%e124259124269%_ _%stx124257%_) - (_%E124261124273%_ + (lambda (_%stx125242%_ _%form125243%_) + (let* ((_%e125244125254%_ _%stx125242%_) + (_%E125246125258%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124259124269%_))) - (_%E124260124298%_ + _%e125244125254%_))) + (_%E125245125283%_ (lambda () - (if (gx#stx-pair? _%e124259124269%_) - (let ((_%e124262124277%_ - (gx#syntax-e _%e124259124269%_))) - (let ((_%hd124263124280%_ (##car _%e124262124277%_)) - (_%tl124264124282%_ (##cdr _%e124262124277%_))) - (if (gx#stx-pair? _%tl124264124282%_) - (let ((_%e124265124285%_ - (gx#syntax-e _%tl124264124282%_))) - (let ((_%hd124266124288%_ - (##car _%e124265124285%_)) - (_%tl124267124290%_ - (##cdr _%e124265124285%_))) - (let* ((_%hd124293%_ _%hd124266124288%_) - (_%body124295%_ _%tl124267124290%_)) - (if (gx#core-expand-let-bind? _%hd124293%_) + (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! - _%hd124293%_) + _%hd125278%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form124258%_) + _%form125243%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124293%_ + _%hd125278%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd124293%_)) + _%hd125278%_)) (cons (gx#core-expand-local-block - _%stx124257%_ - _%body124295%_) + _%stx125242%_ + _%body125280%_) '()))) - (gx#stx-source _%stx124257%_))) + (gx#stx-source _%stx125242%_))) gx#current-expander-context - (let ((__obj125461 + (let ((__obj126446 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125461) - __obj125461)) - (_%E124261124273%_))))) - (_%E124261124273%_)))) - (_%E124261124273%_))))) - (_%E124260124298%_)))) + __obj126446) + __obj126446)) + (_%E125246125258%_))))) + (_%E125246125258%_)))) + (_%E125246125258%_))))) + (_%E125245125283%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx124305%_) - (let ((_%form124307%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx124305%_ _%form124307%_)))) + (lambda (_%stx125290%_) + (let ((_%form125292%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx125290%_ _%form125292%_)))) (define gx#core-expand-letrec-values% - (lambda _g125471_ - (let ((_g125470_ (##length _g125471_))) - (cond ((##fx= _g125470_ 1) - (apply gx#core-expand-letrec-values%__0 _g125471_)) - ((##fx= _g125470_ 2) - (apply gx#core-expand-letrec-values%__% _g125471_)) + (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% - _g125471_)))))) + _g126456_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx124254%_) - (gx#core-expand-letrec-values%__% _%stx124254%_ '%#letrec*-values))) + (lambda (_%stx125239%_) + (gx#core-expand-letrec-values%__% _%stx125239%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx124211%_) - (if (gx#stx-list? _%stx124211%_) + (lambda (_%stx125196%_) + (if (gx#stx-list? _%stx125196%_) (gx#stx-andmap - (lambda (_%bind124213%_) - (let* ((_%e124214124224%_ _%bind124213%_) - (_%E124216124228%_ (lambda () '#f)) - (_%E124215124250%_ + (lambda (_%bind125198%_) + (let* ((_%e125199125209%_ _%bind125198%_) + (_%E125201125213%_ (lambda () '#f)) + (_%E125200125235%_ (lambda () - (if (gx#stx-pair? _%e124214124224%_) - (let ((_%e124217124232%_ - (gx#syntax-e _%e124214124224%_))) - (let ((_%hd124218124235%_ - (##car _%e124217124232%_)) - (_%tl124219124237%_ - (##cdr _%e124217124232%_))) - (let ((_%hd124240%_ _%hd124218124235%_)) - (if (gx#stx-pair? _%tl124219124237%_) - (let ((_%e124220124242%_ + (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 - _%tl124219124237%_))) - (let ((_%hd124221124245%_ - (##car _%e124220124242%_)) - (_%tl124222124247%_ - (##cdr _%e124220124242%_))) + _%tl125204125222%_))) + (let ((_%hd125206125230%_ + (##car _%e125205125227%_)) + (_%tl125207125232%_ + (##cdr _%e125205125227%_))) (if (gx#stx-null? - _%tl124222124247%_) + _%tl125207125232%_) (gx#core-bind-values? - _%hd124240%_) - (_%E124216124228%_)))) - (_%E124216124228%_))))) - (_%E124216124228%_))))) - (_%E124215124250%_))) - _%stx124211%_) + _%hd125225%_) + (_%E125201125213%_)))) + (_%E125201125213%_))))) + (_%E125201125213%_))))) + (_%E125200125235%_))) + _%stx125196%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind124170%_) - (let* ((_%e124171124181%_ _%bind124170%_) - (_%E124173124185%_ + (lambda (_%bind125155%_) + (let* ((_%e125156125166%_ _%bind125155%_) + (_%E125158125170%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124171124181%_))) - (_%E124172124207%_ + _%e125156125166%_))) + (_%E125157125192%_ (lambda () - (if (gx#stx-pair? _%e124171124181%_) - (let ((_%e124174124189%_ - (gx#syntax-e _%e124171124181%_))) - (let ((_%hd124175124192%_ (##car _%e124174124189%_)) - (_%tl124176124194%_ (##cdr _%e124174124189%_))) - (if (gx#stx-pair? _%tl124176124194%_) - (let ((_%e124177124197%_ - (gx#syntax-e _%tl124176124194%_))) - (let ((_%hd124178124200%_ - (##car _%e124177124197%_)) - (_%tl124179124202%_ - (##cdr _%e124177124197%_))) - (let ((_%expr124205%_ _%hd124178124200%_)) - (if (gx#stx-null? _%tl124179124202%_) + (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 - _%expr124205%_) - (_%E124173124185%_))))) - (_%E124173124185%_)))) - (_%E124173124185%_))))) - (_%E124172124207%_)))) + _%expr125190%_) + (_%E125158125170%_))))) + (_%E125158125170%_)))) + (_%E125158125170%_))))) + (_%E125157125192%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind124129%_) - (let* ((_%e124130124140%_ _%bind124129%_) - (_%E124132124144%_ + (lambda (_%bind125114%_) + (let* ((_%e125115125125%_ _%bind125114%_) + (_%E125117125129%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124130124140%_))) - (_%E124131124166%_ + _%e125115125125%_))) + (_%E125116125151%_ (lambda () - (if (gx#stx-pair? _%e124130124140%_) - (let ((_%e124133124148%_ - (gx#syntax-e _%e124130124140%_))) - (let ((_%hd124134124151%_ (##car _%e124133124148%_)) - (_%tl124135124153%_ (##cdr _%e124133124148%_))) - (let ((_%hd124156%_ _%hd124134124151%_)) - (if (gx#stx-pair? _%tl124135124153%_) - (let ((_%e124136124158%_ - (gx#syntax-e _%tl124135124153%_))) - (let ((_%hd124137124161%_ - (##car _%e124136124158%_)) - (_%tl124138124163%_ - (##cdr _%e124136124158%_))) - (if (gx#stx-null? _%tl124138124163%_) - (gx#core-bind-values!__0 _%hd124156%_) - (_%E124132124144%_)))) - (_%E124132124144%_))))) - (_%E124132124144%_))))) - (_%E124131124166%_)))) + (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 (_%bind124087%_ _%expr124088%_) - (let* ((_%e124089124099%_ _%bind124087%_) - (_%E124091124103%_ + (lambda (_%bind125072%_ _%expr125073%_) + (let* ((_%e125074125084%_ _%bind125072%_) + (_%E125076125088%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124089124099%_))) - (_%E124090124125%_ + _%e125074125084%_))) + (_%E125075125110%_ (lambda () - (if (gx#stx-pair? _%e124089124099%_) - (let ((_%e124092124107%_ - (gx#syntax-e _%e124089124099%_))) - (let ((_%hd124093124110%_ (##car _%e124092124107%_)) - (_%tl124094124112%_ (##cdr _%e124092124107%_))) - (let ((_%hd124115%_ _%hd124093124110%_)) - (if (gx#stx-pair? _%tl124094124112%_) - (let ((_%e124095124117%_ - (gx#syntax-e _%tl124094124112%_))) - (let ((_%hd124096124120%_ - (##car _%e124095124117%_)) - (_%tl124097124122%_ - (##cdr _%e124095124117%_))) - (if (gx#stx-null? _%tl124097124122%_) + (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 - _%hd124115%_) - (cons _%expr124088%_ '())) - (_%E124091124103%_)))) - (_%E124091124103%_))))) - (_%E124091124103%_))))) - (_%E124090124125%_)))) + _%hd125100%_) + (cons _%expr125073%_ '())) + (_%E125076125088%_)))) + (_%E125076125088%_))))) + (_%E125076125088%_))))) + (_%E125075125110%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx124041%_) - (let* ((_%e124042124052%_ _%stx124041%_) - (_%E124044124056%_ + (lambda (_%stx125026%_) + (let* ((_%e125027125037%_ _%stx125026%_) + (_%E125029125041%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124042124052%_))) - (_%E124043124083%_ + _%e125027125037%_))) + (_%E125028125068%_ (lambda () - (if (gx#stx-pair? _%e124042124052%_) - (let ((_%e124045124060%_ - (gx#syntax-e _%e124042124052%_))) - (let ((_%hd124046124063%_ (##car _%e124045124060%_)) - (_%tl124047124065%_ (##cdr _%e124045124060%_))) - (if (gx#stx-pair? _%tl124047124065%_) - (let ((_%e124048124068%_ - (gx#syntax-e _%tl124047124065%_))) - (let ((_%hd124049124071%_ - (##car _%e124048124068%_)) - (_%tl124050124073%_ - (##cdr _%e124048124068%_))) - (let* ((_%hd124076%_ _%hd124049124071%_) - (_%body124078%_ _%tl124050124073%_)) + (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? - _%hd124076%_) - (let ((_%expanders124080%_ + _%hd125061%_) + (let ((_%expanders125065%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd124076%_))) + _%hd125061%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd124076%_ - _%expanders124080%_) + _%hd125061%_ + _%expanders125065%_) (gx#core-expand-local-block - _%stx124041%_ - _%body124078%_)) + _%stx125026%_ + _%body125063%_)) gx#current-expander-context - (let ((__obj125462 + (let ((__obj126447 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125462) - __obj125462))) - (_%E124044124056%_))))) - (_%E124044124056%_)))) - (_%E124044124056%_))))) - (_%E124043124083%_)))) + __obj126447) + __obj126447))) + (_%E125029125041%_))))) + (_%E125029125041%_)))) + (_%E125029125041%_))))) + (_%E125028125068%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx123990%_) - (let* ((_%e123991124001%_ _%stx123990%_) - (_%E123993124005%_ + (lambda (_%stx124975%_) + (let* ((_%e124976124986%_ _%stx124975%_) + (_%E124978124990%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123991124001%_))) - (_%E123992124037%_ + _%e124976124986%_))) + (_%E124977125022%_ (lambda () - (if (gx#stx-pair? _%e123991124001%_) - (let ((_%e123994124009%_ - (gx#syntax-e _%e123991124001%_))) - (let ((_%hd123995124012%_ (##car _%e123994124009%_)) - (_%tl123996124014%_ (##cdr _%e123994124009%_))) - (if (gx#stx-pair? _%tl123996124014%_) - (let ((_%e123997124017%_ - (gx#syntax-e _%tl123996124014%_))) - (let ((_%hd123998124020%_ - (##car _%e123997124017%_)) - (_%tl123999124022%_ - (##cdr _%e123997124017%_))) - (let* ((_%hd124025%_ _%hd123998124020%_) - (_%body124027%_ _%tl123999124022%_)) + (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? - _%hd124025%_) + _%hd125010%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd124025%_ + _%hd125010%_ (make-list - (gx#stx-length _%hd124025%_) + (gx#stx-length _%hd125010%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g124029124032%_ - _%g124030124034%_) + (lambda (_%g125014125017%_ + _%g125015125019%_) (gx#core-expand-let-bind-syntax!__% - _%g124029124032%_ - _%g124030124034%_ + _%g125014125017%_ + _%g125015125019%_ '#t)) - _%hd124025%_ + _%hd125010%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd124025%_)) + _%hd125010%_)) (gx#core-expand-local-block - _%stx123990%_ - _%body124027%_)) + _%stx124975%_ + _%body125012%_)) gx#current-expander-context - (let ((__obj125463 + (let ((__obj126448 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125463) - __obj125463)) - (_%E123993124005%_))))) - (_%E123993124005%_)))) - (_%E123993124005%_))))) - (_%E123992124037%_)))) + __obj126448) + __obj126448)) + (_%E124978124990%_))))) + (_%E124978124990%_)))) + (_%E124978124990%_))))) + (_%E124977125022%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx123947%_) - (if (gx#stx-list? _%stx123947%_) + (lambda (_%stx124932%_) + (if (gx#stx-list? _%stx124932%_) (gx#stx-andmap - (lambda (_%bind123949%_) - (let* ((_%e123950123960%_ _%bind123949%_) - (_%E123952123964%_ (lambda () '#f)) - (_%E123951123986%_ + (lambda (_%bind124934%_) + (let* ((_%e124935124945%_ _%bind124934%_) + (_%E124937124949%_ (lambda () '#f)) + (_%E124936124971%_ (lambda () - (if (gx#stx-pair? _%e123950123960%_) - (let ((_%e123953123968%_ - (gx#syntax-e _%e123950123960%_))) - (let ((_%hd123954123971%_ - (##car _%e123953123968%_)) - (_%tl123955123973%_ - (##cdr _%e123953123968%_))) - (let ((_%hd123976%_ _%hd123954123971%_)) - (if (gx#stx-pair? _%tl123955123973%_) - (let ((_%e123956123978%_ + (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 - _%tl123955123973%_))) - (let ((_%hd123957123981%_ - (##car _%e123956123978%_)) - (_%tl123958123983%_ - (##cdr _%e123956123978%_))) + _%tl124940124958%_))) + (let ((_%hd124942124966%_ + (##car _%e124941124963%_)) + (_%tl124943124968%_ + (##cdr _%e124941124963%_))) (if (gx#stx-null? - _%tl123958123983%_) - (gx#identifier? _%hd123976%_) - (_%E123952123964%_)))) - (_%E123952123964%_))))) - (_%E123952123964%_))))) - (_%E123951123986%_))) - _%stx123947%_) + _%tl124943124968%_) + (gx#identifier? _%hd124961%_) + (_%E124937124949%_)))) + (_%E124937124949%_))))) + (_%E124937124949%_))))) + (_%E124936124971%_))) + _%stx124932%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind123903%_) - (let* ((_%e123904123914%_ _%bind123903%_) - (_%E123906123918%_ + (lambda (_%bind124888%_) + (let* ((_%e124889124899%_ _%bind124888%_) + (_%E124891124903%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123904123914%_))) - (_%E123905123943%_ + _%e124889124899%_))) + (_%E124890124928%_ (lambda () - (if (gx#stx-pair? _%e123904123914%_) - (let ((_%e123907123922%_ - (gx#syntax-e _%e123904123914%_))) - (let ((_%hd123908123925%_ (##car _%e123907123922%_)) - (_%tl123909123927%_ (##cdr _%e123907123922%_))) - (if (gx#stx-pair? _%tl123909123927%_) - (let ((_%e123910123930%_ - (gx#syntax-e _%tl123909123927%_))) - (let ((_%hd123911123933%_ - (##car _%e123910123930%_)) - (_%tl123912123935%_ - (##cdr _%e123910123930%_))) - (let ((_%expr123938%_ _%hd123911123933%_)) - (if (gx#stx-null? _%tl123912123935%_) - (let ((_g125472_ + (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 - _%expr123938%_))) + _%expr124923%_))) (begin - (let ((_g125473_ - (if (##values? _g125472_) + (let ((_g126458_ + (if (##values? _g126457_) (##values-length - _g125472_) + _g126457_) 1))) - (if (not (##fx= _g125473_ 2)) + (if (not (##fx= _g126458_ 2)) (error "Context expects 2 values" - _g125473_))) - (let ((_%_123940%_ - (##values-ref _g125472_ 0)) - (_%e123941%_ - (##values-ref _g125472_ 1))) - _%e123941%_))) - (_%E123906123918%_))))) - (_%E123906123918%_)))) - (_%E123906123918%_))))) - (_%E123905123943%_)))) + _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 (_%bind123848%_ _%e123849%_ _%rebind?123850%_) - (let* ((_%e123851123861%_ _%bind123848%_) - (_%E123853123865%_ + (lambda (_%bind124833%_ _%e124834%_ _%rebind?124835%_) + (let* ((_%e124836124846%_ _%bind124833%_) + (_%E124838124850%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123851123861%_))) - (_%E123852123887%_ + _%e124836124846%_))) + (_%E124837124872%_ (lambda () - (if (gx#stx-pair? _%e123851123861%_) - (let ((_%e123854123869%_ - (gx#syntax-e _%e123851123861%_))) - (let ((_%hd123855123872%_ (##car _%e123854123869%_)) - (_%tl123856123874%_ (##cdr _%e123854123869%_))) - (let ((_%id123877%_ _%hd123855123872%_)) - (if (gx#stx-pair? _%tl123856123874%_) - (let ((_%e123857123879%_ - (gx#syntax-e _%tl123856123874%_))) - (let ((_%hd123858123882%_ - (##car _%e123857123879%_)) - (_%tl123859123884%_ - (##cdr _%e123857123879%_))) - (if (gx#stx-null? _%tl123859123884%_) + (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 - _%id123877%_ - _%e123849%_ - _%rebind?123850%_) - (_%E123853123865%_)))) - (_%E123853123865%_))))) - (_%E123853123865%_))))) - (_%E123852123887%_)))) + _%id124862%_ + _%e124834%_ + _%rebind?124835%_) + (_%E124838124850%_)))) + (_%E124838124850%_))))) + (_%E124838124850%_))))) + (_%E124837124872%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind123894%_ _%e123895%_) - (let ((_%rebind?123897%_ '#f)) + (lambda (_%bind124879%_ _%e124880%_) + (let ((_%rebind?124882%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind123894%_ - _%e123895%_ - _%rebind?123897%_)))) + _%bind124879%_ + _%e124880%_ + _%rebind?124882%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g125475_ - (let ((_g125474_ (##length _g125475_))) - (cond ((##fx= _g125474_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g125475_)) - ((##fx= _g125474_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g125475_)) + (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! - _g125475_)))))) + _g126460_)))))) (define gx#core-expand-expression% - (lambda (_%stx123806%_) - (let* ((_%e123807123817%_ _%stx123806%_) - (_%E123809123821%_ + (lambda (_%stx124791%_) + (let* ((_%e124792124802%_ _%stx124791%_) + (_%E124794124806%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123807123817%_))) - (_%E123808123843%_ + _%e124792124802%_))) + (_%E124793124828%_ (lambda () - (if (gx#stx-pair? _%e123807123817%_) - (let ((_%e123810123825%_ - (gx#syntax-e _%e123807123817%_))) - (let ((_%hd123811123828%_ (##car _%e123810123825%_)) - (_%tl123812123830%_ (##cdr _%e123810123825%_))) - (if (gx#stx-pair? _%tl123812123830%_) - (let ((_%e123813123833%_ - (gx#syntax-e _%tl123812123830%_))) - (let ((_%hd123814123836%_ - (##car _%e123813123833%_)) - (_%tl123815123838%_ - (##cdr _%e123813123833%_))) - (let ((_%expr123841%_ _%hd123814123836%_)) - (if (gx#stx-null? _%tl123815123838%_) + (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 - _%expr123841%_) - (_%E123809123821%_))))) - (_%E123809123821%_)))) - (_%E123809123821%_))))) - (_%E123808123843%_)))) + _%expr124826%_) + (_%E124794124806%_))))) + (_%E124794124806%_)))) + (_%E124794124806%_))))) + (_%E124793124828%_)))) (define gx#core-expand-quote% - (lambda (_%stx123765%_) - (let* ((_%e123766123776%_ _%stx123765%_) - (_%E123768123780%_ + (lambda (_%stx124750%_) + (let* ((_%e124751124761%_ _%stx124750%_) + (_%E124753124765%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123766123776%_))) - (_%E123767123802%_ + _%e124751124761%_))) + (_%E124752124787%_ (lambda () - (if (gx#stx-pair? _%e123766123776%_) - (let ((_%e123769123784%_ - (gx#syntax-e _%e123766123776%_))) - (let ((_%hd123770123787%_ (##car _%e123769123784%_)) - (_%tl123771123789%_ (##cdr _%e123769123784%_))) - (if (gx#stx-pair? _%tl123771123789%_) - (let ((_%e123772123792%_ - (gx#syntax-e _%tl123771123789%_))) - (let ((_%hd123773123795%_ - (##car _%e123772123792%_)) - (_%tl123774123797%_ - (##cdr _%e123772123792%_))) - (let ((_%e123800%_ _%hd123773123795%_)) - (if (gx#stx-null? _%tl123774123797%_) + (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 - _%e123800%_) + _%e124785%_) '())) - (gx#stx-source _%stx123765%_)) - (_%E123768123780%_))))) - (_%E123768123780%_)))) - (_%E123768123780%_))))) - (_%E123767123802%_)))) + (gx#stx-source _%stx124750%_)) + (_%E124753124765%_))))) + (_%E124753124765%_)))) + (_%E124753124765%_))))) + (_%E124752124787%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx123724%_) - (let* ((_%e123725123735%_ _%stx123724%_) - (_%E123727123739%_ + (lambda (_%stx124709%_) + (let* ((_%e124710124720%_ _%stx124709%_) + (_%E124712124724%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123725123735%_))) - (_%E123726123761%_ + _%e124710124720%_))) + (_%E124711124746%_ (lambda () - (if (gx#stx-pair? _%e123725123735%_) - (let ((_%e123728123743%_ - (gx#syntax-e _%e123725123735%_))) - (let ((_%hd123729123746%_ (##car _%e123728123743%_)) - (_%tl123730123748%_ (##cdr _%e123728123743%_))) - (if (gx#stx-pair? _%tl123730123748%_) - (let ((_%e123731123751%_ - (gx#syntax-e _%tl123730123748%_))) - (let ((_%hd123732123754%_ - (##car _%e123731123751%_)) - (_%tl123733123756%_ - (##cdr _%e123731123751%_))) - (let ((_%e123759%_ _%hd123732123754%_)) - (if (gx#stx-null? _%tl123733123756%_) + (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 - _%e123759%_) + _%e124744%_) '())) - (gx#stx-source _%stx123724%_)) - (_%E123727123739%_))))) - (_%E123727123739%_)))) - (_%E123727123739%_))))) - (_%E123726123761%_)))) + (gx#stx-source _%stx124709%_)) + (_%E124712124724%_))))) + (_%E124712124724%_)))) + (_%E124712124724%_))))) + (_%E124711124746%_)))) (define gx#core-expand-call% - (lambda (_%stx123681%_) - (let* ((_%e123682123692%_ _%stx123681%_) - (_%E123684123696%_ + (lambda (_%stx124666%_) + (let* ((_%e124667124677%_ _%stx124666%_) + (_%E124669124681%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123682123692%_))) - (_%E123683123720%_ + _%e124667124677%_))) + (_%E124668124705%_ (lambda () - (if (gx#stx-pair? _%e123682123692%_) - (let ((_%e123685123700%_ - (gx#syntax-e _%e123682123692%_))) - (let ((_%hd123686123703%_ (##car _%e123685123700%_)) - (_%tl123687123705%_ (##cdr _%e123685123700%_))) - (if (gx#stx-pair? _%tl123687123705%_) - (let ((_%e123688123708%_ - (gx#syntax-e _%tl123687123705%_))) - (let ((_%hd123689123711%_ - (##car _%e123688123708%_)) - (_%tl123690123713%_ - (##cdr _%e123688123708%_))) - (let* ((_%rator123716%_ _%hd123689123711%_) - (_%args123718%_ _%tl123690123713%_)) - (if (gx#stx-list? _%args123718%_) + (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 - _%rator123716%_) + _%rator124701%_) (gx#stx-map1 gx#core-expand-expression - _%args123718%_)) - (gx#stx-source _%stx123681%_)) - (_%E123684123696%_))))) - (_%E123684123696%_)))) - (_%E123684123696%_))))) - (_%E123683123720%_)))) + _%args124703%_)) + (gx#stx-source _%stx124666%_)) + (_%E124669124681%_))))) + (_%E124669124681%_)))) + (_%E124669124681%_))))) + (_%E124668124705%_)))) (define gx#core-expand-if% - (lambda (_%stx123614%_) - (let* ((_%e123615123631%_ _%stx123614%_) - (_%E123617123635%_ + (lambda (_%stx124599%_) + (let* ((_%e124600124616%_ _%stx124599%_) + (_%E124602124620%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123615123631%_))) - (_%E123616123677%_ + _%e124600124616%_))) + (_%E124601124662%_ (lambda () - (if (gx#stx-pair? _%e123615123631%_) - (let ((_%e123618123639%_ - (gx#syntax-e _%e123615123631%_))) - (let ((_%hd123619123642%_ (##car _%e123618123639%_)) - (_%tl123620123644%_ (##cdr _%e123618123639%_))) - (if (gx#stx-pair? _%tl123620123644%_) - (let ((_%e123621123647%_ - (gx#syntax-e _%tl123620123644%_))) - (let ((_%hd123622123650%_ - (##car _%e123621123647%_)) - (_%tl123623123652%_ - (##cdr _%e123621123647%_))) - (let ((_%test123655%_ _%hd123622123650%_)) - (if (gx#stx-pair? _%tl123623123652%_) - (let ((_%e123624123657%_ + (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 - _%tl123623123652%_))) - (let ((_%hd123625123660%_ - (##car _%e123624123657%_)) - (_%tl123626123662%_ - (##cdr _%e123624123657%_))) - (let ((_%K123665%_ - _%hd123625123660%_)) + _%tl124608124637%_))) + (let ((_%hd124610124645%_ + (##car _%e124609124642%_)) + (_%tl124611124647%_ + (##cdr _%e124609124642%_))) + (let ((_%K124650%_ + _%hd124610124645%_)) (if (gx#stx-pair? - _%tl123626123662%_) - (let ((_%e123627123667%_ + _%tl124611124647%_) + (let ((_%e124612124652%_ (gx#syntax-e - _%tl123626123662%_))) - (let ((_%hd123628123670%_ - (##car _%e123627123667%_)) - (_%tl123629123672%_ - (##cdr _%e123627123667%_))) - (let ((_%E123675%_ - _%hd123628123670%_)) + _%tl124611124647%_))) + (let ((_%hd124613124655%_ + (##car _%e124612124652%_)) + (_%tl124614124657%_ + (##cdr _%e124612124652%_))) + (let ((_%E124660%_ + _%hd124613124655%_)) (if (gx#stx-null? - _%tl123629123672%_) + _%tl124614124657%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test123655%_) - (cons (gx#core-expand-expression _%K123665%_) + (cons (gx#core-expand-expression _%test124640%_) + (cons (gx#core-expand-expression _%K124650%_) (cons (gx#core-expand-expression - _%E123675%_) + _%E124660%_) '())))) - (gx#stx-source _%stx123614%_)) - (_%E123617123635%_))))) + (gx#stx-source _%stx124599%_)) + (_%E124602124620%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123617123635%_))))) - (_%E123617123635%_))))) - (_%E123617123635%_)))) - (_%E123617123635%_))))) - (_%E123616123677%_)))) + (_%E124602124620%_))))) + (_%E124602124620%_))))) + (_%E124602124620%_)))) + (_%E124602124620%_))))) + (_%E124601124662%_)))) (define gx#core-expand-ref% - (lambda (_%stx123573%_) - (let* ((_%e123574123584%_ _%stx123573%_) - (_%E123576123588%_ + (lambda (_%stx124558%_) + (let* ((_%e124559124569%_ _%stx124558%_) + (_%E124561124573%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123574123584%_))) - (_%E123575123610%_ + _%e124559124569%_))) + (_%E124560124595%_ (lambda () - (if (gx#stx-pair? _%e123574123584%_) - (let ((_%e123577123592%_ - (gx#syntax-e _%e123574123584%_))) - (let ((_%hd123578123595%_ (##car _%e123577123592%_)) - (_%tl123579123597%_ (##cdr _%e123577123592%_))) - (if (gx#stx-pair? _%tl123579123597%_) - (let ((_%e123580123600%_ - (gx#syntax-e _%tl123579123597%_))) - (let ((_%hd123581123603%_ - (##car _%e123580123600%_)) - (_%tl123582123605%_ - (##cdr _%e123580123600%_))) - (let ((_%id123608%_ _%hd123581123603%_)) - (if (gx#stx-null? _%tl123582123605%_) - (if (gx#identifier? _%id123608%_) + (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 - _%id123608%_ - _%stx123573%_) + _%id124593%_ + _%stx124558%_) '())) - (gx#stx-source _%stx123573%_)) - (_%E123576123588%_)) - (_%E123576123588%_))))) - (_%E123576123588%_)))) - (_%E123576123588%_))))) - (_%E123575123610%_)))) + (gx#stx-source _%stx124558%_)) + (_%E124561124573%_)) + (_%E124561124573%_))))) + (_%E124561124573%_)))) + (_%E124561124573%_))))) + (_%E124560124595%_)))) (define gx#core-expand-setq% - (lambda (_%stx123519%_) - (let* ((_%e123520123533%_ _%stx123519%_) - (_%E123522123537%_ + (lambda (_%stx124504%_) + (let* ((_%e124505124518%_ _%stx124504%_) + (_%E124507124522%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123520123533%_))) - (_%E123521123569%_ + _%e124505124518%_))) + (_%E124506124554%_ (lambda () - (if (gx#stx-pair? _%e123520123533%_) - (let ((_%e123523123541%_ - (gx#syntax-e _%e123520123533%_))) - (let ((_%hd123524123544%_ (##car _%e123523123541%_)) - (_%tl123525123546%_ (##cdr _%e123523123541%_))) - (if (gx#stx-pair? _%tl123525123546%_) - (let ((_%e123526123549%_ - (gx#syntax-e _%tl123525123546%_))) - (let ((_%hd123527123552%_ - (##car _%e123526123549%_)) - (_%tl123528123554%_ - (##cdr _%e123526123549%_))) - (let ((_%id123557%_ _%hd123527123552%_)) - (if (gx#stx-pair? _%tl123528123554%_) - (let ((_%e123529123559%_ + (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 - _%tl123528123554%_))) - (let ((_%hd123530123562%_ - (##car _%e123529123559%_)) - (_%tl123531123564%_ - (##cdr _%e123529123559%_))) - (let ((_%expr123567%_ - _%hd123530123562%_)) + _%tl124513124539%_))) + (let ((_%hd124515124547%_ + (##car _%e124514124544%_)) + (_%tl124516124549%_ + (##cdr _%e124514124544%_))) + (let ((_%expr124552%_ + _%hd124515124547%_)) (if (gx#stx-null? - _%tl123531123564%_) + _%tl124516124549%_) (if (gx#identifier? - _%id123557%_) + _%id124542%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123557%_ - _%stx123519%_) - (cons (gx#core-expand-expression _%expr123567%_) + _%id124542%_ + _%stx124504%_) + (cons (gx#core-expand-expression _%expr124552%_) '()))) - (gx#stx-source _%stx123519%_)) - (_%E123522123537%_)) + (gx#stx-source _%stx124504%_)) + (_%E124507124522%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123522123537%_))))) - (_%E123522123537%_))))) - (_%E123522123537%_)))) - (_%E123522123537%_))))) - (_%E123521123569%_)))) + (_%E124507124522%_))))) + (_%E124507124522%_))))) + (_%E124507124522%_)))) + (_%E124507124522%_))))) + (_%E124506124554%_)))) (define gx#macro-expand-extern - (lambda (_%stx123364%_) - (letrec ((_%generate123366%_ - (lambda (_%body123396%_) - (let _%lp123398%_ ((_%rest123400%_ _%body123396%_) - (_%ns123401%_ + (lambda (_%stx124349%_) + (letrec ((_%generate124351%_ + (lambda (_%body124381%_) + (let _%lp124383%_ ((_%rest124385%_ _%body124381%_) + (_%ns124386%_ (gx#core-context-namespace__0)) - (_%r123402%_ '())) - (let* ((_%e123403123418%_ _%rest123400%_) - (_%E123416123422%_ + (_%r124387%_ '())) + (let* ((_%e124388124403%_ _%rest124385%_) + (_%E124401124407%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123403123418%_))) - (_%E123412123426%_ + _%e124388124403%_))) + (_%E124397124411%_ (lambda () - (if (gx#stx-null? _%e123403123418%_) - (reverse _%r123402%_) - (_%E123416123422%_)))) - (_%E123405123483%_ + (if (gx#stx-null? _%e124388124403%_) + (reverse _%r124387%_) + (_%E124401124407%_)))) + (_%E124390124468%_ (lambda () - (if (gx#stx-pair? _%e123403123418%_) - (let ((_%e123413123430%_ - (gx#syntax-e _%e123403123418%_))) - (let ((_%hd123414123433%_ - (##car _%e123413123430%_)) - (_%tl123415123435%_ - (##cdr _%e123413123430%_))) - (let* ((_%hd123438%_ - _%hd123414123433%_) - (_%rest123440%_ - _%tl123415123435%_)) - (if (gx#identifier? _%hd123438%_) - (_%lp123398%_ - _%rest123440%_ - _%ns123401%_ - (cons (cons _%hd123438%_ - (cons (if _%ns123401%_ + (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 - _%hd123438%_ - _%ns123401%_ + _%hd124423%_ + _%ns124386%_ '"#" - _%hd123438%_) - _%hd123438%_) + _%hd124423%_) + _%hd124423%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r123402%_)) - (let* ((_%e123441123451%_ - _%hd123438%_) - (_%E123443123455%_ + _%r124387%_)) + (let* ((_%e124426124436%_ + _%hd124423%_) + (_%E124428124440%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123441123451%_))) - (_%E123442123479%_ + _%e124426124436%_))) + (_%E124427124464%_ (lambda () (if (gx#stx-pair? - _%e123441123451%_) - (let ((_%e123444123459%_ + _%e124426124436%_) + (let ((_%e124429124444%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e123441123451%_))) - (let ((_%hd123445123462%_ (##car _%e123444123459%_)) - (_%tl123446123464%_ (##cdr _%e123444123459%_))) - (let ((_%id123467%_ _%hd123445123462%_)) - (if (gx#stx-pair? _%tl123446123464%_) - (let ((_%e123447123469%_ - (gx#syntax-e _%tl123446123464%_))) - (let ((_%hd123448123472%_ - (##car _%e123447123469%_)) - (_%tl123449123474%_ - (##cdr _%e123447123469%_))) - (let ((_%eid123477%_ _%hd123448123472%_)) - (if (gx#stx-null? _%tl123449123474%_) - (if (and (gx#identifier? _%id123467%_) + (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? - _%eid123477%_)) - (_%lp123398%_ - _%rest123440%_ - _%ns123401%_ - (cons (cons _%id123467%_ - (cons _%eid123477%_ + _%eid124462%_)) + (_%lp124383%_ + _%rest124425%_ + _%ns124386%_ + (cons (cons _%id124452%_ + (cons _%eid124462%_ '())) - _%r123402%_)) - (_%E123443123455%_)) - (_%E123443123455%_))))) - (_%E123443123455%_))))) - (_%E123443123455%_))))) + _%r124387%_)) + (_%E124428124440%_)) + (_%E124428124440%_))))) + (_%E124428124440%_))))) + (_%E124428124440%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123442123479%_)))))) - (_%E123412123426%_)))) - (_%E123404123515%_ + (_%E124427124464%_)))))) + (_%E124397124411%_)))) + (_%E124389124500%_ (lambda () - (if (gx#stx-pair? _%e123403123418%_) - (let ((_%e123406123487%_ - (gx#syntax-e _%e123403123418%_))) - (let ((_%hd123407123490%_ - (##car _%e123406123487%_)) - (_%tl123408123492%_ - (##cdr _%e123406123487%_))) - (if (eq? (gx#stx-e _%hd123407123490%_) + (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? - _%tl123408123492%_) - (let ((_%e123409123495%_ + _%tl124393124477%_) + (let ((_%e124394124480%_ (gx#syntax-e - _%tl123408123492%_))) - (let ((_%hd123410123498%_ - (##car _%e123409123495%_)) - (_%tl123411123500%_ - (##cdr _%e123409123495%_))) - (let* ((_%ns123503%_ - _%hd123410123498%_) - (_%rest123505%_ - _%tl123411123500%_) - (_%ns123513%_ + _%tl124393124477%_))) + (let ((_%hd124395124483%_ + (##car _%e124394124480%_)) + (_%tl124396124485%_ + (##cdr _%e124394124480%_))) + (let* ((_%ns124488%_ + _%hd124395124483%_) + (_%rest124490%_ + _%tl124396124485%_) + (_%ns124498%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns123503%_) - (symbol->string (gx#stx-e _%ns123503%_)) - (if (or (gx#stx-string? _%ns123503%_) - (gx#stx-false? _%ns123503%_)) - (gx#stx-e _%ns123503%_) + _%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" - _%stx123364%_ - _%ns123503%_))))) - (_%lp123398%_ _%rest123505%_ _%ns123513%_ _%r123402%_)))) + _%stx124349%_ + _%ns124488%_))))) + (_%lp124383%_ _%rest124490%_ _%ns124498%_ _%r124387%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123405123483%_)) - (_%E123405123483%_)))) - (_%E123405123483%_))))) - (_%E123404123515%_)))))) - (let* ((_%e123367123374%_ _%stx123364%_) - (_%E123369123378%_ + (_%E124390124468%_)) + (_%E124390124468%_)))) + (_%E124390124468%_))))) + (_%E124389124500%_)))))) + (let* ((_%e124352124359%_ _%stx124349%_) + (_%E124354124363%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123367123374%_))) - (_%E123368123392%_ + _%e124352124359%_))) + (_%E124353124377%_ (lambda () - (if (gx#stx-pair? _%e123367123374%_) - (let ((_%e123370123382%_ - (gx#syntax-e _%e123367123374%_))) - (let ((_%hd123371123385%_ (##car _%e123370123382%_)) - (_%tl123372123387%_ (##cdr _%e123370123382%_))) - (let ((_%body123390%_ _%tl123372123387%_)) - (if (gx#stx-list? _%body123390%_) + (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 - (_%generate123366%_ _%body123390%_)) - (_%E123369123378%_))))) - (_%E123369123378%_))))) - (_%E123368123392%_))))) + (_%generate124351%_ _%body124375%_)) + (_%E124354124363%_))))) + (_%E124354124363%_))))) + (_%E124353124377%_))))) (define gx#macro-expand-define-values - (lambda (_%stx123310%_) - (let* ((_%e123311123324%_ _%stx123310%_) - (_%E123313123328%_ + (lambda (_%stx124295%_) + (let* ((_%e124296124309%_ _%stx124295%_) + (_%E124298124313%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123311123324%_))) - (_%E123312123360%_ + _%e124296124309%_))) + (_%E124297124345%_ (lambda () - (if (gx#stx-pair? _%e123311123324%_) - (let ((_%e123314123332%_ - (gx#syntax-e _%e123311123324%_))) - (let ((_%hd123315123335%_ (##car _%e123314123332%_)) - (_%tl123316123337%_ (##cdr _%e123314123332%_))) - (if (gx#stx-pair? _%tl123316123337%_) - (let ((_%e123317123340%_ - (gx#syntax-e _%tl123316123337%_))) - (let ((_%hd123318123343%_ - (##car _%e123317123340%_)) - (_%tl123319123345%_ - (##cdr _%e123317123340%_))) - (let ((_%hd123348%_ _%hd123318123343%_)) - (if (gx#stx-pair? _%tl123319123345%_) - (let ((_%e123320123350%_ + (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 - _%tl123319123345%_))) - (let ((_%hd123321123353%_ - (##car _%e123320123350%_)) - (_%tl123322123355%_ - (##cdr _%e123320123350%_))) - (let ((_%expr123358%_ - _%hd123321123353%_)) + _%tl124304124330%_))) + (let ((_%hd124306124338%_ + (##car _%e124305124335%_)) + (_%tl124307124340%_ + (##cdr _%e124305124335%_))) + (let ((_%expr124343%_ + _%hd124306124338%_)) (if (gx#stx-null? - _%tl123322123355%_) + _%tl124307124340%_) (if (gx#stx-andmap gx#identifier? - _%hd123348%_) + _%hd124333%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd123348%_) - (cons _%expr123358%_ '()))) - (_%E123313123328%_)) + _%hd124333%_) + (cons _%expr124343%_ '()))) + (_%E124298124313%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123313123328%_))))) - (_%E123313123328%_))))) - (_%E123313123328%_)))) - (_%E123313123328%_))))) - (_%E123312123360%_)))) + (_%E124298124313%_))))) + (_%E124298124313%_))))) + (_%E124298124313%_)))) + (_%E124298124313%_))))) + (_%E124297124345%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx123256%_) - (let* ((_%e123257123270%_ _%stx123256%_) - (_%E123259123274%_ + (lambda (_%stx124241%_) + (let* ((_%e124242124255%_ _%stx124241%_) + (_%E124244124259%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123257123270%_))) - (_%E123258123306%_ + _%e124242124255%_))) + (_%E124243124291%_ (lambda () - (if (gx#stx-pair? _%e123257123270%_) - (let ((_%e123260123278%_ - (gx#syntax-e _%e123257123270%_))) - (let ((_%hd123261123281%_ (##car _%e123260123278%_)) - (_%tl123262123283%_ (##cdr _%e123260123278%_))) - (if (gx#stx-pair? _%tl123262123283%_) - (let ((_%e123263123286%_ - (gx#syntax-e _%tl123262123283%_))) - (let ((_%hd123264123289%_ - (##car _%e123263123286%_)) - (_%tl123265123291%_ - (##cdr _%e123263123286%_))) - (let ((_%hd123294%_ _%hd123264123289%_)) - (if (gx#stx-pair? _%tl123265123291%_) - (let ((_%e123266123296%_ + (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 - _%tl123265123291%_))) - (let ((_%hd123267123299%_ - (##car _%e123266123296%_)) - (_%tl123268123301%_ - (##cdr _%e123266123296%_))) - (let ((_%expr123304%_ - _%hd123267123299%_)) + _%tl124250124276%_))) + (let ((_%hd124252124284%_ + (##car _%e124251124281%_)) + (_%tl124253124286%_ + (##cdr _%e124251124281%_))) + (let ((_%expr124289%_ + _%hd124252124284%_)) (if (gx#stx-null? - _%tl123268123301%_) + _%tl124253124286%_) (if (gx#identifier? - _%hd123294%_) + _%hd124279%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd123294%_ + (cons _%hd124279%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr123304%_ '()))) - (_%E123259123274%_)) + (cons _%expr124289%_ '()))) + (_%E124244124259%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123259123274%_))))) - (_%E123259123274%_))))) - (_%E123259123274%_)))) - (_%E123259123274%_))))) - (_%E123258123306%_)))) + (_%E124244124259%_))))) + (_%E124244124259%_))))) + (_%E124244124259%_)))) + (_%E124244124259%_))))) + (_%E124243124291%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx123202%_) - (let* ((_%e123203123216%_ _%stx123202%_) - (_%E123205123220%_ + (lambda (_%stx124187%_) + (let* ((_%e124188124201%_ _%stx124187%_) + (_%E124190124205%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123203123216%_))) - (_%E123204123252%_ + _%e124188124201%_))) + (_%E124189124237%_ (lambda () - (if (gx#stx-pair? _%e123203123216%_) - (let ((_%e123206123224%_ - (gx#syntax-e _%e123203123216%_))) - (let ((_%hd123207123227%_ (##car _%e123206123224%_)) - (_%tl123208123229%_ (##cdr _%e123206123224%_))) - (if (gx#stx-pair? _%tl123208123229%_) - (let ((_%e123209123232%_ - (gx#syntax-e _%tl123208123229%_))) - (let ((_%hd123210123235%_ - (##car _%e123209123232%_)) - (_%tl123211123237%_ - (##cdr _%e123209123232%_))) - (let ((_%id123240%_ _%hd123210123235%_)) - (if (gx#stx-pair? _%tl123211123237%_) - (let ((_%e123212123242%_ + (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 - _%tl123211123237%_))) - (let ((_%hd123213123245%_ - (##car _%e123212123242%_)) - (_%tl123214123247%_ - (##cdr _%e123212123242%_))) - (let ((_%alias-id123250%_ - _%hd123213123245%_)) + _%tl124196124222%_))) + (let ((_%hd124198124230%_ + (##car _%e124197124227%_)) + (_%tl124199124232%_ + (##cdr _%e124197124227%_))) + (let ((_%alias-id124235%_ + _%hd124198124230%_)) (if (gx#stx-null? - _%tl123214123247%_) + _%tl124199124232%_) (if (and (gx#identifier? - _%id123240%_) + _%id124225%_) (gx#identifier? - _%alias-id123250%_)) + _%alias-id124235%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id123240%_ + (cons _%id124225%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id123250%_ '()))) - (_%E123205123220%_)) + (cons _%alias-id124235%_ '()))) + (_%E124190124205%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123205123220%_))))) - (_%E123205123220%_))))) - (_%E123205123220%_)))) - (_%E123205123220%_))))) - (_%E123204123252%_)))) + (_%E124190124205%_))))) + (_%E124190124205%_))))) + (_%E124190124205%_)))) + (_%E124190124205%_))))) + (_%E124189124237%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx123159%_) - (let* ((_%e123160123170%_ _%stx123159%_) - (_%E123162123174%_ + (lambda (_%stx124144%_) + (let* ((_%e124145124155%_ _%stx124144%_) + (_%E124147124159%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123160123170%_))) - (_%E123161123198%_ + _%e124145124155%_))) + (_%E124146124183%_ (lambda () - (if (gx#stx-pair? _%e123160123170%_) - (let ((_%e123163123178%_ - (gx#syntax-e _%e123160123170%_))) - (let ((_%hd123164123181%_ (##car _%e123163123178%_)) - (_%tl123165123183%_ (##cdr _%e123163123178%_))) - (if (gx#stx-pair? _%tl123165123183%_) - (let ((_%e123166123186%_ - (gx#syntax-e _%tl123165123183%_))) - (let ((_%hd123167123189%_ - (##car _%e123166123186%_)) - (_%tl123168123191%_ - (##cdr _%e123166123186%_))) - (let* ((_%hd123194%_ _%hd123167123189%_) - (_%body123196%_ _%tl123168123191%_)) + (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? - _%hd123194%_) - (gx#stx-list? _%body123196%_) + _%hd124179%_) + (gx#stx-list? _%body124181%_) (not (gx#stx-null? - _%body123196%_))) + _%body124181%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd123194%_) - _%body123196%_) - (_%E123162123174%_))))) - (_%E123162123174%_)))) - (_%E123162123174%_))))) - (_%E123161123198%_)))) + (gx#stx-map1 identity _%hd124179%_) + _%body124181%_) + (_%E124147124159%_))))) + (_%E124147124159%_)))) + (_%E124147124159%_))))) + (_%E124146124183%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx123095%_) - (letrec ((_%generate123097%_ - (lambda (_%clause123127%_) - (let* ((_%e123128123135%_ _%clause123127%_) - (_%E123130123139%_ + (lambda (_%stx124080%_) + (letrec ((_%generate124082%_ + (lambda (_%clause124112%_) + (let* ((_%e124113124120%_ _%clause124112%_) + (_%E124115124124%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx123095%_ - _%clause123127%_))) - (_%E123129123155%_ + _%stx124080%_ + _%clause124112%_))) + (_%E124114124140%_ (lambda () - (if (gx#stx-pair? _%e123128123135%_) - (let ((_%e123131123143%_ - (gx#syntax-e _%e123128123135%_))) - (let ((_%hd123132123146%_ - (##car _%e123131123143%_)) - (_%tl123133123148%_ - (##cdr _%e123131123143%_))) - (let* ((_%hd123151%_ _%hd123132123146%_) - (_%body123153%_ - _%tl123133123148%_)) + (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? - _%hd123151%_) - (gx#stx-list? _%body123153%_) + _%hd124136%_) + (gx#stx-list? _%body124138%_) (not (gx#stx-null? - _%body123153%_))) + _%body124138%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd123151%_) - _%body123153%_) - (gx#stx-source _%clause123127%_)) - (_%E123130123139%_))))) - (_%E123130123139%_))))) - (_%E123129123155%_))))) - (let* ((_%e123098123105%_ _%stx123095%_) - (_%E123100123109%_ + _%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" - _%e123098123105%_))) - (_%E123099123123%_ + _%e124083124090%_))) + (_%E124084124108%_ (lambda () - (if (gx#stx-pair? _%e123098123105%_) - (let ((_%e123101123113%_ - (gx#syntax-e _%e123098123105%_))) - (let ((_%hd123102123116%_ (##car _%e123101123113%_)) - (_%tl123103123118%_ (##cdr _%e123101123113%_))) - (let ((_%clauses123121%_ _%tl123103123118%_)) - (if (gx#stx-list? _%clauses123121%_) + (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 - _%generate123097%_ - _%clauses123121%_)) - (_%E123100123109%_))))) - (_%E123100123109%_))))) - (_%E123099123123%_))))) + _%generate124082%_ + _%clauses124106%_)) + (_%E124085124094%_))))) + (_%E124085124094%_))))) + (_%E124084124108%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx122996%_ _%form122997%_) - (letrec ((_%generate122999%_ - (lambda (_%bind123042%_) - (let* ((_%e123043123053%_ _%bind123042%_) - (_%E123045123057%_ + (lambda (_%stx123981%_ _%form123982%_) + (letrec ((_%generate123984%_ + (lambda (_%bind124027%_) + (let* ((_%e124028124038%_ _%bind124027%_) + (_%E124030124042%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx122996%_ - _%bind123042%_))) - (_%E123044123081%_ + _%stx123981%_ + _%bind124027%_))) + (_%E124029124066%_ (lambda () - (if (gx#stx-pair? _%e123043123053%_) - (let ((_%e123046123061%_ - (gx#syntax-e _%e123043123053%_))) - (let ((_%hd123047123064%_ - (##car _%e123046123061%_)) - (_%tl123048123066%_ - (##cdr _%e123046123061%_))) - (let ((_%ids123069%_ _%hd123047123064%_)) - (if (gx#stx-pair? _%tl123048123066%_) - (let ((_%e123049123071%_ + (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 - _%tl123048123066%_))) - (let ((_%hd123050123074%_ - (##car _%e123049123071%_)) - (_%tl123051123076%_ - (##cdr _%e123049123071%_))) - (let ((_%expr123079%_ - _%hd123050123074%_)) + _%tl124033124051%_))) + (let ((_%hd124035124059%_ + (##car _%e124034124056%_)) + (_%tl124036124061%_ + (##cdr _%e124034124056%_))) + (let ((_%expr124064%_ + _%hd124035124059%_)) (if (gx#stx-null? - _%tl123051123076%_) + _%tl124036124061%_) (if (gx#stx-andmap gx#identifier? - _%ids123069%_) + _%ids124054%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids123069%_) - (cons _%expr123079%_ '())) - (_%E123045123057%_)) - (_%E123045123057%_))))) + _%ids124054%_) + (cons _%expr124064%_ '())) + (_%E124030124042%_)) + (_%E124030124042%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123045123057%_))))) - (_%E123045123057%_))))) - (_%E123044123081%_))))) - (let* ((_%e123000123010%_ _%stx122996%_) - (_%E123002123014%_ + (_%E124030124042%_))))) + (_%E124030124042%_))))) + (_%E124029124066%_))))) + (let* ((_%e123985123995%_ _%stx123981%_) + (_%E123987123999%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123000123010%_))) - (_%E123001123038%_ + _%e123985123995%_))) + (_%E123986124023%_ (lambda () - (if (gx#stx-pair? _%e123000123010%_) - (let ((_%e123003123018%_ - (gx#syntax-e _%e123000123010%_))) - (let ((_%hd123004123021%_ (##car _%e123003123018%_)) - (_%tl123005123023%_ (##cdr _%e123003123018%_))) - (if (gx#stx-pair? _%tl123005123023%_) - (let ((_%e123006123026%_ - (gx#syntax-e _%tl123005123023%_))) - (let ((_%hd123007123029%_ - (##car _%e123006123026%_)) - (_%tl123008123031%_ - (##cdr _%e123006123026%_))) - (let* ((_%hd123034%_ _%hd123007123029%_) - (_%body123036%_ _%tl123008123031%_)) - (if (and (gx#stx-list? _%hd123034%_) - (gx#stx-list? _%body123036%_) + (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? - _%body123036%_))) + _%body124021%_))) (gx#core-cons* - _%form122997%_ + _%form123982%_ (gx#stx-map1 - _%generate122999%_ - _%hd123034%_) - _%body123036%_) - (_%E123002123014%_))))) - (_%E123002123014%_)))) - (_%E123002123014%_))))) - (_%E123001123038%_))))) + _%generate123984%_ + _%hd124019%_) + _%body124021%_) + (_%E123987123999%_))))) + (_%E123987123999%_)))) + (_%E123987123999%_))))) + (_%E123986124023%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx123088%_) - (let ((_%form123090%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx123088%_ _%form123090%_)))) + (lambda (_%stx124073%_) + (let ((_%form124075%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx124073%_ _%form124075%_)))) (define gx#macro-expand-let-values - (lambda _g125477_ - (let ((_g125476_ (##length _g125477_))) - (cond ((##fx= _g125476_ 1) - (apply gx#macro-expand-let-values__0 _g125477_)) - ((##fx= _g125476_ 2) - (apply gx#macro-expand-let-values__% _g125477_)) + (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 - _g125477_)))))) + _g126462_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx122993%_) - (gx#macro-expand-let-values__% _%stx122993%_ '%#letrec-values))) + (lambda (_%stx123978%_) + (gx#macro-expand-let-values__% _%stx123978%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx122991%_) - (gx#macro-expand-let-values__% _%stx122991%_ '%#letrec*-values))) + (lambda (_%stx123976%_) + (gx#macro-expand-let-values__% _%stx123976%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx122882%_) - (let* ((_%e122883122909%_ _%stx122882%_) - (_%E122895122913%_ + (lambda (_%stx123867%_) + (let* ((_%e123868123894%_ _%stx123867%_) + (_%E123880123898%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122883122909%_))) - (_%E122885122955%_ + _%e123868123894%_))) + (_%E123870123940%_ (lambda () - (if (gx#stx-pair? _%e122883122909%_) - (let ((_%e122896122917%_ - (gx#syntax-e _%e122883122909%_))) - (let ((_%hd122897122920%_ (##car _%e122896122917%_)) - (_%tl122898122922%_ (##cdr _%e122896122917%_))) - (if (gx#stx-pair? _%tl122898122922%_) - (let ((_%e122899122925%_ - (gx#syntax-e _%tl122898122922%_))) - (let ((_%hd122900122928%_ - (##car _%e122899122925%_)) - (_%tl122901122930%_ - (##cdr _%e122899122925%_))) - (let ((_%test122933%_ _%hd122900122928%_)) - (if (gx#stx-pair? _%tl122901122930%_) - (let ((_%e122902122935%_ + (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 - _%tl122901122930%_))) - (let ((_%hd122903122938%_ - (##car _%e122902122935%_)) - (_%tl122904122940%_ - (##cdr _%e122902122935%_))) - (let ((_%K122943%_ - _%hd122903122938%_)) + _%tl123886123915%_))) + (let ((_%hd123888123923%_ + (##car _%e123887123920%_)) + (_%tl123889123925%_ + (##cdr _%e123887123920%_))) + (let ((_%K123928%_ + _%hd123888123923%_)) (if (gx#stx-pair? - _%tl122904122940%_) - (let ((_%e122905122945%_ + _%tl123889123925%_) + (let ((_%e123890123930%_ (gx#syntax-e - _%tl122904122940%_))) - (let ((_%hd122906122948%_ - (##car _%e122905122945%_)) - (_%tl122907122950%_ - (##cdr _%e122905122945%_))) - (let ((_%E122953%_ - _%hd122906122948%_)) + _%tl123889123925%_))) + (let ((_%hd123891123933%_ + (##car _%e123890123930%_)) + (_%tl123892123935%_ + (##cdr _%e123890123930%_))) + (let ((_%E123938%_ + _%hd123891123933%_)) (if (gx#stx-null? - _%tl122907122950%_) + _%tl123892123935%_) (gx#core-list '%#if - _%test122933%_ - _%K122943%_ - _%E122953%_) - (_%E122895122913%_))))) - (_%E122895122913%_))))) - (_%E122895122913%_))))) - (_%E122895122913%_)))) - (_%E122895122913%_)))) - (_%E122884122987%_ + _%test123918%_ + _%K123928%_ + _%E123938%_) + (_%E123880123898%_))))) + (_%E123880123898%_))))) + (_%E123880123898%_))))) + (_%E123880123898%_)))) + (_%E123880123898%_)))) + (_%E123869123972%_ (lambda () - (if (gx#stx-pair? _%e122883122909%_) - (let ((_%e122886122959%_ - (gx#syntax-e _%e122883122909%_))) - (let ((_%hd122887122962%_ (##car _%e122886122959%_)) - (_%tl122888122964%_ (##cdr _%e122886122959%_))) - (if (gx#stx-pair? _%tl122888122964%_) - (let ((_%e122889122967%_ - (gx#syntax-e _%tl122888122964%_))) - (let ((_%hd122890122970%_ - (##car _%e122889122967%_)) - (_%tl122891122972%_ - (##cdr _%e122889122967%_))) - (let ((_%test122975%_ _%hd122890122970%_)) - (if (gx#stx-pair? _%tl122891122972%_) - (let ((_%e122892122977%_ + (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 - _%tl122891122972%_))) - (let ((_%hd122893122980%_ - (##car _%e122892122977%_)) - (_%tl122894122982%_ - (##cdr _%e122892122977%_))) - (let ((_%K122985%_ - _%hd122893122980%_)) + _%tl123876123957%_))) + (let ((_%hd123878123965%_ + (##car _%e123877123962%_)) + (_%tl123879123967%_ + (##cdr _%e123877123962%_))) + (let ((_%K123970%_ + _%hd123878123965%_)) (if (gx#stx-null? - _%tl122894122982%_) + _%tl123879123967%_) (gx#core-list '%#if - _%test122975%_ - _%K122985%_ + _%test123960%_ + _%K123970%_ '#!void) - (_%E122885122955%_))))) - (_%E122885122955%_))))) - (_%E122885122955%_)))) - (_%E122885122955%_))))) - (_%E122884122987%_)))) + (_%E123870123940%_))))) + (_%E123870123940%_))))) + (_%E123870123940%_)))) + (_%E123870123940%_))))) + (_%E123869123972%_)))) (define gx#free-identifier=? - (lambda (_%xid122867%_ _%yid122868%_) - (let ((_%xe122870%_ (gx#resolve-identifier__0 _%xid122867%_)) - (_%ye122871%_ (gx#resolve-identifier__0 _%yid122868%_))) - (if (and _%xe122870%_ _%ye122871%_) - (let ((_%$e122874%_ (eq? _%xe122870%_ _%ye122871%_))) - (if _%$e122874%_ - _%$e122874%_ - (if (##structure-instance-of? _%xe122870%_ '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? - _%ye122871%_ + _%ye123856%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe122870%_ + _%xe123855%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye122871%_ + _%ye123856%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe122870%_ _%ye122871%_) + (if (or _%xe123855%_ _%ye123856%_) '#f - (gx#stx-eq? _%xid122867%_ _%yid122868%_)))))) + (gx#stx-eq? _%xid123852%_ _%yid123853%_)))))) (define gx#bound-identifier=? - (lambda (_%xid122848%_ _%yid122849%_) - (letrec ((_%context122851%_ - (lambda (_%e122865%_) + (lambda (_%xid123833%_ _%yid123834%_) + (letrec ((_%context123836%_ + (lambda (_%e123850%_) (if (##structure-direct-instance-of? - _%e122865%_ + _%e123850%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e122865%_ '3 '#f '#f) + (##unchecked-structure-ref _%e123850%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks122852%_ - (lambda (_%e122860%_) - (if (symbol? _%e122860%_) + (_%marks123837%_ + (lambda (_%e123845%_) + (if (symbol? _%e123845%_) '() (if (##structure-direct-instance-of? - _%e122860%_ + _%e123845%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e122860%_ '3 '#f '#f) + (##unchecked-structure-ref _%e123845%_ '3 '#f '#f) (##unchecked-structure-ref - _%e122860%_ + _%e123845%_ '4 '#f '#f))))) - (_%unwrap122853%_ - (lambda (_%e122858%_) - (if (symbol? _%e122858%_) - _%e122858%_ - (gx#syntax-local-unwrap _%e122858%_))))) - (let ((_%x122855%_ (_%unwrap122853%_ _%xid122848%_)) - (_%y122856%_ (_%unwrap122853%_ _%yid122849%_))) - (if (gx#stx-eq? _%x122855%_ _%y122856%_) - (if (eq? (_%context122851%_ _%x122855%_) - (_%context122851%_ _%y122856%_)) - (equal? (_%marks122852%_ _%x122855%_) - (_%marks122852%_ _%y122856%_)) + (_%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 (_%stx122846%_) - (if (gx#identifier? _%stx122846%_) - (gx#core-identifier=? _%stx122846%_ '_) + (lambda (_%stx123831%_) + (if (gx#identifier? _%stx123831%_) + (gx#core-identifier=? _%stx123831%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx122844%_) - (if (gx#identifier? _%stx122844%_) - (gx#core-identifier=? _%stx122844%_ '...) + (lambda (_%stx123829%_) + (if (gx#identifier? _%stx123829%_) + (gx#core-identifier=? _%stx123829%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx122787%_ _%where122788%_) - (let _%lp122790%_ ((_%rest122792%_ (gx#syntax->list _%stx122787%_))) - (let* ((_%rest122793122801%_ _%rest122792%_) - (_%else122795122809%_ (lambda () '#t)) - (_%K122797122822%_ - (lambda (_%rest122812%_ _%hd122813%_) - (if (gx#identifier? _%hd122813%_) - (if (__find (lambda (_%g122815122817%_) + (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=? - _%g122815122817%_ - _%hd122813%_)) - _%rest122812%_) + _%g123800123802%_ + _%hd123798%_)) + _%rest123797%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where122788%_ - _%hd122813%_) - (_%lp122790%_ _%rest122812%_)) + _%where123773%_ + _%hd123798%_) + (_%lp123775%_ _%rest123797%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where122788%_ - _%hd122813%_))))) - (if (pair? _%rest122793122801%_) - (let ((_%hd122798122825%_ (##car _%rest122793122801%_)) - (_%tl122799122827%_ (##cdr _%rest122793122801%_))) - (let* ((_%hd122830%_ _%hd122798122825%_) - (_%rest122832%_ _%tl122799122827%_)) - (_%K122797122822%_ _%rest122832%_ _%hd122830%_))) - (_%else122795122809%_)))))) + _%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 (_%stx122837%_) - (let ((_%where122839%_ _%stx122837%_)) - (gx#check-duplicate-identifiers__% _%stx122837%_ _%where122839%_)))) + (lambda (_%stx123822%_) + (let ((_%where123824%_ _%stx123822%_)) + (gx#check-duplicate-identifiers__% _%stx123822%_ _%where123824%_)))) (define gx#check-duplicate-identifiers - (lambda _g125479_ - (let ((_g125478_ (##length _g125479_))) - (cond ((##fx= _g125478_ 1) - (apply gx#check-duplicate-identifiers__0 _g125479_)) - ((##fx= _g125478_ 2) - (apply gx#check-duplicate-identifiers__% _g125479_)) + (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 - _g125479_)))))) + _g126464_)))))) (define gx#core-bind-values? - (lambda (_%stx122779%_) + (lambda (_%stx123764%_) (gx#stx-andmap - (lambda (_%x122781%_) - (let ((_%$e122783%_ (gx#identifier? _%x122781%_))) - (if _%$e122783%_ _%$e122783%_ (gx#stx-false? _%x122781%_)))) - _%stx122779%_))) + (lambda (_%x123766%_) + (let ((_%$e123768%_ (gx#identifier? _%x123766%_))) + (if _%$e123768%_ _%$e123768%_ (gx#stx-false? _%x123766%_)))) + _%stx123764%_))) (define gx#core-bind-values!__% - (lambda (_%stx122743%_ _%rebind?122744%_ _%phi122745%_ _%ctx122746%_) + (lambda (_%stx123728%_ _%rebind?123729%_ _%phi123730%_ _%ctx123731%_) (gx#stx-for-each1 - (lambda (_%id122748%_) - (if (gx#identifier? _%id122748%_) + (lambda (_%id123733%_) + (if (gx#identifier? _%id123733%_) (gx#core-bind-runtime!__% - _%id122748%_ - _%rebind?122744%_ - _%phi122745%_ - _%ctx122746%_) + _%id123733%_ + _%rebind?123729%_ + _%phi123730%_ + _%ctx123731%_) '#!void)) - _%stx122743%_))) + _%stx123728%_))) (define gx#core-bind-values!__0 - (lambda (_%stx122753%_) - (let* ((_%rebind?122755%_ '#f) - (_%phi122757%_ (gx#current-expander-phi)) - (_%ctx122759%_ (gx#current-expander-context))) + (lambda (_%stx123738%_) + (let* ((_%rebind?123740%_ '#f) + (_%phi123742%_ (gx#current-expander-phi)) + (_%ctx123744%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122753%_ - _%rebind?122755%_ - _%phi122757%_ - _%ctx122759%_)))) + _%stx123738%_ + _%rebind?123740%_ + _%phi123742%_ + _%ctx123744%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx122761%_ _%rebind?122762%_) - (let* ((_%phi122764%_ (gx#current-expander-phi)) - (_%ctx122766%_ (gx#current-expander-context))) + (lambda (_%stx123746%_ _%rebind?123747%_) + (let* ((_%phi123749%_ (gx#current-expander-phi)) + (_%ctx123751%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122761%_ - _%rebind?122762%_ - _%phi122764%_ - _%ctx122766%_)))) + _%stx123746%_ + _%rebind?123747%_ + _%phi123749%_ + _%ctx123751%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx122768%_ _%rebind?122769%_ _%phi122770%_) - (let ((_%ctx122772%_ (gx#current-expander-context))) + (lambda (_%stx123753%_ _%rebind?123754%_ _%phi123755%_) + (let ((_%ctx123757%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122768%_ - _%rebind?122769%_ - _%phi122770%_ - _%ctx122772%_)))) + _%stx123753%_ + _%rebind?123754%_ + _%phi123755%_ + _%ctx123757%_)))) (define gx#core-bind-values! - (lambda _g125481_ - (let ((_g125480_ (##length _g125481_))) - (cond ((##fx= _g125480_ 1) (apply gx#core-bind-values!__0 _g125481_)) - ((##fx= _g125480_ 2) (apply gx#core-bind-values!__1 _g125481_)) - ((##fx= _g125480_ 3) (apply gx#core-bind-values!__2 _g125481_)) - ((##fx= _g125480_ 4) (apply gx#core-bind-values!__% _g125481_)) + (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! - _g125481_)))))) + _g126466_)))))) (define gx#core-quote-bind-values - (lambda (_%stx122738%_) + (lambda (_%stx123723%_) (gx#stx-map1 - (lambda (_%x122740%_) - (if (gx#identifier? _%x122740%_) - (gx#core-quote-syntax__0 _%x122740%_) + (lambda (_%x123725%_) + (if (gx#identifier? _%x123725%_) + (gx#core-quote-syntax__0 _%x123725%_) '#f)) - _%stx122738%_))) + _%stx123723%_))) (define gx#core-runtime-ref? - (lambda (_%stx122731%_) - (if (gx#identifier? _%stx122731%_) - (let* ((_%bind122733%_ (gx#resolve-identifier__0 _%stx122731%_)) - (_%$e122735%_ (not _%bind122733%_))) - (if _%$e122735%_ - _%$e122735%_ + (lambda (_%stx123716%_) + (if (gx#identifier? _%stx123716%_) + (let* ((_%bind123718%_ (gx#resolve-identifier__0 _%stx123716%_)) + (_%$e123720%_ (not _%bind123718%_))) + (if _%$e123720%_ + _%$e123720%_ (##structure-instance-of? - _%bind122733%_ + _%bind123718%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id122720%_ _%form122721%_) - (let ((_%bind122723%_ (gx#resolve-identifier__0 _%id122720%_))) - (if (##structure-instance-of? _%bind122723%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id122720%_) - (if (not _%bind122723%_) + (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 _%id122720%_))) - (gx#core-quote-syntax__0 _%id122720%_) + (gx#core-extern-symbol? (gx#stx-e _%id123705%_))) + (gx#core-quote-syntax__0 _%id123705%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form122721%_ - _%id122720%_)) + _%form123706%_ + _%id123705%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form122721%_ - _%id122720%_)))))) + _%form123706%_ + _%id123705%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id122675%_ _%rebind?122676%_ _%phi122677%_ _%ctx122678%_) - (let* ((_%key122680%_ (gx#core-identifier-key _%id122675%_)) - (_%eid122682%_ + (lambda (_%id123660%_ _%rebind?123661%_ _%phi123662%_ _%ctx123663%_) + (let* ((_%key123665%_ (gx#core-identifier-key _%id123660%_)) + (_%eid123667%_ (gx#make-binding-id__% - _%key122680%_ + _%key123665%_ '#f - _%phi122677%_ - _%ctx122678%_)) - (_%bind122688%_ + _%phi123662%_ + _%ctx123663%_)) + (_%bind123673%_ (if (##structure-instance-of? - _%ctx122678%_ + _%ctx123663%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122682%_ - _%key122680%_ - _%phi122677%_ - _%ctx122678%_) + _%eid123667%_ + _%key123665%_ + _%phi123662%_ + _%ctx123663%_) (if (##structure-instance-of? - _%ctx122678%_ + _%ctx123663%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122682%_ - _%key122680%_ - _%phi122677%_) + _%eid123667%_ + _%key123665%_ + _%phi123662%_) (if (##structure-instance-of? - _%ctx122678%_ + _%ctx123663%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid122682%_ - _%key122680%_ - _%phi122677%_) + _%eid123667%_ + _%key123665%_ + _%phi123662%_) (##structure gx#runtime-binding::t - _%eid122682%_ - _%key122680%_ - _%phi122677%_)))))) + _%eid123667%_ + _%key123665%_ + _%phi123662%_)))))) (gx#bind-identifier!__% - _%id122675%_ - _%bind122688%_ - _%rebind?122676%_ - _%phi122677%_ - _%ctx122678%_)))) + _%id123660%_ + _%bind123673%_ + _%rebind?123661%_ + _%phi123662%_ + _%ctx123663%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id122694%_) - (let* ((_%rebind?122696%_ '#f) - (_%phi122698%_ (gx#current-expander-phi)) - (_%ctx122700%_ (gx#current-expander-context))) + (lambda (_%id123679%_) + (let* ((_%rebind?123681%_ '#f) + (_%phi123683%_ (gx#current-expander-phi)) + (_%ctx123685%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122694%_ - _%rebind?122696%_ - _%phi122698%_ - _%ctx122700%_)))) + _%id123679%_ + _%rebind?123681%_ + _%phi123683%_ + _%ctx123685%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id122702%_ _%rebind?122703%_) - (let* ((_%phi122705%_ (gx#current-expander-phi)) - (_%ctx122707%_ (gx#current-expander-context))) + (lambda (_%id123687%_ _%rebind?123688%_) + (let* ((_%phi123690%_ (gx#current-expander-phi)) + (_%ctx123692%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122702%_ - _%rebind?122703%_ - _%phi122705%_ - _%ctx122707%_)))) + _%id123687%_ + _%rebind?123688%_ + _%phi123690%_ + _%ctx123692%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id122709%_ _%rebind?122710%_ _%phi122711%_) - (let ((_%ctx122713%_ (gx#current-expander-context))) + (lambda (_%id123694%_ _%rebind?123695%_ _%phi123696%_) + (let ((_%ctx123698%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122709%_ - _%rebind?122710%_ - _%phi122711%_ - _%ctx122713%_)))) + _%id123694%_ + _%rebind?123695%_ + _%phi123696%_ + _%ctx123698%_)))) (define gx#core-bind-runtime! - (lambda _g125483_ - (let ((_g125482_ (##length _g125483_))) - (cond ((##fx= _g125482_ 1) - (apply gx#core-bind-runtime!__0 _g125483_)) - ((##fx= _g125482_ 2) - (apply gx#core-bind-runtime!__1 _g125483_)) - ((##fx= _g125482_ 3) - (apply gx#core-bind-runtime!__2 _g125483_)) - ((##fx= _g125482_ 4) - (apply gx#core-bind-runtime!__% _g125483_)) + (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! - _g125483_)))))) + _g126468_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id122627%_ - _%eid122628%_ - _%rebind?122629%_ - _%phi122630%_ - _%ctx122631%_) - (let* ((_%key122633%_ (gx#core-identifier-key _%id122627%_)) - (_%bind122638%_ + (lambda (_%id123612%_ + _%eid123613%_ + _%rebind?123614%_ + _%phi123615%_ + _%ctx123616%_) + (let* ((_%key123618%_ (gx#core-identifier-key _%id123612%_)) + (_%bind123623%_ (if (##structure-instance-of? - _%ctx122631%_ + _%ctx123616%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122628%_ - _%key122633%_ - _%phi122630%_ - _%ctx122631%_) + _%eid123613%_ + _%key123618%_ + _%phi123615%_ + _%ctx123616%_) (if (##structure-instance-of? - _%ctx122631%_ + _%ctx123616%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122628%_ - _%key122633%_ - _%phi122630%_) + _%eid123613%_ + _%key123618%_ + _%phi123615%_) (##structure gx#runtime-binding::t - _%eid122628%_ - _%key122633%_ - _%phi122630%_))))) + _%eid123613%_ + _%key123618%_ + _%phi123615%_))))) (gx#bind-identifier!__% - _%id122627%_ - _%bind122638%_ - _%rebind?122629%_ - _%phi122630%_ - _%ctx122631%_)))) + _%id123612%_ + _%bind123623%_ + _%rebind?123614%_ + _%phi123615%_ + _%ctx123616%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id122644%_ _%eid122645%_) - (let* ((_%rebind?122647%_ '#f) - (_%phi122649%_ (gx#current-expander-phi)) - (_%ctx122651%_ (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!__% - _%id122644%_ - _%eid122645%_ - _%rebind?122647%_ - _%phi122649%_ - _%ctx122651%_)))) + _%id123629%_ + _%eid123630%_ + _%rebind?123632%_ + _%phi123634%_ + _%ctx123636%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id122653%_ _%eid122654%_ _%rebind?122655%_) - (let* ((_%phi122657%_ (gx#current-expander-phi)) - (_%ctx122659%_ (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!__% - _%id122653%_ - _%eid122654%_ - _%rebind?122655%_ - _%phi122657%_ - _%ctx122659%_)))) + _%id123638%_ + _%eid123639%_ + _%rebind?123640%_ + _%phi123642%_ + _%ctx123644%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id122661%_ _%eid122662%_ _%rebind?122663%_ _%phi122664%_) - (let ((_%ctx122666%_ (gx#current-expander-context))) + (lambda (_%id123646%_ _%eid123647%_ _%rebind?123648%_ _%phi123649%_) + (let ((_%ctx123651%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122661%_ - _%eid122662%_ - _%rebind?122663%_ - _%phi122664%_ - _%ctx122666%_)))) + _%id123646%_ + _%eid123647%_ + _%rebind?123648%_ + _%phi123649%_ + _%ctx123651%_)))) (define gx#core-bind-runtime-reference! - (lambda _g125485_ - (let ((_g125484_ (##length _g125485_))) - (cond ((##fx= _g125484_ 2) - (apply gx#core-bind-runtime-reference!__0 _g125485_)) - ((##fx= _g125484_ 3) - (apply gx#core-bind-runtime-reference!__1 _g125485_)) - ((##fx= _g125484_ 4) - (apply gx#core-bind-runtime-reference!__2 _g125485_)) - ((##fx= _g125484_ 5) - (apply gx#core-bind-runtime-reference!__% _g125485_)) + (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! - _g125485_)))))) + _g126470_)))))) (define gx#core-bind-extern!__% - (lambda (_%id122587%_ - _%eid122588%_ - _%rebind?122589%_ - _%phi122590%_ - _%ctx122591%_) + (lambda (_%id123572%_ + _%eid123573%_ + _%rebind?123574%_ + _%phi123575%_ + _%ctx123576%_) (gx#bind-identifier!__% - _%id122587%_ + _%id123572%_ (##structure gx#extern-binding::t - _%eid122588%_ - (gx#core-identifier-key _%id122587%_) - _%phi122590%_) - _%rebind?122589%_ - _%phi122590%_ - _%ctx122591%_))) + _%eid123573%_ + (gx#core-identifier-key _%id123572%_) + _%phi123575%_) + _%rebind?123574%_ + _%phi123575%_ + _%ctx123576%_))) (define gx#core-bind-extern!__0 - (lambda (_%id122596%_ _%eid122597%_) - (let* ((_%rebind?122599%_ '#f) - (_%phi122601%_ (gx#current-expander-phi)) - (_%ctx122603%_ (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!__% - _%id122596%_ - _%eid122597%_ - _%rebind?122599%_ - _%phi122601%_ - _%ctx122603%_)))) + _%id123581%_ + _%eid123582%_ + _%rebind?123584%_ + _%phi123586%_ + _%ctx123588%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id122605%_ _%eid122606%_ _%rebind?122607%_) - (let* ((_%phi122609%_ (gx#current-expander-phi)) - (_%ctx122611%_ (gx#current-expander-context))) + (lambda (_%id123590%_ _%eid123591%_ _%rebind?123592%_) + (let* ((_%phi123594%_ (gx#current-expander-phi)) + (_%ctx123596%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122605%_ - _%eid122606%_ - _%rebind?122607%_ - _%phi122609%_ - _%ctx122611%_)))) + _%id123590%_ + _%eid123591%_ + _%rebind?123592%_ + _%phi123594%_ + _%ctx123596%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id122613%_ _%eid122614%_ _%rebind?122615%_ _%phi122616%_) - (let ((_%ctx122618%_ (gx#current-expander-context))) + (lambda (_%id123598%_ _%eid123599%_ _%rebind?123600%_ _%phi123601%_) + (let ((_%ctx123603%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122613%_ - _%eid122614%_ - _%rebind?122615%_ - _%phi122616%_ - _%ctx122618%_)))) + _%id123598%_ + _%eid123599%_ + _%rebind?123600%_ + _%phi123601%_ + _%ctx123603%_)))) (define gx#core-bind-extern! - (lambda _g125487_ - (let ((_g125486_ (##length _g125487_))) - (cond ((##fx= _g125486_ 2) (apply gx#core-bind-extern!__0 _g125487_)) - ((##fx= _g125486_ 3) (apply gx#core-bind-extern!__1 _g125487_)) - ((##fx= _g125486_ 4) (apply gx#core-bind-extern!__2 _g125487_)) - ((##fx= _g125486_ 5) (apply gx#core-bind-extern!__% _g125487_)) + (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! - _g125487_)))))) + _g126472_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id122541%_ - _%e122542%_ - _%rebind?122543%_ - _%phi122544%_ - _%ctx122545%_) + (lambda (_%id123526%_ + _%e123527%_ + _%rebind?123528%_ + _%phi123529%_ + _%ctx123530%_) (gx#bind-identifier!__% - _%id122541%_ - (let ((_%key122550%_ (gx#core-identifier-key _%id122541%_)) - (_%e122551%_ - (if (or (##structure-instance-of? _%e122542%_ 'gx#expander::t) + _%id123526%_ + (let ((_%key123535%_ (gx#core-identifier-key _%id123526%_)) + (_%e123536%_ + (if (or (##structure-instance-of? _%e123527%_ 'gx#expander::t) (##structure-instance-of? - _%e122542%_ + _%e123527%_ 'gx#expander-context::t)) - _%e122542%_ + _%e123527%_ (##structure gx#user-expander::t - _%e122542%_ - _%ctx122545%_ - _%phi122544%_)))) + _%e123527%_ + _%ctx123530%_ + _%phi123529%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key122550%_ + _%key123535%_ '#t - _%phi122544%_ - _%ctx122545%_) - _%key122550%_ - _%phi122544%_ - _%e122551%_)) - _%rebind?122543%_ - _%phi122544%_ - _%ctx122545%_))) + _%phi123529%_ + _%ctx123530%_) + _%key123535%_ + _%phi123529%_ + _%e123536%_)) + _%rebind?123528%_ + _%phi123529%_ + _%ctx123530%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id122556%_ _%e122557%_) - (let* ((_%rebind?122559%_ '#f) - (_%phi122561%_ (gx#current-expander-phi)) - (_%ctx122563%_ (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!__% - _%id122556%_ - _%e122557%_ - _%rebind?122559%_ - _%phi122561%_ - _%ctx122563%_)))) + _%id123541%_ + _%e123542%_ + _%rebind?123544%_ + _%phi123546%_ + _%ctx123548%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id122565%_ _%e122566%_ _%rebind?122567%_) - (let* ((_%phi122569%_ (gx#current-expander-phi)) - (_%ctx122571%_ (gx#current-expander-context))) + (lambda (_%id123550%_ _%e123551%_ _%rebind?123552%_) + (let* ((_%phi123554%_ (gx#current-expander-phi)) + (_%ctx123556%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122565%_ - _%e122566%_ - _%rebind?122567%_ - _%phi122569%_ - _%ctx122571%_)))) + _%id123550%_ + _%e123551%_ + _%rebind?123552%_ + _%phi123554%_ + _%ctx123556%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id122573%_ _%e122574%_ _%rebind?122575%_ _%phi122576%_) - (let ((_%ctx122578%_ (gx#current-expander-context))) + (lambda (_%id123558%_ _%e123559%_ _%rebind?123560%_ _%phi123561%_) + (let ((_%ctx123563%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122573%_ - _%e122574%_ - _%rebind?122575%_ - _%phi122576%_ - _%ctx122578%_)))) + _%id123558%_ + _%e123559%_ + _%rebind?123560%_ + _%phi123561%_ + _%ctx123563%_)))) (define gx#core-bind-syntax! - (lambda _g125489_ - (let ((_g125488_ (##length _g125489_))) - (cond ((##fx= _g125488_ 2) (apply gx#core-bind-syntax!__0 _g125489_)) - ((##fx= _g125488_ 3) (apply gx#core-bind-syntax!__1 _g125489_)) - ((##fx= _g125488_ 4) (apply gx#core-bind-syntax!__2 _g125489_)) - ((##fx= _g125488_ 5) (apply gx#core-bind-syntax!__% _g125489_)) + (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! - _g125489_)))))) + _g126474_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id122524%_ _%e122525%_ _%rebind?122526%_) + (lambda (_%id123509%_ _%e123510%_ _%rebind?123511%_) (gx#core-bind-syntax!__% - _%id122524%_ - _%e122525%_ - _%rebind?122526%_ + _%id123509%_ + _%e123510%_ + _%rebind?123511%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id122531%_ _%e122532%_) - (let ((_%rebind?122534%_ '#f)) + (lambda (_%id123516%_ _%e123517%_) + (let ((_%rebind?123519%_ '#f)) (gx#core-bind-root-syntax!__% - _%id122531%_ - _%e122532%_ - _%rebind?122534%_)))) + _%id123516%_ + _%e123517%_ + _%rebind?123519%_)))) (define gx#core-bind-root-syntax! - (lambda _g125491_ - (let ((_g125490_ (##length _g125491_))) - (cond ((##fx= _g125490_ 2) - (apply gx#core-bind-root-syntax!__0 _g125491_)) - ((##fx= _g125490_ 3) - (apply gx#core-bind-root-syntax!__% _g125491_)) + (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! - _g125491_)))))) + _g126476_)))))) (define gx#core-bind-alias!__% - (lambda (_%id122482%_ - _%alias-id122483%_ - _%rebind?122484%_ - _%phi122485%_ - _%ctx122486%_) + (lambda (_%id123467%_ + _%alias-id123468%_ + _%rebind?123469%_ + _%phi123470%_ + _%ctx123471%_) (gx#bind-identifier!__% - _%id122482%_ - (let ((_%key122488%_ (gx#core-identifier-key _%id122482%_))) + _%id123467%_ + (let ((_%key123473%_ (gx#core-identifier-key _%id123467%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key122488%_ + _%key123473%_ '#t - _%phi122485%_ - _%ctx122486%_) - _%key122488%_ - _%phi122485%_ - _%alias-id122483%_)) - _%rebind?122484%_ - _%phi122485%_ - _%ctx122486%_))) + _%phi123470%_ + _%ctx123471%_) + _%key123473%_ + _%phi123470%_ + _%alias-id123468%_)) + _%rebind?123469%_ + _%phi123470%_ + _%ctx123471%_))) (define gx#core-bind-alias!__0 - (lambda (_%id122493%_ _%alias-id122494%_) - (let* ((_%rebind?122496%_ '#f) - (_%phi122498%_ (gx#current-expander-phi)) - (_%ctx122500%_ (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!__% - _%id122493%_ - _%alias-id122494%_ - _%rebind?122496%_ - _%phi122498%_ - _%ctx122500%_)))) + _%id123478%_ + _%alias-id123479%_ + _%rebind?123481%_ + _%phi123483%_ + _%ctx123485%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id122502%_ _%alias-id122503%_ _%rebind?122504%_) - (let* ((_%phi122506%_ (gx#current-expander-phi)) - (_%ctx122508%_ (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!__% - _%id122502%_ - _%alias-id122503%_ - _%rebind?122504%_ - _%phi122506%_ - _%ctx122508%_)))) + _%id123487%_ + _%alias-id123488%_ + _%rebind?123489%_ + _%phi123491%_ + _%ctx123493%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id122510%_ _%alias-id122511%_ _%rebind?122512%_ _%phi122513%_) - (let ((_%ctx122515%_ (gx#current-expander-context))) + (lambda (_%id123495%_ _%alias-id123496%_ _%rebind?123497%_ _%phi123498%_) + (let ((_%ctx123500%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122510%_ - _%alias-id122511%_ - _%rebind?122512%_ - _%phi122513%_ - _%ctx122515%_)))) + _%id123495%_ + _%alias-id123496%_ + _%rebind?123497%_ + _%phi123498%_ + _%ctx123500%_)))) (define gx#core-bind-alias! - (lambda _g125493_ - (let ((_g125492_ (##length _g125493_))) - (cond ((##fx= _g125492_ 2) (apply gx#core-bind-alias!__0 _g125493_)) - ((##fx= _g125492_ 3) (apply gx#core-bind-alias!__1 _g125493_)) - ((##fx= _g125492_ 4) (apply gx#core-bind-alias!__2 _g125493_)) - ((##fx= _g125492_ 5) (apply gx#core-bind-alias!__% _g125493_)) + (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! - _g125493_)))))) + _g126478_)))))) (define gx#make-binding-id__% - (lambda (_%key122432%_ _%syntax?122433%_ _%phi122434%_ _%ctx122435%_) - (if (uninterned-symbol? _%key122432%_) + (lambda (_%key123417%_ _%syntax?123418%_ _%phi123419%_ _%ctx123420%_) + (if (uninterned-symbol? _%key123417%_) (##gensym 'L) - (if (pair? _%key122432%_) - (gensym (##car _%key122432%_)) - (if (##structure-instance-of? _%ctx122435%_ 'gx#top-context::t) - (let ((_%ns122440%_ - (gx#core-context-namespace__% _%ctx122435%_))) - (if (and (fxzero? _%phi122434%_) (not _%syntax?122433%_)) - (if _%ns122440%_ - (make-symbol__1 _%ns122440%_ '"#" _%key122432%_) - _%key122432%_) - (if _%syntax?122433%_ + (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 ((_%$e122444%_ _%ns122440%_)) - (if _%$e122444%_ _%$e122444%_ '"")) + (let ((_%$e123429%_ _%ns123425%_)) + (if _%$e123429%_ _%$e123429%_ '"")) '"[:" - (number->string _%phi122434%_) + (number->string _%phi123419%_) '":]#" - _%key122432%_) + _%key123417%_) (make-symbol__1 - (let ((_%$e122448%_ _%ns122440%_)) - (if _%$e122448%_ _%$e122448%_ '"")) + (let ((_%$e123433%_ _%ns123425%_)) + (if _%$e123433%_ _%$e123433%_ '"")) '"[" - (number->string _%phi122434%_) + (number->string _%phi123419%_) '"]#" - _%key122432%_)))) - (gensym _%key122432%_)))))) + _%key123417%_)))) + (gensym _%key123417%_)))))) (define gx#make-binding-id__0 - (lambda (_%key122455%_) - (let* ((_%syntax?122457%_ '#f) - (_%phi122459%_ (gx#current-expander-phi)) - (_%ctx122461%_ (gx#current-expander-context))) + (lambda (_%key123440%_) + (let* ((_%syntax?123442%_ '#f) + (_%phi123444%_ (gx#current-expander-phi)) + (_%ctx123446%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122455%_ - _%syntax?122457%_ - _%phi122459%_ - _%ctx122461%_)))) + _%key123440%_ + _%syntax?123442%_ + _%phi123444%_ + _%ctx123446%_)))) (define gx#make-binding-id__1 - (lambda (_%key122463%_ _%syntax?122464%_) - (let* ((_%phi122466%_ (gx#current-expander-phi)) - (_%ctx122468%_ (gx#current-expander-context))) + (lambda (_%key123448%_ _%syntax?123449%_) + (let* ((_%phi123451%_ (gx#current-expander-phi)) + (_%ctx123453%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122463%_ - _%syntax?122464%_ - _%phi122466%_ - _%ctx122468%_)))) + _%key123448%_ + _%syntax?123449%_ + _%phi123451%_ + _%ctx123453%_)))) (define gx#make-binding-id__2 - (lambda (_%key122470%_ _%syntax?122471%_ _%phi122472%_) - (let ((_%ctx122474%_ (gx#current-expander-context))) + (lambda (_%key123455%_ _%syntax?123456%_ _%phi123457%_) + (let ((_%ctx123459%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122470%_ - _%syntax?122471%_ - _%phi122472%_ - _%ctx122474%_)))) + _%key123455%_ + _%syntax?123456%_ + _%phi123457%_ + _%ctx123459%_)))) (define gx#make-binding-id - (lambda _g125495_ - (let ((_g125494_ (##length _g125495_))) - (cond ((##fx= _g125494_ 1) (apply gx#make-binding-id__0 _g125495_)) - ((##fx= _g125494_ 2) (apply gx#make-binding-id__1 _g125495_)) - ((##fx= _g125494_ 3) (apply gx#make-binding-id__2 _g125495_)) - ((##fx= _g125494_ 4) (apply gx#make-binding-id__% _g125495_)) + (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 - _g125495_)))))))) + _g126480_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 0610aecae..f13b3fd63 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,437 +1,437 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1734131745) + (define gerbil/runtime/c3::timestamp 1734357960) (begin (define c4-linearize__% - (lambda (_%@@keywords94660%_ - _%get-precedence-list9465494661%_ - _%struct?9465594663%_ - _%eq9465694665%_ - _%get-name9465794667%_ - _%rhead94669%_ - _%supers94670%_) - (let* ((_%get-precedence-list94672%_ - (if (eq? _%get-precedence-list9465494661%_ 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-list9465494661%_)) - (_%struct?94674%_ - (if (eq? _%struct?9465594663%_ absent-value) + _%get-precedence-list9553795544%_)) + (_%struct?95557%_ + (if (eq? _%struct?9553895546%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?9465594663%_)) - (_%eq94676%_ - (if (eq? _%eq9465694665%_ absent-value) eq? _%eq9465694665%_)) - (_%get-name94678%_ - (if (eq? _%get-name9465794667%_ absent-value) + _%struct?9553895546%_)) + (_%eq95559%_ + (if (eq? _%eq9553995548%_ absent-value) eq? _%eq9553995548%_)) + (_%get-name95561%_ + (if (eq? _%get-name9554095550%_ absent-value) identity - _%get-name9465794667%_))) - (letrec* ((_%pls94681%_ - (map _%get-precedence-list94672%_ _%supers94670%_)) - (_%sis94682%_ '()) - (_%get-names94683%_ - (lambda (_%lst94965%_) - (map _%get-name94678%_ _%lst94965%_))) - (_%err94684%_ - (lambda _%a94963%_ + _%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-names94683%_ (reverse _%rhead94669%_)) + (_%get-names95566%_ (reverse _%rhead95552%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names94683%_ _%pls94681%_)) + (##map _%get-names95566%_ _%pls95564%_)) 'single-inheritance-suffix: - (_%get-names94683%_ _%sis94682%_) - _%a94963%_))) - (_%eqlist?94685%_ - (lambda (_%l194957%_ _%l294958%_) - (let ((_%$e94960%_ (eq? _%l194957%_ _%l294958%_))) - (if _%$e94960%_ - _%$e94960%_ + (_%get-names95566%_ _%sis95565%_) + _%a95846%_))) + (_%eqlist?95568%_ + (lambda (_%l195840%_ _%l295841%_) + (let ((_%$e95843%_ (eq? _%l195840%_ _%l295841%_))) + (if _%$e95843%_ + _%$e95843%_ (if (let () (declare (not safe)) - (andmap2 _%eq94676%_ - _%l194957%_ - _%l294958%_)) - (let ((__tmp95013 (length _%l194957%_)) - (__tmp95012 (length _%l294958%_))) + (andmap2 _%eq95559%_ + _%l195840%_ + _%l295841%_)) + (let ((__tmp95896 (length _%l195840%_)) + (__tmp95895 (length _%l295841%_))) (declare (not safe)) - (##fx= __tmp95013 __tmp95012)) + (##fx= __tmp95896 __tmp95895)) '#f))))) - (_%merge-sis!94686%_ - (lambda (_%sis294940%_) - (if (null? _%sis294940%_) + (_%merge-sis!95569%_ + (lambda (_%sis295823%_) + (if (null? _%sis295823%_) '#!void - (if (null? _%sis94682%_) - (set! _%sis94682%_ _%sis294940%_) - (let _%loop94945%_ ((_%t194947%_ _%sis94682%_) - (_%t294948%_ _%sis294940%_)) - (if (_%eqlist?94685%_ - _%t194947%_ - _%sis294940%_) + (if (null? _%sis95565%_) + (set! _%sis95565%_ _%sis295823%_) + (let _%loop95828%_ ((_%t195830%_ _%sis95565%_) + (_%t295831%_ _%sis295823%_)) + (if (_%eqlist?95568%_ + _%t195830%_ + _%sis295823%_) '#!void - (if (_%eqlist?94685%_ - _%t294948%_ - _%sis94682%_) - (set! _%sis94682%_ _%sis294940%_) - (if (or (null? _%t194947%_) - (null? _%t294948%_)) - (_%err94684%_ + (if (_%eqlist?95568%_ + _%t295831%_ + _%sis95565%_) + (set! _%sis95565%_ _%sis295823%_) + (if (or (null? _%t195830%_) + (null? _%t295831%_)) + (_%err95567%_ 'struct-incompatibility: - (cons (_%get-names94683%_ - _%sis94682%_) - (cons (_%get-names94683%_ - _%sis294940%_) + (cons (_%get-names95566%_ + _%sis95565%_) + (cons (_%get-names95566%_ + _%sis295823%_) '()))) - (_%loop94945%_ - (cdr _%t194947%_) - (cdr _%t294948%_)))))))))) - (_%rpls94687%_ - (let ((__tmp95014 - (lambda (_%pl94935%_) - (let ((_g95015_ + (_%loop95828%_ + (cdr _%t195830%_) + (cdr _%t295831%_)))))))))) + (_%rpls95570%_ + (let ((__tmp95897 + (lambda (_%pl95818%_) + (let ((_g95898_ (let () (declare (not safe)) (append-reverse-until - _%struct?94674%_ - _%pl94935%_ + _%struct?95557%_ + _%pl95818%_ '())))) (begin - (let ((_g95016_ + (let ((_g95899_ (let () (declare (not safe)) - (if (##values? _g95015_) - (##values-length _g95015_) + (if (##values? _g95898_) + (##values-length _g95898_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g95016_ 2))) + (##fx= _g95899_ 2))) (error "Context expects 2 values" - _g95016_))) - (let ((_%tl94937%_ + _g95899_))) + (let ((_%tl95820%_ (let () (declare (not safe)) - (##values-ref _g95015_ 0))) - (_%rh94938%_ + (##values-ref _g95898_ 0))) + (_%rh95821%_ (let () (declare (not safe)) - (##values-ref _g95015_ 1)))) + (##values-ref _g95898_ 1)))) (begin - (_%merge-sis!94686%_ _%tl94937%_) - _%rh94938%_))))))) + (_%merge-sis!95569%_ _%tl95820%_) + _%rh95821%_))))))) (declare (not safe)) - (##map __tmp95014 _%pls94681%_))) - (_%unsisr-rpl94688%_ - (lambda (_%rpl94881%_) - (let _%u94883%_ ((_%pl-rhead94885%_ _%rpl94881%_) - (_%pl-tail94886%_ '()) - (_%sis-rhead94887%_ - (reverse _%sis94682%_)) - (_%sis-tail94888%_ '())) - (let* ((_%pl-rhead9488994898%_ _%pl-rhead94885%_) - (_%E9489294902%_ + (##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-rhead9488994898%_ + _%pl-rhead9577295781%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K9489694932%_ (lambda () _%pl-tail94886%_)) - (_%K9489394916%_ - (lambda (_%plrh94906%_ _%c94907%_) - (if (member _%c94907%_ - _%sis-tail94888%_ - _%eq94676%_) - (_%err94684%_ + (let ((_%K9577995815%_ (lambda () _%pl-tail95769%_)) + (_%K9577695799%_ + (lambda (_%plrh95789%_ _%c95790%_) + (if (member _%c95790%_ + _%sis-tail95771%_ + _%eq95559%_) + (_%err95567%_ 'precedence-list-head: - (_%get-names94683%_ - (reverse _%pl-rhead94885%_)) + (_%get-names95566%_ + (reverse _%pl-rhead95768%_)) 'precedence-list-tail: - (_%get-names94683%_ _%pl-tail94886%_) + (_%get-names95566%_ _%pl-tail95769%_) 'single-inheritance-head: - (_%get-names94683%_ - (reverse _%sis-rhead94887%_)) + (_%get-names95566%_ + (reverse _%sis-rhead95770%_)) 'single-inheritance-tail: - (_%get-names94683%_ _%sis-tail94888%_) + (_%get-names95566%_ _%sis-tail95771%_) 'super-out-of-order-vs-single-inheritance-tail: - (_%get-name94678%_ _%c94907%_)) - (let ((_g95017_ - (let ((__tmp95019 - (lambda (_%g9490894910%_) - (_%eq94676%_ - _%c94907%_ - _%g9490894910%_)))) + (_%get-name95561%_ _%c95790%_)) + (let ((_g95900_ + (let ((__tmp95902 + (lambda (_%g9579195793%_) + (_%eq95559%_ + _%c95790%_ + _%g9579195793%_)))) (declare (not safe)) (__append-reverse-until - __tmp95019 - _%sis-rhead94887%_ - _%sis-tail94888%_)))) + __tmp95902 + _%sis-rhead95770%_ + _%sis-tail95771%_)))) (begin - (let ((_g95018_ + (let ((_g95901_ (let () (declare (not safe)) - (if (##values? _g95017_) + (if (##values? _g95900_) (##values-length - _g95017_) + _g95900_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g95018_ 2))) + (##fx= _g95901_ 2))) (error "Context expects 2 values" - _g95018_))) - (let ((_%sis-rh294913%_ + _g95901_))) + (let ((_%sis-rh295796%_ (let () (declare (not safe)) (##values-ref - _g95017_ + _g95900_ 0))) - (_%sis-tl294914%_ + (_%sis-tl295797%_ (let () (declare (not safe)) (##values-ref - _g95017_ + _g95900_ 1)))) - (if (null? _%sis-rh294913%_) - (_%u94883%_ - _%plrh94906%_ - (cons _%c94907%_ - _%pl-tail94886%_) + (if (null? _%sis-rh295796%_) + (_%u95766%_ + _%plrh95789%_ + (cons _%c95790%_ + _%pl-tail95769%_) '() - _%sis-tl294914%_) - (_%u94883%_ - _%plrh94906%_ - _%pl-tail94886%_ - (cdr _%sis-rh294913%_) - _%sis-tl294914%_))))))))) - (let ((_%try-match9489194928%_ + _%sis-tl295797%_) + (_%u95766%_ + _%plrh95789%_ + _%pl-tail95769%_ + (cdr _%sis-rh295796%_) + _%sis-tl295797%_))))))))) + (let ((_%try-match9577495811%_ (lambda () - (if (pair? _%pl-rhead9488994898%_) - (let ((_%tl9489594921%_ + (if (pair? _%pl-rhead9577295781%_) + (let ((_%tl9577895804%_ (let () (declare (not safe)) - (##cdr _%pl-rhead9488994898%_))) - (_%hd9489494919%_ + (##cdr _%pl-rhead9577295781%_))) + (_%hd9577795802%_ (let () (declare (not safe)) - (##car _%pl-rhead9488994898%_)))) - (let ((_%c94924%_ _%hd9489494919%_) - (_%plrh94926%_ - _%tl9489594921%_)) - (_%K9489394916%_ - _%plrh94926%_ - _%c94924%_))) - (_%E9489294902%_))))) - (if (null? _%pl-rhead9488994898%_) - (_%K9489694932%_) - (_%try-match9489194928%_)))))))) - (_g95020_ - (let ((_g95021_ - (let ((__tmp95023 (reverse _%supers94670%_))) + (##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! _%rpls94687%_ __tmp95023)))) + (append1! _%rpls95570%_ __tmp95906)))) #!void - _g95021_)) - (_%hpls94689%_ + _g95904_)) + (_%hpls95572%_ (let () (declare (not safe)) - (##map _%unsisr-rpl94688%_ _%rpls94687%_))) - (_%c3-select-next94690%_ - (lambda (_%tails94831%_) - (let ((_%candidate?94837%_ - (lambda (_%c94833%_) - (let ((__tmp95024 - (lambda (_%tail94835%_) - (not (member _%c94833%_ - (cdr _%tail94835%_) - _%eq94676%_))))) + (##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 __tmp95024 _%tails94831%_))))) - (let _%loop94839%_ ((_%ts94841%_ _%tails94831%_)) - (let* ((_%ts9484294852%_ _%ts94841%_) - (_%else9484494860%_ - (lambda () (_%err94684%_))) - (_%K9484694866%_ - (lambda (_%rts94863%_ _%c94864%_) - (if (_%candidate?94837%_ _%c94864%_) - _%c94864%_ - (_%loop94839%_ _%rts94863%_))))) - (if (pair? _%ts9484294852%_) - (let ((_%hd9484794869%_ + (__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 _%ts9484294852%_))) - (_%tl9484894871%_ + (##car _%ts9572595735%_))) + (_%tl9573195754%_ (let () (declare (not safe)) - (##cdr _%ts9484294852%_)))) - (if (pair? _%hd9484794869%_) - (let* ((_%hd9484994874%_ + (##cdr _%ts9572595735%_)))) + (if (pair? _%hd9573095752%_) + (let* ((_%hd9573295757%_ (let () (declare (not safe)) - (##car _%hd9484794869%_))) - (_%c94877%_ _%hd9484994874%_) - (_%rts94879%_ _%tl9484894871%_)) - (_%K9484694866%_ - _%rts94879%_ - _%c94877%_)) - (_%err94684%_))) - (_%err94684%_))))))) - (_%remove-next!94691%_ - (lambda (_%next94776%_ _%tails94777%_) - (let _%loop94779%_ ((_%t94781%_ _%tails94777%_)) - (let* ((_%t9478294793%_ _%t94781%_) - (_%E9478594797%_ + (##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" - _%t9478294793%_ + _%t9566595676%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K9479194828%_ (lambda () _%tails94777%_)) - (_%K9478694805%_ - (lambda (_%more94801%_ - _%tail94802%_ - _%head94803%_) - (if (_%eq94676%_ - _%head94803%_ - _%next94776%_) - (set-car! _%t94781%_ _%tail94802%_) + (let ((_%K9567495711%_ (lambda () _%tails95660%_)) + (_%K9566995688%_ + (lambda (_%more95684%_ + _%tail95685%_ + _%head95686%_) + (if (_%eq95559%_ + _%head95686%_ + _%next95659%_) + (set-car! _%t95664%_ _%tail95685%_) '#!void) - (_%loop94779%_ _%more94801%_)))) - (let ((_%try-match9478494824%_ + (_%loop95662%_ _%more95684%_)))) + (let ((_%try-match9566795707%_ (lambda () - (if (pair? _%t9478294793%_) - (let ((_%tl9478894810%_ + (if (pair? _%t9566595676%_) + (let ((_%tl9567195693%_ (let () (declare (not safe)) - (##cdr _%t9478294793%_))) - (_%hd9478794808%_ + (##cdr _%t9566595676%_))) + (_%hd9567095691%_ (let () (declare (not safe)) - (##car _%t9478294793%_)))) - (if (pair? _%hd9478794808%_) - (let ((_%tl9479094815%_ + (##car _%t9566595676%_)))) + (if (pair? _%hd9567095691%_) + (let ((_%tl9567395698%_ (let () (declare (not safe)) - (##cdr _%hd9478794808%_))) - (_%hd9478994813%_ + (##cdr _%hd9567095691%_))) + (_%hd9567295696%_ (let () (declare (not safe)) - (##car _%hd9478794808%_)))) - (let ((_%head94818%_ - _%hd9478994813%_) - (_%tail94820%_ - _%tl9479094815%_) - (_%more94822%_ - _%tl9478894810%_)) - (_%K9478694805%_ - _%more94822%_ - _%tail94820%_ - _%head94818%_))) - (_%E9478594797%_))) - (_%E9478594797%_))))) - (if (null? _%t9478294793%_) - (_%K9479194828%_) - (_%try-match9478494824%_)))))))) - (_%precedence-list94692%_ - (if (null? _%supers94670%_) - (reverse _%rhead94669%_) - (if (null? (cdr _%supers94670%_)) - (append-reverse _%rhead94669%_ (car _%pls94681%_)) - (let _%c3loop94726%_ ((_%rhead94728%_ - _%rhead94669%_) - (_%tails94729%_ - _%hpls94689%_)) - (let* ((_%tails94731%_ + (##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! _%tails94729%_))) - (_%tails9473294742%_ _%tails94731%_) - (_%else9473594753%_ + (remove-nulls! _%tails95612%_))) + (_%tails9561595625%_ _%tails95614%_) + (_%else9561895636%_ (lambda () - (let ((_%next94750%_ - (_%c3-select-next94690%_ - _%tails94731%_))) - (_%c3loop94726%_ - (cons _%next94750%_ _%rhead94728%_) - (_%remove-next!94691%_ - _%next94750%_ - _%tails94731%_)))))) - (let ((_%K9474094773%_ + (let ((_%next95633%_ + (_%c3-select-next95573%_ + _%tails95614%_))) + (_%c3loop95609%_ + (cons _%next95633%_ _%rhead95611%_) + (_%remove-next!95574%_ + _%next95633%_ + _%tails95614%_)))))) + (let ((_%K9562395656%_ (lambda () (append-reverse - _%rhead94728%_ - _%sis94682%_))) - (_%K9473794759%_ - (lambda (_%tail94757%_) + _%rhead95611%_ + _%sis95565%_))) + (_%K9562095642%_ + (lambda (_%tail95640%_) (append-reverse - _%rhead94728%_ - (append _%tail94757%_ - _%sis94682%_))))) - (let ((_%try-match9473494769%_ + _%rhead95611%_ + (append _%tail95640%_ + _%sis95565%_))))) + (let ((_%try-match9561795652%_ (lambda () - (if (pair? _%tails9473294742%_) - (let ((_%tl9473994764%_ + (if (pair? _%tails9561595625%_) + (let ((_%tl9562295647%_ (let () (declare (not safe)) - (##cdr _%tails9473294742%_))) - (_%hd9473894762%_ + (##cdr _%tails9561595625%_))) + (_%hd9562195645%_ (let () (declare (not safe)) - (##car _%tails9473294742%_)))) - (if (null? _%tl9473994764%_) - (let ((_%tail94767%_ - _%hd9473894762%_)) - (_%K9473794759%_ - _%tail94767%_)) - (_%else9473594753%_))) - (_%else9473594753%_))))) - (if (null? _%tails9473294742%_) - (_%K9474094773%_) - (_%try-match9473494769%_))))))))) - (_%super-struct94693%_ - (let* ((_%sis9469494702%_ _%sis94682%_) - (_%else9469694710%_ (lambda () '#f)) - (_%K9469894715%_ (lambda (_%s94713%_) _%s94713%_))) - (if (pair? _%sis9469494702%_) - (let* ((_%hd9469994718%_ + (##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 _%sis9469494702%_))) - (_%s94721%_ _%hd9469994718%_)) - (_%K9469894715%_ _%s94721%_)) - (_%else9469694710%_))))) - (values _%precedence-list94692%_ _%super-struct94693%_))))) + (##car _%sis9557795585%_))) + (_%s95604%_ _%hd9558295601%_)) + (_%K9558195598%_ _%s95604%_)) + (_%else9557995593%_))))) + (values _%precedence-list95575%_ _%super-struct95576%_))))) (define c4-linearize__@ - (lambda (_%@@keywords94970%_ . _%args94971%_) + (lambda (_%@@keywords95853%_ . _%args95854%_) (apply c4-linearize__% - _%@@keywords94970%_ + _%@@keywords95853%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94970%_ + _%@@keywords95853%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94970%_ + _%@@keywords95853%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords94970%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords95853%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94970%_ + _%@@keywords95853%_ 'get-name: absent-value)) - _%args94971%_))) + _%args95854%_))) (define c4-linearize - (lambda _%args9465894977%_ + (lambda _%args9554195860%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args9465894977%_))))) + _%args9554195860%_))))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index 53bd80fb3..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 1734131745) + (define gerbil/runtime/control::timestamp 1734357960) (begin (define make-promise - (lambda (_%thunk94367%_) - (if (procedure? _%thunk94367%_) - (let ((_%thunk94371%_ _%thunk94367%_)) - (__make-promise _%thunk94371%_)) + (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: - _%thunk94367%_) + _%thunk95250%_) '#!void)))) (define __make-promise - (lambda (_%thunk94355%_) - (let ((_%thunk94358%_ _%thunk94355%_)) + (lambda (_%thunk95238%_) + (let ((_%thunk95241%_ _%thunk95238%_)) (declare (not safe)) - (##make-delay-promise _%thunk94358%_)))) + (##make-delay-promise _%thunk95241%_)))) (define call-with-parameters - (lambda (_%thunk94340%_ . _%rest94341%_) - (if (procedure? _%thunk94340%_) - (let ((_%thunk94345%_ _%thunk94340%_)) + (lambda (_%thunk95223%_ . _%rest95224%_) + (if (procedure? _%thunk95223%_) + (let ((_%thunk95228%_ _%thunk95223%_)) (declare (not safe)) - (##apply __call-with-parameters _%thunk94345%_ _%rest94341%_)) + (##apply __call-with-parameters _%thunk95228%_ _%rest95224%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,74 +36,74 @@ 'contract: 'procedure? 'value: - _%thunk94340%_) + _%thunk95223%_) '#!void)))) (define __call-with-parameters - (lambda (_%thunk94278%_ . _%rest94279%_) - (let* ((_%thunk94282%_ _%thunk94278%_) - (_%rest9429094301%_ _%rest94279%_) - (_%E9429394305%_ + (lambda (_%thunk95161%_ . _%rest95162%_) + (let* ((_%thunk95165%_ _%thunk95161%_) + (_%rest9517395184%_ _%rest95162%_) + (_%E9517695188%_ (lambda () (error '"No clause matching" - _%rest9429094301%_ + _%rest9517395184%_ '([param val . rest]) '([])) '#!void))) - (let ((_%K9429594321%_ - (lambda (_%rest94316%_ _%val94317%_ _%param94318%_) - (let ((__tmp94393 - (if (null? _%rest94316%_) - _%thunk94282%_ + (let ((_%K9517895204%_ + (lambda (_%rest95199%_ _%val95200%_ _%param95201%_) + (let ((__tmp95276 + (if (null? _%rest95199%_) + _%thunk95165%_ (lambda () (apply call-with-parameters - _%thunk94282%_ - _%rest94316%_))))) + _%thunk95165%_ + _%rest95199%_))))) (declare (not safe)) (##parameterize1 - _%param94318%_ - _%val94317%_ - __tmp94393)))) - (_%K9429494310%_ - (lambda () (let () (declare (not safe)) (_%thunk94282%_))))) - (let ((_%try-match9429294313%_ + _%param95201%_ + _%val95200%_ + __tmp95276)))) + (_%K9517795193%_ + (lambda () (let () (declare (not safe)) (_%thunk95165%_))))) + (let ((_%try-match9517595196%_ (lambda () - (if (null? _%rest9429094301%_) - (let () (declare (not safe)) (_%thunk94282%_)) - (_%E9429394305%_))))) - (if (pair? _%rest9429094301%_) - (let ((_%tl9429794326%_ + (if (null? _%rest9517395184%_) + (let () (declare (not safe)) (_%thunk95165%_)) + (_%E9517695188%_))))) + (if (pair? _%rest9517395184%_) + (let ((_%tl9518095209%_ (let () (declare (not safe)) - (##cdr _%rest9429094301%_))) - (_%hd9429694324%_ + (##cdr _%rest9517395184%_))) + (_%hd9517995207%_ (let () (declare (not safe)) - (##car _%rest9429094301%_)))) - (if (pair? _%tl9429794326%_) - (let ((_%tl9429994333%_ + (##car _%rest9517395184%_)))) + (if (pair? _%tl9518095209%_) + (let ((_%tl9518295216%_ (let () (declare (not safe)) - (##cdr _%tl9429794326%_))) - (_%hd9429894331%_ + (##cdr _%tl9518095209%_))) + (_%hd9518195214%_ (let () (declare (not safe)) - (##car _%tl9429794326%_)))) - (let ((_%param94329%_ _%hd9429694324%_) - (_%val94336%_ _%hd9429894331%_) - (_%rest94338%_ _%tl9429994333%_)) - (_%K9429594321%_ - _%rest94338%_ - _%val94336%_ - _%param94329%_))) - (_%E9429394305%_))) - (_%try-match9429294313%_))))))) + (##car _%tl9518095209%_)))) + (let ((_%param95212%_ _%hd9517995207%_) + (_%val95219%_ _%hd9518195214%_) + (_%rest95221%_ _%tl9518295216%_)) + (_%K9517895204%_ + _%rest95221%_ + _%val95219%_ + _%param95212%_))) + (_%E9517695188%_))) + (_%try-match9517595196%_))))))) (define with-unwind-protect - (lambda (_%K94253%_ _%fini94254%_) - (if (procedure? _%K94253%_) - (let ((_%K94258%_ _%K94253%_)) - (if (procedure? _%fini94254%_) - (let ((_%fini94268%_ _%fini94254%_)) - (__with-unwind-protect _%K94258%_ _%fini94268%_)) + (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: - _%fini94254%_) + _%fini95137%_) '#!void))) (begin (raise-contract-violation-error @@ -122,222 +122,222 @@ 'contract: 'procedure? 'value: - _%K94253%_) + _%K95136%_) '#!void)))) (define __with-unwind-protect - (lambda (_%K94227%_ _%fini94228%_) - (let* ((_%K94231%_ _%K94227%_) - (_%fini94240%_ _%fini94228%_) - (_%once94249%_ '#f) - (__tmp94394 + (lambda (_%K95110%_ _%fini95111%_) + (let* ((_%K95114%_ _%K95110%_) + (_%fini95123%_ _%fini95111%_) + (_%once95132%_ '#f) + (__tmp95277 (lambda () (declare (not interrupts-enabled)) - (if _%once94249%_ + (if _%once95132%_ (error '"Cannot re-enter unwind protected block") - (set! _%once94249%_ '#t))))) + (set! _%once95132%_ '#t))))) (declare (not safe)) - (##dynamic-wind __tmp94394 _%K94231%_ _%fini94240%_)))) + (##dynamic-wind __tmp95277 _%K95114%_ _%fini95123%_)))) (define keyword-dispatch - (lambda (_%kwt94120%_ _%K94121%_ . _%all-args94122%_) - (if _%kwt94120%_ - (if (vector? _%kwt94120%_) + (lambda (_%kwt95003%_ _%K95004%_ . _%all-args95005%_) + (if _%kwt95003%_ + (if (vector? _%kwt95003%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt94120%_)) + (error '"keyword-dispatch: expected vector" _%kwt95003%_)) '#!void) - (if (procedure? _%K94121%_) + (if (procedure? _%K95004%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K94121%_)) - (let ((_%keys94124%_ + (error '"keyword-dispatch: expected procedure" _%K95004%_)) + (let ((_%keys95007%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp94126%_ ((_%rest94128%_ _%all-args94122%_) - (_%args94129%_ '#f) - (_%tail94130%_ '#f)) - (let* ((_%rest9413194139%_ _%rest94128%_) - (_%else9413394147%_ + (let _%lp95009%_ ((_%rest95011%_ _%all-args95005%_) + (_%args95012%_ '#f) + (_%tail95013%_ '#f)) + (let* ((_%rest9501495022%_ _%rest95011%_) + (_%else9501695030%_ (lambda () - (if _%args94129%_ + (if _%args95012%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail94130%_ '())) - (let ((__tmp94395 - (cons _%keys94124%_ _%args94129%_))) + (##set-cdr! _%tail95013%_ '())) + (let ((__tmp95278 + (cons _%keys95007%_ _%args95012%_))) (declare (not safe)) - (##apply _%K94121%_ __tmp94395))) - (_%K94121%_ _%keys94124%_)))) - (_%K9413594215%_ - (lambda (_%hd-rest94150%_ _%hd94151%_) - (if (keyword? _%hd94151%_) - (let* ((_%hd-rest9415394160%_ _%hd-rest94150%_) - (_%E9415594164%_ + (##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-rest9415394160%_ + _%hd-rest9503695043%_ '([val . rest])) '#!void)) - (_%K9415694172%_ - (lambda (_%rest94167%_ _%val94168%_) - (if _%kwt94120%_ - (let ((_%pos94170%_ - (let ((__tmp94397 + (_%K9503995055%_ + (lambda (_%rest95050%_ _%val95051%_) + (if _%kwt95003%_ + (let ((_%pos95053%_ + (let ((__tmp95280 (let () (declare (not safe)) (##keyword-hash - _%hd94151%_))) - (__tmp94396 + _%hd95034%_))) + (__tmp95279 (let () (declare (not safe)) (##vector-length - _%kwt94120%_)))) + _%kwt95003%_)))) (declare (not safe)) (##fxmodulo - __tmp94397 - __tmp94396)))) - (if (eq? _%hd94151%_ + __tmp95280 + __tmp95279)))) + (if (eq? _%hd95034%_ (let () (declare (not safe)) (##vector-ref - _%kwt94120%_ - _%pos94170%_))) + _%kwt95003%_ + _%pos95053%_))) '#!void (error '"Unexpected keyword argument" - _%K94121%_ - _%hd94151%_))) + _%K95004%_ + _%hd95034%_))) '#!void) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%keys94124%_ - _%hd94151%_ + _%keys95007%_ + _%hd95034%_ absent-value)) absent-value) '#!void (error '"Duplicate keyword argument" - _%K94121%_ - _%hd94151%_)) + _%K95004%_ + _%hd95034%_)) (let () (declare (not safe)) (symbolic-table-set! - _%keys94124%_ - _%hd94151%_ - _%val94168%_)) - (_%lp94126%_ - _%rest94167%_ - _%args94129%_ - _%tail94130%_)))) - (if (pair? _%hd-rest9415394160%_) - (let ((_%hd9415794175%_ + _%keys95007%_ + _%hd95034%_ + _%val95051%_)) + (_%lp95009%_ + _%rest95050%_ + _%args95012%_ + _%tail95013%_)))) + (if (pair? _%hd-rest9503695043%_) + (let ((_%hd9504095058%_ (let () (declare (not safe)) - (##car _%hd-rest9415394160%_))) - (_%tl9415894177%_ + (##car _%hd-rest9503695043%_))) + (_%tl9504195060%_ (let () (declare (not safe)) - (##cdr _%hd-rest9415394160%_)))) - (let* ((_%val94180%_ _%hd9415794175%_) - (_%rest94182%_ _%tl9415894177%_)) - (_%K9415694172%_ - _%rest94182%_ - _%val94180%_))) - (_%E9415594164%_))) - (if (eq? _%hd94151%_ '#!key) - (let* ((_%hd-rest9418494191%_ _%hd-rest94150%_) - (_%E9418694195%_ + (##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-rest9418494191%_ + _%hd-rest9506795074%_ '([val . rest])) '#!void)) - (_%K9418794201%_ - (lambda (_%rest94198%_ _%val94199%_) - (if _%args94129%_ + (_%K9507095084%_ + (lambda (_%rest95081%_ _%val95082%_) + (if _%args95012%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail94130%_ - _%hd-rest94150%_)) - (_%lp94126%_ - _%rest94198%_ - _%args94129%_ - _%hd-rest94150%_)) - (_%lp94126%_ - _%rest94198%_ - _%hd-rest94150%_ - _%hd-rest94150%_))))) - (if (pair? _%hd-rest9418494191%_) - (let ((_%hd9418894204%_ + _%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-rest9418494191%_))) - (_%tl9418994206%_ + (##car _%hd-rest9506795074%_))) + (_%tl9507295089%_ (let () (declare (not safe)) - (##cdr _%hd-rest9418494191%_)))) - (let* ((_%val94209%_ _%hd9418894204%_) - (_%rest94211%_ _%tl9418994206%_)) - (_%K9418794201%_ - _%rest94211%_ - _%val94209%_))) - (_%E9418694195%_))) - (if (eq? _%hd94151%_ '#!rest) - (if _%args94129%_ + (##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! - _%tail94130%_ - _%hd-rest94150%_)) - (let ((__tmp94398 - (cons _%keys94124%_ - _%args94129%_))) + _%tail95013%_ + _%hd-rest95033%_)) + (let ((__tmp95281 + (cons _%keys95007%_ + _%args95012%_))) (declare (not safe)) - (##apply _%K94121%_ __tmp94398))) - (let ((__tmp94399 - (cons _%keys94124%_ - _%hd-rest94150%_))) + (##apply _%K95004%_ __tmp95281))) + (let ((__tmp95282 + (cons _%keys95007%_ + _%hd-rest95033%_))) (declare (not safe)) - (##apply _%K94121%_ __tmp94399))) - (if _%args94129%_ + (##apply _%K95004%_ __tmp95282))) + (if _%args95012%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail94130%_ - _%rest94128%_)) - (_%lp94126%_ - _%hd-rest94150%_ - _%args94129%_ - _%rest94128%_)) - (_%lp94126%_ - _%hd-rest94150%_ - _%rest94128%_ - _%rest94128%_)))))))) - (if (pair? _%rest9413194139%_) - (let ((_%hd9413694218%_ + _%tail95013%_ + _%rest95011%_)) + (_%lp95009%_ + _%hd-rest95033%_ + _%args95012%_ + _%rest95011%_)) + (_%lp95009%_ + _%hd-rest95033%_ + _%rest95011%_ + _%rest95011%_)))))))) + (if (pair? _%rest9501495022%_) + (let ((_%hd9501995101%_ (let () (declare (not safe)) - (##car _%rest9413194139%_))) - (_%tl9413794220%_ + (##car _%rest9501495022%_))) + (_%tl9502095103%_ (let () (declare (not safe)) - (##cdr _%rest9413194139%_)))) - (let* ((_%hd94223%_ _%hd9413694218%_) - (_%hd-rest94225%_ _%tl9413794220%_)) - (_%K9413594215%_ _%hd-rest94225%_ _%hd94223%_))) - (_%else9413394147%_))))))) + (##cdr _%rest9501495022%_)))) + (let* ((_%hd95106%_ _%hd9501995101%_) + (_%hd-rest95108%_ _%tl9502095103%_)) + (_%K9501895098%_ _%hd-rest95108%_ _%hd95106%_))) + (_%else9501695030%_))))))) (define keyword-rest - (lambda (_%kwt94112%_ . _%drop94113%_) - (let ((_%rest94115%_ '())) - (let ((__tmp94400 - (lambda (_%k94117%_ _%v94118%_) + (lambda (_%kwt94995%_ . _%drop94996%_) + (let ((_%rest94998%_ '())) + (let ((__tmp95283 + (lambda (_%k95000%_ _%v95001%_) (if (let () (declare (not safe)) - (##memq _%k94117%_ _%drop94113%_)) + (##memq _%k95000%_ _%drop94996%_)) '#!void - (set! _%rest94115%_ - (cons _%k94117%_ - (cons _%v94118%_ _%rest94115%_))))))) + (set! _%rest94998%_ + (cons _%k95000%_ + (cons _%v95001%_ _%rest94998%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt94112%_ __tmp94400)) - _%rest94115%_))))) + (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 0008fbabc..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 1734131745) + (define gerbil/runtime/error::timestamp 1734357960) (begin (define Exception::t - (let ((__tmp104130 (list))) + (let ((__tmp105013 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp104130 + __tmp105013 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args104100%_ - (apply make-instance Exception::t _%$args104100%_))) + (lambda _%$args104983%_ + (apply make-instance Exception::t _%$args104983%_))) (define StackTrace::t - (let ((__tmp104131 (list))) + (let ((__tmp105014 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp104131 + __tmp105014 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args104097%_ - (apply make-instance StackTrace::t _%$args104097%_))) + (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 ((__tmp104132 (list StackTrace::t Exception::t))) + (let ((__tmp105015 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp104132 + __tmp105015 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args104094%_ (apply make-instance Error::t _%$args104094%_))) + (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 ((__tmp104133 (list Error::t))) + (let ((__tmp105016 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp104133 + __tmp105016 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args104091%_ - (apply make-instance ContractViolation::t _%$args104091%_))) + (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 ((__tmp104134 (list StackTrace::t Exception::t))) + (let ((__tmp105017 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp104134 + __tmp105017 '(exception) '((transparent: . #t)) '#f))) @@ -228,8 +228,8 @@ (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args104088%_ - (apply make-instance RuntimeException::t _%$args104088%_))) + (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 (_%exn104083%_ _%continue104084%_) - (let ((_%exn104086%_ (wrap-runtime-exception _%exn104083%_))) + (lambda (_%exn104966%_ _%continue104967%_) + (let ((_%exn104969%_ (wrap-runtime-exception _%exn104966%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn104086%_ _%continue104084%_)))) + (##repl-exception-handler-hook _%exn104969%_ _%continue104967%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn104079%_) + (lambda (_%exn104962%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn104079%_)) + (class-instance? StackTrace::t _%exn104962%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn104079%_ 'continuation)) + (unchecked-slot-ref _%exn104962%_ 'continuation)) '#!void - (let ((__tmp104135 - (lambda (_%cont104081%_) + (let ((__tmp105018 + (lambda (_%cont104964%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn104079%_ + _%exn104962%_ 'continuation - _%cont104081%_))))) + _%cont104964%_))))) (declare (not safe)) - (##continuation-capture __tmp104135))) + (##continuation-capture __tmp105018))) '#!void) - (let () (declare (not safe)) (##raise _%exn104079%_)))) + (let () (declare (not safe)) (##raise _%exn104962%_)))) (define error - (lambda (_%message104076%_ . _%irritants104077%_) - (raise (let ((__obj104127 + (lambda (_%message104959%_ . _%irritants104960%_) + (raise (let ((__obj105010 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj104127 - _%message104076%_ + __obj105010 + _%message104959%_ 'irritants: - _%irritants104077%_) - __obj104127)))) + _%irritants104960%_) + __obj105010)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords104048%_ - _%ctx104043104049%_ - _%contract-expr104044104051%_ - _%value104045104053%_ - _%message104055%_) - (let* ((_%ctx104057%_ - (if (eq? _%ctx104043104049%_ absent-value) + (lambda (_%@@keywords104931%_ + _%ctx104926104932%_ + _%contract-expr104927104934%_ + _%value104928104936%_ + _%message104938%_) + (let* ((_%ctx104940%_ + (if (eq? _%ctx104926104932%_ absent-value) '#f - _%ctx104043104049%_)) - (_%contract-expr104059%_ - (if (eq? _%contract-expr104044104051%_ absent-value) + _%ctx104926104932%_)) + (_%contract-expr104942%_ + (if (eq? _%contract-expr104927104934%_ absent-value) '#f - _%contract-expr104044104051%_)) - (_%value104061%_ - (if (eq? _%value104045104053%_ absent-value) + _%contract-expr104927104934%_)) + (_%value104944%_ + (if (eq? _%value104928104936%_ absent-value) '#f - _%value104045104053%_))) - (raise (let ((__obj104128 + _%value104928104936%_))) + (raise (let ((__obj105011 (let () (declare (not safe)) (##structure ContractViolation::t '#f '#f '#f '#f)))) (ContractViolation:::init! - __obj104128 - _%message104055%_ + __obj105011 + _%message104938%_ 'where: - _%ctx104057%_ + _%ctx104940%_ 'irritants: (cons 'contract: - (cons _%contract-expr104059%_ - (cons 'value: (cons _%value104061%_ '()))))) - __obj104128))))) + (cons _%contract-expr104942%_ + (cons 'value: (cons _%value104944%_ '()))))) + __obj105011))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords104066%_ . _%args104067%_) + (lambda (_%@@keywords104949%_ . _%args104950%_) (apply __raise-contract-violation-error__% - _%@@keywords104066%_ + _%@@keywords104949%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords104066%_ + _%@@keywords104949%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords104066%_ + _%@@keywords104949%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords104066%_ + _%@@keywords104949%_ 'value: absent-value)) - _%args104067%_))) + _%args104950%_))) (define __raise-contract-violation-error - (lambda _%args104046104073%_ + (lambda _%args104929104956%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args104046104073%_))) + _%args104929104956%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler104017%_ _%thunk104018%_) - (if (procedure? _%handler104017%_) - (let ((_%handler104022%_ _%handler104017%_)) - (if (procedure? _%thunk104018%_) - (let ((_%thunk104032%_ _%thunk104018%_)) + (lambda (_%handler104900%_ _%thunk104901%_) + (if (procedure? _%handler104900%_) + (let ((_%handler104905%_ _%handler104900%_)) + (if (procedure? _%thunk104901%_) + (let ((_%thunk104915%_ _%thunk104901%_)) (__with-exception-handler - _%handler104022%_ - _%thunk104032%_)) + _%handler104905%_ + _%thunk104915%_)) (begin (raise-contract-violation-error '"contract violation" @@ -387,7 +387,7 @@ 'contract: 'procedure? 'value: - _%thunk104018%_) + _%thunk104901%_) '#!void))) (begin (raise-contract-violation-error @@ -397,26 +397,26 @@ 'contract: 'procedure? 'value: - _%handler104017%_) + _%handler104900%_) '#!void)))) (define __with-exception-handler - (lambda (_%handler103992%_ _%thunk103993%_) - (let* ((_%handler103996%_ _%handler103992%_) - (_%thunk104004%_ _%thunk103993%_) - (__tmp104136 - (lambda (_%exn104013%_) - (let ((_%exn104015%_ (wrap-runtime-exception _%exn104013%_))) + (lambda (_%handler104875%_ _%thunk104876%_) + (let* ((_%handler104879%_ _%handler104875%_) + (_%thunk104887%_ _%thunk104876%_) + (__tmp105019 + (lambda (_%exn104896%_) + (let ((_%exn104898%_ (wrap-runtime-exception _%exn104896%_))) (declare (not safe)) - (_%handler103996%_ _%exn104015%_))))) + (_%handler104879%_ _%exn104898%_))))) (declare (not safe)) - (##with-exception-handler __tmp104136 _%thunk104004%_)))) + (##with-exception-handler __tmp105019 _%thunk104887%_)))) (define with-catch - (lambda (_%handler103967%_ _%thunk103968%_) - (if (procedure? _%handler103967%_) - (let ((_%handler103972%_ _%handler103967%_)) - (if (procedure? _%thunk103968%_) - (let ((_%thunk103982%_ _%thunk103968%_)) - (__with-catch _%handler103972%_ _%thunk103982%_)) + (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: - _%thunk103968%_) + _%thunk104851%_) '#!void))) (begin (raise-contract-violation-error @@ -435,38 +435,38 @@ 'contract: 'procedure? 'value: - _%handler103967%_) + _%handler104850%_) '#!void)))) (define __with-catch - (lambda (_%handler103942%_ _%thunk103943%_) - (let* ((_%handler103946%_ _%handler103942%_) - (_%thunk103954%_ _%thunk103943%_) - (__tmp104137 - (lambda (_%cont103963%_) + (lambda (_%handler104825%_ _%thunk104826%_) + (let* ((_%handler104829%_ _%handler104825%_) + (_%thunk104837%_ _%thunk104826%_) + (__tmp105020 + (lambda (_%cont104846%_) (__with-exception-handler - (lambda (_%exn103965%_) + (lambda (_%exn104848%_) (let () (declare (not safe)) (##continuation-graft - _%cont103963%_ - _%handler103946%_ - _%exn103965%_))) - _%thunk103954%_)))) + _%cont104846%_ + _%handler104829%_ + _%exn104848%_))) + _%thunk104837%_)))) (declare (not safe)) - (##continuation-capture __tmp104137)))) + (##continuation-capture __tmp105020)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn103929%_) - (if (or (heap-overflow-exception? _%exn103929%_) - (stack-overflow-exception? _%exn103929%_)) - _%exn103929%_ + (lambda (_%exn104812%_) + (if (or (heap-overflow-exception? _%exn104812%_) + (stack-overflow-exception? _%exn104812%_)) + _%exn104812%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn103929%_)) - _%exn103929%_ - (if (macro-exception? _%exn103929%_) - (let ((_%rte103937%_ - (let ((__obj104129 + (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! - __obj104129 - _%exn103929%_ + __obj105012 + _%exn104812%_ '2 '#f '#f)) - __obj104129))) - (let ((__tmp104138 - (lambda (_%cont103939%_) - (let ((__tmp104139 + __obj105012))) + (let ((__tmp105021 + (lambda (_%cont104822%_) + (let ((__tmp105022 (let () (declare (not safe)) - (##continuation-next _%cont103939%_)))) + (##continuation-next _%cont104822%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte103937%_ + _%rte104820%_ 'continuation - __tmp104139))))) + __tmp105022))))) (declare (not safe)) - (##continuation-capture __tmp104138)) - _%rte103937%_) - _%exn103929%_))))) + (##continuation-capture __tmp105021)) + _%rte104820%_) + _%exn104812%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj103924%_) - (let ((_%$e103926%_ + (lambda (_%obj104807%_) + (let ((_%$e104809%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj103924%_)))) - (if _%$e103926%_ _%$e103926%_ (error-exception? _%obj103924%_))))) + (class-instance? Error::t _%obj104807%_)))) + (if _%$e104809%_ _%$e104809%_ (error-exception? _%obj104807%_))))) (define error-message - (lambda (_%obj103917%_) - (let ((_%$e103919%_ + (lambda (_%obj104800%_) + (let ((_%$e104802%_ (let () (declare (not safe)) - (__slot-ref__% _%obj103917%_ 'message false)))) - (if _%$e103919%_ - _%$e103919%_ - (if (error-exception? _%obj103917%_) - (error-exception-message _%obj103917%_) + (__slot-ref__% _%obj104800%_ 'message false)))) + (if _%$e104802%_ + _%$e104802%_ + (if (error-exception? _%obj104800%_) + (error-exception-message _%obj104800%_) '#f))))) (define error-irritants - (lambda (_%obj103912%_) + (lambda (_%obj104795%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103912%_)) + (class-instance? Error::t _%obj104795%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103912%_ 'irritants)) - (if (error-exception? _%obj103912%_) - (error-exception-parameters _%obj103912%_) + (unchecked-slot-ref _%obj104795%_ 'irritants)) + (if (error-exception? _%obj104795%_) + (error-exception-parameters _%obj104795%_) '#f)))) (define error-trace - (lambda (_%obj103910%_) + (lambda (_%obj104793%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103910%_)) + (class-instance? Error::t _%obj104793%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103910%_ 'where)) + (unchecked-slot-ref _%obj104793%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e103891%_ _%port103892%_) - (let ((_%$e103894%_ + (lambda (_%e104774%_ _%port104775%_) + (let ((_%$e104777%_ (let () (declare (not safe)) - (__method-ref _%e103891%_ 'display-exception)))) - (if _%$e103894%_ - ((lambda (_%f103897%_) (_%f103897%_ _%e103891%_ _%port103892%_)) - _%$e103894%_) + (__method-ref _%e104774%_ 'display-exception)))) + (if _%$e104777%_ + ((lambda (_%f104780%_) (_%f104780%_ _%e104774%_ _%port104775%_)) + _%$e104777%_) (let () (declare (not safe)) - (##default-display-exception _%e103891%_ _%port103892%_)))))) + (##default-display-exception _%e104774%_ _%port104775%_)))))) (define display-exception__0 - (lambda (_%e103903%_) - (let ((_%port103905%_ (current-error-port))) - (display-exception__% _%e103903%_ _%port103905%_)))) + (lambda (_%e104786%_) + (let ((_%port104788%_ (current-error-port))) + (display-exception__% _%e104786%_ _%port104788%_)))) (define display-exception - (lambda _g104141_ - (let ((_g104140_ (let () (declare (not safe)) (##length _g104141_)))) - (cond ((let () (declare (not safe)) (##fx= _g104140_ 1)) - (apply display-exception__0 _g104141_)) - ((let () (declare (not safe)) (##fx= _g104140_ 2)) - (apply display-exception__% _g104141_)) + (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 - _g104141_)))))) + _g105024_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self102260103867%_ _%message103869%_ . _%rest103870%_) - (let* ((_%self103872%_ _%self102260103867%_) - (_%self103874%_ _%self103872%_) - (_%message103888%_ - (if (string? _%message103869%_) - _%message103869%_ + (lambda (_%self103143104750%_ _%message104752%_ . _%rest104753%_) + (let* ((_%self104755%_ _%self103143104750%_) + (_%self104757%_ _%self104755%_) + (_%message104771%_ + (if (string? _%message104752%_) + _%message104752%_ (call-with-output-string '"" - (lambda (_%g103883103885%_) - (display _%message103869%_ _%g103883103885%_)))))) + (lambda (_%g104766104768%_) + (display _%message104752%_ _%g104766104768%_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _%self103874%_ 'message _%message103888%_)) - (apply class-instance-init! _%self103874%_ _%rest103870%_)))) + (unchecked-slot-set! _%self104757%_ 'message _%message104771%_)) + (apply class-instance-init! _%self104757%_ _%rest104753%_)))) (define Error:::init!::specialize - (lambda (__klass104102 __method-table104103) - (let ((__message104104 - (let ((__slot104105 + (lambda (__klass104985 __method-table104986) + (let ((__message104987 + (let ((__slot104988 (let () (declare (not safe)) - (class-slot-offset __klass104102 'message)))) - (if __slot104105 - __slot104105 + (class-slot-offset __klass104985 'message)))) + (if __slot104988 + __slot104988 (error '"Unknown slot" 'message))))) - (lambda (_%self102260103867%_ _%message103869%_ . _%rest103870%_) - (let* ((_%self103872%_ _%self102260103867%_) - (_%self103874%_ _%self103872%_) - (_%message103888%_ - (if (string? _%message103869%_) - _%message103869%_ + (lambda (_%self103143104750%_ _%message104752%_ . _%rest104753%_) + (let* ((_%self104755%_ _%self103143104750%_) + (_%self104757%_ _%self104755%_) + (_%message104771%_ + (if (string? _%message104752%_) + _%message104752%_ (call-with-output-string '"" - (lambda (_%g103883103885%_) - (display _%message103869%_ _%g103883103885%_)))))) + (lambda (_%g104766104768%_) + (display _%message104752%_ _%g104766104768%_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self103874%_ - _%message103888%_ - __message104104 + _%self104757%_ + _%message104771%_ + __message104987 '#f '#f)) - (apply class-instance-init! _%self103874%_ _%rest103870%_)))))) + (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 (_%self102261103589%_ _%port103591%_) - (let* ((_%self103593%_ _%self102261103589%_) - (_%self103595%_ _%self103593%_)) - (let ((_%tmp-port103605%_ (open-output-string)) - (_%display-error-newline103606%_ - (> (output-port-column _%port103591%_) '0))) - (fix-port-width! _%tmp-port103605%_) - (let ((__tmp104142 + (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-newline103606%_ (newline) '#!void) + (if _%display-error-newline104489%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103609%_ + (let ((_%$e104492%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103595%_ 'where)))) - (if _%$e103609%_ (display _%$e103609%_) (display '"?"))) - (let ((__tmp104143 - (let ((__tmp104144 + (unchecked-slot-ref _%self104478%_ 'where)))) + (if _%$e104492%_ (display _%$e104492%_) (display '"?"))) + (let ((__tmp105026 + (let ((__tmp105027 (let () (declare (not safe)) - (object-type _%self103595%_)))) + (object-type _%self104478%_)))) (declare (not safe)) - (##type-name __tmp104144)))) + (##type-name __tmp105027)))) (declare (not safe)) - (display* '" [" __tmp104143 '"]: ")) - (let ((__tmp104145 + (display* '" [" __tmp105026 '"]: ")) + (let ((__tmp105028 (let () (declare (not safe)) - (unchecked-slot-ref _%self103595%_ 'message)))) + (unchecked-slot-ref _%self104478%_ 'message)))) (declare (not safe)) - (displayln __tmp104145)) - (let ((_%irritants103613%_ + (displayln __tmp105028)) + (let ((_%irritants104496%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103595%_ 'irritants)))) - (if (null? _%irritants103613%_) + (unchecked-slot-ref _%self104478%_ 'irritants)))) + (if (null? _%irritants104496%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103615%_) - (if (u8vector? _%obj103615%_) - (let ((__tmp104146 + (lambda (_%obj104498%_) + (if (u8vector? _%obj104498%_) + (let ((__tmp105029 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103615%_)) + _%obj104498%_)) '())))) (declare (not safe)) - (##write __tmp104146)) + (##write __tmp105029)) (let () (declare (not safe)) - (##write _%obj103615%_))) + (##write _%obj104498%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103613%_) + _%irritants104496%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103616103618%_ + (let ((_%cont104499104501%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self103595%_ + _%self104478%_ 'continuation)))) - (if _%cont103616103618%_ - (let ((_%cont103621%_ _%cont103616103618%_)) + (if _%cont104499104501%_ + (let ((_%cont104504%_ _%cont104499104501%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103621%_)) + _%cont104504%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp104142 + __tmp105025 current-output-port - _%tmp-port103605%_)) - (let ((__tmp104147 (get-output-string _%tmp-port103605%_))) + _%tmp-port104488%_)) + (let ((__tmp105030 (get-output-string _%tmp-port104488%_))) (declare (not safe)) - (##write-string __tmp104147 _%port103591%_)))))) + (##write-string __tmp105030 _%port104474%_)))))) (define Error::display-exception::specialize - (lambda (__klass104106 __method-table104107) - (let ((__where104108 - (let ((__slot104112 + (lambda (__klass104989 __method-table104990) + (let ((__message104991 + (let ((__slot104995 (let () (declare (not safe)) - (class-slot-offset __klass104106 'where)))) - (if __slot104112 - __slot104112 - (error '"Unknown slot" 'where)))) - (__continuation104109 - (let ((__slot104113 + (class-slot-offset __klass104989 'message)))) + (if __slot104995 + __slot104995 + (error '"Unknown slot" 'message)))) + (__where104992 + (let ((__slot104996 (let () (declare (not safe)) - (class-slot-offset __klass104106 'continuation)))) - (if __slot104113 - __slot104113 - (error '"Unknown slot" 'continuation)))) - (__irritants104110 - (let ((__slot104114 + (class-slot-offset __klass104989 'where)))) + (if __slot104996 + __slot104996 + (error '"Unknown slot" 'where)))) + (__irritants104993 + (let ((__slot104997 (let () (declare (not safe)) - (class-slot-offset __klass104106 'irritants)))) - (if __slot104114 - __slot104114 + (class-slot-offset __klass104989 'irritants)))) + (if __slot104997 + __slot104997 (error '"Unknown slot" 'irritants)))) - (__message104111 - (let ((__slot104115 + (__continuation104994 + (let ((__slot104998 (let () (declare (not safe)) - (class-slot-offset __klass104106 'message)))) - (if __slot104115 - __slot104115 - (error '"Unknown slot" 'message))))) - (lambda (_%self102261103589%_ _%port103591%_) - (let* ((_%self103593%_ _%self102261103589%_) - (_%self103595%_ _%self103593%_)) - (let ((_%tmp-port103605%_ (open-output-string)) - (_%display-error-newline103606%_ - (> (output-port-column _%port103591%_) '0))) - (fix-port-width! _%tmp-port103605%_) - (let ((__tmp104148 + (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-newline103606%_ (newline) '#!void) + (if _%display-error-newline104489%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103609%_ + (let ((_%$e104492%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103595%_ - __where104108 + _%self104478%_ + __where104992 '#f '#f)))) - (if _%$e103609%_ - (display _%$e103609%_) + (if _%$e104492%_ + (display _%$e104492%_) (display '"?"))) - (let ((__tmp104149 - (let ((__tmp104150 + (let ((__tmp105032 + (let ((__tmp105033 (let () (declare (not safe)) - (object-type _%self103595%_)))) + (object-type _%self104478%_)))) (declare (not safe)) - (##type-name __tmp104150)))) + (##type-name __tmp105033)))) (declare (not safe)) - (display* '" [" __tmp104149 '"]: ")) - (let ((__tmp104151 + (display* '" [" __tmp105032 '"]: ")) + (let ((__tmp105034 (let () (declare (not safe)) (##unchecked-structure-ref - _%self103595%_ - __message104111 + _%self104478%_ + __message104991 '#f '#f)))) (declare (not safe)) - (displayln __tmp104151)) - (let ((_%irritants103613%_ + (displayln __tmp105034)) + (let ((_%irritants104496%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103595%_ - __irritants104110 + _%self104478%_ + __irritants104993 '#f '#f)))) - (if (null? _%irritants103613%_) + (if (null? _%irritants104496%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103615%_) - (if (u8vector? _%obj103615%_) - (let ((__tmp104152 + (lambda (_%obj104498%_) + (if (u8vector? _%obj104498%_) + (let ((__tmp105035 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103615%_)) + _%obj104498%_)) '())))) (declare (not safe)) - (##write __tmp104152)) + (##write __tmp105035)) (let () (declare (not safe)) - (##write _%obj103615%_))) + (##write _%obj104498%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103613%_) + _%irritants104496%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103616103618%_ + (let ((_%cont104499104501%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103595%_ - __continuation104109 + _%self104478%_ + __continuation104994 '#f '#f)))) - (if _%cont103616103618%_ - (let ((_%cont103621%_ _%cont103616103618%_)) + (if _%cont104499104501%_ + (let ((_%cont104504%_ _%cont104499104501%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103621%_)) + _%cont104504%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp104148 + __tmp105031 current-output-port - _%tmp-port103605%_)) - (let ((__tmp104153 (get-output-string _%tmp-port103605%_))) + _%tmp-port104488%_)) + (let ((__tmp105036 (get-output-string _%tmp-port104488%_))) (declare (not safe)) - (##write-string __tmp104153 _%port103591%_)))))))) + (##write-string __tmp105036 _%port104474%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -858,90 +858,90 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self102262103443%_ _%port103445%_) - (let* ((_%self103447%_ _%self102262103443%_) - (_%self103449%_ _%self103447%_) - (_%tmp-port103459%_ (open-output-string))) - (fix-port-width! _%tmp-port103459%_) - (let ((__tmp104154 + (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 _%self103449%_ 'exception)))) + (unchecked-slot-ref _%self104332%_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp104154 _%tmp-port103459%_)) + (##default-display-exception __tmp105037 _%tmp-port104342%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103460103462%_ + (let ((_%cont104343104345%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103449%_ 'continuation)))) - (if _%cont103460103462%_ - (let ((_%cont103465%_ _%cont103460103462%_)) + (unchecked-slot-ref _%self104332%_ 'continuation)))) + (if _%cont104343104345%_ + (let ((_%cont104348%_ _%cont104343104345%_)) (display '"--- continuation backtrace:" - _%tmp-port103459%_) - (newline _%tmp-port103459%_) + _%tmp-port104342%_) + (newline _%tmp-port104342%_) (display-continuation-backtrace - _%cont103465%_ - _%tmp-port103459%_)) + _%cont104348%_ + _%tmp-port104342%_)) '#f)) '#!void) - (let ((__tmp104155 (get-output-string _%tmp-port103459%_))) + (let ((__tmp105038 (get-output-string _%tmp-port104342%_))) (declare (not safe)) - (##write-string __tmp104155 _%port103445%_))))) + (##write-string __tmp105038 _%port104328%_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass104116 __method-table104117) - (let ((__continuation104118 - (let ((__slot104120 + (lambda (__klass104999 __method-table105000) + (let ((__continuation105001 + (let ((__slot105003 (let () (declare (not safe)) - (class-slot-offset __klass104116 'continuation)))) - (if __slot104120 - __slot104120 + (class-slot-offset __klass104999 'continuation)))) + (if __slot105003 + __slot105003 (error '"Unknown slot" 'continuation)))) - (__exception104119 - (let ((__slot104121 + (__exception105002 + (let ((__slot105004 (let () (declare (not safe)) - (class-slot-offset __klass104116 'exception)))) - (if __slot104121 - __slot104121 + (class-slot-offset __klass104999 'exception)))) + (if __slot105004 + __slot105004 (error '"Unknown slot" 'exception))))) - (lambda (_%self102262103443%_ _%port103445%_) - (let* ((_%self103447%_ _%self102262103443%_) - (_%self103449%_ _%self103447%_) - (_%tmp-port103459%_ (open-output-string))) - (fix-port-width! _%tmp-port103459%_) - (let ((__tmp104156 + (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 - _%self103449%_ - __exception104119 + _%self104332%_ + __exception105002 '#f '#f)))) (declare (not safe)) - (##default-display-exception __tmp104156 _%tmp-port103459%_)) + (##default-display-exception __tmp105039 _%tmp-port104342%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103460103462%_ + (let ((_%cont104343104345%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103449%_ - __continuation104118 + _%self104332%_ + __continuation105001 '#f '#f)))) - (if _%cont103460103462%_ - (let ((_%cont103465%_ _%cont103460103462%_)) + (if _%cont104343104345%_ + (let ((_%cont104348%_ _%cont104343104345%_)) (display '"--- continuation backtrace:" - _%tmp-port103459%_) - (newline _%tmp-port103459%_) + _%tmp-port104342%_) + (newline _%tmp-port104342%_) (display-continuation-backtrace - _%cont103465%_ - _%tmp-port103459%_)) + _%cont104348%_ + _%tmp-port104342%_)) '#f)) '#!void) - (let ((__tmp104157 (get-output-string _%tmp-port103459%_))) + (let ((__tmp105040 (get-output-string _%tmp-port104342%_))) (declare (not safe)) - (##write-string __tmp104157 _%port103445%_))))))) + (##write-string __tmp105040 _%port104328%_))))))) (let () (declare (not safe)) (bind-specializer! @@ -955,2636 +955,2636 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port103315%_) - (if (macro-character-port? _%port103315%_) - (let ((_%old-width103317%_ - (macro-character-port-output-width _%port103315%_))) + (lambda (_%port104198%_) + (if (macro-character-port? _%port104198%_) + (let ((_%old-width104200%_ + (macro-character-port-output-width _%port104198%_))) (macro-character-port-output-width-set! - _%port103315%_ - (lambda (_%port103319%_) '256)) - _%old-width103317%_) + _%port104198%_ + (lambda (_%port104202%_) '256)) + _%old-width104200%_) '#!void))) (define reset-port-width! - (lambda (_%port103312%_ _%old-width103313%_) - (if (macro-character-port? _%port103312%_) + (lambda (_%port104195%_ _%old-width104196%_) + (if (macro-character-port? _%port104195%_) (macro-character-port-output-width-set! - _%port103312%_ - _%old-width103313%_) + _%port104195%_ + _%old-width104196%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e103310%_) - (macro-readenv-filepos (datum-parsing-exception-readenv _%e103310%_)))) + (lambda (_%e104193%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e104193%_)))) (define abandoned-mutex-exception? - (lambda (_%exn103304%_) + (lambda (_%exn104187%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103304%_)) - (let ((_%e103307%_ + (class-instance? RuntimeException::t _%exn104187%_)) + (let ((_%e104190%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103304%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e103307%_)) - (macro-abandoned-mutex-exception? _%exn103304%_)))) + (unchecked-slot-ref _%exn104187%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e104190%_)) + (macro-abandoned-mutex-exception? _%exn104187%_)))) (define cfun-conversion-exception? - (lambda (_%exn103300%_) + (lambda (_%exn104183%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103300%_)) - (let ((_%e103302%_ + (class-instance? RuntimeException::t _%exn104183%_)) + (let ((_%e104185%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103300%_ 'exception)))) - (macro-cfun-conversion-exception? _%e103302%_)) - (macro-cfun-conversion-exception? _%exn103300%_)))) + (unchecked-slot-ref _%exn104183%_ 'exception)))) + (macro-cfun-conversion-exception? _%e104185%_)) + (macro-cfun-conversion-exception? _%exn104183%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn103296%_) + (lambda (_%exn104179%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103296%_)) - (let ((_%e103298%_ + (class-instance? RuntimeException::t _%exn104179%_)) + (let ((_%e104181%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103296%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103298%_) - (macro-cfun-conversion-exception-arguments _%e103298%_) + (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 _%e103298%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103296%_) - (macro-cfun-conversion-exception-arguments _%exn103296%_) + (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 _%exn103296%_ '()))))))) + (cons _%exn104179%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn103292%_) + (lambda (_%exn104175%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103292%_)) - (let ((_%e103294%_ + (class-instance? RuntimeException::t _%exn104175%_)) + (let ((_%e104177%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103292%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103294%_) - (macro-cfun-conversion-exception-code _%e103294%_) + (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 _%e103294%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103292%_) - (macro-cfun-conversion-exception-code _%exn103292%_) + (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 _%exn103292%_ '()))))))) + (cons _%exn104175%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn103288%_) + (lambda (_%exn104171%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103288%_)) - (let ((_%e103290%_ + (class-instance? RuntimeException::t _%exn104171%_)) + (let ((_%e104173%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103288%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103290%_) - (macro-cfun-conversion-exception-message _%e103290%_) + (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 _%e103290%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103288%_) - (macro-cfun-conversion-exception-message _%exn103288%_) + (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 _%exn103288%_ '()))))))) + (cons _%exn104171%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn103282%_) + (lambda (_%exn104165%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103282%_)) - (let ((_%e103285%_ + (class-instance? RuntimeException::t _%exn104165%_)) + (let ((_%e104168%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103282%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103285%_) - (macro-cfun-conversion-exception-procedure _%e103285%_) + (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 _%e103285%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103282%_) - (macro-cfun-conversion-exception-procedure _%exn103282%_) + (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 _%exn103282%_ '()))))))) + (cons _%exn104165%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn103278%_) + (lambda (_%exn104161%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103278%_)) - (let ((_%e103280%_ + (class-instance? RuntimeException::t _%exn104161%_)) + (let ((_%e104163%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103278%_ 'exception)))) - (macro-datum-parsing-exception? _%e103280%_)) - (macro-datum-parsing-exception? _%exn103278%_)))) + (unchecked-slot-ref _%exn104161%_ 'exception)))) + (macro-datum-parsing-exception? _%e104163%_)) + (macro-datum-parsing-exception? _%exn104161%_)))) (define datum-parsing-exception-kind - (lambda (_%exn103274%_) + (lambda (_%exn104157%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103274%_)) - (let ((_%e103276%_ + (class-instance? RuntimeException::t _%exn104157%_)) + (let ((_%e104159%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103274%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103276%_) - (macro-datum-parsing-exception-kind _%e103276%_) + (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 _%e103276%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103274%_) - (macro-datum-parsing-exception-kind _%exn103274%_) + (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 _%exn103274%_ '()))))))) + (cons _%exn104157%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn103270%_) + (lambda (_%exn104153%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103270%_)) - (let ((_%e103272%_ + (class-instance? RuntimeException::t _%exn104153%_)) + (let ((_%e104155%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103270%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103272%_) - (macro-datum-parsing-exception-parameters _%e103272%_) + (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 _%e103272%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103270%_) - (macro-datum-parsing-exception-parameters _%exn103270%_) + (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 _%exn103270%_ '()))))))) + (cons _%exn104153%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn103264%_) + (lambda (_%exn104147%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103264%_)) - (let ((_%e103267%_ + (class-instance? RuntimeException::t _%exn104147%_)) + (let ((_%e104150%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103264%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103267%_) - (macro-datum-parsing-exception-readenv _%e103267%_) + (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 _%e103267%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103264%_) - (macro-datum-parsing-exception-readenv _%exn103264%_) + (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 _%exn103264%_ '()))))))) + (cons _%exn104147%_ '()))))))) (define deadlock-exception? - (lambda (_%exn103258%_) + (lambda (_%exn104141%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103258%_)) - (let ((_%e103261%_ + (class-instance? RuntimeException::t _%exn104141%_)) + (let ((_%e104144%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103258%_ 'exception)))) - (macro-deadlock-exception? _%e103261%_)) - (macro-deadlock-exception? _%exn103258%_)))) + (unchecked-slot-ref _%exn104141%_ 'exception)))) + (macro-deadlock-exception? _%e104144%_)) + (macro-deadlock-exception? _%exn104141%_)))) (define divide-by-zero-exception? - (lambda (_%exn103254%_) + (lambda (_%exn104137%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103254%_)) - (let ((_%e103256%_ + (class-instance? RuntimeException::t _%exn104137%_)) + (let ((_%e104139%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103254%_ 'exception)))) - (macro-divide-by-zero-exception? _%e103256%_)) - (macro-divide-by-zero-exception? _%exn103254%_)))) + (unchecked-slot-ref _%exn104137%_ 'exception)))) + (macro-divide-by-zero-exception? _%e104139%_)) + (macro-divide-by-zero-exception? _%exn104137%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn103250%_) + (lambda (_%exn104133%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103250%_)) - (let ((_%e103252%_ + (class-instance? RuntimeException::t _%exn104133%_)) + (let ((_%e104135%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103250%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e103252%_) - (macro-divide-by-zero-exception-arguments _%e103252%_) + (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 _%e103252%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn103250%_) - (macro-divide-by-zero-exception-arguments _%exn103250%_) + (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 _%exn103250%_ '()))))))) + (cons _%exn104133%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn103244%_) + (lambda (_%exn104127%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103244%_)) - (let ((_%e103247%_ + (class-instance? RuntimeException::t _%exn104127%_)) + (let ((_%e104130%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103244%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e103247%_) - (macro-divide-by-zero-exception-procedure _%e103247%_) + (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 _%e103247%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn103244%_) - (macro-divide-by-zero-exception-procedure _%exn103244%_) + (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 _%exn103244%_ '()))))))) + (cons _%exn104127%_ '()))))))) (define error-exception? - (lambda (_%exn103240%_) + (lambda (_%exn104123%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103240%_)) - (let ((_%e103242%_ + (class-instance? RuntimeException::t _%exn104123%_)) + (let ((_%e104125%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103240%_ 'exception)))) - (macro-error-exception? _%e103242%_)) - (macro-error-exception? _%exn103240%_)))) + (unchecked-slot-ref _%exn104123%_ 'exception)))) + (macro-error-exception? _%e104125%_)) + (macro-error-exception? _%exn104123%_)))) (define error-exception-message - (lambda (_%exn103236%_) + (lambda (_%exn104119%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103236%_)) - (let ((_%e103238%_ + (class-instance? RuntimeException::t _%exn104119%_)) + (let ((_%e104121%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103236%_ 'exception)))) - (if (macro-error-exception? _%e103238%_) - (macro-error-exception-message _%e103238%_) + (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 _%e103238%_ '()))))) - (if (macro-error-exception? _%exn103236%_) - (macro-error-exception-message _%exn103236%_) + (cons _%e104121%_ '()))))) + (if (macro-error-exception? _%exn104119%_) + (macro-error-exception-message _%exn104119%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%exn103236%_ '()))))))) + (cons _%exn104119%_ '()))))))) (define error-exception-parameters - (lambda (_%exn103230%_) + (lambda (_%exn104113%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103230%_)) - (let ((_%e103233%_ + (class-instance? RuntimeException::t _%exn104113%_)) + (let ((_%e104116%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103230%_ 'exception)))) - (if (macro-error-exception? _%e103233%_) - (macro-error-exception-parameters _%e103233%_) + (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 _%e103233%_ '()))))) - (if (macro-error-exception? _%exn103230%_) - (macro-error-exception-parameters _%exn103230%_) + (cons _%e104116%_ '()))))) + (if (macro-error-exception? _%exn104113%_) + (macro-error-exception-parameters _%exn104113%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%exn103230%_ '()))))))) + (cons _%exn104113%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn103226%_) + (lambda (_%exn104109%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103226%_)) - (let ((_%e103228%_ + (class-instance? RuntimeException::t _%exn104109%_)) + (let ((_%e104111%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103226%_ 'exception)))) - (macro-expression-parsing-exception? _%e103228%_)) - (macro-expression-parsing-exception? _%exn103226%_)))) + (unchecked-slot-ref _%exn104109%_ 'exception)))) + (macro-expression-parsing-exception? _%e104111%_)) + (macro-expression-parsing-exception? _%exn104109%_)))) (define expression-parsing-exception-kind - (lambda (_%exn103222%_) + (lambda (_%exn104105%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103222%_)) - (let ((_%e103224%_ + (class-instance? RuntimeException::t _%exn104105%_)) + (let ((_%e104107%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103222%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e103224%_) - (macro-expression-parsing-exception-kind _%e103224%_) + (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 _%e103224%_ '()))))) - (if (macro-expression-parsing-exception? _%exn103222%_) - (macro-expression-parsing-exception-kind _%exn103222%_) + (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 _%exn103222%_ '()))))))) + (cons _%exn104105%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn103218%_) + (lambda (_%exn104101%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103218%_)) - (let ((_%e103220%_ + (class-instance? RuntimeException::t _%exn104101%_)) + (let ((_%e104103%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103218%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e103220%_) - (macro-expression-parsing-exception-parameters _%e103220%_) + (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 _%e103220%_ '()))))) - (if (macro-expression-parsing-exception? _%exn103218%_) - (macro-expression-parsing-exception-parameters _%exn103218%_) + (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 _%exn103218%_ '()))))))) + (cons _%exn104101%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn103212%_) + (lambda (_%exn104095%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103212%_)) - (let ((_%e103215%_ + (class-instance? RuntimeException::t _%exn104095%_)) + (let ((_%e104098%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103212%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e103215%_) - (macro-expression-parsing-exception-source _%e103215%_) + (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 _%e103215%_ '()))))) - (if (macro-expression-parsing-exception? _%exn103212%_) - (macro-expression-parsing-exception-source _%exn103212%_) + (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 _%exn103212%_ '()))))))) + (cons _%exn104095%_ '()))))))) (define file-exists-exception? - (lambda (_%exn103208%_) + (lambda (_%exn104091%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103208%_)) - (let ((_%e103210%_ + (class-instance? RuntimeException::t _%exn104091%_)) + (let ((_%e104093%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103208%_ 'exception)))) - (macro-file-exists-exception? _%e103210%_)) - (macro-file-exists-exception? _%exn103208%_)))) + (unchecked-slot-ref _%exn104091%_ 'exception)))) + (macro-file-exists-exception? _%e104093%_)) + (macro-file-exists-exception? _%exn104091%_)))) (define file-exists-exception-arguments - (lambda (_%exn103204%_) + (lambda (_%exn104087%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103204%_)) - (let ((_%e103206%_ + (class-instance? RuntimeException::t _%exn104087%_)) + (let ((_%e104089%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103204%_ 'exception)))) - (if (macro-file-exists-exception? _%e103206%_) - (macro-file-exists-exception-arguments _%e103206%_) + (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 _%e103206%_ '()))))) - (if (macro-file-exists-exception? _%exn103204%_) - (macro-file-exists-exception-arguments _%exn103204%_) + (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 _%exn103204%_ '()))))))) + (cons _%exn104087%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn103198%_) + (lambda (_%exn104081%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103198%_)) - (let ((_%e103201%_ + (class-instance? RuntimeException::t _%exn104081%_)) + (let ((_%e104084%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103198%_ 'exception)))) - (if (macro-file-exists-exception? _%e103201%_) - (macro-file-exists-exception-procedure _%e103201%_) + (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 _%e103201%_ '()))))) - (if (macro-file-exists-exception? _%exn103198%_) - (macro-file-exists-exception-procedure _%exn103198%_) + (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 _%exn103198%_ '()))))))) + (cons _%exn104081%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn103194%_) + (lambda (_%exn104077%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103194%_)) - (let ((_%e103196%_ + (class-instance? RuntimeException::t _%exn104077%_)) + (let ((_%e104079%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103194%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e103196%_)) - (macro-fixnum-overflow-exception? _%exn103194%_)))) + (unchecked-slot-ref _%exn104077%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e104079%_)) + (macro-fixnum-overflow-exception? _%exn104077%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn103190%_) + (lambda (_%exn104073%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103190%_)) - (let ((_%e103192%_ + (class-instance? RuntimeException::t _%exn104073%_)) + (let ((_%e104075%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103190%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e103192%_) - (macro-fixnum-overflow-exception-arguments _%e103192%_) + (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 _%e103192%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn103190%_) - (macro-fixnum-overflow-exception-arguments _%exn103190%_) + (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 _%exn103190%_ '()))))))) + (cons _%exn104073%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn103184%_) + (lambda (_%exn104067%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103184%_)) - (let ((_%e103187%_ + (class-instance? RuntimeException::t _%exn104067%_)) + (let ((_%e104070%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103184%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e103187%_) - (macro-fixnum-overflow-exception-procedure _%e103187%_) + (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 _%e103187%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn103184%_) - (macro-fixnum-overflow-exception-procedure _%exn103184%_) + (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 _%exn103184%_ '()))))))) + (cons _%exn104067%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn103178%_) + (lambda (_%exn104061%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103178%_)) - (let ((_%e103181%_ + (class-instance? RuntimeException::t _%exn104061%_)) + (let ((_%e104064%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103178%_ 'exception)))) - (macro-heap-overflow-exception? _%e103181%_)) - (macro-heap-overflow-exception? _%exn103178%_)))) + (unchecked-slot-ref _%exn104061%_ 'exception)))) + (macro-heap-overflow-exception? _%e104064%_)) + (macro-heap-overflow-exception? _%exn104061%_)))) (define inactive-thread-exception? - (lambda (_%exn103174%_) + (lambda (_%exn104057%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103174%_)) - (let ((_%e103176%_ + (class-instance? RuntimeException::t _%exn104057%_)) + (let ((_%e104059%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103174%_ 'exception)))) - (macro-inactive-thread-exception? _%e103176%_)) - (macro-inactive-thread-exception? _%exn103174%_)))) + (unchecked-slot-ref _%exn104057%_ 'exception)))) + (macro-inactive-thread-exception? _%e104059%_)) + (macro-inactive-thread-exception? _%exn104057%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn103170%_) + (lambda (_%exn104053%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103170%_)) - (let ((_%e103172%_ + (class-instance? RuntimeException::t _%exn104053%_)) + (let ((_%e104055%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103170%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e103172%_) - (macro-inactive-thread-exception-arguments _%e103172%_) + (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 _%e103172%_ '()))))) - (if (macro-inactive-thread-exception? _%exn103170%_) - (macro-inactive-thread-exception-arguments _%exn103170%_) + (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 _%exn103170%_ '()))))))) + (cons _%exn104053%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn103164%_) + (lambda (_%exn104047%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103164%_)) - (let ((_%e103167%_ + (class-instance? RuntimeException::t _%exn104047%_)) + (let ((_%e104050%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103164%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e103167%_) - (macro-inactive-thread-exception-procedure _%e103167%_) + (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 _%e103167%_ '()))))) - (if (macro-inactive-thread-exception? _%exn103164%_) - (macro-inactive-thread-exception-procedure _%exn103164%_) + (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 _%exn103164%_ '()))))))) + (cons _%exn104047%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn103160%_) + (lambda (_%exn104043%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103160%_)) - (let ((_%e103162%_ + (class-instance? RuntimeException::t _%exn104043%_)) + (let ((_%e104045%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103160%_ 'exception)))) - (macro-initialized-thread-exception? _%e103162%_)) - (macro-initialized-thread-exception? _%exn103160%_)))) + (unchecked-slot-ref _%exn104043%_ 'exception)))) + (macro-initialized-thread-exception? _%e104045%_)) + (macro-initialized-thread-exception? _%exn104043%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn103156%_) + (lambda (_%exn104039%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103156%_)) - (let ((_%e103158%_ + (class-instance? RuntimeException::t _%exn104039%_)) + (let ((_%e104041%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103156%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e103158%_) - (macro-initialized-thread-exception-arguments _%e103158%_) + (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 _%e103158%_ '()))))) - (if (macro-initialized-thread-exception? _%exn103156%_) - (macro-initialized-thread-exception-arguments _%exn103156%_) + (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 _%exn103156%_ '()))))))) + (cons _%exn104039%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn103150%_) + (lambda (_%exn104033%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103150%_)) - (let ((_%e103153%_ + (class-instance? RuntimeException::t _%exn104033%_)) + (let ((_%e104036%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103150%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e103153%_) - (macro-initialized-thread-exception-procedure _%e103153%_) + (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 _%e103153%_ '()))))) - (if (macro-initialized-thread-exception? _%exn103150%_) - (macro-initialized-thread-exception-procedure _%exn103150%_) + (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 _%exn103150%_ '()))))))) + (cons _%exn104033%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn103146%_) + (lambda (_%exn104029%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103146%_)) - (let ((_%e103148%_ + (class-instance? RuntimeException::t _%exn104029%_)) + (let ((_%e104031%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103146%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e103148%_)) - (macro-invalid-hash-number-exception? _%exn103146%_)))) + (unchecked-slot-ref _%exn104029%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e104031%_)) + (macro-invalid-hash-number-exception? _%exn104029%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn103142%_) + (lambda (_%exn104025%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103142%_)) - (let ((_%e103144%_ + (class-instance? RuntimeException::t _%exn104025%_)) + (let ((_%e104027%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103142%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e103144%_) - (macro-invalid-hash-number-exception-arguments _%e103144%_) + (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 _%e103144%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn103142%_) - (macro-invalid-hash-number-exception-arguments _%exn103142%_) + (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 _%exn103142%_ '()))))))) + (cons _%exn104025%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn103136%_) + (lambda (_%exn104019%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103136%_)) - (let ((_%e103139%_ + (class-instance? RuntimeException::t _%exn104019%_)) + (let ((_%e104022%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103136%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e103139%_) - (macro-invalid-hash-number-exception-procedure _%e103139%_) + (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 _%e103139%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn103136%_) - (macro-invalid-hash-number-exception-procedure _%exn103136%_) + (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 _%exn103136%_ '()))))))) + (cons _%exn104019%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn103132%_) + (lambda (_%exn104015%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103132%_)) - (let ((_%e103134%_ + (class-instance? RuntimeException::t _%exn104015%_)) + (let ((_%e104017%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103132%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e103134%_)) - (macro-invalid-utf8-encoding-exception? _%exn103132%_)))) + (unchecked-slot-ref _%exn104015%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e104017%_)) + (macro-invalid-utf8-encoding-exception? _%exn104015%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn103128%_) + (lambda (_%exn104011%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103128%_)) - (let ((_%e103130%_ + (class-instance? RuntimeException::t _%exn104011%_)) + (let ((_%e104013%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103128%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e103130%_) - (macro-invalid-utf8-encoding-exception-arguments _%e103130%_) + (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 _%e103130%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn103128%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn103128%_) + (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 _%exn103128%_ '()))))))) + (cons _%exn104011%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn103122%_) + (lambda (_%exn104005%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103122%_)) - (let ((_%e103125%_ + (class-instance? RuntimeException::t _%exn104005%_)) + (let ((_%e104008%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103122%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e103125%_) - (macro-invalid-utf8-encoding-exception-procedure _%e103125%_) + (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 _%e103125%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn103122%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn103122%_) + (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 _%exn103122%_ '()))))))) + (cons _%exn104005%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn103118%_) + (lambda (_%exn104001%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103118%_)) - (let ((_%e103120%_ + (class-instance? RuntimeException::t _%exn104001%_)) + (let ((_%e104003%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103118%_ 'exception)))) - (macro-join-timeout-exception? _%e103120%_)) - (macro-join-timeout-exception? _%exn103118%_)))) + (unchecked-slot-ref _%exn104001%_ 'exception)))) + (macro-join-timeout-exception? _%e104003%_)) + (macro-join-timeout-exception? _%exn104001%_)))) (define join-timeout-exception-arguments - (lambda (_%exn103114%_) + (lambda (_%exn103997%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103114%_)) - (let ((_%e103116%_ + (class-instance? RuntimeException::t _%exn103997%_)) + (let ((_%e103999%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103114%_ 'exception)))) - (if (macro-join-timeout-exception? _%e103116%_) - (macro-join-timeout-exception-arguments _%e103116%_) + (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 _%e103116%_ '()))))) - (if (macro-join-timeout-exception? _%exn103114%_) - (macro-join-timeout-exception-arguments _%exn103114%_) + (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 _%exn103114%_ '()))))))) + (cons _%exn103997%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn103108%_) + (lambda (_%exn103991%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103108%_)) - (let ((_%e103111%_ + (class-instance? RuntimeException::t _%exn103991%_)) + (let ((_%e103994%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103108%_ 'exception)))) - (if (macro-join-timeout-exception? _%e103111%_) - (macro-join-timeout-exception-procedure _%e103111%_) + (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 _%e103111%_ '()))))) - (if (macro-join-timeout-exception? _%exn103108%_) - (macro-join-timeout-exception-procedure _%exn103108%_) + (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 _%exn103108%_ '()))))))) + (cons _%exn103991%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn103104%_) + (lambda (_%exn103987%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103104%_)) - (let ((_%e103106%_ + (class-instance? RuntimeException::t _%exn103987%_)) + (let ((_%e103989%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103104%_ 'exception)))) - (macro-keyword-expected-exception? _%e103106%_)) - (macro-keyword-expected-exception? _%exn103104%_)))) + (unchecked-slot-ref _%exn103987%_ 'exception)))) + (macro-keyword-expected-exception? _%e103989%_)) + (macro-keyword-expected-exception? _%exn103987%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn103100%_) + (lambda (_%exn103983%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103100%_)) - (let ((_%e103102%_ + (class-instance? RuntimeException::t _%exn103983%_)) + (let ((_%e103985%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103100%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e103102%_) - (macro-keyword-expected-exception-arguments _%e103102%_) + (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 _%e103102%_ '()))))) - (if (macro-keyword-expected-exception? _%exn103100%_) - (macro-keyword-expected-exception-arguments _%exn103100%_) + (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 _%exn103100%_ '()))))))) + (cons _%exn103983%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn103094%_) + (lambda (_%exn103977%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103094%_)) - (let ((_%e103097%_ + (class-instance? RuntimeException::t _%exn103977%_)) + (let ((_%e103980%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103094%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e103097%_) - (macro-keyword-expected-exception-procedure _%e103097%_) + (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 _%e103097%_ '()))))) - (if (macro-keyword-expected-exception? _%exn103094%_) - (macro-keyword-expected-exception-procedure _%exn103094%_) + (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 _%exn103094%_ '()))))))) + (cons _%exn103977%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn103090%_) + (lambda (_%exn103973%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103090%_)) - (let ((_%e103092%_ + (class-instance? RuntimeException::t _%exn103973%_)) + (let ((_%e103975%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103090%_ 'exception)))) - (macro-length-mismatch-exception? _%e103092%_)) - (macro-length-mismatch-exception? _%exn103090%_)))) + (unchecked-slot-ref _%exn103973%_ 'exception)))) + (macro-length-mismatch-exception? _%e103975%_)) + (macro-length-mismatch-exception? _%exn103973%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn103086%_) + (lambda (_%exn103969%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103086%_)) - (let ((_%e103088%_ + (class-instance? RuntimeException::t _%exn103969%_)) + (let ((_%e103971%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103086%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e103088%_) - (macro-length-mismatch-exception-arg-id _%e103088%_) + (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 _%e103088%_ '()))))) - (if (macro-length-mismatch-exception? _%exn103086%_) - (macro-length-mismatch-exception-arg-id _%exn103086%_) + (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 _%exn103086%_ '()))))))) + (cons _%exn103969%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn103082%_) + (lambda (_%exn103965%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103082%_)) - (let ((_%e103084%_ + (class-instance? RuntimeException::t _%exn103965%_)) + (let ((_%e103967%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103082%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e103084%_) - (macro-length-mismatch-exception-arguments _%e103084%_) + (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 _%e103084%_ '()))))) - (if (macro-length-mismatch-exception? _%exn103082%_) - (macro-length-mismatch-exception-arguments _%exn103082%_) + (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 _%exn103082%_ '()))))))) + (cons _%exn103965%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn103076%_) + (lambda (_%exn103959%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103076%_)) - (let ((_%e103079%_ + (class-instance? RuntimeException::t _%exn103959%_)) + (let ((_%e103962%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103076%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e103079%_) - (macro-length-mismatch-exception-procedure _%e103079%_) + (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 _%e103079%_ '()))))) - (if (macro-length-mismatch-exception? _%exn103076%_) - (macro-length-mismatch-exception-procedure _%exn103076%_) + (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 _%exn103076%_ '()))))))) + (cons _%exn103959%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn103072%_) + (lambda (_%exn103955%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103072%_)) - (let ((_%e103074%_ + (class-instance? RuntimeException::t _%exn103955%_)) + (let ((_%e103957%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103072%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e103074%_)) - (macro-mailbox-receive-timeout-exception? _%exn103072%_)))) + (unchecked-slot-ref _%exn103955%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e103957%_)) + (macro-mailbox-receive-timeout-exception? _%exn103955%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn103068%_) + (lambda (_%exn103951%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103068%_)) - (let ((_%e103070%_ + (class-instance? RuntimeException::t _%exn103951%_)) + (let ((_%e103953%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103068%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e103070%_) + (unchecked-slot-ref _%exn103951%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e103953%_) (macro-mailbox-receive-timeout-exception-arguments - _%e103070%_) + _%e103953%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e103070%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn103068%_) + (cons _%e103953%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn103951%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn103068%_) + _%exn103951%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn103068%_ '()))))))) + (cons _%exn103951%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn103062%_) + (lambda (_%exn103945%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103062%_)) - (let ((_%e103065%_ + (class-instance? RuntimeException::t _%exn103945%_)) + (let ((_%e103948%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103062%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e103065%_) + (unchecked-slot-ref _%exn103945%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e103948%_) (macro-mailbox-receive-timeout-exception-procedure - _%e103065%_) + _%e103948%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e103065%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn103062%_) + (cons _%e103948%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn103945%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn103062%_) + _%exn103945%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn103062%_ '()))))))) + (cons _%exn103945%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn103058%_) + (lambda (_%exn103941%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103058%_)) - (let ((_%e103060%_ + (class-instance? RuntimeException::t _%exn103941%_)) + (let ((_%e103943%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103058%_ 'exception)))) - (macro-module-not-found-exception? _%e103060%_)) - (macro-module-not-found-exception? _%exn103058%_)))) + (unchecked-slot-ref _%exn103941%_ 'exception)))) + (macro-module-not-found-exception? _%e103943%_)) + (macro-module-not-found-exception? _%exn103941%_)))) (define module-not-found-exception-arguments - (lambda (_%exn103054%_) + (lambda (_%exn103937%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103054%_)) - (let ((_%e103056%_ + (class-instance? RuntimeException::t _%exn103937%_)) + (let ((_%e103939%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103054%_ 'exception)))) - (if (macro-module-not-found-exception? _%e103056%_) - (macro-module-not-found-exception-arguments _%e103056%_) + (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 _%e103056%_ '()))))) - (if (macro-module-not-found-exception? _%exn103054%_) - (macro-module-not-found-exception-arguments _%exn103054%_) + (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 _%exn103054%_ '()))))))) + (cons _%exn103937%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn103048%_) + (lambda (_%exn103931%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103048%_)) - (let ((_%e103051%_ + (class-instance? RuntimeException::t _%exn103931%_)) + (let ((_%e103934%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103048%_ 'exception)))) - (if (macro-module-not-found-exception? _%e103051%_) - (macro-module-not-found-exception-procedure _%e103051%_) + (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 _%e103051%_ '()))))) - (if (macro-module-not-found-exception? _%exn103048%_) - (macro-module-not-found-exception-procedure _%exn103048%_) + (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 _%exn103048%_ '()))))))) + (cons _%exn103931%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn103042%_) + (lambda (_%exn103925%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103042%_)) - (let ((_%e103045%_ + (class-instance? RuntimeException::t _%exn103925%_)) + (let ((_%e103928%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103042%_ 'exception)))) - (macro-multiple-c-return-exception? _%e103045%_)) - (macro-multiple-c-return-exception? _%exn103042%_)))) + (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 (_%exn103038%_) + (lambda (_%exn103921%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103038%_)) - (let ((_%e103040%_ + (class-instance? RuntimeException::t _%exn103921%_)) + (let ((_%e103923%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103038%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e103040%_)) - (macro-no-such-file-or-directory-exception? _%exn103038%_)))) + (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 (_%exn103034%_) + (lambda (_%exn103917%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103034%_)) - (let ((_%e103036%_ + (class-instance? RuntimeException::t _%exn103917%_)) + (let ((_%e103919%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103034%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e103036%_) + (unchecked-slot-ref _%exn103917%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e103919%_) (macro-no-such-file-or-directory-exception-arguments - _%e103036%_) + _%e103919%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e103036%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn103034%_) + (cons _%e103919%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn103917%_) (macro-no-such-file-or-directory-exception-arguments - _%exn103034%_) + _%exn103917%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn103034%_ '()))))))) + (cons _%exn103917%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn103028%_) + (lambda (_%exn103911%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103028%_)) - (let ((_%e103031%_ + (class-instance? RuntimeException::t _%exn103911%_)) + (let ((_%e103914%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103028%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e103031%_) + (unchecked-slot-ref _%exn103911%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e103914%_) (macro-no-such-file-or-directory-exception-procedure - _%e103031%_) + _%e103914%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e103031%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn103028%_) + (cons _%e103914%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn103911%_) (macro-no-such-file-or-directory-exception-procedure - _%exn103028%_) + _%exn103911%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn103028%_ '()))))))) + (cons _%exn103911%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn103024%_) + (lambda (_%exn103907%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103024%_)) - (let ((_%e103026%_ + (class-instance? RuntimeException::t _%exn103907%_)) + (let ((_%e103909%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103024%_ 'exception)))) - (macro-noncontinuable-exception? _%e103026%_)) - (macro-noncontinuable-exception? _%exn103024%_)))) + (unchecked-slot-ref _%exn103907%_ 'exception)))) + (macro-noncontinuable-exception? _%e103909%_)) + (macro-noncontinuable-exception? _%exn103907%_)))) (define noncontinuable-exception-reason - (lambda (_%exn103018%_) + (lambda (_%exn103901%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103018%_)) - (let ((_%e103021%_ + (class-instance? RuntimeException::t _%exn103901%_)) + (let ((_%e103904%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103018%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e103021%_) - (macro-noncontinuable-exception-reason _%e103021%_) + (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 _%e103021%_ '()))))) - (if (macro-noncontinuable-exception? _%exn103018%_) - (macro-noncontinuable-exception-reason _%exn103018%_) + (cons _%e103904%_ '()))))) + (if (macro-noncontinuable-exception? _%exn103901%_) + (macro-noncontinuable-exception-reason _%exn103901%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%exn103018%_ '()))))))) + (cons _%exn103901%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn103014%_) + (lambda (_%exn103897%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103014%_)) - (let ((_%e103016%_ + (class-instance? RuntimeException::t _%exn103897%_)) + (let ((_%e103899%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103014%_ 'exception)))) + (unchecked-slot-ref _%exn103897%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e103016%_)) + _%e103899%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn103014%_)))) + _%exn103897%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn103010%_) + (lambda (_%exn103893%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103010%_)) - (let ((_%e103012%_ + (class-instance? RuntimeException::t _%exn103893%_)) + (let ((_%e103895%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103010%_ 'exception)))) + (unchecked-slot-ref _%exn103893%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e103012%_) + _%e103895%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e103012%_) + _%e103895%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e103012%_ '()))))) + (cons _%e103895%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn103010%_) + _%exn103893%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn103010%_) + _%exn103893%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn103010%_ '()))))))) + (cons _%exn103893%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn103004%_) + (lambda (_%exn103887%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103004%_)) - (let ((_%e103007%_ + (class-instance? RuntimeException::t _%exn103887%_)) + (let ((_%e103890%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103004%_ 'exception)))) + (unchecked-slot-ref _%exn103887%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e103007%_) + _%e103890%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e103007%_) + _%e103890%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e103007%_ '()))))) + (cons _%e103890%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn103004%_) + _%exn103887%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn103004%_) + _%exn103887%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn103004%_ '()))))))) + (cons _%exn103887%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn103000%_) + (lambda (_%exn103883%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103000%_)) - (let ((_%e103002%_ + (class-instance? RuntimeException::t _%exn103883%_)) + (let ((_%e103885%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103000%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e103002%_)) - (macro-nonprocedure-operator-exception? _%exn103000%_)))) + (unchecked-slot-ref _%exn103883%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e103885%_)) + (macro-nonprocedure-operator-exception? _%exn103883%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn102996%_) + (lambda (_%exn103879%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102996%_)) - (let ((_%e102998%_ + (class-instance? RuntimeException::t _%exn103879%_)) + (let ((_%e103881%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102996%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102998%_) - (macro-nonprocedure-operator-exception-arguments _%e102998%_) + (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 _%e102998%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102996%_) - (macro-nonprocedure-operator-exception-arguments _%exn102996%_) + (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 _%exn102996%_ '()))))))) + (cons _%exn103879%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn102992%_) + (lambda (_%exn103875%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102992%_)) - (let ((_%e102994%_ + (class-instance? RuntimeException::t _%exn103875%_)) + (let ((_%e103877%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102992%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102994%_) - (macro-nonprocedure-operator-exception-code _%e102994%_) + (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 _%e102994%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102992%_) - (macro-nonprocedure-operator-exception-code _%exn102992%_) + (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 _%exn102992%_ '()))))))) + (cons _%exn103875%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn102988%_) + (lambda (_%exn103871%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102988%_)) - (let ((_%e102990%_ + (class-instance? RuntimeException::t _%exn103871%_)) + (let ((_%e103873%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102988%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102990%_) - (macro-nonprocedure-operator-exception-operator _%e102990%_) + (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 _%e102990%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102988%_) - (macro-nonprocedure-operator-exception-operator _%exn102988%_) + (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 _%exn102988%_ '()))))))) + (cons _%exn103871%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn102982%_) + (lambda (_%exn103865%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102982%_)) - (let ((_%e102985%_ + (class-instance? RuntimeException::t _%exn103865%_)) + (let ((_%e103868%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102982%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102985%_) - (macro-nonprocedure-operator-exception-rte _%e102985%_) + (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 _%e102985%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102982%_) - (macro-nonprocedure-operator-exception-rte _%exn102982%_) + (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 _%exn102982%_ '()))))))) + (cons _%exn103865%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn102978%_) + (lambda (_%exn103861%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102978%_)) - (let ((_%e102980%_ + (class-instance? RuntimeException::t _%exn103861%_)) + (let ((_%e103863%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102978%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e102980%_)) - (macro-not-in-compilation-context-exception? _%exn102978%_)))) + (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 (_%exn102974%_) + (lambda (_%exn103857%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102974%_)) - (let ((_%e102976%_ + (class-instance? RuntimeException::t _%exn103857%_)) + (let ((_%e103859%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102974%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102976%_) + (unchecked-slot-ref _%exn103857%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e103859%_) (macro-not-in-compilation-context-exception-arguments - _%e102976%_) + _%e103859%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e102976%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102974%_) + (cons _%e103859%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn103857%_) (macro-not-in-compilation-context-exception-arguments - _%exn102974%_) + _%exn103857%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn102974%_ '()))))))) + (cons _%exn103857%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn102968%_) + (lambda (_%exn103851%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102968%_)) - (let ((_%e102971%_ + (class-instance? RuntimeException::t _%exn103851%_)) + (let ((_%e103854%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102968%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102971%_) + (unchecked-slot-ref _%exn103851%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e103854%_) (macro-not-in-compilation-context-exception-procedure - _%e102971%_) + _%e103854%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e102971%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102968%_) + (cons _%e103854%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn103851%_) (macro-not-in-compilation-context-exception-procedure - _%exn102968%_) + _%exn103851%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn102968%_ '()))))))) + (cons _%exn103851%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn102964%_) + (lambda (_%exn103847%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102964%_)) - (let ((_%e102966%_ + (class-instance? RuntimeException::t _%exn103847%_)) + (let ((_%e103849%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102964%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e102966%_)) - (macro-number-of-arguments-limit-exception? _%exn102964%_)))) + (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 (_%exn102960%_) + (lambda (_%exn103843%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102960%_)) - (let ((_%e102962%_ + (class-instance? RuntimeException::t _%exn103843%_)) + (let ((_%e103845%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102960%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102962%_) + (unchecked-slot-ref _%exn103843%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e103845%_) (macro-number-of-arguments-limit-exception-arguments - _%e102962%_) + _%e103845%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e102962%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102960%_) + (cons _%e103845%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn103843%_) (macro-number-of-arguments-limit-exception-arguments - _%exn102960%_) + _%exn103843%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn102960%_ '()))))))) + (cons _%exn103843%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn102954%_) + (lambda (_%exn103837%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102954%_)) - (let ((_%e102957%_ + (class-instance? RuntimeException::t _%exn103837%_)) + (let ((_%e103840%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102954%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102957%_) + (unchecked-slot-ref _%exn103837%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e103840%_) (macro-number-of-arguments-limit-exception-procedure - _%e102957%_) + _%e103840%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e102957%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102954%_) + (cons _%e103840%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn103837%_) (macro-number-of-arguments-limit-exception-procedure - _%exn102954%_) + _%exn103837%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn102954%_ '()))))))) + (cons _%exn103837%_ '()))))))) (define os-exception? - (lambda (_%exn102950%_) + (lambda (_%exn103833%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102950%_)) - (let ((_%e102952%_ + (class-instance? RuntimeException::t _%exn103833%_)) + (let ((_%e103835%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102950%_ 'exception)))) - (macro-os-exception? _%e102952%_)) - (macro-os-exception? _%exn102950%_)))) + (unchecked-slot-ref _%exn103833%_ 'exception)))) + (macro-os-exception? _%e103835%_)) + (macro-os-exception? _%exn103833%_)))) (define os-exception-arguments - (lambda (_%exn102946%_) + (lambda (_%exn103829%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102946%_)) - (let ((_%e102948%_ + (class-instance? RuntimeException::t _%exn103829%_)) + (let ((_%e103831%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102946%_ 'exception)))) - (if (macro-os-exception? _%e102948%_) - (macro-os-exception-arguments _%e102948%_) + (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 _%e102948%_ '()))))) - (if (macro-os-exception? _%exn102946%_) - (macro-os-exception-arguments _%exn102946%_) + (cons _%e103831%_ '()))))) + (if (macro-os-exception? _%exn103829%_) + (macro-os-exception-arguments _%exn103829%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%exn102946%_ '()))))))) + (cons _%exn103829%_ '()))))))) (define os-exception-code - (lambda (_%exn102942%_) + (lambda (_%exn103825%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102942%_)) - (let ((_%e102944%_ + (class-instance? RuntimeException::t _%exn103825%_)) + (let ((_%e103827%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102942%_ 'exception)))) - (if (macro-os-exception? _%e102944%_) - (macro-os-exception-code _%e102944%_) + (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 _%e102944%_ '()))))) - (if (macro-os-exception? _%exn102942%_) - (macro-os-exception-code _%exn102942%_) + (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 _%exn102942%_ '()))))))) + (cons 'os-exception-code (cons _%exn103825%_ '()))))))) (define os-exception-message - (lambda (_%exn102938%_) + (lambda (_%exn103821%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102938%_)) - (let ((_%e102940%_ + (class-instance? RuntimeException::t _%exn103821%_)) + (let ((_%e103823%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102938%_ 'exception)))) - (if (macro-os-exception? _%e102940%_) - (macro-os-exception-message _%e102940%_) + (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 _%e102940%_ '()))))) - (if (macro-os-exception? _%exn102938%_) - (macro-os-exception-message _%exn102938%_) + (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 _%exn102938%_ '()))))))) + (cons _%exn103821%_ '()))))))) (define os-exception-procedure - (lambda (_%exn102932%_) + (lambda (_%exn103815%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102932%_)) - (let ((_%e102935%_ + (class-instance? RuntimeException::t _%exn103815%_)) + (let ((_%e103818%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102932%_ 'exception)))) - (if (macro-os-exception? _%e102935%_) - (macro-os-exception-procedure _%e102935%_) + (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 _%e102935%_ '()))))) - (if (macro-os-exception? _%exn102932%_) - (macro-os-exception-procedure _%exn102932%_) + (cons _%e103818%_ '()))))) + (if (macro-os-exception? _%exn103815%_) + (macro-os-exception-procedure _%exn103815%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%exn102932%_ '()))))))) + (cons _%exn103815%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn102928%_) + (lambda (_%exn103811%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102928%_)) - (let ((_%e102930%_ + (class-instance? RuntimeException::t _%exn103811%_)) + (let ((_%e103813%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102928%_ 'exception)))) - (macro-permission-denied-exception? _%e102930%_)) - (macro-permission-denied-exception? _%exn102928%_)))) + (unchecked-slot-ref _%exn103811%_ 'exception)))) + (macro-permission-denied-exception? _%e103813%_)) + (macro-permission-denied-exception? _%exn103811%_)))) (define permission-denied-exception-arguments - (lambda (_%exn102924%_) + (lambda (_%exn103807%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102924%_)) - (let ((_%e102926%_ + (class-instance? RuntimeException::t _%exn103807%_)) + (let ((_%e103809%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102924%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102926%_) - (macro-permission-denied-exception-arguments _%e102926%_) + (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 _%e102926%_ '()))))) - (if (macro-permission-denied-exception? _%exn102924%_) - (macro-permission-denied-exception-arguments _%exn102924%_) + (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 _%exn102924%_ '()))))))) + (cons _%exn103807%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn102918%_) + (lambda (_%exn103801%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102918%_)) - (let ((_%e102921%_ + (class-instance? RuntimeException::t _%exn103801%_)) + (let ((_%e103804%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102918%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102921%_) - (macro-permission-denied-exception-procedure _%e102921%_) + (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 _%e102921%_ '()))))) - (if (macro-permission-denied-exception? _%exn102918%_) - (macro-permission-denied-exception-procedure _%exn102918%_) + (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 _%exn102918%_ '()))))))) + (cons _%exn103801%_ '()))))))) (define range-exception? - (lambda (_%exn102914%_) + (lambda (_%exn103797%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102914%_)) - (let ((_%e102916%_ + (class-instance? RuntimeException::t _%exn103797%_)) + (let ((_%e103799%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102914%_ 'exception)))) - (macro-range-exception? _%e102916%_)) - (macro-range-exception? _%exn102914%_)))) + (unchecked-slot-ref _%exn103797%_ 'exception)))) + (macro-range-exception? _%e103799%_)) + (macro-range-exception? _%exn103797%_)))) (define range-exception-arg-id - (lambda (_%exn102910%_) + (lambda (_%exn103793%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102910%_)) - (let ((_%e102912%_ + (class-instance? RuntimeException::t _%exn103793%_)) + (let ((_%e103795%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102910%_ 'exception)))) - (if (macro-range-exception? _%e102912%_) - (macro-range-exception-arg-id _%e102912%_) + (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 _%e102912%_ '()))))) - (if (macro-range-exception? _%exn102910%_) - (macro-range-exception-arg-id _%exn102910%_) + (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 _%exn102910%_ '()))))))) + (cons _%exn103793%_ '()))))))) (define range-exception-arguments - (lambda (_%exn102906%_) + (lambda (_%exn103789%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102906%_)) - (let ((_%e102908%_ + (class-instance? RuntimeException::t _%exn103789%_)) + (let ((_%e103791%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102906%_ 'exception)))) - (if (macro-range-exception? _%e102908%_) - (macro-range-exception-arguments _%e102908%_) + (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 _%e102908%_ '()))))) - (if (macro-range-exception? _%exn102906%_) - (macro-range-exception-arguments _%exn102906%_) + (cons _%e103791%_ '()))))) + (if (macro-range-exception? _%exn103789%_) + (macro-range-exception-arguments _%exn103789%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%exn102906%_ '()))))))) + (cons _%exn103789%_ '()))))))) (define range-exception-procedure - (lambda (_%exn102900%_) + (lambda (_%exn103783%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102900%_)) - (let ((_%e102903%_ + (class-instance? RuntimeException::t _%exn103783%_)) + (let ((_%e103786%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102900%_ 'exception)))) - (if (macro-range-exception? _%e102903%_) - (macro-range-exception-procedure _%e102903%_) + (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 _%e102903%_ '()))))) - (if (macro-range-exception? _%exn102900%_) - (macro-range-exception-procedure _%exn102900%_) + (cons _%e103786%_ '()))))) + (if (macro-range-exception? _%exn103783%_) + (macro-range-exception-procedure _%exn103783%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%exn102900%_ '()))))))) + (cons _%exn103783%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn102896%_) + (lambda (_%exn103779%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102896%_)) - (let ((_%e102898%_ + (class-instance? RuntimeException::t _%exn103779%_)) + (let ((_%e103781%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102896%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e102898%_)) - (macro-rpc-remote-error-exception? _%exn102896%_)))) + (unchecked-slot-ref _%exn103779%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e103781%_)) + (macro-rpc-remote-error-exception? _%exn103779%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn102892%_) + (lambda (_%exn103775%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102892%_)) - (let ((_%e102894%_ + (class-instance? RuntimeException::t _%exn103775%_)) + (let ((_%e103777%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102892%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102894%_) - (macro-rpc-remote-error-exception-arguments _%e102894%_) + (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 _%e102894%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102892%_) - (macro-rpc-remote-error-exception-arguments _%exn102892%_) + (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 _%exn102892%_ '()))))))) + (cons _%exn103775%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn102888%_) + (lambda (_%exn103771%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102888%_)) - (let ((_%e102890%_ + (class-instance? RuntimeException::t _%exn103771%_)) + (let ((_%e103773%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102888%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102890%_) - (macro-rpc-remote-error-exception-message _%e102890%_) + (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 _%e102890%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102888%_) - (macro-rpc-remote-error-exception-message _%exn102888%_) + (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 _%exn102888%_ '()))))))) + (cons _%exn103771%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn102882%_) + (lambda (_%exn103765%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102882%_)) - (let ((_%e102885%_ + (class-instance? RuntimeException::t _%exn103765%_)) + (let ((_%e103768%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102882%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102885%_) - (macro-rpc-remote-error-exception-procedure _%e102885%_) + (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 _%e102885%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102882%_) - (macro-rpc-remote-error-exception-procedure _%exn102882%_) + (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 _%exn102882%_ '()))))))) + (cons _%exn103765%_ '()))))))) (define scheduler-exception? - (lambda (_%exn102878%_) + (lambda (_%exn103761%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102878%_)) - (let ((_%e102880%_ + (class-instance? RuntimeException::t _%exn103761%_)) + (let ((_%e103763%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102878%_ 'exception)))) - (macro-scheduler-exception? _%e102880%_)) - (macro-scheduler-exception? _%exn102878%_)))) + (unchecked-slot-ref _%exn103761%_ 'exception)))) + (macro-scheduler-exception? _%e103763%_)) + (macro-scheduler-exception? _%exn103761%_)))) (define scheduler-exception-reason - (lambda (_%exn102872%_) + (lambda (_%exn103755%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102872%_)) - (let ((_%e102875%_ + (class-instance? RuntimeException::t _%exn103755%_)) + (let ((_%e103758%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102872%_ 'exception)))) - (if (macro-scheduler-exception? _%e102875%_) - (macro-scheduler-exception-reason _%e102875%_) + (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 _%e102875%_ '()))))) - (if (macro-scheduler-exception? _%exn102872%_) - (macro-scheduler-exception-reason _%exn102872%_) + (cons _%e103758%_ '()))))) + (if (macro-scheduler-exception? _%exn103755%_) + (macro-scheduler-exception-reason _%exn103755%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%exn102872%_ '()))))))) + (cons _%exn103755%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn102868%_) + (lambda (_%exn103751%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102868%_)) - (let ((_%e102870%_ + (class-instance? RuntimeException::t _%exn103751%_)) + (let ((_%e103753%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102868%_ 'exception)))) - (macro-sfun-conversion-exception? _%e102870%_)) - (macro-sfun-conversion-exception? _%exn102868%_)))) + (unchecked-slot-ref _%exn103751%_ 'exception)))) + (macro-sfun-conversion-exception? _%e103753%_)) + (macro-sfun-conversion-exception? _%exn103751%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn102864%_) + (lambda (_%exn103747%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102864%_)) - (let ((_%e102866%_ + (class-instance? RuntimeException::t _%exn103747%_)) + (let ((_%e103749%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102864%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102866%_) - (macro-sfun-conversion-exception-arguments _%e102866%_) + (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 _%e102866%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102864%_) - (macro-sfun-conversion-exception-arguments _%exn102864%_) + (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 _%exn102864%_ '()))))))) + (cons _%exn103747%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn102860%_) + (lambda (_%exn103743%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102860%_)) - (let ((_%e102862%_ + (class-instance? RuntimeException::t _%exn103743%_)) + (let ((_%e103745%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102860%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102862%_) - (macro-sfun-conversion-exception-code _%e102862%_) + (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 _%e102862%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102860%_) - (macro-sfun-conversion-exception-code _%exn102860%_) + (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 _%exn102860%_ '()))))))) + (cons _%exn103743%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn102856%_) + (lambda (_%exn103739%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102856%_)) - (let ((_%e102858%_ + (class-instance? RuntimeException::t _%exn103739%_)) + (let ((_%e103741%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102856%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102858%_) - (macro-sfun-conversion-exception-message _%e102858%_) + (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 _%e102858%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102856%_) - (macro-sfun-conversion-exception-message _%exn102856%_) + (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 _%exn102856%_ '()))))))) + (cons _%exn103739%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn102850%_) + (lambda (_%exn103733%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102850%_)) - (let ((_%e102853%_ + (class-instance? RuntimeException::t _%exn103733%_)) + (let ((_%e103736%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102850%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102853%_) - (macro-sfun-conversion-exception-procedure _%e102853%_) + (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 _%e102853%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102850%_) - (macro-sfun-conversion-exception-procedure _%exn102850%_) + (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 _%exn102850%_ '()))))))) + (cons _%exn103733%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn102844%_) + (lambda (_%exn103727%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102844%_)) - (let ((_%e102847%_ + (class-instance? RuntimeException::t _%exn103727%_)) + (let ((_%e103730%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102844%_ 'exception)))) - (macro-stack-overflow-exception? _%e102847%_)) - (macro-stack-overflow-exception? _%exn102844%_)))) + (unchecked-slot-ref _%exn103727%_ 'exception)))) + (macro-stack-overflow-exception? _%e103730%_)) + (macro-stack-overflow-exception? _%exn103727%_)))) (define started-thread-exception? - (lambda (_%exn102840%_) + (lambda (_%exn103723%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102840%_)) - (let ((_%e102842%_ + (class-instance? RuntimeException::t _%exn103723%_)) + (let ((_%e103725%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102840%_ 'exception)))) - (macro-started-thread-exception? _%e102842%_)) - (macro-started-thread-exception? _%exn102840%_)))) + (unchecked-slot-ref _%exn103723%_ 'exception)))) + (macro-started-thread-exception? _%e103725%_)) + (macro-started-thread-exception? _%exn103723%_)))) (define started-thread-exception-arguments - (lambda (_%exn102836%_) + (lambda (_%exn103719%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102836%_)) - (let ((_%e102838%_ + (class-instance? RuntimeException::t _%exn103719%_)) + (let ((_%e103721%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102836%_ 'exception)))) - (if (macro-started-thread-exception? _%e102838%_) - (macro-started-thread-exception-arguments _%e102838%_) + (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 _%e102838%_ '()))))) - (if (macro-started-thread-exception? _%exn102836%_) - (macro-started-thread-exception-arguments _%exn102836%_) + (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 _%exn102836%_ '()))))))) + (cons _%exn103719%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn102830%_) + (lambda (_%exn103713%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102830%_)) - (let ((_%e102833%_ + (class-instance? RuntimeException::t _%exn103713%_)) + (let ((_%e103716%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102830%_ 'exception)))) - (if (macro-started-thread-exception? _%e102833%_) - (macro-started-thread-exception-procedure _%e102833%_) + (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 _%e102833%_ '()))))) - (if (macro-started-thread-exception? _%exn102830%_) - (macro-started-thread-exception-procedure _%exn102830%_) + (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 _%exn102830%_ '()))))))) + (cons _%exn103713%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn102826%_) + (lambda (_%exn103709%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102826%_)) - (let ((_%e102828%_ + (class-instance? RuntimeException::t _%exn103709%_)) + (let ((_%e103711%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102826%_ 'exception)))) - (macro-terminated-thread-exception? _%e102828%_)) - (macro-terminated-thread-exception? _%exn102826%_)))) + (unchecked-slot-ref _%exn103709%_ 'exception)))) + (macro-terminated-thread-exception? _%e103711%_)) + (macro-terminated-thread-exception? _%exn103709%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn102822%_) + (lambda (_%exn103705%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102822%_)) - (let ((_%e102824%_ + (class-instance? RuntimeException::t _%exn103705%_)) + (let ((_%e103707%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102822%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102824%_) - (macro-terminated-thread-exception-arguments _%e102824%_) + (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 _%e102824%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102822%_) - (macro-terminated-thread-exception-arguments _%exn102822%_) + (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 _%exn102822%_ '()))))))) + (cons _%exn103705%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn102816%_) + (lambda (_%exn103699%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102816%_)) - (let ((_%e102819%_ + (class-instance? RuntimeException::t _%exn103699%_)) + (let ((_%e103702%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102816%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102819%_) - (macro-terminated-thread-exception-procedure _%e102819%_) + (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 _%e102819%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102816%_) - (macro-terminated-thread-exception-procedure _%exn102816%_) + (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 _%exn102816%_ '()))))))) + (cons _%exn103699%_ '()))))))) (define type-exception? - (lambda (_%exn102812%_) + (lambda (_%exn103695%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102812%_)) - (let ((_%e102814%_ + (class-instance? RuntimeException::t _%exn103695%_)) + (let ((_%e103697%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102812%_ 'exception)))) - (macro-type-exception? _%e102814%_)) - (macro-type-exception? _%exn102812%_)))) + (unchecked-slot-ref _%exn103695%_ 'exception)))) + (macro-type-exception? _%e103697%_)) + (macro-type-exception? _%exn103695%_)))) (define type-exception-arg-id - (lambda (_%exn102808%_) + (lambda (_%exn103691%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102808%_)) - (let ((_%e102810%_ + (class-instance? RuntimeException::t _%exn103691%_)) + (let ((_%e103693%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102808%_ 'exception)))) - (if (macro-type-exception? _%e102810%_) - (macro-type-exception-arg-id _%e102810%_) + (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 _%e102810%_ '()))))) - (if (macro-type-exception? _%exn102808%_) - (macro-type-exception-arg-id _%exn102808%_) + (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 _%exn102808%_ '()))))))) + (cons _%exn103691%_ '()))))))) (define type-exception-arguments - (lambda (_%exn102804%_) + (lambda (_%exn103687%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102804%_)) - (let ((_%e102806%_ + (class-instance? RuntimeException::t _%exn103687%_)) + (let ((_%e103689%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102804%_ 'exception)))) - (if (macro-type-exception? _%e102806%_) - (macro-type-exception-arguments _%e102806%_) + (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 _%e102806%_ '()))))) - (if (macro-type-exception? _%exn102804%_) - (macro-type-exception-arguments _%exn102804%_) + (cons _%e103689%_ '()))))) + (if (macro-type-exception? _%exn103687%_) + (macro-type-exception-arguments _%exn103687%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%exn102804%_ '()))))))) + (cons _%exn103687%_ '()))))))) (define type-exception-procedure - (lambda (_%exn102800%_) + (lambda (_%exn103683%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102800%_)) - (let ((_%e102802%_ + (class-instance? RuntimeException::t _%exn103683%_)) + (let ((_%e103685%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102800%_ 'exception)))) - (if (macro-type-exception? _%e102802%_) - (macro-type-exception-procedure _%e102802%_) + (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 _%e102802%_ '()))))) - (if (macro-type-exception? _%exn102800%_) - (macro-type-exception-procedure _%exn102800%_) + (cons _%e103685%_ '()))))) + (if (macro-type-exception? _%exn103683%_) + (macro-type-exception-procedure _%exn103683%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%exn102800%_ '()))))))) + (cons _%exn103683%_ '()))))))) (define type-exception-type-id - (lambda (_%exn102794%_) + (lambda (_%exn103677%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102794%_)) - (let ((_%e102797%_ + (class-instance? RuntimeException::t _%exn103677%_)) + (let ((_%e103680%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102794%_ 'exception)))) - (if (macro-type-exception? _%e102797%_) - (macro-type-exception-type-id _%e102797%_) + (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 _%e102797%_ '()))))) - (if (macro-type-exception? _%exn102794%_) - (macro-type-exception-type-id _%exn102794%_) + (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 _%exn102794%_ '()))))))) + (cons _%exn103677%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn102790%_) + (lambda (_%exn103673%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102790%_)) - (let ((_%e102792%_ + (class-instance? RuntimeException::t _%exn103673%_)) + (let ((_%e103675%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102790%_ 'exception)))) - (macro-unbound-global-exception? _%e102792%_)) - (macro-unbound-global-exception? _%exn102790%_)))) + (unchecked-slot-ref _%exn103673%_ 'exception)))) + (macro-unbound-global-exception? _%e103675%_)) + (macro-unbound-global-exception? _%exn103673%_)))) (define unbound-global-exception-code - (lambda (_%exn102786%_) + (lambda (_%exn103669%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102786%_)) - (let ((_%e102788%_ + (class-instance? RuntimeException::t _%exn103669%_)) + (let ((_%e103671%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102786%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102788%_) - (macro-unbound-global-exception-code _%e102788%_) + (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 _%e102788%_ '()))))) - (if (macro-unbound-global-exception? _%exn102786%_) - (macro-unbound-global-exception-code _%exn102786%_) + (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 _%exn102786%_ '()))))))) + (cons _%exn103669%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn102782%_) + (lambda (_%exn103665%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102782%_)) - (let ((_%e102784%_ + (class-instance? RuntimeException::t _%exn103665%_)) + (let ((_%e103667%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102782%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102784%_) - (macro-unbound-global-exception-rte _%e102784%_) + (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 _%e102784%_ '()))))) - (if (macro-unbound-global-exception? _%exn102782%_) - (macro-unbound-global-exception-rte _%exn102782%_) + (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 _%exn102782%_ '()))))))) + (cons _%exn103665%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn102776%_) + (lambda (_%exn103659%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102776%_)) - (let ((_%e102779%_ + (class-instance? RuntimeException::t _%exn103659%_)) + (let ((_%e103662%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102776%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102779%_) - (macro-unbound-global-exception-variable _%e102779%_) + (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 _%e102779%_ '()))))) - (if (macro-unbound-global-exception? _%exn102776%_) - (macro-unbound-global-exception-variable _%exn102776%_) + (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 _%exn102776%_ '()))))))) + (cons _%exn103659%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn102772%_) + (lambda (_%exn103655%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102772%_)) - (let ((_%e102774%_ + (class-instance? RuntimeException::t _%exn103655%_)) + (let ((_%e103657%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102772%_ 'exception)))) - (macro-unbound-key-exception? _%e102774%_)) - (macro-unbound-key-exception? _%exn102772%_)))) + (unchecked-slot-ref _%exn103655%_ 'exception)))) + (macro-unbound-key-exception? _%e103657%_)) + (macro-unbound-key-exception? _%exn103655%_)))) (define unbound-key-exception-arguments - (lambda (_%exn102768%_) + (lambda (_%exn103651%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102768%_)) - (let ((_%e102770%_ + (class-instance? RuntimeException::t _%exn103651%_)) + (let ((_%e103653%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102768%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102770%_) - (macro-unbound-key-exception-arguments _%e102770%_) + (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 _%e102770%_ '()))))) - (if (macro-unbound-key-exception? _%exn102768%_) - (macro-unbound-key-exception-arguments _%exn102768%_) + (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 _%exn102768%_ '()))))))) + (cons _%exn103651%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn102762%_) + (lambda (_%exn103645%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102762%_)) - (let ((_%e102765%_ + (class-instance? RuntimeException::t _%exn103645%_)) + (let ((_%e103648%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102762%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102765%_) - (macro-unbound-key-exception-procedure _%e102765%_) + (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 _%e102765%_ '()))))) - (if (macro-unbound-key-exception? _%exn102762%_) - (macro-unbound-key-exception-procedure _%exn102762%_) + (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 _%exn102762%_ '()))))))) + (cons _%exn103645%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn102758%_) + (lambda (_%exn103641%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102758%_)) - (let ((_%e102760%_ + (class-instance? RuntimeException::t _%exn103641%_)) + (let ((_%e103643%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102758%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e102760%_)) - (macro-unbound-os-environment-variable-exception? _%exn102758%_)))) + (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 (_%exn102754%_) + (lambda (_%exn103637%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102754%_)) - (let ((_%e102756%_ + (class-instance? RuntimeException::t _%exn103637%_)) + (let ((_%e103639%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102754%_ 'exception)))) + (unchecked-slot-ref _%exn103637%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102756%_) + _%e103639%_) (macro-unbound-os-environment-variable-exception-arguments - _%e102756%_) + _%e103639%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e102756%_ '()))))) + (cons _%e103639%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102754%_) + _%exn103637%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn102754%_) + _%exn103637%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn102754%_ '()))))))) + (cons _%exn103637%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn102748%_) + (lambda (_%exn103631%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102748%_)) - (let ((_%e102751%_ + (class-instance? RuntimeException::t _%exn103631%_)) + (let ((_%e103634%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102748%_ 'exception)))) + (unchecked-slot-ref _%exn103631%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102751%_) + _%e103634%_) (macro-unbound-os-environment-variable-exception-procedure - _%e102751%_) + _%e103634%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e102751%_ '()))))) + (cons _%e103634%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102748%_) + _%exn103631%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn102748%_) + _%exn103631%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn102748%_ '()))))))) + (cons _%exn103631%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn102744%_) + (lambda (_%exn103627%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102744%_)) - (let ((_%e102746%_ + (class-instance? RuntimeException::t _%exn103627%_)) + (let ((_%e103629%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102744%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e102746%_)) - (macro-unbound-serial-number-exception? _%exn102744%_)))) + (unchecked-slot-ref _%exn103627%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e103629%_)) + (macro-unbound-serial-number-exception? _%exn103627%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn102740%_) + (lambda (_%exn103623%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102740%_)) - (let ((_%e102742%_ + (class-instance? RuntimeException::t _%exn103623%_)) + (let ((_%e103625%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102740%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102742%_) - (macro-unbound-serial-number-exception-arguments _%e102742%_) + (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 _%e102742%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102740%_) - (macro-unbound-serial-number-exception-arguments _%exn102740%_) + (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 _%exn102740%_ '()))))))) + (cons _%exn103623%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn102734%_) + (lambda (_%exn103617%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102734%_)) - (let ((_%e102737%_ + (class-instance? RuntimeException::t _%exn103617%_)) + (let ((_%e103620%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102734%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102737%_) - (macro-unbound-serial-number-exception-procedure _%e102737%_) + (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 _%e102737%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102734%_) - (macro-unbound-serial-number-exception-procedure _%exn102734%_) + (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 _%exn102734%_ '()))))))) + (cons _%exn103617%_ '()))))))) (define uncaught-exception? - (lambda (_%exn102730%_) + (lambda (_%exn103613%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102730%_)) - (let ((_%e102732%_ + (class-instance? RuntimeException::t _%exn103613%_)) + (let ((_%e103615%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102730%_ 'exception)))) - (macro-uncaught-exception? _%e102732%_)) - (macro-uncaught-exception? _%exn102730%_)))) + (unchecked-slot-ref _%exn103613%_ 'exception)))) + (macro-uncaught-exception? _%e103615%_)) + (macro-uncaught-exception? _%exn103613%_)))) (define uncaught-exception-arguments - (lambda (_%exn102726%_) + (lambda (_%exn103609%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102726%_)) - (let ((_%e102728%_ + (class-instance? RuntimeException::t _%exn103609%_)) + (let ((_%e103611%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102726%_ 'exception)))) - (if (macro-uncaught-exception? _%e102728%_) - (macro-uncaught-exception-arguments _%e102728%_) + (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 _%e102728%_ '()))))) - (if (macro-uncaught-exception? _%exn102726%_) - (macro-uncaught-exception-arguments _%exn102726%_) + (cons _%e103611%_ '()))))) + (if (macro-uncaught-exception? _%exn103609%_) + (macro-uncaught-exception-arguments _%exn103609%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%exn102726%_ '()))))))) + (cons _%exn103609%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn102722%_) + (lambda (_%exn103605%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102722%_)) - (let ((_%e102724%_ + (class-instance? RuntimeException::t _%exn103605%_)) + (let ((_%e103607%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102722%_ 'exception)))) - (if (macro-uncaught-exception? _%e102724%_) - (macro-uncaught-exception-procedure _%e102724%_) + (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 _%e102724%_ '()))))) - (if (macro-uncaught-exception? _%exn102722%_) - (macro-uncaught-exception-procedure _%exn102722%_) + (cons _%e103607%_ '()))))) + (if (macro-uncaught-exception? _%exn103605%_) + (macro-uncaught-exception-procedure _%exn103605%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%exn102722%_ '()))))))) + (cons _%exn103605%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn102716%_) + (lambda (_%exn103599%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102716%_)) - (let ((_%e102719%_ + (class-instance? RuntimeException::t _%exn103599%_)) + (let ((_%e103602%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102716%_ 'exception)))) - (if (macro-uncaught-exception? _%e102719%_) - (macro-uncaught-exception-reason _%e102719%_) + (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 _%e102719%_ '()))))) - (if (macro-uncaught-exception? _%exn102716%_) - (macro-uncaught-exception-reason _%exn102716%_) + (cons _%e103602%_ '()))))) + (if (macro-uncaught-exception? _%exn103599%_) + (macro-uncaught-exception-reason _%exn103599%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%exn102716%_ '()))))))) + (cons _%exn103599%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn102712%_) + (lambda (_%exn103595%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102712%_)) - (let ((_%e102714%_ + (class-instance? RuntimeException::t _%exn103595%_)) + (let ((_%e103597%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102712%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e102714%_)) - (macro-uninitialized-thread-exception? _%exn102712%_)))) + (unchecked-slot-ref _%exn103595%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e103597%_)) + (macro-uninitialized-thread-exception? _%exn103595%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn102708%_) + (lambda (_%exn103591%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102708%_)) - (let ((_%e102710%_ + (class-instance? RuntimeException::t _%exn103591%_)) + (let ((_%e103593%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102708%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102710%_) - (macro-uninitialized-thread-exception-arguments _%e102710%_) + (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 _%e102710%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102708%_) - (macro-uninitialized-thread-exception-arguments _%exn102708%_) + (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 _%exn102708%_ '()))))))) + (cons _%exn103591%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn102702%_) + (lambda (_%exn103585%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102702%_)) - (let ((_%e102705%_ + (class-instance? RuntimeException::t _%exn103585%_)) + (let ((_%e103588%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102702%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102705%_) - (macro-uninitialized-thread-exception-procedure _%e102705%_) + (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 _%e102705%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102702%_) - (macro-uninitialized-thread-exception-procedure _%exn102702%_) + (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 _%exn102702%_ '()))))))) + (cons _%exn103585%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn102698%_) + (lambda (_%exn103581%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102698%_)) - (let ((_%e102700%_ + (class-instance? RuntimeException::t _%exn103581%_)) + (let ((_%e103583%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102698%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e102700%_)) - (macro-unknown-keyword-argument-exception? _%exn102698%_)))) + (unchecked-slot-ref _%exn103581%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e103583%_)) + (macro-unknown-keyword-argument-exception? _%exn103581%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn102694%_) + (lambda (_%exn103577%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102694%_)) - (let ((_%e102696%_ + (class-instance? RuntimeException::t _%exn103577%_)) + (let ((_%e103579%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102694%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102696%_) + (unchecked-slot-ref _%exn103577%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e103579%_) (macro-unknown-keyword-argument-exception-arguments - _%e102696%_) + _%e103579%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e102696%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102694%_) + (cons _%e103579%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn103577%_) (macro-unknown-keyword-argument-exception-arguments - _%exn102694%_) + _%exn103577%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn102694%_ '()))))))) + (cons _%exn103577%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn102688%_) + (lambda (_%exn103571%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102688%_)) - (let ((_%e102691%_ + (class-instance? RuntimeException::t _%exn103571%_)) + (let ((_%e103574%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102688%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102691%_) + (unchecked-slot-ref _%exn103571%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e103574%_) (macro-unknown-keyword-argument-exception-procedure - _%e102691%_) + _%e103574%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e102691%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102688%_) + (cons _%e103574%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn103571%_) (macro-unknown-keyword-argument-exception-procedure - _%exn102688%_) + _%exn103571%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn102688%_ '()))))))) + (cons _%exn103571%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn102684%_) + (lambda (_%exn103567%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102684%_)) - (let ((_%e102686%_ + (class-instance? RuntimeException::t _%exn103567%_)) + (let ((_%e103569%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102684%_ 'exception)))) - (macro-unterminated-process-exception? _%e102686%_)) - (macro-unterminated-process-exception? _%exn102684%_)))) + (unchecked-slot-ref _%exn103567%_ 'exception)))) + (macro-unterminated-process-exception? _%e103569%_)) + (macro-unterminated-process-exception? _%exn103567%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn102680%_) + (lambda (_%exn103563%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102680%_)) - (let ((_%e102682%_ + (class-instance? RuntimeException::t _%exn103563%_)) + (let ((_%e103565%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102680%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102682%_) - (macro-unterminated-process-exception-arguments _%e102682%_) + (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 _%e102682%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102680%_) - (macro-unterminated-process-exception-arguments _%exn102680%_) + (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 _%exn102680%_ '()))))))) + (cons _%exn103563%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn102674%_) + (lambda (_%exn103557%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102674%_)) - (let ((_%e102677%_ + (class-instance? RuntimeException::t _%exn103557%_)) + (let ((_%e103560%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102674%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102677%_) - (macro-unterminated-process-exception-procedure _%e102677%_) + (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 _%e102677%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102674%_) - (macro-unterminated-process-exception-procedure _%exn102674%_) + (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 _%exn102674%_ '()))))))) + (cons _%exn103557%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn102670%_) + (lambda (_%exn103553%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102670%_)) - (let ((_%e102672%_ + (class-instance? RuntimeException::t _%exn103553%_)) + (let ((_%e103555%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102670%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e102672%_)) - (macro-wrong-number-of-arguments-exception? _%exn102670%_)))) + (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 (_%exn102666%_) + (lambda (_%exn103549%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102666%_)) - (let ((_%e102668%_ + (class-instance? RuntimeException::t _%exn103549%_)) + (let ((_%e103551%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102666%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102668%_) + (unchecked-slot-ref _%exn103549%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e103551%_) (macro-wrong-number-of-arguments-exception-arguments - _%e102668%_) + _%e103551%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e102668%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102666%_) + (cons _%e103551%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn103549%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn102666%_) + _%exn103549%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn102666%_ '()))))))) + (cons _%exn103549%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn102660%_) + (lambda (_%exn103543%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102660%_)) - (let ((_%e102663%_ + (class-instance? RuntimeException::t _%exn103543%_)) + (let ((_%e103546%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102660%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102663%_) + (unchecked-slot-ref _%exn103543%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e103546%_) (macro-wrong-number-of-arguments-exception-procedure - _%e102663%_) + _%e103546%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e102663%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102660%_) + (cons _%e103546%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn103543%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn102660%_) + _%exn103543%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn102660%_ '()))))))) + (cons _%exn103543%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn102656%_) + (lambda (_%exn103539%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102656%_)) - (let ((_%e102658%_ + (class-instance? RuntimeException::t _%exn103539%_)) + (let ((_%e103541%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102656%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e102658%_)) - (macro-wrong-number-of-values-exception? _%exn102656%_)))) + (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 (_%exn102652%_) + (lambda (_%exn103535%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102652%_)) - (let ((_%e102654%_ + (class-instance? RuntimeException::t _%exn103535%_)) + (let ((_%e103537%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102652%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102654%_) - (macro-wrong-number-of-values-exception-code _%e102654%_) + (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 _%e102654%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102652%_) - (macro-wrong-number-of-values-exception-code _%exn102652%_) + (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 _%exn102652%_ '()))))))) + (cons _%exn103535%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn102648%_) + (lambda (_%exn103531%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102648%_)) - (let ((_%e102650%_ + (class-instance? RuntimeException::t _%exn103531%_)) + (let ((_%e103533%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102648%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102650%_) - (macro-wrong-number-of-values-exception-rte _%e102650%_) + (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 _%e102650%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102648%_) - (macro-wrong-number-of-values-exception-rte _%exn102648%_) + (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 _%exn102648%_ '()))))))) + (cons _%exn103531%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn102642%_) + (lambda (_%exn103525%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102642%_)) - (let ((_%e102645%_ + (class-instance? RuntimeException::t _%exn103525%_)) + (let ((_%e103528%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102642%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102645%_) - (macro-wrong-number-of-values-exception-vals _%e102645%_) + (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 _%e102645%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102642%_) - (macro-wrong-number-of-values-exception-vals _%exn102642%_) + (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 _%exn102642%_ '()))))))) + (cons _%exn103525%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn102636%_) + (lambda (_%exn103519%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102636%_)) - (let ((_%e102639%_ + (class-instance? RuntimeException::t _%exn103519%_)) + (let ((_%e103522%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102636%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e102639%_)) - (macro-wrong-processor-c-return-exception? _%exn102636%_)))))) + (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 5d440e147..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]#_g104159_| + (define |[1]#_g105042_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g104161_| + (define |[1]#_g105044_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g104163_| + (define |[1]#_g105046_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g104165_| + (define |[1]#_g105048_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g104167_| + (define |[1]#_g105050_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g104169_| + (define |[1]#_g105052_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g104171_| + (define |[1]#_g105054_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104173_| + (define |[1]#_g105056_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104175_| + (define |[1]#_g105058_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104177_| + (define |[1]#_g105060_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104179_| + (define |[1]#_g105062_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g104180_| + (define |[1]#_g105063_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g104182_| + (define |[1]#_g105065_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g104184_| + (define |[1]#_g105067_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g104186_| + (define |[1]#_g105069_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g104188_| + (define |[1]#_g105071_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g104189_| + (define |[1]#_g105072_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104190_| + (define |[1]#_g105073_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g104191_| + (define |[1]#_g105074_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104193_| + (define |[1]#_g105076_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104194_| + (define |[1]#_g105077_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104195_| + (define |[1]#_g105078_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104196_| + (define |[1]#_g105079_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104198_| + (define |[1]#_g105081_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g104199_| + (define |[1]#_g105082_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104200_| + (define |[1]#_g105083_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g104201_| + (define |[1]#_g105084_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104203_| + (define |[1]#_g105086_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104204_| + (define |[1]#_g105087_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104205_| + (define |[1]#_g105088_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104206_| + (define |[1]#_g105089_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104208_| + (define |[1]#_g105091_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g104210_| + (define |[1]#_g105093_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g104212_| + (define |[1]#_g105095_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g104214_| + (define |[1]#_g105097_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g104216_| + (define |[1]#_g105099_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g104217_| + (define |[1]#_g105100_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104218_| + (define |[1]#_g105101_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g104219_| + (define |[1]#_g105102_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104221_| + (define |[1]#_g105104_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104222_| + (define |[1]#_g105105_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104223_| + (define |[1]#_g105106_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104224_| + (define |[1]#_g105107_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104226_| + (define |[1]#_g105109_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g104227_| + (define |[1]#_g105110_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104228_| + (define |[1]#_g105111_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g104229_| + (define |[1]#_g105112_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104231_| + (define |[1]#_g105114_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104232_| + (define |[1]#_g105115_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104233_| + (define |[1]#_g105116_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104234_| + (define |[1]#_g105117_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104237_| + (define |[1]#_g105120_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g104239_| + (define |[1]#_g105122_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g104241_| + (define |[1]#_g105124_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g104243_| + (define |[1]#_g105126_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g104244_| + (define |[1]#_g105127_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104246_| + (define |[1]#_g105129_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104247_| + (define |[1]#_g105130_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104249_| + (define |[1]#_g105132_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g104250_| + (define |[1]#_g105133_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104252_| + (define |[1]#_g105135_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104253_| + (define |[1]#_g105136_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj104122 + (let ((__obj105005 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104122 + __obj105005 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj105005 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105005 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105005 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105005 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '#f '11 '#f '#f)) - (let ((__tmp104158 |[1]#_g104159_|)) + (##unchecked-structure-set! __obj105005 '#f '11 '#f '#f)) + (let ((__tmp105041 |[1]#_g105042_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104122 __tmp104158 '12 '#f '#f)) - (let ((__tmp104160 |[1]#_g104161_|)) + (##unchecked-structure-set! __obj105005 __tmp105041 '12 '#f '#f)) + (let ((__tmp105043 |[1]#_g105044_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104122 __tmp104160 '13 '#f '#f)) - (let ((__tmp104162 |[1]#_g104163_|)) + (##unchecked-structure-set! __obj105005 __tmp105043 '13 '#f '#f)) + (let ((__tmp105045 |[1]#_g105046_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104122 __tmp104162 '14 '#f '#f)) + (##unchecked-structure-set! __obj105005 __tmp105045 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104122 '() '20 '#f '#f)) - __obj104122)) + (##unchecked-structure-set! __obj105005 '() '20 '#f '#f)) + __obj105005)) (define |[:0:]#StackTrace| - (let ((__obj104123 + (let ((__obj105006 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104123 + __obj105006 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj105006 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj105006 '(continuation) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj105006 '(continuation) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj105006 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105006 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105006 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105006 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '#f '11 '#f '#f)) - (let ((__tmp104164 |[1]#_g104165_|)) + (##unchecked-structure-set! __obj105006 '#f '11 '#f '#f)) + (let ((__tmp105047 |[1]#_g105048_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104123 __tmp104164 '12 '#f '#f)) - (let ((__tmp104166 |[1]#_g104167_|)) + (##unchecked-structure-set! __obj105006 __tmp105047 '12 '#f '#f)) + (let ((__tmp105049 |[1]#_g105050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104123 __tmp104166 '13 '#f '#f)) - (let ((__tmp104168 |[1]#_g104169_|)) + (##unchecked-structure-set! __obj105006 __tmp105049 '13 '#f '#f)) + (let ((__tmp105051 |[1]#_g105052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104123 __tmp104168 '14 '#f '#f)) - (let ((__tmp104170 (cons (cons 'continuation |[1]#_g104171_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105051 '14 '#f '#f)) + (let ((__tmp105053 (cons (cons 'continuation |[1]#_g105054_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104123 __tmp104170 '15 '#f '#f)) - (let ((__tmp104172 (cons (cons 'continuation |[1]#_g104173_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105053 '15 '#f '#f)) + (let ((__tmp105055 (cons (cons 'continuation |[1]#_g105056_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104123 __tmp104172 '16 '#f '#f)) - (let ((__tmp104174 (cons (cons 'continuation |[1]#_g104175_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105055 '16 '#f '#f)) + (let ((__tmp105057 (cons (cons 'continuation |[1]#_g105058_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104123 __tmp104174 '17 '#f '#f)) - (let ((__tmp104176 (cons (cons 'continuation |[1]#_g104177_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105057 '17 '#f '#f)) + (let ((__tmp105059 (cons (cons 'continuation |[1]#_g105060_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104123 __tmp104176 '18 '#f '#f)) + (##unchecked-structure-set! __obj105006 __tmp105059 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105006 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105006 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104123 '() '20 '#f '#f)) - __obj104123)) + (##unchecked-structure-set! __obj105006 '() '20 '#f '#f)) + __obj105006)) (define |[:0:]#Error| - (let ((__obj104124 + (let ((__obj105007 (let () (declare (not safe)) (##structure @@ -645,18 +645,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104124 + __obj105007 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj105007 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104124 + __obj105007 '(message irritants where) '4 '#f @@ -664,79 +664,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104124 + __obj105007 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp104178 (cons |[1]#_g104179_| (cons |[1]#_g104180_| '())))) + (let ((__tmp105061 (cons |[1]#_g105062_| (cons |[1]#_g105063_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104124 __tmp104178 '3 '#f '#f)) + (##unchecked-structure-set! __obj105007 __tmp105061 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105007 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105007 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105007 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 ':init! '11 '#f '#f)) - (let ((__tmp104181 |[1]#_g104182_|)) + (##unchecked-structure-set! __obj105007 ':init! '11 '#f '#f)) + (let ((__tmp105064 |[1]#_g105065_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104124 __tmp104181 '12 '#f '#f)) - (let ((__tmp104183 |[1]#_g104184_|)) + (##unchecked-structure-set! __obj105007 __tmp105064 '12 '#f '#f)) + (let ((__tmp105066 |[1]#_g105067_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104124 __tmp104183 '13 '#f '#f)) - (let ((__tmp104185 |[1]#_g104186_|)) + (##unchecked-structure-set! __obj105007 __tmp105066 '13 '#f '#f)) + (let ((__tmp105068 |[1]#_g105069_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104124 __tmp104185 '14 '#f '#f)) - (let ((__tmp104187 - (cons (cons 'message |[1]#_g104188_|) - (cons (cons 'irritants |[1]#_g104189_|) - (cons (cons 'where |[1]#_g104190_|) - (cons (cons 'continuation |[1]#_g104191_|) + (##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! __obj104124 __tmp104187 '15 '#f '#f)) - (let ((__tmp104192 - (cons (cons 'message |[1]#_g104193_|) - (cons (cons 'irritants |[1]#_g104194_|) - (cons (cons 'where |[1]#_g104195_|) - (cons (cons 'continuation |[1]#_g104196_|) + (##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! __obj104124 __tmp104192 '16 '#f '#f)) - (let ((__tmp104197 - (cons (cons 'message |[1]#_g104198_|) - (cons (cons 'irritants |[1]#_g104199_|) - (cons (cons 'where |[1]#_g104200_|) - (cons (cons 'continuation |[1]#_g104201_|) + (##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! __obj104124 __tmp104197 '17 '#f '#f)) - (let ((__tmp104202 - (cons (cons 'message |[1]#_g104203_|) - (cons (cons 'irritants |[1]#_g104204_|) - (cons (cons 'where |[1]#_g104205_|) - (cons (cons 'continuation |[1]#_g104206_|) + (##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! __obj104124 __tmp104202 '18 '#f '#f)) + (##unchecked-structure-set! __obj105007 __tmp105085 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105007 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105007 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104124 '() '20 '#f '#f)) - __obj104124)) + (##unchecked-structure-set! __obj105007 '() '20 '#f '#f)) + __obj105007)) (define |[:0:]#ContractViolation| - (let ((__obj104125 + (let ((__obj105008 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104125 + __obj105008 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104125 + __obj105008 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj105008 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104125 + __obj105008 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp104207 (cons |[1]#_g104208_| '()))) + (let ((__tmp105090 (cons |[1]#_g105091_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104125 __tmp104207 '3 '#f '#f)) + (##unchecked-structure-set! __obj105008 __tmp105090 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105008 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105008 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105008 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '#f '11 '#f '#f)) - (let ((__tmp104209 |[1]#_g104210_|)) + (##unchecked-structure-set! __obj105008 '#f '11 '#f '#f)) + (let ((__tmp105092 |[1]#_g105093_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104125 __tmp104209 '12 '#f '#f)) - (let ((__tmp104211 |[1]#_g104212_|)) + (##unchecked-structure-set! __obj105008 __tmp105092 '12 '#f '#f)) + (let ((__tmp105094 |[1]#_g105095_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104125 __tmp104211 '13 '#f '#f)) - (let ((__tmp104213 |[1]#_g104214_|)) + (##unchecked-structure-set! __obj105008 __tmp105094 '13 '#f '#f)) + (let ((__tmp105096 |[1]#_g105097_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104125 __tmp104213 '14 '#f '#f)) - (let ((__tmp104215 - (cons (cons 'message |[1]#_g104216_|) - (cons (cons 'irritants |[1]#_g104217_|) - (cons (cons 'where |[1]#_g104218_|) - (cons (cons 'continuation |[1]#_g104219_|) + (##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! __obj104125 __tmp104215 '15 '#f '#f)) - (let ((__tmp104220 - (cons (cons 'message |[1]#_g104221_|) - (cons (cons 'irritants |[1]#_g104222_|) - (cons (cons 'where |[1]#_g104223_|) - (cons (cons 'continuation |[1]#_g104224_|) + (##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! __obj104125 __tmp104220 '16 '#f '#f)) - (let ((__tmp104225 - (cons (cons 'message |[1]#_g104226_|) - (cons (cons 'irritants |[1]#_g104227_|) - (cons (cons 'where |[1]#_g104228_|) - (cons (cons 'continuation |[1]#_g104229_|) + (##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! __obj104125 __tmp104225 '17 '#f '#f)) - (let ((__tmp104230 - (cons (cons 'message |[1]#_g104231_|) - (cons (cons 'irritants |[1]#_g104232_|) - (cons (cons 'where |[1]#_g104233_|) - (cons (cons 'continuation |[1]#_g104234_|) + (##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! __obj104125 __tmp104230 '18 '#f '#f)) + (##unchecked-structure-set! __obj105008 __tmp105113 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105008 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105008 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104125 '() '20 '#f '#f)) - __obj104125)) + (##unchecked-structure-set! __obj105008 '() '20 '#f '#f)) + __obj105008)) (define |[:0:]#RuntimeException| - (let ((__obj104126 + (let ((__obj105009 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104126 + __obj105009 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,277 +893,277 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104126 + __obj105009 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj105009 '(exception) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104126 + __obj105009 '(continuation exception) '6 '#f '#f)) - (let ((__tmp104235 (cons |[1]#_g104179_| (cons |[1]#_g104180_| '())))) + (let ((__tmp105118 (cons |[1]#_g105062_| (cons |[1]#_g105063_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104126 __tmp104235 '3 '#f '#f)) + (##unchecked-structure-set! __obj105009 __tmp105118 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105009 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105009 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105009 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '#f '11 '#f '#f)) - (let ((__tmp104236 |[1]#_g104237_|)) + (##unchecked-structure-set! __obj105009 '#f '11 '#f '#f)) + (let ((__tmp105119 |[1]#_g105120_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104126 __tmp104236 '12 '#f '#f)) - (let ((__tmp104238 |[1]#_g104239_|)) + (##unchecked-structure-set! __obj105009 __tmp105119 '12 '#f '#f)) + (let ((__tmp105121 |[1]#_g105122_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104126 __tmp104238 '13 '#f '#f)) - (let ((__tmp104240 |[1]#_g104241_|)) + (##unchecked-structure-set! __obj105009 __tmp105121 '13 '#f '#f)) + (let ((__tmp105123 |[1]#_g105124_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104126 __tmp104240 '14 '#f '#f)) - (let ((__tmp104242 - (cons (cons 'exception |[1]#_g104243_|) - (cons (cons 'continuation |[1]#_g104244_|) '())))) + (##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! __obj104126 __tmp104242 '15 '#f '#f)) - (let ((__tmp104245 - (cons (cons 'exception |[1]#_g104246_|) - (cons (cons 'continuation |[1]#_g104247_|) '())))) + (##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! __obj104126 __tmp104245 '16 '#f '#f)) - (let ((__tmp104248 - (cons (cons 'exception |[1]#_g104249_|) - (cons (cons 'continuation |[1]#_g104250_|) '())))) + (##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! __obj104126 __tmp104248 '17 '#f '#f)) - (let ((__tmp104251 - (cons (cons 'exception |[1]#_g104252_|) - (cons (cons 'continuation |[1]#_g104253_|) '())))) + (##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! __obj104126 __tmp104251 '18 '#f '#f)) + (##unchecked-structure-set! __obj105009 __tmp105134 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105009 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105009 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104126 '() '20 '#f '#f)) - __obj104126)) + (##unchecked-structure-set! __obj105009 '() '20 '#f '#f)) + __obj105009)) (define |[:0:]#defruntime-exception| - (lambda (_%stx102264%_) - (let* ((_%g102267102294%_ - (lambda (_%g102268102290%_) + (lambda (_%stx103147%_) + (let* ((_%g103150103177%_ + (lambda (_%g103151103173%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102268102290%_))) - (_%g102266102530%_ - (lambda (_%g102268102298%_) - (if (gx#stx-pair? _%g102268102298%_) - (let ((_%e102271102301%_ - (gx#syntax-e _%g102268102298%_))) - (let ((_%hd102272102305%_ + _%g103151103173%_))) + (_%g103149103413%_ + (lambda (_%g103151103181%_) + (if (gx#stx-pair? _%g103151103181%_) + (let ((_%e103154103184%_ + (gx#syntax-e _%g103151103181%_))) + (let ((_%hd103155103188%_ (let () (declare (not safe)) - (##car _%e102271102301%_))) - (_%tl102273102308%_ + (##car _%e103154103184%_))) + (_%tl103156103191%_ (let () (declare (not safe)) - (##cdr _%e102271102301%_)))) - (if (gx#stx-pair? _%tl102273102308%_) - (let ((_%e102274102311%_ - (gx#syntax-e _%tl102273102308%_))) - (let ((_%hd102275102315%_ + (##cdr _%e103154103184%_)))) + (if (gx#stx-pair? _%tl103156103191%_) + (let ((_%e103157103194%_ + (gx#syntax-e _%tl103156103191%_))) + (let ((_%hd103158103198%_ (let () (declare (not safe)) - (##car _%e102274102311%_))) - (_%tl102276102318%_ + (##car _%e103157103194%_))) + (_%tl103159103201%_ (let () (declare (not safe)) - (##cdr _%e102274102311%_)))) - (if (gx#stx-pair? _%hd102275102315%_) - (let ((_%e102277102321%_ - (gx#syntax-e _%hd102275102315%_))) - (let ((_%hd102278102325%_ + (##cdr _%e103157103194%_)))) + (if (gx#stx-pair? _%hd103158103198%_) + (let ((_%e103160103204%_ + (gx#syntax-e _%hd103158103198%_))) + (let ((_%hd103161103208%_ (let () (declare (not safe)) - (##car _%e102277102321%_))) - (_%tl102279102328%_ + (##car _%e103160103204%_))) + (_%tl103162103211%_ (let () (declare (not safe)) - (##cdr _%e102277102321%_)))) + (##cdr _%e103160103204%_)))) (if (gx#stx-pair/null? - _%tl102279102328%_) - (let ((_g104254_ + _%tl103162103211%_) + (let ((_g105137_ (gx#syntax-split-splice - _%tl102279102328%_ + _%tl103162103211%_ '0))) (begin - (let ((_g104255_ + (let ((_g105138_ (let () (declare (not safe)) (if (##values? - _g104254_) + _g105137_) (##values-length - _g104254_) + _g105137_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g104255_ 2))) - (error "Context expects 2 values" _g104255_))) + (##fx= _g105138_ 2))) + (error "Context expects 2 values" _g105138_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target102280102331%_ + (let ((_%target103163103214%_ (let () (declare (not safe)) (##values-ref - _g104254_ + _g105137_ 0))) - (_%tl102282102334%_ + (_%tl103165103217%_ (let () (declare (not safe)) (##values-ref - _g104254_ + _g105137_ 1)))) (if (gx#stx-null? - _%tl102282102334%_) - (letrec ((_%loop102283102337%_ + _%tl103165103217%_) + (letrec ((_%loop103166103220%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd102281102341%_ _%getf102287102344%_) - (if (gx#stx-pair? _%hd102281102341%_) - (let ((_%e102284102347%_ - (gx#syntax-e _%hd102281102341%_))) - (let ((_%lp-hd102285102351%_ + (lambda (_%hd103164103224%_ _%getf103170103227%_) + (if (gx#stx-pair? _%hd103164103224%_) + (let ((_%e103167103230%_ + (gx#syntax-e _%hd103164103224%_))) + (let ((_%lp-hd103168103234%_ (let () (declare (not safe)) - (##car _%e102284102347%_))) - (_%lp-tl102286102354%_ + (##car _%e103167103230%_))) + (_%lp-tl103169103237%_ (let () (declare (not safe)) - (##cdr _%e102284102347%_)))) - (_%loop102283102337%_ - _%lp-tl102286102354%_ - (cons _%lp-hd102285102351%_ - _%getf102287102344%_)))) - (let ((_%getf102288102357%_ - (reverse _%getf102287102344%_))) - (if (gx#stx-null? _%tl102276102318%_) - ((lambda (_%L102361%_ _%L102363%_) - (let* ((_%g102384102408%_ - (lambda (_%g102385102404%_) + (##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" - _%g102385102404%_))) - (_%g102383102515%_ - (lambda (_%g102385102412%_) + _%g103268103287%_))) + (_%g103266103398%_ + (lambda (_%g103268103295%_) (if (gx#stx-pair? - _%g102385102412%_) - (let ((_%e102388102415%_ + _%g103268103295%_) + (let ((_%e103271103298%_ (gx#syntax-e - _%g102385102412%_))) - (let ((_%hd102389102419%_ + _%g103268103295%_))) + (let ((_%hd103272103302%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102388102415%_))) - (_%tl102390102422%_ + (##car _%e103271103298%_))) + (_%tl103273103305%_ (let () (declare (not safe)) - (##cdr _%e102388102415%_)))) - (if (gx#stx-pair? _%tl102390102422%_) - (let ((_%e102391102425%_ - (gx#syntax-e _%tl102390102422%_))) - (let ((_%hd102392102429%_ + (##cdr _%e103271103298%_)))) + (if (gx#stx-pair? _%tl103273103305%_) + (let ((_%e103274103308%_ + (gx#syntax-e _%tl103273103305%_))) + (let ((_%hd103275103312%_ (let () (declare (not safe)) - (##car _%e102391102425%_))) - (_%tl102393102432%_ + (##car _%e103274103308%_))) + (_%tl103276103315%_ (let () (declare (not safe)) - (##cdr _%e102391102425%_)))) - (if (gx#stx-pair/null? _%hd102392102429%_) - (let ((_g104256_ + (##cdr _%e103274103308%_)))) + (if (gx#stx-pair/null? _%hd103275103312%_) + (let ((_g105139_ (gx#syntax-split-splice - _%hd102392102429%_ + _%hd103275103312%_ '0))) (begin - (let ((_g104257_ + (let ((_g105140_ (let () (declare (not safe)) - (if (##values? _g104256_) - (##values-length _g104256_) + (if (##values? _g105139_) + (##values-length _g105139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g104257_ 2))) + (##fx= _g105140_ 2))) (error "Context expects 2 values" - _g104257_))) - (let ((_%target102394102435%_ + _g105140_))) + (let ((_%target103277103318%_ (let () (declare (not safe)) - (##values-ref _g104256_ 0))) - (_%tl102396102438%_ + (##values-ref _g105139_ 0))) + (_%tl103279103321%_ (let () (declare (not safe)) - (##values-ref _g104256_ 1)))) - (if (gx#stx-null? _%tl102396102438%_) - (letrec ((_%loop102397102441%_ - (lambda (_%hd102395102445%_ - _%macro-getf102401102448%_) + (##values-ref _g105139_ 1)))) + (if (gx#stx-null? _%tl103279103321%_) + (letrec ((_%loop103280103324%_ + (lambda (_%hd103278103328%_ + _%macro-getf103284103331%_) (if (gx#stx-pair? - _%hd102395102445%_) - (let ((_%e102398102451%_ + _%hd103278103328%_) + (let ((_%e103281103334%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd102395102445%_))) - (let ((_%lp-hd102399102455%_ + _%hd103278103328%_))) + (let ((_%lp-hd103282103338%_ (let () (declare (not safe)) - (##car _%e102398102451%_))) - (_%lp-tl102400102458%_ + (##car _%e103281103334%_))) + (_%lp-tl103283103341%_ (let () (declare (not safe)) - (##cdr _%e102398102451%_)))) - (_%loop102397102441%_ - _%lp-tl102400102458%_ - (cons _%lp-hd102399102455%_ - _%macro-getf102401102448%_)))) - (let ((_%macro-getf102402102461%_ - (reverse _%macro-getf102401102448%_))) - (if (gx#stx-null? _%tl102393102432%_) - ((lambda (_%L102465%_ _%L102467%_) + (##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 _%L102467%_ - (let ((__tmp104258 - (lambda (_%g102492102495%_ + (cons _%L103350%_ + (let ((__tmp105141 + (lambda (_%g103375103378%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102493102498%_) - (cons _%g102492102495%_ _%g102493102498%_)))) + _%g103376103381%_) + (cons _%g103375103378%_ _%g103376103381%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp104258 + __tmp105141 '() - _%L102465%_)))) + _%L103348%_)))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L102363%_ + (cons (cons _%L103246%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1185,7 +1185,7 @@ (cons (gx#datum->syntax '#f 'exn) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102467%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1193,7 +1193,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102467%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax '#f 'exn) @@ -1203,23 +1203,23 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L102361%_ - _%L102465%_ - _%L102361%_ - _%L102465%_ - _%L102361%_) - (let ((__tmp104259 - (lambda (_%g102486102501%_ - _%g102487102504%_ - _%g102488102506%_ - _%g102489102508%_ - _%g102490102510%_ - _%g102491102512%_) + _%L103244%_ + _%L103348%_ + _%L103244%_ + _%L103348%_ + _%L103244%_) + (let ((__tmp105142 + (lambda (_%g103369103384%_ + _%g103370103387%_ + _%g103371103389%_ + _%g103372103391%_ + _%g103373103393%_ + _%g103374103395%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%g102486102501%_ + (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 _%L102467%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax '#f 'e) '())) - (cons (cons _%g102487102504%_ + (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 _%L102363%_ '())) + (cons _%L103246%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102486102501%_ + (cons _%g103369103384%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (gx#datum->syntax '#f 'e) '()))) @@ -1278,10 +1278,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L102467%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax '#f 'exn) '())) - (cons (cons _%g102487102504%_ + (cons (cons _%g103370103387%_ (cons (gx#datum->syntax '#f 'exn) @@ -1294,10 +1294,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L102363%_ '())) + (cons _%L103246%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102486102501%_ '())) + (cons _%g103369103384%_ '())) (cons (gx#datum->syntax '#f 'exn) '()))) '())))) @@ -1306,148 +1306,148 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g102491102512%_)))) + _%g103374103395%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr* - __tmp104259 + __tmp105142 '() - _%L102361%_ - _%L102465%_ - _%L102361%_ - _%L102465%_ - _%L102361%_))))))) - _%macro-getf102402102461%_ - _%hd102389102419%_) - (_%g102384102408%_ _%g102385102412%_))))))) + _%L103244%_ + _%L103348%_ + _%L103244%_ + _%L103348%_ + _%L103244%_))))))) + _%macro-getf103285103344%_ + _%hd103272103302%_) + (_%g103267103291%_ _%g103268103295%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102397102441%_ - _%target102394102435%_ + (_%loop103280103324%_ + _%target103277103318%_ '())) - (_%g102384102408%_ - _%g102385102412%_))))) - (_%g102384102408%_ _%g102385102412%_)))) - (_%g102384102408%_ _%g102385102412%_)))) - (_%g102384102408%_ _%g102385102412%_))))) + (_%g103267103291%_ + _%g103268103295%_))))) + (_%g103267103291%_ _%g103268103295%_)))) + (_%g103267103291%_ _%g103268103295%_)))) + (_%g103267103291%_ _%g103268103295%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102383102515%_ + (_%g103266103398%_ (list (gx#stx-identifier - _%L102363%_ + _%L103246%_ '"macro-" - _%L102363%_) - (map (lambda (_%f102519%_) + _%L103246%_) + (map (lambda (_%f103402%_) (gx#stx-identifier - _%f102519%_ + _%f103402%_ '"macro-" - _%f102519%_)) - (let ((__tmp104260 - (lambda (_%g102521102524%_ + _%f103402%_)) + (let ((__tmp105143 + (lambda (_%g103404103407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102522102527%_) - (cons _%g102521102524%_ _%g102522102527%_)))) + _%g103405103410%_) + (cons _%g103404103407%_ _%g103405103410%_)))) (declare (not safe)) - (__foldr1 __tmp104260 '() _%L102361%_))))))) + (__foldr1 __tmp105143 '() _%L103244%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf102288102357%_ - _%hd102278102325%_) - (_%g102267102294%_ - _%g102268102298%_))))))) - (_%loop102283102337%_ _%target102280102331%_ '())) - (_%g102267102294%_ _%g102268102298%_))))) + _%getf103171103240%_ + _%hd103161103208%_) + (_%g103150103177%_ + _%g103151103181%_))))))) + (_%loop103166103220%_ _%target103163103214%_ '())) + (_%g103150103177%_ _%g103151103181%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102267102294%_ - _%g102268102298%_)))) - (_%g102267102294%_ _%g102268102298%_)))) - (_%g102267102294%_ _%g102268102298%_)))) - (_%g102267102294%_ _%g102268102298%_))))) - (_%g102266102530%_ _%stx102264%_)))) + (_%g103150103177%_ + _%g103151103181%_)))) + (_%g103150103177%_ _%g103151103181%_)))) + (_%g103150103177%_ _%g103151103181%_)))) + (_%g103150103177%_ _%g103151103181%_))))) + (_%g103149103413%_ _%stx103147%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx102536%_) - (let* ((_%g102540102560%_ - (lambda (_%g102541102556%_) + (lambda (_%$stx103419%_) + (let* ((_%g103423103443%_ + (lambda (_%g103424103439%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102541102556%_))) - (_%g102539102631%_ - (lambda (_%g102541102564%_) - (if (gx#stx-pair? _%g102541102564%_) - (let ((_%e102543102567%_ - (gx#syntax-e _%g102541102564%_))) - (let ((_%hd102544102571%_ + _%g103424103439%_))) + (_%g103422103514%_ + (lambda (_%g103424103447%_) + (if (gx#stx-pair? _%g103424103447%_) + (let ((_%e103426103450%_ + (gx#syntax-e _%g103424103447%_))) + (let ((_%hd103427103454%_ (let () (declare (not safe)) - (##car _%e102543102567%_))) - (_%tl102545102574%_ + (##car _%e103426103450%_))) + (_%tl103428103457%_ (let () (declare (not safe)) - (##cdr _%e102543102567%_)))) - (if (gx#stx-pair/null? _%tl102545102574%_) - (let ((_g104261_ + (##cdr _%e103426103450%_)))) + (if (gx#stx-pair/null? _%tl103428103457%_) + (let ((_g105144_ (gx#syntax-split-splice - _%tl102545102574%_ + _%tl103428103457%_ '0))) (begin - (let ((_g104262_ + (let ((_g105145_ (let () (declare (not safe)) - (if (##values? _g104261_) - (##values-length _g104261_) + (if (##values? _g105144_) + (##values-length _g105144_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g104262_ 2))) + (##fx= _g105145_ 2))) (error "Context expects 2 values" - _g104262_))) - (let ((_%target102546102577%_ + _g105145_))) + (let ((_%target103429103460%_ (let () (declare (not safe)) - (##values-ref _g104261_ 0))) - (_%tl102548102580%_ + (##values-ref _g105144_ 0))) + (_%tl103431103463%_ (let () (declare (not safe)) - (##values-ref _g104261_ 1)))) - (if (gx#stx-null? _%tl102548102580%_) - (letrec ((_%loop102549102583%_ - (lambda (_%hd102547102587%_ - _%defexn102553102590%_) + (##values-ref _g105144_ 1)))) + (if (gx#stx-null? _%tl103431103463%_) + (letrec ((_%loop103432103466%_ + (lambda (_%hd103430103470%_ + _%defexn103436103473%_) (if (gx#stx-pair? - _%hd102547102587%_) - (let ((_%e102550102593%_ + _%hd103430103470%_) + (let ((_%e103433103476%_ (gx#syntax-e - _%hd102547102587%_))) - (let ((_%lp-hd102551102597%_ + _%hd103430103470%_))) + (let ((_%lp-hd103434103480%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e102550102593%_))) - (_%lp-tl102552102600%_ + (##car _%e103433103476%_))) + (_%lp-tl103435103483%_ (let () (declare (not safe)) - (##cdr _%e102550102593%_)))) - (_%loop102549102583%_ - _%lp-tl102552102600%_ - (cons _%lp-hd102551102597%_ _%defexn102553102590%_)))) - (let ((_%defexn102554102603%_ - (reverse _%defexn102553102590%_))) - ((lambda (_%L102607%_) + (##cdr _%e103433103476%_)))) + (_%loop103432103466%_ + _%lp-tl103435103483%_ + (cons _%lp-hd103434103480%_ _%defexn103436103473%_)))) + (let ((_%defexn103437103486%_ + (reverse _%defexn103436103473%_))) + ((lambda (_%L103490%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp104263 - (lambda (_%g102622102625%_ _%g102623102628%_) + (let ((__tmp105146 + (lambda (_%g103505103508%_ _%g103506103511%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g102622102625%_ '())) - _%g102623102628%_)))) + (cons _%g103505103508%_ '())) + _%g103506103511%_)))) (declare (not safe)) - (__foldr1 __tmp104263 '() _%L102607%_)))) - _%defexn102554102603%_)))))) + (__foldr1 __tmp105146 '() _%L103490%_)))) + _%defexn103437103486%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102549102583%_ - _%target102546102577%_ + (_%loop103432103466%_ + _%target103429103460%_ '())) - (_%g102540102560%_ - _%g102541102564%_))))) - (_%g102540102560%_ _%g102541102564%_)))) - (_%g102540102560%_ _%g102541102564%_))))) - (_%g102539102631%_ _%$stx102536%_)))))) + (_%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 5298581a2..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 1734131746) + (define gerbil/runtime/eval::timestamp 1734357961) (begin (define __syntax::t - (let ((__tmp115109 (list)) (__tmp115108 (cons (cons 'struct: '#t) '()))) + (let ((__tmp116094 (list)) (__tmp116093 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp115109 + __tmp116094 '(e id) - __tmp115108 + __tmp116093 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args114913%_ - (apply make-instance __syntax::t _%$args114913%_))) + (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 ((__tmp115111 (list __syntax::t)) - (__tmp115110 (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 - __tmp115111 + __tmp116096 '() - __tmp115110 + __tmp116095 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args114910%_ - (apply make-instance __core-form::t _%$args114910%_))) + (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 ((__tmp115113 (list __core-form::t)) - (__tmp115112 (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 - __tmp115113 + __tmp116098 '() - __tmp115112 + __tmp116097 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args114907%_ - (apply make-instance __core-expression::t _%$args114907%_))) + (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 ((__tmp115115 (list __core-form::t)) - (__tmp115114 (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 - __tmp115115 + __tmp116100 '() - __tmp115114 + __tmp116099 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args114904%_ - (apply make-instance __core-special-form::t _%$args114904%_))) + (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 (_%id114902%_) - (let ((__tmp115116 - (let () (declare (not safe)) (__AST-e _%id114902%_)))) + (lambda (_%id115887%_) + (let ((__tmp116101 + (let () (declare (not safe)) (__AST-e _%id115887%_)))) (declare (not safe)) - (__hash-get __core __tmp115116)))) + (__hash-get __core __tmp116101)))) (define __core-bound-id?__% - (lambda (_%id114885%_ _%is?114886%_) - (let ((_%$e114888%_ (__core-resolve _%id114885%_))) - (if _%$e114888%_ (_%is?114886%_ _%$e114888%_) '#f)))) + (lambda (_%id115870%_ _%is?115871%_) + (let ((_%$e115873%_ (__core-resolve _%id115870%_))) + (if _%$e115873%_ (_%is?115871%_ _%$e115873%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id114895%_) - (let ((_%is?114897%_ true)) - (__core-bound-id?__% _%id114895%_ _%is?114897%_)))) + (lambda (_%id115880%_) + (let ((_%is?115882%_ true)) + (__core-bound-id?__% _%id115880%_ _%is?115882%_)))) (define __core-bound-id? - (lambda _g115118_ - (let ((_g115117_ (let () (declare (not safe)) (##length _g115118_)))) - (cond ((let () (declare (not safe)) (##fx= _g115117_ 1)) - (apply __core-bound-id?__0 _g115118_)) - ((let () (declare (not safe)) (##fx= _g115117_ 2)) - (apply __core-bound-id?__% _g115118_)) + (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? - _g115118_)))))) + _g116103_)))))) (define __core-bind-syntax!__% - (lambda (_%id114868%_ _%e114869%_ _%make114870%_) - (let ((__tmp115119 + (lambda (_%id115853%_ _%e115854%_ _%make115855%_) + (let ((__tmp116104 (if (let () (declare (not safe)) (##structure-instance-of? - _%e114869%_ + _%e115854%_ 'gerbil/runtime/eval#__syntax::t)) - _%e114869%_ - (_%make114870%_ _%e114869%_ _%id114868%_)))) + _%e115854%_ + (_%make115855%_ _%e115854%_ _%id115853%_)))) (declare (not safe)) - (__hash-put! __core _%id114868%_ __tmp115119)))) + (__hash-put! __core _%id115853%_ __tmp116104)))) (define __core-bind-syntax!__0 - (lambda (_%id114875%_ _%e114876%_) - (let ((_%make114878%_ make-__syntax)) - (__core-bind-syntax!__% _%id114875%_ _%e114876%_ _%make114878%_)))) + (lambda (_%id115860%_ _%e115861%_) + (let ((_%make115863%_ make-__syntax)) + (__core-bind-syntax!__% _%id115860%_ _%e115861%_ _%make115863%_)))) (define __core-bind-syntax! - (lambda _g115121_ - (let ((_g115120_ (let () (declare (not safe)) (##length _g115121_)))) - (cond ((let () (declare (not safe)) (##fx= _g115120_ 2)) - (apply __core-bind-syntax!__0 _g115121_)) - ((let () (declare (not safe)) (##fx= _g115120_ 3)) - (apply __core-bind-syntax!__% _g115121_)) + (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! - _g115121_)))))) + _g116106_)))))) (define __SRC__% - (lambda (_%e114848%_ _%src-stx114849%_) - (if (or (pair? _%e114848%_) (symbol? _%e114848%_)) - (let ((__tmp115122 + (lambda (_%e115833%_ _%src-stx115834%_) + (if (or (pair? _%e115833%_) (symbol? _%e115833%_)) + (let ((__tmp116107 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx114849%_ + _%src-stx115834%_ 'gerbil#AST::t)) (__locat (let () (declare (not safe)) - (__AST-source _%src-stx114849%_))) + (__AST-source _%src-stx115834%_))) '#f))) (declare (not safe)) - (##make-source _%e114848%_ __tmp115122)) + (##make-source _%e115833%_ __tmp116107)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e114848%_ 'gerbil#AST::t)) - (let ((__tmp115124 + (##structure-instance-of? _%e115833%_ 'gerbil#AST::t)) + (let ((__tmp116109 (let () (declare (not safe)) - (##unchecked-structure-ref _%e114848%_ '1 '#f '#f))) - (__tmp115123 + (##unchecked-structure-ref _%e115833%_ '1 '#f '#f))) + (__tmp116108 (__locat (let () (declare (not safe)) - (__AST-source _%e114848%_))))) + (__AST-source _%e115833%_))))) (declare (not safe)) - (##make-source __tmp115124 __tmp115123)) + (##make-source __tmp116109 __tmp116108)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e114848%_)))))) + (error '"BUG! Cannot sourcify object" _%e115833%_)))))) (define __SRC__0 - (lambda (_%e114860%_) - (let ((_%src-stx114862%_ '#f)) - (__SRC__% _%e114860%_ _%src-stx114862%_)))) + (lambda (_%e115845%_) + (let ((_%src-stx115847%_ '#f)) + (__SRC__% _%e115845%_ _%src-stx115847%_)))) (define __SRC - (lambda _g115126_ - (let ((_g115125_ (let () (declare (not safe)) (##length _g115126_)))) - (cond ((let () (declare (not safe)) (##fx= _g115125_ 1)) - (apply __SRC__0 _g115126_)) - ((let () (declare (not safe)) (##fx= _g115125_ 2)) - (apply __SRC__% _g115126_)) + (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 - _g115126_)))))) + _g116111_)))))) (define __locat - (lambda (_%loc114845%_) - (if (let () (declare (not safe)) (##locat? _%loc114845%_)) - _%loc114845%_ + (lambda (_%loc115830%_) + (if (let () (declare (not safe)) (##locat? _%loc115830%_)) + _%loc115830%_ '#f))) (define __check-values - (lambda (_%obj114840%_ _%k114841%_) - (let ((_%count114843%_ - (if (let () (declare (not safe)) (##values? _%obj114840%_)) + (lambda (_%obj115825%_ _%k115826%_) + (let ((_%count115828%_ + (if (let () (declare (not safe)) (##values? _%obj115825%_)) (let () (declare (not safe)) - (##vector-length _%obj114840%_)) + (##vector-length _%obj115825%_)) '1))) - (if (fx= _%count114843%_ _%k114841%_) + (if (fx= _%count115828%_ _%k115826%_) '#!void - (let ((__tmp115128 - (if (fx< _%count114843%_ _%k114841%_) + (let ((__tmp116113 + (if (fx< _%count115828%_ _%k115826%_) '"Too few values for context" '"Too many values for context")) - (__tmp115127 + (__tmp116112 (if (let () (declare (not safe)) - (##values? _%obj114840%_)) + (##values? _%obj115825%_)) (let () (declare (not safe)) - (##values->list _%obj114840%_)) - _%obj114840%_))) + (##values->list _%obj115825%_)) + _%obj115825%_))) (declare (not safe)) - (error __tmp115128 __tmp115127 _%k114841%_)))))) + (error __tmp116113 __tmp116112 _%k115826%_)))))) (define __compile - (lambda (_%stx114809%_) - (let* ((_%$e114811%_ _%stx114809%_) - (_%$E114813114819%_ + (lambda (_%stx115794%_) + (let* ((_%$e115796%_ _%stx115794%_) + (_%$E115798115804%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114811%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114811%_)) - (let* ((_%$tgt114814114822%_ - (let () (declare (not safe)) (__AST-e _%$e114811%_))) - (_%$hd114815114825%_ + _%$e115796%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115796%_)) + (let* ((_%$tgt115799115807%_ + (let () (declare (not safe)) (__AST-e _%$e115796%_))) + (_%$hd115800115810%_ (let () (declare (not safe)) - (##car _%$tgt114814114822%_))) - (_%$tl114816114828%_ + (##car _%$tgt115799115807%_))) + (_%$tl115801115813%_ (let () (declare (not safe)) - (##cdr _%$tgt114814114822%_))) - (_%form114832%_ _%$hd114815114825%_) - (_%$e114834%_ (__core-resolve _%form114832%_))) - (if _%$e114834%_ - ((lambda (_%bind114837%_) - ((##structure-ref _%bind114837%_ '1 __syntax::t '#f) - _%stx114809%_)) - _%$e114834%_) + (##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" - _%stx114809%_ - _%form114832%_)))) - (_%$E114813114819%_))))) + _%stx115794%_ + _%form115817%_)))) + (_%$E115798115804%_))))) (define __compile-error__% - (lambda (_%stx114796%_ _%detail114797%_) + (lambda (_%stx115781%_ _%detail115782%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx114796%_ - _%detail114797%_)))) + _%stx115781%_ + _%detail115782%_)))) (define __compile-error__0 - (lambda (_%stx114802%_) - (let ((_%detail114804%_ '#f)) - (__compile-error__% _%stx114802%_ _%detail114804%_)))) + (lambda (_%stx115787%_) + (let ((_%detail115789%_ '#f)) + (__compile-error__% _%stx115787%_ _%detail115789%_)))) (define __compile-error - (lambda _g115130_ - (let ((_g115129_ (let () (declare (not safe)) (##length _g115130_)))) - (cond ((let () (declare (not safe)) (##fx= _g115129_ 1)) - (apply __compile-error__0 _g115130_)) - ((let () (declare (not safe)) (##fx= _g115129_ 2)) - (apply __compile-error__% _g115130_)) + (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 - _g115130_)))))) + _g116115_)))))) (define __compile-ignore% - (lambda (_%stx114793%_) (__SRC__% ''#!void _%stx114793%_))) + (lambda (_%stx115778%_) (__SRC__% ''#!void _%stx115778%_))) (define __compile-begin% - (lambda (_%stx114768%_) - (let* ((_%$e114770%_ _%stx114768%_) - (_%$E114772114778%_ + (lambda (_%stx115753%_) + (let* ((_%$e115755%_ _%stx115753%_) + (_%$E115757115763%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114770%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114770%_)) - (let* ((_%$tgt114773114781%_ - (let () (declare (not safe)) (__AST-e _%$e114770%_))) - (_%$hd114774114784%_ + _%$e115755%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115755%_)) + (let* ((_%$tgt115758115766%_ + (let () (declare (not safe)) (__AST-e _%$e115755%_))) + (_%$hd115759115769%_ (let () (declare (not safe)) - (##car _%$tgt114773114781%_))) - (_%$tl114775114787%_ + (##car _%$tgt115758115766%_))) + (_%$tl115760115772%_ (let () (declare (not safe)) - (##cdr _%$tgt114773114781%_))) - (_%body114791%_ _%$tl114775114787%_)) + (##cdr _%$tgt115758115766%_))) + (_%body115776%_ _%$tl115760115772%_)) (__SRC__% - (cons 'begin (map __compile _%body114791%_)) - _%stx114768%_)) - (_%$E114772114778%_))))) + (cons 'begin (map __compile _%body115776%_)) + _%stx115753%_)) + (_%$E115757115763%_))))) (define __compile-begin-foreign% - (lambda (_%stx114743%_) - (let* ((_%$e114745%_ _%stx114743%_) - (_%$E114747114753%_ + (lambda (_%stx115728%_) + (let* ((_%$e115730%_ _%stx115728%_) + (_%$E115732115738%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114745%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114745%_)) - (let* ((_%$tgt114748114756%_ - (let () (declare (not safe)) (__AST-e _%$e114745%_))) - (_%$hd114749114759%_ + _%$e115730%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115730%_)) + (let* ((_%$tgt115733115741%_ + (let () (declare (not safe)) (__AST-e _%$e115730%_))) + (_%$hd115734115744%_ (let () (declare (not safe)) - (##car _%$tgt114748114756%_))) - (_%$tl114750114762%_ + (##car _%$tgt115733115741%_))) + (_%$tl115735115747%_ (let () (declare (not safe)) - (##cdr _%$tgt114748114756%_))) - (_%body114766%_ _%$tl114750114762%_)) + (##cdr _%$tgt115733115741%_))) + (_%body115751%_ _%$tl115735115747%_)) (__SRC__% (cons 'begin (let () (declare (not safe)) - (__AST->datum _%body114766%_))) - _%stx114743%_)) - (_%$E114747114753%_))))) + (__AST->datum _%body115751%_))) + _%stx115728%_)) + (_%$E115732115738%_))))) (define __compile-import% - (lambda (_%stx114718%_) - (let* ((_%$e114720%_ _%stx114718%_) - (_%$E114722114728%_ + (lambda (_%stx115703%_) + (let* ((_%$e115705%_ _%stx115703%_) + (_%$E115707115713%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114720%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114720%_)) - (let* ((_%$tgt114723114731%_ - (let () (declare (not safe)) (__AST-e _%$e114720%_))) - (_%$hd114724114734%_ + _%$e115705%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115705%_)) + (let* ((_%$tgt115708115716%_ + (let () (declare (not safe)) (__AST-e _%$e115705%_))) + (_%$hd115709115719%_ (let () (declare (not safe)) - (##car _%$tgt114723114731%_))) - (_%$tl114725114737%_ + (##car _%$tgt115708115716%_))) + (_%$tl115710115722%_ (let () (declare (not safe)) - (##cdr _%$tgt114723114731%_))) - (_%body114741%_ _%$tl114725114737%_)) + (##cdr _%$tgt115708115716%_))) + (_%body115726%_ _%$tl115710115722%_)) (__SRC__% (cons '__eval-import - (cons (cons 'quote (cons _%body114741%_ '())) '())) - _%stx114718%_)) - (_%$E114722114728%_))))) + (cons (cons 'quote (cons _%body115726%_ '())) '())) + _%stx115703%_)) + (_%$E115707115713%_))))) (define __compile-begin-annotation% - (lambda (_%stx114665%_) - (let* ((_%$e114667%_ _%stx114665%_) - (_%$E114669114681%_ + (lambda (_%stx115650%_) + (let* ((_%$e115652%_ _%stx115650%_) + (_%$E115654115666%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114667%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114667%_)) - (let* ((_%$tgt114670114684%_ - (let () (declare (not safe)) (__AST-e _%$e114667%_))) - (_%$hd114671114687%_ + _%$e115652%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115652%_)) + (let* ((_%$tgt115655115669%_ + (let () (declare (not safe)) (__AST-e _%$e115652%_))) + (_%$hd115656115672%_ (let () (declare (not safe)) - (##car _%$tgt114670114684%_))) - (_%$tl114672114690%_ + (##car _%$tgt115655115669%_))) + (_%$tl115657115675%_ (let () (declare (not safe)) - (##cdr _%$tgt114670114684%_)))) + (##cdr _%$tgt115655115669%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114672114690%_)) - (let* ((_%$tgt114673114694%_ + (__AST-pair? _%$tl115657115675%_)) + (let* ((_%$tgt115658115679%_ (let () (declare (not safe)) - (__AST-e _%$tl114672114690%_))) - (_%$hd114674114697%_ + (__AST-e _%$tl115657115675%_))) + (_%$hd115659115682%_ (let () (declare (not safe)) - (##car _%$tgt114673114694%_))) - (_%$tl114675114700%_ + (##car _%$tgt115658115679%_))) + (_%$tl115660115685%_ (let () (declare (not safe)) - (##cdr _%$tgt114673114694%_))) - (_%ann114704%_ _%$hd114674114697%_)) + (##cdr _%$tgt115658115679%_))) + (_%ann115689%_ _%$hd115659115682%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114675114700%_)) - (let* ((_%$tgt114676114706%_ + (__AST-pair? _%$tl115660115685%_)) + (let* ((_%$tgt115661115691%_ (let () (declare (not safe)) - (__AST-e _%$tl114675114700%_))) - (_%$hd114677114709%_ + (__AST-e _%$tl115660115685%_))) + (_%$hd115662115694%_ (let () (declare (not safe)) - (##car _%$tgt114676114706%_))) - (_%$tl114678114712%_ + (##car _%$tgt115661115691%_))) + (_%$tl115663115697%_ (let () (declare (not safe)) - (##cdr _%$tgt114676114706%_))) - (_%expr114716%_ _%$hd114677114709%_)) + (##cdr _%$tgt115661115691%_))) + (_%expr115701%_ _%$hd115662115694%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114678114712%_)) + (__AST-e _%$tl115663115697%_)) '()) - (__compile _%expr114716%_) - (_%$E114669114681%_))) - (_%$E114669114681%_))) - (_%$E114669114681%_))) - (_%$E114669114681%_))))) + (__compile _%expr115701%_) + (_%$E115654115666%_))) + (_%$E115654115666%_))) + (_%$E115654115666%_))) + (_%$E115654115666%_))))) (define __compile-define-values% - (lambda (_%stx114556%_) - (let* ((_%$e114558%_ _%stx114556%_) - (_%$E114560114572%_ + (lambda (_%stx115541%_) + (let* ((_%$e115543%_ _%stx115541%_) + (_%$E115545115557%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114558%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114558%_)) - (let* ((_%$tgt114561114575%_ - (let () (declare (not safe)) (__AST-e _%$e114558%_))) - (_%$hd114562114578%_ + _%$e115543%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115543%_)) + (let* ((_%$tgt115546115560%_ + (let () (declare (not safe)) (__AST-e _%$e115543%_))) + (_%$hd115547115563%_ (let () (declare (not safe)) - (##car _%$tgt114561114575%_))) - (_%$tl114563114581%_ + (##car _%$tgt115546115560%_))) + (_%$tl115548115566%_ (let () (declare (not safe)) - (##cdr _%$tgt114561114575%_)))) + (##cdr _%$tgt115546115560%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114563114581%_)) - (let* ((_%$tgt114564114585%_ + (__AST-pair? _%$tl115548115566%_)) + (let* ((_%$tgt115549115570%_ (let () (declare (not safe)) - (__AST-e _%$tl114563114581%_))) - (_%$hd114565114588%_ + (__AST-e _%$tl115548115566%_))) + (_%$hd115550115573%_ (let () (declare (not safe)) - (##car _%$tgt114564114585%_))) - (_%$tl114566114591%_ + (##car _%$tgt115549115570%_))) + (_%$tl115551115576%_ (let () (declare (not safe)) - (##cdr _%$tgt114564114585%_))) - (_%hd114595%_ _%$hd114565114588%_)) + (##cdr _%$tgt115549115570%_))) + (_%hd115580%_ _%$hd115550115573%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114566114591%_)) - (let* ((_%$tgt114567114597%_ + (__AST-pair? _%$tl115551115576%_)) + (let* ((_%$tgt115552115582%_ (let () (declare (not safe)) - (__AST-e _%$tl114566114591%_))) - (_%$hd114568114600%_ + (__AST-e _%$tl115551115576%_))) + (_%$hd115553115585%_ (let () (declare (not safe)) - (##car _%$tgt114567114597%_))) - (_%$tl114569114603%_ + (##car _%$tgt115552115582%_))) + (_%$tl115554115588%_ (let () (declare (not safe)) - (##cdr _%$tgt114567114597%_))) - (_%expr114607%_ _%$hd114568114600%_)) + (##cdr _%$tgt115552115582%_))) + (_%expr115592%_ _%$hd115553115585%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114569114603%_)) + (__AST-e _%$tl115554115588%_)) '()) - (let* ((_%$e114609%_ _%hd114595%_) - (_%$E114611114652%_ + (let* ((_%$e115594%_ _%hd115580%_) + (_%$E115596115637%_ (lambda () - (let ((_%$E114612114637%_ + (let ((_%$E115597115622%_ (lambda () - (let* ((_%$E114613114624%_ + (let* ((_%$E115598115609%_ (lambda () (let () (declare @@ -609,10 +609,10 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114609%_)))) - (_%ids114627%_ _%hd114595%_) - (_%len114629%_ (length _%ids114627%_)) - (_%tmp114631%_ + _%$e115594%_)))) + (_%ids115612%_ _%hd115580%_) + (_%len115614%_ (length _%ids115612%_)) + (_%tmp115616%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__SRC__% @@ -620,1579 +620,1579 @@ (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'define - (cons _%tmp114631%_ - (cons (__compile _%expr114607%_) '()))) - _%stx114556%_) + (cons _%tmp115616%_ + (cons (__compile _%expr115592%_) '()))) + _%stx115541%_) (cons (__SRC__% (cons '__check-values - (cons _%tmp114631%_ - (cons _%len114629%_ '()))) - _%stx114556%_) - (let ((__tmp115131 - (let ((__tmp115133 - (lambda (_%id114634%_ - _%k114635%_) + (cons _%tmp115616%_ + (cons _%len115614%_ '()))) + _%stx115541%_) + (let ((__tmp116116 + (let ((__tmp116118 + (lambda (_%id115619%_ + _%k115620%_) (if (let () (declare (not safe)) - (__AST-e _%id114634%_)) + (__AST-e _%id115619%_)) (__SRC__% (cons 'define (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id114634%_) + _%id115619%_) (cons (cons '##values-ref - (cons _%tmp114631%_ - (cons _%k114635%_ '()))) + (cons _%tmp115616%_ + (cons _%k115620%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114556%_) + _%stx115541%_) '#f))) - (__tmp115132 + (__tmp116117 (let () (declare (not safe)) - (##iota _%len114629%_)))) + (##iota _%len115614%_)))) (declare (not safe)) (__filter-map2 - __tmp115133 - _%ids114627%_ - __tmp115132)))) + __tmp116118 + _%ids115612%_ + __tmp116117)))) (declare (not safe)) - (__foldr1 cons '() __tmp115131))))) - _%stx114556%_))))) + (__foldr1 cons '() __tmp116116))))) + _%stx115541%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _%$e114609%_)) - (let* ((_%$tgt114614114640%_ + (__AST-pair? _%$e115594%_)) + (let* ((_%$tgt115599115625%_ (let () (declare (not safe)) - (__AST-e _%$e114609%_))) - (_%$hd114615114643%_ + (__AST-e _%$e115594%_))) + (_%$hd115600115628%_ (let () (declare (not safe)) - (##car _%$tgt114614114640%_))) - (_%$tl114616114646%_ + (##car _%$tgt115599115625%_))) + (_%$tl115601115631%_ (let () (declare (not safe)) - (##cdr _%$tgt114614114640%_))) - (_%id114650%_ - _%$hd114615114643%_)) + (##cdr _%$tgt115599115625%_))) + (_%id115635%_ + _%$hd115600115628%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl114616114646%_)) + (__AST-e _%$tl115601115631%_)) '()) (__SRC__% (cons 'define - (cons (__SRC__0 _%id114650%_) - (cons (__compile _%expr114607%_) '()))) - _%stx114556%_) - (_%$E114612114637%_))) + (cons (__SRC__0 _%id115635%_) + (cons (__compile _%expr115592%_) '()))) + _%stx115541%_) + (_%$E115597115622%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$E114612114637%_)))))) + (_%$E115597115622%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114609%_)) - (let* ((_%$tgt114617114655%_ + (__AST-pair? _%$e115594%_)) + (let* ((_%$tgt115602115640%_ (let () (declare (not safe)) - (__AST-e _%$e114609%_))) - (_%$hd114618114658%_ + (__AST-e _%$e115594%_))) + (_%$hd115603115643%_ (let () (declare (not safe)) - (##car _%$tgt114617114655%_))) - (_%$tl114619114661%_ + (##car _%$tgt115602115640%_))) + (_%$tl115604115646%_ (let () (declare (not safe)) - (##cdr _%$tgt114617114655%_)))) + (##cdr _%$tgt115602115640%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd114618114658%_)) + (__AST-e _%$hd115603115643%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114619114661%_)) + (__AST-e _%$tl115604115646%_)) '()) - (__compile _%expr114607%_) - (_%$E114611114652%_)) - (_%$E114611114652%_))) - (_%$E114611114652%_))) - (_%$E114560114572%_))) - (_%$E114560114572%_))) - (_%$E114560114572%_))) - (_%$E114560114572%_))))) + (__compile _%expr115592%_) + (_%$E115596115637%_)) + (_%$E115596115637%_))) + (_%$E115596115637%_))) + (_%$E115545115557%_))) + (_%$E115545115557%_))) + (_%$E115545115557%_))) + (_%$E115545115557%_))))) (define __compile-head-id - (lambda (_%e114554%_) + (lambda (_%e115539%_) (__SRC__0 - (if (let () (declare (not safe)) (__AST-e _%e114554%_)) - _%e114554%_ + (if (let () (declare (not safe)) (__AST-e _%e115539%_)) + _%e115539%_ (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd114511%_) - (let _%recur114513%_ ((_%rest114515%_ _%hd114511%_)) - (let* ((_%$e114517%_ _%rest114515%_) - (_%$E114519114537%_ + (lambda (_%hd115496%_) + (let _%recur115498%_ ((_%rest115500%_ _%hd115496%_)) + (let* ((_%$e115502%_ _%rest115500%_) + (_%$E115504115522%_ (lambda () - (let ((_%$E114520114534%_ + (let ((_%$E115505115519%_ (lambda () - (let* ((_%$E114521114529%_ + (let* ((_%$E115506115514%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114517%_)))) - (_%tail114532%_ _%$e114517%_)) - (__compile-head-id _%tail114532%_))))) + _%$e115502%_)))) + (_%tail115517%_ _%$e115502%_)) + (__compile-head-id _%tail115517%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114517%_)) + (__AST-e _%$e115502%_)) '()) '() - (_%$E114520114534%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114517%_)) - (let* ((_%$tgt114522114540%_ - (let () (declare (not safe)) (__AST-e _%$e114517%_))) - (_%$hd114523114543%_ + (_%$E115505115519%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115502%_)) + (let* ((_%$tgt115507115525%_ + (let () (declare (not safe)) (__AST-e _%$e115502%_))) + (_%$hd115508115528%_ (let () (declare (not safe)) - (##car _%$tgt114522114540%_))) - (_%$tl114524114546%_ + (##car _%$tgt115507115525%_))) + (_%$tl115509115531%_ (let () (declare (not safe)) - (##cdr _%$tgt114522114540%_))) - (_%hd114550%_ _%$hd114523114543%_) - (_%rest114552%_ _%$tl114524114546%_)) - (cons (__compile-head-id _%hd114550%_) - (_%recur114513%_ _%rest114552%_))) - (_%$E114519114537%_)))))) + (##cdr _%$tgt115507115525%_))) + (_%hd115535%_ _%$hd115508115528%_) + (_%rest115537%_ _%$tl115509115531%_)) + (cons (__compile-head-id _%hd115535%_) + (_%recur115498%_ _%rest115537%_))) + (_%$E115504115522%_)))))) (define __compile-lambda% - (lambda (_%stx114458%_) - (let* ((_%$e114460%_ _%stx114458%_) - (_%$E114462114474%_ + (lambda (_%stx115443%_) + (let* ((_%$e115445%_ _%stx115443%_) + (_%$E115447115459%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114460%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114460%_)) - (let* ((_%$tgt114463114477%_ - (let () (declare (not safe)) (__AST-e _%$e114460%_))) - (_%$hd114464114480%_ + _%$e115445%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115445%_)) + (let* ((_%$tgt115448115462%_ + (let () (declare (not safe)) (__AST-e _%$e115445%_))) + (_%$hd115449115465%_ (let () (declare (not safe)) - (##car _%$tgt114463114477%_))) - (_%$tl114465114483%_ + (##car _%$tgt115448115462%_))) + (_%$tl115450115468%_ (let () (declare (not safe)) - (##cdr _%$tgt114463114477%_)))) + (##cdr _%$tgt115448115462%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114465114483%_)) - (let* ((_%$tgt114466114487%_ + (__AST-pair? _%$tl115450115468%_)) + (let* ((_%$tgt115451115472%_ (let () (declare (not safe)) - (__AST-e _%$tl114465114483%_))) - (_%$hd114467114490%_ + (__AST-e _%$tl115450115468%_))) + (_%$hd115452115475%_ (let () (declare (not safe)) - (##car _%$tgt114466114487%_))) - (_%$tl114468114493%_ + (##car _%$tgt115451115472%_))) + (_%$tl115453115478%_ (let () (declare (not safe)) - (##cdr _%$tgt114466114487%_))) - (_%hd114497%_ _%$hd114467114490%_)) + (##cdr _%$tgt115451115472%_))) + (_%hd115482%_ _%$hd115452115475%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114468114493%_)) - (let* ((_%$tgt114469114499%_ + (__AST-pair? _%$tl115453115478%_)) + (let* ((_%$tgt115454115484%_ (let () (declare (not safe)) - (__AST-e _%$tl114468114493%_))) - (_%$hd114470114502%_ + (__AST-e _%$tl115453115478%_))) + (_%$hd115455115487%_ (let () (declare (not safe)) - (##car _%$tgt114469114499%_))) - (_%$tl114471114505%_ + (##car _%$tgt115454115484%_))) + (_%$tl115456115490%_ (let () (declare (not safe)) - (##cdr _%$tgt114469114499%_))) - (_%body114509%_ _%$hd114470114502%_)) + (##cdr _%$tgt115454115484%_))) + (_%body115494%_ _%$hd115455115487%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114471114505%_)) + (__AST-e _%$tl115456115490%_)) '()) (__SRC__% (cons 'lambda (cons (__compile-lambda-head - _%hd114497%_) - (cons (__compile _%body114509%_) + _%hd115482%_) + (cons (__compile _%body115494%_) '()))) - _%stx114458%_) - (_%$E114462114474%_))) - (_%$E114462114474%_))) - (_%$E114462114474%_))) - (_%$E114462114474%_))))) + _%stx115443%_) + (_%$E115447115459%_))) + (_%$E115447115459%_))) + (_%$E115447115459%_))) + (_%$E115447115459%_))))) (define __compile-case-lambda% - (lambda (_%stx114250%_) - (letrec ((_%variadic?114252%_ - (lambda (_%hd114423%_) - (let* ((_%$e114425%_ _%hd114423%_) - (_%$E114427114443%_ + (lambda (_%stx115235%_) + (letrec ((_%variadic?115237%_ + (lambda (_%hd115408%_) + (let* ((_%$e115410%_ _%hd115408%_) + (_%$E115412115428%_ (lambda () - (let ((_%$E114428114440%_ + (let ((_%$E115413115425%_ (lambda () - (let ((_%$E114429114437%_ + (let ((_%$E115414115422%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114425%_))))) + _%$e115410%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114425%_)) + (__AST-e _%$e115410%_)) '()) '#f - (_%$E114428114440%_)))))) + (_%$E115413115425%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114425%_)) - (let* ((_%$tgt114430114446%_ + (__AST-pair? _%$e115410%_)) + (let* ((_%$tgt115415115431%_ (let () (declare (not safe)) - (__AST-e _%$e114425%_))) - (_%$hd114431114449%_ + (__AST-e _%$e115410%_))) + (_%$hd115416115434%_ (let () (declare (not safe)) - (##car _%$tgt114430114446%_))) - (_%$tl114432114452%_ + (##car _%$tgt115415115431%_))) + (_%$tl115417115437%_ (let () (declare (not safe)) - (##cdr _%$tgt114430114446%_))) - (_%rest114456%_ _%$tl114432114452%_)) - (_%variadic?114252%_ _%rest114456%_)) - (_%$E114427114443%_))))) - (_%arity114253%_ - (lambda (_%hd114388%_) - (let _%lp114390%_ ((_%rest114392%_ _%hd114388%_) - (_%k114393%_ '0)) - (let* ((_%$e114395%_ _%rest114392%_) - (_%$E114397114408%_ + (##cdr _%$tgt115415115431%_))) + (_%rest115441%_ _%$tl115417115437%_)) + (_%variadic?115237%_ _%rest115441%_)) + (_%$E115412115428%_))))) + (_%arity115238%_ + (lambda (_%hd115373%_) + (let _%lp115375%_ ((_%rest115377%_ _%hd115373%_) + (_%k115378%_ '0)) + (let* ((_%$e115380%_ _%rest115377%_) + (_%$E115382115393%_ (lambda () - (let ((_%$E114398114405%_ + (let ((_%$E115383115390%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114395%_))))) - _%k114393%_)))) + _%$e115380%_))))) + _%k115378%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114395%_)) - (let* ((_%$tgt114399114411%_ + (__AST-pair? _%$e115380%_)) + (let* ((_%$tgt115384115396%_ (let () (declare (not safe)) - (__AST-e _%$e114395%_))) - (_%$hd114400114414%_ + (__AST-e _%$e115380%_))) + (_%$hd115385115399%_ (let () (declare (not safe)) - (##car _%$tgt114399114411%_))) - (_%$tl114401114417%_ + (##car _%$tgt115384115396%_))) + (_%$tl115386115402%_ (let () (declare (not safe)) - (##cdr _%$tgt114399114411%_))) - (_%rest114421%_ _%$tl114401114417%_)) - (_%lp114390%_ - _%rest114421%_ + (##cdr _%$tgt115384115396%_))) + (_%rest115406%_ _%$tl115386115402%_)) + (_%lp115375%_ + _%rest115406%_ (let () (declare (not safe)) - (##fx+ _%k114393%_ '1)))) - (_%$E114397114408%_)))))) - (_%generate114254%_ - (lambda (_%rest114315%_ _%args114316%_ _%len114317%_) - (let* ((_%$e114319%_ _%rest114315%_) - (_%$E114321114332%_ + (##fx+ _%k115378%_ '1)))) + (_%$E115382115393%_)))))) + (_%generate115239%_ + (lambda (_%rest115300%_ _%args115301%_ _%len115302%_) + (let* ((_%$e115304%_ _%rest115300%_) + (_%$E115306115317%_ (lambda () - (let ((_%$E114322114329%_ + (let ((_%$E115307115314%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114319%_))))) + _%$e115304%_))))) (__SRC__% (cons 'error (cons '"No clause matching arguments" - (cons _%args114316%_ '()))) - _%stx114250%_))))) + (cons _%args115301%_ '()))) + _%stx115235%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114319%_)) - (let* ((_%$tgt114323114335%_ + (__AST-pair? _%$e115304%_)) + (let* ((_%$tgt115308115320%_ (let () (declare (not safe)) - (__AST-e _%$e114319%_))) - (_%$hd114324114338%_ + (__AST-e _%$e115304%_))) + (_%$hd115309115323%_ (let () (declare (not safe)) - (##car _%$tgt114323114335%_))) - (_%$tl114325114341%_ + (##car _%$tgt115308115320%_))) + (_%$tl115310115326%_ (let () (declare (not safe)) - (##cdr _%$tgt114323114335%_))) - (_%clause114345%_ _%$hd114324114338%_) - (_%rest114347%_ _%$tl114325114341%_) - (_%$e114349%_ _%clause114345%_) - (_%$E114351114360%_ + (##cdr _%$tgt115308115320%_))) + (_%clause115330%_ _%$hd115309115323%_) + (_%rest115332%_ _%$tl115310115326%_) + (_%$e115334%_ _%clause115330%_) + (_%$E115336115345%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114349%_))))) + _%$e115334%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114349%_)) - (let* ((_%$tgt114352114363%_ + (__AST-pair? _%$e115334%_)) + (let* ((_%$tgt115337115348%_ (let () (declare (not safe)) - (__AST-e _%$e114349%_))) - (_%$hd114353114366%_ + (__AST-e _%$e115334%_))) + (_%$hd115338115351%_ (let () (declare (not safe)) - (##car _%$tgt114352114363%_))) - (_%$tl114354114369%_ + (##car _%$tgt115337115348%_))) + (_%$tl115339115354%_ (let () (declare (not safe)) - (##cdr _%$tgt114352114363%_))) - (_%hd114373%_ _%$hd114353114366%_)) + (##cdr _%$tgt115337115348%_))) + (_%hd115358%_ _%$hd115338115351%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114354114369%_)) - (let* ((_%$tgt114355114375%_ + (__AST-pair? _%$tl115339115354%_)) + (let* ((_%$tgt115340115360%_ (let () (declare (not safe)) - (__AST-e _%$tl114354114369%_))) - (_%$hd114356114378%_ + (__AST-e _%$tl115339115354%_))) + (_%$hd115341115363%_ (let () (declare (not safe)) - (##car _%$tgt114355114375%_))) - (_%$tl114357114381%_ + (##car _%$tgt115340115360%_))) + (_%$tl115342115366%_ (let () (declare (not safe)) - (##cdr _%$tgt114355114375%_)))) + (##cdr _%$tgt115340115360%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114357114381%_)) + (__AST-e _%$tl115342115366%_)) '()) - (let ((_%clen114385%_ - (_%arity114253%_ - _%hd114373%_)) - (_%cmp114386%_ - (if (_%variadic?114252%_ - _%hd114373%_) + (let ((_%clen115370%_ + (_%arity115238%_ + _%hd115358%_)) + (_%cmp115371%_ + (if (_%variadic?115237%_ + _%hd115358%_) 'fx>= 'fx=))) (__SRC__% (cons 'if - (cons (cons _%cmp114386%_ + (cons (cons _%cmp115371%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len114317%_ (cons _%clen114385%_ '()))) + (cons _%len115302%_ (cons _%clen115370%_ '()))) (cons (__SRC__% (cons '##apply (cons (__compile-lambda% - (cons '%#lambda _%clause114345%_)) - (cons _%args114316%_ '()))) - _%stx114250%_) - (cons (_%generate114254%_ - _%rest114347%_ - _%args114316%_ - _%len114317%_) + (cons '%#lambda _%clause115330%_)) + (cons _%args115301%_ '()))) + _%stx115235%_) + (cons (_%generate115239%_ + _%rest115332%_ + _%args115301%_ + _%len115302%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114250%_)) - (_%$E114351114360%_))) - (_%$E114351114360%_))) - (_%$E114351114360%_))) - (_%$E114321114332%_)))))) - (let* ((_%$e114256%_ _%stx114250%_) - (_%$E114258114290%_ + _%stx115235%_)) + (_%$E115336115345%_))) + (_%$E115336115345%_))) + (_%$E115336115345%_))) + (_%$E115306115317%_)))))) + (let* ((_%$e115241%_ _%stx115235%_) + (_%$E115243115275%_ (lambda () - (let ((_%$E114259114272%_ + (let ((_%$E115244115257%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114256%_))))) + _%$e115241%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114256%_)) - (let* ((_%$tgt114260114275%_ + (__AST-pair? _%$e115241%_)) + (let* ((_%$tgt115245115260%_ (let () (declare (not safe)) - (__AST-e _%$e114256%_))) - (_%$hd114261114278%_ + (__AST-e _%$e115241%_))) + (_%$hd115246115263%_ (let () (declare (not safe)) - (##car _%$tgt114260114275%_))) - (_%$tl114262114281%_ + (##car _%$tgt115245115260%_))) + (_%$tl115247115266%_ (let () (declare (not safe)) - (##cdr _%$tgt114260114275%_))) - (_%clauses114285%_ _%$tl114262114281%_)) - (let ((_%args114287%_ + (##cdr _%$tgt115245115260%_))) + (_%clauses115270%_ _%$tl115247115266%_)) + (let ((_%args115272%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx114250%_)) - (_%len114288%_ + _%stx115235%_)) + (_%len115273%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx114250%_))) + _%stx115235%_))) (__SRC__% (cons 'lambda - (cons _%args114287%_ + (cons _%args115272%_ (cons (__SRC__% (cons 'let - (cons (cons (cons _%len114288%_ + (cons (cons (cons _%len115273%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__SRC__% (cons '##length - (cons _%args114287%_ '())) - _%stx114250%_) + (cons _%args115272%_ '())) + _%stx115235%_) '())) '()) - (cons (_%generate114254%_ - _%clauses114285%_ - _%args114287%_ - _%len114288%_) + (cons (_%generate115239%_ + _%clauses115270%_ + _%args115272%_ + _%len115273%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114250%_) + _%stx115235%_) '()))) - _%stx114250%_))) - (_%$E114259114272%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114256%_)) - (let* ((_%$tgt114263114293%_ - (let () (declare (not safe)) (__AST-e _%$e114256%_))) - (_%$hd114264114296%_ + _%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 _%$tgt114263114293%_))) - (_%$tl114265114299%_ + (##car _%$tgt115248115278%_))) + (_%$tl115250115284%_ (let () (declare (not safe)) - (##cdr _%$tgt114263114293%_)))) + (##cdr _%$tgt115248115278%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114265114299%_)) - (let* ((_%$tgt114266114303%_ + (__AST-pair? _%$tl115250115284%_)) + (let* ((_%$tgt115251115288%_ (let () (declare (not safe)) - (__AST-e _%$tl114265114299%_))) - (_%$hd114267114306%_ + (__AST-e _%$tl115250115284%_))) + (_%$hd115252115291%_ (let () (declare (not safe)) - (##car _%$tgt114266114303%_))) - (_%$tl114268114309%_ + (##car _%$tgt115251115288%_))) + (_%$tl115253115294%_ (let () (declare (not safe)) - (##cdr _%$tgt114266114303%_))) - (_%clause114313%_ _%$hd114267114306%_)) + (##cdr _%$tgt115251115288%_))) + (_%clause115298%_ _%$hd115252115291%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114268114309%_)) + (__AST-e _%$tl115253115294%_)) '()) (__compile-lambda% - (cons '%#lambda _%clause114313%_)) - (_%$E114258114290%_))) - (_%$E114258114290%_))) - (_%$E114258114290%_)))))) + (cons '%#lambda _%clause115298%_)) + (_%$E115243115275%_))) + (_%$E115243115275%_))) + (_%$E115243115275%_)))))) (define __compile-let-form - (lambda (_%stx114019%_ _%compile-simple114020%_ _%compile-values114021%_) - (letrec ((_%simple-bind?114023%_ - (lambda (_%hd114208%_) - (let* ((_%hd114209114219%_ _%hd114208%_) - (_%else114212114227%_ (lambda () '#f))) - (let ((_%K114215114240%_ (lambda (_%id114238%_) '#t)) - (_%K114214114232%_ (lambda () '#t))) - (let ((_%try-match114211114235%_ + (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? _%hd114209114219%_ '#f)) - (_%K114214114232%_) - (_%else114212114227%_))))) - (if (pair? _%hd114209114219%_) - (let ((_%tl114217114245%_ + (##eq? _%hd115194115204%_ '#f)) + (_%K115199115217%_) + (_%else115197115212%_))))) + (if (pair? _%hd115194115204%_) + (let ((_%tl115202115230%_ (let () (declare (not safe)) - (##cdr _%hd114209114219%_))) - (_%hd114216114243%_ + (##cdr _%hd115194115204%_))) + (_%hd115201115228%_ (let () (declare (not safe)) - (##car _%hd114209114219%_)))) - (if (null? _%tl114217114245%_) - (let ((_%id114248%_ _%hd114216114243%_)) - (_%K114215114240%_ _%id114248%_)) - (_%try-match114211114235%_))) - (_%try-match114211114235%_))))))) - (_%car-e114024%_ - (lambda (_%hd114206%_) - (if (pair? _%hd114206%_) - (let () (declare (not safe)) (##car _%hd114206%_)) - _%hd114206%_)))) - (let* ((_%$e114026%_ _%stx114019%_) - (_%$E114028114171%_ + (##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 ((_%$E114029114051%_ + (let ((_%$E115014115036%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114026%_))))) + _%$e115011%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114026%_)) - (let* ((_%$tgt114030114054%_ + (__AST-pair? _%$e115011%_)) + (let* ((_%$tgt115015115039%_ (let () (declare (not safe)) - (__AST-e _%$e114026%_))) - (_%$hd114031114057%_ + (__AST-e _%$e115011%_))) + (_%$hd115016115042%_ (let () (declare (not safe)) - (##car _%$tgt114030114054%_))) - (_%$tl114032114060%_ + (##car _%$tgt115015115039%_))) + (_%$tl115017115045%_ (let () (declare (not safe)) - (##cdr _%$tgt114030114054%_)))) + (##cdr _%$tgt115015115039%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114032114060%_)) - (let* ((_%$tgt114033114064%_ + (__AST-pair? _%$tl115017115045%_)) + (let* ((_%$tgt115018115049%_ (let () (declare (not safe)) - (__AST-e _%$tl114032114060%_))) - (_%$hd114034114067%_ + (__AST-e _%$tl115017115045%_))) + (_%$hd115019115052%_ (let () (declare (not safe)) - (##car _%$tgt114033114064%_))) - (_%$tl114035114070%_ + (##car _%$tgt115018115049%_))) + (_%$tl115020115055%_ (let () (declare (not safe)) - (##cdr _%$tgt114033114064%_))) - (_%hd114074%_ _%$hd114034114067%_)) + (##cdr _%$tgt115018115049%_))) + (_%hd115059%_ _%$hd115019115052%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114035114070%_)) - (let* ((_%$tgt114036114076%_ + (__AST-pair? _%$tl115020115055%_)) + (let* ((_%$tgt115021115061%_ (let () (declare (not safe)) - (__AST-e _%$tl114035114070%_))) - (_%$hd114037114079%_ + (__AST-e _%$tl115020115055%_))) + (_%$hd115022115064%_ (let () (declare (not safe)) - (##car _%$tgt114036114076%_))) - (_%$tl114038114082%_ + (##car _%$tgt115021115061%_))) + (_%$tl115023115067%_ (let () (declare (not safe)) - (##cdr _%$tgt114036114076%_))) - (_%body114086%_ - _%$hd114037114079%_)) + (##cdr _%$tgt115021115061%_))) + (_%body115071%_ + _%$hd115022115064%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114038114082%_)) + (__AST-e _%$tl115023115067%_)) '()) - (let* ((_%hd-ids114126%_ - (map (lambda (_%bind114088%_) - (let* ((_%$e114090%_ + (let* ((_%hd-ids115111%_ + (map (lambda (_%bind115073%_) + (let* ((_%$e115075%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind114088%_) - (_%$E114092114101%_ + _%bind115073%_) + (_%$E115077115086%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114090%_))))) + _%$e115075%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114090%_)) - (let* ((_%$tgt114093114104%_ + (__AST-pair? _%$e115075%_)) + (let* ((_%$tgt115078115089%_ (let () (declare (not safe)) - (__AST-e _%$e114090%_))) - (_%$hd114094114107%_ + (__AST-e _%$e115075%_))) + (_%$hd115079115092%_ (let () (declare (not safe)) - (##car _%$tgt114093114104%_))) - (_%$tl114095114110%_ + (##car _%$tgt115078115089%_))) + (_%$tl115080115095%_ (let () (declare (not safe)) - (##cdr _%$tgt114093114104%_))) - (_%ids114114%_ _%$hd114094114107%_)) + (##cdr _%$tgt115078115089%_))) + (_%ids115099%_ _%$hd115079115092%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114095114110%_)) - (let* ((_%$tgt114096114116%_ + (__AST-pair? _%$tl115080115095%_)) + (let* ((_%$tgt115081115101%_ (let () (declare (not safe)) - (__AST-e _%$tl114095114110%_))) - (_%$hd114097114119%_ + (__AST-e _%$tl115080115095%_))) + (_%$hd115082115104%_ (let () (declare (not safe)) - (##car _%$tgt114096114116%_))) - (_%$tl114098114122%_ + (##car _%$tgt115081115101%_))) + (_%$tl115083115107%_ (let () (declare (not safe)) - (##cdr _%$tgt114096114116%_)))) + (##cdr _%$tgt115081115101%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114098114122%_)) + (__AST-e _%$tl115083115107%_)) '()) - _%ids114114%_ - (_%$E114092114101%_))) - (_%$E114092114101%_))) - (_%$E114092114101%_)))) - _%hd114074%_)) + _%ids115099%_ + (_%$E115077115086%_))) + (_%$E115077115086%_))) + (_%$E115077115086%_)))) + _%hd115059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs114166%_ - (map (lambda (_%bind114128%_) - (let* ((_%$e114130%_ + (_%exprs115151%_ + (map (lambda (_%bind115113%_) + (let* ((_%$e115115%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind114128%_) - (_%$E114132114141%_ + _%bind115113%_) + (_%$E115117115126%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114130%_))))) + _%$e115115%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114130%_)) - (let* ((_%$tgt114133114144%_ + (__AST-pair? _%$e115115%_)) + (let* ((_%$tgt115118115129%_ (let () (declare (not safe)) - (__AST-e _%$e114130%_))) - (_%$hd114134114147%_ + (__AST-e _%$e115115%_))) + (_%$hd115119115132%_ (let () (declare (not safe)) - (##car _%$tgt114133114144%_))) - (_%$tl114135114150%_ + (##car _%$tgt115118115129%_))) + (_%$tl115120115135%_ (let () (declare (not safe)) - (##cdr _%$tgt114133114144%_)))) + (##cdr _%$tgt115118115129%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114135114150%_)) - (let* ((_%$tgt114136114154%_ + (__AST-pair? _%$tl115120115135%_)) + (let* ((_%$tgt115121115139%_ (let () (declare (not safe)) - (__AST-e _%$tl114135114150%_))) - (_%$hd114137114157%_ + (__AST-e _%$tl115120115135%_))) + (_%$hd115122115142%_ (let () (declare (not safe)) - (##car _%$tgt114136114154%_))) - (_%$tl114138114160%_ + (##car _%$tgt115121115139%_))) + (_%$tl115123115145%_ (let () (declare (not safe)) - (##cdr _%$tgt114136114154%_))) - (_%expr114164%_ _%$hd114137114157%_)) + (##cdr _%$tgt115121115139%_))) + (_%expr115149%_ _%$hd115122115142%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114138114160%_)) + (__AST-e _%$tl115123115145%_)) '()) - (__compile _%expr114164%_) - (_%$E114132114141%_))) - (_%$E114132114141%_))) - (_%$E114132114141%_)))) - _%hd114074%_)) + (__compile _%expr115149%_) + (_%$E115117115126%_))) + (_%$E115117115126%_))) + (_%$E115117115126%_)))) + _%hd115059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body114168%_ + (_%body115153%_ (__compile - _%body114086%_))) + _%body115071%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?114023%_ - _%hd-ids114126%_)) - (_%compile-simple114020%_ + _%simple-bind?115008%_ + _%hd-ids115111%_)) + (_%compile-simple115005%_ (let () (declare (not safe)) - (##map _%car-e114024%_ - _%hd-ids114126%_)) - _%exprs114166%_ - _%body114168%_) - (_%compile-values114021%_ - _%hd-ids114126%_ - _%exprs114166%_ - _%body114168%_))) - (_%$E114029114051%_))) - (_%$E114029114051%_))) - (_%$E114029114051%_))) - (_%$E114029114051%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114026%_)) - (let* ((_%$tgt114039114174%_ - (let () (declare (not safe)) (__AST-e _%$e114026%_))) - (_%$hd114040114177%_ + (##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 _%$tgt114039114174%_))) - (_%$tl114041114180%_ + (##car _%$tgt115024115159%_))) + (_%$tl115026115165%_ (let () (declare (not safe)) - (##cdr _%$tgt114039114174%_)))) + (##cdr _%$tgt115024115159%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114041114180%_)) - (let* ((_%$tgt114042114184%_ + (__AST-pair? _%$tl115026115165%_)) + (let* ((_%$tgt115027115169%_ (let () (declare (not safe)) - (__AST-e _%$tl114041114180%_))) - (_%$hd114043114187%_ + (__AST-e _%$tl115026115165%_))) + (_%$hd115028115172%_ (let () (declare (not safe)) - (##car _%$tgt114042114184%_))) - (_%$tl114044114190%_ + (##car _%$tgt115027115169%_))) + (_%$tl115029115175%_ (let () (declare (not safe)) - (##cdr _%$tgt114042114184%_)))) + (##cdr _%$tgt115027115169%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd114043114187%_)) + (__AST-e _%$hd115028115172%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114044114190%_)) - (let* ((_%$tgt114045114194%_ + (__AST-pair? _%$tl115029115175%_)) + (let* ((_%$tgt115030115179%_ (let () (declare (not safe)) - (__AST-e _%$tl114044114190%_))) - (_%$hd114046114197%_ + (__AST-e _%$tl115029115175%_))) + (_%$hd115031115182%_ (let () (declare (not safe)) - (##car _%$tgt114045114194%_))) - (_%$tl114047114200%_ + (##car _%$tgt115030115179%_))) + (_%$tl115032115185%_ (let () (declare (not safe)) - (##cdr _%$tgt114045114194%_))) - (_%body114204%_ _%$hd114046114197%_)) + (##cdr _%$tgt115030115179%_))) + (_%body115189%_ _%$hd115031115182%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114047114200%_)) + (__AST-e _%$tl115032115185%_)) '()) - (__compile _%body114204%_) - (_%$E114028114171%_))) - (_%$E114028114171%_)) - (_%$E114028114171%_))) - (_%$E114028114171%_))) - (_%$E114028114171%_)))))) + (__compile _%body115189%_) + (_%$E115013115156%_))) + (_%$E115013115156%_)) + (_%$E115013115156%_))) + (_%$E115013115156%_))) + (_%$E115013115156%_)))))) (define __compile-let-values% - (lambda (_%stx113831%_) - (letrec ((_%compile-simple113833%_ - (lambda (_%hd-ids114015%_ _%exprs114016%_ _%body114017%_) + (lambda (_%stx114816%_) + (letrec ((_%compile-simple114818%_ + (lambda (_%hd-ids115000%_ _%exprs115001%_ _%body115002%_) (__SRC__% (cons 'let - (cons (let ((__tmp115134 + (cons (let ((__tmp116119 (map __compile-head-id - _%hd-ids114015%_))) + _%hd-ids115000%_))) (declare (not safe)) - (##map list __tmp115134 _%exprs114016%_)) - (cons _%body114017%_ '()))) - _%stx113831%_))) - (_%compile-values113834%_ - (lambda (_%hd-ids113930%_ _%exprs113931%_ _%body113932%_) - (let _%lp113934%_ ((_%rest113936%_ _%hd-ids113930%_) - (_%exprs113937%_ _%exprs113931%_) - (_%bind113938%_ '()) - (_%post113939%_ '())) - (let* ((_%rest113940113954%_ _%rest113936%_) - (_%else113943113962%_ + (##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 _%bind113938%_) - (cons (_%compile-post113835%_ - _%post113939%_ - _%body113932%_) + (cons (reverse _%bind114923%_) + (cons (_%compile-post114820%_ + _%post114924%_ + _%body114917%_) '()))) - _%stx113831%_)))) - (let ((_%K113948113998%_ - (lambda (_%rest113995%_ _%id113996%_) - (_%lp113934%_ - _%rest113995%_ - (cdr _%exprs113937%_) - (cons (cons (__compile-head-id _%id113996%_) - (cons (car _%exprs113937%_) '())) - _%bind113938%_) - _%post113939%_))) - (_%K113945113980%_ - (lambda (_%rest113966%_ _%hd113967%_) + _%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? _%hd113967%_)) - (_%lp113934%_ - _%rest113966%_ - (cdr _%exprs113937%_) + (__AST-id? _%hd114952%_)) + (_%lp114919%_ + _%rest114951%_ + (cdr _%exprs114922%_) (cons (cons (__compile-head-id - _%hd113967%_) + _%hd114952%_) (cons (cons 'values->list - (cons (car _%exprs113937%_) + (cons (car _%exprs114922%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113938%_) - _%post113939%_) - (if (list? _%hd113967%_) - (let* ((_%len113971%_ + _%bind114923%_) + _%post114924%_) + (if (list? _%hd114952%_) + (let* ((_%len114956%_ (let () (declare (not safe)) - (##length _%hd113967%_))) - (_%tmp113973%_ + (##length _%hd114952%_))) + (_%tmp114958%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113934%_ - _%rest113966%_ - (cdr _%exprs113937%_) - (cons (cons _%tmp113973%_ - (cons (car _%exprs113937%_) + (_%lp114919%_ + _%rest114951%_ + (cdr _%exprs114922%_) + (cons (cons _%tmp114958%_ + (cons (car _%exprs114922%_) '())) - _%bind113938%_) - (cons (cons _%tmp113973%_ - (cons _%len113971%_ - (let ((__tmp115136 + _%bind114923%_) + (cons (cons _%tmp114958%_ + (cons _%len114956%_ + (let ((__tmp116121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113976%_ _%k113977%_) + (lambda (_%id114961%_ _%k114962%_) (if (let () (declare (not safe)) - (__AST-e _%id113976%_)) - (cons (__SRC__0 _%id113976%_) _%k113977%_) + (__AST-e _%id114961%_)) + (cons (__SRC__0 _%id114961%_) _%k114962%_) '#f))) - (__tmp115135 + (__tmp116120 (let () (declare (not safe)) - (##iota _%len113971%_)))) + (##iota _%len114956%_)))) (declare (not safe)) - (__filter-map2 __tmp115136 _%hd113967%_ __tmp115135)))) + (__filter-map2 __tmp116121 _%hd114952%_ __tmp116120)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113939%_))) + _%post114924%_))) (__compile-error__% - _%stx113831%_ - _%hd113967%_)))))) - (if (pair? _%rest113940113954%_) - (let ((_%tl113950114003%_ + _%stx114816%_ + _%hd114952%_)))))) + (if (pair? _%rest114925114939%_) + (let ((_%tl114935114988%_ (let () (declare (not safe)) - (##cdr _%rest113940113954%_))) - (_%hd113949114001%_ + (##cdr _%rest114925114939%_))) + (_%hd114934114986%_ (let () (declare (not safe)) - (##car _%rest113940113954%_)))) - (if (pair? _%hd113949114001%_) - (let ((_%tl113952114008%_ + (##car _%rest114925114939%_)))) + (if (pair? _%hd114934114986%_) + (let ((_%tl114937114993%_ (let () (declare (not safe)) - (##cdr _%hd113949114001%_))) - (_%hd113951114006%_ + (##cdr _%hd114934114986%_))) + (_%hd114936114991%_ (let () (declare (not safe)) - (##car _%hd113949114001%_)))) - (if (null? _%tl113952114008%_) - (let ((_%id114011%_ - _%hd113951114006%_) - (_%rest114013%_ - _%tl113950114003%_)) - (_%K113948113998%_ - _%rest114013%_ - _%id114011%_)) - (let ((_%hd113988%_ - _%hd113949114001%_) - (_%rest113990%_ - _%tl113950114003%_)) - (_%K113945113980%_ - _%rest113990%_ - _%hd113988%_)))) - (let ((_%hd113988%_ _%hd113949114001%_) - (_%rest113990%_ _%tl113950114003%_)) - (_%K113945113980%_ - _%rest113990%_ - _%hd113988%_)))) - (_%else113943113962%_))))))) - (_%compile-post113835%_ - (lambda (_%post113837%_ _%body113838%_) - (let _%lp113840%_ ((_%rest113842%_ _%post113837%_) - (_%check113843%_ '()) - (_%bind113844%_ '())) - (let* ((_%rest113845113857%_ _%rest113842%_) - (_%else113847113865%_ + (##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 ((__tmp115137 + (let ((__tmp116122 (cons (__SRC__% (cons 'let - (cons _%bind113844%_ + (cons _%bind114829%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body113838%_ '()))) + (cons _%body114823%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113831%_) + _%stx114816%_) '()))) (declare (not safe)) (__foldr1 cons - __tmp115137 - _%check113843%_))) - _%stx113831%_))) - (_%K113849113904%_ - (lambda (_%rest113868%_ - _%init113869%_ - _%len113870%_ - _%tmp113871%_) - (_%lp113840%_ - _%rest113868%_ + __tmp116122 + _%check114828%_))) + _%stx114816%_))) + (_%K114834114889%_ + (lambda (_%rest114853%_ + _%init114854%_ + _%len114855%_ + _%tmp114856%_) + (_%lp114825%_ + _%rest114853%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113871%_ - (cons _%len113870%_ '()))) - _%stx113831%_) - _%check113843%_) - (let ((__tmp115138 - (lambda (_%hd113873%_ _%r113874%_) - (let* ((_%hd113875113882%_ - _%hd113873%_) - (_%E113877113886%_ + (cons _%tmp114856%_ + (cons _%len114855%_ '()))) + _%stx114816%_) + _%check114828%_) + (let ((__tmp116123 + (lambda (_%hd114858%_ _%r114859%_) + (let* ((_%hd114860114867%_ + _%hd114858%_) + (_%E114862114871%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113875113882%_ + _%hd114860114867%_ '([id . k]))) '#!void)) - (_%K113878113892%_ - (lambda (_%k113889%_ - _%id113890%_) - (cons (cons _%id113890%_ + (_%K114863114877%_ + (lambda (_%k114874%_ + _%id114875%_) + (cons (cons _%id114875%_ (cons (cons '##values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp113871%_ - (cons _%k113889%_ '()))) + (cons _%tmp114856%_ + (cons _%k114874%_ '()))) '())) - _%r113874%_)))) + _%r114859%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113875113882%_) - (let ((_%hd113879113895%_ + (if (pair? _%hd114860114867%_) + (let ((_%hd114864114880%_ (let () (declare (not safe)) - (##car _%hd113875113882%_))) - (_%tl113880113897%_ + (##car _%hd114860114867%_))) + (_%tl114865114882%_ (let () (declare (not safe)) - (##cdr _%hd113875113882%_)))) - (let* ((_%id113900%_ - _%hd113879113895%_) - (_%k113902%_ - _%tl113880113897%_)) - (_%K113878113892%_ - _%k113902%_ - _%id113900%_))) - (_%E113877113886%_)))))) + (##cdr _%hd114860114867%_)))) + (let* ((_%id114885%_ + _%hd114864114880%_) + (_%k114887%_ + _%tl114865114882%_)) + (_%K114863114877%_ + _%k114887%_ + _%id114885%_))) + (_%E114862114871%_)))))) (declare (not safe)) (__foldr1 - __tmp115138 - _%bind113844%_ - _%init113869%_)))))) - (if (pair? _%rest113845113857%_) - (let ((_%hd113850113907%_ + __tmp116123 + _%bind114829%_ + _%init114854%_)))))) + (if (pair? _%rest114830114842%_) + (let ((_%hd114835114892%_ (let () (declare (not safe)) - (##car _%rest113845113857%_))) - (_%tl113851113909%_ + (##car _%rest114830114842%_))) + (_%tl114836114894%_ (let () (declare (not safe)) - (##cdr _%rest113845113857%_)))) - (if (pair? _%hd113850113907%_) - (let ((_%hd113852113912%_ + (##cdr _%rest114830114842%_)))) + (if (pair? _%hd114835114892%_) + (let ((_%hd114837114897%_ (let () (declare (not safe)) - (##car _%hd113850113907%_))) - (_%tl113853113914%_ + (##car _%hd114835114892%_))) + (_%tl114838114899%_ (let () (declare (not safe)) - (##cdr _%hd113850113907%_)))) - (let ((_%tmp113917%_ _%hd113852113912%_)) - (if (pair? _%tl113853113914%_) - (let ((_%hd113854113919%_ + (##cdr _%hd114835114892%_)))) + (let ((_%tmp114902%_ _%hd114837114897%_)) + (if (pair? _%tl114838114899%_) + (let ((_%hd114839114904%_ (let () (declare (not safe)) - (##car _%tl113853113914%_))) - (_%tl113855113921%_ + (##car _%tl114838114899%_))) + (_%tl114840114906%_ (let () (declare (not safe)) - (##cdr _%tl113853113914%_)))) - (let* ((_%len113924%_ - _%hd113854113919%_) - (_%init113926%_ - _%tl113855113921%_) - (_%rest113928%_ - _%tl113851113909%_)) - (_%K113849113904%_ - _%rest113928%_ - _%init113926%_ - _%len113924%_ - _%tmp113917%_))) - (_%else113847113865%_)))) - (_%else113847113865%_))) - (_%else113847113865%_))))))) + (##cdr _%tl114838114899%_)))) + (let* ((_%len114909%_ + _%hd114839114904%_) + (_%init114911%_ + _%tl114840114906%_) + (_%rest114913%_ + _%tl114836114894%_)) + (_%K114834114889%_ + _%rest114913%_ + _%init114911%_ + _%len114909%_ + _%tmp114902%_))) + (_%else114832114850%_)))) + (_%else114832114850%_))) + (_%else114832114850%_))))))) (__compile-let-form - _%stx113831%_ - _%compile-simple113833%_ - _%compile-values113834%_)))) + _%stx114816%_ + _%compile-simple114818%_ + _%compile-values114819%_)))) (define __compile-letrec-values% - (lambda (_%stx113628%_) - (letrec ((_%compile-simple113630%_ - (lambda (_%hd-ids113827%_ _%exprs113828%_ _%body113829%_) + (lambda (_%stx114613%_) + (letrec ((_%compile-simple114615%_ + (lambda (_%hd-ids114812%_ _%exprs114813%_ _%body114814%_) (__SRC__% (cons 'letrec - (cons (let ((__tmp115139 + (cons (let ((__tmp116124 (map __compile-head-id - _%hd-ids113827%_))) + _%hd-ids114812%_))) (declare (not safe)) - (##map list __tmp115139 _%exprs113828%_)) - (cons _%body113829%_ '()))) - _%stx113628%_))) - (_%compile-values113631%_ - (lambda (_%hd-ids113738%_ _%exprs113739%_ _%body113740%_) - (let _%lp113742%_ ((_%rest113744%_ _%hd-ids113738%_) - (_%exprs113745%_ _%exprs113739%_) - (_%pre113746%_ '()) - (_%bind113747%_ '()) - (_%post113748%_ '())) - (let* ((_%rest113749113763%_ _%rest113744%_) - (_%else113752113771%_ + (##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-inner113632%_ - _%pre113746%_ - _%bind113747%_ - _%post113748%_ - _%body113740%_)))) - (let ((_%K113757113810%_ - (lambda (_%rest113807%_ _%id113808%_) - (_%lp113742%_ - _%rest113807%_ - (cdr _%exprs113745%_) - _%pre113746%_ - (cons (cons (__compile-head-id _%id113808%_) - (cons (car _%exprs113745%_) '())) - _%bind113747%_) - _%post113748%_))) - (_%K113754113792%_ - (lambda (_%rest113775%_ _%hd113776%_) + (_%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? _%hd113776%_)) - (_%lp113742%_ - _%rest113775%_ - (cdr _%exprs113745%_) - _%pre113746%_ + (__AST-id? _%hd114761%_)) + (_%lp114727%_ + _%rest114760%_ + (cdr _%exprs114730%_) + _%pre114731%_ (cons (cons (__compile-head-id - _%hd113776%_) + _%hd114761%_) (cons (cons 'values->list - (cons (car _%exprs113745%_) + (cons (car _%exprs114730%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113747%_) - _%post113748%_) - (if (list? _%hd113776%_) - (let* ((_%len113780%_ + _%bind114732%_) + _%post114733%_) + (if (list? _%hd114761%_) + (let* ((_%len114765%_ (let () (declare (not safe)) - (##length _%hd113776%_))) - (_%tmp113782%_ + (##length _%hd114761%_))) + (_%tmp114767%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113742%_ - _%rest113775%_ - (cdr _%exprs113745%_) - (let ((__tmp115140 - (lambda (_%id113785%_ - _%r113786%_) + (_%lp114727%_ + _%rest114760%_ + (cdr _%exprs114730%_) + (let ((__tmp116125 + (lambda (_%id114770%_ + _%r114771%_) (if (let () (declare (not safe)) - (__AST-e _%id113785%_)) + (__AST-e _%id114770%_)) (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id113785%_) + _%id114770%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113786%_) - _%r113786%_)))) + _%r114771%_) + _%r114771%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp115140 - _%pre113746%_ - _%hd113776%_)) - (cons (cons _%tmp113782%_ - (cons (car _%exprs113745%_) + __tmp116125 + _%pre114731%_ + _%hd114761%_)) + (cons (cons _%tmp114767%_ + (cons (car _%exprs114730%_) '())) - _%bind113747%_) - (cons (cons _%tmp113782%_ - (cons _%len113780%_ - (let ((__tmp115142 + _%bind114732%_) + (cons (cons _%tmp114767%_ + (cons _%len114765%_ + (let ((__tmp116127 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113788%_ _%k113789%_) + (lambda (_%id114773%_ _%k114774%_) (if (let () (declare (not safe)) - (__AST-e _%id113788%_)) - (cons (__SRC__0 _%id113788%_) _%k113789%_) + (__AST-e _%id114773%_)) + (cons (__SRC__0 _%id114773%_) _%k114774%_) '#f))) - (__tmp115141 + (__tmp116126 (let () (declare (not safe)) - (##iota _%len113780%_)))) + (##iota _%len114765%_)))) (declare (not safe)) - (__filter-map2 __tmp115142 _%hd113776%_ __tmp115141)))) + (__filter-map2 __tmp116127 _%hd114761%_ __tmp116126)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113748%_))) + _%post114733%_))) (__compile-error__% - _%stx113628%_ - _%hd113776%_)))))) - (if (pair? _%rest113749113763%_) - (let ((_%tl113759113815%_ + _%stx114613%_ + _%hd114761%_)))))) + (if (pair? _%rest114734114748%_) + (let ((_%tl114744114800%_ (let () (declare (not safe)) - (##cdr _%rest113749113763%_))) - (_%hd113758113813%_ + (##cdr _%rest114734114748%_))) + (_%hd114743114798%_ (let () (declare (not safe)) - (##car _%rest113749113763%_)))) - (if (pair? _%hd113758113813%_) - (let ((_%tl113761113820%_ + (##car _%rest114734114748%_)))) + (if (pair? _%hd114743114798%_) + (let ((_%tl114746114805%_ (let () (declare (not safe)) - (##cdr _%hd113758113813%_))) - (_%hd113760113818%_ + (##cdr _%hd114743114798%_))) + (_%hd114745114803%_ (let () (declare (not safe)) - (##car _%hd113758113813%_)))) - (if (null? _%tl113761113820%_) - (let ((_%id113823%_ - _%hd113760113818%_) - (_%rest113825%_ - _%tl113759113815%_)) - (_%K113757113810%_ - _%rest113825%_ - _%id113823%_)) - (let ((_%hd113800%_ - _%hd113758113813%_) - (_%rest113802%_ - _%tl113759113815%_)) - (_%K113754113792%_ - _%rest113802%_ - _%hd113800%_)))) - (let ((_%hd113800%_ _%hd113758113813%_) - (_%rest113802%_ _%tl113759113815%_)) - (_%K113754113792%_ - _%rest113802%_ - _%hd113800%_)))) - (_%else113752113771%_))))))) - (_%compile-inner113632%_ - (lambda (_%pre113733%_ - _%bind113734%_ - _%post113735%_ - _%body113736%_) - (if (null? _%pre113733%_) - (_%compile-bind113633%_ - _%bind113734%_ - _%post113735%_ - _%body113736%_) + (##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 _%pre113733%_) - (cons (_%compile-bind113633%_ - _%bind113734%_ - _%post113735%_ - _%body113736%_) + (cons (reverse _%pre114718%_) + (cons (_%compile-bind114618%_ + _%bind114719%_ + _%post114720%_ + _%body114721%_) '()))) - _%stx113628%_)))) - (_%compile-bind113633%_ - (lambda (_%bind113729%_ _%post113730%_ _%body113731%_) + _%stx114613%_)))) + (_%compile-bind114618%_ + (lambda (_%bind114714%_ _%post114715%_ _%body114716%_) (__SRC__% (cons 'letrec - (cons (reverse _%bind113729%_) - (cons (_%compile-post113634%_ - _%post113730%_ - _%body113731%_) + (cons (reverse _%bind114714%_) + (cons (_%compile-post114619%_ + _%post114715%_ + _%body114716%_) '()))) - _%stx113628%_))) - (_%compile-post113634%_ - (lambda (_%post113636%_ _%body113637%_) - (let _%lp113639%_ ((_%rest113641%_ _%post113636%_) - (_%check113642%_ '()) - (_%bind113643%_ '())) - (let* ((_%rest113644113656%_ _%rest113641%_) - (_%else113646113664%_ + _%stx114613%_))) + (_%compile-post114619%_ + (lambda (_%post114621%_ _%body114622%_) + (let _%lp114624%_ ((_%rest114626%_ _%post114621%_) + (_%check114627%_ '()) + (_%bind114628%_ '())) + (let* ((_%rest114629114641%_ _%rest114626%_) + (_%else114631114649%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp115143 - (let ((__tmp115144 - (cons _%body113637%_ + (let ((__tmp116128 + (let ((__tmp116129 + (cons _%body114622%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp115144 - _%bind113643%_)))) + __tmp116129 + _%bind114628%_)))) (declare (not safe)) (__foldr1 cons - __tmp115143 - _%check113642%_))) - _%stx113628%_))) - (_%K113648113703%_ - (lambda (_%rest113667%_ - _%init113668%_ - _%len113669%_ - _%tmp113670%_) - (_%lp113639%_ - _%rest113667%_ + __tmp116128 + _%check114627%_))) + _%stx114613%_))) + (_%K114633114688%_ + (lambda (_%rest114652%_ + _%init114653%_ + _%len114654%_ + _%tmp114655%_) + (_%lp114624%_ + _%rest114652%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113670%_ - (cons _%len113669%_ '()))) - _%stx113628%_) - _%check113642%_) - (let ((__tmp115145 - (lambda (_%hd113672%_ _%r113673%_) - (let* ((_%hd113674113681%_ - _%hd113672%_) - (_%E113676113685%_ + (cons _%tmp114655%_ + (cons _%len114654%_ '()))) + _%stx114613%_) + _%check114627%_) + (let ((__tmp116130 + (lambda (_%hd114657%_ _%r114658%_) + (let* ((_%hd114659114666%_ + _%hd114657%_) + (_%E114661114670%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113674113681%_ + _%hd114659114666%_ '([id . k]))) '#!void)) - (_%K113677113691%_ - (lambda (_%k113688%_ - _%id113689%_) + (_%K114662114676%_ + (lambda (_%k114673%_ + _%id114674%_) (cons (cons 'set! - (cons _%id113689%_ + (cons _%id114674%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '##values-ref - (cons _%tmp113670%_ - (cons _%k113688%_ '()))) + (cons _%tmp114655%_ + (cons _%k114673%_ '()))) '()))) - _%r113673%_)))) + _%r114658%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113674113681%_) - (let ((_%hd113678113694%_ + (if (pair? _%hd114659114666%_) + (let ((_%hd114663114679%_ (let () (declare (not safe)) - (##car _%hd113674113681%_))) - (_%tl113679113696%_ + (##car _%hd114659114666%_))) + (_%tl114664114681%_ (let () (declare (not safe)) - (##cdr _%hd113674113681%_)))) - (let* ((_%id113699%_ - _%hd113678113694%_) - (_%k113701%_ - _%tl113679113696%_)) - (_%K113677113691%_ - _%k113701%_ - _%id113699%_))) - (_%E113676113685%_)))))) + (##cdr _%hd114659114666%_)))) + (let* ((_%id114684%_ + _%hd114663114679%_) + (_%k114686%_ + _%tl114664114681%_)) + (_%K114662114676%_ + _%k114686%_ + _%id114684%_))) + (_%E114661114670%_)))))) (declare (not safe)) (__foldr1 - __tmp115145 - _%bind113643%_ - _%init113668%_)))))) - (if (pair? _%rest113644113656%_) - (let ((_%hd113649113706%_ + __tmp116130 + _%bind114628%_ + _%init114653%_)))))) + (if (pair? _%rest114629114641%_) + (let ((_%hd114634114691%_ (let () (declare (not safe)) - (##car _%rest113644113656%_))) - (_%tl113650113708%_ + (##car _%rest114629114641%_))) + (_%tl114635114693%_ (let () (declare (not safe)) - (##cdr _%rest113644113656%_)))) - (if (pair? _%hd113649113706%_) - (let ((_%hd113651113711%_ + (##cdr _%rest114629114641%_)))) + (if (pair? _%hd114634114691%_) + (let ((_%hd114636114696%_ (let () (declare (not safe)) - (##car _%hd113649113706%_))) - (_%tl113652113713%_ + (##car _%hd114634114691%_))) + (_%tl114637114698%_ (let () (declare (not safe)) - (##cdr _%hd113649113706%_)))) - (let ((_%tmp113716%_ _%hd113651113711%_)) - (if (pair? _%tl113652113713%_) - (let ((_%hd113653113718%_ + (##cdr _%hd114634114691%_)))) + (let ((_%tmp114701%_ _%hd114636114696%_)) + (if (pair? _%tl114637114698%_) + (let ((_%hd114638114703%_ (let () (declare (not safe)) - (##car _%tl113652113713%_))) - (_%tl113654113720%_ + (##car _%tl114637114698%_))) + (_%tl114639114705%_ (let () (declare (not safe)) - (##cdr _%tl113652113713%_)))) - (let* ((_%len113723%_ - _%hd113653113718%_) - (_%init113725%_ - _%tl113654113720%_) - (_%rest113727%_ - _%tl113650113708%_)) - (_%K113648113703%_ - _%rest113727%_ - _%init113725%_ - _%len113723%_ - _%tmp113716%_))) - (_%else113646113664%_)))) - (_%else113646113664%_))) - (_%else113646113664%_))))))) + (##cdr _%tl114637114698%_)))) + (let* ((_%len114708%_ + _%hd114638114703%_) + (_%init114710%_ + _%tl114639114705%_) + (_%rest114712%_ + _%tl114635114693%_)) + (_%K114633114688%_ + _%rest114712%_ + _%init114710%_ + _%len114708%_ + _%tmp114701%_))) + (_%else114631114649%_)))) + (_%else114631114649%_))) + (_%else114631114649%_))))))) (__compile-let-form - _%stx113628%_ - _%compile-simple113630%_ - _%compile-values113631%_)))) + _%stx114613%_ + _%compile-simple114615%_ + _%compile-values114616%_)))) (define __compile-letrec*-values% - (lambda (_%stx113379%_) - (letrec ((_%compile-simple113381%_ - (lambda (_%hd-ids113624%_ _%exprs113625%_ _%body113626%_) + (lambda (_%stx114364%_) + (letrec ((_%compile-simple114366%_ + (lambda (_%hd-ids114609%_ _%exprs114610%_ _%body114611%_) (__SRC__% (cons 'letrec* - (cons (let ((__tmp115146 + (cons (let ((__tmp116131 (map __compile-head-id - _%hd-ids113624%_))) + _%hd-ids114609%_))) (declare (not safe)) - (##map list __tmp115146 _%exprs113625%_)) - (cons _%body113626%_ '()))) - _%stx113379%_))) - (_%compile-values113382%_ - (lambda (_%hd-ids113531%_ _%exprs113532%_ _%body113533%_) - (let _%lp113535%_ ((_%rest113537%_ _%hd-ids113531%_) - (_%exprs113538%_ _%exprs113532%_) - (_%bind113539%_ '()) - (_%post113540%_ '())) - (let* ((_%rest113541113555%_ _%rest113537%_) - (_%else113544113563%_ + (##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-bind113383%_ - _%bind113539%_ - _%post113540%_ - _%body113533%_)))) - (let ((_%K113549113607%_ - (lambda (_%rest113602%_ _%hd113603%_) + (_%compile-bind114368%_ + _%bind114524%_ + _%post114525%_ + _%body114518%_)))) + (let ((_%K114534114592%_ + (lambda (_%rest114587%_ _%hd114588%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113603%_)) - (let ((_%id113605%_ - (__SRC__0 _%hd113603%_))) - (_%lp113535%_ - _%rest113602%_ - (cdr _%exprs113538%_) - (cons (cons _%id113605%_ + (__AST-id? _%hd114588%_)) + (let ((_%id114590%_ + (__SRC__0 _%hd114588%_))) + (_%lp114520%_ + _%rest114587%_ + (cdr _%exprs114523%_) + (cons (cons _%id114590%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113539%_) - (cons (cons _%id113605%_ - (cons (car _%exprs113538%_) + _%bind114524%_) + (cons (cons _%id114590%_ + (cons (car _%exprs114523%_) '())) - _%post113540%_))) - (_%lp113535%_ - _%rest113602%_ - (cdr _%exprs113538%_) - _%bind113539%_ + _%post114525%_))) + (_%lp114520%_ + _%rest114587%_ + (cdr _%exprs114523%_) + _%bind114524%_ (cons (cons '#f - (cons (car _%exprs113538%_) + (cons (car _%exprs114523%_) '())) - _%post113540%_))))) - (_%K113546113587%_ - (lambda (_%rest113567%_ _%hd113568%_) + _%post114525%_))))) + (_%K114531114572%_ + (lambda (_%rest114552%_ _%hd114553%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113568%_)) - (let ((_%id113571%_ - (__SRC__0 _%hd113568%_))) - (_%lp113535%_ - _%rest113567%_ - (cdr _%exprs113538%_) - (cons (cons _%id113571%_ + (__AST-id? _%hd114553%_)) + (let ((_%id114556%_ + (__SRC__0 _%hd114553%_))) + (_%lp114520%_ + _%rest114552%_ + (cdr _%exprs114523%_) + (cons (cons _%id114556%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113539%_) - (cons (cons _%id113571%_ + _%bind114524%_) + (cons (cons _%id114556%_ (cons (cons 'values->list - (cons (car _%exprs113538%_) + (cons (car _%exprs114523%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113540%_))) + _%post114525%_))) (if (let () (declare (not safe)) - (__AST-e _%hd113568%_)) - (if (list? _%hd113568%_) - (let* ((_%len113575%_ + (__AST-e _%hd114553%_)) + (if (list? _%hd114553%_) + (let* ((_%len114560%_ (let () (declare (not safe)) (##length - _%hd113568%_))) - (_%tmp113577%_ + _%hd114553%_))) + (_%tmp114562%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113535%_ - _%rest113567%_ - (cdr _%exprs113538%_) - (let ((__tmp115147 - (lambda (_%id113580%_ - _%r113581%_) + (_%lp114520%_ + _%rest114552%_ + (cdr _%exprs114523%_) + (let ((__tmp116132 + (lambda (_%id114565%_ + _%r114566%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%id113580%_)) - (cons (cons (__SRC__0 _%id113580%_) + (__AST-e _%id114565%_)) + (cons (cons (__SRC__0 _%id114565%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113581%_) - _%r113581%_)))) + _%r114566%_) + _%r114566%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp115147 - _%bind113539%_ - _%hd113568%_)) - (cons (cons _%tmp113577%_ - (cons (car _%exprs113538%_) + __tmp116132 + _%bind114524%_ + _%hd114553%_)) + (cons (cons _%tmp114562%_ + (cons (car _%exprs114523%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len113575%_ - (let ((__tmp115149 - (lambda (_%id113583%_ _%k113584%_) + (cons _%len114560%_ + (let ((__tmp116134 + (lambda (_%id114568%_ _%k114569%_) (if (let () (declare (not safe)) - (__AST-e _%id113583%_)) - (cons (__SRC__0 _%id113583%_) - _%k113584%_) + (__AST-e _%id114568%_)) + (cons (__SRC__0 _%id114568%_) + _%k114569%_) '#f))) - (__tmp115148 + (__tmp116133 (let () (declare (not safe)) - (##iota _%len113575%_)))) + (##iota _%len114560%_)))) (declare (not safe)) (__filter-map2 - __tmp115149 - _%hd113568%_ - __tmp115148))))) - _%post113540%_))) + __tmp116134 + _%hd114553%_ + __tmp116133))))) + _%post114525%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__compile-error__% - _%stx113379%_ - _%hd113568%_)) - (_%lp113535%_ - _%rest113567%_ - (cdr _%exprs113538%_) - _%bind113539%_ + _%stx114364%_ + _%hd114553%_)) + (_%lp114520%_ + _%rest114552%_ + (cdr _%exprs114523%_) + _%bind114524%_ (cons (cons '#f - (cons (car _%exprs113538%_) + (cons (car _%exprs114523%_) '())) - _%post113540%_))))))) - (if (pair? _%rest113541113555%_) - (let ((_%tl113551113612%_ + _%post114525%_))))))) + (if (pair? _%rest114526114540%_) + (let ((_%tl114536114597%_ (let () (declare (not safe)) - (##cdr _%rest113541113555%_))) - (_%hd113550113610%_ + (##cdr _%rest114526114540%_))) + (_%hd114535114595%_ (let () (declare (not safe)) - (##car _%rest113541113555%_)))) - (if (pair? _%hd113550113610%_) - (let ((_%tl113553113617%_ + (##car _%rest114526114540%_)))) + (if (pair? _%hd114535114595%_) + (let ((_%tl114538114602%_ (let () (declare (not safe)) - (##cdr _%hd113550113610%_))) - (_%hd113552113615%_ + (##cdr _%hd114535114595%_))) + (_%hd114537114600%_ (let () (declare (not safe)) - (##car _%hd113550113610%_)))) - (if (null? _%tl113553113617%_) - (let ((_%hd113620%_ - _%hd113552113615%_) - (_%rest113622%_ - _%tl113551113612%_)) - (_%K113549113607%_ - _%rest113622%_ - _%hd113620%_)) - (let ((_%hd113595%_ - _%hd113550113610%_) - (_%rest113597%_ - _%tl113551113612%_)) - (_%K113546113587%_ - _%rest113597%_ - _%hd113595%_)))) - (let ((_%hd113595%_ _%hd113550113610%_) - (_%rest113597%_ _%tl113551113612%_)) - (_%K113546113587%_ - _%rest113597%_ - _%hd113595%_)))) - (_%else113544113563%_))))))) - (_%compile-bind113383%_ - (lambda (_%bind113527%_ _%post113528%_ _%body113529%_) + (##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 _%bind113527%_) - (cons (_%compile-post113384%_ - _%post113528%_ - _%body113529%_) + (cons (reverse _%bind114512%_) + (cons (_%compile-post114369%_ + _%post114513%_ + _%body114514%_) '()))) - _%stx113379%_))) - (_%compile-post113384%_ - (lambda (_%post113386%_ _%body113387%_) + _%stx114364%_))) + (_%compile-post114369%_ + (lambda (_%post114371%_ _%body114372%_) (__SRC__% (cons 'begin - (let ((__tmp115150 - (let ((__tmp115152 - (lambda (_%hd113389%_ _%r113390%_) - (let* ((_%hd113391113414%_ - _%hd113389%_) - (_%E113395113418%_ + (let ((__tmp116135 + (let ((__tmp116137 + (lambda (_%hd114374%_ _%r114375%_) + (let* ((_%hd114376114399%_ + _%hd114374%_) + (_%E114380114403%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113391113414%_ + _%hd114376114399%_ '([#f expr]) '([id expr]) '([tmp @@ -2203,553 +2203,553 @@ init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K113408113512%_ - (lambda (_%expr113510%_) - (cons _%expr113510%_ - _%r113390%_))) - (_%K113403113490%_ - (lambda (_%expr113487%_ - _%id113488%_) + (let ((_%K114393114497%_ + (lambda (_%expr114495%_) + (cons _%expr114495%_ + _%r114375%_))) + (_%K114388114475%_ + (lambda (_%expr114472%_ + _%id114473%_) (cons (__SRC__% (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id113488%_ (cons _%expr113487%_ '()))) - _%stx113379%_) - _%r113390%_))) + (cons _%id114473%_ (cons _%expr114472%_ '()))) + _%stx114364%_) + _%r114375%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K113396113457%_ - (lambda (_%init113422%_ - _%len113423%_ - _%expr113424%_ - _%tmp113425%_) + (_%K114381114442%_ + (lambda (_%init114407%_ + _%len114408%_ + _%expr114409%_ + _%tmp114410%_) (cons (__SRC__% (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%tmp113425%_ - (cons _%expr113424%_ '())) + (cons (cons (cons _%tmp114410%_ + (cons _%expr114409%_ '())) '()) (cons (__SRC__% (cons '__check-values - (cons _%tmp113425%_ - (cons _%len113423%_ '()))) - _%stx113379%_) - (let ((__tmp115153 - (map (lambda (_%hd113427%_) - (let* ((_%hd113428113435%_ - _%hd113427%_) - (_%E113430113439%_ + (cons _%tmp114410%_ + (cons _%len114408%_ '()))) + _%stx114364%_) + (let ((__tmp116138 + (map (lambda (_%hd114412%_) + (let* ((_%hd114413114420%_ + _%hd114412%_) + (_%E114415114424%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (error '"No clause matching" - _%hd113428113435%_ + _%hd114413114420%_ '([id . k]))) '#!void)) - (_%K113431113445%_ - (lambda (_%k113442%_ _%id113443%_) + (_%K114416114430%_ + (lambda (_%k114427%_ _%id114428%_) (__SRC__% (cons 'set! - (cons _%id113443%_ + (cons _%id114428%_ (cons (cons '##values-ref - (cons _%tmp113425%_ - (cons _%k113442%_ '()))) + (cons _%tmp114410%_ + (cons _%k114427%_ '()))) '()))) - _%stx113379%_)))) - (if (pair? _%hd113428113435%_) - (let ((_%hd113432113448%_ + _%stx114364%_)))) + (if (pair? _%hd114413114420%_) + (let ((_%hd114417114433%_ (let () (declare (not safe)) - (##car _%hd113428113435%_))) - (_%tl113433113450%_ + (##car _%hd114413114420%_))) + (_%tl114418114435%_ (let () (declare (not safe)) - (##cdr _%hd113428113435%_)))) - (let* ((_%id113453%_ _%hd113432113448%_) - (_%k113455%_ _%tl113433113450%_)) - (_%K113431113445%_ _%k113455%_ _%id113453%_))) - (_%E113430113439%_)))) + (##cdr _%hd114413114420%_)))) + (let* ((_%id114438%_ _%hd114417114433%_) + (_%k114440%_ _%tl114418114435%_)) + (_%K114416114430%_ _%k114440%_ _%id114438%_))) + (_%E114415114424%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%init113422%_))) + _%init114407%_))) (declare (not safe)) - (__foldr1 cons '() __tmp115153))))) - _%stx113379%_) - _%r113390%_)))) + (__foldr1 cons '() __tmp116138))))) + _%stx114364%_) + _%r114375%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match115006115007%_ - (lambda (_%hd113397113460%_ - _%tl113398113462%_ - _%hd113399113467%_ - _%tl113400113469%_) - (let ((_%tmp113465%_ - _%hd113397113460%_) - (_%expr113472%_ - _%hd113399113467%_)) - (_%E113395113418%_)))) - (_%__match115000115001%_ - (lambda (_%hd113397113460%_ - _%tl113398113462%_) - (let ((_%tmp113465%_ - _%hd113397113460%_)) - (_%E113395113418%_))))) - (if (pair? _%hd113391113414%_) - (let ((_%tl113410113517%_ + (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 _%hd113391113414%_))) - (_%hd113409113515%_ + (##cdr _%hd114376114399%_))) + (_%hd114394114500%_ (let () (declare (not safe)) - (##car _%hd113391113414%_)))) + (##car _%hd114376114399%_)))) (if (let () (declare (not safe)) - (##eq? _%hd113409113515%_ + (##eq? _%hd114394114500%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (if (pair? _%tl113410113517%_) - (let ((_%tl113412113522%_ + (if (pair? _%tl114395114502%_) + (let ((_%tl114397114507%_ (let () (declare (not safe)) - (##cdr _%tl113410113517%_))) - (_%hd113411113520%_ + (##cdr _%tl114395114502%_))) + (_%hd114396114505%_ (let () (declare (not safe)) - (##car _%tl113410113517%_)))) - (if (null? _%tl113412113522%_) - (let ((_%expr113525%_ _%hd113411113520%_)) - (_%K113408113512%_ _%expr113525%_)) - (if (pair? _%tl113412113522%_) - (let ((_%tl113402113476%_ + (##car _%tl114395114502%_)))) + (if (null? _%tl114397114507%_) + (let ((_%expr114510%_ _%hd114396114505%_)) + (_%K114393114497%_ _%expr114510%_)) + (if (pair? _%tl114397114507%_) + (let ((_%tl114387114461%_ (let () (declare (not safe)) - (##cdr _%tl113412113522%_))) - (_%hd113401113474%_ + (##cdr _%tl114397114507%_))) + (_%hd114386114459%_ (let () (declare (not safe)) - (##car _%tl113412113522%_)))) - (let ((_%tmp113465%_ _%hd113409113515%_) - (_%expr113472%_ _%hd113411113520%_) - (_%len113479%_ _%hd113401113474%_) - (_%init113481%_ _%tl113402113476%_)) - (_%K113396113457%_ - _%init113481%_ - _%len113479%_ - _%expr113472%_ - _%tmp113465%_))) - (_%__match115006115007%_ - _%hd113409113515%_ - _%tl113410113517%_ - _%hd113411113520%_ - _%tl113412113522%_)))) - (_%__match115000115001%_ - _%hd113409113515%_ - _%tl113410113517%_)) - (if (pair? _%tl113410113517%_) - (let ((_%tl113407113502%_ + (##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 _%tl113410113517%_))) - (_%hd113406113500%_ + (##cdr _%tl114395114502%_))) + (_%hd114391114485%_ (let () (declare (not safe)) - (##car _%tl113410113517%_)))) - (if (null? _%tl113407113502%_) - (let ((_%id113498%_ _%hd113409113515%_) - (_%expr113505%_ _%hd113406113500%_)) - (_%K113403113490%_ _%expr113505%_ _%id113498%_)) - (if (pair? _%tl113407113502%_) - (let ((_%tl113402113476%_ + (##car _%tl114395114502%_)))) + (if (null? _%tl114392114487%_) + (let ((_%id114483%_ _%hd114394114500%_) + (_%expr114490%_ _%hd114391114485%_)) + (_%K114388114475%_ _%expr114490%_ _%id114483%_)) + (if (pair? _%tl114392114487%_) + (let ((_%tl114387114461%_ (let () (declare (not safe)) - (##cdr _%tl113407113502%_))) - (_%hd113401113474%_ + (##cdr _%tl114392114487%_))) + (_%hd114386114459%_ (let () (declare (not safe)) - (##car _%tl113407113502%_)))) - (let ((_%tmp113465%_ _%hd113409113515%_) - (_%expr113472%_ _%hd113406113500%_) - (_%len113479%_ _%hd113401113474%_) - (_%init113481%_ _%tl113402113476%_)) - (_%K113396113457%_ - _%init113481%_ - _%len113479%_ - _%expr113472%_ - _%tmp113465%_))) - (_%__match115006115007%_ - _%hd113409113515%_ - _%tl113410113517%_ - _%hd113406113500%_ - _%tl113407113502%_)))) - (_%__match115000115001%_ - _%hd113409113515%_ - _%tl113410113517%_)))) + (##car _%tl114392114487%_)))) + (let ((_%tmp114450%_ _%hd114394114500%_) + (_%expr114457%_ _%hd114391114485%_) + (_%len114464%_ _%hd114386114459%_) + (_%init114466%_ _%tl114387114461%_)) + (_%K114381114442%_ + _%init114466%_ + _%len114464%_ + _%expr114457%_ + _%tmp114450%_))) + (_%__match115991115992%_ + _%hd114394114500%_ + _%tl114395114502%_ + _%hd114391114485%_ + _%tl114392114487%_)))) + (_%__match115985115986%_ + _%hd114394114500%_ + _%tl114395114502%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E113395113418%_))))))) - (__tmp115151 (list _%body113387%_))) + (_%E114380114403%_))))))) + (__tmp116136 (list _%body114372%_))) (declare (not safe)) (__foldl1 - __tmp115152 - __tmp115151 - _%post113386%_)))) + __tmp116137 + __tmp116136 + _%post114371%_)))) (declare (not safe)) - (__foldr1 cons '() __tmp115150))) - _%stx113379%_)))) + (__foldr1 cons '() __tmp116135))) + _%stx114364%_)))) (__compile-let-form - _%stx113379%_ - _%compile-simple113381%_ - _%compile-values113382%_)))) + _%stx114364%_ + _%compile-simple114366%_ + _%compile-values114367%_)))) (define __compile-call% - (lambda (_%stx113339%_) - (let* ((_%$e113341%_ _%stx113339%_) - (_%$E113343113352%_ + (lambda (_%stx114324%_) + (let* ((_%$e114326%_ _%stx114324%_) + (_%$E114328114337%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113341%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113341%_)) - (let* ((_%$tgt113344113355%_ - (let () (declare (not safe)) (__AST-e _%$e113341%_))) - (_%$hd113345113358%_ + _%$e114326%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114326%_)) + (let* ((_%$tgt114329114340%_ + (let () (declare (not safe)) (__AST-e _%$e114326%_))) + (_%$hd114330114343%_ (let () (declare (not safe)) - (##car _%$tgt113344113355%_))) - (_%$tl113346113361%_ + (##car _%$tgt114329114340%_))) + (_%$tl114331114346%_ (let () (declare (not safe)) - (##cdr _%$tgt113344113355%_)))) + (##cdr _%$tgt114329114340%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113346113361%_)) - (let* ((_%$tgt113347113365%_ + (__AST-pair? _%$tl114331114346%_)) + (let* ((_%$tgt114332114350%_ (let () (declare (not safe)) - (__AST-e _%$tl113346113361%_))) - (_%$hd113348113368%_ + (__AST-e _%$tl114331114346%_))) + (_%$hd114333114353%_ (let () (declare (not safe)) - (##car _%$tgt113347113365%_))) - (_%$tl113349113371%_ + (##car _%$tgt114332114350%_))) + (_%$tl114334114356%_ (let () (declare (not safe)) - (##cdr _%$tgt113347113365%_))) - (_%rator113375%_ _%$hd113348113368%_) - (_%rands113377%_ _%$tl113349113371%_)) + (##cdr _%$tgt114332114350%_))) + (_%rator114360%_ _%$hd114333114353%_) + (_%rands114362%_ _%$tl114334114356%_)) (__SRC__% - (cons (__compile _%rator113375%_) - (map __compile _%rands113377%_)) - _%stx113339%_)) - (_%$E113343113352%_))) - (_%$E113343113352%_))))) + (cons (__compile _%rator114360%_) + (map __compile _%rands114362%_)) + _%stx114324%_)) + (_%$E114328114337%_))) + (_%$E114328114337%_))))) (define __compile-ref% - (lambda (_%stx113301%_) - (let* ((_%$e113303%_ _%stx113301%_) - (_%$E113305113314%_ + (lambda (_%stx114286%_) + (let* ((_%$e114288%_ _%stx114286%_) + (_%$E114290114299%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113303%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113303%_)) - (let* ((_%$tgt113306113317%_ - (let () (declare (not safe)) (__AST-e _%$e113303%_))) - (_%$hd113307113320%_ + _%$e114288%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114288%_)) + (let* ((_%$tgt114291114302%_ + (let () (declare (not safe)) (__AST-e _%$e114288%_))) + (_%$hd114292114305%_ (let () (declare (not safe)) - (##car _%$tgt113306113317%_))) - (_%$tl113308113323%_ + (##car _%$tgt114291114302%_))) + (_%$tl114293114308%_ (let () (declare (not safe)) - (##cdr _%$tgt113306113317%_)))) + (##cdr _%$tgt114291114302%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113308113323%_)) - (let* ((_%$tgt113309113327%_ + (__AST-pair? _%$tl114293114308%_)) + (let* ((_%$tgt114294114312%_ (let () (declare (not safe)) - (__AST-e _%$tl113308113323%_))) - (_%$hd113310113330%_ + (__AST-e _%$tl114293114308%_))) + (_%$hd114295114315%_ (let () (declare (not safe)) - (##car _%$tgt113309113327%_))) - (_%$tl113311113333%_ + (##car _%$tgt114294114312%_))) + (_%$tl114296114318%_ (let () (declare (not safe)) - (##cdr _%$tgt113309113327%_))) - (_%id113337%_ _%$hd113310113330%_)) + (##cdr _%$tgt114294114312%_))) + (_%id114322%_ _%$hd114295114315%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113311113333%_)) + (__AST-e _%$tl114296114318%_)) '()) - (__SRC__% _%id113337%_ _%stx113301%_) - (_%$E113305113314%_))) - (_%$E113305113314%_))) - (_%$E113305113314%_))))) + (__SRC__% _%id114322%_ _%stx114286%_) + (_%$E114290114299%_))) + (_%$E114290114299%_))) + (_%$E114290114299%_))))) (define __compile-setq% - (lambda (_%stx113248%_) - (let* ((_%$e113250%_ _%stx113248%_) - (_%$E113252113264%_ + (lambda (_%stx114233%_) + (let* ((_%$e114235%_ _%stx114233%_) + (_%$E114237114249%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113250%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113250%_)) - (let* ((_%$tgt113253113267%_ - (let () (declare (not safe)) (__AST-e _%$e113250%_))) - (_%$hd113254113270%_ + _%$e114235%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114235%_)) + (let* ((_%$tgt114238114252%_ + (let () (declare (not safe)) (__AST-e _%$e114235%_))) + (_%$hd114239114255%_ (let () (declare (not safe)) - (##car _%$tgt113253113267%_))) - (_%$tl113255113273%_ + (##car _%$tgt114238114252%_))) + (_%$tl114240114258%_ (let () (declare (not safe)) - (##cdr _%$tgt113253113267%_)))) + (##cdr _%$tgt114238114252%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113255113273%_)) - (let* ((_%$tgt113256113277%_ + (__AST-pair? _%$tl114240114258%_)) + (let* ((_%$tgt114241114262%_ (let () (declare (not safe)) - (__AST-e _%$tl113255113273%_))) - (_%$hd113257113280%_ + (__AST-e _%$tl114240114258%_))) + (_%$hd114242114265%_ (let () (declare (not safe)) - (##car _%$tgt113256113277%_))) - (_%$tl113258113283%_ + (##car _%$tgt114241114262%_))) + (_%$tl114243114268%_ (let () (declare (not safe)) - (##cdr _%$tgt113256113277%_))) - (_%id113287%_ _%$hd113257113280%_)) + (##cdr _%$tgt114241114262%_))) + (_%id114272%_ _%$hd114242114265%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113258113283%_)) - (let* ((_%$tgt113259113289%_ + (__AST-pair? _%$tl114243114268%_)) + (let* ((_%$tgt114244114274%_ (let () (declare (not safe)) - (__AST-e _%$tl113258113283%_))) - (_%$hd113260113292%_ + (__AST-e _%$tl114243114268%_))) + (_%$hd114245114277%_ (let () (declare (not safe)) - (##car _%$tgt113259113289%_))) - (_%$tl113261113295%_ + (##car _%$tgt114244114274%_))) + (_%$tl114246114280%_ (let () (declare (not safe)) - (##cdr _%$tgt113259113289%_))) - (_%expr113299%_ _%$hd113260113292%_)) + (##cdr _%$tgt114244114274%_))) + (_%expr114284%_ _%$hd114245114277%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113261113295%_)) + (__AST-e _%$tl114246114280%_)) '()) (__SRC__% (cons 'set! (cons (__SRC__% - _%id113287%_ - _%stx113248%_) - (cons (__compile _%expr113299%_) + _%id114272%_ + _%stx114233%_) + (cons (__compile _%expr114284%_) '()))) - _%stx113248%_) - (_%$E113252113264%_))) - (_%$E113252113264%_))) - (_%$E113252113264%_))) - (_%$E113252113264%_))))) + _%stx114233%_) + (_%$E114237114249%_))) + (_%$E114237114249%_))) + (_%$E114237114249%_))) + (_%$E114237114249%_))))) (define __compile-if% - (lambda (_%stx113180%_) - (let* ((_%$e113182%_ _%stx113180%_) - (_%$E113184113199%_ + (lambda (_%stx114165%_) + (let* ((_%$e114167%_ _%stx114165%_) + (_%$E114169114184%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113182%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113182%_)) - (let* ((_%$tgt113185113202%_ - (let () (declare (not safe)) (__AST-e _%$e113182%_))) - (_%$hd113186113205%_ + _%$e114167%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114167%_)) + (let* ((_%$tgt114170114187%_ + (let () (declare (not safe)) (__AST-e _%$e114167%_))) + (_%$hd114171114190%_ (let () (declare (not safe)) - (##car _%$tgt113185113202%_))) - (_%$tl113187113208%_ + (##car _%$tgt114170114187%_))) + (_%$tl114172114193%_ (let () (declare (not safe)) - (##cdr _%$tgt113185113202%_)))) + (##cdr _%$tgt114170114187%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113187113208%_)) - (let* ((_%$tgt113188113212%_ + (__AST-pair? _%$tl114172114193%_)) + (let* ((_%$tgt114173114197%_ (let () (declare (not safe)) - (__AST-e _%$tl113187113208%_))) - (_%$hd113189113215%_ + (__AST-e _%$tl114172114193%_))) + (_%$hd114174114200%_ (let () (declare (not safe)) - (##car _%$tgt113188113212%_))) - (_%$tl113190113218%_ + (##car _%$tgt114173114197%_))) + (_%$tl114175114203%_ (let () (declare (not safe)) - (##cdr _%$tgt113188113212%_))) - (_%p113222%_ _%$hd113189113215%_)) + (##cdr _%$tgt114173114197%_))) + (_%p114207%_ _%$hd114174114200%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113190113218%_)) - (let* ((_%$tgt113191113224%_ + (__AST-pair? _%$tl114175114203%_)) + (let* ((_%$tgt114176114209%_ (let () (declare (not safe)) - (__AST-e _%$tl113190113218%_))) - (_%$hd113192113227%_ + (__AST-e _%$tl114175114203%_))) + (_%$hd114177114212%_ (let () (declare (not safe)) - (##car _%$tgt113191113224%_))) - (_%$tl113193113230%_ + (##car _%$tgt114176114209%_))) + (_%$tl114178114215%_ (let () (declare (not safe)) - (##cdr _%$tgt113191113224%_))) - (_%t113234%_ _%$hd113192113227%_)) + (##cdr _%$tgt114176114209%_))) + (_%t114219%_ _%$hd114177114212%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113193113230%_)) - (let* ((_%$tgt113194113236%_ + (__AST-pair? _%$tl114178114215%_)) + (let* ((_%$tgt114179114221%_ (let () (declare (not safe)) - (__AST-e _%$tl113193113230%_))) - (_%$hd113195113239%_ + (__AST-e _%$tl114178114215%_))) + (_%$hd114180114224%_ (let () (declare (not safe)) - (##car _%$tgt113194113236%_))) - (_%$tl113196113242%_ + (##car _%$tgt114179114221%_))) + (_%$tl114181114227%_ (let () (declare (not safe)) - (##cdr _%$tgt113194113236%_))) - (_%f113246%_ _%$hd113195113239%_)) + (##cdr _%$tgt114179114221%_))) + (_%f114231%_ _%$hd114180114224%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113196113242%_)) + (__AST-e _%$tl114181114227%_)) '()) (__SRC__% (cons 'if - (cons (__compile _%p113222%_) + (cons (__compile _%p114207%_) (cons (__compile - _%t113234%_) + _%t114219%_) (cons (__compile - _%f113246%_) + _%f114231%_) '())))) - _%stx113180%_) - (_%$E113184113199%_))) - (_%$E113184113199%_))) - (_%$E113184113199%_))) - (_%$E113184113199%_))) - (_%$E113184113199%_))))) + _%stx114165%_) + (_%$E114169114184%_))) + (_%$E114169114184%_))) + (_%$E114169114184%_))) + (_%$E114169114184%_))) + (_%$E114169114184%_))))) (define __compile-quote% - (lambda (_%stx113142%_) - (let* ((_%$e113144%_ _%stx113142%_) - (_%$E113146113155%_ + (lambda (_%stx114127%_) + (let* ((_%$e114129%_ _%stx114127%_) + (_%$E114131114140%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113144%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113144%_)) - (let* ((_%$tgt113147113158%_ - (let () (declare (not safe)) (__AST-e _%$e113144%_))) - (_%$hd113148113161%_ + _%$e114129%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114129%_)) + (let* ((_%$tgt114132114143%_ + (let () (declare (not safe)) (__AST-e _%$e114129%_))) + (_%$hd114133114146%_ (let () (declare (not safe)) - (##car _%$tgt113147113158%_))) - (_%$tl113149113164%_ + (##car _%$tgt114132114143%_))) + (_%$tl114134114149%_ (let () (declare (not safe)) - (##cdr _%$tgt113147113158%_)))) + (##cdr _%$tgt114132114143%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113149113164%_)) - (let* ((_%$tgt113150113168%_ + (__AST-pair? _%$tl114134114149%_)) + (let* ((_%$tgt114135114153%_ (let () (declare (not safe)) - (__AST-e _%$tl113149113164%_))) - (_%$hd113151113171%_ + (__AST-e _%$tl114134114149%_))) + (_%$hd114136114156%_ (let () (declare (not safe)) - (##car _%$tgt113150113168%_))) - (_%$tl113152113174%_ + (##car _%$tgt114135114153%_))) + (_%$tl114137114159%_ (let () (declare (not safe)) - (##cdr _%$tgt113150113168%_))) - (_%e113178%_ _%$hd113151113171%_)) + (##cdr _%$tgt114135114153%_))) + (_%e114163%_ _%$hd114136114156%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113152113174%_)) + (__AST-e _%$tl114137114159%_)) '()) (__SRC__% (cons 'quote (cons (let () (declare (not safe)) - (__AST->datum _%e113178%_)) + (__AST->datum _%e114163%_)) '())) - _%stx113142%_) - (_%$E113146113155%_))) - (_%$E113146113155%_))) - (_%$E113146113155%_))))) + _%stx114127%_) + (_%$E114131114140%_))) + (_%$E114131114140%_))) + (_%$E114131114140%_))))) (define __compile-quote-syntax% - (lambda (_%stx113104%_) - (let* ((_%$e113106%_ _%stx113104%_) - (_%$E113108113117%_ + (lambda (_%stx114089%_) + (let* ((_%$e114091%_ _%stx114089%_) + (_%$E114093114102%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113106%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113106%_)) - (let* ((_%$tgt113109113120%_ - (let () (declare (not safe)) (__AST-e _%$e113106%_))) - (_%$hd113110113123%_ + _%$e114091%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114091%_)) + (let* ((_%$tgt114094114105%_ + (let () (declare (not safe)) (__AST-e _%$e114091%_))) + (_%$hd114095114108%_ (let () (declare (not safe)) - (##car _%$tgt113109113120%_))) - (_%$tl113111113126%_ + (##car _%$tgt114094114105%_))) + (_%$tl114096114111%_ (let () (declare (not safe)) - (##cdr _%$tgt113109113120%_)))) + (##cdr _%$tgt114094114105%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113111113126%_)) - (let* ((_%$tgt113112113130%_ + (__AST-pair? _%$tl114096114111%_)) + (let* ((_%$tgt114097114115%_ (let () (declare (not safe)) - (__AST-e _%$tl113111113126%_))) - (_%$hd113113113133%_ + (__AST-e _%$tl114096114111%_))) + (_%$hd114098114118%_ (let () (declare (not safe)) - (##car _%$tgt113112113130%_))) - (_%$tl113114113136%_ + (##car _%$tgt114097114115%_))) + (_%$tl114099114121%_ (let () (declare (not safe)) - (##cdr _%$tgt113112113130%_))) - (_%e113140%_ _%$hd113113113133%_)) + (##cdr _%$tgt114097114115%_))) + (_%e114125%_ _%$hd114098114118%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113114113136%_)) + (__AST-e _%$tl114099114121%_)) '()) (__SRC__% - (cons 'quote (cons _%e113140%_ '())) - _%stx113104%_) - (_%$E113108113117%_))) - (_%$E113108113117%_))) - (_%$E113108113117%_))))) + (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 261a11447..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]#_g115155_| + (define |[1]#_g116140_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g115157_| + (define |[1]#_g116142_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g115159_| + (define |[1]#_g116144_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g115161_| + (define |[1]#_g116146_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g115162_| + (define |[1]#_g116147_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g115164_| + (define |[1]#_g116149_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115165_| + (define |[1]#_g116150_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115167_| + (define |[1]#_g116152_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g115168_| + (define |[1]#_g116153_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g115170_| + (define |[1]#_g116155_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115171_| + (define |[1]#_g116156_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115173_| + (define |[1]#_g116158_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g115175_| + (define |[1]#_g116160_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g115177_| + (define |[1]#_g116162_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g115179_| + (define |[1]#_g116164_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g115181_| + (define |[1]#_g116166_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115182_| + (define |[1]#_g116167_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115184_| + (define |[1]#_g116169_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115185_| + (define |[1]#_g116170_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115187_| + (define |[1]#_g116172_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115188_| + (define |[1]#_g116173_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115190_| + (define |[1]#_g116175_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115191_| + (define |[1]#_g116176_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115193_| + (define |[1]#_g116178_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g115195_| + (define |[1]#_g116180_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g115197_| + (define |[1]#_g116182_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g115199_| + (define |[1]#_g116184_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g115201_| + (define |[1]#_g116186_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g115202_| + (define |[1]#_g116187_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g115204_| + (define |[1]#_g116189_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115205_| + (define |[1]#_g116190_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115207_| + (define |[1]#_g116192_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g115208_| + (define |[1]#_g116193_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g115210_| + (define |[1]#_g116195_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115211_| + (define |[1]#_g116196_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115214_| + (define |[1]#_g116199_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g115216_| + (define |[1]#_g116201_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g115218_| + (define |[1]#_g116203_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g115220_| + (define |[1]#_g116205_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115221_| + (define |[1]#_g116206_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115223_| + (define |[1]#_g116208_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115224_| + (define |[1]#_g116209_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115226_| + (define |[1]#_g116211_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115227_| + (define |[1]#_g116212_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115229_| + (define |[1]#_g116214_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115230_| + (define |[1]#_g116215_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj115104 + (let ((__obj116089 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115104 + __obj116089 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116089 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj116089 '(e id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj116089 '(e id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj116089 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116089 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116089 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '#f '11 '#f '#f)) - (let ((__tmp115154 |[1]#_g115155_|)) + (##unchecked-structure-set! __obj116089 '#f '11 '#f '#f)) + (let ((__tmp116139 |[1]#_g116140_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115104 __tmp115154 '12 '#f '#f)) - (let ((__tmp115156 |[1]#_g115157_|)) + (##unchecked-structure-set! __obj116089 __tmp116139 '12 '#f '#f)) + (let ((__tmp116141 |[1]#_g116142_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115104 __tmp115156 '13 '#f '#f)) - (let ((__tmp115158 |[1]#_g115159_|)) + (##unchecked-structure-set! __obj116089 __tmp116141 '13 '#f '#f)) + (let ((__tmp116143 |[1]#_g116144_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115104 __tmp115158 '14 '#f '#f)) - (let ((__tmp115160 - (cons (cons 'e |[1]#_g115161_|) - (cons (cons 'id |[1]#_g115162_|) '())))) + (##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! __obj115104 __tmp115160 '15 '#f '#f)) - (let ((__tmp115163 - (cons (cons 'e |[1]#_g115164_|) - (cons (cons 'id |[1]#_g115165_|) '())))) + (##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! __obj115104 __tmp115163 '16 '#f '#f)) - (let ((__tmp115166 - (cons (cons 'e |[1]#_g115167_|) - (cons (cons 'id |[1]#_g115168_|) '())))) + (##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! __obj115104 __tmp115166 '17 '#f '#f)) - (let ((__tmp115169 - (cons (cons 'e |[1]#_g115170_|) - (cons (cons 'id |[1]#_g115171_|) '())))) + (##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! __obj115104 __tmp115169 '18 '#f '#f)) + (##unchecked-structure-set! __obj116089 __tmp116154 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115104 '() '20 '#f '#f)) - __obj115104)) + (##unchecked-structure-set! __obj116089 '() '20 '#f '#f)) + __obj116089)) (define |[:0:]#__core-form| - (let ((__obj115105 + (let ((__obj116090 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115105 + __obj116090 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj116090 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj116090 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '(e id) '6 '#f '#f)) - (let ((__tmp115172 (cons |[1]#_g115173_| '()))) + (##unchecked-structure-set! __obj116090 '(e id) '6 '#f '#f)) + (let ((__tmp116157 (cons |[1]#_g116158_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115105 __tmp115172 '3 '#f '#f)) + (##unchecked-structure-set! __obj116090 __tmp116157 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116090 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116090 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116090 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '#f '11 '#f '#f)) - (let ((__tmp115174 |[1]#_g115175_|)) + (##unchecked-structure-set! __obj116090 '#f '11 '#f '#f)) + (let ((__tmp116159 |[1]#_g116160_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115105 __tmp115174 '12 '#f '#f)) - (let ((__tmp115176 |[1]#_g115177_|)) + (##unchecked-structure-set! __obj116090 __tmp116159 '12 '#f '#f)) + (let ((__tmp116161 |[1]#_g116162_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115105 __tmp115176 '13 '#f '#f)) - (let ((__tmp115178 |[1]#_g115179_|)) + (##unchecked-structure-set! __obj116090 __tmp116161 '13 '#f '#f)) + (let ((__tmp116163 |[1]#_g116164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115105 __tmp115178 '14 '#f '#f)) - (let ((__tmp115180 - (cons (cons 'e |[1]#_g115181_|) - (cons (cons 'id |[1]#_g115182_|) '())))) + (##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! __obj115105 __tmp115180 '15 '#f '#f)) - (let ((__tmp115183 - (cons (cons 'e |[1]#_g115184_|) - (cons (cons 'id |[1]#_g115185_|) '())))) + (##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! __obj115105 __tmp115183 '16 '#f '#f)) - (let ((__tmp115186 - (cons (cons 'e |[1]#_g115187_|) - (cons (cons 'id |[1]#_g115188_|) '())))) + (##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! __obj115105 __tmp115186 '17 '#f '#f)) - (let ((__tmp115189 - (cons (cons 'e |[1]#_g115190_|) - (cons (cons 'id |[1]#_g115191_|) '())))) + (##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! __obj115105 __tmp115189 '18 '#f '#f)) + (##unchecked-structure-set! __obj116090 __tmp116174 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116090 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116090 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115105 '() '20 '#f '#f)) - __obj115105)) + (##unchecked-structure-set! __obj116090 '() '20 '#f '#f)) + __obj116090)) (define |[:0:]#__core-expression| - (let ((__obj115106 + (let ((__obj116091 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115106 + __obj116091 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115106 + __obj116091 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj116091 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '(e id) '6 '#f '#f)) - (let ((__tmp115192 (cons |[1]#_g115193_| '()))) + (##unchecked-structure-set! __obj116091 '(e id) '6 '#f '#f)) + (let ((__tmp116177 (cons |[1]#_g116178_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115106 __tmp115192 '3 '#f '#f)) + (##unchecked-structure-set! __obj116091 __tmp116177 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116091 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116091 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '#f '11 '#f '#f)) - (let ((__tmp115194 |[1]#_g115195_|)) + (##unchecked-structure-set! __obj116091 '#f '11 '#f '#f)) + (let ((__tmp116179 |[1]#_g116180_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115106 __tmp115194 '12 '#f '#f)) - (let ((__tmp115196 |[1]#_g115197_|)) + (##unchecked-structure-set! __obj116091 __tmp116179 '12 '#f '#f)) + (let ((__tmp116181 |[1]#_g116182_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115106 __tmp115196 '13 '#f '#f)) - (let ((__tmp115198 |[1]#_g115199_|)) + (##unchecked-structure-set! __obj116091 __tmp116181 '13 '#f '#f)) + (let ((__tmp116183 |[1]#_g116184_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115106 __tmp115198 '14 '#f '#f)) - (let ((__tmp115200 - (cons (cons 'e |[1]#_g115201_|) - (cons (cons 'id |[1]#_g115202_|) '())))) + (##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! __obj115106 __tmp115200 '15 '#f '#f)) - (let ((__tmp115203 - (cons (cons 'e |[1]#_g115204_|) - (cons (cons 'id |[1]#_g115205_|) '())))) + (##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! __obj115106 __tmp115203 '16 '#f '#f)) - (let ((__tmp115206 - (cons (cons 'e |[1]#_g115207_|) - (cons (cons 'id |[1]#_g115208_|) '())))) + (##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! __obj115106 __tmp115206 '17 '#f '#f)) - (let ((__tmp115209 - (cons (cons 'e |[1]#_g115210_|) - (cons (cons 'id |[1]#_g115211_|) '())))) + (##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! __obj115106 __tmp115209 '18 '#f '#f)) + (##unchecked-structure-set! __obj116091 __tmp116194 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115106 '() '20 '#f '#f)) - __obj115106)) + (##unchecked-structure-set! __obj116091 '() '20 '#f '#f)) + __obj116091)) (define |[:0:]#__core-special-form| - (let ((__obj115107 + (let ((__obj116092 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115107 + __obj116092 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,391 +660,391 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115107 + __obj116092 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj116092 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '(e id) '6 '#f '#f)) - (let ((__tmp115212 (cons |[1]#_g115193_| '()))) + (##unchecked-structure-set! __obj116092 '(e id) '6 '#f '#f)) + (let ((__tmp116197 (cons |[1]#_g116178_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115107 __tmp115212 '3 '#f '#f)) + (##unchecked-structure-set! __obj116092 __tmp116197 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116092 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116092 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116092 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '#f '11 '#f '#f)) - (let ((__tmp115213 |[1]#_g115214_|)) + (##unchecked-structure-set! __obj116092 '#f '11 '#f '#f)) + (let ((__tmp116198 |[1]#_g116199_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115107 __tmp115213 '12 '#f '#f)) - (let ((__tmp115215 |[1]#_g115216_|)) + (##unchecked-structure-set! __obj116092 __tmp116198 '12 '#f '#f)) + (let ((__tmp116200 |[1]#_g116201_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115107 __tmp115215 '13 '#f '#f)) - (let ((__tmp115217 |[1]#_g115218_|)) + (##unchecked-structure-set! __obj116092 __tmp116200 '13 '#f '#f)) + (let ((__tmp116202 |[1]#_g116203_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115107 __tmp115217 '14 '#f '#f)) - (let ((__tmp115219 - (cons (cons 'e |[1]#_g115220_|) - (cons (cons 'id |[1]#_g115221_|) '())))) + (##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! __obj115107 __tmp115219 '15 '#f '#f)) - (let ((__tmp115222 - (cons (cons 'e |[1]#_g115223_|) - (cons (cons 'id |[1]#_g115224_|) '())))) + (##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! __obj115107 __tmp115222 '16 '#f '#f)) - (let ((__tmp115225 - (cons (cons 'e |[1]#_g115226_|) - (cons (cons 'id |[1]#_g115227_|) '())))) + (##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! __obj115107 __tmp115225 '17 '#f '#f)) - (let ((__tmp115228 - (cons (cons 'e |[1]#_g115229_|) - (cons (cons 'id |[1]#_g115230_|) '())))) + (##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! __obj115107 __tmp115228 '18 '#f '#f)) + (##unchecked-structure-set! __obj116092 __tmp116213 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116092 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116092 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115107 '() '20 '#f '#f)) - __obj115107)) + (##unchecked-structure-set! __obj116092 '() '20 '#f '#f)) + __obj116092)) (define |[:0:]#defcore-forms| - (lambda (_%stx112649%_) - (letrec ((_%generate112652%_ - (lambda (_%id113016%_ _%compile113018%_ _%make113019%_) - (let* ((_%g113021113040%_ - (lambda (_%g113022113036%_) + (lambda (_%stx113634%_) + (letrec ((_%generate113637%_ + (lambda (_%id114001%_ _%compile114003%_ _%make114004%_) + (let* ((_%g114006114025%_ + (lambda (_%g114007114021%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g113022113036%_))) - (_%g113020113099%_ - (lambda (_%g113022113044%_) - (if (gx#stx-pair? _%g113022113044%_) - (let ((_%e113026113047%_ - (gx#syntax-e _%g113022113044%_))) - (let ((_%hd113027113051%_ + _%g114007114021%_))) + (_%g114005114084%_ + (lambda (_%g114007114029%_) + (if (gx#stx-pair? _%g114007114029%_) + (let ((_%e114011114032%_ + (gx#syntax-e _%g114007114029%_))) + (let ((_%hd114012114036%_ (let () (declare (not safe)) - (##car _%e113026113047%_))) - (_%tl113028113054%_ + (##car _%e114011114032%_))) + (_%tl114013114039%_ (let () (declare (not safe)) - (##cdr _%e113026113047%_)))) - (if (gx#stx-pair? _%tl113028113054%_) - (let ((_%e113029113057%_ + (##cdr _%e114011114032%_)))) + (if (gx#stx-pair? _%tl114013114039%_) + (let ((_%e114014114042%_ (gx#syntax-e - _%tl113028113054%_))) - (let ((_%hd113030113061%_ + _%tl114013114039%_))) + (let ((_%hd114015114046%_ (let () (declare (not safe)) - (##car _%e113029113057%_))) - (_%tl113031113064%_ + (##car _%e114014114042%_))) + (_%tl114016114049%_ (let () (declare (not safe)) - (##cdr _%e113029113057%_)))) + (##cdr _%e114014114042%_)))) (if (gx#stx-pair? - _%tl113031113064%_) - (let ((_%e113032113067%_ + _%tl114016114049%_) + (let ((_%e114017114052%_ (gx#syntax-e - _%tl113031113064%_))) - (let ((_%hd113033113071%_ + _%tl114016114049%_))) + (let ((_%hd114018114056%_ (let () (declare (not safe)) - (##car _%e113032113067%_))) - (_%tl113034113074%_ + (##car _%e114017114052%_))) + (_%tl114019114059%_ (let () (declare (not safe)) - (##cdr _%e113032113067%_)))) + (##cdr _%e114017114052%_)))) (if (gx#stx-null? - _%tl113034113074%_) - ((lambda (_%L113077%_ + _%tl114019114059%_) + ((lambda (_%L114062%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L113079%_ - _%L113080%_) + _%L114064%_ + _%L114065%_) (cons (gx#datum->syntax '#f '__core-bind-syntax!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L113080%_ '())) - (cons _%L113079%_ (cons _%L113077%_ '()))))) - _%hd113033113071%_ - _%hd113030113061%_ - _%hd113027113051%_) - (_%g113021113040%_ _%g113022113044%_)))) + (cons _%L114065%_ '())) + (cons _%L114064%_ (cons _%L114062%_ '()))))) + _%hd114018114056%_ + _%hd114015114046%_ + _%hd114012114036%_) + (_%g114006114025%_ _%g114007114029%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113021113040%_ - _%g113022113044%_)))) - (_%g113021113040%_ - _%g113022113044%_)))) - (_%g113021113040%_ _%g113022113044%_))))) - (_%g113020113099%_ - (list _%id113016%_ + (_%g114006114025%_ + _%g114007114029%_)))) + (_%g114006114025%_ + _%g114007114029%_)))) + (_%g114006114025%_ _%g114007114029%_))))) + (_%g114005114084%_ + (list _%id114001%_ (gx#stx-identifier - _%id113016%_ + _%id114001%_ '"__" - _%compile113018%_) - _%make113019%_)))))) - (let* ((_%g112655112675%_ - (lambda (_%g112656112671%_) + _%compile114003%_) + _%make114004%_)))))) + (let* ((_%g113640113660%_ + (lambda (_%g113641113656%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112656112671%_))) - (_%g112654113012%_ - (lambda (_%g112656112679%_) - (if (gx#stx-pair? _%g112656112679%_) - (let ((_%e112658112682%_ - (gx#syntax-e _%g112656112679%_))) - (let ((_%hd112659112686%_ + _%g113641113656%_))) + (_%g113639113997%_ + (lambda (_%g113641113664%_) + (if (gx#stx-pair? _%g113641113664%_) + (let ((_%e113643113667%_ + (gx#syntax-e _%g113641113664%_))) + (let ((_%hd113644113671%_ (let () (declare (not safe)) - (##car _%e112658112682%_))) - (_%tl112660112689%_ + (##car _%e113643113667%_))) + (_%tl113645113674%_ (let () (declare (not safe)) - (##cdr _%e112658112682%_)))) - (if (gx#stx-pair/null? _%tl112660112689%_) - (let ((_g115231_ + (##cdr _%e113643113667%_)))) + (if (gx#stx-pair/null? _%tl113645113674%_) + (let ((_g116216_ (gx#syntax-split-splice - _%tl112660112689%_ + _%tl113645113674%_ '0))) (begin - (let ((_g115232_ + (let ((_g116217_ (let () (declare (not safe)) - (if (##values? _g115231_) - (##values-length _g115231_) + (if (##values? _g116216_) + (##values-length _g116216_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g115232_ 2))) + (##fx= _g116217_ 2))) (error "Context expects 2 values" - _g115232_))) - (let ((_%target112661112692%_ + _g116217_))) + (let ((_%target113646113677%_ (let () (declare (not safe)) - (##values-ref _g115231_ 0))) - (_%tl112663112695%_ + (##values-ref _g116216_ 0))) + (_%tl113648113680%_ (let () (declare (not safe)) - (##values-ref _g115231_ 1)))) - (if (gx#stx-null? _%tl112663112695%_) - (letrec ((_%loop112664112698%_ - (lambda (_%hd112662112702%_ - _%form112668112705%_) + (##values-ref _g116216_ 1)))) + (if (gx#stx-null? _%tl113648113680%_) + (letrec ((_%loop113649113683%_ + (lambda (_%hd113647113687%_ + _%form113653113690%_) (if (gx#stx-pair? - _%hd112662112702%_) - (let ((_%e112665112708%_ + _%hd113647113687%_) + (let ((_%e113650113693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd112662112702%_))) - (let ((_%lp-hd112666112712%_ + (gx#syntax-e _%hd113647113687%_))) + (let ((_%lp-hd113651113697%_ (let () (declare (not safe)) - (##car _%e112665112708%_))) - (_%lp-tl112667112715%_ + (##car _%e113650113693%_))) + (_%lp-tl113652113700%_ (let () (declare (not safe)) - (##cdr _%e112665112708%_)))) - (_%loop112664112698%_ - _%lp-tl112667112715%_ - (cons _%lp-hd112666112712%_ _%form112668112705%_)))) - (let ((_%form112669112718%_ (reverse _%form112668112705%_))) - ((lambda (_%L112722%_) - (let _%lp112740%_ ((_%rest112743%_ - (let ((__tmp115233 - (lambda (_%g113003113006%_ - _%g113004113009%_) - (cons _%g113003113006%_ - _%g113004113009%_)))) + (##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 - __tmp115233 + __tmp116218 '() - _%L112722%_))) - (_%body112745%_ '())) - (let* ((_%__stx115011115012%_ _%rest112743%_) - (_%g112750112797%_ + _%L113707%_))) + (_%body113730%_ '())) + (let* ((_%__stx115996115997%_ _%rest113728%_) + (_%g113735113782%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115011115012%_)))) - (let ((_%__kont115014115015%_ - (lambda (_%L112978%_ _%L112980%_ _%L112981%_) - (_%lp112740%_ - _%L112978%_ - (cons (_%generate112652%_ - _%L112981%_ - _%L112980%_ + _%__stx115996115997%_)))) + (let ((_%__kont115999116000%_ + (lambda (_%L113963%_ _%L113965%_ _%L113966%_) + (_%lp113725%_ + _%L113963%_ + (cons (_%generate113637%_ + _%L113966%_ + _%L113965%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body112745%_)))) - (_%__kont115016115017%_ - (lambda (_%L112905%_ _%L112907%_ _%L112908%_) - (_%lp112740%_ - _%L112905%_ - (cons (_%generate112652%_ - _%L112908%_ - _%L112907%_ + _%body113730%_)))) + (_%__kont116001116002%_ + (lambda (_%L113890%_ _%L113892%_ _%L113893%_) + (_%lp113725%_ + _%L113890%_ + (cons (_%generate113637%_ + _%L113893%_ + _%L113892%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body112745%_)))) - (_%__kont115018115019%_ - (lambda (_%L112835%_ _%L112837%_) - (_%lp112740%_ - _%L112835%_ - (cons (_%generate112652%_ - _%L112837%_ + _%body113730%_)))) + (_%__kont116003116004%_ + (lambda (_%L113820%_ _%L113822%_) + (_%lp113725%_ + _%L113820%_ + (cons (_%generate113637%_ + _%L113822%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body112745%_)))) - (_%__kont115020115021%_ + _%body113730%_)))) + (_%__kont116005116006%_ (lambda () - (cons 'begin (reverse _%body112745%_))))) - (let ((_%g112749112808%_ + (cons 'begin (reverse _%body113730%_))))) + (let ((_%g113734113793%_ (lambda () - (if (gx#stx-null? _%__stx115011115012%_) - (_%__kont115020115021%_) + (if (gx#stx-null? _%__stx115996115997%_) + (_%__kont116005116006%_) (let () (declare (not safe)) - (_%g112750112797%_)))))) - (if (gx#stx-pair? _%__stx115011115012%_) - (let ((_%e112755112934%_ - (gx#syntax-e _%__stx115011115012%_))) - (let ((_%tl112757112941%_ + (_%g113735113782%_)))))) + (if (gx#stx-pair? _%__stx115996115997%_) + (let ((_%e113740113919%_ + (gx#syntax-e _%__stx115996115997%_))) + (let ((_%tl113742113926%_ (let () (declare (not safe)) - (##cdr _%e112755112934%_))) - (_%hd112756112938%_ + (##cdr _%e113740113919%_))) + (_%hd113741113923%_ (let () (declare (not safe)) - (##car _%e112755112934%_)))) - (if (gx#stx-pair? _%hd112756112938%_) - (let ((_%e112758112944%_ + (##car _%e113740113919%_)))) + (if (gx#stx-pair? _%hd113741113923%_) + (let ((_%e113743113929%_ (gx#syntax-e - _%hd112756112938%_))) - (let ((_%tl112760112951%_ + _%hd113741113923%_))) + (let ((_%tl113745113936%_ (let () (declare (not safe)) - (##cdr _%e112758112944%_))) - (_%hd112759112948%_ + (##cdr _%e113743113929%_))) + (_%hd113744113933%_ (let () (declare (not safe)) - (##car _%e112758112944%_)))) + (##car _%e113743113929%_)))) (if (gx#stx-pair? - _%tl112760112951%_) - (let ((_%e112761112954%_ + _%tl113745113936%_) + (let ((_%e113746113939%_ (gx#syntax-e - _%tl112760112951%_))) - (let ((_%tl112763112961%_ + _%tl113745113936%_))) + (let ((_%tl113748113946%_ (let () (declare (not safe)) - (##cdr _%e112761112954%_))) - (_%hd112762112958%_ + (##cdr _%e113746113939%_))) + (_%hd113747113943%_ (let () (declare (not safe)) - (##car _%e112761112954%_)))) + (##car _%e113746113939%_)))) (if (gx#stx-datum? - _%hd112762112958%_) - (let ((_%e112764112964%_ + _%hd113747113943%_) + (let ((_%e113749113949%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd112762112958%_))) - (if (equal? _%e112764112964%_ 'expr:) - (if (gx#stx-pair? _%tl112763112961%_) - (let ((_%e112765112968%_ - (gx#syntax-e _%tl112763112961%_))) - (let ((_%tl112767112975%_ + (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 _%e112765112968%_))) - (_%hd112766112972%_ + (##cdr _%e113750113953%_))) + (_%hd113751113957%_ (let () (declare (not safe)) - (##car _%e112765112968%_)))) - (if (gx#stx-null? _%tl112767112975%_) - (_%__kont115014115015%_ - _%tl112757112941%_ - _%hd112766112972%_ - _%hd112759112948%_) + (##car _%e113750113953%_)))) + (if (gx#stx-null? _%tl113752113960%_) + (_%__kont115999116000%_ + _%tl113742113926%_ + _%hd113751113957%_ + _%hd113744113933%_) (let () (declare (not safe)) - (_%g112750112797%_))))) - (let () (declare (not safe)) (_%g112750112797%_))) - (if (equal? _%e112764112964%_ 'special:) - (if (gx#stx-pair? _%tl112763112961%_) - (let ((_%e112781112895%_ - (gx#syntax-e _%tl112763112961%_))) - (let ((_%tl112783112902%_ + (_%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 _%e112781112895%_))) - (_%hd112782112899%_ + (##cdr _%e113766113880%_))) + (_%hd113767113884%_ (let () (declare (not safe)) - (##car _%e112781112895%_)))) - (if (gx#stx-null? _%tl112783112902%_) - (_%__kont115016115017%_ - _%tl112757112941%_ - _%hd112782112899%_ - _%hd112759112948%_) + (##car _%e113766113880%_)))) + (if (gx#stx-null? _%tl113768113887%_) + (_%__kont116001116002%_ + _%tl113742113926%_ + _%hd113767113884%_ + _%hd113744113933%_) (let () (declare (not safe)) - (_%g112750112797%_))))) + (_%g113735113782%_))))) (let () (declare (not safe)) - (_%g112750112797%_))) + (_%g113735113782%_))) (let () (declare (not safe)) - (_%g112750112797%_))))) - (let () (declare (not safe)) (_%g112750112797%_))))) + (_%g113735113782%_))))) + (let () (declare (not safe)) (_%g113735113782%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl112760112951%_) - (_%__kont115018115019%_ - _%tl112757112941%_ - _%hd112759112948%_) + _%tl113745113936%_) + (_%__kont116003116004%_ + _%tl113742113926%_ + _%hd113744113933%_) (let () (declare (not safe)) - (_%g112750112797%_)))))) + (_%g113735113782%_)))))) (let () (declare (not safe)) - (_%g112750112797%_))))) + (_%g113735113782%_))))) (let () (declare (not safe)) - (_%g112749112808%_)))))))) - _%form112669112718%_)))))) + (_%g113734113793%_)))))))) + _%form113654113703%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop112664112698%_ - _%target112661112692%_ + (_%loop113649113683%_ + _%target113646113677%_ '())) - (_%g112655112675%_ - _%g112656112679%_))))) - (_%g112655112675%_ _%g112656112679%_)))) - (_%g112655112675%_ _%g112656112679%_))))) - (_%g112654113012%_ _%stx112649%_))))))) + (_%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 557e3d71d..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 1734131744) + (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 e2ce4ee1b..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::ref105513%_ - _%locked-hash-table::ref105512%_) + _%locked-hash-table::HashTable::ref106498%_ + _%locked-hash-table::HashTable::ref106497%_) (%#define-runtime - _%locked-hash-table::set!105516%_ - _%locked-hash-table::set!105515%_) + _%locked-hash-table::HashTable::set!106501%_ + _%locked-hash-table::HashTable::set!106500%_) (%#define-runtime - _%locked-hash-table::update!105519%_ - _%locked-hash-table::update!105518%_) + _%locked-hash-table::HashTable::update!106504%_ + _%locked-hash-table::HashTable::update!106503%_) (%#define-runtime - _%locked-hash-table::delete!105522%_ - _%locked-hash-table::delete!105521%_) + _%locked-hash-table::HashTable::delete!106507%_ + _%locked-hash-table::HashTable::delete!106506%_) (%#define-runtime - _%locked-hash-table::for-each105525%_ - _%locked-hash-table::for-each105524%_) + _%locked-hash-table::HashTable::for-each106510%_ + _%locked-hash-table::HashTable::for-each106509%_) (%#define-runtime - _%locked-hash-table::length105528%_ - _%locked-hash-table::length105527%_) + _%locked-hash-table::HashTable::length106513%_ + _%locked-hash-table::HashTable::length106512%_) (%#define-runtime - _%locked-hash-table::copy105531%_ - _%locked-hash-table::copy105530%_) + _%locked-hash-table::HashTable::copy106516%_ + _%locked-hash-table::HashTable::copy106515%_) (%#define-runtime - _%locked-hash-table::clear!105534%_ - _%locked-hash-table::clear!105533%_) + _%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::ref105748%_ - _%checked-hash-table::ref105747%_) + _%checked-hash-table::HashTable::ref106733%_ + _%checked-hash-table::HashTable::ref106732%_) (%#define-runtime - _%checked-hash-table::set!105751%_ - _%checked-hash-table::set!105750%_) + _%checked-hash-table::HashTable::set!106736%_ + _%checked-hash-table::HashTable::set!106735%_) (%#define-runtime - _%checked-hash-table::update!105754%_ - _%checked-hash-table::update!105753%_) + _%checked-hash-table::HashTable::update!106739%_ + _%checked-hash-table::HashTable::update!106738%_) (%#define-runtime - _%checked-hash-table::delete!105757%_ - _%checked-hash-table::delete!105756%_) + _%checked-hash-table::HashTable::delete!106742%_ + _%checked-hash-table::HashTable::delete!106741%_) (%#define-runtime - _%checked-hash-table::for-each105760%_ - _%checked-hash-table::for-each105759%_) + _%checked-hash-table::HashTable::for-each106745%_ + _%checked-hash-table::HashTable::for-each106744%_) (%#define-runtime - _%checked-hash-table::length105763%_ - _%checked-hash-table::length105762%_) + _%checked-hash-table::HashTable::length106748%_ + _%checked-hash-table::HashTable::length106747%_) (%#define-runtime - _%checked-hash-table::copy105766%_ - _%checked-hash-table::copy105765%_) + _%checked-hash-table::HashTable::copy106751%_ + _%checked-hash-table::HashTable::copy106750%_) (%#define-runtime - _%checked-hash-table::clear!105769%_ - _%checked-hash-table::clear!105768%_) + _%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 36e428cff..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 - ((set! . _%locked-hash-table::set!105515%_) - (delete! . _%locked-hash-table::delete!105521%_) - (length . _%locked-hash-table::length105527%_) - (clear! . _%locked-hash-table::clear!105533%_) - (update! . _%locked-hash-table::update!105518%_) - (for-each . _%locked-hash-table::for-each105524%_) - (copy . _%locked-hash-table::copy105530%_) - (ref . _%locked-hash-table::ref105512%_)))) + ((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 - ((set! . _%checked-hash-table::set!105750%_) - (delete! . _%checked-hash-table::delete!105756%_) - (length . _%checked-hash-table::length105762%_) - (clear! . _%checked-hash-table::clear!105768%_) - (update! . _%checked-hash-table::update!105753%_) - (for-each . _%checked-hash-table::for-each105759%_) - (copy . _%checked-hash-table::copy105765%_) - (ref . _%checked-hash-table::ref105747%_)))) + ((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::ref105512%_ + _%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!105515%_ + _%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!105518%_ + _%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!105521%_ + _%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-each105524%_ + _%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::length105527%_ + _%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::copy105530%_ + _%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!105533%_ + _%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::ref105747%_ + _%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!105750%_ + _%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!105753%_ + _%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!105756%_ + _%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-each105759%_ + _%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::length105762%_ + _%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::copy105765%_ + _%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!105768%_ + _%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 12f70b00d..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 1734131746) + (define gerbil/runtime/hash::timestamp 1734357960) (begin (define UnboundKeyError::t - (let ((__tmp110199 (list Error::t))) + (let ((__tmp111184 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp110199 + __tmp111184 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args110179%_ - (apply make-instance UnboundKeyError::t _%$args110179%_))) + (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 (_%where110053%_ _%message110054%_ . _%irritants110055%_) - (let ((__tmp110200 - (let ((__obj110193 + (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! - __obj110193 - _%message110054%_ + __obj111178 + _%message111039%_ 'where: - _%where110053%_ + _%where111038%_ 'irritants: - _%irritants110055%_)) - __obj110193))) + _%irritants111040%_)) + __obj111178))) (declare (not safe)) - (raise __tmp110200)))) + (raise __tmp111185)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp110201 (cons interface-instance::t '()))) + (let ((__tmp111186 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp110201 + __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 (_%obj110051%_) + (lambda (_%obj111036%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj110051%_)))) + (cast HashTable::interface _%obj111036%_)))) (define try-HashTable - (lambda (_%obj110049%_) + (lambda (_%obj111034%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj110049%_)))) + (try-cast HashTable::interface _%obj111034%_)))) (define HashTable? - (lambda (_%obj110047%_) - (let ((__tmp110202 + (lambda (_%obj111032%_) + (let ((__tmp111187 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj110047%_ __tmp110202)))) + (##structure-direct-instance-of? _%obj111032%_ __tmp111187)))) (define is-HashTable? - (lambda (_%obj110045%_) + (lambda (_%obj111030%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj110045%_)) + (satisfies? HashTable::interface _%obj111030%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self110029%_) - (let* ((_%self110034%_ - (let ((_%$obj110031%_ _%self110029%_)) + (lambda (_%self111014%_) + (let* ((_%self111019%_ + (let ((_%$obj111016%_ _%self111014%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj110031%_)) + (##structure? _%$obj111016%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj110031%_))) + (##structure-type _%$obj111016%_))) '#t) - _%$obj110031%_ + _%$obj111016%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj110031%_))))) - (_%self110036%_ _%self110034%_)) - (&HashTable-clear! _%self110036%_)))) + (cast HashTable::interface _%$obj111016%_))))) + (_%self111021%_ _%self111019%_)) + (&HashTable-clear! _%self111021%_)))) (define &HashTable-clear! - (lambda (_%self110014%_) - (let ((_%self110016%_ _%self110014%_)) + (lambda (_%self110999%_) + (let ((_%self111001%_ _%self110999%_)) (declare (not safe)) - (let ((_%obj110026%_ - (##unchecked-structure-ref _%self110016%_ '1 '#f 'clear!)) - (_%f110027%_ - (##unchecked-structure-ref _%self110016%_ '2 '#f 'clear!))) - (_%f110027%_ _%obj110026%_))))) + (let ((_%obj111011%_ + (##unchecked-structure-ref _%self111001%_ '1 '#f 'clear!)) + (_%f111012%_ + (##unchecked-structure-ref _%self111001%_ '2 '#f 'clear!))) + (_%f111012%_ _%obj111011%_))))) (define HashTable-copy - (lambda (_%self109998%_) - (let* ((_%self110003%_ - (let ((_%$obj110000%_ _%self109998%_)) + (lambda (_%self110983%_) + (let* ((_%self110988%_ + (let ((_%$obj110985%_ _%self110983%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj110000%_)) + (##structure? _%$obj110985%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj110000%_))) + (##structure-type _%$obj110985%_))) '#t) - _%$obj110000%_ + _%$obj110985%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj110000%_))))) - (_%self110005%_ _%self110003%_)) - (__HashTable-copy _%self110005%_)))) + (cast HashTable::interface _%$obj110985%_))))) + (_%self110990%_ _%self110988%_)) + (__HashTable-copy _%self110990%_)))) (define __HashTable-copy - (lambda (_%self109985%_) - (let* ((_%self109987%_ _%self109985%_) - (_%$obj109995%_ (&HashTable-copy _%self109987%_))) - (if (and (let () (declare (not safe)) (##structure? _%$obj109995%_)) + (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 _%$obj109995%_))) + (##structure-type _%$obj110980%_))) '#t) - _%$obj109995%_ + _%$obj110980%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109995%_)))))) + (cast HashTable::interface _%$obj110980%_)))))) (define &HashTable-copy - (lambda (_%self109970%_) - (let ((_%self109972%_ _%self109970%_)) + (lambda (_%self110955%_) + (let ((_%self110957%_ _%self110955%_)) (declare (not safe)) - (let ((_%obj109982%_ - (##unchecked-structure-ref _%self109972%_ '1 '#f 'copy)) - (_%f109983%_ - (##unchecked-structure-ref _%self109972%_ '3 '#f 'copy))) - (_%f109983%_ _%obj109982%_))))) + (let ((_%obj110967%_ + (##unchecked-structure-ref _%self110957%_ '1 '#f 'copy)) + (_%f110968%_ + (##unchecked-structure-ref _%self110957%_ '3 '#f 'copy))) + (_%f110968%_ _%obj110967%_))))) (define HashTable-delete! - (lambda (_%self109953%_ _%key109954%_) - (let* ((_%self109959%_ - (let ((_%$obj109956%_ _%self109953%_)) + (lambda (_%self110938%_ _%key110939%_) + (let* ((_%self110944%_ + (let ((_%$obj110941%_ _%self110938%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109956%_)) + (##structure? _%$obj110941%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109956%_))) + (##structure-type _%$obj110941%_))) '#t) - _%$obj109956%_ + _%$obj110941%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109956%_))))) - (_%self109961%_ _%self109959%_)) - (&HashTable-delete! _%self109961%_ _%key109954%_)))) + (cast HashTable::interface _%$obj110941%_))))) + (_%self110946%_ _%self110944%_)) + (&HashTable-delete! _%self110946%_ _%key110939%_)))) (define &HashTable-delete! - (lambda (_%self109937%_ _%key109938%_) - (let ((_%self109940%_ _%self109937%_)) + (lambda (_%self110922%_ _%key110923%_) + (let ((_%self110925%_ _%self110922%_)) (declare (not safe)) - (let ((_%obj109950%_ - (##unchecked-structure-ref _%self109940%_ '1 '#f 'delete!)) - (_%f109951%_ - (##unchecked-structure-ref _%self109940%_ '4 '#f 'delete!))) - (_%f109951%_ _%obj109950%_ _%key109938%_))))) + (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 (_%self109910%_ _%proc109911%_) - (let* ((_%self109916%_ - (let ((_%$obj109913%_ _%self109910%_)) + (lambda (_%self110895%_ _%proc110896%_) + (let* ((_%self110901%_ + (let ((_%$obj110898%_ _%self110895%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109913%_)) + (##structure? _%$obj110898%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109913%_))) + (##structure-type _%$obj110898%_))) '#t) - _%$obj109913%_ + _%$obj110898%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109913%_))))) - (_%self109918%_ _%self109916%_)) - (if (procedure? _%proc109911%_) - (let ((_%proc109927%_ _%proc109911%_)) - (&HashTable-for-each _%self109918%_ _%proc109927%_)) + (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: - _%proc109911%_) + _%proc110896%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self109886%_ _%proc109887%_) - (let* ((_%self109889%_ _%self109886%_) (_%proc109896%_ _%proc109887%_)) + (lambda (_%self110871%_ _%proc110872%_) + (let* ((_%self110874%_ _%self110871%_) (_%proc110881%_ _%proc110872%_)) (declare (not safe)) - (let ((_%obj109907%_ - (##unchecked-structure-ref _%self109889%_ '1 '#f 'for-each)) - (_%f109908%_ - (##unchecked-structure-ref _%self109889%_ '5 '#f 'for-each))) - (_%f109908%_ _%obj109907%_ _%proc109896%_))))) + (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 (_%self109870%_) - (let* ((_%self109875%_ - (let ((_%$obj109872%_ _%self109870%_)) + (lambda (_%self110855%_) + (let* ((_%self110860%_ + (let ((_%$obj110857%_ _%self110855%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109872%_)) + (##structure? _%$obj110857%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109872%_))) + (##structure-type _%$obj110857%_))) '#t) - _%$obj109872%_ + _%$obj110857%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109872%_))))) - (_%self109877%_ _%self109875%_)) - (__HashTable-length _%self109877%_)))) + (cast HashTable::interface _%$obj110857%_))))) + (_%self110862%_ _%self110860%_)) + (__HashTable-length _%self110862%_)))) (define __HashTable-length - (lambda (_%self109857%_) - (let* ((_%self109859%_ _%self109857%_) - (_%val109867%_ (&HashTable-length _%self109859%_))) - _%val109867%_))) + (lambda (_%self110842%_) + (let* ((_%self110844%_ _%self110842%_) + (_%val110852%_ (&HashTable-length _%self110844%_))) + _%val110852%_))) (define &HashTable-length - (lambda (_%self109842%_) - (let ((_%self109844%_ _%self109842%_)) + (lambda (_%self110827%_) + (let ((_%self110829%_ _%self110827%_)) (declare (not safe)) - (let ((_%obj109854%_ - (##unchecked-structure-ref _%self109844%_ '1 '#f 'length)) - (_%f109855%_ - (##unchecked-structure-ref _%self109844%_ '6 '#f 'length))) - (_%f109855%_ _%obj109854%_))))) + (let ((_%obj110839%_ + (##unchecked-structure-ref _%self110829%_ '1 '#f 'length)) + (_%f110840%_ + (##unchecked-structure-ref _%self110829%_ '6 '#f 'length))) + (_%f110840%_ _%obj110839%_))))) (define HashTable-ref - (lambda (_%self109824%_ _%key109825%_ _%default109826%_) - (let* ((_%self109831%_ - (let ((_%$obj109828%_ _%self109824%_)) + (lambda (_%self110809%_ _%key110810%_ _%default110811%_) + (let* ((_%self110816%_ + (let ((_%$obj110813%_ _%self110809%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109828%_)) + (##structure? _%$obj110813%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109828%_))) + (##structure-type _%$obj110813%_))) '#t) - _%$obj109828%_ + _%$obj110813%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109828%_))))) - (_%self109833%_ _%self109831%_)) - (&HashTable-ref _%self109833%_ _%key109825%_ _%default109826%_)))) + (cast HashTable::interface _%$obj110813%_))))) + (_%self110818%_ _%self110816%_)) + (&HashTable-ref _%self110818%_ _%key110810%_ _%default110811%_)))) (define &HashTable-ref - (lambda (_%self109807%_ _%key109808%_ _%default109809%_) - (let ((_%self109811%_ _%self109807%_)) + (lambda (_%self110792%_ _%key110793%_ _%default110794%_) + (let ((_%self110796%_ _%self110792%_)) (declare (not safe)) - (let ((_%obj109821%_ - (##unchecked-structure-ref _%self109811%_ '1 '#f 'ref)) - (_%f109822%_ - (##unchecked-structure-ref _%self109811%_ '7 '#f 'ref))) - (_%f109822%_ _%obj109821%_ _%key109808%_ _%default109809%_))))) + (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 (_%self109789%_ _%key109790%_ _%value109791%_) - (let* ((_%self109796%_ - (let ((_%$obj109793%_ _%self109789%_)) + (lambda (_%self110774%_ _%key110775%_ _%value110776%_) + (let* ((_%self110781%_ + (let ((_%$obj110778%_ _%self110774%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109793%_)) + (##structure? _%$obj110778%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109793%_))) + (##structure-type _%$obj110778%_))) '#t) - _%$obj109793%_ + _%$obj110778%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109793%_))))) - (_%self109798%_ _%self109796%_)) - (&HashTable-set! _%self109798%_ _%key109790%_ _%value109791%_)))) + (cast HashTable::interface _%$obj110778%_))))) + (_%self110783%_ _%self110781%_)) + (&HashTable-set! _%self110783%_ _%key110775%_ _%value110776%_)))) (define &HashTable-set! - (lambda (_%self109772%_ _%key109773%_ _%value109774%_) - (let ((_%self109776%_ _%self109772%_)) + (lambda (_%self110757%_ _%key110758%_ _%value110759%_) + (let ((_%self110761%_ _%self110757%_)) (declare (not safe)) - (let ((_%obj109786%_ - (##unchecked-structure-ref _%self109776%_ '1 '#f 'set!)) - (_%f109787%_ - (##unchecked-structure-ref _%self109776%_ '8 '#f 'set!))) - (_%f109787%_ _%obj109786%_ _%key109773%_ _%value109774%_))))) + (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 (_%self109743%_ _%key109744%_ _%proc109745%_ _%default109746%_) - (let* ((_%self109751%_ - (let ((_%$obj109748%_ _%self109743%_)) + (lambda (_%self110728%_ _%key110729%_ _%proc110730%_ _%default110731%_) + (let* ((_%self110736%_ + (let ((_%$obj110733%_ _%self110728%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109748%_)) + (##structure? _%$obj110733%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109748%_))) + (##structure-type _%$obj110733%_))) '#t) - _%$obj109748%_ + _%$obj110733%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109748%_))))) - (_%self109753%_ _%self109751%_)) - (if (procedure? _%proc109745%_) - (let ((_%proc109762%_ _%proc109745%_)) + (cast HashTable::interface _%$obj110733%_))))) + (_%self110738%_ _%self110736%_)) + (if (procedure? _%proc110730%_) + (let ((_%proc110747%_ _%proc110730%_)) (&HashTable-update! - _%self109753%_ - _%key109744%_ - _%proc109762%_ - _%default109746%_)) + _%self110738%_ + _%key110729%_ + _%proc110747%_ + _%default110731%_)) (begin (raise-contract-violation-error '"contract violation" @@ -407,28 +414,28 @@ 'contract: 'procedure? 'value: - _%proc109745%_) + _%proc110730%_) '#!void))))) (define &HashTable-update! - (lambda (_%self109715%_ _%key109716%_ _%proc109717%_ _%default109718%_) - (let* ((_%self109720%_ _%self109715%_) (_%proc109727%_ _%proc109717%_)) + (lambda (_%self110700%_ _%key110701%_ _%proc110702%_ _%default110703%_) + (let* ((_%self110705%_ _%self110700%_) (_%proc110712%_ _%proc110702%_)) (declare (not safe)) - (let ((_%obj109738%_ - (##unchecked-structure-ref _%self109720%_ '1 '#f 'update!)) - (_%f109740%_ - (##unchecked-structure-ref _%self109720%_ '9 '#f 'update!))) - (_%f109740%_ - _%obj109738%_ - _%key109716%_ - _%proc109727%_ - _%default109718%_))))) + (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 ((__tmp110203 (cons interface-instance::t '()))) + (let ((__tmp111188 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp110203 + __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 (_%obj109713%_) - (let () (declare (not safe)) (cast Locker::interface _%obj109713%_)))) + (lambda (_%obj110698%_) + (let () (declare (not safe)) (cast Locker::interface _%obj110698%_)))) (define try-Locker - (lambda (_%obj109711%_) + (lambda (_%obj110696%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj109711%_)))) + (try-cast Locker::interface _%obj110696%_)))) (define Locker? - (lambda (_%obj109709%_) - (let ((__tmp110204 + (lambda (_%obj110694%_) + (let ((__tmp111189 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj109709%_ __tmp110204)))) + (##structure-direct-instance-of? _%obj110694%_ __tmp111189)))) (define is-Locker? - (lambda (_%obj109707%_) + (lambda (_%obj110692%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj109707%_)) + (satisfies? Locker::interface _%obj110692%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self109691%_) - (let* ((_%self109696%_ - (let ((_%$obj109693%_ _%self109691%_)) + (lambda (_%self110676%_) + (let* ((_%self110681%_ + (let ((_%$obj110678%_ _%self110676%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109693%_)) + (##structure? _%$obj110678%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109693%_))) + (##structure-type _%$obj110678%_))) '#t) - _%$obj109693%_ + _%$obj110678%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109693%_))))) - (_%self109698%_ _%self109696%_)) - (&Locker-read-lock! _%self109698%_)))) + (cast Locker::interface _%$obj110678%_))))) + (_%self110683%_ _%self110681%_)) + (&Locker-read-lock! _%self110683%_)))) (define &Locker-read-lock! - (lambda (_%self109676%_) - (let ((_%self109678%_ _%self109676%_)) + (lambda (_%self110661%_) + (let ((_%self110663%_ _%self110661%_)) (declare (not safe)) - (let ((_%obj109688%_ - (##unchecked-structure-ref _%self109678%_ '1 '#f 'read-lock!)) - (_%f109689%_ + (let ((_%obj110673%_ + (##unchecked-structure-ref _%self110663%_ '1 '#f 'read-lock!)) + (_%f110674%_ (##unchecked-structure-ref - _%self109678%_ + _%self110663%_ '2 '#f 'read-lock!))) - (_%f109689%_ _%obj109688%_))))) + (_%f110674%_ _%obj110673%_))))) (define Locker-read-unlock! - (lambda (_%self109660%_) - (let* ((_%self109665%_ - (let ((_%$obj109662%_ _%self109660%_)) + (lambda (_%self110645%_) + (let* ((_%self110650%_ + (let ((_%$obj110647%_ _%self110645%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109662%_)) + (##structure? _%$obj110647%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109662%_))) + (##structure-type _%$obj110647%_))) '#t) - _%$obj109662%_ + _%$obj110647%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109662%_))))) - (_%self109667%_ _%self109665%_)) - (&Locker-read-unlock! _%self109667%_)))) + (cast Locker::interface _%$obj110647%_))))) + (_%self110652%_ _%self110650%_)) + (&Locker-read-unlock! _%self110652%_)))) (define &Locker-read-unlock! - (lambda (_%self109645%_) - (let ((_%self109647%_ _%self109645%_)) + (lambda (_%self110630%_) + (let ((_%self110632%_ _%self110630%_)) (declare (not safe)) - (let ((_%obj109657%_ + (let ((_%obj110642%_ (##unchecked-structure-ref - _%self109647%_ + _%self110632%_ '1 '#f 'read-unlock!)) - (_%f109658%_ + (_%f110643%_ (##unchecked-structure-ref - _%self109647%_ + _%self110632%_ '3 '#f 'read-unlock!))) - (_%f109658%_ _%obj109657%_))))) + (_%f110643%_ _%obj110642%_))))) (define Locker-write-lock! - (lambda (_%self109629%_) - (let* ((_%self109634%_ - (let ((_%$obj109631%_ _%self109629%_)) + (lambda (_%self110614%_) + (let* ((_%self110619%_ + (let ((_%$obj110616%_ _%self110614%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109631%_)) + (##structure? _%$obj110616%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109631%_))) + (##structure-type _%$obj110616%_))) '#t) - _%$obj109631%_ + _%$obj110616%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109631%_))))) - (_%self109636%_ _%self109634%_)) - (&Locker-write-lock! _%self109636%_)))) + (cast Locker::interface _%$obj110616%_))))) + (_%self110621%_ _%self110619%_)) + (&Locker-write-lock! _%self110621%_)))) (define &Locker-write-lock! - (lambda (_%self109614%_) - (let ((_%self109616%_ _%self109614%_)) + (lambda (_%self110599%_) + (let ((_%self110601%_ _%self110599%_)) (declare (not safe)) - (let ((_%obj109626%_ + (let ((_%obj110611%_ (##unchecked-structure-ref - _%self109616%_ + _%self110601%_ '1 '#f 'write-lock!)) - (_%f109627%_ + (_%f110612%_ (##unchecked-structure-ref - _%self109616%_ + _%self110601%_ '4 '#f 'write-lock!))) - (_%f109627%_ _%obj109626%_))))) + (_%f110612%_ _%obj110611%_))))) (define Locker-write-unlock! - (lambda (_%self109598%_) - (let* ((_%self109603%_ - (let ((_%$obj109600%_ _%self109598%_)) + (lambda (_%self110583%_) + (let* ((_%self110588%_ + (let ((_%$obj110585%_ _%self110583%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109600%_)) + (##structure? _%$obj110585%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109600%_))) + (##structure-type _%$obj110585%_))) '#t) - _%$obj109600%_ + _%$obj110585%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109600%_))))) - (_%self109605%_ _%self109603%_)) - (&Locker-write-unlock! _%self109605%_)))) + (cast Locker::interface _%$obj110585%_))))) + (_%self110590%_ _%self110588%_)) + (&Locker-write-unlock! _%self110590%_)))) (define &Locker-write-unlock! - (lambda (_%self109581%_) - (let ((_%self109583%_ _%self109581%_)) + (lambda (_%self110566%_) + (let ((_%self110568%_ _%self110566%_)) (declare (not safe)) - (let ((_%obj109593%_ + (let ((_%obj110578%_ (##unchecked-structure-ref - _%self109583%_ + _%self110568%_ '1 '#f 'write-unlock!)) - (_%f109595%_ + (_%f110580%_ (##unchecked-structure-ref - _%self109583%_ + _%self110568%_ '5 '#f 'write-unlock!))) - (_%f109595%_ _%obj109593%_))))) + (_%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 (_%table109574%_ - _%key109575%_ - _%update109576%_ - _%default109577%_) - (let ((_%result109579%_ - (table-ref _%table109574%_ _%key109575%_ _%default109577%_))) + (lambda (_%table110559%_ + _%key110560%_ + _%update110561%_ + _%default110562%_) + (let ((_%result110564%_ + (table-ref _%table110559%_ _%key110560%_ _%default110562%_))) (table-set! - _%table109574%_ - _%key109575%_ - (_%update109576%_ _%default109577%_))))) + _%table110559%_ + _%key110560%_ + (_%update110561%_ _%default110562%_))))) (define gambit-table-for-each - (lambda (_%table109571%_ _%proc109572%_) - (table-for-each _%proc109572%_ _%table109571%_))) + (lambda (_%table110556%_ _%proc110557%_) + (table-for-each _%proc110557%_ _%table110556%_))) (define gambit-table-clear! - (lambda (_%table109569%_) + (lambda (_%table110554%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table109569%_ '0 '5 '#f '#f)))) - (let ((__tmp110205 (macro-type-table))) + (##unchecked-structure-set! _%table110554%_ '0 '5 '#f '#f)))) + (let ((__tmp111190 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110205 'ref table-ref)) - (let ((__tmp110206 (macro-type-table))) + (bind-method!__0 __tmp111190 'HashTable::ref table-ref)) + (let ((__tmp111191 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110206 'set! table-set!)) - (let ((__tmp110207 (macro-type-table))) + (bind-method!__0 __tmp111191 'HashTable::set! table-set!)) + (let ((__tmp111192 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110207 'update! gambit-table-update!)) - (let ((__tmp110208 (macro-type-table))) + (bind-method!__0 __tmp111192 'HashTable::update! gambit-table-update!)) + (let ((__tmp111193 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110208 'delete! table-set!)) - (let ((__tmp110209 (macro-type-table))) + (bind-method!__0 __tmp111193 'HashTable::delete! table-set!)) + (let ((__tmp111194 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110209 'for-each gambit-table-for-each)) - (let ((__tmp110210 (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 __tmp110210 'length table-length)) - (let ((__tmp110211 (macro-type-table))) + (bind-method!__0 __tmp111195 'HashTable::length table-length)) + (let ((__tmp111196 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110211 'copy table-copy)) - (let ((__tmp110212 (macro-type-table))) + (bind-method!__0 __tmp111196 'HashTable::copy table-copy)) + (let ((__tmp111197 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110212 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp111197 'HashTable::clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots109551%_ '(table count free hash test seed)) - (_%slot-vector109553%_ (list->vector (cons '#f _%slots109551%_))) - (_%slot-table109560%_ - (let ((_%slot-table109555%_ + (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 ((__tmp110215 - (lambda (_%slot109557%_ _%field109558%_) + (let ((__tmp111200 + (lambda (_%slot110542%_ _%field110543%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109555%_ - _%slot109557%_ - _%field109558%_)) - (let ((__tmp110216 + _%slot-table110540%_ + _%slot110542%_ + _%field110543%_)) + (let ((__tmp111201 (let () (declare (not safe)) - (symbol->keyword _%slot109557%_)))) + (symbol->keyword _%slot110542%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109555%_ - __tmp110216 - _%field109558%_)))) - (__tmp110213 - (let ((__tmp110214 + _%slot-table110540%_ + __tmp111201 + _%field110543%_)))) + (__tmp111198 + (let ((__tmp111199 (let () (declare (not safe)) - (##length _%slots109551%_)))) + (##length _%slots110536%_)))) (declare (not safe)) - (##iota __tmp110214 '1)))) + (##iota __tmp111199 '1)))) (declare (not safe)) - (##for-each __tmp110215 _%slots109551%_ __tmp110213)) - _%slot-table109555%_)) - (_%flags109562%_ + (##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))) - (_%fields109564%_ '#()) - (_%properties109566%_ + (_%fields110549%_ '#()) + (_%properties110551%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109551%_))) + (__foldr1 cons '() _%slots110536%_))) (cons (cons 'struct: '#t) '()))) - (__tmp110217 (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 - _%flags109562%_ + _%flags110547%_ __table::t - _%fields109564%_ - __tmp110217 - _%slot-vector109553%_ - _%slot-table109560%_ - _%properties109566%_ + _%fields110549%_ + __tmp111202 + _%slot-vector110538%_ + _%slot-table110545%_ + _%properties110551%_ '#f '#f))) (define gc-hash-table::t - (let* ((_%slots109533%_ '(gcht immediate)) - (_%slot-vector109535%_ (list->vector (cons '#f _%slots109533%_))) - (_%slot-table109542%_ - (let ((_%slot-table109537%_ + (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 ((__tmp110220 - (lambda (_%slot109539%_ _%field109540%_) + (let ((__tmp111205 + (lambda (_%slot110524%_ _%field110525%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109537%_ - _%slot109539%_ - _%field109540%_)) - (let ((__tmp110221 + _%slot-table110522%_ + _%slot110524%_ + _%field110525%_)) + (let ((__tmp111206 (let () (declare (not safe)) - (symbol->keyword _%slot109539%_)))) + (symbol->keyword _%slot110524%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109537%_ - __tmp110221 - _%field109540%_)))) - (__tmp110218 - (let ((__tmp110219 + _%slot-table110522%_ + __tmp111206 + _%field110525%_)))) + (__tmp111203 + (let ((__tmp111204 (let () (declare (not safe)) - (##length _%slots109533%_)))) + (##length _%slots110518%_)))) (declare (not safe)) - (##iota __tmp110219 '1)))) + (##iota __tmp111204 '1)))) (declare (not safe)) - (##for-each __tmp110220 _%slots109533%_ __tmp110218)) - _%slot-table109537%_)) - (_%flags109544%_ + (##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))) - (_%fields109546%_ '#()) - (_%properties109548%_ + (_%fields110531%_ '#()) + (_%properties110533%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109533%_))) + (__foldr1 cons '() _%slots110518%_))) (cons (cons 'struct: '#t) '()))) - (__tmp110222 (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 - _%flags109544%_ + _%flags110529%_ __gc-table::t - _%fields109546%_ - __tmp110222 - _%slot-vector109535%_ - _%slot-table109542%_ - _%properties109548%_ + _%fields110531%_ + __tmp111207 + _%slot-vector110520%_ + _%slot-table110527%_ + _%properties110533%_ '#f '#f))) (define locked-hash-table::t - (let ((__tmp110224 (list)) - (__tmp110223 + (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 - __tmp110224 + __tmp111209 '(table lock) - __tmp110223 + __tmp111208 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args109530%_ - (apply make-instance locked-hash-table::t _%$args109530%_))) + (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 ((__tmp110226 (list)) - (__tmp110225 + (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 - __tmp110226 + __tmp111211 '(table key-check) - __tmp110225 + __tmp111210 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args109527%_ - (apply make-instance checked-hash-table::t _%$args109527%_))) + (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 ((__tmp110228 (list hash-table::t)) - (__tmp110227 (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 - __tmp110228 + __tmp111213 '() - __tmp110227 + __tmp111212 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args109524%_ - (apply make-instance eq-hash-table::t _%$args109524%_))) + (lambda _%$args110509%_ + (apply make-instance eq-hash-table::t _%$args110509%_))) (define eqv-hash-table::t - (let ((__tmp110230 (list hash-table::t)) - (__tmp110229 (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 - __tmp110230 + __tmp111215 '() - __tmp110229 + __tmp111214 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args109521%_ - (apply make-instance eqv-hash-table::t _%$args109521%_))) + (lambda _%$args110506%_ + (apply make-instance eqv-hash-table::t _%$args110506%_))) (define symbol-hash-table::t - (let ((__tmp110232 (list hash-table::t)) - (__tmp110231 (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 - __tmp110232 + __tmp111217 '() - __tmp110231 + __tmp111216 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args109518%_ - (apply make-instance symbol-hash-table::t _%$args109518%_))) + (lambda _%$args110503%_ + (apply make-instance symbol-hash-table::t _%$args110503%_))) (define string-hash-table::t - (let ((__tmp110234 (list hash-table::t)) - (__tmp110233 (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 - __tmp110234 + __tmp111219 '() - __tmp110233 + __tmp111218 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args109515%_ - (apply make-instance string-hash-table::t _%$args109515%_))) + (lambda _%$args110500%_ + (apply make-instance string-hash-table::t _%$args110500%_))) (define immediate-hash-table::t - (let ((__tmp110236 (list hash-table::t)) - (__tmp110235 (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 - __tmp110236 + __tmp111221 '() - __tmp110235 + __tmp111220 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args109512%_ - (apply make-instance immediate-hash-table::t _%$args109512%_))) + (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::ref105512%_ - (lambda (_%self105511109486%_ _%key109488%_ _%default109489%_) - (let* ((_%self109491%_ _%self105511109486%_) - (_%self109494%_ _%self109491%_)) - (let ((_%h109504%_ + (define _%locked-hash-table::HashTable::ref106497%_ + (lambda (_%self106496110471%_ _%key110473%_ _%default110474%_) + (let* ((_%self110476%_ _%self106496110471%_) + (_%self110479%_ _%self110476%_)) + (let ((_%h110489%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109494%_ '1 '#f '#f))) - (_%l109506%_ + (##unchecked-structure-ref _%self110479%_ '1 '#f '#f))) + (_%l110491%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109494%_ '2 '#f '#f)))) - (let ((__tmp110239 (lambda () (&Locker-read-lock! _%l109506%_))) - (__tmp110238 + (##unchecked-structure-ref _%self110479%_ '2 '#f '#f)))) + (let ((__tmp111224 (lambda () (&Locker-read-lock! _%l110491%_))) + (__tmp111223 (lambda () (&HashTable-ref - _%h109504%_ - _%key109488%_ - _%default109489%_))) - (__tmp110237 (lambda () (&Locker-read-unlock! _%l109506%_)))) + _%h110489%_ + _%key110473%_ + _%default110474%_))) + (__tmp111222 (lambda () (&Locker-read-unlock! _%l110491%_)))) (declare (not safe)) - (##dynamic-wind __tmp110239 __tmp110238 __tmp110237)))))) + (##dynamic-wind __tmp111224 __tmp111223 __tmp111222)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'ref - _%locked-hash-table::ref105512%_ + 'HashTable::ref + _%locked-hash-table::HashTable::ref106497%_ '#f)) - (define _%locked-hash-table::set!105515%_ - (lambda (_%self105514109337%_ _%key109339%_ _%value109340%_) - (let* ((_%self109342%_ _%self105514109337%_) - (_%self109345%_ _%self109342%_)) - (let ((_%h109355%_ + (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 _%self109345%_ '1 '#f '#f))) - (_%l109357%_ + (##unchecked-structure-ref _%self110330%_ '1 '#f '#f))) + (_%l110342%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109345%_ '2 '#f '#f)))) - (let ((__tmp110242 (lambda () (&Locker-write-lock! _%l109357%_))) - (__tmp110241 + (##unchecked-structure-ref _%self110330%_ '2 '#f '#f)))) + (let ((__tmp111227 (lambda () (&Locker-write-lock! _%l110342%_))) + (__tmp111226 (lambda () (&HashTable-set! - _%h109355%_ - _%key109339%_ - _%value109340%_))) - (__tmp110240 - (lambda () (&Locker-write-unlock! _%l109357%_)))) + _%h110340%_ + _%key110324%_ + _%value110325%_))) + (__tmp111225 + (lambda () (&Locker-write-unlock! _%l110342%_)))) (declare (not safe)) - (##dynamic-wind __tmp110242 __tmp110241 __tmp110240)))))) + (##dynamic-wind __tmp111227 __tmp111226 __tmp111225)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'set! - _%locked-hash-table::set!105515%_ + 'HashTable::set! + _%locked-hash-table::HashTable::set!106500%_ '#f)) - (define _%locked-hash-table::update!105518%_ - (lambda (_%self105517109187%_ - _%key109189%_ - _%update109190%_ - _%default109191%_) - (let* ((_%self109193%_ _%self105517109187%_) - (_%self109196%_ _%self109193%_)) - (let ((_%h109206%_ + (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 _%self109196%_ '1 '#f '#f))) - (_%l109208%_ + (##unchecked-structure-ref _%self110181%_ '1 '#f '#f))) + (_%l110193%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109196%_ '2 '#f '#f)))) - (let ((__tmp110245 (lambda () (&Locker-write-lock! _%l109208%_))) - (__tmp110244 + (##unchecked-structure-ref _%self110181%_ '2 '#f '#f)))) + (let ((__tmp111230 (lambda () (&Locker-write-lock! _%l110193%_))) + (__tmp111229 (lambda () (&HashTable-update! - _%h109206%_ - _%key109189%_ - _%update109190%_ - _%default109191%_))) - (__tmp110243 - (lambda () (&Locker-write-unlock! _%l109208%_)))) + _%h110191%_ + _%key110174%_ + _%update110175%_ + _%default110176%_))) + (__tmp111228 + (lambda () (&Locker-write-unlock! _%l110193%_)))) (declare (not safe)) - (##dynamic-wind __tmp110245 __tmp110244 __tmp110243)))))) + (##dynamic-wind __tmp111230 __tmp111229 __tmp111228)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'update! - _%locked-hash-table::update!105518%_ + 'HashTable::update! + _%locked-hash-table::HashTable::update!106503%_ '#f)) - (define _%locked-hash-table::delete!105521%_ - (lambda (_%self105520109039%_ _%key109041%_) - (let* ((_%self109043%_ _%self105520109039%_) - (_%self109046%_ _%self109043%_)) - (let ((_%h109056%_ + (define _%locked-hash-table::HashTable::delete!106506%_ + (lambda (_%self106505110024%_ _%key110026%_) + (let* ((_%self110028%_ _%self106505110024%_) + (_%self110031%_ _%self110028%_)) + (let ((_%h110041%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109046%_ '1 '#f '#f))) - (_%l109058%_ + (##unchecked-structure-ref _%self110031%_ '1 '#f '#f))) + (_%l110043%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109046%_ '2 '#f '#f)))) - (let ((__tmp110248 (lambda () (&Locker-write-lock! _%l109058%_))) - (__tmp110247 - (lambda () (&HashTable-delete! _%h109056%_ _%key109041%_))) - (__tmp110246 - (lambda () (&Locker-write-unlock! _%l109058%_)))) + (##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 __tmp110248 __tmp110247 __tmp110246)))))) + (##dynamic-wind __tmp111233 __tmp111232 __tmp111231)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'delete! - _%locked-hash-table::delete!105521%_ + 'HashTable::delete! + _%locked-hash-table::HashTable::delete!106506%_ '#f)) - (define _%locked-hash-table::for-each105524%_ - (lambda (_%self105523108891%_ _%proc108893%_) - (let* ((_%self108895%_ _%self105523108891%_) - (_%self108898%_ _%self108895%_)) - (let ((_%h108908%_ + (define _%locked-hash-table::HashTable::for-each106509%_ + (lambda (_%self106508109876%_ _%proc109878%_) + (let* ((_%self109880%_ _%self106508109876%_) + (_%self109883%_ _%self109880%_)) + (let ((_%h109893%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108898%_ '1 '#f '#f))) - (_%l108910%_ + (##unchecked-structure-ref _%self109883%_ '1 '#f '#f))) + (_%l109895%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108898%_ '2 '#f '#f)))) - (let ((__tmp110251 (lambda () (&Locker-read-lock! _%l108910%_))) - (__tmp110250 + (##unchecked-structure-ref _%self109883%_ '2 '#f '#f)))) + (let ((__tmp111236 (lambda () (&Locker-read-lock! _%l109895%_))) + (__tmp111235 (lambda () - (&HashTable-for-each _%h108908%_ _%proc108893%_))) - (__tmp110249 (lambda () (&Locker-read-unlock! _%l108910%_)))) + (&HashTable-for-each _%h109893%_ _%proc109878%_))) + (__tmp111234 (lambda () (&Locker-read-unlock! _%l109895%_)))) (declare (not safe)) - (##dynamic-wind __tmp110251 __tmp110250 __tmp110249)))))) + (##dynamic-wind __tmp111236 __tmp111235 __tmp111234)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'for-each - _%locked-hash-table::for-each105524%_ + 'HashTable::for-each + _%locked-hash-table::HashTable::for-each106509%_ '#f)) - (define _%locked-hash-table::length105527%_ - (lambda (_%self105526108744%_) - (let* ((_%self108747%_ _%self105526108744%_) - (_%self108750%_ _%self108747%_)) - (let ((_%h108760%_ + (define _%locked-hash-table::HashTable::length106512%_ + (lambda (_%self106511109729%_) + (let* ((_%self109732%_ _%self106511109729%_) + (_%self109735%_ _%self109732%_)) + (let ((_%h109745%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108750%_ '1 '#f '#f))) - (_%l108762%_ + (##unchecked-structure-ref _%self109735%_ '1 '#f '#f))) + (_%l109747%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108750%_ '2 '#f '#f)))) - (let ((__tmp110254 (lambda () (&Locker-read-lock! _%l108762%_))) - (__tmp110253 (lambda () (&HashTable-length _%h108760%_))) - (__tmp110252 (lambda () (&Locker-read-unlock! _%l108762%_)))) + (##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 __tmp110254 __tmp110253 __tmp110252)))))) + (##dynamic-wind __tmp111239 __tmp111238 __tmp111237)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'length - _%locked-hash-table::length105527%_ + 'HashTable::length + _%locked-hash-table::HashTable::length106512%_ '#f)) - (define _%locked-hash-table::copy105530%_ - (lambda (_%self105529108597%_) - (let* ((_%self108600%_ _%self105529108597%_) - (_%self108603%_ _%self108600%_)) - (let ((_%h108613%_ + (define _%locked-hash-table::HashTable::copy106515%_ + (lambda (_%self106514109582%_) + (let* ((_%self109585%_ _%self106514109582%_) + (_%self109588%_ _%self109585%_)) + (let ((_%h109598%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108603%_ '1 '#f '#f))) - (_%l108615%_ + (##unchecked-structure-ref _%self109588%_ '1 '#f '#f))) + (_%l109600%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108603%_ '2 '#f '#f)))) - (let ((__tmp110257 (lambda () (&Locker-read-lock! _%l108615%_))) - (__tmp110256 (lambda () (&HashTable-copy _%h108613%_))) - (__tmp110255 (lambda () (&Locker-read-unlock! _%l108615%_)))) + (##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 __tmp110257 __tmp110256 __tmp110255)))))) + (##dynamic-wind __tmp111242 __tmp111241 __tmp111240)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'copy - _%locked-hash-table::copy105530%_ + 'HashTable::copy + _%locked-hash-table::HashTable::copy106515%_ '#f)) - (define _%locked-hash-table::clear!105533%_ - (lambda (_%self105532108450%_) - (let* ((_%self108453%_ _%self105532108450%_) - (_%self108456%_ _%self108453%_)) - (let ((_%h108466%_ + (define _%locked-hash-table::HashTable::clear!106518%_ + (lambda (_%self106517109435%_) + (let* ((_%self109438%_ _%self106517109435%_) + (_%self109441%_ _%self109438%_)) + (let ((_%h109451%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108456%_ '1 '#f '#f))) - (_%l108468%_ + (##unchecked-structure-ref _%self109441%_ '1 '#f '#f))) + (_%l109453%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108456%_ '2 '#f '#f)))) - (let ((__tmp110260 (lambda () (&Locker-write-lock! _%l108468%_))) - (__tmp110259 (lambda () (&HashTable-clear! _%h108466%_))) - (__tmp110258 - (lambda () (&Locker-write-unlock! _%l108468%_)))) + (##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 __tmp110260 __tmp110259 __tmp110258)))))) + (##dynamic-wind __tmp111245 __tmp111244 __tmp111243)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'clear! - _%locked-hash-table::clear!105533%_ + 'HashTable::clear! + _%locked-hash-table::HashTable::clear!106518%_ '#f)) - (let ((__tmp110261 (macro-type-mutex))) + (let ((__tmp111246 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110261 'read-lock! mutex-lock!)) - (let ((__tmp110262 (macro-type-mutex))) + (bind-method!__0 __tmp111246 'Locker::read-lock! mutex-lock!)) + (let ((__tmp111247 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110262 'read-unlock! mutex-unlock!)) - (let ((__tmp110263 (macro-type-mutex))) + (bind-method!__0 __tmp111247 'Locker::read-unlock! mutex-unlock!)) + (let ((__tmp111248 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110263 'write-lock! mutex-lock!)) - (let ((__tmp110264 (macro-type-mutex))) + (bind-method!__0 __tmp111248 'Locker::write-lock! mutex-lock!)) + (let ((__tmp111249 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110264 'write-unlock! mutex-unlock!)) - (define _%checked-hash-table::ref105747%_ - (lambda (_%self105746108300%_ _%key108302%_ _%default108303%_) - (let* ((_%self108305%_ _%self105746108300%_) - (_%self108307%_ _%self108305%_)) + (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 ((_%h108318%_ - (##unchecked-structure-ref _%self108307%_ '1 '#f '#f)) - (_%key?108320%_ - (##unchecked-structure-ref _%self108307%_ '2 '#f '#f))) - (if ((lambda (_%key?108323%_ _%key108324%_ _%default108325%_) - (_%key?108323%_ _%key108324%_)) - _%key?108320%_ - _%key108302%_ - _%default108303%_) - (&HashTable-ref _%h108318%_ _%key108302%_ _%default108303%_) + (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 _%key108302%_ (cons _%default108303%_ '()))) + (cons _%key109287%_ (cons _%default109288%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'ref - _%checked-hash-table::ref105747%_ + 'HashTable::ref + _%checked-hash-table::HashTable::ref106732%_ '#f)) - (define _%checked-hash-table::set!105750%_ - (lambda (_%self105749108150%_ _%key108152%_ _%value108153%_) - (let* ((_%self108155%_ _%self105749108150%_) - (_%self108157%_ _%self108155%_)) + (define _%checked-hash-table::HashTable::set!106735%_ + (lambda (_%self106734109135%_ _%key109137%_ _%value109138%_) + (let* ((_%self109140%_ _%self106734109135%_) + (_%self109142%_ _%self109140%_)) (declare (not safe)) - (let ((_%h108168%_ - (##unchecked-structure-ref _%self108157%_ '1 '#f '#f)) - (_%key?108170%_ - (##unchecked-structure-ref _%self108157%_ '2 '#f '#f))) - (if ((lambda (_%key?108173%_ _%key108174%_ _%value108175%_) - (_%key?108173%_ _%key108174%_)) - _%key?108170%_ - _%key108152%_ - _%value108153%_) - (&HashTable-set! _%h108168%_ _%key108152%_ _%value108153%_) + (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 _%key108152%_ (cons _%value108153%_ '()))) + (cons _%key109137%_ (cons _%value109138%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'set! - _%checked-hash-table::set!105750%_ + 'HashTable::set! + _%checked-hash-table::HashTable::set!106735%_ '#f)) - (define _%checked-hash-table::update!105753%_ - (lambda (_%self105752107998%_ - _%key108000%_ - _%update108001%_ - _%default108002%_) - (let* ((_%self108004%_ _%self105752107998%_) - (_%self108006%_ _%self108004%_)) + (define _%checked-hash-table::HashTable::update!106738%_ + (lambda (_%self106737108983%_ + _%key108985%_ + _%update108986%_ + _%default108987%_) + (let* ((_%self108989%_ _%self106737108983%_) + (_%self108991%_ _%self108989%_)) (declare (not safe)) - (let ((_%h108017%_ - (##unchecked-structure-ref _%self108006%_ '1 '#f '#f)) - (_%key?108019%_ - (##unchecked-structure-ref _%self108006%_ '2 '#f '#f))) - (if ((lambda (_%key?108022%_ - _%key108023%_ - _%update108024%_ - _%default108025%_) - (_%key?108022%_ _%key108023%_)) - _%key?108019%_ - _%key108000%_ - _%update108001%_ - _%default108002%_) + (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! - _%h108017%_ - _%key108000%_ - _%update108001%_ - _%default108002%_) + _%h109002%_ + _%key108985%_ + _%update108986%_ + _%default108987%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-update! 'value: - (cons _%key108000%_ - (cons _%update108001%_ (cons _%default108002%_ '())))) + (cons _%key108985%_ + (cons _%update108986%_ (cons _%default108987%_ '())))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'update! - _%checked-hash-table::update!105753%_ + 'HashTable::update! + _%checked-hash-table::HashTable::update!106738%_ '#f)) - (define _%checked-hash-table::delete!105756%_ - (lambda (_%self105755107850%_ _%key107852%_) - (let* ((_%self107854%_ _%self105755107850%_) - (_%self107856%_ _%self107854%_)) + (define _%checked-hash-table::HashTable::delete!106741%_ + (lambda (_%self106740108835%_ _%key108837%_) + (let* ((_%self108839%_ _%self106740108835%_) + (_%self108841%_ _%self108839%_)) (declare (not safe)) - (let ((_%h107867%_ - (##unchecked-structure-ref _%self107856%_ '1 '#f '#f)) - (_%key?107869%_ - (##unchecked-structure-ref _%self107856%_ '2 '#f '#f))) - (if ((lambda (_%key?107872%_ _%key107873%_) - (_%key?107872%_ _%key107873%_)) - _%key?107869%_ - _%key107852%_) - (&HashTable-delete! _%h107867%_ _%key107852%_) + (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 _%key107852%_ '())) + (cons _%key108837%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'delete! - _%checked-hash-table::delete!105756%_ + 'HashTable::delete! + _%checked-hash-table::HashTable::delete!106741%_ '#f)) - (define _%checked-hash-table::for-each105759%_ - (lambda (_%self105758107702%_ _%proc107704%_) - (let* ((_%self107706%_ _%self105758107702%_) - (_%self107708%_ _%self107706%_)) + (define _%checked-hash-table::HashTable::for-each106744%_ + (lambda (_%self106743108687%_ _%proc108689%_) + (let* ((_%self108691%_ _%self106743108687%_) + (_%self108693%_ _%self108691%_)) (declare (not safe)) - (let ((_%h107719%_ - (##unchecked-structure-ref _%self107708%_ '1 '#f '#f)) - (_%key?107721%_ - (##unchecked-structure-ref _%self107708%_ '2 '#f '#f))) - (if ((lambda (_%key?107724%_ _%proc107725%_) '#t) - _%key?107721%_ - _%proc107704%_) - (&HashTable-for-each _%h107719%_ _%proc107704%_) + (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 _%proc107704%_ '())) + (cons _%proc108689%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'for-each - _%checked-hash-table::for-each105759%_ + 'HashTable::for-each + _%checked-hash-table::HashTable::for-each106744%_ '#f)) - (define _%checked-hash-table::length105762%_ - (lambda (_%self105761107558%_) - (let* ((_%self107561%_ _%self105761107558%_) - (_%self107563%_ _%self107561%_)) + (define _%checked-hash-table::HashTable::length106747%_ + (lambda (_%self106746108543%_) + (let* ((_%self108546%_ _%self106746108543%_) + (_%self108548%_ _%self108546%_)) (declare (not safe)) - (let ((_%h107574%_ - (##unchecked-structure-ref _%self107563%_ '1 '#f '#f)) - (_%key?107576%_ - (##unchecked-structure-ref _%self107563%_ '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 _%h107574%_) + (&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::length105762%_ + 'HashTable::length + _%checked-hash-table::HashTable::length106747%_ '#f)) - (define _%checked-hash-table::copy105765%_ - (lambda (_%self105764107414%_) - (let* ((_%self107417%_ _%self105764107414%_) - (_%self107419%_ _%self107417%_)) + (define _%checked-hash-table::HashTable::copy106750%_ + (lambda (_%self106749108399%_) + (let* ((_%self108402%_ _%self106749108399%_) + (_%self108404%_ _%self108402%_)) (declare (not safe)) - (let ((_%h107430%_ - (##unchecked-structure-ref _%self107419%_ '1 '#f '#f)) - (_%key?107432%_ - (##unchecked-structure-ref _%self107419%_ '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 _%h107430%_) + (&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::copy105765%_ + 'HashTable::copy + _%checked-hash-table::HashTable::copy106750%_ '#f)) - (define _%checked-hash-table::clear!105768%_ - (lambda (_%self105767107270%_) - (let* ((_%self107273%_ _%self105767107270%_) - (_%self107275%_ _%self107273%_)) + (define _%checked-hash-table::HashTable::clear!106753%_ + (lambda (_%self106752108255%_) + (let* ((_%self108258%_ _%self106752108255%_) + (_%self108260%_ _%self108258%_)) (declare (not safe)) - (let ((_%h107286%_ - (##unchecked-structure-ref _%self107275%_ '1 '#f '#f)) - (_%key?107288%_ - (##unchecked-structure-ref _%self107275%_ '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! _%h107286%_) + (&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!105768%_ + 'HashTable::clear! + _%checked-hash-table::HashTable::clear!106753%_ '#f)) (define make-generic-hash-table - (lambda (_%table107140%_ - _%count107141%_ - _%free107142%_ - _%hash107143%_ - _%test107144%_ - _%seed107145%_) + (lambda (_%table108125%_ + _%count108126%_ + _%free108127%_ + _%hash108128%_ + _%test108129%_ + _%seed108130%_) (let () (declare (not safe)) (##structure hash-table::t - _%table107140%_ - _%count107141%_ - _%free107142%_ - _%hash107143%_ - _%test107144%_ - _%seed107145%_)))) + _%table108125%_ + _%count108126%_ + _%free108127%_ + _%hash108128%_ + _%test108129%_ + _%seed108130%_)))) (define make-hash-table__% - (lambda (_%@@keywords106901%_ - _%size-hint106891106902%_ - _%seed106892106904%_ - _%test106893106906%_ - _%hash106894106908%_ - _%lock106895106910%_ - _%check106896106912%_ - _%weak-keys106897106914%_ - _%weak-values106898106916%_) - (let* ((_%size-hint106919%_ - (if (eq? _%size-hint106891106902%_ 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-hint106891106902%_)) - (_%seed106921%_ - (if (eq? _%seed106892106904%_ absent-value) + _%size-hint107876107887%_)) + (_%seed107906%_ + (if (eq? _%seed107877107889%_ absent-value) '#f - _%seed106892106904%_)) - (_%test106923%_ - (if (eq? _%test106893106906%_ absent-value) + _%seed107877107889%_)) + (_%test107908%_ + (if (eq? _%test107878107891%_ absent-value) equal? - _%test106893106906%_)) - (_%hash106925%_ - (if (eq? _%hash106894106908%_ absent-value) + _%test107878107891%_)) + (_%hash107910%_ + (if (eq? _%hash107879107893%_ absent-value) '#f - _%hash106894106908%_)) - (_%lock106927%_ - (if (eq? _%lock106895106910%_ absent-value) + _%hash107879107893%_)) + (_%lock107912%_ + (if (eq? _%lock107880107895%_ absent-value) '#f - _%lock106895106910%_)) - (_%check106929%_ - (if (eq? _%check106896106912%_ absent-value) + _%lock107880107895%_)) + (_%check107914%_ + (if (eq? _%check107881107897%_ absent-value) '#f - _%check106896106912%_)) - (_%weak-keys106931%_ - (if (eq? _%weak-keys106897106914%_ absent-value) + _%check107881107897%_)) + (_%weak-keys107916%_ + (if (eq? _%weak-keys107882107899%_ absent-value) '#f - _%weak-keys106897106914%_)) - (_%weak-values106933%_ - (if (eq? _%weak-values106898106916%_ absent-value) + _%weak-keys107882107899%_)) + (_%weak-values107918%_ + (if (eq? _%weak-values107883107901%_ absent-value) '#f - _%weak-values106898106916%_))) - (letrec ((_%table-seed106936%_ + _%weak-values107883107901%_))) + (letrec ((_%table-seed107921%_ (lambda () - (if (fixnum? _%seed106921%_) - _%seed106921%_ + (if (fixnum? _%seed107906%_) + _%seed107906%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock106937%_ - (lambda (_%ht107114%_) - (let ((_%ht107117%_ _%ht107114%_)) - (_%__wrap-lock106938%_ _%ht107117%_)))) - (_%__wrap-lock106938%_ - (lambda (_%ht107096%_) - (let ((_%ht107099%_ _%ht107096%_)) - (if _%lock106927%_ - (let ((_%$obj107111%_ - (let ((__tmp110265 - (let ((_%$obj107108%_ - _%lock106927%_)) + (_%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? - _%$obj107108%_)) + _%$obj108093%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj107108%_))) + _%$obj108093%_))) '#t) - _%$obj107108%_ + _%$obj108093%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj107108%_)))))) + _%$obj108093%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht107099%_ - __tmp110265)))) + _%ht108084%_ + __tmp111250)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj107111%_)) + (##structure? _%$obj108096%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj107111%_))) + _%$obj108096%_))) '#t) - _%$obj107111%_ + _%$obj108096%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj107111%_)))) - _%ht107099%_)))) - (_%wrap-checked106939%_ - (lambda (_%ht107083%_ _%implicit107084%_) - (let ((_%ht107087%_ _%ht107083%_)) - (_%__wrap-checked106940%_ - _%ht107087%_ - _%implicit107084%_)))) - (_%__wrap-checked106940%_ - (lambda (_%ht107056%_ _%implicit107057%_) - (let ((_%ht107060%_ _%ht107056%_)) - (if _%check106929%_ - (let ((_%$obj107080%_ - (let ((__tmp110266 - (if (procedure? _%check106929%_) - _%check106929%_ - _%implicit107057%_))) + _%$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 - _%ht107060%_ - __tmp110266)))) + _%ht108045%_ + __tmp111251)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj107080%_)) + (##structure? _%$obj108065%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj107080%_))) + _%$obj108065%_))) '#t) - _%$obj107080%_ + _%$obj108065%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj107080%_)))) - _%ht107060%_)))) - (_%make106941%_ - (lambda (_%kons107040%_ - _%key?107041%_ - _%hash107042%_ - _%test107043%_) - (let* ((_%size107046%_ + _%$obj108065%_)))) + _%ht108045%_)))) + (_%make107926%_ + (lambda (_%kons108025%_ + _%key?108026%_ + _%hash108027%_ + _%test108028%_) + (let* ((_%size108031%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint106919%_))) - (_%table107048%_ - (let ((__tmp110267 (macro-unused-obj))) + _%size-hint107904%_))) + (_%table108033%_ + (let ((__tmp111252 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size107046%_ __tmp110267))) - (_%ht107053%_ - (let ((_%$obj107050%_ - (_%kons107040%_ - _%table107048%_ + (##make-vector _%size108031%_ __tmp111252))) + (_%ht108038%_ + (let ((_%$obj108035%_ + (_%kons108025%_ + _%table108033%_ '0 (let () (declare (not safe)) - (##fxquotient _%size107046%_ '2)) - _%hash107042%_ - _%test107043%_ - (_%table-seed106936%_)))) + (##fxquotient _%size108031%_ '2)) + _%hash108027%_ + _%test108028%_ + (_%table-seed107921%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj107050%_)) + (##structure? _%$obj108035%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj107050%_))) + _%$obj108035%_))) '#t) - _%$obj107050%_ + _%$obj108035%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj107050%_)))))) - (_%__wrap-checked106940%_ - (_%__wrap-lock106938%_ _%ht107053%_) - _%key?107041%_)))) - (_%make-gc-hash-table106942%_ + _%$obj108035%_)))))) + (_%__wrap-checked107925%_ + (_%__wrap-lock107923%_ _%ht108038%_) + _%key?108026%_)))) + (_%make-gc-hash-table107927%_ (lambda () - (let ((_%ht107038%_ - (let ((_%$obj107035%_ + (let ((_%ht108023%_ + (let ((_%$obj108020%_ (let () (declare (not safe)) (make-gc-table__1 - _%size-hint106919%_ + _%size-hint107904%_ gc-hash-table::t)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj107035%_)) + (##structure? _%$obj108020%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj107035%_))) + _%$obj108020%_))) '#t) - _%$obj107035%_ + _%$obj108020%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj107035%_)))))) - (_%__wrap-checked106940%_ - (_%__wrap-lock106938%_ _%ht107038%_) + _%$obj108020%_)))))) + (_%__wrap-checked107925%_ + (_%__wrap-lock107923%_ _%ht108023%_) true)))) - (_%make-gambit-table106943%_ + (_%make-gambit-table107928%_ (lambda () - (let* ((_%size107012%_ - (let ((_%$e107009%_ _%size-hint106919%_)) - (if _%$e107009%_ - _%$e107009%_ + (let* ((_%size107997%_ + (let ((_%$e107994%_ _%size-hint107904%_)) + (if _%$e107994%_ + _%$e107994%_ (macro-absent-obj)))) - (_%test107017%_ - (let ((_%$e107014%_ _%test106923%_)) - (if _%$e107014%_ _%$e107014%_ equal?))) - (_%hash107025%_ - (let ((_%$e107019%_ _%hash106925%_)) - (if _%$e107019%_ - _%$e107019%_ - (if (eq? _%test107017%_ eq?) + (_%test108002%_ + (let ((_%$e107999%_ _%test107908%_)) + (if _%$e107999%_ _%$e107999%_ equal?))) + (_%hash108010%_ + (let ((_%$e108004%_ _%hash107910%_)) + (if _%$e108004%_ + _%$e108004%_ + (if (eq? _%test108002%_ eq?) eq?-hash - (if (eq? _%test107017%_ eqv?) + (if (eq? _%test108002%_ eqv?) eqv?-hash equal?-hash))))) - (_%ht107030%_ - (let ((_%$obj107027%_ + (_%ht108015%_ + (let ((_%$obj108012%_ (make-table 'size: - _%size107012%_ + _%size107997%_ 'test: - _%test107017%_ + _%test108002%_ 'hash: - _%hash107025%_ + _%hash108010%_ 'weak-keys: - _%weak-keys106931%_ + _%weak-keys107916%_ 'weak-values: - _%weak-values106933%_))) + _%weak-values107918%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj107027%_)) + (##structure? _%$obj108012%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj107027%_))) + _%$obj108012%_))) '#t) - _%$obj107027%_ + _%$obj108012%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj107027%_)))))) - (_%__wrap-checked106940%_ - (_%__wrap-lock106938%_ _%ht107030%_) + _%$obj108012%_)))))) + (_%__wrap-checked107925%_ + (_%__wrap-lock107923%_ _%ht108015%_) true))))) - (if (or _%weak-keys106931%_ _%weak-values106933%_) - (_%make-gambit-table106943%_) - (if (and (or (eq? _%test106923%_ eq?) - (eq? _%test106923%_ ##eq?)) - (or (not _%hash106925%_) - (eq? _%hash106925%_ eq?-hash) - (eq? _%hash106925%_ eq-hash)) - (not _%seed106921%_)) - (_%make-gc-hash-table106942%_) - (if (and (or (eq? _%test106923%_ eq?) - (eq? _%test106923%_ ##eq?)) - (or (not _%hash106925%_) - (eq? _%hash106925%_ eq?-hash) - (eq? _%hash106925%_ eq-hash))) - (_%make106941%_ make-eq-hash-table true eq-hash eq?) - (if (and (or (eq? _%test106923%_ eqv?) - (eq? _%test106923%_ ##eqv?)) - (or (not _%hash106925%_) - (eq? _%hash106925%_ eqv?-hash) - (eq? _%hash106925%_ eqv-hash))) - (_%make106941%_ + (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? _%test106923%_ eq?) - (eq? _%test106923%_ ##eq?)) - (or (eq? _%hash106925%_ symbolic-hash) - (eq? _%hash106925%_ ##symbol-hash))) - (_%make106941%_ + (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? _%test106923%_ eq?) - (eq? _%test106923%_ ##eq?)) - (eq? _%hash106925%_ immediate-hash)) - (_%make106941%_ + (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? _%test106923%_ equal?) - (eq? _%test106923%_ ##equal?) - (eq? _%test106923%_ string=?) - (eq? _%test106923%_ + (if (and (or (eq? _%test107908%_ equal?) + (eq? _%test107908%_ ##equal?) + (eq? _%test107908%_ string=?) + (eq? _%test107908%_ ##string=?)) - (or (eq? _%hash106925%_ + (or (eq? _%hash107910%_ string-hash) - (eq? _%hash106925%_ + (eq? _%hash107910%_ ##string=?-hash))) - (_%make106941%_ + (_%make107926%_ make-string-hash-table string? string-hash ##string=?) - (if (and (eq? _%test106923%_ equal?) - (not _%hash106925%_)) - (_%make106941%_ + (if (and (eq? _%test107908%_ equal?) + (not _%hash107910%_)) + (_%make107926%_ make-generic-hash-table true equal?-hash equal?) - (if (procedure? _%test106923%_) - (if (procedure? _%hash106925%_) - (_%make106941%_ + (if (procedure? _%test107908%_) + (if (procedure? _%hash107910%_) + (_%make107926%_ make-generic-hash-table true - _%hash106925%_ - _%test106923%_) + _%hash107910%_ + _%test107908%_) (let () (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash106925%_)) + _%hash107910%_)) '#!void)) (let () (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test106923%_)) + _%test107908%_)) '#!void)))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords107130%_ . _%args107131%_) + (lambda (_%@@keywords108115%_ . _%args108116%_) (apply make-hash-table__% - _%@@keywords107130%_ + _%@@keywords108115%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107130%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107130%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107130%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107130%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107130%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords107130%_ + _%@@keywords108115%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords107130%_ + _%@@keywords108115%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords107130%_ + _%@@keywords108115%_ 'weak-values: absent-value)) - _%args107131%_))) + _%args108116%_))) (define make-hash-table - (lambda _%args106899107137%_ + (lambda _%args107884108122%_ (apply keyword-dispatch '#(#f #f @@ -2018,883 +2064,883 @@ #f #f) make-hash-table__@ - _%args106899107137%_))) + _%args107884108122%_))) (define make-hash-table-eq - (lambda _%args106888%_ - (apply make-hash-table 'test: eq? _%args106888%_))) + (lambda _%args107873%_ + (apply make-hash-table 'test: eq? _%args107873%_))) (define make-hash-table-eqv - (lambda _%args106886%_ - (apply make-hash-table 'test: eqv? _%args106886%_))) + (lambda _%args107871%_ + (apply make-hash-table 'test: eqv? _%args107871%_))) (define make-hash-table-symbolic - (lambda _%args106884%_ + (lambda _%args107869%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args106884%_))) + _%args107869%_))) (define make-hash-table-string - (lambda _%args106882%_ + (lambda _%args107867%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args106882%_))) + _%args107867%_))) (define make-hash-table-immediate - (lambda _%args106880%_ + (lambda _%args107865%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args106880%_))) + _%args107865%_))) (define list->hash-table - (lambda (_%lst106877%_ . _%args106878%_) + (lambda (_%lst107862%_ . _%args107863%_) (list->hash-table! - _%lst106877%_ + _%lst107862%_ (apply make-hash-table 'size: - (length _%lst106877%_) - _%args106878%_)))) + (length _%lst107862%_) + _%args107863%_)))) (define list->hash-table-eq - (lambda (_%lst106874%_ . _%args106875%_) + (lambda (_%lst107859%_ . _%args107860%_) (list->hash-table! - _%lst106874%_ + _%lst107859%_ (apply make-hash-table-eq 'size: - (length _%lst106874%_) - _%args106875%_)))) + (length _%lst107859%_) + _%args107860%_)))) (define list->hash-table-eqv - (lambda (_%lst106871%_ . _%args106872%_) + (lambda (_%lst107856%_ . _%args107857%_) (list->hash-table! - _%lst106871%_ + _%lst107856%_ (apply make-hash-table-eqv 'size: - (length _%lst106871%_) - _%args106872%_)))) + (length _%lst107856%_) + _%args107857%_)))) (define list->hash-table-symbolic - (lambda (_%lst106868%_ . _%args106869%_) + (lambda (_%lst107853%_ . _%args107854%_) (list->hash-table! - _%lst106868%_ + _%lst107853%_ (apply make-hash-table-symbolic 'size: - (length _%lst106868%_) - _%args106869%_)))) + (length _%lst107853%_) + _%args107854%_)))) (define list->hash-table-string - (lambda (_%lst106865%_ . _%args106866%_) + (lambda (_%lst107850%_ . _%args107851%_) (list->hash-table! - _%lst106865%_ + _%lst107850%_ (apply make-hash-table-string 'size: - (length _%lst106865%_) - _%args106866%_)))) + (length _%lst107850%_) + _%args107851%_)))) (define list->hash-table-immediate - (lambda (_%lst106862%_ . _%args106863%_) + (lambda (_%lst107847%_ . _%args107848%_) (list->hash-table! - _%lst106862%_ + _%lst107847%_ (apply make-hash-table-immediate 'size: - (length _%lst106862%_) - _%args106863%_)))) + (length _%lst107847%_) + _%args107848%_)))) (define list->hash-table! - (lambda (_%lst106829%_ _%h106830%_) + (lambda (_%lst107814%_ _%h107815%_) (for-each - (lambda (_%el106832%_) - (let* ((_%el106833106840%_ _%el106832%_) - (_%E106835106844%_ + (lambda (_%el107817%_) + (let* ((_%el107818107825%_ _%el107817%_) + (_%E107820107829%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el106833106840%_ + _%el107818107825%_ '([k . v]))) '#!void)) - (_%K106836106850%_ - (lambda (_%v106847%_ _%k106848%_) - (&HashTable-set! _%h106830%_ _%k106848%_ _%v106847%_)))) - (if (pair? _%el106833106840%_) - (let ((_%hd106837106853%_ + (_%K107821107835%_ + (lambda (_%v107832%_ _%k107833%_) + (&HashTable-set! _%h107815%_ _%k107833%_ _%v107832%_)))) + (if (pair? _%el107818107825%_) + (let ((_%hd107822107838%_ (let () (declare (not safe)) - (##car _%el106833106840%_))) - (_%tl106838106855%_ + (##car _%el107818107825%_))) + (_%tl107823107840%_ (let () (declare (not safe)) - (##cdr _%el106833106840%_)))) - (let* ((_%k106858%_ _%hd106837106853%_) - (_%v106860%_ _%tl106838106855%_)) - (_%K106836106850%_ _%v106860%_ _%k106858%_))) - (_%E106835106844%_)))) - _%lst106829%_) - _%h106830%_)) + (##cdr _%el107818107825%_)))) + (let* ((_%k107843%_ _%hd107822107838%_) + (_%v107845%_ _%tl107823107840%_)) + (_%K107821107835%_ _%v107845%_ _%k107843%_))) + (_%E107820107829%_)))) + _%lst107814%_) + _%h107815%_)) (define plist->hash-table - (lambda (_%lst106826%_ . _%args106827%_) + (lambda (_%lst107811%_ . _%args107812%_) (plist->hash-table! - _%lst106826%_ + _%lst107811%_ (apply make-hash-table 'size: - (length _%lst106826%_) - _%args106827%_)))) + (length _%lst107811%_) + _%args107812%_)))) (define plist->hash-table-eq - (lambda (_%lst106823%_ . _%args106824%_) + (lambda (_%lst107808%_ . _%args107809%_) (plist->hash-table! - _%lst106823%_ + _%lst107808%_ (apply make-hash-table-eq 'size: - (length _%lst106823%_) - _%args106824%_)))) + (length _%lst107808%_) + _%args107809%_)))) (define plist->hash-table-eqv - (lambda (_%lst106820%_ . _%args106821%_) + (lambda (_%lst107805%_ . _%args107806%_) (plist->hash-table! - _%lst106820%_ + _%lst107805%_ (apply make-hash-table-eqv 'size: - (length _%lst106820%_) - _%args106821%_)))) + (length _%lst107805%_) + _%args107806%_)))) (define plist->hash-table-symbolic - (lambda (_%lst106817%_ . _%args106818%_) + (lambda (_%lst107802%_ . _%args107803%_) (plist->hash-table! - _%lst106817%_ + _%lst107802%_ (apply make-hash-table-symbolic 'size: - (length _%lst106817%_) - _%args106818%_)))) + (length _%lst107802%_) + _%args107803%_)))) (define plist->hash-table-string - (lambda (_%lst106814%_ . _%args106815%_) + (lambda (_%lst107799%_ . _%args107800%_) (plist->hash-table! - _%lst106814%_ + _%lst107799%_ (apply make-hash-table-string 'size: - (length _%lst106814%_) - _%args106815%_)))) + (length _%lst107799%_) + _%args107800%_)))) (define plist->hash-table-immediate - (lambda (_%lst106811%_ . _%args106812%_) + (lambda (_%lst107796%_ . _%args107797%_) (plist->hash-table! - _%lst106811%_ + _%lst107796%_ (apply make-hash-table-immediate 'size: - (length _%lst106811%_) - _%args106812%_)))) + (length _%lst107796%_) + _%args107797%_)))) (define plist->hash-table! - (lambda (_%lst106751%_ _%h106752%_) - (let _%loop106754%_ ((_%rest106756%_ _%lst106751%_)) - (let* ((_%rest106757106769%_ _%rest106756%_) - (_%else106760106777%_ + (lambda (_%lst107736%_ _%h107737%_) + (let _%loop107739%_ ((_%rest107741%_ _%lst107736%_)) + (let* ((_%rest107742107754%_ _%rest107741%_) + (_%else107745107762%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst106751%_))))) - (let ((_%K106763106792%_ - (lambda (_%rest106788%_ _%val106789%_ _%key106790%_) - (&HashTable-set! _%h106752%_ _%key106790%_ _%val106789%_) - (_%loop106754%_ _%rest106788%_))) - (_%K106762106782%_ (lambda () _%h106752%_))) - (let ((_%try-match106759106785%_ + _%lst107736%_))))) + (let ((_%K107748107777%_ + (lambda (_%rest107773%_ _%val107774%_ _%key107775%_) + (&HashTable-set! _%h107737%_ _%key107775%_ _%val107774%_) + (_%loop107739%_ _%rest107773%_))) + (_%K107747107767%_ (lambda () _%h107737%_))) + (let ((_%try-match107744107770%_ (lambda () - (if (null? _%rest106757106769%_) - (_%K106762106782%_) - (_%else106760106777%_))))) - (if (pair? _%rest106757106769%_) - (let ((_%tl106765106797%_ + (if (null? _%rest107742107754%_) + (_%K107747107767%_) + (_%else107745107762%_))))) + (if (pair? _%rest107742107754%_) + (let ((_%tl107750107782%_ (let () (declare (not safe)) - (##cdr _%rest106757106769%_))) - (_%hd106764106795%_ + (##cdr _%rest107742107754%_))) + (_%hd107749107780%_ (let () (declare (not safe)) - (##car _%rest106757106769%_)))) - (if (pair? _%tl106765106797%_) - (let ((_%tl106767106804%_ + (##car _%rest107742107754%_)))) + (if (pair? _%tl107750107782%_) + (let ((_%tl107752107789%_ (let () (declare (not safe)) - (##cdr _%tl106765106797%_))) - (_%hd106766106802%_ + (##cdr _%tl107750107782%_))) + (_%hd107751107787%_ (let () (declare (not safe)) - (##car _%tl106765106797%_)))) - (let ((_%key106800%_ _%hd106764106795%_) - (_%val106807%_ _%hd106766106802%_) - (_%rest106809%_ _%tl106767106804%_)) - (_%K106763106792%_ - _%rest106809%_ - _%val106807%_ - _%key106800%_))) - (_%else106760106777%_))) - (_%try-match106759106785%_)))))))) + (##car _%tl107750107782%_)))) + (let ((_%key107785%_ _%hd107749107780%_) + (_%val107792%_ _%hd107751107787%_) + (_%rest107794%_ _%tl107752107789%_)) + (_%K107748107777%_ + _%rest107794%_ + _%val107792%_ + _%key107785%_))) + (_%else107745107762%_))) + (_%try-match107744107770%_)))))))) (define hash-length - (lambda (_%h106733%_) - (let* ((_%h106739%_ - (let ((_%$obj106736%_ _%h106733%_)) + (lambda (_%h107718%_) + (let* ((_%h107724%_ + (let ((_%$obj107721%_ _%h107718%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106736%_)) + (##structure? _%$obj107721%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106736%_))) + (##structure-type _%$obj107721%_))) '#t) - _%$obj106736%_ + _%$obj107721%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106736%_))))) - (_%h106741%_ _%h106739%_)) - (__hash-length _%h106741%_)))) + (cast HashTable::interface _%$obj107721%_))))) + (_%h107726%_ _%h107724%_)) + (__hash-length _%h107726%_)))) (define __hash-length - (lambda (_%h106721%_) - (let ((_%h106724%_ _%h106721%_)) (__HashTable-length _%h106724%_)))) + (lambda (_%h107706%_) + (let ((_%h107709%_ _%h107706%_)) (__HashTable-length _%h107709%_)))) (define hash-ref__% - (lambda (_%h106689%_ _%key106690%_ _%default106691%_) - (let* ((_%h106697%_ - (let ((_%$obj106694%_ _%h106689%_)) + (lambda (_%h107674%_ _%key107675%_ _%default107676%_) + (let* ((_%h107682%_ + (let ((_%$obj107679%_ _%h107674%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106694%_)) + (##structure? _%$obj107679%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106694%_))) + (##structure-type _%$obj107679%_))) '#t) - _%$obj106694%_ + _%$obj107679%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106694%_))))) - (_%h106699%_ _%h106697%_)) - (__hash-ref__% _%h106699%_ _%key106690%_ _%default106691%_)))) + (cast HashTable::interface _%$obj107679%_))))) + (_%h107684%_ _%h107682%_)) + (__hash-ref__% _%h107684%_ _%key107675%_ _%default107676%_)))) (define hash-ref__0 - (lambda (_%h106712%_ _%key106713%_) - (let ((_%default106715%_ (macro-absent-obj))) - (hash-ref__% _%h106712%_ _%key106713%_ _%default106715%_)))) + (lambda (_%h107697%_ _%key107698%_) + (let ((_%default107700%_ (macro-absent-obj))) + (hash-ref__% _%h107697%_ _%key107698%_ _%default107700%_)))) (define hash-ref - (lambda _g110269_ - (let ((_g110268_ (let () (declare (not safe)) (##length _g110269_)))) - (cond ((let () (declare (not safe)) (##fx= _g110268_ 2)) - (apply hash-ref__0 _g110269_)) - ((let () (declare (not safe)) (##fx= _g110268_ 3)) - (apply hash-ref__% _g110269_)) + (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 - _g110269_)))))) + _g111254_)))))) (define __hash-ref__% - (lambda (_%h106660%_ _%key106661%_ _%default106662%_) - (let* ((_%h106665%_ _%h106660%_) - (_%result106674%_ - (&HashTable-ref _%h106665%_ _%key106661%_ _%default106662%_))) - (if (eq? _%result106674%_ (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: - _%h106665%_ + _%h107650%_ 'key: - _%key106661%_) - _%result106674%_)))) + _%key107646%_) + _%result107659%_)))) (define __hash-ref__0 - (lambda (_%h106679%_ _%key106680%_) - (let ((_%default106682%_ (macro-absent-obj))) - (__hash-ref__% _%h106679%_ _%key106680%_ _%default106682%_)))) + (lambda (_%h107664%_ _%key107665%_) + (let ((_%default107667%_ (macro-absent-obj))) + (__hash-ref__% _%h107664%_ _%key107665%_ _%default107667%_)))) (define __hash-ref - (lambda _g110271_ - (let ((_g110270_ (let () (declare (not safe)) (##length _g110271_)))) - (cond ((let () (declare (not safe)) (##fx= _g110270_ 2)) - (apply __hash-ref__0 _g110271_)) - ((let () (declare (not safe)) (##fx= _g110270_ 3)) - (apply __hash-ref__% _g110271_)) + (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 - _g110271_)))))) + _g111256_)))))) (define hash-get - (lambda (_%h106640%_ _%key106641%_) - (let* ((_%h106647%_ - (let ((_%$obj106644%_ _%h106640%_)) + (lambda (_%h107625%_ _%key107626%_) + (let* ((_%h107632%_ + (let ((_%$obj107629%_ _%h107625%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106644%_)) + (##structure? _%$obj107629%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106644%_))) + (##structure-type _%$obj107629%_))) '#t) - _%$obj106644%_ + _%$obj107629%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106644%_))))) - (_%h106649%_ _%h106647%_)) - (__hash-get _%h106649%_ _%key106641%_)))) + (cast HashTable::interface _%$obj107629%_))))) + (_%h107634%_ _%h107632%_)) + (__hash-get _%h107634%_ _%key107626%_)))) (define __hash-get - (lambda (_%h106627%_ _%key106628%_) - (let ((_%h106631%_ _%h106627%_)) - (&HashTable-ref _%h106631%_ _%key106628%_ '#f)))) + (lambda (_%h107612%_ _%key107613%_) + (let ((_%h107616%_ _%h107612%_)) + (&HashTable-ref _%h107616%_ _%key107613%_ '#f)))) (define hash-put! - (lambda (_%h106607%_ _%key106608%_ _%value106609%_) - (let* ((_%h106615%_ - (let ((_%$obj106612%_ _%h106607%_)) + (lambda (_%h107592%_ _%key107593%_ _%value107594%_) + (let* ((_%h107600%_ + (let ((_%$obj107597%_ _%h107592%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106612%_)) + (##structure? _%$obj107597%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106612%_))) + (##structure-type _%$obj107597%_))) '#t) - _%$obj106612%_ + _%$obj107597%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106612%_))))) - (_%h106617%_ _%h106615%_)) - (__hash-put! _%h106617%_ _%key106608%_ _%value106609%_)))) + (cast HashTable::interface _%$obj107597%_))))) + (_%h107602%_ _%h107600%_)) + (__hash-put! _%h107602%_ _%key107593%_ _%value107594%_)))) (define __hash-put! - (lambda (_%h106593%_ _%key106594%_ _%value106595%_) - (let ((_%h106598%_ _%h106593%_)) - (&HashTable-set! _%h106598%_ _%key106594%_ _%value106595%_)))) + (lambda (_%h107578%_ _%key107579%_ _%value107580%_) + (let ((_%h107583%_ _%h107578%_)) + (&HashTable-set! _%h107583%_ _%key107579%_ _%value107580%_)))) (define hash-update!__% - (lambda (_%h106558%_ _%key106559%_ _%update106560%_ _%default106561%_) - (let* ((_%h106567%_ - (let ((_%$obj106564%_ _%h106558%_)) + (lambda (_%h107543%_ _%key107544%_ _%update107545%_ _%default107546%_) + (let* ((_%h107552%_ + (let ((_%$obj107549%_ _%h107543%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106564%_)) + (##structure? _%$obj107549%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106564%_))) + (##structure-type _%$obj107549%_))) '#t) - _%$obj106564%_ + _%$obj107549%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106564%_))))) - (_%h106569%_ _%h106567%_)) + (cast HashTable::interface _%$obj107549%_))))) + (_%h107554%_ _%h107552%_)) (__hash-update!__% - _%h106569%_ - _%key106559%_ - _%update106560%_ - _%default106561%_)))) + _%h107554%_ + _%key107544%_ + _%update107545%_ + _%default107546%_)))) (define hash-update!__0 - (lambda (_%h106582%_ _%key106583%_ _%update106584%_) - (let ((_%default106586%_ '#!void)) + (lambda (_%h107567%_ _%key107568%_ _%update107569%_) + (let ((_%default107571%_ '#!void)) (hash-update!__% - _%h106582%_ - _%key106583%_ - _%update106584%_ - _%default106586%_)))) + _%h107567%_ + _%key107568%_ + _%update107569%_ + _%default107571%_)))) (define hash-update! - (lambda _g110273_ - (let ((_g110272_ (let () (declare (not safe)) (##length _g110273_)))) - (cond ((let () (declare (not safe)) (##fx= _g110272_ 3)) - (apply hash-update!__0 _g110273_)) - ((let () (declare (not safe)) (##fx= _g110272_ 4)) - (apply hash-update!__% _g110273_)) + (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! - _g110273_)))))) + _g111258_)))))) (define __hash-update!__% - (lambda (_%h106528%_ _%key106529%_ _%update106530%_ _%default106531%_) - (let ((_%h106534%_ _%h106528%_)) + (lambda (_%h107513%_ _%key107514%_ _%update107515%_ _%default107516%_) + (let ((_%h107519%_ _%h107513%_)) (HashTable-update! - _%h106534%_ - _%key106529%_ - _%update106530%_ - _%default106531%_)))) + _%h107519%_ + _%key107514%_ + _%update107515%_ + _%default107516%_)))) (define __hash-update!__0 - (lambda (_%h106546%_ _%key106547%_ _%update106548%_) - (let ((_%default106550%_ '#!void)) + (lambda (_%h107531%_ _%key107532%_ _%update107533%_) + (let ((_%default107535%_ '#!void)) (__hash-update!__% - _%h106546%_ - _%key106547%_ - _%update106548%_ - _%default106550%_)))) + _%h107531%_ + _%key107532%_ + _%update107533%_ + _%default107535%_)))) (define __hash-update! - (lambda _g110275_ - (let ((_g110274_ (let () (declare (not safe)) (##length _g110275_)))) - (cond ((let () (declare (not safe)) (##fx= _g110274_ 3)) - (apply __hash-update!__0 _g110275_)) - ((let () (declare (not safe)) (##fx= _g110274_ 4)) - (apply __hash-update!__% _g110275_)) + (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! - _g110275_)))))) + _g111260_)))))) (define hash-remove! - (lambda (_%h106508%_ _%key106509%_) - (let* ((_%h106515%_ - (let ((_%$obj106512%_ _%h106508%_)) + (lambda (_%h107493%_ _%key107494%_) + (let* ((_%h107500%_ + (let ((_%$obj107497%_ _%h107493%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106512%_)) + (##structure? _%$obj107497%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106512%_))) + (##structure-type _%$obj107497%_))) '#t) - _%$obj106512%_ + _%$obj107497%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106512%_))))) - (_%h106517%_ _%h106515%_)) - (__hash-remove! _%h106517%_ _%key106509%_)))) + (cast HashTable::interface _%$obj107497%_))))) + (_%h107502%_ _%h107500%_)) + (__hash-remove! _%h107502%_ _%key107494%_)))) (define __hash-remove! - (lambda (_%h106495%_ _%key106496%_) - (let ((_%h106499%_ _%h106495%_)) - (&HashTable-delete! _%h106499%_ _%key106496%_)))) + (lambda (_%h107480%_ _%key107481%_) + (let ((_%h107484%_ _%h107480%_)) + (&HashTable-delete! _%h107484%_ _%key107481%_)))) (define hash-key? - (lambda (_%h106476%_ _%k106477%_) - (let* ((_%h106483%_ - (let ((_%$obj106480%_ _%h106476%_)) + (lambda (_%h107461%_ _%k107462%_) + (let* ((_%h107468%_ + (let ((_%$obj107465%_ _%h107461%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106480%_)) + (##structure? _%$obj107465%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106480%_))) + (##structure-type _%$obj107465%_))) '#t) - _%$obj106480%_ + _%$obj107465%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106480%_))))) - (_%h106485%_ _%h106483%_)) - (__hash-key? _%h106485%_ _%k106477%_)))) + (cast HashTable::interface _%$obj107465%_))))) + (_%h107470%_ _%h107468%_)) + (__hash-key? _%h107470%_ _%k107462%_)))) (define __hash-key? - (lambda (_%h106463%_ _%k106464%_) - (let ((_%h106467%_ _%h106463%_)) - (not (eq? (&HashTable-ref _%h106467%_ _%k106464%_ absent-value) + (lambda (_%h107448%_ _%k107449%_) + (let ((_%h107452%_ _%h107448%_)) + (not (eq? (&HashTable-ref _%h107452%_ _%k107449%_ absent-value) absent-value))))) (define hash->list - (lambda (_%h106445%_) - (let* ((_%h106451%_ - (let ((_%$obj106448%_ _%h106445%_)) + (lambda (_%h107430%_) + (let* ((_%h107436%_ + (let ((_%$obj107433%_ _%h107430%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106448%_)) + (##structure? _%$obj107433%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106448%_))) + (##structure-type _%$obj107433%_))) '#t) - _%$obj106448%_ + _%$obj107433%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106448%_))))) - (_%h106453%_ _%h106451%_)) - (__hash->list _%h106453%_)))) + (cast HashTable::interface _%$obj107433%_))))) + (_%h107438%_ _%h107436%_)) + (__hash->list _%h107438%_)))) (define __hash->list - (lambda (_%h106428%_) - (let* ((_%h106431%_ _%h106428%_) (_%lst106440%_ '())) + (lambda (_%h107413%_) + (let* ((_%h107416%_ _%h107413%_) (_%lst107425%_ '())) (&HashTable-for-each - _%h106431%_ - (lambda (_%k106442%_ _%v106443%_) - (set! _%lst106440%_ - (cons (cons _%k106442%_ _%v106443%_) _%lst106440%_)))) - _%lst106440%_))) + _%h107416%_ + (lambda (_%k107427%_ _%v107428%_) + (set! _%lst107425%_ + (cons (cons _%k107427%_ _%v107428%_) _%lst107425%_)))) + _%lst107425%_))) (define hash->plist - (lambda (_%h106410%_) - (let* ((_%h106416%_ - (let ((_%$obj106413%_ _%h106410%_)) + (lambda (_%h107395%_) + (let* ((_%h107401%_ + (let ((_%$obj107398%_ _%h107395%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106413%_)) + (##structure? _%$obj107398%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106413%_))) + (##structure-type _%$obj107398%_))) '#t) - _%$obj106413%_ + _%$obj107398%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106413%_))))) - (_%h106418%_ _%h106416%_)) - (__hash->plist _%h106418%_)))) + (cast HashTable::interface _%$obj107398%_))))) + (_%h107403%_ _%h107401%_)) + (__hash->plist _%h107403%_)))) (define __hash->plist - (lambda (_%h106393%_) - (let* ((_%h106396%_ _%h106393%_) (_%lst106405%_ '())) + (lambda (_%h107378%_) + (let* ((_%h107381%_ _%h107378%_) (_%lst107390%_ '())) (&HashTable-for-each - _%h106396%_ - (lambda (_%k106407%_ _%v106408%_) - (set! _%lst106405%_ - (cons _%k106407%_ (cons _%v106408%_ _%lst106405%_))))) - _%lst106405%_))) + _%h107381%_ + (lambda (_%k107392%_ _%v107393%_) + (set! _%lst107390%_ + (cons _%k107392%_ (cons _%v107393%_ _%lst107390%_))))) + _%lst107390%_))) (define hash-for-each - (lambda (_%proc106364%_ _%h106365%_) - (if (procedure? _%proc106364%_) - (let* ((_%proc106369%_ _%proc106364%_) - (_%h106381%_ - (let ((_%$obj106378%_ _%h106365%_)) + (lambda (_%proc107349%_ _%h107350%_) + (if (procedure? _%proc107349%_) + (let* ((_%proc107354%_ _%proc107349%_) + (_%h107366%_ + (let ((_%$obj107363%_ _%h107350%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106378%_)) + (##structure? _%$obj107363%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106378%_))) + (##structure-type _%$obj107363%_))) '#t) - _%$obj106378%_ + _%$obj107363%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106378%_))))) - (_%h106383%_ _%h106381%_)) - (__hash-for-each _%proc106369%_ _%h106383%_)) + (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: - _%proc106364%_) + _%proc107349%_) '#!void)))) (define __hash-for-each - (lambda (_%proc106343%_ _%h106344%_) - (let* ((_%proc106347%_ _%proc106343%_) (_%h106355%_ _%h106344%_)) - (&HashTable-for-each _%h106355%_ _%proc106347%_)))) + (lambda (_%proc107328%_ _%h107329%_) + (let* ((_%proc107332%_ _%proc107328%_) (_%h107340%_ _%h107329%_)) + (&HashTable-for-each _%h107340%_ _%proc107332%_)))) (define hash-map - (lambda (_%proc106314%_ _%h106315%_) - (if (procedure? _%proc106314%_) - (let* ((_%proc106319%_ _%proc106314%_) - (_%h106331%_ - (let ((_%$obj106328%_ _%h106315%_)) + (lambda (_%proc107299%_ _%h107300%_) + (if (procedure? _%proc107299%_) + (let* ((_%proc107304%_ _%proc107299%_) + (_%h107316%_ + (let ((_%$obj107313%_ _%h107300%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106328%_)) + (##structure? _%$obj107313%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106328%_))) + (##structure-type _%$obj107313%_))) '#t) - _%$obj106328%_ + _%$obj107313%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106328%_))))) - (_%h106333%_ _%h106331%_)) - (__hash-map _%proc106319%_ _%h106333%_)) + (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: - _%proc106314%_) + _%proc107299%_) '#!void)))) (define __hash-map - (lambda (_%proc106288%_ _%h106289%_) - (let* ((_%proc106292%_ _%proc106288%_) - (_%h106300%_ _%h106289%_) - (_%result106309%_ '())) + (lambda (_%proc107273%_ _%h107274%_) + (let* ((_%proc107277%_ _%proc107273%_) + (_%h107285%_ _%h107274%_) + (_%result107294%_ '())) (&HashTable-for-each - _%h106300%_ - (lambda (_%k106311%_ _%v106312%_) - (set! _%result106309%_ + _%h107285%_ + (lambda (_%k107296%_ _%v107297%_) + (set! _%result107294%_ (cons (let () (declare (not safe)) - (_%proc106292%_ _%k106311%_ _%v106312%_)) - _%result106309%_)))) - _%result106309%_))) + (_%proc107277%_ _%k107296%_ _%v107297%_)) + _%result107294%_)))) + _%result107294%_))) (define hash-fold - (lambda (_%proc106258%_ _%iv106259%_ _%h106260%_) - (if (procedure? _%proc106258%_) - (let* ((_%proc106264%_ _%proc106258%_) - (_%h106276%_ - (let ((_%$obj106273%_ _%h106260%_)) + (lambda (_%proc107243%_ _%iv107244%_ _%h107245%_) + (if (procedure? _%proc107243%_) + (let* ((_%proc107249%_ _%proc107243%_) + (_%h107261%_ + (let ((_%$obj107258%_ _%h107245%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106273%_)) + (##structure? _%$obj107258%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106273%_))) + (##structure-type _%$obj107258%_))) '#t) - _%$obj106273%_ + _%$obj107258%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106273%_))))) - (_%h106278%_ _%h106276%_)) - (__hash-fold _%proc106264%_ _%iv106259%_ _%h106278%_)) + (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: - _%proc106258%_) + _%proc107243%_) '#!void)))) (define __hash-fold - (lambda (_%proc106231%_ _%iv106232%_ _%h106233%_) - (let* ((_%proc106236%_ _%proc106231%_) - (_%h106244%_ _%h106233%_) - (_%result106253%_ _%iv106232%_)) + (lambda (_%proc107216%_ _%iv107217%_ _%h107218%_) + (let* ((_%proc107221%_ _%proc107216%_) + (_%h107229%_ _%h107218%_) + (_%result107238%_ _%iv107217%_)) (&HashTable-for-each - _%h106244%_ - (lambda (_%k106255%_ _%v106256%_) - (set! _%result106253%_ + _%h107229%_ + (lambda (_%k107240%_ _%v107241%_) + (set! _%result107238%_ (let () (declare (not safe)) - (_%proc106236%_ - _%k106255%_ - _%v106256%_ - _%result106253%_))))) - _%result106253%_))) + (_%proc107221%_ + _%k107240%_ + _%v107241%_ + _%result107238%_))))) + _%result107238%_))) (define hash-find__% - (lambda (_%proc106189%_ _%h106190%_ _%default-value106191%_) - (if (procedure? _%proc106189%_) - (let* ((_%proc106195%_ _%proc106189%_) - (_%h106207%_ - (let ((_%$obj106204%_ _%h106190%_)) + (lambda (_%proc107174%_ _%h107175%_ _%default-value107176%_) + (if (procedure? _%proc107174%_) + (let* ((_%proc107180%_ _%proc107174%_) + (_%h107192%_ + (let ((_%$obj107189%_ _%h107175%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106204%_)) + (##structure? _%$obj107189%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106204%_))) + (##structure-type _%$obj107189%_))) '#t) - _%$obj106204%_ + _%$obj107189%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106204%_))))) - (_%h106209%_ _%h106207%_)) + (cast HashTable::interface _%$obj107189%_))))) + (_%h107194%_ _%h107192%_)) (__hash-find__% - _%proc106195%_ - _%h106209%_ - _%default-value106191%_)) + _%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: - _%proc106189%_) + _%proc107174%_) '#!void)))) (define hash-find__0 - (lambda (_%proc106222%_ _%h106223%_) - (let ((_%default-value106225%_ '#f)) - (hash-find__% _%proc106222%_ _%h106223%_ _%default-value106225%_)))) + (lambda (_%proc107207%_ _%h107208%_) + (let ((_%default-value107210%_ '#f)) + (hash-find__% _%proc107207%_ _%h107208%_ _%default-value107210%_)))) (define hash-find - (lambda _g110277_ - (let ((_g110276_ (let () (declare (not safe)) (##length _g110277_)))) - (cond ((let () (declare (not safe)) (##fx= _g110276_ 2)) - (apply hash-find__0 _g110277_)) - ((let () (declare (not safe)) (##fx= _g110276_ 3)) - (apply hash-find__% _g110277_)) + (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 - _g110277_)))))) + _g111262_)))))) (define __hash-find__% - (lambda (_%proc106146%_ _%h106147%_ _%default-value106148%_) - (let* ((_%proc106151%_ _%proc106146%_) - (_%h106159%_ _%h106147%_) - (__tmp110278 - (lambda (_%return106168%_) + (lambda (_%proc107131%_ _%h107132%_ _%default-value107133%_) + (let* ((_%proc107136%_ _%proc107131%_) + (_%h107144%_ _%h107132%_) + (__tmp111263 + (lambda (_%return107153%_) (&HashTable-for-each - _%h106159%_ - (lambda (_%k106170%_ _%v106171%_) - (let ((_%$e106173%_ + _%h107144%_ + (lambda (_%k107155%_ _%v107156%_) + (let ((_%$e107158%_ (let () (declare (not safe)) - (_%proc106151%_ _%k106170%_ _%v106171%_)))) - (if _%$e106173%_ - (_%return106168%_ _%$e106173%_) + (_%proc107136%_ _%k107155%_ _%v107156%_)))) + (if _%$e107158%_ + (_%return107153%_ _%$e107158%_) '#!void)))) - _%default-value106148%_))) + _%default-value107133%_))) (declare (not safe)) - (##call-with-current-continuation __tmp110278)))) + (##call-with-current-continuation __tmp111263)))) (define __hash-find__0 - (lambda (_%proc106179%_ _%h106180%_) - (let ((_%default-value106182%_ '#f)) + (lambda (_%proc107164%_ _%h107165%_) + (let ((_%default-value107167%_ '#f)) (__hash-find__% - _%proc106179%_ - _%h106180%_ - _%default-value106182%_)))) + _%proc107164%_ + _%h107165%_ + _%default-value107167%_)))) (define __hash-find - (lambda _g110280_ - (let ((_g110279_ (let () (declare (not safe)) (##length _g110280_)))) - (cond ((let () (declare (not safe)) (##fx= _g110279_ 2)) - (apply __hash-find__0 _g110280_)) - ((let () (declare (not safe)) (##fx= _g110279_ 3)) - (apply __hash-find__% _g110280_)) + (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 - _g110280_)))))) + _g111265_)))))) (define hash-keys - (lambda (_%h106127%_) - (let* ((_%h106133%_ - (let ((_%$obj106130%_ _%h106127%_)) + (lambda (_%h107112%_) + (let* ((_%h107118%_ + (let ((_%$obj107115%_ _%h107112%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106130%_)) + (##structure? _%$obj107115%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106130%_))) + (##structure-type _%$obj107115%_))) '#t) - _%$obj106130%_ + _%$obj107115%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106130%_))))) - (_%h106135%_ _%h106133%_)) - (__hash-keys _%h106135%_)))) + (cast HashTable::interface _%$obj107115%_))))) + (_%h107120%_ _%h107118%_)) + (__hash-keys _%h107120%_)))) (define __hash-keys - (lambda (_%h106110%_) - (let* ((_%h106113%_ _%h106110%_) (_%result106122%_ '())) + (lambda (_%h107095%_) + (let* ((_%h107098%_ _%h107095%_) (_%result107107%_ '())) (&HashTable-for-each - _%h106113%_ - (lambda (_%k106124%_ _%v106125%_) - (set! _%result106122%_ (cons _%k106124%_ _%result106122%_)))) - _%result106122%_))) + _%h107098%_ + (lambda (_%k107109%_ _%v107110%_) + (set! _%result107107%_ (cons _%k107109%_ _%result107107%_)))) + _%result107107%_))) (define hash-values - (lambda (_%h106092%_) - (let* ((_%h106098%_ - (let ((_%$obj106095%_ _%h106092%_)) + (lambda (_%h107077%_) + (let* ((_%h107083%_ + (let ((_%$obj107080%_ _%h107077%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106095%_)) + (##structure? _%$obj107080%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106095%_))) + (##structure-type _%$obj107080%_))) '#t) - _%$obj106095%_ + _%$obj107080%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106095%_))))) - (_%h106100%_ _%h106098%_)) - (__hash-values _%h106100%_)))) + (cast HashTable::interface _%$obj107080%_))))) + (_%h107085%_ _%h107083%_)) + (__hash-values _%h107085%_)))) (define __hash-values - (lambda (_%h106075%_) - (let* ((_%h106078%_ _%h106075%_) (_%result106087%_ '())) + (lambda (_%h107060%_) + (let* ((_%h107063%_ _%h107060%_) (_%result107072%_ '())) (&HashTable-for-each - _%h106078%_ - (lambda (_%k106089%_ _%v106090%_) - (set! _%result106087%_ (cons _%v106090%_ _%result106087%_)))) - _%result106087%_))) + _%h107063%_ + (lambda (_%k107074%_ _%v107075%_) + (set! _%result107072%_ (cons _%v107075%_ _%result107072%_)))) + _%result107072%_))) (define hash-copy - (lambda (_%h106057%_) - (let* ((_%h106063%_ - (let ((_%$obj106060%_ _%h106057%_)) + (lambda (_%h107042%_) + (let* ((_%h107048%_ + (let ((_%$obj107045%_ _%h107042%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106060%_)) + (##structure? _%$obj107045%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106060%_))) + (##structure-type _%$obj107045%_))) '#t) - _%$obj106060%_ + _%$obj107045%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106060%_))))) - (_%h106065%_ _%h106063%_)) - (__hash-copy _%h106065%_)))) + (cast HashTable::interface _%$obj107045%_))))) + (_%h107050%_ _%h107048%_)) + (__hash-copy _%h107050%_)))) (define __hash-copy - (lambda (_%h106045%_) - (let ((_%h106048%_ _%h106045%_)) (__HashTable-copy _%h106048%_)))) + (lambda (_%h107030%_) + (let ((_%h107033%_ _%h107030%_)) (__HashTable-copy _%h107033%_)))) (define hash-clear! - (lambda (_%h106027%_) - (let* ((_%h106033%_ - (let ((_%$obj106030%_ _%h106027%_)) + (lambda (_%h107012%_) + (let* ((_%h107018%_ + (let ((_%$obj107015%_ _%h107012%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106030%_)) + (##structure? _%$obj107015%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106030%_))) + (##structure-type _%$obj107015%_))) '#t) - _%$obj106030%_ + _%$obj107015%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106030%_))))) - (_%h106035%_ _%h106033%_)) - (__hash-clear! _%h106035%_)))) + (cast HashTable::interface _%$obj107015%_))))) + (_%h107020%_ _%h107018%_)) + (__hash-clear! _%h107020%_)))) (define __hash-clear! - (lambda (_%h106015%_) - (let ((_%h106018%_ _%h106015%_)) (&HashTable-clear! _%h106018%_)))) + (lambda (_%h107000%_) + (let ((_%h107003%_ _%h107000%_)) (&HashTable-clear! _%h107003%_)))) (define hash-merge - (lambda (_%h105996%_ . _%rest105997%_) - (let* ((_%h106003%_ - (let ((_%$obj106000%_ _%h105996%_)) + (lambda (_%h106981%_ . _%rest106982%_) + (let* ((_%h106988%_ + (let ((_%$obj106985%_ _%h106981%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106000%_)) + (##structure? _%$obj106985%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106000%_))) + (##structure-type _%$obj106985%_))) '#t) - _%$obj106000%_ + _%$obj106985%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106000%_))))) - (_%h106005%_ _%h106003%_)) + (cast HashTable::interface _%$obj106985%_))))) + (_%h106990%_ _%h106988%_)) (declare (not safe)) - (##apply __hash-merge _%h106005%_ _%rest105997%_)))) + (##apply __hash-merge _%h106990%_ _%rest106982%_)))) (define __hash-merge - (lambda (_%h105981%_ . _%rest105982%_) - (let* ((_%h105985%_ _%h105981%_) - (_%copy105994%_ (__HashTable-copy _%h105985%_))) - (apply hash-merge! _%copy105994%_ _%rest105982%_) - _%copy105994%_))) + (lambda (_%h106966%_ . _%rest106967%_) + (let* ((_%h106970%_ _%h106966%_) + (_%copy106979%_ (__HashTable-copy _%h106970%_))) + (apply hash-merge! _%copy106979%_ _%rest106967%_) + _%copy106979%_))) (define hash-merge! - (lambda (_%h105962%_ . _%rest105963%_) - (let* ((_%h105969%_ - (let ((_%$obj105966%_ _%h105962%_)) + (lambda (_%h106947%_ . _%rest106948%_) + (let* ((_%h106954%_ + (let ((_%$obj106951%_ _%h106947%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105966%_)) + (##structure? _%$obj106951%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105966%_))) + (##structure-type _%$obj106951%_))) '#t) - _%$obj105966%_ + _%$obj106951%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105966%_))))) - (_%h105971%_ _%h105969%_)) + (cast HashTable::interface _%$obj106951%_))))) + (_%h106956%_ _%h106954%_)) (declare (not safe)) - (##apply __hash-merge! _%h105971%_ _%rest105963%_)))) + (##apply __hash-merge! _%h106956%_ _%rest106948%_)))) (define __hash-merge! - (lambda (_%h105925%_ . _%rest105926%_) - (let ((_%h105929%_ _%h105925%_)) - (let ((__tmp110281 - (lambda (_%hr105938%_) - (let* ((_%hr105944%_ - (let ((_%$obj105941%_ _%hr105938%_)) + (lambda (_%h106910%_ . _%rest106911%_) + (let ((_%h106914%_ _%h106910%_)) + (let ((__tmp111266 + (lambda (_%hr106923%_) + (let* ((_%hr106929%_ + (let ((_%$obj106926%_ _%hr106923%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105941%_)) + (##structure? _%$obj106926%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105941%_))) + _%$obj106926%_))) '#t) - _%$obj105941%_ + _%$obj106926%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105941%_))))) - (_%hr105946%_ _%hr105944%_)) + _%$obj106926%_))))) + (_%hr106931%_ _%hr106929%_)) (&HashTable-for-each - _%hr105946%_ - (lambda (_%k105959%_ _%v105960%_) - (if (__hash-key? _%h105929%_ _%k105959%_) + _%hr106931%_ + (lambda (_%k106944%_ _%v106945%_) + (if (__hash-key? _%h106914%_ _%k106944%_) '#!void (&HashTable-set! - _%h105929%_ - _%k105959%_ - _%v105960%_)))))))) + _%h106914%_ + _%k106944%_ + _%v106945%_)))))))) (declare (not safe)) - (##for-each __tmp110281 _%rest105926%_)) - _%h105929%_))))) + (##for-each __tmp111266 _%rest106911%_)) + _%h106914%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index 4f821d6c2..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]#_g110283_| + (define |[1]#_g111268_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g110285_| + (define |[1]#_g111270_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g110287_| + (define |[1]#_g111272_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g110289_| + (define |[1]#_g111274_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g110291_| + (define |[1]#_g111276_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110292_| + (define |[1]#_g111277_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110293_| + (define |[1]#_g111278_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110294_| + (define |[1]#_g111279_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110296_| + (define |[1]#_g111281_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110297_| + (define |[1]#_g111282_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110298_| + (define |[1]#_g111283_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110299_| + (define |[1]#_g111284_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110301_| + (define |[1]#_g111286_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110302_| + (define |[1]#_g111287_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110303_| + (define |[1]#_g111288_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110304_| + (define |[1]#_g111289_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110306_| + (define |[1]#_g111291_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110307_| + (define |[1]#_g111292_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110308_| + (define |[1]#_g111293_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110309_| + (define |[1]#_g111294_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110311_| + (define |[1]#_g111296_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110313_| + (define |[1]#_g111298_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g110315_| + (define |[1]#_g111300_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110317_| + (define |[1]#_g111302_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110319_| + (define |[1]#_g111304_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110321_| + (define |[1]#_g111306_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110323_| + (define |[1]#_g111308_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110325_| + (define |[1]#_g111310_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110326_| + (define |[1]#_g111311_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110327_| + (define |[1]#_g111312_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110328_| + (define |[1]#_g111313_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110329_| + (define |[1]#_g111314_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110330_| + (define |[1]#_g111315_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110331_| + (define |[1]#_g111316_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110332_| + (define |[1]#_g111317_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110334_| + (define |[1]#_g111319_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110335_| + (define |[1]#_g111320_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110336_| + (define |[1]#_g111321_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110337_| + (define |[1]#_g111322_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110338_| + (define |[1]#_g111323_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110339_| + (define |[1]#_g111324_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110340_| + (define |[1]#_g111325_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110341_| + (define |[1]#_g111326_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110343_| + (define |[1]#_g111328_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g110345_| + (define |[1]#_g111330_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110347_| + (define |[1]#_g111332_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110349_| + (define |[1]#_g111334_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110351_| + (define |[1]#_g111336_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110353_| + (define |[1]#_g111338_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110355_| + (define |[1]#_g111340_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110356_| + (define |[1]#_g111341_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110357_| + (define |[1]#_g111342_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110358_| + (define |[1]#_g111343_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110360_| + (define |[1]#_g111345_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110361_| + (define |[1]#_g111346_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110362_| + (define |[1]#_g111347_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110363_| + (define |[1]#_g111348_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110365_| + (define |[1]#_g111350_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110367_| + (define |[1]#_g111352_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110369_| + (define |[1]#_g111354_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110371_| + (define |[1]#_g111356_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110372_| + (define |[1]#_g111357_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110374_| + (define |[1]#_g111359_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110375_| + (define |[1]#_g111360_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110377_| + (define |[1]#_g111362_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110378_| + (define |[1]#_g111363_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110380_| + (define |[1]#_g111365_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110381_| + (define |[1]#_g111366_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110383_| + (define |[1]#_g111368_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110385_| + (define |[1]#_g111370_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110387_| + (define |[1]#_g111372_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110389_| + (define |[1]#_g111374_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110390_| + (define |[1]#_g111375_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110392_| + (define |[1]#_g111377_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110393_| + (define |[1]#_g111378_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110395_| + (define |[1]#_g111380_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110396_| + (define |[1]#_g111381_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110398_| + (define |[1]#_g111383_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110399_| + (define |[1]#_g111384_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj110192 + (let ((__obj111177 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110192 + __obj111177 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj111177 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj111177 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110192 + __obj111177 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp110282 (cons |[1]#_g110283_| '()))) + (let ((__tmp111267 (cons |[1]#_g111268_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj110192 __tmp110282 '3 '#f '#f)) + (##unchecked-structure-set! __obj111177 __tmp111267 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj111177 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj111177 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111177 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 ':init! '11 '#f '#f)) - (let ((__tmp110284 |[1]#_g110285_|)) + (##unchecked-structure-set! __obj111177 ':init! '11 '#f '#f)) + (let ((__tmp111269 |[1]#_g111270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110192 __tmp110284 '12 '#f '#f)) - (let ((__tmp110286 |[1]#_g110287_|)) + (##unchecked-structure-set! __obj111177 __tmp111269 '12 '#f '#f)) + (let ((__tmp111271 |[1]#_g111272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110192 __tmp110286 '13 '#f '#f)) - (let ((__tmp110288 |[1]#_g110289_|)) + (##unchecked-structure-set! __obj111177 __tmp111271 '13 '#f '#f)) + (let ((__tmp111273 |[1]#_g111274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110192 __tmp110288 '14 '#f '#f)) - (let ((__tmp110290 - (cons (cons 'message |[1]#_g110291_|) - (cons (cons 'irritants |[1]#_g110292_|) - (cons (cons 'where |[1]#_g110293_|) - (cons (cons 'continuation |[1]#_g110294_|) + (##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! __obj110192 __tmp110290 '15 '#f '#f)) - (let ((__tmp110295 - (cons (cons 'message |[1]#_g110296_|) - (cons (cons 'irritants |[1]#_g110297_|) - (cons (cons 'where |[1]#_g110298_|) - (cons (cons 'continuation |[1]#_g110299_|) + (##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! __obj110192 __tmp110295 '16 '#f '#f)) - (let ((__tmp110300 - (cons (cons 'message |[1]#_g110301_|) - (cons (cons 'irritants |[1]#_g110302_|) - (cons (cons 'where |[1]#_g110303_|) - (cons (cons 'continuation |[1]#_g110304_|) + (##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! __obj110192 __tmp110300 '17 '#f '#f)) - (let ((__tmp110305 - (cons (cons 'message |[1]#_g110306_|) - (cons (cons 'irritants |[1]#_g110307_|) - (cons (cons 'where |[1]#_g110308_|) - (cons (cons 'continuation |[1]#_g110309_|) + (##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! __obj110192 __tmp110305 '18 '#f '#f)) + (##unchecked-structure-set! __obj111177 __tmp111290 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111177 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111177 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110192 '() '20 '#f '#f)) - __obj110192)) + (##unchecked-structure-set! __obj111177 '() '20 '#f '#f)) + __obj111177)) (define |[:0:]#@HashTable| - (let ((__obj110194 + (let ((__obj111179 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp110310 |[1]#_g110311_|)) + (let ((__tmp111295 |[1]#_g111296_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110194 __tmp110310 '1 '#f '#f)) - __obj110194)) + (##unchecked-structure-set! __obj111179 __tmp111295 '1 '#f '#f)) + __obj111179)) (define |[:0:]#HashTable| - (let ((__obj110195 + (let ((__obj111180 (let () (declare (not safe)) (##structure @@ -696,17 +696,25 @@ '#f '#f '#f + '#f + '#f '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110195 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj111180 'HashTable '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110195 '() '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! - __obj110195 + __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 ((__tmp110312 |[1]#_g110313_|)) + (let ((__tmp111297 |[1]#_g111298_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110195 __tmp110312 '4 '#f '#f)) - (let ((__tmp110314 |[1]#_g110315_|)) + (##unchecked-structure-set! __obj111180 __tmp111297 '7 '#f '#f)) + (let ((__tmp111299 |[1]#_g111300_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110195 __tmp110314 '5 '#f '#f)) - (let ((__tmp110316 |[1]#_g110317_|)) + (##unchecked-structure-set! __obj111180 __tmp111299 '6 '#f '#f)) + (let ((__tmp111301 |[1]#_g111302_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110195 __tmp110316 '6 '#f '#f)) - (let ((__tmp110318 |[1]#_g110319_|)) + (##unchecked-structure-set! __obj111180 __tmp111301 '8 '#f '#f)) + (let ((__tmp111303 |[1]#_g111304_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110195 __tmp110318 '7 '#f '#f)) - (let ((__tmp110320 |[1]#_g110321_|)) + (##unchecked-structure-set! __obj111180 __tmp111303 '9 '#f '#f)) + (let ((__tmp111305 |[1]#_g111306_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110195 __tmp110320 '8 '#f '#f)) - (let ((__tmp110322 |[1]#_g110323_|)) + (##unchecked-structure-set! __obj111180 __tmp111305 '10 '#f '#f)) + (let ((__tmp111307 |[1]#_g111308_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110195 __tmp110322 '9 '#f '#f)) - (let ((__tmp110324 - (cons |[1]#_g110325_| - (cons |[1]#_g110326_| - (cons |[1]#_g110327_| - (cons |[1]#_g110328_| - (cons |[1]#_g110329_| - (cons |[1]#_g110330_| - (cons |[1]#_g110331_| - (cons |[1]#_g110332_| + (##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! __obj110195 __tmp110324 '10 '#f '#f)) - (let ((__tmp110333 - (cons |[1]#_g110334_| - (cons |[1]#_g110335_| - (cons |[1]#_g110336_| - (cons |[1]#_g110337_| - (cons |[1]#_g110338_| - (cons |[1]#_g110339_| - (cons |[1]#_g110340_| - (cons |[1]#_g110341_| + (##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! __obj110195 __tmp110333 '11 '#f '#f)) - __obj110195)) + (##unchecked-structure-set! __obj111180 __tmp111318 '13 '#f '#f)) + __obj111180)) (define |[:0:]#Locker| - (let ((__obj110196 + (let ((__obj111181 (let () (declare (not safe)) (##structure @@ -777,59 +785,67 @@ '#f '#f '#f + '#f + '#f '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110196 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj111181 'Locker '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110196 '() '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! - __obj110196 + __obj111181 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) (write-unlock! () :void)) - '3 + '4 '#f '#f)) - (let ((__tmp110342 |[1]#_g110343_|)) + (let ((__tmp111327 |[1]#_g111328_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110196 __tmp110342 '4 '#f '#f)) - (let ((__tmp110344 |[1]#_g110345_|)) + (##unchecked-structure-set! __obj111181 __tmp111327 '7 '#f '#f)) + (let ((__tmp111329 |[1]#_g111330_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110196 __tmp110344 '5 '#f '#f)) - (let ((__tmp110346 |[1]#_g110347_|)) + (##unchecked-structure-set! __obj111181 __tmp111329 '6 '#f '#f)) + (let ((__tmp111331 |[1]#_g111332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110196 __tmp110346 '6 '#f '#f)) - (let ((__tmp110348 |[1]#_g110349_|)) + (##unchecked-structure-set! __obj111181 __tmp111331 '8 '#f '#f)) + (let ((__tmp111333 |[1]#_g111334_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110196 __tmp110348 '7 '#f '#f)) - (let ((__tmp110350 |[1]#_g110351_|)) + (##unchecked-structure-set! __obj111181 __tmp111333 '9 '#f '#f)) + (let ((__tmp111335 |[1]#_g111336_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110196 __tmp110350 '8 '#f '#f)) - (let ((__tmp110352 |[1]#_g110353_|)) + (##unchecked-structure-set! __obj111181 __tmp111335 '10 '#f '#f)) + (let ((__tmp111337 |[1]#_g111338_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110196 __tmp110352 '9 '#f '#f)) - (let ((__tmp110354 - (cons |[1]#_g110355_| - (cons |[1]#_g110356_| - (cons |[1]#_g110357_| - (cons |[1]#_g110358_| '())))))) + (##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! __obj110196 __tmp110354 '10 '#f '#f)) - (let ((__tmp110359 - (cons |[1]#_g110360_| - (cons |[1]#_g110361_| - (cons |[1]#_g110362_| - (cons |[1]#_g110363_| '())))))) + (##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! __obj110196 __tmp110359 '11 '#f '#f)) - __obj110196)) + (##unchecked-structure-set! __obj111181 __tmp111344 '13 '#f '#f)) + __obj111181)) (define |[:0:]#locked-hash-table| - (let ((__obj110197 + (let ((__obj111182 (let () (declare (not safe)) (##structure @@ -858,7 +874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110197 + __obj111182 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -866,73 +882,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110197 + __obj111182 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj111182 '(table lock) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj111182 '(table lock) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj111182 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111182 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj111182 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111182 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '#f '11 '#f '#f)) - (let ((__tmp110364 |[1]#_g110365_|)) + (##unchecked-structure-set! __obj111182 '#f '11 '#f '#f)) + (let ((__tmp111349 |[1]#_g111350_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110197 __tmp110364 '12 '#f '#f)) - (let ((__tmp110366 |[1]#_g110367_|)) + (##unchecked-structure-set! __obj111182 __tmp111349 '12 '#f '#f)) + (let ((__tmp111351 |[1]#_g111352_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110197 __tmp110366 '13 '#f '#f)) - (let ((__tmp110368 |[1]#_g110369_|)) + (##unchecked-structure-set! __obj111182 __tmp111351 '13 '#f '#f)) + (let ((__tmp111353 |[1]#_g111354_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110197 __tmp110368 '14 '#f '#f)) - (let ((__tmp110370 - (cons (cons 'table |[1]#_g110371_|) - (cons (cons 'lock |[1]#_g110372_|) '())))) + (##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! __obj110197 __tmp110370 '15 '#f '#f)) - (let ((__tmp110373 - (cons (cons 'table |[1]#_g110374_|) - (cons (cons 'lock |[1]#_g110375_|) '())))) + (##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! __obj110197 __tmp110373 '16 '#f '#f)) - (let ((__tmp110376 - (cons (cons 'table |[1]#_g110377_|) - (cons (cons 'lock |[1]#_g110378_|) '())))) + (##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! __obj110197 __tmp110376 '17 '#f '#f)) - (let ((__tmp110379 - (cons (cons 'table |[1]#_g110380_|) - (cons (cons 'lock |[1]#_g110381_|) '())))) + (##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! __obj110197 __tmp110379 '18 '#f '#f)) + (##unchecked-structure-set! __obj111182 __tmp111364 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111182 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111182 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110197 '() '20 '#f '#f)) - __obj110197)) + (##unchecked-structure-set! __obj111182 '() '20 '#f '#f)) + __obj111182)) (define |[:0:]#checked-hash-table| - (let ((__obj110198 + (let ((__obj111183 (let () (declare (not safe)) (##structure @@ -961,7 +977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110198 + __obj111183 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -969,7 +985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110198 + __obj111183 'checked-hash-table '2 '#f @@ -977,7 +993,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110198 + __obj111183 '(table key-check) '4 '#f @@ -985,210 +1001,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110198 + __obj111183 '(table key-check) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj111183 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111183 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj111183 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111183 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '#f '11 '#f '#f)) - (let ((__tmp110382 |[1]#_g110383_|)) + (##unchecked-structure-set! __obj111183 '#f '11 '#f '#f)) + (let ((__tmp111367 |[1]#_g111368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110198 __tmp110382 '12 '#f '#f)) - (let ((__tmp110384 |[1]#_g110385_|)) + (##unchecked-structure-set! __obj111183 __tmp111367 '12 '#f '#f)) + (let ((__tmp111369 |[1]#_g111370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110198 __tmp110384 '13 '#f '#f)) - (let ((__tmp110386 |[1]#_g110387_|)) + (##unchecked-structure-set! __obj111183 __tmp111369 '13 '#f '#f)) + (let ((__tmp111371 |[1]#_g111372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110198 __tmp110386 '14 '#f '#f)) - (let ((__tmp110388 - (cons (cons 'table |[1]#_g110389_|) - (cons (cons 'key-check |[1]#_g110390_|) '())))) + (##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! __obj110198 __tmp110388 '15 '#f '#f)) - (let ((__tmp110391 - (cons (cons 'table |[1]#_g110392_|) - (cons (cons 'key-check |[1]#_g110393_|) '())))) + (##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! __obj110198 __tmp110391 '16 '#f '#f)) - (let ((__tmp110394 - (cons (cons 'table |[1]#_g110395_|) - (cons (cons 'key-check |[1]#_g110396_|) '())))) + (##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! __obj110198 __tmp110394 '17 '#f '#f)) - (let ((__tmp110397 - (cons (cons 'table |[1]#_g110398_|) - (cons (cons 'key-check |[1]#_g110399_|) '())))) + (##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! __obj110198 __tmp110397 '18 '#f '#f)) + (##unchecked-structure-set! __obj111183 __tmp111382 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111183 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111183 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110198 '() '20 '#f '#f)) - __obj110198)) + (##unchecked-structure-set! __obj111183 '() '20 '#f '#f)) + __obj111183)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx105316%_) - (let* ((_%g105320105359%_ - (lambda (_%g105321105355%_) + (lambda (_%$stx106301%_) + (let* ((_%g106305106344%_ + (lambda (_%g106306106340%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105321105355%_))) - (_%g105319105507%_ - (lambda (_%g105321105363%_) - (if (gx#stx-pair? _%g105321105363%_) - (let ((_%e105327105366%_ - (gx#syntax-e _%g105321105363%_))) - (let ((_%hd105328105370%_ + _%g106306106340%_))) + (_%g106304106492%_ + (lambda (_%g106306106348%_) + (if (gx#stx-pair? _%g106306106348%_) + (let ((_%e106312106351%_ + (gx#syntax-e _%g106306106348%_))) + (let ((_%hd106313106355%_ (let () (declare (not safe)) - (##car _%e105327105366%_))) - (_%tl105329105373%_ + (##car _%e106312106351%_))) + (_%tl106314106358%_ (let () (declare (not safe)) - (##cdr _%e105327105366%_)))) - (if (gx#stx-pair? _%tl105329105373%_) - (let ((_%e105330105376%_ - (gx#syntax-e _%tl105329105373%_))) - (let ((_%hd105331105380%_ + (##cdr _%e106312106351%_)))) + (if (gx#stx-pair? _%tl106314106358%_) + (let ((_%e106315106361%_ + (gx#syntax-e _%tl106314106358%_))) + (let ((_%hd106316106365%_ (let () (declare (not safe)) - (##car _%e105330105376%_))) - (_%tl105332105383%_ + (##car _%e106315106361%_))) + (_%tl106317106368%_ (let () (declare (not safe)) - (##cdr _%e105330105376%_)))) - (if (gx#stx-pair? _%hd105331105380%_) - (let ((_%e105333105386%_ - (gx#syntax-e _%hd105331105380%_))) - (let ((_%hd105334105390%_ + (##cdr _%e106315106361%_)))) + (if (gx#stx-pair? _%hd106316106365%_) + (let ((_%e106318106371%_ + (gx#syntax-e _%hd106316106365%_))) + (let ((_%hd106319106375%_ (let () (declare (not safe)) - (##car _%e105333105386%_))) - (_%tl105335105393%_ + (##car _%e106318106371%_))) + (_%tl106320106378%_ (let () (declare (not safe)) - (##cdr _%e105333105386%_)))) + (##cdr _%e106318106371%_)))) (if (gx#stx-pair/null? - _%tl105335105393%_) - (let ((_g110400_ + _%tl106320106378%_) + (let ((_g111385_ (gx#syntax-split-splice - _%tl105335105393%_ + _%tl106320106378%_ '0))) (begin - (let ((_g110401_ + (let ((_g111386_ (let () (declare (not safe)) (if (##values? - _g110400_) + _g111385_) (##values-length - _g110400_) + _g111385_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g110401_ 2))) - (error "Context expects 2 values" _g110401_))) + (##fx= _g111386_ 2))) + (error "Context expects 2 values" _g111386_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target105336105396%_ + (let ((_%target106321106381%_ (let () (declare (not safe)) (##values-ref - _g110400_ + _g111385_ 0))) - (_%tl105338105399%_ + (_%tl106323106384%_ (let () (declare (not safe)) (##values-ref - _g110400_ + _g111385_ 1)))) (if (gx#stx-null? - _%tl105338105399%_) - (letrec ((_%loop105339105402%_ + _%tl106323106384%_) + (letrec ((_%loop106324106387%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd105337105406%_ _%arg105343105409%_) - (if (gx#stx-pair? _%hd105337105406%_) - (let ((_%e105340105412%_ - (gx#syntax-e _%hd105337105406%_))) - (let ((_%lp-hd105341105416%_ + (lambda (_%hd106322106391%_ _%arg106328106394%_) + (if (gx#stx-pair? _%hd106322106391%_) + (let ((_%e106325106397%_ + (gx#syntax-e _%hd106322106391%_))) + (let ((_%lp-hd106326106401%_ (let () (declare (not safe)) - (##car _%e105340105412%_))) - (_%lp-tl105342105419%_ + (##car _%e106325106397%_))) + (_%lp-tl106327106404%_ (let () (declare (not safe)) - (##cdr _%e105340105412%_)))) - (_%loop105339105402%_ - _%lp-tl105342105419%_ - (cons _%lp-hd105341105416%_ - _%arg105343105409%_)))) - (let ((_%arg105344105422%_ - (reverse _%arg105343105409%_))) - (if (gx#stx-pair? _%tl105332105383%_) - (let ((_%e105345105426%_ - (gx#syntax-e _%tl105332105383%_))) - (let ((_%hd105346105430%_ + (##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 _%e105345105426%_))) - (_%tl105347105433%_ + (##car _%e106330106411%_))) + (_%tl106332106418%_ (let () (declare (not safe)) - (##cdr _%e105345105426%_)))) - (if (gx#stx-pair? _%tl105347105433%_) - (let ((_%e105348105436%_ + (##cdr _%e106330106411%_)))) + (if (gx#stx-pair? _%tl106332106418%_) + (let ((_%e106333106421%_ (gx#syntax-e - _%tl105347105433%_))) - (let ((_%hd105349105440%_ + _%tl106332106418%_))) + (let ((_%hd106334106425%_ (let () (declare (not safe)) - (##car _%e105348105436%_))) - (_%tl105350105443%_ + (##car _%e106333106421%_))) + (_%tl106335106428%_ (let () (declare (not safe)) - (##cdr _%e105348105436%_)))) + (##cdr _%e106333106421%_)))) (if (gx#stx-pair? - _%tl105350105443%_) - (let ((_%e105351105446%_ + _%tl106335106428%_) + (let ((_%e106336106431%_ (gx#syntax-e - _%tl105350105443%_))) - (let ((_%hd105352105450%_ + _%tl106335106428%_))) + (let ((_%hd106337106435%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105351105446%_))) - (_%tl105353105453%_ + (##car _%e106336106431%_))) + (_%tl106338106438%_ (let () (declare (not safe)) - (##cdr _%e105351105446%_)))) - (if (gx#stx-null? _%tl105353105453%_) - ((lambda (_%L105456%_ - _%L105458%_ - _%L105459%_ - _%L105460%_ - _%L105461%_) + (##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 _%L105461%_ + (cons _%L106446%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1197,12 +1213,12 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp110402 + (let ((__tmp111387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105492105495%_ _%g105493105498%_) - (cons _%g105492105495%_ _%g105493105498%_)))) + (lambda (_%g106477106480%_ _%g106478106483%_) + (cons _%g106477106480%_ _%g106478106483%_)))) (declare (not safe)) - (__foldr1 __tmp110402 '() _%L105460%_))) + (__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 _%L105459%_ + (cons _%L106444%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1241,194 +1257,198 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105458%_ + (cons _%L106443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110403 - (lambda (_%g105490105501%_ - _%g105491105504%_) - (cons _%g105490105501%_ - _%g105491105504%_)))) + (let ((__tmp111388 + (lambda (_%g106475106486%_ + _%g106476106489%_) + (cons _%g106475106486%_ + _%g106476106489%_)))) (declare (not safe)) - (__foldr1 __tmp110403 '() _%L105460%_))))) + (__foldr1 __tmp111388 '() _%L106445%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105456%_ + (cons _%L106441%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _%hd105352105450%_ - _%hd105349105440%_ - _%hd105346105430%_ - _%arg105344105422%_ - _%hd105334105390%_) - (_%g105320105359%_ _%g105321105363%_)))) - (_%g105320105359%_ _%g105321105363%_)))) + (cons 'interface: + (cons (gx#datum->syntax + '#f + 'HashTable) + '())))))) + _%hd106337106435%_ + _%hd106334106425%_ + _%hd106331106415%_ + _%arg106329106407%_ + _%hd106319106375%_) + (_%g106305106344%_ _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105320105359%_ - _%g105321105363%_)))) - (_%g105320105359%_ - _%g105321105363%_))))))) - (_%loop105339105402%_ _%target105336105396%_ '())) - (_%g105320105359%_ _%g105321105363%_))))) + (_%g106305106344%_ + _%g106306106348%_)))) + (_%g106305106344%_ + _%g106306106348%_))))))) + (_%loop106324106387%_ _%target106321106381%_ '())) + (_%g106305106344%_ _%g106306106348%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105320105359%_ - _%g105321105363%_)))) - (_%g105320105359%_ _%g105321105363%_)))) - (_%g105320105359%_ _%g105321105363%_)))) - (_%g105320105359%_ _%g105321105363%_))))) - (_%g105319105507%_ _%$stx105316%_)))) + (_%g106305106344%_ + _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_))))) + (_%g106304106492%_ _%$stx106301%_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx105536%_) - (let* ((_%g105540105579%_ - (lambda (_%g105541105575%_) + (lambda (_%$stx106521%_) + (let* ((_%g106525106564%_ + (lambda (_%g106526106560%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105541105575%_))) - (_%g105539105742%_ - (lambda (_%g105541105583%_) - (if (gx#stx-pair? _%g105541105583%_) - (let ((_%e105547105586%_ - (gx#syntax-e _%g105541105583%_))) - (let ((_%hd105548105590%_ + _%g106526106560%_))) + (_%g106524106727%_ + (lambda (_%g106526106568%_) + (if (gx#stx-pair? _%g106526106568%_) + (let ((_%e106532106571%_ + (gx#syntax-e _%g106526106568%_))) + (let ((_%hd106533106575%_ (let () (declare (not safe)) - (##car _%e105547105586%_))) - (_%tl105549105593%_ + (##car _%e106532106571%_))) + (_%tl106534106578%_ (let () (declare (not safe)) - (##cdr _%e105547105586%_)))) - (if (gx#stx-pair? _%tl105549105593%_) - (let ((_%e105550105596%_ - (gx#syntax-e _%tl105549105593%_))) - (let ((_%hd105551105600%_ + (##cdr _%e106532106571%_)))) + (if (gx#stx-pair? _%tl106534106578%_) + (let ((_%e106535106581%_ + (gx#syntax-e _%tl106534106578%_))) + (let ((_%hd106536106585%_ (let () (declare (not safe)) - (##car _%e105550105596%_))) - (_%tl105552105603%_ + (##car _%e106535106581%_))) + (_%tl106537106588%_ (let () (declare (not safe)) - (##cdr _%e105550105596%_)))) - (if (gx#stx-pair? _%hd105551105600%_) - (let ((_%e105553105606%_ - (gx#syntax-e _%hd105551105600%_))) - (let ((_%hd105554105610%_ + (##cdr _%e106535106581%_)))) + (if (gx#stx-pair? _%hd106536106585%_) + (let ((_%e106538106591%_ + (gx#syntax-e _%hd106536106585%_))) + (let ((_%hd106539106595%_ (let () (declare (not safe)) - (##car _%e105553105606%_))) - (_%tl105555105613%_ + (##car _%e106538106591%_))) + (_%tl106540106598%_ (let () (declare (not safe)) - (##cdr _%e105553105606%_)))) - (if (gx#stx-pair? _%tl105555105613%_) - (let ((_%e105556105616%_ + (##cdr _%e106538106591%_)))) + (if (gx#stx-pair? _%tl106540106598%_) + (let ((_%e106541106601%_ (gx#syntax-e - _%tl105555105613%_))) - (let ((_%hd105557105620%_ + _%tl106540106598%_))) + (let ((_%hd106542106605%_ (let () (declare (not safe)) - (##car _%e105556105616%_))) - (_%tl105558105623%_ + (##car _%e106541106601%_))) + (_%tl106543106608%_ (let () (declare (not safe)) - (##cdr _%e105556105616%_)))) + (##cdr _%e106541106601%_)))) (if (gx#stx-pair/null? - _%tl105558105623%_) - (let ((_g110404_ + _%tl106543106608%_) + (let ((_g111389_ (gx#syntax-split-splice - _%tl105558105623%_ + _%tl106543106608%_ '0))) (begin - (let ((_g110405_ + (let ((_g111390_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110404_) - (##values-length _g110404_) + (if (##values? _g111389_) + (##values-length _g111389_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110405_ 2))) - (error "Context expects 2 values" _g110405_))) - (let ((_%target105559105626%_ + (if (not (let () (declare (not safe)) (##fx= _g111390_ 2))) + (error "Context expects 2 values" _g111390_))) + (let ((_%target106544106611%_ (let () (declare (not safe)) - (##values-ref _g110404_ 0))) - (_%tl105561105629%_ + (##values-ref _g111389_ 0))) + (_%tl106546106614%_ (let () (declare (not safe)) - (##values-ref _g110404_ 1)))) - (if (gx#stx-null? _%tl105561105629%_) - (letrec ((_%loop105562105632%_ - (lambda (_%hd105560105636%_ - _%arg105566105639%_) - (if (gx#stx-pair? _%hd105560105636%_) - (let ((_%e105563105642%_ + (##values-ref _g111389_ 1)))) + (if (gx#stx-null? _%tl106546106614%_) + (letrec ((_%loop106547106617%_ + (lambda (_%hd106545106621%_ + _%arg106551106624%_) + (if (gx#stx-pair? _%hd106545106621%_) + (let ((_%e106548106627%_ (gx#syntax-e - _%hd105560105636%_))) - (let ((_%lp-hd105564105646%_ + _%hd106545106621%_))) + (let ((_%lp-hd106549106631%_ (let () (declare (not safe)) - (##car _%e105563105642%_))) - (_%lp-tl105565105649%_ + (##car _%e106548106627%_))) + (_%lp-tl106550106634%_ (let () (declare (not safe)) - (##cdr _%e105563105642%_)))) - (_%loop105562105632%_ - _%lp-tl105565105649%_ - (cons _%lp-hd105564105646%_ - _%arg105566105639%_)))) - (let ((_%arg105567105652%_ - (reverse _%arg105566105639%_))) - (if (gx#stx-pair? _%tl105552105603%_) - (let ((_%e105568105656%_ + (##cdr _%e106548106627%_)))) + (_%loop106547106617%_ + _%lp-tl106550106634%_ + (cons _%lp-hd106549106631%_ + _%arg106551106624%_)))) + (let ((_%arg106552106637%_ + (reverse _%arg106551106624%_))) + (if (gx#stx-pair? _%tl106537106588%_) + (let ((_%e106553106641%_ (gx#syntax-e - _%tl105552105603%_))) - (let ((_%hd105569105660%_ + _%tl106537106588%_))) + (let ((_%hd106554106645%_ (let () (declare (not safe)) - (##car _%e105568105656%_))) - (_%tl105570105663%_ + (##car _%e106553106641%_))) + (_%tl106555106648%_ (let () (declare (not safe)) - (##cdr _%e105568105656%_)))) + (##cdr _%e106553106641%_)))) (if (gx#stx-pair? - _%tl105570105663%_) - (let ((_%e105571105666%_ + _%tl106555106648%_) + (let ((_%e106556106651%_ (gx#syntax-e - _%tl105570105663%_))) - (let ((_%hd105572105670%_ + _%tl106555106648%_))) + (let ((_%hd106557106655%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105571105666%_))) - (_%tl105573105673%_ + (##car _%e106556106651%_))) + (_%tl106558106658%_ (let () (declare (not safe)) - (##cdr _%e105571105666%_)))) - (if (gx#stx-null? _%tl105573105673%_) - ((lambda (_%L105676%_ - _%L105678%_ - _%L105679%_ - _%L105680%_ - _%L105681%_) + (##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 _%L105681%_ + (cons _%L106666%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L105680%_ - (let ((__tmp110406 + (cons (cons _%L106665%_ + (let ((__tmp111391 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105715105718%_ _%g105716105721%_) - (cons _%g105715105718%_ _%g105716105721%_)))) + (lambda (_%g106700106703%_ _%g106701106706%_) + (cons _%g106700106703%_ _%g106701106706%_)))) (declare (not safe)) - (__foldr1 __tmp110406 '() _%L105679%_))) + (__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 _%L105680%_ + (cons _%L106665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -1450,32 +1470,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&checked-hash-table-key-check) - (cons _%L105680%_ '())) + (cons _%L106665%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L105678%_ + (cons (cons _%L106663%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'key?) - (let ((__tmp110407 - (lambda (_%g105713105724%_ - _%g105714105727%_) - (cons _%g105713105724%_ - _%g105714105727%_)))) + (let ((__tmp111392 + (lambda (_%g106698106709%_ + _%g106699106712%_) + (cons _%g106698106709%_ + _%g106699106712%_)))) (declare (not safe)) - (__foldr1 __tmp110407 '() _%L105679%_)))) - (cons (cons _%L105676%_ + (__foldr1 __tmp111392 '() _%L106664%_)))) + (cons (cons _%L106661%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110408 - (lambda (_%g105711105730%_ - _%g105712105733%_) - (cons _%g105711105730%_ - _%g105712105733%_)))) + (let ((__tmp111393 + (lambda (_%g106696106715%_ + _%g106697106718%_) + (cons _%g106696106715%_ + _%g106697106718%_)))) (declare (not safe)) - (__foldr1 __tmp110408 '() _%L105679%_)))) + (__foldr1 __tmp111393 '() _%L106664%_)))) (cons (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -1486,19 +1506,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L105676%_ '())) + (cons _%L106661%_ '())) (cons 'value: (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp110409 - (lambda (_%g105709105736%_ - _%g105710105739%_) - (cons _%g105709105736%_ - _%g105710105739%_)))) + (let ((__tmp111394 + (lambda (_%g106694106721%_ + _%g106695106724%_) + (cons _%g106694106721%_ + _%g106695106724%_)))) (declare (not safe)) (__foldr1 - __tmp110409 + __tmp111394 '() - _%L105679%_))) + _%L106664%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -1507,159 +1527,163 @@ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _%hd105572105670%_ - _%hd105569105660%_ - _%arg105567105652%_ - _%hd105557105620%_ - _%hd105554105610%_) - (_%g105540105579%_ _%g105541105583%_)))) - (_%g105540105579%_ _%g105541105583%_)))) + (cons 'interface: + (cons (gx#datum->syntax + '#f + 'HashTable) + '())))))) + _%hd106557106655%_ + _%hd106554106645%_ + _%arg106552106637%_ + _%hd106542106605%_ + _%hd106539106595%_) + (_%g106525106564%_ _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105540105579%_ - _%g105541105583%_))))))) - (_%loop105562105632%_ _%target105559105626%_ '())) - (_%g105540105579%_ _%g105541105583%_))))) - (_%g105540105579%_ _%g105541105583%_)))) + (_%g106525106564%_ + _%g106526106568%_))))))) + (_%loop106547106617%_ _%target106544106611%_ '())) + (_%g106525106564%_ _%g106526106568%_))))) + (_%g106525106564%_ _%g106526106568%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105540105579%_ - _%g105541105583%_)))) - (_%g105540105579%_ _%g105541105583%_)))) - (_%g105540105579%_ _%g105541105583%_)))) - (_%g105540105579%_ _%g105541105583%_))))) - (_%g105539105742%_ _%$stx105536%_)))) + (_%g106525106564%_ + _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_))))) + (_%g106524106727%_ _%$stx106521%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx105771%_) - (let* ((_%g105775105807%_ - (lambda (_%g105776105803%_) + (lambda (_%$stx106756%_) + (let* ((_%g106760106792%_ + (lambda (_%g106761106788%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105776105803%_))) - (_%g105774105920%_ - (lambda (_%g105776105811%_) - (if (gx#stx-pair? _%g105776105811%_) - (let ((_%e105781105814%_ - (gx#syntax-e _%g105776105811%_))) - (let ((_%hd105782105818%_ + _%g106761106788%_))) + (_%g106759106905%_ + (lambda (_%g106761106796%_) + (if (gx#stx-pair? _%g106761106796%_) + (let ((_%e106766106799%_ + (gx#syntax-e _%g106761106796%_))) + (let ((_%hd106767106803%_ (let () (declare (not safe)) - (##car _%e105781105814%_))) - (_%tl105783105821%_ + (##car _%e106766106799%_))) + (_%tl106768106806%_ (let () (declare (not safe)) - (##cdr _%e105781105814%_)))) - (if (gx#stx-pair? _%tl105783105821%_) - (let ((_%e105784105824%_ - (gx#syntax-e _%tl105783105821%_))) - (let ((_%hd105785105828%_ + (##cdr _%e106766106799%_)))) + (if (gx#stx-pair? _%tl106768106806%_) + (let ((_%e106769106809%_ + (gx#syntax-e _%tl106768106806%_))) + (let ((_%hd106770106813%_ (let () (declare (not safe)) - (##car _%e105784105824%_))) - (_%tl105786105831%_ + (##car _%e106769106809%_))) + (_%tl106771106816%_ (let () (declare (not safe)) - (##cdr _%e105784105824%_)))) - (if (gx#stx-pair? _%hd105785105828%_) - (let ((_%e105787105834%_ - (gx#syntax-e _%hd105785105828%_))) - (let ((_%hd105788105838%_ + (##cdr _%e106769106809%_)))) + (if (gx#stx-pair? _%hd106770106813%_) + (let ((_%e106772106819%_ + (gx#syntax-e _%hd106770106813%_))) + (let ((_%hd106773106823%_ (let () (declare (not safe)) - (##car _%e105787105834%_))) - (_%tl105789105841%_ + (##car _%e106772106819%_))) + (_%tl106774106826%_ (let () (declare (not safe)) - (##cdr _%e105787105834%_)))) - (if (gx#stx-pair? _%tl105789105841%_) - (let ((_%e105790105844%_ + (##cdr _%e106772106819%_)))) + (if (gx#stx-pair? _%tl106774106826%_) + (let ((_%e106775106829%_ (gx#syntax-e - _%tl105789105841%_))) - (let ((_%hd105791105848%_ + _%tl106774106826%_))) + (let ((_%hd106776106833%_ (let () (declare (not safe)) - (##car _%e105790105844%_))) - (_%tl105792105851%_ + (##car _%e106775106829%_))) + (_%tl106777106836%_ (let () (declare (not safe)) - (##cdr _%e105790105844%_)))) + (##cdr _%e106775106829%_)))) (if (gx#stx-pair/null? - _%tl105786105831%_) - (let ((_g110410_ + _%tl106771106816%_) + (let ((_g111395_ (gx#syntax-split-splice - _%tl105786105831%_ + _%tl106771106816%_ '0))) (begin - (let ((_g110411_ + (let ((_g111396_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110410_) - (##values-length _g110410_) + (if (##values? _g111395_) + (##values-length _g111395_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110411_ 2))) - (error "Context expects 2 values" _g110411_))) - (let ((_%target105793105854%_ + (if (not (let () (declare (not safe)) (##fx= _g111396_ 2))) + (error "Context expects 2 values" _g111396_))) + (let ((_%target106778106839%_ (let () (declare (not safe)) - (##values-ref _g110410_ 0))) - (_%tl105795105857%_ + (##values-ref _g111395_ 0))) + (_%tl106780106842%_ (let () (declare (not safe)) - (##values-ref _g110410_ 1)))) - (if (gx#stx-null? _%tl105795105857%_) - (letrec ((_%loop105796105860%_ - (lambda (_%hd105794105864%_ - _%body105800105867%_) - (if (gx#stx-pair? _%hd105794105864%_) - (let ((_%e105797105870%_ + (##values-ref _g111395_ 1)))) + (if (gx#stx-null? _%tl106780106842%_) + (letrec ((_%loop106781106845%_ + (lambda (_%hd106779106849%_ + _%body106785106852%_) + (if (gx#stx-pair? _%hd106779106849%_) + (let ((_%e106782106855%_ (gx#syntax-e - _%hd105794105864%_))) - (let ((_%lp-hd105798105874%_ + _%hd106779106849%_))) + (let ((_%lp-hd106783106859%_ (let () (declare (not safe)) - (##car _%e105797105870%_))) - (_%lp-tl105799105877%_ + (##car _%e106782106855%_))) + (_%lp-tl106784106862%_ (let () (declare (not safe)) - (##cdr _%e105797105870%_)))) - (_%loop105796105860%_ - _%lp-tl105799105877%_ - (cons _%lp-hd105798105874%_ - _%body105800105867%_)))) - (let ((_%body105801105880%_ - (reverse _%body105800105867%_))) - ((lambda (_%L105884%_ - _%L105886%_ - _%L105887%_ - _%L105888%_) + (##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 _%L105888%_ - (cons (cons _%L105887%_ + (cons (cons _%L106873%_ + (cons (cons _%L106872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L105886%_)) - (let ((__tmp110412 - (lambda (_%g105911105914%_ _%g105912105917%_) - (cons _%g105911105914%_ _%g105912105917%_)))) + _%L106871%_)) + (let ((__tmp111397 + (lambda (_%g106896106899%_ _%g106897106902%_) + (cons _%g106896106899%_ _%g106897106902%_)))) (declare (not safe)) - (__foldr1 __tmp110412 '() _%L105884%_))))) + (__foldr1 __tmp111397 '() _%L106869%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body105801105880%_ - _%tl105792105851%_ - _%hd105791105848%_ - _%hd105788105838%_)))))) - (_%loop105796105860%_ _%target105793105854%_ '())) - (_%g105775105807%_ _%g105776105811%_))))) - (_%g105775105807%_ _%g105776105811%_)))) + _%body106786106865%_ + _%tl106777106836%_ + _%hd106776106833%_ + _%hd106773106823%_)))))) + (_%loop106781106845%_ _%target106778106839%_ '())) + (_%g106760106792%_ _%g106761106796%_))))) + (_%g106760106792%_ _%g106761106796%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105775105807%_ - _%g105776105811%_)))) - (_%g105775105807%_ _%g105776105811%_)))) - (_%g105775105807%_ _%g105776105811%_)))) - (_%g105775105807%_ _%g105776105811%_))))) - (_%g105774105920%_ _%$stx105771%_)))))) + (_%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 a17839fb3..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 1734131746) + (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+115611%_ __*readtable*)) - (let* ((_%core115613%_ (gx#import-module ':gerbil/core)) - (_%pre115615%_ (gx#make-prelude-context _%core115613%_))) - (gx#current-expander-module-prelude _%pre115615%_) - (gx#core-bind-root-syntax! ': _%pre115615%_ '#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 ((__tmp115622 - (lambda (_%port115618%_) + (let ((__tmp116607 + (lambda (_%port116603%_) (input-port-readtable-set! - _%port115618%_ - _%+readtable+115611%_))) - (__tmp115621 (list ##stdin-port ##console-port))) + _%port116603%_ + _%+readtable+116596%_))) + (__tmp116606 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp115622 __tmp115621)) - (let ((__tmp115624 - (lambda (_%port115620%_) + (##for-each __tmp116607 __tmp116606)) + (let ((__tmp116609 + (lambda (_%port116605%_) (output-port-readtable-set! - _%port115620%_ + _%port116605%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port115620%_) + (output-port-readtable _%port116605%_) '#t)))) - (__tmp115623 (list ##stdout-port ##console-port))) + (__tmp116608 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp115624 __tmp115623))))) - (define __gxi-init-interactive! (lambda (_%cmdline115608%_) '#!void)) + (##for-each __tmp116609 __tmp116608))))) + (define __gxi-init-interactive! (lambda (_%cmdline116593%_) '#!void)) (define load-scheme - (lambda (_%path115603%_) - (let ((__tmp115625 + (lambda (_%path116588%_) + (let ((__tmp116610 (lambda () - (let ((__tmp115626 (lambda _%args115606%_ '#f))) + (let ((__tmp116611 (lambda _%args116591%_ '#f))) (declare (not safe)) - (##load _%path115603%_ __tmp115626 '#t '#t '#f))))) + (##load _%path116588%_ __tmp116611 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp115625 + __tmp116610 __scheme-source - _%path115603%_)))) + _%path116588%_)))) (define __expand-source - (lambda (_%src115585%_) - (letrec ((_%expand115587%_ - (lambda (_%src115601%_) + (lambda (_%src116570%_) + (letrec ((_%expand116572%_ + (lambda (_%src116586%_) (__compile-top - (gx#core-expand (__source->syntax _%src115601%_))))) - (_%no-expand115588%_ - (lambda (_%src115594%_) + (gx#core-expand (__source->syntax _%src116586%_))))) + (_%no-expand116573%_ + (lambda (_%src116579%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src115594%_ + _%src116579%_ (if (let () (declare (not safe)) - (##source? _%src115594%_)) - (let ((_%code115598%_ + (##source? _%src116579%_)) + (let ((_%code116583%_ (let () (declare (not safe)) - (##source-code _%src115594%_)))) - (if (pair? _%code115598%_) + (##source-code _%src116579%_)))) + (if (pair? _%code116583%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code115598%_))) + (##car _%code116583%_))) (let () (declare (not safe)) - (##cdr _%code115598%_)) + (##cdr _%code116583%_)) '#f) '#f)) '#f))))) - (let ((_%$e115590%_ (_%no-expand115588%_ _%src115585%_))) - (if _%$e115590%_ _%$e115590%_ (_%expand115587%_ _%src115585%_)))))) + (let ((_%$e116575%_ (_%no-expand116573%_ _%src116570%_))) + (if _%$e116575%_ _%$e116575%_ (_%expand116572%_ _%src116570%_)))))) (define __macro-descr - (lambda (_%src115571%_ _%def-syntax?115572%_) - (letrec ((_%fail!115574%_ + (lambda (_%src116556%_ _%def-syntax?116557%_) + (letrec ((_%fail!116559%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src115571%_)))) - (_%make-descr115575%_ - (lambda (_%size115579%_) - (let ((_%expander115582%_ - (let ((__tmp115627 + _%src116556%_)))) + (_%make-descr116560%_ + (lambda (_%size116564%_) + (let ((_%expander116567%_ + (let ((__tmp116612 (lambda () (let () (declare (not safe)) (##eval-top - _%src115571%_ + _%src116556%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp115627 + __tmp116612 __scheme-source 'macro)))) - (if (procedure? _%expander115582%_) + (if (procedure? _%expander116567%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?115572%_ - _%size115579%_ - _%expander115582%_ - _%src115571%_)) - (_%fail!115574%_)))))) - (if _%def-syntax?115572%_ - (_%make-descr115575%_ '-1) - (let ((_%code115577%_ + _%def-syntax?116557%_ + _%size116564%_ + _%expander116567%_ + _%src116556%_)) + (_%fail!116559%_)))))) + (if _%def-syntax?116557%_ + (_%make-descr116560%_ '-1) + (let ((_%code116562%_ (let () (declare (not safe)) - (##source-code _%src115571%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code115577%_)) - (let ((__tmp115628 - (let ((__tmp115629 - (let ((__tmp115630 + (##source-code _%src116556%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code116562%_)) + (let ((__tmp116613 + (let ((__tmp116614 + (let ((__tmp116615 (let () (declare (not safe)) - (##car _%code115577%_)))) + (##car _%code116562%_)))) (declare (not safe)) (##sourcify - __tmp115630 - _%src115571%_)))) + __tmp116615 + _%src116556%_)))) (declare (not safe)) - (##source-code __tmp115629)))) + (##source-code __tmp116614)))) (declare (not safe)) - (##memq __tmp115628 '(##lambda lambda)))) + (##memq __tmp116613 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src115571%_ _%src115571%_ '-3)) - (_%make-descr115575%_ - (let ((__tmp115631 - (let ((__tmp115632 + (##shape _%src116556%_ _%src116556%_ '-3)) + (_%make-descr116560%_ + (let ((__tmp116616 + (let ((__tmp116617 (let () (declare (not safe)) - (##cadr _%code115577%_)))) + (##cadr _%code116562%_)))) (declare (not safe)) - (##sourcify __tmp115632 _%src115571%_)))) + (##sourcify __tmp116617 _%src116556%_)))) (declare (not safe)) - (##form-size __tmp115631)))) - (_%fail!115574%_))))))) + (##form-size __tmp116616)))) + (_%fail!116559%_))))))) (define __source->syntax - (lambda (_%src115560%_) - (let _%recur115562%_ ((_%e115564%_ _%src115560%_)) - (if (let () (declare (not safe)) (##source? _%e115564%_)) - (let ((__tmp115634 - (_%recur115562%_ + (lambda (_%src116545%_) + (let _%recur116547%_ ((_%e116549%_ _%src116545%_)) + (if (let () (declare (not safe)) (##source? _%e116549%_)) + (let ((__tmp116619 + (_%recur116547%_ (let () (declare (not safe)) - (##source-code _%e115564%_)))) - (__tmp115633 + (##source-code _%e116549%_)))) + (__tmp116618 (let () (declare (not safe)) - (##source-locat _%e115564%_)))) + (##source-locat _%e116549%_)))) (declare (not safe)) - (##structure AST::t __tmp115634 __tmp115633)) - (if (pair? _%e115564%_) - (cons (_%recur115562%_ - (let () (declare (not safe)) (##car _%e115564%_))) - (_%recur115562%_ - (let () (declare (not safe)) (##cdr _%e115564%_)))) - (if (vector? _%e115564%_) - (vector-map _%recur115562%_ _%e115564%_) - (if (box? _%e115564%_) - (box (_%recur115562%_ (unbox _%e115564%_))) - _%e115564%_))))))) + (##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 (_%stx115558%_) - (cons '__noexpand: (__compile-top _%stx115558%_)))) + (lambda (_%stx116543%_) + (cons '__noexpand: (__compile-top _%stx116543%_)))) (define __compile-top - (lambda (_%stx115556%_) - (let ((__tmp115635 (gx#core-compile-top-syntax _%stx115556%_))) + (lambda (_%stx116541%_) + (let ((__tmp116620 (gx#core-compile-top-syntax _%stx116541%_))) (declare (not safe)) - (__compile __tmp115635)))) + (__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 (_%in115518%_) - (letrec ((_%import1115520%_ - (lambda (_%in115541%_ _%phi115542%_) - (if (gx#module-import? _%in115541%_) - (let ((_%iphi115545%_ - (fx+ _%phi115542%_ - (gx#module-import-phi _%in115541%_)))) + (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? _%iphi115545%_)) - (_%eval1115521%_ + (##fxzero? _%iphi116530%_)) + (_%eval1116506%_ (gx#module-export-context - (gx#module-import-source _%in115541%_))) + (gx#module-import-source _%in116526%_))) '#!void)) - (if (gx#module-context? _%in115541%_) - (if (fxzero? _%phi115542%_) - (_%eval1115521%_ _%in115541%_) + (if (gx#module-context? _%in116526%_) + (if (fxzero? _%phi116527%_) + (_%eval1116506%_ _%in116526%_) '#!void) - (if (gx#import-set? _%in115541%_) - (let ((_%iphi115549%_ - (fx+ _%phi115542%_ - (gx#import-set-phi _%in115541%_)))) + (if (gx#import-set? _%in116526%_) + (let ((_%iphi116534%_ + (fx+ _%phi116527%_ + (gx#import-set-phi _%in116526%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115549%_)) - (_%eval1115521%_ - (gx#import-set-source _%in115541%_)) + (##fxzero? _%iphi116534%_)) + (_%eval1116506%_ + (gx#import-set-source _%in116526%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi115549%_)) + (##fxpositive? _%iphi116534%_)) (for-each - (lambda (_%in115553%_) - (_%import1115520%_ - _%in115553%_ - _%iphi115549%_)) + (lambda (_%in116538%_) + (_%import1116505%_ + _%in116538%_ + _%iphi116534%_)) (gx#module-context-import (gx#import-set-source - _%in115541%_))) + _%in116526%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in115541%_))))))) - (_%eval1115521%_ - (lambda (_%ctx115525%_) + _%in116526%_))))))) + (_%eval1116506%_ + (lambda (_%ctx116510%_) (mutex-lock! __modstate-mx) - (let ((_%$e115527%_ + (let ((_%$e116512%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx115525%_)))) - (if _%$e115527%_ - ((lambda (_%state115530%_) - (let ((_%$e115532%_ (car _%state115530%_))) - (if (eq? 'forcing _%$e115532%_) + (__hash-get __modstate _%ctx116510%_)))) + (if _%$e116512%_ + ((lambda (_%state116515%_) + (let ((_%$e116517%_ (car _%state116515%_))) + (if (eq? 'forcing _%$e116517%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1115521%_ _%ctx115525%_)) - (if (eq? 'ready _%$e115532%_) + (_%eval1116506%_ _%ctx116510%_)) + (if (eq? 'ready _%$e116517%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state115530%_)) - (if (eq? 'error _%$e115532%_) + (cadr _%state116515%_)) + (if (eq? 'error _%$e116517%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp115636 - (cadr _%state115530%_))) + (let ((__tmp116621 + (cadr _%state116515%_))) (declare (not safe)) - (raise __tmp115636))) + (raise __tmp116621))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state115530%_)))))))) - _%$e115527%_) + _%state116515%_)))))))) + _%$e116512%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx115525%_ + _%ctx116510%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp115639 - (lambda (_%exn115536%_) + (let ((__tmp116624 + (lambda (_%exn116521%_) (mutex-lock! __modstate-mx) - (let ((__tmp115640 + (let ((__tmp116625 (cons 'error - (cons _%exn115536%_ '())))) + (cons _%exn116521%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115525%_ - __tmp115640)) + _%ctx116510%_ + __tmp116625)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn115536%_)))) - (__tmp115637 + (raise _%exn116521%_)))) + (__tmp116622 (lambda () - (let ((_%result115539%_ - (__eval-module _%ctx115525%_))) + (let ((_%result116524%_ + (__eval-module _%ctx116510%_))) (mutex-lock! __modstate-mx) - (let ((__tmp115638 + (let ((__tmp116623 (cons 'ready - (cons _%result115539%_ + (cons _%result116524%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115525%_ - __tmp115638)) + _%ctx116510%_ + __tmp116623)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result115539%_)))) + _%result116524%_)))) (declare (not safe)) - (__with-catch __tmp115639 __tmp115637)))))))) - (if (pair? _%in115518%_) - (let ((__tmp115641 - (lambda (_%in115523%_) - (_%import1115520%_ _%in115523%_ '0)))) + (__with-catch __tmp116624 __tmp116622)))))))) + (if (pair? _%in116503%_) + (let ((__tmp116626 + (lambda (_%in116508%_) + (_%import1116505%_ _%in116508%_ '0)))) (declare (not safe)) - (##for-each __tmp115641 _%in115518%_)) - (_%import1115520%_ _%in115518%_ '0))))) + (##for-each __tmp116626 _%in116503%_)) + (_%import1116505%_ _%in116503%_ '0))))) (define __eval-module - (lambda (_%obj115516%_) (gx#core-eval-module _%obj115516%_))) + (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-head115512%_ - (let ((_%$e115509%_ + (let* ((_%stack-trace-head116497%_ + (let ((_%$e116494%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e115509%_ _%$e115509%_ '10))) - (__tmp115642 - (lambda (_%cont115514%_) + (if _%$e116494%_ _%$e116494%_ '10))) + (__tmp116627 + (lambda (_%cont116499%_) (display-continuation-backtrace - _%cont115514%_ + _%cont116499%_ (current-error-port) '1 '1 '0 - _%stack-trace-head115512%_)))) + _%stack-trace-head116497%_)))) (declare (not safe)) - (##continuation-capture __tmp115642))) + (##continuation-capture __tmp116627))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules115485%_) + (lambda (_%builtin-modules116470%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home115487%_ + (let* ((_%home116472%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir115489%_ (path-expand '"lib" _%home115487%_)) - (_%userpath115491%_ + (_%libdir116474%_ (path-expand '"lib" _%home116472%_)) + (_%userpath116476%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath115493%_ + (_%loadpath116478%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir115489%_ '()) - (cons _%userpath115491%_ - (cons _%libdir115489%_ '())))) - (_%loadpath115503%_ - (let ((_%$e115495%_ + (cons _%libdir116474%_ '()) + (cons _%userpath116476%_ + (cons _%libdir116474%_ '())))) + (_%loadpath116488%_ + (let ((_%$e116480%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e115495%_ - ((lambda (_%envvar115498%_) - (let ((__tmp115643 - (let ((__tmp115645 - (lambda (_%x115500%_) + (if _%$e116480%_ + ((lambda (_%envvar116483%_) + (let ((__tmp116628 + (let ((__tmp116630 + (lambda (_%x116485%_) (not (let () (declare (not safe)) (string-empty? - _%x115500%_))))) - (__tmp115644 + _%x116485%_))))) + (__tmp116629 (let () (declare (not safe)) (string-split - _%envvar115498%_ + _%envvar116483%_ '#\:)))) (declare (not safe)) - (##filter __tmp115645 __tmp115644)))) + (##filter __tmp116630 __tmp116629)))) (declare (not safe)) - (##append __tmp115643 _%loadpath115493%_))) - _%$e115495%_) - _%loadpath115493%_)))) + (##append __tmp116628 _%loadpath116478%_))) + _%$e116480%_) + _%loadpath116478%_)))) (declare (not safe)) - (__set-load-path! _%loadpath115503%_)) + (__set-load-path! _%loadpath116488%_)) (for-each - (lambda (_%mod115506%_) + (lambda (_%mod116491%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod115506%_ 'builtin)) - (let ((__tmp115646 + (__hash-put! __modules _%mod116491%_ 'builtin)) + (let ((__tmp116631 (let () (declare (not safe)) - (##string-append _%mod115506%_ '"~0")))) + (##string-append _%mod116491%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp115646 'builtin))) - _%builtin-modules115485%_) + (__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 b68643c9a..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 1734131746) + (define gerbil/runtime/interface::timestamp 1734357960) (begin (define CastError::t - (let ((__tmp105223 (list Error::t))) + (let ((__tmp106208 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp105223 + __tmp106208 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args105216%_ - (apply make-instance CastError::t _%$args105216%_))) + (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 (_%where105090%_ _%message105091%_ . _%irritants105092%_) - (let ((__tmp105224 - (let ((__obj105219 + (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! - __obj105219 - _%message105091%_ + __obj106204 + _%message106076%_ 'where: - _%where105090%_ + _%where106075%_ 'irritants: - _%irritants105092%_)) - __obj105219))) + _%irritants106077%_)) + __obj106204))) (declare (not safe)) - (raise __tmp105224)))) + (raise __tmp106209)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp105226 (list)) (__tmp105225 (cons (cons 'struct: '#t) '()))) + (let ((__tmp106211 (list)) (__tmp106210 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp105226 + __tmp106211 '(__object) - __tmp105225 + __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 ((__tmp105228 (list)) - (__tmp105227 + (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 - __tmp105228 + __tmp106213 '(type methods) - __tmp105227 + __tmp106212 '#f))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args105087%_ - (apply make-instance interface-descriptor::t _%$args105087%_))) + (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 (_%key105085%_) - (let ((__tmp105230 + (lambda (_%key106070%_) + (let ((__tmp106215 (macro-slot '1 - (let () (declare (not safe)) (##car _%key105085%_)))) - (__tmp105229 + (let () (declare (not safe)) (##car _%key106070%_)))) + (__tmp106214 (macro-slot '1 - (let () (declare (not safe)) (##cdr _%key105085%_))))) + (let () (declare (not safe)) (##cdr _%key106070%_))))) (declare (not safe)) - (##fxxor __tmp105230 __tmp105229)))) + (##fxxor __tmp106215 __tmp106214)))) (define __interface-test-key - (lambda (_%a105082%_ _%b105083%_) - (if (let ((__tmp105232 - (let () (declare (not safe)) (##car _%a105082%_))) - (__tmp105231 - (let () (declare (not safe)) (##car _%b105083%_)))) + (lambda (_%a106067%_ _%b106068%_) + (if (let ((__tmp106217 + (let () (declare (not safe)) (##car _%a106067%_))) + (__tmp106216 + (let () (declare (not safe)) (##car _%b106068%_)))) (declare (not safe)) - (##eq? __tmp105232 __tmp105231)) - (let ((__tmp105234 - (let () (declare (not safe)) (##cdr _%a105082%_))) - (__tmp105233 - (let () (declare (not safe)) (##cdr _%b105083%_)))) + (##eq? __tmp106217 __tmp106216)) + (let ((__tmp106219 + (let () (declare (not safe)) (##cdr _%a106067%_))) + (__tmp106218 + (let () (declare (not safe)) (##cdr _%b106068%_)))) (declare (not safe)) - (##eq? __tmp105234 __tmp105233)) + (##eq? __tmp106219 __tmp106218)) '#f))) (define make-prototype-table__% - (lambda (_%size-hint105063%_ _%seed105065%_) + (lambda (_%size-hint106048%_ _%seed106050%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint105063%_ + _%size-hint106048%_ __interface-hash-key __interface-test-key - _%seed105065%_)))) + _%seed106050%_)))) (define make-prototype-table__0 (lambda () - (let* ((_%size-hint105071%_ '#f) (_%seed105073%_ '0)) - (make-prototype-table__% _%size-hint105071%_ _%seed105073%_)))) + (let* ((_%size-hint106056%_ '#f) (_%seed106058%_ '0)) + (make-prototype-table__% _%size-hint106056%_ _%seed106058%_)))) (define make-prototype-table__1 - (lambda (_%size-hint105075%_) - (let ((_%seed105077%_ '0)) - (make-prototype-table__% _%size-hint105075%_ _%seed105077%_)))) + (lambda (_%size-hint106060%_) + (let ((_%seed106062%_ '0)) + (make-prototype-table__% _%size-hint106060%_ _%seed106062%_)))) (define make-prototype-table - (lambda _g105236_ - (let ((_g105235_ (let () (declare (not safe)) (##length _g105236_)))) - (cond ((let () (declare (not safe)) (##fx= _g105235_ 0)) - (apply make-prototype-table__0 _g105236_)) - ((let () (declare (not safe)) (##fx= _g105235_ 1)) - (apply make-prototype-table__1 _g105236_)) - ((let () (declare (not safe)) (##fx= _g105235_ 2)) - (apply make-prototype-table__% _g105236_)) + (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 - _g105236_)))))) + _g106221_)))))) (define prototype-table-ref - (lambda (_%tab105016%_ _%key105017%_ _%default105018%_) - (let ((_%table105020%_ - (let () (declare (not safe)) (&raw-table-table _%tab105016%_))) - (_%seed105021%_ - (let () (declare (not safe)) (&raw-table-seed _%tab105016%_)))) - (let* ((_%h105023%_ - (fxxor (__interface-hash-key _%key105017%_) _%seed105021%_)) - (_%size105026%_ (vector-length _%table105020%_)) - (_%entries105029%_ + (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 _%size105026%_ '2))) - (_%start105032%_ - (let ((__tmp105237 + (##fxquotient _%size106011%_ '2))) + (_%start106017%_ + (let ((__tmp106222 (let () (declare (not safe)) - (##fxmodulo _%h105023%_ _%entries105029%_)))) + (##fxmodulo _%h106008%_ _%entries106014%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105237 '1)))) - (let _%loop105036%_ ((_%probe105039%_ _%start105032%_) - (_%i105041%_ '1) - (_%deleted105043%_ '#f)) - (let ((_%k105046%_ (vector-ref _%table105020%_ _%probe105039%_))) - (if (eq? _%k105046%_ (macro-unused-obj)) - _%default105018%_ - (if (eq? _%k105046%_ (macro-deleted-obj)) - (_%loop105036%_ - (let ((_%next-probe105051%_ - (fx+ _%start105032%_ - _%i105041%_ - (fx* _%i105041%_ _%i105041%_)))) + (##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-probe105051%_ _%size105026%_)) - (let () (declare (not safe)) (##fx+ _%i105041%_ '1)) - (let ((_%$e105054%_ _%deleted105043%_)) - (if _%$e105054%_ _%$e105054%_ _%probe105039%_))) - (if (__interface-test-key _%key105017%_ _%k105046%_) + (##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 - _%table105020%_ + _%table106005%_ (let () (declare (not safe)) - (##fx+ _%probe105039%_ '1))) - (_%loop105036%_ - (let ((_%next-probe105059%_ - (fx+ _%start105032%_ - _%i105041%_ - (fx* _%i105041%_ _%i105041%_)))) + (##fx+ _%probe106024%_ '1))) + (_%loop106021%_ + (let ((_%next-probe106044%_ + (fx+ _%start106017%_ + _%i106026%_ + (fx* _%i106026%_ _%i106026%_)))) (declare (not safe)) (##fxmodulo - _%next-probe105059%_ - _%size105026%_)) + _%next-probe106044%_ + _%size106011%_)) (let () (declare (not safe)) - (##fx+ _%i105041%_ '1)) - _%deleted105043%_)))))))))) + (##fx+ _%i106026%_ '1)) + _%deleted106028%_)))))))))) (define prototype-table-set! - (lambda (_%tab105012%_ _%key105013%_ _%value105014%_) - (if (let ((__tmp105240 + (lambda (_%tab105997%_ _%key105998%_ _%value105999%_) + (if (let ((__tmp106225 (let () (declare (not safe)) - (&raw-table-free _%tab105012%_))) - (__tmp105238 - (let ((__tmp105239 + (&raw-table-free _%tab105997%_))) + (__tmp106223 + (let ((__tmp106224 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab105012%_))))) + (&raw-table-table _%tab105997%_))))) (declare (not safe)) - (##fxquotient __tmp105239 '4)))) + (##fxquotient __tmp106224 '4)))) (declare (not safe)) - (##fx< __tmp105240 __tmp105238)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab105012%_)) + (##fx< __tmp106225 __tmp106223)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab105997%_)) '#!void) - (__prototype-table-set! _%tab105012%_ _%key105013%_ _%value105014%_))) + (__prototype-table-set! _%tab105997%_ _%key105998%_ _%value105999%_))) (define __prototype-table-set! - (lambda (_%tab104963%_ _%key104964%_ _%value104965%_) - (let ((_%table104968%_ - (let () (declare (not safe)) (&raw-table-table _%tab104963%_))) - (_%seed104969%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104963%_)))) - (let* ((_%h104971%_ - (fxxor (__interface-hash-key _%key104964%_) _%seed104969%_)) - (_%size104974%_ (vector-length _%table104968%_)) - (_%entries104977%_ + (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 _%size104974%_ '2))) - (_%start104980%_ - (let ((__tmp105241 + (##fxquotient _%size105959%_ '2))) + (_%start105965%_ + (let ((__tmp106226 (let () (declare (not safe)) - (##fxmodulo _%h104971%_ _%entries104977%_)))) + (##fxmodulo _%h105956%_ _%entries105962%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105241 '1)))) - (let _%loop104984%_ ((_%probe104987%_ _%start104980%_) - (_%i104989%_ '1) - (_%deleted104991%_ '#f)) - (let ((_%k104994%_ (vector-ref _%table104968%_ _%probe104987%_))) - (if (eq? _%k104994%_ (macro-unused-obj)) - (if _%deleted104991%_ + (##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! - _%table104968%_ - _%deleted104991%_ - _%key104964%_) + _%table105953%_ + _%deleted105976%_ + _%key105949%_) (vector-set! - _%table104968%_ + _%table105953%_ (let () (declare (not safe)) - (##fx+ _%deleted104991%_ '1)) - _%value104965%_) + (##fx+ _%deleted105976%_ '1)) + _%value105950%_) ((lambda () - (let ((__tmp105242 - (let ((__tmp105243 + (let ((__tmp106227 + (let ((__tmp106228 (let () (declare (not safe)) (&raw-table-count - _%tab104963%_)))) + _%tab105948%_)))) (declare (not safe)) - (##fx+ __tmp105243 '1)))) + (##fx+ __tmp106228 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104963%_ - __tmp105242))))) + _%tab105948%_ + __tmp106227))))) (begin (vector-set! - _%table104968%_ - _%probe104987%_ - _%key104964%_) + _%table105953%_ + _%probe105972%_ + _%key105949%_) (vector-set! - _%table104968%_ + _%table105953%_ (let () (declare (not safe)) - (##fx+ _%probe104987%_ '1)) - _%value104965%_) + (##fx+ _%probe105972%_ '1)) + _%value105950%_) ((lambda () - (let ((__tmp105244 - (let ((__tmp105245 + (let ((__tmp106229 + (let ((__tmp106230 (let () (declare (not safe)) - (&raw-table-free _%tab104963%_)))) + (&raw-table-free _%tab105948%_)))) (declare (not safe)) - (##fx- __tmp105245 '1)))) + (##fx- __tmp106230 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104963%_ - __tmp105244)) - (let ((__tmp105246 - (let ((__tmp105247 + _%tab105948%_ + __tmp106229)) + (let ((__tmp106231 + (let ((__tmp106232 (let () (declare (not safe)) (&raw-table-count - _%tab104963%_)))) + _%tab105948%_)))) (declare (not safe)) - (##fx+ __tmp105247 '1)))) + (##fx+ __tmp106232 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104963%_ - __tmp105246)))))) - (if (eq? _%k104994%_ (macro-deleted-obj)) - (_%loop104984%_ - (let ((_%next-probe105001%_ - (fx+ _%start104980%_ - _%i104989%_ - (fx* _%i104989%_ _%i104989%_)))) + _%tab105948%_ + __tmp106231)))))) + (if (eq? _%k105979%_ (macro-deleted-obj)) + (_%loop105969%_ + (let ((_%next-probe105986%_ + (fx+ _%start105965%_ + _%i105974%_ + (fx* _%i105974%_ _%i105974%_)))) (declare (not safe)) - (##fxmodulo _%next-probe105001%_ _%size104974%_)) - (let () (declare (not safe)) (##fx+ _%i104989%_ '1)) - (let ((_%$e105004%_ _%deleted104991%_)) - (if _%$e105004%_ _%$e105004%_ _%probe104987%_))) - (if (__interface-test-key _%key104964%_ _%k104994%_) + (##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! - _%table104968%_ - _%probe104987%_ - _%key104964%_) + _%table105953%_ + _%probe105972%_ + _%key105949%_) (vector-set! - _%table104968%_ + _%table105953%_ (let () (declare (not safe)) - (##fx+ _%probe104987%_ '1)) - _%value104965%_)) - (_%loop104984%_ - (let ((_%next-probe105009%_ - (fx+ _%start104980%_ - _%i104989%_ - (fx* _%i104989%_ _%i104989%_)))) + (##fx+ _%probe105972%_ '1)) + _%value105950%_)) + (_%loop105969%_ + (let ((_%next-probe105994%_ + (fx+ _%start105965%_ + _%i105974%_ + (fx* _%i105974%_ _%i105974%_)))) (declare (not safe)) (##fxmodulo - _%next-probe105009%_ - _%size104974%_)) + _%next-probe105994%_ + _%size105959%_)) (let () (declare (not safe)) - (##fx+ _%i104989%_ '1)) - _%deleted104991%_)))))))))) + (##fx+ _%i105974%_ '1)) + _%deleted105976%_)))))))))) (define prototype-table-update! - (lambda (_%tab104958%_ - _%key104959%_ - _%prototype-table-update!104960%_ - _%default104961%_) - (if (let ((__tmp105250 + (lambda (_%tab105943%_ + _%key105944%_ + _%prototype-table-update!105945%_ + _%default105946%_) + (if (let ((__tmp106235 (let () (declare (not safe)) - (&raw-table-free _%tab104958%_))) - (__tmp105248 - (let ((__tmp105249 + (&raw-table-free _%tab105943%_))) + (__tmp106233 + (let ((__tmp106234 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104958%_))))) + (&raw-table-table _%tab105943%_))))) (declare (not safe)) - (##fxquotient __tmp105249 '4)))) + (##fxquotient __tmp106234 '4)))) (declare (not safe)) - (##fx< __tmp105250 __tmp105248)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104958%_)) + (##fx< __tmp106235 __tmp106233)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab105943%_)) '#!void) (__prototype-table-update! - _%tab104958%_ - _%key104959%_ - _%prototype-table-update!104960%_ - _%default104961%_))) + _%tab105943%_ + _%key105944%_ + _%prototype-table-update!105945%_ + _%default105946%_))) (define __prototype-table-update! - (lambda (_%tab104908%_ - _%key104909%_ - _%prototype-table-update!104910%_ - _%default104911%_) - (let ((_%table104914%_ - (let () (declare (not safe)) (&raw-table-table _%tab104908%_))) - (_%seed104915%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104908%_)))) - (let* ((_%h104917%_ - (fxxor (__interface-hash-key _%key104909%_) _%seed104915%_)) - (_%size104920%_ (vector-length _%table104914%_)) - (_%entries104923%_ + (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 _%size104920%_ '2))) - (_%start104926%_ - (let ((__tmp105251 + (##fxquotient _%size105905%_ '2))) + (_%start105911%_ + (let ((__tmp106236 (let () (declare (not safe)) - (##fxmodulo _%h104917%_ _%entries104923%_)))) + (##fxmodulo _%h105902%_ _%entries105908%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105251 '1)))) - (let _%loop104930%_ ((_%probe104933%_ _%start104926%_) - (_%i104935%_ '1) - (_%deleted104937%_ '#f)) - (let ((_%k104940%_ (vector-ref _%table104914%_ _%probe104933%_))) - (if (eq? _%k104940%_ (macro-unused-obj)) - (if _%deleted104937%_ + (##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! - _%table104914%_ - _%deleted104937%_ - _%key104909%_) + _%table105899%_ + _%deleted105922%_ + _%key105894%_) (vector-set! - _%table104914%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%deleted104937%_ '1)) - (_%prototype-table-update!104910%_ - _%default104911%_)) + (##fx+ _%deleted105922%_ '1)) + (_%prototype-table-update!105895%_ + _%default105896%_)) ((lambda () - (let ((__tmp105252 - (let ((__tmp105253 + (let ((__tmp106237 + (let ((__tmp106238 (let () (declare (not safe)) (&raw-table-count - _%tab104908%_)))) + _%tab105893%_)))) (declare (not safe)) - (##fx+ __tmp105253 '1)))) + (##fx+ __tmp106238 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104908%_ - __tmp105252))))) + _%tab105893%_ + __tmp106237))))) (begin (vector-set! - _%table104914%_ - _%probe104933%_ - _%key104909%_) + _%table105899%_ + _%probe105918%_ + _%key105894%_) (vector-set! - _%table104914%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%probe104933%_ '1)) - (_%prototype-table-update!104910%_ - _%default104911%_)) + (##fx+ _%probe105918%_ '1)) + (_%prototype-table-update!105895%_ + _%default105896%_)) ((lambda () - (let ((__tmp105254 - (let ((__tmp105255 + (let ((__tmp106239 + (let ((__tmp106240 (let () (declare (not safe)) - (&raw-table-free _%tab104908%_)))) + (&raw-table-free _%tab105893%_)))) (declare (not safe)) - (##fx- __tmp105255 '1)))) + (##fx- __tmp106240 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104908%_ - __tmp105254)) - (let ((__tmp105256 - (let ((__tmp105257 + _%tab105893%_ + __tmp106239)) + (let ((__tmp106241 + (let ((__tmp106242 (let () (declare (not safe)) (&raw-table-count - _%tab104908%_)))) + _%tab105893%_)))) (declare (not safe)) - (##fx+ __tmp105257 '1)))) + (##fx+ __tmp106242 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104908%_ - __tmp105256)))))) - (if (eq? _%k104940%_ (macro-deleted-obj)) - (_%loop104930%_ - (let ((_%next-probe104947%_ - (fx+ _%start104926%_ - _%i104935%_ - (fx* _%i104935%_ _%i104935%_)))) + _%tab105893%_ + __tmp106241)))))) + (if (eq? _%k105925%_ (macro-deleted-obj)) + (_%loop105915%_ + (let ((_%next-probe105932%_ + (fx+ _%start105911%_ + _%i105920%_ + (fx* _%i105920%_ _%i105920%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104947%_ _%size104920%_)) - (let () (declare (not safe)) (##fx+ _%i104935%_ '1)) - (let ((_%$e104950%_ _%deleted104937%_)) - (if _%$e104950%_ _%$e104950%_ _%probe104933%_))) - (if (__interface-test-key _%key104909%_ _%k104940%_) + (##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! - _%table104914%_ - _%probe104933%_ - _%key104909%_) + _%table105899%_ + _%probe105918%_ + _%key105894%_) (vector-set! - _%table104914%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%probe104933%_ '1)) - (_%prototype-table-update!104910%_ + (##fx+ _%probe105918%_ '1)) + (_%prototype-table-update!105895%_ (vector-ref - _%table104914%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%probe104933%_ '1)))))) - (_%loop104930%_ - (let ((_%next-probe104955%_ - (fx+ _%start104926%_ - _%i104935%_ - (fx* _%i104935%_ _%i104935%_)))) + (##fx+ _%probe105918%_ '1)))))) + (_%loop105915%_ + (let ((_%next-probe105940%_ + (fx+ _%start105911%_ + _%i105920%_ + (fx* _%i105920%_ _%i105920%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104955%_ - _%size104920%_)) + _%next-probe105940%_ + _%size105905%_)) (let () (declare (not safe)) - (##fx+ _%i104935%_ '1)) - _%deleted104937%_)))))))))) + (##fx+ _%i105920%_ '1)) + _%deleted105922%_)))))))))) (define prototype-table-delete! - (lambda (_%tab104863%_ _%key104865%_) - (let ((_%table104868%_ - (let () (declare (not safe)) (&raw-table-table _%tab104863%_))) - (_%seed104870%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104863%_)))) - (let* ((_%h104873%_ - (fxxor (__interface-hash-key _%key104865%_) _%seed104870%_)) - (_%size104876%_ (vector-length _%table104868%_)) - (_%entries104879%_ + (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 _%size104876%_ '2))) - (_%start104882%_ - (let ((__tmp105258 + (##fxquotient _%size105861%_ '2))) + (_%start105867%_ + (let ((__tmp106243 (let () (declare (not safe)) - (##fxmodulo _%h104873%_ _%entries104879%_)))) + (##fxmodulo _%h105858%_ _%entries105864%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105258 '1)))) - (let _%loop104886%_ ((_%probe104889%_ _%start104882%_) - (_%i104891%_ '1)) - (let ((_%k104894%_ (vector-ref _%table104868%_ _%probe104889%_))) - (if (eq? _%k104894%_ (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? _%k104894%_ (macro-deleted-obj)) - (_%loop104886%_ - (let ((_%next-probe104899%_ - (fx+ _%start104882%_ - _%i104891%_ - (fx* _%i104891%_ _%i104891%_)))) + (if (eq? _%k105879%_ (macro-deleted-obj)) + (_%loop105871%_ + (let ((_%next-probe105884%_ + (fx+ _%start105867%_ + _%i105876%_ + (fx* _%i105876%_ _%i105876%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104899%_ _%size104876%_)) - (let () (declare (not safe)) (##fx+ _%i104891%_ '1))) - (if (__interface-test-key _%key104865%_ _%k104894%_) + (##fxmodulo _%next-probe105884%_ _%size105861%_)) + (let () (declare (not safe)) (##fx+ _%i105876%_ '1))) + (if (__interface-test-key _%key105850%_ _%k105879%_) (let () (vector-set! - _%table104868%_ - _%probe104889%_ + _%table105853%_ + _%probe105874%_ (macro-deleted-obj)) (vector-set! - _%table104868%_ + _%table105853%_ (let () (declare (not safe)) - (##fx+ _%probe104889%_ '1)) + (##fx+ _%probe105874%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp105259 - (let ((__tmp105260 + (let ((__tmp106244 + (let ((__tmp106245 (let () (declare (not safe)) (&raw-table-count - _%tab104863%_)))) + _%tab105848%_)))) (declare (not safe)) - (##fx- __tmp105260 '1)))) + (##fx- __tmp106245 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104863%_ - __tmp105259))))) - (_%loop104886%_ - (let ((_%next-probe104905%_ - (fx+ _%start104882%_ - _%i104891%_ - (fx* _%i104891%_ _%i104891%_)))) + _%tab105848%_ + __tmp106244))))) + (_%loop105871%_ + (let ((_%next-probe105890%_ + (fx+ _%start105867%_ + _%i105876%_ + (fx* _%i105876%_ _%i105876%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104905%_ - _%size104876%_)) + _%next-probe105890%_ + _%size105861%_)) (let () (declare (not safe)) - (##fx+ _%i104891%_ '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 (_%klass104855%_) - (let ((_%super104856104858%_ - (let () (declare (not safe)) (##type-super _%klass104855%_)))) - (if _%super104856104858%_ - (let ((_%super104861%_ _%super104856104858%_)) - (eq? (let () (declare (not safe)) (##type-id _%super104861%_)) + (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 (_%descriptor104740%_ _%klass104741%_ _%obj-klass104742%_) - (let ((_%method-table104744%_ + (lambda (_%descriptor105674%_ _%klass105675%_ _%obj-klass105676%_) + (let ((_%method-table105678%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104742%_)))) - (let _%loop104747%_ ((_%rest104750%_ + (specialize-class _%obj-klass105676%_)))) + (let _%loop105681%_ ((_%rest105684%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104740%_ + _%descriptor105674%_ '2 '#f '#f))) - (_%count104752%_ '0) - (_%methods104754%_ '())) - (let* ((_%rest104756104764%_ _%rest104750%_) - (_%else104758104826%_ + (_%count105686%_ '0) + (_%methods105688%_ '())) + (let* ((_%rest105690105698%_ _%rest105684%_) + (_%else105692105760%_ (lambda () - (let ((_%prototype104772%_ - (let ((__obj105221 - (let ((__tmp105261 + (let ((_%prototype105706%_ + (let ((__obj106206 + (let ((__tmp106246 (let () (declare (not safe)) - (##fx+ _%count104752%_ '2)))) + (##fx+ _%count105686%_ '2)))) (declare (not safe)) (##make-structure - _%klass104741%_ - __tmp105261)))) + _%klass105675%_ + __tmp106246)))) (let () (declare (not safe)) - (object-fill! __obj105221 '#f)) - __obj105221))) - (let _%loop104775%_ ((_%rest104777%_ _%methods104754%_) - (_%off104778%_ + (object-fill! __obj106206 '#f)) + __obj106206))) + (let _%loop105709%_ ((_%rest105711%_ _%methods105688%_) + (_%off105712%_ (let () (declare (not safe)) - (##fx+ _%count104752%_ '1)))) - (let* ((_%rest104780104788%_ _%rest104777%_) - (_%else104782104807%_ + (##fx+ _%count105686%_ '1)))) + (let* ((_%rest105714105722%_ _%rest105711%_) + (_%else105716105741%_ (lambda () - (let ((_%prototype-key104796%_ + (let ((_%prototype-key105730%_ (cons (let () (declare (not safe)) - (##type-id _%klass104741%_)) + (##type-id _%klass105675%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104742%_))))) + _%obj-klass105676%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104801%_ () - (if (let ((__tmp105262 + (let _%again105735%_ () + (if (let ((__tmp106247 (let () (declare (not safe)) (##vector-cas! @@ -748,17 +748,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105262 '0)) + (##fx= __tmp106247 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104801%_))))) + (_%again105735%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104796%_ - _%prototype104772%_) + _%prototype-key105730%_ + _%prototype105706%_) (let () (declare (not safe)) (##vector-cas! @@ -766,149 +766,219 @@ '0 '0 '1)) - ((lambda (_%prototype104805%_) - _%prototype104805%_) - _%prototype104772%_)))) - (_%K104784104814%_ - (lambda (_%rest104810%_ _%method104811%_) + ((lambda (_%prototype105739%_) + _%prototype105739%_) + _%prototype105706%_)))) + (_%K105718105748%_ + (lambda (_%rest105744%_ _%method105745%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104772%_ - _%method104811%_ - _%off104778%_ - _%klass104741%_ + _%prototype105706%_ + _%method105745%_ + _%off105712%_ + _%klass105675%_ '#f)) - (_%loop104775%_ - _%rest104810%_ + (_%loop105709%_ + _%rest105744%_ (let () (declare (not safe)) - (##fx- _%off104778%_ '1)))))) - (if (pair? _%rest104780104788%_) - (let ((_%hd104785104817%_ + (##fx- _%off105712%_ '1)))))) + (if (pair? _%rest105714105722%_) + (let ((_%hd105719105751%_ (let () (declare (not safe)) - (##car _%rest104780104788%_))) - (_%tl104786104819%_ + (##car _%rest105714105722%_))) + (_%tl105720105753%_ (let () (declare (not safe)) - (##cdr _%rest104780104788%_)))) - (let* ((_%method104822%_ _%hd104785104817%_) - (_%rest104824%_ _%tl104786104819%_)) - (_%K104784104814%_ - _%rest104824%_ - _%method104822%_))) - (_%else104782104807%_))))))) - (_%K104760104843%_ - (lambda (_%rest104829%_ _%method-name104830%_) - (let ((_%$e104833%_ - (let () - (declare (not safe)) - (symbolic-table-ref - _%method-table104744%_ - _%method-name104830%_ - '#f)))) - (if _%$e104833%_ - ((lambda (_%method104836%_) - (_%loop104747%_ - _%rest104829%_ - (let () - (declare (not safe)) - (##fx+ _%count104752%_ '1)) - (cons _%method104836%_ _%methods104754%_))) - _%$e104833%_) - ((lambda (_%klass104839%_ - _%obj-klass104840%_ - _%method-name104841%_) - (raise-cast-error - 'create-prototype - '"cannot create interface instance; missing method" - 'interface: - _%klass104839%_ - 'interface-id: - (let () - (declare (not safe)) - (##type-id _%klass104839%_)) - 'class: - _%obj-klass104840%_ - 'class-id: - (let () - (declare (not safe)) - (##type-id _%obj-klass104840%_)) - 'method: - _%method-name104841%_) - '#!void) - _%klass104741%_ - _%obj-klass104742%_ - _%method-name104830%_)))))) - (if (pair? _%rest104756104764%_) - (let ((_%hd104761104846%_ + (##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 _%rest104756104764%_))) - (_%tl104762104848%_ + (##car _%rest105690105698%_))) + (_%tl105696105833%_ (let () (declare (not safe)) - (##cdr _%rest104756104764%_)))) - (let* ((_%method-name104851%_ _%hd104761104846%_) - (_%rest104853%_ _%tl104762104848%_)) - (_%K104760104843%_ - _%rest104853%_ - _%method-name104851%_))) - (_%else104758104826%_))))))) + (##cdr _%rest105690105698%_)))) + (let* ((_%method-spec105836%_ _%hd105695105831%_) + (_%rest105838%_ _%tl105696105833%_)) + (_%K105694105828%_ + _%rest105838%_ + _%method-spec105836%_))) + (_%else105692105760%_))))))) (define try-create-prototype - (lambda (_%descriptor104625%_ _%klass104626%_ _%obj-klass104627%_) - (let ((_%method-table104629%_ + (lambda (_%descriptor105508%_ _%klass105509%_ _%obj-klass105510%_) + (let ((_%method-table105512%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104627%_)))) - (let _%loop104632%_ ((_%rest104635%_ + (specialize-class _%obj-klass105510%_)))) + (let _%loop105515%_ ((_%rest105518%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104625%_ + _%descriptor105508%_ '2 '#f '#f))) - (_%count104637%_ '0) - (_%methods104639%_ '())) - (let* ((_%rest104641104649%_ _%rest104635%_) - (_%else104643104711%_ + (_%count105520%_ '0) + (_%methods105522%_ '())) + (let* ((_%rest105524105532%_ _%rest105518%_) + (_%else105526105594%_ (lambda () - (let ((_%prototype104657%_ - (let ((__obj105222 - (let ((__tmp105263 + (let ((_%prototype105540%_ + (let ((__obj106207 + (let ((__tmp106248 (let () (declare (not safe)) - (##fx+ _%count104637%_ '2)))) + (##fx+ _%count105520%_ '2)))) (declare (not safe)) (##make-structure - _%klass104626%_ - __tmp105263)))) + _%klass105509%_ + __tmp106248)))) (let () (declare (not safe)) - (object-fill! __obj105222 '#f)) - __obj105222))) - (let _%loop104660%_ ((_%rest104662%_ _%methods104639%_) - (_%off104663%_ + (object-fill! __obj106207 '#f)) + __obj106207))) + (let _%loop105543%_ ((_%rest105545%_ _%methods105522%_) + (_%off105546%_ (let () (declare (not safe)) - (##fx+ _%count104637%_ '1)))) - (let* ((_%rest104665104673%_ _%rest104662%_) - (_%else104667104692%_ + (##fx+ _%count105520%_ '1)))) + (let* ((_%rest105548105556%_ _%rest105545%_) + (_%else105550105575%_ (lambda () - (let ((_%prototype-key104681%_ + (let ((_%prototype-key105564%_ (cons (let () (declare (not safe)) - (##type-id _%klass104626%_)) + (##type-id _%klass105509%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104627%_))))) + _%obj-klass105510%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104686%_ () - (if (let ((__tmp105264 + (let _%again105569%_ () + (if (let ((__tmp106249 (let () (declare (not safe)) (##vector-cas! @@ -917,17 +987,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105264 '0)) + (##fx= __tmp106249 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104686%_))))) + (_%again105569%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104681%_ - _%prototype104657%_) + _%prototype-key105564%_ + _%prototype105540%_) (let () (declare (not safe)) (##vector-cas! @@ -935,110 +1005,163 @@ '0 '0 '1)) - ((lambda (_%prototype104690%_) - _%prototype104690%_) - _%prototype104657%_)))) - (_%K104669104699%_ - (lambda (_%rest104695%_ _%method104696%_) + ((lambda (_%prototype105573%_) + _%prototype105573%_) + _%prototype105540%_)))) + (_%K105552105582%_ + (lambda (_%rest105578%_ _%method105579%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104657%_ - _%method104696%_ - _%off104663%_ - _%klass104626%_ + _%prototype105540%_ + _%method105579%_ + _%off105546%_ + _%klass105509%_ '#f)) - (_%loop104660%_ - _%rest104695%_ + (_%loop105543%_ + _%rest105578%_ (let () (declare (not safe)) - (##fx- _%off104663%_ '1)))))) - (if (pair? _%rest104665104673%_) - (let ((_%hd104670104702%_ + (##fx- _%off105546%_ '1)))))) + (if (pair? _%rest105548105556%_) + (let ((_%hd105553105585%_ (let () (declare (not safe)) - (##car _%rest104665104673%_))) - (_%tl104671104704%_ + (##car _%rest105548105556%_))) + (_%tl105554105587%_ (let () (declare (not safe)) - (##cdr _%rest104665104673%_)))) - (let* ((_%method104707%_ _%hd104670104702%_) - (_%rest104709%_ _%tl104671104704%_)) - (_%K104669104699%_ - _%rest104709%_ - _%method104707%_))) - (_%else104667104692%_))))))) - (_%K104645104728%_ - (lambda (_%rest104714%_ _%method-name104715%_) - (let ((_%$e104718%_ - (let () - (declare (not safe)) - (symbolic-table-ref - _%method-table104629%_ - _%method-name104715%_ - '#f)))) - (if _%$e104718%_ - ((lambda (_%method104721%_) - (_%loop104632%_ - _%rest104714%_ - (let () - (declare (not safe)) - (##fx+ _%count104637%_ '1)) - (cons _%method104721%_ _%methods104639%_))) - _%$e104718%_) - ((lambda (_%klass104724%_ - _%obj-klass104725%_ - _%method-name104726%_) - '#f) - _%klass104626%_ - _%obj-klass104627%_ - _%method-name104715%_)))))) - (if (pair? _%rest104641104649%_) - (let ((_%hd104646104731%_ + (##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 _%rest104641104649%_))) - (_%tl104647104733%_ + (##car _%rest105524105532%_))) + (_%tl105530105667%_ (let () (declare (not safe)) - (##cdr _%rest104641104649%_)))) - (let* ((_%method-name104736%_ _%hd104646104731%_) - (_%rest104738%_ _%tl104647104733%_)) - (_%K104645104728%_ - _%rest104738%_ - _%method-name104736%_))) - (_%else104643104711%_))))))) + (##cdr _%rest105524105532%_)))) + (let* ((_%method-spec105670%_ _%hd105529105665%_) + (_%rest105672%_ _%tl105530105667%_)) + (_%K105528105662%_ + _%rest105672%_ + _%method-spec105670%_))) + (_%else105526105594%_))))))) (define cast - (lambda (_%descriptor104583%_ _%obj104585%_) + (lambda (_%descriptor105466%_ _%obj105468%_) (declare (not interrupts-enabled)) - (let* ((_%klass104589%_ + (let* ((_%klass105472%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104583%_ '1 '#f '#f))) - (_%klass-id104592%_ - (let () (declare (not safe)) (##type-id _%klass104589%_))) - (_%obj-klass104595%_ - (let () (declare (not safe)) (class-of _%obj104585%_))) - (_%obj-klass-id104598%_ - (let () (declare (not safe)) (##type-id _%obj-klass104595%_)))) + (##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-id104592%_ _%obj-klass-id104598%_)) - _%obj104585%_ - (if (interface-subclass? _%obj-klass104595%_) - (cast _%descriptor104583%_ + (##eq? _%klass-id105475%_ _%obj-klass-id105481%_)) + _%obj105468%_ + (if (interface-subclass? _%obj-klass105478%_) + (cast _%descriptor105466%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%obj104585%_ + _%obj105468%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104607%_ () - (if (let ((__tmp105265 + (let _%again105490%_ () + (if (let ((__tmp106250 (let () (declare (not safe)) (##vector-cas! @@ -1047,29 +1170,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105265 '0)) + (##fx= __tmp106250 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104607%_))))) + (_%again105490%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104592%_)) + _%klass-id105475%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104598%_)) - (let ((_%prototype104618%_ - (let ((_%$e104611%_ + _%obj-klass-id105481%_)) + (let ((_%prototype105501%_ + (let ((_%$e105494%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104611%_ - ((lambda (_%prototype104614%_) + (if _%$e105494%_ + ((lambda (_%prototype105497%_) (let () (declare (not safe)) (##vector-cas! @@ -1077,8 +1200,8 @@ '0 '0 '1)) - _%prototype104614%_) - _%$e104611%_) + _%prototype105497%_) + _%$e105494%_) (let () (let () (declare (not safe)) @@ -1088,53 +1211,53 @@ '0 '1)) (create-prototype - _%descriptor104583%_ - _%klass104589%_ - _%obj-klass104595%_)))))) - ((lambda (_%prototype104620%_ _%obj104621%_) - (let ((_%instance104623%_ + _%descriptor105466%_ + _%klass105472%_ + _%obj-klass105478%_)))))) + ((lambda (_%prototype105503%_ _%obj105504%_) + (let ((_%instance105506%_ (let () (declare (not safe)) - (##structure-copy _%prototype104620%_)))) + (##structure-copy _%prototype105503%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104623%_ - _%obj104621%_ + _%instance105506%_ + _%obj105504%_ '1 '#f 'cast)) - _%instance104623%_)) - _%prototype104618%_ - _%obj104585%_)))))))) + _%instance105506%_)) + _%prototype105501%_ + _%obj105468%_)))))))) (define try-cast - (lambda (_%descriptor104541%_ _%obj104543%_) + (lambda (_%descriptor105424%_ _%obj105426%_) (declare (not interrupts-enabled)) - (let* ((_%klass104547%_ + (let* ((_%klass105430%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104541%_ '1 '#f '#f))) - (_%klass-id104550%_ - (let () (declare (not safe)) (##type-id _%klass104547%_))) - (_%obj-klass104553%_ - (let () (declare (not safe)) (class-of _%obj104543%_))) - (_%obj-klass-id104556%_ - (let () (declare (not safe)) (##type-id _%obj-klass104553%_)))) + (##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-id104550%_ _%obj-klass-id104556%_)) - _%obj104543%_ - (if (interface-subclass? _%obj-klass104553%_) + (##eq? _%klass-id105433%_ _%obj-klass-id105439%_)) + _%obj105426%_ + (if (interface-subclass? _%obj-klass105436%_) (try-cast - _%descriptor104541%_ + _%descriptor105424%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104543%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj105426%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104565%_ () - (if (let ((__tmp105266 + (let _%again105448%_ () + (if (let ((__tmp106251 (let () (declare (not safe)) (##vector-cas! @@ -1143,29 +1266,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105266 '0)) + (##fx= __tmp106251 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104565%_))))) + (_%again105448%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104550%_)) + _%klass-id105433%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104556%_)) - (let ((_%prototype104576%_ - (let ((_%$e104569%_ + _%obj-klass-id105439%_)) + (let ((_%prototype105459%_ + (let ((_%$e105452%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104569%_ - ((lambda (_%prototype104572%_) + (if _%$e105452%_ + ((lambda (_%prototype105455%_) (let () (declare (not safe)) (##vector-cas! @@ -1173,8 +1296,8 @@ '0 '0 '1)) - _%prototype104572%_) - _%$e104569%_) + _%prototype105455%_) + _%$e105452%_) (let () (let () (declare (not safe)) @@ -1184,55 +1307,55 @@ '0 '1)) (try-create-prototype - _%descriptor104541%_ - _%klass104547%_ - _%obj-klass104553%_)))))) - ((lambda (_%prototype104578%_ _%obj104579%_) - (if _%prototype104578%_ - (let ((_%instance104581%_ + _%descriptor105424%_ + _%klass105430%_ + _%obj-klass105436%_)))))) + ((lambda (_%prototype105461%_ _%obj105462%_) + (if _%prototype105461%_ + (let ((_%instance105464%_ (let () (declare (not safe)) - (##structure-copy _%prototype104578%_)))) + (##structure-copy _%prototype105461%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104581%_ - _%obj104579%_ + _%instance105464%_ + _%obj105462%_ '1 '#f 'cast)) - _%instance104581%_) + _%instance105464%_) '#f)) - _%prototype104576%_ - _%obj104543%_)))))))) + _%prototype105459%_ + _%obj105426%_)))))))) (define satisfies? - (lambda (_%descriptor104501%_ _%obj104503%_) + (lambda (_%descriptor105384%_ _%obj105386%_) (declare (not interrupts-enabled)) - (let* ((_%klass104507%_ + (let* ((_%klass105390%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104501%_ '1 '#f '#f))) - (_%klass-id104510%_ - (let () (declare (not safe)) (##type-id _%klass104507%_))) - (_%obj-klass104513%_ - (let () (declare (not safe)) (class-of _%obj104503%_))) - (_%obj-klass-id104516%_ - (let () (declare (not safe)) (##type-id _%obj-klass104513%_)))) + (##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-id104510%_ _%obj-klass-id104516%_)) - _%obj104503%_ - (if (interface-subclass? _%obj-klass104513%_) + (##eq? _%klass-id105393%_ _%obj-klass-id105399%_)) + _%obj105386%_ + (if (interface-subclass? _%obj-klass105396%_) (satisfies? - _%descriptor104501%_ + _%descriptor105384%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104503%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj105386%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104525%_ () - (if (let ((__tmp105267 + (let _%again105408%_ () + (if (let ((__tmp106252 (let () (declare (not safe)) (##vector-cas! @@ -1241,29 +1364,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105267 '0)) + (##fx= __tmp106252 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104525%_))))) + (_%again105408%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104510%_)) + _%klass-id105393%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104516%_)) - (let ((_%prototype104536%_ - (let ((_%$e104529%_ + _%obj-klass-id105399%_)) + (let ((_%prototype105419%_ + (let ((_%$e105412%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104529%_ - ((lambda (_%prototype104532%_) + (if _%$e105412%_ + ((lambda (_%prototype105415%_) (let () (declare (not safe)) (##vector-cas! @@ -1271,8 +1394,8 @@ '0 '0 '1)) - _%prototype104532%_) - _%$e104529%_) + _%prototype105415%_) + _%$e105412%_) (let () (let () (declare (not safe)) @@ -1282,10 +1405,10 @@ '0 '1)) (try-create-prototype - _%descriptor104501%_ - _%klass104507%_ - _%obj-klass104513%_)))))) - ((lambda (_%prototype104538%_ _%obj104539%_) - (if _%prototype104538%_ '#t '#f)) - _%prototype104536%_ - _%obj104503%_)))))))))) + _%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 3eadcaff9..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]#_g105269_| + (define |[1]#_g106254_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g105271_| + (define |[1]#_g106256_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g105273_| + (define |[1]#_g106258_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g105275_| + (define |[1]#_g106260_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g105277_| + (define |[1]#_g106262_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105278_| + (define |[1]#_g106263_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105279_| + (define |[1]#_g106264_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105280_| + (define |[1]#_g106265_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105282_| + (define |[1]#_g106267_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105283_| + (define |[1]#_g106268_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105284_| + (define |[1]#_g106269_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105285_| + (define |[1]#_g106270_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105287_| + (define |[1]#_g106272_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105288_| + (define |[1]#_g106273_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105289_| + (define |[1]#_g106274_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105290_| + (define |[1]#_g106275_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105292_| + (define |[1]#_g106277_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105293_| + (define |[1]#_g106278_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105294_| + (define |[1]#_g106279_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105295_| + (define |[1]#_g106280_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105297_| + (define |[1]#_g106282_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g105299_| + (define |[1]#_g106284_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g105301_| + (define |[1]#_g106286_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g105303_| + (define |[1]#_g106288_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105304_| + (define |[1]#_g106289_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105306_| + (define |[1]#_g106291_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105307_| + (define |[1]#_g106292_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105309_| + (define |[1]#_g106294_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105310_| + (define |[1]#_g106295_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105312_| + (define |[1]#_g106297_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105313_| + (define |[1]#_g106298_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj105218 + (let ((__obj106203 (let () (declare (not safe)) (##structure @@ -248,93 +248,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj105218 + __obj106203 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj106203 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj106203 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj105218 + __obj106203 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp105268 (cons |[1]#_g105269_| '()))) + (let ((__tmp106253 (cons |[1]#_g106254_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj105218 __tmp105268 '3 '#f '#f)) + (##unchecked-structure-set! __obj106203 __tmp106253 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj106203 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj106203 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj106203 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 ':init! '11 '#f '#f)) - (let ((__tmp105270 |[1]#_g105271_|)) + (##unchecked-structure-set! __obj106203 ':init! '11 '#f '#f)) + (let ((__tmp106255 |[1]#_g106256_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105218 __tmp105270 '12 '#f '#f)) - (let ((__tmp105272 |[1]#_g105273_|)) + (##unchecked-structure-set! __obj106203 __tmp106255 '12 '#f '#f)) + (let ((__tmp106257 |[1]#_g106258_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105218 __tmp105272 '13 '#f '#f)) - (let ((__tmp105274 |[1]#_g105275_|)) + (##unchecked-structure-set! __obj106203 __tmp106257 '13 '#f '#f)) + (let ((__tmp106259 |[1]#_g106260_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105218 __tmp105274 '14 '#f '#f)) - (let ((__tmp105276 - (cons (cons 'message |[1]#_g105277_|) - (cons (cons 'irritants |[1]#_g105278_|) - (cons (cons 'where |[1]#_g105279_|) - (cons (cons 'continuation |[1]#_g105280_|) + (##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! __obj105218 __tmp105276 '15 '#f '#f)) - (let ((__tmp105281 - (cons (cons 'message |[1]#_g105282_|) - (cons (cons 'irritants |[1]#_g105283_|) - (cons (cons 'where |[1]#_g105284_|) - (cons (cons 'continuation |[1]#_g105285_|) + (##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! __obj105218 __tmp105281 '16 '#f '#f)) - (let ((__tmp105286 - (cons (cons 'message |[1]#_g105287_|) - (cons (cons 'irritants |[1]#_g105288_|) - (cons (cons 'where |[1]#_g105289_|) - (cons (cons 'continuation |[1]#_g105290_|) + (##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! __obj105218 __tmp105286 '17 '#f '#f)) - (let ((__tmp105291 - (cons (cons 'message |[1]#_g105292_|) - (cons (cons 'irritants |[1]#_g105293_|) - (cons (cons 'where |[1]#_g105294_|) - (cons (cons 'continuation |[1]#_g105295_|) + (##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! __obj105218 __tmp105291 '18 '#f '#f)) + (##unchecked-structure-set! __obj106203 __tmp106276 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj106203 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj106203 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105218 '() '20 '#f '#f)) - __obj105218)) + (##unchecked-structure-set! __obj106203 '() '20 '#f '#f)) + __obj106203)) (define |[:0:]#interface-descriptor| - (let ((__obj105220 + (let ((__obj106205 (let () (declare (not safe)) (##structure @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj105220 + __obj106205 'gerbil/runtime/interface#interface-descriptor::t '1 '#f @@ -371,157 +371,157 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj105220 + __obj106205 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj106205 '(type methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj106205 '(type methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj106205 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj106205 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj106205 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj106205 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '#f '11 '#f '#f)) - (let ((__tmp105296 |[1]#_g105297_|)) + (##unchecked-structure-set! __obj106205 '#f '11 '#f '#f)) + (let ((__tmp106281 |[1]#_g106282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105220 __tmp105296 '12 '#f '#f)) - (let ((__tmp105298 |[1]#_g105299_|)) + (##unchecked-structure-set! __obj106205 __tmp106281 '12 '#f '#f)) + (let ((__tmp106283 |[1]#_g106284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105220 __tmp105298 '13 '#f '#f)) - (let ((__tmp105300 |[1]#_g105301_|)) + (##unchecked-structure-set! __obj106205 __tmp106283 '13 '#f '#f)) + (let ((__tmp106285 |[1]#_g106286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105220 __tmp105300 '14 '#f '#f)) - (let ((__tmp105302 - (cons (cons 'type |[1]#_g105303_|) - (cons (cons 'methods |[1]#_g105304_|) '())))) + (##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! __obj105220 __tmp105302 '15 '#f '#f)) - (let ((__tmp105305 - (cons (cons 'type |[1]#_g105306_|) - (cons (cons 'methods |[1]#_g105307_|) '())))) + (##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! __obj105220 __tmp105305 '16 '#f '#f)) - (let ((__tmp105308 - (cons (cons 'type |[1]#_g105309_|) - (cons (cons 'methods |[1]#_g105310_|) '())))) + (##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! __obj105220 __tmp105308 '17 '#f '#f)) - (let ((__tmp105311 - (cons (cons 'type |[1]#_g105312_|) - (cons (cons 'methods |[1]#_g105313_|) '())))) + (##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! __obj105220 __tmp105311 '18 '#f '#f)) + (##unchecked-structure-set! __obj106205 __tmp106296 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj106205 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj106205 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105220 '() '20 '#f '#f)) - __obj105220)) + (##unchecked-structure-set! __obj106205 '() '20 '#f '#f)) + __obj106205)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx104266%_) - (let* ((_%g104270104300%_ - (lambda (_%g104271104296%_) + (lambda (_%$stx105149%_) + (let* ((_%g105153105183%_ + (lambda (_%g105154105179%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104271104296%_))) - (_%g104269104398%_ - (lambda (_%g104271104304%_) - (if (gx#stx-pair? _%g104271104304%_) - (let ((_%e104277104307%_ - (gx#syntax-e _%g104271104304%_))) - (let ((_%hd104278104311%_ + _%g105154105179%_))) + (_%g105152105281%_ + (lambda (_%g105154105187%_) + (if (gx#stx-pair? _%g105154105187%_) + (let ((_%e105160105190%_ + (gx#syntax-e _%g105154105187%_))) + (let ((_%hd105161105194%_ (let () (declare (not safe)) - (##car _%e104277104307%_))) - (_%tl104279104314%_ + (##car _%e105160105190%_))) + (_%tl105162105197%_ (let () (declare (not safe)) - (##cdr _%e104277104307%_)))) - (if (gx#stx-pair? _%tl104279104314%_) - (let ((_%e104280104317%_ - (gx#syntax-e _%tl104279104314%_))) - (let ((_%hd104281104321%_ + (##cdr _%e105160105190%_)))) + (if (gx#stx-pair? _%tl105162105197%_) + (let ((_%e105163105200%_ + (gx#syntax-e _%tl105162105197%_))) + (let ((_%hd105164105204%_ (let () (declare (not safe)) - (##car _%e104280104317%_))) - (_%tl104282104324%_ + (##car _%e105163105200%_))) + (_%tl105165105207%_ (let () (declare (not safe)) - (##cdr _%e104280104317%_)))) - (if (gx#stx-pair? _%tl104282104324%_) - (let ((_%e104283104327%_ - (gx#syntax-e _%tl104282104324%_))) - (let ((_%hd104284104331%_ + (##cdr _%e105163105200%_)))) + (if (gx#stx-pair? _%tl105165105207%_) + (let ((_%e105166105210%_ + (gx#syntax-e _%tl105165105207%_))) + (let ((_%hd105167105214%_ (let () (declare (not safe)) - (##car _%e104283104327%_))) - (_%tl104285104334%_ + (##car _%e105166105210%_))) + (_%tl105168105217%_ (let () (declare (not safe)) - (##cdr _%e104283104327%_)))) - (if (gx#stx-pair? _%tl104285104334%_) - (let ((_%e104286104337%_ + (##cdr _%e105166105210%_)))) + (if (gx#stx-pair? _%tl105168105217%_) + (let ((_%e105169105220%_ (gx#syntax-e - _%tl104285104334%_))) - (let ((_%hd104287104341%_ + _%tl105168105217%_))) + (let ((_%hd105170105224%_ (let () (declare (not safe)) - (##car _%e104286104337%_))) - (_%tl104288104344%_ + (##car _%e105169105220%_))) + (_%tl105171105227%_ (let () (declare (not safe)) - (##cdr _%e104286104337%_)))) + (##cdr _%e105169105220%_)))) (if (gx#stx-pair? - _%tl104288104344%_) - (let ((_%e104289104347%_ + _%tl105171105227%_) + (let ((_%e105172105230%_ (gx#syntax-e - _%tl104288104344%_))) - (let ((_%hd104290104351%_ + _%tl105171105227%_))) + (let ((_%hd105173105234%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e104289104347%_))) - (_%tl104291104354%_ + (##car _%e105172105230%_))) + (_%tl105174105237%_ (let () (declare (not safe)) - (##cdr _%e104289104347%_)))) - (if (gx#stx-pair? _%tl104291104354%_) - (let ((_%e104292104357%_ - (gx#syntax-e _%tl104291104354%_))) - (let ((_%hd104293104361%_ + (##cdr _%e105172105230%_)))) + (if (gx#stx-pair? _%tl105174105237%_) + (let ((_%e105175105240%_ + (gx#syntax-e _%tl105174105237%_))) + (let ((_%hd105176105244%_ (let () (declare (not safe)) - (##car _%e104292104357%_))) - (_%tl104294104364%_ + (##car _%e105175105240%_))) + (_%tl105177105247%_ (let () (declare (not safe)) - (##cdr _%e104292104357%_)))) - (if (gx#stx-null? _%tl104294104364%_) - ((lambda (_%L104367%_ - _%L104369%_ - _%L104370%_ - _%L104371%_ - _%L104372%_) + (##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 _%L104370%_ + (cons _%L105253%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +547,7 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L104372%_ '())) + (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 _%L104367%_ - (cons _%L104371%_ + (cons (cons (gx#datum->syntax + '#f + 'else) + (cons (cons _%L105250%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L104370%_ - (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 _%L104371%_ + (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 _%L104371%_ + (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 _%L104371%_ '())) + (cons _%L105254%_ '())) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L104370%_ '())) + (cons _%L105253%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -741,7 +847,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104369%_ + (cons (cons _%L105252%_ (cons (gx#datum->syntax '#f 'prototype) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -757,85 +863,85 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd104293104361%_ - _%hd104290104351%_ - _%hd104287104341%_ - _%hd104284104331%_ - _%hd104281104321%_) - (_%g104270104300%_ _%g104271104304%_)))) - (_%g104270104300%_ _%g104271104304%_)))) - (_%g104270104300%_ _%g104271104304%_)))) + _%hd105176105244%_ + _%hd105173105234%_ + _%hd105170105224%_ + _%hd105167105214%_ + _%hd105164105204%_) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104270104300%_ - _%g104271104304%_)))) - (_%g104270104300%_ _%g104271104304%_)))) - (_%g104270104300%_ _%g104271104304%_)))) - (_%g104270104300%_ _%g104271104304%_))))) - (_%g104269104398%_ _%$stx104266%_)))) + (_%g105153105183%_ + _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_))))) + (_%g105152105281%_ _%$stx105149%_)))) (define |[:0:]#defcast| - (lambda (_%$stx104402%_) - (let* ((_%g104406104428%_ - (lambda (_%g104407104424%_) + (lambda (_%$stx105285%_) + (let* ((_%g105289105311%_ + (lambda (_%g105290105307%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104407104424%_))) - (_%g104405104497%_ - (lambda (_%g104407104432%_) - (if (gx#stx-pair? _%g104407104432%_) - (let ((_%e104411104435%_ - (gx#syntax-e _%g104407104432%_))) - (let ((_%hd104412104439%_ + _%g105290105307%_))) + (_%g105288105380%_ + (lambda (_%g105290105315%_) + (if (gx#stx-pair? _%g105290105315%_) + (let ((_%e105294105318%_ + (gx#syntax-e _%g105290105315%_))) + (let ((_%hd105295105322%_ (let () (declare (not safe)) - (##car _%e104411104435%_))) - (_%tl104413104442%_ + (##car _%e105294105318%_))) + (_%tl105296105325%_ (let () (declare (not safe)) - (##cdr _%e104411104435%_)))) - (if (gx#stx-pair? _%tl104413104442%_) - (let ((_%e104414104445%_ - (gx#syntax-e _%tl104413104442%_))) - (let ((_%hd104415104449%_ + (##cdr _%e105294105318%_)))) + (if (gx#stx-pair? _%tl105296105325%_) + (let ((_%e105297105328%_ + (gx#syntax-e _%tl105296105325%_))) + (let ((_%hd105298105332%_ (let () (declare (not safe)) - (##car _%e104414104445%_))) - (_%tl104416104452%_ + (##car _%e105297105328%_))) + (_%tl105299105335%_ (let () (declare (not safe)) - (##cdr _%e104414104445%_)))) - (if (gx#stx-pair? _%tl104416104452%_) - (let ((_%e104417104455%_ - (gx#syntax-e _%tl104416104452%_))) - (let ((_%hd104418104459%_ + (##cdr _%e105297105328%_)))) + (if (gx#stx-pair? _%tl105299105335%_) + (let ((_%e105300105338%_ + (gx#syntax-e _%tl105299105335%_))) + (let ((_%hd105301105342%_ (let () (declare (not safe)) - (##car _%e104417104455%_))) - (_%tl104419104462%_ + (##car _%e105300105338%_))) + (_%tl105302105345%_ (let () (declare (not safe)) - (##cdr _%e104417104455%_)))) - (if (gx#stx-pair? _%tl104419104462%_) - (let ((_%e104420104465%_ + (##cdr _%e105300105338%_)))) + (if (gx#stx-pair? _%tl105302105345%_) + (let ((_%e105303105348%_ (gx#syntax-e - _%tl104419104462%_))) - (let ((_%hd104421104469%_ + _%tl105302105345%_))) + (let ((_%hd105304105352%_ (let () (declare (not safe)) - (##car _%e104420104465%_))) - (_%tl104422104472%_ + (##car _%e105303105348%_))) + (_%tl105305105355%_ (let () (declare (not safe)) - (##cdr _%e104420104465%_)))) + (##cdr _%e105303105348%_)))) (if (gx#stx-null? - _%tl104422104472%_) - ((lambda (_%L104475%_ - _%L104477%_ - _%L104478%_) + _%tl105305105355%_) + ((lambda (_%L105358%_ + _%L105360%_ + _%L105361%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L104478%_ + (cons (cons _%L105361%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'descriptor) (cons (gx#datum->syntax '#f 'obj) @@ -905,7 +1011,7 @@ '#f 'obj-klass) '())) - (cons (cons _%L104478%_ + (cons (cons _%L105361%_ (cons (gx#datum->syntax '#f 'descriptor) @@ -982,7 +1088,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104477%_ + (cons (cons _%L105360%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +1100,7 @@ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L104475%_ + (cons (cons _%L105358%_ (cons (gx#datum->syntax '#f 'prototype) @@ -1011,14 +1117,14 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd104421104469%_ - _%hd104418104459%_ - _%hd104415104449%_) - (_%g104406104428%_ _%g104407104432%_)))) + _%hd105304105352%_ + _%hd105301105342%_ + _%hd105298105332%_) + (_%g105289105311%_ _%g105290105315%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104406104428%_ - _%g104407104432%_)))) - (_%g104406104428%_ _%g104407104432%_)))) - (_%g104406104428%_ _%g104407104432%_)))) - (_%g104406104428%_ _%g104407104432%_))))) - (_%g104405104497%_ _%$stx104402%_)))))) + (_%g105289105311%_ + _%g105290105315%_)))) + (_%g105289105311%_ _%g105290105315%_)))) + (_%g105289105311%_ _%g105290105315%_)))) + (_%g105289105311%_ _%g105290105315%_))))) + (_%g105288105380%_ _%$stx105285%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index 4db381349..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 1734131746) + (define gerbil/runtime/loader::timestamp 1734357961) (begin (define __modules (let () @@ -34,24 +34,24 @@ (define __load-order-next '1) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths115471%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths115471%_)) + (lambda _%paths116456%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths116456%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115471%_))) - (let ((__tmp115477 - (lambda (_%p115473%_) - (set! __load-path (cons _%p115473%_ __load-path)))) - (__tmp115476 (reverse! _%paths115471%_))) + _%paths116456%_))) + (let ((__tmp116462 + (lambda (_%p116458%_) + (set! __load-path (cons _%p116458%_ __load-path)))) + (__tmp116461 (reverse! _%paths116456%_))) (declare (not safe)) - (##for-each __tmp115477 __tmp115476)))) + (##for-each __tmp116462 __tmp116461)))) (define set-load-path! - (lambda (_%paths115457%_) - (if (list? _%paths115457%_) - (let ((_%paths115461%_ _%paths115457%_)) - (__set-load-path! _%paths115461%_)) + (lambda (_%paths116442%_) + (if (list? _%paths116442%_) + (let ((_%paths116446%_ _%paths116442%_)) + (__set-load-path! _%paths116446%_)) (begin (raise-contract-violation-error '"contract violation" @@ -60,23 +60,23 @@ 'contract: 'list? 'value: - _%paths115457%_) + _%paths116442%_) '#!void)))) (define __set-load-path! - (lambda (_%paths115445%_) - (let ((_%paths115448%_ _%paths115445%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths115448%_)) + (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" - _%paths115448%_))) - (set! __load-path _%paths115448%_)))) + _%paths116433%_))) + (set! __load-path _%paths116433%_)))) (define load-module - (lambda (_%modpath115431%_) - (if (string? _%modpath115431%_) - (let ((_%modpath115435%_ _%modpath115431%_)) - (__load-module _%modpath115435%_)) + (lambda (_%modpath116416%_) + (if (string? _%modpath116416%_) + (let ((_%modpath116420%_ _%modpath116416%_)) + (__load-module _%modpath116420%_)) (begin (raise-contract-violation-error '"contract violation" @@ -85,108 +85,108 @@ 'contract: 'string? 'value: - _%modpath115431%_) + _%modpath116416%_) '#!void)))) (define __load-module - (lambda (_%modpath115396%_) - (let ((_%modpath115399%_ _%modpath115396%_)) + (lambda (_%modpath116381%_) + (let ((_%modpath116384%_ _%modpath116381%_)) (mutex-lock! __load-mx) - (let ((_%$e115408%_ + (let ((_%$e116393%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115399%_)))) - (if _%$e115408%_ - ((lambda (_%state115411%_) - (if (or (eq? 'builtin _%state115411%_) - (string? _%state115411%_)) - (let () (mutex-unlock! __load-mx) _%state115411%_) - (if (eq? 'loading _%state115411%_) + (__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 _%modpath115399%_)) - (if (and (pair? _%state115411%_) + (__load-module _%modpath116384%_)) + (if (and (pair? _%state116396%_) (eq? (let () (declare (not safe)) - (##car _%state115411%_)) + (##car _%state116396%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp115478 (cadr _%state115411%_))) + (let ((__tmp116463 (cadr _%state116396%_))) (declare (not safe)) - (raise __tmp115478))) + (raise __tmp116463))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115411%_))))))) - _%$e115408%_) - (let ((_%$e115420%_ (__find-library-module _%modpath115399%_))) - (if _%$e115420%_ - ((lambda (_%path115423%_) + _%state116396%_))))))) + _%$e116393%_) + (let ((_%$e116405%_ (__find-library-module _%modpath116384%_))) + (if _%$e116405%_ + ((lambda (_%path116408%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath115399%_ 'loading)) + (__hash-put! __modules _%modpath116384%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp115480 - (lambda (_%exn115425%_) + (let ((__tmp116465 + (lambda (_%exn116410%_) (mutex-lock! __load-mx) - (let ((__tmp115481 + (let ((__tmp116466 (cons 'error - (cons _%exn115425%_ '())))) + (cons _%exn116410%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath115399%_ - __tmp115481)) + _%modpath116384%_ + __tmp116466)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn115425%_)))) - (__tmp115479 + (raise _%exn116410%_)))) + (__tmp116464 (lambda () - (let ((_%loaded-path115428%_ - (load _%path115423%_))) + (let ((_%loaded-path116413%_ + (load _%path116408%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath115399%_ - _%loaded-path115428%_)) + _%modpath116384%_ + _%loaded-path116413%_)) (if (let () (declare (not safe)) (__hash-get __load-order - _%modpath115399%_)) + _%modpath116384%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! __load-order - _%modpath115399%_ + _%modpath116384%_ __load-order-next)) (set! __load-order-next (+ __load-order-next '1)))) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path115428%_)))) + _%loaded-path116413%_)))) (declare (not safe)) - (__with-catch __tmp115480 __tmp115479))) - _%$e115420%_) + (__with-catch __tmp116465 __tmp116464))) + _%$e116405%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath115399%_)))))))))) + _%modpath116384%_)))))))))) (define reload-module! - (lambda (_%modpath115382%_) - (if (string? _%modpath115382%_) - (let ((_%modpath115386%_ _%modpath115382%_)) - (__reload-module! _%modpath115386%_)) + (lambda (_%modpath116367%_) + (if (string? _%modpath116367%_) + (let ((_%modpath116371%_ _%modpath116367%_)) + (__reload-module! _%modpath116371%_)) (begin (raise-contract-violation-error '"contract violation" @@ -195,154 +195,154 @@ 'contract: 'string? 'value: - _%modpath115382%_) + _%modpath116367%_) '#!void)))) (define __reload-module! - (lambda (_%modpath115354%_) - (let ((_%modpath115357%_ _%modpath115354%_)) + (lambda (_%modpath116339%_) + (let ((_%modpath116342%_ _%modpath116339%_)) (mutex-lock! __load-mx) - (let ((_%$e115366%_ + (let ((_%$e116351%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115357%_)))) - (if _%$e115366%_ - ((lambda (_%state115369%_) - (if (eq? _%state115369%_ '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" - _%modpath115357%_))) - (if (eq? 'loading _%state115369%_) + _%modpath116342%_))) + (if (eq? 'loading _%state116354%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state115369%_) - (let ((_%latest-path115374%_ + (if (string? _%state116354%_) + (let ((_%latest-path116359%_ (__find-library-module - _%modpath115357%_))) + _%modpath116342%_))) (if (or (equal? (path-extension - _%state115369%_) + _%state116354%_) '".scm") - (not (equal? _%state115369%_ - _%latest-path115374%_))) + (not (equal? _%state116354%_ + _%latest-path116359%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115357%_)) + _%modpath116342%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115357%_)) + (__load-module _%modpath116342%_)) (mutex-unlock! __load-mx))) - (if (and (pair? _%state115369%_) + (if (and (pair? _%state116354%_) (eq? (let () (declare (not safe)) - (##car _%state115369%_)) + (##car _%state116354%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115357%_)) + _%modpath116342%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115357%_)) + (__load-module _%modpath116342%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115369%_)))))))) - _%$e115366%_) + _%state116354%_)))))))) + _%$e116351%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath115357%_))))))) + (__load-module _%modpath116342%_))))))) (define __find-library-module - (lambda (_%modpath115288%_) - (letrec ((_%find-compiled-file115290%_ - (lambda (_%npath115343%_) - (let ((_%basepath115345%_ + (lambda (_%modpath116273%_) + (letrec ((_%find-compiled-file116275%_ + (lambda (_%npath116328%_) + (let ((_%basepath116330%_ (let () (declare (not safe)) - (##string-append _%npath115343%_ '".o")))) - (let _%lp115347%_ ((_%current115349%_ '#f) - (_%n115350%_ '1)) - (let ((_%next115352%_ - (let ((__tmp115482 - (number->string _%n115350%_))) + (##string-append _%npath116328%_ '".o")))) + (let _%lp116332%_ ((_%current116334%_ '#f) + (_%n116335%_ '1)) + (let ((_%next116337%_ + (let ((__tmp116467 + (number->string _%n116335%_))) (declare (not safe)) (##string-append - _%basepath115345%_ - __tmp115482)))) + _%basepath116330%_ + __tmp116467)))) (if (let () (declare (not safe)) - (##file-exists? _%next115352%_)) - (_%lp115347%_ - _%next115352%_ + (##file-exists? _%next116337%_)) + (_%lp116332%_ + _%next116337%_ (let () (declare (not safe)) - (##fx+ _%n115350%_ '1))) - _%current115349%_)))))) - (_%find-source-file115291%_ - (lambda (_%npath115339%_) - (let ((_%spath115341%_ + (##fx+ _%n116335%_ '1))) + _%current116334%_)))))) + (_%find-source-file116276%_ + (lambda (_%npath116324%_) + (let ((_%spath116326%_ (let () (declare (not safe)) - (##string-append _%npath115339%_ '".scm")))) + (##string-append _%npath116324%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath115341%_)) - _%spath115341%_ + (##file-exists? _%spath116326%_)) + _%spath116326%_ '#f))))) - (let _%lp115293%_ ((_%rest115295%_ (load-path))) - (let* ((_%rest115296115304%_ _%rest115295%_) - (_%else115298115312%_ (lambda () '#f)) - (_%K115300115327%_ - (lambda (_%rest115315%_ _%dir115316%_) - (let* ((_%npath115318%_ + (let _%lp116278%_ ((_%rest116280%_ (load-path))) + (let* ((_%rest116281116289%_ _%rest116280%_) + (_%else116283116297%_ (lambda () '#f)) + (_%K116285116312%_ + (lambda (_%rest116300%_ _%dir116301%_) + (let* ((_%npath116303%_ (path-expand - _%modpath115288%_ - (path-expand _%dir115316%_))) - (_%$e115320%_ - (_%find-compiled-file115290%_ _%npath115318%_))) - (if _%$e115320%_ - (path-normalize _%$e115320%_) - (let ((_%$e115323%_ - (_%find-source-file115291%_ - _%npath115318%_))) - (if _%$e115323%_ - (path-normalize _%$e115323%_) - (_%lp115293%_ _%rest115315%_)))))))) - (if (pair? _%rest115296115304%_) - (let ((_%hd115301115330%_ + _%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 _%rest115296115304%_))) - (_%tl115302115332%_ + (##car _%rest116281116289%_))) + (_%tl116287116317%_ (let () (declare (not safe)) - (##cdr _%rest115296115304%_)))) - (let* ((_%dir115335%_ _%hd115301115330%_) - (_%rest115337%_ _%tl115302115332%_)) - (_%K115300115327%_ _%rest115337%_ _%dir115335%_))) - (_%else115298115312%_))))))) + (##cdr _%rest116281116289%_)))) + (let* ((_%dir116320%_ _%hd116286116315%_) + (_%rest116322%_ _%tl116287116317%_)) + (_%K116285116312%_ _%rest116322%_ _%dir116320%_))) + (_%else116283116297%_))))))) (define list-modules (lambda () (let () (mutex-lock! __load-mx) - (let ((_%result115286%_ + (let ((_%result116271%_ (let () (declare (not safe)) (__hash->list __modules)))) (mutex-unlock! __load-mx) - _%result115286%_)))) + _%result116271%_)))) (define module-load-order - (lambda (_%modpath115270%_) - (if (string? _%modpath115270%_) - (let ((_%modpath115274%_ _%modpath115270%_)) - (__module-load-order _%modpath115274%_)) + (lambda (_%modpath116255%_) + (if (string? _%modpath116255%_) + (let ((_%modpath116259%_ _%modpath116255%_)) + (__module-load-order _%modpath116259%_)) (begin (raise-contract-violation-error '"contract violation" @@ -351,30 +351,30 @@ 'contract: 'string? 'value: - _%modpath115270%_) + _%modpath116255%_) '#!void)))) (define __module-load-order - (lambda (_%modpath115250%_) - (let ((_%modpath115253%_ _%modpath115250%_)) + (lambda (_%modpath116235%_) + (let ((_%modpath116238%_ _%modpath116235%_)) (mutex-lock! __load-mx) - (let ((_%ord115268%_ + (let ((_%ord116253%_ (if (eq? (let () (declare (not safe)) - (__hash-get __modules _%modpath115253%_)) + (__hash-get __modules _%modpath116238%_)) 'builtin) '0 - (let ((_%$e115264%_ + (let ((_%$e116249%_ (let () (declare (not safe)) - (__hash-get __load-order _%modpath115253%_)))) - (if _%$e115264%_ _%$e115264%_ '#f))))) + (__hash-get __load-order _%modpath116238%_)))) + (if _%$e116249%_ _%$e116249%_ '#f))))) (mutex-unlock! __load-mx) - (if (exact-integer? _%ord115268%_) - _%ord115268%_ + (if (exact-integer? _%ord116253%_) + _%ord116253%_ (begin (let () (declare (not safe)) (error '"unknown module load order" 'module: - _%modpath115253%_)) + _%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 417105317..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 1734131745) + (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 ((__tmp102167 (cons immediate::t '()))) + (let ((__tmp103050 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp102167))) + (__make-system-class 'char __tmp103050))) (define boolean::t - (let ((__tmp102168 (cons immediate::t '()))) + (let ((__tmp103051 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp102168))) + (__make-system-class 'boolean __tmp103051))) (define atom::t - (let ((__tmp102169 (cons immediate::t '()))) + (let ((__tmp103052 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp102169))) + (__make-system-class 'atom __tmp103052))) (define void::t - (let ((__tmp102170 (cons atom::t '()))) + (let ((__tmp103053 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp102170))) + (__make-system-class 'void __tmp103053))) (define eof::t - (let ((__tmp102171 (cons atom::t '()))) + (let ((__tmp103054 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp102171))) + (__make-system-class 'eof __tmp103054))) (define true::t - (let ((__tmp102172 (cons boolean::t (cons atom::t '())))) + (let ((__tmp103055 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp102172))) + (__make-system-class 'true __tmp103055))) (define false::t - (let ((__tmp102173 (cons boolean::t (cons atom::t '())))) + (let ((__tmp103056 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp102173))) + (__make-system-class 'false __tmp103056))) (define special::t - (let ((__tmp102174 (cons atom::t '()))) + (let ((__tmp103057 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp102174))) + (__make-system-class 'special __tmp103057))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp102175 (cons number::t '()))) + (let ((__tmp103058 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp102175))) + (__make-system-class 'real __tmp103058))) (define integer::t - (let ((__tmp102176 (cons real::t '()))) + (let ((__tmp103059 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp102176))) + (__make-system-class 'integer __tmp103059))) (define fixnum::t - (let ((__tmp102177 (cons integer::t (cons immediate::t '())))) + (let ((__tmp103060 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp102177))) + (__make-system-class 'fixnum __tmp103060))) (define bignum::t - (let ((__tmp102178 (cons integer::t '()))) + (let ((__tmp103061 (cons integer::t '()))) (declare (not safe)) - (__make-system-class 'bignum __tmp102178))) + (__make-system-class 'bignum __tmp103061))) (define ratnum::t - (let ((__tmp102179 (cons real::t '()))) + (let ((__tmp103062 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'ratnum __tmp102179))) + (__make-system-class 'ratnum __tmp103062))) (define flonum::t - (let ((__tmp102180 (cons real::t '()))) + (let ((__tmp103063 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'flonum __tmp102180))) + (__make-system-class 'flonum __tmp103063))) (define cpxnum::t - (let ((__tmp102181 (cons number::t '()))) + (let ((__tmp103064 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp102181))) + (__make-system-class 'cpxnum __tmp103064))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp102182 (cons symbolic::t '()))) + (let ((__tmp103065 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp102182))) + (__make-system-class 'symbol __tmp103065))) (define keyword::t - (let ((__tmp102183 (cons symbolic::t '()))) + (let ((__tmp103066 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp102183))) + (__make-system-class 'keyword __tmp103066))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp102184 (cons list::t '()))) + (let ((__tmp103067 (cons list::t '()))) (declare (not safe)) - (__make-system-class 'pair __tmp102184))) + (__make-system-class 'pair __tmp103067))) (define null::t - (let ((__tmp102185 (cons list::t (cons atom::t '())))) + (let ((__tmp103068 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp102185))) + (__make-system-class 'null __tmp103068))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp102186 (cons sequence::t '()))) + (let ((__tmp103069 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp102186))) + (__make-system-class 'vector __tmp103069))) (define string::t - (let ((__tmp102187 (cons sequence::t '()))) + (let ((__tmp103070 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp102187))) + (__make-system-class 'string __tmp103070))) (define hvector::t - (let ((__tmp102188 (cons sequence::t '()))) + (let ((__tmp103071 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp102188))) + (__make-system-class 'hvector __tmp103071))) (define u8vector::t - (let ((__tmp102189 (cons hvector::t '()))) + (let ((__tmp103072 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp102189))) + (__make-system-class 'u8vector __tmp103072))) (define s8vector::t - (let ((__tmp102190 (cons hvector::t '()))) + (let ((__tmp103073 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp102190))) + (__make-system-class 's8vector __tmp103073))) (define u16vector::t - (let ((__tmp102191 (cons hvector::t '()))) + (let ((__tmp103074 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp102191))) + (__make-system-class 'u16vector __tmp103074))) (define s16vector::t - (let ((__tmp102192 (cons hvector::t '()))) + (let ((__tmp103075 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp102192))) + (__make-system-class 's16vector __tmp103075))) (define u32vector::t - (let ((__tmp102193 (cons hvector::t '()))) + (let ((__tmp103076 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp102193))) + (__make-system-class 'u32vector __tmp103076))) (define s32vector::t - (let ((__tmp102194 (cons hvector::t '()))) + (let ((__tmp103077 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp102194))) + (__make-system-class 's32vector __tmp103077))) (define u64vector::t - (let ((__tmp102195 (cons hvector::t '()))) + (let ((__tmp103078 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp102195))) + (__make-system-class 'u64vector __tmp103078))) (define s64vector::t - (let ((__tmp102196 (cons hvector::t '()))) + (let ((__tmp103079 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp102196))) + (__make-system-class 's64vector __tmp103079))) (define f32vector::t - (let ((__tmp102197 (cons hvector::t '()))) + (let ((__tmp103080 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp102197))) + (__make-system-class 'f32vector __tmp103080))) (define f64vector::t - (let ((__tmp102198 (cons hvector::t '()))) + (let ((__tmp103081 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp102198))) + (__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 ((__tmp102199 (macro-type-time))) + (let ((__tmp103082 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp102199))) + (__shadow-class __tmp103082))) (define thread::t - (let ((__tmp102200 (macro-type-thread))) + (let ((__tmp103083 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp102200))) + (__shadow-class __tmp103083))) (define thread-group::t - (let ((__tmp102201 (macro-type-tgroup))) + (let ((__tmp103084 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp102201))) + (__shadow-class __tmp103084))) (define mutex::t - (let ((__tmp102202 (macro-type-mutex))) + (let ((__tmp103085 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp102202))) + (__shadow-class __tmp103085))) (define condvar::t - (let ((__tmp102203 (macro-type-condvar))) + (let ((__tmp103086 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp102203))) + (__shadow-class __tmp103086))) (define port::t - (let ((__tmp102204 (macro-type-port))) + (let ((__tmp103087 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp102204))) + (__shadow-class __tmp103087))) (define object-port::t - (let ((__tmp102205 (macro-type-object-port))) + (let ((__tmp103088 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp102205))) + (__shadow-class __tmp103088))) (define character-port::t - (let ((__tmp102206 (macro-type-character-port))) + (let ((__tmp103089 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp102206))) + (__shadow-class __tmp103089))) (define byte-port::t - (let ((__tmp102207 (macro-type-byte-port))) + (let ((__tmp103090 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp102207))) + (__shadow-class __tmp103090))) (define device-port::t - (let ((__tmp102208 (macro-type-device-port))) + (let ((__tmp103091 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp102208))) + (__shadow-class __tmp103091))) (define vector-port::t - (let ((__tmp102209 (macro-type-vector-port))) + (let ((__tmp103092 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp102209))) + (__shadow-class __tmp103092))) (define string-port::t - (let ((__tmp102210 (macro-type-string-port))) + (let ((__tmp103093 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp102210))) + (__shadow-class __tmp103093))) (define u8vector-port::t - (let ((__tmp102211 (macro-type-u8vector-port))) + (let ((__tmp103094 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp102211))) + (__shadow-class __tmp103094))) (define raw-device-port::t - (let ((__tmp102212 (macro-type-raw-device-port))) + (let ((__tmp103095 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp102212))) + (__shadow-class __tmp103095))) (define tcp-server-port::t - (let ((__tmp102213 (macro-type-tcp-server-port))) + (let ((__tmp103096 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp102213))) + (__shadow-class __tmp103096))) (define udp-port::t - (let ((__tmp102214 (macro-type-udp-port))) + (let ((__tmp103097 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp102214))) + (__shadow-class __tmp103097))) (define directory-port::t - (let ((__tmp102215 (macro-type-directory-port))) + (let ((__tmp103098 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp102215))) + (__shadow-class __tmp103098))) (define event-queue-port::t - (let ((__tmp102216 (macro-type-event-queue-port))) + (let ((__tmp103099 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp102216))) + (__shadow-class __tmp103099))) (define table::t - (let ((__tmp102217 (macro-type-table))) + (let ((__tmp103100 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp102217))) + (__shadow-class __tmp103100))) (define readenv::t - (let ((__tmp102218 (macro-type-readenv))) + (let ((__tmp103101 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp102218))) + (__shadow-class __tmp103101))) (define writeenv::t - (let ((__tmp102219 (macro-type-writeenv))) + (let ((__tmp103102 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp102219))) + (__shadow-class __tmp103102))) (define readtable::t - (let ((__tmp102220 (macro-type-readtable))) + (let ((__tmp103103 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp102220))) + (__shadow-class __tmp103103))) (define processor::t - (let ((__tmp102221 (macro-type-processor))) + (let ((__tmp103104 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp102221))) + (__shadow-class __tmp103104))) (define vm::t - (let ((__tmp102222 (macro-type-vm))) + (let ((__tmp103105 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp102222))) + (__shadow-class __tmp103105))) (define file-info::t - (let ((__tmp102223 (macro-type-file-info))) + (let ((__tmp103106 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp102223))) + (__shadow-class __tmp103106))) (define socket-info::t - (let ((__tmp102224 (macro-type-socket-info))) + (let ((__tmp103107 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp102224))) + (__shadow-class __tmp103107))) (define address-info::t - (let ((__tmp102225 (macro-type-address-info))) + (let ((__tmp103108 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp102225))) + (__shadow-class __tmp103108))) (define atom? - (lambda (_%obj102166%_) - (if (let () (declare (not safe)) (immediate? _%obj102166%_)) - (if (char? _%obj102166%_) '#f (not (fixnum? _%obj102166%_))) + (lambda (_%obj103049%_) + (if (let () (declare (not safe)) (immediate? _%obj103049%_)) + (if (char? _%obj103049%_) '#f (not (fixnum? _%obj103049%_))) '#f))) (define special? - (lambda (_%obj102164%_) - (if (let ((__tmp102226 - (let () (declare (not safe)) (##type _%obj102164%_)))) + (lambda (_%obj103047%_) + (if (let ((__tmp103109 + (let () (declare (not safe)) (##type _%obj103047%_)))) (declare (not safe)) - (##fx= __tmp102226 '2)) - (if (char? _%obj102164%_) + (##fx= __tmp103109 '2)) + (if (char? _%obj103047%_) '#f - (if (null? _%obj102164%_) + (if (null? _%obj103047%_) '#f - (if (boolean? _%obj102164%_) + (if (boolean? _%obj103047%_) '#f - (if (eq? _%obj102164%_ '#!void) + (if (eq? _%obj103047%_ '#!void) '#f - (not (eof-object? _%obj102164%_)))))) + (not (eof-object? _%obj103047%_)))))) '#f))) (define sequence? - (lambda (_%obj102156%_) - (let ((_%$e102158%_ (vector? _%obj102156%_))) - (if _%$e102158%_ - _%$e102158%_ - (let ((_%$e102161%_ (string? _%obj102156%_))) - (if _%$e102161%_ _%$e102161%_ (hvector? _%obj102156%_))))))) + (lambda (_%obj103039%_) + (let ((_%$e103041%_ (vector? _%obj103039%_))) + (if _%$e103041%_ + _%$e103041%_ + (let ((_%$e103044%_ (string? _%obj103039%_))) + (if _%$e103044%_ _%$e103044%_ (hvector? _%obj103039%_))))))) (define hvector? - (lambda (_%obj102127%_) - (let ((_%$e102129%_ (u8vector? _%obj102127%_))) - (if _%$e102129%_ - _%$e102129%_ - (let ((_%$e102132%_ (s8vector? _%obj102127%_))) - (if _%$e102132%_ - _%$e102132%_ - (let ((_%$e102135%_ (u16vector? _%obj102127%_))) - (if _%$e102135%_ - _%$e102135%_ - (let ((_%$e102138%_ (s16vector? _%obj102127%_))) - (if _%$e102138%_ - _%$e102138%_ - (let ((_%$e102141%_ - (u32vector? _%obj102127%_))) - (if _%$e102141%_ - _%$e102141%_ - (let ((_%$e102144%_ - (s32vector? _%obj102127%_))) - (if _%$e102144%_ - _%$e102144%_ - (let ((_%$e102147%_ - (u64vector? _%obj102127%_))) - (if _%$e102147%_ - _%$e102147%_ - (let ((_%$e102150%_ + (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? - _%obj102127%_))) - (if _%$e102150%_ - _%$e102150%_ - (let ((_%$e102153%_ + _%obj103010%_))) + (if _%$e103033%_ + _%$e103033%_ + (let ((_%$e103036%_ (f32vector? - _%obj102127%_))) - (if _%$e102153%_ - _%$e102153%_ + _%obj103010%_))) + (if _%$e103036%_ + _%$e103036%_ (f64vector? - _%obj102127%_))))))))))))))))))))) + _%obj103010%_))))))))))))))))))))) (define weak? - (lambda (_%obj102125%_) - (if (let () (declare (not safe)) (##subtyped? _%obj102125%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj102125%_)) + (lambda (_%obj103008%_) + (if (let () (declare (not safe)) (##subtyped? _%obj103008%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj103008%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj102123%_) - (let ((__tmp102227 - (let ((__tmp102228 (macro-type-object-port))) + (lambda (_%obj103006%_) + (let ((__tmp103110 + (let ((__tmp103111 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp102228)))) + (##type-id __tmp103111)))) (declare (not safe)) - (##structure-instance-of? _%obj102123%_ __tmp102227)))) + (##structure-instance-of? _%obj103006%_ __tmp103110)))) (define character-port? - (lambda (_%obj102121%_) - (let ((__tmp102229 - (let ((__tmp102230 (macro-type-character-port))) + (lambda (_%obj103004%_) + (let ((__tmp103112 + (let ((__tmp103113 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp102230)))) + (##type-id __tmp103113)))) (declare (not safe)) - (##structure-instance-of? _%obj102121%_ __tmp102229)))) + (##structure-instance-of? _%obj103004%_ __tmp103112)))) (define device-port? - (lambda (_%obj102119%_) - (let ((__tmp102231 - (let ((__tmp102232 (macro-type-device-port))) + (lambda (_%obj103002%_) + (let ((__tmp103114 + (let ((__tmp103115 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp102232)))) + (##type-id __tmp103115)))) (declare (not safe)) - (##structure-instance-of? _%obj102119%_ __tmp102231)))) + (##structure-instance-of? _%obj103002%_ __tmp103114)))) (define vector-port? - (lambda (_%obj102117%_) - (let ((__tmp102233 - (let ((__tmp102234 (macro-type-vector-port))) + (lambda (_%obj103000%_) + (let ((__tmp103116 + (let ((__tmp103117 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp102234)))) + (##type-id __tmp103117)))) (declare (not safe)) - (##structure-instance-of? _%obj102117%_ __tmp102233)))) + (##structure-instance-of? _%obj103000%_ __tmp103116)))) (define string-port? - (lambda (_%obj102115%_) - (let ((__tmp102235 - (let ((__tmp102236 (macro-type-string-port))) + (lambda (_%obj102998%_) + (let ((__tmp103118 + (let ((__tmp103119 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp102236)))) + (##type-id __tmp103119)))) (declare (not safe)) - (##structure-instance-of? _%obj102115%_ __tmp102235)))) + (##structure-instance-of? _%obj102998%_ __tmp103118)))) (define u8vector-port? - (lambda (_%obj102113%_) - (let ((__tmp102237 - (let ((__tmp102238 (macro-type-u8vector-port))) + (lambda (_%obj102996%_) + (let ((__tmp103120 + (let ((__tmp103121 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp102238)))) + (##type-id __tmp103121)))) (declare (not safe)) - (##structure-instance-of? _%obj102113%_ __tmp102237)))) + (##structure-instance-of? _%obj102996%_ __tmp103120)))) (define raw-device-port? - (lambda (_%obj102111%_) - (let ((__tmp102239 - (let ((__tmp102240 (macro-type-raw-device-port))) + (lambda (_%obj102994%_) + (let ((__tmp103122 + (let ((__tmp103123 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp102240)))) + (##type-id __tmp103123)))) (declare (not safe)) - (##structure-instance-of? _%obj102111%_ __tmp102239)))) + (##structure-instance-of? _%obj102994%_ __tmp103122)))) (define tcp-server-port? - (lambda (_%obj102109%_) - (let ((__tmp102241 - (let ((__tmp102242 (macro-type-tcp-server-port))) + (lambda (_%obj102992%_) + (let ((__tmp103124 + (let ((__tmp103125 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp102242)))) + (##type-id __tmp103125)))) (declare (not safe)) - (##structure-instance-of? _%obj102109%_ __tmp102241)))) + (##structure-instance-of? _%obj102992%_ __tmp103124)))) (define udp-port? - (lambda (_%obj102107%_) - (let ((__tmp102243 - (let ((__tmp102244 (macro-type-udp-port))) + (lambda (_%obj102990%_) + (let ((__tmp103126 + (let ((__tmp103127 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp102244)))) + (##type-id __tmp103127)))) (declare (not safe)) - (##structure-instance-of? _%obj102107%_ __tmp102243)))) + (##structure-instance-of? _%obj102990%_ __tmp103126)))) (define directory-port? - (lambda (_%obj102105%_) - (let ((__tmp102245 - (let ((__tmp102246 (macro-type-directory-port))) + (lambda (_%obj102988%_) + (let ((__tmp103128 + (let ((__tmp103129 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp102246)))) + (##type-id __tmp103129)))) (declare (not safe)) - (##structure-instance-of? _%obj102105%_ __tmp102245)))) + (##structure-instance-of? _%obj102988%_ __tmp103128)))) (define event-queue-port? - (lambda (_%obj102103%_) - (let ((__tmp102247 - (let ((__tmp102248 (macro-type-event-queue-port))) + (lambda (_%obj102986%_) + (let ((__tmp103130 + (let ((__tmp103131 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp102248)))) + (##type-id __tmp103131)))) (declare (not safe)) - (##structure-instance-of? _%obj102103%_ __tmp102247)))) + (##structure-instance-of? _%obj102986%_ __tmp103130)))) (define readenv? - (lambda (_%obj102101%_) - (let ((__tmp102249 - (let ((__tmp102250 (macro-type-readenv))) + (lambda (_%obj102984%_) + (let ((__tmp103132 + (let ((__tmp103133 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp102250)))) + (##type-id __tmp103133)))) (declare (not safe)) - (##structure-instance-of? _%obj102101%_ __tmp102249)))) + (##structure-instance-of? _%obj102984%_ __tmp103132)))) (define writeenv? - (lambda (_%obj102099%_) - (let ((__tmp102251 - (let ((__tmp102252 (macro-type-writeenv))) + (lambda (_%obj102982%_) + (let ((__tmp103134 + (let ((__tmp103135 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp102252)))) + (##type-id __tmp103135)))) (declare (not safe)) - (##structure-instance-of? _%obj102099%_ __tmp102251)))) + (##structure-instance-of? _%obj102982%_ __tmp103134)))) (define vm? - (lambda (_%obj102097%_) - (let ((__tmp102253 - (let ((__tmp102254 (macro-type-vm))) + (lambda (_%obj102980%_) + (let ((__tmp103136 + (let ((__tmp103137 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp102254)))) + (##type-id __tmp103137)))) (declare (not safe)) - (##structure-instance-of? _%obj102097%_ __tmp102253)))))) + (##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 a91191e0b..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]#_g102255_| + (define |[1]#_g103138_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx101882%_) - (let* ((_%g101885101923%_ - (lambda (_%g101886101919%_) + (lambda (_%stx102765%_) + (let* ((_%g102768102806%_ + (lambda (_%g102769102802%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101886101919%_))) - (_%g101884102092%_ - (lambda (_%g101886101927%_) - (if (gx#stx-pair? _%g101886101927%_) - (let ((_%e101891101930%_ (gx#syntax-e _%g101886101927%_))) - (let ((_%hd101892101934%_ + _%g102769102802%_))) + (_%g102767102975%_ + (lambda (_%g102769102810%_) + (if (gx#stx-pair? _%g102769102810%_) + (let ((_%e102774102813%_ (gx#syntax-e _%g102769102810%_))) + (let ((_%hd102775102817%_ (let () (declare (not safe)) - (##car _%e101891101930%_))) - (_%tl101893101937%_ + (##car _%e102774102813%_))) + (_%tl102776102820%_ (let () (declare (not safe)) - (##cdr _%e101891101930%_)))) - (if (gx#stx-pair? _%tl101893101937%_) - (let ((_%e101894101940%_ - (gx#syntax-e _%tl101893101937%_))) - (let ((_%hd101895101944%_ + (##cdr _%e102774102813%_)))) + (if (gx#stx-pair? _%tl102776102820%_) + (let ((_%e102777102823%_ + (gx#syntax-e _%tl102776102820%_))) + (let ((_%hd102778102827%_ (let () (declare (not safe)) - (##car _%e101894101940%_))) - (_%tl101896101947%_ + (##car _%e102777102823%_))) + (_%tl102779102830%_ (let () (declare (not safe)) - (##cdr _%e101894101940%_)))) - (if (gx#stx-pair? _%hd101895101944%_) - (let ((_%e101897101950%_ - (gx#syntax-e _%hd101895101944%_))) - (let ((_%hd101898101954%_ + (##cdr _%e102777102823%_)))) + (if (gx#stx-pair? _%hd102778102827%_) + (let ((_%e102780102833%_ + (gx#syntax-e _%hd102778102827%_))) + (let ((_%hd102781102837%_ (let () (declare (not safe)) - (##car _%e101897101950%_))) - (_%tl101899101957%_ + (##car _%e102780102833%_))) + (_%tl102782102840%_ (let () (declare (not safe)) - (##cdr _%e101897101950%_)))) - (if (gx#stx-pair? _%tl101899101957%_) - (let ((_%e101900101960%_ + (##cdr _%e102780102833%_)))) + (if (gx#stx-pair? _%tl102782102840%_) + (let ((_%e102783102843%_ (gx#syntax-e - _%tl101899101957%_))) - (let ((_%hd101901101964%_ + _%tl102782102840%_))) + (let ((_%hd102784102847%_ (let () (declare (not safe)) - (##car _%e101900101960%_))) - (_%tl101902101967%_ + (##car _%e102783102843%_))) + (_%tl102785102850%_ (let () (declare (not safe)) - (##cdr _%e101900101960%_)))) + (##cdr _%e102783102843%_)))) (if (gx#stx-null? - _%tl101902101967%_) + _%tl102785102850%_) (if (gx#stx-pair? - _%tl101896101947%_) - (let ((_%e101903101970%_ + _%tl102779102830%_) + (let ((_%e102786102853%_ (gx#syntax-e - _%tl101896101947%_))) - (let ((_%hd101904101974%_ + _%tl102779102830%_))) + (let ((_%hd102787102857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e101903101970%_))) - (_%tl101905101977%_ + (##car _%e102786102853%_))) + (_%tl102788102860%_ (let () (declare (not safe)) - (##cdr _%e101903101970%_)))) - (if (gx#identifier? _%hd101904101974%_) + (##cdr _%e102786102853%_)))) + (if (gx#identifier? _%hd102787102857%_) (if (gx#free-identifier=? - |[1]#_g102255_| - _%hd101904101974%_) - (if (gx#stx-pair? _%tl101905101977%_) - (let ((_%e101906101980%_ - (gx#syntax-e _%tl101905101977%_))) - (let ((_%hd101907101984%_ + |[1]#_g103138_| + _%hd102787102857%_) + (if (gx#stx-pair? _%tl102788102860%_) + (let ((_%e102789102863%_ + (gx#syntax-e _%tl102788102860%_))) + (let ((_%hd102790102867%_ (let () (declare (not safe)) - (##car _%e101906101980%_))) - (_%tl101908101987%_ + (##car _%e102789102863%_))) + (_%tl102791102870%_ (let () (declare (not safe)) - (##cdr _%e101906101980%_)))) - (if (gx#stx-pair/null? _%tl101908101987%_) - (let ((_g102256_ + (##cdr _%e102789102863%_)))) + (if (gx#stx-pair/null? _%tl102791102870%_) + (let ((_g103139_ (gx#syntax-split-splice - _%tl101908101987%_ + _%tl102791102870%_ '0))) (begin - (let ((_g102257_ + (let ((_g103140_ (let () (declare (not safe)) - (if (##values? _g102256_) + (if (##values? _g103139_) (##values-length - _g102256_) + _g103139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g102257_ 2))) + (##fx= _g103140_ 2))) (error "Context expects 2 values" - _g102257_))) - (let ((_%target101909101990%_ + _g103140_))) + (let ((_%target102792102873%_ (let () (declare (not safe)) (##values-ref - _g102256_ + _g103139_ 0))) - (_%tl101911101993%_ + (_%tl102794102876%_ (let () (declare (not safe)) (##values-ref - _g102256_ + _g103139_ 1)))) (if (gx#stx-null? - _%tl101911101993%_) - (letrec ((_%loop101912101996%_ - (lambda (_%hd101910102000%_ + _%tl102794102876%_) + (letrec ((_%loop102795102879%_ + (lambda (_%hd102793102883%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body101916102003%_) - (if (gx#stx-pair? _%hd101910102000%_) - (let ((_%e101913102006%_ - (gx#syntax-e _%hd101910102000%_))) - (let ((_%lp-hd101914102010%_ + _%body102799102886%_) + (if (gx#stx-pair? _%hd102793102883%_) + (let ((_%e102796102889%_ + (gx#syntax-e _%hd102793102883%_))) + (let ((_%lp-hd102797102893%_ (let () (declare (not safe)) - (##car _%e101913102006%_))) - (_%lp-tl101915102013%_ + (##car _%e102796102889%_))) + (_%lp-tl102798102896%_ (let () (declare (not safe)) - (##cdr _%e101913102006%_)))) - (_%loop101912101996%_ - _%lp-tl101915102013%_ - (cons _%lp-hd101914102010%_ - _%body101916102003%_)))) - (let ((_%body101917102016%_ - (reverse _%body101916102003%_))) - ((lambda (_%L102020%_ - _%L102022%_ - _%L102023%_ - _%L102024%_) - (let* ((_%g102053102061%_ - (lambda (_%g102054102057%_) + (##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" - _%g102054102057%_))) - (_%g102052102088%_ - (lambda (_%g102054102065%_) - ((lambda (_%L102068%_) + _%g102937102940%_))) + (_%g102935102971%_ + (lambda (_%g102937102948%_) + ((lambda (_%L102951%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L102024%_ + (cons _%L102907%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L102068%_ '())) + (cons _%L102951%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L102023%_ '()) - (let ((__tmp102258 - (lambda (_%g102079102082%_ + (cons (cons _%L102906%_ '()) + (let ((__tmp103141 + (lambda (_%g102962102965%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102080102085%_) - (cons _%g102079102082%_ _%g102080102085%_)))) + _%g102963102968%_) + (cons _%g102962102965%_ _%g102963102968%_)))) (declare (not safe)) - (__foldr1 __tmp102258 '() _%L102020%_)))) + (__foldr1 __tmp103141 '() _%L102903%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g102054102065%_)))) - (_%g102052102088%_ + _%g102937102948%_)))) + (_%g102935102971%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx101882%_ - _%L102022%_))))) - _%body101917102016%_ - _%hd101907101984%_ - _%hd101901101964%_ - _%hd101898101954%_)))))) + _%stx102765%_ + _%L102905%_))))) + _%body102800102899%_ + _%hd102790102867%_ + _%hd102784102847%_ + _%hd102781102837%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop101912101996%_ - _%target101909101990%_ + (_%loop102795102879%_ + _%target102792102873%_ '())) - (_%g101885101923%_ - _%g101886101927%_))))) - (_%g101885101923%_ - _%g101886101927%_)))) - (_%g101885101923%_ _%g101886101927%_)) - (_%g101885101923%_ _%g101886101927%_)) - (_%g101885101923%_ _%g101886101927%_)))) - (_%g101885101923%_ _%g101886101927%_)) + (_%g102768102806%_ + _%g102769102810%_))))) + (_%g102768102806%_ + _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)) + (_%g102768102806%_ _%g102769102810%_)) + (_%g102768102806%_ _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g101885101923%_ - _%g101886101927%_)))) - (_%g101885101923%_ - _%g101886101927%_)))) - (_%g101885101923%_ _%g101886101927%_)))) - (_%g101885101923%_ _%g101886101927%_)))) - (_%g101885101923%_ _%g101886101927%_))))) - (_%g101884102092%_ _%stx101882%_))))) + (_%g102768102806%_ + _%g102769102810%_)))) + (_%g102768102806%_ + _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_))))) + (_%g102767102975%_ _%stx102765%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index 53cee43fd..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 1734131745) + (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 ((_%flags100265%_ + (let ((_%flags101148%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties100266%_ '((direct-slots:) (system: . #t))) - (_%slot-table100267%_ + (_%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 - _%flags100265%_ + _%flags101148%_ '#f '#() '() '#(#f) - _%slot-table100267%_ - _%properties100266%_ + _%slot-table101150%_ + _%properties101149%_ '#f '#f)))) (define class::t - (let* ((_%slots100241%_ + (let* ((_%slots101124%_ '(id name super flags @@ -48,122 +48,122 @@ properties constructor methods)) - (_%slot-vector100243%_ (list->vector (cons '#f _%slots100241%_))) - (_%slot-table100250%_ - (let ((_%slot-table100245%_ + (_%slot-vector101126%_ (list->vector (cons '#f _%slots101124%_))) + (_%slot-table101133%_ + (let ((_%slot-table101128%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101708 - (lambda (_%slot100247%_ _%field100248%_) + (let ((__tmp102591 + (lambda (_%slot101130%_ _%field101131%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table100245%_ - _%slot100247%_ - _%field100248%_)) - (let ((__tmp101709 + _%slot-table101128%_ + _%slot101130%_ + _%field101131%_)) + (let ((__tmp102592 (let () (declare (not safe)) - (symbol->keyword _%slot100247%_)))) + (symbol->keyword _%slot101130%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table100245%_ - __tmp101709 - _%field100248%_)))) - (__tmp101706 - (let ((__tmp101707 + _%slot-table101128%_ + __tmp102592 + _%field101131%_)))) + (__tmp102589 + (let ((__tmp102590 (let () (declare (not safe)) - (##length _%slots100241%_)))) + (##length _%slots101124%_)))) (declare (not safe)) - (##iota __tmp101707 '1)))) + (##iota __tmp102590 '1)))) (declare (not safe)) - (##for-each __tmp101708 _%slots100241%_ __tmp101706)) - _%slot-table100245%_)) - (_%flags100252%_ + (##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))) - (_%fields100258%_ + (_%fields101141%_ (list->vector - (let ((__tmp101710 - (map (lambda (_%g100253100255%_) - (list _%g100253100255%_ '5 '#f)) - (drop _%slots100241%_ '5)))) + (let ((__tmp102593 + (map (lambda (_%g101136101138%_) + (list _%g101136101138%_ '5 '#f)) + (drop _%slots101124%_ '5)))) (declare (not safe)) - (##apply append __tmp101710)))) - (_%properties100260%_ + (##apply append __tmp102593)))) + (_%properties101143%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots100241%_))) + (__foldr1 cons '() _%slots101124%_))) (cons (cons 'struct: '#t) '()))) - (_%t100262%_ - (let ((__tmp101711 (cons t::t '()))) + (_%t101145%_ + (let ((__tmp102594 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags100252%_ + _%flags101135%_ ##type-type - _%fields100258%_ - __tmp101711 - _%slot-vector100243%_ - _%slot-table100250%_ - _%properties100260%_ + _%fields101141%_ + __tmp102594 + _%slot-vector101126%_ + _%slot-table101133%_ + _%properties101143%_ '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t100262%_ _%t100262%_)) - _%t100262%_)) + (##structure-type-set! _%t101145%_ _%t101145%_)) + _%t101145%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags100237%_ + (let ((_%flags101120%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties100238%_ '((direct-slots:) (system: . #t))) - (_%slot-table100239%_ + (_%properties101121%_ '((direct-slots:) (system: . #t))) + (_%slot-table101122%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101712 (cons t::t '()))) + (let ((__tmp102595 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags100237%_ + _%flags101120%_ '#f '#() - __tmp101712 + __tmp102595 '#(#f) - _%slot-table100239%_ - _%properties100238%_ + _%slot-table101122%_ + _%properties101121%_ '#f '#f)))) (define class-type? - (lambda (_%obj100235%_) + (lambda (_%obj101118%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj100235%_ 'class)))) + (##structure-instance-of? _%obj101118%_ 'class)))) (define class-type=? - (lambda (_%x100210%_ _%y100211%_) + (lambda (_%x101093%_ _%y101094%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%x100210%_ 'class)) - (let ((_%x100215%_ _%x100210%_)) + (##structure-instance-of? _%x101093%_ 'class)) + (let ((_%x101098%_ _%x101093%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%y100211%_ 'class)) - (let ((_%y100225%_ _%y100211%_)) - (__class-type=? _%x100215%_ _%y100225%_)) + (##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: - _%y100211%_) + _%y101094%_) '#!void))) (begin (raise-contract-violation-error @@ -182,22 +182,22 @@ 'contract: 'class-type? 'value: - _%x100210%_) + _%x101093%_) '#!void)))) (define __class-type=? - (lambda (_%x100189%_ _%y100190%_) - (let* ((_%x100193%_ _%x100189%_) (_%y100201%_ _%y100190%_)) + (lambda (_%x101072%_ _%y101073%_) + (let* ((_%x101076%_ _%x101072%_) (_%y101084%_ _%y101073%_)) (eq? (let () (declare (not safe)) - (##unchecked-structure-ref _%x100193%_ '1 '#f '#f)) + (##unchecked-structure-ref _%x101076%_ '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-ref _%y100201%_ '1 '#f '#f)))))) + (##unchecked-structure-ref _%y101084%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type100175%_) - (if (let () (declare (not safe)) (##type? _%type100175%_)) - (let ((_%type100179%_ _%type100175%_)) - (__type-opaque? _%type100179%_)) + (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: - _%type100175%_) + _%type101058%_) '#!void)))) (define __type-opaque? - (lambda (_%type100163%_) - (let* ((_%type100166%_ _%type100163%_) - (__tmp101713 - (let ((__tmp101714 + (lambda (_%type101046%_) + (let* ((_%type101049%_ _%type101046%_) + (__tmp102596 + (let ((__tmp102597 (let () (declare (not safe)) - (##type-flags _%type100166%_)))) + (##type-flags _%type101049%_)))) (declare (not safe)) - (##fxand __tmp101714 type-flag-opaque)))) + (##fxand __tmp102597 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp101713 type-flag-opaque)))) + (##fx= __tmp102596 type-flag-opaque)))) (define type-extensible? - (lambda (_%type100149%_) - (if (let () (declare (not safe)) (##type? _%type100149%_)) - (let ((_%type100153%_ _%type100149%_)) - (__type-extensible? _%type100153%_)) + (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: - _%type100149%_) + _%type101032%_) '#!void)))) (define __type-extensible? - (lambda (_%type100137%_) - (let* ((_%type100140%_ _%type100137%_) - (__tmp101715 - (let ((__tmp101716 + (lambda (_%type101020%_) + (let* ((_%type101023%_ _%type101020%_) + (__tmp102598 + (let ((__tmp102599 (let () (declare (not safe)) - (##type-flags _%type100140%_)))) + (##type-flags _%type101023%_)))) (declare (not safe)) - (##fxand __tmp101716 type-flag-extensible)))) + (##fxand __tmp102599 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101715 type-flag-extensible)))) + (##fx= __tmp102598 type-flag-extensible)))) (define class-type-final? - (lambda (_%type100123%_) + (lambda (_%type101006%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type100123%_ 'class)) - (let ((_%type100127%_ _%type100123%_)) - (__class-type-final? _%type100127%_)) + (##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: - _%type100123%_) + _%type101006%_) '#!void)))) (define __class-type-final? - (lambda (_%type100111%_) - (let* ((_%type100114%_ _%type100111%_) - (__tmp101717 - (let ((__tmp101718 + (lambda (_%type100994%_) + (let* ((_%type100997%_ _%type100994%_) + (__tmp102600 + (let ((__tmp102601 (let () (declare (not safe)) - (##type-flags _%type100114%_)))) + (##type-flags _%type100997%_)))) (declare (not safe)) - (##fxand __tmp101718 type-flag-extensible)))) + (##fxand __tmp102601 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101717 '0)))) + (##fx= __tmp102600 '0)))) (define class-type-struct? - (lambda (_%klass100097%_) + (lambda (_%klass100980%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass100097%_ 'class)) - (let ((_%klass100101%_ _%klass100097%_)) - (__class-type-struct? _%klass100101%_)) + (##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: - _%klass100097%_) + _%klass100980%_) '#!void)))) (define __class-type-struct? - (lambda (_%klass100085%_) - (let* ((_%klass100088%_ _%klass100085%_) - (__tmp101719 - (let ((__tmp101720 + (lambda (_%klass100968%_) + (let* ((_%klass100971%_ _%klass100968%_) + (__tmp102602 + (let ((__tmp102603 (let () (declare (not safe)) - (##type-flags _%klass100088%_)))) + (##type-flags _%klass100971%_)))) (declare (not safe)) - (##fxand __tmp101720 class-type-flag-struct)))) + (##fxand __tmp102603 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp101719 class-type-flag-struct)))) + (##fx= __tmp102602 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass100071%_) + (lambda (_%klass100954%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass100071%_ 'class)) - (let ((_%klass100075%_ _%klass100071%_)) - (__class-type-sealed? _%klass100075%_)) + (##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: - _%klass100071%_) + _%klass100954%_) '#!void)))) (define __class-type-sealed? - (lambda (_%klass100059%_) - (let* ((_%klass100062%_ _%klass100059%_) - (__tmp101721 - (let ((__tmp101722 + (lambda (_%klass100942%_) + (let* ((_%klass100945%_ _%klass100942%_) + (__tmp102604 + (let ((__tmp102605 (let () (declare (not safe)) - (##type-flags _%klass100062%_)))) + (##type-flags _%klass100945%_)))) (declare (not safe)) - (##fxand __tmp101722 class-type-flag-sealed)))) + (##fxand __tmp102605 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp101721 class-type-flag-sealed)))) + (##fx= __tmp102604 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass100045%_) + (lambda (_%klass100928%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass100045%_ 'class)) - (let ((_%klass100049%_ _%klass100045%_)) - (__class-type-metaclass? _%klass100049%_)) + (##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: - _%klass100045%_) + _%klass100928%_) '#!void)))) (define __class-type-metaclass? - (lambda (_%klass100033%_) - (let* ((_%klass100036%_ _%klass100033%_) - (__tmp101723 - (let ((__tmp101724 + (lambda (_%klass100916%_) + (let* ((_%klass100919%_ _%klass100916%_) + (__tmp102606 + (let ((__tmp102607 (let () (declare (not safe)) - (##type-flags _%klass100036%_)))) + (##type-flags _%klass100919%_)))) (declare (not safe)) - (##fxand __tmp101724 class-type-flag-metaclass)))) + (##fxand __tmp102607 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp101723 class-type-flag-metaclass)))) + (##fx= __tmp102606 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass100019%_) + (lambda (_%klass100902%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass100019%_ 'class)) - (let ((_%klass100023%_ _%klass100019%_)) - (__class-type-system? _%klass100023%_)) + (##structure-instance-of? _%klass100902%_ 'class)) + (let ((_%klass100906%_ _%klass100902%_)) + (__class-type-system? _%klass100906%_)) (begin (raise-contract-violation-error '"contract violation" @@ -378,577 +378,594 @@ 'contract: 'class-type? 'value: - _%klass100019%_) + _%klass100902%_) '#!void)))) (define __class-type-system? - (lambda (_%klass100007%_) - (let* ((_%klass100010%_ _%klass100007%_) - (__tmp101725 - (let ((__tmp101726 + (lambda (_%klass100890%_) + (let* ((_%klass100893%_ _%klass100890%_) + (__tmp102608 + (let ((__tmp102609 (let () (declare (not safe)) - (##type-flags _%klass100010%_)))) + (##type-flags _%klass100893%_)))) (declare (not safe)) - (##fxand __tmp101726 class-type-flag-system)))) + (##fxand __tmp102609 class-type-flag-system)))) (declare (not safe)) - (##fx= __tmp101725 class-type-flag-system)))) + (##fx= __tmp102608 class-type-flag-system)))) (define make-class-type-descriptor - (lambda (_%type-id99889%_ - _%type-name99890%_ - _%type-super99891%_ - _%precedence-list99892%_ - _%slot-vector99893%_ - _%properties99894%_ - _%constructor99895%_ - _%slot-table99896%_ - _%methods99897%_) - (letrec ((_%make-props!99900%_ - (lambda (_%key99976%_) - (letrec* ((_%ht99978%_ + (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!99979%_ - (lambda (_%ht100000%_ _%slots100001%_) + (_%put-slots!100862%_ + (lambda (_%ht100883%_ _%slots100884%_) (for-each - (lambda (_%g100002100004%_) + (lambda (_%g100885100887%_) (let () (declare (not safe)) (symbolic-table-set! - _%ht100000%_ - _%g100002100004%_ + _%ht100883%_ + _%g100885100887%_ '#t))) - _%slots100001%_))) - (_%put-alist!99980%_ - (lambda (_%ht99989%_ - _%key99990%_ - _%alist99991%_) - (let ((_%$e99993%_ + _%slots100884%_))) + (_%put-alist!100863%_ + (lambda (_%ht100872%_ + _%key100873%_ + _%alist100874%_) + (let ((_%$e100876%_ (let () (declare (not safe)) (agetq__0 - _%key99990%_ - _%alist99991%_)))) - (if _%$e99993%_ - ((lambda (_%g9999599997%_) - (_%put-slots!99979%_ - _%ht99989%_ - _%g9999599997%_)) - _%$e99993%_) + _%key100873%_ + _%alist100874%_)))) + (if _%$e100876%_ + ((lambda (_%g100878100880%_) + (_%put-slots!100862%_ + _%ht100872%_ + _%g100878100880%_)) + _%$e100876%_) '#!void))))) - (_%put-alist!99980%_ - _%ht99978%_ - _%key99976%_ - _%properties99894%_) + (_%put-alist!100863%_ + _%ht100861%_ + _%key100859%_ + _%properties100777%_) (for-each - (lambda (_%mixin99982%_) - (let ((_%alist99984%_ + (lambda (_%mixin100865%_) + (let ((_%alist100867%_ (##structure-ref - _%mixin99982%_ + _%mixin100865%_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (agetq__0 'transparent: _%alist99984%_)) + (agetq__0 'transparent: _%alist100867%_)) (eq? '#t (let () (declare (not safe)) (agetq__0 - _%key99976%_ - _%alist99984%_)))) - (_%put-slots!99979%_ - _%ht99978%_ - (class-type-slot-list _%mixin99982%_)) - (_%put-alist!99980%_ - _%ht99978%_ - _%key99976%_ - _%alist99984%_)))) - _%precedence-list99892%_) - _%ht99978%_)))) - (let* ((_%transparent?99902%_ + _%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: _%properties99894%_))) - (_%all-slots-printable?99907%_ - (let ((_%$e99904%_ _%transparent?99902%_)) - (if _%$e99904%_ - _%$e99904%_ + (agetq__0 'transparent: _%properties100777%_))) + (_%all-slots-printable?100790%_ + (let ((_%$e100787%_ _%transparent?100785%_)) + (if _%$e100787%_ + _%$e100787%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'print: _%properties99894%_)))))) - (_%printable99909%_ - (if (not _%all-slots-printable?99907%_) - (_%make-props!99900%_ 'print:) + (agetq__0 'print: _%properties100777%_)))))) + (_%printable100792%_ + (if (not _%all-slots-printable?100790%_) + (_%make-props!100783%_ 'print:) '#f)) - (_%all-slots-equalable?99914%_ - (let ((_%$e99911%_ _%transparent?99902%_)) - (if _%$e99911%_ - _%$e99911%_ + (_%all-slots-equalable?100797%_ + (let ((_%$e100794%_ _%transparent?100785%_)) + (if _%$e100794%_ + _%$e100794%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'equal: _%properties99894%_)))))) - (_%equalable99916%_ - (if (not _%all-slots-equalable?99914%_) - (_%make-props!99900%_ 'equal:) + (agetq__0 'equal: _%properties100777%_)))))) + (_%equalable100799%_ + (if (not _%all-slots-equalable?100797%_) + (_%make-props!100783%_ 'equal:) '#f)) - (_%first-new-field99918%_ + (_%first-new-field100801%_ (if (let () (declare (not safe)) - (##structure-instance-of? _%type-super99891%_ 'class)) - (let ((__tmp101727 + (##structure-instance-of? _%type-super100774%_ 'class)) + (let ((__tmp102610 (let () (declare (not safe)) (##unchecked-structure-ref - _%type-super99891%_ + _%type-super100774%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101727)) + (##vector-length __tmp102610)) '1)) - (_%field-info-length99920%_ - (let ((__tmp101728 - (let ((__tmp101729 + (_%field-info-length100803%_ + (let ((__tmp102611 + (let ((__tmp102612 (let () (declare (not safe)) - (##vector-length _%slot-vector99893%_)))) + (##vector-length _%slot-vector100776%_)))) (declare (not safe)) - (##fx- __tmp101729 _%first-new-field99918%_)))) + (##fx- __tmp102612 _%first-new-field100801%_)))) (declare (not safe)) - (##fx* '3 __tmp101728))) - (_%field-info99922%_ + (##fx* '3 __tmp102611))) + (_%field-info100805%_ (let () (declare (not safe)) - (##make-vector _%field-info-length99920%_ '#f))) - (_%struct?99924%_ + (##make-vector _%field-info-length100803%_ '#f))) + (_%struct?100807%_ (let () (declare (not safe)) - (agetq__0 'struct: _%properties99894%_))) - (_%final?99926%_ + (agetq__0 'struct: _%properties100777%_))) + (_%final?100809%_ (let () (declare (not safe)) - (agetq__0 'final: _%properties99894%_))) - (_%metaclass99934%_ - (let ((_%metaclass9992799929%_ + (agetq__0 'final: _%properties100777%_))) + (_%metaclass100817%_ + (let ((_%metaclass100810100812%_ (let () (declare (not safe)) - (agetq__0 'metaclass: _%properties99894%_)))) - (if _%metaclass9992799929%_ - (let ((_%metaclass99932%_ _%metaclass9992799929%_)) + (agetq__0 'metaclass: _%properties100777%_)))) + (if _%metaclass100810100812%_ + (let ((_%metaclass100815%_ _%metaclass100810100812%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%metaclass99932%_ + _%metaclass100815%_ 'class)) '#!void (error '"metaclass is not a class type" 'class: - _%type-id99889%_ + _%type-id100772%_ 'metaclass: - _%metaclass99932%_)) - _%metaclass99932%_) + _%metaclass100815%_)) + _%metaclass100815%_) '#f))) - (_%system?99936%_ + (_%system?100819%_ (let () (declare (not safe)) - (agetq__0 'system: _%properties99894%_))) - (_%opaque?99944%_ - (if (or _%transparent?99902%_ + (agetq__0 'system: _%properties100777%_))) + (_%opaque?100827%_ + (if (or _%transparent?100785%_ (let () (declare (not safe)) - (agetq__0 'equal: _%properties99894%_))) + (agetq__0 'equal: _%properties100777%_))) '#f - (let ((_%$e99941%_ (not _%type-super99891%_))) - (if _%$e99941%_ - _%$e99941%_ - (__type-opaque? _%type-super99891%_))))) - (_%type-flags99946%_ - (let ((__tmp101734 - (if _%final?99926%_ '0 type-flag-extensible)) - (__tmp101733 (if _%opaque?99944%_ type-flag-opaque '0)) - (__tmp101732 - (if _%struct?99924%_ class-type-flag-struct '0)) - (__tmp101731 - (if _%metaclass99934%_ class-type-flag-metaclass '0)) - (__tmp101730 - (if _%system?99936%_ class-type-flag-system '0))) + (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 - __tmp101734 - __tmp101733 - __tmp101732 - __tmp101731 - __tmp101730))) - (_%precedence-list99954%_ - (let ((_%$e99948%_ (memq t::t _%precedence-list99892%_))) - (if _%$e99948%_ - ((lambda (_%tail99951%_) - (if (null? (cdr _%tail99951%_)) - _%precedence-list99892%_ + __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-list99892%_))) - _%$e99948%_) - (let ((__tmp101735 (cons t::t '()))) + _%precedence-list100775%_))) + _%$e100831%_) + (let ((__tmp102618 (cons t::t '()))) (declare (not safe)) - (##append _%precedence-list99892%_ __tmp101735)))))) - (let _%loop99957%_ ((_%i99959%_ _%first-new-field99918%_) - (_%j99960%_ '0)) + (##append _%precedence-list100775%_ __tmp102618)))))) + (let _%loop100840%_ ((_%i100842%_ _%first-new-field100801%_) + (_%j100843%_ '0)) (if (let () (declare (not safe)) - (##fx< _%j99960%_ _%field-info-length99920%_)) - (let* ((_%slot99962%_ + (##fx< _%j100843%_ _%field-info-length100803%_)) + (let* ((_%slot100845%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector99893%_ _%i99959%_))) - (_%flags99970%_ - (if _%transparent?99902%_ + (##vector-ref _%slot-vector100776%_ _%i100842%_))) + (_%flags100853%_ + (if _%transparent?100785%_ '0 - (let ((__tmp101737 - (if (or _%all-slots-printable?99907%_ + (let ((__tmp102620 + (if (or _%all-slots-printable?100790%_ (let () (declare (not safe)) (symbolic-table-ref - _%printable99909%_ - _%slot99962%_ + _%printable100792%_ + _%slot100845%_ '#f))) '0 '1)) - (__tmp101736 - (if (or _%all-slots-equalable?99914%_ + (__tmp102619 + (if (or _%all-slots-equalable?100797%_ (let () (declare (not safe)) (symbolic-table-ref - _%equalable99916%_ - _%slot99962%_ + _%equalable100799%_ + _%slot100845%_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp101737 __tmp101736))))) - (vector-set! _%field-info99922%_ _%j99960%_ _%slot99962%_) + (##fxior __tmp102620 __tmp102619))))) (vector-set! - _%field-info99922%_ - (let () (declare (not safe)) (##fx+ _%j99960%_ '1)) - _%flags99970%_) - (_%loop99957%_ - (let () (declare (not safe)) (##fx+ _%i99959%_ '1)) - (let () (declare (not safe)) (##fx+ _%j99960%_ '3)))) + _%field-info100805%_ + _%j100843%_ + _%slot100845%_) + (vector-set! + _%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 _%metaclass99934%_ - (let ((_%val99973%_ + (if _%metaclass100817%_ + (let ((_%val100856%_ (make-instance - _%metaclass99934%_ - _%type-id99889%_ - _%type-name99890%_ - _%type-flags99946%_ - _%type-super99891%_ - _%field-info99922%_ - _%precedence-list99954%_ - _%slot-vector99893%_ - _%slot-table99896%_ - _%properties99894%_ - _%constructor99895%_ - _%methods99897%_))) + _%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? _%val99973%_ 'class)) - _%val99973%_ - (error '"bad cast" class::t _%val99973%_))) + (##structure-instance-of? _%val100856%_ 'class)) + _%val100856%_ + (error '"bad cast" class::t _%val100856%_))) (let () (declare (not safe)) (##structure class::t - _%type-id99889%_ - _%type-name99890%_ - _%type-flags99946%_ - _%type-super99891%_ - _%field-info99922%_ - _%precedence-list99954%_ - _%slot-vector99893%_ - _%slot-table99896%_ - _%properties99894%_ - _%constructor99895%_ - _%methods99897%_))))))) + _%type-id100772%_ + _%type-name100773%_ + _%type-flags100829%_ + _%type-super100774%_ + _%field-info100805%_ + _%precedence-list100837%_ + _%slot-vector100776%_ + _%slot-table100779%_ + _%properties100777%_ + _%constructor100778%_ + _%methods100780%_))))))) (define class-type-id - (lambda (_%klass99887%_) - (##structure-ref _%klass99887%_ '1 class::t 'id))) + (lambda (_%klass100770%_) + (##structure-ref _%klass100770%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass99885%_) + (lambda (_%klass100768%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99885%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass100768%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass99882%_ _%val99883%_) - (##structure-set! _%klass99882%_ _%val99883%_ '1 class::t 'id))) + (lambda (_%klass100765%_ _%val100766%_) + (##structure-set! _%klass100765%_ _%val100766%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass99877%_ _%val99879%_) + (lambda (_%klass100760%_ _%val100762%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99877%_ - _%val99879%_ + _%klass100760%_ + _%val100762%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass99875%_) - (##structure-ref _%klass99875%_ '2 class::t 'name))) + (lambda (_%klass100758%_) + (##structure-ref _%klass100758%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass99873%_) + (lambda (_%klass100756%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99873%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass100756%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass99870%_ _%val99871%_) - (##structure-set! _%klass99870%_ _%val99871%_ '2 class::t 'name))) + (lambda (_%klass100753%_ _%val100754%_) + (##structure-set! _%klass100753%_ _%val100754%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass99865%_ _%val99867%_) + (lambda (_%klass100748%_ _%val100750%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99865%_ - _%val99867%_ + _%klass100748%_ + _%val100750%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass99863%_) - (##structure-ref _%klass99863%_ '3 class::t 'flags))) + (lambda (_%klass100746%_) + (##structure-ref _%klass100746%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass99861%_) + (lambda (_%klass100744%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99861%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass100744%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass99858%_ _%val99859%_) - (##structure-set! _%klass99858%_ _%val99859%_ '3 class::t 'flags))) + (lambda (_%klass100741%_ _%val100742%_) + (##structure-set! _%klass100741%_ _%val100742%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass99853%_ _%val99855%_) + (lambda (_%klass100736%_ _%val100738%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99853%_ - _%val99855%_ + _%klass100736%_ + _%val100738%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass99851%_) - (##structure-ref _%klass99851%_ '4 class::t 'super))) + (lambda (_%klass100734%_) + (##structure-ref _%klass100734%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass99849%_) + (lambda (_%klass100732%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99849%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass100732%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass99846%_ _%val99847%_) - (##structure-set! _%klass99846%_ _%val99847%_ '4 class::t 'super))) + (lambda (_%klass100729%_ _%val100730%_) + (##structure-set! _%klass100729%_ _%val100730%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass99841%_ _%val99843%_) + (lambda (_%klass100724%_ _%val100726%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99841%_ - _%val99843%_ + _%klass100724%_ + _%val100726%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass99839%_) - (##structure-ref _%klass99839%_ '5 class::t 'fields))) + (lambda (_%klass100722%_) + (##structure-ref _%klass100722%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass99837%_) + (lambda (_%klass100720%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99837%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass100720%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass99834%_ _%val99835%_) - (##structure-set! _%klass99834%_ _%val99835%_ '5 class::t 'fields))) + (lambda (_%klass100717%_ _%val100718%_) + (##structure-set! _%klass100717%_ _%val100718%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass99829%_ _%val99831%_) + (lambda (_%klass100712%_ _%val100714%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99829%_ - _%val99831%_ + _%klass100712%_ + _%val100714%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass99827%_) - (##structure-ref _%klass99827%_ '6 class::t 'precedence-list))) + (lambda (_%klass100710%_) + (##structure-ref _%klass100710%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass99825%_) + (lambda (_%klass100708%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99825%_ + _%klass100708%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass99822%_ _%val99823%_) + (lambda (_%klass100705%_ _%val100706%_) (##structure-set! - _%klass99822%_ - _%val99823%_ + _%klass100705%_ + _%val100706%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass99817%_ _%val99819%_) + (lambda (_%klass100700%_ _%val100702%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99817%_ - _%val99819%_ + _%klass100700%_ + _%val100702%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass99815%_) - (##structure-ref _%klass99815%_ '7 class::t 'slot-vector))) + (lambda (_%klass100698%_) + (##structure-ref _%klass100698%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass99813%_) + (lambda (_%klass100696%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99813%_ + _%klass100696%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass99810%_ _%val99811%_) + (lambda (_%klass100693%_ _%val100694%_) (##structure-set! - _%klass99810%_ - _%val99811%_ + _%klass100693%_ + _%val100694%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass99805%_ _%val99807%_) + (lambda (_%klass100688%_ _%val100690%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99805%_ - _%val99807%_ + _%klass100688%_ + _%val100690%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass99803%_) - (##structure-ref _%klass99803%_ '8 class::t 'slot-table))) + (lambda (_%klass100686%_) + (##structure-ref _%klass100686%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass99801%_) + (lambda (_%klass100684%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99801%_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref + _%klass100684%_ + '8 + class::t + 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass99798%_ _%val99799%_) + (lambda (_%klass100681%_ _%val100682%_) (##structure-set! - _%klass99798%_ - _%val99799%_ + _%klass100681%_ + _%val100682%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass99793%_ _%val99795%_) + (lambda (_%klass100676%_ _%val100678%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99793%_ - _%val99795%_ + _%klass100676%_ + _%val100678%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass99791%_) - (##structure-ref _%klass99791%_ '9 class::t 'properties))) + (lambda (_%klass100674%_) + (##structure-ref _%klass100674%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass99789%_) + (lambda (_%klass100672%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99789%_ '9 class::t 'properties)))) + (##unchecked-structure-ref + _%klass100672%_ + '9 + class::t + 'properties)))) (define class-type-properties-set! - (lambda (_%klass99786%_ _%val99787%_) + (lambda (_%klass100669%_ _%val100670%_) (##structure-set! - _%klass99786%_ - _%val99787%_ + _%klass100669%_ + _%val100670%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass99781%_ _%val99783%_) + (lambda (_%klass100664%_ _%val100666%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99781%_ - _%val99783%_ + _%klass100664%_ + _%val100666%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass99779%_) - (##structure-ref _%klass99779%_ '10 class::t 'constructor))) + (lambda (_%klass100662%_) + (##structure-ref _%klass100662%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass99777%_) + (lambda (_%klass100660%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99777%_ + _%klass100660%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass99774%_ _%val99775%_) + (lambda (_%klass100657%_ _%val100658%_) (##structure-set! - _%klass99774%_ - _%val99775%_ + _%klass100657%_ + _%val100658%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass99769%_ _%val99771%_) + (lambda (_%klass100652%_ _%val100654%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99769%_ - _%val99771%_ + _%klass100652%_ + _%val100654%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass99767%_) - (##structure-ref _%klass99767%_ '11 class::t 'methods))) + (lambda (_%klass100650%_) + (##structure-ref _%klass100650%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass99765%_) + (lambda (_%klass100648%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99765%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass100648%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass99762%_ _%val99763%_) - (##structure-set! _%klass99762%_ _%val99763%_ '11 class::t 'methods))) + (lambda (_%klass100645%_ _%val100646%_) + (##structure-set! + _%klass100645%_ + _%val100646%_ + '11 + class::t + 'methods))) (define &class-type-methods-set! - (lambda (_%klass99757%_ _%val99759%_) + (lambda (_%klass100640%_ _%val100642%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99757%_ - _%val99759%_ + _%klass100640%_ + _%val100642%_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_%klass99743%_) + (lambda (_%klass100626%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99743%_ 'class)) - (let ((_%klass99747%_ _%klass99743%_)) - (__class-type-slot-list _%klass99747%_)) + (##structure-instance-of? _%klass100626%_ 'class)) + (let ((_%klass100630%_ _%klass100626%_)) + (__class-type-slot-list _%klass100630%_)) (begin (raise-contract-violation-error '"contract violation" @@ -957,22 +974,22 @@ 'contract: 'class-type? 'value: - _%klass99743%_) + _%klass100626%_) '#!void)))) (define __class-type-slot-list - (lambda (_%klass99731%_) - (let ((_%klass99734%_ _%klass99731%_)) + (lambda (_%klass100614%_) + (let ((_%klass100617%_ _%klass100614%_)) (cdr (vector->list (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99734%_ '7 '#f '#f))))))) + (##unchecked-structure-ref _%klass100617%_ '7 '#f '#f))))))) (define class-type-field-count - (lambda (_%klass99717%_) + (lambda (_%klass100600%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99717%_ 'class)) - (let ((_%klass99721%_ _%klass99717%_)) - (__class-type-field-count _%klass99721%_)) + (##structure-instance-of? _%klass100600%_ 'class)) + (let ((_%klass100604%_ _%klass100600%_)) + (__class-type-field-count _%klass100604%_)) (begin (raise-contract-violation-error '"contract violation" @@ -981,31 +998,31 @@ 'contract: 'class-type? 'value: - _%klass99717%_) + _%klass100600%_) '#!void)))) (define __class-type-field-count - (lambda (_%klass99705%_) - (let* ((_%klass99708%_ _%klass99705%_) - (__tmp101738 - (let ((__tmp101739 + (lambda (_%klass100588%_) + (let* ((_%klass100591%_ _%klass100588%_) + (__tmp102621 + (let ((__tmp102622 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99708%_ + _%klass100591%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101739)))) + (##vector-length __tmp102622)))) (declare (not safe)) - (##fx- __tmp101738 '1)))) + (##fx- __tmp102621 '1)))) (define class-type-seal! - (lambda (_%klass99691%_) + (lambda (_%klass100574%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99691%_ 'class)) - (let ((_%klass99695%_ _%klass99691%_)) - (__class-type-seal! _%klass99695%_)) + (##structure-instance-of? _%klass100574%_ 'class)) + (let ((_%klass100578%_ _%klass100574%_)) + (__class-type-seal! _%klass100578%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1014,42 +1031,42 @@ 'contract: 'class-type? 'value: - _%klass99691%_) + _%klass100574%_) '#!void)))) (define __class-type-seal! - (lambda (_%klass99679%_) - (let ((_%klass99682%_ _%klass99679%_)) - (let ((__tmp101740 - (let ((__tmp101741 + (lambda (_%klass100562%_) + (let ((_%klass100565%_ _%klass100562%_)) + (let ((__tmp102623 + (let ((__tmp102624 (let () (declare (not safe)) - (##type-flags _%klass99682%_)))) + (##type-flags _%klass100565%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp101741)))) + (##fxior class-type-flag-sealed __tmp102624)))) (declare (not safe)) (##unchecked-structure-set! - _%klass99682%_ - __tmp101740 + _%klass100565%_ + __tmp102623 '3 class::t class-type-seal!)) '#!void))) (define substruct? - (lambda (_%maybe-sub-struct99654%_ _%maybe-super-struct99655%_) + (lambda (_%maybe-sub-struct100537%_ _%maybe-super-struct100538%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct99654%_ 'class)) - (let ((_%maybe-sub-struct99659%_ _%maybe-sub-struct99654%_)) + (##structure-instance-of? _%maybe-sub-struct100537%_ 'class)) + (let ((_%maybe-sub-struct100542%_ _%maybe-sub-struct100537%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-struct99655%_ + _%maybe-super-struct100538%_ 'class)) - (let ((_%maybe-super-struct99669%_ - _%maybe-super-struct99655%_)) + (let ((_%maybe-super-struct100552%_ + _%maybe-super-struct100538%_)) (__substruct? - _%maybe-sub-struct99659%_ - _%maybe-super-struct99669%_)) + _%maybe-sub-struct100542%_ + _%maybe-super-struct100552%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1058,7 +1075,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-struct99655%_) + _%maybe-super-struct100538%_) '#!void))) (begin (raise-contract-violation-error @@ -1068,288 +1085,302 @@ 'contract: 'class-type? 'value: - _%maybe-sub-struct99654%_) + _%maybe-sub-struct100537%_) '#!void)))) (define __substruct? - (lambda (_%maybe-sub-struct99623%_ _%maybe-super-struct99624%_) - (let* ((_%maybe-sub-struct99627%_ _%maybe-sub-struct99623%_) - (_%maybe-super-struct99635%_ _%maybe-super-struct99624%_) - (_%maybe-super-struct-id99644%_ + (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-struct99635%_)))) - (let _%lp99646%_ ((_%super-struct99648%_ _%maybe-sub-struct99627%_)) - (if (not _%super-struct99648%_) + (##type-id _%maybe-super-struct100518%_)))) + (let _%lp100529%_ ((_%super-struct100531%_ + _%maybe-sub-struct100510%_)) + (if (not _%super-struct100531%_) '#f - (if (eq? _%maybe-super-struct-id99644%_ + (if (eq? _%maybe-super-struct-id100527%_ (let () (declare (not safe)) - (##type-id _%super-struct99648%_))) + (##type-id _%super-struct100531%_))) '#t - (_%lp99646%_ + (_%lp100529%_ (let () (declare (not safe)) - (##type-super _%super-struct99648%_))))))))) + (##type-super _%super-struct100531%_))))))))) (define base-struct/1 - (lambda (_%klass99618%_) + (lambda (_%klass100501%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99618%_ 'class)) - (if (__class-type-struct? _%klass99618%_) - _%klass99618%_ - (let () (declare (not safe)) (##type-super _%klass99618%_))) - (if (not _%klass99618%_) + (##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" _%klass99618%_))))) + (error '"not a class or false" _%klass100501%_))))) (define base-struct/2 - (lambda (_%klass199603%_ _%klass299604%_) - (let ((_%s199606%_ (base-struct/1 _%klass199603%_)) - (_%s299607%_ (base-struct/1 _%klass299604%_))) - (if (or (not _%s199606%_) - (and _%s299607%_ (substruct? _%s199606%_ _%s299607%_))) - _%s299607%_ - (if (or (not _%s299607%_) - (and _%s199606%_ (substruct? _%s299607%_ _%s199606%_))) - _%s199606%_ + (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" - _%klass199603%_ - _%klass299604%_ - _%s199606%_ - _%s299607%_)))))) + _%klass1100486%_ + _%klass2100487%_ + _%s1100489%_ + _%s2100490%_)))))) (define base-struct/list - (lambda (_%all-supers99487%_) - (let* ((_%all-supers9948899513%_ _%all-supers99487%_) - (_%E9949399517%_ + (lambda (_%all-supers100370%_) + (let* ((_%all-supers100371100396%_ _%all-supers100370%_) + (_%E100376100400%_ (lambda () (error '"No clause matching" - _%all-supers9948899513%_ + _%all-supers100371100396%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K9951199600%_ (lambda () '#f)) - (_%K9950899586%_ - (lambda (_%x99584%_) (base-struct/1 _%x99584%_))) - (_%K9950399563%_ - (lambda (_%y99560%_ _%x99561%_) - (base-struct/2 _%x99561%_ _%y99560%_))) - (_%K9949499524%_ - (lambda (_%y99521%_ _%x99522%_) + (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 _%x99522%_ _%y99521%_))))) - (let* ((_%__match101700101701%_ - (lambda (_%hd9949599527%_ _%tl9949699529%_) - (let ((_%x99532%_ _%hd9949599527%_)) - (letrec ((_%splice-rest9949899534%_ - (lambda (_%rest9950299541%_ _%y99543%_) - (if (null? _%rest9950299541%_) - (_%K9949499524%_ _%y99543%_ _%x99532%_) - (_%E9949399517%_)))) - (_%splice-try9950099536%_ - (lambda (_%hd9950199545%_ - _%rest9950299547%_ - _%y9949799548%_) - (let ((_%y99551%_ _%hd9950199545%_)) - (_%splice-loop9949999538%_ + (__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 _%rest9950299547%_)) - (cons _%y99551%_ _%y9949799548%_))))) - (_%splice-loop9949999538%_ - (lambda (_%rest9950299553%_ _%y9949799554%_) - (if (pair? _%rest9950299553%_) - (_%splice-try9950099536%_ + (##cdr _%rest100385100430%_)) + (cons _%y100434%_ _%y100380100431%_))))) + (_%splice-loop100382100421%_ + (lambda (_%rest100385100436%_ + _%y100380100437%_) + (if (pair? _%rest100385100436%_) + (_%splice-try100383100419%_ (let () (declare (not safe)) - (##car _%rest9950299553%_)) - _%rest9950299553%_ - _%y9949799554%_) - (_%splice-rest9949899534%_ - _%rest9950299553%_ - (reverse _%y9949799554%_)))))) - (_%splice-loop9949999538%_ _%tl9949699529%_ '()))))) - (_%try-match9949099596%_ + (##car _%rest100385100436%_)) + _%rest100385100436%_ + _%y100380100437%_) + (_%splice-rest100381100417%_ + _%rest100385100436%_ + (reverse _%y100380100437%_)))))) + (_%splice-loop100382100421%_ + _%tl100379100412%_ + '()))))) + (_%try-match100373100479%_ (lambda () - (if (pair? _%all-supers9948899513%_) - (let ((_%tl9951099591%_ + (if (pair? _%all-supers100371100396%_) + (let ((_%tl100393100474%_ (let () (declare (not safe)) - (##cdr _%all-supers9948899513%_))) - (_%hd9950999589%_ + (##cdr _%all-supers100371100396%_))) + (_%hd100392100472%_ (let () (declare (not safe)) - (##car _%all-supers9948899513%_)))) - (if (null? _%tl9951099591%_) - (let ((_%x99594%_ _%hd9950999589%_)) - (base-struct/1 _%x99594%_)) - (if (pair? _%tl9951099591%_) - (let ((_%tl9950799575%_ + (##car _%all-supers100371100396%_)))) + (if (null? _%tl100393100474%_) + (let ((_%x100477%_ _%hd100392100472%_)) + (base-struct/1 _%x100477%_)) + (if (pair? _%tl100393100474%_) + (let ((_%tl100390100458%_ (let () (declare (not safe)) - (##cdr _%tl9951099591%_))) - (_%hd9950699573%_ + (##cdr _%tl100393100474%_))) + (_%hd100389100456%_ (let () (declare (not safe)) - (##car _%tl9951099591%_)))) - (if (null? _%tl9950799575%_) - (let ((_%x99571%_ _%hd9950999589%_) - (_%y99578%_ _%hd9950699573%_)) - (_%K9950399563%_ - _%y99578%_ - _%x99571%_)) - (_%__match101700101701%_ - _%hd9950999589%_ - _%tl9951099591%_))) - (_%__match101700101701%_ - _%hd9950999589%_ - _%tl9951099591%_)))) - (_%E9949399517%_))))) - (if (null? _%all-supers9948899513%_) - (_%K9951199600%_) - (_%try-match9949099596%_))))))) + (##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-supers99485%_ (base-struct/list _%all-supers99485%_))) + (lambda _%all-supers100368%_ (base-struct/list _%all-supers100368%_))) (define find-super-constructor - (lambda (_%super99436%_) - (let _%lp99438%_ ((_%rest99440%_ _%super99436%_) - (_%constructor99441%_ '#f)) - (let* ((_%rest9944299450%_ _%rest99440%_) - (_%else9944499458%_ (lambda () _%constructor99441%_)) - (_%K9944699473%_ - (lambda (_%rest99461%_ _%hd99462%_) - (let ((_%$e99464%_ + (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 - _%hd99462%_ + _%hd100345%_ '10 '#f '#f)))) - (if _%$e99464%_ - ((lambda (_%xconstructor99467%_) - (if (or (not _%constructor99441%_) - (eq? _%constructor99441%_ - _%xconstructor99467%_)) - (_%lp99438%_ - _%rest99461%_ - _%xconstructor99467%_) + (if _%$e100347%_ + ((lambda (_%xconstructor100350%_) + (if (or (not _%constructor100324%_) + (eq? _%constructor100324%_ + _%xconstructor100350%_)) + (_%lp100321%_ + _%rest100344%_ + _%xconstructor100350%_) (error '"conflicting implicit constructors" - _%constructor99441%_ - _%xconstructor99467%_))) - _%$e99464%_) - (_%lp99438%_ _%rest99461%_ _%constructor99441%_)))))) - (if (pair? _%rest9944299450%_) - (let ((_%hd9944799476%_ + _%constructor100324%_ + _%xconstructor100350%_))) + _%$e100347%_) + (_%lp100321%_ + _%rest100344%_ + _%constructor100324%_)))))) + (if (pair? _%rest100325100333%_) + (let ((_%hd100330100359%_ (let () (declare (not safe)) - (##car _%rest9944299450%_))) - (_%tl9944899478%_ + (##car _%rest100325100333%_))) + (_%tl100331100361%_ (let () (declare (not safe)) - (##cdr _%rest9944299450%_)))) - (let* ((_%hd99481%_ _%hd9944799476%_) - (_%rest99483%_ _%tl9944899478%_)) - (_%K9944699473%_ _%rest99483%_ _%hd99481%_))) - (_%else9944499458%_)))))) + (##cdr _%rest100325100333%_)))) + (let* ((_%hd100364%_ _%hd100330100359%_) + (_%rest100366%_ _%tl100331100361%_)) + (_%K100329100356%_ _%rest100366%_ _%hd100364%_))) + (_%else100327100341%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list99412%_ _%direct-slots99413%_) - (let* ((_%next-slot99415%_ '1) - (_%slot-table99417%_ + (lambda (_%class-precedence-list100295%_ _%direct-slots100296%_) + (let* ((_%next-slot100298%_ '1) + (_%slot-table100300%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots99419%_ '(__class)) - (_%process-slot99423%_ - (lambda (_%slot99421%_) - (if (symbol? _%slot99421%_) + (_%r-slots100302%_ '(__class)) + (_%process-slot100306%_ + (lambda (_%slot100304%_) + (if (symbol? _%slot100304%_) '#!void - (error '"invalid slot name" _%slot99421%_)) + (error '"invalid slot name" _%slot100304%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table99417%_ - _%slot99421%_ + _%slot-table100300%_ + _%slot100304%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table99417%_ - _%slot99421%_ - _%next-slot99415%_)) - (let ((__tmp101742 + _%slot-table100300%_ + _%slot100304%_ + _%next-slot100298%_)) + (let ((__tmp102625 (let () (declare (not safe)) - (symbol->keyword _%slot99421%_)))) + (symbol->keyword _%slot100304%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table99417%_ - __tmp101742 - _%next-slot99415%_)) - (set! _%r-slots99419%_ - (cons _%slot99421%_ _%r-slots99419%_)) - (set! _%next-slot99415%_ + _%slot-table100300%_ + __tmp102625 + _%next-slot100298%_)) + (set! _%r-slots100302%_ + (cons _%slot100304%_ _%r-slots100302%_)) + (set! _%next-slot100298%_ (let () (declare (not safe)) - (##fx+ _%next-slot99415%_ '1)))) + (##fx+ _%next-slot100298%_ '1)))) '#!void))) - (_%process-slots99429%_ - (lambda (_%g9942499426%_) - (for-each _%process-slot99423%_ _%g9942499426%_)))) - (let ((__tmp101744 - (lambda (_%mixin99432%_) - (_%process-slots99429%_ - (let ((__tmp101745 + (_%process-slots100312%_ + (lambda (_%g100307100309%_) + (for-each _%process-slot100306%_ _%g100307100309%_)))) + (let ((__tmp102627 + (lambda (_%mixin100315%_) + (_%process-slots100312%_ + (let ((__tmp102628 (let () (declare (not safe)) (##unchecked-structure-ref - _%mixin99432%_ + _%mixin100315%_ '9 '#f '#f)))) (declare (not safe)) - (agetq__% 'direct-slots: __tmp101745 '()))))) - (__tmp101743 (reverse _%class-precedence-list99412%_))) + (agetq__% 'direct-slots: __tmp102628 '()))))) + (__tmp102626 (reverse _%class-precedence-list100295%_))) (declare (not safe)) - (##for-each __tmp101744 __tmp101743)) - (_%process-slots99429%_ _%direct-slots99413%_) - (let ((_%slot-vector99434%_ + (##for-each __tmp102627 __tmp102626)) + (_%process-slots100312%_ _%direct-slots100296%_) + (let ((_%slot-vector100317%_ (list->vector - (let () (declare (not safe)) (##reverse _%r-slots99419%_))))) - (values _%slot-vector99434%_ _%slot-table99417%_))))) + (let () + (declare (not safe)) + (##reverse _%r-slots100302%_))))) + (values _%slot-vector100317%_ _%slot-table100300%_))))) (define make-class-type - (lambda (_%id99337%_ - _%name99338%_ - _%direct-supers99339%_ - _%direct-slots99340%_ - _%properties99341%_ - _%constructor99342%_) - (if (symbol? _%id99337%_) - (let ((_%id99346%_ _%id99337%_)) - (if (symbol? _%name99338%_) - (let ((_%name99356%_ _%name99338%_)) - (if (list? _%direct-supers99339%_) - (let ((_%direct-supers99366%_ _%direct-supers99339%_)) - (if (list? _%direct-slots99340%_) - (let ((_%direct-slots99376%_ - _%direct-slots99340%_)) - (if (list? _%properties99341%_) - (let ((_%properties99386%_ - _%properties99341%_)) - (if ((lambda (_%$obj99395%_) - (or (not _%$obj99395%_) - (symbol? _%$obj99395%_))) - _%constructor99342%_) - (let ((_%constructor99402%_ - _%constructor99342%_)) + (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 - _%id99346%_ - _%name99356%_ - _%direct-supers99366%_ - _%direct-slots99376%_ - _%properties99386%_ - _%constructor99402%_)) + _%id100229%_ + _%name100239%_ + _%direct-supers100249%_ + _%direct-slots100259%_ + _%properties100269%_ + _%constructor100285%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1358,7 +1389,7 @@ 'contract: '(? (or not symbol?)) 'value: - _%constructor99342%_) + _%constructor100225%_) '#!void))) (begin (raise-contract-violation-error @@ -1368,7 +1399,7 @@ 'contract: 'list? 'value: - _%properties99341%_) + _%properties100224%_) '#!void))) (begin (raise-contract-violation-error @@ -1378,7 +1409,7 @@ 'contract: 'list? 'value: - _%direct-slots99340%_) + _%direct-slots100223%_) '#!void))) (begin (raise-contract-violation-error @@ -1388,7 +1419,7 @@ 'contract: 'list? 'value: - _%direct-supers99339%_) + _%direct-supers100222%_) '#!void))) (begin (raise-contract-violation-error @@ -1398,7 +1429,7 @@ 'contract: 'symbol? 'value: - _%name99338%_) + _%name100221%_) '#!void))) (begin (raise-contract-violation-error @@ -1408,165 +1439,170 @@ 'contract: 'symbol? 'value: - _%id99337%_) + _%id100220%_) '#!void)))) (define __make-class-type - (lambda (_%id99206%_ - _%name99207%_ - _%direct-supers99208%_ - _%direct-slots99209%_ - _%properties99210%_ - _%constructor99211%_) - (let* ((_%id99214%_ _%id99206%_) - (_%name99222%_ _%name99207%_) - (_%direct-supers99230%_ _%direct-supers99208%_) - (_%direct-slots99238%_ _%direct-slots99209%_) - (_%properties99246%_ _%properties99210%_) - (_%constructor99254%_ _%constructor99211%_)) - (let ((_%$e99266%_ - (let ((__tmp101746 - (lambda (_%$obj99263%_) + (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? - _%$obj99263%_ + _%$obj100146%_ 'class)))))) (declare (not safe)) - (__find __tmp101746 _%direct-supers99230%_)))) - (if _%$e99266%_ - ((lambda (_%g9926899270%_) + (__find __tmp102629 _%direct-supers100113%_)))) + (if _%$e100149%_ + ((lambda (_%g100151100153%_) (error '"Illegal super class; not a class descriptor" - _%g9926899270%_)) - _%$e99266%_) - (let ((_%$e99273%_ + _%g100151100153%_)) + _%$e100149%_) + (let ((_%$e100156%_ (let () (declare (not safe)) - (__find __class-type-final? _%direct-supers99230%_)))) - (if _%$e99273%_ - ((lambda (_%g9927599277%_) - (error '"Cannot extend final class" _%g9927599277%_)) - _%$e99273%_) + (__find __class-type-final? + _%direct-supers100113%_)))) + (if _%$e100156%_ + ((lambda (_%g100158100160%_) + (error '"Cannot extend final class" + _%g100158100160%_)) + _%$e100156%_) '#!void)))) - (let ((_g101747_ (compute-precedence-list _%direct-supers99230%_))) + (let ((_g102630_ (compute-precedence-list _%direct-supers100113%_))) (begin - (let ((_g101748_ + (let ((_g102631_ (let () (declare (not safe)) - (if (##values? _g101747_) - (##values-length _g101747_) + (if (##values? _g102630_) + (##values-length _g102630_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101748_ 2))) - (error "Context expects 2 values" _g101748_))) - (let ((_%precedence-list99280%_ - (let () (declare (not safe)) (##values-ref _g101747_ 0))) - (_%struct-super99281%_ - (let () (declare (not safe)) (##values-ref _g101747_ 1)))) - (let ((_g101749_ + (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-list99280%_ - _%direct-slots99238%_))) + _%precedence-list100163%_ + _%direct-slots100121%_))) (begin - (let ((_g101750_ + (let ((_g102633_ (let () (declare (not safe)) - (if (##values? _g101749_) - (##values-length _g101749_) + (if (##values? _g102632_) + (##values-length _g102632_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101750_ 2))) - (error "Context expects 2 values" _g101750_))) - (let ((_%slot-vector99283%_ + (##fx= _g102633_ 2))) + (error "Context expects 2 values" _g102633_))) + (let ((_%slot-vector100166%_ (let () (declare (not safe)) - (##values-ref _g101749_ 0))) - (_%slot-table99284%_ + (##values-ref _g102632_ 0))) + (_%slot-table100167%_ (let () (declare (not safe)) - (##values-ref _g101749_ 1)))) - (let* ((_%properties99286%_ - (cons (cons 'direct-slots: _%direct-slots99238%_) + (##values-ref _g102632_ 1)))) + (let* ((_%properties100169%_ + (cons (cons 'direct-slots: + _%direct-slots100121%_) (cons (cons 'direct-supers: - _%direct-supers99230%_) - _%properties99246%_))) - (_%constructor*99291%_ - (let ((_%$e99288%_ _%constructor99254%_)) - (if _%$e99288%_ - _%$e99288%_ + _%direct-supers100113%_) + _%properties100129%_))) + (_%constructor*100174%_ + (let ((_%$e100171%_ _%constructor100137%_)) + (if _%$e100171%_ + _%$e100171%_ (find-super-constructor - _%direct-supers99230%_)))) - (_%precedence-list99334%_ + _%direct-supers100113%_)))) + (_%precedence-list100217%_ (if (or (let () (declare (not safe)) (agetq__0 'system: - _%properties99286%_)) + _%properties100169%_)) (memq object::t - _%precedence-list99280%_)) - _%precedence-list99280%_ - (let _%loop99296%_ ((_%tail99298%_ - _%precedence-list99280%_) - (_%head99299%_ '())) - (let* ((_%tail9930099308%_ _%tail99298%_) - (_%else9930299316%_ + _%precedence-list100163%_)) + _%precedence-list100163%_ + (let _%loop100179%_ ((_%tail100181%_ + _%precedence-list100163%_) + (_%head100182%_ '())) + (let* ((_%tail100183100191%_ + _%tail100181%_) + (_%else100185100199%_ (lambda () - (let ((__tmp101751 + (let ((__tmp102634 (cons object::t (cons t::t '())))) (declare (not safe)) (__foldl1 cons - __tmp101751 - _%head99299%_)))) - (_%K9930499322%_ - (lambda (_%rest99319%_ _%hd99320%_) - (if (eq? _%hd99320%_ t::t) - (let ((__tmp101752 + __tmp102634 + _%head100182%_)))) + (_%K100187100205%_ + (lambda (_%rest100202%_ + _%hd100203%_) + (if (eq? _%hd100203%_ t::t) + (let ((__tmp102635 (cons object::t - _%tail99298%_))) + _%tail100181%_))) (declare (not safe)) (__foldl1 cons - __tmp101752 - _%head99299%_)) - (_%loop99296%_ - _%rest99319%_ - (cons _%hd99320%_ - _%head99299%_)))))) - (if (pair? _%tail9930099308%_) - (let ((_%hd9930599325%_ + __tmp102635 + _%head100182%_)) + (_%loop100179%_ + _%rest100202%_ + (cons _%hd100203%_ + _%head100182%_)))))) + (if (pair? _%tail100183100191%_) + (let ((_%hd100188100208%_ (let () (declare (not safe)) - (##car _%tail9930099308%_))) - (_%tl9930699327%_ + (##car _%tail100183100191%_))) + (_%tl100189100210%_ (let () (declare (not safe)) - (##cdr _%tail9930099308%_)))) - (let* ((_%hd99330%_ - _%hd9930599325%_) - (_%rest99332%_ - _%tl9930699327%_)) - (_%K9930499322%_ - _%rest99332%_ - _%hd99330%_))) - (_%else9930299316%_))))))) + (##cdr _%tail100183100191%_)))) + (let* ((_%hd100213%_ + _%hd100188100208%_) + (_%rest100215%_ + _%tl100189100210%_)) + (_%K100187100205%_ + _%rest100215%_ + _%hd100213%_))) + (_%else100185100199%_))))))) (make-class-type-descriptor - _%id99214%_ - _%name99222%_ - _%struct-super99281%_ - _%precedence-list99334%_ - _%slot-vector99283%_ - _%properties99286%_ - _%constructor*99291%_ - _%slot-table99284%_ + _%id100097%_ + _%name100105%_ + _%struct-super100164%_ + _%precedence-list100217%_ + _%slot-vector100166%_ + _%properties100169%_ + _%constructor*100174%_ + _%slot-table100167%_ '#f))))))))))) (define class-precedence-list - (lambda (_%klass99192%_) + (lambda (_%klass100075%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99192%_ 'class)) - (let ((_%klass99196%_ _%klass99192%_)) - (__class-precedence-list _%klass99196%_)) + (##structure-instance-of? _%klass100075%_ 'class)) + (let ((_%klass100079%_ _%klass100075%_)) + (__class-precedence-list _%klass100079%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1575,17 +1611,17 @@ 'contract: 'class-type? 'value: - _%klass99192%_) + _%klass100075%_) '#!void)))) (define __class-precedence-list - (lambda (_%klass99180%_) - (let ((_%klass99183%_ _%klass99180%_)) - (cons _%klass99183%_ + (lambda (_%klass100063%_) + (let ((_%klass100066%_ _%klass100063%_)) + (cons _%klass100066%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99183%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass100066%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers99177%_) + (lambda (_%direct-supers100060%_) (let () (declare (not safe)) (c4-linearize__% @@ -1595,14 +1631,14 @@ eq? ##type-name '() - _%direct-supers99177%_)))) + _%direct-supers100060%_)))) (define make-class-predicate - (lambda (_%klass99163%_) + (lambda (_%klass100046%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99163%_ 'class)) - (let ((_%klass99167%_ _%klass99163%_)) - (__make-class-predicate _%klass99167%_)) + (##structure-instance-of? _%klass100046%_ 'class)) + (let ((_%klass100050%_ _%klass100046%_)) + (__make-class-predicate _%klass100050%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1611,36 +1647,38 @@ 'contract: 'class-type? 'value: - _%klass99163%_) + _%klass100046%_) '#!void)))) (define __make-class-predicate - (lambda (_%klass99134%_) - (let* ((_%klass99137%_ _%klass99134%_) - (_%tid99146%_ - (let () (declare (not safe)) (##type-id _%klass99137%_)))) - (if (__class-type-final? _%klass99137%_) - (lambda (_%g9914899150%_) + (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? - _%g9914899150%_ - _%tid99146%_))) - (if (__class-type-struct? _%klass99137%_) - (lambda (_%g9915399155%_) + _%g100031100033%_ + _%tid100029%_))) + (if (__class-type-struct? _%klass100020%_) + (lambda (_%g100036100038%_) (let () (declare (not safe)) - (##structure-instance-of? _%g9915399155%_ _%tid99146%_))) - (lambda (_%g9915899160%_) - (__class-instance? _%klass99137%_ _%g9915899160%_))))))) + (##structure-instance-of? + _%g100036100038%_ + _%tid100029%_))) + (lambda (_%g100041100043%_) + (__class-instance? _%klass100020%_ _%g100041100043%_))))))) (define make-class-slot-accessor - (lambda (_%klass99109%_ _%slot99110%_) + (lambda (_%klass99992%_ _%slot99993%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99109%_ 'class)) - (let ((_%klass99114%_ _%klass99109%_)) - (if (symbol? _%slot99110%_) - (let ((_%slot99124%_ _%slot99110%_)) - (__make-class-slot-accessor _%klass99114%_ _%slot99124%_)) + (##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" @@ -1649,7 +1687,7 @@ 'contract: 'symbol? 'value: - _%slot99110%_) + _%slot99993%_) '#!void))) (begin (raise-contract-violation-error @@ -1659,78 +1697,78 @@ 'contract: 'class-type? 'value: - _%klass99109%_) + _%klass99992%_) '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass99077%_ _%slot99078%_) - (let* ((_%klass99081%_ _%klass99077%_) - (_%slot99089%_ _%slot99078%_) - (_%field99098%_ - (let ((__tmp101753 + (lambda (_%klass99960%_ _%slot99961%_) + (let* ((_%klass99964%_ _%klass99960%_) + (_%slot99972%_ _%slot99961%_) + (_%field99981%_ + (let ((__tmp102636 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99081%_ + _%klass99964%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101753 _%slot99089%_ '#f)))) - (if (not _%field99098%_) + (symbolic-table-ref __tmp102636 _%slot99972%_ '#f)))) + (if (not _%field99981%_) (let () (error '"unknown slot" 'class: - _%klass99081%_ + _%klass99964%_ 'slot: - _%slot99089%_) + _%slot99972%_) '#!void) - (if (__class-type-final? _%klass99081%_) + (if (__class-type-final? _%klass99964%_) (make-final-slot-accessor - _%klass99081%_ - _%slot99089%_ - _%field99098%_) - (if (__class-type-struct? _%klass99081%_) + _%klass99964%_ + _%slot99972%_ + _%field99981%_) + (if (__class-type-struct? _%klass99964%_) (make-struct-slot-accessor - _%klass99081%_ - _%slot99089%_ - _%field99098%_) - (if (let ((_%strukt99104%_ - (base-struct/1 _%klass99081%_))) + _%klass99964%_ + _%slot99972%_ + _%field99981%_) + (if (let ((_%strukt99987%_ + (base-struct/1 _%klass99964%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt99104%_ + _%strukt99987%_ 'class)) - (let ((__tmp101754 - (let ((__tmp101755 + (let ((__tmp102637 + (let ((__tmp102638 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt99104%_ + _%strukt99987%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101755)))) + (##vector-length __tmp102638)))) (declare (not safe)) - (##fx< _%field99098%_ __tmp101754)))) + (##fx< _%field99981%_ __tmp102637)))) (make-struct-subclass-slot-accessor - _%klass99081%_ - _%slot99089%_ - _%field99098%_) + _%klass99964%_ + _%slot99972%_ + _%field99981%_) (make-class-cached-slot-accessor - _%klass99081%_ - _%slot99089%_ - _%field99098%_)))))))) + _%klass99964%_ + _%slot99972%_ + _%field99981%_)))))))) (define make-class-slot-mutator - (lambda (_%klass99052%_ _%slot99053%_) + (lambda (_%klass99935%_ _%slot99936%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99052%_ 'class)) - (let ((_%klass99057%_ _%klass99052%_)) - (if (symbol? _%slot99053%_) - (let ((_%slot99067%_ _%slot99053%_)) - (__make-class-slot-mutator _%klass99057%_ _%slot99067%_)) + (##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" @@ -1739,7 +1777,7 @@ 'contract: 'symbol? 'value: - _%slot99053%_) + _%slot99936%_) '#!void))) (begin (raise-contract-violation-error @@ -1749,80 +1787,80 @@ 'contract: 'class-type? 'value: - _%klass99052%_) + _%klass99935%_) '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass99020%_ _%slot99021%_) - (let* ((_%klass99024%_ _%klass99020%_) - (_%slot99032%_ _%slot99021%_) - (_%field99041%_ - (let ((__tmp101756 + (lambda (_%klass99903%_ _%slot99904%_) + (let* ((_%klass99907%_ _%klass99903%_) + (_%slot99915%_ _%slot99904%_) + (_%field99924%_ + (let ((__tmp102639 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99024%_ + _%klass99907%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101756 _%slot99032%_ '#f)))) - (if (not _%field99041%_) + (symbolic-table-ref __tmp102639 _%slot99915%_ '#f)))) + (if (not _%field99924%_) (let () (error '"unknown slot" 'class: - _%klass99024%_ + _%klass99907%_ 'slot: - _%slot99032%_) + _%slot99915%_) '#!void) - (if (__class-type-final? _%klass99024%_) + (if (__class-type-final? _%klass99907%_) (make-final-slot-mutator - _%klass99024%_ - _%slot99032%_ - _%field99041%_) - (if (__class-type-struct? _%klass99024%_) + _%klass99907%_ + _%slot99915%_ + _%field99924%_) + (if (__class-type-struct? _%klass99907%_) (make-struct-slot-mutator - _%klass99024%_ - _%slot99032%_ - _%field99041%_) - (if (let ((_%strukt99047%_ - (base-struct/1 _%klass99024%_))) + _%klass99907%_ + _%slot99915%_ + _%field99924%_) + (if (let ((_%strukt99930%_ + (base-struct/1 _%klass99907%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt99047%_ + _%strukt99930%_ 'class)) - (let ((__tmp101757 - (let ((__tmp101758 + (let ((__tmp102640 + (let ((__tmp102641 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt99047%_ + _%strukt99930%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101758)))) + (##vector-length __tmp102641)))) (declare (not safe)) - (##fx< _%field99041%_ __tmp101757)))) + (##fx< _%field99924%_ __tmp102640)))) (make-struct-subclass-slot-mutator - _%klass99024%_ - _%slot99032%_ - _%field99041%_) + _%klass99907%_ + _%slot99915%_ + _%field99924%_) (make-class-cached-slot-mutator - _%klass99024%_ - _%slot99032%_ - _%field99041%_)))))))) + _%klass99907%_ + _%slot99915%_ + _%field99924%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass98995%_ _%slot98996%_) + (lambda (_%klass99878%_ _%slot99879%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98995%_ 'class)) - (let ((_%klass99000%_ _%klass98995%_)) - (if (symbol? _%slot98996%_) - (let ((_%slot99010%_ _%slot98996%_)) + (##structure-instance-of? _%klass99878%_ 'class)) + (let ((_%klass99883%_ _%klass99878%_)) + (if (symbol? _%slot99879%_) + (let ((_%slot99893%_ _%slot99879%_)) (__make-class-slot-unchecked-accessor - _%klass99000%_ - _%slot99010%_)) + _%klass99883%_ + _%slot99893%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1831,7 +1869,7 @@ 'contract: 'symbol? 'value: - _%slot98996%_) + _%slot99879%_) '#!void))) (begin (raise-contract-violation-error @@ -1841,80 +1879,80 @@ 'contract: 'class-type? 'value: - _%klass98995%_) + _%klass99878%_) '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass98963%_ _%slot98964%_) - (let* ((_%klass98967%_ _%klass98963%_) - (_%slot98975%_ _%slot98964%_) - (_%field98984%_ - (let ((__tmp101759 + (lambda (_%klass99846%_ _%slot99847%_) + (let* ((_%klass99850%_ _%klass99846%_) + (_%slot99858%_ _%slot99847%_) + (_%field99867%_ + (let ((__tmp102642 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98967%_ + _%klass99850%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101759 _%slot98975%_ '#f)))) - (if (not _%field98984%_) + (symbolic-table-ref __tmp102642 _%slot99858%_ '#f)))) + (if (not _%field99867%_) (let () (error '"unknown slot" 'class: - _%klass98967%_ + _%klass99850%_ 'slot: - _%slot98975%_) + _%slot99858%_) '#!void) - (if (__class-type-final? _%klass98967%_) + (if (__class-type-final? _%klass99850%_) (make-struct-slot-unchecked-accessor - _%klass98967%_ - _%slot98975%_ - _%field98984%_) - (if (__class-type-struct? _%klass98967%_) + _%klass99850%_ + _%slot99858%_ + _%field99867%_) + (if (__class-type-struct? _%klass99850%_) (make-struct-slot-unchecked-accessor - _%klass98967%_ - _%slot98975%_ - _%field98984%_) - (if (let ((_%strukt98990%_ - (base-struct/1 _%klass98967%_))) + _%klass99850%_ + _%slot99858%_ + _%field99867%_) + (if (let ((_%strukt99873%_ + (base-struct/1 _%klass99850%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98990%_ + _%strukt99873%_ 'class)) - (let ((__tmp101760 - (let ((__tmp101761 + (let ((__tmp102643 + (let ((__tmp102644 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98990%_ + _%strukt99873%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101761)))) + (##vector-length __tmp102644)))) (declare (not safe)) - (##fx< _%field98984%_ __tmp101760)))) + (##fx< _%field99867%_ __tmp102643)))) (make-struct-slot-unchecked-accessor - _%klass98967%_ - _%slot98975%_ - _%field98984%_) + _%klass99850%_ + _%slot99858%_ + _%field99867%_) (make-class-cached-slot-unchecked-accessor - _%klass98967%_ - _%slot98975%_ - _%field98984%_)))))))) + _%klass99850%_ + _%slot99858%_ + _%field99867%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass98938%_ _%slot98939%_) + (lambda (_%klass99821%_ _%slot99822%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98938%_ 'class)) - (let ((_%klass98943%_ _%klass98938%_)) - (if (symbol? _%slot98939%_) - (let ((_%slot98953%_ _%slot98939%_)) + (##structure-instance-of? _%klass99821%_ 'class)) + (let ((_%klass99826%_ _%klass99821%_)) + (if (symbol? _%slot99822%_) + (let ((_%slot99836%_ _%slot99822%_)) (__make-class-slot-unchecked-mutator - _%klass98943%_ - _%slot98953%_)) + _%klass99826%_ + _%slot99836%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1923,7 +1961,7 @@ 'contract: 'symbol? 'value: - _%slot98939%_) + _%slot99822%_) '#!void))) (begin (raise-contract-violation-error @@ -1933,221 +1971,221 @@ 'contract: 'class-type? 'value: - _%klass98938%_) + _%klass99821%_) '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass98906%_ _%slot98907%_) - (let* ((_%klass98910%_ _%klass98906%_) - (_%slot98918%_ _%slot98907%_) - (_%field98927%_ - (let ((__tmp101762 + (lambda (_%klass99789%_ _%slot99790%_) + (let* ((_%klass99793%_ _%klass99789%_) + (_%slot99801%_ _%slot99790%_) + (_%field99810%_ + (let ((__tmp102645 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98910%_ + _%klass99793%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101762 _%slot98918%_ '#f)))) - (if (not _%field98927%_) + (symbolic-table-ref __tmp102645 _%slot99801%_ '#f)))) + (if (not _%field99810%_) (let () (error '"unknown slot" 'class: - _%klass98910%_ + _%klass99793%_ 'slot: - _%slot98918%_) + _%slot99801%_) '#!void) - (if (__class-type-final? _%klass98910%_) + (if (__class-type-final? _%klass99793%_) (make-struct-slot-unchecked-mutator - _%klass98910%_ - _%slot98918%_ - _%field98927%_) - (if (__class-type-struct? _%klass98910%_) + _%klass99793%_ + _%slot99801%_ + _%field99810%_) + (if (__class-type-struct? _%klass99793%_) (make-struct-slot-unchecked-mutator - _%klass98910%_ - _%slot98918%_ - _%field98927%_) - (if (let ((_%strukt98933%_ - (base-struct/1 _%klass98910%_))) + _%klass99793%_ + _%slot99801%_ + _%field99810%_) + (if (let ((_%strukt99816%_ + (base-struct/1 _%klass99793%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98933%_ + _%strukt99816%_ 'class)) - (let ((__tmp101763 - (let ((__tmp101764 + (let ((__tmp102646 + (let ((__tmp102647 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98933%_ + _%strukt99816%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101764)))) + (##vector-length __tmp102647)))) (declare (not safe)) - (##fx< _%field98927%_ __tmp101763)))) + (##fx< _%field99810%_ __tmp102646)))) (make-struct-slot-unchecked-mutator - _%klass98910%_ - _%slot98918%_ - _%field98927%_) + _%klass99793%_ + _%slot99801%_ + _%field99810%_) (make-class-cached-slot-unchecked-mutator - _%klass98910%_ - _%slot98918%_ - _%field98927%_)))))))) + _%klass99793%_ + _%slot99801%_ + _%field99810%_)))))))) (define not-an-instance__% - (lambda (_%object98890%_ _%class98891%_ _%slot98892%_) + (lambda (_%object99773%_ _%class99774%_ _%slot99775%_) (apply error '"not an instance" 'object: - _%object98890%_ + _%object99773%_ 'class: - _%class98891%_ - (if _%slot98892%_ (cons 'slot: (cons _%slot98892%_ '())) '())))) + _%class99774%_ + (if _%slot99775%_ (cons 'slot: (cons _%slot99775%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object98897%_ _%class98898%_) - (let ((_%slot98900%_ '#f)) - (not-an-instance__% _%object98897%_ _%class98898%_ _%slot98900%_)))) + (lambda (_%object99780%_ _%class99781%_) + (let ((_%slot99783%_ '#f)) + (not-an-instance__% _%object99780%_ _%class99781%_ _%slot99783%_)))) (define not-an-instance - (lambda _g101766_ - (let ((_g101765_ (let () (declare (not safe)) (##length _g101766_)))) - (cond ((let () (declare (not safe)) (##fx= _g101765_ 2)) - (apply not-an-instance__0 _g101766_)) - ((let () (declare (not safe)) (##fx= _g101765_ 3)) - (apply not-an-instance__% _g101766_)) + (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 - _g101766_)))))) + _g102649_)))))) (define make-final-slot-accessor - (lambda (_%klass98883%_ _%slot98884%_ _%field98885%_) - (lambda (_%obj98887%_) + (lambda (_%klass99766%_ _%slot99767%_ _%field99768%_) + (lambda (_%obj99770%_) (##direct-structure-ref - _%obj98887%_ - _%field98885%_ - _%klass98883%_ - _%slot98884%_)))) + _%obj99770%_ + _%field99768%_ + _%klass99766%_ + _%slot99767%_)))) (define make-final-slot-mutator - (lambda (_%klass98876%_ _%slot98877%_ _%field98878%_) - (lambda (_%obj98880%_ _%val98881%_) + (lambda (_%klass99759%_ _%slot99760%_ _%field99761%_) + (lambda (_%obj99763%_ _%val99764%_) (##direct-structure-set! - _%obj98880%_ - _%val98881%_ - _%field98878%_ - _%klass98876%_ - _%slot98877%_)))) + _%obj99763%_ + _%val99764%_ + _%field99761%_ + _%klass99759%_ + _%slot99760%_)))) (define make-struct-slot-accessor - (lambda (_%klass98870%_ _%slot98871%_ _%field98872%_) - (lambda (_%obj98874%_) + (lambda (_%klass99753%_ _%slot99754%_ _%field99755%_) + (lambda (_%obj99757%_) (##structure-ref - _%obj98874%_ - _%field98872%_ - _%klass98870%_ - _%slot98871%_)))) + _%obj99757%_ + _%field99755%_ + _%klass99753%_ + _%slot99754%_)))) (define make-struct-slot-mutator - (lambda (_%klass98863%_ _%slot98864%_ _%field98865%_) - (lambda (_%obj98867%_ _%val98868%_) + (lambda (_%klass99746%_ _%slot99747%_ _%field99748%_) + (lambda (_%obj99750%_ _%val99751%_) (##structure-set! - _%obj98867%_ - _%val98868%_ - _%field98865%_ - _%klass98863%_ - _%slot98864%_)))) + _%obj99750%_ + _%val99751%_ + _%field99748%_ + _%klass99746%_ + _%slot99747%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass98857%_ _%slot98858%_ _%field98859%_) - (lambda (_%obj98861%_) + (lambda (_%klass99740%_ _%slot99741%_ _%field99742%_) + (lambda (_%obj99744%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj98861%_ - _%field98859%_ - _%klass98857%_ - _%slot98858%_))))) + _%obj99744%_ + _%field99742%_ + _%klass99740%_ + _%slot99741%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass98850%_ _%slot98851%_ _%field98852%_) - (lambda (_%obj98854%_ _%val98855%_) + (lambda (_%klass99733%_ _%slot99734%_ _%field99735%_) + (lambda (_%obj99737%_ _%val99738%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj98854%_ - _%val98855%_ - _%field98852%_ - _%klass98850%_ - _%slot98851%_))))) + _%obj99737%_ + _%val99738%_ + _%field99735%_ + _%klass99733%_ + _%slot99734%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass98844%_ _%slot98845%_ _%field98846%_) - (lambda (_%obj98848%_) - (if (class-instance? _%klass98844%_ _%obj98848%_) - (unchecked-slot-ref _%obj98848%_ _%field98846%_) + (lambda (_%klass99727%_ _%slot99728%_ _%field99729%_) + (lambda (_%obj99731%_) + (if (class-instance? _%klass99727%_ _%obj99731%_) + (unchecked-slot-ref _%obj99731%_ _%field99729%_) (not-an-instance__% - _%obj98848%_ - _%klass98844%_ - _%slot98845%_))))) + _%obj99731%_ + _%klass99727%_ + _%slot99728%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass98837%_ _%slot98838%_ _%field98839%_) - (lambda (_%obj98841%_ _%val98842%_) - (if (class-instance? _%klass98837%_ _%obj98841%_) - (unchecked-field-set! _%obj98841%_ _%field98839%_ _%val98842%_) + (lambda (_%klass99720%_ _%slot99721%_ _%field99722%_) + (lambda (_%obj99724%_ _%val99725%_) + (if (class-instance? _%klass99720%_ _%obj99724%_) + (unchecked-field-set! _%obj99724%_ _%field99722%_ _%val99725%_) (not-an-instance__% - _%obj98841%_ - _%klass98837%_ - _%slot98838%_))))) + _%obj99724%_ + _%klass99720%_ + _%slot99721%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass98828%_ _%slot98829%_ _%field98830%_) - (lambda (_%obj98832%_) - (if (let ((__tmp101767 - (let () (declare (not safe)) (##type-id _%klass98828%_)))) + (lambda (_%klass99711%_ _%slot99712%_ _%field99713%_) + (lambda (_%obj99715%_) + (if (let ((__tmp102650 + (let () (declare (not safe)) (##type-id _%klass99711%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98832%_ __tmp101767)) - (unchecked-field-ref _%obj98832%_ _%field98830%_) - (if (class-instance? _%klass98828%_ _%obj98832%_) - (unchecked-slot-ref _%obj98832%_ _%slot98829%_) + (##structure-direct-instance-of? _%obj99715%_ __tmp102650)) + (unchecked-field-ref _%obj99715%_ _%field99713%_) + (if (class-instance? _%klass99711%_ _%obj99715%_) + (unchecked-slot-ref _%obj99715%_ _%slot99712%_) (not-an-instance__% - _%obj98832%_ - _%klass98828%_ - _%slot98829%_)))))) + _%obj99715%_ + _%klass99711%_ + _%slot99712%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass98818%_ _%slot98819%_ _%field98820%_) - (lambda (_%obj98822%_ _%val98823%_) - (if (let ((__tmp101768 - (let () (declare (not safe)) (##type-id _%klass98818%_)))) + (lambda (_%klass99701%_ _%slot99702%_ _%field99703%_) + (lambda (_%obj99705%_ _%val99706%_) + (if (let ((__tmp102651 + (let () (declare (not safe)) (##type-id _%klass99701%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98822%_ __tmp101768)) - (unchecked-field-set! _%obj98822%_ _%field98820%_ _%val98823%_) - (if (class-instance? _%klass98818%_ _%obj98822%_) - (unchecked-slot-set! _%obj98822%_ _%slot98819%_ _%val98823%_) + (##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__% - _%obj98822%_ - _%klass98818%_ - _%slot98819%_)))))) + _%obj99705%_ + _%klass99701%_ + _%slot99702%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass98812%_ _%slot98813%_ _%field98814%_) - (lambda (_%obj98816%_) - (if (let ((__tmp101769 - (let () (declare (not safe)) (##type-id _%klass98812%_)))) + (lambda (_%klass99695%_ _%slot99696%_ _%field99697%_) + (lambda (_%obj99699%_) + (if (let ((__tmp102652 + (let () (declare (not safe)) (##type-id _%klass99695%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98816%_ __tmp101769)) - (unchecked-field-ref _%obj98816%_ _%field98814%_) - (unchecked-slot-ref _%obj98816%_ _%slot98813%_))))) + (##structure-direct-instance-of? _%obj99699%_ __tmp102652)) + (unchecked-field-ref _%obj99699%_ _%field99697%_) + (unchecked-slot-ref _%obj99699%_ _%slot99696%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass98805%_ _%slot98806%_ _%field98807%_) - (lambda (_%obj98809%_ _%val98810%_) - (if (let ((__tmp101770 - (let () (declare (not safe)) (##type-id _%klass98805%_)))) + (lambda (_%klass99688%_ _%slot99689%_ _%field99690%_) + (lambda (_%obj99692%_ _%val99693%_) + (if (let ((__tmp102653 + (let () (declare (not safe)) (##type-id _%klass99688%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98809%_ __tmp101770)) - (unchecked-field-set! _%obj98809%_ _%field98807%_ _%val98810%_) - (unchecked-slot-set! _%obj98809%_ _%slot98806%_ _%val98810%_))))) + (##structure-direct-instance-of? _%obj99692%_ __tmp102653)) + (unchecked-field-set! _%obj99692%_ _%field99690%_ _%val99693%_) + (unchecked-slot-set! _%obj99692%_ _%slot99689%_ _%val99693%_))))) (define class-slot-offset - (lambda (_%klass98780%_ _%slot98781%_) + (lambda (_%klass99663%_ _%slot99664%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98780%_ 'class)) - (let ((_%klass98785%_ _%klass98780%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98781%_)) - (let ((_%slot98795%_ _%slot98781%_)) - (__class-slot-offset _%klass98785%_ _%slot98795%_)) + (##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" @@ -2156,7 +2194,7 @@ 'contract: 'symbolic? 'value: - _%slot98781%_) + _%slot99664%_) '#!void))) (begin (raise-contract-violation-error @@ -2166,30 +2204,30 @@ 'contract: 'class-type? 'value: - _%klass98780%_) + _%klass99663%_) '#!void)))) (define __class-slot-offset - (lambda (_%klass98759%_ _%slot98760%_) - (let* ((_%klass98763%_ _%klass98759%_) - (_%slot98771%_ _%slot98760%_) - (__tmp101771 + (lambda (_%klass99642%_ _%slot99643%_) + (let* ((_%klass99646%_ _%klass99642%_) + (_%slot99654%_ _%slot99643%_) + (__tmp102654 (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98763%_ '8 '#f '#f)))) + (##unchecked-structure-ref _%klass99646%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101771 _%slot98771%_ '#f)))) + (symbolic-table-ref __tmp102654 _%slot99654%_ '#f)))) (define class-slot-ref - (lambda (_%klass98733%_ _%obj98734%_ _%slot98735%_) + (lambda (_%klass99616%_ _%obj99617%_ _%slot99618%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98733%_ 'class)) - (let ((_%klass98739%_ _%klass98733%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98735%_)) - (let ((_%slot98749%_ _%slot98735%_)) + (##structure-instance-of? _%klass99616%_ 'class)) + (let ((_%klass99622%_ _%klass99616%_)) + (if (let () (declare (not safe)) (symbolic? _%slot99618%_)) + (let ((_%slot99632%_ _%slot99618%_)) (__class-slot-ref - _%klass98739%_ - _%obj98734%_ - _%slot98749%_)) + _%klass99622%_ + _%obj99617%_ + _%slot99632%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2198,7 +2236,7 @@ 'contract: 'symbolic? 'value: - _%slot98735%_) + _%slot99618%_) '#!void))) (begin (raise-contract-violation-error @@ -2208,38 +2246,38 @@ 'contract: 'class-type? 'value: - _%klass98733%_) + _%klass99616%_) '#!void)))) (define __class-slot-ref - (lambda (_%klass98709%_ _%obj98710%_ _%slot98711%_) - (let* ((_%klass98714%_ _%klass98709%_) (_%slot98722%_ _%slot98711%_)) - (if (__class-instance? _%klass98714%_ _%obj98710%_) - (let ((_%off98731%_ + (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 _%obj98710%_)) - _%slot98722%_))) + (##structure-type _%obj99593%_)) + _%slot99605%_))) (declare (not safe)) (##unchecked-structure-ref - _%obj98710%_ - _%off98731%_ - _%klass98714%_ - _%slot98722%_)) - (not-an-instance__0 _%obj98710%_ _%klass98714%_))))) + _%obj99593%_ + _%off99614%_ + _%klass99597%_ + _%slot99605%_)) + (not-an-instance__0 _%obj99593%_ _%klass99597%_))))) (define class-slot-set! - (lambda (_%klass98682%_ _%obj98683%_ _%slot98684%_ _%val98685%_) + (lambda (_%klass99565%_ _%obj99566%_ _%slot99567%_ _%val99568%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98682%_ 'class)) - (let ((_%klass98689%_ _%klass98682%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98684%_)) - (let ((_%slot98699%_ _%slot98684%_)) + (##structure-instance-of? _%klass99565%_ 'class)) + (let ((_%klass99572%_ _%klass99565%_)) + (if (let () (declare (not safe)) (symbolic? _%slot99567%_)) + (let ((_%slot99582%_ _%slot99567%_)) (__class-slot-set! - _%klass98689%_ - _%obj98683%_ - _%slot98699%_ - _%val98685%_)) + _%klass99572%_ + _%obj99566%_ + _%slot99582%_ + _%val99568%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2248,7 +2286,7 @@ 'contract: 'symbolic? 'value: - _%slot98684%_) + _%slot99567%_) '#!void))) (begin (raise-contract-violation-error @@ -2258,69 +2296,69 @@ 'contract: 'class-type? 'value: - _%klass98682%_) + _%klass99565%_) '#!void)))) (define __class-slot-set! - (lambda (_%klass98657%_ _%obj98658%_ _%slot98659%_ _%val98660%_) - (let* ((_%klass98663%_ _%klass98657%_) (_%slot98671%_ _%slot98659%_)) - (if (__class-instance? _%klass98663%_ _%obj98658%_) - (let ((_%off98680%_ + (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 _%obj98658%_)) - _%slot98671%_))) + (##structure-type _%obj99541%_)) + _%slot99554%_))) (declare (not safe)) (##unchecked-structure-set! - _%obj98658%_ - _%val98660%_ - _%off98680%_ - _%klass98663%_ - _%slot98671%_)) - (not-an-instance__0 _%obj98658%_ _%klass98663%_))))) + _%obj99541%_ + _%val99543%_ + _%off99563%_ + _%klass99546%_ + _%slot99554%_)) + (not-an-instance__0 _%obj99541%_ _%klass99546%_))))) (define unchecked-field-ref - (lambda (_%obj98654%_ _%off98655%_) - (let ((__tmp101772 - (let () (declare (not safe)) (##structure-type _%obj98654%_)))) + (lambda (_%obj99537%_ _%off99538%_) + (let ((__tmp102655 + (let () (declare (not safe)) (##structure-type _%obj99537%_)))) (declare (not safe)) (##unchecked-structure-ref - _%obj98654%_ - _%off98655%_ - __tmp101772 + _%obj99537%_ + _%off99538%_ + __tmp102655 '#f)))) (define unchecked-field-set! - (lambda (_%obj98650%_ _%off98651%_ _%val98652%_) - (let ((__tmp101773 - (let () (declare (not safe)) (##structure-type _%obj98650%_)))) + (lambda (_%obj99533%_ _%off99534%_ _%val99535%_) + (let ((__tmp102656 + (let () (declare (not safe)) (##structure-type _%obj99533%_)))) (declare (not safe)) (##unchecked-structure-set! - _%obj98650%_ - _%val98652%_ - _%off98651%_ - __tmp101773 + _%obj99533%_ + _%val99535%_ + _%off99534%_ + __tmp102656 '#f)))) (define unchecked-slot-ref - (lambda (_%obj98647%_ _%slot98648%_) + (lambda (_%obj99530%_ _%slot99531%_) (unchecked-field-ref - _%obj98647%_ + _%obj99530%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98647%_)) - _%slot98648%_)))) + (let () (declare (not safe)) (##structure-type _%obj99530%_)) + _%slot99531%_)))) (define unchecked-slot-set! - (lambda (_%obj98643%_ _%slot98644%_ _%val98645%_) + (lambda (_%obj99526%_ _%slot99527%_ _%val99528%_) (unchecked-field-set! - _%obj98643%_ + _%obj99526%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98643%_)) - _%slot98644%_) - _%val98645%_))) + (let () (declare (not safe)) (##structure-type _%obj99526%_)) + _%slot99527%_) + _%val99528%_))) (define slot-ref__% - (lambda (_%obj98605%_ _%slot98606%_ _%E98607%_) - (if (symbol? _%slot98606%_) - (let ((_%slot98611%_ _%slot98606%_)) - (if (procedure? _%E98607%_) - (let ((_%E98621%_ _%E98607%_)) - (__slot-ref__% _%obj98605%_ _%slot98611%_ _%E98621%_)) + (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" @@ -2329,7 +2367,7 @@ 'contract: 'procedure? 'value: - _%E98607%_) + _%E99490%_) '#!void))) (begin (raise-contract-violation-error @@ -2339,63 +2377,63 @@ 'contract: 'symbol? 'value: - _%slot98606%_) + _%slot99489%_) '#!void)))) (define slot-ref__0 - (lambda (_%obj98634%_ _%slot98635%_) - (let ((_%E98637%_ __slot-error)) - (slot-ref__% _%obj98634%_ _%slot98635%_ _%E98637%_)))) + (lambda (_%obj99517%_ _%slot99518%_) + (let ((_%E99520%_ __slot-error)) + (slot-ref__% _%obj99517%_ _%slot99518%_ _%E99520%_)))) (define slot-ref - (lambda _g101775_ - (let ((_g101774_ (let () (declare (not safe)) (##length _g101775_)))) - (cond ((let () (declare (not safe)) (##fx= _g101774_ 2)) - (apply slot-ref__0 _g101775_)) - ((let () (declare (not safe)) (##fx= _g101774_ 3)) - (apply slot-ref__% _g101775_)) + (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 - _g101775_)))))) + _g102658_)))))) (define __slot-ref__% - (lambda (_%obj98561%_ _%slot98562%_ _%E98563%_) - (let* ((_%slot98566%_ _%slot98562%_) - (_%E98574%_ _%E98563%_) - (_%klass98583%_ (class-of _%obj98561%_)) - (_%$e98586%_ - (__class-slot-offset _%klass98583%_ _%slot98566%_))) - (if _%$e98586%_ - ((lambda (_%off98589%_) - (unchecked-field-ref _%obj98561%_ _%off98589%_)) - _%$e98586%_) + (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)) - (_%E98574%_ _%obj98561%_ _%slot98566%_)))))) + (_%E99457%_ _%obj99444%_ _%slot99449%_)))))) (define __slot-ref__0 - (lambda (_%obj98595%_ _%slot98596%_) - (let ((_%E98598%_ __slot-error)) - (__slot-ref__% _%obj98595%_ _%slot98596%_ _%E98598%_)))) + (lambda (_%obj99478%_ _%slot99479%_) + (let ((_%E99481%_ __slot-error)) + (__slot-ref__% _%obj99478%_ _%slot99479%_ _%E99481%_)))) (define __slot-ref - (lambda _g101777_ - (let ((_g101776_ (let () (declare (not safe)) (##length _g101777_)))) - (cond ((let () (declare (not safe)) (##fx= _g101776_ 2)) - (apply __slot-ref__0 _g101777_)) - ((let () (declare (not safe)) (##fx= _g101776_ 3)) - (apply __slot-ref__% _g101777_)) + (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 - _g101777_)))))) + _g102660_)))))) (define slot-set!__% - (lambda (_%obj98519%_ _%slot98520%_ _%val98521%_ _%E98522%_) - (if (symbol? _%slot98520%_) - (let ((_%slot98526%_ _%slot98520%_)) - (if (procedure? _%E98522%_) - (let ((_%E98536%_ _%E98522%_)) + (lambda (_%obj99402%_ _%slot99403%_ _%val99404%_ _%E99405%_) + (if (symbol? _%slot99403%_) + (let ((_%slot99409%_ _%slot99403%_)) + (if (procedure? _%E99405%_) + (let ((_%E99419%_ _%E99405%_)) (__slot-set!__% - _%obj98519%_ - _%slot98526%_ - _%val98521%_ - _%E98536%_)) + _%obj99402%_ + _%slot99409%_ + _%val99404%_ + _%E99419%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2404,7 +2442,7 @@ 'contract: 'procedure? 'value: - _%E98522%_) + _%E99405%_) '#!void))) (begin (raise-contract-violation-error @@ -2414,79 +2452,79 @@ 'contract: 'symbol? 'value: - _%slot98520%_) + _%slot99403%_) '#!void)))) (define slot-set!__0 - (lambda (_%obj98549%_ _%slot98550%_ _%val98551%_) - (let ((_%E98553%_ __slot-error)) - (slot-set!__% _%obj98549%_ _%slot98550%_ _%val98551%_ _%E98553%_)))) + (lambda (_%obj99432%_ _%slot99433%_ _%val99434%_) + (let ((_%E99436%_ __slot-error)) + (slot-set!__% _%obj99432%_ _%slot99433%_ _%val99434%_ _%E99436%_)))) (define slot-set! - (lambda _g101779_ - (let ((_g101778_ (let () (declare (not safe)) (##length _g101779_)))) - (cond ((let () (declare (not safe)) (##fx= _g101778_ 3)) - (apply slot-set!__0 _g101779_)) - ((let () (declare (not safe)) (##fx= _g101778_ 4)) - (apply slot-set!__% _g101779_)) + (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! - _g101779_)))))) + _g102662_)))))) (define __slot-set!__% - (lambda (_%obj98472%_ _%slot98473%_ _%val98474%_ _%E98475%_) - (let* ((_%slot98478%_ _%slot98473%_) - (_%E98486%_ _%E98475%_) - (_%klass98495%_ (class-of _%obj98472%_)) - (_%$e98498%_ - (__class-slot-offset _%klass98495%_ _%slot98478%_))) - (if _%$e98498%_ - ((lambda (_%off98501%_) - (unchecked-field-set! _%obj98472%_ _%off98501%_ _%val98474%_)) - _%$e98498%_) + (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)) - (_%E98486%_ _%obj98472%_ _%slot98478%_)))))) + (_%E99369%_ _%obj99355%_ _%slot99361%_)))))) (define __slot-set!__0 - (lambda (_%obj98507%_ _%slot98508%_ _%val98509%_) - (let ((_%E98511%_ __slot-error)) + (lambda (_%obj99390%_ _%slot99391%_ _%val99392%_) + (let ((_%E99394%_ __slot-error)) (__slot-set!__% - _%obj98507%_ - _%slot98508%_ - _%val98509%_ - _%E98511%_)))) + _%obj99390%_ + _%slot99391%_ + _%val99392%_ + _%E99394%_)))) (define __slot-set! - (lambda _g101781_ - (let ((_g101780_ (let () (declare (not safe)) (##length _g101781_)))) - (cond ((let () (declare (not safe)) (##fx= _g101780_ 3)) - (apply __slot-set!__0 _g101781_)) - ((let () (declare (not safe)) (##fx= _g101780_ 4)) - (apply __slot-set!__% _g101781_)) + (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! - _g101781_)))))) + _g102664_)))))) (define __slot-error - (lambda (_%obj98468%_ _%slot98469%_) + (lambda (_%obj99351%_ _%slot99352%_) (error '"Cannot find slot" 'object: - _%obj98468%_ + _%obj99351%_ 'slot: - _%slot98469%_))) + _%slot99352%_))) (define subclass? - (lambda (_%maybe-sub-class98443%_ _%maybe-super-class98444%_) + (lambda (_%maybe-sub-class99326%_ _%maybe-super-class99327%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class98443%_ 'class)) - (let ((_%maybe-sub-class98448%_ _%maybe-sub-class98443%_)) + (##structure-instance-of? _%maybe-sub-class99326%_ 'class)) + (let ((_%maybe-sub-class99331%_ _%maybe-sub-class99326%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-class98444%_ + _%maybe-super-class99327%_ 'class)) - (let ((_%maybe-super-class98458%_ - _%maybe-super-class98444%_)) + (let ((_%maybe-super-class99341%_ + _%maybe-super-class99327%_)) (__subclass? - _%maybe-sub-class98448%_ - _%maybe-super-class98458%_)) + _%maybe-sub-class99331%_ + _%maybe-super-class99341%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2495,7 +2533,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-class98444%_) + _%maybe-super-class99327%_) '#!void))) (begin (raise-contract-violation-error @@ -2505,71 +2543,71 @@ 'contract: 'class-type? 'value: - _%maybe-sub-class98443%_) + _%maybe-sub-class99326%_) '#!void)))) (define __subclass? - (lambda (_%maybe-sub-class98415%_ _%maybe-super-class98416%_) - (let* ((_%maybe-sub-class98419%_ _%maybe-sub-class98415%_) - (_%maybe-super-class98427%_ _%maybe-super-class98416%_) - (_%maybe-super-class-id98436%_ + (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-class98427%_))) - (_%$e98438%_ - (eq? _%maybe-super-class-id98436%_ + (##type-id _%maybe-super-class99310%_))) + (_%$e99321%_ + (eq? _%maybe-super-class-id99319%_ (let () (declare (not safe)) - (##type-id _%maybe-sub-class98419%_))))) - (if _%$e98438%_ - _%$e98438%_ - (let ((__tmp101783 - (lambda (_%super-class98441%_) + (##type-id _%maybe-sub-class99302%_))))) + (if _%$e99321%_ + _%$e99321%_ + (let ((__tmp102666 + (lambda (_%super-class99324%_) (eq? (let () (declare (not safe)) - (##type-id _%super-class98441%_)) - _%maybe-super-class-id98436%_))) - (__tmp101782 + (##type-id _%super-class99324%_)) + _%maybe-super-class-id99319%_))) + (__tmp102665 (let () (declare (not safe)) (##unchecked-structure-ref - _%maybe-sub-class98419%_ + _%maybe-sub-class99302%_ '6 '#f '#f)))) (declare (not safe)) - (__ormap1 __tmp101783 __tmp101782)))))) + (__ormap1 __tmp102666 __tmp102665)))))) (define object? - (lambda (_%o98412%_) - (if (let () (declare (not safe)) (##structure? _%o98412%_)) - (let ((__tmp101784 + (lambda (_%o99295%_) + (if (let () (declare (not safe)) (##structure? _%o99295%_)) + (let ((__tmp102667 (let () (declare (not safe)) - (##structure-type _%o98412%_)))) + (##structure-type _%o99295%_)))) (declare (not safe)) - (##structure-instance-of? __tmp101784 'class)) + (##structure-instance-of? __tmp102667 'class)) '#f))) (define object-type - (lambda (_%o98407%_) - (if (let () (declare (not safe)) (##structure? _%o98407%_)) - (let ((_%klass98410%_ + (lambda (_%o99290%_) + (if (let () (declare (not safe)) (##structure? _%o99290%_)) + (let ((_%klass99293%_ (let () (declare (not safe)) - (##structure-type _%o98407%_)))) + (##structure-type _%o99290%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98410%_ 'class)) - _%klass98410%_ + (##structure-instance-of? _%klass99293%_ 'class)) + _%klass99293%_ (begin - (error '"not an object" _%o98407%_ _%klass98410%_) + (error '"not an object" _%o99290%_ _%klass99293%_) '#!void))) - (begin (error '"not an object" _%o98407%_) '#!void)))) + (begin (error '"not an object" _%o99290%_) '#!void)))) (define direct-instance? - (lambda (_%klass98392%_ _%obj98393%_) + (lambda (_%klass99275%_ _%obj99276%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98392%_ 'class)) - (let ((_%klass98397%_ _%klass98392%_)) - (__direct-instance? _%klass98397%_ _%obj98393%_)) + (##structure-instance-of? _%klass99275%_ 'class)) + (let ((_%klass99280%_ _%klass99275%_)) + (__direct-instance? _%klass99280%_ _%obj99276%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2578,28 +2616,28 @@ 'contract: 'class-type? 'value: - _%klass98392%_) + _%klass99275%_) '#!void)))) (define __direct-instance? - (lambda (_%klass98379%_ _%obj98380%_) - (let* ((_%klass98383%_ _%klass98379%_) - (__tmp101785 - (let () (declare (not safe)) (##type-id _%klass98383%_)))) + (lambda (_%klass99262%_ _%obj99263%_) + (let* ((_%klass99266%_ _%klass99262%_) + (__tmp102668 + (let () (declare (not safe)) (##type-id _%klass99266%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98380%_ __tmp101785)))) + (##structure-direct-instance-of? _%obj99263%_ __tmp102668)))) (define immediate-instance-of? - (lambda (_%klass98375%_ _%obj98376%_) - (if (let () (declare (not safe)) (##structure? _%obj98376%_)) - (eq? _%klass98375%_ - (let () (declare (not safe)) (##structure-type _%obj98376%_))) + (lambda (_%klass99258%_ _%obj99259%_) + (if (let () (declare (not safe)) (##structure? _%obj99259%_)) + (eq? _%klass99258%_ + (let () (declare (not safe)) (##structure-type _%obj99259%_))) '#f))) (define struct-instance? - (lambda (_%klass98360%_ _%obj98361%_) + (lambda (_%klass99243%_ _%obj99244%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98360%_ 'class)) - (let ((_%klass98365%_ _%klass98360%_)) - (__struct-instance? _%klass98365%_ _%obj98361%_)) + (##structure-instance-of? _%klass99243%_ 'class)) + (let ((_%klass99248%_ _%klass99243%_)) + (__struct-instance? _%klass99248%_ _%obj99244%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2608,22 +2646,22 @@ 'contract: 'class-type? 'value: - _%klass98360%_) + _%klass99243%_) '#!void)))) (define __struct-instance? - (lambda (_%klass98347%_ _%obj98348%_) - (let* ((_%klass98351%_ _%klass98347%_) - (__tmp101786 - (let () (declare (not safe)) (##type-id _%klass98351%_)))) + (lambda (_%klass99230%_ _%obj99231%_) + (let* ((_%klass99234%_ _%klass99230%_) + (__tmp102669 + (let () (declare (not safe)) (##type-id _%klass99234%_)))) (declare (not safe)) - (##structure-instance-of? _%obj98348%_ __tmp101786)))) + (##structure-instance-of? _%obj99231%_ __tmp102669)))) (define class-instance? - (lambda (_%klass98332%_ _%obj98333%_) + (lambda (_%klass99215%_ _%obj99216%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98332%_ 'class)) - (let ((_%klass98337%_ _%klass98332%_)) - (__class-instance? _%klass98337%_ _%obj98333%_)) + (##structure-instance-of? _%klass99215%_ 'class)) + (let ((_%klass99220%_ _%klass99215%_)) + (__class-instance? _%klass99220%_ _%obj99216%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2632,22 +2670,22 @@ 'contract: 'class-type? 'value: - _%klass98332%_) + _%klass99215%_) '#!void)))) (define __class-instance? - (lambda (_%klass98317%_ _%obj98318%_) - (let* ((_%klass98321%_ _%klass98317%_) - (_%type98330%_ (class-of _%obj98318%_))) - (__subclass? _%type98330%_ _%klass98321%_)))) + (lambda (_%klass99200%_ _%obj99201%_) + (let* ((_%klass99204%_ _%klass99200%_) + (_%type99213%_ (class-of _%obj99201%_))) + (__subclass? _%type99213%_ _%klass99204%_)))) (define make-object - (lambda (_%klass98292%_ _%k98293%_) + (lambda (_%klass99175%_ _%k99176%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98292%_ 'class)) - (let ((_%klass98297%_ _%klass98292%_)) - (if (fixnum? _%k98293%_) - (let ((_%k98307%_ _%k98293%_)) - (__make-object _%klass98297%_ _%k98307%_)) + (##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" @@ -2656,7 +2694,7 @@ 'contract: 'fixnum? 'value: - _%k98293%_) + _%k99176%_) '#!void))) (begin (raise-contract-violation-error @@ -2666,27 +2704,27 @@ 'contract: 'class-type? 'value: - _%klass98292%_) + _%klass99175%_) '#!void)))) (define __make-object - (lambda (_%klass98269%_ _%k98270%_) - (let* ((_%klass98273%_ _%klass98269%_) (_%k98281%_ _%k98270%_)) - (if (__class-type-system? _%klass98273%_) + (lambda (_%klass99152%_ _%k99153%_) + (let* ((_%klass99156%_ _%klass99152%_) (_%k99164%_ _%k99153%_)) + (if (__class-type-system? _%klass99156%_) (begin (error '"cannot instantiate system class" 'class: - _%klass98273%_) + _%klass99156%_) '#!void) - (let ((_%obj98290%_ + (let ((_%obj99173%_ (let () (declare (not safe)) - (##make-structure _%klass98273%_ _%k98281%_)))) - (object-fill! _%obj98290%_ '#f)))))) + (##make-structure _%klass99156%_ _%k99164%_)))) + (object-fill! _%obj99173%_ '#f)))))) (define object-fill! - (lambda (_%obj98254%_ _%fill98255%_) + (lambda (_%obj99137%_ _%fill99138%_) (if '#t - (let ((_%obj98259%_ _%obj98254%_)) - (__object-fill! _%obj98259%_ _%fill98255%_)) + (let ((_%obj99142%_ _%obj99137%_)) + (__object-fill! _%obj99142%_ _%fill99138%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2695,38 +2733,38 @@ 'contract: 'true 'value: - _%obj98254%_) + _%obj99137%_) '#!void)))) (define __object-fill! - (lambda (_%obj98236%_ _%fill98237%_) - (let ((_%obj98240%_ _%obj98236%_)) - (let _%loop98249%_ ((_%i98251%_ - (let ((__tmp101787 + (lambda (_%obj99119%_ _%fill99120%_) + (let ((_%obj99123%_ _%obj99119%_)) + (let _%loop99132%_ ((_%i99134%_ + (let ((__tmp102670 (let () (declare (not safe)) - (##structure-length _%obj98240%_)))) + (##structure-length _%obj99123%_)))) (declare (not safe)) - (##fx- __tmp101787 '1)))) - (if (let () (declare (not safe)) (##fx> _%i98251%_ '0)) + (##fx- __tmp102670 '1)))) + (if (let () (declare (not safe)) (##fx> _%i99134%_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _%obj98240%_ - _%fill98237%_ - _%i98251%_ + _%obj99123%_ + _%fill99120%_ + _%i99134%_ '#f '#f)) - (_%loop98249%_ - (let () (declare (not safe)) (##fx- _%i98251%_ '1)))) - _%obj98240%_))))) + (_%loop99132%_ + (let () (declare (not safe)) (##fx- _%i99134%_ '1)))) + _%obj99123%_))))) (define new-instance - (lambda (_%klass98222%_) + (lambda (_%klass99105%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98222%_ 'class)) - (let ((_%klass98226%_ _%klass98222%_)) - (__new-instance _%klass98226%_)) + (##structure-instance-of? _%klass99105%_ 'class)) + (let ((_%klass99109%_ _%klass99105%_)) + (__new-instance _%klass99109%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2735,35 +2773,35 @@ 'contract: 'class-type? 'value: - _%klass98222%_) + _%klass99105%_) '#!void)))) (define __new-instance - (lambda (_%klass98210%_) - (let* ((_%klass98213%_ _%klass98210%_) - (__obj101702 - (let ((__tmp101788 - (let ((__tmp101789 + (lambda (_%klass99093%_) + (let* ((_%klass99096%_ _%klass99093%_) + (__obj102585 + (let ((__tmp102671 + (let ((__tmp102672 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98213%_ + _%klass99096%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101789)))) + (##vector-length __tmp102672)))) (declare (not safe)) - (##make-structure _%klass98213%_ __tmp101788)))) - (object-fill! __obj101702 '#f) - __obj101702))) + (##make-structure _%klass99096%_ __tmp102671)))) + (object-fill! __obj102585 '#f) + __obj102585))) (define make-instance - (lambda (_%klass98195%_ . _%args98196%_) + (lambda (_%klass99078%_ . _%args99079%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98195%_ 'class)) - (let ((_%klass98200%_ _%klass98195%_)) + (##structure-instance-of? _%klass99078%_ 'class)) + (let ((_%klass99083%_ _%klass99078%_)) (declare (not safe)) - (##apply __make-instance _%klass98200%_ _%args98196%_)) + (##apply __make-instance _%klass99083%_ _%args99079%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2772,64 +2810,64 @@ 'contract: 'class-type? 'value: - _%klass98195%_) + _%klass99078%_) '#!void)))) (define __make-instance - (lambda (_%klass98167%_ . _%args98168%_) - (let* ((_%klass98171%_ _%klass98167%_) - (_%$e98180%_ + (lambda (_%klass99050%_ . _%args99051%_) + (let* ((_%klass99054%_ _%klass99050%_) + (_%$e99063%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98171%_ '10 '#f '#f)))) - (if _%$e98180%_ - ((lambda (_%kons-id98183%_) - (let ((_%obj98185%_ (__new-instance _%klass98171%_))) + (##unchecked-structure-ref _%klass99054%_ '10 '#f '#f)))) + (if _%$e99063%_ + ((lambda (_%kons-id99066%_) + (let ((_%obj99068%_ (__new-instance _%klass99054%_))) (___constructor-init! - _%klass98171%_ - _%kons-id98183%_ - _%obj98185%_ - _%args98168%_) - _%obj98185%_)) - _%$e98180%_) - (if (__class-type-metaclass? _%klass98171%_) - (let ((_%obj98188%_ (__new-instance _%klass98171%_))) + _%klass99054%_ + _%kons-id99066%_ + _%obj99068%_ + _%args99051%_) + _%obj99068%_)) + _%$e99063%_) + (if (__class-type-metaclass? _%klass99054%_) + (let ((_%obj99071%_ (__new-instance _%klass99054%_))) (__metaclass-instance-init! - _%klass98171%_ - _%obj98188%_ - _%args98168%_) - _%obj98188%_) - (if (__class-type-struct? _%klass98171%_) - (if (let ((__tmp101791 - (__class-type-field-count _%klass98171%_)) - (__tmp101790 + _%klass99054%_ + _%obj99071%_ + _%args99051%_) + _%obj99071%_) + (if (__class-type-struct? _%klass99054%_) + (if (let ((__tmp102674 + (__class-type-field-count _%klass99054%_)) + (__tmp102673 (let () (declare (not safe)) - (##length _%args98168%_)))) + (##length _%args99051%_)))) (declare (not safe)) - (##fx= __tmp101791 __tmp101790)) - (apply ##structure _%klass98171%_ _%args98168%_) + (##fx= __tmp102674 __tmp102673)) + (apply ##structure _%klass99054%_ _%args99051%_) (let () (error '"arguments don't match object size" 'class: - _%klass98171%_ + _%klass99054%_ 'slots: - (__class-type-slot-list _%klass98171%_) + (__class-type-slot-list _%klass99054%_) 'args: - _%args98168%_) + _%args99051%_) '#!void)) - (let ((_%obj98191%_ (__new-instance _%klass98171%_))) + (let ((_%obj99074%_ (__new-instance _%klass99054%_))) (___class-instance-init! - _%klass98171%_ - _%obj98191%_ - _%args98168%_) - _%obj98191%_))))))) + _%klass99054%_ + _%obj99074%_ + _%args99051%_) + _%obj99074%_))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj98152%_ . _%args98153%_) + (lambda (_%obj99035%_ . _%args99036%_) (if '#t - (let ((_%obj98157%_ _%obj98152%_)) + (let ((_%obj99040%_ _%obj99035%_)) (declare (not safe)) - (##apply __struct-instance-init! _%obj98157%_ _%args98153%_)) + (##apply __struct-instance-init! _%obj99040%_ _%args99036%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2838,56 +2876,56 @@ 'contract: 'true 'value: - _%obj98152%_) + _%obj99035%_) '#!void)))) (define __struct-instance-init! - (lambda (_%obj98139%_ . _%args98140%_) - (let ((_%obj98143%_ _%obj98139%_)) - (if (let ((__tmp101793 - (let () (declare (not safe)) (##length _%args98140%_))) - (__tmp101792 + (lambda (_%obj99022%_ . _%args99023%_) + (let ((_%obj99026%_ _%obj99022%_)) + (if (let ((__tmp102676 + (let () (declare (not safe)) (##length _%args99023%_))) + (__tmp102675 (let () (declare (not safe)) - (##structure-length _%obj98143%_)))) + (##structure-length _%obj99026%_)))) (declare (not safe)) - (##fx< __tmp101793 __tmp101792)) - (___struct-instance-init! _%obj98143%_ _%args98140%_) + (##fx< __tmp102676 __tmp102675)) + (___struct-instance-init! _%obj99026%_ _%args99023%_) (error '"too many arguments for struct" 'object: - _%obj98143%_ + _%obj99026%_ 'args: - _%args98140%_)) + _%args99023%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj98098%_ _%args98099%_) - (let _%lp98101%_ ((_%k98103%_ '1) (_%rest98104%_ _%args98099%_)) - (let* ((_%rest9810598113%_ _%rest98104%_) - (_%else9810798121%_ (lambda () _%obj98098%_)) - (_%K9810998127%_ - (lambda (_%rest98124%_ _%hd98125%_) - (unchecked-field-set! _%obj98098%_ _%k98103%_ _%hd98125%_) - (_%lp98101%_ - (let () (declare (not safe)) (##fx+ _%k98103%_ '1)) - _%rest98124%_)))) - (if (pair? _%rest9810598113%_) - (let ((_%hd9811098130%_ + (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 _%rest9810598113%_))) - (_%tl9811198132%_ + (##car _%rest9898898996%_))) + (_%tl9899499015%_ (let () (declare (not safe)) - (##cdr _%rest9810598113%_)))) - (let* ((_%hd98135%_ _%hd9811098130%_) - (_%rest98137%_ _%tl9811198132%_)) - (_%K9810998127%_ _%rest98137%_ _%hd98135%_))) - (_%else9810798121%_)))))) + (##cdr _%rest9898898996%_)))) + (let* ((_%hd99018%_ _%hd9899399013%_) + (_%rest99020%_ _%tl9899499015%_)) + (_%K9899299010%_ _%rest99020%_ _%hd99018%_))) + (_%else9899099004%_)))))) (define class-instance-init! - (lambda (_%obj98083%_ . _%args98084%_) + (lambda (_%obj98966%_ . _%args98967%_) (if '#t - (let ((_%obj98088%_ _%obj98083%_)) + (let ((_%obj98971%_ _%obj98966%_)) (declare (not safe)) - (##apply __class-instance-init! _%obj98088%_ _%args98084%_)) + (##apply __class-instance-init! _%obj98971%_ _%args98967%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2896,102 +2934,102 @@ 'contract: 'true 'value: - _%obj98083%_) + _%obj98966%_) '#!void)))) (define __class-instance-init! - (lambda (_%obj98070%_ . _%args98071%_) - (let ((_%obj98074%_ _%obj98070%_)) + (lambda (_%obj98953%_ . _%args98954%_) + (let ((_%obj98957%_ _%obj98953%_)) (___class-instance-init! - (let () (declare (not safe)) (##structure-type _%obj98074%_)) - _%obj98074%_ - _%args98071%_) + (let () (declare (not safe)) (##structure-type _%obj98957%_)) + _%obj98957%_ + _%args98954%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass98012%_ _%obj98013%_ _%args98014%_) - (let _%lp98016%_ ((_%rest98018%_ _%args98014%_)) - (let* ((_%rest9801998029%_ _%rest98018%_) - (_%else9802198037%_ + (lambda (_%klass98895%_ _%obj98896%_ _%args98897%_) + (let _%lp98899%_ ((_%rest98901%_ _%args98897%_)) + (let* ((_%rest9890298912%_ _%rest98901%_) + (_%else9890498920%_ (lambda () - (if (null? _%rest98018%_) - _%obj98013%_ + (if (null? _%rest98901%_) + _%obj98896%_ (error '"unexpected class initializer arguments" 'class: - _%klass98012%_ + _%klass98895%_ 'rest: - _%rest98018%_)))) - (_%K9802398051%_ - (lambda (_%rest98040%_ _%val98041%_ _%key98042%_) - (if (keyword? _%key98042%_) - (let ((_%$e98045%_ + _%rest98901%_)))) + (_%K9890698934%_ + (lambda (_%rest98923%_ _%val98924%_ _%key98925%_) + (if (keyword? _%key98925%_) + (let ((_%$e98928%_ (__class-slot-offset - _%klass98012%_ - _%key98042%_))) - (if _%$e98045%_ - ((lambda (_%off98048%_) + _%klass98895%_ + _%key98925%_))) + (if _%$e98928%_ + ((lambda (_%off98931%_) (unchecked-field-set! - _%obj98013%_ - _%off98048%_ - _%val98041%_) - (_%lp98016%_ _%rest98040%_)) - _%$e98045%_) + _%obj98896%_ + _%off98931%_ + _%val98924%_) + (_%lp98899%_ _%rest98923%_)) + _%$e98928%_) (error '"unknown slot" 'class: - _%klass98012%_ + _%klass98895%_ 'slot: - _%key98042%_))) + _%key98925%_))) (error '"non keyword slot initializer" 'slot: - _%key98042%_))))) - (if (pair? _%rest9801998029%_) - (let ((_%hd9802498054%_ + _%key98925%_))))) + (if (pair? _%rest9890298912%_) + (let ((_%hd9890798937%_ (let () (declare (not safe)) - (##car _%rest9801998029%_))) - (_%tl9802598056%_ + (##car _%rest9890298912%_))) + (_%tl9890898939%_ (let () (declare (not safe)) - (##cdr _%rest9801998029%_)))) - (let ((_%key98059%_ _%hd9802498054%_)) - (if (pair? _%tl9802598056%_) - (let ((_%hd9802698061%_ + (##cdr _%rest9890298912%_)))) + (let ((_%key98942%_ _%hd9890798937%_)) + (if (pair? _%tl9890898939%_) + (let ((_%hd9890998944%_ (let () (declare (not safe)) - (##car _%tl9802598056%_))) - (_%tl9802798063%_ + (##car _%tl9890898939%_))) + (_%tl9891098946%_ (let () (declare (not safe)) - (##cdr _%tl9802598056%_)))) - (let* ((_%val98066%_ _%hd9802698061%_) - (_%rest98068%_ _%tl9802798063%_)) - (_%K9802398051%_ - _%rest98068%_ - _%val98066%_ - _%key98059%_))) - (_%else9802198037%_)))) - (_%else9802198037%_)))))) + (##cdr _%tl9890898939%_)))) + (let* ((_%val98949%_ _%hd9890998944%_) + (_%rest98951%_ _%tl9891098946%_)) + (_%K9890698934%_ + _%rest98951%_ + _%val98949%_ + _%key98942%_))) + (_%else9890498920%_)))) + (_%else9890498920%_)))))) (define __metaclass-instance-init! - (lambda (_%klass98008%_ _%obj98009%_ _%args98010%_) + (lambda (_%klass98891%_ _%obj98892%_ _%args98893%_) (apply call-method - _%klass98008%_ + _%klass98891%_ 'instance-init! - _%obj98009%_ - _%args98010%_))) + _%obj98892%_ + _%args98893%_))) (define constructor-init! - (lambda (_%klass97971%_ _%kons-id97972%_ _%obj97973%_ . _%args97974%_) + (lambda (_%klass98854%_ _%kons-id98855%_ _%obj98856%_ . _%args98857%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97971%_ 'class)) - (let ((_%klass97978%_ _%klass97971%_)) - (if (symbol? _%kons-id97972%_) - (let ((_%kons-id97988%_ _%kons-id97972%_)) + (##structure-instance-of? _%klass98854%_ 'class)) + (let ((_%klass98861%_ _%klass98854%_)) + (if (symbol? _%kons-id98855%_) + (let ((_%kons-id98871%_ _%kons-id98855%_)) (if '#t - (let ((_%obj97998%_ _%obj97973%_)) + (let ((_%obj98881%_ _%obj98856%_)) (declare (not safe)) (##apply __constructor-init! - _%klass97978%_ - _%kons-id97988%_ - _%obj97998%_ - _%args97974%_)) + _%klass98861%_ + _%kons-id98871%_ + _%obj98881%_ + _%args98857%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3000,7 +3038,7 @@ 'contract: 'true 'value: - _%obj97973%_) + _%obj98856%_) '#!void))) (begin (raise-contract-violation-error @@ -3010,7 +3048,7 @@ 'contract: 'symbol? 'value: - _%kons-id97972%_) + _%kons-id98855%_) '#!void))) (begin (raise-contract-violation-error @@ -3020,38 +3058,38 @@ 'contract: 'class-type? 'value: - _%klass97971%_) + _%klass98854%_) '#!void)))) (define __constructor-init! - (lambda (_%klass97940%_ _%kons-id97941%_ _%obj97942%_ . _%args97943%_) - (let* ((_%klass97946%_ _%klass97940%_) - (_%kons-id97954%_ _%kons-id97941%_) - (_%obj97962%_ _%obj97942%_)) + (lambda (_%klass98823%_ _%kons-id98824%_ _%obj98825%_ . _%args98826%_) + (let* ((_%klass98829%_ _%klass98823%_) + (_%kons-id98837%_ _%kons-id98824%_) + (_%obj98845%_ _%obj98825%_)) (___constructor-init! - _%klass97946%_ - _%kons-id97954%_ - _%obj97962%_ - _%args97943%_) + _%klass98829%_ + _%kons-id98837%_ + _%obj98845%_ + _%args98826%_) '#!void))) (define ___constructor-init! - (lambda (_%klass97929%_ _%kons-id97930%_ _%obj97931%_ _%args97932%_) - (let ((_%$e97934%_ - (__find-method _%klass97929%_ _%obj97931%_ _%kons-id97930%_))) - (if _%$e97934%_ - ((lambda (_%kons97937%_) - (apply _%kons97937%_ _%obj97931%_ _%args97932%_) - _%obj97931%_) - _%$e97934%_) + (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: - _%klass97929%_ + _%klass98812%_ 'method: - _%kons-id97930%_))))) + _%kons-id98813%_))))) (define struct-copy - (lambda (_%struct97915%_) + (lambda (_%struct98798%_) (if '#t - (let ((_%struct97919%_ _%struct97915%_)) - (__struct-copy _%struct97919%_)) + (let ((_%struct98802%_ _%struct98798%_)) + (__struct-copy _%struct98802%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3060,17 +3098,17 @@ 'contract: 'true 'value: - _%struct97915%_) + _%struct98798%_) '#!void)))) (define __struct-copy - (lambda (_%struct97903%_) - (let ((_%struct97906%_ _%struct97903%_)) + (lambda (_%struct98786%_) + (let ((_%struct98789%_ _%struct98786%_)) (declare (not safe)) - (##structure-copy _%struct97906%_)))) + (##structure-copy _%struct98789%_)))) (define struct->list - (lambda (_%obj97889%_) + (lambda (_%obj98772%_) (if '#t - (let ((_%obj97893%_ _%obj97889%_)) (__struct->list _%obj97893%_)) + (let ((_%obj98776%_ _%obj98772%_)) (__struct->list _%obj98776%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3079,17 +3117,17 @@ 'contract: 'true 'value: - _%obj97889%_) + _%obj98772%_) '#!void)))) (define __struct->list - (lambda (_%obj97877%_) - (let ((_%obj97880%_ _%obj97877%_)) + (lambda (_%obj98760%_) + (let ((_%obj98763%_ _%obj98760%_)) (declare (not safe)) - (##vector->list _%obj97880%_)))) + (##vector->list _%obj98763%_)))) (define class->list - (lambda (_%obj97863%_) + (lambda (_%obj98746%_) (if '#t - (let ((_%obj97867%_ _%obj97863%_)) (__class->list _%obj97867%_)) + (let ((_%obj98750%_ _%obj98746%_)) (__class->list _%obj98750%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3098,47 +3136,47 @@ 'contract: 'true 'value: - _%obj97863%_) + _%obj98746%_) '#!void)))) (define __class->list - (lambda (_%obj97839%_) - (let* ((_%obj97842%_ _%obj97839%_) - (_%klass97851%_ - (let () (declare (not safe)) (##structure-type _%obj97842%_))) - (_%slot-vector97853%_ + (lambda (_%obj98722%_) + (let* ((_%obj98725%_ _%obj98722%_) + (_%klass98734%_ + (let () (declare (not safe)) (##structure-type _%obj98725%_))) + (_%slot-vector98736%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97851%_ '7 '#f '#f)))) - (let _%loop97855%_ ((_%index97857%_ - (let ((__tmp101794 + (##unchecked-structure-ref _%klass98734%_ '7 '#f '#f)))) + (let _%loop98738%_ ((_%index98740%_ + (let ((__tmp102677 (let () (declare (not safe)) (##vector-length - _%slot-vector97853%_)))) + _%slot-vector98736%_)))) (declare (not safe)) - (##fx- __tmp101794 '1))) - (_%plist97858%_ '())) - (if (let () (declare (not safe)) (##fx< _%index97857%_ '1)) - (cons _%klass97851%_ _%plist97858%_) - (let ((_%slot97861%_ + (##fx- __tmp102677 '1))) + (_%plist98741%_ '())) + (if (let () (declare (not safe)) (##fx< _%index98740%_ '1)) + (cons _%klass98734%_ _%plist98741%_) + (let ((_%slot98744%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector97853%_ _%index97857%_)))) - (_%loop97855%_ - (let () (declare (not safe)) (##fx- _%index97857%_ '1)) + (##vector-ref _%slot-vector98736%_ _%index98740%_)))) + (_%loop98738%_ + (let () (declare (not safe)) (##fx- _%index98740%_ '1)) (cons (let () (declare (not safe)) - (symbol->keyword _%slot97861%_)) + (symbol->keyword _%slot98744%_)) (cons (unchecked-field-ref - _%obj97842%_ - _%index97857%_) - _%plist97858%_))))))))) + _%obj98725%_ + _%index98740%_) + _%plist98741%_))))))))) (define call-method - (lambda (_%obj97823%_ _%id97824%_ . _%args97825%_) - (if (symbol? _%id97824%_) - (let ((_%id97829%_ _%id97824%_)) + (lambda (_%obj98706%_ _%id98707%_ . _%args98708%_) + (if (symbol? _%id98707%_) + (let ((_%id98712%_ _%id98707%_)) (declare (not safe)) - (##apply __call-method _%obj97823%_ _%id97829%_ _%args97825%_)) + (##apply __call-method _%obj98706%_ _%id98712%_ _%args98708%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3147,27 +3185,27 @@ 'contract: 'symbol? 'value: - _%id97824%_) + _%id98707%_) '#!void)))) (define __call-method - (lambda (_%obj97792%_ _%id97793%_ . _%args97794%_) - (let* ((_%id97797%_ _%id97793%_) - (_%$e97806%_ (__method-ref _%obj97792%_ _%id97797%_))) - (if _%$e97806%_ - ((lambda (_%method97809%_) - (let ((_%method97811%_ _%method97809%_)) - (apply _%method97811%_ _%obj97792%_ _%args97794%_))) - _%$e97806%_) + (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: - _%obj97792%_ + _%obj98675%_ 'method: - _%id97797%_))))) + _%id98680%_))))) (define method-ref - (lambda (_%obj97777%_ _%id97778%_) - (if (symbol? _%id97778%_) - (let ((_%id97782%_ _%id97778%_)) - (__method-ref _%obj97777%_ _%id97782%_)) + (lambda (_%obj98660%_ _%id98661%_) + (if (symbol? _%id98661%_) + (let ((_%id98665%_ _%id98661%_)) + (__method-ref _%obj98660%_ _%id98665%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3176,29 +3214,29 @@ 'contract: 'symbol? 'value: - _%id97778%_) + _%id98661%_) '#!void)))) (define __method-ref - (lambda (_%obj97764%_ _%id97765%_) - (let ((_%id97768%_ _%id97765%_)) - (__find-method (class-of _%obj97764%_) _%obj97764%_ _%id97768%_)))) + (lambda (_%obj98647%_ _%id98648%_) + (let ((_%id98651%_ _%id98648%_)) + (__find-method (class-of _%obj98647%_) _%obj98647%_ _%id98651%_)))) (define checked-method-ref - (lambda (_%obj97757%_ _%id97758%_) - (let ((_%$e97761%_ (method-ref _%obj97757%_ _%id97758%_))) - (if _%$e97761%_ - _%$e97761%_ + (lambda (_%obj98640%_ _%id98641%_) + (let ((_%$e98644%_ (method-ref _%obj98640%_ _%id98641%_))) + (if _%$e98644%_ + _%$e98644%_ (begin (error '"missing method" 'object: - _%obj97757%_ + _%obj98640%_ 'method: - _%id97758%_) + _%id98641%_) '#!void))))) (define bound-method-ref - (lambda (_%obj97742%_ _%id97743%_) - (if (symbol? _%id97743%_) - (let ((_%id97747%_ _%id97743%_)) - (__bound-method-ref _%obj97742%_ _%id97747%_)) + (lambda (_%obj98625%_ _%id98626%_) + (if (symbol? _%id98626%_) + (let ((_%id98630%_ _%id98626%_)) + (__bound-method-ref _%obj98625%_ _%id98630%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3207,24 +3245,24 @@ 'contract: 'symbol? 'value: - _%id97743%_) + _%id98626%_) '#!void)))) (define __bound-method-ref - (lambda (_%obj97710%_ _%id97711%_) - (let* ((_%id97714%_ _%id97711%_) - (_%$e97723%_ (__method-ref _%obj97710%_ _%id97714%_))) - (if _%$e97723%_ - ((lambda (_%method97726%_) - (let ((_%method97728%_ _%method97726%_)) - (lambda _%args97739%_ - (apply _%method97728%_ _%obj97710%_ _%args97739%_)))) - _%$e97723%_) + (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 (_%obj97695%_ _%id97696%_) - (if (symbol? _%id97696%_) - (let ((_%id97700%_ _%id97696%_)) - (__checked-bound-method-ref _%obj97695%_ _%id97700%_)) + (lambda (_%obj98578%_ _%id98579%_) + (if (symbol? _%id98579%_) + (let ((_%id98583%_ _%id98579%_)) + (__checked-bound-method-ref _%obj98578%_ _%id98583%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3233,23 +3271,23 @@ 'contract: 'symbol? 'value: - _%id97696%_) + _%id98579%_) '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj97678%_ _%id97679%_) - (let* ((_%id97682%_ _%id97679%_) - (_%method97691%_ (checked-method-ref _%obj97678%_ _%id97682%_))) - (lambda _%args97693%_ - (apply _%method97691%_ _%obj97678%_ _%args97693%_))))) + (lambda (_%obj98561%_ _%id98562%_) + (let* ((_%id98565%_ _%id98562%_) + (_%method98574%_ (checked-method-ref _%obj98561%_ _%id98565%_))) + (lambda _%args98576%_ + (apply _%method98574%_ _%obj98561%_ _%args98576%_))))) (define find-method - (lambda (_%klass97652%_ _%obj97653%_ _%id97654%_) + (lambda (_%klass98535%_ _%obj98536%_ _%id98537%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97652%_ 'class)) - (let ((_%klass97658%_ _%klass97652%_)) - (if (symbol? _%id97654%_) - (let ((_%id97668%_ _%id97654%_)) - (__find-method _%klass97658%_ _%obj97653%_ _%id97668%_)) + (##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" @@ -3258,7 +3296,7 @@ 'contract: 'symbol? 'value: - _%id97654%_) + _%id98537%_) '#!void))) (begin (raise-contract-violation-error @@ -3268,27 +3306,27 @@ 'contract: 'class-type? 'value: - _%klass97652%_) + _%klass98535%_) '#!void)))) (define __find-method - (lambda (_%klass97625%_ _%obj97626%_ _%id97627%_) - (let* ((_%klass97630%_ _%klass97625%_) - (_%id97638%_ _%id97627%_) - (_%$e97647%_ - (__direct-method-ref _%klass97630%_ _%obj97626%_ _%id97638%_))) - (if _%$e97647%_ - _%$e97647%_ - (if (__class-type-sealed? _%klass97630%_) + (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 - _%klass97630%_ - _%obj97626%_ - _%id97638%_)))))) + _%klass98513%_ + _%obj98509%_ + _%id98521%_)))))) (define mixin-find-method - (lambda (_%mixins97609%_ _%obj97610%_ _%id97611%_) - (if (symbol? _%id97611%_) - (let ((_%id97615%_ _%id97611%_)) - (__mixin-find-method _%mixins97609%_ _%obj97610%_ _%id97615%_)) + (lambda (_%mixins98492%_ _%obj98493%_ _%id98494%_) + (if (symbol? _%id98494%_) + (let ((_%id98498%_ _%id98494%_)) + (__mixin-find-method _%mixins98492%_ _%obj98493%_ _%id98498%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3297,31 +3335,31 @@ 'contract: 'symbol? 'value: - _%id97611%_) + _%id98494%_) '#!void)))) (define __mixin-find-method - (lambda (_%mixins97591%_ _%obj97592%_ _%id97593%_) - (let* ((_%id97596%_ _%id97593%_) - (__tmp101795 - (lambda (_%g9760497606%_) + (lambda (_%mixins98474%_ _%obj98475%_ _%id98476%_) + (let* ((_%id98479%_ _%id98476%_) + (__tmp102678 + (lambda (_%g9848798489%_) (direct-method-ref - _%g9760497606%_ - _%obj97592%_ - _%id97596%_)))) + _%g9848798489%_ + _%obj98475%_ + _%id98479%_)))) (declare (not safe)) - (__ormap1 __tmp101795 _%mixins97591%_)))) + (__ormap1 __tmp102678 _%mixins98474%_)))) (define direct-method-ref - (lambda (_%klass97565%_ _%obj97566%_ _%id97567%_) + (lambda (_%klass98448%_ _%obj98449%_ _%id98450%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97565%_ 'class)) - (let ((_%klass97571%_ _%klass97565%_)) - (if (symbol? _%id97567%_) - (let ((_%id97581%_ _%id97567%_)) + (##structure-instance-of? _%klass98448%_ 'class)) + (let ((_%klass98454%_ _%klass98448%_)) + (if (symbol? _%id98450%_) + (let ((_%id98464%_ _%id98450%_)) (__direct-method-ref - _%klass97571%_ - _%obj97566%_ - _%id97581%_)) + _%klass98454%_ + _%obj98449%_ + _%id98464%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3330,7 +3368,7 @@ 'contract: 'symbol? 'value: - _%id97567%_) + _%id98450%_) '#!void))) (begin (raise-contract-violation-error @@ -3340,98 +3378,98 @@ 'contract: 'class-type? 'value: - _%klass97565%_) + _%klass98448%_) '#!void)))) (define __direct-method-ref - (lambda (_%klass97519%_ _%obj97520%_ _%id97521%_) - (let* ((_%klass97524%_ _%klass97519%_) (_%id97532%_ _%id97521%_)) - (letrec ((_%metaclass-resolve-method97541%_ + (lambda (_%klass98402%_ _%obj98403%_ _%id98404%_) + (let* ((_%klass98407%_ _%klass98402%_) (_%id98415%_ _%id98404%_)) + (letrec ((_%metaclass-resolve-method98424%_ (lambda () - (let ((__method101703 - (__method-ref _%klass97524%_ 'direct-method-ref))) - (if __method101703 + (let ((__method102586 + (__method-ref _%klass98407%_ 'direct-method-ref))) + (if __method102586 (let () (declare (not safe)) - (__method101703 - _%klass97524%_ - _%obj97520%_ - _%id97532%_)) + (__method102586 + _%klass98407%_ + _%obj98403%_ + _%id98415%_)) (begin (error '"Missing method" - _%klass97524%_ + _%klass98407%_ 'direct-method-ref) '#!void))))) - (_%metaclass-resolve-method!97542%_ + (_%metaclass-resolve-method!98425%_ (lambda () - (let ((_%method97562%_ - (_%metaclass-resolve-method97541%_))) - (let ((__tmp101797 + (let ((_%method98445%_ + (_%metaclass-resolve-method98424%_))) + (let ((__tmp102680 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97524%_ + _%klass98407%_ '11 '#f '#f))) - (__tmp101796 - (if _%method97562%_ 'resolved 'unknown))) + (__tmp102679 + (if _%method98445%_ 'resolved 'unknown))) (declare (not safe)) (symbolic-table-set! - __tmp101797 - _%id97532%_ - __tmp101796)) - _%method97562%_)))) - (let ((_%$e97544%_ + __tmp102680 + _%id98415%_ + __tmp102679)) + _%method98445%_)))) + (let ((_%$e98427%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97524%_ '11 '#f '#f)))) - (if _%$e97544%_ - ((lambda (_%ht97547%_) - (let ((_%method97549%_ + (##unchecked-structure-ref _%klass98407%_ '11 '#f '#f)))) + (if _%$e98427%_ + ((lambda (_%ht98430%_) + (let ((_%method98432%_ (let () (declare (not safe)) (symbolic-table-ref - _%ht97547%_ - _%id97532%_ + _%ht98430%_ + _%id98415%_ '#f)))) - (if (procedure? _%method97549%_) - _%method97549%_ - (if (__class-type-metaclass? _%klass97524%_) - (let ((_%$e97553%_ _%method97549%_)) - (if (eq? 'resolved _%$e97553%_) - (_%metaclass-resolve-method97541%_) - (if (eq? 'unknown _%$e97553%_) + (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!97542%_)))) + (_%metaclass-resolve-method!98425%_)))) '#f)))) - _%$e97544%_) - (if (__class-type-metaclass? _%klass97524%_) - (let ((_%tab97558%_ + _%$e98427%_) + (if (__class-type-metaclass? _%klass98407%_) + (let ((_%tab98441%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97524%_ - _%tab97558%_ + _%klass98407%_ + _%tab98441%_ '11 '#f '#f)) - (_%metaclass-resolve-method!97542%_)) + (_%metaclass-resolve-method!98425%_)) '#f))))))) (define mixin-method-ref - (lambda (_%klass97493%_ _%obj97494%_ _%id97495%_) + (lambda (_%klass98376%_ _%obj98377%_ _%id98378%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97493%_ 'class)) - (let ((_%klass97499%_ _%klass97493%_)) - (if (symbol? _%id97495%_) - (let ((_%id97509%_ _%id97495%_)) + (##structure-instance-of? _%klass98376%_ 'class)) + (let ((_%klass98382%_ _%klass98376%_)) + (if (symbol? _%id98378%_) + (let ((_%id98392%_ _%id98378%_)) (__mixin-method-ref - _%klass97499%_ - _%obj97494%_ - _%id97509%_)) + _%klass98382%_ + _%obj98377%_ + _%id98392%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3440,7 +3478,7 @@ 'contract: 'symbol? 'value: - _%id97495%_) + _%id98378%_) '#!void))) (begin (raise-contract-violation-error @@ -3450,28 +3488,28 @@ 'contract: 'class-type? 'value: - _%klass97493%_) + _%klass98376%_) '#!void)))) (define __mixin-method-ref - (lambda (_%klass97471%_ _%obj97472%_ _%id97473%_) - (let* ((_%klass97476%_ _%klass97471%_) (_%id97484%_ _%id97473%_)) + (lambda (_%klass98354%_ _%obj98355%_ _%id98356%_) + (let* ((_%klass98359%_ _%klass98354%_) (_%id98367%_ _%id98356%_)) (__mixin-find-method (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97476%_ '6 '#f '#f)) - _%obj97472%_ - _%id97484%_)))) + (##unchecked-structure-ref _%klass98359%_ '6 '#f '#f)) + _%obj98355%_ + _%id98367%_)))) (define bind-method!__% - (lambda (_%klass97430%_ _%id97431%_ _%proc97432%_ _%rebind?97433%_) - (if (symbol? _%id97431%_) - (let ((_%id97437%_ _%id97431%_)) - (if (procedure? _%proc97432%_) - (let ((_%proc97447%_ _%proc97432%_)) + (lambda (_%klass98313%_ _%id98314%_ _%proc98315%_ _%rebind?98316%_) + (if (symbol? _%id98314%_) + (let ((_%id98320%_ _%id98314%_)) + (if (procedure? _%proc98315%_) + (let ((_%proc98330%_ _%proc98315%_)) (__bind-method!__% - _%klass97430%_ - _%id97437%_ - _%proc97447%_ - _%rebind?97433%_)) + _%klass98313%_ + _%id98320%_ + _%proc98330%_ + _%rebind?98316%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3480,7 +3518,7 @@ 'contract: 'procedure? 'value: - _%proc97432%_) + _%proc98315%_) '#!void))) (begin (raise-contract-violation-error @@ -3490,1071 +3528,1071 @@ 'contract: 'symbol? 'value: - _%id97431%_) + _%id98314%_) '#!void)))) (define bind-method!__0 - (lambda (_%klass97460%_ _%id97461%_ _%proc97462%_) - (let ((_%rebind?97464%_ '#f)) + (lambda (_%klass98343%_ _%id98344%_ _%proc98345%_) + (let ((_%rebind?98347%_ '#f)) (bind-method!__% - _%klass97460%_ - _%id97461%_ - _%proc97462%_ - _%rebind?97464%_)))) + _%klass98343%_ + _%id98344%_ + _%proc98345%_ + _%rebind?98347%_)))) (define bind-method! - (lambda _g101799_ - (let ((_g101798_ (let () (declare (not safe)) (##length _g101799_)))) - (cond ((let () (declare (not safe)) (##fx= _g101798_ 3)) - (apply bind-method!__0 _g101799_)) - ((let () (declare (not safe)) (##fx= _g101798_ 4)) - (apply bind-method!__% _g101799_)) + (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! - _g101799_)))))) + _g102682_)))))) (define __bind-method!__% - (lambda (_%klass97381%_ _%id97382%_ _%proc97383%_ _%rebind?97384%_) - (let* ((_%id97387%_ _%id97382%_) (_%proc97395%_ _%proc97383%_)) - (letrec ((_%bind!97404%_ - (lambda (_%ht97413%_) - (if (and (not _%rebind?97384%_) + (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 - _%ht97413%_ - _%id97387%_ + _%ht98296%_ + _%id98270%_ '#f))) (error '"method already bound" 'class: - _%klass97381%_ + _%klass98264%_ 'method: - _%id97387%_) + _%id98270%_) (begin (let () (declare (not safe)) (symbolic-table-set! - _%ht97413%_ - _%id97387%_ - _%proc97395%_)) + _%ht98296%_ + _%id98270%_ + _%proc98278%_)) '#!void))))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97381%_ 'class)) - (let ((_%ht97407%_ + (##structure-instance-of? _%klass98264%_ 'class)) + (let ((_%ht98290%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97381%_ + _%klass98264%_ '11 '#f '#f)))) - (if _%ht97407%_ - (_%bind!97404%_ _%ht97407%_) - (let ((_%ht97409%_ + (if _%ht98290%_ + (_%bind!98287%_ _%ht98290%_) + (let ((_%ht98292%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97381%_ - _%ht97409%_ + _%klass98264%_ + _%ht98292%_ '11 '#f '#f)) - (_%bind!97404%_ _%ht97409%_)))) - (if (let () (declare (not safe)) (##type? _%klass97381%_)) + (_%bind!98287%_ _%ht98292%_)))) + (if (let () (declare (not safe)) (##type? _%klass98264%_)) (__bind-method!__% - (__shadow-class _%klass97381%_) - _%id97387%_ - _%proc97395%_ - _%rebind?97384%_) + (__shadow-class _%klass98264%_) + _%id98270%_ + _%proc98278%_ + _%rebind?98267%_) (error '"bad class; expected class or builtin type" - _%klass97381%_))))))) + _%klass98264%_))))))) (define __bind-method!__0 - (lambda (_%klass97418%_ _%id97419%_ _%proc97420%_) - (let ((_%rebind?97422%_ '#f)) + (lambda (_%klass98301%_ _%id98302%_ _%proc98303%_) + (let ((_%rebind?98305%_ '#f)) (__bind-method!__% - _%klass97418%_ - _%id97419%_ - _%proc97420%_ - _%rebind?97422%_)))) + _%klass98301%_ + _%id98302%_ + _%proc98303%_ + _%rebind?98305%_)))) (define __bind-method! - (lambda _g101801_ - (let ((_g101800_ (let () (declare (not safe)) (##length _g101801_)))) - (cond ((let () (declare (not safe)) (##fx= _g101800_ 3)) - (apply __bind-method!__0 _g101801_)) - ((let () (declare (not safe)) (##fx= _g101800_ 4)) - (apply __bind-method!__% _g101801_)) + (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! - _g101801_)))))) + _g102684_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint97361%_ _%seed97363%_) + (lambda (_%size-hint98244%_ _%seed98246%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint97361%_ + _%size-hint98244%_ procedure-hash eq? - _%seed97363%_)))) + _%seed98246%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint97369%_ '#f) (_%seed97371%_ '0)) + (let* ((_%size-hint98252%_ '#f) (_%seed98254%_ '0)) (make-method-specializer-table__% - _%size-hint97369%_ - _%seed97371%_)))) + _%size-hint98252%_ + _%seed98254%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint97373%_) - (let ((_%seed97375%_ '0)) + (lambda (_%size-hint98256%_) + (let ((_%seed98258%_ '0)) (make-method-specializer-table__% - _%size-hint97373%_ - _%seed97375%_)))) + _%size-hint98256%_ + _%seed98258%_)))) (define make-method-specializer-table - (lambda _g101803_ - (let ((_g101802_ (let () (declare (not safe)) (##length _g101803_)))) - (cond ((let () (declare (not safe)) (##fx= _g101802_ 0)) - (apply make-method-specializer-table__0 _g101803_)) - ((let () (declare (not safe)) (##fx= _g101802_ 1)) - (apply make-method-specializer-table__1 _g101803_)) - ((let () (declare (not safe)) (##fx= _g101802_ 2)) - (apply make-method-specializer-table__% _g101803_)) + (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 - _g101803_)))))) + _g102686_)))))) (define method-specializer-table-ref - (lambda (_%tab97314%_ _%key97315%_ _%default97316%_) - (let ((_%table97318%_ - (let () (declare (not safe)) (&raw-table-table _%tab97314%_))) - (_%seed97319%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97314%_)))) - (let* ((_%h97321%_ + (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 _%key97315%_)) - _%seed97319%_)) - (_%size97324%_ (vector-length _%table97318%_)) - (_%entries97327%_ + (procedure-hash _%key98198%_)) + _%seed98202%_)) + (_%size98207%_ (vector-length _%table98201%_)) + (_%entries98210%_ (let () (declare (not safe)) - (##fxquotient _%size97324%_ '2))) - (_%start97330%_ - (let ((__tmp101804 + (##fxquotient _%size98207%_ '2))) + (_%start98213%_ + (let ((__tmp102687 (let () (declare (not safe)) - (##fxmodulo _%h97321%_ _%entries97327%_)))) + (##fxmodulo _%h98204%_ _%entries98210%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101804 '1)))) - (let _%loop97334%_ ((_%probe97337%_ _%start97330%_) - (_%i97339%_ '1) - (_%deleted97341%_ '#f)) - (let ((_%k97344%_ (vector-ref _%table97318%_ _%probe97337%_))) - (if (eq? _%k97344%_ (macro-unused-obj)) - _%default97316%_ - (if (eq? _%k97344%_ (macro-deleted-obj)) - (_%loop97334%_ - (let ((_%next-probe97349%_ - (fx+ _%start97330%_ - _%i97339%_ - (fx* _%i97339%_ _%i97339%_)))) + (##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-probe97349%_ _%size97324%_)) - (let () (declare (not safe)) (##fx+ _%i97339%_ '1)) - (let ((_%$e97352%_ _%deleted97341%_)) - (if _%$e97352%_ _%$e97352%_ _%probe97337%_))) - (if (eq? _%key97315%_ _%k97344%_) + (##fxmodulo _%next-probe98232%_ _%size98207%_)) + (let () (declare (not safe)) (##fx+ _%i98222%_ '1)) + (let ((_%$e98235%_ _%deleted98224%_)) + (if _%$e98235%_ _%$e98235%_ _%probe98220%_))) + (if (eq? _%key98198%_ _%k98227%_) (vector-ref - _%table97318%_ + _%table98201%_ (let () (declare (not safe)) - (##fx+ _%probe97337%_ '1))) - (_%loop97334%_ - (let ((_%next-probe97357%_ - (fx+ _%start97330%_ - _%i97339%_ - (fx* _%i97339%_ _%i97339%_)))) + (##fx+ _%probe98220%_ '1))) + (_%loop98217%_ + (let ((_%next-probe98240%_ + (fx+ _%start98213%_ + _%i98222%_ + (fx* _%i98222%_ _%i98222%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97357%_ _%size97324%_)) + (##fxmodulo _%next-probe98240%_ _%size98207%_)) (let () (declare (not safe)) - (##fx+ _%i97339%_ '1)) - _%deleted97341%_)))))))))) + (##fx+ _%i98222%_ '1)) + _%deleted98224%_)))))))))) (define method-specializer-table-set! - (lambda (_%tab97310%_ _%key97311%_ _%value97312%_) - (if (let ((__tmp101807 + (lambda (_%tab98193%_ _%key98194%_ _%value98195%_) + (if (let ((__tmp102690 (let () (declare (not safe)) - (&raw-table-free _%tab97310%_))) - (__tmp101805 - (let ((__tmp101806 + (&raw-table-free _%tab98193%_))) + (__tmp102688 + (let ((__tmp102689 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97310%_))))) + (&raw-table-table _%tab98193%_))))) (declare (not safe)) - (##fxquotient __tmp101806 '4)))) + (##fxquotient __tmp102689 '4)))) (declare (not safe)) - (##fx< __tmp101807 __tmp101805)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97310%_)) + (##fx< __tmp102690 __tmp102688)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab98193%_)) '#!void) (__method-specializer-table-set! - _%tab97310%_ - _%key97311%_ - _%value97312%_))) + _%tab98193%_ + _%key98194%_ + _%value98195%_))) (define __method-specializer-table-set! - (lambda (_%tab97261%_ _%key97262%_ _%value97263%_) - (let ((_%table97266%_ - (let () (declare (not safe)) (&raw-table-table _%tab97261%_))) - (_%seed97267%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97261%_)))) - (let* ((_%h97269%_ + (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 _%key97262%_)) - _%seed97267%_)) - (_%size97272%_ (vector-length _%table97266%_)) - (_%entries97275%_ + (procedure-hash _%key98145%_)) + _%seed98150%_)) + (_%size98155%_ (vector-length _%table98149%_)) + (_%entries98158%_ (let () (declare (not safe)) - (##fxquotient _%size97272%_ '2))) - (_%start97278%_ - (let ((__tmp101808 + (##fxquotient _%size98155%_ '2))) + (_%start98161%_ + (let ((__tmp102691 (let () (declare (not safe)) - (##fxmodulo _%h97269%_ _%entries97275%_)))) + (##fxmodulo _%h98152%_ _%entries98158%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101808 '1)))) - (let _%loop97282%_ ((_%probe97285%_ _%start97278%_) - (_%i97287%_ '1) - (_%deleted97289%_ '#f)) - (let ((_%k97292%_ (vector-ref _%table97266%_ _%probe97285%_))) - (if (eq? _%k97292%_ (macro-unused-obj)) - (if _%deleted97289%_ + (##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! - _%table97266%_ - _%deleted97289%_ - _%key97262%_) + _%table98149%_ + _%deleted98172%_ + _%key98145%_) (vector-set! - _%table97266%_ + _%table98149%_ (let () (declare (not safe)) - (##fx+ _%deleted97289%_ '1)) - _%value97263%_) + (##fx+ _%deleted98172%_ '1)) + _%value98146%_) ((lambda () - (let ((__tmp101809 - (let ((__tmp101810 + (let ((__tmp102692 + (let ((__tmp102693 (let () (declare (not safe)) - (&raw-table-count _%tab97261%_)))) + (&raw-table-count _%tab98144%_)))) (declare (not safe)) - (##fx+ __tmp101810 '1)))) + (##fx+ __tmp102693 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97261%_ - __tmp101809))))) + _%tab98144%_ + __tmp102692))))) (begin (vector-set! - _%table97266%_ - _%probe97285%_ - _%key97262%_) + _%table98149%_ + _%probe98168%_ + _%key98145%_) (vector-set! - _%table97266%_ + _%table98149%_ (let () (declare (not safe)) - (##fx+ _%probe97285%_ '1)) - _%value97263%_) + (##fx+ _%probe98168%_ '1)) + _%value98146%_) ((lambda () - (let ((__tmp101811 - (let ((__tmp101812 + (let ((__tmp102694 + (let ((__tmp102695 (let () (declare (not safe)) - (&raw-table-free _%tab97261%_)))) + (&raw-table-free _%tab98144%_)))) (declare (not safe)) - (##fx- __tmp101812 '1)))) + (##fx- __tmp102695 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab97261%_ __tmp101811)) - (let ((__tmp101813 - (let ((__tmp101814 + (&raw-table-free-set! _%tab98144%_ __tmp102694)) + (let ((__tmp102696 + (let ((__tmp102697 (let () (declare (not safe)) - (&raw-table-count _%tab97261%_)))) + (&raw-table-count _%tab98144%_)))) (declare (not safe)) - (##fx+ __tmp101814 '1)))) + (##fx+ __tmp102697 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97261%_ - __tmp101813)))))) - (if (eq? _%k97292%_ (macro-deleted-obj)) - (_%loop97282%_ - (let ((_%next-probe97299%_ - (fx+ _%start97278%_ - _%i97287%_ - (fx* _%i97287%_ _%i97287%_)))) + _%tab98144%_ + __tmp102696)))))) + (if (eq? _%k98175%_ (macro-deleted-obj)) + (_%loop98165%_ + (let ((_%next-probe98182%_ + (fx+ _%start98161%_ + _%i98170%_ + (fx* _%i98170%_ _%i98170%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97299%_ _%size97272%_)) - (let () (declare (not safe)) (##fx+ _%i97287%_ '1)) - (let ((_%$e97302%_ _%deleted97289%_)) - (if _%$e97302%_ _%$e97302%_ _%probe97285%_))) - (if (eq? _%key97262%_ _%k97292%_) + (##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! - _%table97266%_ - _%probe97285%_ - _%key97262%_) + _%table98149%_ + _%probe98168%_ + _%key98145%_) (vector-set! - _%table97266%_ + _%table98149%_ (let () (declare (not safe)) - (##fx+ _%probe97285%_ '1)) - _%value97263%_)) - (_%loop97282%_ - (let ((_%next-probe97307%_ - (fx+ _%start97278%_ - _%i97287%_ - (fx* _%i97287%_ _%i97287%_)))) + (##fx+ _%probe98168%_ '1)) + _%value98146%_)) + (_%loop98165%_ + (let ((_%next-probe98190%_ + (fx+ _%start98161%_ + _%i98170%_ + (fx* _%i98170%_ _%i98170%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97307%_ _%size97272%_)) + (##fxmodulo _%next-probe98190%_ _%size98155%_)) (let () (declare (not safe)) - (##fx+ _%i97287%_ '1)) - _%deleted97289%_)))))))))) + (##fx+ _%i98170%_ '1)) + _%deleted98172%_)))))))))) (define method-specializer-table-update! - (lambda (_%tab97256%_ - _%key97257%_ - _%method-specializer-table-update!97258%_ - _%default97259%_) - (if (let ((__tmp101817 + (lambda (_%tab98139%_ + _%key98140%_ + _%method-specializer-table-update!98141%_ + _%default98142%_) + (if (let ((__tmp102700 (let () (declare (not safe)) - (&raw-table-free _%tab97256%_))) - (__tmp101815 - (let ((__tmp101816 + (&raw-table-free _%tab98139%_))) + (__tmp102698 + (let ((__tmp102699 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97256%_))))) + (&raw-table-table _%tab98139%_))))) (declare (not safe)) - (##fxquotient __tmp101816 '4)))) + (##fxquotient __tmp102699 '4)))) (declare (not safe)) - (##fx< __tmp101817 __tmp101815)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97256%_)) + (##fx< __tmp102700 __tmp102698)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab98139%_)) '#!void) (__method-specializer-table-update! - _%tab97256%_ - _%key97257%_ - _%method-specializer-table-update!97258%_ - _%default97259%_))) + _%tab98139%_ + _%key98140%_ + _%method-specializer-table-update!98141%_ + _%default98142%_))) (define __method-specializer-table-update! - (lambda (_%tab97206%_ - _%key97207%_ - _%method-specializer-table-update!97208%_ - _%default97209%_) - (let ((_%table97212%_ - (let () (declare (not safe)) (&raw-table-table _%tab97206%_))) - (_%seed97213%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97206%_)))) - (let* ((_%h97215%_ + (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 _%key97207%_)) - _%seed97213%_)) - (_%size97218%_ (vector-length _%table97212%_)) - (_%entries97221%_ + (procedure-hash _%key98090%_)) + _%seed98096%_)) + (_%size98101%_ (vector-length _%table98095%_)) + (_%entries98104%_ (let () (declare (not safe)) - (##fxquotient _%size97218%_ '2))) - (_%start97224%_ - (let ((__tmp101818 + (##fxquotient _%size98101%_ '2))) + (_%start98107%_ + (let ((__tmp102701 (let () (declare (not safe)) - (##fxmodulo _%h97215%_ _%entries97221%_)))) + (##fxmodulo _%h98098%_ _%entries98104%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101818 '1)))) - (let _%loop97228%_ ((_%probe97231%_ _%start97224%_) - (_%i97233%_ '1) - (_%deleted97235%_ '#f)) - (let ((_%k97238%_ (vector-ref _%table97212%_ _%probe97231%_))) - (if (eq? _%k97238%_ (macro-unused-obj)) - (if _%deleted97235%_ + (##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! - _%table97212%_ - _%deleted97235%_ - _%key97207%_) + _%table98095%_ + _%deleted98118%_ + _%key98090%_) (vector-set! - _%table97212%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%deleted97235%_ '1)) - (_%method-specializer-table-update!97208%_ - _%default97209%_)) + (##fx+ _%deleted98118%_ '1)) + (_%method-specializer-table-update!98091%_ + _%default98092%_)) ((lambda () - (let ((__tmp101819 - (let ((__tmp101820 + (let ((__tmp102702 + (let ((__tmp102703 (let () (declare (not safe)) - (&raw-table-count _%tab97206%_)))) + (&raw-table-count _%tab98089%_)))) (declare (not safe)) - (##fx+ __tmp101820 '1)))) + (##fx+ __tmp102703 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97206%_ - __tmp101819))))) + _%tab98089%_ + __tmp102702))))) (begin (vector-set! - _%table97212%_ - _%probe97231%_ - _%key97207%_) + _%table98095%_ + _%probe98114%_ + _%key98090%_) (vector-set! - _%table97212%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%probe97231%_ '1)) - (_%method-specializer-table-update!97208%_ - _%default97209%_)) + (##fx+ _%probe98114%_ '1)) + (_%method-specializer-table-update!98091%_ + _%default98092%_)) ((lambda () - (let ((__tmp101821 - (let ((__tmp101822 + (let ((__tmp102704 + (let ((__tmp102705 (let () (declare (not safe)) - (&raw-table-free _%tab97206%_)))) + (&raw-table-free _%tab98089%_)))) (declare (not safe)) - (##fx- __tmp101822 '1)))) + (##fx- __tmp102705 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab97206%_ __tmp101821)) - (let ((__tmp101823 - (let ((__tmp101824 + (&raw-table-free-set! _%tab98089%_ __tmp102704)) + (let ((__tmp102706 + (let ((__tmp102707 (let () (declare (not safe)) - (&raw-table-count _%tab97206%_)))) + (&raw-table-count _%tab98089%_)))) (declare (not safe)) - (##fx+ __tmp101824 '1)))) + (##fx+ __tmp102707 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97206%_ - __tmp101823)))))) - (if (eq? _%k97238%_ (macro-deleted-obj)) - (_%loop97228%_ - (let ((_%next-probe97245%_ - (fx+ _%start97224%_ - _%i97233%_ - (fx* _%i97233%_ _%i97233%_)))) + _%tab98089%_ + __tmp102706)))))) + (if (eq? _%k98121%_ (macro-deleted-obj)) + (_%loop98111%_ + (let ((_%next-probe98128%_ + (fx+ _%start98107%_ + _%i98116%_ + (fx* _%i98116%_ _%i98116%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97245%_ _%size97218%_)) - (let () (declare (not safe)) (##fx+ _%i97233%_ '1)) - (let ((_%$e97248%_ _%deleted97235%_)) - (if _%$e97248%_ _%$e97248%_ _%probe97231%_))) - (if (eq? _%key97207%_ _%k97238%_) + (##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! - _%table97212%_ - _%probe97231%_ - _%key97207%_) + _%table98095%_ + _%probe98114%_ + _%key98090%_) (vector-set! - _%table97212%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%probe97231%_ '1)) - (_%method-specializer-table-update!97208%_ + (##fx+ _%probe98114%_ '1)) + (_%method-specializer-table-update!98091%_ (vector-ref - _%table97212%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%probe97231%_ '1)))))) - (_%loop97228%_ - (let ((_%next-probe97253%_ - (fx+ _%start97224%_ - _%i97233%_ - (fx* _%i97233%_ _%i97233%_)))) + (##fx+ _%probe98114%_ '1)))))) + (_%loop98111%_ + (let ((_%next-probe98136%_ + (fx+ _%start98107%_ + _%i98116%_ + (fx* _%i98116%_ _%i98116%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97253%_ _%size97218%_)) + (##fxmodulo _%next-probe98136%_ _%size98101%_)) (let () (declare (not safe)) - (##fx+ _%i97233%_ '1)) - _%deleted97235%_)))))))))) + (##fx+ _%i98116%_ '1)) + _%deleted98118%_)))))))))) (define method-specializer-table-delete! - (lambda (_%tab97161%_ _%key97163%_) - (let ((_%table97166%_ - (let () (declare (not safe)) (&raw-table-table _%tab97161%_))) - (_%seed97168%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97161%_)))) - (let* ((_%h97171%_ + (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 _%key97163%_)) - _%seed97168%_)) - (_%size97174%_ (vector-length _%table97166%_)) - (_%entries97177%_ + (procedure-hash _%key98046%_)) + _%seed98051%_)) + (_%size98057%_ (vector-length _%table98049%_)) + (_%entries98060%_ (let () (declare (not safe)) - (##fxquotient _%size97174%_ '2))) - (_%start97180%_ - (let ((__tmp101825 + (##fxquotient _%size98057%_ '2))) + (_%start98063%_ + (let ((__tmp102708 (let () (declare (not safe)) - (##fxmodulo _%h97171%_ _%entries97177%_)))) + (##fxmodulo _%h98054%_ _%entries98060%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101825 '1)))) - (let _%loop97184%_ ((_%probe97187%_ _%start97180%_) - (_%i97189%_ '1)) - (let ((_%k97192%_ (vector-ref _%table97166%_ _%probe97187%_))) - (if (eq? _%k97192%_ (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? _%k97192%_ (macro-deleted-obj)) - (_%loop97184%_ - (let ((_%next-probe97197%_ - (fx+ _%start97180%_ - _%i97189%_ - (fx* _%i97189%_ _%i97189%_)))) + (if (eq? _%k98075%_ (macro-deleted-obj)) + (_%loop98067%_ + (let ((_%next-probe98080%_ + (fx+ _%start98063%_ + _%i98072%_ + (fx* _%i98072%_ _%i98072%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97197%_ _%size97174%_)) - (let () (declare (not safe)) (##fx+ _%i97189%_ '1))) - (if (eq? _%key97163%_ _%k97192%_) + (##fxmodulo _%next-probe98080%_ _%size98057%_)) + (let () (declare (not safe)) (##fx+ _%i98072%_ '1))) + (if (eq? _%key98046%_ _%k98075%_) (let () (vector-set! - _%table97166%_ - _%probe97187%_ + _%table98049%_ + _%probe98070%_ (macro-deleted-obj)) (vector-set! - _%table97166%_ + _%table98049%_ (let () (declare (not safe)) - (##fx+ _%probe97187%_ '1)) + (##fx+ _%probe98070%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101826 - (let ((__tmp101827 + (let ((__tmp102709 + (let ((__tmp102710 (let () (declare (not safe)) (&raw-table-count - _%tab97161%_)))) + _%tab98044%_)))) (declare (not safe)) - (##fx- __tmp101827 '1)))) + (##fx- __tmp102710 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97161%_ - __tmp101826))))) - (_%loop97184%_ - (let ((_%next-probe97203%_ - (fx+ _%start97180%_ - _%i97189%_ - (fx* _%i97189%_ _%i97189%_)))) + _%tab98044%_ + __tmp102709))))) + (_%loop98067%_ + (let ((_%next-probe98086%_ + (fx+ _%start98063%_ + _%i98072%_ + (fx* _%i98072%_ _%i98072%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97203%_ _%size97174%_)) + (##fxmodulo _%next-probe98086%_ _%size98057%_)) (let () (declare (not safe)) - (##fx+ _%i97189%_ '1)))))))))))) + (##fx+ _%i98072%_ '1)))))))))))) (define __method-specializers (make-method-specializer-table__% '#f '0)) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_%method-proc97152%_ _%specializer97153%_) + (lambda (_%method-proc98035%_ _%specializer98036%_) (let () (declare (not interrupts-enabled)) - (let _%again97157%_ () - (if (let ((__tmp101828 + (let _%again98040%_ () + (if (let ((__tmp102711 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101828 '0)) + (##fx= __tmp102711 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again97157%_))))) + (_%again98040%_))))) (method-specializer-table-set! __method-specializers - _%method-proc97152%_ - _%specializer97153%_) + _%method-proc98035%_ + _%specializer98036%_) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_%proc97142%_) + (lambda (_%proc98025%_) (let () (declare (not interrupts-enabled)) - (let _%again97146%_ () - (if (let ((__tmp101829 + (let _%again98029%_ () + (if (let ((__tmp102712 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101829 '0)) + (##fx= __tmp102712 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again97146%_))))) - (let ((_%specializer97150%_ + (_%again98029%_))))) + (let ((_%specializer98033%_ (method-specializer-table-ref __method-specializers - _%proc97142%_ + _%proc98025%_ '#f))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer97150%_))) + _%specializer98033%_))) (define __class-specializer-hash-key - (lambda (_%klass97140%_) - (let ((__tmp101830 - (let () (declare (not safe)) (##type-id _%klass97140%_)))) + (lambda (_%klass98023%_) + (let ((__tmp102713 + (let () (declare (not safe)) (##type-id _%klass98023%_)))) (declare (not safe)) - (symbolic-hash __tmp101830)))) + (symbolic-hash __tmp102713)))) (define make-class-specializer-table__% - (lambda (_%size-hint97121%_ _%seed97123%_) + (lambda (_%size-hint98004%_ _%seed98006%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint97121%_ + _%size-hint98004%_ __class-specializer-hash-key eq? - _%seed97123%_)))) + _%seed98006%_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_%size-hint97129%_ '#f) (_%seed97131%_ '0)) - (make-class-specializer-table__% _%size-hint97129%_ _%seed97131%_)))) + (let* ((_%size-hint98012%_ '#f) (_%seed98014%_ '0)) + (make-class-specializer-table__% _%size-hint98012%_ _%seed98014%_)))) (define make-class-specializer-table__1 - (lambda (_%size-hint97133%_) - (let ((_%seed97135%_ '0)) - (make-class-specializer-table__% _%size-hint97133%_ _%seed97135%_)))) + (lambda (_%size-hint98016%_) + (let ((_%seed98018%_ '0)) + (make-class-specializer-table__% _%size-hint98016%_ _%seed98018%_)))) (define make-class-specializer-table - (lambda _g101832_ - (let ((_g101831_ (let () (declare (not safe)) (##length _g101832_)))) - (cond ((let () (declare (not safe)) (##fx= _g101831_ 0)) - (apply make-class-specializer-table__0 _g101832_)) - ((let () (declare (not safe)) (##fx= _g101831_ 1)) - (apply make-class-specializer-table__1 _g101832_)) - ((let () (declare (not safe)) (##fx= _g101831_ 2)) - (apply make-class-specializer-table__% _g101832_)) + (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 - _g101832_)))))) + _g102715_)))))) (define class-specializer-table-ref - (lambda (_%tab97074%_ _%key97075%_ _%default97076%_) - (let ((_%table97078%_ - (let () (declare (not safe)) (&raw-table-table _%tab97074%_))) - (_%seed97079%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97074%_)))) - (let* ((_%h97081%_ - (fxxor (__class-specializer-hash-key _%key97075%_) - _%seed97079%_)) - (_%size97084%_ (vector-length _%table97078%_)) - (_%entries97087%_ + (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 _%size97084%_ '2))) - (_%start97090%_ - (let ((__tmp101833 + (##fxquotient _%size97967%_ '2))) + (_%start97973%_ + (let ((__tmp102716 (let () (declare (not safe)) - (##fxmodulo _%h97081%_ _%entries97087%_)))) + (##fxmodulo _%h97964%_ _%entries97970%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101833 '1)))) - (let _%loop97094%_ ((_%probe97097%_ _%start97090%_) - (_%i97099%_ '1) - (_%deleted97101%_ '#f)) - (let ((_%k97104%_ (vector-ref _%table97078%_ _%probe97097%_))) - (if (eq? _%k97104%_ (macro-unused-obj)) - _%default97076%_ - (if (eq? _%k97104%_ (macro-deleted-obj)) - (_%loop97094%_ - (let ((_%next-probe97109%_ - (fx+ _%start97090%_ - _%i97099%_ - (fx* _%i97099%_ _%i97099%_)))) + (##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-probe97109%_ _%size97084%_)) - (let () (declare (not safe)) (##fx+ _%i97099%_ '1)) - (let ((_%$e97112%_ _%deleted97101%_)) - (if _%$e97112%_ _%$e97112%_ _%probe97097%_))) - (if (eq? _%key97075%_ _%k97104%_) + (##fxmodulo _%next-probe97992%_ _%size97967%_)) + (let () (declare (not safe)) (##fx+ _%i97982%_ '1)) + (let ((_%$e97995%_ _%deleted97984%_)) + (if _%$e97995%_ _%$e97995%_ _%probe97980%_))) + (if (eq? _%key97958%_ _%k97987%_) (vector-ref - _%table97078%_ + _%table97961%_ (let () (declare (not safe)) - (##fx+ _%probe97097%_ '1))) - (_%loop97094%_ - (let ((_%next-probe97117%_ - (fx+ _%start97090%_ - _%i97099%_ - (fx* _%i97099%_ _%i97099%_)))) + (##fx+ _%probe97980%_ '1))) + (_%loop97977%_ + (let ((_%next-probe98000%_ + (fx+ _%start97973%_ + _%i97982%_ + (fx* _%i97982%_ _%i97982%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97117%_ _%size97084%_)) + (##fxmodulo _%next-probe98000%_ _%size97967%_)) (let () (declare (not safe)) - (##fx+ _%i97099%_ '1)) - _%deleted97101%_)))))))))) + (##fx+ _%i97982%_ '1)) + _%deleted97984%_)))))))))) (define class-specializer-table-set! - (lambda (_%tab97070%_ _%key97071%_ _%value97072%_) - (if (let ((__tmp101836 + (lambda (_%tab97953%_ _%key97954%_ _%value97955%_) + (if (let ((__tmp102719 (let () (declare (not safe)) - (&raw-table-free _%tab97070%_))) - (__tmp101834 - (let ((__tmp101835 + (&raw-table-free _%tab97953%_))) + (__tmp102717 + (let ((__tmp102718 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97070%_))))) + (&raw-table-table _%tab97953%_))))) (declare (not safe)) - (##fxquotient __tmp101835 '4)))) + (##fxquotient __tmp102718 '4)))) (declare (not safe)) - (##fx< __tmp101836 __tmp101834)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97070%_)) + (##fx< __tmp102719 __tmp102717)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97953%_)) '#!void) (__class-specializer-table-set! - _%tab97070%_ - _%key97071%_ - _%value97072%_))) + _%tab97953%_ + _%key97954%_ + _%value97955%_))) (define __class-specializer-table-set! - (lambda (_%tab97021%_ _%key97022%_ _%value97023%_) - (let ((_%table97026%_ - (let () (declare (not safe)) (&raw-table-table _%tab97021%_))) - (_%seed97027%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97021%_)))) - (let* ((_%h97029%_ - (fxxor (__class-specializer-hash-key _%key97022%_) - _%seed97027%_)) - (_%size97032%_ (vector-length _%table97026%_)) - (_%entries97035%_ + (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 _%size97032%_ '2))) - (_%start97038%_ - (let ((__tmp101837 + (##fxquotient _%size97915%_ '2))) + (_%start97921%_ + (let ((__tmp102720 (let () (declare (not safe)) - (##fxmodulo _%h97029%_ _%entries97035%_)))) + (##fxmodulo _%h97912%_ _%entries97918%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101837 '1)))) - (let _%loop97042%_ ((_%probe97045%_ _%start97038%_) - (_%i97047%_ '1) - (_%deleted97049%_ '#f)) - (let ((_%k97052%_ (vector-ref _%table97026%_ _%probe97045%_))) - (if (eq? _%k97052%_ (macro-unused-obj)) - (if _%deleted97049%_ + (##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! - _%table97026%_ - _%deleted97049%_ - _%key97022%_) + _%table97909%_ + _%deleted97932%_ + _%key97905%_) (vector-set! - _%table97026%_ + _%table97909%_ (let () (declare (not safe)) - (##fx+ _%deleted97049%_ '1)) - _%value97023%_) + (##fx+ _%deleted97932%_ '1)) + _%value97906%_) ((lambda () - (let ((__tmp101838 - (let ((__tmp101839 + (let ((__tmp102721 + (let ((__tmp102722 (let () (declare (not safe)) - (&raw-table-count _%tab97021%_)))) + (&raw-table-count _%tab97904%_)))) (declare (not safe)) - (##fx+ __tmp101839 '1)))) + (##fx+ __tmp102722 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97021%_ - __tmp101838))))) + _%tab97904%_ + __tmp102721))))) (begin (vector-set! - _%table97026%_ - _%probe97045%_ - _%key97022%_) + _%table97909%_ + _%probe97928%_ + _%key97905%_) (vector-set! - _%table97026%_ + _%table97909%_ (let () (declare (not safe)) - (##fx+ _%probe97045%_ '1)) - _%value97023%_) + (##fx+ _%probe97928%_ '1)) + _%value97906%_) ((lambda () - (let ((__tmp101840 - (let ((__tmp101841 + (let ((__tmp102723 + (let ((__tmp102724 (let () (declare (not safe)) - (&raw-table-free _%tab97021%_)))) + (&raw-table-free _%tab97904%_)))) (declare (not safe)) - (##fx- __tmp101841 '1)))) + (##fx- __tmp102724 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab97021%_ __tmp101840)) - (let ((__tmp101842 - (let ((__tmp101843 + (&raw-table-free-set! _%tab97904%_ __tmp102723)) + (let ((__tmp102725 + (let ((__tmp102726 (let () (declare (not safe)) - (&raw-table-count _%tab97021%_)))) + (&raw-table-count _%tab97904%_)))) (declare (not safe)) - (##fx+ __tmp101843 '1)))) + (##fx+ __tmp102726 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97021%_ - __tmp101842)))))) - (if (eq? _%k97052%_ (macro-deleted-obj)) - (_%loop97042%_ - (let ((_%next-probe97059%_ - (fx+ _%start97038%_ - _%i97047%_ - (fx* _%i97047%_ _%i97047%_)))) + _%tab97904%_ + __tmp102725)))))) + (if (eq? _%k97935%_ (macro-deleted-obj)) + (_%loop97925%_ + (let ((_%next-probe97942%_ + (fx+ _%start97921%_ + _%i97930%_ + (fx* _%i97930%_ _%i97930%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97059%_ _%size97032%_)) - (let () (declare (not safe)) (##fx+ _%i97047%_ '1)) - (let ((_%$e97062%_ _%deleted97049%_)) - (if _%$e97062%_ _%$e97062%_ _%probe97045%_))) - (if (eq? _%key97022%_ _%k97052%_) + (##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! - _%table97026%_ - _%probe97045%_ - _%key97022%_) + _%table97909%_ + _%probe97928%_ + _%key97905%_) (vector-set! - _%table97026%_ + _%table97909%_ (let () (declare (not safe)) - (##fx+ _%probe97045%_ '1)) - _%value97023%_)) - (_%loop97042%_ - (let ((_%next-probe97067%_ - (fx+ _%start97038%_ - _%i97047%_ - (fx* _%i97047%_ _%i97047%_)))) + (##fx+ _%probe97928%_ '1)) + _%value97906%_)) + (_%loop97925%_ + (let ((_%next-probe97950%_ + (fx+ _%start97921%_ + _%i97930%_ + (fx* _%i97930%_ _%i97930%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97067%_ _%size97032%_)) + (##fxmodulo _%next-probe97950%_ _%size97915%_)) (let () (declare (not safe)) - (##fx+ _%i97047%_ '1)) - _%deleted97049%_)))))))))) + (##fx+ _%i97930%_ '1)) + _%deleted97932%_)))))))))) (define class-specializer-table-update! - (lambda (_%tab97016%_ - _%key97017%_ - _%class-specializer-table-update!97018%_ - _%default97019%_) - (if (let ((__tmp101846 + (lambda (_%tab97899%_ + _%key97900%_ + _%class-specializer-table-update!97901%_ + _%default97902%_) + (if (let ((__tmp102729 (let () (declare (not safe)) - (&raw-table-free _%tab97016%_))) - (__tmp101844 - (let ((__tmp101845 + (&raw-table-free _%tab97899%_))) + (__tmp102727 + (let ((__tmp102728 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97016%_))))) + (&raw-table-table _%tab97899%_))))) (declare (not safe)) - (##fxquotient __tmp101845 '4)))) + (##fxquotient __tmp102728 '4)))) (declare (not safe)) - (##fx< __tmp101846 __tmp101844)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97016%_)) + (##fx< __tmp102729 __tmp102727)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97899%_)) '#!void) (__class-specializer-table-update! - _%tab97016%_ - _%key97017%_ - _%class-specializer-table-update!97018%_ - _%default97019%_))) + _%tab97899%_ + _%key97900%_ + _%class-specializer-table-update!97901%_ + _%default97902%_))) (define __class-specializer-table-update! - (lambda (_%tab96966%_ - _%key96967%_ - _%class-specializer-table-update!96968%_ - _%default96969%_) - (let ((_%table96972%_ - (let () (declare (not safe)) (&raw-table-table _%tab96966%_))) - (_%seed96973%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96966%_)))) - (let* ((_%h96975%_ - (fxxor (__class-specializer-hash-key _%key96967%_) - _%seed96973%_)) - (_%size96978%_ (vector-length _%table96972%_)) - (_%entries96981%_ + (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 _%size96978%_ '2))) - (_%start96984%_ - (let ((__tmp101847 + (##fxquotient _%size97861%_ '2))) + (_%start97867%_ + (let ((__tmp102730 (let () (declare (not safe)) - (##fxmodulo _%h96975%_ _%entries96981%_)))) + (##fxmodulo _%h97858%_ _%entries97864%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101847 '1)))) - (let _%loop96988%_ ((_%probe96991%_ _%start96984%_) - (_%i96993%_ '1) - (_%deleted96995%_ '#f)) - (let ((_%k96998%_ (vector-ref _%table96972%_ _%probe96991%_))) - (if (eq? _%k96998%_ (macro-unused-obj)) - (if _%deleted96995%_ + (##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! - _%table96972%_ - _%deleted96995%_ - _%key96967%_) + _%table97855%_ + _%deleted97878%_ + _%key97850%_) (vector-set! - _%table96972%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%deleted96995%_ '1)) - (_%class-specializer-table-update!96968%_ - _%default96969%_)) + (##fx+ _%deleted97878%_ '1)) + (_%class-specializer-table-update!97851%_ + _%default97852%_)) ((lambda () - (let ((__tmp101848 - (let ((__tmp101849 + (let ((__tmp102731 + (let ((__tmp102732 (let () (declare (not safe)) - (&raw-table-count _%tab96966%_)))) + (&raw-table-count _%tab97849%_)))) (declare (not safe)) - (##fx+ __tmp101849 '1)))) + (##fx+ __tmp102732 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96966%_ - __tmp101848))))) + _%tab97849%_ + __tmp102731))))) (begin (vector-set! - _%table96972%_ - _%probe96991%_ - _%key96967%_) + _%table97855%_ + _%probe97874%_ + _%key97850%_) (vector-set! - _%table96972%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%probe96991%_ '1)) - (_%class-specializer-table-update!96968%_ - _%default96969%_)) + (##fx+ _%probe97874%_ '1)) + (_%class-specializer-table-update!97851%_ + _%default97852%_)) ((lambda () - (let ((__tmp101850 - (let ((__tmp101851 + (let ((__tmp102733 + (let ((__tmp102734 (let () (declare (not safe)) - (&raw-table-free _%tab96966%_)))) + (&raw-table-free _%tab97849%_)))) (declare (not safe)) - (##fx- __tmp101851 '1)))) + (##fx- __tmp102734 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96966%_ __tmp101850)) - (let ((__tmp101852 - (let ((__tmp101853 + (&raw-table-free-set! _%tab97849%_ __tmp102733)) + (let ((__tmp102735 + (let ((__tmp102736 (let () (declare (not safe)) - (&raw-table-count _%tab96966%_)))) + (&raw-table-count _%tab97849%_)))) (declare (not safe)) - (##fx+ __tmp101853 '1)))) + (##fx+ __tmp102736 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96966%_ - __tmp101852)))))) - (if (eq? _%k96998%_ (macro-deleted-obj)) - (_%loop96988%_ - (let ((_%next-probe97005%_ - (fx+ _%start96984%_ - _%i96993%_ - (fx* _%i96993%_ _%i96993%_)))) + _%tab97849%_ + __tmp102735)))))) + (if (eq? _%k97881%_ (macro-deleted-obj)) + (_%loop97871%_ + (let ((_%next-probe97888%_ + (fx+ _%start97867%_ + _%i97876%_ + (fx* _%i97876%_ _%i97876%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97005%_ _%size96978%_)) - (let () (declare (not safe)) (##fx+ _%i96993%_ '1)) - (let ((_%$e97008%_ _%deleted96995%_)) - (if _%$e97008%_ _%$e97008%_ _%probe96991%_))) - (if (eq? _%key96967%_ _%k96998%_) + (##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! - _%table96972%_ - _%probe96991%_ - _%key96967%_) + _%table97855%_ + _%probe97874%_ + _%key97850%_) (vector-set! - _%table96972%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%probe96991%_ '1)) - (_%class-specializer-table-update!96968%_ + (##fx+ _%probe97874%_ '1)) + (_%class-specializer-table-update!97851%_ (vector-ref - _%table96972%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%probe96991%_ '1)))))) - (_%loop96988%_ - (let ((_%next-probe97013%_ - (fx+ _%start96984%_ - _%i96993%_ - (fx* _%i96993%_ _%i96993%_)))) + (##fx+ _%probe97874%_ '1)))))) + (_%loop97871%_ + (let ((_%next-probe97896%_ + (fx+ _%start97867%_ + _%i97876%_ + (fx* _%i97876%_ _%i97876%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97013%_ _%size96978%_)) + (##fxmodulo _%next-probe97896%_ _%size97861%_)) (let () (declare (not safe)) - (##fx+ _%i96993%_ '1)) - _%deleted96995%_)))))))))) + (##fx+ _%i97876%_ '1)) + _%deleted97878%_)))))))))) (define class-specializer-table-delete! - (lambda (_%tab96921%_ _%key96923%_) - (let ((_%table96926%_ - (let () (declare (not safe)) (&raw-table-table _%tab96921%_))) - (_%seed96928%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96921%_)))) - (let* ((_%h96931%_ - (fxxor (__class-specializer-hash-key _%key96923%_) - _%seed96928%_)) - (_%size96934%_ (vector-length _%table96926%_)) - (_%entries96937%_ + (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 _%size96934%_ '2))) - (_%start96940%_ - (let ((__tmp101854 + (##fxquotient _%size97817%_ '2))) + (_%start97823%_ + (let ((__tmp102737 (let () (declare (not safe)) - (##fxmodulo _%h96931%_ _%entries96937%_)))) + (##fxmodulo _%h97814%_ _%entries97820%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101854 '1)))) - (let _%loop96944%_ ((_%probe96947%_ _%start96940%_) - (_%i96949%_ '1)) - (let ((_%k96952%_ (vector-ref _%table96926%_ _%probe96947%_))) - (if (eq? _%k96952%_ (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? _%k96952%_ (macro-deleted-obj)) - (_%loop96944%_ - (let ((_%next-probe96957%_ - (fx+ _%start96940%_ - _%i96949%_ - (fx* _%i96949%_ _%i96949%_)))) + (if (eq? _%k97835%_ (macro-deleted-obj)) + (_%loop97827%_ + (let ((_%next-probe97840%_ + (fx+ _%start97823%_ + _%i97832%_ + (fx* _%i97832%_ _%i97832%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96957%_ _%size96934%_)) - (let () (declare (not safe)) (##fx+ _%i96949%_ '1))) - (if (eq? _%key96923%_ _%k96952%_) + (##fxmodulo _%next-probe97840%_ _%size97817%_)) + (let () (declare (not safe)) (##fx+ _%i97832%_ '1))) + (if (eq? _%key97806%_ _%k97835%_) (let () (vector-set! - _%table96926%_ - _%probe96947%_ + _%table97809%_ + _%probe97830%_ (macro-deleted-obj)) (vector-set! - _%table96926%_ + _%table97809%_ (let () (declare (not safe)) - (##fx+ _%probe96947%_ '1)) + (##fx+ _%probe97830%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101855 - (let ((__tmp101856 + (let ((__tmp102738 + (let ((__tmp102739 (let () (declare (not safe)) (&raw-table-count - _%tab96921%_)))) + _%tab97804%_)))) (declare (not safe)) - (##fx- __tmp101856 '1)))) + (##fx- __tmp102739 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96921%_ - __tmp101855))))) - (_%loop96944%_ - (let ((_%next-probe96963%_ - (fx+ _%start96940%_ - _%i96949%_ - (fx* _%i96949%_ _%i96949%_)))) + _%tab97804%_ + __tmp102738))))) + (_%loop97827%_ + (let ((_%next-probe97846%_ + (fx+ _%start97823%_ + _%i97832%_ + (fx* _%i97832%_ _%i97832%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96963%_ _%size96934%_)) + (##fxmodulo _%next-probe97846%_ _%size97817%_)) (let () (declare (not safe)) - (##fx+ _%i96949%_ '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 (_%klass96907%_) + (lambda (_%klass97790%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96907%_ 'class)) - (let ((_%klass96911%_ _%klass96907%_)) - (__specialize-class _%klass96911%_)) + (##structure-instance-of? _%klass97790%_ 'class)) + (let ((_%klass97794%_ _%klass97790%_)) + (__specialize-class _%klass97794%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4563,190 +4601,190 @@ 'contract: 'class-type? 'value: - _%klass96907%_) + _%klass97790%_) '#!void)))) (define __specialize-class - (lambda (_%klass96889%_) - (let* ((_%klass96892%_ _%klass96889%_) - (_%$e96901%_ (__lookup-class-specializer _%klass96892%_))) - (if _%$e96901%_ - _%$e96901%_ - (let ((_%method-table96905%_ - (___specialize-class _%klass96892%_))) + (lambda (_%klass97772%_) + (let* ((_%klass97775%_ _%klass97772%_) + (_%$e97784%_ (__lookup-class-specializer _%klass97775%_))) + (if _%$e97784%_ + _%$e97784%_ + (let ((_%method-table97788%_ + (___specialize-class _%klass97775%_))) (__bind-class-specializer! - _%klass96892%_ - _%method-table96905%_) - _%method-table96905%_))))) + _%klass97775%_ + _%method-table97788%_) + _%method-table97788%_))))) (define __lookup-class-specializer - (lambda (_%klass96879%_) + (lambda (_%klass97762%_) (let () (declare (not interrupts-enabled)) - (let _%again96883%_ () - (if (let ((__tmp101857 + (let _%again97766%_ () + (if (let ((__tmp102740 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101857 '0)) + (##fx= __tmp102740 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96883%_))))) - (let ((_%method-table96887%_ + (_%again97766%_))))) + (let ((_%method-table97770%_ (class-specializer-table-ref __class-specializers - _%klass96879%_ + _%klass97762%_ '#f))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table96887%_))) + _%method-table97770%_))) (define __bind-class-specializer! - (lambda (_%klass96870%_ _%method-table96871%_) + (lambda (_%klass97753%_ _%method-table97754%_) (let () (declare (not interrupts-enabled)) - (let _%again96875%_ () - (if (let ((__tmp101858 + (let _%again97758%_ () + (if (let ((__tmp102741 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101858 '0)) + (##fx= __tmp102741 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96875%_))))) + (_%again97758%_))))) (class-specializer-table-set! __class-specializers - _%klass96870%_ - _%method-table96871%_) + _%klass97753%_ + _%method-table97754%_) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_%klass96854%_ - _%method-table96855%_ - _%method96856%_ - _%proc96857%_) - (let ((_%$e96859%_ + (lambda (_%klass97737%_ + _%method-table97738%_ + _%method97739%_ + _%proc97740%_) + (let ((_%$e97742%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table96855%_ - _%method96856%_ + _%method-table97738%_ + _%method97739%_ '#f)))) - (if _%$e96859%_ - _%$e96859%_ - (let ((_%$e96862%_ (__lookup-method-specializer _%proc96857%_))) - (if _%$e96862%_ - ((lambda (_%specialize96865%_) - (let ((_%specialized-proc96867%_ - (_%specialize96865%_ - _%klass96854%_ - _%method-table96855%_))) + (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-table96855%_ - _%method96856%_ - _%specialized-proc96867%_))) - _%$e96862%_) + _%method-table97738%_ + _%method97739%_ + _%specialized-proc97750%_))) + _%$e97745%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table96855%_ - _%method96856%_ - _%proc96857%_)))))))) + _%method-table97738%_ + _%method97739%_ + _%proc97740%_)))))))) (define ___specialize-class - (lambda (_%klass96796%_) + (lambda (_%klass97679%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96796%_ 'class)) - (if (__class-type-metaclass? _%klass96796%_) - (let ((__method101704 - (__method-ref _%klass96796%_ 'specialize-class))) - (if __method101704 + (##structure-instance-of? _%klass97679%_ 'class)) + (if (__class-type-metaclass? _%klass97679%_) + (let ((__method102587 + (__method-ref _%klass97679%_ 'specialize-class))) + (if __method102587 (let () (declare (not safe)) - (__method101704 _%klass96796%_)) + (__method102587 _%klass97679%_)) (begin (error '"Missing method" - _%klass96796%_ + _%klass97679%_ 'specialize-class) '#!void))) - (if (let ((__tmp101859 + (if (let ((__tmp102742 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96796%_ + _%klass97679%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101859)) + (__find class-type-metaclass? __tmp102742)) (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass96796%_) - (let ((_%method-table96802%_ + _%klass97679%_) + (let ((_%method-table97685%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop96804%_ ((_%rest96806%_ + (let _%loop97687%_ ((_%rest97689%_ (__class-precedence-list - _%klass96796%_))) - (let* ((_%rest9680796815%_ _%rest96806%_) - (_%else9680996823%_ - (lambda () _%method-table96802%_)) - (_%K9681196842%_ - (lambda (_%rest96826%_ _%xklass96827%_) - (let ((_%xmethod-table9682896830%_ + _%klass97679%_))) + (let* ((_%rest9769097698%_ _%rest97689%_) + (_%else9769297706%_ + (lambda () _%method-table97685%_)) + (_%K9769497725%_ + (lambda (_%rest97709%_ _%xklass97710%_) + (let ((_%xmethod-table9771197713%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass96827%_ + _%xklass97710%_ '11 '#f '#f)))) - (if _%xmethod-table9682896830%_ - (let* ((_%xmethod-table96833%_ - _%xmethod-table9682896830%_) - (__tmp101860 - (lambda (_%g9683496837%_ - _%g9683596839%_) + (if _%xmethod-table9771197713%_ + (let* ((_%xmethod-table97716%_ + _%xmethod-table9771197713%_) + (__tmp102743 + (lambda (_%g9771797720%_ + _%g9771897722%_) (__specialize-method - _%klass96796%_ - _%method-table96802%_ - _%g9683496837%_ - _%g9683596839%_)))) + _%klass97679%_ + _%method-table97685%_ + _%g9771797720%_ + _%g9771897722%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table96833%_ - __tmp101860)) + _%xmethod-table97716%_ + __tmp102743)) '#f)) - (_%loop96804%_ _%rest96826%_)))) - (if (pair? _%rest9680796815%_) - (let ((_%hd9681296845%_ + (_%loop97687%_ _%rest97709%_)))) + (if (pair? _%rest9769097698%_) + (let ((_%hd9769597728%_ (let () (declare (not safe)) - (##car _%rest9680796815%_))) - (_%tl9681396847%_ + (##car _%rest9769097698%_))) + (_%tl9769697730%_ (let () (declare (not safe)) - (##cdr _%rest9680796815%_)))) - (let* ((_%xklass96850%_ _%hd9681296845%_) - (_%rest96852%_ _%tl9681396847%_)) - (_%K9681196842%_ - _%rest96852%_ - _%xklass96850%_))) - (_%else9680996823%_))))))) - (if (let () (declare (not safe)) (##type? _%klass96796%_)) - (__specialize-class (__shadow-class _%klass96796%_)) - (error '"bad class; cannot specialize" _%klass96796%_))))) + (##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 (_%klass96782%_) + (lambda (_%klass97665%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96782%_ 'class)) - (let ((_%klass96786%_ _%klass96782%_)) - (__seal-class! _%klass96786%_)) + (##structure-instance-of? _%klass97665%_ 'class)) + (let ((_%klass97669%_ _%klass97665%_)) + (__seal-class! _%klass97669%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4755,60 +4793,60 @@ 'contract: 'class-type? 'value: - _%klass96782%_) + _%klass97665%_) '#!void)))) (define __seal-class! - (lambda (_%klass96765%_) - (let ((_%klass96768%_ _%klass96765%_)) - (if (__class-type-sealed? _%klass96768%_) + (lambda (_%klass97648%_) + (let ((_%klass97651%_ _%klass97648%_)) + (if (__class-type-sealed? _%klass97651%_) '#!void (begin - (if (__class-type-final? _%klass96768%_) + (if (__class-type-final? _%klass97651%_) '#!void - (error '"cannot seal non-final class" _%klass96768%_)) - (if (__class-type-metaclass? _%klass96768%_) - (let ((__method101705 - (__method-ref _%klass96768%_ 'seal-class!))) - (if __method101705 + (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)) - (__method101705 _%klass96768%_)) + (__method102588 _%klass97651%_)) (begin (error '"Missing method" - _%klass96768%_ + _%klass97651%_ 'seal-class!) '#!void))) - (if (let ((__tmp101861 + (if (let ((__tmp102744 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96768%_ + _%klass97651%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101861)) + (__find class-type-metaclass? __tmp102744)) (error '"cannot seal class that extends metaclass without a metaclass" - _%klass96768%_) - (let ((_%method-table96780%_ - (__specialize-class _%klass96768%_))) + _%klass97651%_) + (let ((_%method-table97663%_ + (__specialize-class _%klass97651%_))) (declare (not safe)) (##unchecked-structure-set! - _%klass96768%_ - _%method-table96780%_ + _%klass97651%_ + _%method-table97663%_ '11 '#f '#f)))) - (__class-type-seal! _%klass96768%_)))))) + (__class-type-seal! _%klass97651%_)))))) (define next-method - (lambda (_%subklass96739%_ _%obj96740%_ _%id96741%_) + (lambda (_%subklass97622%_ _%obj97623%_ _%id97624%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96739%_ 'class)) - (let ((_%subklass96745%_ _%subklass96739%_)) - (if (symbol? _%id96741%_) - (let ((_%id96755%_ _%id96741%_)) - (__next-method _%subklass96745%_ _%obj96740%_ _%id96755%_)) + (##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" @@ -4817,7 +4855,7 @@ 'contract: 'symbol? 'value: - _%id96741%_) + _%id97624%_) '#!void))) (begin (raise-contract-violation-error @@ -4827,61 +4865,61 @@ 'contract: 'class-type? 'value: - _%subklass96739%_) + _%subklass97622%_) '#!void)))) (define __next-method - (lambda (_%subklass96676%_ _%obj96677%_ _%id96678%_) - (let* ((_%subklass96681%_ _%subklass96676%_) (_%id96689%_ _%id96678%_)) - (letrec ((_%find-next-method96698%_ - (lambda (_%klass96700%_) - (let _%lp96702%_ ((_%rest96704%_ + (lambda (_%subklass97559%_ _%obj97560%_ _%id97561%_) + (let* ((_%subklass97564%_ _%subklass97559%_) (_%id97572%_ _%id97561%_)) + (letrec ((_%find-next-method97581%_ + (lambda (_%klass97583%_) + (let _%lp97585%_ ((_%rest97587%_ (class-precedence-list - _%klass96700%_))) - (let* ((_%rest9670596713%_ _%rest96704%_) - (_%else9670796721%_ (lambda () '#f)) - (_%K9670996727%_ - (lambda (_%rest96724%_ _%klass96725%_) + _%klass97583%_))) + (let* ((_%rest9758897596%_ _%rest97587%_) + (_%else9759097604%_ (lambda () '#f)) + (_%K9759297610%_ + (lambda (_%rest97607%_ _%klass97608%_) (if (eq? (let () (declare (not safe)) - (##type-id _%subklass96681%_)) + (##type-id _%subklass97564%_)) (let () (declare (not safe)) - (##type-id _%klass96725%_))) + (##type-id _%klass97608%_))) (__mixin-find-method - _%rest96724%_ - _%obj96677%_ - _%id96689%_) - (_%lp96702%_ _%rest96724%_))))) - (if (pair? _%rest9670596713%_) - (let ((_%hd9671096730%_ + _%rest97607%_ + _%obj97560%_ + _%id97572%_) + (_%lp97585%_ _%rest97607%_))))) + (if (pair? _%rest9758897596%_) + (let ((_%hd9759397613%_ (let () (declare (not safe)) - (##car _%rest9670596713%_))) - (_%tl9671196732%_ + (##car _%rest9758897596%_))) + (_%tl9759497615%_ (let () (declare (not safe)) - (##cdr _%rest9670596713%_)))) - (let* ((_%klass96735%_ _%hd9671096730%_) - (_%rest96737%_ _%tl9671196732%_)) - (_%K9670996727%_ - _%rest96737%_ - _%klass96735%_))) - (_%else9670796721%_))))))) - (_%find-next-method96698%_ (class-of _%obj96677%_)))))) + (##cdr _%rest9758897596%_)))) + (let* ((_%klass97618%_ _%hd9759397613%_) + (_%rest97620%_ _%tl9759497615%_)) + (_%K9759297610%_ + _%rest97620%_ + _%klass97618%_))) + (_%else9759097604%_))))))) + (_%find-next-method97581%_ (class-of _%obj97560%_)))))) (define call-next-method - (lambda (_%subklass96649%_ _%obj96650%_ _%id96651%_ . _%args96652%_) + (lambda (_%subklass97532%_ _%obj97533%_ _%id97534%_ . _%args97535%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96649%_ 'class)) - (let ((_%subklass96656%_ _%subklass96649%_)) - (if (symbol? _%id96651%_) - (let ((_%id96666%_ _%id96651%_)) + (##structure-instance-of? _%subklass97532%_ 'class)) + (let ((_%subklass97539%_ _%subklass97532%_)) + (if (symbol? _%id97534%_) + (let ((_%id97549%_ _%id97534%_)) (declare (not safe)) (##apply __call-next-method - _%subklass96656%_ - _%obj96650%_ - _%id96666%_ - _%args96652%_)) + _%subklass97539%_ + _%obj97533%_ + _%id97549%_ + _%args97535%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4890,7 +4928,7 @@ 'contract: 'symbol? 'value: - _%id96651%_) + _%id97534%_) '#!void))) (begin (raise-contract-violation-error @@ -4900,126 +4938,126 @@ 'contract: 'class-type? 'value: - _%subklass96649%_) + _%subklass97532%_) '#!void)))) (define __call-next-method - (lambda (_%subklass96620%_ _%obj96621%_ _%id96622%_ . _%args96623%_) - (let* ((_%subklass96626%_ _%subklass96620%_) - (_%id96634%_ _%id96622%_) - (_%$e96643%_ - (__next-method _%subklass96626%_ _%obj96621%_ _%id96634%_))) - (if _%$e96643%_ - ((lambda (_%methodf96646%_) - (apply _%methodf96646%_ _%obj96621%_ _%args96623%_)) - _%$e96643%_) + (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: - _%obj96621%_ + _%obj97504%_ 'method: - _%id96634%_))))) + _%id97517%_))))) (define write-style - (lambda (_%we96618%_) (values (macro-writeenv-style _%we96618%_)))) + (lambda (_%we97501%_) (values (macro-writeenv-style _%we97501%_)))) (define write-object - (lambda (_%we96609%_ _%obj96610%_) - (let ((_%$e96612%_ (__method-ref _%obj96610%_ ':wr))) - (if _%$e96612%_ - ((lambda (_%method96615%_) - (_%method96615%_ _%obj96610%_ _%we96609%_)) - _%$e96612%_) + (lambda (_%we97492%_ _%obj97493%_) + (let ((_%$e97495%_ (__method-ref _%obj97493%_ ':wr))) + (if _%$e97495%_ + ((lambda (_%method97498%_) + (_%method97498%_ _%obj97493%_ _%we97492%_)) + _%$e97495%_) (let () (declare (not safe)) - (##default-wr _%we96609%_ _%obj96610%_)))))) + (##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 (_%type96524%_) - (letrec ((_%shadow-type-id96526%_ - (lambda (_%type96607%_) - (let ((__tmp101862 + (lambda (_%type97407%_) + (letrec ((_%shadow-type-id97409%_ + (lambda (_%type97490%_) + (let ((__tmp102745 (let () (declare (not safe)) - (##type-name _%type96607%_)))) + (##type-name _%type97490%_)))) (declare (not safe)) - (make-symbol__1 __tmp101862 '"::t")))) - (_%shadow-type-name96527%_ - (lambda (_%type96605%_) - (let () (declare (not safe)) (##type-name _%type96605%_)))) - (_%make-shadow-class96528%_ - (lambda (_%type96597%_ _%precedence-list96598%_) - (let* ((_%super96600%_ - (if (pair? _%precedence-list96598%_) + (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-list96598%_)) + (##car _%precedence-list97481%_)) '()) '())) - (_%klass96602%_ + (_%klass97485%_ (make-class-type - (_%shadow-type-id96526%_ _%type96597%_) + (_%shadow-type-id97409%_ _%type97480%_) (let () (declare (not safe)) - (##type-name _%type96597%_)) - _%super96600%_ + (##type-name _%type97480%_)) + _%super97483%_ '() (cons (cons 'struct: '#t) (cons (cons 'system: '#t) - (if (__type-extensible? _%type96597%_) + (if (__type-extensible? _%type97480%_) '() (cons (cons 'final: '#t) '())))) '#f))) - (let ((__tmp101863 + (let ((__tmp102746 (let () (declare (not safe)) - (##type-id _%type96597%_)))) + (##type-id _%type97480%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp101863 - _%klass96602%_)) - _%klass96602%_)))) + __tmp102746 + _%klass97485%_)) + _%klass97485%_)))) (let () (declare (not interrupts-enabled)) - (let _%again96532%_ () - (if (let ((__tmp101864 + (let _%again97415%_ () + (if (let ((__tmp102747 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101864 '0)) + (##fx= __tmp102747 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96532%_))))) - (let ((_%$e96536%_ - (let ((__tmp101865 + (_%again97415%_))))) + (let ((_%$e97419%_ + (let ((__tmp102748 (let () (declare (not safe)) - (##type-id _%type96524%_)))) + (##type-id _%type97407%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp101865 '#f)))) - (if _%$e96536%_ - ((lambda (_%klass96539%_) + (symbolic-table-ref __shadow-classes __tmp102748 '#f)))) + (if _%$e97419%_ + ((lambda (_%klass97422%_) (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass96539%_) - _%$e96536%_) - (let _%loop96542%_ ((_%super96544%_ + _%klass97422%_) + _%$e97419%_) + (let _%loop97425%_ ((_%super97427%_ (let () (declare (not safe)) - (##type-super _%type96524%_))) - (_%hierarchy96545%_ '())) - (if (not _%super96544%_) - (let _%loop96548%_ ((_%rest96550%_ _%hierarchy96545%_) - (_%precedence-list96551%_ '())) - (let* ((_%rest9655296560%_ _%rest96550%_) - (_%else9655496570%_ + (##type-super _%type97407%_))) + (_%hierarchy97428%_ '())) + (if (not _%super97427%_) + (let _%loop97431%_ ((_%rest97433%_ _%hierarchy97428%_) + (_%precedence-list97434%_ '())) + (let* ((_%rest9743597443%_ _%rest97433%_) + (_%else9743797453%_ (lambda () - (let ((_%klass96568%_ - (_%make-shadow-class96528%_ - _%type96524%_ - _%precedence-list96551%_))) + (let ((_%klass97451%_ + (_%make-shadow-class97411%_ + _%type97407%_ + _%precedence-list97434%_))) (let () (declare (not safe)) (##vector-cas! @@ -5027,78 +5065,78 @@ '0 '0 '1)) - _%klass96568%_))) - (_%K9655696584%_ - (lambda (_%rest96573%_ _%type96574%_) - (let ((_%$e96576%_ - (let ((__tmp101866 + _%klass97451%_))) + (_%K9743997467%_ + (lambda (_%rest97456%_ _%type97457%_) + (let ((_%$e97459%_ + (let ((__tmp102749 (let () (declare (not safe)) - (##type-id _%type96574%_)))) + (##type-id _%type97457%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp101866 + __tmp102749 '#f)))) - (if _%$e96576%_ - ((lambda (_%klass96579%_) - (_%loop96548%_ - _%rest96573%_ - (cons _%klass96579%_ - _%precedence-list96551%_))) - _%$e96576%_) - (let ((_%klass96582%_ - (_%make-shadow-class96528%_ - _%type96574%_ - _%precedence-list96551%_))) - (_%loop96548%_ - _%rest96573%_ - (cons _%klass96582%_ - _%precedence-list96551%_)))))))) - (if (pair? _%rest9655296560%_) - (let ((_%hd9655796587%_ + (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 _%rest9655296560%_))) - (_%tl9655896589%_ + (##car _%rest9743597443%_))) + (_%tl9744197472%_ (let () (declare (not safe)) - (##cdr _%rest9655296560%_)))) - (let* ((_%type96592%_ _%hd9655796587%_) - (_%rest96594%_ _%tl9655896589%_)) - (_%K9655696584%_ - _%rest96594%_ - _%type96592%_))) - (_%else9655496570%_)))) - (_%loop96542%_ + (##cdr _%rest9743597443%_)))) + (let* ((_%type97475%_ _%hd9744097470%_) + (_%rest97477%_ _%tl9744197472%_)) + (_%K9743997467%_ + _%rest97477%_ + _%type97475%_))) + (_%else9743797453%_)))) + (_%loop97425%_ (let () (declare (not safe)) - (##type-super _%super96544%_)) - (cons _%super96544%_ _%hierarchy96545%_))))))))) + (##type-super _%super97427%_)) + (cons _%super97427%_ _%hierarchy97428%_))))))))) (define __type - (let* ((_%tb96513%_ + (let* ((_%tb97396%_ (let () (declare (not safe)) (##c-code '"___RESULT = ___FIX(___TB);"))) - (_%$e96515%_ _%tb96513%_)) - (if (eq? '2 _%$e96515%_) + (_%$e97398%_ _%tb97396%_)) + (if (eq? '2 _%$e97398%_) '#(fixnum subtyped special pair) - (if (eq? '3 _%$e96515%_) - (let ((_%flonum-self-tagging-tags96518%_ + (if (eq? '3 _%$e97398%_) + (let ((_%flonum-self-tagging-tags97401%_ (let () (declare (not safe)) (##c-code '"___RESULT = ___FIX(___FLONUM_SELF_TAGGING_TAGS);"))) - (_%fixnum-tag-bits96519%_ + (_%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 ((_%$e96521%_ _%flonum-self-tagging-tags96518%_)) - (if (eq? '0 _%$e96521%_) + (let ((_%$e97404%_ _%flonum-self-tagging-tags97401%_)) + (if (eq? '0 _%$e97404%_) (if (let () (declare (not safe)) - (##fx= _%fixnum-tag-bits96519%_ '2)) + (##fx= _%fixnum-tag-bits97402%_ '2)) '#(fixnum subtyped special @@ -5115,10 +5153,10 @@ pair undefined flonum)) - (if (eq? '1 _%$e96521%_) + (if (eq? '1 _%$e97404%_) (if (let () (declare (not safe)) - (##fx= _%fixnum-tag-bits96519%_ '2)) + (##fx= _%fixnum-tag-bits97402%_ '2)) '#(fixnum subtyped special @@ -5135,7 +5173,7 @@ pair flonum flonum)) - (if (eq? '2 _%$e96521%_) + (if (eq? '2 _%$e97404%_) '#(fixnum subtyped flonum @@ -5144,7 +5182,7 @@ pair flonum undefined) - (if (eq? '3 _%$e96521%_) + (if (eq? '3 _%$e97404%_) '#(fixnum subtyped flonum @@ -5153,7 +5191,7 @@ pair flonum flonum) - (if (eq? '4 _%$e96521%_) + (if (eq? '4 _%$e97404%_) '#(fixnum subtyped flonum @@ -5163,109 +5201,109 @@ flonum flonum) (error '"unexpected flonum self tagging tags" - _%flonum-self-tagging-tags96518%_)))))))) - (error '"unexpected tag width" _%tb96513%_))))) + _%flonum-self-tagging-tags97401%_)))))))) + (error '"unexpected tag width" _%tb97396%_))))) (define __class - (let* ((_%len96466%_ + (let* ((_%len97349%_ (let () (declare (not safe)) (##vector-length __type))) - (_%cv96468%_ - (let () (declare (not safe)) (##make-vector _%len96466%_ '#f)))) - (let _%loop96471%_ ((_%i96473%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i96473%_ _%len96466%_)) - (let* ((_%t96475%_ + (_%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 _%i96473%_))) - (_%f96510%_ - (if (eq? _%t96475%_ 'undefined) - (lambda (_%obj96478%_) - (error '"object type is undefined" _%obj96478%_)) + (##vector-ref __type _%i97356%_))) + (_%f97393%_ + (if (eq? _%t97358%_ 'undefined) + (lambda (_%obj97361%_) + (error '"object type is undefined" _%obj97361%_)) (if (let () (declare (not safe)) - (##memq _%t96475%_ + (##memq _%t97358%_ '(fixnum flonum pair vector))) - (lambda (_%obj96481%_) + (lambda (_%obj97364%_) (declare (not interrupts-enabled) (not safe)) - (__system-class _%t96475%_)) - (if (eq? _%t96475%_ 'subtyped) - (lambda (_%obj96485%_) + (__system-class _%t97358%_)) + (if (eq? _%t97358%_ 'subtyped) + (lambda (_%obj97368%_) (declare (not interrupts-enabled) (not safe)) - (let ((_%st96488%_ - (##subtype _%obj96485%_))) - (if (##fx= _%st96488%_ + (let ((_%st97371%_ + (##subtype _%obj97368%_))) + (if (##fx= _%st97371%_ (macro-subtype-structure)) - (let ((_%klass96491%_ + (let ((_%klass97374%_ (##structure-type - _%obj96485%_))) + _%obj97368%_))) (if (##structure-instance-of? - _%klass96491%_ + _%klass97374%_ 'class) - _%klass96491%_ + _%klass97374%_ (__shadow-class - _%klass96491%_))) - (if (##fx= _%st96488%_ + _%klass97374%_))) + (if (##fx= _%st97371%_ (macro-subtype-boxvalues)) (if (##fx= (##vector-length - _%obj96485%_) + _%obj97368%_) '1) (__system-class 'box) (__system-class 'values)) - (let ((_%$e96494%_ + (let ((_%$e97377%_ (##vector-ref __subtype-id - _%st96488%_))) - (if _%$e96494%_ + _%st97371%_))) + (if _%$e97377%_ (__system-class - _%$e96494%_) + _%$e97377%_) (error '"unknown class" 'subtype: - _%st96488%_ + _%st97371%_ 'object: - _%obj96485%_))))))) - (if (eq? _%t96475%_ 'special) - (lambda (_%obj96499%_) + _%obj97368%_))))))) + (if (eq? _%t97358%_ 'special) + (lambda (_%obj97382%_) (declare (not interrupts-enabled) (not safe)) - (if (char? _%obj96499%_) + (if (char? _%obj97382%_) (__system-class 'char) - (if (eq? _%obj96499%_ '()) + (if (eq? _%obj97382%_ '()) (__system-class 'null) - (if (eq? _%obj96499%_ '#f) + (if (eq? _%obj97382%_ '#f) (__system-class 'boolean) - (if (eq? _%obj96499%_ '#t) + (if (eq? _%obj97382%_ '#t) (__system-class 'boolean) - (if (eq? _%obj96499%_ + (if (eq? _%obj97382%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (__system-class 'void) - (if (eq? _%obj96499%_ '#!eof) + (if (eq? _%obj97382%_ '#!eof) (__system-class 'eof) (__system-class 'special)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"unexpected object type" - _%t96475%_))))))) + _%t97358%_))))))) (let () (declare (not safe)) - (##vector-set! _%cv96468%_ _%i96473%_ _%f96510%_)) - (_%loop96471%_ - (let () (declare (not safe)) (##fx+ _%i96473%_ '1)))) - _%cv96468%_)))) + (##vector-set! _%cv97351%_ _%i97356%_ _%f97393%_)) + (_%loop97354%_ + (let () (declare (not safe)) (##fx+ _%i97356%_ '1)))) + _%cv97351%_)))) (define type-of - (lambda (_%obj96462%_) + (lambda (_%obj97345%_) (let () (declare (not safe) (not interrupts-enabled)) - (##vector-ref __type (##type _%obj96462%_))))) + (##vector-ref __type (##type _%obj97345%_))))) (define class-of - (lambda (_%obj96453%_) + (lambda (_%obj97336%_) (let () (declare (not safe) (not interrupts-enabled)) - (let* ((_%t96457%_ (##type _%obj96453%_)) - (_%f96459%_ (##vector-ref __class _%t96457%_))) - (_%f96459%_ _%obj96453%_))))) + (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) @@ -5296,25 +5334,25 @@ (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id96447%_) - (let ((_%$e96449%_ + (lambda (_%id97330%_) + (let ((_%$e97332%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id96447%_ '#f)))) - (if _%$e96449%_ - _%$e96449%_ - (error '"unknown system class" _%id96447%_))))) + (symbolic-table-ref __system-classes _%id97330%_ '#f)))) + (if _%$e97332%_ + _%$e97332%_ + (error '"unknown system class" _%id97330%_))))) (define __make-system-class - (lambda (_%id96442%_ _%super96443%_) - (let ((_%klass96445%_ + (lambda (_%id97325%_ _%super97326%_) + (let ((_%klass97328%_ (make-class-type - _%id96442%_ - _%id96442%_ - _%super96443%_ + _%id97325%_ + _%id97325%_ + _%super97326%_ '() '((system: . #t)) '#f))) (let () (declare (not safe)) - (symbolic-table-set! __system-classes _%id96442%_ _%klass96445%_)) - _%klass96445%_))))) + (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 475c5b7bc..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 (_%$stx95027%_) - (let* ((_%__stx101578101579%_ _%$stx95027%_) - (_%g9503295061%_ + (lambda (_%$stx95910%_) + (let* ((_%__stx102461102462%_ _%$stx95910%_) + (_%g9591595944%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101578101579%_)))) - (let ((_%__kont101581101582%_ - (lambda (_%L95154%_ _%L95156%_) + _%__stx102461102462%_)))) + (let ((_%__kont102464102465%_ + (lambda (_%L96037%_ _%L96039%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95156%_ (cons _%L95154%_ '()))) - (cons _%L95154%_ '()))))) - (_%__kont101583101584%_ - (lambda (_%L95098%_ _%L95100%_) + (cons _%L96039%_ (cons _%L96037%_ '()))) + (cons _%L96037%_ '()))))) + (_%__kont102466102467%_ + (lambda (_%L95981%_ _%L95983%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L95098%_ (cons _%L95098%_ '())) + (cons (cons _%L95981%_ (cons _%L95981%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95100%_ - (cons _%L95098%_ + (cons _%L95983%_ + (cons _%L95981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L95098%_ '()))) + (cons _%L95981%_ '()))) '())))))) - (let ((_%__match101605101606%_ - (lambda (_%e9503695124%_ - _%hd9503795128%_ - _%tl9503895131%_ - _%e9503995134%_ - _%hd9504095138%_ - _%tl9504195141%_ - _%e9504295144%_ - _%hd9504395148%_ - _%tl9504495151%_) - (let ((_%L95154%_ _%hd9504395148%_) - (_%L95156%_ _%hd9504095138%_)) - (if (or (gx#identifier? _%L95154%_) - (gx#stx-fixnum? _%L95154%_)) - (_%__kont101581101582%_ _%L95154%_ _%L95156%_) - (_%__kont101583101584%_ - _%hd9504395148%_ - _%hd9504095138%_)))))) - (if (gx#stx-pair? _%__stx101578101579%_) - (let ((_%e9503695124%_ (gx#syntax-e _%__stx101578101579%_))) - (let ((_%tl9503895131%_ - (let () (declare (not safe)) (##cdr _%e9503695124%_))) - (_%hd9503795128%_ + (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 _%e9503695124%_)))) - (if (gx#stx-pair? _%tl9503895131%_) - (let ((_%e9503995134%_ (gx#syntax-e _%tl9503895131%_))) - (let ((_%tl9504195141%_ + (##car _%e9591996007%_)))) + (if (gx#stx-pair? _%tl9592196014%_) + (let ((_%e9592296017%_ (gx#syntax-e _%tl9592196014%_))) + (let ((_%tl9592496024%_ (let () (declare (not safe)) - (##cdr _%e9503995134%_))) - (_%hd9504095138%_ + (##cdr _%e9592296017%_))) + (_%hd9592396021%_ (let () (declare (not safe)) - (##car _%e9503995134%_)))) - (if (gx#stx-pair? _%tl9504195141%_) - (let ((_%e9504295144%_ - (gx#syntax-e _%tl9504195141%_))) - (let ((_%tl9504495151%_ + (##car _%e9592296017%_)))) + (if (gx#stx-pair? _%tl9592496024%_) + (let ((_%e9592596027%_ + (gx#syntax-e _%tl9592496024%_))) + (let ((_%tl9592796034%_ (let () (declare (not safe)) - (##cdr _%e9504295144%_))) - (_%hd9504395148%_ + (##cdr _%e9592596027%_))) + (_%hd9592696031%_ (let () (declare (not safe)) - (##car _%e9504295144%_)))) - (if (gx#stx-null? _%tl9504495151%_) - (_%__match101605101606%_ - _%e9503695124%_ - _%hd9503795128%_ - _%tl9503895131%_ - _%e9503995134%_ - _%hd9504095138%_ - _%tl9504195141%_ - _%e9504295144%_ - _%hd9504395148%_ - _%tl9504495151%_) + (##car _%e9592596027%_)))) + (if (gx#stx-null? _%tl9592796034%_) + (_%__match102488102489%_ + _%e9591996007%_ + _%hd9592096011%_ + _%tl9592196014%_ + _%e9592296017%_ + _%hd9592396021%_ + _%tl9592496024%_ + _%e9592596027%_ + _%hd9592696031%_ + _%tl9592796034%_) (let () (declare (not safe)) - (_%g9503295061%_))))) + (_%g9591595944%_))))) (let () (declare (not safe)) - (_%g9503295061%_))))) - (let () (declare (not safe)) (_%g9503295061%_))))) - (let () (declare (not safe)) (_%g9503295061%_)))))))) + (_%g9591595944%_))))) + (let () (declare (not safe)) (_%g9591595944%_))))) + (let () (declare (not safe)) (_%g9591595944%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx95179%_) - (let* ((_%__stx101628101629%_ _%$stx95179%_) - (_%g9518495213%_ + (lambda (_%$stx96062%_) + (let* ((_%__stx102511102512%_ _%$stx96062%_) + (_%g9606796096%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101628101629%_)))) - (let ((_%__kont101631101632%_ - (lambda (_%L95305%_ _%L95307%_) + _%__stx102511102512%_)))) + (let ((_%__kont102514102515%_ + (lambda (_%L96188%_ _%L96190%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95307%_ (cons _%L95305%_ '()))) + (cons _%L96190%_ (cons _%L96188%_ '()))) (cons '0 '()))))) - (_%__kont101633101634%_ - (lambda (_%L95250%_ _%L95252%_) + (_%__kont102516102517%_ + (lambda (_%L96133%_ _%L96135%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L95250%_ (cons _%L95250%_ '())) + (cons (cons _%L96133%_ (cons _%L96133%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95252%_ - (cons _%L95250%_ + (cons _%L96135%_ + (cons _%L96133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match101655101656%_ - (lambda (_%e9518895275%_ - _%hd9518995279%_ - _%tl9519095282%_ - _%e9519195285%_ - _%hd9519295289%_ - _%tl9519395292%_ - _%e9519495295%_ - _%hd9519595299%_ - _%tl9519695302%_) - (let ((_%L95305%_ _%hd9519595299%_) - (_%L95307%_ _%hd9519295289%_)) - (if (or (gx#identifier? _%L95305%_) - (gx#stx-fixnum? _%L95305%_)) - (_%__kont101631101632%_ _%L95305%_ _%L95307%_) - (_%__kont101633101634%_ - _%hd9519595299%_ - _%hd9519295289%_)))))) - (if (gx#stx-pair? _%__stx101628101629%_) - (let ((_%e9518895275%_ (gx#syntax-e _%__stx101628101629%_))) - (let ((_%tl9519095282%_ - (let () (declare (not safe)) (##cdr _%e9518895275%_))) - (_%hd9518995279%_ + (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 _%e9518895275%_)))) - (if (gx#stx-pair? _%tl9519095282%_) - (let ((_%e9519195285%_ (gx#syntax-e _%tl9519095282%_))) - (let ((_%tl9519395292%_ + (##car _%e9607196158%_)))) + (if (gx#stx-pair? _%tl9607396165%_) + (let ((_%e9607496168%_ (gx#syntax-e _%tl9607396165%_))) + (let ((_%tl9607696175%_ (let () (declare (not safe)) - (##cdr _%e9519195285%_))) - (_%hd9519295289%_ + (##cdr _%e9607496168%_))) + (_%hd9607596172%_ (let () (declare (not safe)) - (##car _%e9519195285%_)))) - (if (gx#stx-pair? _%tl9519395292%_) - (let ((_%e9519495295%_ - (gx#syntax-e _%tl9519395292%_))) - (let ((_%tl9519695302%_ + (##car _%e9607496168%_)))) + (if (gx#stx-pair? _%tl9607696175%_) + (let ((_%e9607796178%_ + (gx#syntax-e _%tl9607696175%_))) + (let ((_%tl9607996185%_ (let () (declare (not safe)) - (##cdr _%e9519495295%_))) - (_%hd9519595299%_ + (##cdr _%e9607796178%_))) + (_%hd9607896182%_ (let () (declare (not safe)) - (##car _%e9519495295%_)))) - (if (gx#stx-null? _%tl9519695302%_) - (_%__match101655101656%_ - _%e9518895275%_ - _%hd9518995279%_ - _%tl9519095282%_ - _%e9519195285%_ - _%hd9519295289%_ - _%tl9519395292%_ - _%e9519495295%_ - _%hd9519595299%_ - _%tl9519695302%_) + (##car _%e9607796178%_)))) + (if (gx#stx-null? _%tl9607996185%_) + (_%__match102538102539%_ + _%e9607196158%_ + _%hd9607296162%_ + _%tl9607396165%_ + _%e9607496168%_ + _%hd9607596172%_ + _%tl9607696175%_ + _%e9607796178%_ + _%hd9607896182%_ + _%tl9607996185%_) (let () (declare (not safe)) - (_%g9518495213%_))))) + (_%g9606796096%_))))) (let () (declare (not safe)) - (_%g9518495213%_))))) - (let () (declare (not safe)) (_%g9518495213%_))))) - (let () (declare (not safe)) (_%g9518495213%_)))))))) + (_%g9606796096%_))))) + (let () (declare (not safe)) (_%g9606796096%_))))) + (let () (declare (not safe)) (_%g9606796096%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx95330%_) - (let* ((_%g9533395354%_ - (lambda (_%g9533495350%_) + (lambda (_%stx96213%_) + (let* ((_%g9621696237%_ + (lambda (_%g9621796233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9533495350%_))) - (_%g9533295582%_ - (lambda (_%g9533495358%_) - (if (gx#stx-pair? _%g9533495358%_) - (let ((_%e9533795361%_ (gx#syntax-e _%g9533495358%_))) - (let ((_%hd9533895365%_ + _%g9621796233%_))) + (_%g9621596465%_ + (lambda (_%g9621796241%_) + (if (gx#stx-pair? _%g9621796241%_) + (let ((_%e9622096244%_ (gx#syntax-e _%g9621796241%_))) + (let ((_%hd9622196248%_ (let () (declare (not safe)) - (##car _%e9533795361%_))) - (_%tl9533995368%_ + (##car _%e9622096244%_))) + (_%tl9622296251%_ (let () (declare (not safe)) - (##cdr _%e9533795361%_)))) - (if (gx#stx-pair? _%tl9533995368%_) - (let ((_%e9534095371%_ - (gx#syntax-e _%tl9533995368%_))) - (let ((_%hd9534195375%_ + (##cdr _%e9622096244%_)))) + (if (gx#stx-pair? _%tl9622296251%_) + (let ((_%e9622396254%_ + (gx#syntax-e _%tl9622296251%_))) + (let ((_%hd9622496258%_ (let () (declare (not safe)) - (##car _%e9534095371%_))) - (_%tl9534295378%_ + (##car _%e9622396254%_))) + (_%tl9622596261%_ (let () (declare (not safe)) - (##cdr _%e9534095371%_)))) - (if (gx#stx-pair? _%hd9534195375%_) - (let ((_%e9534395381%_ - (gx#syntax-e _%hd9534195375%_))) - (let ((_%hd9534495385%_ + (##cdr _%e9622396254%_)))) + (if (gx#stx-pair? _%hd9622496258%_) + (let ((_%e9622696264%_ + (gx#syntax-e _%hd9622496258%_))) + (let ((_%hd9622796268%_ (let () (declare (not safe)) - (##car _%e9534395381%_))) - (_%tl9534595388%_ + (##car _%e9622696264%_))) + (_%tl9622896271%_ (let () (declare (not safe)) - (##cdr _%e9534395381%_)))) - (if (gx#stx-pair? _%tl9534595388%_) - (let ((_%e9534695391%_ + (##cdr _%e9622696264%_)))) + (if (gx#stx-pair? _%tl9622896271%_) + (let ((_%e9622996274%_ (gx#syntax-e - _%tl9534595388%_))) - (let ((_%hd9534795395%_ + _%tl9622896271%_))) + (let ((_%hd9623096278%_ (let () (declare (not safe)) - (##car _%e9534695391%_))) - (_%tl9534895398%_ + (##car _%e9622996274%_))) + (_%tl9623196281%_ (let () (declare (not safe)) - (##cdr _%e9534695391%_)))) + (##cdr _%e9622996274%_)))) (if (gx#stx-null? - _%tl9534895398%_) + _%tl9623196281%_) (if (gx#stx-null? - _%tl9534295378%_) - ((lambda (_%L95401%_ + _%tl9622596261%_) + ((lambda (_%L96284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L95403%_) - (let* ((_%g9542195429%_ - (lambda (_%g9542295425%_) + _%L96286%_) + (let* ((_%g9630496312%_ + (lambda (_%g9630596308%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9542295425%_))) - (_%g9542095578%_ - (lambda (_%g9542295433%_) - ((lambda (_%L95436%_) - (let* ((_%g9544895456%_ - (lambda (_%g9544995452%_) + _%g9630596308%_))) + (_%g9630396461%_ + (lambda (_%g9630596316%_) + ((lambda (_%L96319%_) + (let* ((_%g9633196339%_ + (lambda (_%g9633296335%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9544995452%_))) - (_%g9544795574%_ - (lambda (_%g9544995460%_) - ((lambda (_%L95463%_) - (let* ((_%g9547695484%_ - (lambda (_%g9547795480%_) + _%g9633296335%_))) + (_%g9633096457%_ + (lambda (_%g9633296343%_) + ((lambda (_%L96346%_) + (let* ((_%g9635996367%_ + (lambda (_%g9636096363%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9547795480%_))) - (_%g9547595570%_ - (lambda (_%g9547795488%_) - ((lambda (_%L95491%_) - (let* ((_%g9550495512%_ + _%g9636096363%_))) + (_%g9635896453%_ + (lambda (_%g9636096371%_) + ((lambda (_%L96374%_) + (let* ((_%g9638796395%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g9550595508%_) + (lambda (_%g9638896391%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9550595508%_))) - (_%g9550395566%_ - (lambda (_%g9550595516%_) - ((lambda (_%L95519%_) - (let* ((_%g9553295540%_ - (lambda (_%g9553395536%_) + _%g9638896391%_))) + (_%g9638696449%_ + (lambda (_%g9638896399%_) + ((lambda (_%L96402%_) + (let* ((_%g9641596423%_ + (lambda (_%g9641696419%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9553395536%_))) - (_%g9553195562%_ - (lambda (_%g9553395544%_) - ((lambda (_%L95547%_) + _%g9641696419%_))) + (_%g9641496445%_ + (lambda (_%g9641696427%_) + ((lambda (_%L96430%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95463%_ + (cons _%L96346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -311,8 +311,8 @@ (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95436%_ - (cons _%L95403%_ + (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 _%L95401%_ + (cons _%L96284%_ (cons (gx#datum->syntax '#f 'class::t) @@ -335,7 +335,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95403%_ '())) + (cons _%L96286%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -343,15 +343,15 @@ '()))) '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95491%_ + (cons _%L96374%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95436%_ - (cons _%L95403%_ + (cons _%L96319%_ + (cons _%L96286%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -364,7 +364,7 @@ '#f '##unchecked-structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95401%_ + (cons _%L96284%_ (cons (gx#datum->syntax '#f 'class::t) @@ -372,7 +372,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95403%_ '())) + (cons _%L96286%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -380,7 +380,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95519%_ + (cons _%L96402%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -388,7 +388,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95436%_ (cons _%L95403%_ (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 _%L95401%_ + (cons _%L96284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95403%_ '())) + (cons _%L96286%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -414,7 +414,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95547%_ + (cons _%L96430%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -422,8 +422,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95436%_ - (cons _%L95403%_ (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 _%L95401%_ + (cons _%L96284%_ (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95403%_ '())) + (cons _%L96286%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -452,270 +452,270 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9553395544%_)))) - (_%g9553195562%_ + _%g9641696427%_)))) + (_%g9641496445%_ (gx#stx-identifier - _%L95403%_ + _%L96286%_ '"&" - _%L95519%_)))) - _%g9550595516%_)))) - (_%g9550395566%_ - (gx#stx-identifier _%L95403%_ _%L95463%_ '"-set!")))) - _%g9547795488%_)))) + _%L96402%_)))) + _%g9638896399%_)))) + (_%g9638696449%_ + (gx#stx-identifier _%L96286%_ _%L96346%_ '"-set!")))) + _%g9636096371%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9547595570%_ + (_%g9635896453%_ (gx#stx-identifier - _%L95403%_ + _%L96286%_ '"&" - _%L95463%_)))) - _%g9544995460%_)))) - (_%g9544795574%_ + _%L96346%_)))) + _%g9633296343%_)))) + (_%g9633096457%_ (gx#stx-identifier - _%L95403%_ + _%L96286%_ '"class-type-" - _%L95403%_)))) - _%g9542295433%_)))) - (_%g9542095578%_ (gx#core-quote-syntax 'class::t)))) - _%hd9534795395%_ - _%hd9534495385%_) - (_%g9533395354%_ _%g9533495358%_)) + _%L96286%_)))) + _%g9630596316%_)))) + (_%g9630396461%_ (gx#core-quote-syntax 'class::t)))) + _%hd9623096278%_ + _%hd9622796268%_) + (_%g9621696237%_ _%g9621796241%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9533395354%_ - _%g9533495358%_)))) - (_%g9533395354%_ - _%g9533495358%_)))) - (_%g9533395354%_ _%g9533495358%_)))) - (_%g9533395354%_ _%g9533495358%_)))) - (_%g9533395354%_ _%g9533495358%_))))) - (_%g9533295582%_ _%stx95330%_)))) + (_%g9621696237%_ + _%g9621796241%_)))) + (_%g9621696237%_ + _%g9621796241%_)))) + (_%g9621696237%_ _%g9621796241%_)))) + (_%g9621696237%_ _%g9621796241%_)))) + (_%g9621696237%_ _%g9621796241%_))))) + (_%g9621596465%_ _%stx96213%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx95586%_) - (let* ((_%g9559095619%_ - (lambda (_%g9559195615%_) + (lambda (_%$stx96469%_) + (let* ((_%g9647396502%_ + (lambda (_%g9647496498%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9559195615%_))) - (_%g9558995719%_ - (lambda (_%g9559195623%_) - (if (gx#stx-pair? _%g9559195623%_) - (let ((_%e9559495626%_ (gx#syntax-e _%g9559195623%_))) - (let ((_%hd9559595630%_ + _%g9647496498%_))) + (_%g9647296602%_ + (lambda (_%g9647496506%_) + (if (gx#stx-pair? _%g9647496506%_) + (let ((_%e9647796509%_ (gx#syntax-e _%g9647496506%_))) + (let ((_%hd9647896513%_ (let () (declare (not safe)) - (##car _%e9559495626%_))) - (_%tl9559695633%_ + (##car _%e9647796509%_))) + (_%tl9647996516%_ (let () (declare (not safe)) - (##cdr _%e9559495626%_)))) - (if (gx#stx-pair/null? _%tl9559695633%_) - (let ((_g101867_ + (##cdr _%e9647796509%_)))) + (if (gx#stx-pair/null? _%tl9647996516%_) + (let ((_g102750_ (gx#syntax-split-splice - _%tl9559695633%_ + _%tl9647996516%_ '0))) (begin - (let ((_g101868_ + (let ((_g102751_ (let () (declare (not safe)) - (if (##values? _g101867_) - (##values-length _g101867_) + (if (##values? _g102750_) + (##values-length _g102750_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101868_ 2))) + (##fx= _g102751_ 2))) (error "Context expects 2 values" - _g101868_))) - (let ((_%target9559795636%_ + _g102751_))) + (let ((_%target9648096519%_ (let () (declare (not safe)) - (##values-ref _g101867_ 0))) - (_%tl9559995639%_ + (##values-ref _g102750_ 0))) + (_%tl9648296522%_ (let () (declare (not safe)) - (##values-ref _g101867_ 1)))) - (if (gx#stx-null? _%tl9559995639%_) - (letrec ((_%loop9560095642%_ - (lambda (_%hd9559895646%_ - _%field9560495649%_ - _%slot9560595651%_) + (##values-ref _g102750_ 1)))) + (if (gx#stx-null? _%tl9648296522%_) + (letrec ((_%loop9648396525%_ + (lambda (_%hd9648196529%_ + _%field9648796532%_ + _%slot9648896534%_) (if (gx#stx-pair? - _%hd9559895646%_) - (let ((_%e9560195654%_ + _%hd9648196529%_) + (let ((_%e9648496537%_ (gx#syntax-e - _%hd9559895646%_))) - (let ((_%lp-hd9560295658%_ + _%hd9648196529%_))) + (let ((_%lp-hd9648596541%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9560195654%_))) - (_%lp-tl9560395661%_ - (let () (declare (not safe)) (##cdr _%e9560195654%_)))) - (if (gx#stx-pair? _%lp-hd9560295658%_) - (let ((_%e9560895664%_ - (gx#syntax-e _%lp-hd9560295658%_))) - (let ((_%hd9560995668%_ + (##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 _%e9560895664%_))) - (_%tl9561095671%_ + (##car _%e9649196547%_))) + (_%tl9649396554%_ (let () (declare (not safe)) - (##cdr _%e9560895664%_)))) - (if (gx#stx-pair? _%tl9561095671%_) - (let ((_%e9561195674%_ - (gx#syntax-e _%tl9561095671%_))) - (let ((_%hd9561295678%_ + (##cdr _%e9649196547%_)))) + (if (gx#stx-pair? _%tl9649396554%_) + (let ((_%e9649496557%_ + (gx#syntax-e _%tl9649396554%_))) + (let ((_%hd9649596561%_ (let () (declare (not safe)) - (##car _%e9561195674%_))) - (_%tl9561395681%_ + (##car _%e9649496557%_))) + (_%tl9649696564%_ (let () (declare (not safe)) - (##cdr _%e9561195674%_)))) - (if (gx#stx-null? _%tl9561395681%_) - (_%loop9560095642%_ - _%lp-tl9560395661%_ - (cons _%hd9561295678%_ - _%field9560495649%_) - (cons _%hd9560995668%_ - _%slot9560595651%_)) - (_%g9559095619%_ _%g9559195623%_)))) - (_%g9559095619%_ _%g9559195623%_)))) - (_%g9559095619%_ _%g9559195623%_)))) - (let ((_%field9560695684%_ (reverse _%field9560495649%_)) - (_%slot9560795687%_ (reverse _%slot9560595651%_))) - ((lambda (_%L95690%_ _%L95692%_) + (##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 - _%L95690%_ - _%L95692%_) - (let ((__tmp101869 - (lambda (_%g9570795711%_ - _%g9570895714%_ - _%g9570995716%_) + _%L96573%_ + _%L96575%_) + (let ((__tmp102752 + (lambda (_%g9659096594%_ + _%g9659196597%_ + _%g9659296599%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g9570895714%_ - (cons _%g9570795711%_ + (cons (cons _%g9659196597%_ + (cons _%g9659096594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9570995716%_)))) + _%g9659296599%_)))) (declare (not safe)) (__foldr2 - __tmp101869 + __tmp102752 '() - _%L95690%_ - _%L95692%_))))) - _%field9560695684%_ - _%slot9560795687%_)))))) + _%L96573%_ + _%L96575%_))))) + _%field9648996567%_ + _%slot9649096570%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9560095642%_ - _%target9559795636%_ + (_%loop9648396525%_ + _%target9648096519%_ '() '())) - (_%g9559095619%_ _%g9559195623%_))))) - (_%g9559095619%_ _%g9559195623%_)))) - (_%g9559095619%_ _%g9559195623%_))))) - (_%g9558995719%_ _%$stx95586%_)))) + (_%g9647396502%_ _%g9647496506%_))))) + (_%g9647396502%_ _%g9647496506%_)))) + (_%g9647396502%_ _%g9647496506%_))))) + (_%g9647296602%_ _%$stx96469%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx95724%_) - (let* ((_%g9572895762%_ - (lambda (_%g9572995758%_) + (lambda (_%$stx96607%_) + (let* ((_%g9661196645%_ + (lambda (_%g9661296641%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9572995758%_))) - (_%g9572795873%_ - (lambda (_%g9572995766%_) - (if (gx#stx-pair? _%g9572995766%_) - (let ((_%e9573695769%_ (gx#syntax-e _%g9572995766%_))) - (let ((_%hd9573795773%_ + _%g9661296641%_))) + (_%g9661096756%_ + (lambda (_%g9661296649%_) + (if (gx#stx-pair? _%g9661296649%_) + (let ((_%e9661996652%_ (gx#syntax-e _%g9661296649%_))) + (let ((_%hd9662096656%_ (let () (declare (not safe)) - (##car _%e9573695769%_))) - (_%tl9573895776%_ + (##car _%e9661996652%_))) + (_%tl9662196659%_ (let () (declare (not safe)) - (##cdr _%e9573695769%_)))) - (if (gx#stx-pair? _%tl9573895776%_) - (let ((_%e9573995779%_ - (gx#syntax-e _%tl9573895776%_))) - (let ((_%hd9574095783%_ + (##cdr _%e9661996652%_)))) + (if (gx#stx-pair? _%tl9662196659%_) + (let ((_%e9662296662%_ + (gx#syntax-e _%tl9662196659%_))) + (let ((_%hd9662396666%_ (let () (declare (not safe)) - (##car _%e9573995779%_))) - (_%tl9574195786%_ + (##car _%e9662296662%_))) + (_%tl9662496669%_ (let () (declare (not safe)) - (##cdr _%e9573995779%_)))) - (if (gx#stx-pair? _%tl9574195786%_) - (let ((_%e9574295789%_ - (gx#syntax-e _%tl9574195786%_))) - (let ((_%hd9574395793%_ + (##cdr _%e9662296662%_)))) + (if (gx#stx-pair? _%tl9662496669%_) + (let ((_%e9662596672%_ + (gx#syntax-e _%tl9662496669%_))) + (let ((_%hd9662696676%_ (let () (declare (not safe)) - (##car _%e9574295789%_))) - (_%tl9574495796%_ + (##car _%e9662596672%_))) + (_%tl9662796679%_ (let () (declare (not safe)) - (##cdr _%e9574295789%_)))) - (if (gx#stx-pair? _%tl9574495796%_) - (let ((_%e9574595799%_ + (##cdr _%e9662596672%_)))) + (if (gx#stx-pair? _%tl9662796679%_) + (let ((_%e9662896682%_ (gx#syntax-e - _%tl9574495796%_))) - (let ((_%hd9574695803%_ + _%tl9662796679%_))) + (let ((_%hd9662996686%_ (let () (declare (not safe)) - (##car _%e9574595799%_))) - (_%tl9574795806%_ + (##car _%e9662896682%_))) + (_%tl9663096689%_ (let () (declare (not safe)) - (##cdr _%e9574595799%_)))) + (##cdr _%e9662896682%_)))) (if (gx#stx-pair? - _%tl9574795806%_) - (let ((_%e9574895809%_ + _%tl9663096689%_) + (let ((_%e9663196692%_ (gx#syntax-e - _%tl9574795806%_))) - (let ((_%hd9574995813%_ + _%tl9663096689%_))) + (let ((_%hd9663296696%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9574895809%_))) - (_%tl9575095816%_ - (let () (declare (not safe)) (##cdr _%e9574895809%_)))) - (if (gx#stx-pair? _%tl9575095816%_) - (let ((_%e9575195819%_ (gx#syntax-e _%tl9575095816%_))) - (let ((_%hd9575295823%_ + (##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 _%e9575195819%_))) - (_%tl9575395826%_ + (##car _%e9663496702%_))) + (_%tl9663696709%_ (let () (declare (not safe)) - (##cdr _%e9575195819%_)))) - (if (gx#stx-pair? _%tl9575395826%_) - (let ((_%e9575495829%_ - (gx#syntax-e _%tl9575395826%_))) - (let ((_%hd9575595833%_ + (##cdr _%e9663496702%_)))) + (if (gx#stx-pair? _%tl9663696709%_) + (let ((_%e9663796712%_ + (gx#syntax-e _%tl9663696709%_))) + (let ((_%hd9663896716%_ (let () (declare (not safe)) - (##car _%e9575495829%_))) - (_%tl9575695836%_ + (##car _%e9663796712%_))) + (_%tl9663996719%_ (let () (declare (not safe)) - (##cdr _%e9575495829%_)))) - (if (gx#stx-null? _%tl9575695836%_) - ((lambda (_%L95839%_ - _%L95841%_ - _%L95842%_ - _%L95843%_ - _%L95844%_ - _%L95845%_) + (##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 _%L95845%_ '())) - (cons _%L95844%_ (cons '#f '())))) + (cons _%L96728%_ '())) + (cons _%L96727%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -747,18 +747,18 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L95845%_ - (cons 'slot: (cons _%L95844%_ '())))))) + (cons _%L96728%_ + (cons 'slot: (cons _%L96727%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L95845%_ '())) - (cons (cons _%L95843%_ - (cons _%L95845%_ - (cons _%L95844%_ + (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 _%L95845%_ '())) - (cons (cons _%L95842%_ - (cons _%L95845%_ + (cons _%L96728%_ '())) + (cons (cons _%L96725%_ + (cons _%L96728%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95844%_ + (cons _%L96727%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -784,7 +784,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L95845%_ '())) + (cons _%L96728%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -817,10 +817,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L95841%_ + (cons (cons _%L96724%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95845%_ - (cons _%L95844%_ + (cons _%L96728%_ + (cons _%L96727%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -828,10 +828,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L95839%_ + (cons (cons _%L96722%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95845%_ - (cons _%L95844%_ + (cons _%L96728%_ + (cons _%L96727%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -839,99 +839,99 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9575595833%_ - _%hd9575295823%_ - _%hd9574995813%_ - _%hd9574695803%_ - _%hd9574395793%_ - _%hd9574095783%_) - (_%g9572895762%_ _%g9572995766%_)))) - (_%g9572895762%_ _%g9572995766%_)))) - (_%g9572895762%_ _%g9572995766%_)))) + _%hd9663896716%_ + _%hd9663596706%_ + _%hd9663296696%_ + _%hd9662996686%_ + _%hd9662696676%_ + _%hd9662396666%_) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9572895762%_ - _%g9572995766%_)))) - (_%g9572895762%_ - _%g9572995766%_)))) - (_%g9572895762%_ _%g9572995766%_)))) - (_%g9572895762%_ _%g9572995766%_)))) - (_%g9572895762%_ _%g9572995766%_))))) - (_%g9572795873%_ _%$stx95724%_)))) + (_%g9661196645%_ + _%g9661296649%_)))) + (_%g9661196645%_ + _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_))))) + (_%g9661096756%_ _%$stx96607%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx95877%_) - (let* ((_%g9588195907%_ - (lambda (_%g9588295903%_) + (lambda (_%$stx96760%_) + (let* ((_%g9676496790%_ + (lambda (_%g9676596786%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9588295903%_))) - (_%g9588095990%_ - (lambda (_%g9588295911%_) - (if (gx#stx-pair? _%g9588295911%_) - (let ((_%e9588795914%_ (gx#syntax-e _%g9588295911%_))) - (let ((_%hd9588895918%_ + _%g9676596786%_))) + (_%g9676396873%_ + (lambda (_%g9676596794%_) + (if (gx#stx-pair? _%g9676596794%_) + (let ((_%e9677096797%_ (gx#syntax-e _%g9676596794%_))) + (let ((_%hd9677196801%_ (let () (declare (not safe)) - (##car _%e9588795914%_))) - (_%tl9588995921%_ + (##car _%e9677096797%_))) + (_%tl9677296804%_ (let () (declare (not safe)) - (##cdr _%e9588795914%_)))) - (if (gx#stx-pair? _%tl9588995921%_) - (let ((_%e9589095924%_ - (gx#syntax-e _%tl9588995921%_))) - (let ((_%hd9589195928%_ + (##cdr _%e9677096797%_)))) + (if (gx#stx-pair? _%tl9677296804%_) + (let ((_%e9677396807%_ + (gx#syntax-e _%tl9677296804%_))) + (let ((_%hd9677496811%_ (let () (declare (not safe)) - (##car _%e9589095924%_))) - (_%tl9589295931%_ + (##car _%e9677396807%_))) + (_%tl9677596814%_ (let () (declare (not safe)) - (##cdr _%e9589095924%_)))) - (if (gx#stx-pair? _%tl9589295931%_) - (let ((_%e9589395934%_ - (gx#syntax-e _%tl9589295931%_))) - (let ((_%hd9589495938%_ + (##cdr _%e9677396807%_)))) + (if (gx#stx-pair? _%tl9677596814%_) + (let ((_%e9677696817%_ + (gx#syntax-e _%tl9677596814%_))) + (let ((_%hd9677796821%_ (let () (declare (not safe)) - (##car _%e9589395934%_))) - (_%tl9589595941%_ + (##car _%e9677696817%_))) + (_%tl9677896824%_ (let () (declare (not safe)) - (##cdr _%e9589395934%_)))) - (if (gx#stx-pair? _%tl9589595941%_) - (let ((_%e9589695944%_ + (##cdr _%e9677696817%_)))) + (if (gx#stx-pair? _%tl9677896824%_) + (let ((_%e9677996827%_ (gx#syntax-e - _%tl9589595941%_))) - (let ((_%hd9589795948%_ + _%tl9677896824%_))) + (let ((_%hd9678096831%_ (let () (declare (not safe)) - (##car _%e9589695944%_))) - (_%tl9589895951%_ + (##car _%e9677996827%_))) + (_%tl9678196834%_ (let () (declare (not safe)) - (##cdr _%e9589695944%_)))) + (##cdr _%e9677996827%_)))) (if (gx#stx-pair? - _%tl9589895951%_) - (let ((_%e9589995954%_ + _%tl9678196834%_) + (let ((_%e9678296837%_ (gx#syntax-e - _%tl9589895951%_))) - (let ((_%hd9590095958%_ + _%tl9678196834%_))) + (let ((_%hd9678396841%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9589995954%_))) - (_%tl9590195961%_ - (let () (declare (not safe)) (##cdr _%e9589995954%_)))) - (if (gx#stx-null? _%tl9590195961%_) - ((lambda (_%L95964%_ _%L95966%_ _%L95967%_ _%L95968%_) + (##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 _%L95968%_ '())) + (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 _%L95967%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L95966%_ '()))) + (cons _%L96850%_ '()))) + (cons (gx#datum->syntax '#f '=>) (cons _%L96849%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L95964%_ - (cons _%L95968%_ (cons _%L95967%_ '()))) + (cons (cons _%L96847%_ + (cons _%L96851%_ (cons _%L96850%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9590095958%_ - _%hd9589795948%_ - _%hd9589495938%_ - _%hd9589195928%_) - (_%g9588195907%_ _%g9588295911%_)))) + _%hd9678396841%_ + _%hd9678096831%_ + _%hd9677796821%_ + _%hd9677496811%_) + (_%g9676496790%_ _%g9676596794%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9588195907%_ - _%g9588295911%_)))) - (_%g9588195907%_ - _%g9588295911%_)))) - (_%g9588195907%_ _%g9588295911%_)))) - (_%g9588195907%_ _%g9588295911%_)))) - (_%g9588195907%_ _%g9588295911%_))))) - (_%g9588095990%_ _%$stx95877%_)))) + (_%g9676496790%_ + _%g9676596794%_)))) + (_%g9676496790%_ + _%g9676596794%_)))) + (_%g9676496790%_ _%g9676596794%_)))) + (_%g9676496790%_ _%g9676596794%_)))) + (_%g9676496790%_ _%g9676596794%_))))) + (_%g9676396873%_ _%$stx96760%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx95994%_) - (let* ((_%g9599896027%_ - (lambda (_%g9599996023%_) + (lambda (_%$stx96877%_) + (let* ((_%g9688196910%_ + (lambda (_%g9688296906%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9599996023%_))) - (_%g9599796127%_ - (lambda (_%g9599996031%_) - (if (gx#stx-pair? _%g9599996031%_) - (let ((_%e9600296034%_ (gx#syntax-e _%g9599996031%_))) - (let ((_%hd9600396038%_ + _%g9688296906%_))) + (_%g9688097010%_ + (lambda (_%g9688296914%_) + (if (gx#stx-pair? _%g9688296914%_) + (let ((_%e9688596917%_ (gx#syntax-e _%g9688296914%_))) + (let ((_%hd9688696921%_ (let () (declare (not safe)) - (##car _%e9600296034%_))) - (_%tl9600496041%_ + (##car _%e9688596917%_))) + (_%tl9688796924%_ (let () (declare (not safe)) - (##cdr _%e9600296034%_)))) - (if (gx#stx-pair/null? _%tl9600496041%_) - (let ((_g101870_ + (##cdr _%e9688596917%_)))) + (if (gx#stx-pair/null? _%tl9688796924%_) + (let ((_g102753_ (gx#syntax-split-splice - _%tl9600496041%_ + _%tl9688796924%_ '0))) (begin - (let ((_g101871_ + (let ((_g102754_ (let () (declare (not safe)) - (if (##values? _g101870_) - (##values-length _g101870_) + (if (##values? _g102753_) + (##values-length _g102753_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101871_ 2))) + (##fx= _g102754_ 2))) (error "Context expects 2 values" - _g101871_))) - (let ((_%target9600596044%_ + _g102754_))) + (let ((_%target9688896927%_ (let () (declare (not safe)) - (##values-ref _g101870_ 0))) - (_%tl9600796047%_ + (##values-ref _g102753_ 0))) + (_%tl9689096930%_ (let () (declare (not safe)) - (##values-ref _g101870_ 1)))) - (if (gx#stx-null? _%tl9600796047%_) - (letrec ((_%loop9600896050%_ - (lambda (_%hd9600696054%_ - _%name9601296057%_ - _%t9601396059%_) + (##values-ref _g102753_ 1)))) + (if (gx#stx-null? _%tl9689096930%_) + (letrec ((_%loop9689196933%_ + (lambda (_%hd9688996937%_ + _%name9689596940%_ + _%t9689696942%_) (if (gx#stx-pair? - _%hd9600696054%_) - (let ((_%e9600996062%_ + _%hd9688996937%_) + (let ((_%e9689296945%_ (gx#syntax-e - _%hd9600696054%_))) - (let ((_%lp-hd9601096066%_ + _%hd9688996937%_))) + (let ((_%lp-hd9689396949%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9600996062%_))) - (_%lp-tl9601196069%_ - (let () (declare (not safe)) (##cdr _%e9600996062%_)))) - (if (gx#stx-pair? _%lp-hd9601096066%_) - (let ((_%e9601696072%_ - (gx#syntax-e _%lp-hd9601096066%_))) - (let ((_%hd9601796076%_ + (##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 _%e9601696072%_))) - (_%tl9601896079%_ + (##car _%e9689996955%_))) + (_%tl9690196962%_ (let () (declare (not safe)) - (##cdr _%e9601696072%_)))) - (if (gx#stx-pair? _%tl9601896079%_) - (let ((_%e9601996082%_ - (gx#syntax-e _%tl9601896079%_))) - (let ((_%hd9602096086%_ + (##cdr _%e9689996955%_)))) + (if (gx#stx-pair? _%tl9690196962%_) + (let ((_%e9690296965%_ + (gx#syntax-e _%tl9690196962%_))) + (let ((_%hd9690396969%_ (let () (declare (not safe)) - (##car _%e9601996082%_))) - (_%tl9602196089%_ + (##car _%e9690296965%_))) + (_%tl9690496972%_ (let () (declare (not safe)) - (##cdr _%e9601996082%_)))) - (if (gx#stx-null? _%tl9602196089%_) - (_%loop9600896050%_ - _%lp-tl9601196069%_ - (cons _%hd9602096086%_ - _%name9601296057%_) - (cons _%hd9601796076%_ _%t9601396059%_)) - (_%g9599896027%_ _%g9599996031%_)))) - (_%g9599896027%_ _%g9599996031%_)))) - (_%g9599896027%_ _%g9599996031%_)))) - (let ((_%name9601496092%_ (reverse _%name9601296057%_)) - (_%t9601596095%_ (reverse _%t9601396059%_))) - ((lambda (_%L96098%_ _%L96100%_) + (##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 - _%L96098%_ - _%L96100%_) - (let ((__tmp101872 - (lambda (_%g9611596119%_ - _%g9611696122%_ - _%g9611796124%_) + _%L96981%_ + _%L96983%_) + (let ((__tmp102755 + (lambda (_%g9699897002%_ + _%g9699997005%_ + _%g9700097007%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g9611696122%_ + (cons _%g9699997005%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g9611596119%_ '())) + (cons _%g9699897002%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9611796124%_)))) + _%g9700097007%_)))) (declare (not safe)) (__foldr2 - __tmp101872 + __tmp102755 '() - _%L96098%_ - _%L96100%_))))) - _%name9601496092%_ - _%t9601596095%_)))))) + _%L96981%_ + _%L96983%_))))) + _%name9689796975%_ + _%t9689896978%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9600896050%_ - _%target9600596044%_ + (_%loop9689196933%_ + _%target9688896927%_ '() '())) - (_%g9599896027%_ _%g9599996031%_))))) - (_%g9599896027%_ _%g9599996031%_)))) - (_%g9599896027%_ _%g9599996031%_))))) - (_%g9599796127%_ _%$stx95994%_)))) + (_%g9688196910%_ _%g9688296914%_))))) + (_%g9688196910%_ _%g9688296914%_)))) + (_%g9688196910%_ _%g9688296914%_))))) + (_%g9688097010%_ _%$stx96877%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx96132%_) - (let* ((_%g9613696167%_ - (lambda (_%g9613796163%_) + (lambda (_%$stx97015%_) + (let* ((_%g9701997050%_ + (lambda (_%g9702097046%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9613796163%_))) - (_%g9613596286%_ - (lambda (_%g9613796171%_) - (if (gx#stx-pair? _%g9613796171%_) - (let ((_%e9614196174%_ (gx#syntax-e _%g9613796171%_))) - (let ((_%hd9614296178%_ + _%g9702097046%_))) + (_%g9701897169%_ + (lambda (_%g9702097054%_) + (if (gx#stx-pair? _%g9702097054%_) + (let ((_%e9702497057%_ (gx#syntax-e _%g9702097054%_))) + (let ((_%hd9702597061%_ (let () (declare (not safe)) - (##car _%e9614196174%_))) - (_%tl9614396181%_ + (##car _%e9702497057%_))) + (_%tl9702697064%_ (let () (declare (not safe)) - (##cdr _%e9614196174%_)))) - (if (gx#stx-pair? _%tl9614396181%_) - (let ((_%e9614496184%_ - (gx#syntax-e _%tl9614396181%_))) - (let ((_%hd9614596188%_ + (##cdr _%e9702497057%_)))) + (if (gx#stx-pair? _%tl9702697064%_) + (let ((_%e9702797067%_ + (gx#syntax-e _%tl9702697064%_))) + (let ((_%hd9702897071%_ (let () (declare (not safe)) - (##car _%e9614496184%_))) - (_%tl9614696191%_ + (##car _%e9702797067%_))) + (_%tl9702997074%_ (let () (declare (not safe)) - (##cdr _%e9614496184%_)))) - (if (gx#stx-pair? _%tl9614696191%_) - (let ((_%e9614796194%_ - (gx#syntax-e _%tl9614696191%_))) - (let ((_%hd9614896198%_ + (##cdr _%e9702797067%_)))) + (if (gx#stx-pair? _%tl9702997074%_) + (let ((_%e9703097077%_ + (gx#syntax-e _%tl9702997074%_))) + (let ((_%hd9703197081%_ (let () (declare (not safe)) - (##car _%e9614796194%_))) - (_%tl9614996201%_ + (##car _%e9703097077%_))) + (_%tl9703297084%_ (let () (declare (not safe)) - (##cdr _%e9614796194%_)))) - (if (gx#stx-pair? _%tl9614996201%_) - (let ((_%e9615096204%_ + (##cdr _%e9703097077%_)))) + (if (gx#stx-pair? _%tl9703297084%_) + (let ((_%e9703397087%_ (gx#syntax-e - _%tl9614996201%_))) - (let ((_%hd9615196208%_ + _%tl9703297084%_))) + (let ((_%hd9703497091%_ (let () (declare (not safe)) - (##car _%e9615096204%_))) - (_%tl9615296211%_ + (##car _%e9703397087%_))) + (_%tl9703597094%_ (let () (declare (not safe)) - (##cdr _%e9615096204%_)))) + (##cdr _%e9703397087%_)))) (if (gx#stx-pair/null? - _%hd9615196208%_) - (let ((_g101873_ + _%hd9703497091%_) + (let ((_g102756_ (gx#syntax-split-splice - _%hd9615196208%_ + _%hd9703497091%_ '0))) (begin - (let ((_g101874_ + (let ((_g102757_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g101873_) - (##values-length _g101873_) + (if (##values? _g102756_) + (##values-length _g102756_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101874_ 2))) - (error "Context expects 2 values" _g101874_))) - (let ((_%target9615396214%_ + (if (not (let () (declare (not safe)) (##fx= _g102757_ 2))) + (error "Context expects 2 values" _g102757_))) + (let ((_%target9703697097%_ (let () (declare (not safe)) - (##values-ref _g101873_ 0))) - (_%tl9615596217%_ + (##values-ref _g102756_ 0))) + (_%tl9703897100%_ (let () (declare (not safe)) - (##values-ref _g101873_ 1)))) - (if (gx#stx-null? _%tl9615596217%_) - (letrec ((_%loop9615696220%_ - (lambda (_%hd9615496224%_ _%super9616096227%_) - (if (gx#stx-pair? _%hd9615496224%_) - (let ((_%e9615796230%_ - (gx#syntax-e _%hd9615496224%_))) - (let ((_%lp-hd9615896234%_ + (##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 _%e9615796230%_))) - (_%lp-tl9615996237%_ + (##car _%e9704097113%_))) + (_%lp-tl9704297120%_ (let () (declare (not safe)) - (##cdr _%e9615796230%_)))) - (_%loop9615696220%_ - _%lp-tl9615996237%_ - (cons _%lp-hd9615896234%_ - _%super9616096227%_)))) - (let ((_%super9616196240%_ - (reverse _%super9616096227%_))) - (if (gx#stx-null? _%tl9615296211%_) - ((lambda (_%L96244%_ - _%L96246%_ - _%L96247%_) + (##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 _%L96247%_ + (cons _%L97130%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96246%_ - (cons (let ((__tmp101875 - (lambda (_%g9627196274%_ + (cons _%L97129%_ + (cons (let ((__tmp102758 + (lambda (_%g9715497157%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9627296277%_) - (cons _%g9627196274%_ _%g9627296277%_)))) + _%g9715597160%_) + (cons _%g9715497157%_ _%g9715597160%_)))) (declare (not safe)) - (__foldr1 __tmp101875 '() _%L96244%_)) + (__foldr1 __tmp102758 '() _%L97127%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1230,189 +1230,189 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L96246%_ + (cons _%L97129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp101876 - (lambda (_%g9626996280%_ _%g9627096283%_) - (cons _%g9626996280%_ _%g9627096283%_)))) + (let ((__tmp102759 + (lambda (_%g9715297163%_ _%g9715397166%_) + (cons _%g9715297163%_ _%g9715397166%_)))) (declare (not safe)) - (__foldr1 __tmp101876 '() _%L96244%_))) + (__foldr1 __tmp102759 '() _%L97127%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super9616196240%_ - _%hd9614896198%_ - _%hd9614596188%_) - (_%g9613696167%_ - _%g9613796171%_))))))) - (_%loop9615696220%_ _%target9615396214%_ '())) - (_%g9613696167%_ _%g9613796171%_))))) + _%super9704497123%_ + _%hd9703197081%_ + _%hd9702897071%_) + (_%g9701997050%_ + _%g9702097054%_))))))) + (_%loop9703997103%_ _%target9703697097%_ '())) + (_%g9701997050%_ _%g9702097054%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9613696167%_ - _%g9613796171%_)))) - (_%g9613696167%_ - _%g9613796171%_)))) - (_%g9613696167%_ _%g9613796171%_)))) - (_%g9613696167%_ _%g9613796171%_)))) - (_%g9613696167%_ _%g9613796171%_))))) - (_%g9613596286%_ _%$stx96132%_)))) + (_%g9701997050%_ + _%g9702097054%_)))) + (_%g9701997050%_ + _%g9702097054%_)))) + (_%g9701997050%_ _%g9702097054%_)))) + (_%g9701997050%_ _%g9702097054%_)))) + (_%g9701997050%_ _%g9702097054%_))))) + (_%g9701897169%_ _%$stx97015%_)))) (define |[:0:]#defshadow-class| - (lambda (_%$stx96291%_) - (let* ((_%g9629596326%_ - (lambda (_%g9629696322%_) + (lambda (_%$stx97174%_) + (let* ((_%g9717897209%_ + (lambda (_%g9717997205%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9629696322%_))) - (_%g9629496437%_ - (lambda (_%g9629696330%_) - (if (gx#stx-pair? _%g9629696330%_) - (let ((_%e9630096333%_ (gx#syntax-e _%g9629696330%_))) - (let ((_%hd9630196337%_ + _%g9717997205%_))) + (_%g9717797320%_ + (lambda (_%g9717997213%_) + (if (gx#stx-pair? _%g9717997213%_) + (let ((_%e9718397216%_ (gx#syntax-e _%g9717997213%_))) + (let ((_%hd9718497220%_ (let () (declare (not safe)) - (##car _%e9630096333%_))) - (_%tl9630296340%_ + (##car _%e9718397216%_))) + (_%tl9718597223%_ (let () (declare (not safe)) - (##cdr _%e9630096333%_)))) - (if (gx#stx-pair? _%tl9630296340%_) - (let ((_%e9630396343%_ - (gx#syntax-e _%tl9630296340%_))) - (let ((_%hd9630496347%_ + (##cdr _%e9718397216%_)))) + (if (gx#stx-pair? _%tl9718597223%_) + (let ((_%e9718697226%_ + (gx#syntax-e _%tl9718597223%_))) + (let ((_%hd9718797230%_ (let () (declare (not safe)) - (##car _%e9630396343%_))) - (_%tl9630596350%_ + (##car _%e9718697226%_))) + (_%tl9718897233%_ (let () (declare (not safe)) - (##cdr _%e9630396343%_)))) - (if (gx#stx-pair? _%tl9630596350%_) - (let ((_%e9630696353%_ - (gx#syntax-e _%tl9630596350%_))) - (let ((_%hd9630796357%_ + (##cdr _%e9718697226%_)))) + (if (gx#stx-pair? _%tl9718897233%_) + (let ((_%e9718997236%_ + (gx#syntax-e _%tl9718897233%_))) + (let ((_%hd9719097240%_ (let () (declare (not safe)) - (##car _%e9630696353%_))) - (_%tl9630896360%_ + (##car _%e9718997236%_))) + (_%tl9719197243%_ (let () (declare (not safe)) - (##cdr _%e9630696353%_)))) + (##cdr _%e9718997236%_)))) (if (gx#stx-pair/null? - _%hd9630796357%_) - (let ((_g101877_ + _%hd9719097240%_) + (let ((_g102760_ (gx#syntax-split-splice - _%hd9630796357%_ + _%hd9719097240%_ '0))) (begin - (let ((_g101878_ + (let ((_g102761_ (let () (declare (not safe)) (if (##values? - _g101877_) + _g102760_) (##values-length - _g101877_) + _g102760_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101878_ + (##fx= _g102761_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g101878_))) + (error "Context expects 2 values" _g102761_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9630996363%_ + (let ((_%target9719297246%_ (let () (declare (not safe)) (##values-ref - _g101877_ + _g102760_ 0))) - (_%tl9631196366%_ + (_%tl9719497249%_ (let () (declare (not safe)) (##values-ref - _g101877_ + _g102760_ 1)))) (if (gx#stx-null? - _%tl9631196366%_) - (letrec ((_%loop9631296369%_ - (lambda (_%hd9631096373%_ + _%tl9719497249%_) + (letrec ((_%loop9719597252%_ + (lambda (_%hd9719397256%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super9631696376%_) - (if (gx#stx-pair? _%hd9631096373%_) - (let ((_%e9631396379%_ - (gx#syntax-e _%hd9631096373%_))) - (let ((_%lp-hd9631496383%_ + _%super9719997259%_) + (if (gx#stx-pair? _%hd9719397256%_) + (let ((_%e9719697262%_ + (gx#syntax-e _%hd9719397256%_))) + (let ((_%lp-hd9719797266%_ (let () (declare (not safe)) - (##car _%e9631396379%_))) - (_%lp-tl9631596386%_ + (##car _%e9719697262%_))) + (_%lp-tl9719897269%_ (let () (declare (not safe)) - (##cdr _%e9631396379%_)))) - (_%loop9631296369%_ - _%lp-tl9631596386%_ - (cons _%lp-hd9631496383%_ - _%super9631696376%_)))) - (let ((_%super9631796389%_ - (reverse _%super9631696376%_))) - (if (gx#stx-pair? _%tl9630896360%_) - (let ((_%e9631896393%_ - (gx#syntax-e _%tl9630896360%_))) - (let ((_%hd9631996397%_ + (##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 _%e9631896393%_))) - (_%tl9632096400%_ + (##car _%e9720197276%_))) + (_%tl9720397283%_ (let () (declare (not safe)) - (##cdr _%e9631896393%_)))) - (if (gx#stx-null? _%tl9632096400%_) - ((lambda (_%L96403%_ - _%L96405%_ - _%L96406%_) + (##cdr _%e9720197276%_)))) + (if (gx#stx-null? _%tl9720397283%_) + ((lambda (_%L97286%_ + _%L97288%_ + _%L97289%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L96406%_ + (cons _%L97289%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96406%_ - (cons (let ((__tmp101879 - (lambda (_%g9642896431%_ + (cons _%L97289%_ + (cons (let ((__tmp102762 + (lambda (_%g9731197314%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9642996434%_) - (cons _%g9642896431%_ _%g9642996434%_)))) + _%g9731297317%_) + (cons _%g9731197314%_ _%g9731297317%_)))) (declare (not safe)) - (__foldr1 __tmp101879 '() _%L96405%_)) + (__foldr1 __tmp102762 '() _%L97288%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '__shadow-class) - (cons _%L96403%_ '())) + (cons _%L97286%_ '())) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9631996397%_ - _%super9631796389%_ - _%hd9630496347%_) - (_%g9629596326%_ - _%g9629696330%_)))) - (_%g9629596326%_ _%g9629696330%_))))))) - (_%loop9631296369%_ _%target9630996363%_ '())) - (_%g9629596326%_ _%g9629696330%_))))) + _%hd9720297280%_ + _%super9720097272%_ + _%hd9718797230%_) + (_%g9717897209%_ + _%g9717997213%_)))) + (_%g9717897209%_ _%g9717997213%_))))))) + (_%loop9719597252%_ _%target9719297246%_ '())) + (_%g9717897209%_ _%g9717997213%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9629596326%_ - _%g9629696330%_)))) - (_%g9629596326%_ _%g9629696330%_)))) - (_%g9629596326%_ _%g9629696330%_)))) - (_%g9629596326%_ _%g9629696330%_))))) - (_%g9629496437%_ _%$stx96291%_))))) + (_%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 7ff9828aa..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 1734131746) + (define gerbil/runtime/repl::timestamp 1734357961) (define replx (lambda () - (letrec ((_%write-reason115236%_ - (lambda (_%exn115242%_) - (lambda (_%cont115244%_ _%port115245%_) + (letrec ((_%write-reason116221%_ + (lambda (_%exn116227%_) + (lambda (_%cont116229%_ _%port116230%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn115242%_ - _%cont115244%_ - _%port115245%_)) + _%exn116227%_ + _%cont116229%_ + _%port116230%_)) '#f)))) - (let ((__tmp115246 - (lambda (_%exn115238%_) - (let ((__tmp115247 - (lambda (_%cont115240%_) - (let ((__tmp115248 - (_%write-reason115236%_ _%exn115238%_))) + (let ((__tmp116231 + (lambda (_%exn116223%_) + (let ((__tmp116232 + (lambda (_%cont116225%_) + (let ((__tmp116233 + (_%write-reason116221%_ _%exn116223%_))) (declare (not safe)) (##repl-within - _%cont115240%_ - __tmp115248 - _%exn115238%_))))) + _%cont116225%_ + __tmp116233 + _%exn116223%_))))) (declare (not safe)) - (##continuation-capture __tmp115247))))) + (##continuation-capture __tmp116232))))) (declare (not safe)) - (with-exception-handler __tmp115246 ##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 c88d82a61..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 1734131746) + (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 _%$args112473%_ - (apply make-instance SyntaxError::t _%$args112473%_))) + (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 (_%self111974112355%_ _%port112357%_) - (let* ((_%self112359%_ _%self111974112355%_) - (_%self112361%_ _%self112359%_)) - (letrec ((_%location112371%_ + (lambda (_%self112959113340%_ _%port113342%_) + (let* ((_%self113344%_ _%self112959113340%_) + (_%self113346%_ _%self113344%_)) + (letrec ((_%location113356%_ (lambda () - (let _%lp112433%_ ((_%rest112435%_ + (let _%lp113418%_ ((_%rest113420%_ (##unchecked-structure-ref - _%self112361%_ + _%self113346%_ '3 '#f '#f))) - (let* ((_%rest112436112444%_ _%rest112435%_) - (_%else112438112452%_ (lambda () '#f)) - (_%K112440112461%_ - (lambda (_%rest112455%_ _%hd112456%_) - (let ((_%$e112458%_ - (__AST-source _%hd112456%_))) - (if _%$e112458%_ - _%$e112458%_ - (_%lp112433%_ _%rest112455%_)))))) - (if (pair? _%rest112436112444%_) - (let ((_%hd112441112464%_ - (##car _%rest112436112444%_)) - (_%tl112442112466%_ - (##cdr _%rest112436112444%_))) - (let* ((_%hd112469%_ _%hd112441112464%_) - (_%rest112471%_ _%tl112442112466%_)) - (_%K112440112461%_ - _%rest112471%_ - _%hd112469%_))) - (_%else112438112452%_))))))) + (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 ((_%$e112374%_ (_%location112371%_))) - (if _%$e112374%_ - ((lambda (_%where112377%_) - (##display-locat _%where112377%_ '#t _%port112357%_)) - _%$e112374%_) + (let ((_%$e113359%_ (_%location113356%_))) + (if _%$e113359%_ + ((lambda (_%where113362%_) + (##display-locat _%where113362%_ '#t _%port113342%_)) + _%$e113359%_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_%$e112380%_ - (##unchecked-structure-ref _%self112361%_ '4 '#f '#f))) - (if _%$e112380%_ - ((lambda (_%where112383%_) + (let ((_%$e113365%_ + (##unchecked-structure-ref _%self113346%_ '4 '#f '#f))) + (if _%$e113365%_ + ((lambda (_%where113368%_) (displayln '" at " - _%where112383%_ + _%where113368%_ '": " (##unchecked-structure-ref - _%self112361%_ + _%self113346%_ '2 '#f '#f))) - _%$e112380%_) + _%$e113365%_) (displayln '": " - (##unchecked-structure-ref _%self112361%_ '2 '#f '#f)))) - (let* ((_%self.irritants112385112393%_ - (##unchecked-structure-ref _%self112361%_ '3 '#f '#f)) - (_%else112387112401%_ (lambda () '#!void)) - (_%K112389112414%_ - (lambda (_%rest112404%_ _%stx112405%_) + (##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 _%stx112405%_) + (__pp-syntax _%stx113390%_) (for-each - (lambda (_%detail112407%_) + (lambda (_%detail113392%_) (display '"... detail: ") - (##write (__AST->datum _%detail112407%_)) - (let ((_%$e112409%_ - (__AST-source _%detail112407%_))) - (if _%$e112409%_ - ((lambda (_%loc112412%_) + (##write (__AST->datum _%detail113392%_)) + (let ((_%$e113394%_ + (__AST-source _%detail113392%_))) + (if _%$e113394%_ + ((lambda (_%loc113397%_) (display '" at ") (##display-locat - _%loc112412%_ + _%loc113397%_ '#t - _%port112357%_)) - _%$e112409%_) + _%port113342%_)) + _%$e113394%_) '#!void)) (newline)) - _%rest112404%_)))) - (if (pair? _%self.irritants112385112393%_) - (let ((_%hd112390112417%_ - (##car _%self.irritants112385112393%_)) - (_%tl112391112419%_ - (##cdr _%self.irritants112385112393%_))) - (let* ((_%stx112422%_ _%hd112390112417%_) - (_%rest112424%_ _%tl112391112419%_)) - (_%K112389112414%_ _%rest112424%_ _%stx112422%_))) + _%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 ((_%cont112425112427%_ + (let ((_%cont113410113412%_ (##unchecked-structure-ref - _%self112361%_ + _%self113346%_ '1 '#f '#f))) - (if _%cont112425112427%_ - (let ((_%cont112430%_ _%cont112425112427%_)) + (if _%cont113410113412%_ + (let ((_%cont113415%_ _%cont113410113412%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont112430%_)) + (display-continuation-backtrace _%cont113415%_)) '#f)) '#!void)) current-output-port - _%port112357%_))))) + _%port113342%_))))) (__bind-method!__% SyntaxError::t 'display-exception @@ -187,37 +187,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message112226%_ - _%irritants112227%_ - _%where112228%_ - _%context112229%_ - _%marks112230%_ - _%phi112231%_) - (let ((__obj112570 + (lambda (_%message113211%_ + _%irritants113212%_ + _%where113213%_ + _%context113214%_ + _%marks113215%_ + _%phi113216%_) + (let ((__obj113555 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj112570 _%message112226%_ '2 '#f '#f) + (##unchecked-structure-set! __obj113555 _%message113211%_ '2 '#f '#f) (##unchecked-structure-set! - __obj112570 - _%irritants112227%_ + __obj113555 + _%irritants113212%_ '3 '#f '#f) - (##unchecked-structure-set! __obj112570 _%where112228%_ '4 '#f '#f) - (##unchecked-structure-set! __obj112570 _%context112229%_ '5 '#f '#f) - (##unchecked-structure-set! __obj112570 _%marks112230%_ '7 '#f '#f) - (##unchecked-structure-set! __obj112570 _%phi112231%_ '6 '#f '#f) - __obj112570))) + (##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 (_%where112221%_ - _%message112222%_ - _%stx112223%_ + (lambda (_%where113206%_ + _%message113207%_ + _%stx113208%_ . - _%details112224%_) + _%details113209%_) (raise (make-syntax-error - _%message112222%_ - (cons _%stx112223%_ _%details112224%_) - _%where112221%_ + _%message113207%_ + (cons _%stx113208%_ _%details113209%_) + _%where113206%_ '#f '#f '#f)))) @@ -231,7 +231,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args112218%_ (apply make-instance AST::t _%$args112218%_))) + (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 (_%stx112216%_) - (if (##structure-instance-of? _%stx112216%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx112216%_ '1 '#f '#f) - _%stx112216%_))) + (lambda (_%stx113201%_) + (if (##structure-instance-of? _%stx113201%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx113201%_ '1 '#f '#f) + _%stx113201%_))) (define __AST-source - (lambda (_%stx112207%_) - (let _%lp112209%_ ((_%src112211%_ _%stx112207%_)) - (if (##structure-instance-of? _%src112211%_ 'gerbil#AST::t) - (_%lp112209%_ - (##unchecked-structure-ref _%src112211%_ '2 '#f '#f)) - (if (##locat? _%src112211%_) _%src112211%_ '#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 (_%e112199%_ _%src-stx112200%_) - (let ((_%src112202%_ (__AST-source _%src-stx112200%_))) - (if (or (##structure-instance-of? _%e112199%_ 'gerbil#AST::t) - (not _%src112202%_)) - _%e112199%_ - (##structure AST::t _%e112199%_ _%src112202%_))))) + (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 (_%stx112196%_ _%obj112197%_) - (eq? (__AST-e _%stx112196%_) _%obj112197%_))) + (lambda (_%stx113181%_ _%obj113182%_) + (eq? (__AST-e _%stx113181%_) _%obj113182%_))) (define __AST-pair? - (lambda (_%stx112194%_) (pair? (__AST-e _%stx112194%_)))) + (lambda (_%stx113179%_) (pair? (__AST-e _%stx113179%_)))) (define __AST-null? - (lambda (_%stx112192%_) (null? (__AST-e _%stx112192%_)))) + (lambda (_%stx113177%_) (null? (__AST-e _%stx113177%_)))) (define __AST-datum? - (lambda (_%stx112173%_) - (let* ((_%e112175%_ (__AST-e _%stx112173%_)) - (_%$e112177%_ (number? _%e112175%_))) - (if _%$e112177%_ - _%$e112177%_ - (let ((_%$e112180%_ (string? _%e112175%_))) - (if _%$e112180%_ - _%$e112180%_ - (let ((_%$e112183%_ (char? _%e112175%_))) - (if _%$e112183%_ - _%$e112183%_ - (let ((_%$e112186%_ (keyword? _%e112175%_))) - (if _%$e112186%_ - _%$e112186%_ - (let ((_%$e112189%_ (boolean? _%e112175%_))) - (if _%$e112189%_ - _%$e112189%_ - (eq? _%e112175%_ '#!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 (_%stx112171%_) (symbol? (__AST-e _%stx112171%_)))) + (lambda (_%stx113156%_) (symbol? (__AST-e _%stx113156%_)))) (define __AST-id-list?__% - (lambda (_%stx112122%_ _%tail?112123%_) - (let _%lp112125%_ ((_%rest112127%_ _%stx112122%_)) - (let* ((_%$e112129%_ _%rest112127%_) - (_%$E112131112144%_ + (lambda (_%stx113107%_ _%tail?113108%_) + (let _%lp113110%_ ((_%rest113112%_ _%stx113107%_)) + (let* ((_%$e113114%_ _%rest113112%_) + (_%$E113116113129%_ (lambda () - (let* ((_%$E112132112139%_ + (let* ((_%$E113117113124%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112129%_))) - (_%rest112142%_ _%$e112129%_)) - (_%tail?112123%_ _%rest112142%_))))) - (if (__AST-pair? _%$e112129%_) - (let* ((_%$tgt112133112147%_ (__AST-e _%$e112129%_)) - (_%$hd112134112150%_ (##car _%$tgt112133112147%_)) - (_%$tl112135112153%_ (##cdr _%$tgt112133112147%_)) - (_%hd112157%_ _%$hd112134112150%_) - (_%rest112159%_ _%$tl112135112153%_)) - (if (__AST-id? _%hd112157%_) - (_%lp112125%_ _%rest112159%_) + _%$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)) - (_%$E112131112144%_)))))) + (_%$E113116113129%_)))))) (define __AST-id-list?__0 - (lambda (_%stx112164%_) - (let ((_%tail?112166%_ __AST-null?)) - (__AST-id-list?__% _%stx112164%_ _%tail?112166%_)))) + (lambda (_%stx113149%_) + (let ((_%tail?113151%_ __AST-null?)) + (__AST-id-list?__% _%stx113149%_ _%tail?113151%_)))) (define __AST-id-list? - (lambda _g112573_ - (let ((_g112572_ (##length _g112573_))) - (cond ((##fx= _g112572_ 1) (apply __AST-id-list?__0 _g112573_)) - ((##fx= _g112572_ 2) (apply __AST-id-list?__% _g112573_)) + (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? - _g112573_)))))) + _g113558_)))))) (define __AST-bind-list? - (lambda (_%stx112114%_) + (lambda (_%stx113099%_) (__AST-id-list?__% - _%stx112114%_ - (lambda (_%e112116%_) - (let ((_%$e112118%_ (__AST-null? _%e112116%_))) - (if _%$e112118%_ _%$e112118%_ (__AST-id? _%e112116%_))))))) + _%stx113099%_ + (lambda (_%e113101%_) + (let ((_%$e113103%_ (__AST-null? _%e113101%_))) + (if _%$e113103%_ _%$e113103%_ (__AST-id? _%e113101%_))))))) (define __AST-list?__% - (lambda (_%stx112067%_ _%tail?112068%_) - (let _%lp112070%_ ((_%rest112072%_ _%stx112067%_)) - (let* ((_%$e112074%_ _%rest112072%_) - (_%$E112076112089%_ + (lambda (_%stx113052%_ _%tail?113053%_) + (let _%lp113055%_ ((_%rest113057%_ _%stx113052%_)) + (let* ((_%$e113059%_ _%rest113057%_) + (_%$E113061113074%_ (lambda () - (let* ((_%$E112077112084%_ + (let* ((_%$E113062113069%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112074%_))) - (_%rest112087%_ _%$e112074%_)) - (_%tail?112068%_ _%rest112087%_))))) - (if (__AST-pair? _%$e112074%_) - (let* ((_%$tgt112078112092%_ (__AST-e _%$e112074%_)) - (_%$hd112079112095%_ (##car _%$tgt112078112092%_)) - (_%$tl112080112098%_ (##cdr _%$tgt112078112092%_)) - (_%rest112102%_ _%$tl112080112098%_)) - (_%lp112070%_ _%rest112102%_)) - (_%$E112076112089%_)))))) + _%$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 (_%stx112107%_) - (let ((_%tail?112109%_ __AST-null?)) - (__AST-list?__% _%stx112107%_ _%tail?112109%_)))) + (lambda (_%stx113092%_) + (let ((_%tail?113094%_ __AST-null?)) + (__AST-list?__% _%stx113092%_ _%tail?113094%_)))) (define __AST-list? - (lambda _g112575_ - (let ((_g112574_ (##length _g112575_))) - (cond ((##fx= _g112574_ 1) (apply __AST-list?__0 _g112575_)) - ((##fx= _g112574_ 2) (apply __AST-list?__% _g112575_)) + (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? - _g112575_)))))) + _g113560_)))))) (define __AST->list - (lambda (_%stx112032%_) - (let* ((_%$e112034%_ _%stx112032%_) - (_%$E112036112049%_ + (lambda (_%stx113017%_) + (let* ((_%$e113019%_ _%stx113017%_) + (_%$E113021113034%_ (lambda () - (let* ((_%$E112037112044%_ + (let* ((_%$E113022113029%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112034%_))) - (_%rest112047%_ _%$e112034%_)) - (__AST-e _%rest112047%_))))) - (if (__AST-pair? _%$e112034%_) - (let* ((_%$tgt112038112052%_ (__AST-e _%$e112034%_)) - (_%$hd112039112055%_ (##car _%$tgt112038112052%_)) - (_%$tl112040112058%_ (##cdr _%$tgt112038112052%_)) - (_%hd112062%_ _%$hd112039112055%_) - (_%rest112064%_ _%$tl112040112058%_)) - (cons _%hd112062%_ (__AST->list _%rest112064%_))) - (_%$E112036112049%_))))) + _%$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 (_%stx112025%_) - (if (##structure-instance-of? _%stx112025%_ 'gerbil#AST::t) - (__AST->datum (__AST-e _%stx112025%_)) - (if (pair? _%stx112025%_) - (cons (__AST->datum (##car _%stx112025%_)) - (__AST->datum (##cdr _%stx112025%_))) - (if (vector? _%stx112025%_) - (vector-map __AST->datum _%stx112025%_) - (if (box? _%stx112025%_) - (box (__AST->datum (unbox _%stx112025%_))) - _%stx112025%_)))))) + (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 (_%port112023%_) + (lambda (_%port113008%_) (##make-readenv - _%port112023%_ + _%port113008%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -410,93 +410,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in112011%_) - (let ((_%e112013%_ (##read-datum-or-eof (get-readenv _%in112011%_)))) - (if (eof-object? (__AST-e _%e112013%_)) - (__AST-e _%e112013%_) - _%e112013%_)))) + (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 ((_%in112019%_ (current-input-port))) - (read-syntax__% _%in112019%_)))) + (let ((_%in113004%_ (current-input-port))) + (read-syntax__% _%in113004%_)))) (define read-syntax - (lambda _g112577_ - (let ((_g112576_ (##length _g112577_))) - (cond ((##fx= _g112576_ 0) (apply read-syntax__0 _g112577_)) - ((##fx= _g112576_ 1) (apply read-syntax__% _g112577_)) + (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 - _g112577_)))))) + _g113562_)))))) (define read-syntax-from-file - (lambda (_%path112006%_) - (let ((_%r112008%_ + (lambda (_%path112991%_) + (let ((_%r112993%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path112006%_) + (path-normalize _%path112991%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r112008%_) - (cdr (__AST-e (vector-ref _%r112008%_ '1))) - (error (err-code->string _%r112008%_) _%path112006%_))))) + (if (vector? _%r112993%_) + (cdr (__AST-e (vector-ref _%r112993%_ '1))) + (error (err-code->string _%r112993%_) _%path112991%_))))) (define __wrap-syntax - (lambda (_%re112003%_ _%e112004%_) - (if (eof-object? _%e112004%_) - _%e112004%_ - (##structure AST::t _%e112004%_ (##readenv->locat _%re112003%_))))) + (lambda (_%re112988%_ _%e112989%_) + (if (eof-object? _%e112989%_) + _%e112989%_ + (##structure AST::t _%e112989%_ (##readenv->locat _%re112988%_))))) (define __unwrap-syntax - (lambda (_%re112000%_ _%e112001%_) (__AST-e _%e112001%_))) + (lambda (_%re112985%_ _%e112986%_) (__AST-e _%e112986%_))) (define __pp-syntax - (lambda (_%stx111998%_) (pp (__AST->datum _%stx111998%_)))) + (lambda (_%stx112983%_) (pp (__AST->datum _%stx112983%_)))) (define __make-readtable (lambda () - (let ((_%rt111996%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt111996%_ '#t) - (macro-readtable-bracket-handler-set! _%rt111996%_ '@list) - (macro-readtable-brace-handler-set! _%rt111996%_ '@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! - _%rt111996%_ + _%rt112981%_ '#\! __read-sharp-bang) - _%rt111996%_))) + _%rt112981%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt111992%_ _%kw111993%_) - (macro-readtable-bracket-handler-set! _%rt111992%_ _%kw111993%_))) + (lambda (_%rt112977%_ _%kw112978%_) + (macro-readtable-bracket-handler-set! _%rt112977%_ _%kw112978%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt111989%_ _%kw111990%_) - (macro-readtable-brace-handler-set! _%rt111989%_ _%kw111990%_))) + (lambda (_%rt112974%_ _%kw112975%_) + (macro-readtable-brace-handler-set! _%rt112974%_ _%kw112975%_))) (define __read-sharp-bang - (lambda (_%re111980%_ _%next111981%_ _%start-pos111982%_) - (if (eq? _%start-pos111982%_ '0) - (let* ((_%line111984%_ + (lambda (_%re112965%_ _%next112966%_ _%start-pos112967%_) + (if (eq? _%start-pos112967%_ '0) + (let* ((_%line112969%_ (##read-line - (macro-readenv-port _%re111980%_) + (macro-readenv-port _%re112965%_) '#\newline '#f ##max-fixnum)) - (_%script-line111986%_ + (_%script-line112971%_ (substring - _%line111984%_ + _%line112969%_ '1 - (string-length _%line111984%_)))) + (string-length _%line112969%_)))) (macro-readenv-script-line-set! - _%re111980%_ - _%script-line111986%_) + _%re112965%_ + _%script-line112971%_) (##script-marker)) (##read-sharp-bang - _%re111980%_ - _%next111981%_ - _%start-pos111982%_)))) + _%re112965%_ + _%next112966%_ + _%start-pos112967%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj111978%_) - (if (source-location? _%obj111978%_) - (string? (##locat-container _%obj111978%_)) + (lambda (_%obj112963%_) + (if (source-location? _%obj112963%_) + (string? (##locat-container _%obj112963%_)) '#f))) (define source-location-path - (lambda (_%obj111976%_) - (if (##locat? _%obj111976%_) - (##container->path (##locat-container _%obj111976%_)) + (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 16e54e859..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]#_g112586_| + (define |[1]#_g113571_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g112589_| + (define |[1]#_g113574_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g112590_| + (define |[1]#_g113575_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g112592_| + (define |[1]#_g113577_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g112594_| + (define |[1]#_g113579_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g112596_| + (define |[1]#_g113581_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g112598_| + (define |[1]#_g113583_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112599_| + (define |[1]#_g113584_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112600_| + (define |[1]#_g113585_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112601_| + (define |[1]#_g113586_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112602_| + (define |[1]#_g113587_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112603_| + (define |[1]#_g113588_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112604_| + (define |[1]#_g113589_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112606_| + (define |[1]#_g113591_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112607_| + (define |[1]#_g113592_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112608_| + (define |[1]#_g113593_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112609_| + (define |[1]#_g113594_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112610_| + (define |[1]#_g113595_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112611_| + (define |[1]#_g113596_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112612_| + (define |[1]#_g113597_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112614_| + (define |[1]#_g113599_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112615_| + (define |[1]#_g113600_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112616_| + (define |[1]#_g113601_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112617_| + (define |[1]#_g113602_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112618_| + (define |[1]#_g113603_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112619_| + (define |[1]#_g113604_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112620_| + (define |[1]#_g113605_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112622_| + (define |[1]#_g113607_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112623_| + (define |[1]#_g113608_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112624_| + (define |[1]#_g113609_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112625_| + (define |[1]#_g113610_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112626_| + (define |[1]#_g113611_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112627_| + (define |[1]#_g113612_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112628_| + (define |[1]#_g113613_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112630_| + (define |[1]#_g113615_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g112632_| + (define |[1]#_g113617_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g112634_| + (define |[1]#_g113619_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g112636_| + (define |[1]#_g113621_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112637_| + (define |[1]#_g113622_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112639_| + (define |[1]#_g113624_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112640_| + (define |[1]#_g113625_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112642_| + (define |[1]#_g113627_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112643_| + (define |[1]#_g113628_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112645_| + (define |[1]#_g113630_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112646_| + (define |[1]#_g113631_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,291 +317,291 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx110856%_) - (let* ((_%g110860110884%_ - (lambda (_%g110861110880%_) + (lambda (_%$stx111841%_) + (let* ((_%g111845111869%_ + (lambda (_%g111846111865%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110861110880%_))) - (_%g110859110970%_ - (lambda (_%g110861110888%_) - (if (gx#stx-pair? _%g110861110888%_) - (let ((_%e110864110891%_ - (gx#syntax-e _%g110861110888%_))) - (let ((_%hd110865110895%_ + _%g111846111865%_))) + (_%g111844111955%_ + (lambda (_%g111846111873%_) + (if (gx#stx-pair? _%g111846111873%_) + (let ((_%e111849111876%_ + (gx#syntax-e _%g111846111873%_))) + (let ((_%hd111850111880%_ (let () (declare (not safe)) - (##car _%e110864110891%_))) - (_%tl110866110898%_ + (##car _%e111849111876%_))) + (_%tl111851111883%_ (let () (declare (not safe)) - (##cdr _%e110864110891%_)))) - (if (gx#stx-pair? _%tl110866110898%_) - (let ((_%e110867110901%_ - (gx#syntax-e _%tl110866110898%_))) - (let ((_%hd110868110905%_ + (##cdr _%e111849111876%_)))) + (if (gx#stx-pair? _%tl111851111883%_) + (let ((_%e111852111886%_ + (gx#syntax-e _%tl111851111883%_))) + (let ((_%hd111853111890%_ (let () (declare (not safe)) - (##car _%e110867110901%_))) - (_%tl110869110908%_ + (##car _%e111852111886%_))) + (_%tl111854111893%_ (let () (declare (not safe)) - (##cdr _%e110867110901%_)))) - (if (gx#stx-pair/null? _%tl110869110908%_) - (let ((_g112578_ + (##cdr _%e111852111886%_)))) + (if (gx#stx-pair/null? _%tl111854111893%_) + (let ((_g113563_ (gx#syntax-split-splice - _%tl110869110908%_ + _%tl111854111893%_ '0))) (begin - (let ((_g112579_ + (let ((_g113564_ (let () (declare (not safe)) - (if (##values? _g112578_) + (if (##values? _g113563_) (##values-length - _g112578_) + _g113563_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112579_ 2))) + (##fx= _g113564_ 2))) (error "Context expects 2 values" - _g112579_))) - (let ((_%target110870110911%_ + _g113564_))) + (let ((_%target111855111896%_ (let () (declare (not safe)) - (##values-ref _g112578_ 0))) - (_%tl110872110914%_ + (##values-ref _g113563_ 0))) + (_%tl111857111899%_ (let () (declare (not safe)) (##values-ref - _g112578_ + _g113563_ 1)))) (if (gx#stx-null? - _%tl110872110914%_) - (letrec ((_%loop110873110917%_ - (lambda (_%hd110871110921%_ + _%tl111857111899%_) + (letrec ((_%loop111858111902%_ + (lambda (_%hd111856111906%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body110877110924%_) - (if (gx#stx-pair? _%hd110871110921%_) - (let ((_%e110874110927%_ - (gx#syntax-e _%hd110871110921%_))) - (let ((_%lp-hd110875110931%_ + _%body111862111909%_) + (if (gx#stx-pair? _%hd111856111906%_) + (let ((_%e111859111912%_ + (gx#syntax-e _%hd111856111906%_))) + (let ((_%lp-hd111860111916%_ (let () (declare (not safe)) - (##car _%e110874110927%_))) - (_%lp-tl110876110934%_ + (##car _%e111859111912%_))) + (_%lp-tl111861111919%_ (let () (declare (not safe)) - (##cdr _%e110874110927%_)))) - (_%loop110873110917%_ - _%lp-tl110876110934%_ - (cons _%lp-hd110875110931%_ - _%body110877110924%_)))) - (let ((_%body110878110937%_ - (reverse _%body110877110924%_))) - ((lambda (_%L110941%_ _%L110943%_) + (##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 _%L110943%_ '())) + (cons _%L111928%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp112580 + (let ((__tmp113565 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g110961110964%_ _%g110962110967%_) - (cons _%g110961110964%_ _%g110962110967%_)))) + (lambda (_%g111946111949%_ _%g111947111952%_) + (cons _%g111946111949%_ _%g111947111952%_)))) (declare (not safe)) - (__foldr1 __tmp112580 '() _%L110941%_)))) + (__foldr1 __tmp113565 '() _%L111926%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body110878110937%_ - _%hd110868110905%_)))))) + _%body111863111922%_ + _%hd111853111890%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop110873110917%_ - _%target110870110911%_ + (_%loop111858111902%_ + _%target111855111896%_ '())) - (_%g110860110884%_ - _%g110861110888%_))))) - (_%g110860110884%_ _%g110861110888%_)))) - (_%g110860110884%_ _%g110861110888%_)))) - (_%g110860110884%_ _%g110861110888%_))))) - (_%g110859110970%_ _%$stx110856%_)))) + (_%g111845111869%_ + _%g111846111873%_))))) + (_%g111845111869%_ _%g111846111873%_)))) + (_%g111845111869%_ _%g111846111873%_)))) + (_%g111845111869%_ _%g111846111873%_))))) + (_%g111844111955%_ _%$stx111841%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx110975%_) - (letrec ((_%generate1110978%_ - (lambda (_%hd111519%_ - _%tgt111521%_ - _%K111522%_ - _%E111523%_ - _%kws111524%_) - (let* ((_%g111526111534%_ - (lambda (_%g111527111530%_) + (lambda (_%stx111960%_) + (letrec ((_%generate1111963%_ + (lambda (_%hd112504%_ + _%tgt112506%_ + _%K112507%_ + _%E112508%_ + _%kws112509%_) + (let* ((_%g112511112519%_ + (lambda (_%g112512112515%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111527111530%_))) - (_%g111525111969%_ - (lambda (_%g111527111538%_) - ((lambda (_%L111541%_) - (let* ((_%__stx112476112477%_ _%hd111519%_) - (_%g111555111569%_ + _%g112512112515%_))) + (_%g112510112954%_ + (lambda (_%g112512112523%_) + ((lambda (_%L112526%_) + (let* ((_%__stx113461113462%_ _%hd112504%_) + (_%g112540112554%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx112476112477%_)))) - (let ((_%__kont112479112480%_ - (lambda (_%L111791%_ _%L111793%_) - (let* ((_%g111804111812%_ - (lambda (_%g111805111808%_) + _%__stx113461113462%_)))) + (let ((_%__kont113464113465%_ + (lambda (_%L112776%_ _%L112778%_) + (let* ((_%g112789112797%_ + (lambda (_%g112790112793%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111805111808%_))) - (_%g111803111961%_ - (lambda (_%g111805111816%_) - ((lambda (_%L111819%_) - (let* ((_%g111831111839%_ + _%g112790112793%_))) + (_%g112788112946%_ + (lambda (_%g112790112801%_) + ((lambda (_%L112804%_) + (let* ((_%g112816112824%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111832111835%_) + (lambda (_%g112817112820%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111832111835%_))) - (_%g111830111957%_ - (lambda (_%g111832111843%_) - ((lambda (_%L111846%_) - (let* ((_%g111859111867%_ - (lambda (_%g111860111863%_) + _%g112817112820%_))) + (_%g112815112942%_ + (lambda (_%g112817112828%_) + ((lambda (_%L112831%_) + (let* ((_%g112844112852%_ + (lambda (_%g112845112848%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111860111863%_))) - (_%g111858111953%_ - (lambda (_%g111860111871%_) - ((lambda (_%L111874%_) - (let* ((_%g111887111895%_ - (lambda (_%g111888111891%_) + _%g112845112848%_))) + (_%g112843112938%_ + (lambda (_%g112845112856%_) + ((lambda (_%L112859%_) + (let* ((_%g112872112880%_ + (lambda (_%g112873112876%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111888111891%_))) - (_%g111886111949%_ - (lambda (_%g111888111899%_) - ((lambda (_%L111902%_) - (let* ((_%g111915111923%_ - (lambda (_%g111916111919%_) + _%g112873112876%_))) + (_%g112871112934%_ + (lambda (_%g112873112884%_) + ((lambda (_%L112887%_) + (let* ((_%g112900112908%_ + (lambda (_%g112901112904%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111916111919%_))) - (_%g111914111945%_ - (lambda (_%g111916111927%_) - ((lambda (_%L111930%_) + _%g112901112904%_))) + (_%g112899112930%_ + (lambda (_%g112901112912%_) + ((lambda (_%L112915%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '__AST-pair?) - (cons _%L111541%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _%L111819%_ + (cons (cons (cons _%L112804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111541%_ '())) + (cons _%L112526%_ '())) '())) - (cons (cons _%L111846%_ + (cons (cons _%L112831%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L111819%_ '())) + (cons _%L112804%_ '())) '())) - (cons (cons _%L111874%_ + (cons (cons _%L112859%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L111819%_ '())) + (cons _%L112804%_ '())) '())) '()))) - (cons _%L111902%_ '()))) + (cons _%L112887%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111930%_ '()))))) - _%g111916111927%_)))) - (_%g111914111945%_ _%E111523%_))) - _%g111888111899%_)))) + (cons _%L112915%_ '()))))) + _%g112901112912%_)))) + (_%g112899112930%_ _%E112508%_))) + _%g112873112884%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111886111949%_ - (_%generate1110978%_ - _%L111793%_ - _%L111846%_ - (_%generate1110978%_ - _%L111791%_ - _%L111874%_ - _%K111522%_ - _%E111523%_ - _%kws111524%_) - _%E111523%_ - _%kws111524%_)))) - _%g111860111871%_)))) - (_%g111858111953%_ (gx#genident '$tl)))) - _%g111832111843%_)))) - (_%g111830111957%_ (gx#genident '$hd)))) - _%g111805111816%_)))) + (_%g112871112934%_ + (_%generate1111963%_ + _%L112778%_ + _%L112831%_ + (_%generate1111963%_ + _%L112776%_ + _%L112859%_ + _%K112507%_ + _%E112508%_ + _%kws112509%_) + _%E112508%_ + _%kws112509%_)))) + _%g112845112856%_)))) + (_%g112843112938%_ (gx#genident '$tl)))) + _%g112817112828%_)))) + (_%g112815112942%_ (gx#genident '$hd)))) + _%g112790112801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111803111961%_ + (_%g112788112946%_ (gx#genident '$tgt))))) - (_%__kont112481112482%_ - (lambda (_%L111658%_) - (if (gx#underscore? _%L111658%_) - _%K111522%_ - (if (let ((__tmp112582 - (lambda (_%g111668111670%_) + (_%__kont113466113467%_ + (lambda (_%L112643%_) + (if (gx#underscore? _%L112643%_) + _%K112507%_ + (if (let ((__tmp113567 + (lambda (_%g112653112655%_) (gx#bound-identifier=? - _%g111668111670%_ - _%L111658%_))) - (__tmp112581 + _%g112653112655%_ + _%L112643%_))) + (__tmp113566 (gx#syntax->list - _%kws111524%_))) + _%kws112509%_))) (declare (not safe)) - (__find __tmp112582 - __tmp112581)) - (let* ((_%g111676111691%_ - (lambda (_%g111677111687%_) + (__find __tmp113567 + __tmp113566)) + (let* ((_%g112661112676%_ + (lambda (_%g112662112672%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111677111687%_))) - (_%g111675111737%_ - (lambda (_%g111677111695%_) + _%g112662112672%_))) + (_%g112660112722%_ + (lambda (_%g112662112680%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g111677111695%_) - (let ((_%e111680111698%_ - (gx#syntax-e _%g111677111695%_))) - (let ((_%hd111681111702%_ + _%g112662112680%_) + (let ((_%e112665112683%_ + (gx#syntax-e _%g112662112680%_))) + (let ((_%hd112666112687%_ (let () (declare (not safe)) - (##car _%e111680111698%_))) - (_%tl111682111705%_ + (##car _%e112665112683%_))) + (_%tl112667112690%_ (let () (declare (not safe)) - (##cdr _%e111680111698%_)))) - (if (gx#stx-pair? _%tl111682111705%_) - (let ((_%e111683111708%_ - (gx#syntax-e _%tl111682111705%_))) - (let ((_%hd111684111712%_ + (##cdr _%e112665112683%_)))) + (if (gx#stx-pair? _%tl112667112690%_) + (let ((_%e112668112693%_ + (gx#syntax-e _%tl112667112690%_))) + (let ((_%hd112669112697%_ (let () (declare (not safe)) - (##car _%e111683111708%_))) - (_%tl111685111715%_ + (##car _%e112668112693%_))) + (_%tl112670112700%_ (let () (declare (not safe)) - (##cdr _%e111683111708%_)))) - (if (gx#stx-null? _%tl111685111715%_) - ((lambda (_%L111718%_ _%L111720%_) + (##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 _%L111541%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111541%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111658%_ + (cons _%L112643%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - (cons _%L111720%_ (cons _%L111718%_ '()))))) + (cons _%L112705%_ (cons _%L112703%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd111684111712%_ - _%hd111681111702%_) - (_%g111676111691%_ - _%g111677111695%_)))) - (_%g111676111691%_ _%g111677111695%_)))) - (_%g111676111691%_ _%g111677111695%_))))) - (_%g111675111737%_ (list _%K111522%_ _%E111523%_))) + _%hd112669112697%_ + _%hd112666112687%_) + (_%g112661112676%_ + _%g112662112680%_)))) + (_%g112661112676%_ _%g112662112680%_)))) + (_%g112661112676%_ _%g112662112680%_))))) + (_%g112660112722%_ (list _%K112507%_ _%E112508%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g111743111751%_ - (lambda (_%g111744111747%_) + (let* ((_%g112728112736%_ + (lambda (_%g112729112732%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111744111747%_))) - (_%g111742111770%_ - (lambda (_%g111744111755%_) - ((lambda (_%L111758%_) + _%g112729112732%_))) + (_%g112727112755%_ + (lambda (_%g112729112740%_) + ((lambda (_%L112743%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L111658%_ - (cons _%L111541%_ '())) + (cons (cons (cons _%L112643%_ + (cons _%L112526%_ '())) '()) - (cons _%L111758%_ '())))) - _%g111744111755%_)))) - (_%g111742111770%_ _%K111522%_)))))) + (cons _%L112743%_ '())))) + _%g112729112740%_)))) + (_%g112727112755%_ _%K112507%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont112483112484%_ - (lambda (_%L111576%_) - (let* ((_%g111587111602%_ - (lambda (_%g111588111598%_) + (_%__kont113468113469%_ + (lambda (_%L112561%_) + (let* ((_%g112572112587%_ + (lambda (_%g112573112583%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111588111598%_))) - (_%g111586111647%_ - (lambda (_%g111588111606%_) + _%g112573112583%_))) + (_%g112571112632%_ + (lambda (_%g112573112591%_) (if (gx#stx-pair? - _%g111588111606%_) - (let ((_%e111591111609%_ + _%g112573112591%_) + (let ((_%e112576112594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g111588111606%_))) - (let ((_%hd111592111613%_ + (gx#syntax-e _%g112573112591%_))) + (let ((_%hd112577112598%_ (let () (declare (not safe)) - (##car _%e111591111609%_))) - (_%tl111593111616%_ + (##car _%e112576112594%_))) + (_%tl112578112601%_ (let () (declare (not safe)) - (##cdr _%e111591111609%_)))) - (if (gx#stx-pair? _%tl111593111616%_) - (let ((_%e111594111619%_ - (gx#syntax-e _%tl111593111616%_))) - (let ((_%hd111595111623%_ + (##cdr _%e112576112594%_)))) + (if (gx#stx-pair? _%tl112578112601%_) + (let ((_%e112579112604%_ + (gx#syntax-e _%tl112578112601%_))) + (let ((_%hd112580112608%_ (let () (declare (not safe)) - (##car _%e111594111619%_))) - (_%tl111596111626%_ + (##car _%e112579112604%_))) + (_%tl112581112611%_ (let () (declare (not safe)) - (##cdr _%e111594111619%_)))) - (if (gx#stx-null? _%tl111596111626%_) - ((lambda (_%L111629%_ _%L111631%_) + (##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 _%L111541%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111576%_ '())) + (cons _%L112561%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111631%_ - (cons _%L111629%_ + (cons _%L112616%_ + (cons _%L112614%_ '()))))) - _%hd111595111623%_ - _%hd111592111613%_) - (_%g111587111602%_ _%g111588111606%_)))) - (_%g111587111602%_ _%g111588111606%_)))) - (_%g111587111602%_ _%g111588111606%_))))) + _%hd112580112608%_ + _%hd112577112598%_) + (_%g112572112587%_ _%g112573112591%_)))) + (_%g112572112587%_ _%g112573112591%_)))) + (_%g112572112587%_ _%g112573112591%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111586111647%_ - (list _%K111522%_ - _%E111523%_)))))) - (let ((_%g111553111774%_ + (_%g112571112632%_ + (list _%K112507%_ + _%E112508%_)))))) + (let ((_%g112538112759%_ (lambda () - (let ((_%L111658%_ - _%__stx112476112477%_)) + (let ((_%L112643%_ + _%__stx113461113462%_)) (if (gx#identifier? - _%L111658%_) - (_%__kont112481112482%_ - _%L111658%_) - (_%__kont112483112484%_ - _%__stx112476112477%_)))))) - (if (gx#stx-pair? _%__stx112476112477%_) - (let ((_%e111559111781%_ + _%L112643%_) + (_%__kont113466113467%_ + _%L112643%_) + (_%__kont113468113469%_ + _%__stx113461113462%_)))))) + (if (gx#stx-pair? _%__stx113461113462%_) + (let ((_%e112544112766%_ (gx#syntax-e - _%__stx112476112477%_))) - (let ((_%tl111561111788%_ + _%__stx113461113462%_))) + (let ((_%tl112546112773%_ (let () (declare (not safe)) - (##cdr _%e111559111781%_))) - (_%hd111560111785%_ + (##cdr _%e112544112766%_))) + (_%hd112545112770%_ (let () (declare (not safe)) - (##car _%e111559111781%_)))) - (_%__kont112479112480%_ - _%tl111561111788%_ - _%hd111560111785%_))) + (##car _%e112544112766%_)))) + (_%__kont113464113465%_ + _%tl112546112773%_ + _%hd112545112770%_))) (let () (declare (not safe)) - (_%g111553111774%_))))))) - _%g111527111538%_)))) - (_%g111525111969%_ _%tgt111521%_))))) - (let* ((_%g110981111009%_ - (lambda (_%g110982111005%_) + (_%g112538112759%_))))))) + _%g112512112523%_)))) + (_%g112510112954%_ _%tgt112506%_))))) + (let* ((_%g111966111994%_ + (lambda (_%g111967111990%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110982111005%_))) - (_%g110980111515%_ - (lambda (_%g110982111013%_) - (if (gx#stx-pair? _%g110982111013%_) - (let ((_%e110986111016%_ - (gx#syntax-e _%g110982111013%_))) - (let ((_%hd110987111020%_ + _%g111967111990%_))) + (_%g111965112500%_ + (lambda (_%g111967111998%_) + (if (gx#stx-pair? _%g111967111998%_) + (let ((_%e111971112001%_ + (gx#syntax-e _%g111967111998%_))) + (let ((_%hd111972112005%_ (let () (declare (not safe)) - (##car _%e110986111016%_))) - (_%tl110988111023%_ + (##car _%e111971112001%_))) + (_%tl111973112008%_ (let () (declare (not safe)) - (##cdr _%e110986111016%_)))) - (if (gx#stx-pair? _%tl110988111023%_) - (let ((_%e110989111026%_ - (gx#syntax-e _%tl110988111023%_))) - (let ((_%hd110990111030%_ + (##cdr _%e111971112001%_)))) + (if (gx#stx-pair? _%tl111973112008%_) + (let ((_%e111974112011%_ + (gx#syntax-e _%tl111973112008%_))) + (let ((_%hd111975112015%_ (let () (declare (not safe)) - (##car _%e110989111026%_))) - (_%tl110991111033%_ + (##car _%e111974112011%_))) + (_%tl111976112018%_ (let () (declare (not safe)) - (##cdr _%e110989111026%_)))) - (if (gx#stx-pair? _%tl110991111033%_) - (let ((_%e110992111036%_ + (##cdr _%e111974112011%_)))) + (if (gx#stx-pair? _%tl111976112018%_) + (let ((_%e111977112021%_ (gx#syntax-e - _%tl110991111033%_))) - (let ((_%hd110993111040%_ + _%tl111976112018%_))) + (let ((_%hd111978112025%_ (let () (declare (not safe)) - (##car _%e110992111036%_))) - (_%tl110994111043%_ + (##car _%e111977112021%_))) + (_%tl111979112028%_ (let () (declare (not safe)) - (##cdr _%e110992111036%_)))) + (##cdr _%e111977112021%_)))) (if (gx#stx-pair/null? - _%tl110994111043%_) - (let ((_g112583_ + _%tl111979112028%_) + (let ((_g113568_ (gx#syntax-split-splice - _%tl110994111043%_ + _%tl111979112028%_ '0))) (begin - (let ((_g112584_ + (let ((_g113569_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g112583_) - (##values-length _g112583_) + _g113568_) + (##values-length _g113568_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g112584_ 2))) - (error "Context expects 2 values" _g112584_))) + (if (not (let () (declare (not safe)) (##fx= _g113569_ 2))) + (error "Context expects 2 values" _g113569_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target110995111046%_ + (let ((_%target111980112031%_ (let () (declare (not safe)) (##values-ref - _g112583_ + _g113568_ 0))) - (_%tl110997111049%_ + (_%tl111982112034%_ (let () (declare (not safe)) (##values-ref - _g112583_ + _g113568_ 1)))) (if (gx#stx-null? - _%tl110997111049%_) - (letrec ((_%loop110998111052%_ + _%tl111982112034%_) + (letrec ((_%loop111983112037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd110996111056%_ _%clause111002111059%_) - (if (gx#stx-pair? _%hd110996111056%_) - (let ((_%e110999111062%_ - (gx#syntax-e _%hd110996111056%_))) - (let ((_%lp-hd111000111066%_ + (lambda (_%hd111981112041%_ _%clause111987112044%_) + (if (gx#stx-pair? _%hd111981112041%_) + (let ((_%e111984112047%_ + (gx#syntax-e _%hd111981112041%_))) + (let ((_%lp-hd111985112051%_ (let () (declare (not safe)) - (##car _%e110999111062%_))) - (_%lp-tl111001111069%_ + (##car _%e111984112047%_))) + (_%lp-tl111986112054%_ (let () (declare (not safe)) - (##cdr _%e110999111062%_)))) - (_%loop110998111052%_ - _%lp-tl111001111069%_ - (cons _%lp-hd111000111066%_ - _%clause111002111059%_)))) - (let ((_%clause111003111072%_ - (reverse _%clause111002111059%_))) - ((lambda (_%L111076%_ - _%L111078%_ - _%L111079%_) - (let _%recur111101%_ ((_%rest111104%_ - (let ((__tmp112587 + (##cdr _%e111984112047%_)))) + (_%loop111983112037%_ + _%lp-tl111986112054%_ + (cons _%lp-hd111985112051%_ + _%clause111987112044%_)))) + (let ((_%clause111988112057%_ + (reverse _%clause111987112044%_))) + ((lambda (_%L112061%_ + _%L112063%_ + _%L112064%_) + (let _%recur112086%_ ((_%rest112089%_ + (let ((__tmp113572 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111506111509%_ _%g111507111512%_) - (cons _%g111506111509%_ _%g111507111512%_)))) + (lambda (_%g112491112494%_ _%g112492112497%_) + (cons _%g112491112494%_ _%g112492112497%_)))) (declare (not safe)) - (__foldr1 __tmp112587 '() _%L111076%_)))) + (__foldr1 __tmp113572 '() _%L112061%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest111106111115%_ - _%rest111104%_) - (_%E111109111121%_ + (let* ((_%rest112091112100%_ + _%rest112089%_) + (_%E112094112106%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest111106111115%_ + _%rest112091112100%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K111111111491%_ - (lambda (_%rest111137%_ - _%hd111139%_) - (let* ((_%g111141111149%_ - (lambda (_%g111142111145%_) + (let ((_%K112096112476%_ + (lambda (_%rest112122%_ + _%hd112124%_) + (let* ((_%g112126112134%_ + (lambda (_%g112127112130%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111142111145%_))) - (_%g111140111487%_ - (lambda (_%g111142111153%_) - ((lambda (_%L111156%_) + _%g112127112130%_))) + (_%g112125112472%_ + (lambda (_%g112127112138%_) + ((lambda (_%L112141%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g111174111182%_ - (lambda (_%g111175111178%_) + (let* ((_%g112159112167%_ + (lambda (_%g112160112163%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111175111178%_))) - (_%g111173111483%_ - (lambda (_%g111175111186%_) - ((lambda (_%L111189%_) - (let* ((_%g111202111210%_ - (lambda (_%g111203111206%_) + _%g112160112163%_))) + (_%g112158112468%_ + (lambda (_%g112160112171%_) + ((lambda (_%L112174%_) + (let* ((_%g112187112195%_ + (lambda (_%g112188112191%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111203111206%_))) - (_%g111201111479%_ - (lambda (_%g111203111214%_) - ((lambda (_%L111217%_) - (let* ((_%g111230111238%_ - (lambda (_%g111231111234%_) + _%g112188112191%_))) + (_%g112186112464%_ + (lambda (_%g112188112199%_) + ((lambda (_%L112202%_) + (let* ((_%g112215112223%_ + (lambda (_%g112216112219%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111231111234%_))) - (_%g111229111260%_ - (lambda (_%g111231111242%_) - ((lambda (_%L111245%_) + _%g112216112219%_))) + (_%g112214112245%_ + (lambda (_%g112216112227%_) + ((lambda (_%L112230%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons _%L111156%_ + (cons (cons _%L112141%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L111217%_ + (cons _%L112202%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons _%L111245%_ '())))) - _%g111231111242%_)))) + (cons _%L112230%_ '())))) + _%g112216112227%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111229111260%_ - (let* ((_%__stx112494112495%_ - _%hd111139%_) - (_%g111266111306%_ + (_%g112214112245%_ + (let* ((_%__stx113479113480%_ + _%hd112124%_) + (_%g112251112291%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%__stx112494112495%_)))) - (let ((_%__kont112497112498%_ - (lambda (_%L111452%_) + _%__stx113479113480%_)))) + (let ((_%__kont113482113483%_ + (lambda (_%L112437%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp112585 - (lambda (_%g111466111469%_ - _%g111467111472%_) - (cons _%g111466111469%_ - _%g111467111472%_)))) + (let ((__tmp113570 + (lambda (_%g112451112454%_ + _%g112452112457%_) + (cons _%g112451112454%_ + _%g112452112457%_)))) (declare (not safe)) - (__foldr1 __tmp112585 '() _%L111452%_))))) - (_%__kont112501112502%_ - (lambda (_%L111390%_ _%L111392%_) - (_%generate1110978%_ - _%L111392%_ - _%L111079%_ - _%L111390%_ - _%L111189%_ - _%L111078%_))) - (_%__kont112503112504%_ - (lambda (_%L111343%_ _%L111345%_ _%L111346%_) - (_%generate1110978%_ - _%L111346%_ - _%L111079%_ + (__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 _%L111345%_ - (cons _%L111343%_ - (cons _%L111189%_ '())))) - _%L111189%_ - _%L111078%_)))) - (let ((_%__match112523112524%_ - (lambda (_%e111269111412%_ - _%hd111270111416%_ - _%tl111271111419%_ - _%__splice112499112500%_ - _%target111272111422%_ - _%tl111274111425%_) - (letrec ((_%loop111275111428%_ - (lambda (_%hd111273111432%_ - _%expr111279111435%_) - (if (gx#stx-pair? _%hd111273111432%_) - (let ((_%e111276111438%_ + (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 - _%hd111273111432%_))) - (let ((_%lp-tl111278111445%_ + _%hd112258112417%_))) + (let ((_%lp-tl112263112430%_ (let () (declare (not safe)) - (##cdr _%e111276111438%_))) - (_%lp-hd111277111442%_ + (##cdr _%e112261112423%_))) + (_%lp-hd112262112427%_ (let () (declare (not safe)) - (##car _%e111276111438%_)))) - (_%loop111275111428%_ - _%lp-tl111278111445%_ - (cons _%lp-hd111277111442%_ - _%expr111279111435%_)))) - (let ((_%expr111280111448%_ - (reverse _%expr111279111435%_))) - (_%__kont112497112498%_ - _%expr111280111448%_)))))) - (_%loop111275111428%_ - _%target111272111422%_ + (##car _%e112261112423%_)))) + (_%loop112260112413%_ + _%lp-tl112263112430%_ + (cons _%lp-hd112262112427%_ + _%expr112264112420%_)))) + (let ((_%expr112265112433%_ + (reverse _%expr112264112420%_))) + (_%__kont113482113483%_ + _%expr112265112433%_)))))) + (_%loop112260112413%_ + _%target112257112407%_ '()))))) - (if (gx#stx-pair? _%__stx112494112495%_) - (let ((_%e111269111412%_ - (gx#syntax-e _%__stx112494112495%_))) - (let ((_%tl111271111419%_ + (if (gx#stx-pair? _%__stx113479113480%_) + (let ((_%e112254112397%_ + (gx#syntax-e _%__stx113479113480%_))) + (let ((_%tl112256112404%_ (let () (declare (not safe)) - (##cdr _%e111269111412%_))) - (_%hd111270111416%_ + (##cdr _%e112254112397%_))) + (_%hd112255112401%_ (let () (declare (not safe)) - (##car _%e111269111412%_)))) - (if (gx#identifier? _%hd111270111416%_) + (##car _%e112254112397%_)))) + (if (gx#identifier? _%hd112255112401%_) (if (gx#free-identifier=? - |[1]#_g112586_| - _%hd111270111416%_) - (if (gx#stx-pair/null? _%tl111271111419%_) - (let ((_%__splice112499112500%_ + |[1]#_g113571_| + _%hd112255112401%_) + (if (gx#stx-pair/null? _%tl112256112404%_) + (let ((_%__splice113484113485%_ (gx#syntax-split-splice - _%tl111271111419%_ + _%tl112256112404%_ '0))) - (let ((_%tl111274111425%_ + (let ((_%tl112259112410%_ (let () (declare (not safe)) (##vector-ref - _%__splice112499112500%_ + _%__splice113484113485%_ '1))) - (_%target111272111422%_ + (_%target112257112407%_ (let () (declare (not safe)) (##vector-ref - _%__splice112499112500%_ + _%__splice113484113485%_ '0)))) (if (gx#stx-null? - _%tl111274111425%_) - (_%__match112523112524%_ - _%e111269111412%_ - _%hd111270111416%_ - _%tl111271111419%_ - _%__splice112499112500%_ - _%target111272111422%_ - _%tl111274111425%_) + _%tl112259112410%_) + (_%__match113508113509%_ + _%e112254112397%_ + _%hd112255112401%_ + _%tl112256112404%_ + _%__splice113484113485%_ + _%target112257112407%_ + _%tl112259112410%_) (if (gx#stx-pair? - _%tl111271111419%_) - (let ((_%e111286111380%_ + _%tl112256112404%_) + (let ((_%e112271112365%_ (gx#syntax-e - _%tl111271111419%_))) - (let ((_%tl111288111387%_ + _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111286111380%_))) - (_%hd111287111384%_ - (let () (declare (not safe)) (##car _%e111286111380%_)))) - (if (gx#stx-null? _%tl111288111387%_) - (_%__kont112501112502%_ - _%hd111287111384%_ - _%hd111270111416%_) - (if (gx#stx-pair? _%tl111288111387%_) - (let ((_%e111298111333%_ - (gx#syntax-e _%tl111288111387%_))) - (let ((_%tl111300111340%_ + (##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 _%e111298111333%_))) - (_%hd111299111337%_ + (##cdr _%e112283112318%_))) + (_%hd112284112322%_ (let () (declare (not safe)) - (##car _%e111298111333%_)))) - (if (gx#stx-null? _%tl111300111340%_) - (_%__kont112503112504%_ - _%hd111299111337%_ - _%hd111287111384%_ - _%hd111270111416%_) + (##car _%e112283112318%_)))) + (if (gx#stx-null? _%tl112285112325%_) + (_%__kont113488113489%_ + _%hd112284112322%_ + _%hd112272112369%_ + _%hd112255112401%_) (let () (declare (not safe)) - (_%g111266111306%_))))) - (let () (declare (not safe)) (_%g111266111306%_)))))) + (_%g112251112291%_))))) + (let () (declare (not safe)) (_%g112251112291%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111266111306%_)))))) - (if (gx#stx-pair? _%tl111271111419%_) - (let ((_%e111286111380%_ + (_%g112251112291%_)))))) + (if (gx#stx-pair? _%tl112256112404%_) + (let ((_%e112271112365%_ (gx#syntax-e - _%tl111271111419%_))) - (let ((_%tl111288111387%_ + _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare (not safe)) - (##cdr _%e111286111380%_))) - (_%hd111287111384%_ + (##cdr _%e112271112365%_))) + (_%hd112272112369%_ (let () (declare (not safe)) - (##car _%e111286111380%_)))) + (##car _%e112271112365%_)))) (if (gx#stx-null? - _%tl111288111387%_) - (_%__kont112501112502%_ - _%hd111287111384%_ - _%hd111270111416%_) + _%tl112273112372%_) + (_%__kont113486113487%_ + _%hd112272112369%_ + _%hd112255112401%_) (if (gx#stx-pair? - _%tl111288111387%_) - (let ((_%e111298111333%_ + _%tl112273112372%_) + (let ((_%e112283112318%_ (gx#syntax-e - _%tl111288111387%_))) - (let ((_%tl111300111340%_ + _%tl112273112372%_))) + (let ((_%tl112285112325%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%e111298111333%_))) - (_%hd111299111337%_ + (##cdr _%e112283112318%_))) + (_%hd112284112322%_ (let () (declare (not safe)) - (##car _%e111298111333%_)))) - (if (gx#stx-null? _%tl111300111340%_) - (_%__kont112503112504%_ - _%hd111299111337%_ - _%hd111287111384%_ - _%hd111270111416%_) - (let () (declare (not safe)) (_%g111266111306%_))))) - (let () (declare (not safe)) (_%g111266111306%_)))))) + (##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)) - (_%g111266111306%_)))) - (if (gx#stx-pair? _%tl111271111419%_) - (let ((_%e111286111380%_ + (_%g112251112291%_)))) + (if (gx#stx-pair? _%tl112256112404%_) + (let ((_%e112271112365%_ (gx#syntax-e - _%tl111271111419%_))) - (let ((_%tl111288111387%_ + _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare (not safe)) - (##cdr _%e111286111380%_))) - (_%hd111287111384%_ + (##cdr _%e112271112365%_))) + (_%hd112272112369%_ (let () (declare (not safe)) - (##car _%e111286111380%_)))) + (##car _%e112271112365%_)))) (if (gx#stx-null? - _%tl111288111387%_) - (_%__kont112501112502%_ - _%hd111287111384%_ - _%hd111270111416%_) + _%tl112273112372%_) + (_%__kont113486113487%_ + _%hd112272112369%_ + _%hd112255112401%_) (if (gx#stx-pair? - _%tl111288111387%_) - (let ((_%e111298111333%_ + _%tl112273112372%_) + (let ((_%e112283112318%_ (gx#syntax-e - _%tl111288111387%_))) - (let ((_%tl111300111340%_ + _%tl112273112372%_))) + (let ((_%tl112285112325%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111298111333%_))) - (_%hd111299111337%_ - (let () (declare (not safe)) (##car _%e111298111333%_)))) - (if (gx#stx-null? _%tl111300111340%_) - (_%__kont112503112504%_ - _%hd111299111337%_ - _%hd111287111384%_ - _%hd111270111416%_) - (let () (declare (not safe)) (_%g111266111306%_))))) + (##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)) - (_%g111266111306%_)))))) + (_%g112251112291%_)))))) (let () (declare (not safe)) - (_%g111266111306%_)))) - (if (gx#stx-pair? _%tl111271111419%_) - (let ((_%e111286111380%_ - (gx#syntax-e _%tl111271111419%_))) - (let ((_%tl111288111387%_ + (_%g112251112291%_)))) + (if (gx#stx-pair? _%tl112256112404%_) + (let ((_%e112271112365%_ + (gx#syntax-e _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare (not safe)) - (##cdr _%e111286111380%_))) - (_%hd111287111384%_ + (##cdr _%e112271112365%_))) + (_%hd112272112369%_ (let () (declare (not safe)) - (##car _%e111286111380%_)))) - (if (gx#stx-null? _%tl111288111387%_) - (_%__kont112501112502%_ - _%hd111287111384%_ - _%hd111270111416%_) + (##car _%e112271112365%_)))) + (if (gx#stx-null? _%tl112273112372%_) + (_%__kont113486113487%_ + _%hd112272112369%_ + _%hd112255112401%_) (if (gx#stx-pair? - _%tl111288111387%_) - (let ((_%e111298111333%_ + _%tl112273112372%_) + (let ((_%e112283112318%_ (gx#syntax-e - _%tl111288111387%_))) - (let ((_%tl111300111340%_ + _%tl112273112372%_))) + (let ((_%tl112285112325%_ (let () (declare (not safe)) - (##cdr _%e111298111333%_))) - (_%hd111299111337%_ + (##cdr _%e112283112318%_))) + (_%hd112284112322%_ (let () (declare (not safe)) - (##car _%e111298111333%_)))) + (##car _%e112283112318%_)))) (if (gx#stx-null? - _%tl111300111340%_) - (_%__kont112503112504%_ - _%hd111299111337%_ - _%hd111287111384%_ - _%hd111270111416%_) + _%tl112285112325%_) + (_%__kont113488113489%_ + _%hd112284112322%_ + _%hd112272112369%_ + _%hd112255112401%_) (let () (declare (not safe)) - (_%g111266111306%_))))) + (_%g112251112291%_))))) (let () (declare (not safe)) - (_%g111266111306%_)))))) + (_%g112251112291%_)))))) (let () (declare (not safe)) - (_%g111266111306%_)))))) + (_%g112251112291%_)))))) (let () (declare (not safe)) - (_%g111266111306%_))))))))) + (_%g112251112291%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g111203111214%_)))) - (_%g111201111479%_ - (_%recur111101%_ _%rest111137%_)))) - _%g111175111186%_)))) - (_%g111173111483%_ (cons _%L111156%_ '())))) - _%g111142111153%_)))) - (_%g111140111487%_ (gx#genident '$E))))) + _%g112188112199%_)))) + (_%g112186112464%_ + (_%recur112086%_ _%rest112122%_)))) + _%g112160112171%_)))) + (_%g112158112468%_ (cons _%L112141%_ '())))) + _%g112127112138%_)))) + (_%g112125112472%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K111110111129%_ + (_%K112095112114%_ (lambda () (cons (gx#datum->syntax '#f @@ -1222,47 +1222,47 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L111079%_ '()))))))) + (cons _%L112064%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match111108111133%_ + (let ((_%try-match112093112118%_ (lambda () - (if (null? _%rest111106111115%_) - (_%K111110111129%_) - (_%E111109111121%_))))) - (if (pair? _%rest111106111115%_) - (let ((_%tl111113111498%_ + (if (null? _%rest112091112100%_) + (_%K112095112114%_) + (_%E112094112106%_))))) + (if (pair? _%rest112091112100%_) + (let ((_%tl112098112483%_ (let () (declare (not safe)) - (##cdr _%rest111106111115%_))) - (_%hd111112111495%_ + (##cdr _%rest112091112100%_))) + (_%hd112097112480%_ (let () (declare (not safe)) - (##car _%rest111106111115%_)))) - (let ((_%hd111501%_ - _%hd111112111495%_) - (_%rest111504%_ - _%tl111113111498%_)) - (_%K111111111491%_ - _%rest111504%_ - _%hd111501%_))) - (_%try-match111108111133%_))))))) - _%clause111003111072%_ - _%hd110993111040%_ - _%hd110990111030%_)))))) - (_%loop110998111052%_ _%target110995111046%_ '())) - (_%g110981111009%_ _%g110982111013%_))))) + (##car _%rest112091112100%_)))) + (let ((_%hd112486%_ + _%hd112097112480%_) + (_%rest112489%_ + _%tl112098112483%_)) + (_%K112096112476%_ + _%rest112489%_ + _%hd112486%_))) + (_%try-match112093112118%_))))))) + _%clause111988112057%_ + _%hd111978112025%_ + _%hd111975112015%_)))))) + (_%loop111983112037%_ _%target111980112031%_ '())) + (_%g111966111994%_ _%g111967111998%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110981111009%_ - _%g110982111013%_)))) - (_%g110981111009%_ - _%g110982111013%_)))) - (_%g110981111009%_ _%g110982111013%_)))) - (_%g110981111009%_ _%g110982111013%_))))) - (_%g110980111515%_ _%stx110975%_))))) + (_%g111966111994%_ + _%g111967111998%_)))) + (_%g111966111994%_ + _%g111967111998%_)))) + (_%g111966111994%_ _%g111967111998%_)))) + (_%g111966111994%_ _%g111967111998%_))))) + (_%g111965112500%_ _%stx111960%_))))) (define |[:0:]#SyntaxError| - (let ((__obj112569 + (let ((__obj113554 (let () (declare (not safe)) (##structure @@ -1291,18 +1291,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112569 + __obj113554 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj113554 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj112569 + __obj113554 '(message irritants where context phi marks) '4 '#f @@ -1310,99 +1310,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112569 + __obj113554 '(continuation message irritants where context phi marks) '6 '#f '#f)) - (let ((__tmp112588 (cons |[1]#_g112589_| (cons |[1]#_g112590_| '())))) + (let ((__tmp113573 (cons |[1]#_g113574_| (cons |[1]#_g113575_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112588 '3 '#f '#f)) + (##unchecked-structure-set! __obj113554 __tmp113573 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj113554 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj113554 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113554 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 '#f '11 '#f '#f)) - (let ((__tmp112591 |[1]#_g112592_|)) + (##unchecked-structure-set! __obj113554 '#f '11 '#f '#f)) + (let ((__tmp113576 |[1]#_g113577_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112591 '12 '#f '#f)) - (let ((__tmp112593 |[1]#_g112594_|)) + (##unchecked-structure-set! __obj113554 __tmp113576 '12 '#f '#f)) + (let ((__tmp113578 |[1]#_g113579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112593 '13 '#f '#f)) - (let ((__tmp112595 |[1]#_g112596_|)) + (##unchecked-structure-set! __obj113554 __tmp113578 '13 '#f '#f)) + (let ((__tmp113580 |[1]#_g113581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112595 '14 '#f '#f)) - (let ((__tmp112597 - (cons (cons 'message |[1]#_g112598_|) - (cons (cons 'irritants |[1]#_g112599_|) - (cons (cons 'where |[1]#_g112600_|) - (cons (cons 'context |[1]#_g112601_|) - (cons (cons 'phi |[1]#_g112602_|) + (##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]#_g112603_|) + |[1]#_g113588_|) (cons (cons 'continuation - |[1]#_g112604_|) + |[1]#_g113589_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112597 '15 '#f '#f)) - (let ((__tmp112605 - (cons (cons 'message |[1]#_g112606_|) - (cons (cons 'irritants |[1]#_g112607_|) - (cons (cons 'where |[1]#_g112608_|) - (cons (cons 'context |[1]#_g112609_|) - (cons (cons 'phi |[1]#_g112610_|) + (##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]#_g112611_|) + |[1]#_g113596_|) (cons (cons 'continuation - |[1]#_g112612_|) + |[1]#_g113597_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112605 '16 '#f '#f)) - (let ((__tmp112613 - (cons (cons 'message |[1]#_g112614_|) - (cons (cons 'irritants |[1]#_g112615_|) - (cons (cons 'where |[1]#_g112616_|) - (cons (cons 'context |[1]#_g112617_|) - (cons (cons 'phi |[1]#_g112618_|) + (##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]#_g112619_|) + |[1]#_g113604_|) (cons (cons 'continuation - |[1]#_g112620_|) + |[1]#_g113605_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112613 '17 '#f '#f)) - (let ((__tmp112621 - (cons (cons 'message |[1]#_g112622_|) - (cons (cons 'irritants |[1]#_g112623_|) - (cons (cons 'where |[1]#_g112624_|) - (cons (cons 'context |[1]#_g112625_|) - (cons (cons 'phi |[1]#_g112626_|) + (##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]#_g112627_|) + |[1]#_g113612_|) (cons (cons 'continuation - |[1]#_g112628_|) + |[1]#_g113613_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112569 __tmp112621 '18 '#f '#f)) + (##unchecked-structure-set! __obj113554 __tmp113606 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113554 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113554 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112569 '() '20 '#f '#f)) - __obj112569)) + (##unchecked-structure-set! __obj113554 '() '20 '#f '#f)) + __obj113554)) (define |[:0:]#AST| - (let ((__obj112571 + (let ((__obj113556 (let () (declare (not safe)) (##structure @@ -1430,67 +1430,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj113556 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj113556 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj113556 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj113556 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj113556 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj113556 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj113556 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113556 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '#f '11 '#f '#f)) - (let ((__tmp112629 |[1]#_g112630_|)) + (##unchecked-structure-set! __obj113556 '#f '11 '#f '#f)) + (let ((__tmp113614 |[1]#_g113615_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112571 __tmp112629 '12 '#f '#f)) - (let ((__tmp112631 |[1]#_g112632_|)) + (##unchecked-structure-set! __obj113556 __tmp113614 '12 '#f '#f)) + (let ((__tmp113616 |[1]#_g113617_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112571 __tmp112631 '13 '#f '#f)) - (let ((__tmp112633 |[1]#_g112634_|)) + (##unchecked-structure-set! __obj113556 __tmp113616 '13 '#f '#f)) + (let ((__tmp113618 |[1]#_g113619_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112571 __tmp112633 '14 '#f '#f)) - (let ((__tmp112635 - (cons (cons 'e |[1]#_g112636_|) - (cons (cons 'source |[1]#_g112637_|) '())))) + (##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! __obj112571 __tmp112635 '15 '#f '#f)) - (let ((__tmp112638 - (cons (cons 'e |[1]#_g112639_|) - (cons (cons 'source |[1]#_g112640_|) '())))) + (##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! __obj112571 __tmp112638 '16 '#f '#f)) - (let ((__tmp112641 - (cons (cons 'e |[1]#_g112642_|) - (cons (cons 'source |[1]#_g112643_|) '())))) + (##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! __obj112571 __tmp112641 '17 '#f '#f)) - (let ((__tmp112644 - (cons (cons 'e |[1]#_g112645_|) - (cons (cons 'source |[1]#_g112646_|) '())))) + (##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! __obj112571 __tmp112644 '18 '#f '#f)) + (##unchecked-structure-set! __obj113556 __tmp113629 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113556 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113556 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112571 '() '20 '#f '#f)) - __obj112571)))) + (##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 6760309e5..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 1734131745) + (define gerbil/runtime/system::timestamp 1734357960) (begin - (define gerbil-version-string (lambda () '"v0.18.1-138-g625c45069")) + (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-value94626%_) - (if (list? _%new-value94626%_) - (let ((_%new-value94630%_ _%new-value94626%_)) - (__build-manifest-set! _%new-value94630%_)) + (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-value94626%_) + _%new-value95509%_) '#!void)))) (define __build-manifest-set! - (lambda (_%new-value94613%_) - (let ((_%new-value94617%_ _%new-value94613%_)) - (set! __build-manifest _%new-value94617%_)))) + (lambda (_%new-value95496%_) + (let ((_%new-value95500%_ _%new-value95496%_)) + (set! __build-manifest _%new-value95500%_)))) (define display-build-manifest__% - (lambda (_%manifest94573%_ _%port94574%_) - (if (list? _%manifest94573%_) - (let ((_%manifest94578%_ _%manifest94573%_)) - (if (port? _%port94574%_) - (let ((_%port94588%_ _%port94574%_)) + (lambda (_%manifest95456%_ _%port95457%_) + (if (list? _%manifest95456%_) + (let ((_%manifest95461%_ _%manifest95456%_)) + (if (port? _%port95457%_) + (let ((_%port95471%_ _%port95457%_)) (__display-build-manifest__% - _%manifest94578%_ - _%port94588%_)) + _%manifest95461%_ + _%port95471%_)) (begin (raise-contract-violation-error '"contract violation" @@ -44,7 +44,7 @@ 'contract: 'port? 'value: - _%port94574%_) + _%port95457%_) '#!void))) (begin (raise-contract-violation-error @@ -54,109 +54,109 @@ 'contract: 'list? 'value: - _%manifest94573%_) + _%manifest95456%_) '#!void)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest94602%_ __build-manifest) - (_%port94604%_ (current-output-port))) - (__display-build-manifest__% _%manifest94602%_ _%port94604%_)))) + (let* ((_%manifest95485%_ __build-manifest) + (_%port95487%_ (current-output-port))) + (__display-build-manifest__% _%manifest95485%_ _%port95487%_)))) (define display-build-manifest__1 - (lambda (_%manifest94606%_) - (let ((_%port94608%_ (current-output-port))) - (display-build-manifest__% _%manifest94606%_ _%port94608%_)))) + (lambda (_%manifest95489%_) + (let ((_%port95491%_ (current-output-port))) + (display-build-manifest__% _%manifest95489%_ _%port95491%_)))) (define display-build-manifest - (lambda _g94642_ - (let ((_g94641_ (let () (declare (not safe)) (##length _g94642_)))) - (cond ((let () (declare (not safe)) (##fx= _g94641_ 0)) - (apply display-build-manifest__0 _g94642_)) - ((let () (declare (not safe)) (##fx= _g94641_ 1)) - (apply display-build-manifest__1 _g94642_)) - ((let () (declare (not safe)) (##fx= _g94641_ 2)) - (apply display-build-manifest__% _g94642_)) + (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 - _g94642_)))))) + _g95525_)))))) (define __display-build-manifest__% - (lambda (_%manifest94495%_ _%port94496%_) - (let* ((_%manifest94499%_ _%manifest94495%_) - (_%port94507%_ _%port94496%_)) - (let ((_%p94520%_ - (lambda (_%g9451594517%_) - (display _%g9451594517%_ _%port94507%_))) - (_%l94521%_ - (let () (declare (not safe)) (##length _%manifest94499%_))) - (_%i94522%_ '0)) - (let ((__tmp94643 - (lambda (_%layer94524%_) - (if (zero? _%i94522%_) + (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 (= _%i94522%_ '1) - (_%p94520%_ '" on ") - (_%p94520%_ '", "))) - (let* ((_%layer9452894535%_ _%layer94524%_) - (_%E9453094539%_ + (if (= _%i95405%_ '1) + (_%p95403%_ '" on ") + (_%p95403%_ '", "))) + (let* ((_%layer9541195418%_ _%layer95407%_) + (_%E9541395422%_ (lambda () (error '"No clause matching" - _%layer9452894535%_ + _%layer9541195418%_ '([name . version])) '#!void)) - (_%K9453194545%_ - (lambda (_%version94542%_ _%name94543%_) - (_%p94520%_ _%name94543%_) - (_%p94520%_ '" ") - (_%p94520%_ _%version94542%_)))) - (if (pair? _%layer9452894535%_) - (let ((_%hd9453294548%_ + (_%K9541495428%_ + (lambda (_%version95425%_ _%name95426%_) + (_%p95403%_ _%name95426%_) + (_%p95403%_ '" ") + (_%p95403%_ _%version95425%_)))) + (if (pair? _%layer9541195418%_) + (let ((_%hd9541595431%_ (let () (declare (not safe)) - (##car _%layer9452894535%_))) - (_%tl9453394550%_ + (##car _%layer9541195418%_))) + (_%tl9541695433%_ (let () (declare (not safe)) - (##cdr _%layer9452894535%_)))) - (let* ((_%name94553%_ _%hd9453294548%_) - (_%version94555%_ _%tl9453394550%_)) - (_%K9453194545%_ - _%version94555%_ - _%name94553%_))) - (_%E9453094539%_))) - (set! _%i94522%_ (+ _%i94522%_ '1))))) + (##cdr _%layer9541195418%_)))) + (let* ((_%name95436%_ _%hd9541595431%_) + (_%version95438%_ _%tl9541695433%_)) + (_%K9541495428%_ + _%version95438%_ + _%name95436%_))) + (_%E9541395422%_))) + (set! _%i95405%_ (+ _%i95405%_ '1))))) (declare (not safe)) - (##for-each __tmp94643 _%manifest94499%_)))))) + (##for-each __tmp95526 _%manifest95382%_)))))) (define __display-build-manifest__0 (lambda () - (let* ((_%manifest94561%_ __build-manifest) - (_%port94563%_ (current-output-port))) - (__display-build-manifest__% _%manifest94561%_ _%port94563%_)))) + (let* ((_%manifest95444%_ __build-manifest) + (_%port95446%_ (current-output-port))) + (__display-build-manifest__% _%manifest95444%_ _%port95446%_)))) (define __display-build-manifest__1 - (lambda (_%manifest94565%_) - (let ((_%port94567%_ (current-output-port))) - (__display-build-manifest__% _%manifest94565%_ _%port94567%_)))) + (lambda (_%manifest95448%_) + (let ((_%port95450%_ (current-output-port))) + (__display-build-manifest__% _%manifest95448%_ _%port95450%_)))) (define __display-build-manifest - (lambda _g94645_ - (let ((_g94644_ (let () (declare (not safe)) (##length _g94645_)))) - (cond ((let () (declare (not safe)) (##fx= _g94644_ 0)) - (apply __display-build-manifest__0 _g94645_)) - ((let () (declare (not safe)) (##fx= _g94644_ 1)) - (apply __display-build-manifest__1 _g94645_)) - ((let () (declare (not safe)) (##fx= _g94644_ 2)) - (apply __display-build-manifest__% _g94645_)) + (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 - _g94645_)))))) + _g95528_)))))) (define build-manifest/layer - (lambda (_%layer94490%_) - (let ((_%l94492%_ (assoc _%layer94490%_ __build-manifest))) - (if _%l94492%_ (cons _%l94492%_ '()) '())))) + (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 (_%manifest94467%_) - (if (list? _%manifest94467%_) - (let ((_%manifest94471%_ _%manifest94467%_)) - (__build-manifest-string__% _%manifest94471%_)) + (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: - _%manifest94467%_) + _%manifest95350%_) '#!void)))) (define build-manifest-string__0 (lambda () - (let ((_%manifest94485%_ __build-manifest)) - (__build-manifest-string__% _%manifest94485%_)))) + (let ((_%manifest95368%_ __build-manifest)) + (__build-manifest-string__% _%manifest95368%_)))) (define build-manifest-string - (lambda _g94647_ - (let ((_g94646_ (let () (declare (not safe)) (##length _g94647_)))) - (cond ((let () (declare (not safe)) (##fx= _g94646_ 0)) - (apply build-manifest-string__0 _g94647_)) - ((let () (declare (not safe)) (##fx= _g94646_ 1)) - (apply build-manifest-string__% _g94647_)) + (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 - _g94647_)))))) + _g95530_)))))) (define __build-manifest-string__% - (lambda (_%manifest94444%_) - (let ((_%manifest94447%_ _%manifest94444%_)) + (lambda (_%manifest95327%_) + (let ((_%manifest95330%_ _%manifest95327%_)) (call-with-output-string '() - (lambda (_%p94456%_) - (display-build-manifest__% _%manifest94447%_ _%p94456%_)))))) + (lambda (_%p95339%_) + (display-build-manifest__% _%manifest95330%_ _%p95339%_)))))) (define __build-manifest-string__0 (lambda () - (let ((_%manifest94462%_ __build-manifest)) - (__build-manifest-string__% _%manifest94462%_)))) + (let ((_%manifest95345%_ __build-manifest)) + (__build-manifest-string__% _%manifest95345%_)))) (define __build-manifest-string - (lambda _g94649_ - (let ((_g94648_ (let () (declare (not safe)) (##length _g94649_)))) - (cond ((let () (declare (not safe)) (##fx= _g94648_ 0)) - (apply __build-manifest-string__0 _g94649_)) - ((let () (declare (not safe)) (##fx= _g94648_ 1)) - (apply __build-manifest-string__% _g94649_)) + (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 - _g94649_)))))) + _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-value94426%_) - (if (string? _%new-value94426%_) - (let ((_%new-value94430%_ _%new-value94426%_)) - (__gerbil-greeting-set! _%new-value94430%_)) + (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-value94426%_) + _%new-value95309%_) '#!void)))) (define __gerbil-greeting-set! - (lambda (_%new-value94412%_) - (let ((_%new-value94416%_ _%new-value94412%_)) - (set! __gerbil-greeting _%new-value94416%_)))) + (lambda (_%new-value95295%_) + (let ((_%new-value95299%_ _%new-value95295%_)) + (set! __gerbil-greeting _%new-value95299%_)))) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e94408%_ + (let ((_%$e95291%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e94408%_ _%$e94408%_ (path-expand '"~~"))))) + (if _%$e95291%_ _%$e95291%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e94404%_ + (let ((_%$e95287%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e94404%_ _%$e94404%_ (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 ((__tmp94650 - (let ((__tmp94651 (configure-command-string))) + (if (let ((__tmp95533 + (let ((__tmp95534 (configure-command-string))) (declare (not safe)) - (__string-split __tmp94651 '#\')))) + (__string-split __tmp95534 '#\')))) (declare (not safe)) - (##member '"--enable-smp" __tmp94650)) + (##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 4b1ceeb38..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 1734131745) + (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 (_%tab94096%_) + (lambda (_%tab94979%_) (##unchecked-structure-ref - _%tab94096%_ + _%tab94979%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab94094%_) + (lambda (_%tab94977%_) (##unchecked-structure-ref - _%tab94094%_ + _%tab94977%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab94092%_) + (lambda (_%tab94975%_) (##unchecked-structure-ref - _%tab94092%_ + _%tab94975%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab94090%_) + (lambda (_%tab94973%_) (##unchecked-structure-ref - _%tab94090%_ + _%tab94973%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab94088%_) + (lambda (_%tab94971%_) (##unchecked-structure-ref - _%tab94088%_ + _%tab94971%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab94086%_) + (lambda (_%tab94969%_) (##unchecked-structure-ref - _%tab94086%_ + _%tab94969%_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_%tab94083%_ _%val94084%_) + (lambda (_%tab94966%_ _%val94967%_) (##unchecked-structure-set! - _%tab94083%_ - _%val94084%_ + _%tab94966%_ + _%val94967%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab94080%_ _%val94081%_) + (lambda (_%tab94963%_ _%val94964%_) (##unchecked-structure-set! - _%tab94080%_ - _%val94081%_ + _%tab94963%_ + _%val94964%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab94077%_ _%val94078%_) + (lambda (_%tab94960%_ _%val94961%_) (##unchecked-structure-set! - _%tab94077%_ - _%val94078%_ + _%tab94960%_ + _%val94961%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab94074%_ _%val94075%_) + (lambda (_%tab94957%_ _%val94958%_) (##unchecked-structure-set! - _%tab94074%_ - _%val94075%_ + _%tab94957%_ + _%val94958%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab94071%_ _%val94072%_) + (lambda (_%tab94954%_ _%val94955%_) (##unchecked-structure-set! - _%tab94071%_ - _%val94072%_ + _%tab94954%_ + _%val94955%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab94068%_ _%val94069%_) + (lambda (_%tab94951%_ _%val94952%_) (##unchecked-structure-set! - _%tab94068%_ - _%val94069%_ + _%tab94951%_ + _%val94952%_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint94066%_) - (if (and (fixnum? _%size-hint94066%_) (##fx> _%size-hint94066%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint94066%_))) '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-hint94042%_ _%hash94043%_ _%test94044%_ _%seed94045%_) - (let* ((_%size94047%_ (raw-table-size-hint->size _%size-hint94042%_)) - (_%table94049%_ - (##make-vector _%size94047%_ (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 - _%table94049%_ + _%table94932%_ '0 - (##fxquotient _%size94047%_ '2) - _%hash94043%_ - _%test94044%_ - _%seed94045%_)))) + (##fxquotient _%size94930%_ '2) + _%hash94926%_ + _%test94927%_ + _%seed94928%_)))) (define make-raw-table__0 - (lambda (_%size-hint94055%_ _%hash94056%_ _%test94057%_) - (let ((_%seed94059%_ '0)) + (lambda (_%size-hint94938%_ _%hash94939%_ _%test94940%_) + (let ((_%seed94942%_ '0)) (make-raw-table__% - _%size-hint94055%_ - _%hash94056%_ - _%test94057%_ - _%seed94059%_)))) + _%size-hint94938%_ + _%hash94939%_ + _%test94940%_ + _%seed94942%_)))) (define make-raw-table - (lambda _g94098_ - (let ((_g94097_ (##length _g94098_))) - (cond ((##fx= _g94097_ 3) (apply make-raw-table__0 _g94098_)) - ((##fx= _g94097_ 4) (apply make-raw-table__% _g94098_)) + (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 - _g94098_)))))) + _g94981_)))))) (define raw-table-ref - (lambda (_%tab93993%_ _%key93994%_ _%default93995%_) - (let ((_%table93997%_ (&raw-table-table _%tab93993%_)) - (_%seed93998%_ (&raw-table-seed _%tab93993%_)) - (_%hash93999%_ (&raw-table-hash _%tab93993%_)) - (_%test94000%_ (&raw-table-test _%tab93993%_))) - (let* ((_%h94002%_ - (fxxor (_%hash93999%_ _%key93994%_) _%seed93998%_)) - (_%size94005%_ (vector-length _%table93997%_)) - (_%entries94008%_ (##fxquotient _%size94005%_ '2)) - (_%start94011%_ + (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 _%h94002%_ _%entries94008%_) + (##fxmodulo _%h94885%_ _%entries94891%_) '1))) - (let _%loop94015%_ ((_%probe94018%_ _%start94011%_) - (_%i94020%_ '1) - (_%deleted94022%_ '#f)) - (let ((_%k94025%_ (vector-ref _%table93997%_ _%probe94018%_))) - (if (eq? _%k94025%_ (macro-unused-obj)) - _%default93995%_ - (if (eq? _%k94025%_ (macro-deleted-obj)) - (_%loop94015%_ - (let ((_%next-probe94030%_ - (fx+ _%start94011%_ - _%i94020%_ - (fx* _%i94020%_ _%i94020%_)))) - (##fxmodulo _%next-probe94030%_ _%size94005%_)) - (##fx+ _%i94020%_ '1) - (let ((_%$e94033%_ _%deleted94022%_)) - (if _%$e94033%_ _%$e94033%_ _%probe94018%_))) - (if (_%test94000%_ _%key93994%_ _%k94025%_) + (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 - _%table93997%_ - (##fx+ _%probe94018%_ '1)) - (_%loop94015%_ - (let ((_%next-probe94038%_ - (fx+ _%start94011%_ - _%i94020%_ - (fx* _%i94020%_ _%i94020%_)))) - (##fxmodulo _%next-probe94038%_ _%size94005%_)) - (##fx+ _%i94020%_ '1) - _%deleted94022%_)))))))))) + _%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 (_%tab93989%_ _%key93990%_ _%value93991%_) - (if (##fx< (&raw-table-free _%tab93989%_) + (lambda (_%tab94872%_ _%key94873%_ _%value94874%_) + (if (##fx< (&raw-table-free _%tab94872%_) (##fxquotient - (vector-length (&raw-table-table _%tab93989%_)) + (vector-length (&raw-table-table _%tab94872%_)) '4)) - (__raw-table-rehash! _%tab93989%_) + (__raw-table-rehash! _%tab94872%_) '#!void) - (__raw-table-set! _%tab93989%_ _%key93990%_ _%value93991%_))) + (__raw-table-set! _%tab94872%_ _%key94873%_ _%value94874%_))) (define raw-table-update! - (lambda (_%tab93984%_ _%key93985%_ _%update93986%_ _%default93987%_) - (if (##fx< (&raw-table-free _%tab93984%_) + (lambda (_%tab94867%_ _%key94868%_ _%update94869%_ _%default94870%_) + (if (##fx< (&raw-table-free _%tab94867%_) (##fxquotient - (vector-length (&raw-table-table _%tab93984%_)) + (vector-length (&raw-table-table _%tab94867%_)) '4)) - (__raw-table-rehash! _%tab93984%_) + (__raw-table-rehash! _%tab94867%_) '#!void) (__raw-table-update! - _%tab93984%_ - _%key93985%_ - _%update93986%_ - _%default93987%_))) + _%tab94867%_ + _%key94868%_ + _%update94869%_ + _%default94870%_))) (define raw-table-delete! - (lambda (_%tab93941%_ _%key93942%_) - (let ((_%table93944%_ (&raw-table-table _%tab93941%_)) - (_%seed93945%_ (&raw-table-seed _%tab93941%_)) - (_%hash93946%_ (&raw-table-hash _%tab93941%_)) - (_%test93947%_ (&raw-table-test _%tab93941%_))) - (let* ((_%h93949%_ - (fxxor (_%hash93946%_ _%key93942%_) _%seed93945%_)) - (_%size93952%_ (vector-length _%table93944%_)) - (_%entries93955%_ (##fxquotient _%size93952%_ '2)) - (_%start93958%_ + (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 _%h93949%_ _%entries93955%_) + (##fxmodulo _%h94832%_ _%entries94838%_) '1))) - (let _%loop93962%_ ((_%probe93965%_ _%start93958%_) - (_%i93967%_ '1)) - (let ((_%k93970%_ (vector-ref _%table93944%_ _%probe93965%_))) - (if (eq? _%k93970%_ (macro-unused-obj)) + (let _%loop94845%_ ((_%probe94848%_ _%start94841%_) + (_%i94850%_ '1)) + (let ((_%k94853%_ (vector-ref _%table94827%_ _%probe94848%_))) + (if (eq? _%k94853%_ (macro-unused-obj)) '#!void - (if (eq? _%k93970%_ (macro-deleted-obj)) - (_%loop93962%_ - (let ((_%next-probe93975%_ - (fx+ _%start93958%_ - _%i93967%_ - (fx* _%i93967%_ _%i93967%_)))) - (##fxmodulo _%next-probe93975%_ _%size93952%_)) - (##fx+ _%i93967%_ '1)) - (if (_%test93947%_ _%key93942%_ _%k93970%_) + (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! - _%table93944%_ - _%probe93965%_ + _%table94827%_ + _%probe94848%_ (macro-deleted-obj)) (vector-set! - _%table93944%_ - (##fx+ _%probe93965%_ '1) + _%table94827%_ + (##fx+ _%probe94848%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93941%_ - (##fx- (&raw-table-count _%tab93941%_) + _%tab94824%_ + (##fx- (&raw-table-count _%tab94824%_) '1))))) - (_%loop93962%_ - (let ((_%next-probe93981%_ - (fx+ _%start93958%_ - _%i93967%_ - (fx* _%i93967%_ _%i93967%_)))) - (##fxmodulo _%next-probe93981%_ _%size93952%_)) - (##fx+ _%i93967%_ '1))))))))))) + (_%loop94845%_ + (let ((_%next-probe94864%_ + (fx+ _%start94841%_ + _%i94850%_ + (fx* _%i94850%_ _%i94850%_)))) + (##fxmodulo _%next-probe94864%_ _%size94835%_)) + (##fx+ _%i94850%_ '1))))))))))) (define raw-table-for-each - (lambda (_%tab93925%_ _%proc93926%_) - (let* ((_%table93928%_ (&raw-table-table _%tab93925%_)) - (_%size93930%_ (vector-length _%table93928%_))) - (let _%loop93933%_ ((_%i93935%_ '0)) - (if (##fx< _%i93935%_ _%size93930%_) + (lambda (_%tab94808%_ _%proc94809%_) + (let* ((_%table94811%_ (&raw-table-table _%tab94808%_)) + (_%size94813%_ (vector-length _%table94811%_))) + (let _%loop94816%_ ((_%i94818%_ '0)) + (if (##fx< _%i94818%_ _%size94813%_) (begin - (let ((_%key93937%_ (vector-ref _%table93928%_ _%i93935%_))) - (if (if (eq? _%key93937%_ (macro-unused-obj)) + (let ((_%key94820%_ (vector-ref _%table94811%_ _%i94818%_))) + (if (if (eq? _%key94820%_ (macro-unused-obj)) '#f - (not (eq? _%key93937%_ (macro-deleted-obj)))) - (let ((_%value93939%_ + (not (eq? _%key94820%_ (macro-deleted-obj)))) + (let ((_%value94822%_ (vector-ref - _%table93928%_ - (##fx+ _%i93935%_ '1)))) - (_%proc93926%_ _%key93937%_ _%value93939%_)) + _%table94811%_ + (##fx+ _%i94818%_ '1)))) + (_%proc94809%_ _%key94820%_ _%value94822%_)) '#!void)) - (_%loop93933%_ (##fx+ _%i93935%_ '2))) + (_%loop94816%_ (##fx+ _%i94818%_ '2))) '#!void))))) (define raw-table-copy - (lambda (_%tab93921%_) - (let ((_%new-tab93923%_ (##structure-copy _%tab93921%_))) + (lambda (_%tab94804%_) + (let ((_%new-tab94806%_ (##structure-copy _%tab94804%_))) (&raw-table-table-set! - _%new-tab93923%_ - (vector-copy (&raw-table-table _%tab93921%_))) - _%new-tab93923%_))) + _%new-tab94806%_ + (vector-copy (&raw-table-table _%tab94804%_))) + _%new-tab94806%_))) (define raw-table-clear! - (lambda (_%tab93919%_) - (vector-fill! (&raw-table-table _%tab93919%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab93919%_ '0) + (lambda (_%tab94802%_) + (vector-fill! (&raw-table-table _%tab94802%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab94802%_ '0) (&raw-table-free-set! - _%tab93919%_ - (##fxquotient (vector-length (&raw-table-table _%tab93919%_)) '2)))) + _%tab94802%_ + (##fxquotient (vector-length (&raw-table-table _%tab94802%_)) '2)))) (define __raw-table-set! - (lambda (_%tab93869%_ _%key93870%_ _%value93871%_) - (let ((_%table93873%_ (&raw-table-table _%tab93869%_)) - (_%seed93874%_ (&raw-table-seed _%tab93869%_)) - (_%hash93875%_ (&raw-table-hash _%tab93869%_)) - (_%test93876%_ (&raw-table-test _%tab93869%_))) - (let* ((_%h93878%_ - (fxxor (_%hash93875%_ _%key93870%_) _%seed93874%_)) - (_%size93881%_ (vector-length _%table93873%_)) - (_%entries93884%_ (##fxquotient _%size93881%_ '2)) - (_%start93887%_ + (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 _%h93878%_ _%entries93884%_) + (##fxmodulo _%h94761%_ _%entries94767%_) '1))) - (let _%loop93891%_ ((_%probe93894%_ _%start93887%_) - (_%i93896%_ '1) - (_%deleted93898%_ '#f)) - (let ((_%k93901%_ (vector-ref _%table93873%_ _%probe93894%_))) - (if (eq? _%k93901%_ (macro-unused-obj)) - (if _%deleted93898%_ + (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! - _%table93873%_ - _%deleted93898%_ - _%key93870%_) + _%table94756%_ + _%deleted94781%_ + _%key94753%_) (vector-set! - _%table93873%_ - (##fx+ _%deleted93898%_ '1) - _%value93871%_) + _%table94756%_ + (##fx+ _%deleted94781%_ '1) + _%value94754%_) ((lambda () (&raw-table-count-set! - _%tab93869%_ - (##fx+ (&raw-table-count _%tab93869%_) '1))))) + _%tab94752%_ + (##fx+ (&raw-table-count _%tab94752%_) '1))))) (begin (vector-set! - _%table93873%_ - _%probe93894%_ - _%key93870%_) + _%table94756%_ + _%probe94777%_ + _%key94753%_) (vector-set! - _%table93873%_ - (##fx+ _%probe93894%_ '1) - _%value93871%_) + _%table94756%_ + (##fx+ _%probe94777%_ '1) + _%value94754%_) ((lambda () (&raw-table-free-set! - _%tab93869%_ - (##fx- (&raw-table-free _%tab93869%_) '1)) + _%tab94752%_ + (##fx- (&raw-table-free _%tab94752%_) '1)) (&raw-table-count-set! - _%tab93869%_ - (##fx+ (&raw-table-count _%tab93869%_) '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 (_%test93876%_ _%key93870%_ _%k93901%_) + _%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! - _%table93873%_ - _%probe93894%_ - _%key93870%_) + _%table94756%_ + _%probe94777%_ + _%key94753%_) (vector-set! - _%table93873%_ - (##fx+ _%probe93894%_ '1) - _%value93871%_)) - (_%loop93891%_ - (let ((_%next-probe93916%_ - (fx+ _%start93887%_ - _%i93896%_ - (fx* _%i93896%_ _%i93896%_)))) - (##fxmodulo _%next-probe93916%_ _%size93881%_)) - (##fx+ _%i93896%_ '1) - _%deleted93898%_)))))))))) + _%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 (_%tab93818%_ _%key93819%_ _%update93820%_ _%default93821%_) - (let ((_%table93823%_ (&raw-table-table _%tab93818%_)) - (_%seed93824%_ (&raw-table-seed _%tab93818%_)) - (_%hash93825%_ (&raw-table-hash _%tab93818%_)) - (_%test93826%_ (&raw-table-test _%tab93818%_))) - (let* ((_%h93828%_ - (fxxor (_%hash93825%_ _%key93819%_) _%seed93824%_)) - (_%size93831%_ (vector-length _%table93823%_)) - (_%entries93834%_ (##fxquotient _%size93831%_ '2)) - (_%start93837%_ + (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 _%h93828%_ _%entries93834%_) + (##fxmodulo _%h94711%_ _%entries94717%_) '1))) - (let _%loop93841%_ ((_%probe93844%_ _%start93837%_) - (_%i93846%_ '1) - (_%deleted93848%_ '#f)) - (let ((_%k93851%_ (vector-ref _%table93823%_ _%probe93844%_))) - (if (eq? _%k93851%_ (macro-unused-obj)) - (if _%deleted93848%_ + (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! - _%table93823%_ - _%deleted93848%_ - _%key93819%_) + _%table94706%_ + _%deleted94731%_ + _%key94702%_) (vector-set! - _%table93823%_ - (##fx+ _%deleted93848%_ '1) - (_%update93820%_ _%default93821%_)) + _%table94706%_ + (##fx+ _%deleted94731%_ '1) + (_%update94703%_ _%default94704%_)) ((lambda () (&raw-table-count-set! - _%tab93818%_ - (##fx+ (&raw-table-count _%tab93818%_) '1))))) + _%tab94701%_ + (##fx+ (&raw-table-count _%tab94701%_) '1))))) (begin (vector-set! - _%table93823%_ - _%probe93844%_ - _%key93819%_) + _%table94706%_ + _%probe94727%_ + _%key94702%_) (vector-set! - _%table93823%_ - (##fx+ _%probe93844%_ '1) - (_%update93820%_ _%default93821%_)) + _%table94706%_ + (##fx+ _%probe94727%_ '1) + (_%update94703%_ _%default94704%_)) ((lambda () (&raw-table-free-set! - _%tab93818%_ - (##fx- (&raw-table-free _%tab93818%_) '1)) + _%tab94701%_ + (##fx- (&raw-table-free _%tab94701%_) '1)) (&raw-table-count-set! - _%tab93818%_ - (##fx+ (&raw-table-count _%tab93818%_) '1)))))) - (if (eq? _%k93851%_ (macro-deleted-obj)) - (_%loop93841%_ - (let ((_%next-probe93858%_ - (fx+ _%start93837%_ - _%i93846%_ - (fx* _%i93846%_ _%i93846%_)))) - (##fxmodulo _%next-probe93858%_ _%size93831%_)) - (##fx+ _%i93846%_ '1) - (let ((_%$e93861%_ _%deleted93848%_)) - (if _%$e93861%_ _%$e93861%_ _%probe93844%_))) - (if (_%test93826%_ _%key93819%_ _%k93851%_) + _%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! - _%table93823%_ - _%probe93844%_ - _%key93819%_) + _%table94706%_ + _%probe94727%_ + _%key94702%_) (vector-set! - _%table93823%_ - (##fx+ _%probe93844%_ '1) - (_%update93820%_ + _%table94706%_ + (##fx+ _%probe94727%_ '1) + (_%update94703%_ (vector-ref - _%table93823%_ - (##fx+ _%probe93844%_ '1))))) - (_%loop93841%_ - (let ((_%next-probe93866%_ - (fx+ _%start93837%_ - _%i93846%_ - (fx* _%i93846%_ _%i93846%_)))) - (##fxmodulo _%next-probe93866%_ _%size93831%_)) - (##fx+ _%i93846%_ '1) - _%deleted93848%_)))))))))) + _%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 (_%tab93799%_) - (let* ((_%old-table93801%_ (&raw-table-table _%tab93799%_)) - (_%old-size93803%_ (vector-length _%old-table93801%_)) - (_%new-size93805%_ - (if (##fx< (&raw-table-count _%tab93799%_) - (##fxquotient _%old-size93803%_ '4)) - (vector-length _%old-table93801%_) - (##fx* '2 (vector-length _%old-table93801%_)))) - (_%new-table93807%_ - (##make-vector _%new-size93805%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab93799%_ _%new-table93807%_) - (&raw-table-count-set! _%tab93799%_ '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! - _%tab93799%_ - (##fxquotient _%new-size93805%_ '2)) - (let _%lp93810%_ ((_%i93812%_ '0)) - (if (##fx< _%i93812%_ _%old-size93803%_) + _%tab94682%_ + (##fxquotient _%new-size94688%_ '2)) + (let _%lp94693%_ ((_%i94695%_ '0)) + (if (##fx< _%i94695%_ _%old-size94686%_) (begin - (let ((_%key93814%_ - (vector-ref _%old-table93801%_ _%i93812%_))) - (if (if (eq? _%key93814%_ (macro-unused-obj)) + (let ((_%key94697%_ + (vector-ref _%old-table94684%_ _%i94695%_))) + (if (if (eq? _%key94697%_ (macro-unused-obj)) '#f - (not (eq? _%key93814%_ (macro-deleted-obj)))) - (let ((_%value93816%_ + (not (eq? _%key94697%_ (macro-deleted-obj)))) + (let ((_%value94699%_ (vector-ref - _%old-table93801%_ - (##fx+ _%i93812%_ '1)))) + _%old-table94684%_ + (##fx+ _%i94695%_ '1)))) (__raw-table-set! - _%tab93799%_ - _%key93814%_ - _%value93816%_)) + _%tab94682%_ + _%key94697%_ + _%value94699%_)) '#!void)) - (_%lp93810%_ (##fx+ _%i93812%_ '2))) + (_%lp94693%_ (##fx+ _%i94695%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj93791%_) - (let ((_%t93793%_ (##type _%obj93791%_))) - (if (##fx= (##fxand _%t93793%_ '1) '0) - (fxand (##type-cast _%obj93791%_ (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? _%obj93791%_) - (symbolic-hash _%obj93791%_) - (if (procedure? _%obj93791%_) - (procedure-hash _%obj93791%_) - (fxand (__eq-hash _%obj93791%_) + (if (symbolic? _%obj94674%_) + (symbolic-hash _%obj94674%_) + (if (procedure? _%obj94674%_) + (procedure-hash _%obj94674%_) + (fxand (__eq-hash _%obj94674%_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj93787%_) - (let ((_%h93789%_ - (if (##closure? _%obj93787%_) - (__eq-hash _%obj93787%_) - (##type-cast _%obj93787%_ '0)))) - (fxand _%h93789%_ (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 (_%obj93784%_) + (lambda (_%obj94667%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj93784%_))) + (__object->eq-hash _%obj94667%_))) (define eqv-hash - (lambda (_%obj93774%_) - (letrec ((_%combine93776%_ - (lambda (_%a93781%_ _%b93782%_) - (fxand (##fx* (##fx+ _%a93781%_ + (lambda (_%obj94657%_) + (letrec ((_%combine94659%_ + (lambda (_%a94664%_ _%b94665%_) + (fxand (##fx* (##fx+ _%a94664%_ (fxarithmetic-shift-left - _%b93782%_ + _%b94665%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash93777%_ - (lambda (_%obj93779%_) + (_%hash94660%_ + (lambda (_%obj94662%_) (macro-number-dispatch - _%obj93779%_ - (eq-hash _%obj93779%_) - (fxand _%obj93779%_ (macro-max-fixnum32)) - (modulo _%obj93779%_ '331804481) - (_%combine93776%_ - (_%hash93777%_ (macro-ratnum-numerator _%obj93779%_)) - (_%hash93777%_ (macro-ratnum-denominator _%obj93779%_))) - (_%combine93776%_ - (##u16vector-ref _%obj93779%_ '0) - (_%combine93776%_ - (##u16vector-ref _%obj93779%_ '1) - (_%combine93776%_ - (##u16vector-ref _%obj93779%_ '2) - (##u16vector-ref _%obj93779%_ '3)))) - (_%combine93776%_ - (_%hash93777%_ (macro-cpxnum-real _%obj93779%_)) - (_%hash93777%_ (macro-cpxnum-imag _%obj93779%_))))))) - (_%hash93777%_ _%obj93774%_)))) + _%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 (_%obj93769%_) - (let ((_%$e93771%_ (symbol? _%obj93769%_))) - (if _%$e93771%_ _%$e93771%_ (keyword? _%obj93769%_))))) - (define symbolic-hash (lambda (_%obj93767%_) (macro-slot '1 _%obj93767%_))) - (define string-hash (lambda (_%obj93765%_) (##string=?-hash _%obj93765%_))) + (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 (_%obj93763%_) (##type-cast _%obj93763%_ (macro-type-fixnum)))) + (lambda (_%obj94646%_) (##type-cast _%obj94646%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint93744%_ _%seed93746%_) - (make-raw-table__% _%size-hint93744%_ eq-hash eq? _%seed93746%_))) + (lambda (_%size-hint94627%_ _%seed94629%_) + (make-raw-table__% _%size-hint94627%_ eq-hash eq? _%seed94629%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint93752%_ '#f) (_%seed93754%_ '0)) - (make-eq-table__% _%size-hint93752%_ _%seed93754%_)))) + (let* ((_%size-hint94635%_ '#f) (_%seed94637%_ '0)) + (make-eq-table__% _%size-hint94635%_ _%seed94637%_)))) (define make-eq-table__1 - (lambda (_%size-hint93756%_) - (let ((_%seed93758%_ '0)) - (make-eq-table__% _%size-hint93756%_ _%seed93758%_)))) + (lambda (_%size-hint94639%_) + (let ((_%seed94641%_ '0)) + (make-eq-table__% _%size-hint94639%_ _%seed94641%_)))) (define make-eq-table - (lambda _g94100_ - (let ((_g94099_ (##length _g94100_))) - (cond ((##fx= _g94099_ 0) (apply make-eq-table__0 _g94100_)) - ((##fx= _g94099_ 1) (apply make-eq-table__1 _g94100_)) - ((##fx= _g94099_ 2) (apply make-eq-table__% _g94100_)) + (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 - _g94100_)))))) + _g94983_)))))) (define eq-table-ref - (lambda (_%tab93697%_ _%key93698%_ _%default93699%_) - (let ((_%table93701%_ (&raw-table-table _%tab93697%_)) - (_%seed93702%_ (&raw-table-seed _%tab93697%_))) - (let* ((_%h93704%_ (fxxor (eq-hash _%key93698%_) _%seed93702%_)) - (_%size93707%_ (vector-length _%table93701%_)) - (_%entries93710%_ (##fxquotient _%size93707%_ '2)) - (_%start93713%_ + (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 _%h93704%_ _%entries93710%_) + (##fxmodulo _%h94587%_ _%entries94593%_) '1))) - (let _%loop93717%_ ((_%probe93720%_ _%start93713%_) - (_%i93722%_ '1) - (_%deleted93724%_ '#f)) - (let ((_%k93727%_ (vector-ref _%table93701%_ _%probe93720%_))) - (if (eq? _%k93727%_ (macro-unused-obj)) - _%default93699%_ - (if (eq? _%k93727%_ (macro-deleted-obj)) - (_%loop93717%_ - (let ((_%next-probe93732%_ - (fx+ _%start93713%_ - _%i93722%_ - (fx* _%i93722%_ _%i93722%_)))) - (##fxmodulo _%next-probe93732%_ _%size93707%_)) - (##fx+ _%i93722%_ '1) - (let ((_%$e93735%_ _%deleted93724%_)) - (if _%$e93735%_ _%$e93735%_ _%probe93720%_))) - (if (eq? _%key93698%_ _%k93727%_) + (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 - _%table93701%_ - (##fx+ _%probe93720%_ '1)) - (_%loop93717%_ - (let ((_%next-probe93740%_ - (fx+ _%start93713%_ - _%i93722%_ - (fx* _%i93722%_ _%i93722%_)))) - (##fxmodulo _%next-probe93740%_ _%size93707%_)) - (##fx+ _%i93722%_ '1) - _%deleted93724%_)))))))))) + _%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 (_%tab93693%_ _%key93694%_ _%value93695%_) - (if (##fx< (&raw-table-free _%tab93693%_) + (lambda (_%tab94576%_ _%key94577%_ _%value94578%_) + (if (##fx< (&raw-table-free _%tab94576%_) (##fxquotient - (vector-length (&raw-table-table _%tab93693%_)) + (vector-length (&raw-table-table _%tab94576%_)) '4)) - (__raw-table-rehash! _%tab93693%_) + (__raw-table-rehash! _%tab94576%_) '#!void) - (__eq-table-set! _%tab93693%_ _%key93694%_ _%value93695%_))) + (__eq-table-set! _%tab94576%_ _%key94577%_ _%value94578%_))) (define __eq-table-set! - (lambda (_%tab93644%_ _%key93645%_ _%value93646%_) - (let ((_%table93649%_ (&raw-table-table _%tab93644%_)) - (_%seed93650%_ (&raw-table-seed _%tab93644%_))) - (let* ((_%h93652%_ (fxxor (eq-hash _%key93645%_) _%seed93650%_)) - (_%size93655%_ (vector-length _%table93649%_)) - (_%entries93658%_ (##fxquotient _%size93655%_ '2)) - (_%start93661%_ + (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 _%h93652%_ _%entries93658%_) + (##fxmodulo _%h94535%_ _%entries94541%_) '1))) - (let _%loop93665%_ ((_%probe93668%_ _%start93661%_) - (_%i93670%_ '1) - (_%deleted93672%_ '#f)) - (let ((_%k93675%_ (vector-ref _%table93649%_ _%probe93668%_))) - (if (eq? _%k93675%_ (macro-unused-obj)) - (if _%deleted93672%_ + (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! - _%table93649%_ - _%deleted93672%_ - _%key93645%_) + _%table94532%_ + _%deleted94555%_ + _%key94528%_) (vector-set! - _%table93649%_ - (##fx+ _%deleted93672%_ '1) - _%value93646%_) + _%table94532%_ + (##fx+ _%deleted94555%_ '1) + _%value94529%_) ((lambda () (&raw-table-count-set! - _%tab93644%_ - (##fx+ (&raw-table-count _%tab93644%_) '1))))) + _%tab94527%_ + (##fx+ (&raw-table-count _%tab94527%_) '1))))) (begin (vector-set! - _%table93649%_ - _%probe93668%_ - _%key93645%_) + _%table94532%_ + _%probe94551%_ + _%key94528%_) (vector-set! - _%table93649%_ - (##fx+ _%probe93668%_ '1) - _%value93646%_) + _%table94532%_ + (##fx+ _%probe94551%_ '1) + _%value94529%_) ((lambda () (&raw-table-free-set! - _%tab93644%_ - (##fx- (&raw-table-free _%tab93644%_) '1)) + _%tab94527%_ + (##fx- (&raw-table-free _%tab94527%_) '1)) (&raw-table-count-set! - _%tab93644%_ - (##fx+ (&raw-table-count _%tab93644%_) '1)))))) - (if (eq? _%k93675%_ (macro-deleted-obj)) - (_%loop93665%_ - (let ((_%next-probe93682%_ - (fx+ _%start93661%_ - _%i93670%_ - (fx* _%i93670%_ _%i93670%_)))) - (##fxmodulo _%next-probe93682%_ _%size93655%_)) - (##fx+ _%i93670%_ '1) - (let ((_%$e93685%_ _%deleted93672%_)) - (if _%$e93685%_ _%$e93685%_ _%probe93668%_))) - (if (eq? _%key93645%_ _%k93675%_) + _%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! - _%table93649%_ - _%probe93668%_ - _%key93645%_) + _%table94532%_ + _%probe94551%_ + _%key94528%_) (vector-set! - _%table93649%_ - (##fx+ _%probe93668%_ '1) - _%value93646%_)) - (_%loop93665%_ - (let ((_%next-probe93690%_ - (fx+ _%start93661%_ - _%i93670%_ - (fx* _%i93670%_ _%i93670%_)))) - (##fxmodulo _%next-probe93690%_ _%size93655%_)) - (##fx+ _%i93670%_ '1) - _%deleted93672%_)))))))))) + _%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 (_%tab93639%_ - _%key93640%_ - _%eq-table-update!93641%_ - _%default93642%_) - (if (##fx< (&raw-table-free _%tab93639%_) + (lambda (_%tab94522%_ + _%key94523%_ + _%eq-table-update!94524%_ + _%default94525%_) + (if (##fx< (&raw-table-free _%tab94522%_) (##fxquotient - (vector-length (&raw-table-table _%tab93639%_)) + (vector-length (&raw-table-table _%tab94522%_)) '4)) - (__raw-table-rehash! _%tab93639%_) + (__raw-table-rehash! _%tab94522%_) '#!void) (__eq-table-update! - _%tab93639%_ - _%key93640%_ - _%eq-table-update!93641%_ - _%default93642%_))) + _%tab94522%_ + _%key94523%_ + _%eq-table-update!94524%_ + _%default94525%_))) (define __eq-table-update! - (lambda (_%tab93589%_ - _%key93590%_ - _%eq-table-update!93591%_ - _%default93592%_) - (let ((_%table93595%_ (&raw-table-table _%tab93589%_)) - (_%seed93596%_ (&raw-table-seed _%tab93589%_))) - (let* ((_%h93598%_ (fxxor (eq-hash _%key93590%_) _%seed93596%_)) - (_%size93601%_ (vector-length _%table93595%_)) - (_%entries93604%_ (##fxquotient _%size93601%_ '2)) - (_%start93607%_ + (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 _%h93598%_ _%entries93604%_) + (##fxmodulo _%h94481%_ _%entries94487%_) '1))) - (let _%loop93611%_ ((_%probe93614%_ _%start93607%_) - (_%i93616%_ '1) - (_%deleted93618%_ '#f)) - (let ((_%k93621%_ (vector-ref _%table93595%_ _%probe93614%_))) - (if (eq? _%k93621%_ (macro-unused-obj)) - (if _%deleted93618%_ + (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! - _%table93595%_ - _%deleted93618%_ - _%key93590%_) + _%table94478%_ + _%deleted94501%_ + _%key94473%_) (vector-set! - _%table93595%_ - (##fx+ _%deleted93618%_ '1) - (_%eq-table-update!93591%_ _%default93592%_)) + _%table94478%_ + (##fx+ _%deleted94501%_ '1) + (_%eq-table-update!94474%_ _%default94475%_)) ((lambda () (&raw-table-count-set! - _%tab93589%_ - (##fx+ (&raw-table-count _%tab93589%_) '1))))) + _%tab94472%_ + (##fx+ (&raw-table-count _%tab94472%_) '1))))) (begin (vector-set! - _%table93595%_ - _%probe93614%_ - _%key93590%_) + _%table94478%_ + _%probe94497%_ + _%key94473%_) (vector-set! - _%table93595%_ - (##fx+ _%probe93614%_ '1) - (_%eq-table-update!93591%_ _%default93592%_)) + _%table94478%_ + (##fx+ _%probe94497%_ '1) + (_%eq-table-update!94474%_ _%default94475%_)) ((lambda () (&raw-table-free-set! - _%tab93589%_ - (##fx- (&raw-table-free _%tab93589%_) '1)) + _%tab94472%_ + (##fx- (&raw-table-free _%tab94472%_) '1)) (&raw-table-count-set! - _%tab93589%_ - (##fx+ (&raw-table-count _%tab93589%_) '1)))))) - (if (eq? _%k93621%_ (macro-deleted-obj)) - (_%loop93611%_ - (let ((_%next-probe93628%_ - (fx+ _%start93607%_ - _%i93616%_ - (fx* _%i93616%_ _%i93616%_)))) - (##fxmodulo _%next-probe93628%_ _%size93601%_)) - (##fx+ _%i93616%_ '1) - (let ((_%$e93631%_ _%deleted93618%_)) - (if _%$e93631%_ _%$e93631%_ _%probe93614%_))) - (if (eq? _%key93590%_ _%k93621%_) + _%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! - _%table93595%_ - _%probe93614%_ - _%key93590%_) + _%table94478%_ + _%probe94497%_ + _%key94473%_) (vector-set! - _%table93595%_ - (##fx+ _%probe93614%_ '1) - (_%eq-table-update!93591%_ + _%table94478%_ + (##fx+ _%probe94497%_ '1) + (_%eq-table-update!94474%_ (vector-ref - _%table93595%_ - (##fx+ _%probe93614%_ '1))))) - (_%loop93611%_ - (let ((_%next-probe93636%_ - (fx+ _%start93607%_ - _%i93616%_ - (fx* _%i93616%_ _%i93616%_)))) - (##fxmodulo _%next-probe93636%_ _%size93601%_)) - (##fx+ _%i93616%_ '1) - _%deleted93618%_)))))))))) + _%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 (_%tab93544%_ _%key93546%_) - (let ((_%table93549%_ (&raw-table-table _%tab93544%_)) - (_%seed93551%_ (&raw-table-seed _%tab93544%_))) - (let* ((_%h93554%_ (fxxor (eq-hash _%key93546%_) _%seed93551%_)) - (_%size93557%_ (vector-length _%table93549%_)) - (_%entries93560%_ (##fxquotient _%size93557%_ '2)) - (_%start93563%_ + (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 _%h93554%_ _%entries93560%_) + (##fxmodulo _%h94437%_ _%entries94443%_) '1))) - (let _%loop93567%_ ((_%probe93570%_ _%start93563%_) - (_%i93572%_ '1)) - (let ((_%k93575%_ (vector-ref _%table93549%_ _%probe93570%_))) - (if (eq? _%k93575%_ (macro-unused-obj)) + (let _%loop94450%_ ((_%probe94453%_ _%start94446%_) + (_%i94455%_ '1)) + (let ((_%k94458%_ (vector-ref _%table94432%_ _%probe94453%_))) + (if (eq? _%k94458%_ (macro-unused-obj)) '#!void - (if (eq? _%k93575%_ (macro-deleted-obj)) - (_%loop93567%_ - (let ((_%next-probe93580%_ - (fx+ _%start93563%_ - _%i93572%_ - (fx* _%i93572%_ _%i93572%_)))) - (##fxmodulo _%next-probe93580%_ _%size93557%_)) - (##fx+ _%i93572%_ '1)) - (if (eq? _%key93546%_ _%k93575%_) + (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! - _%table93549%_ - _%probe93570%_ + _%table94432%_ + _%probe94453%_ (macro-deleted-obj)) (vector-set! - _%table93549%_ - (##fx+ _%probe93570%_ '1) + _%table94432%_ + (##fx+ _%probe94453%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93544%_ - (##fx- (&raw-table-count _%tab93544%_) + _%tab94427%_ + (##fx- (&raw-table-count _%tab94427%_) '1))))) - (_%loop93567%_ - (let ((_%next-probe93586%_ - (fx+ _%start93563%_ - _%i93572%_ - (fx* _%i93572%_ _%i93572%_)))) - (##fxmodulo _%next-probe93586%_ _%size93557%_)) - (##fx+ _%i93572%_ '1))))))))))) + (_%loop94450%_ + (let ((_%next-probe94469%_ + (fx+ _%start94446%_ + _%i94455%_ + (fx* _%i94455%_ _%i94455%_)))) + (##fxmodulo _%next-probe94469%_ _%size94440%_)) + (##fx+ _%i94455%_ '1))))))))))) (define make-eqv-table__% - (lambda (_%size-hint93525%_ _%seed93527%_) - (make-raw-table__% _%size-hint93525%_ eqv-hash eqv? _%seed93527%_))) + (lambda (_%size-hint94408%_ _%seed94410%_) + (make-raw-table__% _%size-hint94408%_ eqv-hash eqv? _%seed94410%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint93533%_ '#f) (_%seed93535%_ '0)) - (make-eqv-table__% _%size-hint93533%_ _%seed93535%_)))) + (let* ((_%size-hint94416%_ '#f) (_%seed94418%_ '0)) + (make-eqv-table__% _%size-hint94416%_ _%seed94418%_)))) (define make-eqv-table__1 - (lambda (_%size-hint93537%_) - (let ((_%seed93539%_ '0)) - (make-eqv-table__% _%size-hint93537%_ _%seed93539%_)))) + (lambda (_%size-hint94420%_) + (let ((_%seed94422%_ '0)) + (make-eqv-table__% _%size-hint94420%_ _%seed94422%_)))) (define make-eqv-table - (lambda _g94102_ - (let ((_g94101_ (##length _g94102_))) - (cond ((##fx= _g94101_ 0) (apply make-eqv-table__0 _g94102_)) - ((##fx= _g94101_ 1) (apply make-eqv-table__1 _g94102_)) - ((##fx= _g94101_ 2) (apply make-eqv-table__% _g94102_)) + (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 - _g94102_)))))) + _g94985_)))))) (define eqv-table-ref - (lambda (_%tab93478%_ _%key93479%_ _%default93480%_) - (let ((_%table93482%_ (&raw-table-table _%tab93478%_)) - (_%seed93483%_ (&raw-table-seed _%tab93478%_))) - (let* ((_%h93485%_ (fxxor (eqv-hash _%key93479%_) _%seed93483%_)) - (_%size93488%_ (vector-length _%table93482%_)) - (_%entries93491%_ (##fxquotient _%size93488%_ '2)) - (_%start93494%_ + (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 _%h93485%_ _%entries93491%_) + (##fxmodulo _%h94368%_ _%entries94374%_) '1))) - (let _%loop93498%_ ((_%probe93501%_ _%start93494%_) - (_%i93503%_ '1) - (_%deleted93505%_ '#f)) - (let ((_%k93508%_ (vector-ref _%table93482%_ _%probe93501%_))) - (if (eq? _%k93508%_ (macro-unused-obj)) - _%default93480%_ - (if (eq? _%k93508%_ (macro-deleted-obj)) - (_%loop93498%_ - (let ((_%next-probe93513%_ - (fx+ _%start93494%_ - _%i93503%_ - (fx* _%i93503%_ _%i93503%_)))) - (##fxmodulo _%next-probe93513%_ _%size93488%_)) - (##fx+ _%i93503%_ '1) - (let ((_%$e93516%_ _%deleted93505%_)) - (if _%$e93516%_ _%$e93516%_ _%probe93501%_))) - (if (eqv? _%key93479%_ _%k93508%_) + (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 - _%table93482%_ - (##fx+ _%probe93501%_ '1)) - (_%loop93498%_ - (let ((_%next-probe93521%_ - (fx+ _%start93494%_ - _%i93503%_ - (fx* _%i93503%_ _%i93503%_)))) - (##fxmodulo _%next-probe93521%_ _%size93488%_)) - (##fx+ _%i93503%_ '1) - _%deleted93505%_)))))))))) + _%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 (_%tab93474%_ _%key93475%_ _%value93476%_) - (if (##fx< (&raw-table-free _%tab93474%_) + (lambda (_%tab94357%_ _%key94358%_ _%value94359%_) + (if (##fx< (&raw-table-free _%tab94357%_) (##fxquotient - (vector-length (&raw-table-table _%tab93474%_)) + (vector-length (&raw-table-table _%tab94357%_)) '4)) - (__raw-table-rehash! _%tab93474%_) + (__raw-table-rehash! _%tab94357%_) '#!void) - (__eqv-table-set! _%tab93474%_ _%key93475%_ _%value93476%_))) + (__eqv-table-set! _%tab94357%_ _%key94358%_ _%value94359%_))) (define __eqv-table-set! - (lambda (_%tab93425%_ _%key93426%_ _%value93427%_) - (let ((_%table93430%_ (&raw-table-table _%tab93425%_)) - (_%seed93431%_ (&raw-table-seed _%tab93425%_))) - (let* ((_%h93433%_ (fxxor (eqv-hash _%key93426%_) _%seed93431%_)) - (_%size93436%_ (vector-length _%table93430%_)) - (_%entries93439%_ (##fxquotient _%size93436%_ '2)) - (_%start93442%_ + (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 _%h93433%_ _%entries93439%_) + (##fxmodulo _%h94316%_ _%entries94322%_) '1))) - (let _%loop93446%_ ((_%probe93449%_ _%start93442%_) - (_%i93451%_ '1) - (_%deleted93453%_ '#f)) - (let ((_%k93456%_ (vector-ref _%table93430%_ _%probe93449%_))) - (if (eq? _%k93456%_ (macro-unused-obj)) - (if _%deleted93453%_ + (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! - _%table93430%_ - _%deleted93453%_ - _%key93426%_) + _%table94313%_ + _%deleted94336%_ + _%key94309%_) (vector-set! - _%table93430%_ - (##fx+ _%deleted93453%_ '1) - _%value93427%_) + _%table94313%_ + (##fx+ _%deleted94336%_ '1) + _%value94310%_) ((lambda () (&raw-table-count-set! - _%tab93425%_ - (##fx+ (&raw-table-count _%tab93425%_) '1))))) + _%tab94308%_ + (##fx+ (&raw-table-count _%tab94308%_) '1))))) (begin (vector-set! - _%table93430%_ - _%probe93449%_ - _%key93426%_) + _%table94313%_ + _%probe94332%_ + _%key94309%_) (vector-set! - _%table93430%_ - (##fx+ _%probe93449%_ '1) - _%value93427%_) + _%table94313%_ + (##fx+ _%probe94332%_ '1) + _%value94310%_) ((lambda () (&raw-table-free-set! - _%tab93425%_ - (##fx- (&raw-table-free _%tab93425%_) '1)) + _%tab94308%_ + (##fx- (&raw-table-free _%tab94308%_) '1)) (&raw-table-count-set! - _%tab93425%_ - (##fx+ (&raw-table-count _%tab93425%_) '1)))))) - (if (eq? _%k93456%_ (macro-deleted-obj)) - (_%loop93446%_ - (let ((_%next-probe93463%_ - (fx+ _%start93442%_ - _%i93451%_ - (fx* _%i93451%_ _%i93451%_)))) - (##fxmodulo _%next-probe93463%_ _%size93436%_)) - (##fx+ _%i93451%_ '1) - (let ((_%$e93466%_ _%deleted93453%_)) - (if _%$e93466%_ _%$e93466%_ _%probe93449%_))) - (if (eqv? _%key93426%_ _%k93456%_) + _%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! - _%table93430%_ - _%probe93449%_ - _%key93426%_) + _%table94313%_ + _%probe94332%_ + _%key94309%_) (vector-set! - _%table93430%_ - (##fx+ _%probe93449%_ '1) - _%value93427%_)) - (_%loop93446%_ - (let ((_%next-probe93471%_ - (fx+ _%start93442%_ - _%i93451%_ - (fx* _%i93451%_ _%i93451%_)))) - (##fxmodulo _%next-probe93471%_ _%size93436%_)) - (##fx+ _%i93451%_ '1) - _%deleted93453%_)))))))))) + _%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 (_%tab93420%_ - _%key93421%_ - _%eqv-table-update!93422%_ - _%default93423%_) - (if (##fx< (&raw-table-free _%tab93420%_) + (lambda (_%tab94303%_ + _%key94304%_ + _%eqv-table-update!94305%_ + _%default94306%_) + (if (##fx< (&raw-table-free _%tab94303%_) (##fxquotient - (vector-length (&raw-table-table _%tab93420%_)) + (vector-length (&raw-table-table _%tab94303%_)) '4)) - (__raw-table-rehash! _%tab93420%_) + (__raw-table-rehash! _%tab94303%_) '#!void) (__eqv-table-update! - _%tab93420%_ - _%key93421%_ - _%eqv-table-update!93422%_ - _%default93423%_))) + _%tab94303%_ + _%key94304%_ + _%eqv-table-update!94305%_ + _%default94306%_))) (define __eqv-table-update! - (lambda (_%tab93370%_ - _%key93371%_ - _%eqv-table-update!93372%_ - _%default93373%_) - (let ((_%table93376%_ (&raw-table-table _%tab93370%_)) - (_%seed93377%_ (&raw-table-seed _%tab93370%_))) - (let* ((_%h93379%_ (fxxor (eqv-hash _%key93371%_) _%seed93377%_)) - (_%size93382%_ (vector-length _%table93376%_)) - (_%entries93385%_ (##fxquotient _%size93382%_ '2)) - (_%start93388%_ + (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 _%h93379%_ _%entries93385%_) + (##fxmodulo _%h94262%_ _%entries94268%_) '1))) - (let _%loop93392%_ ((_%probe93395%_ _%start93388%_) - (_%i93397%_ '1) - (_%deleted93399%_ '#f)) - (let ((_%k93402%_ (vector-ref _%table93376%_ _%probe93395%_))) - (if (eq? _%k93402%_ (macro-unused-obj)) - (if _%deleted93399%_ + (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! - _%table93376%_ - _%deleted93399%_ - _%key93371%_) + _%table94259%_ + _%deleted94282%_ + _%key94254%_) (vector-set! - _%table93376%_ - (##fx+ _%deleted93399%_ '1) - (_%eqv-table-update!93372%_ _%default93373%_)) + _%table94259%_ + (##fx+ _%deleted94282%_ '1) + (_%eqv-table-update!94255%_ _%default94256%_)) ((lambda () (&raw-table-count-set! - _%tab93370%_ - (##fx+ (&raw-table-count _%tab93370%_) '1))))) + _%tab94253%_ + (##fx+ (&raw-table-count _%tab94253%_) '1))))) (begin (vector-set! - _%table93376%_ - _%probe93395%_ - _%key93371%_) + _%table94259%_ + _%probe94278%_ + _%key94254%_) (vector-set! - _%table93376%_ - (##fx+ _%probe93395%_ '1) - (_%eqv-table-update!93372%_ _%default93373%_)) + _%table94259%_ + (##fx+ _%probe94278%_ '1) + (_%eqv-table-update!94255%_ _%default94256%_)) ((lambda () (&raw-table-free-set! - _%tab93370%_ - (##fx- (&raw-table-free _%tab93370%_) '1)) + _%tab94253%_ + (##fx- (&raw-table-free _%tab94253%_) '1)) (&raw-table-count-set! - _%tab93370%_ - (##fx+ (&raw-table-count _%tab93370%_) '1)))))) - (if (eq? _%k93402%_ (macro-deleted-obj)) - (_%loop93392%_ - (let ((_%next-probe93409%_ - (fx+ _%start93388%_ - _%i93397%_ - (fx* _%i93397%_ _%i93397%_)))) - (##fxmodulo _%next-probe93409%_ _%size93382%_)) - (##fx+ _%i93397%_ '1) - (let ((_%$e93412%_ _%deleted93399%_)) - (if _%$e93412%_ _%$e93412%_ _%probe93395%_))) - (if (eqv? _%key93371%_ _%k93402%_) + _%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! - _%table93376%_ - _%probe93395%_ - _%key93371%_) + _%table94259%_ + _%probe94278%_ + _%key94254%_) (vector-set! - _%table93376%_ - (##fx+ _%probe93395%_ '1) - (_%eqv-table-update!93372%_ + _%table94259%_ + (##fx+ _%probe94278%_ '1) + (_%eqv-table-update!94255%_ (vector-ref - _%table93376%_ - (##fx+ _%probe93395%_ '1))))) - (_%loop93392%_ - (let ((_%next-probe93417%_ - (fx+ _%start93388%_ - _%i93397%_ - (fx* _%i93397%_ _%i93397%_)))) - (##fxmodulo _%next-probe93417%_ _%size93382%_)) - (##fx+ _%i93397%_ '1) - _%deleted93399%_)))))))))) + _%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 (_%tab93325%_ _%key93327%_) - (let ((_%table93330%_ (&raw-table-table _%tab93325%_)) - (_%seed93332%_ (&raw-table-seed _%tab93325%_))) - (let* ((_%h93335%_ (fxxor (eqv-hash _%key93327%_) _%seed93332%_)) - (_%size93338%_ (vector-length _%table93330%_)) - (_%entries93341%_ (##fxquotient _%size93338%_ '2)) - (_%start93344%_ + (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 _%h93335%_ _%entries93341%_) + (##fxmodulo _%h94218%_ _%entries94224%_) '1))) - (let _%loop93348%_ ((_%probe93351%_ _%start93344%_) - (_%i93353%_ '1)) - (let ((_%k93356%_ (vector-ref _%table93330%_ _%probe93351%_))) - (if (eq? _%k93356%_ (macro-unused-obj)) + (let _%loop94231%_ ((_%probe94234%_ _%start94227%_) + (_%i94236%_ '1)) + (let ((_%k94239%_ (vector-ref _%table94213%_ _%probe94234%_))) + (if (eq? _%k94239%_ (macro-unused-obj)) '#!void - (if (eq? _%k93356%_ (macro-deleted-obj)) - (_%loop93348%_ - (let ((_%next-probe93361%_ - (fx+ _%start93344%_ - _%i93353%_ - (fx* _%i93353%_ _%i93353%_)))) - (##fxmodulo _%next-probe93361%_ _%size93338%_)) - (##fx+ _%i93353%_ '1)) - (if (eqv? _%key93327%_ _%k93356%_) + (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! - _%table93330%_ - _%probe93351%_ + _%table94213%_ + _%probe94234%_ (macro-deleted-obj)) (vector-set! - _%table93330%_ - (##fx+ _%probe93351%_ '1) + _%table94213%_ + (##fx+ _%probe94234%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93325%_ - (##fx- (&raw-table-count _%tab93325%_) + _%tab94208%_ + (##fx- (&raw-table-count _%tab94208%_) '1))))) - (_%loop93348%_ - (let ((_%next-probe93367%_ - (fx+ _%start93344%_ - _%i93353%_ - (fx* _%i93353%_ _%i93353%_)))) - (##fxmodulo _%next-probe93367%_ _%size93338%_)) - (##fx+ _%i93353%_ '1))))))))))) + (_%loop94231%_ + (let ((_%next-probe94250%_ + (fx+ _%start94227%_ + _%i94236%_ + (fx* _%i94236%_ _%i94236%_)))) + (##fxmodulo _%next-probe94250%_ _%size94221%_)) + (##fx+ _%i94236%_ '1))))))))))) (define make-symbolic-table__% - (lambda (_%size-hint93306%_ _%seed93308%_) + (lambda (_%size-hint94189%_ _%seed94191%_) (make-raw-table__% - _%size-hint93306%_ + _%size-hint94189%_ symbolic-hash eq? - _%seed93308%_))) + _%seed94191%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint93314%_ '#f) (_%seed93316%_ '0)) - (make-symbolic-table__% _%size-hint93314%_ _%seed93316%_)))) + (let* ((_%size-hint94197%_ '#f) (_%seed94199%_ '0)) + (make-symbolic-table__% _%size-hint94197%_ _%seed94199%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint93318%_) - (let ((_%seed93320%_ '0)) - (make-symbolic-table__% _%size-hint93318%_ _%seed93320%_)))) + (lambda (_%size-hint94201%_) + (let ((_%seed94203%_ '0)) + (make-symbolic-table__% _%size-hint94201%_ _%seed94203%_)))) (define make-symbolic-table - (lambda _g94104_ - (let ((_g94103_ (##length _g94104_))) - (cond ((##fx= _g94103_ 0) (apply make-symbolic-table__0 _g94104_)) - ((##fx= _g94103_ 1) (apply make-symbolic-table__1 _g94104_)) - ((##fx= _g94103_ 2) (apply make-symbolic-table__% _g94104_)) + (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 - _g94104_)))))) + _g94987_)))))) (define symbolic-table-ref - (lambda (_%tab93259%_ _%key93260%_ _%default93261%_) - (let ((_%table93263%_ (&raw-table-table _%tab93259%_)) - (_%seed93264%_ (&raw-table-seed _%tab93259%_))) - (let* ((_%h93266%_ - (fxxor (symbolic-hash _%key93260%_) _%seed93264%_)) - (_%size93269%_ (vector-length _%table93263%_)) - (_%entries93272%_ (##fxquotient _%size93269%_ '2)) - (_%start93275%_ + (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 _%h93266%_ _%entries93272%_) + (##fxmodulo _%h94149%_ _%entries94155%_) '1))) - (let _%loop93279%_ ((_%probe93282%_ _%start93275%_) - (_%i93284%_ '1) - (_%deleted93286%_ '#f)) - (let ((_%k93289%_ (vector-ref _%table93263%_ _%probe93282%_))) - (if (eq? _%k93289%_ (macro-unused-obj)) - _%default93261%_ - (if (eq? _%k93289%_ (macro-deleted-obj)) - (_%loop93279%_ - (let ((_%next-probe93294%_ - (fx+ _%start93275%_ - _%i93284%_ - (fx* _%i93284%_ _%i93284%_)))) - (##fxmodulo _%next-probe93294%_ _%size93269%_)) - (##fx+ _%i93284%_ '1) - (let ((_%$e93297%_ _%deleted93286%_)) - (if _%$e93297%_ _%$e93297%_ _%probe93282%_))) - (if (eq? _%key93260%_ _%k93289%_) + (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 - _%table93263%_ - (##fx+ _%probe93282%_ '1)) - (_%loop93279%_ - (let ((_%next-probe93302%_ - (fx+ _%start93275%_ - _%i93284%_ - (fx* _%i93284%_ _%i93284%_)))) - (##fxmodulo _%next-probe93302%_ _%size93269%_)) - (##fx+ _%i93284%_ '1) - _%deleted93286%_)))))))))) + _%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 (_%tab93255%_ _%key93256%_ _%value93257%_) - (if (##fx< (&raw-table-free _%tab93255%_) + (lambda (_%tab94138%_ _%key94139%_ _%value94140%_) + (if (##fx< (&raw-table-free _%tab94138%_) (##fxquotient - (vector-length (&raw-table-table _%tab93255%_)) + (vector-length (&raw-table-table _%tab94138%_)) '4)) - (__raw-table-rehash! _%tab93255%_) + (__raw-table-rehash! _%tab94138%_) '#!void) - (__symbolic-table-set! _%tab93255%_ _%key93256%_ _%value93257%_))) + (__symbolic-table-set! _%tab94138%_ _%key94139%_ _%value94140%_))) (define __symbolic-table-set! - (lambda (_%tab93206%_ _%key93207%_ _%value93208%_) - (let ((_%table93211%_ (&raw-table-table _%tab93206%_)) - (_%seed93212%_ (&raw-table-seed _%tab93206%_))) - (let* ((_%h93214%_ - (fxxor (symbolic-hash _%key93207%_) _%seed93212%_)) - (_%size93217%_ (vector-length _%table93211%_)) - (_%entries93220%_ (##fxquotient _%size93217%_ '2)) - (_%start93223%_ + (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 _%h93214%_ _%entries93220%_) + (##fxmodulo _%h94097%_ _%entries94103%_) '1))) - (let _%loop93227%_ ((_%probe93230%_ _%start93223%_) - (_%i93232%_ '1) - (_%deleted93234%_ '#f)) - (let ((_%k93237%_ (vector-ref _%table93211%_ _%probe93230%_))) - (if (eq? _%k93237%_ (macro-unused-obj)) - (if _%deleted93234%_ + (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! - _%table93211%_ - _%deleted93234%_ - _%key93207%_) + _%table94094%_ + _%deleted94117%_ + _%key94090%_) (vector-set! - _%table93211%_ - (##fx+ _%deleted93234%_ '1) - _%value93208%_) + _%table94094%_ + (##fx+ _%deleted94117%_ '1) + _%value94091%_) ((lambda () (&raw-table-count-set! - _%tab93206%_ - (##fx+ (&raw-table-count _%tab93206%_) '1))))) + _%tab94089%_ + (##fx+ (&raw-table-count _%tab94089%_) '1))))) (begin (vector-set! - _%table93211%_ - _%probe93230%_ - _%key93207%_) + _%table94094%_ + _%probe94113%_ + _%key94090%_) (vector-set! - _%table93211%_ - (##fx+ _%probe93230%_ '1) - _%value93208%_) + _%table94094%_ + (##fx+ _%probe94113%_ '1) + _%value94091%_) ((lambda () (&raw-table-free-set! - _%tab93206%_ - (##fx- (&raw-table-free _%tab93206%_) '1)) + _%tab94089%_ + (##fx- (&raw-table-free _%tab94089%_) '1)) (&raw-table-count-set! - _%tab93206%_ - (##fx+ (&raw-table-count _%tab93206%_) '1)))))) - (if (eq? _%k93237%_ (macro-deleted-obj)) - (_%loop93227%_ - (let ((_%next-probe93244%_ - (fx+ _%start93223%_ - _%i93232%_ - (fx* _%i93232%_ _%i93232%_)))) - (##fxmodulo _%next-probe93244%_ _%size93217%_)) - (##fx+ _%i93232%_ '1) - (let ((_%$e93247%_ _%deleted93234%_)) - (if _%$e93247%_ _%$e93247%_ _%probe93230%_))) - (if (eq? _%key93207%_ _%k93237%_) + _%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! - _%table93211%_ - _%probe93230%_ - _%key93207%_) + _%table94094%_ + _%probe94113%_ + _%key94090%_) (vector-set! - _%table93211%_ - (##fx+ _%probe93230%_ '1) - _%value93208%_)) - (_%loop93227%_ - (let ((_%next-probe93252%_ - (fx+ _%start93223%_ - _%i93232%_ - (fx* _%i93232%_ _%i93232%_)))) - (##fxmodulo _%next-probe93252%_ _%size93217%_)) - (##fx+ _%i93232%_ '1) - _%deleted93234%_)))))))))) + _%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 (_%tab93201%_ - _%key93202%_ - _%symbolic-table-update!93203%_ - _%default93204%_) - (if (##fx< (&raw-table-free _%tab93201%_) + (lambda (_%tab94084%_ + _%key94085%_ + _%symbolic-table-update!94086%_ + _%default94087%_) + (if (##fx< (&raw-table-free _%tab94084%_) (##fxquotient - (vector-length (&raw-table-table _%tab93201%_)) + (vector-length (&raw-table-table _%tab94084%_)) '4)) - (__raw-table-rehash! _%tab93201%_) + (__raw-table-rehash! _%tab94084%_) '#!void) (__symbolic-table-update! - _%tab93201%_ - _%key93202%_ - _%symbolic-table-update!93203%_ - _%default93204%_))) + _%tab94084%_ + _%key94085%_ + _%symbolic-table-update!94086%_ + _%default94087%_))) (define __symbolic-table-update! - (lambda (_%tab93151%_ - _%key93152%_ - _%symbolic-table-update!93153%_ - _%default93154%_) - (let ((_%table93157%_ (&raw-table-table _%tab93151%_)) - (_%seed93158%_ (&raw-table-seed _%tab93151%_))) - (let* ((_%h93160%_ - (fxxor (symbolic-hash _%key93152%_) _%seed93158%_)) - (_%size93163%_ (vector-length _%table93157%_)) - (_%entries93166%_ (##fxquotient _%size93163%_ '2)) - (_%start93169%_ + (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 _%h93160%_ _%entries93166%_) + (##fxmodulo _%h94043%_ _%entries94049%_) '1))) - (let _%loop93173%_ ((_%probe93176%_ _%start93169%_) - (_%i93178%_ '1) - (_%deleted93180%_ '#f)) - (let ((_%k93183%_ (vector-ref _%table93157%_ _%probe93176%_))) - (if (eq? _%k93183%_ (macro-unused-obj)) - (if _%deleted93180%_ + (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! - _%table93157%_ - _%deleted93180%_ - _%key93152%_) + _%table94040%_ + _%deleted94063%_ + _%key94035%_) (vector-set! - _%table93157%_ - (##fx+ _%deleted93180%_ '1) - (_%symbolic-table-update!93153%_ _%default93154%_)) + _%table94040%_ + (##fx+ _%deleted94063%_ '1) + (_%symbolic-table-update!94036%_ _%default94037%_)) ((lambda () (&raw-table-count-set! - _%tab93151%_ - (##fx+ (&raw-table-count _%tab93151%_) '1))))) + _%tab94034%_ + (##fx+ (&raw-table-count _%tab94034%_) '1))))) (begin (vector-set! - _%table93157%_ - _%probe93176%_ - _%key93152%_) + _%table94040%_ + _%probe94059%_ + _%key94035%_) (vector-set! - _%table93157%_ - (##fx+ _%probe93176%_ '1) - (_%symbolic-table-update!93153%_ _%default93154%_)) + _%table94040%_ + (##fx+ _%probe94059%_ '1) + (_%symbolic-table-update!94036%_ _%default94037%_)) ((lambda () (&raw-table-free-set! - _%tab93151%_ - (##fx- (&raw-table-free _%tab93151%_) '1)) + _%tab94034%_ + (##fx- (&raw-table-free _%tab94034%_) '1)) (&raw-table-count-set! - _%tab93151%_ - (##fx+ (&raw-table-count _%tab93151%_) '1)))))) - (if (eq? _%k93183%_ (macro-deleted-obj)) - (_%loop93173%_ - (let ((_%next-probe93190%_ - (fx+ _%start93169%_ - _%i93178%_ - (fx* _%i93178%_ _%i93178%_)))) - (##fxmodulo _%next-probe93190%_ _%size93163%_)) - (##fx+ _%i93178%_ '1) - (let ((_%$e93193%_ _%deleted93180%_)) - (if _%$e93193%_ _%$e93193%_ _%probe93176%_))) - (if (eq? _%key93152%_ _%k93183%_) + _%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! - _%table93157%_ - _%probe93176%_ - _%key93152%_) + _%table94040%_ + _%probe94059%_ + _%key94035%_) (vector-set! - _%table93157%_ - (##fx+ _%probe93176%_ '1) - (_%symbolic-table-update!93153%_ + _%table94040%_ + (##fx+ _%probe94059%_ '1) + (_%symbolic-table-update!94036%_ (vector-ref - _%table93157%_ - (##fx+ _%probe93176%_ '1))))) - (_%loop93173%_ - (let ((_%next-probe93198%_ - (fx+ _%start93169%_ - _%i93178%_ - (fx* _%i93178%_ _%i93178%_)))) - (##fxmodulo _%next-probe93198%_ _%size93163%_)) - (##fx+ _%i93178%_ '1) - _%deleted93180%_)))))))))) + _%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 (_%tab93106%_ _%key93108%_) - (let ((_%table93111%_ (&raw-table-table _%tab93106%_)) - (_%seed93113%_ (&raw-table-seed _%tab93106%_))) - (let* ((_%h93116%_ - (fxxor (symbolic-hash _%key93108%_) _%seed93113%_)) - (_%size93119%_ (vector-length _%table93111%_)) - (_%entries93122%_ (##fxquotient _%size93119%_ '2)) - (_%start93125%_ + (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 _%h93116%_ _%entries93122%_) + (##fxmodulo _%h93999%_ _%entries94005%_) '1))) - (let _%loop93129%_ ((_%probe93132%_ _%start93125%_) - (_%i93134%_ '1)) - (let ((_%k93137%_ (vector-ref _%table93111%_ _%probe93132%_))) - (if (eq? _%k93137%_ (macro-unused-obj)) + (let _%loop94012%_ ((_%probe94015%_ _%start94008%_) + (_%i94017%_ '1)) + (let ((_%k94020%_ (vector-ref _%table93994%_ _%probe94015%_))) + (if (eq? _%k94020%_ (macro-unused-obj)) '#!void - (if (eq? _%k93137%_ (macro-deleted-obj)) - (_%loop93129%_ - (let ((_%next-probe93142%_ - (fx+ _%start93125%_ - _%i93134%_ - (fx* _%i93134%_ _%i93134%_)))) - (##fxmodulo _%next-probe93142%_ _%size93119%_)) - (##fx+ _%i93134%_ '1)) - (if (eq? _%key93108%_ _%k93137%_) + (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! - _%table93111%_ - _%probe93132%_ + _%table93994%_ + _%probe94015%_ (macro-deleted-obj)) (vector-set! - _%table93111%_ - (##fx+ _%probe93132%_ '1) + _%table93994%_ + (##fx+ _%probe94015%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93106%_ - (##fx- (&raw-table-count _%tab93106%_) + _%tab93989%_ + (##fx- (&raw-table-count _%tab93989%_) '1))))) - (_%loop93129%_ - (let ((_%next-probe93148%_ - (fx+ _%start93125%_ - _%i93134%_ - (fx* _%i93134%_ _%i93134%_)))) - (##fxmodulo _%next-probe93148%_ _%size93119%_)) - (##fx+ _%i93134%_ '1))))))))))) + (_%loop94012%_ + (let ((_%next-probe94031%_ + (fx+ _%start94008%_ + _%i94017%_ + (fx* _%i94017%_ _%i94017%_)))) + (##fxmodulo _%next-probe94031%_ _%size94002%_)) + (##fx+ _%i94017%_ '1))))))))))) (define make-string-table__% - (lambda (_%size-hint93087%_ _%seed93089%_) + (lambda (_%size-hint93970%_ _%seed93972%_) (make-raw-table__% - _%size-hint93087%_ + _%size-hint93970%_ string-hash ##string=? - _%seed93089%_))) + _%seed93972%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint93095%_ '#f) (_%seed93097%_ '0)) - (make-string-table__% _%size-hint93095%_ _%seed93097%_)))) + (let* ((_%size-hint93978%_ '#f) (_%seed93980%_ '0)) + (make-string-table__% _%size-hint93978%_ _%seed93980%_)))) (define make-string-table__1 - (lambda (_%size-hint93099%_) - (let ((_%seed93101%_ '0)) - (make-string-table__% _%size-hint93099%_ _%seed93101%_)))) + (lambda (_%size-hint93982%_) + (let ((_%seed93984%_ '0)) + (make-string-table__% _%size-hint93982%_ _%seed93984%_)))) (define make-string-table - (lambda _g94106_ - (let ((_g94105_ (##length _g94106_))) - (cond ((##fx= _g94105_ 0) (apply make-string-table__0 _g94106_)) - ((##fx= _g94105_ 1) (apply make-string-table__1 _g94106_)) - ((##fx= _g94105_ 2) (apply make-string-table__% _g94106_)) + (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 - _g94106_)))))) + _g94989_)))))) (define string-table-ref - (lambda (_%tab93040%_ _%key93041%_ _%default93042%_) - (let ((_%table93044%_ (&raw-table-table _%tab93040%_)) - (_%seed93045%_ (&raw-table-seed _%tab93040%_))) - (let* ((_%h93047%_ - (fxxor (##string=?-hash _%key93041%_) _%seed93045%_)) - (_%size93050%_ (vector-length _%table93044%_)) - (_%entries93053%_ (##fxquotient _%size93050%_ '2)) - (_%start93056%_ + (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 _%h93047%_ _%entries93053%_) + (##fxmodulo _%h93930%_ _%entries93936%_) '1))) - (let _%loop93060%_ ((_%probe93063%_ _%start93056%_) - (_%i93065%_ '1) - (_%deleted93067%_ '#f)) - (let ((_%k93070%_ (vector-ref _%table93044%_ _%probe93063%_))) - (if (eq? _%k93070%_ (macro-unused-obj)) - _%default93042%_ - (if (eq? _%k93070%_ (macro-deleted-obj)) - (_%loop93060%_ - (let ((_%next-probe93075%_ - (fx+ _%start93056%_ - _%i93065%_ - (fx* _%i93065%_ _%i93065%_)))) - (##fxmodulo _%next-probe93075%_ _%size93050%_)) - (##fx+ _%i93065%_ '1) - (let ((_%$e93078%_ _%deleted93067%_)) - (if _%$e93078%_ _%$e93078%_ _%probe93063%_))) - (if (##string=? _%key93041%_ _%k93070%_) + (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 - _%table93044%_ - (##fx+ _%probe93063%_ '1)) - (_%loop93060%_ - (let ((_%next-probe93083%_ - (fx+ _%start93056%_ - _%i93065%_ - (fx* _%i93065%_ _%i93065%_)))) - (##fxmodulo _%next-probe93083%_ _%size93050%_)) - (##fx+ _%i93065%_ '1) - _%deleted93067%_)))))))))) + _%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 (_%tab93036%_ _%key93037%_ _%value93038%_) - (if (##fx< (&raw-table-free _%tab93036%_) + (lambda (_%tab93919%_ _%key93920%_ _%value93921%_) + (if (##fx< (&raw-table-free _%tab93919%_) (##fxquotient - (vector-length (&raw-table-table _%tab93036%_)) + (vector-length (&raw-table-table _%tab93919%_)) '4)) - (__raw-table-rehash! _%tab93036%_) + (__raw-table-rehash! _%tab93919%_) '#!void) - (__string-table-set! _%tab93036%_ _%key93037%_ _%value93038%_))) + (__string-table-set! _%tab93919%_ _%key93920%_ _%value93921%_))) (define __string-table-set! - (lambda (_%tab92987%_ _%key92988%_ _%value92989%_) - (let ((_%table92992%_ (&raw-table-table _%tab92987%_)) - (_%seed92993%_ (&raw-table-seed _%tab92987%_))) - (let* ((_%h92995%_ - (fxxor (##string=?-hash _%key92988%_) _%seed92993%_)) - (_%size92998%_ (vector-length _%table92992%_)) - (_%entries93001%_ (##fxquotient _%size92998%_ '2)) - (_%start93004%_ + (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 _%h92995%_ _%entries93001%_) + (##fxmodulo _%h93878%_ _%entries93884%_) '1))) - (let _%loop93008%_ ((_%probe93011%_ _%start93004%_) - (_%i93013%_ '1) - (_%deleted93015%_ '#f)) - (let ((_%k93018%_ (vector-ref _%table92992%_ _%probe93011%_))) - (if (eq? _%k93018%_ (macro-unused-obj)) - (if _%deleted93015%_ + (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! - _%table92992%_ - _%deleted93015%_ - _%key92988%_) + _%table93875%_ + _%deleted93898%_ + _%key93871%_) (vector-set! - _%table92992%_ - (##fx+ _%deleted93015%_ '1) - _%value92989%_) + _%table93875%_ + (##fx+ _%deleted93898%_ '1) + _%value93872%_) ((lambda () (&raw-table-count-set! - _%tab92987%_ - (##fx+ (&raw-table-count _%tab92987%_) '1))))) + _%tab93870%_ + (##fx+ (&raw-table-count _%tab93870%_) '1))))) (begin (vector-set! - _%table92992%_ - _%probe93011%_ - _%key92988%_) + _%table93875%_ + _%probe93894%_ + _%key93871%_) (vector-set! - _%table92992%_ - (##fx+ _%probe93011%_ '1) - _%value92989%_) + _%table93875%_ + (##fx+ _%probe93894%_ '1) + _%value93872%_) ((lambda () (&raw-table-free-set! - _%tab92987%_ - (##fx- (&raw-table-free _%tab92987%_) '1)) + _%tab93870%_ + (##fx- (&raw-table-free _%tab93870%_) '1)) (&raw-table-count-set! - _%tab92987%_ - (##fx+ (&raw-table-count _%tab92987%_) '1)))))) - (if (eq? _%k93018%_ (macro-deleted-obj)) - (_%loop93008%_ - (let ((_%next-probe93025%_ - (fx+ _%start93004%_ - _%i93013%_ - (fx* _%i93013%_ _%i93013%_)))) - (##fxmodulo _%next-probe93025%_ _%size92998%_)) - (##fx+ _%i93013%_ '1) - (let ((_%$e93028%_ _%deleted93015%_)) - (if _%$e93028%_ _%$e93028%_ _%probe93011%_))) - (if (##string=? _%key92988%_ _%k93018%_) + _%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! - _%table92992%_ - _%probe93011%_ - _%key92988%_) + _%table93875%_ + _%probe93894%_ + _%key93871%_) (vector-set! - _%table92992%_ - (##fx+ _%probe93011%_ '1) - _%value92989%_)) - (_%loop93008%_ - (let ((_%next-probe93033%_ - (fx+ _%start93004%_ - _%i93013%_ - (fx* _%i93013%_ _%i93013%_)))) - (##fxmodulo _%next-probe93033%_ _%size92998%_)) - (##fx+ _%i93013%_ '1) - _%deleted93015%_)))))))))) + _%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 (_%tab92982%_ - _%key92983%_ - _%string-table-update!92984%_ - _%default92985%_) - (if (##fx< (&raw-table-free _%tab92982%_) + (lambda (_%tab93865%_ + _%key93866%_ + _%string-table-update!93867%_ + _%default93868%_) + (if (##fx< (&raw-table-free _%tab93865%_) (##fxquotient - (vector-length (&raw-table-table _%tab92982%_)) + (vector-length (&raw-table-table _%tab93865%_)) '4)) - (__raw-table-rehash! _%tab92982%_) + (__raw-table-rehash! _%tab93865%_) '#!void) (__string-table-update! - _%tab92982%_ - _%key92983%_ - _%string-table-update!92984%_ - _%default92985%_))) + _%tab93865%_ + _%key93866%_ + _%string-table-update!93867%_ + _%default93868%_))) (define __string-table-update! - (lambda (_%tab92932%_ - _%key92933%_ - _%string-table-update!92934%_ - _%default92935%_) - (let ((_%table92938%_ (&raw-table-table _%tab92932%_)) - (_%seed92939%_ (&raw-table-seed _%tab92932%_))) - (let* ((_%h92941%_ - (fxxor (##string=?-hash _%key92933%_) _%seed92939%_)) - (_%size92944%_ (vector-length _%table92938%_)) - (_%entries92947%_ (##fxquotient _%size92944%_ '2)) - (_%start92950%_ + (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 _%h92941%_ _%entries92947%_) + (##fxmodulo _%h93824%_ _%entries93830%_) '1))) - (let _%loop92954%_ ((_%probe92957%_ _%start92950%_) - (_%i92959%_ '1) - (_%deleted92961%_ '#f)) - (let ((_%k92964%_ (vector-ref _%table92938%_ _%probe92957%_))) - (if (eq? _%k92964%_ (macro-unused-obj)) - (if _%deleted92961%_ + (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! - _%table92938%_ - _%deleted92961%_ - _%key92933%_) + _%table93821%_ + _%deleted93844%_ + _%key93816%_) (vector-set! - _%table92938%_ - (##fx+ _%deleted92961%_ '1) - (_%string-table-update!92934%_ _%default92935%_)) + _%table93821%_ + (##fx+ _%deleted93844%_ '1) + (_%string-table-update!93817%_ _%default93818%_)) ((lambda () (&raw-table-count-set! - _%tab92932%_ - (##fx+ (&raw-table-count _%tab92932%_) '1))))) + _%tab93815%_ + (##fx+ (&raw-table-count _%tab93815%_) '1))))) (begin (vector-set! - _%table92938%_ - _%probe92957%_ - _%key92933%_) + _%table93821%_ + _%probe93840%_ + _%key93816%_) (vector-set! - _%table92938%_ - (##fx+ _%probe92957%_ '1) - (_%string-table-update!92934%_ _%default92935%_)) + _%table93821%_ + (##fx+ _%probe93840%_ '1) + (_%string-table-update!93817%_ _%default93818%_)) ((lambda () (&raw-table-free-set! - _%tab92932%_ - (##fx- (&raw-table-free _%tab92932%_) '1)) + _%tab93815%_ + (##fx- (&raw-table-free _%tab93815%_) '1)) (&raw-table-count-set! - _%tab92932%_ - (##fx+ (&raw-table-count _%tab92932%_) '1)))))) - (if (eq? _%k92964%_ (macro-deleted-obj)) - (_%loop92954%_ - (let ((_%next-probe92971%_ - (fx+ _%start92950%_ - _%i92959%_ - (fx* _%i92959%_ _%i92959%_)))) - (##fxmodulo _%next-probe92971%_ _%size92944%_)) - (##fx+ _%i92959%_ '1) - (let ((_%$e92974%_ _%deleted92961%_)) - (if _%$e92974%_ _%$e92974%_ _%probe92957%_))) - (if (##string=? _%key92933%_ _%k92964%_) + _%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! - _%table92938%_ - _%probe92957%_ - _%key92933%_) + _%table93821%_ + _%probe93840%_ + _%key93816%_) (vector-set! - _%table92938%_ - (##fx+ _%probe92957%_ '1) - (_%string-table-update!92934%_ + _%table93821%_ + (##fx+ _%probe93840%_ '1) + (_%string-table-update!93817%_ (vector-ref - _%table92938%_ - (##fx+ _%probe92957%_ '1))))) - (_%loop92954%_ - (let ((_%next-probe92979%_ - (fx+ _%start92950%_ - _%i92959%_ - (fx* _%i92959%_ _%i92959%_)))) - (##fxmodulo _%next-probe92979%_ _%size92944%_)) - (##fx+ _%i92959%_ '1) - _%deleted92961%_)))))))))) + _%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 (_%tab92887%_ _%key92889%_) - (let ((_%table92892%_ (&raw-table-table _%tab92887%_)) - (_%seed92894%_ (&raw-table-seed _%tab92887%_))) - (let* ((_%h92897%_ - (fxxor (##string=?-hash _%key92889%_) _%seed92894%_)) - (_%size92900%_ (vector-length _%table92892%_)) - (_%entries92903%_ (##fxquotient _%size92900%_ '2)) - (_%start92906%_ + (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 _%h92897%_ _%entries92903%_) + (##fxmodulo _%h93780%_ _%entries93786%_) '1))) - (let _%loop92910%_ ((_%probe92913%_ _%start92906%_) - (_%i92915%_ '1)) - (let ((_%k92918%_ (vector-ref _%table92892%_ _%probe92913%_))) - (if (eq? _%k92918%_ (macro-unused-obj)) + (let _%loop93793%_ ((_%probe93796%_ _%start93789%_) + (_%i93798%_ '1)) + (let ((_%k93801%_ (vector-ref _%table93775%_ _%probe93796%_))) + (if (eq? _%k93801%_ (macro-unused-obj)) '#!void - (if (eq? _%k92918%_ (macro-deleted-obj)) - (_%loop92910%_ - (let ((_%next-probe92923%_ - (fx+ _%start92906%_ - _%i92915%_ - (fx* _%i92915%_ _%i92915%_)))) - (##fxmodulo _%next-probe92923%_ _%size92900%_)) - (##fx+ _%i92915%_ '1)) - (if (##string=? _%key92889%_ _%k92918%_) + (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! - _%table92892%_ - _%probe92913%_ + _%table93775%_ + _%probe93796%_ (macro-deleted-obj)) (vector-set! - _%table92892%_ - (##fx+ _%probe92913%_ '1) + _%table93775%_ + (##fx+ _%probe93796%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92887%_ - (##fx- (&raw-table-count _%tab92887%_) + _%tab93770%_ + (##fx- (&raw-table-count _%tab93770%_) '1))))) - (_%loop92910%_ - (let ((_%next-probe92929%_ - (fx+ _%start92906%_ - _%i92915%_ - (fx* _%i92915%_ _%i92915%_)))) - (##fxmodulo _%next-probe92929%_ _%size92900%_)) - (##fx+ _%i92915%_ '1))))))))))) + (_%loop93793%_ + (let ((_%next-probe93812%_ + (fx+ _%start93789%_ + _%i93798%_ + (fx* _%i93798%_ _%i93798%_)))) + (##fxmodulo _%next-probe93812%_ _%size93783%_)) + (##fx+ _%i93798%_ '1))))))))))) (define make-immediate-table__% - (lambda (_%size-hint92868%_ _%seed92870%_) + (lambda (_%size-hint93751%_ _%seed93753%_) (make-raw-table__% - _%size-hint92868%_ + _%size-hint93751%_ immediate-hash eq? - _%seed92870%_))) + _%seed93753%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint92876%_ '#f) (_%seed92878%_ '0)) - (make-immediate-table__% _%size-hint92876%_ _%seed92878%_)))) + (let* ((_%size-hint93759%_ '#f) (_%seed93761%_ '0)) + (make-immediate-table__% _%size-hint93759%_ _%seed93761%_)))) (define make-immediate-table__1 - (lambda (_%size-hint92880%_) - (let ((_%seed92882%_ '0)) - (make-immediate-table__% _%size-hint92880%_ _%seed92882%_)))) + (lambda (_%size-hint93763%_) + (let ((_%seed93765%_ '0)) + (make-immediate-table__% _%size-hint93763%_ _%seed93765%_)))) (define make-immediate-table - (lambda _g94108_ - (let ((_g94107_ (##length _g94108_))) - (cond ((##fx= _g94107_ 0) (apply make-immediate-table__0 _g94108_)) - ((##fx= _g94107_ 1) (apply make-immediate-table__1 _g94108_)) - ((##fx= _g94107_ 2) (apply make-immediate-table__% _g94108_)) + (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 - _g94108_)))))) + _g94991_)))))) (define immediate-table-ref - (lambda (_%tab92821%_ _%key92822%_ _%default92823%_) - (let ((_%table92825%_ (&raw-table-table _%tab92821%_)) - (_%seed92826%_ (&raw-table-seed _%tab92821%_))) - (let* ((_%h92828%_ - (fxxor (immediate-hash _%key92822%_) _%seed92826%_)) - (_%size92831%_ (vector-length _%table92825%_)) - (_%entries92834%_ (##fxquotient _%size92831%_ '2)) - (_%start92837%_ + (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 _%h92828%_ _%entries92834%_) + (##fxmodulo _%h93711%_ _%entries93717%_) '1))) - (let _%loop92841%_ ((_%probe92844%_ _%start92837%_) - (_%i92846%_ '1) - (_%deleted92848%_ '#f)) - (let ((_%k92851%_ (vector-ref _%table92825%_ _%probe92844%_))) - (if (eq? _%k92851%_ (macro-unused-obj)) - _%default92823%_ - (if (eq? _%k92851%_ (macro-deleted-obj)) - (_%loop92841%_ - (let ((_%next-probe92856%_ - (fx+ _%start92837%_ - _%i92846%_ - (fx* _%i92846%_ _%i92846%_)))) - (##fxmodulo _%next-probe92856%_ _%size92831%_)) - (##fx+ _%i92846%_ '1) - (let ((_%$e92859%_ _%deleted92848%_)) - (if _%$e92859%_ _%$e92859%_ _%probe92844%_))) - (if (eq? _%key92822%_ _%k92851%_) + (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 - _%table92825%_ - (##fx+ _%probe92844%_ '1)) - (_%loop92841%_ - (let ((_%next-probe92864%_ - (fx+ _%start92837%_ - _%i92846%_ - (fx* _%i92846%_ _%i92846%_)))) - (##fxmodulo _%next-probe92864%_ _%size92831%_)) - (##fx+ _%i92846%_ '1) - _%deleted92848%_)))))))))) + _%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 (_%tab92817%_ _%key92818%_ _%value92819%_) - (if (##fx< (&raw-table-free _%tab92817%_) + (lambda (_%tab93700%_ _%key93701%_ _%value93702%_) + (if (##fx< (&raw-table-free _%tab93700%_) (##fxquotient - (vector-length (&raw-table-table _%tab92817%_)) + (vector-length (&raw-table-table _%tab93700%_)) '4)) - (__raw-table-rehash! _%tab92817%_) + (__raw-table-rehash! _%tab93700%_) '#!void) - (__immediate-table-set! _%tab92817%_ _%key92818%_ _%value92819%_))) + (__immediate-table-set! _%tab93700%_ _%key93701%_ _%value93702%_))) (define __immediate-table-set! - (lambda (_%tab92768%_ _%key92769%_ _%value92770%_) - (let ((_%table92773%_ (&raw-table-table _%tab92768%_)) - (_%seed92774%_ (&raw-table-seed _%tab92768%_))) - (let* ((_%h92776%_ - (fxxor (immediate-hash _%key92769%_) _%seed92774%_)) - (_%size92779%_ (vector-length _%table92773%_)) - (_%entries92782%_ (##fxquotient _%size92779%_ '2)) - (_%start92785%_ + (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 _%h92776%_ _%entries92782%_) + (##fxmodulo _%h93659%_ _%entries93665%_) '1))) - (let _%loop92789%_ ((_%probe92792%_ _%start92785%_) - (_%i92794%_ '1) - (_%deleted92796%_ '#f)) - (let ((_%k92799%_ (vector-ref _%table92773%_ _%probe92792%_))) - (if (eq? _%k92799%_ (macro-unused-obj)) - (if _%deleted92796%_ + (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! - _%table92773%_ - _%deleted92796%_ - _%key92769%_) + _%table93656%_ + _%deleted93679%_ + _%key93652%_) (vector-set! - _%table92773%_ - (##fx+ _%deleted92796%_ '1) - _%value92770%_) + _%table93656%_ + (##fx+ _%deleted93679%_ '1) + _%value93653%_) ((lambda () (&raw-table-count-set! - _%tab92768%_ - (##fx+ (&raw-table-count _%tab92768%_) '1))))) + _%tab93651%_ + (##fx+ (&raw-table-count _%tab93651%_) '1))))) (begin (vector-set! - _%table92773%_ - _%probe92792%_ - _%key92769%_) + _%table93656%_ + _%probe93675%_ + _%key93652%_) (vector-set! - _%table92773%_ - (##fx+ _%probe92792%_ '1) - _%value92770%_) + _%table93656%_ + (##fx+ _%probe93675%_ '1) + _%value93653%_) ((lambda () (&raw-table-free-set! - _%tab92768%_ - (##fx- (&raw-table-free _%tab92768%_) '1)) + _%tab93651%_ + (##fx- (&raw-table-free _%tab93651%_) '1)) (&raw-table-count-set! - _%tab92768%_ - (##fx+ (&raw-table-count _%tab92768%_) '1)))))) - (if (eq? _%k92799%_ (macro-deleted-obj)) - (_%loop92789%_ - (let ((_%next-probe92806%_ - (fx+ _%start92785%_ - _%i92794%_ - (fx* _%i92794%_ _%i92794%_)))) - (##fxmodulo _%next-probe92806%_ _%size92779%_)) - (##fx+ _%i92794%_ '1) - (let ((_%$e92809%_ _%deleted92796%_)) - (if _%$e92809%_ _%$e92809%_ _%probe92792%_))) - (if (eq? _%key92769%_ _%k92799%_) + _%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! - _%table92773%_ - _%probe92792%_ - _%key92769%_) + _%table93656%_ + _%probe93675%_ + _%key93652%_) (vector-set! - _%table92773%_ - (##fx+ _%probe92792%_ '1) - _%value92770%_)) - (_%loop92789%_ - (let ((_%next-probe92814%_ - (fx+ _%start92785%_ - _%i92794%_ - (fx* _%i92794%_ _%i92794%_)))) - (##fxmodulo _%next-probe92814%_ _%size92779%_)) - (##fx+ _%i92794%_ '1) - _%deleted92796%_)))))))))) + _%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 (_%tab92763%_ - _%key92764%_ - _%immediate-table-update!92765%_ - _%default92766%_) - (if (##fx< (&raw-table-free _%tab92763%_) + (lambda (_%tab93646%_ + _%key93647%_ + _%immediate-table-update!93648%_ + _%default93649%_) + (if (##fx< (&raw-table-free _%tab93646%_) (##fxquotient - (vector-length (&raw-table-table _%tab92763%_)) + (vector-length (&raw-table-table _%tab93646%_)) '4)) - (__raw-table-rehash! _%tab92763%_) + (__raw-table-rehash! _%tab93646%_) '#!void) (__immediate-table-update! - _%tab92763%_ - _%key92764%_ - _%immediate-table-update!92765%_ - _%default92766%_))) + _%tab93646%_ + _%key93647%_ + _%immediate-table-update!93648%_ + _%default93649%_))) (define __immediate-table-update! - (lambda (_%tab92713%_ - _%key92714%_ - _%immediate-table-update!92715%_ - _%default92716%_) - (let ((_%table92719%_ (&raw-table-table _%tab92713%_)) - (_%seed92720%_ (&raw-table-seed _%tab92713%_))) - (let* ((_%h92722%_ - (fxxor (immediate-hash _%key92714%_) _%seed92720%_)) - (_%size92725%_ (vector-length _%table92719%_)) - (_%entries92728%_ (##fxquotient _%size92725%_ '2)) - (_%start92731%_ + (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 _%h92722%_ _%entries92728%_) + (##fxmodulo _%h93605%_ _%entries93611%_) '1))) - (let _%loop92735%_ ((_%probe92738%_ _%start92731%_) - (_%i92740%_ '1) - (_%deleted92742%_ '#f)) - (let ((_%k92745%_ (vector-ref _%table92719%_ _%probe92738%_))) - (if (eq? _%k92745%_ (macro-unused-obj)) - (if _%deleted92742%_ + (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! - _%table92719%_ - _%deleted92742%_ - _%key92714%_) + _%table93602%_ + _%deleted93625%_ + _%key93597%_) (vector-set! - _%table92719%_ - (##fx+ _%deleted92742%_ '1) - (_%immediate-table-update!92715%_ _%default92716%_)) + _%table93602%_ + (##fx+ _%deleted93625%_ '1) + (_%immediate-table-update!93598%_ _%default93599%_)) ((lambda () (&raw-table-count-set! - _%tab92713%_ - (##fx+ (&raw-table-count _%tab92713%_) '1))))) + _%tab93596%_ + (##fx+ (&raw-table-count _%tab93596%_) '1))))) (begin (vector-set! - _%table92719%_ - _%probe92738%_ - _%key92714%_) + _%table93602%_ + _%probe93621%_ + _%key93597%_) (vector-set! - _%table92719%_ - (##fx+ _%probe92738%_ '1) - (_%immediate-table-update!92715%_ _%default92716%_)) + _%table93602%_ + (##fx+ _%probe93621%_ '1) + (_%immediate-table-update!93598%_ _%default93599%_)) ((lambda () (&raw-table-free-set! - _%tab92713%_ - (##fx- (&raw-table-free _%tab92713%_) '1)) + _%tab93596%_ + (##fx- (&raw-table-free _%tab93596%_) '1)) (&raw-table-count-set! - _%tab92713%_ - (##fx+ (&raw-table-count _%tab92713%_) '1)))))) - (if (eq? _%k92745%_ (macro-deleted-obj)) - (_%loop92735%_ - (let ((_%next-probe92752%_ - (fx+ _%start92731%_ - _%i92740%_ - (fx* _%i92740%_ _%i92740%_)))) - (##fxmodulo _%next-probe92752%_ _%size92725%_)) - (##fx+ _%i92740%_ '1) - (let ((_%$e92755%_ _%deleted92742%_)) - (if _%$e92755%_ _%$e92755%_ _%probe92738%_))) - (if (eq? _%key92714%_ _%k92745%_) + _%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! - _%table92719%_ - _%probe92738%_ - _%key92714%_) + _%table93602%_ + _%probe93621%_ + _%key93597%_) (vector-set! - _%table92719%_ - (##fx+ _%probe92738%_ '1) - (_%immediate-table-update!92715%_ + _%table93602%_ + (##fx+ _%probe93621%_ '1) + (_%immediate-table-update!93598%_ (vector-ref - _%table92719%_ - (##fx+ _%probe92738%_ '1))))) - (_%loop92735%_ - (let ((_%next-probe92760%_ - (fx+ _%start92731%_ - _%i92740%_ - (fx* _%i92740%_ _%i92740%_)))) - (##fxmodulo _%next-probe92760%_ _%size92725%_)) - (##fx+ _%i92740%_ '1) - _%deleted92742%_)))))))))) + _%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 (_%tab92668%_ _%key92670%_) - (let ((_%table92673%_ (&raw-table-table _%tab92668%_)) - (_%seed92675%_ (&raw-table-seed _%tab92668%_))) - (let* ((_%h92678%_ - (fxxor (immediate-hash _%key92670%_) _%seed92675%_)) - (_%size92681%_ (vector-length _%table92673%_)) - (_%entries92684%_ (##fxquotient _%size92681%_ '2)) - (_%start92687%_ + (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 _%h92678%_ _%entries92684%_) + (##fxmodulo _%h93561%_ _%entries93567%_) '1))) - (let _%loop92691%_ ((_%probe92694%_ _%start92687%_) - (_%i92696%_ '1)) - (let ((_%k92699%_ (vector-ref _%table92673%_ _%probe92694%_))) - (if (eq? _%k92699%_ (macro-unused-obj)) + (let _%loop93574%_ ((_%probe93577%_ _%start93570%_) + (_%i93579%_ '1)) + (let ((_%k93582%_ (vector-ref _%table93556%_ _%probe93577%_))) + (if (eq? _%k93582%_ (macro-unused-obj)) '#!void - (if (eq? _%k92699%_ (macro-deleted-obj)) - (_%loop92691%_ - (let ((_%next-probe92704%_ - (fx+ _%start92687%_ - _%i92696%_ - (fx* _%i92696%_ _%i92696%_)))) - (##fxmodulo _%next-probe92704%_ _%size92681%_)) - (##fx+ _%i92696%_ '1)) - (if (eq? _%key92670%_ _%k92699%_) + (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! - _%table92673%_ - _%probe92694%_ + _%table93556%_ + _%probe93577%_ (macro-deleted-obj)) (vector-set! - _%table92673%_ - (##fx+ _%probe92694%_ '1) + _%table93556%_ + (##fx+ _%probe93577%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92668%_ - (##fx- (&raw-table-count _%tab92668%_) + _%tab93551%_ + (##fx- (&raw-table-count _%tab93551%_) '1))))) - (_%loop92691%_ - (let ((_%next-probe92710%_ - (fx+ _%start92687%_ - _%i92696%_ - (fx* _%i92696%_ _%i92696%_)))) - (##fxmodulo _%next-probe92710%_ _%size92681%_)) - (##fx+ _%i92696%_ '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 (_%tab92666%_) + (lambda (_%tab93549%_) (##unchecked-structure-ref - _%tab92666%_ + _%tab93549%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab92664%_) + (lambda (_%tab93547%_) (##unchecked-structure-ref - _%tab92664%_ + _%tab93547%_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_%tab92661%_ _%val92662%_) + (lambda (_%tab93544%_ _%val93545%_) (##unchecked-structure-set! - _%tab92661%_ - _%val92662%_ + _%tab93544%_ + _%val93545%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab92658%_ _%val92659%_) + (lambda (_%tab93541%_ _%val93542%_) (##unchecked-structure-set! - _%tab92658%_ - _%val92659%_ + _%tab93541%_ + _%val93542%_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_%size-hint92634%_ _%klass92635%_ _%flags92636%_) - (let ((_%gcht92638%_ + (lambda (_%size-hint93517%_ _%klass93518%_ _%flags93519%_) + (let ((_%gcht93521%_ (__gc-table-new - (if (fixnum? _%size-hint92634%_) _%size-hint92634%_ '16) - _%flags92636%_))) - (##structure _%klass92635%_ _%gcht92638%_ '#f)))) + (if (fixnum? _%size-hint93517%_) _%size-hint93517%_ '16) + _%flags93519%_))) + (##structure _%klass93518%_ _%gcht93521%_ '#f)))) (define make-gc-table__0 - (lambda (_%size-hint92643%_) - (let* ((_%klass92645%_ __gc-table::t) (_%flags92647%_ '0)) + (lambda (_%size-hint93526%_) + (let* ((_%klass93528%_ __gc-table::t) (_%flags93530%_ '0)) (make-gc-table__% - _%size-hint92643%_ - _%klass92645%_ - _%flags92647%_)))) + _%size-hint93526%_ + _%klass93528%_ + _%flags93530%_)))) (define make-gc-table__1 - (lambda (_%size-hint92649%_ _%klass92650%_) - (let ((_%flags92652%_ '0)) + (lambda (_%size-hint93532%_ _%klass93533%_) + (let ((_%flags93535%_ '0)) (make-gc-table__% - _%size-hint92649%_ - _%klass92650%_ - _%flags92652%_)))) + _%size-hint93532%_ + _%klass93533%_ + _%flags93535%_)))) (define make-gc-table - (lambda _g94110_ - (let ((_g94109_ (##length _g94110_))) - (cond ((##fx= _g94109_ 1) (apply make-gc-table__0 _g94110_)) - ((##fx= _g94109_ 2) (apply make-gc-table__1 _g94110_)) - ((##fx= _g94109_ 3) (apply make-gc-table__% _g94110_)) + (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 - _g94110_)))))) + _g94993_)))))) (define __gc-table-immediate - (lambda (_%tab92625%_) - (let ((_%$e92627%_ (&gc-table-immediate _%tab92625%_))) - (if _%$e92627%_ - _%$e92627%_ - (let ((_%immediate92631%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab92625%_ _%immediate92631%_) - _%immediate92631%_))))) + (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 (_%size92615%_ _%flags92616%_) - (let* ((_%flags92618%_ - (##fxand _%flags92616%_ + (lambda (_%size93498%_ _%flags93499%_) + (let* ((_%flags93501%_ + (##fxand _%flags93499%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags92620%_ - (fxior _%flags92618%_ + (_%flags93503%_ + (fxior _%flags93501%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht92622%_ + (_%gcht93505%_ (##gc-hash-table-allocate - _%size92615%_ - _%flags92620%_ + _%size93498%_ + _%flags93503%_ __gc-table-loads))) - _%gcht92622%_))) + _%gcht93505%_))) (define __gc-table-e - (lambda (_%tab92610%_) + (lambda (_%tab93493%_) (declare (not interrupts-enabled)) - (let ((_%gcht92613%_ (&gc-table-gcht _%tab92610%_))) + (let ((_%gcht93496%_ (&gc-table-gcht _%tab93493%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht92613%_) + (fxand (macro-gc-hash-table-flags _%gcht93496%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht92613%_ + _%gcht93496%_ (begin - (__gc-table-rehash! _%tab92610%_) - (&gc-table-gcht _%tab92610%_)))))) + (__gc-table-rehash! _%tab93493%_) + (&gc-table-gcht _%tab93493%_)))))) (define __gc-table-rehash! - (lambda (_%tab92601%_) - (let* ((_%old-table92603%_ (&gc-table-gcht _%tab92601%_)) - (_%new-table92605%_ - (##gc-hash-table-resize! _%old-table92603%_ __gc-table-loads)) - (_%gcht92607%_ + (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-table92603%_ - _%new-table92605%_))) - (&gc-table-gcht-set! _%tab92601%_ _%gcht92607%_)))) + _%old-table93486%_ + _%new-table93488%_))) + (&gc-table-gcht-set! _%tab93484%_ _%gcht93490%_)))) (define gc-table-ref - (lambda (_%tab92585%_ _%key92586%_ _%default92587%_) + (lambda (_%tab93468%_ _%key93469%_ _%default93470%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92586%_) - (let* ((_%gcht92591%_ (__gc-table-e _%tab92585%_)) - (_%value92593%_ - (##gc-hash-table-ref _%gcht92591%_ _%key92586%_))) - (if (eq? _%value92593%_ (macro-unused-obj)) - _%default92587%_ - _%value92593%_)) - (let ((_%$e92595%_ (&gc-table-immediate _%tab92585%_))) - (if _%$e92595%_ - ((lambda (_%immediate92598%_) + (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 - _%immediate92598%_ - _%key92586%_ - _%default92587%_)) - _%$e92595%_) - _%default92587%_))))) + _%immediate93481%_ + _%key93469%_ + _%default93470%_)) + _%$e93478%_) + _%default93470%_))))) (define gc-table-set! - (lambda (_%tab92578%_ _%key92579%_ _%value92580%_) + (lambda (_%tab93461%_ _%key93462%_ _%value93463%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92579%_) - (let ((_%gcht92583%_ (__gc-table-e _%tab92578%_))) + (if (##mem-allocated? _%key93462%_) + (let ((_%gcht93466%_ (__gc-table-e _%tab93461%_))) (if (##gc-hash-table-set! - _%gcht92583%_ - _%key92579%_ - _%value92580%_) + _%gcht93466%_ + _%key93462%_ + _%value93463%_) (begin - (__gc-table-rehash! _%tab92578%_) - (gc-table-set! _%tab92578%_ _%key92579%_ _%value92580%_)) + (__gc-table-rehash! _%tab93461%_) + (gc-table-set! _%tab93461%_ _%key93462%_ _%value93463%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab92578%_) - _%key92579%_ - _%value92580%_)))) + (__gc-table-immediate _%tab93461%_) + _%key93462%_ + _%value93463%_)))) (define gc-table-update! - (lambda (_%tab92571%_ _%key92572%_ _%update92573%_ _%default92574%_) - (if (##mem-allocated? _%key92572%_) - (let ((_%value92576%_ - (gc-table-ref _%tab92571%_ _%key92572%_ _%default92574%_))) + (lambda (_%tab93454%_ _%key93455%_ _%update93456%_ _%default93457%_) + (if (##mem-allocated? _%key93455%_) + (let ((_%value93459%_ + (gc-table-ref _%tab93454%_ _%key93455%_ _%default93457%_))) (gc-table-set! - _%tab92571%_ - _%key92572%_ - (_%update92573%_ _%value92576%_))) + _%tab93454%_ + _%key93455%_ + (_%update93456%_ _%value93459%_))) (immediate-table-update! - (__gc-table-immediate _%tab92571%_) - _%key92572%_ - _%update92573%_ - _%default92574%_)))) + (__gc-table-immediate _%tab93454%_) + _%key93455%_ + _%update93456%_ + _%default93457%_)))) (define gc-table-delete! - (lambda (_%tab92559%_ _%key92560%_) + (lambda (_%tab93442%_ _%key93443%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92560%_) - (let ((_%gcht92564%_ (__gc-table-e _%tab92559%_))) + (if (##mem-allocated? _%key93443%_) + (let ((_%gcht93447%_ (__gc-table-e _%tab93442%_))) (if (##gc-hash-table-set! - _%gcht92564%_ - _%key92560%_ + _%gcht93447%_ + _%key93443%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab92559%_) - (gc-table-delete! _%tab92559%_ _%key92560%_)) + (__gc-table-rehash! _%tab93442%_) + (gc-table-delete! _%tab93442%_ _%key93443%_)) '#!void)) - (let ((_%$e92566%_ (&gc-table-immediate _%tab92559%_))) - (if _%$e92566%_ - ((lambda (_%immediate92569%_) - (immediate-table-delete! _%immediate92569%_ _%key92560%_)) - _%$e92566%_) + (let ((_%$e93449%_ (&gc-table-immediate _%tab93442%_))) + (if _%$e93449%_ + ((lambda (_%immediate93452%_) + (immediate-table-delete! _%immediate93452%_ _%key93443%_)) + _%$e93449%_) '#!void))))) (define gc-table-for-each - (lambda (_%tab92540%_ _%proc92541%_) + (lambda (_%tab93423%_ _%proc93424%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht92544%_ (__gc-table-e _%tab92540%_))) - (let _%loop92546%_ ((_%i92548%_ (macro-gc-hash-table-key0))) - (if (##fx< _%i92548%_ (##vector-length _%gcht92544%_)) - (let ((_%key92550%_ (##vector-ref _%gcht92544%_ _%i92548%_))) - (if (if (eq? _%key92550%_ (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? _%key92550%_ (macro-deleted-obj)))) - (_%proc92541%_ - _%key92550%_ - (##vector-ref _%gcht92544%_ (##fx+ _%i92548%_ '1))) + (not (eq? _%key93433%_ (macro-deleted-obj)))) + (_%proc93424%_ + _%key93433%_ + (##vector-ref _%gcht93427%_ (##fx+ _%i93431%_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_%loop92546%_ (##fx+ _%i92548%_ '2)))) + (_%loop93429%_ (##fx+ _%i93431%_ '2)))) '#!void))) - (let ((_%$e92554%_ (&gc-table-immediate _%tab92540%_))) - (if _%$e92554%_ - ((lambda (_%immediate92557%_) - (raw-table-for-each _%immediate92557%_ _%proc92541%_)) - _%$e92554%_) + (let ((_%$e93437%_ (&gc-table-immediate _%tab93423%_))) + (if _%$e93437%_ + ((lambda (_%immediate93440%_) + (raw-table-for-each _%immediate93440%_ _%proc93424%_)) + _%$e93437%_) '#!void))))) (define gc-table-copy - (lambda (_%tab92528%_) - (let* ((_%gcht92530%_ (__gc-table-e _%tab92528%_)) - (_%new-table92532%_ + (lambda (_%tab93411%_) + (let* ((_%gcht93413%_ (__gc-table-e _%tab93411%_)) + (_%new-table93415%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht92530%_) - (macro-gc-hash-table-flags _%gcht92530%_))) - (_%result92534%_ + (macro-gc-hash-table-count _%gcht93413%_) + (macro-gc-hash-table-flags _%gcht93413%_))) + (_%result93417%_ (##structure - (##structure-type _%tab92528%_) - _%new-table92532%_ + (##structure-type _%tab93411%_) + _%new-table93415%_ '#f))) (gc-table-for-each - _%tab92528%_ - (lambda (_%k92537%_ _%v92538%_) - (gc-table-set! _%result92534%_ _%k92537%_ _%v92538%_))) - _%result92534%_))) + _%tab93411%_ + (lambda (_%k93420%_ _%v93421%_) + (gc-table-set! _%result93417%_ _%k93420%_ _%v93421%_))) + _%result93417%_))) (define gc-table-clear! - (lambda (_%tab92521%_) - (let* ((_%gcht92523%_ (__gc-table-e _%tab92521%_)) - (_%new-table92525%_ + (lambda (_%tab93404%_) + (let* ((_%gcht93406%_ (__gc-table-e _%tab93404%_)) + (_%new-table93408%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht92523%_)))) - (&gc-table-gcht-set! _%tab92521%_ _%new-table92525%_) - (&gc-table-immediate-set! _%tab92521%_ '#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 (_%tab92513%_) - (let ((_%gcht92515%_ (__gc-table-e _%tab92513%_))) - (fx+ (macro-gc-hash-table-count _%gcht92515%_) - (let ((_%$e92517%_ (&gc-table-immediate _%tab92513%_))) - (if _%$e92517%_ (&raw-table-count _%$e92517%_) '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 (_%obj92498%_) + (lambda (_%obj93381%_) (declare (not interrupts-enabled)) - (let ((_%val92501%_ (gc-table-ref __object-eq-hash _%obj92498%_ '#f))) - (if _%val92501%_ - _%val92501%_ - (let* ((_%mix92503%_ __object-eq-hash-next) - (_%ptr92505%_ (##type-cast _%obj92498%_ '0)) - (_%h92507%_ - (fxand (fxxor _%mix92503%_ _%ptr92505%_) + (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 ((_%$e92510%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e92510%_ _%$e92510%_ '0))) - (gc-table-set! __object-eq-hash _%obj92498%_ _%h92507%_) - _%h92507%_))))))) + (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 52bced356..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 (_%$stx91426%_) - (let* ((_%g9143091444%_ - (lambda (_%g9143191440%_) + (lambda (_%$stx92309%_) + (let* ((_%g9231392327%_ + (lambda (_%g9231492323%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9143191440%_))) - (_%g9142991486%_ - (lambda (_%g9143191448%_) - (if (gx#stx-pair? _%g9143191448%_) - (let ((_%e9143391451%_ (gx#syntax-e _%g9143191448%_))) - (let ((_%hd9143491455%_ + _%g9231492323%_))) + (_%g9231292369%_ + (lambda (_%g9231492331%_) + (if (gx#stx-pair? _%g9231492331%_) + (let ((_%e9231692334%_ (gx#syntax-e _%g9231492331%_))) + (let ((_%hd9231792338%_ (let () (declare (not safe)) - (##car _%e9143391451%_))) - (_%tl9143591458%_ + (##car _%e9231692334%_))) + (_%tl9231892341%_ (let () (declare (not safe)) - (##cdr _%e9143391451%_)))) - (if (gx#stx-pair? _%tl9143591458%_) - (let ((_%e9143691461%_ - (gx#syntax-e _%tl9143591458%_))) - (let ((_%hd9143791465%_ + (##cdr _%e9231692334%_)))) + (if (gx#stx-pair? _%tl9231892341%_) + (let ((_%e9231992344%_ + (gx#syntax-e _%tl9231892341%_))) + (let ((_%hd9232092348%_ (let () (declare (not safe)) - (##car _%e9143691461%_))) - (_%tl9143891468%_ + (##car _%e9231992344%_))) + (_%tl9232192351%_ (let () (declare (not safe)) - (##cdr _%e9143691461%_)))) - (if (gx#stx-null? _%tl9143891468%_) - ((lambda (_%L91471%_) + (##cdr _%e9231992344%_)))) + (if (gx#stx-null? _%tl9232192351%_) + ((lambda (_%L92354%_) (cons (gx#datum->syntax '#f 'macro-slot) - (cons '1 (cons _%L91471%_ '())))) - _%hd9143791465%_) - (_%g9143091444%_ _%g9143191448%_)))) - (_%g9143091444%_ _%g9143191448%_)))) - (_%g9143091444%_ _%g9143191448%_))))) - (_%g9142991486%_ _%$stx91426%_)))) + (cons '1 (cons _%L92354%_ '())))) + _%hd9232092348%_) + (_%g9231392327%_ _%g9231492331%_)))) + (_%g9231392327%_ _%g9231492331%_)))) + (_%g9231392327%_ _%g9231492331%_))))) + (_%g9231292369%_ _%$stx92309%_)))) (define |[:0:]#defspecialized-table| - (lambda (_%$stx91490%_) - (let* ((_%g9149491540%_ - (lambda (_%g9149591536%_) + (lambda (_%$stx92373%_) + (let* ((_%g9237792423%_ + (lambda (_%g9237892419%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9149591536%_))) - (_%g9149391693%_ - (lambda (_%g9149591544%_) - (if (gx#stx-pair? _%g9149591544%_) - (let ((_%e9150591547%_ (gx#syntax-e _%g9149591544%_))) - (let ((_%hd9150691551%_ + _%g9237892419%_))) + (_%g9237692576%_ + (lambda (_%g9237892427%_) + (if (gx#stx-pair? _%g9237892427%_) + (let ((_%e9238892430%_ (gx#syntax-e _%g9237892427%_))) + (let ((_%hd9238992434%_ (let () (declare (not safe)) - (##car _%e9150591547%_))) - (_%tl9150791554%_ + (##car _%e9238892430%_))) + (_%tl9239092437%_ (let () (declare (not safe)) - (##cdr _%e9150591547%_)))) - (if (gx#stx-pair? _%tl9150791554%_) - (let ((_%e9150891557%_ - (gx#syntax-e _%tl9150791554%_))) - (let ((_%hd9150991561%_ + (##cdr _%e9238892430%_)))) + (if (gx#stx-pair? _%tl9239092437%_) + (let ((_%e9239192440%_ + (gx#syntax-e _%tl9239092437%_))) + (let ((_%hd9239292444%_ (let () (declare (not safe)) - (##car _%e9150891557%_))) - (_%tl9151091564%_ + (##car _%e9239192440%_))) + (_%tl9239392447%_ (let () (declare (not safe)) - (##cdr _%e9150891557%_)))) - (if (gx#stx-pair? _%tl9151091564%_) - (let ((_%e9151191567%_ - (gx#syntax-e _%tl9151091564%_))) - (let ((_%hd9151291571%_ + (##cdr _%e9239192440%_)))) + (if (gx#stx-pair? _%tl9239392447%_) + (let ((_%e9239492450%_ + (gx#syntax-e _%tl9239392447%_))) + (let ((_%hd9239592454%_ (let () (declare (not safe)) - (##car _%e9151191567%_))) - (_%tl9151391574%_ + (##car _%e9239492450%_))) + (_%tl9239692457%_ (let () (declare (not safe)) - (##cdr _%e9151191567%_)))) - (if (gx#stx-pair? _%tl9151391574%_) - (let ((_%e9151491577%_ + (##cdr _%e9239492450%_)))) + (if (gx#stx-pair? _%tl9239692457%_) + (let ((_%e9239792460%_ (gx#syntax-e - _%tl9151391574%_))) - (let ((_%hd9151591581%_ + _%tl9239692457%_))) + (let ((_%hd9239892464%_ (let () (declare (not safe)) - (##car _%e9151491577%_))) - (_%tl9151691584%_ + (##car _%e9239792460%_))) + (_%tl9239992467%_ (let () (declare (not safe)) - (##cdr _%e9151491577%_)))) + (##cdr _%e9239792460%_)))) (if (gx#stx-pair? - _%tl9151691584%_) - (let ((_%e9151791587%_ + _%tl9239992467%_) + (let ((_%e9240092470%_ (gx#syntax-e - _%tl9151691584%_))) - (let ((_%hd9151891591%_ + _%tl9239992467%_))) + (let ((_%hd9240192474%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9151791587%_))) - (_%tl9151991594%_ - (let () (declare (not safe)) (##cdr _%e9151791587%_)))) - (if (gx#stx-pair? _%tl9151991594%_) - (let ((_%e9152091597%_ (gx#syntax-e _%tl9151991594%_))) - (let ((_%hd9152191601%_ + (##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 _%e9152091597%_))) - (_%tl9152291604%_ + (##car _%e9240392480%_))) + (_%tl9240592487%_ (let () (declare (not safe)) - (##cdr _%e9152091597%_)))) - (if (gx#stx-pair? _%tl9152291604%_) - (let ((_%e9152391607%_ - (gx#syntax-e _%tl9152291604%_))) - (let ((_%hd9152491611%_ + (##cdr _%e9240392480%_)))) + (if (gx#stx-pair? _%tl9240592487%_) + (let ((_%e9240692490%_ + (gx#syntax-e _%tl9240592487%_))) + (let ((_%hd9240792494%_ (let () (declare (not safe)) - (##car _%e9152391607%_))) - (_%tl9152591614%_ + (##car _%e9240692490%_))) + (_%tl9240892497%_ (let () (declare (not safe)) - (##cdr _%e9152391607%_)))) - (if (gx#stx-pair? _%tl9152591614%_) - (let ((_%e9152691617%_ - (gx#syntax-e _%tl9152591614%_))) - (let ((_%hd9152791621%_ + (##cdr _%e9240692490%_)))) + (if (gx#stx-pair? _%tl9240892497%_) + (let ((_%e9240992500%_ + (gx#syntax-e _%tl9240892497%_))) + (let ((_%hd9241092504%_ (let () (declare (not safe)) - (##car _%e9152691617%_))) - (_%tl9152891624%_ + (##car _%e9240992500%_))) + (_%tl9241192507%_ (let () (declare (not safe)) - (##cdr _%e9152691617%_)))) - (if (gx#stx-pair? _%tl9152891624%_) - (let ((_%e9152991627%_ + (##cdr _%e9240992500%_)))) + (if (gx#stx-pair? _%tl9241192507%_) + (let ((_%e9241292510%_ (gx#syntax-e - _%tl9152891624%_))) - (let ((_%hd9153091631%_ + _%tl9241192507%_))) + (let ((_%hd9241392514%_ (let () (declare (not safe)) - (##car _%e9152991627%_))) - (_%tl9153191634%_ + (##car _%e9241292510%_))) + (_%tl9241492517%_ (let () (declare (not safe)) - (##cdr _%e9152991627%_)))) + (##cdr _%e9241292510%_)))) (if (gx#stx-pair? - _%tl9153191634%_) - (let ((_%e9153291637%_ + _%tl9241492517%_) + (let ((_%e9241592520%_ (gx#syntax-e - _%tl9153191634%_))) - (let ((_%hd9153391641%_ + _%tl9241492517%_))) + (let ((_%hd9241692524%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9153291637%_))) - (_%tl9153491644%_ - (let () (declare (not safe)) (##cdr _%e9153291637%_)))) - (if (gx#stx-null? _%tl9153491644%_) - ((lambda (_%L91647%_ - _%L91649%_ - _%L91650%_ - _%L91651%_ - _%L91652%_ - _%L91653%_ - _%L91654%_ - _%L91655%_ - _%L91656%_) + (##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 _%L91656%_ + (cons (cons _%L92539%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -192,14 +192,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size-hint) - (cons _%L91649%_ - (cons _%L91647%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'seed) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91655%_ + (cons (cons _%L92538%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -237,8 +237,8 @@ (cons (gx#datum->syntax '#f 'seed) - (cons _%L91649%_ - (cons _%L91647%_ + (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 _%L91654%_ + (cons (cons _%L92537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -289,7 +289,7 @@ 'tab) '())) '()))) - (cons (cons _%L91653%_ + (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 _%L91653%_ + (cons (cons _%L92536%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -339,8 +339,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'seed) - (cons _%L91649%_ - (cons _%L91647%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f @@ -421,10 +421,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L91652%_ + (cons (cons _%L92535%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91652%_ + (cons _%L92535%_ (cons (gx#datum->syntax '#f 'default) @@ -463,25 +463,25 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L91651%_ + (cons (cons _%L92534%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91652%_ + (cons _%L92535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'default) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91651%_ + (cons (cons _%L92534%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91652%_ + (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 _%L91649%_ - (cons _%L91647%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'key) - (cons _%L91652%_ + (cons _%L92535%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -582,7 +582,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91650%_ + (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 _%L91649%_ - (cons _%L91647%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'key) @@ -651,92 +651,92 @@ '()))) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9153391641%_ - _%hd9153091631%_ - _%hd9152791621%_ - _%hd9152491611%_ - _%hd9152191601%_ - _%hd9151891591%_ - _%hd9151591581%_ - _%hd9151291571%_ - _%hd9150991561%_) - (_%g9149491540%_ _%g9149591544%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9149491540%_ - _%g9149591544%_)))) - (_%g9149491540%_ - _%g9149591544%_)))) - (_%g9149491540%_ _%g9149591544%_)))) - (_%g9149491540%_ _%g9149591544%_)))) - (_%g9149491540%_ _%g9149591544%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9149491540%_ - _%g9149591544%_)))) - (_%g9149491540%_ - _%g9149591544%_)))) - (_%g9149491540%_ _%g9149591544%_)))) - (_%g9149491540%_ _%g9149591544%_)))) - (_%g9149491540%_ _%g9149591544%_))))) - (_%g9149391693%_ _%$stx91490%_)))) + _%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 (_%$stx91697%_) - (let* ((_%g9170191723%_ - (lambda (_%g9170291719%_) + (lambda (_%$stx92580%_) + (let* ((_%g9258492606%_ + (lambda (_%g9258592602%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9170291719%_))) - (_%g9170091792%_ - (lambda (_%g9170291727%_) - (if (gx#stx-pair? _%g9170291727%_) - (let ((_%e9170691730%_ (gx#syntax-e _%g9170291727%_))) - (let ((_%hd9170791734%_ + _%g9258592602%_))) + (_%g9258392675%_ + (lambda (_%g9258592610%_) + (if (gx#stx-pair? _%g9258592610%_) + (let ((_%e9258992613%_ (gx#syntax-e _%g9258592610%_))) + (let ((_%hd9259092617%_ (let () (declare (not safe)) - (##car _%e9170691730%_))) - (_%tl9170891737%_ + (##car _%e9258992613%_))) + (_%tl9259192620%_ (let () (declare (not safe)) - (##cdr _%e9170691730%_)))) - (if (gx#stx-pair? _%tl9170891737%_) - (let ((_%e9170991740%_ - (gx#syntax-e _%tl9170891737%_))) - (let ((_%hd9171091744%_ + (##cdr _%e9258992613%_)))) + (if (gx#stx-pair? _%tl9259192620%_) + (let ((_%e9259292623%_ + (gx#syntax-e _%tl9259192620%_))) + (let ((_%hd9259392627%_ (let () (declare (not safe)) - (##car _%e9170991740%_))) - (_%tl9171191747%_ + (##car _%e9259292623%_))) + (_%tl9259492630%_ (let () (declare (not safe)) - (##cdr _%e9170991740%_)))) - (if (gx#stx-pair? _%tl9171191747%_) - (let ((_%e9171291750%_ - (gx#syntax-e _%tl9171191747%_))) - (let ((_%hd9171391754%_ + (##cdr _%e9259292623%_)))) + (if (gx#stx-pair? _%tl9259492630%_) + (let ((_%e9259592633%_ + (gx#syntax-e _%tl9259492630%_))) + (let ((_%hd9259692637%_ (let () (declare (not safe)) - (##car _%e9171291750%_))) - (_%tl9171491757%_ + (##car _%e9259592633%_))) + (_%tl9259792640%_ (let () (declare (not safe)) - (##cdr _%e9171291750%_)))) - (if (gx#stx-pair? _%tl9171491757%_) - (let ((_%e9171591760%_ + (##cdr _%e9259592633%_)))) + (if (gx#stx-pair? _%tl9259792640%_) + (let ((_%e9259892643%_ (gx#syntax-e - _%tl9171491757%_))) - (let ((_%hd9171691764%_ + _%tl9259792640%_))) + (let ((_%hd9259992647%_ (let () (declare (not safe)) - (##car _%e9171591760%_))) - (_%tl9171791767%_ + (##car _%e9259892643%_))) + (_%tl9260092650%_ (let () (declare (not safe)) - (##cdr _%e9171591760%_)))) + (##cdr _%e9259892643%_)))) (if (gx#stx-null? - _%tl9171791767%_) - ((lambda (_%L91770%_ - _%L91772%_ - _%L91773%_) + _%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 _%L91773%_ - (cons _%L91772%_ + (cons _%L92656%_ + (cons _%L92655%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L91772%_ (cons _%L91772%_ '()))) + (cons _%L92655%_ (cons _%L92655%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L91770%_ '()))) + (cons _%L92653%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9171691764%_ - _%hd9171391754%_ - _%hd9171091744%_) - (_%g9170191723%_ - _%g9170291727%_)))) - (_%g9170191723%_ - _%g9170291727%_)))) - (_%g9170191723%_ _%g9170291727%_)))) - (_%g9170191723%_ _%g9170291727%_)))) - (_%g9170191723%_ _%g9170291727%_))))) - (_%g9170091792%_ _%$stx91697%_)))) + _%hd9259992647%_ + _%hd9259692637%_ + _%hd9259392627%_) + (_%g9258492606%_ + _%g9258592610%_)))) + (_%g9258492606%_ + _%g9258592610%_)))) + (_%g9258492606%_ _%g9258592610%_)))) + (_%g9258492606%_ _%g9258592610%_)))) + (_%g9258492606%_ _%g9258592610%_))))) + (_%g9258392675%_ _%$stx92580%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx91796%_) - (let* ((_%g9180091834%_ - (lambda (_%g9180191830%_) + (lambda (_%$stx92679%_) + (let* ((_%g9268392717%_ + (lambda (_%g9268492713%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9180191830%_))) - (_%g9179991945%_ - (lambda (_%g9180191838%_) - (if (gx#stx-pair? _%g9180191838%_) - (let ((_%e9180891841%_ (gx#syntax-e _%g9180191838%_))) - (let ((_%hd9180991845%_ + _%g9268492713%_))) + (_%g9268292828%_ + (lambda (_%g9268492721%_) + (if (gx#stx-pair? _%g9268492721%_) + (let ((_%e9269192724%_ (gx#syntax-e _%g9268492721%_))) + (let ((_%hd9269292728%_ (let () (declare (not safe)) - (##car _%e9180891841%_))) - (_%tl9181091848%_ + (##car _%e9269192724%_))) + (_%tl9269392731%_ (let () (declare (not safe)) - (##cdr _%e9180891841%_)))) - (if (gx#stx-pair? _%tl9181091848%_) - (let ((_%e9181191851%_ - (gx#syntax-e _%tl9181091848%_))) - (let ((_%hd9181291855%_ + (##cdr _%e9269192724%_)))) + (if (gx#stx-pair? _%tl9269392731%_) + (let ((_%e9269492734%_ + (gx#syntax-e _%tl9269392731%_))) + (let ((_%hd9269592738%_ (let () (declare (not safe)) - (##car _%e9181191851%_))) - (_%tl9181391858%_ + (##car _%e9269492734%_))) + (_%tl9269692741%_ (let () (declare (not safe)) - (##cdr _%e9181191851%_)))) - (if (gx#stx-pair? _%tl9181391858%_) - (let ((_%e9181491861%_ - (gx#syntax-e _%tl9181391858%_))) - (let ((_%hd9181591865%_ + (##cdr _%e9269492734%_)))) + (if (gx#stx-pair? _%tl9269692741%_) + (let ((_%e9269792744%_ + (gx#syntax-e _%tl9269692741%_))) + (let ((_%hd9269892748%_ (let () (declare (not safe)) - (##car _%e9181491861%_))) - (_%tl9181691868%_ + (##car _%e9269792744%_))) + (_%tl9269992751%_ (let () (declare (not safe)) - (##cdr _%e9181491861%_)))) - (if (gx#stx-pair? _%tl9181691868%_) - (let ((_%e9181791871%_ + (##cdr _%e9269792744%_)))) + (if (gx#stx-pair? _%tl9269992751%_) + (let ((_%e9270092754%_ (gx#syntax-e - _%tl9181691868%_))) - (let ((_%hd9181891875%_ + _%tl9269992751%_))) + (let ((_%hd9270192758%_ (let () (declare (not safe)) - (##car _%e9181791871%_))) - (_%tl9181991878%_ + (##car _%e9270092754%_))) + (_%tl9270292761%_ (let () (declare (not safe)) - (##cdr _%e9181791871%_)))) + (##cdr _%e9270092754%_)))) (if (gx#stx-pair? - _%tl9181991878%_) - (let ((_%e9182091881%_ + _%tl9270292761%_) + (let ((_%e9270392764%_ (gx#syntax-e - _%tl9181991878%_))) - (let ((_%hd9182191885%_ + _%tl9270292761%_))) + (let ((_%hd9270492768%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9182091881%_))) - (_%tl9182291888%_ - (let () (declare (not safe)) (##cdr _%e9182091881%_)))) - (if (gx#stx-pair? _%tl9182291888%_) - (let ((_%e9182391891%_ (gx#syntax-e _%tl9182291888%_))) - (let ((_%hd9182491895%_ + (##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 _%e9182391891%_))) - (_%tl9182591898%_ + (##car _%e9270692774%_))) + (_%tl9270892781%_ (let () (declare (not safe)) - (##cdr _%e9182391891%_)))) - (if (gx#stx-pair? _%tl9182591898%_) - (let ((_%e9182691901%_ - (gx#syntax-e _%tl9182591898%_))) - (let ((_%hd9182791905%_ + (##cdr _%e9270692774%_)))) + (if (gx#stx-pair? _%tl9270892781%_) + (let ((_%e9270992784%_ + (gx#syntax-e _%tl9270892781%_))) + (let ((_%hd9271092788%_ (let () (declare (not safe)) - (##car _%e9182691901%_))) - (_%tl9182891908%_ + (##car _%e9270992784%_))) + (_%tl9271192791%_ (let () (declare (not safe)) - (##cdr _%e9182691901%_)))) - (if (gx#stx-null? _%tl9182891908%_) - ((lambda (_%L91911%_ - _%L91913%_ - _%L91914%_ - _%L91915%_ - _%L91916%_ - _%L91917%_) + (##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 _%L91915%_ - (cons _%L91913%_ '())) - (cons _%L91916%_ '()))) + (cons (cons _%L92798%_ + (cons _%L92796%_ '())) + (cons _%L92799%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L91917%_ '())) + (cons _%L92800%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -933,7 +933,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L91917%_ + (cons _%L92800%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -948,7 +948,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L91911%_ '())) + (cons _%L92794%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -983,8 +983,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L91914%_ - (cons _%L91913%_ + (cons (cons (cons _%L92797%_ + (cons _%L92796%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L91917%_ + (cons _%L92800%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -1029,145 +1029,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9182791905%_ - _%hd9182491895%_ - _%hd9182191885%_ - _%hd9181891875%_ - _%hd9181591865%_ - _%hd9181291855%_) - (_%g9180091834%_ _%g9180191838%_)))) - (_%g9180091834%_ _%g9180191838%_)))) - (_%g9180091834%_ _%g9180191838%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9180091834%_ - _%g9180191838%_)))) - (_%g9180091834%_ - _%g9180191838%_)))) - (_%g9180091834%_ _%g9180191838%_)))) - (_%g9180091834%_ _%g9180191838%_)))) - (_%g9180091834%_ _%g9180191838%_))))) - (_%g9179991945%_ _%$stx91796%_)))) + _%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 (_%$stx91949%_) - (let* ((_%g9195391995%_ - (lambda (_%g9195491991%_) + (lambda (_%$stx92832%_) + (let* ((_%g9283692878%_ + (lambda (_%g9283792874%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9195491991%_))) - (_%g9195292134%_ - (lambda (_%g9195491999%_) - (if (gx#stx-pair? _%g9195491999%_) - (let ((_%e9196392002%_ (gx#syntax-e _%g9195491999%_))) - (let ((_%hd9196492006%_ + _%g9283792874%_))) + (_%g9283593017%_ + (lambda (_%g9283792882%_) + (if (gx#stx-pair? _%g9283792882%_) + (let ((_%e9284692885%_ (gx#syntax-e _%g9283792882%_))) + (let ((_%hd9284792889%_ (let () (declare (not safe)) - (##car _%e9196392002%_))) - (_%tl9196592009%_ + (##car _%e9284692885%_))) + (_%tl9284892892%_ (let () (declare (not safe)) - (##cdr _%e9196392002%_)))) - (if (gx#stx-pair? _%tl9196592009%_) - (let ((_%e9196692012%_ - (gx#syntax-e _%tl9196592009%_))) - (let ((_%hd9196792016%_ + (##cdr _%e9284692885%_)))) + (if (gx#stx-pair? _%tl9284892892%_) + (let ((_%e9284992895%_ + (gx#syntax-e _%tl9284892892%_))) + (let ((_%hd9285092899%_ (let () (declare (not safe)) - (##car _%e9196692012%_))) - (_%tl9196892019%_ + (##car _%e9284992895%_))) + (_%tl9285192902%_ (let () (declare (not safe)) - (##cdr _%e9196692012%_)))) - (if (gx#stx-pair? _%tl9196892019%_) - (let ((_%e9196992022%_ - (gx#syntax-e _%tl9196892019%_))) - (let ((_%hd9197092026%_ + (##cdr _%e9284992895%_)))) + (if (gx#stx-pair? _%tl9285192902%_) + (let ((_%e9285292905%_ + (gx#syntax-e _%tl9285192902%_))) + (let ((_%hd9285392909%_ (let () (declare (not safe)) - (##car _%e9196992022%_))) - (_%tl9197192029%_ + (##car _%e9285292905%_))) + (_%tl9285492912%_ (let () (declare (not safe)) - (##cdr _%e9196992022%_)))) - (if (gx#stx-pair? _%tl9197192029%_) - (let ((_%e9197292032%_ + (##cdr _%e9285292905%_)))) + (if (gx#stx-pair? _%tl9285492912%_) + (let ((_%e9285592915%_ (gx#syntax-e - _%tl9197192029%_))) - (let ((_%hd9197392036%_ + _%tl9285492912%_))) + (let ((_%hd9285692919%_ (let () (declare (not safe)) - (##car _%e9197292032%_))) - (_%tl9197492039%_ + (##car _%e9285592915%_))) + (_%tl9285792922%_ (let () (declare (not safe)) - (##cdr _%e9197292032%_)))) + (##cdr _%e9285592915%_)))) (if (gx#stx-pair? - _%tl9197492039%_) - (let ((_%e9197592042%_ + _%tl9285792922%_) + (let ((_%e9285892925%_ (gx#syntax-e - _%tl9197492039%_))) - (let ((_%hd9197692046%_ + _%tl9285792922%_))) + (let ((_%hd9285992929%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9197592042%_))) - (_%tl9197792049%_ - (let () (declare (not safe)) (##cdr _%e9197592042%_)))) - (if (gx#stx-pair? _%tl9197792049%_) - (let ((_%e9197892052%_ (gx#syntax-e _%tl9197792049%_))) - (let ((_%hd9197992056%_ + (##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 _%e9197892052%_))) - (_%tl9198092059%_ + (##car _%e9286192935%_))) + (_%tl9286392942%_ (let () (declare (not safe)) - (##cdr _%e9197892052%_)))) - (if (gx#stx-pair? _%tl9198092059%_) - (let ((_%e9198192062%_ - (gx#syntax-e _%tl9198092059%_))) - (let ((_%hd9198292066%_ + (##cdr _%e9286192935%_)))) + (if (gx#stx-pair? _%tl9286392942%_) + (let ((_%e9286492945%_ + (gx#syntax-e _%tl9286392942%_))) + (let ((_%hd9286592949%_ (let () (declare (not safe)) - (##car _%e9198192062%_))) - (_%tl9198392069%_ + (##car _%e9286492945%_))) + (_%tl9286692952%_ (let () (declare (not safe)) - (##cdr _%e9198192062%_)))) - (if (gx#stx-pair? _%tl9198392069%_) - (let ((_%e9198492072%_ - (gx#syntax-e _%tl9198392069%_))) - (let ((_%hd9198592076%_ + (##cdr _%e9286492945%_)))) + (if (gx#stx-pair? _%tl9286692952%_) + (let ((_%e9286792955%_ + (gx#syntax-e _%tl9286692952%_))) + (let ((_%hd9286892959%_ (let () (declare (not safe)) - (##car _%e9198492072%_))) - (_%tl9198692079%_ + (##car _%e9286792955%_))) + (_%tl9286992962%_ (let () (declare (not safe)) - (##cdr _%e9198492072%_)))) - (if (gx#stx-pair? _%tl9198692079%_) - (let ((_%e9198792082%_ + (##cdr _%e9286792955%_)))) + (if (gx#stx-pair? _%tl9286992962%_) + (let ((_%e9287092965%_ (gx#syntax-e - _%tl9198692079%_))) - (let ((_%hd9198892086%_ + _%tl9286992962%_))) + (let ((_%hd9287192969%_ (let () (declare (not safe)) - (##car _%e9198792082%_))) - (_%tl9198992089%_ + (##car _%e9287092965%_))) + (_%tl9287292972%_ (let () (declare (not safe)) - (##cdr _%e9198792082%_)))) + (##cdr _%e9287092965%_)))) (if (gx#stx-null? - _%tl9198992089%_) - ((lambda (_%L92092%_ - _%L92094%_ - _%L92095%_ - _%L92096%_ - _%L92097%_ - _%L92098%_ - _%L92099%_ - _%L92100%_) + _%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 _%L92098%_ - (cons _%L92096%_ + (cons (cons _%L92981%_ + (cons _%L92979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L92099%_ '()))) + (cons _%L92982%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L92100%_ '())) + (cons _%L92983%_ '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1246,7 +1246,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92100%_ + (cons _%L92983%_ (cons (gx#datum->syntax '#f 'probe) @@ -1273,41 +1273,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92100%_ + (cons _%L92983%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L92096%_ '())))) + (cons _%L92979%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92100%_ + (cons _%L92983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L92095%_ '())))) - (cons (cons _%L92092%_ '()) '())))) + (cons _%L92978%_ '())))) + (cons (cons _%L92975%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92100%_ + (cons _%L92983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L92096%_ '())))) + (cons _%L92979%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92100%_ + (cons _%L92983%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L92095%_ '())))) - (cons (cons _%L92094%_ '()) '())))) + (cons _%L92978%_ '())))) + (cons (cons _%L92977%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1352,16 +1352,16 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L92097%_ + (cons (cons (cons _%L92980%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92096%_ + (cons _%L92979%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92100%_ + (cons _%L92983%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92096%_ '())))) + (cons _%L92979%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92100%_ + (cons _%L92983%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1370,7 +1370,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L92095%_ '())))) + (cons _%L92978%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1405,173 +1405,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9198892086%_ - _%hd9198592076%_ - _%hd9198292066%_ - _%hd9197992056%_ - _%hd9197692046%_ - _%hd9197392036%_ - _%hd9197092026%_ - _%hd9196792016%_) - (_%g9195391995%_ - _%g9195491999%_)))) - (_%g9195391995%_ - _%g9195491999%_)))) - (_%g9195391995%_ _%g9195491999%_)))) - (_%g9195391995%_ _%g9195491999%_)))) - (_%g9195391995%_ _%g9195491999%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9195391995%_ - _%g9195491999%_)))) - (_%g9195391995%_ - _%g9195491999%_)))) - (_%g9195391995%_ _%g9195491999%_)))) - (_%g9195391995%_ _%g9195491999%_)))) - (_%g9195391995%_ _%g9195491999%_))))) - (_%g9195292134%_ _%$stx91949%_)))) + _%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 (_%$stx92138%_) - (let* ((_%g9214292188%_ - (lambda (_%g9214392184%_) + (lambda (_%$stx93021%_) + (let* ((_%g9302593071%_ + (lambda (_%g9302693067%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9214392184%_))) - (_%g9214192341%_ - (lambda (_%g9214392192%_) - (if (gx#stx-pair? _%g9214392192%_) - (let ((_%e9215392195%_ (gx#syntax-e _%g9214392192%_))) - (let ((_%hd9215492199%_ + _%g9302693067%_))) + (_%g9302493224%_ + (lambda (_%g9302693075%_) + (if (gx#stx-pair? _%g9302693075%_) + (let ((_%e9303693078%_ (gx#syntax-e _%g9302693075%_))) + (let ((_%hd9303793082%_ (let () (declare (not safe)) - (##car _%e9215392195%_))) - (_%tl9215592202%_ + (##car _%e9303693078%_))) + (_%tl9303893085%_ (let () (declare (not safe)) - (##cdr _%e9215392195%_)))) - (if (gx#stx-pair? _%tl9215592202%_) - (let ((_%e9215692205%_ - (gx#syntax-e _%tl9215592202%_))) - (let ((_%hd9215792209%_ + (##cdr _%e9303693078%_)))) + (if (gx#stx-pair? _%tl9303893085%_) + (let ((_%e9303993088%_ + (gx#syntax-e _%tl9303893085%_))) + (let ((_%hd9304093092%_ (let () (declare (not safe)) - (##car _%e9215692205%_))) - (_%tl9215892212%_ + (##car _%e9303993088%_))) + (_%tl9304193095%_ (let () (declare (not safe)) - (##cdr _%e9215692205%_)))) - (if (gx#stx-pair? _%tl9215892212%_) - (let ((_%e9215992215%_ - (gx#syntax-e _%tl9215892212%_))) - (let ((_%hd9216092219%_ + (##cdr _%e9303993088%_)))) + (if (gx#stx-pair? _%tl9304193095%_) + (let ((_%e9304293098%_ + (gx#syntax-e _%tl9304193095%_))) + (let ((_%hd9304393102%_ (let () (declare (not safe)) - (##car _%e9215992215%_))) - (_%tl9216192222%_ + (##car _%e9304293098%_))) + (_%tl9304493105%_ (let () (declare (not safe)) - (##cdr _%e9215992215%_)))) - (if (gx#stx-pair? _%tl9216192222%_) - (let ((_%e9216292225%_ + (##cdr _%e9304293098%_)))) + (if (gx#stx-pair? _%tl9304493105%_) + (let ((_%e9304593108%_ (gx#syntax-e - _%tl9216192222%_))) - (let ((_%hd9216392229%_ + _%tl9304493105%_))) + (let ((_%hd9304693112%_ (let () (declare (not safe)) - (##car _%e9216292225%_))) - (_%tl9216492232%_ + (##car _%e9304593108%_))) + (_%tl9304793115%_ (let () (declare (not safe)) - (##cdr _%e9216292225%_)))) + (##cdr _%e9304593108%_)))) (if (gx#stx-pair? - _%tl9216492232%_) - (let ((_%e9216592235%_ + _%tl9304793115%_) + (let ((_%e9304893118%_ (gx#syntax-e - _%tl9216492232%_))) - (let ((_%hd9216692239%_ + _%tl9304793115%_))) + (let ((_%hd9304993122%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9216592235%_))) - (_%tl9216792242%_ - (let () (declare (not safe)) (##cdr _%e9216592235%_)))) - (if (gx#stx-pair? _%tl9216792242%_) - (let ((_%e9216892245%_ (gx#syntax-e _%tl9216792242%_))) - (let ((_%hd9216992249%_ + (##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 _%e9216892245%_))) - (_%tl9217092252%_ + (##car _%e9305193128%_))) + (_%tl9305393135%_ (let () (declare (not safe)) - (##cdr _%e9216892245%_)))) - (if (gx#stx-pair? _%tl9217092252%_) - (let ((_%e9217192255%_ - (gx#syntax-e _%tl9217092252%_))) - (let ((_%hd9217292259%_ + (##cdr _%e9305193128%_)))) + (if (gx#stx-pair? _%tl9305393135%_) + (let ((_%e9305493138%_ + (gx#syntax-e _%tl9305393135%_))) + (let ((_%hd9305593142%_ (let () (declare (not safe)) - (##car _%e9217192255%_))) - (_%tl9217392262%_ + (##car _%e9305493138%_))) + (_%tl9305693145%_ (let () (declare (not safe)) - (##cdr _%e9217192255%_)))) - (if (gx#stx-pair? _%tl9217392262%_) - (let ((_%e9217492265%_ - (gx#syntax-e _%tl9217392262%_))) - (let ((_%hd9217592269%_ + (##cdr _%e9305493138%_)))) + (if (gx#stx-pair? _%tl9305693145%_) + (let ((_%e9305793148%_ + (gx#syntax-e _%tl9305693145%_))) + (let ((_%hd9305893152%_ (let () (declare (not safe)) - (##car _%e9217492265%_))) - (_%tl9217692272%_ + (##car _%e9305793148%_))) + (_%tl9305993155%_ (let () (declare (not safe)) - (##cdr _%e9217492265%_)))) - (if (gx#stx-pair? _%tl9217692272%_) - (let ((_%e9217792275%_ + (##cdr _%e9305793148%_)))) + (if (gx#stx-pair? _%tl9305993155%_) + (let ((_%e9306093158%_ (gx#syntax-e - _%tl9217692272%_))) - (let ((_%hd9217892279%_ + _%tl9305993155%_))) + (let ((_%hd9306193162%_ (let () (declare (not safe)) - (##car _%e9217792275%_))) - (_%tl9217992282%_ + (##car _%e9306093158%_))) + (_%tl9306293165%_ (let () (declare (not safe)) - (##cdr _%e9217792275%_)))) + (##cdr _%e9306093158%_)))) (if (gx#stx-pair? - _%tl9217992282%_) - (let ((_%e9218092285%_ + _%tl9306293165%_) + (let ((_%e9306393168%_ (gx#syntax-e - _%tl9217992282%_))) - (let ((_%hd9218192289%_ + _%tl9306293165%_))) + (let ((_%hd9306493172%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9218092285%_))) - (_%tl9218292292%_ - (let () (declare (not safe)) (##cdr _%e9218092285%_)))) - (if (gx#stx-null? _%tl9218292292%_) - ((lambda (_%L92295%_ - _%L92297%_ - _%L92298%_ - _%L92299%_ - _%L92300%_ - _%L92301%_ - _%L92302%_ - _%L92303%_ - _%L92304%_) + (##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 _%L92302%_ + (cons (cons _%L93185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92300%_ '())) - (cons _%L92303%_ '()))) + (cons _%L93183%_ '())) + (cons _%L93186%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1581,7 +1581,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L92304%_ '())) + (cons _%L93187%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1634,7 +1634,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92304%_ + (cons _%L93187%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1661,21 +1661,21 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92304%_ + (cons _%L93187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L92300%_ '())))) + (cons _%L93183%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92304%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L92299%_ - (cons _%L92298%_ '())) + (cons (cons _%L93182%_ + (cons _%L93181%_ '())) '())))) - (cons (cons _%L92295%_ '()) '())))) + (cons (cons _%L93178%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1684,11 +1684,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L92304%_ + (cons _%L93187%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92300%_ '())))) + (cons _%L93183%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92304%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1696,13 +1696,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L92299%_ - (cons _%L92298%_ + (cons (cons _%L93182%_ + (cons _%L93181%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L92297%_ '()) '())))) + (cons (cons _%L93180%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1747,34 +1747,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92301%_ - (cons _%L92300%_ + (cons (cons (cons _%L93184%_ + (cons _%L93183%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92304%_ + (cons _%L93187%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92300%_ + (cons _%L93183%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92304%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L92299%_ + (cons (cons _%L93182%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92304%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1808,128 +1808,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9218192289%_ - _%hd9217892279%_ - _%hd9217592269%_ - _%hd9217292259%_ - _%hd9216992249%_ - _%hd9216692239%_ - _%hd9216392229%_ - _%hd9216092219%_ - _%hd9215792209%_) - (_%g9214292188%_ _%g9214392192%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9214292188%_ - _%g9214392192%_)))) - (_%g9214292188%_ - _%g9214392192%_)))) - (_%g9214292188%_ _%g9214392192%_)))) - (_%g9214292188%_ _%g9214392192%_)))) - (_%g9214292188%_ _%g9214392192%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9214292188%_ - _%g9214392192%_)))) - (_%g9214292188%_ - _%g9214392192%_)))) - (_%g9214292188%_ _%g9214392192%_)))) - (_%g9214292188%_ _%g9214392192%_)))) - (_%g9214292188%_ _%g9214392192%_))))) - (_%g9214192341%_ _%$stx92138%_)))) + _%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 (_%$stx92345%_) - (let* ((_%g9234992383%_ - (lambda (_%g9235092379%_) + (lambda (_%$stx93228%_) + (let* ((_%g9323293266%_ + (lambda (_%g9323393262%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9235092379%_))) - (_%g9234892494%_ - (lambda (_%g9235092387%_) - (if (gx#stx-pair? _%g9235092387%_) - (let ((_%e9235792390%_ (gx#syntax-e _%g9235092387%_))) - (let ((_%hd9235892394%_ + _%g9323393262%_))) + (_%g9323193377%_ + (lambda (_%g9323393270%_) + (if (gx#stx-pair? _%g9323393270%_) + (let ((_%e9324093273%_ (gx#syntax-e _%g9323393270%_))) + (let ((_%hd9324193277%_ (let () (declare (not safe)) - (##car _%e9235792390%_))) - (_%tl9235992397%_ + (##car _%e9324093273%_))) + (_%tl9324293280%_ (let () (declare (not safe)) - (##cdr _%e9235792390%_)))) - (if (gx#stx-pair? _%tl9235992397%_) - (let ((_%e9236092400%_ - (gx#syntax-e _%tl9235992397%_))) - (let ((_%hd9236192404%_ + (##cdr _%e9324093273%_)))) + (if (gx#stx-pair? _%tl9324293280%_) + (let ((_%e9324393283%_ + (gx#syntax-e _%tl9324293280%_))) + (let ((_%hd9324493287%_ (let () (declare (not safe)) - (##car _%e9236092400%_))) - (_%tl9236292407%_ + (##car _%e9324393283%_))) + (_%tl9324593290%_ (let () (declare (not safe)) - (##cdr _%e9236092400%_)))) - (if (gx#stx-pair? _%tl9236292407%_) - (let ((_%e9236392410%_ - (gx#syntax-e _%tl9236292407%_))) - (let ((_%hd9236492414%_ + (##cdr _%e9324393283%_)))) + (if (gx#stx-pair? _%tl9324593290%_) + (let ((_%e9324693293%_ + (gx#syntax-e _%tl9324593290%_))) + (let ((_%hd9324793297%_ (let () (declare (not safe)) - (##car _%e9236392410%_))) - (_%tl9236592417%_ + (##car _%e9324693293%_))) + (_%tl9324893300%_ (let () (declare (not safe)) - (##cdr _%e9236392410%_)))) - (if (gx#stx-pair? _%tl9236592417%_) - (let ((_%e9236692420%_ + (##cdr _%e9324693293%_)))) + (if (gx#stx-pair? _%tl9324893300%_) + (let ((_%e9324993303%_ (gx#syntax-e - _%tl9236592417%_))) - (let ((_%hd9236792424%_ + _%tl9324893300%_))) + (let ((_%hd9325093307%_ (let () (declare (not safe)) - (##car _%e9236692420%_))) - (_%tl9236892427%_ + (##car _%e9324993303%_))) + (_%tl9325193310%_ (let () (declare (not safe)) - (##cdr _%e9236692420%_)))) + (##cdr _%e9324993303%_)))) (if (gx#stx-pair? - _%tl9236892427%_) - (let ((_%e9236992430%_ + _%tl9325193310%_) + (let ((_%e9325293313%_ (gx#syntax-e - _%tl9236892427%_))) - (let ((_%hd9237092434%_ + _%tl9325193310%_))) + (let ((_%hd9325393317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9236992430%_))) - (_%tl9237192437%_ - (let () (declare (not safe)) (##cdr _%e9236992430%_)))) - (if (gx#stx-pair? _%tl9237192437%_) - (let ((_%e9237292440%_ (gx#syntax-e _%tl9237192437%_))) - (let ((_%hd9237392444%_ + (##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 _%e9237292440%_))) - (_%tl9237492447%_ + (##car _%e9325593323%_))) + (_%tl9325793330%_ (let () (declare (not safe)) - (##cdr _%e9237292440%_)))) - (if (gx#stx-pair? _%tl9237492447%_) - (let ((_%e9237592450%_ - (gx#syntax-e _%tl9237492447%_))) - (let ((_%hd9237692454%_ + (##cdr _%e9325593323%_)))) + (if (gx#stx-pair? _%tl9325793330%_) + (let ((_%e9325893333%_ + (gx#syntax-e _%tl9325793330%_))) + (let ((_%hd9325993337%_ (let () (declare (not safe)) - (##car _%e9237592450%_))) - (_%tl9237792457%_ + (##car _%e9325893333%_))) + (_%tl9326093340%_ (let () (declare (not safe)) - (##cdr _%e9237592450%_)))) - (if (gx#stx-null? _%tl9237792457%_) - ((lambda (_%L92460%_ - _%L92462%_ - _%L92463%_ - _%L92464%_ - _%L92465%_ - _%L92466%_) + (##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 _%L92464%_ - (cons _%L92462%_ '())) - (cons _%L92465%_ '()))) + (cons (cons _%L93347%_ + (cons _%L93345%_ '())) + (cons _%L93348%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L92466%_ '())) + (cons _%L93349%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1993,7 +1993,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L92466%_ + (cons _%L93349%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2039,8 +2039,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92463%_ - (cons _%L92462%_ + (cons (cons (cons _%L93346%_ + (cons _%L93345%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2050,7 +2050,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92466%_ + (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 _%L92466%_ + (cons _%L93349%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2070,7 +2070,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L92460%_ '()) '())))) + (cons (cons _%L93343%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2098,21 +2098,21 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9237692454%_ - _%hd9237392444%_ - _%hd9237092434%_ - _%hd9236792424%_ - _%hd9236492414%_ - _%hd9236192404%_) - (_%g9234992383%_ _%g9235092387%_)))) - (_%g9234992383%_ _%g9235092387%_)))) - (_%g9234992383%_ _%g9235092387%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9234992383%_ - _%g9235092387%_)))) - (_%g9234992383%_ - _%g9235092387%_)))) - (_%g9234992383%_ _%g9235092387%_)))) - (_%g9234992383%_ _%g9235092387%_)))) - (_%g9234992383%_ _%g9235092387%_))))) - (_%g9234892494%_ _%$stx92345%_))))) + _%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 0e1e05937..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 1734131746) + (define gerbil/runtime/thread::timestamp 1734357961) (begin (define spawn - (lambda (_%f110818%_ . _%args110819%_) - (if (procedure? _%f110818%_) - (let ((_%f110823%_ _%f110818%_)) + (lambda (_%f111803%_ . _%args111804%_) + (if (procedure? _%f111803%_) + (let ((_%f111808%_ _%f111803%_)) (declare (not safe)) - (##apply __spawn _%f110823%_ _%args110819%_)) + (##apply __spawn _%f111808%_ _%args111804%_)) (begin (raise-contract-violation-error '"contract violation" @@ -16,18 +16,18 @@ 'contract: 'procedure? 'value: - _%f110818%_) + _%f111803%_) '#!void)))) (define __spawn - (lambda (_%f110805%_ . _%args110806%_) - (let ((_%f110809%_ _%f110805%_)) - (spawn-actor _%f110809%_ _%args110806%_ '#!void '#f)))) + (lambda (_%f111790%_ . _%args111791%_) + (let ((_%f111794%_ _%f111790%_)) + (spawn-actor _%f111794%_ _%args111791%_ '#!void '#f)))) (define spawn/name - (lambda (_%name110789%_ _%f110790%_ . _%args110791%_) - (if (procedure? _%f110790%_) - (let ((_%f110795%_ _%f110790%_)) + (lambda (_%name111774%_ _%f111775%_ . _%args111776%_) + (if (procedure? _%f111775%_) + (let ((_%f111780%_ _%f111775%_)) (declare (not safe)) - (##apply __spawn/name _%name110789%_ _%f110795%_ _%args110791%_)) + (##apply __spawn/name _%name111774%_ _%f111780%_ _%args111776%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,21 +36,21 @@ 'contract: 'procedure? 'value: - _%f110790%_) + _%f111775%_) '#!void)))) (define __spawn/name - (lambda (_%name110775%_ _%f110776%_ . _%args110777%_) - (let ((_%f110780%_ _%f110776%_)) - (spawn-actor _%f110780%_ _%args110777%_ _%name110775%_ '#f)))) + (lambda (_%name111760%_ _%f111761%_ . _%args111762%_) + (let ((_%f111765%_ _%f111761%_)) + (spawn-actor _%f111765%_ _%args111762%_ _%name111760%_ '#f)))) (define spawn/group - (lambda (_%name110759%_ _%f110760%_ . _%args110761%_) - (if (procedure? _%f110760%_) - (let ((_%f110765%_ _%f110760%_)) + (lambda (_%name111744%_ _%f111745%_ . _%args111746%_) + (if (procedure? _%f111745%_) + (let ((_%f111750%_ _%f111745%_)) (declare (not safe)) (##apply __spawn/group - _%name110759%_ - _%f110765%_ - _%args110761%_)) + _%name111744%_ + _%f111750%_ + _%args111746%_)) (begin (raise-contract-violation-error '"contract violation" @@ -59,148 +59,148 @@ 'contract: 'procedure? 'value: - _%f110760%_) + _%f111745%_) '#!void)))) (define __spawn/group - (lambda (_%name110743%_ _%f110744%_ . _%args110745%_) - (let* ((_%f110748%_ _%f110744%_) - (_%tgroup110757%_ (make-thread-group _%name110743%_))) + (lambda (_%name111728%_ _%f111729%_ . _%args111730%_) + (let* ((_%f111733%_ _%f111729%_) + (_%tgroup111742%_ (make-thread-group _%name111728%_))) (spawn-actor - _%f110748%_ - _%args110745%_ - _%name110743%_ - _%tgroup110757%_)))) + _%f111733%_ + _%args111730%_ + _%name111728%_ + _%tgroup111742%_)))) (define spawn-actor - (lambda (_%f110715%_ _%args110716%_ _%name110717%_ _%tgroup110718%_) - (letrec ((_%thread-main110721%_ - (lambda (_%thunk110735%_) + (lambda (_%f111700%_ _%args111701%_ _%name111702%_ _%tgroup111703%_) + (letrec ((_%thread-main111706%_ + (lambda (_%thunk111720%_) (lambda () - (let ((__tmp110832 - (lambda (_%exn110738%_) - (let ((__tmp110833 - (lambda (_%cont110740%_) + (let ((__tmp111817 + (lambda (_%exn111723%_) + (let ((__tmp111818 + (lambda (_%cont111725%_) (if unhandled-actor-exception-hook - (let ((__tmp110834 + (let ((__tmp111819 (lambda () (__unhandled-actor-exception-hook - _%cont110740%_ - _%exn110738%_)))) + _%cont111725%_ + _%exn111723%_)))) (declare (not safe)) - (__with-catch void __tmp110834)) + (__with-catch void __tmp111819)) '#!void) - (let ((__tmp110835 + (let ((__tmp111820 (let () (declare (not safe)) (##continuation-last - _%cont110740%_)))) + _%cont111725%_)))) (declare (not safe)) (##continuation-graft - __tmp110835 + __tmp111820 ##primordial-exception-handler - _%exn110738%_))))) + _%exn111723%_))))) (declare (not safe)) - (##continuation-capture __tmp110833))))) + (##continuation-capture __tmp111818))))) (declare (not safe)) (with-exception-handler - __tmp110832 - _%thunk110735%_)))))) - (let* ((_%thunk110724%_ - (if (null? _%args110716%_) - _%f110715%_ - (lambda () (apply _%f110715%_ _%args110716%_)))) - (_%thunk110727%_ - (lambda () (with-exception-stack-trace__0 _%thunk110724%_))) - (_%tgroup110732%_ - (let ((_%$e110729%_ _%tgroup110718%_)) - (if _%$e110729%_ _%$e110729%_ (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-main110721%_ _%thunk110727%_) - _%name110717%_ - _%tgroup110732%_)))))) + (_%thread-main111706%_ _%thunk111712%_) + _%name111702%_ + _%tgroup111717%_)))))) (define spawn-thread__% - (lambda (_%thunk110693%_ _%name110694%_ _%tgroup110695%_) + (lambda (_%thunk111678%_ _%name111679%_ _%tgroup111680%_) (thread-start! - (make-thread _%thunk110693%_ _%name110694%_ _%tgroup110695%_)))) + (make-thread _%thunk111678%_ _%name111679%_ _%tgroup111680%_)))) (define spawn-thread__0 - (lambda (_%thunk110700%_) - (let* ((_%name110702%_ absent-obj) (_%tgroup110704%_ absent-obj)) - (spawn-thread__% _%thunk110700%_ _%name110702%_ _%tgroup110704%_)))) + (lambda (_%thunk111685%_) + (let* ((_%name111687%_ absent-obj) (_%tgroup111689%_ absent-obj)) + (spawn-thread__% _%thunk111685%_ _%name111687%_ _%tgroup111689%_)))) (define spawn-thread__1 - (lambda (_%thunk110706%_ _%name110707%_) - (let ((_%tgroup110709%_ absent-obj)) - (spawn-thread__% _%thunk110706%_ _%name110707%_ _%tgroup110709%_)))) + (lambda (_%thunk111691%_ _%name111692%_) + (let ((_%tgroup111694%_ absent-obj)) + (spawn-thread__% _%thunk111691%_ _%name111692%_ _%tgroup111694%_)))) (define spawn-thread - (lambda _g110837_ - (let ((_g110836_ (let () (declare (not safe)) (##length _g110837_)))) - (cond ((let () (declare (not safe)) (##fx= _g110836_ 1)) - (apply spawn-thread__0 _g110837_)) - ((let () (declare (not safe)) (##fx= _g110836_ 2)) - (apply spawn-thread__1 _g110837_)) - ((let () (declare (not safe)) (##fx= _g110836_ 3)) - (apply spawn-thread__% _g110837_)) + (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 - _g110837_)))))) + _g111822_)))))) (define thread-local-ref__% - (lambda (_%key110677%_ _%default110678%_) - (let ((_%tab110680%_ (thread-local-table))) + (lambda (_%key111662%_ _%default111663%_) + (let ((_%tab111665%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab110680%_ _%key110677%_ _%default110678%_)))) + (hash-ref__% _%tab111665%_ _%key111662%_ _%default111663%_)))) (define thread-local-ref__0 - (lambda (_%key110685%_) - (let ((_%default110687%_ absent-obj)) - (thread-local-ref__% _%key110685%_ _%default110687%_)))) + (lambda (_%key111670%_) + (let ((_%default111672%_ absent-obj)) + (thread-local-ref__% _%key111670%_ _%default111672%_)))) (define thread-local-ref - (lambda _g110839_ - (let ((_g110838_ (let () (declare (not safe)) (##length _g110839_)))) - (cond ((let () (declare (not safe)) (##fx= _g110838_ 1)) - (apply thread-local-ref__0 _g110839_)) - ((let () (declare (not safe)) (##fx= _g110838_ 2)) - (apply thread-local-ref__% _g110839_)) + (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 - _g110839_)))))) + _g111824_)))))) (define thread-local-get - (lambda (_%key110674%_) (thread-local-ref__% _%key110674%_ '#f))) + (lambda (_%key111659%_) (thread-local-ref__% _%key111659%_ '#f))) (define thread-local-set! - (lambda (_%key110669%_ _%value110670%_) - (let ((_%tab110672%_ (thread-local-table))) + (lambda (_%key111654%_ _%value111655%_) + (let ((_%tab111657%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab110672%_ _%key110669%_ _%value110670%_)))) + (hash-put! _%tab111657%_ _%key111654%_ _%value111655%_)))) (define thread-local-delete! - (lambda (_%key110665%_) - (let ((_%tab110667%_ (thread-local-table))) + (lambda (_%key111650%_) + (let ((_%tab111652%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab110667%_ _%key110665%_)))) + (hash-remove! _%tab111652%_ _%key111650%_)))) (define thread-local-table (lambda () - (let ((_%thr110646%_ (current-thread))) - (if (actor-thread? _%thr110646%_) - (let ((_%$e110649%_ (actor-thread-locals _%thr110646%_))) - (if _%$e110649%_ - _%$e110649%_ - (let ((_%tab110653%_ + (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! _%thr110646%_ _%tab110653%_) - _%tab110653%_))) - (if (eq? _%thr110646%_ ##primordial-thread) + (actor-thread-locals-set! _%thr111631%_ _%tab111638%_) + _%tab111638%_))) + (if (eq? _%thr111631%_ ##primordial-thread) __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e110657%_ + (let ((_%$e111642%_ (let () (declare (not safe)) - (__hash-get __thread-locals _%thr110646%_)))) - (if _%$e110657%_ - ((lambda (_%tab110660%_) + (__hash-get __thread-locals _%thr111631%_)))) + (if _%$e111642%_ + ((lambda (_%tab111645%_) (mutex-unlock! __thread-locals-mutex) - _%tab110660%_) - _%$e110657%_) - (let ((_%tab110663%_ + _%tab111645%_) + _%$e111642%_) + (let ((_%tab111648%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -208,10 +208,10 @@ (declare (not safe)) (__hash-put! __thread-locals - _%thr110646%_ - _%tab110663%_)) + _%thr111631%_ + _%tab111648%_)) (mutex-unlock! __thread-locals-mutex) - _%tab110663%_))))))))) + _%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-value110624%_) - (if ((lambda (_%$obj110627%_) - (or (not _%$obj110627%_) (procedure? _%$obj110627%_))) - _%new-value110624%_) - (let ((_%new-value110634%_ _%new-value110624%_)) - (__unhandled-actor-exception-hook-set! _%new-value110634%_)) + (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-value110624%_) + _%new-value111609%_) '#!void)))) (define __unhandled-actor-exception-hook-set! - (lambda (_%new-value110611%_) - (let ((_%new-value110615%_ _%new-value110611%_)) - (set! __unhandled-actor-exception-hook _%new-value110615%_)))) + (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 (_%mx110585%_ _%proc110586%_) - (if (mutex? _%mx110585%_) - (let ((_%mx110590%_ _%mx110585%_)) - (if (procedure? _%proc110586%_) - (let ((_%proc110600%_ _%proc110586%_)) - (__with-lock _%mx110590%_ _%proc110600%_)) + (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: - _%proc110586%_) + _%proc111571%_) '#!void))) (begin (raise-contract-violation-error @@ -268,42 +268,42 @@ 'contract: 'mutex? 'value: - _%mx110585%_) + _%mx111570%_) '#!void)))) (define __with-lock - (lambda (_%mx110556%_ _%proc110557%_) - (let* ((_%mx110560%_ _%mx110556%_) - (_%proc110568%_ _%proc110557%_) - (_%handler110577%_ (current-exception-handler))) - (let ((__tmp110841 - (lambda (_%e110579%_) - (let ((__tmp110842 + (lambda (_%mx111541%_ _%proc111542%_) + (let* ((_%mx111545%_ _%mx111541%_) + (_%proc111553%_ _%proc111542%_) + (_%handler111562%_ (current-exception-handler))) + (let ((__tmp111826 + (lambda (_%e111564%_) + (let ((__tmp111827 (lambda () - (mutex-unlock! _%mx110560%_) + (mutex-unlock! _%mx111545%_) (let () (declare (not safe)) - (_%handler110577%_ _%e110579%_))))) + (_%handler111562%_ _%e111564%_))))) (declare (not safe)) - (__with-catch void __tmp110842)) + (__with-catch void __tmp111827)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e110579%_)))) - (__tmp110840 + (##thread-end-with-uncaught-exception! _%e111564%_)))) + (__tmp111825 (lambda () - (mutex-lock! _%mx110560%_) - (let ((_%result110583%_ - (let () (declare (not safe)) (_%proc110568%_)))) - (mutex-unlock! _%mx110560%_) - _%result110583%_)))) + (mutex-lock! _%mx111545%_) + (let ((_%result111568%_ + (let () (declare (not safe)) (_%proc111553%_)))) + (mutex-unlock! _%mx111545%_) + _%result111568%_)))) (declare (not safe)) - (__with-exception-handler __tmp110841 __tmp110840))))) + (__with-exception-handler __tmp111826 __tmp111825))))) (define with-dynamic-lock - (lambda (_%mx110531%_ _%proc110532%_) - (if (mutex? _%mx110531%_) - (let ((_%mx110536%_ _%mx110531%_)) - (if (procedure? _%proc110532%_) - (let ((_%proc110546%_ _%proc110532%_)) - (__with-dynamic-lock _%mx110536%_ _%proc110546%_)) + (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: - _%proc110532%_) + _%proc111517%_) '#!void))) (begin (raise-contract-violation-error @@ -322,24 +322,24 @@ 'contract: 'mutex? 'value: - _%mx110531%_) + _%mx111516%_) '#!void)))) (define __with-dynamic-lock - (lambda (_%mx110508%_ _%proc110509%_) - (let* ((_%mx110512%_ _%mx110508%_) (_%proc110520%_ _%proc110509%_)) - (let ((__tmp110844 (lambda () (mutex-lock! _%mx110512%_))) - (__tmp110843 (lambda () (mutex-unlock! _%mx110512%_)))) + (lambda (_%mx111493%_ _%proc111494%_) + (let* ((_%mx111497%_ _%mx111493%_) (_%proc111505%_ _%proc111494%_)) + (let ((__tmp111829 (lambda () (mutex-lock! _%mx111497%_))) + (__tmp111828 (lambda () (mutex-unlock! _%mx111497%_)))) (declare (not safe)) - (##dynamic-wind __tmp110844 _%proc110520%_ __tmp110843))))) + (##dynamic-wind __tmp111829 _%proc111505%_ __tmp111828))))) (define with-exception-stack-trace__% - (lambda (_%thunk110473%_ _%error-port110474%_) - (if (procedure? _%thunk110473%_) - (let ((_%thunk110478%_ _%thunk110473%_)) - (if (port? _%error-port110474%_) - (let ((_%error-port110488%_ _%error-port110474%_)) + (lambda (_%thunk111458%_ _%error-port111459%_) + (if (procedure? _%thunk111458%_) + (let ((_%thunk111463%_ _%thunk111458%_)) + (if (port? _%error-port111459%_) + (let ((_%error-port111473%_ _%error-port111459%_)) (__with-exception-stack-trace__% - _%thunk110478%_ - _%error-port110488%_)) + _%thunk111463%_ + _%error-port111473%_)) (begin (raise-contract-violation-error '"contract violation" @@ -348,7 +348,7 @@ 'contract: 'port? 'value: - _%error-port110474%_) + _%error-port111459%_) '#!void))) (begin (raise-contract-violation-error @@ -358,105 +358,105 @@ 'contract: 'procedure? 'value: - _%thunk110473%_) + _%thunk111458%_) '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk110501%_) - (let ((_%error-port110503%_ (current-error-port))) + (lambda (_%thunk111486%_) + (let ((_%error-port111488%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk110501%_ - _%error-port110503%_)))) + _%thunk111486%_ + _%error-port111488%_)))) (define with-exception-stack-trace - (lambda _g110846_ - (let ((_g110845_ (let () (declare (not safe)) (##length _g110846_)))) - (cond ((let () (declare (not safe)) (##fx= _g110845_ 1)) - (apply with-exception-stack-trace__0 _g110846_)) - ((let () (declare (not safe)) (##fx= _g110845_ 2)) - (apply with-exception-stack-trace__% _g110846_)) + (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 - _g110846_)))))) + _g111831_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk110434%_ _%error-port110435%_) - (let* ((_%thunk110438%_ _%thunk110434%_) - (_%error-port110447%_ _%error-port110435%_) - (__tmp110847 - (let ((_%E110456%_ (current-exception-handler))) - (lambda (_%exn110458%_) - (let ((__tmp110848 - (lambda (_%cont110460%_) + (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!__% - _%cont110460%_ - _%exn110458%_ - _%error-port110447%_) + _%cont111445%_ + _%exn111443%_ + _%error-port111432%_) '#!void) (let () (declare (not safe)) - (_%E110456%_ _%exn110458%_))))) + (_%E111441%_ _%exn111443%_))))) (declare (not safe)) - (##continuation-capture __tmp110848)))))) + (##continuation-capture __tmp111833)))))) (declare (not safe)) - (__with-exception-handler __tmp110847 _%thunk110438%_)))) + (__with-exception-handler __tmp111832 _%thunk111423%_)))) (define __with-exception-stack-trace__0 - (lambda (_%thunk110465%_) - (let ((_%error-port110467%_ (current-error-port))) + (lambda (_%thunk111450%_) + (let ((_%error-port111452%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk110465%_ - _%error-port110467%_)))) + _%thunk111450%_ + _%error-port111452%_)))) (define __with-exception-stack-trace - (lambda _g110850_ - (let ((_g110849_ (let () (declare (not safe)) (##length _g110850_)))) - (cond ((let () (declare (not safe)) (##fx= _g110849_ 1)) - (apply __with-exception-stack-trace__0 _g110850_)) - ((let () (declare (not safe)) (##fx= _g110849_ 2)) - (apply __with-exception-stack-trace__% _g110850_)) + (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 - _g110850_)))))) + _g111835_)))))) (define dump-stack-trace!__% - (lambda (_%cont110415%_ _%exn110416%_ _%error-port110417%_) - (let ((_%out110419%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out110419%_)) - (display '"*** Unhandled exception in " _%out110419%_) - (display (current-thread) _%out110419%_) - (newline _%out110419%_) + (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__% _%exn110416%_ _%out110419%_)) + (display-exception__% _%exn111401%_ _%out111404%_)) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn110416%_)) + (class-instance? StackTrace::t _%exn111401%_)) '#!void (begin - (display '"Continuation backtrace: " _%out110419%_) - (newline _%out110419%_) - (display-continuation-backtrace _%cont110415%_ _%out110419%_))) - (let ((__tmp110851 (get-output-string _%out110419%_))) + (display '"Continuation backtrace: " _%out111404%_) + (newline _%out111404%_) + (display-continuation-backtrace _%cont111400%_ _%out111404%_))) + (let ((__tmp111836 (get-output-string _%out111404%_))) (declare (not safe)) - (##write-string __tmp110851 _%error-port110417%_))))) + (##write-string __tmp111836 _%error-port111402%_))))) (define dump-stack-trace!__0 - (lambda (_%cont110424%_ _%exn110425%_) - (let ((_%error-port110427%_ (current-error-port))) + (lambda (_%cont111409%_ _%exn111410%_) + (let ((_%error-port111412%_ (current-error-port))) (dump-stack-trace!__% - _%cont110424%_ - _%exn110425%_ - _%error-port110427%_)))) + _%cont111409%_ + _%exn111410%_ + _%error-port111412%_)))) (define dump-stack-trace! - (lambda _g110853_ - (let ((_g110852_ (let () (declare (not safe)) (##length _g110853_)))) - (cond ((let () (declare (not safe)) (##fx= _g110852_ 2)) - (apply dump-stack-trace!__0 _g110853_)) - ((let () (declare (not safe)) (##fx= _g110852_ 3)) - (apply dump-stack-trace!__% _g110853_)) + (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! - _g110853_)))))) + _g111838_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 69c33b7a2..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 1734131744) + (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 _%args89587%_ + (lambda _%args90470%_ (let () - (let () (declare (not safe)) (##for-each display _%args89587%_)) + (let () (declare (not safe)) (##for-each display _%args90470%_)) (newline)))) (define display* - (lambda _%args89584%_ - (let () (declare (not safe)) (##for-each display _%args89584%_)))) + (lambda _%args90467%_ + (let () (declare (not safe)) (##for-each display _%args90467%_)))) (define file-newer? - (lambda (_%file189559%_ _%file289560%_) - (if (string? _%file189559%_) - (let ((_%file189564%_ _%file189559%_)) - (if (string? _%file289560%_) - (let ((_%file289574%_ _%file289560%_)) - (__file-newer? _%file189564%_ _%file289574%_)) + (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: - _%file289560%_) + _%file290443%_) '#!void))) (begin (raise-contract-violation-error @@ -37,39 +37,39 @@ 'contract: 'string? 'value: - _%file189559%_) + _%file190442%_) '#!void)))) (define __file-newer? - (lambda (_%file189507%_ _%file289508%_) - (let* ((_%file189511%_ _%file189507%_) (_%file289519%_ _%file289508%_)) - (letrec ((_%modification-time89528%_ - (lambda (_%file89547%_) - (let ((_%file89550%_ _%file89547%_)) - (_%__modification-time89529%_ _%file89550%_)))) - (_%__modification-time89529%_ - (lambda (_%file89531%_) - (let* ((_%file89534%_ _%file89531%_) - (__tmp91317 - (let ((__tmp91318 + (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 _%file89534%_ '#t)))) + (##file-info _%file90417%_ '#t)))) (declare (not safe)) (##file-info-last-modification-time - __tmp91318)))) + __tmp92201)))) (declare (not safe)) - (##time->seconds __tmp91317))))) - (let ((__tmp91320 (_%__modification-time89529%_ _%file189511%_)) - (__tmp91319 (_%__modification-time89529%_ _%file289519%_))) + (##time->seconds __tmp92200))))) + (let ((__tmp92203 (_%__modification-time90412%_ _%file190394%_)) + (__tmp92202 (_%__modification-time90412%_ _%file290402%_))) (declare (not safe)) - (##fl> __tmp91320 __tmp91319)))))) + (##fl> __tmp92203 __tmp92202)))))) (define create-directory*__% - (lambda (_%dir89472%_ _%perms89473%_) - (if (string? _%dir89472%_) - (let ((_%dir89477%_ _%dir89472%_)) - (if (fixnum? _%perms89473%_) - (let ((_%perms89487%_ _%perms89473%_)) - (__create-directory*__% _%dir89477%_ _%perms89487%_)) + (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: - _%perms89473%_) + _%perms90356%_) '#!void))) (begin (raise-contract-violation-error @@ -88,95 +88,95 @@ 'contract: 'string? 'value: - _%dir89472%_) + _%dir90355%_) '#!void)))) (define create-directory*__0 - (lambda (_%dir89500%_) - (let ((_%perms89502%_ '493)) - (create-directory*__% _%dir89500%_ _%perms89502%_)))) + (lambda (_%dir90383%_) + (let ((_%perms90385%_ '493)) + (create-directory*__% _%dir90383%_ _%perms90385%_)))) (define create-directory* - (lambda _g91322_ - (let ((_g91321_ (let () (declare (not safe)) (##length _g91322_)))) - (cond ((let () (declare (not safe)) (##fx= _g91321_ 1)) - (apply create-directory*__0 _g91322_)) - ((let () (declare (not safe)) (##fx= _g91321_ 2)) - (apply create-directory*__% _g91322_)) + (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* - _g91322_)))))) + _g92205_)))))) (define __create-directory*__% - (lambda (_%dir89396%_ _%perms89397%_) - (let* ((_%dir89400%_ _%dir89396%_) (_%perms89408%_ _%perms89397%_)) - (letrec ((_%create189417%_ - (lambda (_%path89449%_) - (let ((_%path89452%_ _%path89449%_)) - (_%__create189418%_ _%path89452%_)))) - (_%__create189418%_ - (lambda (_%path89430%_) - (let ((_%path89433%_ _%path89430%_)) + (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? _%path89433%_)) - (if (eq? (file-type _%path89433%_) 'directory) + (##file-exists? _%path90316%_)) + (if (eq? (file-type _%path90316%_) 'directory) '#!void (error '"Path component is not a directory" - _%path89433%_)) - (if _%perms89408%_ + _%path90316%_)) + (if _%perms90291%_ (create-directory (cons 'path: - (cons _%path89433%_ + (cons _%path90316%_ (cons 'permissions: - (cons _%perms89408%_ + (cons _%perms90291%_ '()))))) - (create-directory _%path89433%_))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir89400%_)) + (create-directory _%path90316%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir90283%_)) '#!void - (let _%lp89420%_ ((_%start89422%_ '0)) - (let ((_%$e89424%_ - (__string-index__% _%dir89400%_ '#\/ _%start89422%_))) - (if _%$e89424%_ - ((lambda (_%x89427%_) + (let _%lp90303%_ ((_%start90305%_ '0)) + (let ((_%$e90307%_ + (__string-index__% _%dir90283%_ '#\/ _%start90305%_))) + (if _%$e90307%_ + ((lambda (_%x90310%_) (if (let () (declare (not safe)) - (##fx> _%x89427%_ '0)) - (_%__create189418%_ - (substring _%dir89400%_ '0 _%x89427%_)) + (##fx> _%x90310%_ '0)) + (_%__create190301%_ + (substring _%dir90283%_ '0 _%x90310%_)) '#!void) - (_%lp89420%_ + (_%lp90303%_ (let () (declare (not safe)) - (##fx+ _%x89427%_ '1)))) - _%$e89424%_) - (_%__create189418%_ _%dir89400%_))))) + (##fx+ _%x90310%_ '1)))) + _%$e90307%_) + (_%__create190301%_ _%dir90283%_))))) '#!void)))) (define __create-directory*__0 - (lambda (_%dir89464%_) - (let ((_%perms89466%_ '493)) - (__create-directory*__% _%dir89464%_ _%perms89466%_)))) + (lambda (_%dir90347%_) + (let ((_%perms90349%_ '493)) + (__create-directory*__% _%dir90347%_ _%perms90349%_)))) (define __create-directory* - (lambda _g91324_ - (let ((_g91323_ (let () (declare (not safe)) (##length _g91324_)))) - (cond ((let () (declare (not safe)) (##fx= _g91323_ 1)) - (apply __create-directory*__0 _g91324_)) - ((let () (declare (not safe)) (##fx= _g91323_ 2)) - (apply __create-directory*__% _g91324_)) + (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* - _g91324_)))))) + _g92207_)))))) (define move-file__% - (lambda (_%src89347%_ _%dest89348%_ _%replace?89349%_) - (if (string? _%src89347%_) - (let ((_%src89353%_ _%src89347%_)) - (if (string? _%dest89348%_) - (let ((_%dest89363%_ _%dest89348%_)) - (if (boolean? _%replace?89349%_) - (let ((_%replace?89373%_ _%replace?89349%_)) + (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__% - _%src89353%_ - _%dest89363%_ - _%replace?89373%_)) + _%src90236%_ + _%dest90246%_ + _%replace?90256%_)) (begin (raise-contract-violation-error '"contract violation" @@ -185,7 +185,7 @@ 'contract: 'boolean? 'value: - _%replace?89349%_) + _%replace?90232%_) '#!void))) (begin (raise-contract-violation-error @@ -195,7 +195,7 @@ 'contract: 'string? 'value: - _%dest89348%_) + _%dest90231%_) '#!void))) (begin (raise-contract-violation-error @@ -205,155 +205,155 @@ 'contract: 'string? 'value: - _%src89347%_) + _%src90230%_) '#!void)))) (define move-file__0 - (lambda (_%src89386%_ _%dest89387%_) - (let ((_%replace?89389%_ '#t)) - (move-file__% _%src89386%_ _%dest89387%_ _%replace?89389%_)))) + (lambda (_%src90269%_ _%dest90270%_) + (let ((_%replace?90272%_ '#t)) + (move-file__% _%src90269%_ _%dest90270%_ _%replace?90272%_)))) (define move-file - (lambda _g91326_ - (let ((_g91325_ (let () (declare (not safe)) (##length _g91326_)))) - (cond ((let () (declare (not safe)) (##fx= _g91325_ 2)) - (apply move-file__0 _g91326_)) - ((let () (declare (not safe)) (##fx= _g91325_ 3)) - (apply move-file__% _g91326_)) + (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 - _g91326_)))))) + _g92209_)))))) (define __move-file__% - (lambda (_%src89290%_ _%dest89291%_ _%replace?89292%_) - (let* ((_%src89295%_ _%src89290%_) - (_%dest89303%_ _%dest89291%_) - (_%replace?89311%_ _%replace?89292%_)) - (letrec ((_%force-move-it89320%_ + (lambda (_%src90173%_ _%dest90174%_ _%replace?90175%_) + (let* ((_%src90178%_ _%src90173%_) + (_%dest90186%_ _%dest90174%_) + (_%replace?90194%_ _%replace?90175%_)) + (letrec ((_%force-move-it90203%_ (lambda () - (let ((_%tmp89326%_ - (if _%replace?89311%_ + (let ((_%tmp90209%_ + (if _%replace?90194%_ (if (let () (declare (not safe)) - (##file-exists? _%dest89303%_)) - (let ((__tmp91327 + (##file-exists? _%dest90186%_)) + (let ((__tmp92210 (number->string (let () (declare (not safe)) (##current-time-point))))) (declare (not safe)) (##string-append - _%dest89303%_ + _%dest90186%_ '"." - __tmp91327)) + __tmp92210)) '#f) '#f))) - (if _%tmp89326%_ - (rename-file _%dest89303%_ _%tmp89326%_) + (if _%tmp90209%_ + (rename-file _%dest90186%_ _%tmp90209%_) '#!void) (with-exception-catcher - (lambda (_%e89328%_) - (if _%tmp89326%_ - (rename-file _%tmp89326%_ _%dest89303%_ '#t) + (lambda (_%e90211%_) + (if _%tmp90209%_ + (rename-file _%tmp90209%_ _%dest90186%_ '#t) '#!void) - (raise _%e89328%_)) + (raise _%e90211%_)) (lambda () - (let ((_%fi89331%_ + (let ((_%fi90214%_ (let () (declare (not safe)) - (##file-info _%src89295%_ '#f)))) + (##file-info _%src90178%_ '#f)))) (if (eq? (let () (declare (not safe)) - (##file-info-type _%fi89331%_)) + (##file-info-type _%fi90214%_)) 'symbolic-link) - (let ((__tmp91328 - (path-normalize _%src89295%_))) + (let ((__tmp92211 + (path-normalize _%src90178%_))) (declare (not safe)) (##create-symbolic-link - __tmp91328 - _%dest89303%_)) + __tmp92211 + _%dest90186%_)) (let () (declare (not safe)) - (##copy-file _%src89295%_ _%dest89303%_)))) + (##copy-file _%src90178%_ _%dest90186%_)))) (let () (declare (not safe)) - (##delete-file _%src89295%_)) - (if _%tmp89326%_ + (##delete-file _%src90178%_)) + (if _%tmp90209%_ (with-exception-catcher void - (lambda () (delete-file _%tmp89326%_))) + (lambda () (delete-file _%tmp90209%_))) '#!void))))))) (with-exception-catcher - (lambda (_%e89322%_) - (if (let () (declare (not safe)) (##file-exists? _%src89295%_)) - (_%force-move-it89320%_) - (raise _%e89322%_))) + (lambda (_%e90205%_) + (if (let () (declare (not safe)) (##file-exists? _%src90178%_)) + (_%force-move-it90203%_) + (raise _%e90205%_))) (lambda () (let () (declare (not safe)) (##rename-file - _%src89295%_ - _%dest89303%_ - _%replace?89311%_)))) + _%src90178%_ + _%dest90186%_ + _%replace?90194%_)))) '#!void)))) (define __move-file__0 - (lambda (_%src89337%_ _%dest89338%_) - (let ((_%replace?89340%_ '#t)) - (__move-file__% _%src89337%_ _%dest89338%_ _%replace?89340%_)))) + (lambda (_%src90220%_ _%dest90221%_) + (let ((_%replace?90223%_ '#t)) + (__move-file__% _%src90220%_ _%dest90221%_ _%replace?90223%_)))) (define __move-file - (lambda _g91330_ - (let ((_g91329_ (let () (declare (not safe)) (##length _g91330_)))) - (cond ((let () (declare (not safe)) (##fx= _g91329_ 2)) - (apply __move-file__0 _g91330_)) - ((let () (declare (not safe)) (##fx= _g91329_ 3)) - (apply __move-file__% _g91330_)) + (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 - _g91330_)))))) + _g92213_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore89286%_ '#t)) - (define true? (lambda (_%obj89283%_) (eq? _%obj89283%_ '#t))) - (define false (lambda _%ignore89280%_ '#f)) - (define void (lambda _%ignore89277%_ '#!void)) - (define void? (lambda (_%obj89274%_) (eq? _%obj89274%_ '#!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 (_%obj89271%_) + (lambda (_%obj90154%_) (if (let () (declare (not safe)) - (##memq _%obj89271%_ '(#!key #!rest #!optional))) + (##memq _%obj90154%_ '(#!key #!rest #!optional))) '#t '#f))) - (define dssl-key-object? (lambda (_%obj89268%_) (eq? _%obj89268%_ '#!key))) + (define dssl-key-object? (lambda (_%obj90151%_) (eq? _%obj90151%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj89265%_) (eq? _%obj89265%_ '#!rest))) + (lambda (_%obj90148%_) (eq? _%obj90148%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj89262%_) (eq? _%obj89262%_ '#!optional))) + (lambda (_%obj90145%_) (eq? _%obj90145%_ '#!optional))) (define immediate? - (lambda (_%obj89257%_) - (let* ((_%t89260%_ (let () (declare (not safe)) (##type _%obj89257%_))) - (__tmp91331 - (let () (declare (not safe)) (##fxand _%t89260%_ '1)))) + (lambda (_%obj90140%_) + (let* ((_%t90143%_ (let () (declare (not safe)) (##type _%obj90140%_))) + (__tmp92214 + (let () (declare (not safe)) (##fxand _%t90143%_ '1)))) (declare (not safe)) - (##fxzero? __tmp91331)))) + (##fxzero? __tmp92214)))) (define nonnegative-fixnum? - (lambda (_%obj89254%_) - (if (fixnum? _%obj89254%_) - (let () (declare (not safe)) (##fx>= _%obj89254%_ '0)) + (lambda (_%obj90137%_) + (if (fixnum? _%obj90137%_) + (let () (declare (not safe)) (##fx>= _%obj90137%_ '0)) '#f))) (define pair-or-null? - (lambda (_%obj89248%_) - (let ((_%$e89251%_ (pair? _%obj89248%_))) - (if _%$e89251%_ _%$e89251%_ (null? _%obj89248%_))))) + (lambda (_%obj90131%_) + (let ((_%$e90134%_ (pair? _%obj90131%_))) + (if _%$e90134%_ _%$e90134%_ (null? _%obj90131%_))))) (define values-count - (lambda (_%obj89245%_) - (if (let () (declare (not safe)) (##values? _%obj89245%_)) - (let () (declare (not safe)) (##vector-length _%obj89245%_)) + (lambda (_%obj90128%_) + (if (let () (declare (not safe)) (##values? _%obj90128%_)) + (let () (declare (not safe)) (##vector-length _%obj90128%_)) '1))) (define values-ref - (lambda (_%obj89230%_ _%k89231%_) - (if (fixnum? _%k89231%_) - (let ((_%k89235%_ _%k89231%_)) - (__values-ref _%obj89230%_ _%k89235%_)) + (lambda (_%obj90113%_ _%k90114%_) + (if (fixnum? _%k90114%_) + (let ((_%k90118%_ _%k90114%_)) + (__values-ref _%obj90113%_ _%k90118%_)) (begin (raise-contract-violation-error '"contract violation" @@ -362,26 +362,26 @@ 'contract: 'fixnum? 'value: - _%k89231%_) + _%k90114%_) '#!void)))) (define __values-ref - (lambda (_%obj89217%_ _%k89218%_) - (let ((_%k89221%_ _%k89218%_)) - (if (let () (declare (not safe)) (##values? _%obj89217%_)) + (lambda (_%obj90100%_ _%k90101%_) + (let ((_%k90104%_ _%k90101%_)) + (if (let () (declare (not safe)) (##values? _%obj90100%_)) (let () (declare (not safe)) - (##vector-ref _%obj89217%_ _%k89221%_)) - _%obj89217%_)))) + (##vector-ref _%obj90100%_ _%k90104%_)) + _%obj90100%_)))) (define values->list - (lambda (_%obj89214%_) - (if (let () (declare (not safe)) (##values? _%obj89214%_)) - (let () (declare (not safe)) (##vector->list _%obj89214%_)) - (list _%obj89214%_)))) + (lambda (_%obj90097%_) + (if (let () (declare (not safe)) (##values? _%obj90097%_)) + (let () (declare (not safe)) (##vector->list _%obj90097%_)) + (list _%obj90097%_)))) (define foldl1 - (lambda (_%f89198%_ _%iv89199%_ _%lst89200%_) - (if (procedure? _%f89198%_) - (let ((_%f89204%_ _%f89198%_)) - (__foldl1 _%f89204%_ _%iv89199%_ _%lst89200%_)) + (lambda (_%f90081%_ _%iv90082%_ _%lst90083%_) + (if (procedure? _%f90081%_) + (let ((_%f90087%_ _%f90081%_)) + (__foldl1 _%f90087%_ _%iv90082%_ _%lst90083%_)) (begin (raise-contract-violation-error '"contract violation" @@ -390,40 +390,40 @@ 'contract: 'procedure? 'value: - _%f89198%_) + _%f90081%_) '#!void)))) (define __foldl1 - (lambda (_%f89146%_ _%iv89147%_ _%lst89148%_) - (let ((_%f89151%_ _%f89146%_)) - (let _%lp89160%_ ((_%rest89162%_ _%lst89148%_) - (_%r89163%_ _%iv89147%_)) - (let* ((_%rest8916489172%_ _%rest89162%_) - (_%else8916689180%_ (lambda () _%r89163%_)) - (_%K8916889186%_ - (lambda (_%rest89183%_ _%x89184%_) - (_%lp89160%_ - _%rest89183%_ + (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)) - (_%f89151%_ _%x89184%_ _%r89163%_)))))) - (if (pair? _%rest8916489172%_) - (let ((_%hd8916989189%_ + (_%f90034%_ _%x90067%_ _%r90046%_)))))) + (if (pair? _%rest9004790055%_) + (let ((_%hd9005290072%_ (let () (declare (not safe)) - (##car _%rest8916489172%_))) - (_%tl8917089191%_ + (##car _%rest9004790055%_))) + (_%tl9005390074%_ (let () (declare (not safe)) - (##cdr _%rest8916489172%_)))) - (let* ((_%x89194%_ _%hd8916989189%_) - (_%rest89196%_ _%tl8917089191%_)) - (_%K8916889186%_ _%rest89196%_ _%x89194%_))) - (_%else8916689180%_))))))) + (##cdr _%rest9004790055%_)))) + (let* ((_%x90077%_ _%hd9005290072%_) + (_%rest90079%_ _%tl9005390074%_)) + (_%K9005190069%_ _%rest90079%_ _%x90077%_))) + (_%else9004990063%_))))))) (define foldl2 - (lambda (_%f89129%_ _%iv89130%_ _%lst189131%_ _%lst289132%_) - (if (procedure? _%f89129%_) - (let ((_%f89136%_ _%f89129%_)) - (__foldl2 _%f89136%_ _%iv89130%_ _%lst189131%_ _%lst289132%_)) + (lambda (_%f90012%_ _%iv90013%_ _%lst190014%_ _%lst290015%_) + (if (procedure? _%f90012%_) + (let ((_%f90019%_ _%f90012%_)) + (__foldl2 _%f90019%_ _%iv90013%_ _%lst190014%_ _%lst290015%_)) (begin (raise-contract-violation-error '"contract violation" @@ -432,76 +432,76 @@ 'contract: 'procedure? 'value: - _%f89129%_) + _%f90012%_) '#!void)))) (define __foldl2 - (lambda (_%f89042%_ _%iv89043%_ _%lst189044%_ _%lst289045%_) - (let ((_%f89048%_ _%f89042%_)) - (let _%lp89057%_ ((_%rest189059%_ _%lst189044%_) - (_%rest289060%_ _%lst289045%_) - (_%r89061%_ _%iv89043%_)) - (let* ((_%rest18906289070%_ _%rest189059%_) - (_%else8906489078%_ (lambda () _%r89061%_)) - (_%K8906689117%_ - (lambda (_%rest189081%_ _%x189082%_) - (let* ((_%rest28908389091%_ _%rest289060%_) - (_%else8908589099%_ (lambda () _%r89061%_)) - (_%K8908789105%_ - (lambda (_%rest289102%_ _%x289103%_) - (_%lp89057%_ - _%rest189081%_ - _%rest289102%_ + (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)) - (_%f89048%_ - _%x189082%_ - _%x289103%_ - _%r89061%_)))))) - (if (pair? _%rest28908389091%_) - (let ((_%hd8908889108%_ + (_%f89931%_ + _%x189965%_ + _%x289986%_ + _%r89944%_)))))) + (if (pair? _%rest28996689974%_) + (let ((_%hd8997189991%_ (let () (declare (not safe)) - (##car _%rest28908389091%_))) - (_%tl8908989110%_ + (##car _%rest28996689974%_))) + (_%tl8997289993%_ (let () (declare (not safe)) - (##cdr _%rest28908389091%_)))) - (let* ((_%x289113%_ _%hd8908889108%_) - (_%rest289115%_ _%tl8908989110%_)) - (_%K8908789105%_ _%rest289115%_ _%x289113%_))) - (_%else8908589099%_)))))) - (if (pair? _%rest18906289070%_) - (let ((_%hd8906789120%_ + (##cdr _%rest28996689974%_)))) + (let* ((_%x289996%_ _%hd8997189991%_) + (_%rest289998%_ _%tl8997289993%_)) + (_%K8997089988%_ _%rest289998%_ _%x289996%_))) + (_%else8996889982%_)))))) + (if (pair? _%rest18994589953%_) + (let ((_%hd8995090003%_ (let () (declare (not safe)) - (##car _%rest18906289070%_))) - (_%tl8906889122%_ + (##car _%rest18994589953%_))) + (_%tl8995190005%_ (let () (declare (not safe)) - (##cdr _%rest18906289070%_)))) - (let* ((_%x189125%_ _%hd8906789120%_) - (_%rest189127%_ _%tl8906889122%_)) - (_%K8906689117%_ _%rest189127%_ _%x189125%_))) - (_%else8906489078%_))))))) + (##cdr _%rest18994589953%_)))) + (let* ((_%x190008%_ _%hd8995090003%_) + (_%rest190010%_ _%tl8995190005%_)) + (_%K8994990000%_ _%rest190010%_ _%x190008%_))) + (_%else8994789961%_))))))) (define foldl - (lambda _g91333_ - (let ((_g91332_ (let () (declare (not safe)) (##length _g91333_)))) - (cond ((let () (declare (not safe)) (##fx= _g91332_ 3)) - (apply foldl1 _g91333_)) - ((let () (declare (not safe)) (##fx= _g91332_ 4)) - (apply foldl2 _g91333_)) - ((let () (declare (not safe)) (##fx>= _g91332_ 4)) - (apply foldl* _g91333_)) + (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 - _g91333_)))))) + _g92216_)))))) (define foldl* - (lambda (_%f89011%_ _%iv89012%_ . _%rest89013%_) - (if (procedure? _%f89011%_) - (let ((_%f89017%_ _%f89011%_)) + (lambda (_%f89894%_ _%iv89895%_ . _%rest89896%_) + (if (procedure? _%f89894%_) + (let ((_%f89900%_ _%f89894%_)) (declare (not safe)) - (##apply __foldl* _%f89017%_ _%iv89012%_ _%rest89013%_)) + (##apply __foldl* _%f89900%_ _%iv89895%_ _%rest89896%_)) (begin (raise-contract-violation-error '"contract violation" @@ -510,30 +510,30 @@ 'contract: 'procedure? 'value: - _%f89011%_) + _%f89894%_) '#!void)))) (define __foldl* - (lambda (_%f88989%_ _%iv88990%_ . _%rest88991%_) - (let ((_%f88994%_ _%f88989%_)) - (let _%recur89003%_ ((_%iv89005%_ _%iv88990%_) - (_%rest89006%_ _%rest88991%_)) - (if (__andmap1 pair? _%rest89006%_) - (_%recur89003%_ - (let ((__tmp91334 + (lambda (_%f89872%_ _%iv89873%_ . _%rest89874%_) + (let ((_%f89877%_ _%f89872%_)) + (let _%recur89886%_ ((_%iv89888%_ _%iv89873%_) + (_%rest89889%_ _%rest89874%_)) + (if (__andmap1 pair? _%rest89889%_) + (_%recur89886%_ + (let ((__tmp92217 (__foldr1 - (lambda (_%xs89008%_ _%r89009%_) - (cons (car _%xs89008%_) _%r89009%_)) - (list _%iv89005%_) - _%rest89006%_))) + (lambda (_%xs89891%_ _%r89892%_) + (cons (car _%xs89891%_) _%r89892%_)) + (list _%iv89888%_) + _%rest89889%_))) (declare (not safe)) - (##apply _%f88994%_ __tmp91334)) - (map cdr _%rest89006%_)) - _%iv89005%_))))) + (##apply _%f89877%_ __tmp92217)) + (map cdr _%rest89889%_)) + _%iv89888%_))))) (define foldr1 - (lambda (_%f88973%_ _%iv88974%_ _%lst88975%_) - (if (procedure? _%f88973%_) - (let ((_%f88979%_ _%f88973%_)) - (__foldr1 _%f88979%_ _%iv88974%_ _%lst88975%_)) + (lambda (_%f89856%_ _%iv89857%_ _%lst89858%_) + (if (procedure? _%f89856%_) + (let ((_%f89862%_ _%f89856%_)) + (__foldr1 _%f89862%_ _%iv89857%_ _%lst89858%_)) (begin (raise-contract-violation-error '"contract violation" @@ -542,37 +542,37 @@ 'contract: 'procedure? 'value: - _%f88973%_) + _%f89856%_) '#!void)))) (define __foldr1 - (lambda (_%f88922%_ _%iv88923%_ _%lst88924%_) - (let ((_%f88927%_ _%f88922%_)) - (let _%recur88936%_ ((_%rest88938%_ _%lst88924%_)) - (let* ((_%rest8893988947%_ _%rest88938%_) - (_%else8894188955%_ (lambda () _%iv88923%_)) - (_%K8894388961%_ - (lambda (_%rest88958%_ _%x88959%_) - (let ((__tmp91335 (_%recur88936%_ _%rest88958%_))) + (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)) - (_%f88927%_ _%x88959%_ __tmp91335))))) - (if (pair? _%rest8893988947%_) - (let ((_%hd8894488964%_ + (_%f89810%_ _%x89842%_ __tmp92218))))) + (if (pair? _%rest8982289830%_) + (let ((_%hd8982789847%_ (let () (declare (not safe)) - (##car _%rest8893988947%_))) - (_%tl8894588966%_ + (##car _%rest8982289830%_))) + (_%tl8982889849%_ (let () (declare (not safe)) - (##cdr _%rest8893988947%_)))) - (let* ((_%x88969%_ _%hd8894488964%_) - (_%rest88971%_ _%tl8894588966%_)) - (_%K8894388961%_ _%rest88971%_ _%x88969%_))) - (_%else8894188955%_))))))) + (##cdr _%rest8982289830%_)))) + (let* ((_%x89852%_ _%hd8982789847%_) + (_%rest89854%_ _%tl8982889849%_)) + (_%K8982689844%_ _%rest89854%_ _%x89852%_))) + (_%else8982489838%_))))))) (define foldr2 - (lambda (_%f88905%_ _%iv88906%_ _%lst188907%_ _%lst288908%_) - (if (procedure? _%f88905%_) - (let ((_%f88912%_ _%f88905%_)) - (__foldr2 _%f88912%_ _%iv88906%_ _%lst188907%_ _%lst288908%_)) + (lambda (_%f89788%_ _%iv89789%_ _%lst189790%_ _%lst289791%_) + (if (procedure? _%f89788%_) + (let ((_%f89795%_ _%f89788%_)) + (__foldr2 _%f89795%_ _%iv89789%_ _%lst189790%_ _%lst289791%_)) (begin (raise-contract-violation-error '"contract violation" @@ -581,75 +581,75 @@ 'contract: 'procedure? 'value: - _%f88905%_) + _%f89788%_) '#!void)))) (define __foldr2 - (lambda (_%f88819%_ _%iv88820%_ _%lst188821%_ _%lst288822%_) - (let ((_%f88825%_ _%f88819%_)) - (let _%recur88834%_ ((_%rest188836%_ _%lst188821%_) - (_%rest288837%_ _%lst288822%_)) - (let* ((_%rest18883888846%_ _%rest188836%_) - (_%else8884088854%_ (lambda () _%iv88820%_)) - (_%K8884288893%_ - (lambda (_%rest188857%_ _%x188858%_) - (let* ((_%rest28885988867%_ _%rest288837%_) - (_%else8886188875%_ (lambda () _%iv88820%_)) - (_%K8886388881%_ - (lambda (_%rest288878%_ _%x288879%_) - (let ((__tmp91336 - (_%recur88834%_ - _%rest188857%_ - _%rest288878%_))) + (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)) - (_%f88825%_ - _%x188858%_ - _%x288879%_ - __tmp91336))))) - (if (pair? _%rest28885988867%_) - (let ((_%hd8886488884%_ + (_%f89708%_ + _%x189741%_ + _%x289762%_ + __tmp92219))))) + (if (pair? _%rest28974289750%_) + (let ((_%hd8974789767%_ (let () (declare (not safe)) - (##car _%rest28885988867%_))) - (_%tl8886588886%_ + (##car _%rest28974289750%_))) + (_%tl8974889769%_ (let () (declare (not safe)) - (##cdr _%rest28885988867%_)))) - (let* ((_%x288889%_ _%hd8886488884%_) - (_%rest288891%_ _%tl8886588886%_)) - (_%K8886388881%_ _%rest288891%_ _%x288889%_))) - (_%else8886188875%_)))))) - (if (pair? _%rest18883888846%_) - (let ((_%hd8884388896%_ + (##cdr _%rest28974289750%_)))) + (let* ((_%x289772%_ _%hd8974789767%_) + (_%rest289774%_ _%tl8974889769%_)) + (_%K8974689764%_ _%rest289774%_ _%x289772%_))) + (_%else8974489758%_)))))) + (if (pair? _%rest18972189729%_) + (let ((_%hd8972689779%_ (let () (declare (not safe)) - (##car _%rest18883888846%_))) - (_%tl8884488898%_ + (##car _%rest18972189729%_))) + (_%tl8972789781%_ (let () (declare (not safe)) - (##cdr _%rest18883888846%_)))) - (let* ((_%x188901%_ _%hd8884388896%_) - (_%rest188903%_ _%tl8884488898%_)) - (_%K8884288893%_ _%rest188903%_ _%x188901%_))) - (_%else8884088854%_))))))) + (##cdr _%rest18972189729%_)))) + (let* ((_%x189784%_ _%hd8972689779%_) + (_%rest189786%_ _%tl8972789781%_)) + (_%K8972589776%_ _%rest189786%_ _%x189784%_))) + (_%else8972389737%_))))))) (define foldr - (lambda _g91338_ - (let ((_g91337_ (let () (declare (not safe)) (##length _g91338_)))) - (cond ((let () (declare (not safe)) (##fx= _g91337_ 3)) - (apply foldr1 _g91338_)) - ((let () (declare (not safe)) (##fx= _g91337_ 4)) - (apply foldr2 _g91338_)) - ((let () (declare (not safe)) (##fx>= _g91337_ 4)) - (apply foldr* _g91338_)) + (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 - _g91338_)))))) + _g92221_)))))) (define foldr* - (lambda (_%f88788%_ _%iv88789%_ . _%rest88790%_) - (if (procedure? _%f88788%_) - (let ((_%f88794%_ _%f88788%_)) + (lambda (_%f89671%_ _%iv89672%_ . _%rest89673%_) + (if (procedure? _%f89671%_) + (let ((_%f89677%_ _%f89671%_)) (declare (not safe)) - (##apply __foldr* _%f88794%_ _%iv88789%_ _%rest88790%_)) + (##apply __foldr* _%f89677%_ _%iv89672%_ _%rest89673%_)) (begin (raise-contract-violation-error '"contract violation" @@ -658,105 +658,105 @@ 'contract: 'procedure? 'value: - _%f88788%_) + _%f89671%_) '#!void)))) (define __foldr* - (lambda (_%f88767%_ _%iv88768%_ . _%rest88769%_) - (let ((_%f88772%_ _%f88767%_)) - (let _%recur88781%_ ((_%rest88783%_ _%rest88769%_)) - (if (__andmap1 pair? _%rest88783%_) - (let ((__tmp91339 + (lambda (_%f89650%_ _%iv89651%_ . _%rest89652%_) + (let ((_%f89655%_ _%f89650%_)) + (let _%recur89664%_ ((_%rest89666%_ _%rest89652%_)) + (if (__andmap1 pair? _%rest89666%_) + (let ((__tmp92222 (__foldr1 - (lambda (_%xs88785%_ _%r88786%_) - (cons (car _%xs88785%_) _%r88786%_)) - (list (_%recur88781%_ (map cdr _%rest88783%_))) - _%rest88783%_))) + (lambda (_%xs89668%_ _%r89669%_) + (cons (car _%xs89668%_) _%r89669%_)) + (list (_%recur89664%_ (map cdr _%rest89666%_))) + _%rest89666%_))) (declare (not safe)) - (##apply _%f88772%_ __tmp91339)) - _%iv88768%_))))) + (##apply _%f89655%_ __tmp92222)) + _%iv89651%_))))) (define remove-nulls! - (lambda (_%l88654%_) - (let* ((_%l8865588668%_ _%l88654%_) - (_%E8865988672%_ + (lambda (_%l89537%_) + (let* ((_%l8953889551%_ _%l89537%_) + (_%E8954289555%_ (lambda () (error '"No clause matching" - _%l8865588668%_ + _%l8953889551%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K8866488757%_ - (lambda (_%r88755%_) (remove-nulls! _%r88755%_))) - (_%K8866188744%_ - (lambda (_%r88684%_) - (let _%loop88686%_ ((_%l88688%_ _%l88654%_) - (_%r88689%_ _%r88684%_)) - (let* ((_%r8869088703%_ _%r88689%_) - (_%E8869488707%_ + (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" - _%r8869088703%_ + _%r8957389586%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K8869988734%_ - (lambda (_%rr88732%_) - (let ((__tmp91341 _%l88688%_) - (__tmp91340 (remove-nulls! _%rr88732%_))) + (let ((_%K8958289617%_ + (lambda (_%rr89615%_) + (let ((__tmp92224 _%l89571%_) + (__tmp92223 (remove-nulls! _%rr89615%_))) (declare (not safe)) - (##set-cdr! __tmp91341 __tmp91340)))) - (_%K8869688721%_ - (lambda (_%rr88719%_) - (_%loop88686%_ _%r88689%_ _%rr88719%_))) - (_%K8869588712%_ (lambda () '#!void))) - (if (pair? _%r8869088703%_) - (let ((_%tl8870188739%_ + (##set-cdr! __tmp92224 __tmp92223)))) + (_%K8957989604%_ + (lambda (_%rr89602%_) + (_%loop89569%_ _%r89572%_ _%rr89602%_))) + (_%K8957889595%_ (lambda () '#!void))) + (if (pair? _%r8957389586%_) + (let ((_%tl8958489622%_ (let () (declare (not safe)) - (##cdr _%r8869088703%_))) - (_%hd8870088737%_ + (##cdr _%r8957389586%_))) + (_%hd8958389620%_ (let () (declare (not safe)) - (##car _%r8869088703%_)))) - (if (null? _%hd8870088737%_) - (let ((_%rr88742%_ _%tl8870188739%_)) - (_%K8869988734%_ _%rr88742%_)) - (let ((_%rr88727%_ _%tl8870188739%_)) - (_%K8869688721%_ _%rr88727%_)))) + (##car _%r8957389586%_)))) + (if (null? _%hd8958389620%_) + (let ((_%rr89625%_ _%tl8958489622%_)) + (_%K8958289617%_ _%rr89625%_)) + (let ((_%rr89610%_ _%tl8958489622%_)) + (_%K8957989604%_ _%rr89610%_)))) '#!void)))) - _%l88654%_)) - (_%K8866088677%_ (lambda () _%l88654%_))) - (if (pair? _%l8865588668%_) - (let ((_%tl8866688762%_ - (let () (declare (not safe)) (##cdr _%l8865588668%_))) - (_%hd8866588760%_ - (let () (declare (not safe)) (##car _%l8865588668%_)))) - (if (null? _%hd8866588760%_) - (let ((_%r88765%_ _%tl8866688762%_)) - (remove-nulls! _%r88765%_)) - (let ((_%r88750%_ _%tl8866688762%_)) - (_%K8866188744%_ _%r88750%_)))) - (_%K8866088677%_)))))) + _%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 (_%l88639%_ _%x88640%_) - (let ((_%l288643%_ (cons _%x88640%_ '()))) - (if (pair? _%l88639%_) - (let ((_%l88645%_ _%l88639%_)) - (let ((__tmp91342 - (let () (declare (not safe)) (##last-pair _%l88645%_)))) + (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! __tmp91342 _%l288643%_)) - _%l88645%_) - _%l288643%_)))) + (##set-cdr! __tmp92225 _%l289526%_)) + _%l89528%_) + _%l289526%_)))) (define append-reverse-until - (lambda (_%pred88623%_ _%rhead88624%_ _%tail88625%_) - (if (procedure? _%pred88623%_) - (let ((_%pred88629%_ _%pred88623%_)) + (lambda (_%pred89506%_ _%rhead89507%_ _%tail89508%_) + (if (procedure? _%pred89506%_) + (let ((_%pred89512%_ _%pred89506%_)) (__append-reverse-until - _%pred88629%_ - _%rhead88624%_ - _%tail88625%_)) + _%pred89512%_ + _%rhead89507%_ + _%tail89508%_)) (begin (raise-contract-violation-error '"contract violation" @@ -765,53 +765,53 @@ 'contract: 'procedure? 'value: - _%pred88623%_) + _%pred89506%_) '#!void)))) (define __append-reverse-until - (lambda (_%pred88565%_ _%rhead88566%_ _%tail88567%_) - (let ((_%pred88570%_ _%pred88565%_)) - (let _%loop88579%_ ((_%rhead88581%_ _%rhead88566%_) - (_%tail88582%_ _%tail88567%_)) - (let* ((_%rhead8858488593%_ _%rhead88581%_) - (_%E8858788597%_ + (lambda (_%pred89448%_ _%rhead89449%_ _%tail89450%_) + (let ((_%pred89453%_ _%pred89448%_)) + (let _%loop89462%_ ((_%rhead89464%_ _%rhead89449%_) + (_%tail89465%_ _%tail89450%_)) + (let* ((_%rhead8946789476%_ _%rhead89464%_) + (_%E8947089480%_ (lambda () (error '"No clause matching" - _%rhead8858488593%_ + _%rhead8946789476%_ '([]) '([a :: r])) '#!void))) - (let ((_%K8859188620%_ (lambda () (values '() _%tail88582%_))) - (_%K8858888604%_ - (lambda (_%r88601%_ _%a88602%_) + (let ((_%K8947489503%_ (lambda () (values '() _%tail89465%_))) + (_%K8947189487%_ + (lambda (_%r89484%_ _%a89485%_) (if (let () (declare (not safe)) - (_%pred88570%_ _%a88602%_)) - (values _%rhead88581%_ _%tail88582%_) - (_%loop88579%_ - _%r88601%_ - (cons _%a88602%_ _%tail88582%_)))))) - (let ((_%try-match8858688616%_ + (_%pred89453%_ _%a89485%_)) + (values _%rhead89464%_ _%tail89465%_) + (_%loop89462%_ + _%r89484%_ + (cons _%a89485%_ _%tail89465%_)))))) + (let ((_%try-match8946989499%_ (lambda () - (if (pair? _%rhead8858488593%_) - (let ((_%tl8859088609%_ + (if (pair? _%rhead8946789476%_) + (let ((_%tl8947389492%_ (let () (declare (not safe)) - (##cdr _%rhead8858488593%_))) - (_%hd8858988607%_ + (##cdr _%rhead8946789476%_))) + (_%hd8947289490%_ (let () (declare (not safe)) - (##car _%rhead8858488593%_)))) - (let ((_%a88612%_ _%hd8858988607%_) - (_%r88614%_ _%tl8859088609%_)) - (_%K8858888604%_ _%r88614%_ _%a88612%_))) - (_%E8858788597%_))))) - (if (null? _%rhead8858488593%_) - (_%K8859188620%_) - (_%try-match8858688616%_))))))))) + (##car _%rhead8946789476%_)))) + (let ((_%a89495%_ _%hd8947289490%_) + (_%r89497%_ _%tl8947389492%_)) + (_%K8947189487%_ _%r89497%_ _%a89495%_))) + (_%E8947089480%_))))) + (if (null? _%rhead8946789476%_) + (_%K8947489503%_) + (_%try-match8946989499%_))))))))) (define andmap1 - (lambda (_%f88550%_ _%lst88551%_) - (if (procedure? _%f88550%_) - (let ((_%f88555%_ _%f88550%_)) (__andmap1 _%f88555%_ _%lst88551%_)) + (lambda (_%f89433%_ _%lst89434%_) + (if (procedure? _%f89433%_) + (let ((_%f89438%_ _%f89433%_)) (__andmap1 _%f89438%_ _%lst89434%_)) (begin (raise-contract-violation-error '"contract violation" @@ -820,37 +820,37 @@ 'contract: 'procedure? 'value: - _%f88550%_) + _%f89433%_) '#!void)))) (define __andmap1 - (lambda (_%f88499%_ _%lst88500%_) - (let ((_%f88503%_ _%f88499%_)) - (let _%lp88512%_ ((_%rest88514%_ _%lst88500%_)) - (let* ((_%rest8851688524%_ _%rest88514%_) - (_%else8851888532%_ (lambda () '#t)) - (_%K8852088538%_ - (lambda (_%rest88535%_ _%x88536%_) - (if (let () (declare (not safe)) (_%f88503%_ _%x88536%_)) - (_%lp88512%_ _%rest88535%_) + (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? _%rest8851688524%_) - (let ((_%hd8852188541%_ + (if (pair? _%rest8939989407%_) + (let ((_%hd8940489424%_ (let () (declare (not safe)) - (##car _%rest8851688524%_))) - (_%tl8852288543%_ + (##car _%rest8939989407%_))) + (_%tl8940589426%_ (let () (declare (not safe)) - (##cdr _%rest8851688524%_)))) - (let* ((_%x88546%_ _%hd8852188541%_) - (_%rest88548%_ _%tl8852288543%_)) - (_%K8852088538%_ _%rest88548%_ _%x88546%_))) - (_%else8851888532%_))))))) + (##cdr _%rest8939989407%_)))) + (let* ((_%x89429%_ _%hd8940489424%_) + (_%rest89431%_ _%tl8940589426%_)) + (_%K8940389421%_ _%rest89431%_ _%x89429%_))) + (_%else8940189415%_))))))) (define andmap2 - (lambda (_%f88483%_ _%lst188484%_ _%lst288485%_) - (if (procedure? _%f88483%_) - (let ((_%f88489%_ _%f88483%_)) - (__andmap2 _%f88489%_ _%lst188484%_ _%lst288485%_)) + (lambda (_%f89366%_ _%lst189367%_ _%lst289368%_) + (if (procedure? _%f89366%_) + (let ((_%f89372%_ _%f89366%_)) + (__andmap2 _%f89372%_ _%lst189367%_ _%lst289368%_)) (begin (raise-contract-violation-error '"contract violation" @@ -859,71 +859,71 @@ 'contract: 'procedure? 'value: - _%f88483%_) + _%f89366%_) '#!void)))) (define __andmap2 - (lambda (_%f88397%_ _%lst188398%_ _%lst288399%_) - (let ((_%f88402%_ _%f88397%_)) - (let _%lp88411%_ ((_%rest188413%_ _%lst188398%_) - (_%rest288414%_ _%lst288399%_)) - (let* ((_%rest18841688424%_ _%rest188413%_) - (_%else8841888432%_ (lambda () '#t)) - (_%K8842088471%_ - (lambda (_%rest188435%_ _%x188436%_) - (let* ((_%rest28843788445%_ _%rest288414%_) - (_%else8843988453%_ (lambda () '#t)) - (_%K8844188459%_ - (lambda (_%rest288456%_ _%x288457%_) + (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)) - (_%f88402%_ _%x188436%_ _%x288457%_)) - (_%lp88411%_ _%rest188435%_ _%rest288456%_) + (_%f89285%_ _%x189319%_ _%x289340%_)) + (_%lp89294%_ _%rest189318%_ _%rest289339%_) '#f)))) - (if (pair? _%rest28843788445%_) - (let ((_%hd8844288462%_ + (if (pair? _%rest28932089328%_) + (let ((_%hd8932589345%_ (let () (declare (not safe)) - (##car _%rest28843788445%_))) - (_%tl8844388464%_ + (##car _%rest28932089328%_))) + (_%tl8932689347%_ (let () (declare (not safe)) - (##cdr _%rest28843788445%_)))) - (let* ((_%x288467%_ _%hd8844288462%_) - (_%rest288469%_ _%tl8844388464%_)) - (_%K8844188459%_ _%rest288469%_ _%x288467%_))) - (_%else8843988453%_)))))) - (if (pair? _%rest18841688424%_) - (let ((_%hd8842188474%_ + (##cdr _%rest28932089328%_)))) + (let* ((_%x289350%_ _%hd8932589345%_) + (_%rest289352%_ _%tl8932689347%_)) + (_%K8932489342%_ _%rest289352%_ _%x289350%_))) + (_%else8932289336%_)))))) + (if (pair? _%rest18929989307%_) + (let ((_%hd8930489357%_ (let () (declare (not safe)) - (##car _%rest18841688424%_))) - (_%tl8842288476%_ + (##car _%rest18929989307%_))) + (_%tl8930589359%_ (let () (declare (not safe)) - (##cdr _%rest18841688424%_)))) - (let* ((_%x188479%_ _%hd8842188474%_) - (_%rest188481%_ _%tl8842288476%_)) - (_%K8842088471%_ _%rest188481%_ _%x188479%_))) - (_%else8841888432%_))))))) + (##cdr _%rest18929989307%_)))) + (let* ((_%x189362%_ _%hd8930489357%_) + (_%rest189364%_ _%tl8930589359%_)) + (_%K8930389354%_ _%rest189364%_ _%x189362%_))) + (_%else8930189315%_))))))) (define andmap - (lambda _g91344_ - (let ((_g91343_ (let () (declare (not safe)) (##length _g91344_)))) - (cond ((let () (declare (not safe)) (##fx= _g91343_ 2)) - (apply andmap1 _g91344_)) - ((let () (declare (not safe)) (##fx= _g91343_ 3)) - (apply andmap2 _g91344_)) - ((let () (declare (not safe)) (##fx>= _g91343_ 3)) - (apply andmap* _g91344_)) + (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 - _g91344_)))))) + _g92227_)))))) (define andmap* - (lambda (_%f88370%_ . _%rest88371%_) - (if (procedure? _%f88370%_) - (let ((_%f88375%_ _%f88370%_)) + (lambda (_%f89253%_ . _%rest89254%_) + (if (procedure? _%f89253%_) + (let ((_%f89258%_ _%f89253%_)) (declare (not safe)) - (##apply __andmap* _%f88375%_ _%rest88371%_)) + (##apply __andmap* _%f89258%_ _%rest89254%_)) (begin (raise-contract-violation-error '"contract violation" @@ -932,23 +932,23 @@ 'contract: 'procedure? 'value: - _%f88370%_) + _%f89253%_) '#!void)))) (define __andmap* - (lambda (_%f88352%_ . _%rest88353%_) - (let ((_%f88356%_ _%f88352%_)) - (let _%recur88365%_ ((_%rest88367%_ _%rest88353%_)) - (if (__andmap1 pair? _%rest88367%_) - (if (let ((__tmp91345 (map car _%rest88367%_))) + (lambda (_%f89235%_ . _%rest89236%_) + (let ((_%f89239%_ _%f89235%_)) + (let _%recur89248%_ ((_%rest89250%_ _%rest89236%_)) + (if (__andmap1 pair? _%rest89250%_) + (if (let ((__tmp92228 (map car _%rest89250%_))) (declare (not safe)) - (##apply _%f88356%_ __tmp91345)) - (_%recur88365%_ (map cdr _%rest88367%_)) + (##apply _%f89239%_ __tmp92228)) + (_%recur89248%_ (map cdr _%rest89250%_)) '#f) '#t))))) (define ormap1 - (lambda (_%f88337%_ _%lst88338%_) - (if (procedure? _%f88337%_) - (let ((_%f88342%_ _%f88337%_)) (__ormap1 _%f88342%_ _%lst88338%_)) + (lambda (_%f89220%_ _%lst89221%_) + (if (procedure? _%f89220%_) + (let ((_%f89225%_ _%f89220%_)) (__ormap1 _%f89225%_ _%lst89221%_)) (begin (raise-contract-violation-error '"contract violation" @@ -957,41 +957,41 @@ 'contract: 'procedure? 'value: - _%f88337%_) + _%f89220%_) '#!void)))) (define __ormap1 - (lambda (_%f88284%_ _%lst88285%_) - (let ((_%f88288%_ _%f88284%_)) - (let _%lp88297%_ ((_%rest88299%_ _%lst88285%_)) - (let* ((_%rest8830088308%_ _%rest88299%_) - (_%else8830288316%_ (lambda () '#f)) - (_%K8830488325%_ - (lambda (_%rest88319%_ _%x88320%_) - (let ((_%$e88322%_ + (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)) - (_%f88288%_ _%x88320%_)))) - (if _%$e88322%_ - _%$e88322%_ - (_%lp88297%_ _%rest88319%_)))))) - (if (pair? _%rest8830088308%_) - (let ((_%hd8830588328%_ + (_%f89171%_ _%x89203%_)))) + (if _%$e89205%_ + _%$e89205%_ + (_%lp89180%_ _%rest89202%_)))))) + (if (pair? _%rest8918389191%_) + (let ((_%hd8918889211%_ (let () (declare (not safe)) - (##car _%rest8830088308%_))) - (_%tl8830688330%_ + (##car _%rest8918389191%_))) + (_%tl8918989213%_ (let () (declare (not safe)) - (##cdr _%rest8830088308%_)))) - (let* ((_%x88333%_ _%hd8830588328%_) - (_%rest88335%_ _%tl8830688330%_)) - (_%K8830488325%_ _%rest88335%_ _%x88333%_))) - (_%else8830288316%_))))))) + (##cdr _%rest8918389191%_)))) + (let* ((_%x89216%_ _%hd8918889211%_) + (_%rest89218%_ _%tl8918989213%_)) + (_%K8918789208%_ _%rest89218%_ _%x89216%_))) + (_%else8918589199%_))))))) (define ormap2 - (lambda (_%f88268%_ _%lst188269%_ _%lst288270%_) - (if (procedure? _%f88268%_) - (let ((_%f88274%_ _%f88268%_)) - (__ormap2 _%f88274%_ _%lst188269%_ _%lst288270%_)) + (lambda (_%f89151%_ _%lst189152%_ _%lst289153%_) + (if (procedure? _%f89151%_) + (let ((_%f89157%_ _%f89151%_)) + (__ormap2 _%f89157%_ _%lst189152%_ _%lst289153%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1000,77 +1000,77 @@ 'contract: 'procedure? 'value: - _%f88268%_) + _%f89151%_) '#!void)))) (define __ormap2 - (lambda (_%f88180%_ _%lst188181%_ _%lst288182%_) - (let ((_%f88185%_ _%f88180%_)) - (let _%lp88194%_ ((_%rest188196%_ _%lst188181%_) - (_%rest288197%_ _%lst288182%_)) - (let* ((_%rest18819888206%_ _%rest188196%_) - (_%else8820088214%_ (lambda () '#f)) - (_%K8820288256%_ - (lambda (_%rest188217%_ _%x188218%_) - (let* ((_%rest28821988227%_ _%rest288197%_) - (_%else8822188235%_ (lambda () '#f)) - (_%K8822388244%_ - (lambda (_%rest288238%_ _%x288239%_) - (let ((_%$e88241%_ + (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)) - (_%f88185%_ - _%x188218%_ - _%x288239%_)))) - (if _%$e88241%_ - _%$e88241%_ - (_%lp88194%_ - _%rest188217%_ - _%rest288238%_)))))) - (if (pair? _%rest28821988227%_) - (let ((_%hd8822488247%_ + (_%f89068%_ + _%x189101%_ + _%x289122%_)))) + (if _%$e89124%_ + _%$e89124%_ + (_%lp89077%_ + _%rest189100%_ + _%rest289121%_)))))) + (if (pair? _%rest28910289110%_) + (let ((_%hd8910789130%_ (let () (declare (not safe)) - (##car _%rest28821988227%_))) - (_%tl8822588249%_ + (##car _%rest28910289110%_))) + (_%tl8910889132%_ (let () (declare (not safe)) - (##cdr _%rest28821988227%_)))) - (let* ((_%x288252%_ _%hd8822488247%_) - (_%rest288254%_ _%tl8822588249%_)) - (_%K8822388244%_ _%rest288254%_ _%x288252%_))) - (_%else8822188235%_)))))) - (if (pair? _%rest18819888206%_) - (let ((_%hd8820388259%_ + (##cdr _%rest28910289110%_)))) + (let* ((_%x289135%_ _%hd8910789130%_) + (_%rest289137%_ _%tl8910889132%_)) + (_%K8910689127%_ _%rest289137%_ _%x289135%_))) + (_%else8910489118%_)))))) + (if (pair? _%rest18908189089%_) + (let ((_%hd8908689142%_ (let () (declare (not safe)) - (##car _%rest18819888206%_))) - (_%tl8820488261%_ + (##car _%rest18908189089%_))) + (_%tl8908789144%_ (let () (declare (not safe)) - (##cdr _%rest18819888206%_)))) - (let* ((_%x188264%_ _%hd8820388259%_) - (_%rest188266%_ _%tl8820488261%_)) - (_%K8820288256%_ _%rest188266%_ _%x188264%_))) - (_%else8820088214%_))))))) + (##cdr _%rest18908189089%_)))) + (let* ((_%x189147%_ _%hd8908689142%_) + (_%rest189149%_ _%tl8908789144%_)) + (_%K8908589139%_ _%rest189149%_ _%x189147%_))) + (_%else8908389097%_))))))) (define ormap - (lambda _g91347_ - (let ((_g91346_ (let () (declare (not safe)) (##length _g91347_)))) - (cond ((let () (declare (not safe)) (##fx= _g91346_ 2)) - (apply ormap1 _g91347_)) - ((let () (declare (not safe)) (##fx= _g91346_ 3)) - (apply ormap2 _g91347_)) - ((let () (declare (not safe)) (##fx>= _g91346_ 3)) - (apply ormap* _g91347_)) + (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 - _g91347_)))))) + _g92230_)))))) (define ormap* - (lambda (_%f88153%_ . _%rest88154%_) - (if (procedure? _%f88153%_) - (let ((_%f88158%_ _%f88153%_)) + (lambda (_%f89036%_ . _%rest89037%_) + (if (procedure? _%f89036%_) + (let ((_%f89041%_ _%f89036%_)) (declare (not safe)) - (##apply __ormap* _%f88158%_ _%rest88154%_)) + (##apply __ormap* _%f89041%_ _%rest89037%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1079,26 +1079,26 @@ 'contract: 'procedure? 'value: - _%f88153%_) + _%f89036%_) '#!void)))) (define __ormap* - (lambda (_%f88133%_ . _%rest88134%_) - (let ((_%f88137%_ _%f88133%_)) - (let _%recur88146%_ ((_%rest88148%_ _%rest88134%_)) - (if (__andmap1 pair? _%rest88148%_) - (let ((_%$e88150%_ - (let ((__tmp91348 (map car _%rest88148%_))) + (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 _%f88137%_ __tmp91348)))) - (if _%$e88150%_ - _%$e88150%_ - (_%recur88146%_ (map cdr _%rest88148%_)))) + (##apply _%f89020%_ __tmp92231)))) + (if _%$e89033%_ + _%$e89033%_ + (_%recur89029%_ (map cdr _%rest89031%_)))) '#f))))) (define filter-map1 - (lambda (_%f88118%_ _%lst88119%_) - (if (procedure? _%f88118%_) - (let ((_%f88123%_ _%f88118%_)) - (__filter-map1 _%f88123%_ _%lst88119%_)) + (lambda (_%f89001%_ _%lst89002%_) + (if (procedure? _%f89001%_) + (let ((_%f89006%_ _%f89001%_)) + (__filter-map1 _%f89006%_ _%lst89002%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1107,44 +1107,44 @@ 'contract: 'procedure? 'value: - _%f88118%_) + _%f89001%_) '#!void)))) (define __filter-map1 - (lambda (_%f88061%_ _%lst88062%_) - (let ((_%f88065%_ _%f88061%_)) - (let _%recur88074%_ ((_%rest88076%_ _%lst88062%_)) - (let* ((_%rest8807888086%_ _%rest88076%_) - (_%else8808088094%_ (lambda () '())) - (_%K8808288106%_ - (lambda (_%rest88097%_ _%x88098%_) - (let ((_%$e88100%_ + (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)) - (_%f88065%_ _%x88098%_)))) - (if _%$e88100%_ - ((lambda (_%r88103%_) - (cons _%r88103%_ - (_%recur88074%_ _%rest88097%_))) - _%$e88100%_) - (_%recur88074%_ _%rest88097%_)))))) - (if (pair? _%rest8807888086%_) - (let ((_%hd8808388109%_ + (_%f88948%_ _%x88981%_)))) + (if _%$e88983%_ + ((lambda (_%r88986%_) + (cons _%r88986%_ + (_%recur88957%_ _%rest88980%_))) + _%$e88983%_) + (_%recur88957%_ _%rest88980%_)))))) + (if (pair? _%rest8896188969%_) + (let ((_%hd8896688992%_ (let () (declare (not safe)) - (##car _%rest8807888086%_))) - (_%tl8808488111%_ + (##car _%rest8896188969%_))) + (_%tl8896788994%_ (let () (declare (not safe)) - (##cdr _%rest8807888086%_)))) - (let* ((_%x88114%_ _%hd8808388109%_) - (_%rest88116%_ _%tl8808488111%_)) - (_%K8808288106%_ _%rest88116%_ _%x88114%_))) - (_%else8808088094%_))))))) + (##cdr _%rest8896188969%_)))) + (let* ((_%x88997%_ _%hd8896688992%_) + (_%rest88999%_ _%tl8896788994%_)) + (_%K8896588989%_ _%rest88999%_ _%x88997%_))) + (_%else8896388977%_))))))) (define filter-map2 - (lambda (_%f88045%_ _%lst188046%_ _%lst288047%_) - (if (procedure? _%f88045%_) - (let ((_%f88051%_ _%f88045%_)) - (__filter-map2 _%f88051%_ _%lst188046%_ _%lst288047%_)) + (lambda (_%f88928%_ _%lst188929%_ _%lst288930%_) + (if (procedure? _%f88928%_) + (let ((_%f88934%_ _%f88928%_)) + (__filter-map2 _%f88934%_ _%lst188929%_ _%lst288930%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1153,82 +1153,82 @@ 'contract: 'procedure? 'value: - _%f88045%_) + _%f88928%_) '#!void)))) (define __filter-map2 - (lambda (_%f87953%_ _%lst187954%_ _%lst287955%_) - (let ((_%f87958%_ _%f87953%_)) - (let _%recur87967%_ ((_%rest187969%_ _%lst187954%_) - (_%rest287970%_ _%lst287955%_)) - (let* ((_%rest18797287980%_ _%rest187969%_) - (_%else8797487988%_ (lambda () '())) - (_%K8797688033%_ - (lambda (_%rest187991%_ _%x187992%_) - (let* ((_%rest28799388001%_ _%rest287970%_) - (_%else8799588009%_ (lambda () '())) - (_%K8799788021%_ - (lambda (_%rest288012%_ _%x288013%_) - (let ((_%$e88015%_ + (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)) - (_%f87958%_ - _%x187992%_ - _%x288013%_)))) - (if _%$e88015%_ - ((lambda (_%r88018%_) - (cons _%r88018%_ - (_%recur87967%_ - _%rest187991%_ - _%rest288012%_))) - _%$e88015%_) - (_%recur87967%_ - _%rest187991%_ - _%rest288012%_)))))) - (if (pair? _%rest28799388001%_) - (let ((_%hd8799888024%_ + (_%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 _%rest28799388001%_))) - (_%tl8799988026%_ + (##car _%rest28887688884%_))) + (_%tl8888288909%_ (let () (declare (not safe)) - (##cdr _%rest28799388001%_)))) - (let* ((_%x288029%_ _%hd8799888024%_) - (_%rest288031%_ _%tl8799988026%_)) - (_%K8799788021%_ _%rest288031%_ _%x288029%_))) - (_%else8799588009%_)))))) - (if (pair? _%rest18797287980%_) - (let ((_%hd8797788036%_ + (##cdr _%rest28887688884%_)))) + (let* ((_%x288912%_ _%hd8888188907%_) + (_%rest288914%_ _%tl8888288909%_)) + (_%K8888088904%_ _%rest288914%_ _%x288912%_))) + (_%else8887888892%_)))))) + (if (pair? _%rest18885588863%_) + (let ((_%hd8886088919%_ (let () (declare (not safe)) - (##car _%rest18797287980%_))) - (_%tl8797888038%_ + (##car _%rest18885588863%_))) + (_%tl8886188921%_ (let () (declare (not safe)) - (##cdr _%rest18797287980%_)))) - (let* ((_%x188041%_ _%hd8797788036%_) - (_%rest188043%_ _%tl8797888038%_)) - (_%K8797688033%_ _%rest188043%_ _%x188041%_))) - (_%else8797487988%_))))))) + (##cdr _%rest18885588863%_)))) + (let* ((_%x188924%_ _%hd8886088919%_) + (_%rest188926%_ _%tl8886188921%_)) + (_%K8885988916%_ _%rest188926%_ _%x188924%_))) + (_%else8885788871%_))))))) (define filter-map - (lambda _g91350_ - (let ((_g91349_ (let () (declare (not safe)) (##length _g91350_)))) - (cond ((let () (declare (not safe)) (##fx= _g91349_ 2)) - (apply filter-map1 _g91350_)) - ((let () (declare (not safe)) (##fx= _g91349_ 3)) - (apply filter-map2 _g91350_)) - ((let () (declare (not safe)) (##fx>= _g91349_ 3)) - (apply filter-map* _g91350_)) + (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 - _g91350_)))))) + _g92233_)))))) (define filter-map* - (lambda (_%f87926%_ . _%rest87927%_) - (if (procedure? _%f87926%_) - (let ((_%f87931%_ _%f87926%_)) + (lambda (_%f88809%_ . _%rest88810%_) + (if (procedure? _%f88809%_) + (let ((_%f88814%_ _%f88809%_)) (declare (not safe)) - (##apply __filter-map* _%f87931%_ _%rest87927%_)) + (##apply __filter-map* _%f88814%_ _%rest88810%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1237,274 +1237,274 @@ 'contract: 'procedure? 'value: - _%f87926%_) + _%f88809%_) '#!void)))) (define __filter-map* - (lambda (_%f87902%_ . _%rest87903%_) - (let ((_%f87906%_ _%f87902%_)) - (let _%recur87915%_ ((_%rest87917%_ _%rest87903%_)) - (if (__andmap1 pair? _%rest87917%_) - (let ((_%$e87920%_ - (let ((__tmp91351 (map car _%rest87917%_))) + (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 _%f87906%_ __tmp91351)))) - (if _%$e87920%_ - ((lambda (_%r87923%_) - (cons _%r87923%_ - (_%recur87915%_ (map cdr _%rest87917%_)))) - _%$e87920%_) - (_%recur87915%_ (map cdr _%rest87917%_)))) + (##apply _%f88789%_ __tmp92234)))) + (if _%$e88803%_ + ((lambda (_%r88806%_) + (cons _%r88806%_ + (_%recur88798%_ (map cdr _%rest88800%_)))) + _%$e88803%_) + (_%recur88798%_ (map cdr _%rest88800%_)))) '()))))) (define agetq__% - (lambda (_%key87878%_ _%lst87880%_ _%default87882%_) - (let ((_%$e87885%_ - (if (pair? _%lst87880%_) (assq _%key87878%_ _%lst87880%_) '#f))) - (if _%$e87885%_ - (cdr _%$e87885%_) - (if (procedure? _%default87882%_) - (_%default87882%_ _%key87878%_) - _%default87882%_))))) + (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 (_%key87893%_ _%lst87894%_) - (let ((_%default87896%_ '#f)) - (agetq__% _%key87893%_ _%lst87894%_ _%default87896%_)))) + (lambda (_%key88776%_ _%lst88777%_) + (let ((_%default88779%_ '#f)) + (agetq__% _%key88776%_ _%lst88777%_ _%default88779%_)))) (define agetq - (lambda _g91353_ - (let ((_g91352_ (let () (declare (not safe)) (##length _g91353_)))) - (cond ((let () (declare (not safe)) (##fx= _g91352_ 2)) - (apply agetq__0 _g91353_)) - ((let () (declare (not safe)) (##fx= _g91352_ 3)) - (apply agetq__% _g91353_)) + (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 - _g91353_)))))) + _g92236_)))))) (define agetv__% - (lambda (_%key87853%_ _%lst87855%_ _%default87857%_) - (let ((_%$e87860%_ - (if (pair? _%lst87855%_) (assv _%key87853%_ _%lst87855%_) '#f))) - (if _%$e87860%_ - (cdr _%$e87860%_) - (if (procedure? _%default87857%_) - (_%default87857%_ _%key87853%_) - _%default87857%_))))) + (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 (_%key87868%_ _%lst87869%_) - (let ((_%default87871%_ '#f)) - (agetv__% _%key87868%_ _%lst87869%_ _%default87871%_)))) + (lambda (_%key88751%_ _%lst88752%_) + (let ((_%default88754%_ '#f)) + (agetv__% _%key88751%_ _%lst88752%_ _%default88754%_)))) (define agetv - (lambda _g91355_ - (let ((_g91354_ (let () (declare (not safe)) (##length _g91355_)))) - (cond ((let () (declare (not safe)) (##fx= _g91354_ 2)) - (apply agetv__0 _g91355_)) - ((let () (declare (not safe)) (##fx= _g91354_ 3)) - (apply agetv__% _g91355_)) + (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 - _g91355_)))))) + _g92238_)))))) (define aget__% - (lambda (_%key87828%_ _%lst87830%_ _%default87832%_) - (let ((_%$e87835%_ - (if (pair? _%lst87830%_) - (assoc _%key87828%_ _%lst87830%_) + (lambda (_%key88711%_ _%lst88713%_ _%default88715%_) + (let ((_%$e88718%_ + (if (pair? _%lst88713%_) + (assoc _%key88711%_ _%lst88713%_) '#f))) - (if _%$e87835%_ - (cdr _%$e87835%_) - (if (procedure? _%default87832%_) - (_%default87832%_ _%key87828%_) - _%default87832%_))))) + (if _%$e88718%_ + (cdr _%$e88718%_) + (if (procedure? _%default88715%_) + (_%default88715%_ _%key88711%_) + _%default88715%_))))) (define aget__0 - (lambda (_%key87843%_ _%lst87844%_) - (let ((_%default87846%_ '#f)) - (aget__% _%key87843%_ _%lst87844%_ _%default87846%_)))) + (lambda (_%key88726%_ _%lst88727%_) + (let ((_%default88729%_ '#f)) + (aget__% _%key88726%_ _%lst88727%_ _%default88729%_)))) (define aget - (lambda _g91357_ - (let ((_g91356_ (let () (declare (not safe)) (##length _g91357_)))) - (cond ((let () (declare (not safe)) (##fx= _g91356_ 2)) - (apply aget__0 _g91357_)) - ((let () (declare (not safe)) (##fx= _g91356_ 3)) - (apply aget__% _g91357_)) + (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 - _g91357_)))))) + _g92240_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key87757%_ _%lst87759%_ _%default87761%_) - (let _%lp87764%_ ((_%rest87767%_ _%lst87759%_)) - (let* ((_%rest8776987779%_ _%rest87767%_) - (_%else8777187787%_ + (lambda (_%key88640%_ _%lst88642%_ _%default88644%_) + (let _%lp88647%_ ((_%rest88650%_ _%lst88642%_)) + (let* ((_%rest8865288662%_ _%rest88650%_) + (_%else8865488670%_ (lambda () - (if (procedure? _%default87761%_) - (_%default87761%_ _%key87757%_) - _%default87761%_))) - (_%K8777387796%_ - (lambda (_%rest87790%_ _%v87791%_ _%k87793%_) - (if (eq? _%k87793%_ _%key87757%_) - _%v87791%_ - (_%lp87764%_ _%rest87790%_))))) - (if (pair? _%rest8776987779%_) - (let ((_%hd8777487799%_ + (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 _%rest8776987779%_))) - (_%tl8777587801%_ + (##car _%rest8865288662%_))) + (_%tl8865888684%_ (let () (declare (not safe)) - (##cdr _%rest8776987779%_)))) - (let ((_%k87804%_ _%hd8777487799%_)) - (if (pair? _%tl8777587801%_) - (let ((_%hd8777687806%_ + (##cdr _%rest8865288662%_)))) + (let ((_%k88687%_ _%hd8865788682%_)) + (if (pair? _%tl8865888684%_) + (let ((_%hd8865988689%_ (let () (declare (not safe)) - (##car _%tl8777587801%_))) - (_%tl8777787808%_ + (##car _%tl8865888684%_))) + (_%tl8866088691%_ (let () (declare (not safe)) - (##cdr _%tl8777587801%_)))) - (let* ((_%v87811%_ _%hd8777687806%_) - (_%rest87813%_ _%tl8777787808%_)) - (_%K8777387796%_ - _%rest87813%_ - _%v87811%_ - _%k87804%_))) - (_%else8777187787%_)))) - (_%else8777187787%_)))))) + (##cdr _%tl8865888684%_)))) + (let* ((_%v88694%_ _%hd8865988689%_) + (_%rest88696%_ _%tl8866088691%_)) + (_%K8865688679%_ + _%rest88696%_ + _%v88694%_ + _%k88687%_))) + (_%else8865488670%_)))) + (_%else8865488670%_)))))) (define pgetq__0 - (lambda (_%key87818%_ _%lst87819%_) - (let ((_%default87821%_ '#f)) - (pgetq__% _%key87818%_ _%lst87819%_ _%default87821%_)))) + (lambda (_%key88701%_ _%lst88702%_) + (let ((_%default88704%_ '#f)) + (pgetq__% _%key88701%_ _%lst88702%_ _%default88704%_)))) (define pgetq - (lambda _g91359_ - (let ((_g91358_ (let () (declare (not safe)) (##length _g91359_)))) - (cond ((let () (declare (not safe)) (##fx= _g91358_ 2)) - (apply pgetq__0 _g91359_)) - ((let () (declare (not safe)) (##fx= _g91358_ 3)) - (apply pgetq__% _g91359_)) + (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 - _g91359_)))))) + _g92242_)))))) (define pgetv__% - (lambda (_%key87686%_ _%lst87688%_ _%default87690%_) - (let _%lp87693%_ ((_%rest87696%_ _%lst87688%_)) - (let* ((_%rest8769887708%_ _%rest87696%_) - (_%else8770087716%_ + (lambda (_%key88569%_ _%lst88571%_ _%default88573%_) + (let _%lp88576%_ ((_%rest88579%_ _%lst88571%_)) + (let* ((_%rest8858188591%_ _%rest88579%_) + (_%else8858388599%_ (lambda () - (if (procedure? _%default87690%_) - (_%default87690%_ _%key87686%_) - _%default87690%_))) - (_%K8770287725%_ - (lambda (_%rest87719%_ _%v87720%_ _%k87722%_) - (if (eqv? _%k87722%_ _%key87686%_) - _%v87720%_ - (_%lp87693%_ _%rest87719%_))))) - (if (pair? _%rest8769887708%_) - (let ((_%hd8770387728%_ + (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 _%rest8769887708%_))) - (_%tl8770487730%_ + (##car _%rest8858188591%_))) + (_%tl8858788613%_ (let () (declare (not safe)) - (##cdr _%rest8769887708%_)))) - (let ((_%k87733%_ _%hd8770387728%_)) - (if (pair? _%tl8770487730%_) - (let ((_%hd8770587735%_ + (##cdr _%rest8858188591%_)))) + (let ((_%k88616%_ _%hd8858688611%_)) + (if (pair? _%tl8858788613%_) + (let ((_%hd8858888618%_ (let () (declare (not safe)) - (##car _%tl8770487730%_))) - (_%tl8770687737%_ + (##car _%tl8858788613%_))) + (_%tl8858988620%_ (let () (declare (not safe)) - (##cdr _%tl8770487730%_)))) - (let* ((_%v87740%_ _%hd8770587735%_) - (_%rest87742%_ _%tl8770687737%_)) - (_%K8770287725%_ - _%rest87742%_ - _%v87740%_ - _%k87733%_))) - (_%else8770087716%_)))) - (_%else8770087716%_)))))) + (##cdr _%tl8858788613%_)))) + (let* ((_%v88623%_ _%hd8858888618%_) + (_%rest88625%_ _%tl8858988620%_)) + (_%K8858588608%_ + _%rest88625%_ + _%v88623%_ + _%k88616%_))) + (_%else8858388599%_)))) + (_%else8858388599%_)))))) (define pgetv__0 - (lambda (_%key87747%_ _%lst87748%_) - (let ((_%default87750%_ '#f)) - (pgetv__% _%key87747%_ _%lst87748%_ _%default87750%_)))) + (lambda (_%key88630%_ _%lst88631%_) + (let ((_%default88633%_ '#f)) + (pgetv__% _%key88630%_ _%lst88631%_ _%default88633%_)))) (define pgetv - (lambda _g91361_ - (let ((_g91360_ (let () (declare (not safe)) (##length _g91361_)))) - (cond ((let () (declare (not safe)) (##fx= _g91360_ 2)) - (apply pgetv__0 _g91361_)) - ((let () (declare (not safe)) (##fx= _g91360_ 3)) - (apply pgetv__% _g91361_)) + (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 - _g91361_)))))) + _g92244_)))))) (define pget__% - (lambda (_%key87615%_ _%lst87617%_ _%default87619%_) - (let _%lp87622%_ ((_%rest87625%_ _%lst87617%_)) - (let* ((_%rest8762787637%_ _%rest87625%_) - (_%else8762987645%_ + (lambda (_%key88498%_ _%lst88500%_ _%default88502%_) + (let _%lp88505%_ ((_%rest88508%_ _%lst88500%_)) + (let* ((_%rest8851088520%_ _%rest88508%_) + (_%else8851288528%_ (lambda () - (if (procedure? _%default87619%_) - (_%default87619%_ _%key87615%_) - _%default87619%_))) - (_%K8763187654%_ - (lambda (_%rest87648%_ _%v87649%_ _%k87651%_) - (if (equal? _%k87651%_ _%key87615%_) - _%v87649%_ - (_%lp87622%_ _%rest87648%_))))) - (if (pair? _%rest8762787637%_) - (let ((_%hd8763287657%_ + (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 _%rest8762787637%_))) - (_%tl8763387659%_ + (##car _%rest8851088520%_))) + (_%tl8851688542%_ (let () (declare (not safe)) - (##cdr _%rest8762787637%_)))) - (let ((_%k87662%_ _%hd8763287657%_)) - (if (pair? _%tl8763387659%_) - (let ((_%hd8763487664%_ + (##cdr _%rest8851088520%_)))) + (let ((_%k88545%_ _%hd8851588540%_)) + (if (pair? _%tl8851688542%_) + (let ((_%hd8851788547%_ (let () (declare (not safe)) - (##car _%tl8763387659%_))) - (_%tl8763587666%_ + (##car _%tl8851688542%_))) + (_%tl8851888549%_ (let () (declare (not safe)) - (##cdr _%tl8763387659%_)))) - (let* ((_%v87669%_ _%hd8763487664%_) - (_%rest87671%_ _%tl8763587666%_)) - (_%K8763187654%_ - _%rest87671%_ - _%v87669%_ - _%k87662%_))) - (_%else8762987645%_)))) - (_%else8762987645%_)))))) + (##cdr _%tl8851688542%_)))) + (let* ((_%v88552%_ _%hd8851788547%_) + (_%rest88554%_ _%tl8851888549%_)) + (_%K8851488537%_ + _%rest88554%_ + _%v88552%_ + _%k88545%_))) + (_%else8851288528%_)))) + (_%else8851288528%_)))))) (define pget__0 - (lambda (_%key87676%_ _%lst87677%_) - (let ((_%default87679%_ '#f)) - (pget__% _%key87676%_ _%lst87677%_ _%default87679%_)))) + (lambda (_%key88559%_ _%lst88560%_) + (let ((_%default88562%_ '#f)) + (pget__% _%key88559%_ _%lst88560%_ _%default88562%_)))) (define pget - (lambda _g91363_ - (let ((_g91362_ (let () (declare (not safe)) (##length _g91363_)))) - (cond ((let () (declare (not safe)) (##fx= _g91362_ 2)) - (apply pget__0 _g91363_)) - ((let () (declare (not safe)) (##fx= _g91362_ 3)) - (apply pget__% _g91363_)) + (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 - _g91363_)))))) + _g92246_)))))) (define find - (lambda (_%pred87599%_ _%lst87600%_) - (if (procedure? _%pred87599%_) - (let ((_%pred87604%_ _%pred87599%_)) - (__find _%pred87604%_ _%lst87600%_)) + (lambda (_%pred88482%_ _%lst88483%_) + (if (procedure? _%pred88482%_) + (let ((_%pred88487%_ _%pred88482%_)) + (__find _%pred88487%_ _%lst88483%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1513,20 +1513,20 @@ 'contract: 'procedure? 'value: - _%pred87599%_) + _%pred88482%_) '#!void)))) (define __find - (lambda (_%pred87582%_ _%lst87583%_) - (let* ((_%pred87586%_ _%pred87582%_) - (_%$e87595%_ (__memf _%pred87586%_ _%lst87583%_))) - (if _%$e87595%_ - (let () (declare (not safe)) (##car _%$e87595%_)) + (lambda (_%pred88465%_ _%lst88466%_) + (let* ((_%pred88469%_ _%pred88465%_) + (_%$e88478%_ (__memf _%pred88469%_ _%lst88466%_))) + (if _%$e88478%_ + (let () (declare (not safe)) (##car _%$e88478%_)) '#f)))) (define memf - (lambda (_%proc87567%_ _%lst87568%_) - (if (procedure? _%proc87567%_) - (let ((_%proc87572%_ _%proc87567%_)) - (__memf _%proc87572%_ _%lst87568%_)) + (lambda (_%proc88450%_ _%lst88451%_) + (if (procedure? _%proc88450%_) + (let ((_%proc88455%_ _%proc88450%_)) + (__memf _%proc88455%_ _%lst88451%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1535,114 +1535,114 @@ 'contract: 'procedure? 'value: - _%proc87567%_) + _%proc88450%_) '#!void)))) (define __memf - (lambda (_%proc87517%_ _%lst87518%_) - (let ((_%proc87521%_ _%proc87517%_)) - (let _%lp87530%_ ((_%rest87532%_ _%lst87518%_)) - (let* ((_%rest8753387541%_ _%rest87532%_) - (_%else8753587549%_ (lambda () '#f)) - (_%K8753787555%_ - (lambda (_%tl87552%_ _%hd87553%_) + (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)) - (_%proc87521%_ _%hd87553%_)) - _%rest87532%_ - (_%lp87530%_ _%tl87552%_))))) - (if (pair? _%rest8753387541%_) - (let ((_%hd8753887558%_ + (_%proc88404%_ _%hd88436%_)) + _%rest88415%_ + (_%lp88413%_ _%tl88435%_))))) + (if (pair? _%rest8841688424%_) + (let ((_%hd8842188441%_ (let () (declare (not safe)) - (##car _%rest8753387541%_))) - (_%tl8753987560%_ + (##car _%rest8841688424%_))) + (_%tl8842288443%_ (let () (declare (not safe)) - (##cdr _%rest8753387541%_)))) - (let* ((_%hd87563%_ _%hd8753887558%_) - (_%tl87565%_ _%tl8753987560%_)) - (_%K8753787555%_ _%tl87565%_ _%hd87563%_))) - (_%else8753587549%_))))))) + (##cdr _%rest8841688424%_)))) + (let* ((_%hd88446%_ _%hd8842188441%_) + (_%tl88448%_ _%tl8842288443%_)) + (_%K8842088438%_ _%tl88448%_ _%hd88446%_))) + (_%else8841888432%_))))))) (define remove1 - (lambda (_%el87470%_ _%lst87472%_) - (let _%lp87475%_ ((_%rest87478%_ _%lst87472%_) (_%r87480%_ '())) - (let* ((_%rest8748287490%_ _%rest87478%_) - (_%else8748487498%_ (lambda () _%lst87472%_)) - (_%K8748687505%_ - (lambda (_%rest87501%_ _%hd87502%_) - (if (equal? _%el87470%_ _%hd87502%_) - (__foldl1 cons _%rest87501%_ _%r87480%_) - (_%lp87475%_ - _%rest87501%_ - (cons _%hd87502%_ _%r87480%_)))))) - (if (pair? _%rest8748287490%_) - (let ((_%hd8748787508%_ + (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 _%rest8748287490%_))) - (_%tl8748887510%_ + (##car _%rest8836588373%_))) + (_%tl8837188393%_ (let () (declare (not safe)) - (##cdr _%rest8748287490%_)))) - (let* ((_%hd87513%_ _%hd8748787508%_) - (_%rest87515%_ _%tl8748887510%_)) - (_%K8748687505%_ _%rest87515%_ _%hd87513%_))) - (_%else8748487498%_)))))) + (##cdr _%rest8836588373%_)))) + (let* ((_%hd88396%_ _%hd8837088391%_) + (_%rest88398%_ _%tl8837188393%_)) + (_%K8836988388%_ _%rest88398%_ _%hd88396%_))) + (_%else8836788381%_)))))) (define remv1 - (lambda (_%el87423%_ _%lst87425%_) - (let _%lp87428%_ ((_%rest87431%_ _%lst87425%_) (_%r87433%_ '())) - (let* ((_%rest8743587443%_ _%rest87431%_) - (_%else8743787451%_ (lambda () _%lst87425%_)) - (_%K8743987458%_ - (lambda (_%rest87454%_ _%hd87455%_) - (if (eqv? _%el87423%_ _%hd87455%_) - (__foldl1 cons _%rest87454%_ _%r87433%_) - (_%lp87428%_ - _%rest87454%_ - (cons _%hd87455%_ _%r87433%_)))))) - (if (pair? _%rest8743587443%_) - (let ((_%hd8744087461%_ + (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 _%rest8743587443%_))) - (_%tl8744187463%_ + (##car _%rest8831888326%_))) + (_%tl8832488346%_ (let () (declare (not safe)) - (##cdr _%rest8743587443%_)))) - (let* ((_%hd87466%_ _%hd8744087461%_) - (_%rest87468%_ _%tl8744187463%_)) - (_%K8743987458%_ _%rest87468%_ _%hd87466%_))) - (_%else8743787451%_)))))) + (##cdr _%rest8831888326%_)))) + (let* ((_%hd88349%_ _%hd8832388344%_) + (_%rest88351%_ _%tl8832488346%_)) + (_%K8832288341%_ _%rest88351%_ _%hd88349%_))) + (_%else8832088334%_)))))) (define remq1 - (lambda (_%el87376%_ _%lst87378%_) - (let _%lp87381%_ ((_%rest87384%_ _%lst87378%_) (_%r87386%_ '())) - (let* ((_%rest8738887396%_ _%rest87384%_) - (_%else8739087404%_ (lambda () _%lst87378%_)) - (_%K8739287411%_ - (lambda (_%rest87407%_ _%hd87408%_) - (if (eq? _%el87376%_ _%hd87408%_) - (__foldl1 cons _%rest87407%_ _%r87386%_) - (_%lp87381%_ - _%rest87407%_ - (cons _%hd87408%_ _%r87386%_)))))) - (if (pair? _%rest8738887396%_) - (let ((_%hd8739387414%_ + (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 _%rest8738887396%_))) - (_%tl8739487416%_ + (##car _%rest8827188279%_))) + (_%tl8827788299%_ (let () (declare (not safe)) - (##cdr _%rest8738887396%_)))) - (let* ((_%hd87419%_ _%hd8739387414%_) - (_%rest87421%_ _%tl8739487416%_)) - (_%K8739287411%_ _%rest87421%_ _%hd87419%_))) - (_%else8739087404%_)))))) + (##cdr _%rest8827188279%_)))) + (let* ((_%hd88302%_ _%hd8827688297%_) + (_%rest88304%_ _%tl8827788299%_)) + (_%K8827588294%_ _%rest88304%_ _%hd88302%_))) + (_%else8827388287%_)))))) (define remf - (lambda (_%proc87361%_ _%lst87362%_) - (if (procedure? _%proc87361%_) - (let ((_%proc87366%_ _%proc87361%_)) - (__remf _%proc87366%_ _%lst87362%_)) + (lambda (_%proc88244%_ _%lst88245%_) + (if (procedure? _%proc88244%_) + (let ((_%proc88249%_ _%proc88244%_)) + (__remf _%proc88249%_ _%lst88245%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1651,40 +1651,40 @@ 'contract: 'procedure? 'value: - _%proc87361%_) + _%proc88244%_) '#!void)))) (define __remf - (lambda (_%proc87310%_ _%lst87311%_) - (let ((_%proc87314%_ _%proc87310%_)) - (let _%lp87323%_ ((_%rest87325%_ _%lst87311%_) (_%r87326%_ '())) - (let* ((_%rest8732787335%_ _%rest87325%_) - (_%else8732987343%_ (lambda () _%lst87311%_)) - (_%K8733187349%_ - (lambda (_%rest87346%_ _%hd87347%_) + (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)) - (_%proc87314%_ _%hd87347%_)) - (__foldl1 cons _%rest87346%_ _%r87326%_) - (_%lp87323%_ - _%rest87346%_ - (cons _%hd87347%_ _%r87326%_)))))) - (if (pair? _%rest8732787335%_) - (let ((_%hd8733287352%_ + (_%proc88197%_ _%hd88230%_)) + (__foldl1 cons _%rest88229%_ _%r88209%_) + (_%lp88206%_ + _%rest88229%_ + (cons _%hd88230%_ _%r88209%_)))))) + (if (pair? _%rest8821088218%_) + (let ((_%hd8821588235%_ (let () (declare (not safe)) - (##car _%rest8732787335%_))) - (_%tl8733387354%_ + (##car _%rest8821088218%_))) + (_%tl8821688237%_ (let () (declare (not safe)) - (##cdr _%rest8732787335%_)))) - (let* ((_%hd87357%_ _%hd8733287352%_) - (_%rest87359%_ _%tl8733387354%_)) - (_%K8733187349%_ _%rest87359%_ _%hd87357%_))) - (_%else8732987343%_))))))) + (##cdr _%rest8821088218%_)))) + (let* ((_%hd88240%_ _%hd8821588235%_) + (_%rest88242%_ _%tl8821688237%_)) + (_%K8821488232%_ _%rest88242%_ _%hd88240%_))) + (_%else8821288226%_))))))) (define 1+ - (lambda (_%x87296%_) - (if (number? _%x87296%_) - (let ((_%x87300%_ _%x87296%_)) (__1+ _%x87300%_)) + (lambda (_%x88179%_) + (if (number? _%x88179%_) + (let ((_%x88183%_ _%x88179%_)) (__1+ _%x88183%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1693,14 +1693,14 @@ 'contract: 'number? 'value: - _%x87296%_) + _%x88179%_) '#!void)))) (define __1+ - (lambda (_%x87284%_) (let ((_%x87287%_ _%x87284%_)) (+ _%x87287%_ '1)))) + (lambda (_%x88167%_) (let ((_%x88170%_ _%x88167%_)) (+ _%x88170%_ '1)))) (define 1- - (lambda (_%x87270%_) - (if (number? _%x87270%_) - (let ((_%x87274%_ _%x87270%_)) (__1- _%x87274%_)) + (lambda (_%x88153%_) + (if (number? _%x88153%_) + (let ((_%x88157%_ _%x88153%_)) (__1- _%x88157%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1709,14 +1709,14 @@ 'contract: 'number? 'value: - _%x87270%_) + _%x88153%_) '#!void)))) (define __1- - (lambda (_%x87258%_) (let ((_%x87261%_ _%x87258%_)) (- _%x87261%_ '1)))) + (lambda (_%x88141%_) (let ((_%x88144%_ _%x88141%_)) (- _%x88144%_ '1)))) (define fx1+ - (lambda (_%x87244%_) - (if (fixnum? _%x87244%_) - (let ((_%x87248%_ _%x87244%_)) (__fx1+ _%x87248%_)) + (lambda (_%x88127%_) + (if (fixnum? _%x88127%_) + (let ((_%x88131%_ _%x88127%_)) (__fx1+ _%x88131%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1725,17 +1725,17 @@ 'contract: 'fixnum? 'value: - _%x87244%_) + _%x88127%_) '#!void)))) (define __fx1+ - (lambda (_%x87232%_) - (let ((_%x87235%_ _%x87232%_)) + (lambda (_%x88115%_) + (let ((_%x88118%_ _%x88115%_)) (declare (not safe)) - (##fx+ _%x87235%_ '1)))) + (##fx+ _%x88118%_ '1)))) (define fx1- - (lambda (_%x87218%_) - (if (fixnum? _%x87218%_) - (let ((_%x87222%_ _%x87218%_)) (__fx1- _%x87222%_)) + (lambda (_%x88101%_) + (if (fixnum? _%x88101%_) + (let ((_%x88105%_ _%x88101%_)) (__fx1- _%x88105%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1744,46 +1744,46 @@ 'contract: 'fixnum? 'value: - _%x87218%_) + _%x88101%_) '#!void)))) (define __fx1- - (lambda (_%x87206%_) - (let ((_%x87209%_ _%x87206%_)) + (lambda (_%x88089%_) + (let ((_%x88092%_ _%x88089%_)) (declare (not safe)) - (##fx- _%x87209%_ '1)))) + (##fx- _%x88092%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_%x87203%_) - (if (fixnum? _%x87203%_) - (let () (declare (not safe)) (##fx>= _%x87203%_ '0)) + (lambda (_%x88086%_) + (if (fixnum? _%x88086%_) + (let () (declare (not safe)) (##fx>= _%x88086%_ '0)) '#f))) (define fx>0? - (lambda (_%x87200%_) - (if (fixnum? _%x87200%_) - (let () (declare (not safe)) (##fx> _%x87200%_ '0)) + (lambda (_%x88083%_) + (if (fixnum? _%x88083%_) + (let () (declare (not safe)) (##fx> _%x88083%_ '0)) '#f))) (define fx=0? - (lambda (_%x87197%_) - (let () (declare (not safe)) (##fx= _%x87197%_ '0)))) + (lambda (_%x88080%_) + (let () (declare (not safe)) (##fx= _%x88080%_ '0)))) (define fx<0? - (lambda (_%x87194%_) - (if (fixnum? _%x87194%_) - (let () (declare (not safe)) (##fx< _%x87194%_ '0)) + (lambda (_%x88077%_) + (if (fixnum? _%x88077%_) + (let () (declare (not safe)) (##fx< _%x88077%_ '0)) '#f))) (define fx<=0? - (lambda (_%x87191%_) - (if (fixnum? _%x87191%_) - (let () (declare (not safe)) (##fx<= _%x87191%_ '0)) + (lambda (_%x88074%_) + (if (fixnum? _%x88074%_) + (let () (declare (not safe)) (##fx<= _%x88074%_ '0)) '#f))) (define interned-symbol? - (lambda (_%x87188%_) - (if (symbol? _%x87188%_) (not (uninterned-symbol? _%x87188%_)) '#f))) + (lambda (_%x88071%_) + (if (symbol? _%x88071%_) (not (uninterned-symbol? _%x88071%_)) '#f))) (define display-as-string - (lambda (_%x87173%_ _%port87174%_) - (if (output-port? _%port87174%_) - (let ((_%port87178%_ _%port87174%_)) - (__display-as-string _%x87173%_ _%port87178%_)) + (lambda (_%x88056%_ _%port88057%_) + (if (output-port? _%port88057%_) + (let ((_%port88061%_ _%port88057%_)) + (__display-as-string _%x88056%_ _%port88061%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1792,147 +1792,147 @@ 'contract: 'output-port? 'value: - _%port87174%_) + _%port88057%_) '#!void)))) (define __display-as-string - (lambda (_%x87130%_ _%port87131%_) - (let ((_%port87134%_ _%port87131%_)) - (if (or (string? _%x87130%_) - (symbol? _%x87130%_) - (keyword? _%x87130%_) - (number? _%x87130%_) - (char? _%x87130%_)) - (display _%x87130%_ _%port87134%_) - (if (pair? _%x87130%_) + (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 _%x87130%_)) - _%port87134%_) + (let () (declare (not safe)) (##car _%x88013%_)) + _%port88017%_) (__display-as-string - (let () (declare (not safe)) (##cdr _%x87130%_)) - _%port87134%_)) - (if (vector? _%x87130%_) + (let () (declare (not safe)) (##cdr _%x88013%_)) + _%port88017%_)) + (if (vector? _%x88013%_) (vector-for-each - (lambda (_%g8715787159%_) - (__display-as-string _%g8715787159%_ _%port87134%_)) - _%x87130%_) - (if (or (null? _%x87130%_) - (eq? _%x87130%_ '#!void) - (eof-object? _%x87130%_) - (boolean? _%x87130%_)) + (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" _%x87130%_) + (error '"cannot convert as string" _%x88013%_) '#!void)))))))) (define as-string__0 - (lambda (_%x87113%_) - (if (string? _%x87113%_) - _%x87113%_ - (if (symbol? _%x87113%_) - (let () (declare (not safe)) (##symbol->string _%x87113%_)) - (if (keyword? _%x87113%_) + (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 _%x87113%_)) - (if (number? _%x87113%_) + (##keyword->string _%x87996%_)) + (if (number? _%x87996%_) (let () (declare (not safe)) - (##number->string _%x87113%_)) + (##number->string _%x87996%_)) (call-with-output-string '() - (lambda (_%g8711987121%_) + (lambda (_%g8800288004%_) (__display-as-string - _%x87113%_ - _%g8711987121%_))))))))) + _%x87996%_ + _%g8800288004%_))))))))) (define as-string__1 - (lambda _%args87124%_ + (lambda _%args88007%_ (call-with-output-string '() - (lambda (_%g8712587127%_) - (__display-as-string _%args87124%_ _%g8712587127%_))))) + (lambda (_%g8800888010%_) + (__display-as-string _%args88007%_ _%g8800888010%_))))) (define as-string - (lambda _g91365_ - (let ((_g91364_ (let () (declare (not safe)) (##length _g91365_)))) - (cond ((let () (declare (not safe)) (##fx= _g91364_ 1)) - (apply as-string__0 _g91365_)) + (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 _%args87124%_ + (apply (lambda _%args88007%_ (let () (declare (not safe)) - (##apply as-string__1 _%args87124%_))) - _g91365_)) + (##apply as-string__1 _%args88007%_))) + _g92248_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g91365_)))))) + _g92248_)))))) (define make-symbol__0 - (lambda (_%x87109%_) - (if (interned-symbol? _%x87109%_) - _%x87109%_ - (let ((__tmp91366 (as-string__0 _%x87109%_))) + (lambda (_%x87992%_) + (if (interned-symbol? _%x87992%_) + _%x87992%_ + (let ((__tmp92249 (as-string__0 _%x87992%_))) (declare (not safe)) - (##string->symbol __tmp91366))))) + (##string->symbol __tmp92249))))) (define make-symbol__1 - (lambda _%args87111%_ - (let ((__tmp91367 + (lambda _%args87994%_ + (let ((__tmp92250 (let () (declare (not safe)) - (##apply as-string _%args87111%_)))) + (##apply as-string _%args87994%_)))) (declare (not safe)) - (##string->symbol __tmp91367)))) + (##string->symbol __tmp92250)))) (define make-symbol - (lambda _g91369_ - (let ((_g91368_ (let () (declare (not safe)) (##length _g91369_)))) - (cond ((let () (declare (not safe)) (##fx= _g91368_ 1)) - (apply make-symbol__0 _g91369_)) + (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 _%args87111%_ + (apply (lambda _%args87994%_ (let () (declare (not safe)) - (##apply make-symbol__1 _%args87111%_))) - _g91369_)) + (##apply make-symbol__1 _%args87994%_))) + _g92252_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g91369_)))))) + _g92252_)))))) (define make-keyword__0 - (lambda (_%x87105%_) - (if (interned-keyword? _%x87105%_) - _%x87105%_ - (let ((__tmp91370 (as-string__0 _%x87105%_))) + (lambda (_%x87988%_) + (if (interned-keyword? _%x87988%_) + _%x87988%_ + (let ((__tmp92253 (as-string__0 _%x87988%_))) (declare (not safe)) - (##string->keyword __tmp91370))))) + (##string->keyword __tmp92253))))) (define make-keyword__1 - (lambda _%args87107%_ - (let ((__tmp91371 + (lambda _%args87990%_ + (let ((__tmp92254 (let () (declare (not safe)) - (##apply as-string _%args87107%_)))) + (##apply as-string _%args87990%_)))) (declare (not safe)) - (##string->keyword __tmp91371)))) + (##string->keyword __tmp92254)))) (define make-keyword - (lambda _g91373_ - (let ((_g91372_ (let () (declare (not safe)) (##length _g91373_)))) - (cond ((let () (declare (not safe)) (##fx= _g91372_ 1)) - (apply make-keyword__0 _g91373_)) + (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 _%args87107%_ + (apply (lambda _%args87990%_ (let () (declare (not safe)) - (##apply make-keyword__1 _%args87107%_))) - _g91373_)) + (##apply make-keyword__1 _%args87990%_))) + _g92256_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g91373_)))))) + _g92256_)))))) (define interned-keyword? - (lambda (_%x87102%_) - (if (keyword? _%x87102%_) (not (uninterned-keyword? _%x87102%_)) '#f))) + (lambda (_%x87985%_) + (if (keyword? _%x87985%_) (not (uninterned-keyword? _%x87985%_)) '#f))) (define symbol->keyword - (lambda (_%sym87088%_) - (if (symbol? _%sym87088%_) - (let ((_%sym87092%_ _%sym87088%_)) - (__symbol->keyword _%sym87092%_)) + (lambda (_%sym87971%_) + (if (symbol? _%sym87971%_) + (let ((_%sym87975%_ _%sym87971%_)) + (__symbol->keyword _%sym87975%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1941,29 +1941,29 @@ 'contract: 'symbol? 'value: - _%sym87088%_) + _%sym87971%_) '#!void)))) (define __symbol->keyword - (lambda (_%sym87076%_) - (let ((_%sym87079%_ _%sym87076%_)) - (if (uninterned-symbol? _%sym87079%_) - (let ((__tmp91374 + (lambda (_%sym87959%_) + (let ((_%sym87962%_ _%sym87959%_)) + (if (uninterned-symbol? _%sym87962%_) + (let ((__tmp92257 (let () (declare (not safe)) - (##symbol->string _%sym87079%_)))) + (##symbol->string _%sym87962%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp91374)) - (let ((__tmp91375 + (##string->uninterned-keyword __tmp92257)) + (let ((__tmp92258 (let () (declare (not safe)) - (##symbol->string _%sym87079%_)))) + (##symbol->string _%sym87962%_)))) (declare (not safe)) - (##string->keyword __tmp91375)))))) + (##string->keyword __tmp92258)))))) (define keyword->symbol - (lambda (_%sym87062%_) - (if (keyword? _%sym87062%_) - (let ((_%sym87066%_ _%sym87062%_)) - (__keyword->symbol _%sym87066%_)) + (lambda (_%sym87945%_) + (if (keyword? _%sym87945%_) + (let ((_%sym87949%_ _%sym87945%_)) + (__keyword->symbol _%sym87949%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1972,31 +1972,31 @@ 'contract: 'keyword? 'value: - _%sym87062%_) + _%sym87945%_) '#!void)))) (define __keyword->symbol - (lambda (_%sym87050%_) - (let ((_%sym87053%_ _%sym87050%_)) - (if (uninterned-keyword? _%sym87053%_) - (let ((__tmp91376 + (lambda (_%sym87933%_) + (let ((_%sym87936%_ _%sym87933%_)) + (if (uninterned-keyword? _%sym87936%_) + (let ((__tmp92259 (let () (declare (not safe)) - (##keyword->string _%sym87053%_)))) + (##keyword->string _%sym87936%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp91376)) - (let ((__tmp91377 + (##string->uninterned-symbol __tmp92259)) + (let ((__tmp92260 (let () (declare (not safe)) - (##keyword->string _%sym87053%_)))) + (##keyword->string _%sym87936%_)))) (declare (not safe)) - (##string->symbol __tmp91377)))))) + (##string->symbol __tmp92260)))))) (define bytes->string__% - (lambda (_%bstr87015%_ _%enc87016%_) - (if (u8vector? _%bstr87015%_) - (let ((_%bstr87020%_ _%bstr87015%_)) - (if (symbol? _%enc87016%_) - (let ((_%enc87030%_ _%enc87016%_)) - (__bytes->string__% _%bstr87020%_ _%enc87030%_)) + (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" @@ -2005,7 +2005,7 @@ 'contract: 'symbol? 'value: - _%enc87016%_) + _%enc87899%_) '#!void))) (begin (raise-contract-violation-error @@ -2015,71 +2015,71 @@ 'contract: 'u8vector? 'value: - _%bstr87015%_) + _%bstr87898%_) '#!void)))) (define bytes->string__0 - (lambda (_%bstr87043%_) - (let ((_%enc87045%_ 'UTF-8)) - (bytes->string__% _%bstr87043%_ _%enc87045%_)))) + (lambda (_%bstr87926%_) + (let ((_%enc87928%_ 'UTF-8)) + (bytes->string__% _%bstr87926%_ _%enc87928%_)))) (define bytes->string - (lambda _g91379_ - (let ((_g91378_ (let () (declare (not safe)) (##length _g91379_)))) - (cond ((let () (declare (not safe)) (##fx= _g91378_ 1)) - (apply bytes->string__0 _g91379_)) - ((let () (declare (not safe)) (##fx= _g91378_ 2)) - (apply bytes->string__% _g91379_)) + (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 - _g91379_)))))) + _g92262_)))))) (define __bytes->string__% - (lambda (_%bstr86974%_ _%enc86975%_) - (let* ((_%bstr86978%_ _%bstr86974%_) (_%enc86986%_ _%enc86975%_)) - (if (eq? _%enc86986%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr86978%_)) - (let* ((_%in86995%_ + (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 _%enc86986%_ - (cons 'init: (cons _%bstr86978%_ '())))))) - (_%len86997%_ + (cons _%enc87869%_ + (cons 'init: (cons _%bstr87861%_ '())))))) + (_%len87880%_ (let () (declare (not safe)) - (##u8vector-length _%bstr86978%_))) - (_%out86999%_ + (##u8vector-length _%bstr87861%_))) + (_%out87882%_ (let () (declare (not safe)) - (##make-string _%len86997%_))) - (_%n87001%_ + (##make-string _%len87880%_))) + (_%n87884%_ (read-substring - _%out86999%_ + _%out87882%_ '0 - _%len86997%_ - _%in86995%_))) - (string-shrink! _%out86999%_ _%n87001%_) - _%out86999%_))))) + _%len87880%_ + _%in87878%_))) + (string-shrink! _%out87882%_ _%n87884%_) + _%out87882%_))))) (define __bytes->string__0 - (lambda (_%bstr87007%_) - (let ((_%enc87009%_ 'UTF-8)) - (__bytes->string__% _%bstr87007%_ _%enc87009%_)))) + (lambda (_%bstr87890%_) + (let ((_%enc87892%_ 'UTF-8)) + (__bytes->string__% _%bstr87890%_ _%enc87892%_)))) (define __bytes->string - (lambda _g91381_ - (let ((_g91380_ (let () (declare (not safe)) (##length _g91381_)))) - (cond ((let () (declare (not safe)) (##fx= _g91380_ 1)) - (apply __bytes->string__0 _g91381_)) - ((let () (declare (not safe)) (##fx= _g91380_ 2)) - (apply __bytes->string__% _g91381_)) + (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 - _g91381_)))))) + _g92264_)))))) (define string->bytes__% - (lambda (_%str86938%_ _%enc86939%_) - (if (string? _%str86938%_) - (let ((_%str86943%_ _%str86938%_)) - (if (symbol? _%enc86939%_) - (let ((_%enc86953%_ _%enc86939%_)) - (__string->bytes__% _%str86943%_ _%enc86953%_)) + (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" @@ -2088,7 +2088,7 @@ 'contract: 'symbol? 'value: - _%enc86939%_) + _%enc87822%_) '#!void))) (begin (raise-contract-violation-error @@ -2098,61 +2098,61 @@ 'contract: 'string? 'value: - _%str86938%_) + _%str87821%_) '#!void)))) (define string->bytes__0 - (lambda (_%str86966%_) - (let ((_%enc86968%_ 'UTF-8)) - (string->bytes__% _%str86966%_ _%enc86968%_)))) + (lambda (_%str87849%_) + (let ((_%enc87851%_ 'UTF-8)) + (string->bytes__% _%str87849%_ _%enc87851%_)))) (define string->bytes - (lambda _g91383_ - (let ((_g91382_ (let () (declare (not safe)) (##length _g91383_)))) - (cond ((let () (declare (not safe)) (##fx= _g91382_ 1)) - (apply string->bytes__0 _g91383_)) - ((let () (declare (not safe)) (##fx= _g91382_ 2)) - (apply string->bytes__% _g91383_)) + (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 - _g91383_)))))) + _g92266_)))))) (define __string->bytes__% - (lambda (_%str86906%_ _%enc86907%_) - (let* ((_%str86910%_ _%str86906%_) (_%enc86918%_ _%enc86907%_)) - (if (eq? _%enc86918%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str86910%_)) + (lambda (_%str87789%_ _%enc87790%_) + (let* ((_%str87793%_ _%str87789%_) (_%enc87801%_ _%enc87790%_)) + (if (eq? _%enc87801%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str87793%_)) (__substring->bytes__% - _%str86910%_ + _%str87793%_ '0 - (let () (declare (not safe)) (##string-length _%str86910%_)) - _%enc86918%_))))) + (let () (declare (not safe)) (##string-length _%str87793%_)) + _%enc87801%_))))) (define __string->bytes__0 - (lambda (_%str86930%_) - (let ((_%enc86932%_ 'UTF-8)) - (__string->bytes__% _%str86930%_ _%enc86932%_)))) + (lambda (_%str87813%_) + (let ((_%enc87815%_ 'UTF-8)) + (__string->bytes__% _%str87813%_ _%enc87815%_)))) (define __string->bytes - (lambda _g91385_ - (let ((_g91384_ (let () (declare (not safe)) (##length _g91385_)))) - (cond ((let () (declare (not safe)) (##fx= _g91384_ 1)) - (apply __string->bytes__0 _g91385_)) - ((let () (declare (not safe)) (##fx= _g91384_ 2)) - (apply __string->bytes__% _g91385_)) + (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 - _g91385_)))))) + _g92268_)))))) (define substring->bytes__% - (lambda (_%str86854%_ _%start86855%_ _%end86856%_ _%enc86857%_) - (if (string? _%str86854%_) - (let ((_%str86861%_ _%str86854%_)) - (if (nonnegative-fixnum? _%start86855%_) - (let ((_%start86871%_ _%start86855%_)) - (if (nonnegative-fixnum? _%end86856%_) - (let ((_%end86881%_ _%end86856%_)) + (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__% - _%str86861%_ - _%start86871%_ - _%end86881%_ - _%enc86857%_)) + _%str87744%_ + _%start87754%_ + _%end87764%_ + _%enc87740%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2161,7 +2161,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%end86856%_) + _%end87739%_) '#!void))) (begin (raise-contract-violation-error @@ -2171,7 +2171,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start86855%_) + _%start87738%_) '#!void))) (begin (raise-contract-violation-error @@ -2181,66 +2181,66 @@ 'contract: 'string? 'value: - _%str86854%_) + _%str87737%_) '#!void)))) (define substring->bytes__0 - (lambda (_%str86894%_ _%start86895%_ _%end86896%_) - (let ((_%enc86898%_ 'UTF-8)) + (lambda (_%str87777%_ _%start87778%_ _%end87779%_) + (let ((_%enc87781%_ 'UTF-8)) (substring->bytes__% - _%str86894%_ - _%start86895%_ - _%end86896%_ - _%enc86898%_)))) + _%str87777%_ + _%start87778%_ + _%end87779%_ + _%enc87781%_)))) (define substring->bytes - (lambda _g91387_ - (let ((_g91386_ (let () (declare (not safe)) (##length _g91387_)))) - (cond ((let () (declare (not safe)) (##fx= _g91386_ 3)) - (apply substring->bytes__0 _g91387_)) - ((let () (declare (not safe)) (##fx= _g91386_ 4)) - (apply substring->bytes__% _g91387_)) + (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 - _g91387_)))))) + _g92270_)))))) (define __substring->bytes__% - (lambda (_%str86806%_ _%start86807%_ _%end86808%_ _%enc86809%_) - (let* ((_%str86812%_ _%str86806%_) - (_%start86820%_ _%start86807%_) - (_%end86828%_ _%end86808%_)) - (if (eq? _%enc86809%_ 'UTF-8) - (string->utf8 _%str86812%_ _%start86820%_ _%end86828%_) - (let ((_%out86837%_ + (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 _%enc86809%_ '()))))) + (cons 'char-encoding: (cons _%enc87692%_ '()))))) (write-substring - _%str86812%_ - _%start86820%_ - _%end86828%_ - _%out86837%_) - (get-output-u8vector _%out86837%_)))))) + _%str87695%_ + _%start87703%_ + _%end87711%_ + _%out87720%_) + (get-output-u8vector _%out87720%_)))))) (define __substring->bytes__0 - (lambda (_%str86842%_ _%start86843%_ _%end86844%_) - (let ((_%enc86846%_ 'UTF-8)) + (lambda (_%str87725%_ _%start87726%_ _%end87727%_) + (let ((_%enc87729%_ 'UTF-8)) (__substring->bytes__% - _%str86842%_ - _%start86843%_ - _%end86844%_ - _%enc86846%_)))) + _%str87725%_ + _%start87726%_ + _%end87727%_ + _%enc87729%_)))) (define __substring->bytes - (lambda _g91389_ - (let ((_g91388_ (let () (declare (not safe)) (##length _g91389_)))) - (cond ((let () (declare (not safe)) (##fx= _g91388_ 3)) - (apply __substring->bytes__0 _g91389_)) - ((let () (declare (not safe)) (##fx= _g91388_ 4)) - (apply __substring->bytes__% _g91389_)) + (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 - _g91389_)))))) + _g92272_)))))) (define string-empty? - (lambda (_%str86791%_) - (if (string? _%str86791%_) - (let ((_%str86795%_ _%str86791%_)) (__string-empty? _%str86795%_)) + (lambda (_%str87674%_) + (if (string? _%str87674%_) + (let ((_%str87678%_ _%str87674%_)) (__string-empty? _%str87678%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2249,27 +2249,27 @@ 'contract: 'string? 'value: - _%str86791%_) + _%str87674%_) '#!void)))) (define __string-empty? - (lambda (_%str86779%_) - (let* ((_%str86782%_ _%str86779%_) - (__tmp91390 - (let () (declare (not safe)) (##string-length _%str86782%_)))) + (lambda (_%str87662%_) + (let* ((_%str87665%_ _%str87662%_) + (__tmp92273 + (let () (declare (not safe)) (##string-length _%str87665%_)))) (declare (not safe)) - (##fxzero? __tmp91390)))) + (##fxzero? __tmp92273)))) (define string-index__% - (lambda (_%str86731%_ _%char86732%_ _%start86733%_) - (if (string? _%str86731%_) - (let ((_%str86737%_ _%str86731%_)) - (if (char? _%char86732%_) - (let ((_%char86747%_ _%char86732%_)) - (if (nonnegative-fixnum? _%start86733%_) - (let ((_%start86757%_ _%start86733%_)) + (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__% - _%str86737%_ - _%char86747%_ - _%start86757%_)) + _%str87620%_ + _%char87630%_ + _%start87640%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2278,7 +2278,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start86733%_) + _%start87616%_) '#!void))) (begin (raise-contract-violation-error @@ -2288,7 +2288,7 @@ 'contract: 'char? 'value: - _%char86732%_) + _%char87615%_) '#!void))) (begin (raise-contract-violation-error @@ -2298,66 +2298,66 @@ 'contract: 'string? 'value: - _%str86731%_) + _%str87614%_) '#!void)))) (define string-index__0 - (lambda (_%str86770%_ _%char86771%_) - (let ((_%start86773%_ '0)) - (string-index__% _%str86770%_ _%char86771%_ _%start86773%_)))) + (lambda (_%str87653%_ _%char87654%_) + (let ((_%start87656%_ '0)) + (string-index__% _%str87653%_ _%char87654%_ _%start87656%_)))) (define string-index - (lambda _g91392_ - (let ((_g91391_ (let () (declare (not safe)) (##length _g91392_)))) - (cond ((let () (declare (not safe)) (##fx= _g91391_ 2)) - (apply string-index__0 _g91392_)) - ((let () (declare (not safe)) (##fx= _g91391_ 3)) - (apply string-index__% _g91392_)) + (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 - _g91392_)))))) + _g92275_)))))) (define __string-index__% - (lambda (_%str86670%_ _%char86671%_ _%start86672%_) - (let* ((_%str86675%_ _%str86670%_) - (_%char86683%_ _%char86671%_) - (_%start86691%_ _%start86672%_) - (_%len86700%_ - (let () (declare (not safe)) (##string-length _%str86675%_)))) - (let _%lp86702%_ ((_%k86704%_ _%start86691%_)) - (let ((_%k86706%_ _%k86704%_)) - (if (let () (declare (not safe)) (##fx< _%k86706%_ _%len86700%_)) - (if (eq? _%char86683%_ + (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 _%str86675%_ _%k86706%_))) - _%k86706%_ - (_%lp86702%_ - (let () (declare (not safe)) (##fx+ _%k86706%_ '1)))) + (##string-ref _%str87558%_ _%k87589%_))) + _%k87589%_ + (_%lp87585%_ + (let () (declare (not safe)) (##fx+ _%k87589%_ '1)))) '#f)))))) (define __string-index__0 - (lambda (_%str86721%_ _%char86722%_) - (let ((_%start86724%_ '0)) - (__string-index__% _%str86721%_ _%char86722%_ _%start86724%_)))) + (lambda (_%str87604%_ _%char87605%_) + (let ((_%start87607%_ '0)) + (__string-index__% _%str87604%_ _%char87605%_ _%start87607%_)))) (define __string-index - (lambda _g91394_ - (let ((_g91393_ (let () (declare (not safe)) (##length _g91394_)))) - (cond ((let () (declare (not safe)) (##fx= _g91393_ 2)) - (apply __string-index__0 _g91394_)) - ((let () (declare (not safe)) (##fx= _g91393_ 3)) - (apply __string-index__% _g91394_)) + (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 - _g91394_)))))) + _g92277_)))))) (define string-rindex__% - (lambda (_%str86631%_ _%char86632%_ _%start86633%_) - (if (string? _%str86631%_) - (let ((_%str86637%_ _%str86631%_)) - (if (char? _%char86632%_) - (let ((_%char86647%_ _%char86632%_)) + (lambda (_%str87514%_ _%char87515%_ _%start87516%_) + (if (string? _%str87514%_) + (let ((_%str87520%_ _%str87514%_)) + (if (char? _%char87515%_) + (let ((_%char87530%_ _%char87515%_)) (__string-rindex__% - _%str86637%_ - _%char86647%_ - _%start86633%_)) + _%str87520%_ + _%char87530%_ + _%start87516%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2366,7 +2366,7 @@ 'contract: 'char? 'value: - _%char86632%_) + _%char87515%_) '#!void))) (begin (raise-contract-violation-error @@ -2376,66 +2376,66 @@ 'contract: 'string? 'value: - _%str86631%_) + _%str87514%_) '#!void)))) (define string-rindex__0 - (lambda (_%str86660%_ _%char86661%_) - (let ((_%start86663%_ '#f)) - (string-rindex__% _%str86660%_ _%char86661%_ _%start86663%_)))) + (lambda (_%str87543%_ _%char87544%_) + (let ((_%start87546%_ '#f)) + (string-rindex__% _%str87543%_ _%char87544%_ _%start87546%_)))) (define string-rindex - (lambda _g91396_ - (let ((_g91395_ (let () (declare (not safe)) (##length _g91396_)))) - (cond ((let () (declare (not safe)) (##fx= _g91395_ 2)) - (apply string-rindex__0 _g91396_)) - ((let () (declare (not safe)) (##fx= _g91395_ 3)) - (apply string-rindex__% _g91396_)) + (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 - _g91396_)))))) + _g92279_)))))) (define __string-rindex__% - (lambda (_%str86573%_ _%char86574%_ _%start86575%_) - (let* ((_%str86578%_ _%str86573%_) - (_%char86586%_ _%char86574%_) - (_%len86595%_ - (let () (declare (not safe)) (##string-length _%str86578%_))) - (_%start86597%_ - (if (fixnum? _%start86575%_) - _%start86575%_ - (let () (declare (not safe)) (##fx- _%len86595%_ '1))))) - (let _%lp86600%_ ((_%k86602%_ _%start86597%_)) - (let ((_%k86604%_ _%k86602%_)) - (if (let () (declare (not safe)) (##fx>= _%k86604%_ '0)) - (if (eq? _%char86586%_ + (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 _%str86578%_ _%k86604%_))) - _%k86604%_ - (_%lp86600%_ - (let () (declare (not safe)) (##fx- _%k86604%_ '1)))) + (##string-ref _%str87461%_ _%k87487%_))) + _%k87487%_ + (_%lp87483%_ + (let () (declare (not safe)) (##fx- _%k87487%_ '1)))) '#f)))))) (define __string-rindex__0 - (lambda (_%str86621%_ _%char86622%_) - (let ((_%start86624%_ '#f)) - (__string-rindex__% _%str86621%_ _%char86622%_ _%start86624%_)))) + (lambda (_%str87504%_ _%char87505%_) + (let ((_%start87507%_ '#f)) + (__string-rindex__% _%str87504%_ _%char87505%_ _%start87507%_)))) (define __string-rindex - (lambda _g91398_ - (let ((_g91397_ (let () (declare (not safe)) (##length _g91398_)))) - (cond ((let () (declare (not safe)) (##fx= _g91397_ 2)) - (apply __string-rindex__0 _g91398_)) - ((let () (declare (not safe)) (##fx= _g91397_ 3)) - (apply __string-rindex__% _g91398_)) + (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 - _g91398_)))))) + _g92281_)))))) (define string-split - (lambda (_%str86547%_ _%char86548%_) - (if (string? _%str86547%_) - (let ((_%str86552%_ _%str86547%_)) - (if (char? _%char86548%_) - (let ((_%char86562%_ _%char86548%_)) - (__string-split _%str86552%_ _%char86562%_)) + (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" @@ -2444,7 +2444,7 @@ 'contract: 'char? 'value: - _%char86548%_) + _%char87431%_) '#!void))) (begin (raise-contract-violation-error @@ -2454,203 +2454,203 @@ 'contract: 'string? 'value: - _%str86547%_) + _%str87430%_) '#!void)))) (define __string-split - (lambda (_%str86488%_ _%char86489%_) - (let* ((_%str86492%_ _%str86488%_) - (_%char86500%_ _%char86489%_) - (_%len86509%_ - (let () (declare (not safe)) (##string-length _%str86492%_)))) - (let _%lp86511%_ ((_%start86513%_ '0) (_%r86514%_ '())) - (let* ((_%start86517%_ _%start86513%_) - (_%$e86530%_ + (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__% - _%str86492%_ - _%char86500%_ - _%start86517%_))) - (if _%$e86530%_ - ((lambda (_%end86533%_) - (let ((_%end86535%_ _%end86533%_)) - (_%lp86511%_ - (let () (declare (not safe)) (##fx+ _%end86535%_ '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 - _%str86492%_ - _%start86517%_ - _%end86535%_)) - _%r86514%_)))) - _%$e86530%_) + _%str87375%_ + _%start87400%_ + _%end87418%_)) + _%r87397%_)))) + _%$e87413%_) (if (let () (declare (not safe)) - (##fx< _%start86517%_ _%len86509%_)) + (##fx< _%start87400%_ _%len87392%_)) (__foldl1 cons (list (let () (declare (not safe)) (##substring - _%str86492%_ - _%start86517%_ - _%len86509%_))) - _%r86514%_) - (reverse! _%r86514%_)))))))) + _%str87375%_ + _%start87400%_ + _%len87392%_))) + _%r87397%_) + (reverse! _%r87397%_)))))))) (define string-join - (lambda (_%strs86338%_ _%join86339%_) - (letrec ((_%join-length86342%_ - (lambda (_%strs86426%_ _%jlen86427%_) - (let _%lp86429%_ ((_%rest86431%_ _%strs86426%_) - (_%len86432%_ '0)) - (let* ((_%len86434%_ _%len86432%_) - (_%rest8644286450%_ _%rest86431%_) - (_%else8644486458%_ (lambda () '0)) - (_%K8644686476%_ - (lambda (_%rest86461%_ _%hd86462%_) - (if (string? _%hd86462%_) - (let ((_%hd86464%_ _%hd86462%_)) - (if (pair? _%rest86461%_) - (_%lp86429%_ - _%rest86461%_ + (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 - _%hd86464%_)) - _%jlen86427%_ - _%len86434%_)) - (let ((__tmp91399 + _%hd87347%_)) + _%jlen87310%_ + _%len87317%_)) + (let ((__tmp92282 (let () (declare (not safe)) (##string-length - _%hd86464%_)))) + _%hd87347%_)))) (declare (not safe)) - (##fx+ __tmp91399 _%len86434%_)))) - (error '"expected string" _%hd86462%_))))) - (if (pair? _%rest8644286450%_) - (let ((_%hd8644786479%_ + (##fx+ __tmp92282 _%len87317%_)))) + (error '"expected string" _%hd87345%_))))) + (if (pair? _%rest8732587333%_) + (let ((_%hd8733087362%_ (let () (declare (not safe)) - (##car _%rest8644286450%_))) - (_%tl8644886481%_ + (##car _%rest8732587333%_))) + (_%tl8733187364%_ (let () (declare (not safe)) - (##cdr _%rest8644286450%_)))) - (let* ((_%hd86484%_ _%hd8644786479%_) - (_%rest86486%_ _%tl8644886481%_)) - (_%K8644686476%_ _%rest86486%_ _%hd86484%_))) - (_%else8644486458%_))))))) - (let* ((_%join86347%_ - (if (char? _%join86339%_) - (let () (declare (not safe)) (##string _%join86339%_)) - (if (string? _%join86339%_) - _%join86339%_ - (error '"expected string or char" _%join86339%_)))) - (_%jlen86349%_ + (##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 _%join86347%_))) - (_%olen86351%_ - (_%join-length86342%_ _%strs86338%_ _%jlen86349%_)) - (_%ostr86353%_ - (let () (declare (not safe)) (##make-string _%olen86351%_)))) - (let _%lp86356%_ ((_%rest86358%_ _%strs86338%_) (_%k86359%_ '0)) - (let* ((_%k86362%_ _%k86359%_) - (_%rest8637886386%_ _%rest86358%_) - (_%else8638086394%_ (lambda () '"")) - (_%K8638286414%_ - (lambda (_%rest86397%_ _%hd86398%_) - (let* ((_%hd86400%_ _%hd86398%_) - (_%hdlen86412%_ + (##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 _%hd86400%_)))) - (if (pair? _%rest86397%_) + (##string-length _%hd87283%_)))) + (if (pair? _%rest87280%_) (begin (let () (declare (not safe)) (##substring-move! - _%hd86400%_ + _%hd87283%_ '0 - _%hdlen86412%_ - _%ostr86353%_ - _%k86362%_)) - (let ((__tmp91400 + _%hdlen87295%_ + _%ostr87236%_ + _%k87245%_)) + (let ((__tmp92283 (let () (declare (not safe)) - (##fx+ _%k86362%_ _%hdlen86412%_)))) + (##fx+ _%k87245%_ _%hdlen87295%_)))) (declare (not safe)) (##substring-move! - _%join86347%_ + _%join87230%_ '0 - _%jlen86349%_ - _%ostr86353%_ - __tmp91400)) - (_%lp86356%_ - _%rest86397%_ + _%jlen87232%_ + _%ostr87236%_ + __tmp92283)) + (_%lp87239%_ + _%rest87280%_ (let () (declare (not safe)) - (##fx+ _%k86362%_ - _%hdlen86412%_ - _%jlen86349%_)))) + (##fx+ _%k87245%_ + _%hdlen87295%_ + _%jlen87232%_)))) (begin (let () (declare (not safe)) (##substring-move! - _%hd86400%_ + _%hd87283%_ '0 - _%hdlen86412%_ - _%ostr86353%_ - _%k86362%_)) - _%ostr86353%_)))))) - (if (pair? _%rest8637886386%_) - (let ((_%hd8638386417%_ + _%hdlen87295%_ + _%ostr87236%_ + _%k87245%_)) + _%ostr87236%_)))))) + (if (pair? _%rest8726187269%_) + (let ((_%hd8726687300%_ (let () (declare (not safe)) - (##car _%rest8637886386%_))) - (_%tl8638486419%_ + (##car _%rest8726187269%_))) + (_%tl8726787302%_ (let () (declare (not safe)) - (##cdr _%rest8637886386%_)))) - (let* ((_%hd86422%_ _%hd8638386417%_) - (_%rest86424%_ _%tl8638486419%_)) - (_%K8638286414%_ _%rest86424%_ _%hd86422%_))) - (_%else8638086394%_)))))))) + (##cdr _%rest8726187269%_)))) + (let* ((_%hd87305%_ _%hd8726687300%_) + (_%rest87307%_ _%tl8726787302%_)) + (_%K8726587297%_ _%rest87307%_ _%hd87305%_))) + (_%else8726387277%_)))))))) (define read-u8vector__% - (lambda (_%bytes86264%_ _%port86265%_ _%start86266%_ _%end86267%_) - (if (u8vector? _%bytes86264%_) - (let ((_%bytes86271%_ _%bytes86264%_)) - (if (input-port? _%port86265%_) - (let ((_%port86281%_ _%port86265%_)) - (if ((lambda (_%o86290%_) - (and (fixnum? _%o86290%_) + (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>= _%o86290%_ '0)) - (let ((__tmp91401 + (##fx>= _%o87173%_ '0)) + (let ((__tmp92284 (let () (declare (not safe)) - (##u8vector-length _%bytes86271%_)))) + (##u8vector-length _%bytes87154%_)))) (declare (not safe)) - (##fx< _%o86290%_ __tmp91401)))) - _%start86266%_) - (let ((_%start86294%_ _%start86266%_)) - (if ((lambda (_%o86303%_) - (and (fixnum? _%o86303%_) - (let ((__tmp91402 + (##fx< _%o87173%_ __tmp92284)))) + _%start87149%_) + (let ((_%start87177%_ _%start87149%_)) + (if ((lambda (_%o87186%_) + (and (fixnum? _%o87186%_) + (let ((__tmp92285 (let () (declare (not safe)) (##u8vector-length - _%bytes86271%_)))) + _%bytes87154%_)))) (declare (not safe)) - (##fx<= _%start86294%_ - _%o86303%_ - __tmp91402)))) - _%end86267%_) - (let ((_%end86307%_ _%end86267%_)) + (##fx<= _%start87177%_ + _%o87186%_ + __tmp92285)))) + _%end87150%_) + (let ((_%end87190%_ _%end87150%_)) (__read-u8vector__% - _%bytes86271%_ - _%port86281%_ - _%start86294%_ - _%end86307%_)) + _%bytes87154%_ + _%port87164%_ + _%start87177%_ + _%end87190%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2661,7 +2661,7 @@ start (u8vector-length bytes)) 'value: - _%end86267%_) + _%end87150%_) '#!void))) (begin (raise-contract-violation-error @@ -2671,7 +2671,7 @@ 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start86266%_) + _%start87149%_) '#!void))) (begin (raise-contract-violation-error @@ -2681,7 +2681,7 @@ 'contract: 'input-port? 'value: - _%port86265%_) + _%port87148%_) '#!void))) (begin (raise-contract-violation-error @@ -2691,104 +2691,104 @@ 'contract: 'u8vector? 'value: - _%bytes86264%_) + _%bytes87147%_) '#!void)))) (define read-u8vector__0 - (lambda (_%bytes86320%_ _%port86321%_) - (let* ((_%start86323%_ '0) - (_%end86325%_ (u8vector-length _%bytes86320%_))) + (lambda (_%bytes87203%_ _%port87204%_) + (let* ((_%start87206%_ '0) + (_%end87208%_ (u8vector-length _%bytes87203%_))) (read-u8vector__% - _%bytes86320%_ - _%port86321%_ - _%start86323%_ - _%end86325%_)))) + _%bytes87203%_ + _%port87204%_ + _%start87206%_ + _%end87208%_)))) (define read-u8vector__1 - (lambda (_%bytes86327%_ _%port86328%_ _%start86329%_) - (let ((_%end86331%_ (u8vector-length _%bytes86327%_))) + (lambda (_%bytes87210%_ _%port87211%_ _%start87212%_) + (let ((_%end87214%_ (u8vector-length _%bytes87210%_))) (read-u8vector__% - _%bytes86327%_ - _%port86328%_ - _%start86329%_ - _%end86331%_)))) + _%bytes87210%_ + _%port87211%_ + _%start87212%_ + _%end87214%_)))) (define read-u8vector - (lambda _g91404_ - (let ((_g91403_ (let () (declare (not safe)) (##length _g91404_)))) - (cond ((let () (declare (not safe)) (##fx= _g91403_ 2)) - (apply read-u8vector__0 _g91404_)) - ((let () (declare (not safe)) (##fx= _g91403_ 3)) - (apply read-u8vector__1 _g91404_)) - ((let () (declare (not safe)) (##fx= _g91403_ 4)) - (apply read-u8vector__% _g91404_)) + (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 - _g91404_)))))) + _g92287_)))))) (define __read-u8vector__% - (lambda (_%bytes86203%_ _%port86204%_ _%start86205%_ _%end86206%_) - (let* ((_%bytes86209%_ _%bytes86203%_) - (_%port86217%_ _%port86204%_) - (_%start86225%_ _%start86205%_) - (_%end86233%_ _%end86206%_)) + (lambda (_%bytes87086%_ _%port87087%_ _%start87088%_ _%end87089%_) + (let* ((_%bytes87092%_ _%bytes87086%_) + (_%port87100%_ _%port87087%_) + (_%start87108%_ _%start87088%_) + (_%end87116%_ _%end87089%_)) (declare (not safe)) (##read-subu8vector - _%bytes86209%_ - _%start86225%_ - _%end86233%_ - _%port86217%_)))) + _%bytes87092%_ + _%start87108%_ + _%end87116%_ + _%port87100%_)))) (define __read-u8vector__0 - (lambda (_%bytes86245%_ _%port86246%_) - (let* ((_%start86248%_ '0) - (_%end86250%_ (u8vector-length _%bytes86245%_))) + (lambda (_%bytes87128%_ _%port87129%_) + (let* ((_%start87131%_ '0) + (_%end87133%_ (u8vector-length _%bytes87128%_))) (__read-u8vector__% - _%bytes86245%_ - _%port86246%_ - _%start86248%_ - _%end86250%_)))) + _%bytes87128%_ + _%port87129%_ + _%start87131%_ + _%end87133%_)))) (define __read-u8vector__1 - (lambda (_%bytes86252%_ _%port86253%_ _%start86254%_) - (let ((_%end86256%_ (u8vector-length _%bytes86252%_))) + (lambda (_%bytes87135%_ _%port87136%_ _%start87137%_) + (let ((_%end87139%_ (u8vector-length _%bytes87135%_))) (__read-u8vector__% - _%bytes86252%_ - _%port86253%_ - _%start86254%_ - _%end86256%_)))) + _%bytes87135%_ + _%port87136%_ + _%start87137%_ + _%end87139%_)))) (define __read-u8vector - (lambda _g91406_ - (let ((_g91405_ (let () (declare (not safe)) (##length _g91406_)))) - (cond ((let () (declare (not safe)) (##fx= _g91405_ 2)) - (apply __read-u8vector__0 _g91406_)) - ((let () (declare (not safe)) (##fx= _g91405_ 3)) - (apply __read-u8vector__1 _g91406_)) - ((let () (declare (not safe)) (##fx= _g91405_ 4)) - (apply __read-u8vector__% _g91406_)) + (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 - _g91406_)))))) + _g92289_)))))) (define write-u8vector__% - (lambda (_%bytes86133%_ _%port86134%_ _%start86135%_ _%end86136%_) - (if (u8vector? _%bytes86133%_) - (let ((_%bytes86140%_ _%bytes86133%_)) - (if (output-port? _%port86134%_) - (let* ((_%port86150%_ _%port86134%_) - (_%start86159%_ _%start86135%_)) - (if ((lambda (_%o86167%_) - (and (fixnum? _%o86167%_) - (let ((__tmp91407 + (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 _%bytes86140%_)))) + (##u8vector-length _%bytes87023%_)))) (declare (not safe)) - (##fx<= _%start86159%_ - _%o86167%_ - __tmp91407)))) - _%end86136%_) - (let ((_%end86171%_ _%end86136%_)) + (##fx<= _%start87042%_ + _%o87050%_ + __tmp92290)))) + _%end87019%_) + (let ((_%end87054%_ _%end87019%_)) (__write-u8vector__% - _%bytes86140%_ - _%port86150%_ - _%start86159%_ - _%end86171%_)) + _%bytes87023%_ + _%port87033%_ + _%start87042%_ + _%end87054%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2797,7 +2797,7 @@ 'contract: '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%end86136%_) + _%end87019%_) '#!void))) (begin (raise-contract-violation-error @@ -2807,7 +2807,7 @@ 'contract: 'output-port? 'value: - _%port86134%_) + _%port87017%_) '#!void))) (begin (raise-contract-violation-error @@ -2817,131 +2817,131 @@ 'contract: 'u8vector? 'value: - _%bytes86133%_) + _%bytes87016%_) '#!void)))) (define write-u8vector__0 - (lambda (_%bytes86184%_ _%port86185%_) - (let* ((_%start86187%_ '0) - (_%end86189%_ (u8vector-length _%bytes86184%_))) + (lambda (_%bytes87067%_ _%port87068%_) + (let* ((_%start87070%_ '0) + (_%end87072%_ (u8vector-length _%bytes87067%_))) (write-u8vector__% - _%bytes86184%_ - _%port86185%_ - _%start86187%_ - _%end86189%_)))) + _%bytes87067%_ + _%port87068%_ + _%start87070%_ + _%end87072%_)))) (define write-u8vector__1 - (lambda (_%bytes86191%_ _%port86192%_ _%start86193%_) - (let ((_%end86195%_ (u8vector-length _%bytes86191%_))) + (lambda (_%bytes87074%_ _%port87075%_ _%start87076%_) + (let ((_%end87078%_ (u8vector-length _%bytes87074%_))) (write-u8vector__% - _%bytes86191%_ - _%port86192%_ - _%start86193%_ - _%end86195%_)))) + _%bytes87074%_ + _%port87075%_ + _%start87076%_ + _%end87078%_)))) (define write-u8vector - (lambda _g91409_ - (let ((_g91408_ (let () (declare (not safe)) (##length _g91409_)))) - (cond ((let () (declare (not safe)) (##fx= _g91408_ 2)) - (apply write-u8vector__0 _g91409_)) - ((let () (declare (not safe)) (##fx= _g91408_ 3)) - (apply write-u8vector__1 _g91409_)) - ((let () (declare (not safe)) (##fx= _g91408_ 4)) - (apply write-u8vector__% _g91409_)) + (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 - _g91409_)))))) + _g92292_)))))) (define __write-u8vector__% - (lambda (_%bytes86072%_ _%port86073%_ _%start86074%_ _%end86075%_) - (let* ((_%bytes86078%_ _%bytes86072%_) - (_%port86086%_ _%port86073%_) - (_%start86094%_ _%start86074%_) - (_%end86102%_ _%end86075%_)) + (lambda (_%bytes86955%_ _%port86956%_ _%start86957%_ _%end86958%_) + (let* ((_%bytes86961%_ _%bytes86955%_) + (_%port86969%_ _%port86956%_) + (_%start86977%_ _%start86957%_) + (_%end86985%_ _%end86958%_)) (declare (not safe)) (##write-subu8vector - _%bytes86078%_ - _%start86094%_ - _%end86102%_ - _%port86086%_)))) + _%bytes86961%_ + _%start86977%_ + _%end86985%_ + _%port86969%_)))) (define __write-u8vector__0 - (lambda (_%bytes86114%_ _%port86115%_) - (let* ((_%start86117%_ '0) - (_%end86119%_ (u8vector-length _%bytes86114%_))) + (lambda (_%bytes86997%_ _%port86998%_) + (let* ((_%start87000%_ '0) + (_%end87002%_ (u8vector-length _%bytes86997%_))) (__write-u8vector__% - _%bytes86114%_ - _%port86115%_ - _%start86117%_ - _%end86119%_)))) + _%bytes86997%_ + _%port86998%_ + _%start87000%_ + _%end87002%_)))) (define __write-u8vector__1 - (lambda (_%bytes86121%_ _%port86122%_ _%start86123%_) - (let ((_%end86125%_ (u8vector-length _%bytes86121%_))) + (lambda (_%bytes87004%_ _%port87005%_ _%start87006%_) + (let ((_%end87008%_ (u8vector-length _%bytes87004%_))) (__write-u8vector__% - _%bytes86121%_ - _%port86122%_ - _%start86123%_ - _%end86125%_)))) + _%bytes87004%_ + _%port87005%_ + _%start87006%_ + _%end87008%_)))) (define __write-u8vector - (lambda _g91411_ - (let ((_g91410_ (let () (declare (not safe)) (##length _g91411_)))) - (cond ((let () (declare (not safe)) (##fx= _g91410_ 2)) - (apply __write-u8vector__0 _g91411_)) - ((let () (declare (not safe)) (##fx= _g91410_ 3)) - (apply __write-u8vector__1 _g91411_)) - ((let () (declare (not safe)) (##fx= _g91410_ 4)) - (apply __write-u8vector__% _g91411_)) + (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 - _g91411_)))))) + _g92294_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag86040%_ - _%dbg-exprs86041%_ - _%dbg-thunks86042%_ - _%expr86043%_ - _%thunk86044%_) - (letrec ((_%o86046%_ (current-output-port)) - (_%e86047%_ (current-error-port)) - (_%p86048%_ (let () (declare (not safe)) (DBG-printer))) - (_%f86049%_ + (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 _%o86046%_) - (force-output _%e86047%_))) - (_%d86050%_ - (lambda (_%x86057%_) (display _%x86057%_ _%e86047%_))) - (_%w86051%_ - (lambda (_%x86059%_) (_%p86048%_ _%x86059%_ _%e86047%_))) - (_%n86052%_ (lambda () (newline _%e86047%_))) - (_%v86053%_ - (lambda (_%l86062%_) + (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 (_%x86064%_) - (_%d86050%_ '" ") - (_%w86051%_ _%x86064%_)) - _%l86062%_) - (_%n86052%_))) - (_%x86054%_ - (lambda (_%expr86066%_ _%thunk86067%_) - (_%f86049%_) - (_%d86050%_ '" ") - (_%w86051%_ _%expr86066%_) - (_%d86050%_ '" =>") + (lambda (_%x86947%_) + (_%d86933%_ '" ") + (_%w86934%_ _%x86947%_)) + _%l86945%_) + (_%n86935%_))) + (_%x86937%_ + (lambda (_%expr86949%_ _%thunk86950%_) + (_%f86932%_) + (_%d86933%_ '" ") + (_%w86934%_ _%expr86949%_) + (_%d86933%_ '" =>") (call-with-values - _%thunk86067%_ - (lambda _%x86069%_ - (_%v86053%_ _%x86069%_) - (_%f86049%_) + _%thunk86950%_ + (lambda _%x86952%_ + (_%v86936%_ _%x86952%_) + (_%f86932%_) (let () (declare (not safe)) - (##apply values _%x86069%_))))))) - (if _%tag86040%_ + (##apply values _%x86952%_))))))) + (if _%tag86923%_ (begin - (if (eq? _%tag86040%_ '#!void) + (if (eq? _%tag86923%_ '#!void) '#!void (begin - (_%f86049%_) - (_%d86050%_ _%tag86040%_) - (_%n86052%_))) - (for-each _%x86054%_ _%dbg-exprs86041%_ _%dbg-thunks86042%_) - (if _%thunk86044%_ - (_%x86054%_ _%expr86043%_ _%thunk86044%_) + (_%f86932%_) + (_%d86933%_ _%tag86923%_) + (_%n86935%_))) + (for-each _%x86937%_ _%dbg-exprs86924%_ _%dbg-thunks86925%_) + (if _%thunk86927%_ + (_%x86937%_ _%expr86926%_ _%thunk86927%_) '#!void)) - (if _%thunk86044%_ (_%thunk86044%_) '#!void))))))) + (if _%thunk86927%_ (_%thunk86927%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index c966463c9..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]#_g91413_| + (define |[1]#_g92296_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g91423_| + (define |[1]#_g92306_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,49 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx84373%_) - (let* ((_%g8437784395%_ - (lambda (_%g8437884391%_) + (lambda (_%$stx85256%_) + (let* ((_%g8526085278%_ + (lambda (_%g8526185274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8437884391%_))) - (_%g8437684451%_ - (lambda (_%g8437884399%_) - (if (gx#stx-pair? _%g8437884399%_) - (let ((_%e8438184402%_ (gx#syntax-e _%g8437884399%_))) - (let ((_%hd8438284406%_ + _%g8526185274%_))) + (_%g8525985334%_ + (lambda (_%g8526185282%_) + (if (gx#stx-pair? _%g8526185282%_) + (let ((_%e8526485285%_ (gx#syntax-e _%g8526185282%_))) + (let ((_%hd8526585289%_ (let () (declare (not safe)) - (##car _%e8438184402%_))) - (_%tl8438384409%_ + (##car _%e8526485285%_))) + (_%tl8526685292%_ (let () (declare (not safe)) - (##cdr _%e8438184402%_)))) - (if (gx#stx-pair? _%tl8438384409%_) - (let ((_%e8438484412%_ - (gx#syntax-e _%tl8438384409%_))) - (let ((_%hd8438584416%_ + (##cdr _%e8526485285%_)))) + (if (gx#stx-pair? _%tl8526685292%_) + (let ((_%e8526785295%_ + (gx#syntax-e _%tl8526685292%_))) + (let ((_%hd8526885299%_ (let () (declare (not safe)) - (##car _%e8438484412%_))) - (_%tl8438684419%_ + (##car _%e8526785295%_))) + (_%tl8526985302%_ (let () (declare (not safe)) - (##cdr _%e8438484412%_)))) - (if (gx#stx-pair? _%tl8438684419%_) - (let ((_%e8438784422%_ - (gx#syntax-e _%tl8438684419%_))) - (let ((_%hd8438884426%_ + (##cdr _%e8526785295%_)))) + (if (gx#stx-pair? _%tl8526985302%_) + (let ((_%e8527085305%_ + (gx#syntax-e _%tl8526985302%_))) + (let ((_%hd8527185309%_ (let () (declare (not safe)) - (##car _%e8438784422%_))) - (_%tl8438984429%_ + (##car _%e8527085305%_))) + (_%tl8527285312%_ (let () (declare (not safe)) - (##cdr _%e8438784422%_)))) - (if (gx#stx-null? _%tl8438984429%_) - ((lambda (_%L84432%_ _%L84434%_) + (##cdr _%e8527085305%_)))) + (if (gx#stx-null? _%tl8527285312%_) + ((lambda (_%L85315%_ _%L85317%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,52 +66,52 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L84434%_ '())) + (cons _%L85317%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L84432%_ '())) + (cons _%L85315%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8438884426%_ - _%hd8438584416%_) - (_%g8437784395%_ - _%g8437884399%_)))) - (_%g8437784395%_ _%g8437884399%_)))) - (_%g8437784395%_ _%g8437884399%_)))) - (_%g8437784395%_ _%g8437884399%_))))) - (_%g8437684451%_ _%$stx84373%_)))) + _%hd8527185309%_ + _%hd8526885299%_) + (_%g8526085278%_ + _%g8526185282%_)))) + (_%g8526085278%_ _%g8526185282%_)))) + (_%g8526085278%_ _%g8526185282%_)))) + (_%g8526085278%_ _%g8526185282%_))))) + (_%g8525985334%_ _%$stx85256%_)))) (define |[:0:]#__lock-inline!| - (lambda (_%$stx84455%_) - (let* ((_%g8445984473%_ - (lambda (_%g8446084469%_) + (lambda (_%$stx85338%_) + (let* ((_%g8534285356%_ + (lambda (_%g8534385352%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8446084469%_))) - (_%g8445884514%_ - (lambda (_%g8446084477%_) - (if (gx#stx-pair? _%g8446084477%_) - (let ((_%e8446284480%_ (gx#syntax-e _%g8446084477%_))) - (let ((_%hd8446384484%_ + _%g8534385352%_))) + (_%g8534185397%_ + (lambda (_%g8534385360%_) + (if (gx#stx-pair? _%g8534385360%_) + (let ((_%e8534585363%_ (gx#syntax-e _%g8534385360%_))) + (let ((_%hd8534685367%_ (let () (declare (not safe)) - (##car _%e8446284480%_))) - (_%tl8446484487%_ + (##car _%e8534585363%_))) + (_%tl8534785370%_ (let () (declare (not safe)) - (##cdr _%e8446284480%_)))) - (if (gx#stx-pair? _%tl8446484487%_) - (let ((_%e8446584490%_ - (gx#syntax-e _%tl8446484487%_))) - (let ((_%hd8446684494%_ + (##cdr _%e8534585363%_)))) + (if (gx#stx-pair? _%tl8534785370%_) + (let ((_%e8534885373%_ + (gx#syntax-e _%tl8534785370%_))) + (let ((_%hd8534985377%_ (let () (declare (not safe)) - (##car _%e8446584490%_))) - (_%tl8446784497%_ + (##car _%e8534885373%_))) + (_%tl8535085380%_ (let () (declare (not safe)) - (##cdr _%e8446584490%_)))) - (if (gx#stx-null? _%tl8446784497%_) - ((lambda (_%L84500%_) + (##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 _%L84500%_ + (cons _%L85383%_ (cons '0 (cons '1 (cons '0 '()))))) (cons '0 '()))) @@ -146,133 +146,133 @@ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8446684494%_) - (_%g8445984473%_ _%g8446084477%_)))) - (_%g8445984473%_ _%g8446084477%_)))) - (_%g8445984473%_ _%g8446084477%_))))) - (_%g8445884514%_ _%$stx84455%_)))) + _%hd8534985377%_) + (_%g8534285356%_ _%g8534385360%_)))) + (_%g8534285356%_ _%g8534385360%_)))) + (_%g8534285356%_ _%g8534385360%_))))) + (_%g8534185397%_ _%$stx85338%_)))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx84518%_) - (let* ((_%g8452284536%_ - (lambda (_%g8452384532%_) + (lambda (_%$stx85401%_) + (let* ((_%g8540585419%_ + (lambda (_%g8540685415%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8452384532%_))) - (_%g8452184577%_ - (lambda (_%g8452384540%_) - (if (gx#stx-pair? _%g8452384540%_) - (let ((_%e8452584543%_ (gx#syntax-e _%g8452384540%_))) - (let ((_%hd8452684547%_ + _%g8540685415%_))) + (_%g8540485460%_ + (lambda (_%g8540685423%_) + (if (gx#stx-pair? _%g8540685423%_) + (let ((_%e8540885426%_ (gx#syntax-e _%g8540685423%_))) + (let ((_%hd8540985430%_ (let () (declare (not safe)) - (##car _%e8452584543%_))) - (_%tl8452784550%_ + (##car _%e8540885426%_))) + (_%tl8541085433%_ (let () (declare (not safe)) - (##cdr _%e8452584543%_)))) - (if (gx#stx-pair? _%tl8452784550%_) - (let ((_%e8452884553%_ - (gx#syntax-e _%tl8452784550%_))) - (let ((_%hd8452984557%_ + (##cdr _%e8540885426%_)))) + (if (gx#stx-pair? _%tl8541085433%_) + (let ((_%e8541185436%_ + (gx#syntax-e _%tl8541085433%_))) + (let ((_%hd8541285440%_ (let () (declare (not safe)) - (##car _%e8452884553%_))) - (_%tl8453084560%_ + (##car _%e8541185436%_))) + (_%tl8541385443%_ (let () (declare (not safe)) - (##cdr _%e8452884553%_)))) - (if (gx#stx-null? _%tl8453084560%_) - ((lambda (_%L84563%_) + (##cdr _%e8541185436%_)))) + (if (gx#stx-null? _%tl8541385443%_) + ((lambda (_%L85446%_) (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L84563%_ + (cons _%L85446%_ (cons '0 (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '1 '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8452984557%_) - (_%g8452284536%_ _%g8452384540%_)))) - (_%g8452284536%_ _%g8452384540%_)))) - (_%g8452284536%_ _%g8452384540%_))))) - (_%g8452184577%_ _%$stx84518%_)))) + _%hd8541285440%_) + (_%g8540585419%_ _%g8540685423%_)))) + (_%g8540585419%_ _%g8540685423%_)))) + (_%g8540585419%_ _%g8540685423%_))))) + (_%g8540485460%_ _%$stx85401%_)))) (define |[:0:]#__make-inline-lock| - (lambda (_%$stx84581%_) - (let* ((_%g8458584595%_ - (lambda (_%g8458684591%_) + (lambda (_%$stx85464%_) + (let* ((_%g8546885478%_ + (lambda (_%g8546985474%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8458684591%_))) - (_%g8458484616%_ - (lambda (_%g8458684599%_) - (if (gx#stx-pair? _%g8458684599%_) - (let ((_%e8458784602%_ (gx#syntax-e _%g8458684599%_))) - (let ((_%hd8458884606%_ + _%g8546985474%_))) + (_%g8546785499%_ + (lambda (_%g8546985482%_) + (if (gx#stx-pair? _%g8546985482%_) + (let ((_%e8547085485%_ (gx#syntax-e _%g8546985482%_))) + (let ((_%hd8547185489%_ (let () (declare (not safe)) - (##car _%e8458784602%_))) - (_%tl8458984609%_ + (##car _%e8547085485%_))) + (_%tl8547285492%_ (let () (declare (not safe)) - (##cdr _%e8458784602%_)))) - (if (gx#stx-null? _%tl8458984609%_) + (##cdr _%e8547085485%_)))) + (if (gx#stx-null? _%tl8547285492%_) ((lambda () (cons (gx#datum->syntax '#f 'vector) (cons '0 '())))) - (_%g8458584595%_ _%g8458684599%_)))) - (_%g8458584595%_ _%g8458684599%_))))) - (_%g8458484616%_ _%$stx84581%_)))) + (_%g8546885478%_ _%g8546985482%_)))) + (_%g8546885478%_ _%g8546985482%_))))) + (_%g8546785499%_ _%$stx85464%_)))) (define |[:0:]#defaget| - (lambda (_%$stx84620%_) - (let* ((_%g8462484642%_ - (lambda (_%g8462584638%_) + (lambda (_%$stx85503%_) + (let* ((_%g8550785525%_ + (lambda (_%g8550885521%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8462584638%_))) - (_%g8462384697%_ - (lambda (_%g8462584646%_) - (if (gx#stx-pair? _%g8462584646%_) - (let ((_%e8462884649%_ (gx#syntax-e _%g8462584646%_))) - (let ((_%hd8462984653%_ + _%g8550885521%_))) + (_%g8550685580%_ + (lambda (_%g8550885529%_) + (if (gx#stx-pair? _%g8550885529%_) + (let ((_%e8551185532%_ (gx#syntax-e _%g8550885529%_))) + (let ((_%hd8551285536%_ (let () (declare (not safe)) - (##car _%e8462884649%_))) - (_%tl8463084656%_ + (##car _%e8551185532%_))) + (_%tl8551385539%_ (let () (declare (not safe)) - (##cdr _%e8462884649%_)))) - (if (gx#stx-pair? _%tl8463084656%_) - (let ((_%e8463184659%_ - (gx#syntax-e _%tl8463084656%_))) - (let ((_%hd8463284663%_ + (##cdr _%e8551185532%_)))) + (if (gx#stx-pair? _%tl8551385539%_) + (let ((_%e8551485542%_ + (gx#syntax-e _%tl8551385539%_))) + (let ((_%hd8551585546%_ (let () (declare (not safe)) - (##car _%e8463184659%_))) - (_%tl8463384666%_ + (##car _%e8551485542%_))) + (_%tl8551685549%_ (let () (declare (not safe)) - (##cdr _%e8463184659%_)))) - (if (gx#stx-pair? _%tl8463384666%_) - (let ((_%e8463484669%_ - (gx#syntax-e _%tl8463384666%_))) - (let ((_%hd8463584673%_ + (##cdr _%e8551485542%_)))) + (if (gx#stx-pair? _%tl8551685549%_) + (let ((_%e8551785552%_ + (gx#syntax-e _%tl8551685549%_))) + (let ((_%hd8551885556%_ (let () (declare (not safe)) - (##car _%e8463484669%_))) - (_%tl8463684676%_ + (##car _%e8551785552%_))) + (_%tl8551985559%_ (let () (declare (not safe)) - (##cdr _%e8463484669%_)))) - (if (gx#stx-null? _%tl8463684676%_) - ((lambda (_%L84679%_ _%L84681%_) + (##cdr _%e8551785552%_)))) + (if (gx#stx-null? _%tl8551985559%_) + ((lambda (_%L85562%_ _%L85564%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84681%_ + (cons (cons _%L85564%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +291,7 @@ '#f 'lst) '())) - (cons (cons _%L84679%_ + (cons (cons _%L85562%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +328,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8463584673%_ - _%hd8463284663%_) - (_%g8462484642%_ - _%g8462584646%_)))) - (_%g8462484642%_ _%g8462584646%_)))) - (_%g8462484642%_ _%g8462584646%_)))) - (_%g8462484642%_ _%g8462584646%_))))) - (_%g8462384697%_ _%$stx84620%_)))) + _%hd8551885556%_ + _%hd8551585546%_) + (_%g8550785525%_ + _%g8550885529%_)))) + (_%g8550785525%_ _%g8550885529%_)))) + (_%g8550785525%_ _%g8550885529%_)))) + (_%g8550785525%_ _%g8550885529%_))))) + (_%g8550685580%_ _%$stx85503%_)))) (define |[:0:]#defpget| - (lambda (_%$stx84701%_) - (let* ((_%g8470584723%_ - (lambda (_%g8470684719%_) + (lambda (_%$stx85584%_) + (let* ((_%g8558885606%_ + (lambda (_%g8558985602%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8470684719%_))) - (_%g8470484778%_ - (lambda (_%g8470684727%_) - (if (gx#stx-pair? _%g8470684727%_) - (let ((_%e8470984730%_ (gx#syntax-e _%g8470684727%_))) - (let ((_%hd8471084734%_ + _%g8558985602%_))) + (_%g8558785661%_ + (lambda (_%g8558985610%_) + (if (gx#stx-pair? _%g8558985610%_) + (let ((_%e8559285613%_ (gx#syntax-e _%g8558985610%_))) + (let ((_%hd8559385617%_ (let () (declare (not safe)) - (##car _%e8470984730%_))) - (_%tl8471184737%_ + (##car _%e8559285613%_))) + (_%tl8559485620%_ (let () (declare (not safe)) - (##cdr _%e8470984730%_)))) - (if (gx#stx-pair? _%tl8471184737%_) - (let ((_%e8471284740%_ - (gx#syntax-e _%tl8471184737%_))) - (let ((_%hd8471384744%_ + (##cdr _%e8559285613%_)))) + (if (gx#stx-pair? _%tl8559485620%_) + (let ((_%e8559585623%_ + (gx#syntax-e _%tl8559485620%_))) + (let ((_%hd8559685627%_ (let () (declare (not safe)) - (##car _%e8471284740%_))) - (_%tl8471484747%_ + (##car _%e8559585623%_))) + (_%tl8559785630%_ (let () (declare (not safe)) - (##cdr _%e8471284740%_)))) - (if (gx#stx-pair? _%tl8471484747%_) - (let ((_%e8471584750%_ - (gx#syntax-e _%tl8471484747%_))) - (let ((_%hd8471684754%_ + (##cdr _%e8559585623%_)))) + (if (gx#stx-pair? _%tl8559785630%_) + (let ((_%e8559885633%_ + (gx#syntax-e _%tl8559785630%_))) + (let ((_%hd8559985637%_ (let () (declare (not safe)) - (##car _%e8471584750%_))) - (_%tl8471784757%_ + (##car _%e8559885633%_))) + (_%tl8560085640%_ (let () (declare (not safe)) - (##cdr _%e8471584750%_)))) - (if (gx#stx-null? _%tl8471784757%_) - ((lambda (_%L84760%_ _%L84762%_) + (##cdr _%e8559885633%_)))) + (if (gx#stx-null? _%tl8560085640%_) + ((lambda (_%L85643%_ _%L85645%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84762%_ + (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 _%L84760%_ + (cons (cons _%L85643%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +458,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8471684754%_ - _%hd8471384744%_) - (_%g8470584723%_ - _%g8470684727%_)))) - (_%g8470584723%_ _%g8470684727%_)))) - (_%g8470584723%_ _%g8470684727%_)))) - (_%g8470584723%_ _%g8470684727%_))))) - (_%g8470484778%_ _%$stx84701%_)))) + _%hd8559985637%_ + _%hd8559685627%_) + (_%g8558885606%_ + _%g8558985610%_)))) + (_%g8558885606%_ _%g8558985610%_)))) + (_%g8558885606%_ _%g8558985610%_)))) + (_%g8558885606%_ _%g8558985610%_))))) + (_%g8558785661%_ _%$stx85584%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx84782%_) - (let* ((_%g8478684804%_ - (lambda (_%g8478784800%_) + (lambda (_%$stx85665%_) + (let* ((_%g8566985687%_ + (lambda (_%g8567085683%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8478784800%_))) - (_%g8478584859%_ - (lambda (_%g8478784808%_) - (if (gx#stx-pair? _%g8478784808%_) - (let ((_%e8479084811%_ (gx#syntax-e _%g8478784808%_))) - (let ((_%hd8479184815%_ + _%g8567085683%_))) + (_%g8566885742%_ + (lambda (_%g8567085691%_) + (if (gx#stx-pair? _%g8567085691%_) + (let ((_%e8567385694%_ (gx#syntax-e _%g8567085691%_))) + (let ((_%hd8567485698%_ (let () (declare (not safe)) - (##car _%e8479084811%_))) - (_%tl8479284818%_ + (##car _%e8567385694%_))) + (_%tl8567585701%_ (let () (declare (not safe)) - (##cdr _%e8479084811%_)))) - (if (gx#stx-pair? _%tl8479284818%_) - (let ((_%e8479384821%_ - (gx#syntax-e _%tl8479284818%_))) - (let ((_%hd8479484825%_ + (##cdr _%e8567385694%_)))) + (if (gx#stx-pair? _%tl8567585701%_) + (let ((_%e8567685704%_ + (gx#syntax-e _%tl8567585701%_))) + (let ((_%hd8567785708%_ (let () (declare (not safe)) - (##car _%e8479384821%_))) - (_%tl8479584828%_ + (##car _%e8567685704%_))) + (_%tl8567885711%_ (let () (declare (not safe)) - (##cdr _%e8479384821%_)))) - (if (gx#stx-pair? _%tl8479584828%_) - (let ((_%e8479684831%_ - (gx#syntax-e _%tl8479584828%_))) - (let ((_%hd8479784835%_ + (##cdr _%e8567685704%_)))) + (if (gx#stx-pair? _%tl8567885711%_) + (let ((_%e8567985714%_ + (gx#syntax-e _%tl8567885711%_))) + (let ((_%hd8568085718%_ (let () (declare (not safe)) - (##car _%e8479684831%_))) - (_%tl8479884838%_ + (##car _%e8567985714%_))) + (_%tl8568185721%_ (let () (declare (not safe)) - (##cdr _%e8479684831%_)))) - (if (gx#stx-null? _%tl8479884838%_) - ((lambda (_%L84841%_ _%L84843%_) + (##cdr _%e8567985714%_)))) + (if (gx#stx-null? _%tl8568185721%_) + ((lambda (_%L85724%_ _%L85726%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84843%_ + (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 _%L84841%_ + (cons (cons _%L85724%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,150 +586,150 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8479784835%_ - _%hd8479484825%_) - (_%g8478684804%_ - _%g8478784808%_)))) - (_%g8478684804%_ _%g8478784808%_)))) - (_%g8478684804%_ _%g8478784808%_)))) - (_%g8478684804%_ _%g8478784808%_))))) - (_%g8478584859%_ _%$stx84782%_)))) + _%hd8568085718%_ + _%hd8567785708%_) + (_%g8566985687%_ + _%g8567085691%_)))) + (_%g8566985687%_ _%g8567085691%_)))) + (_%g8566985687%_ _%g8567085691%_)))) + (_%g8566985687%_ _%g8567085691%_))))) + (_%g8566885742%_ _%$stx85665%_)))) (define |[:0:]#DBG| - (lambda (_%$stx84863%_) - (let* ((_%g8486784878%_ - (lambda (_%g8486884874%_) + (lambda (_%$stx85746%_) + (let* ((_%g8575085761%_ + (lambda (_%g8575185757%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8486884874%_))) - (_%g8486684907%_ - (lambda (_%g8486884882%_) - (if (gx#stx-pair? _%g8486884882%_) - (let ((_%e8487084885%_ (gx#syntax-e _%g8486884882%_))) - (let ((_%hd8487184889%_ + _%g8575185757%_))) + (_%g8574985790%_ + (lambda (_%g8575185765%_) + (if (gx#stx-pair? _%g8575185765%_) + (let ((_%e8575385768%_ (gx#syntax-e _%g8575185765%_))) + (let ((_%hd8575485772%_ (let () (declare (not safe)) - (##car _%e8487084885%_))) - (_%tl8487284892%_ + (##car _%e8575385768%_))) + (_%tl8575585775%_ (let () (declare (not safe)) - (##cdr _%e8487084885%_)))) - ((lambda (_%L84895%_) + (##cdr _%e8575385768%_)))) + ((lambda (_%L85778%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L84895%_))) - _%tl8487284892%_))) - (_%g8486784878%_ _%g8486884882%_))))) - (_%g8486684907%_ _%$stx84863%_)))) + (cons '1 _%L85778%_))) + _%tl8575585775%_))) + (_%g8575085761%_ _%g8575185765%_))))) + (_%g8574985790%_ _%$stx85746%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx84911%_) - (let* ((_%__stx9096490965%_ _%$stx84911%_) - (_%g8492285136%_ + (lambda (_%$stx85794%_) + (let* ((_%__stx9184791848%_ _%$stx85794%_) + (_%g8580586019%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9096490965%_)))) - (let ((_%__kont9096790968%_ - (lambda (_%L85989%_ - _%L85991%_ - _%L85992%_ - _%L85993%_ - _%L85994%_) - (cons _%L85994%_ + _%__stx9184791848%_)))) + (let ((_%__kont9185091851%_ + (lambda (_%L86872%_ + _%L86874%_ + _%L86875%_ + _%L86876%_ + _%L86877%_) + (cons _%L86877%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8602486027%_ - _%g8602586030%_) - (cons _%g8602486027%_ - _%g8602586030%_)) + (lambda (_%g8690786910%_ + _%g8690886913%_) + (cons _%g8690786910%_ + _%g8690886913%_)) '() - _%L85992%_) - (cons _%L85993%_ - (cons _%L85991%_ - (cons _%L85989%_ + _%L86875%_) + (cons _%L86876%_ + (cons _%L86874%_ + (cons _%L86872%_ '()))))))))) - (_%__kont9097190972%_ - (lambda (_%L85842%_ _%L85844%_ _%L85845%_ _%L85846%_) - (cons _%L85846%_ + (_%__kont9185491855%_ + (lambda (_%L86725%_ _%L86727%_ _%L86728%_ _%L86729%_) + (cons _%L86729%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8586985872%_ - _%g8587085875%_) - (cons _%g8586985872%_ - _%g8587085875%_)) + (lambda (_%g8675286755%_ + _%g8675386758%_) + (cons _%g8675286755%_ + _%g8675386758%_)) '() - _%L85844%_) - (cons _%L85845%_ - (cons _%L85842%_ - (cons _%L85842%_ + _%L86727%_) + (cons _%L86728%_ + (cons _%L86725%_ + (cons _%L86725%_ '()))))))))) - (_%__kont9097590976%_ - (lambda (_%L85745%_) + (_%__kont9185891859%_ + (lambda (_%L86628%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L85745%_ + (cons _%L86628%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont9097790978%_ - (lambda (_%L85668%_ - _%L85670%_ - _%L85671%_ - _%L85672%_ - _%L85673%_ - _%L85674%_) - (cons _%L85674%_ + (_%__kont9186091861%_ + (lambda (_%L86551%_ + _%L86553%_ + _%L86554%_ + _%L86555%_ + _%L86556%_ + _%L86557%_) + (cons _%L86557%_ (cons '2 - (cons (cons (cons _%L85672%_ - (cons _%L85671%_ '())) - _%L85673%_) - (cons _%L85670%_ _%L85668%_)))))) - (_%__kont9097990980%_ - (lambda (_%L85549%_ - _%L85551%_ - _%L85552%_ - _%L85553%_ - _%L85554%_) - (cons _%L85554%_ + (cons (cons (cons _%L86555%_ + (cons _%L86554%_ '())) + _%L86556%_) + (cons _%L86553%_ _%L86551%_)))))) + (_%__kont9186291863%_ + (lambda (_%L86432%_ + _%L86434%_ + _%L86435%_ + _%L86436%_ + _%L86437%_) + (cons _%L86437%_ (cons '2 - (cons (cons (cons _%L85552%_ - (cons _%L85552%_ '())) - _%L85553%_) - (cons _%L85551%_ _%L85549%_)))))) - (_%__kont9098190982%_ - (lambda (_%L85466%_ _%L85468%_ _%L85469%_) - (cons _%L85469%_ - (cons '3 (cons '() (cons _%L85468%_ _%L85466%_)))))) - (_%__kont9098390984%_ - (lambda (_%L85387%_ - _%L85389%_ - _%L85390%_ - _%L85391%_ - _%L85392%_) - (cons _%L85392%_ + (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 _%L85390%_ _%L85391%_) - (cons _%L85389%_ _%L85387%_)))))) - (_%__kont9098590986%_ - (lambda (_%L85271%_ - _%L85273%_ - _%L85274%_ - _%L85275%_ - _%L85276%_ - _%L85277%_) + (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 _%L85274%_ '())) + (cons _%L86157%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L85271%_ '()))) + (cons _%L86154%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -744,31 +744,31 @@ 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) (cons (__foldr1 - (lambda (_%g8531185314%_ - _%g8531285317%_) - (cons _%g8531185314%_ - _%g8531285317%_)) + (lambda (_%g8619486197%_ + _%g8619586200%_) + (cons _%g8619486197%_ + _%g8619586200%_)) '() - _%L85276%_) + _%L86159%_) '())) (cons (cons (gx#datum->syntax '#f 'list) (__foldr1 - (lambda (_%g8530985320%_ - _%g8531085323%_) + (lambda (_%g8619286203%_ + _%g8619386206%_) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g8530985320%_ '()))) - _%g8531085323%_)) + (cons _%g8619286203%_ '()))) + _%g8619386206%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L85275%_)) + _%L86158%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L85273%_ '())) + (cons _%L86156%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -776,1201 +776,1201 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match9131591316%_ - (lambda (_%e8509285143%_ - _%hd8509385147%_ - _%tl8509485150%_ - _%e8509585153%_ - _%hd8509685157%_ - _%tl8509785160%_ - _%e8509885163%_ - _%e8509985167%_ - _%hd8510085171%_ - _%tl8510185174%_ - _%__splice9098790988%_ - _%target8510285177%_ - _%tl8510485180%_) - (letrec ((_%loop8510585183%_ - (lambda (_%hd8510385187%_ - _%exprs8510985190%_ - _%names8511085192%_) - (if (gx#stx-pair? _%hd8510385187%_) - (let ((_%e8510685195%_ - (gx#syntax-e _%hd8510385187%_))) - (let ((_%lp-tl8510885202%_ + (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 _%e8510685195%_))) - (_%lp-hd8510785199%_ + (##cdr _%e8598986078%_))) + (_%lp-hd8599086082%_ (let () (declare (not safe)) - (##car _%e8510685195%_)))) + (##car _%e8598986078%_)))) (if (gx#stx-pair? - _%lp-hd8510785199%_) - (let ((_%e8512585205%_ + _%lp-hd8599086082%_) + (let ((_%e8600886088%_ (gx#syntax-e - _%lp-hd8510785199%_))) - (let ((_%tl8512785212%_ + _%lp-hd8599086082%_))) + (let ((_%tl8601086095%_ (let () (declare (not safe)) - (##cdr _%e8512585205%_))) - (_%hd8512685209%_ + (##cdr _%e8600886088%_))) + (_%hd8600986092%_ (let () (declare (not safe)) - (##car _%e8512585205%_)))) + (##car _%e8600886088%_)))) (if (gx#stx-pair? - _%tl8512785212%_) - (let ((_%e8512885215%_ + _%tl8601086095%_) + (let ((_%e8601186098%_ (gx#syntax-e - _%tl8512785212%_))) - (let ((_%tl8513085222%_ + _%tl8601086095%_))) + (let ((_%tl8601386105%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8512885215%_))) - (_%hd8512985219%_ - (let () (declare (not safe)) (##car _%e8512885215%_)))) - (if (gx#stx-null? _%tl8513085222%_) - (_%loop8510585183%_ - _%lp-tl8510885202%_ - (cons _%hd8512985219%_ _%exprs8510985190%_) - (cons _%hd8512685209%_ _%names8511085192%_)) - (let () (declare (not safe)) (_%g8492285136%_))))) - (let () (declare (not safe)) (_%g8492285136%_))))) + (##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)) - (_%g8492285136%_))))) - (let ((_%names8511285228%_ - (reverse _%names8511085192%_)) - (_%exprs8511185225%_ - (reverse _%exprs8510985190%_))) - (if (gx#stx-pair? _%tl8510185174%_) - (let ((_%e8511385231%_ + (_%g8580586019%_))))) + (let ((_%names8599586111%_ + (reverse _%names8599386075%_)) + (_%exprs8599486108%_ + (reverse _%exprs8599286073%_))) + (if (gx#stx-pair? _%tl8598486057%_) + (let ((_%e8599686114%_ (gx#syntax-e - _%tl8510185174%_))) - (let ((_%tl8511585238%_ + _%tl8598486057%_))) + (let ((_%tl8599886121%_ (let () (declare (not safe)) - (##cdr _%e8511385231%_))) - (_%hd8511485235%_ + (##cdr _%e8599686114%_))) + (_%hd8599786118%_ (let () (declare (not safe)) - (##car _%e8511385231%_)))) + (##car _%e8599686114%_)))) (if (gx#stx-null? - _%hd8511485235%_) + _%hd8599786118%_) (if (gx#stx-pair? - _%tl8511585238%_) - (let ((_%e8511685241%_ + _%tl8599886121%_) + (let ((_%e8599986124%_ (gx#syntax-e - _%tl8511585238%_))) - (let ((_%tl8511885248%_ + _%tl8599886121%_))) + (let ((_%tl8600186131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8511685241%_))) - (_%hd8511785245%_ + (let () (declare (not safe)) (##cdr _%e8599986124%_))) + (_%hd8600086128%_ (let () (declare (not safe)) - (##car _%e8511685241%_)))) - (if (gx#stx-pair? _%tl8511885248%_) - (let ((_%e8511985251%_ (gx#syntax-e _%tl8511885248%_))) - (let ((_%tl8512185258%_ + (##car _%e8599986124%_)))) + (if (gx#stx-pair? _%tl8600186131%_) + (let ((_%e8600286134%_ (gx#syntax-e _%tl8600186131%_))) + (let ((_%tl8600486141%_ (let () (declare (not safe)) - (##cdr _%e8511985251%_))) - (_%hd8512085255%_ + (##cdr _%e8600286134%_))) + (_%hd8600386138%_ (let () (declare (not safe)) - (##car _%e8511985251%_)))) - (if (gx#stx-pair? _%tl8512185258%_) - (let ((_%e8512285261%_ - (gx#syntax-e _%tl8512185258%_))) - (let ((_%tl8512485268%_ + (##car _%e8600286134%_)))) + (if (gx#stx-pair? _%tl8600486141%_) + (let ((_%e8600586144%_ + (gx#syntax-e _%tl8600486141%_))) + (let ((_%tl8600786151%_ (let () (declare (not safe)) - (##cdr _%e8512285261%_))) - (_%hd8512385265%_ + (##cdr _%e8600586144%_))) + (_%hd8600686148%_ (let () (declare (not safe)) - (##car _%e8512285261%_)))) - (if (gx#stx-null? _%tl8512485268%_) - (_%__kont9098590986%_ - _%hd8512385265%_ - _%hd8512085255%_ - _%hd8511785245%_ - _%exprs8511185225%_ - _%names8511285228%_ - _%hd8509385147%_) + (##car _%e8600586144%_)))) + (if (gx#stx-null? _%tl8600786151%_) + (_%__kont9186891869%_ + _%hd8600686148%_ + _%hd8600386138%_ + _%hd8600086128%_ + _%exprs8599486108%_ + _%names8599586111%_ + _%hd8597686030%_) (let () (declare (not safe)) - (_%g8492285136%_))))) + (_%g8580586019%_))))) (let () (declare (not safe)) - (_%g8492285136%_))))) - (let () (declare (not safe)) (_%g8492285136%_))))) - (let () (declare (not safe)) (_%g8492285136%_))) + (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8492285136%_))))) + (_%g8580586019%_))))) (let () (declare (not safe)) - (_%g8492285136%_)))))))) - (_%loop8510585183%_ _%target8510285177%_ '() '())))) - (_%__match9109391094%_ - (lambda (_%e8496485768%_ - _%hd8496585772%_ - _%tl8496685775%_ - _%e8496785778%_ - _%hd8496885782%_ - _%tl8496985785%_ - _%e8497085788%_ - _%e8497185792%_ - _%hd8497285796%_ - _%tl8497385799%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (letrec ((_%loop8497785818%_ - (lambda (_%hd8497585822%_ _%exprs8498185825%_) - (if (gx#stx-pair? _%hd8497585822%_) - (let ((_%e8497885828%_ - (gx#syntax-e _%hd8497585822%_))) - (let ((_%lp-tl8498085835%_ + (_%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 _%e8497885828%_))) - (_%lp-hd8497985832%_ + (##cdr _%e8586186711%_))) + (_%lp-hd8586286715%_ (let () (declare (not safe)) - (##car _%e8497885828%_)))) - (_%loop8497785818%_ - _%lp-tl8498085835%_ - (cons _%lp-hd8497985832%_ - _%exprs8498185825%_)))) - (let ((_%exprs8498285838%_ - (reverse _%exprs8498185825%_))) - (_%__kont9097190972%_ - _%hd8498485812%_ - _%exprs8498285838%_ - _%hd8497285796%_ - _%hd8496585772%_)))))) - (_%loop8497785818%_ _%target8497485802%_ '())))) - (_%__match9105391054%_ - (lambda (_%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9096990970%_ - _%target8493985919%_ - _%tl8494185922%_ - _%e8494885925%_ - _%hd8494985929%_ - _%tl8495085932%_ - _%e8495185935%_ - _%hd8495285939%_ - _%tl8495385942%_ - _%e8495485945%_ - _%hd8495585949%_ - _%tl8495685952%_ - _%e8495785955%_ - _%hd8495885959%_ - _%tl8495985962%_) - (letrec ((_%loop8494285965%_ - (lambda (_%hd8494085969%_ _%exprs8494685972%_) - (if (gx#stx-pair? _%hd8494085969%_) - (let ((_%e8494385975%_ - (gx#syntax-e _%hd8494085969%_))) - (let ((_%lp-tl8494585982%_ + (##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 _%e8494385975%_))) - (_%lp-hd8494485979%_ + (##cdr _%e8582686858%_))) + (_%lp-hd8582786862%_ (let () (declare (not safe)) - (##car _%e8494385975%_)))) - (_%loop8494285965%_ - _%lp-tl8494585982%_ - (cons _%lp-hd8494485979%_ - _%exprs8494685972%_)))) - (let ((_%exprs8494785985%_ - (reverse _%exprs8494685972%_))) - (_%__kont9096790968%_ - _%hd8495885959%_ - _%hd8495585949%_ - _%exprs8494785985%_ - _%hd8493785913%_ - _%hd8493085889%_)))))) - (_%loop8494285965%_ _%target8493985919%_ '()))))) - (if (gx#stx-pair? _%__stx9096490965%_) - (let ((_%e8492985885%_ (gx#syntax-e _%__stx9096490965%_))) - (let ((_%tl8493185892%_ + (##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 _%e8492985885%_))) - (_%hd8493085889%_ + (##cdr _%e8581286768%_))) + (_%hd8581386772%_ (let () (declare (not safe)) - (##car _%e8492985885%_)))) - (if (gx#stx-pair? _%tl8493185892%_) - (let ((_%e8493285895%_ - (gx#syntax-e _%tl8493185892%_))) - (let ((_%tl8493485902%_ + (##car _%e8581286768%_)))) + (if (gx#stx-pair? _%tl8581486775%_) + (let ((_%e8581586778%_ + (gx#syntax-e _%tl8581486775%_))) + (let ((_%tl8581786785%_ (let () (declare (not safe)) - (##cdr _%e8493285895%_))) - (_%hd8493385899%_ + (##cdr _%e8581586778%_))) + (_%hd8581686782%_ (let () (declare (not safe)) - (##car _%e8493285895%_)))) - (if (gx#stx-datum? _%hd8493385899%_) - (let ((_%e8493585905%_ - (gx#stx-e _%hd8493385899%_))) - (if (equal? _%e8493585905%_ '1) - (if (gx#stx-pair? _%tl8493485902%_) - (let ((_%e8493685909%_ + (##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 - _%tl8493485902%_))) - (let ((_%tl8493885916%_ + _%tl8581786785%_))) + (let ((_%tl8582186799%_ (let () (declare (not safe)) - (##cdr _%e8493685909%_))) - (_%hd8493785913%_ + (##cdr _%e8581986792%_))) + (_%hd8582086796%_ (let () (declare (not safe)) - (##car _%e8493685909%_)))) + (##car _%e8581986792%_)))) (if (gx#stx-pair/null? - _%tl8493885916%_) - (if (let ((__tmp91412 + _%tl8582186799%_) + (if (let ((__tmp92295 (gx#stx-length - _%tl8493885916%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91412 + (##fx>= __tmp92295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice9096990970%_ - (gx#syntax-split-splice _%tl8493885916%_ '2))) - (let ((_%tl8494185922%_ + (let ((_%__splice9185291853%_ + (gx#syntax-split-splice _%tl8582186799%_ '2))) + (let ((_%tl8582486805%_ (let () (declare (not safe)) - (##vector-ref _%__splice9096990970%_ '1))) - (_%target8493985919%_ + (##vector-ref _%__splice9185291853%_ '1))) + (_%target8582286802%_ (let () (declare (not safe)) - (##vector-ref _%__splice9096990970%_ '0)))) - (if (gx#stx-pair? _%tl8494185922%_) - (let ((_%e8494885925%_ (gx#syntax-e _%tl8494185922%_))) - (let ((_%tl8495085932%_ + (##vector-ref _%__splice9185291853%_ '0)))) + (if (gx#stx-pair? _%tl8582486805%_) + (let ((_%e8583186808%_ (gx#syntax-e _%tl8582486805%_))) + (let ((_%tl8583386815%_ (let () (declare (not safe)) - (##cdr _%e8494885925%_))) - (_%hd8494985929%_ + (##cdr _%e8583186808%_))) + (_%hd8583286812%_ (let () (declare (not safe)) - (##car _%e8494885925%_)))) - (if (gx#stx-pair? _%hd8494985929%_) - (let ((_%e8495185935%_ - (gx#syntax-e _%hd8494985929%_))) - (let ((_%tl8495385942%_ + (##car _%e8583186808%_)))) + (if (gx#stx-pair? _%hd8583286812%_) + (let ((_%e8583486818%_ + (gx#syntax-e _%hd8583286812%_))) + (let ((_%tl8583686825%_ (let () (declare (not safe)) - (##cdr _%e8495185935%_))) - (_%hd8495285939%_ + (##cdr _%e8583486818%_))) + (_%hd8583586822%_ (let () (declare (not safe)) - (##car _%e8495185935%_)))) - (if (gx#identifier? _%hd8495285939%_) + (##car _%e8583486818%_)))) + (if (gx#identifier? _%hd8583586822%_) (if (gx#free-identifier=? - |[1]#_g91413_| - _%hd8495285939%_) - (if (gx#stx-pair? _%tl8495385942%_) - (let ((_%e8495485945%_ + |[1]#_g92296_| + _%hd8583586822%_) + (if (gx#stx-pair? _%tl8583686825%_) + (let ((_%e8583786828%_ (gx#syntax-e - _%tl8495385942%_))) - (let ((_%tl8495685952%_ + _%tl8583686825%_))) + (let ((_%tl8583986835%_ (let () (declare (not safe)) - (##cdr _%e8495485945%_))) - (_%hd8495585949%_ + (##cdr _%e8583786828%_))) + (_%hd8583886832%_ (let () (declare (not safe)) - (##car _%e8495485945%_)))) + (##car _%e8583786828%_)))) (if (gx#stx-null? - _%tl8495685952%_) + _%tl8583986835%_) (if (gx#stx-pair? - _%tl8495085932%_) - (let ((_%e8495785955%_ + _%tl8583386815%_) + (let ((_%e8584086838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8495085932%_))) - (let ((_%tl8495985962%_ + (gx#syntax-e _%tl8583386815%_))) + (let ((_%tl8584286845%_ (let () (declare (not safe)) - (##cdr _%e8495785955%_))) - (_%hd8495885959%_ + (##cdr _%e8584086838%_))) + (_%hd8584186842%_ (let () (declare (not safe)) - (##car _%e8495785955%_)))) - (if (gx#stx-null? _%tl8495985962%_) - (_%__match9105391054%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9096990970%_ - _%target8493985919%_ - _%tl8494185922%_ - _%e8494885925%_ - _%hd8494985929%_ - _%tl8495085932%_ - _%e8495185935%_ - _%hd8495285939%_ - _%tl8495385942%_ - _%e8495485945%_ - _%hd8495585949%_ - _%tl8495685952%_ - _%e8495785955%_ - _%hd8495885959%_ - _%tl8495985962%_) - (if (let ((__tmp91414 - (gx#stx-length _%tl8493885916%_))) + (##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>= __tmp91414 '1)) - (let ((_%__splice9097390974%_ + (##fx>= __tmp92297 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8493885916%_ + _%tl8582186799%_ '1))) - (let ((_%tl8497685805%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '1))) - (_%target8497485802%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '0)))) - (if (gx#stx-pair? _%tl8497685805%_) - (let ((_%e8498385808%_ - (gx#syntax-e _%tl8497685805%_))) - (let ((_%tl8498585815%_ + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) + (##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? - _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_))))))) - (if (let ((__tmp91415 (gx#stx-length _%tl8493885916%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92298 (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91415 '1)) - (let ((_%__splice9097390974%_ - (gx#syntax-split-splice _%tl8493885916%_ '1))) - (let ((_%tl8497685805%_ + (##fx>= __tmp92298 '1)) + (let ((_%__splice9185691857%_ + (gx#syntax-split-splice _%tl8582186799%_ '1))) + (let ((_%tl8585986688%_ (let () (declare (not safe)) - (##vector-ref _%__splice9097390974%_ '1))) - (_%target8497485802%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9097390974%_ '0)))) - (if (gx#stx-pair? _%tl8497685805%_) - (let ((_%e8498385808%_ - (gx#syntax-e _%tl8497685805%_))) - (let ((_%tl8498585815%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + (##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)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) - (let () (declare (not safe)) (_%g8492285136%_))))) - (if (let ((__tmp91416 (gx#stx-length _%tl8493885916%_))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_))))) + (if (let ((__tmp92299 (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91416 '1)) - (let ((_%__splice9097390974%_ - (gx#syntax-split-splice _%tl8493885916%_ '1))) - (let ((_%tl8497685805%_ + (##fx>= __tmp92299 '1)) + (let ((_%__splice9185691857%_ + (gx#syntax-split-splice _%tl8582186799%_ '1))) + (let ((_%tl8585986688%_ (let () (declare (not safe)) - (##vector-ref _%__splice9097390974%_ '1))) - (_%target8497485802%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9097390974%_ '0)))) - (if (gx#stx-pair? _%tl8497685805%_) - (let ((_%e8498385808%_ - (gx#syntax-e _%tl8497685805%_))) - (let ((_%tl8498585815%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (##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)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) - (let () (declare (not safe)) (_%g8492285136%_))))))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp91417 + (if (let ((__tmp92300 (gx#stx-length - _%tl8493885916%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91417 '1)) - (let ((_%__splice9097390974%_ + (##fx>= __tmp92300 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8493885916%_ + _%tl8582186799%_ '1))) - (let ((_%tl8497685805%_ + (let ((_%tl8585986688%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice9097390974%_ '1))) - (_%target8497485802%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9097390974%_ '0)))) - (if (gx#stx-pair? _%tl8497685805%_) - (let ((_%e8498385808%_ (gx#syntax-e _%tl8497685805%_))) - (let ((_%tl8498585815%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (##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)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) - (let () (declare (not safe)) (_%g8492285136%_)))))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_))))) - (if (let ((__tmp91418 + (_%g8580586019%_))))) + (if (let ((__tmp92301 (gx#stx-length - _%tl8493885916%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91418 '1)) - (let ((_%__splice9097390974%_ + (##fx>= __tmp92301 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8493885916%_ + _%tl8582186799%_ '1))) - (let ((_%tl8497685805%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '1))) - (_%target8497485802%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '0)))) (if (gx#stx-pair? - _%tl8497685805%_) - (let ((_%e8498385808%_ + _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e - _%tl8497685805%_))) - (let ((_%tl8498585815%_ + _%tl8585986688%_))) + (let ((_%tl8586886698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (let () (declare (not safe)) (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) - (let () (declare (not safe)) (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) - (let () (declare (not safe)) (_%g8492285136%_)))))) + (##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? - _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_))))) - (if (let ((__tmp91419 + (_%g8580586019%_))))) + (if (let ((__tmp92302 (gx#stx-length - _%tl8493885916%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91419 '1)) - (let ((_%__splice9097390974%_ + (##fx>= __tmp92302 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8493885916%_ + _%tl8582186799%_ '1))) - (let ((_%tl8497685805%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '1))) - (_%target8497485802%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '0)))) (if (gx#stx-pair? - _%tl8497685805%_) - (let ((_%e8498385808%_ + _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e - _%tl8497685805%_))) - (let ((_%tl8498585815%_ + _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ - (let () (declare (not safe)) (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) - (let () (declare (not safe)) (_%g8492285136%_)))))) + (##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? - _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_))))))) - (if (let ((__tmp91420 - (gx#stx-length _%tl8493885916%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92303 + (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91420 '1)) - (let ((_%__splice9097390974%_ + (##fx>= __tmp92303 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8493885916%_ + _%tl8582186799%_ '1))) - (let ((_%tl8497685805%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '1))) - (_%target8497485802%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '0)))) - (if (gx#stx-pair? _%tl8497685805%_) - (let ((_%e8498385808%_ + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e - _%tl8497685805%_))) - (let ((_%tl8498585815%_ + _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) + (##car _%e8586686691%_)))) (if (gx#stx-null? - _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) + _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) (if (gx#stx-null? - _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_))))))) - (if (let ((__tmp91421 - (gx#stx-length _%tl8493885916%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92304 + (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91421 '1)) - (let ((_%__splice9097390974%_ + (##fx>= __tmp92304 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8493885916%_ + _%tl8582186799%_ '1))) - (let ((_%tl8497685805%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '1))) - (_%target8497485802%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9097390974%_ + _%__splice9185691857%_ '0)))) - (if (gx#stx-pair? _%tl8497685805%_) - (let ((_%e8498385808%_ - (gx#syntax-e _%tl8497685805%_))) - (let ((_%tl8498585815%_ + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + (##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)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_))))))) - (if (let ((__tmp91422 (gx#stx-length _%tl8493885916%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92305 (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91422 '1)) - (let ((_%__splice9097390974%_ - (gx#syntax-split-splice _%tl8493885916%_ '1))) - (let ((_%tl8497685805%_ + (##fx>= __tmp92305 '1)) + (let ((_%__splice9185691857%_ + (gx#syntax-split-splice _%tl8582186799%_ '1))) + (let ((_%tl8585986688%_ (let () (declare (not safe)) - (##vector-ref _%__splice9097390974%_ '1))) - (_%target8497485802%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9097390974%_ '0)))) - (if (gx#stx-pair? _%tl8497685805%_) - (let ((_%e8498385808%_ - (gx#syntax-e _%tl8497685805%_))) - (let ((_%tl8498585815%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8498385808%_))) - (_%hd8498485812%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8498385808%_)))) - (if (gx#stx-null? _%tl8498585815%_) - (_%__match9109391094%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8493685909%_ - _%hd8493785913%_ - _%tl8493885916%_ - _%__splice9097390974%_ - _%target8497485802%_ - _%tl8497685805%_ - _%e8498385808%_ - _%hd8498485812%_ - _%tl8498585815%_) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (##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)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-null? _%tl8493885916%_) - (_%__kont9097590976%_ _%hd8493785913%_) - (let () (declare (not safe)) (_%g8492285136%_))))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8493885916%_) - (_%__kont9097590976%_ - _%hd8493785913%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8492285136%_)))))) + (_%g8580586019%_)))))) (let () (declare (not safe)) - (_%g8492285136%_))) - (if (equal? _%e8493585905%_ '2) - (if (gx#stx-pair? _%tl8493485902%_) - (let ((_%e8501085608%_ + (_%g8580586019%_))) + (if (equal? _%e8581886788%_ '2) + (if (gx#stx-pair? _%tl8581786785%_) + (let ((_%e8589386491%_ (gx#syntax-e - _%tl8493485902%_))) - (let ((_%tl8501285615%_ + _%tl8581786785%_))) + (let ((_%tl8589586498%_ (let () (declare (not safe)) - (##cdr _%e8501085608%_))) - (_%hd8501185612%_ + (##cdr _%e8589386491%_))) + (_%hd8589486495%_ (let () (declare (not safe)) - (##car _%e8501085608%_)))) + (##car _%e8589386491%_)))) (if (gx#stx-pair? - _%tl8501285615%_) - (let ((_%e8501385618%_ + _%tl8589586498%_) + (let ((_%e8589686501%_ (gx#syntax-e - _%tl8501285615%_))) - (let ((_%tl8501585625%_ + _%tl8589586498%_))) + (let ((_%tl8589886508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8501385618%_))) - (_%hd8501485622%_ + (let () (declare (not safe)) (##cdr _%e8589686501%_))) + (_%hd8589786505%_ (let () (declare (not safe)) - (##car _%e8501385618%_)))) - (if (gx#stx-pair? _%hd8501485622%_) - (let ((_%e8501685628%_ (gx#syntax-e _%hd8501485622%_))) - (let ((_%tl8501885635%_ + (##car _%e8589686501%_)))) + (if (gx#stx-pair? _%hd8589786505%_) + (let ((_%e8589986511%_ (gx#syntax-e _%hd8589786505%_))) + (let ((_%tl8590186518%_ (let () (declare (not safe)) - (##cdr _%e8501685628%_))) - (_%hd8501785632%_ + (##cdr _%e8589986511%_))) + (_%hd8590086515%_ (let () (declare (not safe)) - (##car _%e8501685628%_)))) - (if (gx#stx-pair? _%hd8501785632%_) - (let ((_%e8501985638%_ - (gx#syntax-e _%hd8501785632%_))) - (let ((_%tl8502185645%_ + (##car _%e8589986511%_)))) + (if (gx#stx-pair? _%hd8590086515%_) + (let ((_%e8590286521%_ + (gx#syntax-e _%hd8590086515%_))) + (let ((_%tl8590486528%_ (let () (declare (not safe)) - (##cdr _%e8501985638%_))) - (_%hd8502085642%_ + (##cdr _%e8590286521%_))) + (_%hd8590386525%_ (let () (declare (not safe)) - (##car _%e8501985638%_)))) - (if (gx#identifier? _%hd8502085642%_) + (##car _%e8590286521%_)))) + (if (gx#identifier? _%hd8590386525%_) (if (gx#free-identifier=? - |[1]#_g91423_| - _%hd8502085642%_) - (if (gx#stx-pair? _%tl8502185645%_) - (let ((_%e8502285648%_ + |[1]#_g92306_| + _%hd8590386525%_) + (if (gx#stx-pair? _%tl8590486528%_) + (let ((_%e8590586531%_ (gx#syntax-e - _%tl8502185645%_))) - (let ((_%tl8502485655%_ + _%tl8590486528%_))) + (let ((_%tl8590786538%_ (let () (declare (not safe)) - (##cdr _%e8502285648%_))) - (_%hd8502385652%_ + (##cdr _%e8590586531%_))) + (_%hd8590686535%_ (let () (declare (not safe)) - (##car _%e8502285648%_)))) + (##car _%e8590586531%_)))) (if (gx#stx-null? - _%tl8502485655%_) + _%tl8590786538%_) (if (gx#stx-pair? - _%tl8501885635%_) - (let ((_%e8502585658%_ + _%tl8590186518%_) + (let ((_%e8590886541%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8501885635%_))) - (let ((_%tl8502785665%_ + (gx#syntax-e _%tl8590186518%_))) + (let ((_%tl8591086548%_ (let () (declare (not safe)) - (##cdr _%e8502585658%_))) - (_%hd8502685662%_ + (##cdr _%e8590886541%_))) + (_%hd8590986545%_ (let () (declare (not safe)) - (##car _%e8502585658%_)))) - (_%__kont9097790978%_ - _%tl8501585625%_ - _%tl8502785665%_ - _%hd8502685662%_ - _%hd8502385652%_ - _%hd8501185612%_ - _%hd8493085889%_))) - (_%__kont9097990980%_ - _%tl8501585625%_ - _%tl8501885635%_ - _%hd8501785632%_ - _%hd8501185612%_ - _%hd8493085889%_)) - (_%__kont9097990980%_ - _%tl8501585625%_ - _%tl8501885635%_ - _%hd8501785632%_ - _%hd8501185612%_ - _%hd8493085889%_)))) + (##car _%e8590886541%_)))) + (_%__kont9186091861%_ + _%tl8589886508%_ + _%tl8591086548%_ + _%hd8590986545%_ + _%hd8590686535%_ + _%hd8589486495%_ + _%hd8581386772%_))) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9097990980%_ - _%tl8501585625%_ - _%tl8501885635%_ - _%hd8501785632%_ - _%hd8501185612%_ - _%hd8493085889%_)) - (_%__kont9097990980%_ - _%tl8501585625%_ - _%tl8501885635%_ - _%hd8501785632%_ - _%hd8501185612%_ - _%hd8493085889%_)) - (_%__kont9097990980%_ - _%tl8501585625%_ - _%tl8501885635%_ - _%hd8501785632%_ - _%hd8501185612%_ - _%hd8493085889%_)))) - (_%__kont9097990980%_ - _%tl8501585625%_ - _%tl8501885635%_ - _%hd8501785632%_ - _%hd8501185612%_ - _%hd8493085889%_)))) - (if (gx#stx-null? _%hd8501485622%_) - (_%__kont9098190982%_ - _%tl8501585625%_ - _%hd8501185612%_ - _%hd8493085889%_) - (let () (declare (not safe)) (_%g8492285136%_)))))) - (let () (declare (not safe)) (_%g8492285136%_))))) + (_%__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)) - (_%g8492285136%_))) - (if (equal? _%e8493585905%_ '3) + (_%g8580586019%_))) + (if (equal? _%e8581886788%_ '3) (if (gx#stx-pair? - _%tl8493485902%_) - (let ((_%e8507785357%_ + _%tl8581786785%_) + (let ((_%e8596086240%_ (gx#syntax-e - _%tl8493485902%_))) - (let ((_%tl8507985364%_ + _%tl8581786785%_))) + (let ((_%tl8596286247%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8507785357%_))) - (_%hd8507885361%_ - (let () (declare (not safe)) (##car _%e8507785357%_)))) - (if (gx#stx-pair? _%tl8507985364%_) - (let ((_%e8508085367%_ (gx#syntax-e _%tl8507985364%_))) - (let ((_%tl8508285374%_ + (##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 _%e8508085367%_))) - (_%hd8508185371%_ + (##cdr _%e8596386250%_))) + (_%hd8596486254%_ (let () (declare (not safe)) - (##car _%e8508085367%_)))) - (if (gx#stx-pair? _%hd8508185371%_) - (let ((_%e8508385377%_ - (gx#syntax-e _%hd8508185371%_))) - (let ((_%tl8508585384%_ + (##car _%e8596386250%_)))) + (if (gx#stx-pair? _%hd8596486254%_) + (let ((_%e8596686260%_ + (gx#syntax-e _%hd8596486254%_))) + (let ((_%tl8596886267%_ (let () (declare (not safe)) - (##cdr _%e8508385377%_))) - (_%hd8508485381%_ + (##cdr _%e8596686260%_))) + (_%hd8596786264%_ (let () (declare (not safe)) - (##car _%e8508385377%_)))) - (_%__kont9098390984%_ - _%tl8508285374%_ - _%tl8508585384%_ - _%hd8508485381%_ - _%hd8507885361%_ - _%hd8493085889%_))) - (if (gx#stx-pair/null? _%hd8507885361%_) - (let ((_%__splice9098790988%_ + (##car _%e8596686260%_)))) + (_%__kont9186691867%_ + _%tl8596586257%_ + _%tl8596886267%_ + _%hd8596786264%_ + _%hd8596186244%_ + _%hd8581386772%_))) + (if (gx#stx-pair/null? _%hd8596186244%_) + (let ((_%__splice9187091871%_ (gx#syntax-split-splice - _%hd8507885361%_ + _%hd8596186244%_ '0))) - (let ((_%tl8510485180%_ + (let ((_%tl8598786063%_ (let () (declare (not safe)) (##vector-ref - _%__splice9098790988%_ + _%__splice9187091871%_ '1))) - (_%target8510285177%_ + (_%target8598586060%_ (let () (declare (not safe)) (##vector-ref - _%__splice9098790988%_ + _%__splice9187091871%_ '0)))) - (if (gx#stx-null? _%tl8510485180%_) - (_%__match9131591316%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8507785357%_ - _%hd8507885361%_ - _%tl8507985364%_ - _%__splice9098790988%_ - _%target8510285177%_ - _%tl8510485180%_) + (if (gx#stx-null? _%tl8598786063%_) + (_%__match9219892199%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8596086240%_ + _%hd8596186244%_ + _%tl8596286247%_ + _%__splice9187091871%_ + _%target8598586060%_ + _%tl8598786063%_) (let () (declare (not safe)) - (_%g8492285136%_))))) + (_%g8580586019%_))))) (let () (declare (not safe)) - (_%g8492285136%_)))))) - (if (gx#stx-pair/null? _%hd8507885361%_) - (let ((_%__splice9098790988%_ - (gx#syntax-split-splice _%hd8507885361%_ '0))) - (let ((_%tl8510485180%_ + (_%g8580586019%_)))))) + (if (gx#stx-pair/null? _%hd8596186244%_) + (let ((_%__splice9187091871%_ + (gx#syntax-split-splice _%hd8596186244%_ '0))) + (let ((_%tl8598786063%_ (let () (declare (not safe)) - (##vector-ref _%__splice9098790988%_ '1))) - (_%target8510285177%_ + (##vector-ref _%__splice9187091871%_ '1))) + (_%target8598586060%_ (let () (declare (not safe)) - (##vector-ref _%__splice9098790988%_ '0)))) - (if (gx#stx-null? _%tl8510485180%_) - (_%__match9131591316%_ - _%e8492985885%_ - _%hd8493085889%_ - _%tl8493185892%_ - _%e8493285895%_ - _%hd8493385899%_ - _%tl8493485902%_ - _%e8493585905%_ - _%e8507785357%_ - _%hd8507885361%_ - _%tl8507985364%_ - _%__splice9098790988%_ - _%target8510285177%_ - _%tl8510485180%_) + (##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)) - (_%g8492285136%_))))) - (let () (declare (not safe)) (_%g8492285136%_)))))) + (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8492285136%_))) + (_%g8580586019%_))) (let () (declare (not safe)) - (_%g8492285136%_)))))) + (_%g8580586019%_)))))) (let () (declare (not safe)) - (_%g8492285136%_))))) - (let () (declare (not safe)) (_%g8492285136%_))))) - (let () (declare (not safe)) (_%g8492285136%_)))))))))) + (_%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 7c2d7d2e1..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 1734131746) '#!void) +(begin (define gerbil/runtime::timestamp 1734357961) '#!void) 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/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/std/actor-v18/registry.ss b/src/std/actor-v18/registry.ss index fd7c977f1..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")) @@ -173,5 +184,10 @@ (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/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 e50e0d1c8..07f5fc61d 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/gxtest.ss b/src/tools/gxtest.ss index e1eef0720..4454e9e5b 100644 --- a/src/tools/gxtest.ss +++ b/src/tools/gxtest.ss @@ -25,7 +25,7 @@ global-env-flag (flag 'verbose "-v" help: "run in verbose mode where all test execution progress is displayed in stdout.") - (flag 'quiet "--quiet" + (flag 'quiet "-q" "--quiet" help: "run in in quiet mode where only errors are displayed") (option 'run "-r" "--run" help: "only run test suites whose name matches a given regex")